Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 04.10.2006 13:50 452

Socket-Programmierung

Verbindungsaufbau, Datenempfang und Verbindungsabbau

unit mSocket;

interface

uses
  WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, Winsock, WSocket;

type
  TClientForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btVerbindenClick(Sender: TObject);

  private
    socket : TWSocket;
    procedure socketSessionConnected(Sender: TObject; Error: Word);
  end;

var
  ClientForm: TClientForm;


implementation

{$R *.DFM}

procedure TClient.socketSessionConnected(Sender: TObject; Error: Word);
begin
  edMeldungOK.Text := 'Verbindung steht';
end;

procedure TClientForm.FormCreate(Sender: TObject);
begin
  socket := TWSocket.Create(nil);
  socket.OnSessionConnected := socketSessionConnected;
  socket.OnDataAvailable :=
  socket.OnSessionClosed :=
end;

procedure TClientForm.FormDestroy(Sender: TObject);
begin
  socket.Free;
end;

procedure TClient.btVerbindenClick(Sender: TObject);
begin
  socket.Addr := 'time.mg.fh-niederrhein.de';
  socket.Port := '37';
  socket.Proto := 'tcp';
  socket.connect;
end;
end.