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

{der Record}
type
   TMyRecord = record
      s1, s2: string;
      i1, i2, i3: integer;
   end;

...
var
   MyRecord: TMyRecord;
...

{zum senden:}
//Daten des Records "MyRecord" werden verschickt
Socket.SendBuf(MyRecord, SizeOf(TMyRecord)); {auf das T achten, da es sich hierbei um den Datentyp handelt}

{zum empfangen}
//empfangene Daten werden in "MyRecord" gespeichert
Socket.ReceiveBuf(MyRecord, SizeOf(TMyRecord));                    

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

procedure TForm1.ClientSocket1OnError(..., ErrorCode: integer);
begin

case ErrorCode of
   10062: ShowMessage('Verbindung fehlgeschlagen!");
end;

Abort;

end;                    

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

var
a:integer;
   MyRecord: TMyRecord;

begin

type
   TMyRecord = record
      s1, s2: string;
      i1, i2, i3: integer;
   end;


Clientsocket1.Socket.SendBuf(MyRecord, SizeOf(TMyRecord));                    

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

type 
   TMyRecord = record 
      s1, s2: string; 
      i1, i2, i3: integer; 
   end; 


[...]


var 
   a:integer; 
   MyRecord: TMyRecord;                    

1:
2:
3:

Clientsocket1.Socket.SendText('Daten');

Clientsocket1.Socket.SendBuf(MyRecord, SizeOf(TMyRecord));                    

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:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button2: TButton;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private-Deklarationen }
    FBitmap: TBitmap;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FBitmap := TBitmap.Create;
  FBitmap.Width := 800;
  FBitmap.Height := 600;
  FBitmap.PixelFormat := pf8bit;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FBitmap.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  dc: hdc;
  dx, dy: integer;
  i: integer;
  FStream: TMemoryStream;
  Buf: Pointer;
begin
  dc := CreateDC('DISPLAY', Nil, Nil, Nil);
  dx := screen.Width;
  dy := screen.Height;
  BitBlt(FBitmap.Canvas.Handle, 0, 0, dx, dy, DC, 0, 0, SRCCopy);
  deletedc(dc);
  Image1.Picture.Assign(FBitmap);
  FStream := TMemoryStream.Create;
  FBitmap.SaveToStream(FStream);
  Buf := FStream.Memory;
  with ServerSocket1.Socket do
  begin
    for i := 0 to ActiveConnections - 1 do
    begin
      Connections[i].SendText('Daten'
        + IntToStr(FStream.Size));
      Connections[i].SendBuf(Buf^, FStream.Size);
    end; {for i := 0 to ActiveConnections do}
  end; {with ServerSocket1.Socket do}
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Caption := 'Server '
    + IntToStr(ServerSocket1.Socket.ActiveConnections);
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Caption := 'Server '
    + IntToStr(ServerSocket1.Socket.ActiveConnections - 1);
end;

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:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, ExtCtrls, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Image1: TImage;
    ClientSocket1: TClientSocket;
    MainMenu1: TMainMenu;
    Connect1: TMenuItem;
    Disconnect1: TMenuItem;
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Connect1Click(Sender: TObject);
    procedure Disconnect1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FStream: TMemoryStream;
    FPos: integer;
    FSize: integer;
    FDaten: boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Caption := 'Verbunden';
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  a: array[0..4096] of Byte;
  Buf: Pointer;
  i: integer;
  s: string;
begin
  if FDaten = false then
  begin
    s := Socket.ReceiveText;
    if Copy(s, 1, 5) = 'Daten' then
    begin
      Delete(s, 1, 5);
      try
        FSize := StrToInt(s);
        FDaten := true;
        Image1.Picture.Bitmap := nil;
        FStream.Clear;
      except

      end;
    end; {if Copy(s, 1, 5) = 'Daten' then}
  end {if FDaten = false then}
  else
  begin
    Buf := @a;
    i := Socket.ReceiveBuf(Buf^, 4096);
    FStream.Write(Buf^, i);
    FPos := FPos + i;
    if FPos >= FSize then
    begin
      FDaten := false;
      FStream.Position := 0;
      FPos := 0;
      Image1.Picture.Bitmap.LoadFromStream(FStream);
    end;
  end; {else FDaten = false then}
end; {procedure TForm1.ClientSocket1Read}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ClientSocket1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStream := TMemoryStream.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FStream.Free;
end;

procedure TForm1.Connect1Click(Sender: TObject);
var
  s: string;
begin
  if InputQuery('Server', 'Host-Name', s) = true then
  begin
    ClientSocket1.Host := s;
    ClientSocket1.Open;
  end;
end;

procedure TForm1.Disconnect1Click(Sender: TObject);
begin
  ClientSocket1.Close;
end;

end.                    

1:
2:
3:

socket.ReceiveBuf(memo, sizeof(TMemoryStream)); 
//memo.copyfrom(,memorystream.size-6) 
memo.write(RecRecord, SizeOf(TMyRecord));                    

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

 memostr:=Tmemorystream.create;

 memostr2:=Tmemorystream.create;

socket.ReceiveBuf(memostr, sizeof(TMemoryStream));
memostr2.copyfrom(memostr,memostr.size-6);


memostr2.write(RecRecord, SizeOf(TMyRecord));                    

1:
2:
3:

sendrecord.s1:='Zonk';
sendrecord.s1:='Döner Kebab';
Socket.SendBuf(Sendrecord, SizeOf(TMyRecord));                    

1:
2:
3:
4:

socket.ReceiveBuf(recrecord, sizeof(TMyRecord));

showmessage(RecRecord.s1);
showmessage(RecRecord.s2);                    

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:

type
   myrec = record
    rec1 : ShortString;
    rec2 : Shortstring;
 end;

...

var ms : TMemorystream;
    mrec,mrec2 : Myrec;
    i : Integer;
    s,s2 : Shortstring;
begin

mrec.rec1 := 'Zeile 1';
mrec.rec2 := 'Zeile 2';
s := 'Hallo';
i := Sizeof(mrec);

ms := TMemorystream.Create;

// String + Record in Stream schreiben
ms.WriteBuffer(s,6);         // ! länge des Strings + 1
ms.writeBuffer(mrec,i);

//String + Record wieder extrahieren
ms.Position := 0;             // !
ms.ReadBuffer(s2,6);      // ! länge des Strings + 1
ms.position := 6;            // !
ms.Readbuffer(mrec2,i);

//Testen
memo1.Lines.Add(mrec2.rec1);
memo1.Lines.Add(mrec2.rec2);
memo1.lines.add(s2);

end;                    

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

var i : Integer;
    p : PChar;
    ms : TMemorystream;
begin

i := socket.ReceiveLength;
 getmem(p,i);                //Speicher reservieren
 socket.ReceiveBuf(p^,i);    //Puffer in den PCHar legen

 ms := TMemorystream.Create;
 ms.Write(p^,i);             // Puffer in einen Stream laden
 freemem(p);

end;                    

1:
2:

socket.SendText('Daten'+inttostr(sizeof(sendrecord)));
Socket.SendBuf(Sendrecord, SizeOf(sendrecord));                    

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:

procedure TForm4.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
if AwaitRecord=true then begin
 socket.ReceiveBuf(recrecord, awaitrecordsize);
showmessage(RecRecord.s1);
showmessage(RecRecord.s2);
awaitrecord:=false;
end;




received:=socket.ReceiveText;
form3.Label1.Caption:='Connected !';



if copy(received, 1, 5) = 'Daten' then begin
if (MatchesMask(received,'*´ÉM')) then begin
 clientsocket1.Socket.SendText('Record');
 abort;
end;


//showmessage(received);
memo1.Lines.Add(received);
Delete(received, 1, 5);
AwaitrecordSize := StrToInt(received);




Awaitrecord:=true;
end;