Работа с IdUDPServer

[raxp]

пост #3.
...по-поводу TIdSocketHandle сюда
или просто uses IdSocketHandle;

[feLoNy]

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

чем вам не нравиться это событие... у вас версия Indy может быть иная, так что содержимое по обстоятельствам...

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var msg   : TStringStream;
    s: string;
begin
 msg:= TStringStream.Create('');
 msg.CopyFrom(adata, sizeof(adata))
 msg.Position:= 0;

 s   := msg.DataString; // или в memo1.lines.add()
 msg.Free
end;

выдаёт ошибку на

msg.Position:= 0;

, удалил, выдаёт ошибку на

s   := msg.DataString;

в последнем случае пишет missing operator or semicolon

[raxp]

<;> однако

[feLoNy]

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

<;> однако

упс и не заметил Запустил, но ничего не выдаёт...
перделал в Memo

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
msg: TStringStream;
begin
 msg:= TStringStream.Create('');
 msg.CopyFrom(adata, sizeof(adata));
 msg.Position:= 0;
 Memo1.Lines.Insert(0,'> '+msg.DataString);
 msg.Free
end;

Выдаёт:

> > > > > > >

т.е. клиент шлёт пустые пакеты и ждёт ответа какого то от сервера? или как?

[feLoNy]

во вложених исходник игрового серва. файл отвечающий за трекинг естествено tracker.cpp

[raxp]

т.е. клиент шлёт пустые пакеты и ждёт ответа какого то от сервера? или как?

ну... то что шлет вам клиент и чего он ждет нам не ведомо
зы: если клиент не ваш, соберите для теста своего и посылайте им пакеты для проверки адекватной

А сервер-то принимает пакеты длиной 464 байта... Но в Memo тишина.. Кроме стрелок которые я специально добавил для "индикации работы"

...а с чего вы решили, что символы будут печатаемые, может он шлет вам не asc коды.

[feLoNy]

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

ну... то что шлет вам клиент и чего он ждет нам не ведомо
зы: если клиент не ваш, соберите для теста своего и посылайте им пакеты для проверки адекватной


...а с чего вы решили, что символы будут печатаемые, может он шлет вам не asc коды.

я в сети не шарю почти а в с++ тем более
вот исходник клиента(пост выше)... файл tracker.cpp из сервера игры.
Если понимаете скажите что он шлёт?) и что ждёт?

[raxp]

обычный сокет на api...

очевидно он шлет пакет со структурой <t_trackpacket> и вам на приемной стороне нужно создать такую-же структуру в которую передавать то, что приняли, например так:

type t_trackpacket = record
 ... тут структура
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var packet: t_trackpacket;
begin
 adata.Read(packet, SIZEOF(packet));

 // выделяем из пакета
 packet.contact_email
 packet.users

вы привели не весь код клиента, подозреваю, что структура <t_trackpacket> описана в хэдерах (h- файлах).

[feLoNy]

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

обычный сокет на api...

очевидно он шлет пакет со структурой <t_trackpacket> и вам на приемной стороне нужно создать такую-же структуру в которую передавать то, что приняли, например так:

type t_trackpacket = record
 ... тут структура
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var packet: t_trackpacket;
begin
 adata.Read(packet, SIZEOF(packet));

 // выделяем из пакета
 packet.contact_email
 packet.users

вы привели не весь код клиента, подозреваю, что структура <t_trackpacket> описана в хэдерах (h- файлах).

в том же посте только поздно догодался выложил полный исходник. тут папка common.
И привидете пожалуйста пример как отсылать пакеты...

[raxp]

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

upd
-------

typedef struct
{
  bn_short	packet_version;      /* set to TRACK_VERSION, network byte order */
  bn_short	port;                /* port server is listening on, network byte order */
  bn_int	flags;               /* see below, network byte order */
  bn_byte	software[32];        /* example: Bnetd, NUL terminated */
  bn_byte	version[16];         /* example: 0.4, NUL terminated */
  bn_byte	platform[32];        /* Windows, Linux, etc., NUL terminated */
  bn_byte	server_desc[64];     /* description, NUL terminated */
  bn_byte	server_location[64]; /* geographical location, NUL terminated */
  bn_byte	server_url[96];      /* web address: http://..., NUL terminated */
  bn_byte	contact_name[64];    /* name of operator, NUL terminated */
  bn_byte	contact_email[64];   /* e-mail address of operator, NUL terminated */
  bn_int	users;               /* current number of users, network byte order */
  bn_int	channels;            /* current number of channels, network byte order */
  bn_int	games;               /* current number of games, network byte order */
  bn_int	uptime;              /* daemon uptime in seconds, network byte order */
  bn_int	total_games;         /* total number of games served */
  bn_int	total_logins;        /* total number of client logins */

  /* new versions will add fields to end of packet */
} t_trackpacket;