11 2009 档案

权限管理库
该文被密码保护。
posted @ 2009-11-19 18:25 azhai 阅读(3) 评论(0) 推荐(0) 编辑
线程加载返回的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 阅读(215) 评论(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 阅读(589) 评论(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 阅读(206) 评论(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 阅读(280) 评论(0) 推荐(0) 编辑