[leonw]

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

Код:

1 2 3 4 5 6 7 8

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;

Код:

1 2 3 4 5 6 7 8

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;

спасибо!