Delphi中的Maxmind geoip查询

Question

我正在查询 geoip 数据库（城市、国家、组织）以获取一堆 IP 地址。 看了http://www.maxmind.com/download/geoip/api/pascal/Sample.pas，修改了一下：

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;

但我在超过 50'000 个查询中没有得到任何结果。 我知道在使用 csv 时必须操纵地址，但我有二进制数据库版本。 我错过了什么？

谢谢！

Answer 1

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

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

1.批量替换：

要修复这个GeoIP.pas 单元，首先，替换所有出现的：

 PChar  -> PAnsiChar
 string -> AnsiString

2.小改动：

完成替换后，将第 93 行的 AnsiString 类型改回 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;