本文整理自网络，侵删。
procedure TFrmDisMain.SpeedButton2Click(Sender: TObject);
var
SendFile:TFileStream;
TemFilePath:String;
begin
IdTCPClientSend.Host:=serverip;
if IdTCPClientSend.Connected then
IdTCPClientSend.Disconnect;
with IdTCPClientSend do
begin
Connect;//连接到服务器
Try
TemFilePath:=Edit1.Text; //文件路径
WriteLn(TemFilePath);//把保存路径和文件名发送给服务端
SendFile:=TFileStream.Create(SendName,fmOpenRead);//创建一个TFileStream，打开我们要发送的文件
WriteStream(SendFile);//使用流模式把文件发送到服务端
end;
finally
Disconnect;//断开连接
SendFile.Free;//释放流对象
end;
end;
end;
procedure TFormServer.IdTCPServerSendExecute(AThread: TIdPeerThread);
var
RecevFileName:string;
ReadFile:TMemoryStream;
begin
with AThread.Connection do
begin
while Connected do
begin
ReadFile:=TMemoryStream.Create;//创建一个TMemoryStram对象
try
RecevFileName:=ReadLn;//从客户端获得路径和文件名
ReadStream(ReadFile,-1,True);//以流模式从客户端获得文件内容，参数分别是ReadFile表示流对象，-1表示一直读取直到对方断开，True表示在NT操作系统下提高性能，对9x无效
ReadFile.Seek(0,soFromBeginning);//定位流指针到开始
ReadFile.SaveToFile(ExtractFilePath+ExtractFileName(RecevFileName));//把流中的内容保存到文件中去
finally
Disconnect;//断开连接
ReadFile.Free;//释放流对象
end;
end;
end;
end; 相关阅读 >>
Delphi 用stringhelper.split分解字符串
Delphi tms web core webhttprequest1 解析json
Delphi tms web core直接从html&css设计的页面布局
Delphi使用spcomm没办法触发receivedata
更多相关阅读请进入《Delphi》频道 >>
