VPF::Передача больших файлов - Форум программистов

nickelfire

Дата 11.4.2005, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 22.12.2004

Репутация: нет
Всего: нет

Код такой:

Код


 assignfile(f,extractfilepath(paramstr(0))+'Serf\'+inttostr(ran)+'.rtf');
  reset(f,1);
   fls:=filesize(f);
  blockread(f,buf,fls);
socket.Sendbuf(buf,fls);
clientsocket1.Active:=false;

а сервер:

Код


socket.ReceiveBuf(buf,strtoint(memo1.Lines[6])+3);
if strtoint(memo1.Lines[8])>0 then begin
copyfile(pchar(extractfilepath(paramstr(0))+'examq.rtf'),pchar(extractfilepath(paramstr(0))+memo1.Lines[8]+'.rtf'),false);
memo1.Lines.SaveToFile(pchar(extractfilepath(paramstr(0))+memo1.Lines[8]+'.txt'));
back:=strtoint(memo1.Lines[8]);
der:= strtoint(memo1.Lines[8]);
end;
assignfile(f,extractfilepath(paramstr(0))+'examq.rtf');
reset(f,1);
rewrite(f,1);
blockwrite(f,buf,strtoint(memo1.Lines[6])+3);

Ну там сложно понять но вообщем вопрос такой - я отправляю rtf файлы когда отправляю файлы только с текстом то есть маленькие 5KB всё работает отлично но когда я отправляю файл с картинкой 145KB то сервер который принимает этот файл и открывает его через jvxrıchedıt показывает какую то хрень. Что делать?
Я предпологаю что сокет передаёт не весь покет сразу, если я прав скажите как это исправить.
Ещё я нашёл в ДРКБ один пример но чёта не подходит.

Snowy

Дата 11.4.2005, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Да уж...
А какой размер принимаемого файла? Откуда сервер об этом знает?
Вообще более оптимальной конструкцией было бы:
- Открыть файл через TFileStream;
- передать word - размер файла
- стрим передать через WriteStream
- на стороне сервера ReadStream;
- Принятый стрим грузить в ричедит через LoadFromStream (без всяких файлов), начиная с 5-го байта, размером, указанным в первых 4-х байтах.

nickelfire

Дата 12.4.2005, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 22.12.2004

Репутация: нет
Всего: нет

В том-то и дело что я это пробовал не выходит.
Такой пример в ДРКБ есть, одно и тоже. Прога себя так же ведёт.
Ах да еще забыл сказать что после того как я передам большой файл то дальше даже маленькие файлы нормально не принимаются.

Snowy

Дата 12.4.2005, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

[яуоте=ницкелфире, 11.4.2005, 09:06]соцкет.РецеивеБуф(буф,стртоинт(мемо1.Линес[6])+3);[/яуоте]
А причем здесь вообще мемо? И почему ты информацию спрашиваешь у него, а не у клиента?

Цитата(nickelfire @ 12.4.2005, 12:35)

после того как я передам большой файл то дальше даже маленькие файлы нормально не принимаются.

А чего они будут приниматься, если очередь еще не считана. Сначала файл дочитать нужно.

nickelfire

Дата 13.4.2005, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 22.12.2004

Репутация: нет
Всего: нет

А мемо тут при том что мне удобней считывать с него.
Как узнать что очередь уже считана?

Snowy

Дата 13.4.2005, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(nickelfire @ 13.4.2005, 13:34)

Как узнать что очередь уже считана?

Если ты из нее больше ничего не можешь прочитать, то свободна smile

Не поленись и передай перед файлом его размер.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »