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:

unit u_sockettest;

interface

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

type
  TForm1 = class(TForm)
    procedure DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
     ClientSocket1: TClientSocket; // dynamisch erzeugter TClientSocket
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Objekt erstellen; Eigentümer ist das Formular -> so wird das Objekt beim 
  // Beenden automatisch mit freigegeben 
  ClientSocket1 := TClientSocket.Create(Form1); 
  // Ereignisse eintragen 
  ClientSocket1.OnConnect := DynConnectEvent; 
  // fertig, ClientSocket dynamisch erstellt 
  ClientSocket1.Port := 8888; // Port eintragen 
  ClientSocket1.Active := TRUE; // und aktivieren
end;

// dyn. Ereignismethode 
procedure TForm1.DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket); 
begin 
  ShowMessage('Connect'); 
end;

end.					

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

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Sockettest.exe ist eine Exception der Klasse ESocketError aufgetreten. Meldung: 'Keine Adresse angegeben'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK   Hilfe   
---------------------------