Уважаемый, Незарегистрированный! Для удобной навигации по разделам с играми рекомендуем воспользоваться алфавитным указателем по всем играм форума! Спасибо за внимание!
procedure TForm1.tcpsrvr1Accept(Sender: TObject; ClientSocket: TCustomIpClient); var buf:pchar; s,l:string; t:TStringList; begin GetMem(buf,512); ZeroMemory(buf,512); ClientSocket.ReceiveBuf(buf^,512); s:=PAnsiChar(PChar(string(buf))); t:=TStringList.create; t.text:=stringReplace(s,' ',#10,[rfReplaceAll]); mmo1.Lines.Add(t[0]+':'+t[1]); ClientSocket.Sendln('1285241960000:35b9fd01865fda9d70b157e244cf801c:'+t[0]+':12345:'); t.free; end;