ip-adresse

Jeg har en til VB (et api kald) hvis det kan bruges ??

//akj

prøv

Dooh læste dit spørgsmål forkert, tænkte på pc'ens navn.

Nåh, men jeg kan da fortæller at whis du bruger winsock (tcp/ip ocx) kontrollen har den en property der hedder LocalIp

VB eks:
MsgBox Winsock1.LocalIP

Håber du kan bruge det
//akj

ActiveX'ens filnavn er Mswinsck.ocx.

//akj

prøver powersock

kom med et svar

Du fik det til at virke ??

//akj

Fra delphi help:

Declaration
function GetLocalAddress: String;

Description
The GetLocalAddress method will return the local IP address formatted for sending to an FTP server when initiating a data transfer.

Notes:
The string returned by this function is not a standard dotted IP address in xxx.xxx.xxx.xxx format.
The purpose of GetLocalAddress is solely for communication with an FTP server



*****
Du skal bruge:

uses WinSock;
   
var  Form1: TForm1;
    wsaData : TWSAData;
   
implementation
    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin  WSAStartup( 257, wsaData );
      Edit1.Text := 'Host: ' + GetHostByName(NIL)^.h_name +
        ' IP : ' + iNet_ntoa(PInAddr(GetHostByName(NIL)^.h_addr_list^)^);
      WSACleanup;
    end;
    end.

Lidt lettere at se

procedure TForm1.Button1Click(Sender: TObject);
begin
WSAStartup( 257, wsaData );
showmessage(
'Host: ' + GetHostByName(NIL)^.h_name +#13#10+
'IP : ' + iNet_ntoa(PInAddr(GetHostByName(NIL)^.h_addr_list^)^));
WSACleanup;
end;

uses
winsock;

procedure TForm1.FormCreate(Sender: TObject);
var
wVersionrequested : word;
wsaData : TWSAData;
begin
wVersionrequested:=MAKEWORD(1,1);
WSAStartup(wVersionrequested,wsaData);

end;

procedure TForm1.Button1Click(Sender: TObject);

var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;

begin
getHostName(@s,128);
p:=GetHostByName(@s);
memo1.Lines.add('Hostname  -> '+p^.h_Name);
p2:=iNet_ntoa(pinaddr(p^.h_addr_list^)^);
memo1.Lines.Add('IP-adresse -> '+p2);

end;

end.

Dette skulle give dig pc'ens IP og hostname.....

Man skal også lige huske at lukke WinSock igen......
Dette gøres med følgende

WSACleanup;

waxx77 -> det gjorde jeg også i min kode

dkn -> Sorry, Jeg fyrrede bare koden af..... så det godt bag efter :(

okay :)