Hi.
Ich hab mir jetzt mal nen Demo-Code gezogen, der statt IdIRC die ClientSocket-Komponente benutzt. Der Code wird dadurch zwar größer, allerdings funktioniert das connecten zum Quakenet blendend!
Nun gibts in dem Programm allerdings ein Problem: das joinen des Channels geht nicht. Mir würde es aber sehr helfen, wenn in der Demo das joinen gänge, dann kann ich mir erstmal ein Bild davon machen ob es überhaupt funktionieren täte.
Derzeit habe ich versucht es in dem Teil so zu lösen:
ClientSocket1.Socket.SendText('JOIN #Delphi' + hex('0A'));
Das mit dem Hex('0A') wurde schon in der ganzen Demo benutzt und scheint sich positiv auszuwirken... wie gesagt, falls alles gehen sollte studiere ich das ganze mal genauer.
Delphi-Quellcode:
function Hex(strData:string): string;
var sresult:string; sfinal:string; hexc:cardinal; i:integer;
begin
i:=1;
while i<=length(strData) do
begin
hexc := strtoint('$' + copy(strData,i,2));
sresult := inttostr(hexc);
sresult := chr(strtoint(sresult));
sfinal := sfinal + sresult;
i:=i+2;
end;
result := sfinal
end;
Wieso funktioniert der JOIN-Befehl nicht? Er ist doch richtig aufgebaut und geschrieben?!
EDIT: Ich habe gerade eben gemerkt, dass der Join-Befehl auf manchen Servern funktioniert! Im quakenet scheint aber nur der Server wineasy2.se.quakenet.org den Join-Befehl zu akzeptieren. Problem: Ich kann ihn wegen der 3 Punkte in seinem Name weder pingen, noch direkt joinen! Ich komm immer nur über Umwege (mehrfaches Joinen) auf ihn drauf! Wie kann ich ihn direkt connecten
.
Ich benutzte jetzt übrigens nicht mehr hex('0A') was, wie ich erfahren habe LF ist. Sondern hex('0D') + hex('0A') , was CR-LF ist (und somit Standardkonform).
C ya.