hm. . .
da gibt es nicht recht viel mehr. . .
Delphi-Quellcode:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Label9.Caption:='';
Form1.Show;
text:=Socket.ReceiveText;
laenge:=(mylength(text));
for i:=2 to laenge do
Label9.Caption:=Label9.Caption+text[i];
if text[1]='1' then
ListBox1.Items.Add(Label9.Caption)
else if text[1]='2' then
begin
{Die Erste Ziffer Entfernen}
Label11.Caption:='';
laenge:=(mylength(text));
for i:=2 to laenge do
Label11.Caption:=Label11.Caption+text[i];
{entfernt}
index:=ListBox1.Items.IndexOf(Label11.Caption);
ListBox1.Items.Delete(index);
end
else if text[1]='3' then
Timer4.Enabled:=true
else
Memo1.Lines.Add(text);
if mini=1 then
CoolTrayIcon1.ShowBalloonHint('Status:','Nachricht erhalten',bitInfo,timeout);
Delay(750);
CoolTrayIcon1.HideBalloonHint;
end;
Das ist alles, was er onClientRead macht
die ganzen els if text[1]= bla bla bla sind dafür da, das ich prüfziffern vorne an bestimmte nachrichten an hänge, um sie als befehle zu identifizieren, d.h. diese werden nicht als nachrichten im chat angezeigt sondern spezielle vom programm verarbeitet.