Finde IP nummer

ja!

Hvordan??? (Jeg tror mere det var det, spørsmålet gik på...)

jeg aner sq da ikke hvordan *G* men man kan ALT med delphi...*sorry*

liquid> hvis man kan alt med Delphi kan du så fortælle mig hvordan man får den til at tage opvasken - det er ikke lykkeds for mig endnu  :-)

Hmm, ja det gik mere på hvordan man gør, der er klart mere end 15 points at hente...

Jeg har haft den samme problem og fandt en delvis løsning. Du kan hente IP nummeret fra registrerings-basen via Delphi (faktisk kan du hente en del nyttige oplysninger derfra). Problemet er bare at det ikke er den samme adresse du skal hente IP nummeret fra hvis du bruger windows 98 frem for windows NT...

ZeroHero

Kan man hente det eksterne IP der?

prøv dem her :

function GetLocalHostName: string;
var
  szHostName: array[0..128] of char;
begin
  if gethostname(szHostName, 128) = 0 then
    Result:= szHostName
  else
    Exception.Create( \'Unable to resolvve local host name !!!\');

end;


function GetLocalHostAddress: string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  szHostName: array[0..128] of char;
begin
  if gethostname(szHostName, 128) = 0 then
    begin
      HostEnt:= gethostbyname(szHostName);
      if HostEnt = nil then
        Result:= \'\'
      else
        begin
          SockAddrIn.sin_addr.S_addr:= longint(plongint(HostEnt^.h_addr_list^)^);
          Result:= inet_ntoa(SockAddrIn.sin_addr);
        end;
    end
  else
    Exception.Create( \'Unable to resolvve local host address !!!\');
end;


Jens B

Til Borrisholt: Du skriver at man skal bruge \"if gethostname(szHostName, 128) = 0 then\". Er den gethostname i en speciel unit, eller noget?

Ja den ligger i WinSock.pas

Jens B

Tak :)

Er det en fil der følger med delphi?
Jeg har ikke delphi inde for tiden, men vil se om jeg ikke kan få det lagt ind i dag.

Jan

Ja !

Jens B

{*******************************************************}
{                                                      }
{      Borland Delphi Runtime Library                  }
{      Win32 sockets API Interface Unit                }
{                                                      }
{      Copyright (C) 1996,99 Inprise Corporation      }
{                                                      }
{*******************************************************}

Nu har jeg fået det installeret, kan i ikek lige svare mig på hvordan jeg inkluder denne winsock.pas fil ?

Koden kan den placeres overalt, eller på en knap?

Næsten øverst står der uses og der skal du skrive winsock

eks.

uses windows, sysutils, dialogs, forms, winsock;

pellelil> du kan da sagtens f.eks. få delphi til at styre en opvaskemaskine, alt kan lade sig gøre med det rette interface.

Ok, hvor skal koden så placeres ?

Svar fra borrisholt 
04/12 2000 09:21:50 

cybermike> Jeg har ingen opvaskemaskine, så det var der den store opgave lå :-)

pellelil>Pointen var at alt er muligt med det rette interface¨

mora>der er ikke nogen der heder eksterne ip adresser og interne ip adresse.

windows ser det som dels modemets ip adresse og netkortets adresse. hvis du bar skal have adressen kan du jo bruge winipcfg   

eksterne ip: Den verden ser
Interne ip: Den der ses på LAN nettet

mora> Du skriver at den eksterne er den verden ser og den interne er den der ses på LAN netværket, men den ip du ser på LAN netværket er da den samme som den verden ser, computeren får jo ikke en ip som ses af verden og en anden ip for dem der er på LAN netværket

Min computer på LAN har 192.168.1.2
Men den IP der går ind til LAN fra WAN kan af gode grunde ikke være 192.168.1.2, vel?