Thema: Indy Thread

Einzelnen Beitrag anzeigen

nru

Registriert seit: 30. Mai 2008
Ort: Bonn
40 Beiträge
 
Delphi 7 Enterprise
 
#11

AW: Indy Thread

  Alt 29. Mär 2013, 11:16
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;
  Mit Zitat antworten Zitat