如何在 Pascal 中获取 IP 地址

Question

我在尝试查看 IP 地址并在消息框中显示时遇到这两个错误 错误

如下所示

[dcc32 错误] Unit1.pas(38): E2010 不兼容的类型：“PAnsiChar”和 'PWideChar' =>错误1

​​和

[dcc32 错误] Unit1.pas(40): E2010 不兼容的类型：“string”和 '字节数组[1..1024]' =>错误2

我可以在 C/C++ 中做到这一点，但我想在 Delphi 中尝试一些新的东西

我的源代码看起来像这样

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Wininet, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
    hInet: HINTERNET;
    hFile: HINTERNET;
    buffer: array[1..1024] of byte;
    bytesRead: DWORD;
    url : String;

begin
  url := 'https://icanhazip.com';
  hInet := InternetOpen(PChar(application.title),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenUrlA(hInet, PChar(url), nil, 0, 0, 0); //Error 1
  InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead); // Error 2
  showmessage(buffer);

end;

end.

请问我做错了什么？

编辑

好的，InternetOpenUrl工作了，但是，它仍然在showmessage（缓冲区）上给我错误

代码现在看起来像这样

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Wininet, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
    hInet: HINTERNET;
    hFile: HINTERNET;
    buffer: array[1..1024] of byte;
    bytesRead: DWORD;
    url : String;

begin
  url := 'https://icanhazip.com';
  hInet := InternetOpen(PChar(application.title),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenUrl(hInet, PChar(url), nil, 0, 0, 0);
  InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead);
  showmessage(buffer);

end;

end.

Edit2

我的代码看起来像现在这个

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Wininet, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
    hInet: HINTERNET;
    hFile: HINTERNET;
    buffer: String;
    bytesRead: DWORD;
    url : String;
    szMessage : String;
    i : integer;


begin
  //url := 'https://icanhazip.com';
  hInet := InternetOpen(PChar(application.title),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenUrl(hInet, PChar('https://icanhazip.com'), nil, 0, 0, 0);
  InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead);

  //showmessage(buffer);
  Label1.Caption := buffer;

end;

end.

Answer 1

第一个错误发生是因为您调用了该函数的 AnsiChar 版本。

使用 InternetOpenUrl 而不是 InternetOpenUrlA。

第二个发生在您期望的下面一行。 ShowMessage 需要一个字符串，而不是字节数组。

编辑：
要从字节数组中获取字符串并传递给 ShowMessage，您需要知道字节以什么编码发送。假设是 UTF-8，转换可以简单地完成：

ShowMessage(TEncoding.UTF8.GetString(Slice(buffer, bytesRead)))

编辑 2：
好吧，对于 XE8 你还需要做更多的工作。

procedure TForm1.Button1Click(Sender: TObject);
  var
    hInet: HINTERNET;
    hFile: HINTERNET;
    buffer: TBytes;
    bytesRead: DWORD;
    url : String;

begin
  url := 'https://icanhazip.com';
  hInet := InternetOpen(PChar(application.title),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenUrl(hInet, PChar(url), nil, 0, 0, 0);
  SetLength(buffer, 1024);
  InternetReadFile(hFile,@buffer[0],Length(buffer),bytesRead);
  showmessage(TEncoding.UTF8.GetString(buffer, 0, bytesRead));    
end;

Answer 2

在 C/C++ 中，您通常使用 NUL 结尾的字符串 - 并自己分配存储空间来保存该字符串。这就是您在代码中使用 BYTE 数组所做的事情。

在 Delphi 中，string 是一种本机类型，而不仅仅是指向 NUL 终止字符数据的指针。

从您提供的错误消息来看，错误发生在对 ShowMessage 的调用上，而不是在对 InternetReadFile 的调用上。

您需要将字符串变量传递给 ShowMessage。

您可以尝试这样做：

var
  szMessage: String;
  i: Integer;

  SetLength(szMessage, bytesread);
  for i =1 to bytesread do
    szMessage[i]:=buffer[i-1];
  ShowMessage(szMessage);

有一些方法可以更紧凑地做到这一点，但作为最近从 C++ 转向主要使用 Delphi 的人，我认为以这种方式查看操作有助于理解两种语言之间的差异。