德尔菲Maxmind geoip查询

我正在查询地理数据库（城市，国家，组织）的一堆IP地址。我看着http://www.maxmind.com/download/geoip/api/pascal/Sample.pas和修改了它：德尔菲Maxmind geoip查询

function LookupCountry(IPAddr: string) : string; 
var 
    GeoIP: TGeoIP; 
    GeoIPCountry: TGeoIPCountry; 
begin 
    GeoIP := TGeoIP.Create('C:\Users\Albert\Documents\RAD Studio\Projects\Parser\geoip\GeoIP.dat'); 
    try 
    if GeoIP.GetCountry(IPAddr, GeoIPCountry) = GEOIP_SUCCESS then 
    begin 
     Result := GeoIPCountry.CountryName; 
    end 
    else 
    begin 
     Result := IPAddr; 
    end; 
    finally 
    GeoIP.Free; 
    end; 
end;

，但我得到超过50000查询没有结果。我知道在使用csv时必须处理地址，但我有二进制db版本。我错过了什么？

谢谢！

来源

2012-08-13 asg2012

什么返回你'GeoIP.GetDatabaseInfo'？ – TLama 2012-08-13 13:36:43

不幸的是：http://s13.postimage.org/r0ihjezev/geoipdbinfo.png – asg2012 2012-08-13 13:42:35

而且你有德尔福2009+和使用['a unit']（http://www.maxmind.com/download/geoip/api /pascal/GeoIP.pas）是在Delphi版本之前创建的。所以它看起来像是ANSI/Unicode不匹配。 – TLama 2012-08-13 13:45:46

您遇到了众所周知的ANSI/Unicode不匹配问题。您使用的是Delphi版本（版本2009+）和the unit的Unicode版本，它是在Delphi版本的Delphi发布之前发布的。

在2009年以下的德尔福（非Unicode）类型如string或PChar映射到这些类型的ANSI版本，而从Delphi 2009到Unicode的类型。

1质量取代：

为了解决这个问题GeoIP.pas单元，作为第一，替换的所有出现：

PChar -> PAnsiChar 
string -> AnsiString

2.微小变化：

完成替换后，请更改AnsiString型线93回string类型：

92 public 
93 constructor Create(const FileName: AnsiString); // <- string 
94 ...

，并做也行138相同的：

138 constructor TGeoIP.Create(const FileName: AnsiString); // <- string 
139 begin 
140 inherited Create;

来源

2012-08-13 13:53:11 TLama

是的，这使得伎俩 – asg2012 2012-08-13 14:06:58

没有*所有*发生。例如，对'inet_addr'的调用不应该改变，并且在任何*情况下可能不需要将'string'改为'AnsiString'。 – 2012-08-13 15:34:37

@Rob，是的，没错。除了'inet_addr'外，所有的方法参数都不需要改变。随意发布您的答案...我会删除这一个。但是恐怕如果不发布新版本的单元，这种描述就不那么容易了。 – TLama 2012-08-13 15:39:23

德尔菲Maxmind geoip查询

回答

相关问题