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:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

var IDByte:Byte;
var MyRecord:TMyRecord;
var Str:String[50];
var Int:Integer;

procedure TForm1.SendInfo;
var Stream:TMemoryStream
begin
  //Erstellen eines MemoryStreams, um dessen Inhalt dann zu versenden
  Stream:=TMemoryStream.Create;
  try
    //ID 1 festlegen (steht für Daten vom Typ TMyRecord)
    IDByte:=1;
    //IDByte in den Stream schreiben 
    Stream.Write(IDByte,SizeOf(IDByte));
    //Record in den Stream schreiben
    Stream.Write(MyRecord,SizeOf(MyRecord));

    //ID 2 festlegen (steht für Daten vom Typ Integer)
    IDByte:=2;
    //IDByte in den Stream schreiben 
    Stream.Write(IDByte,SizeOf(IDByte));
    //Integer in den Stream schreiben
    Stream.Write(Int,SizeOf(Int));

    //ID 3 festlegen (steht für Daten vom Typ String[50])
    IDByte:=3;
    //IDByte in den Stream schreiben 
    Stream.Write(IDByte,SizeOf(IDByte));
    //String[50] in den Stream schreiben
    Stream.Write(Str,SizeOf(Str));

  finally 
    //Stream senden, Stream wird danach freigegeben. 
    MyClientSocket.Socket.SendBuf(Stream.Memory^,Stream.Size); 
    Stream.Free; 
  end;
end;

procedure TForm1.Empfangen(Socket:TCustomWinSocket); 
var Stream:TMemoryStream; 
var Buffersize:Integer; 
begin 
  //Stream erstellen, in ihn werden die empfangenen Daten gespeichert. 
  Stream:=TMemoryStream.Create; 
  try 
    //Anzahl empfangener Bytes ermitteln 
    Buffersize:=Socket.ReceiveLength; 
    Stream.Size:=BufferSize; 
    //empfangene Daten in Stream schieben 
    Socket.ReceiveBuf(Stream.Memory^,Buffersize); 
    //Streamposition an den Anfang setzen 
    Stream.Position:=0; 

    //Nun Streamdaten auswerten 

   While Stream.Position<Stream.Size do 
   begin 
      //IDByte einlesen 
      Stream.ReadBuffer(IDByte,SizeOf(IDByte)); 
      if IDByte=1 then 
        Stream.ReadBuffer(MyRecord,SizeOf(MyRecord)); 
      if IDByte=2 then 
        Stream.ReadBuffer(Int,SizeOf(Int)); 
      if IDByte=3 then 
        Stream.ReadBuffer(Str,SizeOf(Str)); 
    end; 
    finally 
      //Stream freigeben 
    Stream.Free; 
  end; 
end;					

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

procedure TForm4.Button9Click(Sender: TObject);
var
Stream2:TMemoryStream;
Record_2command:TRecord_2command;
begin
//Erstellen eines MemoryStreams, um dessen Inhalt dann zu versenden 
  Stream2:=TMemoryStream.Create;
  try 
    //ID 1 festlegen (steht für Daten vom Typ TMyRecord) 
    IDByte:=1;
    //IDByte in den Stream schreiben
    Stream2.Write(IDByte,SizeOf(IDByte));
    //Record in den Stream schreiben
     record_2command.SessionPW:=SessionPW;
 record_2command.command:='Mein Befehl';
    Stream2.Write(record_2command,SizeOf(Trecord_2command));


  finally 
    //Stream senden, Stream wird danach automatisch freigegeben. 
    Clientsocket1.Socket.SendStream(Stream2);
  end;					

1:
2:
3:
4:
5:

finally
  //Stream senden, Stream wird danach freigegeben.
  MyClientSocket.Socket.SendBuf(Stream.Memory^,Stream.Size);
  Stream.Free;
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:

procedure TForm1.Empfangen(Socket:TCustomWinSocket);
var Stream:TMemoryStream;
var Buffersize:Integer;
begin
  //Stream erstellen, in ihn werden die empfangenen Daten gespeichert.
  Stream:=TMemoryStream.Create;
  try
    //Anzahl empfangener Bytes ermitteln
    Buffersize:=Socket.ReceiveLength;
    Stream.Size:=BufferSize;
    //empfangene Daten in Stream schieben
    Socket.ReceiveBuf(Stream.Memory^,Buffersize);
    //Streamposition an den Anfang setzen
    Stream.Position:=0;

    //Nun Streamdaten auswerten

   While Stream.Position<Stream.Size do
   begin
      //IDByte einlesen
      Stream.ReadBuffer(IDByte,SizeOf(IDByte));
      if IDByte=1 then
        Stream.ReadBuffer(MyRecord,SizeOf(MyRecord));
      if IDByte=2 then
        Stream.ReadBuffer(Int,SizeOf(Int));
      if IDByte=3 then
        Stream.ReadBuffer(Str,SizeOf(Str));
    end;
    finally
      //Stream freigeben
    Stream.Free;
  end;
end;