Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Сокеты и передача определенного типа

Автор: WolfON 28.4.2007, 13:50

Есть тип:

Код


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 все переменные перемшаны местами (
Где я не прав?

Автор: Snowy 28.4.2007, 13:54

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

Автор: dumb 28.4.2007, 14:04

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

Код


  p_head = packed record
...

Автор: WolfON 28.4.2007, 14:47

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

Автор: Snowy 28.4.2007, 14:49

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

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

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

)

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

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

Автор: WolfON 28.4.2007, 18:37

Ок.Пасиб.

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

Код


tcp.Socket.ReadStream(m,48);

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

Код


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

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

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

Код


tcp.Socket.ReadStream(m);

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

Автор: Snowy 29.4.2007, 12:43

Цитата(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).
Просто так не определишь - будет сервер слать что-то ещё или уже закончил.
Он должен сам сказать либо сколько он пошлёт, либо что уже всё.