看这段代码
procedure button1click(sender:Tobject);
var
AStream: TFileStream;
begin
with idTCPClient1 do
begin
Host:=edit1.Text;
Connect;
while Connected do
begin
AStream := TFileStream.Create('SingunSoft.tmp',fmOpenWrite);
try
ReadStream(AStream, -1, True);//读文件数据的方法
finally
Disconnect;
AStream.Free;
end;
end;
messagebox(0,'传送完成','信息',0);
end;