USEGEAR - 博客园

D2007在win7下bordbk105N.dll 莫名其妙的问题。

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

posted @ 2015-04-10 09:30 USEGEAR 阅读(1415) 评论(0) 推荐(0) 编辑

ro的session

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

posted @ 2015-03-27 11:01 USEGEAR 阅读(184) 评论(0) 推荐(0) 编辑

TCriticalSection(Delphi)

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

posted @ 2015-03-23 16:20 USEGEAR 阅读(1727) 评论(0) 推荐(0) 编辑

实现发送邮件的功能

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

posted @ 2014-11-27 19:05 USEGEAR 阅读(656) 评论(0) 推荐(0) 编辑

一个能实战的delphi日志的类

摘要： 1 unit uProgLog; 2 3 interface 4 5 uses 6 Windows, SysUtils, SyncObjs; 7 8 const 9 C_LOG_LEVEL_TRACE = $00000001; 10 C_LOG_LEVEL_WARNIN... 阅读全文

posted @ 2014-04-22 18:36 USEGEAR 阅读(671) 评论(1) 推荐(0) 编辑

关于autoupgader的狗屎问题

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

posted @ 2014-04-21 19:46 USEGEAR 阅读(140) 评论(0) 推荐(0) 编辑

ro多层的事务处理失败的困惑

摘要：现象：用'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... 阅读全文

posted @ 2014-04-21 19:26 USEGEAR 阅读(295) 评论(0) 推荐(0) 编辑

摘要：把这个文件复制到你的程序目录\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 阅读全文

posted @ 2014-04-05 20:50 USEGEAR 阅读(214) 评论(0) 推荐(0) 编辑

读取com口接收byte数据的处理

摘要： 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... 阅读全文

posted @ 2014-01-08 12:05 USEGEAR 阅读(697) 评论(0) 推荐(0) 编辑

解决ExpressSpreadSheet 中文乱码问题[备查]

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

posted @ 2014-01-06 10:16 USEGEAR 阅读(611) 评论(0) 推荐(0) 编辑

和socket、rs232通信遇到的糟糕问题。备查！

摘要： 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]:... 阅读全文

posted @ 2013-12-19 12:23 USEGEAR 阅读(789) 评论(0) 推荐(0) 编辑

在数据表中字段存有excel、word文件数据，让其随着记录指针移动而改变显示

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

posted @ 2013-11-23 12:08 USEGEAR 阅读(292) 评论(0) 推荐(0) 编辑

把Dev的excel表格用clientdataset保存到数据库中。

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

posted @ 2013-11-18 16:48 USEGEAR 阅读(570) 评论(0) 推荐(0) 编辑

win7下UDL文件不同

摘要： win7 执行UDL文件看不全all驱动。所以没有办法配置数据库的连接。查度娘，方法如下：在C:\建一个test.udl 文件，运行命令C:\Windows\syswow64\rundll32.exe "C:\Program Files (x86)\Common Files\System\Ole DB\oledb32.dll",OpenDSLFile C:\test.udl 阅读全文

posted @ 2013-09-27 10:16 USEGEAR 阅读(417) 评论(0) 推荐(0) 编辑

Delphi XE5的Android开发平台搭建【转载】

摘要： http://www.cnblogs.com/hezihang/p/3319980.htmlDelphi XE5支持Android ARM的开发，可以在Android虚拟机里运行，因此建议将XE5安装在64bit的Windows,内存可以大于3GBDelphi XE5安装光盘中包含了最基本的Android开发的环境文件，但是并没有提供Android模拟机。我们需要安装Android的SDK后生成Android模拟机，安装步骤：1.到http://www.oracle.com/technetwork/java/javase/downloads/index.html下载JDK1.7安装2.到htt 阅读全文

posted @ 2013-09-17 20:39 USEGEAR 阅读(273) 评论(0) 推荐(0) 编辑

关于安卓sdk开发环境的的更新-Android SDK下载和更新失败

摘要：由于特别原因，我们更新安卓sdk时不会成功。解决办法：修改C:\Windows\System32\drivers\etc\hosts文件。添加一行：74.125.237.1dl-ssl.google.comok？goodlucky！阅读全文

