1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:

unit Unit2;

interface

uses
  Winsock, Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ScktComp, Classes;

type
  THostName = class(TThread)
  private
    { Private declarations }
    Faus, FIP: string;
    FJ:byte;
    FBox : TStringgrid;
    procedure DoUpdateVLC;
  public
    { Public declarations }
    constructor Create(comp:TStringGrid; j:byte; IP:string);
  protected
    procedure Execute; override;
    procedure UpdateVLC(aus:string);
  end;


implementation

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure THostName.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ THostName }

constructor THostName.Create(comp:TStringGrid; j:byte; IP:string);
begin
  Fj := j;
  FIP := IP;
  FBox := comp;
  FreeOnTerminate := True;
  inherited Create(False);
end;

procedure THostName.DoUpdateVLC;
begin
FBox.cells[3,Fj] := Faus;
end;

procedure THostName.UpdateVLC(aus:string);
begin
Faus := aus;
synchronize(DoUpdateVLC);
end;


procedure THostName.Execute;
var
    aus: string;
    IPv4: in_addr;
    HostEnt: PHostEnt;
begin
  IPv4.S_addr := inet_addr(PAnsiChar(FIP));
  HostEnt := gethostbyaddr(@IPv4, SizeOf(IPv4), AF_INET);
  if Assigned(HostEnt) then
   aus := StrPas(Hostent^.h_name)
  else
   aus := '';
  UpdateVLC(aus);
end;

initialization
  WSAStartup($101, WSAData); //  <<- erste Fehlermeldung

finalization  //  <<- zweite Fehlermeldung
  WSACleanup;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:

unit uHostNameThread;

interface

uses
  Windows, Classes, Sysutils, Messages;

type
  THostNameThread = class(TThread)
  private
    FHostName, FIP: string;
  public
    constructor Create(IP: string; CBOnTerminateProc: TNotifyEvent);
    property HostName: string Read FHostName;
  protected
    procedure Execute; override;
  end;


implementation

uses
  Winsock;

{ THostNameThread }

constructor THostNameThread.Create(IP:string; CBOnTerminateProc: TNotifyEvent);
begin
  inherited Create(true);
  FreeOnTerminate := True;
  OnTerminate := CBOnTerminateProc;
  Resume;
end;

procedure THostNameThread.Execute;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
begin
  SockAddrIn.sin_addr.s_addr := inet_addr(PAnsiChar(FIP));
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt <> nil then
   FHostName := StrPas(Hostent^.h_name)
  else
   FHostName := '';
end;

var
  WSAData: TWSAData;

initialization
  WSAStartup($101, WSAData);

finalization
  WSACleanup;
  
end.

//-- Code in der Mainform

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure OnTerminateProc(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnTerminateProc(Sender: TObject);
begin
  ShowMessage(THostNameThread(Sender).HostName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  THostNameThread.Create('127.0.0.1', OnTerminateProc);
end;                    

1:
2:

var
  WSAData: TWSAData;