VPF::Сокеты и передача определенного типа

WolfON

Дата 28.4.2007, 13:50 (ссылка)

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

Загрузка ...

Опытный

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

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

Есть тип:

Код


type
  p_head = record
    magic: DWORD;
    cmd: DWORD;
    par1: DWORD;
    par2: DWORD;
  end {p_head};

Есть его инициализация и отсылка:

Код


var
 pack : p_head;
 m:TMemoryStream;
begin
//tcp - IDTcpClient
tcp.Host := '192.0.0.2';
tcp.Port := 20202;
tcp.Connect;

pack.magic := $666;
pack.cmd := $800;
pack.par1 := 0;
pack.par2 := $1231;

m := TMemoryStream.Create;
m.Write(pack, sizeof(pack));

tcp.Socket.WriteBufferOpen;
tcp.Socket.Write(m,m.Size);

tcp.Disconnect;

Ставлю брейкпоинты и при просмотре через кодэксплорер - в pack все переменные перемшаны местами (
Где я не прав?

Это сообщение отредактировал(а) WolfON - 28.4.2007, 13:51

Snowy

Дата 28.4.2007, 13:54 (ссылка)

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

Загрузка ...

Эксперт

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

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

Да нет. Всё нормально.
Не вижу, что тебя здесь смущает...

dumb

Дата 28.4.2007, 14:04 (ссылка)

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

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

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

покидающие пределы программы(передаваемые по сети, записываемые в файл, итд) структуры лучше делать packed.

Код


  p_head = packed record
...

WolfON

Дата 28.4.2007, 14:47 (ссылка)

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

Загрузка ...

Опытный

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

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

Сервер принимает ответ в обратном порядке байт, те допустим было AB CD а стало CD AB

Snowy

Дата 28.4.2007, 14:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

В данном случае нет разницы - пакед или нет. В структуре одни дворды.
Единственная претензия, которую тут вижу - обратный порядок байт.
Но не вижу в этом проблемы.

Добавлено @ 14:52

Цитата(WolfON @ 28.4.2007, 14:47

)

Сервер принимает ответ в обратном порядке байт, те допустим было AB CD а стало CD AB

Разумеется.
Байты в памяти располагаются в обратном порядке.
Поэтому в этом порядке они и отправляются.
Просто нужно их читать в такую же структуру и они опять аккуратно лягут в память как нужно.

WolfON

Дата 28.4.2007, 18:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Ок.Пасиб.

Еще один глупый вопрос - читаю ответ с сервера:

Код


tcp.Socket.ReadStream(m,48);

как-бы его теперь загрузить в ту структуру?

Код


m.ReadBuffer(pack, sizeof(pack));

выдает ошибку =/

Ну и соответственно вопрос - как читать ответ от сервера, не знаю его точной длинны

Код


tcp.Socket.ReadStream(m);

виснет навечно =/

Snowy

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

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

Загрузка ...

Эксперт

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

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

Цитата(WolfON @ 28.4.2007, 18:37

)

как-бы его теперь загрузить в ту структуру?

Код


  tcp.Socket.ReadStream(m, sizeof(pack));
  m.Position := 0;
  m.ReadBuffer(pack, sizeof(pack));

Цитата(WolfON @ 28.4.2007, 18:37

)

Ну и соответственно вопрос - как читать ответ от сервера, не знаю его точной длинны

Ну придумай соглашение.
Обычно перед отправкой данных сначала отправляют их размер. Либо набор данных должен завершаться символом-терминатором (обычно #0 или #13#10).
Просто так не определишь - будет сервер слать что-то ещё или уже закончил.
Он должен сам сказать либо сколько он пошлёт, либо что уже всё.

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