Hallo,
ich weiss nicht ob es noch aktuell ist aber ich schreib einfach mal.
HastDu Dir mal den Content angesehen was da drin steht wenn der Client eine Msg erhällt?
wenn ich das eingebe also:
Zitat:
!Join #lala
schaut der Content nur so aus, warum versucht Du da noch wer weiss was mit in den String zu geben?
IdIRC1.Join('#' + Content);
Das würde jetzt der String so aussehen:
Zitat:
#!Join #lala
Ist klar das er das nicht kann, da bei mir das Programm gerade läuft kann ich nicht nachsehen was kommt wenn du das auf dem Join machst. Schaue Dir doch einfach mal an was an Datenaustausch statt findet mit den Ereignissen OnRecive und OnSend.
Der Code müsste eher so aussehen:
Delphi-Quellcode:
procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String);
Begin
if Pos('!join', Content) > 0 then begin
Channel := Copy(Content, Pos('#', Content), Length(Content) - Pos('#', Content) + 1);
IdIRC1.Join(Channel);
end;
Ist getestet und er Joint auch den Chan.
Was mich aber mal so nebenbei interessieren würde ist wie man zu dem Status connected kommt. Ich Joine Chans kann schreiben und lesen aber wenn ich Disconnecten will kommt immer der nette Fehler das er nicht verbunden ist.
Vllt kannst Du mir da ja weiter helfen.