[DELPHI] Hostname

[Cypher87]

Ik heb het volgende stukje code:

Delphi:

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, wsocket, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    server: TIdTCPServer;
    procedure serverConnect(AThread: TIdPeerThread);
    procedure serverExecute(AThread: TIdPeerThread);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetHostName(IP: string);
    procedure WSocket1DnsLookupDone(Sender: TObject;
  Error: Word);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Procedure TForm1.WSocket1DnsLookupDone(Sender: TObject;
  Error: Word);
begin
   if error = 0 then
   begin
     Label1.Caption := 'IP: ' + TWSocket(Sender).DnsResult;
     exit;
   end
   else
        Label1.Caption := 'IP: ' + inttostr(error);
end;
 
procedure TForm1.GetHostName(IP: string);
var
  WSocket1: TWSocket;
begin
  Wsocket1 := TWSocket.Create(form1);
  WSocket1.OnDnsLookupDone := Form1.WSocket1DnsLookupDone;
  Wsocket1.ReverseDnsLookup(IP);
end;
 
procedure TForm1.serverConnect(AThread: TIdPeerThread);
begin
  GetHostName('127.0.0.1');
end;
 
procedure TForm1.serverExecute(AThread: TIdPeerThread);
begin
  form1.caption:=AThread.Connection.LocalName;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetHostName('127.0.0.1');
end;

Nou zit ik met het probleem dat wanneer ik de procedure GetHostName() aanroep vanuit ServerConnect het programma nooit aan WSocket1DnsLookupDone toe komt. Terwijl wanneer ik dezelfde procedure aanroep vanuit Button1Click() er niks aan de hand is. Kan iemand mij vertellen wat ik hier mogelijk fout doe?

[LordLarry]

Dat component doet aan Caching?

[Rum]

Is dit alle code? Die server wacht op client-verbindingen en zal dan het onConnect-event opwekken. Dat stukje code zal dus niets doen zolang er geen client verbinding maakt.Het is dan ook logisch dat je alleen bij button1click de DNSLookup uitvoert.

[ Voor 64% gewijzigd door Rum op 16-01-2006 14:00 ]

[Cypher87]

Ik weet ook wel dat er een client verbinding moet maken, maar dat is dus het probleem. Als de client verbinding maakt wil ik de hostname hebben van de client. Ik dacht dit dus even simpel zo te kunnen doen maar dat werkt dus niet. Dit is trouwens ook niet het eindprogramma, maar is alleen even om te testen.

[Rum]

Ik heb ff wat voor je gemaakt. Ik neem aan dat dit is wat je wilt?

code:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, wsocket, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  ExtCtrls, IdTCPConnection, IdTCPClient, IdStack;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton; 
    server: TIdTCPServer;
    IdTCPClient1: TIdTCPClient;
    procedure serverConnect(AThread: TIdPeerThread); 
    procedure serverExecute(AThread: TIdPeerThread);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations } 
  public

  end;
  
var
  Form1: TForm1; 

implementation
  
{$R *.dfm}

procedure TForm1.serverConnect(AThread: TIdPeerThread);
begin
  label1.caption := GStack.WSGetHostByAddr(athread.Connection.Socket.Binding.PeerIP);
end;

procedure TForm1.serverExecute(AThread: TIdPeerThread);
begin
  form1.caption:=AThread.Connection.LocalName; 
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Connect(100);
end;

end.

GStack maakt deel uit van idStack. Als je die dus aan je uses toevoegt, kun je zo je HostName bij je peer-IP ophalen.

[ Voor 6% gewijzigd door Rum op 16-01-2006 17:00 ]

[Cypher87]

Works like a charm.

Bedankt!