摘要：MainForm上加Panel,把Panel的DockSite设为True, 把窗口FB_orderManage的DragKind设为dkDock, DragMode设为dmAuromatic 在MainForm中调用： FB_orderManage:= TFB_orderManage.Create 阅读全文

摘要：1、如果用的roservice，那么用builder打开rodl然后直接生成wsdl保存；2、由系统IDE的Component中调用import WSDL后save as。3、调用代码： HTTPRIO_usegear.URL:='http://192.168.1.78:8099/SOAP';Edi... 阅读全文

摘要：在编写Android程序时经常会忘记添加权限，下面是网上收集的关于Android uses-permission的资料，方便查找~android.permission.ACCESS_CHECKIN_PROPERTIES允 许读写访问”properties”表在checkin数据库中，改值可以修改上传... 阅读全文

摘要：已经装过一次win7下d2007.再装一次就出现许多莫名其妙的问题。其中之一：Windows 7 64bit Delphi Debugger Fix / Workaround 2013-08-28 20:23 118人阅读 评论(0) 收藏 举报 I found a thread about ho... 阅读全文

摘要：1、需要session管理器，根据需要选择；2、需要一个login和logout的服务。注意：设定TRORemobteDataMedule.sessionmanager，但要设定TRORemobteDataMedule.RequiresSession=false。否则，会激活DoActivate后和... 阅读全文

摘要：临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别TRtlCriticalSection 是一个结构体，在windows单元中定义... 阅读全文

摘要：该功能网上一大批，就不说了。其中一点就是在测试时，出现好多问题。因为不明白原因，导致一头雾水，花费不少时间。实际上归结一条：你的网上邮箱pop3和smtp是否开通。没有开通时出现的形形式式的错误提示会一头雾水。现在一般邮箱要你自己手动开通。只有开通后才能测试成功。 1 begin 2 IdS... 阅读全文

摘要：由于win7和xp的权限问题，导致这个自动升级玩意不正常。这个狗屎问题很简单，把exe文件的兼容性设定该一下。真是气死洒家了。 阅读全文

摘要：现象：用'select a.WOD_No, a.WOM_FileLength,a.WOM_YanBuLength as WOM_Length, a.My_YDP,a.My_YDPL,a.My_JDMS,a.My_JDL,a.My_ZJDL,a.My_JDYY from WorkOrder_De... 阅读全文

摘要：把这个文件复制到你的程序目录\DevExpressVCL\ExpressDataController\Sources\cxLike.pas functionLikeStr(constAStr,APatternStr:string;APercent,AUnderline:Char):Boolean; var vPatternStr:string; begin vPatternStr:=Format('%%%s%%',[APatternStr]); Result:=Like(PChar(AStr),Length(AStr),PChar(vPatternStr), Length(vP 阅读全文

摘要：1 procedure Tfrm_CheckCloth.cnrs232ReceiveData(Sender: TObject; Buffer: Pointer; 2 BufferLength: Word); 3 var 4 MyRcvData:Array[0..8] of byte; 5 ChkStr:string; 6 tmp : Integer; 7 begin 8 move(buffer^,pchar(@MyRcvData)^,8); 9 // ChkStr := inttostr(MyRcvData[3]*256 +MyRcvDa... 阅读全文

摘要：ExpressSpreadSheet 中文乱码 阅读全文

摘要：1 procedure Tfrm_FoldingCloth.btn1Click(Sender: TObject); 2 var 3 SND:array of byte; 4 begin 5 if Not cnrs232.Connected then cnrs232.StartComm ; 6 Sleep(40); 7 Setlength(SND,8); 8 SND[0]:=($01); 9 SND[1]:=($03);10 SND[2]:=($00);11 SND[3]:=($14);12 SND[4]:=($00);13 SND[5]:... 阅读全文

摘要：这是一个及其简单的问题，可是被绕住了。当记录移动时，装载数据到excel显示数据。这个方法写在哪里？如何触发？datasource、cds等空间的触发都是多次。到现在也没明白如何去做。笨方法：1、在open数据控件时，用DisableControls控制2、在dbgrid的记录移动事件中处理读取数据装进excel表中显示。 阅读全文

摘要：网上很多，如何把图片、word、excel等保存到数据库中。可是自己就是死活出现异常，百思不得其解。原因找到了，为什么没有去弄明白：在sql server字段类型中，我把存储字段设成binary，结果存储出现异常，改成image就ok了。应该是方法和字段类型不配套，你知道告诉我。我真的太懒了。过了就过了。var OpenFile : TOpenDialog; Mystream:TMemoryStream;begin try OpenFile := TOpenDialog.Create(Self); OpenFile.Filter :='Excel|*.XLS'; Ope... 阅读全文

摘要：在实际事务应用中，多次打开server进行大写。其中遇到一些问题，由于时间关系，没有好好整理，虽然问题解决了，但原因和其他方法没有去进一步测试。1、每个单元用本地TidTCPClient变量连接server时，单元间会冲突。是disconnect不到位，还是什么问题，还不清楚。目前解决办法是通过线程完成：在线程idthrdcmpnt1的onrun事件中：procedure TFrame_UpdownSaleData.idthrdcmpnt1Run(Sender: TIdThreadComponent);begin getSalesRecord(mmo1);//打开连接完成存取数据，然后关闭和f 阅读全文

摘要：cliendataset中自增长字段的处理：id：自增长字段。在client中的处理方法：clientdataset.Fields.FieldByName('id').ReadOnly:=False;后面该怎么处理就怎么处理。忘了说一句：后台是unidac连接数据库。 阅读全文

摘要：//16进制命令：02+!0J0001A+0d0a03 s:= '0221304A30303031410d0a03'; SetLength(mybuff,12); mybuff[0] := StrToInt('$02') ; mybuff[1] := StrToInt('$21') ; mybuff[2] := StrToInt('$30') ; mybuff[3] := StrToInt('$4a') ; mybuff[4] := StrToInt('$30') ; mybuff[5] := St 阅读全文

摘要：目前NativeXml4.07版本是utf-8编码，但是从一个中文文本文件读进来后中文就是乱码。编码没有错误，为什么显示乱码呢？处理调用函数WriteToLocalUnicodeString（）：widestring。1 begin2 myxml := TNativeXml.Create(nil);3 mmo1.Clear;4 myxml.LoadFromFile(xmlFile);5 myxml.XmlFormat := xfReadable; //格式枚举：xfCompact(压缩)、xfReadable(缩进)、xfPreserve(好像暂未处理)6 mmo1.Tex... 阅读全文

摘要：[转http://www.cnblogs.com/achengit/archive/2011/03/04/1970492.html]WebBrowser控件文件：system32\shdocvw.oca shdocvw.dll 注册：regsvr32 shdocvw.dll WebBrowser.OleObject.Document 为活动的文档返回自动化对象，引用 Microsoft HTML Object Library 可查看详细属性和方法 ■■方法 ============================== ▲GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一... 阅读全文