VPF::serversocket и clientsocket - Форум программистов

ddddddima

Дата 29.6.2005, 09:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

скачаваю файл с одного компа на другой:

Код


var
vf:file;
Buf: array[1..1024] of Char;
nread:integer;
fn:string;

сервер:

Код


AssignFile(Vf, fn);
Reset(Vf, 1);
repeat
BlockRead(Vf, Buf, SizeOf(Buf), NRead);
serversocket1.Socket.Connections[0].SendBuf(buf,nread);
until (NRead <SizeOf(Buf));
CloseFile(Vf);

клиент:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(vf,'c:\file.txt');
Rewrite(Vf,1);
end;

procedure TForm1.transferRead(Sender: TObject; Socket: TCustomWinSocket);
begin
clientsocket1.Socket.ReceiveBuf(buf,1);
BlockWrite(Vf, Buf,1);
end;

файлы меньше 8-9 кб пересылает без проблем, а более 'жирные'
только с пошаговым выполнением(F7).
предполагаю, что дело в перегрузке сокета, но как исправть не знаю!!!(извиняйте)
smile

Это сообщение отредактировал(а) Alex - 30.6.2005, 10:15

TP@MB@Y

Дата 29.6.2005, 18:34 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

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

Почитай вот эту тему:

http://forum.vingrad.ru/index.php?showtopic=56765

Там описан способ передачи файлов

SoWa

Дата 29.6.2005, 23:00 (ссылка)

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

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

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

Ну в конце-концов! Почему все так любят грузить сокеты? Используй компоненты NMStrm и NMStrmServ. Они сделаны на основу сокетов, но приспособлены под файлы.

--------------------

Всем добра smile

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