unthttptread.pas

实现了：自动锁屏

unit untHttpTread;

interface

uses
  Classes, untHttp;

type
  THttpTread = class(TThread)
  private
    FAction:String;
    FUser:String;
    FMethod:String;
    FPwd:String;
    FXml:^String;
    FEx:String;
    tmpStr:String;
  protected
    procedure Execute; override;
    procedure SetRecvData;
  public
    constructor Create(Action, User, Pwd, Method: string; var Xml: string; Ex: string = '');
  end;

implementation


constructor THttpTread.Create(Action, User, Pwd, Method: string; var Xml: string; Ex: string = '');
begin
  FAction := Action;
  FUser := User;
  FPwd := Pwd;
  FMethod := Method;
  FEx := Ex;
  FXml := @(Xml);
  inherited Create(False);
end;

procedure THttpTread.Execute;
begin
  try
  if FMethod = 'get' then
    begin
      tmpStr := getXml(FAction, FUser, FPwd, FEx);
    end
    else if FMethod = 'submit' then
    begin
      Submit(FAction, FUser, FPwd, FEx);
    end;
  except
    tmpStr := '';
  end;
  Synchronize(SetRecvData);
end;

procedure THttpTread.SetRecvData;
begin
  FXml^ := tmpStr;
end;

end.