Formloses SocketProgramm

[sirius]

So funktioniert es :

Delphi-Quellcode:

program Project1;

uses scktcomp, windows, messages;

var clientsocket:Tclientsocket;
    msg:Tmsg;

begin
  clientsocket:=Tclientsocket.Create(nil);
  try

    clientsocket.Host:='127.0.0.1';
    clientsocket.Port:=21000;
    clientsocket.Open;

    while not clientsocket.active do
    begin
      if not getmessage(msg,0,0,0) then exit;
      dispatchmessage(msg);
    end;

    while clientsocket.active do
    begin
      if not getmessage(msg,0,0,0) then exit;
      dispatchmessage(msg);
    end;

  finally
    clientsocket.free;
  end;
end.

Aber um das sinnvoll weiter zu benutzen solltest du schonmal mit Klassen anfangen.