IRC Service

[supermuckl]

ich hatte meinen client damals mit purem idTCPclient gebaut

und folgendes als ping antwort genommen

// bei ping ein pong geben *g*
if (lowercase(copy(instr,0,4)) = 'ping') then begin
form1.client.Write('PONG :'+copy(instr,7,99)+#13);
transferstr := '<-- '+'PONG :'+copy(instr,7,99);
Synchronize(writeconsole);
end;