2009年11月
线程加载返回的XMLtoTClientDataSet
摘要： type TReadOrderThread = class(TThread) private FCDS: TClientDataSet; Fstr: string; protected procedure Execute; override; procedure readOrder; function XMLToDataSet(strXML:WideString;nodeName:string):... 阅读全文
posted @ 2009-11-03 12:04 azhai 阅读(221) 评论(0) 推荐(0)
用IDHTTP 实现上传和返回XML
摘要： {idHTTP} procedure upload;var tmpWeb: TIdHTTP; FS: TIdMultiPartFormDataStream;begin try tmpWeb:=TIdHTTP.Create(nil); FS := TIdMultiPartFormDataStream.Create; FS.AddFormField('postconntext', ''); //上传参... 阅读全文
posted @ 2009-11-03 11:54 azhai 阅读(597) 评论(0) 推荐(0)
delphi 开发扩展（二）
摘要： library plug_in;uses SysUtils, Classes, Unit3 in 'H:\test\Unit3.pas' {Form3};exports GetForm,GetName;{$R *.res}beginend.{要加载的窗体} unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes... 阅读全文
posted @ 2009-11-03 11:44 azhai 阅读(214) 评论(0) 推荐(0)
delphi 开发扩展（一）
摘要： {主程序} unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB;type TPluginName = Function:string; stdcall; TShowPerSN = functio... 阅读全文
posted @ 2009-11-03 11:41 azhai 阅读(283) 评论(0) 推荐(0)