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