Проблема с пересылкой файла

← →
PATRIOT © (2006-07-06 04:41) [0]

почему я когда пересылаю файл он пересылается не весь?
к примеру BMP когда я пересылал сервер -> клиент клиент получил лишь 218 кб из 226. почему?
или когда переслал autoexec.bat , клиент получил лишь первую строку кода?
если можно ответье на мыло: patriot_888@mail.ru

← →
PATRIOT © (2006-07-06 04:48) [1]

да кстати вот код из сервера (код пересылки файла):
---
srcfile := TFileStream.Create (tmp2, fmOpenRead); client.SendStream(srcfile); srcfile.Free;
---
а вот код из клиента: (он обычный, но на крайний случай выложу):
---
procedure TForm1.serverAccept(Sender: TObject; ClientSocket: TCustomIpClient); var fs: TFileStream; s: String; const: tmp: String = "c:\temp.bmp"; begin s := clientsocket.Receiveln(); fs := TFileStream.Create(tmp, fmCreate or fmOpenWrite); fs.Write(PChar(s)^, Length(s)); Image2.Picture.Bitmap.LoadFromStream(fs); fs.Free; ClientSocket.Close; end;
---
цикл программы прост, пересылается от сервера изображение к клиенту, а клиент прочитав его показывает это изображение когда закачал.

receiveln()? думать, чем заканчивается ln. до осознания.

Проблема с пересылкой файла Найти похожие ветки