GeoIP nur Error

[Klaus01]

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