Работа с IdUDPServer

[feLoNy]

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

"ну, як вареник, так ще й до рота"... а взять литературку почитать и поиск по-форуму разве ничего не дал.

ладно отсылкой погорячился =) структуру нашел... но как создать её, куда писать. я сам наверн щас как вареник Откажитесь от помощи пойму, тем более от простуды уже мозги у самого мало варят.

[raxp]

как создать в посте #18 уже расписано, вы только заполните ее данными из поста #20... например на си "bn_int users;" -> на delphi "users: integer;"

смысл ясен?

[feLoNy]

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

как создать в посте #18 уже расписано, вы только заполните ее данными из поста #20... например на си "bn_int users;" -> на delphi "users: integer;"

смысл ясен?

думаю что да =) буду завтра уже разбираться. это всё писать в type ?
а byte и short в делфи как?

[Пепел Феникса]

byte = byte
short = shortint

[feLoNy]

а как прописать байты? software[32] например?
software[32]: byte;
?
Если я правильно понял то 32 это длина в байтах?

[feLoNy]

И ещё вопрос: как правильно вывести это в Memo?

 Memo1.Lines.Insert(0,'> Users:'+IntToStr(packet.users));

при таком раскладе он выводит "> Users:1196455504" хотя это явно не так =)
Вопрос выше тоже актуален.

[raxp]

Memo1.Lines.Insert(0,'> Users:'+IntToStr(packet.users));

при таком раскладе он выводит "> Users:1196455504" хотя это явно не так =)

users; /* current number of users, network byte order */
пока вы четко не пропишете всю структуру, так и будет, т.к. это "налезают" другие параметры... и там будет бред.

software[32]: byte;

software: array [0..31] of byte;

[feLoNy]

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

users; /* current number of users, network byte order */
пока вы четко не пропишете всю структуру, так и будет, т.к. это "налезают" другие параметры... и там будет бред.

software: array [0..31] of byte;

у меня получилась следующая структура:

type t_trackpacket = record
    packet_version: shortint;
    port: shortint;
    flags: integer;
    software: array [0..31] of byte;
    version: array [0..15] of byte;
    platform: array [0..31] of byte;
    server_desc: array [0..63] of byte;
    server_location: array [0..63] of byte;
    server_url: array [0..95] of byte;
    contact_name: array [0..63] of byte;
    contact_email: array [0..63] of byte;
    users: integer;
    channels: integer;
    games: integer;
    uptime: integer;
    total_games: integer;
    total_logins: integer;
end;

при приёме первого же пакета, выдаёт ошибку:
Project Tracker.exe raised exception class EReadError with message 'Stream read error'. Process stoped. Use Step or Run to continue.
Что делать?(

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
msg: TStringStream;
packet: t_trackpacket;
begin
adata.Read(packet, SIZEOF(packet));
 msg:= TStringStream.Create('');
 msg.CopyFrom(adata, sizeof(adata));
 msg.Position:= 0;
 Memo1.Lines.Insert(0,'> '+msg.DataString);
 Memo1.Lines.Insert(0,'> ver:'+IntToStr(packet.packet_version));
 Memo1.Lines.Insert(0,'> flags:'+IntToStr(packet.flags));
 Memo1.Lines.Insert(0,'> Port:'+IntToStr(packet.port));
 Memo1.Lines.Insert(0,'> Users:'+IntToStr(packet.users));
 Memo1.Lines.Insert(0,'> Channels:'+IntToStr(packet.channels));
 Memo1.Lines.Insert(0,'> Games:'+IntToStr(packet.games));
 Memo1.Lines.Insert(0,'> Uptime:'+IntToStr(packet.uptime));
 Memo1.Lines.Insert(0,'> '+IntToStr(packet.total_games));
 Memo1.Lines.Insert(0,'> '+IntToStr(packet.total_logins));
 msg.Free;
end;

[raxp]

типы данных в структуре заданы верно, так как sizeof(packet) дает как раз 464 байта, про которые вы упоминали ранее... работу с msg уберите...

 // это лишнее
 msg:= TStringStream.Create('');
 msg.CopyFrom(adata, sizeof(adata));
 msg.Position:= 0;
 msg.Free;

upd
-------
наваял тестовый проект отправки-приема структуры для проверки, все идет без глюков (см. вложение)

uses IdSocketHandle;

type t_trackpacket = record
    packet_version: shortint;
    port: shortint;
    flags: integer;
    software: array [0..31] of byte;
    version: array [0..15] of byte;
    platform_: array [0..31] of byte;
    server_desc: array [0..63] of byte;
    server_location: array [0..63] of byte;
    server_url: array [0..95] of byte;
    contact_name: array [0..63] of byte;
    contact_email: array [0..63] of byte;
    users: integer;
    channels: integer;
    games: integer;
    uptime: integer;
    total_games: integer;
    total_logins: integer;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var t: t_trackpacket;
begin
 t.flags:= strtoint(edit1.Text);
 IdUDPClient1.SendBuffer('localhost', 800, t, sizeof(t)) // отправка структуры
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var packet: t_trackpacket;
begin
 adata.Read(packet, SIZEOF(packet)); // прием структуры

 edit2.Text:= inttostr(packet.flags)
end;

[feLoNy]

> 0
> 0
> Uptime:2098987008
> Games:0
> Channels:738197504
> Users:0
> Port:2
> flags:0
> ver:0

сведения явно не достоверны)