Indy Thread

[nru]

Da ja getaddrinfo den zweiten Thread aufmacht, aber nicht mehr schließt, bin ich der Sache mal via API auf die Spur gegangen.
Also mal ohne Indy, stattdessen mit den Jedi API's. Und auch hab ich nach getaddrinfo zwei Threads :/
Irgendwie ätzend und irgendwie spinnt mein System (ne, Plural, sind zwei Win7-Rechner)

Delphi-Quellcode:

uses JwaWS2tcpip, JwaWinSock2;

procedure TForm1.Button4Click(Sender: TObject);
var
  Hints: TAddrInfo;
  LAddrInfo: pAddrInfo;
  ret: Integer;
begin

  FillChar(Hints, SizeOf(Hints), 0);
  Hints.ai_flags := AI_CANONNAME;
  Hints.ai_family:=AF_INET;
  Hints.ai_socktype:=SOCK_STREAM;
  Hints.ai_protocol:=IPPROTO_TCP;
  LAddrInfo := nil;

  ret := getaddrinfo(PChar('localhost'), nil, @Hints, LAddrInfo );

  try
    if ret <> 0 then
      ShowMessage( gai_strerrorA( ret ) );
  finally
    freeaddrinfo( LAddrInfo );
  end;

end;