Guten Morgen,
wie wäre es, wenn Du einmal den Rückgabewert von GetCountry auswertest?
Delphi-Quellcode:
function TForm1.LookupCountry(
IP :
String):
string;
var
GeoIP: TGeoIP;
GeoIPCountry: TGeoIPCountry;
begin
GeoIP := TGeoIP.Create('
GeoIP.dat');
try
returnCode := GeoIP.GetCountry(
IP, GeoIPCountry);
if returnCode = GEOIP_SUCCESS
then
begin
Result := GeoIPCountry.CountryName;
end
else
begin
Result := '
Error ' + IntToStr(returnCode);
end;
finally
GeoIP.Free;
end;
end;
Von welchem Typ returnCode sein muss can ich Dir nicht sagen
sollte aber in der Doku zu finden sein.
Ich nehme an es ist Byte oder Integer.
Grüße
Klaus