hi,

bei meiner Netzwerkanwendung mit indy möchte ich gerne die Kommunikation wie folgt aufbauen.

Client möchte daten vom Server und schickt einen Befehl
Client.WriteLn('GET_KM'); Im Server Execute bekommt er den Befehl und schickt einen neuen Befehl das jetzt die Antwort kommt.

markieren

Delphi-Quellcode:

  command := uppercase(AThread.Connection.ReadLn);
  if command = 'GET_KM' then
  begin
    AThread.Connection.WriteLn('A:GET_KM'); //Die Antwort wird gesendet
    AThread.Connection.WriteLn(fClientlist.Text);
  end;

Im Client Execute bekommt er den Befehl.

markieren

Delphi-Quellcode:

      command := uppercase(fClient.ReadLn);
      if command = 'A:GET_KM' then
      begin
        s := fClient.ReadLn;
        lbClients.Items.Text := s;
      end;

Wo drauf ich hinaus möchte ist, kommt das auch immer beim Client so an?

markieren

Delphi-Quellcode:

    AThread.Connection.WriteLn('A:GET_KM'); //Die Antwort wird gesendet
    AThread.Connection.WriteLn(fClientlist.Text);

hat sich erledigt, habe es anders gelöst.

Dann erklär doch mal wie!

mache es simpel mit einer TStringList.
Also

Beim Client
list.add(befehl);
list.add(befehl2);
list.add(daten);
Client.SendText(list.text);
list.free;

Beim Server
list.text := Server.ReadLn;
if list.string[0] = 'Befehl1' then ...
list.string[2]; // Mach was mit Daten