Question

我在Windows 10中使用西雅图。

我尝试打印公共IP地址和网关地址。

最后一行发生访问冲突。

当我删除第1行时效果很好。

uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Win.ComObj, Vcl.StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, winapi.iphlpapi, winapi.iptypes, winapi.winsock;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  _IPAdapterAddresses: PIP_ADAPTER_ADDRESSES;
  _SizePointer: Integer;
begin
  Label2.Caption := Label2.Caption + ' ' + IdHTTP1.Get'http://ipinfo.io/ip'); // line 1

  _IPAdapterAddresses := AllocMem(_SizePointer);

  GetAdaptersAddresses(2, 128, nil, _IPAdapterAddresses, @_sizepointer);

  Label1.Caption := Label1.Caption + ' ' + string(inet_ntoa(_IPAdapterAddresses^.FirstGatewayAddress.Address.lpSockaddr.sin_addr)); // access violation
end;

当我按照以下方式修改最后一行时效果很好。

  Label1.Caption := {Label1.Caption + ' ' + }string(inet_ntoa(_IPAdapterAddresses^.FirstGatewayAddress.Address.lpSockaddr.sin_addr));
end;

Answer 1

_IPAdapterAddresses := AllocMem(_SizePointer);

此时_SizePointer是未初始化的变量。它的价值是不确定的。谁知道你分配了多少内存？当然你不是。由于该值是不确定的，因此代码中的任何更改都可能导致使用不同的值。

GetAdaptersAddresses(2, 128, nil, _IPAdapterAddresses, @_sizepointer);

您无法检查此通话的返回值。所以你不知道它是否成功。如果呼叫失败，那么您没有理由期望_IPAdapterAddresses包含任何使用内容。无论如何，您可能没有为_IPAdapterAddresses分配足够的内存。

最重要的是，你已经分配了堆内存并且无法解除分配，从而泄漏它。

您正在寻找以下内容：

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Winapi.IpHlpApi,
  Winapi.IpTypes,
  Winapi.WinSock,
  Winapi.Windows;

const
  GAA_FLAG_INCLUDE_GATEWAYS = $0080;

procedure Main;
var
  Addresses: PIP_ADAPTER_ADDRESSES;
  OutBufLen: ULONG;
  Retval: ULONG;
begin
  OutBufLen := 15*1024; // MSDN recommendation is to use a 15kB buffer
  GetMem(Addresses, OutBufLen);
  try
    Retval := GetAdaptersAddresses(AF_INET, GAA_FLAG_INCLUDE_GATEWAYS, nil, Addresses,
      @OutBufLen);
    if Retval = ERROR_BUFFER_OVERFLOW then
    begin
      ReallocMem(Addresses, OutBufLen);
      Retval := GetAdaptersAddresses(AF_INET, GAA_FLAG_INCLUDE_GATEWAYS, nil, Addresses,
        @OutBufLen);
    end;
    if Retval <> ERROR_SUCCESS then
      RaiseLastOSError(Retval, '');
    Writeln(inet_ntoa(Addresses^.FirstGatewayAddress.Address.lpSockaddr.sin_addr));
  finally
    FreeMem(Addresses);
  end;
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

通过奇怪的修改阻止此访问冲突的原因是什么？

1 个答案: