ClientSocket und IRC

[Roki_]

Hallo,

ich bin gerade dabei eine Bouncer Control zu schreiben, ist also zuvergleichen mit einem IRC-Client.
Zum Kommunizieren wird ClientSocket verwendet.

Nun ist das problem beim OnRead bekomm ich mehr als eine Zeile gesendet, d.H. wenn 2 Join events in einem ankommenden String sind, dann phrase ich nur den 1. Channel raus...

Delphi-Quellcode:

if pos('JOIN', sData) <> 0 then
begin
 delete(sData,1,pos('JOIN', sData)+5);
 chan := copy(sData,1,pos(#$D,sData)-1);
 Listbox1.Items.add(chan);
end;

wie lös ich das problem?

Mit freundlichen Grüßen
Roki