Форум: "Прочее";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;

---
цикл программы прост, пересылается от сервера изображение к клиенту, а клиент прочитав его показывает это изображение когда закачал.

---

← →
Ketmar ©   (2006-07-06 09:49) [2]

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

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c