Patrick Kamin
Erfahrenes Mitglied
Moinsen!
Irgendwo scheint hier ein Fehler zu sein, denn er reagiert nicht auf den Ping vom Server.
Code:
procedure TForm1.Parsen( TempString : String );
{ Erhällt als Parameter den gelesen String aus der Socketverbindung }
var
Command, Argv, Sender : String;
begin
while Pos(#10,TempString) <> 0 do TempString[Pos(#10,TempString)]:= #13;
while Pos(#13#13,TempString) <> 0 do Delete(TempString,Pos(#13#13,TempString),1);
if Copy(TempString, 1,1) = ':' then begin
Sender := Copy(TempString,1,pos(' ', TempString));
Delete(TempString,1,pos(' ', TempString));
end
else
Sender := '';
Command := Copy(TempString,1,pos(' ',TempString));
Delete(TempString,1,pos(' ',TempString));
Argv := Copy(TempString,1,pos(#13,TempString)-1);
if Command = 'PING' then Irc.Socket.SendText('PONG ' + Argv + #13+#10);
BotParse(Sender, Command, Argv);
end;