Здравствуйте! почему когда я отправляю файл в нем теряються буквы в нутри?
как этого можно избежать?
Код:
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;
спасибо!