Einzelnen Beitrag anzeigen

Struwl

Registriert seit: 30. Okt 2003
6 Beiträge
 
Delphi 6 Enterprise
 
#1

Problem: IRC + TClientSocket

  Alt 2. Mär 2004, 10:05
Hi

Ich habe folgendes Problem:

Ich möchte mit einem TClientSocket zu einem IRC-Server verbinden.
Allerdings kommt nach dem Verbinden folgendes
Delphi-Quellcode:
[onRead] NOTICE AUTH :*** Looking up your hostname

[onRead] NOTICE AUTH :*** Found your hostname, cached
NOTICE AUTH :*** Checking Ident

[onRead] PING :285310488
:port80b.se.quakenet.org 451 Struwl Struwl :Register first.
[onRead] ist das Ereignis des TClientSocket

Client-Einstellungen:
Adress = leer
ClientType = ctNonBlocking
Host = de.quakenet.org
Name = Client
Port = 6667
Service = leer
Tag = 0


Der Code für das Verbinden steht bei mir in [onClientConnect]
Delphi-Quellcode:
const
  endl = #13#10;

..


Ein Button macht: Client.Open;

procedure TfMain.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 m_log.Lines.Add('[onConnect]');
 Client.Socket.SendText('PASS meinPW'+endl); //Hier kann man doch irgendein PW eingeben, oder ?
 Client.Socket.SendText('NICK Struwl'+endl);
 Client.Socket.SendText('USER Struwl HIER-STEHT-MEIN-IP de.quakenet.org keiner'+endl);
 //Client.Socket.SendText('JOIN #test-abcdef'+endl);
end;
Und in der RFC 1459 steht, dass man zum registrieren die Befehle PASS, NICK und USER braucht (in der Reihenfolge)

Was habe ich falsch gemacht ?
Könnte es an meinem Router liegen ? (mIRC Client funktioniert - nur DCC nicht )

Und bitte keine Posts mit: "Benutz doch IdIRC etc." - ich will TClientSocket benutzen

P.S. den Thread habe ich mir als Vorbild genommen, aber auch dieser Code funktioniert bei mir nicht:
http://www.delphipraxis.net/internal...&highlight=irc

tia, Struwl

//Edit:
Jetzt scheint es zu gehen .. ich hab nichts verändert, aber ich hatte jtzt meinen IRC-Client zu
Aber warum kann ich nicht nochmal zu einem IRC-Server verbinden, wenn IRC schon offen ist ?
  Mit Zitat antworten Zitat