feste IP verändert ?

[khh]

Zitat von s.h.a.r.k:

Denkbar wäre es unter Umständen vielleicht, dass der DHCP-Server das anhand der MAC-Adresse verteilt. Direkt nachschauen kannst du nicht?

nee, kann ich im Moment leider nicht,
ich lese die IP mit folgender Routine aus:

Code:

function ipauslesen():string;


var

  rSockVer   : WordRec;

  aWSAData   : TWSAData;

  szHostName : array[0..255] of Char;

  pHE        : PHostEnt;

  sIP        : String;

begin

  // WinSock Version 1.1 initialisieren

  rSockVer.Hi := 1;

  rSockVer.Lo := 1;

  WSAStartup(Word(rSockVer), aWSAData );

  try

    FillChar(szHostName, SizeOf(szHostName), #0);

    GetHostName(szHostName, SizeOf(szHostName));

    pHE := GetHostByName(szHostName);

    if Assigned(pHE)

      then with pHE^ do

        sIP := Format(cTxtIP,

                [Byte(h_addr^[0]), Byte(h_addr^[1]),

                 Byte(h_addr^[2]), Byte(h_addr^[3])]);

  finally

    WSACleanup;

  end;

  result:= sIP;

end;