Сервер:
Код:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
S: String;
F: TFileStream;
begin
S:=AThread.Connection.Readln;
F:=TFileStream.Create(S, fmOpenRead);
AThread.Connection.OpenWriteBuffer;
WriteStream(F);
AThread.Connection.CloseWriteBuffer;
AThread.Connection.Disconnect;
end;
Клиент:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
F: TFileStream;
begin
IdTCPClient.Connect;
IdTCPClient.Writeln('имя файла, который хочешь получить');
F:=TFileStream.Create('имя файла, который хочешь получить', fmCreate);
IdTCPClient.ReadStream(F, -1, True);
F.Free;
IdTCPClient.Disconnect;
end; |