1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

<span style="color: blue">//Verbindung herstellen:</span>
With BefehleSocket do
 Begin
  Active:=False;
  Host:=ListView1.Selected.Caption; (In dieser Liste steht der Host z.b. "Station1"
  Active:=True;
 End;
<span style="color: blue">
//Befehl senden Bsp:</span>
var text:string;

text:=InputBox('Nachricht schicken', '', '');
text:='Nachricht'+text;
Befehlesocket.Socket.SendText(text);

<span style="color: blue">//Lesen von Client</span>
procedure TForm1.BefehlesocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var ReceiveStatus:string;
begin
ReceiveStatus:=Socket.ReceiveText;
//Alle Rückantworten/Status von Aktionen etc. werden über den Befehlesocket empfangen

if Pos('Status',receivestatus)>0 then //Wenn Status in String vorkommt Status rauslöschen und in Statusbar schreiben
 begin
 Delete(receiveStatus,1,6);
 StatusBar2.Panels[1].Text:=ReceiveStatus;
 Logmemo.Lines.Add(TimetoStr(Time) + '  ' + ReceiveStatus);
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

<span style="color: blue">//Befehle von Steuerprog. empfangen</span>

procedure TForm1.BefehlesocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var receivetext:string;
begin
receiveText:=Socket.ReceiveText);
Aktionen.receiveText:=receivetext; //Status übertragen

<span style="color: red">-->hier kommt teilweise eine Leerzeile an?!</span>

//Status holen
Aktionen.Status;

//Nachricht empfangen
if pos('Nachricht',receivetext)=1 then
Aktionen.Nachricht;

end;					

1:
2:
3:
4:
5:
6:

 
With BefehleSocket do
 Begin
  Active:=False;
  Host:=ListView1.Selected.Caption; (In dieser Liste steht der Host z.b. "Station1"
  Active:=True;					

1:
2:
3:
4:
5:

With BefehleSocket do
 Begin
  Active:=False;
  adress:='192.168.1.3'; (hier muss die IP rein?)
  Active:=True;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.BefehlesocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var receivetext, befehl:string;
      i:Integer;
begin
i := Clients.Items.IndexOfObject(Socket); // Client identifizieren
  if (i > -1) then begin // Client ist in der Liste, Index "i" ist gültig
    ReceiveBuffer.Strings[i] := ReceiveBuffer.Strings[i] +Socket.ReceiveText; // Daten lesen

     if (ReceiveBuffer.Strings[i] <> '') then // wenn Daten da sind...
     Memo1.lines.addstrings(receivebuffer)					

1:
2:
3:
4:
5:

Nachrichtb

NachrichtbSperren

NachrichtbSperrenShutdown2					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.BefehlesocketClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
clients.AddItem(Socket.RemoteHost,socket);
ReceiveBuffer.Add(''); //Empfangsbuffer anlegen
{socket.SendText('empfangen');}
end;

procedure TForm1.BefehlesocketClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
if Errorcode<>0 then Begin statuslabel.Caption:='B.Socket: '+NetErrMessage(ErrorCode); LogFile('ERROR Befehle Socket: '+NetErrMessage(ErrorCode)); end;
errorcode:=0;
end;

procedure TForm1.BefehlesocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var receivetext, befehl:string;
      i:Integer;
begin
Aktionen.receiveText:=receivetext; //Status übertragen}

i := Clients.Items.IndexOfObject(Socket); // Client identifizieren
  if (i > -1) then begin // Client ist in der Liste, Index "i" ist gültig
    ReceiveBuffer.Strings[i] := ReceiveBuffer.Strings[i] +Socket.ReceiveText; // Daten lesen
             Memo1.Text:=ReceiveBuffer.Strings[i];

     if (ReceiveBuffer.Strings[i] <> '') then // wenn Daten da sind...
     Memo1.lines.add('fertig'); {else Befehl:=BlowFish.Dekodiere(ReceiveBuffer.Strings[i]);}
         end;     

receiveText:=Befehl;
Aktionen.receiveText:=Befehl;

//Status holen
Aktionen.Status;

//Nachricht empfangen
if pos('Nachricht',receivetext)=1 then
Aktionen.Nachricht;

//Eingabe sperren
Aktionen.Sperren;
...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

//Verbindung bei klicken auf client herstellen
dxWinXPBar2.Enabled:=false;
  With BefehleSocket do
   Begin
    if active=true then   close;  //versuche zu trennen
   Host:=ListView1.Selected.Caption;
   open; //verbinden...
   End;


procedure TForm1.BefehlesocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Statusbar2.Panels[0].Text:='Verbunden mit: '+ Socket.RemoteHost;
ReceiveBuffer:=''; //Empfangsbuffer initalisieren
{socket.SendText('Befehlsocket Verbunden'); }
dxWinXPBar2.Enabled:=true; //buttons aktivieren
end;

procedure TForm1.BefehlesocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
dxWinXPBar2.Enabled:=false;
if Errorcode<>0 then
LogMemo.Lines.Add('Socket Verbindung: '+NetErrMessage(ErrorCode));
errorcode:=0;
end;

procedure TForm1.BefehlesocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var ReceiveStatus:string;
begin
ReceiveStatus:=Socket.ReceiveText;
//Alle Rückantworten/Status von Aktionen etc. werden über den Befehlesocket empfangen

if Pos('Status',receivestatus)>0 then //Wenn Status in String vorkommt Status rauslöschen und in Statusbar schreiben
 begin
 Delete(receiveStatus,1,6);
 StatusBar2.Panels[1].Text:=ReceiveStatus;
 Logmemo.Lines.Add(TimetoStr(Time) + '  ' + ReceiveStatus);
 end;
end;

procedure TForm1.dxWinXPBar2Items2Click(Sender: TObject);
var text:string;
begin
text:=InputBox('Nachricht schicken', '', '');
text:='Nachricht'+text;
Befehlesocket.Socket.SendText((text)+#13);
end;					

1:
2:
3:
4:
5:
6:
7:

// Verbindung bei klicken auf client herstellen
  dxWinXPBar2.Enabled := FALSE;
  With BefehleSocket do Begin
    if active=true then close;  //versuche zu trennen
  Host:=ListView1.Selected.Caption;
  open; //verbinden...
End;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.dxWinXPBar2Items2Click(Sender: TObject);
var text:string;
begin
text:=InputBox('Nachricht schicken', '', '');
text:='Nachricht'+#13+text+#13;
Befehlesocket.Socket.SendText(text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

i := Clients.Items.IndexOfObject(Socket); // Client identifizieren
  if (i > -1) then begin // Client ist in der Liste, Index "i" ist gültig
    ReceiveBuffer.Strings[i] := ReceiveBuffer.Strings[i] +Socket.ReceiveText; // Daten lesen

     commands.Text:=ReceiveBuffer.Strings[i];

     if (ReceiveBuffer.Strings[i] <> '') then // wenn Daten da sind...
      begin
       For i:=commands.Count-1 downto 0 do
        Begin

  receivetext:=commands.Strings[i];
   memo2.Lines:=commands;					

1:
2:
3:
4:
5:
6:
7:

i := Clients.Items.IndexOfObject(Socket); // Client identifizieren
  if (i > -1) then begin // Client ist in der Liste, Index "i" ist gültig
    ReceiveBuffer.Strings[i] := ReceiveBuffer.Strings[i] +Socket.ReceiveText; // Daten lesen

     commands.Text:=ReceiveBuffer.Strings[i];
// hier muss jetzt diese while-Schleife aus dem Tut rein, dazu das Syntax-Array,
// sonst kommst du da nicht weiter