Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#3

Re: IP in einer IP-Range finden

  Alt 10. Jan 2010, 18:09
Wenn du die Adressen mit der Funktion inet_addr() in einen 32-Bit Wert umwandelst, dann kannst du den Bereich direkt abprüfen:
Delphi-Quellcode:
uses ...,WinSock;
var
  ip, ip_start, ip_end: u_long;
begin
  ip := inet_addr(ip_string);
  // wichtig: prüfen, ob inet_addr() einen Fehler geliefert hat
  
  ip_start := inet_addr(...);

  ...
  if (ip >= ip_start) and (ip <= ip_end) then
    ShowMessage('bingo');
fork me on Github
  Mit Zitat antworten Zitat