WinSock Programmierung

[SleepyMaster]

OK! Habs schon hinbekommen!

Delphi-Quellcode:

uses
  WinSock;

procedure TForm1.Button1Click(Sender: TObject);
var
  wsaData: TWSADATA;
  wVersionRequested:WORD ;
  pTarget : Phostent;
  sock: sockaddr_in;
  targetip: Pchar;
  port,bufsize: integer;
  s: TSocket;
begin
  wVersionRequested := MAKEWORD(1,1);
  if (WSAStartup(wVersionRequested,wsaData) < 0) then
    exit;

  targetip := '127.0.0.1';
  port := 135;
  bufsize := 512;

  s := socket(AF_INET, SOCK_STREAM, 0);
  if(s=INVALID_SOCKET) then
    begin
    ShowMessage('Socket Fehler');
    exit;
    end;
  pTarget := gethostbyname(targetip);

  if pTarget = nil then
    begin
    ShowMessage('Fehler beim auflösen des Hostnamens');
    exit;
    end;

  sock.sin_addr.s_addr:=PDWord(pTarget.h_addr_list^)^;
  sock.sin_family := AF_INET;
  sock.sin_port := htons(port);

  if  connect(s, sock, sizeof (sock))=SOCKET_ERROR then //hier bleibt das Programm "hängen"
    begin
    ShowMessage('Fehler beim verbinden zum Host');
    exit;
    end;
...
..
.