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 12:12 933

Socket-Programmierung

Zunächst müssen die Socket-Komponenten in das Delphi-Projekt eingefügt werden: Projekt -> Dem Projekt hinzufügen ...

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);

  private
    socket : TWSocket;
  end;

var
  ClientForm: TClientForm;

implementation

{$R *.DFM}

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

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