Передача переменной через сокет

[Yura_S]

Здравствуйте. Подскажите пожалуста как можно передать переменную такого типа:

Type
    TUserList = Object
    PorNo:Byte;
    Login:ShortString;
  end;
UserMas: Array [0..255] of TUserList;

Через Сокет клиенту? Заранее спасибо.

[raxp]

F1 и читаем...

Type
    TUserList = record
    PorNo:Byte;
    Login:ShortString;
  end;
var UserMas: Array [0..255] of TUserList;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 clientsocket1.Socket.SendBuf(UserMas, sizeof(UserMas))

[Yura_S]

Подскажите ещё пожалуйста, как теперь переданную переменную, принять клиентом? Какое событие возникает когда клиенту приходит переменная и как определить её размер?

[raxp]

...загляните в события компонента ...размер, вот он sizeof(UserMas), он всегда постоянен, это пакет.