передача данных типа Record...

[Рустам]

Здравстуйте!
Подскажите, как передать данные типа record? к примеру:
есть VS : Record
ID : Integer;
STR : String;
end;
как передать данный массив другому компьютеру по сети?

[AlDelta]

http://programmersforum.ru/showthrea...E0%EA%E5%F2%E0

[Рустам]

Ниче непонял...
пожалуйста, Можешь описать процедуры передачи и приема полностью...
и еще, если возможно, то на TTCPClient и TTCPServer (с Internet вкладки)

[R@ZDoR]

При разработке программы тоже застрял на этом моменте. Слышал что существует возможность передавать record-данные с помощью компонентов Client\ServerSocket, но сколько не рыл, ничего по этой теме не нашел. Есть тут люди у которых есть варианты решения сей проблеммы или хотябы догадки?

[raxp]

передать и принять можно так...

// заводим пакет данных одинаковый на передатчике и приемнике-
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;


// передача пакета-
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;