ClientSocket1ReadClick...

[dde]

So ich habe es jetzt anders gelöst, yeah^^!!

So sieht der code ungefähr aus:

im Server:

Delphi-Quellcode:

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var v:Socket.ReceiveText
begin
if v='blablabal' then
 begin
   Socket.SendText('bla1'+'blablub'));
   sleep(200);
   Socket.SendText('bla2'+'blablub2');
  end;
end;

im clienten:

Delphi-Quellcode:

procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var i,cmd:string;
begin
 i:=Socket.ReceiveText;
 cmd:=copy(i,0,4);

if cmd='bla1' then Label1.Caption:=copy(i,5,length(i));
if cmd='bla2' then Label2.Caption:copy(i,5,length(i))
end;

(i,5,length(i)) ist der erhaltene Text ab Zeile 5 bis Ende des Textes!