[leonw]

Здравствуйте! почему когда я отправляю файл в нем теряються буквы в нутри? как этого можно избежать?

Код:

IdTCPClient1.Host:='127.0.0.1';
IdTCPClient1.Port:=8080;
IdTCPClient1.Connect();
{IdTCPClient1.WriteLN('1111111111');}
FileStream:=TFileStream.Create('name.txt',fmOpenRead);
IdTCPClient1.WriteStream(FileStream);
IdTCPClient1.Disconnect;
 FileStream.Free;

Код:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
bsSkinMemo1.Lines.Add(AThread.Connection.ReadLn);
MemStream:= TMemoryStream.Create;
AThread.Connection.ReadStream(MemStream);
MemStream.SaveToFile('152.txt');
MemStream.Free;
end;

спасибо!