Форум: "Прочее";
Текущий архив: 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.44 MB
Время: 0.014 c
