VPF::Большая структура через сокеты

Vinnety

Дата 9.8.2003, 16:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Народ! Как отправить с помощью сокетов массив структур типа запись, размером больше
чем 8192байт?

pascal

Дата 9.8.2003, 16:31 (ссылка)

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

Загрузка ...

Бывалый

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

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

По частям.
предположем что "S" это запись которую надо отправить, а "Send(Data; Size: Integer)" это функция которая отправляет данные

Код

var
  L, I, T, C: Integer;
  P: Pointer;
begin
  P := @S;
  L := SizeOf(S);
  while L>0 do
  begin
    if L>8190 then
      T := 8190
    else
      T := L;
    Send(P^, T);
    Inc(Cardinal(P), T); // если даст ошибку, то // Cardinal(P) := Cardinal(P)+T;
    Dec(L, T);
  end;
end;

Это сообщение отредактировал(а) pascal - 9.8.2003, 16:33

pascal

Дата 9.8.2003, 16:36 (ссылка)

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

Загрузка ...

Бывалый

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

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

а можно и в TMemoryStream записать и от туда по частям читать и отправлять...

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