Indy10

[Adamrus]

Здравствуйте.
Разъясните, пожалуйста, как в 10 версии Indy через TCPServer и TCPClient передавать тип данных record?
в предыдущих версиях я делал так:
клиент писал: IdTCPClient1.WriteBuffer (NewCommBlock, SizeOf (CommBlock), true);
сервер встречал: AThread.Connection.ReadBuffer (CommBlock, SizeOf (CommBlock));
CommBlock - record, с кучей полей, ником, номером игры, координатами и т.д.

вот сетевая игра, к-ю я писал на предыдущей версии Indy. Кстати, если кому поможет, буду рад, отказоустойчивая сетевая игра "Крестики нолики", сервер держит 3 игры, соот-но макс.кол-во игроков 6, если падает сервер, то клиенты ищут другой доступный сервер.

[Adamrus]

type TDataBlock = record
  cmd: Integer;
  nick,
  msg: ShortString;
end;

В общем так (нашел на одном буржуйском сайте):
1) подключаем IdGlobal в Uses, иначе RawToBytes (и обратно) не определена
2) клиент отправляет

procedure TForm1.Button1Click(Sender: TObject); // client
var
  DataBlock : TDataBlock;
  Buf: TIdBytes;
begin
  DataBlock.cmd := 0;
  DataBlock.nick := 'myNick';
  DataBlock.msg := 'message';
  Buf := RawToBytes(DataBlock, sizeOf(DataBlock));
  IdTCPClient1.IOHandler.Write(buf);
end;

3) сервер принимает

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); // server
var
  DataBlock: TDataBlock;
  Buf: TIdBytes;
  i: Integer;
begin
  AContext.Connection.IOHandler.ReadBytes(buf,sizeof(buf),false);
  BytesToRaw(buf, DataBlock, sizeof(DataBlock));
  Form1.Memo1.Lines.Add(DataBlock.msg);
end;

но сервер ни чего не выводит в свой MEMO!
хелп ми, Комрады!

[veniside]

в исходниках инди читаем, что Execute

Occurs in the context of the peer thread

следовательно, работать с VCL внутри данного события нельзя.

[Adamrus]

вот как Я делал раньше:

 AThread.Connection.ReadBuffer (CommBlock, SizeOf (CommBlock));

затем

if (CommBlock.Cmd = 'disconnect') then //комманда отключения клиента
    protocol.Lines.Add(TimeToStr(Time)+': Корректно отключился игрок '+CommBlock.MyNick)

Я не претендую на звание гуру, объясните, пожалуйста, как мне обойти этот момент

[veniside]

Просто используй TStringList вместо мемо. Ничего визуального внутри IdTCPServer1Execute() трогать нельзя.

[Adamrus]

Спасибо!
Над TStringList чуть позже покалдую.
Сделал так

BytesToRaw(buf, DataBlock, sizeof(DataBlock));
s := DataBlock.msg;
Form1.Memo1.Lines.Add(s);

теперь работает!

[Adamrus]

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

procedure TForm1.Timer2Timer(Sender: TObject);
var
  DataBlock: TDataBlock;
  Buf: TIdBytes;
  nick, msg, whom: ShortString;
begin
  IdTCPClient1.IOHandler.CheckForDataOnSource;
  while not IdTCPClient1.IOHandler.InputBufferIsEmpty do
    begin
      IdTCPClient1.Socket.ReadBytes(buf,sizeof(DataBlock),TRUE);
      BytesToRaw(buf, DataBlock, sizeof(DataBlock));
      nick := DataBlock.nick;
      whom := DataBlock.whom;
      msg := DataBlock.msg;
      AddColoredLine(Form1.RichEdit1,TimeToStr(Time)+': '+nick+' -> '+whom+': '+msg,clGray);
    end;

end;

работает, но вопрос как без таймера проверять прислал ли нам что-либо сервер?

2 вопрос: кроме айпи адреса, что уникального есть при подключении клиента к серверу, м.б. индекс потока, так как им воспользоваться?

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
begin
  AddColoredLine(Form1.RichEdit1,Timetostr(Time)+': подключился IP='+AContext.Binding.PeerIP,clGreen);
end;