IdIRC Anmeldung ins Quakenet (PING PONG) Registrierung

[dorisdoloris]

Hallo ihr lieben da wäre mal wieder ein Problem zu lösen g

Wenn ich mich mit dem Quakenet verbinden will klappt dieses nicht durch die PING Registrierung. Ich habe es versucht so zu lösen. Die richtige Pingnummer bekomme ich aber die Registrierung klappt nicht vielleicht habt ihr ja eine Lösung.

Delphi-Quellcode:

//------------------------------------------
function PingPong: Integer;
begin

// richtige Ping Registrierungszahl finden

if (Pos('PING :',sPruefe) > 0 ) Then
begin

Delete(sPruefe, 1, Pos('PING :',sPruefe)+5);

IdIRC1.Raw('PONG' + ' ' + sPruefe); 

end;  //end if

end; //end function
//------------------------------------------



procedure TForm3.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,AContent: String; var Suppress: Boolean);
begin

sPruefe := ACommand + ' ' + AContent; // Command PING + Zahl an "sPrüfe" übergeben

PingPong(); // Funktion Zahl suchen und PONG senden

end;

lg: doris

[dorisdoloris]

hat denn keiner von euch dazu eine Idee?

lg: doris