posted @ 2013-09-17 20:33 USEGEAR 阅读(155) 评论(0) 推荐(0) 编辑

indy10中idtcpclient的使用问题[和大华电子称数据交换]

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

posted @ 2013-09-15 19:35 USEGEAR 阅读(769) 评论(1) 推荐(0) 编辑

cliendataset中自增长字段的处理

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

posted @ 2013-09-13 18:15 USEGEAR 阅读(215) 评论(0) 推荐(0) 编辑

和大华电子称通讯的奇怪现象-不能关闭Socket客户端的连接

摘要：大华电子称作为socket Server，命令自定义成02+命令+0d0a03格式。，返回给客户端的字符串也是自定义的。这就给懒人造成非常不方便。最关键的是连接server后，disconnec没有反应。没有弄明白。只好绕一下：定义一个变量TIDtcpClient(indy10.01.5)，然后create，完了再free，能力有限时间有限，也只能如此了。阅读全文

posted @ 2013-09-13 16:59 USEGEAR 阅读(702) 评论(1) 推荐(0) 编辑

和大华电子称进行对数据通讯

摘要： //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 阅读全文

posted @ 2013-09-05 18:13 USEGEAR 阅读(1336) 评论(0) 推荐(0) 编辑

css下背景渐变与底部固定的蓝天白云

摘要： 1 get('html5', 0)): 8 9 10 ?> 11 12 13 14 language; ?>" lang="language; ?>" dir="direction; ?>" > 15 16 17 97 98 99 100 101 rtyeryteryteryteryt102 rtyeryt103 ertyerytre104 ertyerytre105 ertyerytre106 ertyerytre107 ertyerytre108 ertyerytre109 110 111 11 阅读全文

posted @ 2013-06-23 17:00 USEGEAR 阅读(839) 评论(0) 推荐(0) 编辑

NativeXml4.07的中文问题

摘要：目前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... 阅读全文

posted @ 2013-05-13 17:48 USEGEAR 阅读(445) 评论(0) 推荐(0) 编辑

后台控制浏览器窗口

