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

var ClientT: TClientSocket;
begin
ClientT := TClientSocket.create( nil );
ClientT.Host := DieIP; // hier steht halt meine IP (ja, die stimmt ! )
ClientT.Port := 123456; //Beispielport
ClientT.Open; 
ClientT.Socket.SendText( '1' ); //Zum testen irgendein String schicken
//ClientT.Socket.Connected //würde FALSE zurückliefer.. (weil noch keine Zeit zum verbinden gelassen wurde)
ClientT.Socket.SendText( 'test' ); //eigentlich zu sendender String
//ClientT.Close; //müsste geschehen, aber sonst gibt's nur noch mehr Fehler (vom Server, da Socket nicht exisitier !?)
//ClientT.Free;  //wieder Fehler vom Server
end;					

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

//uses ScktComp;
//var ClientT: TClientSocket; //leider global deklariert
procedure TForm1.ClientTOnConnect(Sender: TObject; Socket: TCustomWinSocket);
    begin
    ClientT.Socket.SendText( Edit1.Text );
    sleep( SizeOf(Edit1.Text) ); //zeit zum übertragen geben
    ClientT.Close;
    ClientT.Free;
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientT := TClientSocket.create( nil );
ClientT.Host := 'localhost';
ClientT.Port := 12345; //Beispielport
ClientT.OnConnect := ClientTOnConnect;
ClientT.Open;
end;					

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

procedure TForm1.ClientTOnConnect(Sender: TObject; Socket: TCustomWinSocket);
    begin
    TClientSocket(Sender).Socket.SendText( Edit1.Text );
    sleep( SizeOf(Edit1.Text) ); //zeit zum übertragen geben
    TClientSocket(Sender).Close;
    TClientSocket(Sender).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:
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:

unit uTSent;
interface
uses
  Classes, ScktComp;
type
  TSent = class(TThread)
  private
    DerClient: TClientSocket;
    ZuSenden: String;
    fFertig,
    fGeklappt: Boolean;
    procedure ClientTOnConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientTOnError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  protected
    procedure Execute; override; //wird nicht benötigt
  public
    property Fertig: Boolean read fFertig;
    property Geklappt: Boolean read fGeklappt;
    constructor create( IP: String; Port: Word; ZuSendenderText: String );
  end;

implementation

procedure TSent.ClientTOnConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  try
  Socket.SendText( ZuSenden );
    except
    fGeklappt := False;
    end;
DerClient.Close;
DerClient.Free;
fFertig := True;
end;

procedure TSent.ClientTOnError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0; //kann ggf. angepasst werden, da ich die Variable fGeklappt habe, weiß ich auch so ob es geklappt hat oder nicht
fGeklappt := False;
DerClient.Close;
DerClient.Free;
fFertig := True;
end;


constructor TSent.create( IP: String; Port: Word; ZuSendenderText: String );
begin
inherited create( true ); //muss erstellt werden, der Parameter ist in diesem
//Sonderfall egal, da die in diesem Thread auszuführenden Proceduren nicht "Execute" sondern die "Wichtigen" von unten sind
fFertig := False;
fGeklappt := True; //falls nichts schiefgeht, wird es geklappt haben
DerClient := TClientSocket.Create( nil ); 
DerClient.Host := IP;
DerClient.Address := IP; //Sicher ist sicher
DerClient.Port := Port;
ZuSenden := ZuSendenderText;
DerClient.OnConnect := ClientTOnConnect;  //WICHTIG
DerClient.OnError := ClientTOnError;      //   "
DerClient.Open;
end;


procedure TSent.Execute;
begin
//leer (wird nicht benötigt)
end;

end.					

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

procedure TForm1.Button1Click(Sender: TObject);
var EThread: TSent; 
begin
EThread := TSent.create( 'localhost', StrToInt(EPort.Text), ENachricht.Text );
while not EThread.Fertig do //Dauerschleife
  begin
  Application.ProcessMessages; //damit es sich nicht aufhängt
  end;
//Ab hier ist der Thread fertig
  if EThread.Geklappt then
    Showmessage( 'Fertig und Geklappt' )
  else
    Showmessage( 'Fertig, aber Fail' );
  EThread.Free;
end;					

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

//OnConnect
machwas1

//aufruf des TClientSocket (auf CtBlcoking)
try
Derclient.open;
machwas2;
 finally
 if derclient.socket.connected then derclient.close;
 end;