Delphi winsock отправка больших данных

@Maincore · Регистрация: 22.03.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте дорогие форумчане!!
Сразу приведу кусок кода сервера:

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
k:=0;
k:=Pos('dir',buff);
   if k<>0 then
   begin
    Path := '';
    path:=copy(buff,k+3,strlen(buff));
    path:=trim(path+'\*');
    Attr := faAnyFile;
    memo1.Lines.Add(path);
    FindFirst(path, Attr, F);
       if F.name <> '' then
       begin
        buffer_send:=F.name+''+#13#10;
        send(Msg.Sock,Pointer(buffer_send)^,Length(buffer_send),0);
        while FindNext(F) = 0 do
           begin
            buffer_send:=F.name+''+#13#10;
            send(Msg.Sock,Pointer(buffer_send)^,Length(buffer_send),0);
           end;
        end;
   end;
FindClose(F);

а кот отрывок кода из клиента:

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
............
 FD_READ:
  begin
   Buff:='';
   ioctlsocket(Sock, FIONREAD, DataLen);
      if Recv(Sock, Buff, DataLen, 0)=Socket_Error then
       memo1.Lines.Add('----------Recv failed...')
          else
           memo1.Lines.Add(buff);
  end;
.............

Клиент посылает серверу путь к папке, тот принимает данные производит поиск всех файлов в этом каталоге, далее отсылает список файлов клиенту.
Все нормально работает, вот только если список файлов большой то клиент вылетает.
В чем может быть проблема?

@mss · 26.05.2013, 19:11

Что такое Buff ?
Чему равно DataLen ?

@Maincore · 26.05.2013, 19:44 **[ТС]**

Сообщение от mss

Что такое Buff ?

buff: Array[0..255] of Char;
DataLen: LongInt;

@mss · 26.05.2013, 20:15

Сообщение от Maincore

DataLen: LongInt;

Чему равно DataLtn ?

@Maincore · 26.05.2013, 20:20 **[ТС]**

Сообщение от mss

Чему равно DataLtn ?

2277

@mss · 26.05.2013, 20:37

Сообщение от Maincore

2277

С какой радости 2277-то, если размер буфера всего 256*SizeOf(Char) байт ?

@Maincore · 26.05.2013, 20:41 **[ТС]**

Сообщение от mss

С какой радости 2277-то, если размер буфера всего 256*SizeOf(Char) байт ?

то есть данные больше чем буфер?
Тогда как я понимаю надо частями отправлять но как это реализовать?

@mss · 26.05.2013, 20:45

Сообщение от Maincore

надо частями отправлять

Отправлять ты можешь хоть частями хоть целиком, но размер буфера на стороне приемника должен быть не меньше чем указанов DataLen на момент вызова recv()

@саша40 · 26.05.2013, 21:02

Сообщение от Maincore

Здравствуйте дорогие форумчане!!
Сразу приведу кусок кода сервера:

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
k:=0;
k:=Pos('dir',buff);
   if k<>0 then
   begin
    Path := '';
    path:=copy(buff,k+3,strlen(buff));
    path:=trim(path+'\*');
    Attr := faAnyFile;
    memo1.Lines.Add(path);
    FindFirst(path, Attr, F);
       if F.name <> '' then
       begin
        buffer_send:=F.name+''+#13#10;
        send(Msg.Sock,Pointer(buffer_send)^,Length(buffer_send),0);
        while FindNext(F) = 0 do
           begin
            buffer_send:=F.name+''+#13#10;
            send(Msg.Sock,Pointer(buffer_send)^,Length(buffer_send),0);
           end;
        end;
   end;
FindClose(F);

а кот отрывок кода из клиента:

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
............
 FD_READ:
  begin
   Buff:='';
   ioctlsocket(Sock, FIONREAD, DataLen);
      if Recv(Sock, Buff, DataLen, 0)=Socket_Error then
       memo1.Lines.Add('----------Recv failed...')
          else
           memo1.Lines.Add(buff);
  end;
.............

Клиент посылает серверу путь к папке, тот принимает данные производит поиск всех файлов в этом каталоге, далее отсылает список файлов клиенту.
Все нормально работает, вот только если список файлов большой то клиент вылетает.
В чем может быть проблема?

Добавте строку: Application.ProcessMessages;
Просто у вас он не вылетает, а заедает. Из-за нагрузки.

@mss · 26.05.2013, 21:05

Сообщение от саша40

Добавте строку: Application.ProcessMessages;
Просто у вас он не вылетает, а заедает. Из-за нагрузки.

Когда же ты наконец устанешь нести ахинею ?

@n971030 · 29.05.2013, 23:15

Сообщение от mss

С какой радости 2277-то, если размер буфера всего 256*SizeOf(Char) байт ?

у меня recv возращает -1 и ничего не могу сделать с delphi на api писал все работает, подскажите...

@mss · 30.05.2013, 08:45

Сообщение от n971030

ecv возращает -1

WSAGetLastError скажет в чем проблема

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	26.05.2013, 19:11
	Что такое Buff ? Чему равно DataLen ? 0