Einzelnen Beitrag anzeigen

SyntaxXx

Registriert seit: 14. Dez 2008
328 Beiträge
 
Delphi XE4 Architect
 
#1

GeoIP nur Error

  Alt 18. Jul 2010, 22:13
Hi zusammen, und zwar möchte ich in meinem Progamm das Land einer IP anzeigen lassen.
Sprich ich gebe in meinem Programm eine IP an und über GeoIP möchte ich mir das Land ausgeben lassen.

Da ich im mom leider nicht so viel geld hab habe ich die Free Version genommen.

Doch leider bekomme ich immer nur "Error" ausgegeben.

Folgende Funcion habe ich benutzt:

Delphi-Quellcode:
function TForm1.LookupCountry(IP : String): string;
var
   GeoIP: TGeoIP;
   GeoIPCountry: TGeoIPCountry;
begin
  GeoIP := TGeoIP.Create('GeoIP.dat');
  try
    if GeoIP.GetCountry(IP, GeoIPCountry) = GEOIP_SUCCESS then
    begin
      Result := GeoIPCountry.CountryName;
    end
    else
    begin
      Result := 'Error';
    end;
  finally
    GeoIP.Free;
  end;
end;
Daraus schließe ich jetzt einfach mal, das die Datenbank von GeoIP, welche ich mir geladen hab die IP Range nicht kennt, also nicht weiß, aus welchem Land die IP kommt.

Könnt ihr mir vielleicht weiter helfen?

Habe es mit meiner IP versucht, welche ja eigendlich in jeder IP Range drin stehen müsste.
  Mit Zitat antworten Zitat