Работа с IdUDPServer

[raxp]

заведите скажем единицу в packet_version на клиенте (си- шном) и посмотрите, что измениться.

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

а можно посмотреть на структуру в С

[feLoNy]

Сообщение от Пепел Феникса

а можно посмотреть на структуру в С

код в с выложен выше в постах во вложениях.
Вопрос такой. Как показания разделить на 16777216 ?
точнее делить нужно Channels, Users, uptime и ещё некоторые а вот что с портом делать незнаю даже
И как Byte перевести в String?

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

И как Byte перевести в String?

IntToStr

Вопрос такой. Как показания разделить на 16777216 ?

пишу в типах:
integer:=integer div 16777216

[feLoNy]

Сообщение от Пепел Феникса

IntToStr

пишу в типах:
integer:=integer div 16777216

Пишу...

[Error] Unit1.pas(36): ',' or ':' expected but ':=' found
[Error] Unit1.pas(37): '..' expected but identifier 'packet_version' found
[Error] Unit1.pas(37): Low bound exceeds high bound
[Error] Unit1.pas(76): Undeclared identifier: 'packet_version'
[Fatal Error] Tracker.dpr(5): Could not compile used unit 'Unit1.pas'

по поводу inttostr не катит...

[Error] Unit1.pas(85): There is no overloaded version of 'IntToStr' that can be called with these arguments
[Fatal Error] Tracker.dpr(5): Could not compile used unit 'Unit1.pas'

Поэтому и спрашиваю.

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

а как вы их применяли покажите?

[feLoNy]

Сообщение от Пепел Феникса

а как вы их применяли покажите?

ну если я вас правильно понял... наверн всё таки не туда пихаю...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,
  ComCtrls, IdSocketHandle;

type
  TForm1 = class(TForm)
	//integer:=integer div 16777216;
    IdUDPServer1: TIdUDPServer;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;

 ......

 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,'> Games'+IntToStr(packet.total_games));
 Memo1.Lines.Insert(0,'> Logins clients'+IntToStr(packet.total_logins));
 Memo1.Lines.Insert(0,'>------------');
 //Memo1.Lines.Insert(0,'> URL'+IntToStr(packet.server_url));
 //Memo1.Lines.Insert(0,'> Owner'+IntToStr(packet.contact_name));
end;



end.

последнии изменения закоментированны.

[feLoNy]

Всё таки нашел выход.

var
packet: t_trackpacket;
a,b,c: integer;
begin
 a:= 16777216;
 adata.Read(packet, SIZEOF(packet));
 b:= packet.uptime div a;
 c:= packet.channels div a;

только вот теперь проблемма... доходя до максимального значения integer идёт обратно в минус... просто до этого не дожидался... как можно поправить?
и так же вопрос по поводу чё с портом и как bytes привести к string остаёться актуальным.

[raxp]

вернулся к вашей теме...
1- превышение идет с клиента, дела поправлять нужно там
2- по Memo1.Lines.Insert(0 , - в "0" позицию все... почему не использовали add из моего закомментенного, все равно clear делаете
3- выделять integer на время маловато, в структуре на клиенте и сервере нужно перейти хотя-бы на extended... это касается и некоторых других
4- array of byte - это массив asc символов со стороны клиента, эквивалентно of char, значит - берем каждый элемент массива и делаем ему chr() или char и формируем строку суммированием полученнных символов...

[feLoNy]

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

вернулся к вашей теме...
1- превышение идет с клиента, дела поправлять нужно там
2- по Memo1.Lines.Insert(0 , - в "0" позицию все... почему не использовали add из моего закомментенного, все равно clear делаете
3- выделять integer на время маловато, в структуре на клиенте и сервере нужно перейти хотя-бы на extended... это касается и некоторых других
4- array of byte - это массив asc символов со стороны клиента, эквивалентно of char, значит - берем каждый элемент массива и делаем ему chr() или char и формируем строку суммированием полученнных символов...

1 ну клиент не я разрабатывал)
2 очищать я стал недавно, просто оставил insert, потом поправлю на add
3 понимаю. но как то же офф трекер работает? О_о
4 а вот про это поподробнее можно?
извеняюсь пропал, так как разболелся, валялся не вставая с постели.