IRC Service

**Cyberaxx**

Hallo,

Ich würde gerne für den IRC einen Service schreiben. Im Moment habe ich das mit einem CLient(IDIRC) geregelt der Override besitzt. Ist allerdings nicht die beste Lösung. Bis dahin fand ich die Indy IRC Komponente auch recht gut. Doch sobald es daran geht das man damit einen Service schreiben will gibt die Komponente auf, denn sie sendet direkt die Client Befehle beim connecten.

Da dachte ich mir probierst es mal mit der Socket Komponente. Es gab ja genug Beispiele dafür. Ich komme auch einigermassen weit bis zu dem Punkt das es ums Ping/Pong spielen geht.

Beim connecten empfange und sende ich folgendes.

Zitat:

Connecting to: 192.168.10.2 [6600]
Looking up...
Connecting to: 192.168.10.2 [6600]
Recive -> Connection established to: HASE_SERVER [192.168.10.2]
Send -> NICK TestBot
Send -> USER Service 192.168.10.10 192.168.10.10 :Wirklicher Name
Recive -> :Lightbow.Home NOTICE AUTH :*** Looking up your hostname...
Recive -> :Lightbow.Home NOTICE AUTH :*** Couldn't resolve your hostname; using your IP address instead
Recive -> :Lightbow.Home NOTICE TestBot :*** If you are having problems connecting due to ping timeouts,
please type /quote pong 5B075E1D or /raw pong 5B075E1D now.
Recive -> PING :5B075E1D
Recive -> :Lightbow.Home 451 Ponghtbow.Home :You have not registered

Es fehlt der Pong. Ich weiss nur nicht warum er ihn nicht sendet.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);  

var rec:string;  

begin  

        rec := socket.ReceiveText ;  

        Temp.Lines.Add(rec);  

        //Ping Pong  

        if (copy(rec,0,4) = 'PING') then  

        begin  

                Client.Socket.sendtext('Pong' + copy(rec,5,99) + #13#10);  

        end;  

        //Ping Pong End  

end;

Ich habs auch überprüft aber er ruft nichtmal die IF Anweisung auf. Ohne das der PONG kommt bekomme ich keine Verbindung. Das zweite was mir aufgefallen ist, wenn ich ausserhalb des Netzwerkes versuche zu verbinden bekomme ich den Socket Fehler 10049(Asynchroner Socket Fehler). Kein Wunder das die meisten eine fertige Komponente bevorzugen. Am liebsten würde ich die Indy KOmponente ummodeln da nur zwei Zeilen geändert werden müssten aber wie ich das dann als neue Koponente registriere habe ich auch keine wirkliche Ahnung von.

Kann mir hier jemand bei helfen?

Gruss Cyb

IRC Service

IRC Service

Forumregeln