客户端
private
{ Private declarations }
FThread: TThread;
public
{ Public declarations }
iFileHandle:integer;
i: integer;
host,port,qm:string;
sFile:TFileStream;
F : Textfile;
str,nbzy_bh:string;
end;
TReadThread = class(TThread)
private
FClient: TIdTCPClient;
FMessage,nbzy_qm: string;
FForm: TFormLjf2;
procedure UpdateForm;
protected
procedure Execute; override;
public
constructor Create(AForm: TFormLjf2; qm: string; AClient: TIdTCPClient);
end;
var
FormLjf2: TFormLjf2;
implementation
uses ljf999;
{$R *.dfm}
procedure TFormLjf2.FormShow(Sender: TObject);
var
i,j:Integer;
begin
//得到要发送的客户端IP
i:=pos(')',Self.Caption); //查找分隔符
host:=copy(Self.Caption,i+1,Length(Self.Caption)-i);
//连接到服务器
IdTCPClient2.Host:=FormLjf999.host;
IdTCPClient2.Port:=StrToInt(FormLjf999.port);
//得到用户编号
str:=Self.Caption;
i:=pos('(',str);
j:=pos(')',str);
nbzy_bh:=copy(str,i+1,j-(i+1));
qm:=copy(str,1,i-1);;
Memo1.SetFocus;
private
{ Private declarations }
FThread: TThread;
public
{ Public declarations }
iFileHandle:integer;
i: integer;
host,port,qm:string;
sFile:TFileStream;
F : Textfile;
str,nbzy_bh:string;
end;
TReadThread = class(TThread)
private
FClient: TIdTCPClient;
FMessage,nbzy_qm: string;
FForm: TFormLjf2;
procedure UpdateForm;
protected
procedure Execute; override;
public
constructor Create(AForm: TFormLjf2; qm: string; AClient: TIdTCPClient);
end;
var
FormLjf2: TFormLjf2;
implementation
uses ljf999;
{$R *.dfm}
procedure TFormLjf2.FormShow(Sender: TObject);
var
i,j:Integer;
begin
//得到要发送的客户端IP
i:=pos(')',Self.Caption); //查找分隔符
host:=copy(Self.Caption,i+1,Length(Self.Caption)-i);
//连接到服务器
IdTCPClient2.Host:=FormLjf999.host;
IdTCPClient2.Port:=StrToInt(FormLjf999.port);
//得到用户编号
str:=Self.Caption;
i:=pos('(',str);
j:=pos(')',str);
nbzy_bh:=copy(str,i+1,j-(i+1));
qm:=copy(str,1,i-1);;
Memo1.SetFocus;