摘要：
例子代码如下：vartsg:TstringGrid;begintsg:=Tstringgrid(FindControl(handle));//正常使用TstringGrid//tsg.......//....end 阅读全文
posted @ 2013-09-17 17:21 ╰★张志峰★╮ 阅读(1669) 评论(0) 推荐(0)
摘要：
句柄Handle顾名思义就是把柄,把手的意思 ，得到了某对象的句柄可以任意控制此对象 。句柄是一种指向指针的指针。不是每个组件都有句柄，只有窗口控件等（*.模块(module)*.任务(task)*.实例(instance)*.文件(file)*.内存块(block of memory)*.菜单(menu)*.控制(control)*.字体(font)*.资源(resource),包括图标(icon)，光标(cursor)，字符串(string)等*.GDI对象(GDI object),包括位图(bitmap)，画刷(brush)，元文件（metafile),调色板(palette)，画笔(p 阅读全文
posted @ 2013-09-17 17:19 ╰★张志峰★╮ 阅读(2569) 评论(0) 推荐(0)
摘要：
在执行程序的时候总是提示：---------------------------Debugger Exception Notification---------------------------Project PrintErp.exe raised exception class EVariantTypeCastError with message '无法将变量从类型 (String) 转换为类型 (Double)。'. Process stopped. Use Step or Run to continue.---------------------------OK Hel 阅读全文
posted @ 2013-09-16 16:50 ╰★张志峰★╮ 阅读(1135) 评论(0) 推荐(0)
摘要：
如果Resume不能唤起线程，请试试如下的函数，试试。GetExitCodeThread(ThreadHandle,ExitCode)来取得ExitCode，如果ExitCode=STILL_ACTIVE表示线程还存在，对于存在的线程，则可以使用ResumeThread(ThreadHandle)来唤醒线程，如果线程仍然处于运行状态，则会返回错误具体的自己去看相关的API的返回值。本人在实际应用中还是没能够解决上面问题，只好委曲找到另一种解决方法。procedure TfrmDataExchangePlatformMain.ActionStartServiceExecute( Sender: 阅读全文
posted @ 2013-09-16 16:04 ╰★张志峰★╮ 阅读(3842) 评论(0) 推荐(0)
摘要：
在Delphi 多线程中出现“尚未调用CoInitialize错误”的解决方法解决方法如下：function TMyThread.ExecTimer: Boolean;begin Result := False ; FMyThreadExecfinish := False; Screen.Cursor := crHourGlass; CoInitialize(nil);// 一定要加上此行代码 try TranspondClientBaseData_factory1(HTTPRIOLeExp, HTTPRIONC, LogStrings); Sleep(1000); TranspondPers 阅读全文
posted @ 2013-09-13 14:49 ╰★张志峰★╮ 阅读(4267) 评论(0) 推荐(0)
摘要：
Delphi 操作多线程的代码， 在项目中需要在webservice中使用多线程，程序思想如下：1.就创建一个线程， 也就是说有两个线程，主线程和创建的线程， 主线程用于程序的别的操作，例如停止服务，和关闭程序等等。2.辅线程用于调用Webservice，用他的目的，还有就是方便查看memo中的日志， 如果只有一个线程，这是不可能的，只有等调用结束才可以，但是这里面又用到了Timer，结果想在主线程查看memo，很费劲。故创建一个辅线程。type TMyThread = class(TThread) private FMyThreadExecfinish: Boolean; FHTTPRIOL 阅读全文
posted @ 2013-09-13 14:41 ╰★张志峰★╮ 阅读(3715) 评论(0) 推荐(0)
摘要：
HTTPRIOLeExp.HTTPWebNode.SendTimeout := 100000;//发射 HTTPRIOLeExp.HTTPWebNode.ConnectTimeout := 100000; //连接 HTTPRIOLeExp.HTTPWebNode.ReceiveTimeout := 100000; //接收通过设置这几个属性， 可以成功。 阅读全文
posted @ 2013-09-12 15:44 ╰★张志峰★╮ 阅读(2390) 评论(0) 推荐(0)
摘要：
HTTPRIO控件怎么设置超时参数//HTTPRIO1: THTTPRIO 设置5分钟超时HTTPRIO1.HTTPWebNode.ConnectTimeout := 5000;ConnectTimeout这个属性设置无效，这个WinInet的一个BUG 阅读全文
posted @ 2013-09-12 15:35 ╰★张志峰★╮ 阅读(1519) 评论(0) 推荐(0)
摘要：
一、INI文件的结构：; 注释[小节名]关键字=值INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。 注释以分号“;”开头。 二、定义1、在Interface的Uses节增加IniFiles； 2、在Var变量定义部分增加一行： myinifile:Tinifile;然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。三、打开INI文件 Filename:=ExtractFilePath(Paramstr(0))+’prog 阅读全文
posted @ 2013-09-11 20:22 ╰★张志峰★╮ 阅读(8697) 评论(0) 推荐(1)
摘要：
ini 文件操作记要(1): 使用 TIniFileunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; proced 阅读全文
posted @ 2013-09-11 20:21 ╰★张志峰★╮ 阅读(908) 评论(0) 推荐(0)
浙公网安备 33010602011771号