пытаюсь сделать примитивного оог бота под свой сервер. Логин проходит, к гейм серверу коннектица, но при посылке какого либо пакета(в моем случае это protocolversion) ему вылетает этот эксепшн. Судя по описанию это значит что сервер закрывает соединение. Сервер птс ил. При коннекте на ява ил сервер эксепшн не возникает.
Код:
procedure TForm1.GameSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
var prot:longword;
size:word;
pck:string;
begin
prot:=746;
setlength(pck,7);
pck[3]:=chr(0);
size:=7;
move(size,pck[1],2);
move(prot,pck[4],4);
gamesocket.Socket.SendText(pck);<<тут
end;
Как это исправить?:\