【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了clientunit1.pas提供大家参考,希望对大家有所帮助!
unit clientunit1;
interface
uses
staserv
erpro_TLB,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dia
logs, StdCtrls,comobj,activex;
type
TForm2 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
j:wi
destring;
Server: ISTAObject;
begin
memo1.Lines.Add('current client thread is '+inttostr(getcurrentthreadid));
Server := CoSTAObject.Create;
//server._AddRef ;
server.FooStatus(3000,j);
memo1.Lines.Add(j);
//server._Release ;
memo1.Lines.Add('current client thread is '+inttostr(getcurrentthreadid));
Server := CoSTAObject.Create;
//server._AddRef ;
server.FooStatus(3000,j);
memo1.Lines.Add(j);
//server._Release ;
memo1.Lines.Add('current client thread is '+inttostr(getcurrentthreadid));
Server := CoSTAObject.Create;
//server._AddRef ;
server.FooStatus(3000,j);
memo1.Lines.Add(j);
//server._Release ;
end;
end.