摘要： [转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的“后退”按钮，使你在当前历史列表中后退一... 阅读全文

posted @ 2013-04-24 18:55 USEGEAR 阅读(630) 评论(0) 推荐(0) 编辑

dll封装调用java web service的问题

摘要：由d工具根据wsdl生成接口单元。如果生成exe调用，一切ok。但是封装成dll就出现问题了。根据网上前人的经验总结注意事项如下：1、有string类型的包括记录其他类型，要用按照说明使用单元ShareMem，同时发布BORLNDMM.DLL。2、调用dll中函数后正确返回，但同时会出现错误。原因是dll和exe方式有区别。要立即释放：var PExitProc: Pointer;procedure exitwork;begin// rmtsrvc1.FreeOnRelease;// rbnmsg1.FreeOnRelease;// rwnthtpchnl1.FreeOnRelease;... 阅读全文

posted @ 2013-04-17 12:35 USEGEAR 阅读(893) 评论(0) 推荐(0) 编辑

cxgrid主从表的困惑

摘要：当从表的数据移动需要和数据源记录同步时，会发生一现象：从表中设定的keyfield记录不连续，显示就会中断。网上有说明： 6．如何实现如下功能： +财务部 +原材料仓库 +成品库 +冲压车间 +软件开发部这个是部门的名称,点击加号就可以将本部门的人员情况显示出来。解决：其实这是一个主从表关系，阅读全文

posted @ 2013-04-10 09:34 USEGEAR 阅读(831) 评论(0) 推荐(0) 编辑

Delphi Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值【转】

摘要： Delphi Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值【转】 cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号 cxGrid1DBTableView1.Controller.FocusedRow 当前行 cxGrid1DBT 阅读全文

posted @ 2013-03-24 12:07 USEGEAR 阅读(1190) 评论(0) 推荐(0) 编辑

MQclient连接MQserver的mqic32.dll的成功调用

摘要：调用mqic32.dll是简单的，但是想要返回给你的一个CompCode = MQCC_OK是不容易的。首先，确定mqclient和mqserver是ok联通的。在MQ Client(only)连接MQ Server收发消息配置【转】已经说明。dos命令窗口用手工确认客户端连接服务端没有问题，其次，也是关键的一步：客户端的环境配置。要把参数写到mqclient.ini的文件中。#* Module name : mqclient.ini *##* Type : WebSphere... 阅读全文

posted @ 2012-12-20 10:50 USEGEAR 阅读(2101) 评论(0) 推荐(0) 编辑

MQ Client(only)连接MQ Server收发消息配置【转】

摘要： MQ Client(only)连接MQ Server收发消息配置【转】焦头烂额、蓦然回首却在阑珊处。由于对mq不能充分的理解和使用，导致client和server连接死活不通。看下面高人的笔记：1.服务器端新建服务器连接通道CLIENT.QM_APPLE(注意大小写)，启动服务器连接通道2.服务器端新建本地队列01,并启用，并设定侦听器端口如14153.客户端配置环境变量MQSERVER值为：通道名/TCP/10.0.4.213[(1415)] 如端口为非默认则加上端口4.设定服务器连接通道的MCA用户标识MUSR_MQADMIN5.客户端配置环境变量MQCCSID值为服务端队列管理器的CC 阅读全文

posted @ 2012-12-20 10:44 USEGEAR 阅读(1124) 评论(0) 推荐(0) 编辑

java webservice调用中参数null的问题

摘要： package lavasoft; import javax.jws.WebService; import javax.xml.ws.Endpoint; /** * Java6开发WebService入门 * * @author usegear 2009-11-13 16:10:44 */ @WebService public class ServiceServer { /** * Web服务中的业务方法 * * @return 一个字符串 */ public String doSomething(String Myvar ){ System.out.pr... 阅读全文

posted @ 2012-12-06 17:14 USEGEAR 阅读(2212) 评论(0) 推荐(0) 编辑

用RO调用jave6的webservice

摘要：用RO调用jave6的webservicejava6自带webservice开发功能非常便利。那么用d调用又如何。其实也非常简单。这里体现懒汉的优势，用ro service builder 直接生成如下：unit SignLibrary_Intf;{----------------------------------------------------------------------------}{ This unit was automatically generated by the RemObjects SDK after reading }{ the RODL file ass. 阅读全文

posted @ 2012-12-05 18:25 USEGEAR 阅读(457) 评论(0) 推荐(0) 编辑

JAVA SERVICE好简洁【转】

摘要： package lavasoft; import javax.jws.WebService; import javax.xml.ws.Endpoint; /** * Java6开发WebService入门 * * @author lavasoft 2009-11-13 16:10:44 */ @WebService public class ServiceServer { /** * Web服务中的业务方法 * * @return 一个字符串 */ public String doSomething(){return " Hello Java6 WebServi... 阅读全文

posted @ 2012-12-04 18:37 USEGEAR 阅读(160) 评论(0) 推荐(0) 编辑

java学习-3-线程

摘要：线程是独立的线程。它代表独立的执行空间。Thread是java中用来表示线程的类。要建立线程就必须创建Thread。建立线程：Thread t = new Thread();t.start();线程需要有任务；线程类：java.lang.Thread:其主要方法：void join()void start()static void sleep() //那个线程调用，那个线程休眠isAlive()//线程是否还活着getPriority()setPriority()//线程的优先级别yield()wait()//是object的，和notify成对用。notify/notifyAll()如何启动阅读全文

posted @ 2012-11-07 17:58 USEGEAR 阅读(150) 评论(0) 推荐(0) 编辑

java学习-2（对象的前世今生）

摘要：一、类中方法传参数： 1、一定是值； 2、方法返回多个参数如何做：用数组二、变量： 1、实例变量声明在类内，系统自动初始化 2、局部变量在在方法中，必须自己初始化。 3、类变量比较用equals()。三、对象的前世今生理解对象的前世今生太重要了。否则不明白没办法分析程序流程，甚至根据程序画不出框图，因为读不懂程序。因为明白c，真以为明白，想跨过这一块。如果这样就糟透了。一定会用画图表示对象在堆栈中的过程。 1、java的对象空间是：heap； 2、java的方法调用和变量的生存空间是stack。因此，所有的局部变量在栈上（局部变量一是方法的参数而是方法中定义的变量），对象... 阅读全文

posted @ 2012-09-18 10:36 USEGEAR 阅读(150) 评论(0) 推荐(0) 编辑

java学习-1

摘要：仅根据自己一知半解草草做个笔记，对与否在以后的study中纠正。1、java版本史：从java1.02、java1.1、java1.2-1.4后面是java1.5,在这里另外一个命名就是java5.0(1.5)。初学往往被1.5和5.0搞糊涂了。2、和c#类似，java是通许虚拟机运行在操作系统上。所以要安装虚拟机才能运行java的程序；3、几乎all java是对象，所以all在类中；那么就有了类的管理包出现：java archice-jar文件。4、java的程序结构： java delphi文件名带有类定义：dog.java 源码：public class dog{}class a .. 阅读全文

posted @ 2012-09-13 15:14 USEGEAR 阅读(123) 评论(0) 推荐(0) 编辑

cxGrid功能_用于备查【转】

摘要：好久没有写笔记了，现在有点时间，来篇。 happycyp 2007-7-19 cxGrid功能强大，适合做企业级的复杂查询。非常方便。但是对其用法介绍的并不多，在此总结他人的使用经验和自己的一点小经验，供大家参考。（１）动态设置显示格式 procedure SetDisplayFormat(AC 阅读全文

posted @ 2012-09-13 14:37 USEGEAR 阅读(1052) 评论(0) 推荐(0) 编辑

cxGrid功能【转】

摘要：好久没有写笔记了，现在有点时间，来篇。 happycyp 2007-7-19cxGrid功能强大，适合做企业级的复杂查询。非常方便。但是对其用法介绍的并不多，在此总结他人的使用经验和自己的一点小经验，供大家参考。（１）动态设置显示格式procedure SetDisplayFormat(ACtrlData: TClientDataSet; TbView: TcxGridDBTableView);var i: integer;begin if ACtrlData.RecordCount <= 0 then Exit; try TbView.ClearItems; ACtr... 阅读全文

posted @ 2012-07-27 19:28 USEGEAR 阅读(416) 评论(0) 推荐(0) 编辑

嵌套子表（dx）,如何根据从表合计数显示主表记录的颜色

摘要：假设用dx已经构建好m/d了，主表不需要更新。1、在master中有一字段mysum，增加一个对照字段如ctrl_Field，其初始是detail的合计数2、master根据mysum和ctrl_Field的值对照改变该记录颜色。procedure TFormBase_PayPlan.cxgrdbtblvwGrid1DBTableView_TargetCustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: B.. 阅读全文

posted @ 2012-07-27 19:18 USEGEAR 阅读(284) 评论(0) 推荐(0) 编辑

使用idtcpserver和银行进行socket通讯

摘要：要和银行用socket进行通讯，选用了idtcpserver，由于分组配套使用，自己写的client和server进行报文通讯完美。可是由银行调用就出问题了。表现为双方等待。接收不到报文。原因是这就是用writeln和readln方法。而银行方不加回车符的。因此参照网上先辈整理关键如下：procedure TForm5.TCPServerExecute(AContext: TIdContext);var len:integer; s:string; buffer:TBytes;begin len :=AContext.Connection.IOHandler.InputBuffer.S... 阅读全文

posted @ 2012-06-27 18:02 USEGEAR 阅读(456) 评论(0) 推荐(0) 编辑

radphp中日期控件的中文uft8显示

摘要： radphp中的日期控件封装使用的是开源小部件。但默认的的是en方式。看源代码中行的处理：class DateTimePicker extends FocusControl{ public $_calendar=null; function __construct($aowner=null) { //Calls inherited constructor parent::__construct($aowner); date_default_timezone_set... 阅读全文

posted @ 2012-03-03 16:12 USEGEAR 阅读(480) 评论(0) 推荐(0) 编辑

2012 新年快乐

摘要： 2012 新年快乐!<P>人生从龙年开始。阅读全文

posted @ 2012-01-21 09:42 USEGEAR 阅读(125) 评论(0) 推荐(0) 编辑

导航

公告