Question

任何时候我尝试编译此代码时，都会收到错误消息 - ＆gt;类型不匹配。为什么呢？

使用相同的“nil”调用第一个变体，编译器没有问题，但最后一个？

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
DefaultGroupName=MyApp
OutputDir=.

[Code]
function URLDownloadToCacheFile(const lpUnkcaller: variant; const szURL: PAnsiChar; var szFileName: PAnsiChar; const cchFileName: DWORD; const dwReserved: DWORD; IBindStatusCallback: variant): HRESULT; external 'URLDownloadToFileW@Urlmon.dll stdcall';

function InitializeSetup(): Boolean;
var
  szFileName, szURL : PAnsiChar;
  ErrorCode : HRESULT;
  MAX_PATH : DWORD;
begin
  szURL := 'http://fs2.directupload.net/images/user/150607/x3sugvzy.jpg';
  MAX_PATH := 512;
  SetLength(szFileName, MAX_PATH + 1);
  ErrorCode := URLDownloadToCacheFile(null, szURL, szFileName, MAX_PATH, 0, null);
end;

以这种方式改变了代码：

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
DefaultGroupName=MyApp
OutputDir=.

[Code]
function URLDownloadToCacheFile(const lpUnkcaller: variant; const szURL: AnsiString; var szFileName: String; const cchFileName: DWORD; const dwReserved: DWORD; IBindStatusCallback: variant): HRESULT; external 'URLDownloadToFileW@Urlmon.dll stdcall';

function InitializeSetup(): Boolean;
var
    szFileName : String;
    szURL : AnsiString;
    ErrorCode : HRESULT;
    MAX_PATH : DWORD;
begin
    szURL := 'http://fs2.directupload.net/images/user/150607/x3sugvzy.jpg';
    MAX_PATH := 512;
    SetLength(szFileName, 513);
    ErrorCode := URLDownloadToCacheFile(null, szURL, szFileName, MAX_PATH, 0, null);
    MsgBox(szFileName,mbConfirmation, MB_OK);
end;

Answer 1

最初的问题是您将nil传递给Variant类型的参数。 Pascal脚本中Variant类型的空值为NULL。

但是，你的原型需要改变。在使用函数的Unicode变体时，需要使用Unicode数据类型，因此不能在那里使用PAnsiChar类型。下一个问题是您用于接口类型参数的Variant类型。那不行。您可以在那里使用IUnknown类型，因为lpUnkcaller参数是指向此类型的指针，而pBSC的类型为IBindStatusCallback，IUnknown继承。最后一个问题是MSDN在这里是错误的。 szURL根据LPCTSTR类型的标头文件而非LPCSTR。 Unicode变体原型在SDK 8.1 urlmon.h头文件中看起来像这样（由我格式化和评论）：

STDAPI URLDownloadToCacheFileW(
    _In_opt_ LPUNKNOWN,
    _In_ LPCWSTR, // <- this is wrong on MSDN; this type would have to be LPCSTR here
    _Out_writes_(cchFileName) LPWSTR,
    DWORD cchFileName,
    DWORD,
    _In_opt_ LPBINDSTATUSCALLBACK
);

所以，你的脚本可能是这样写的（它也应该支持Inno Setup的ANSI版本，但我还没有在那里测试过）：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
const
  MAX_PATH = 260;
  S_OK = $00000000;

#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

function URLDownloadToCacheFile(lpUnkcaller: IUnknown; szURL: string; szFileName: string;
  cchFileName: DWORD; dwReserved: DWORD; pBSC: IUnknown): HRESULT;
  external 'URLDownloadToCacheFile{#AW}@urlmon.dll stdcall';

function TryDownloadToCache(const URL: string; out FileName: string): Boolean;
begin
  SetLength(FileName, MAX_PATH);
  Result := URLDownloadToCacheFile(nil, URL, FileName, Length(FileName), 0, nil) = S_OK;
end;

function InitializeSetup: Boolean;
var
  FileName: string;
  ErrorCode: Integer;
begin
  Result := True;

  if TryDownloadToCache('http://i.imgur.com/wKCsei6.png', FileName) then
    ShellExec('', FileName, '', '', SW_SHOW, ewNoWait, ErrorCode)
  else
    MsgBox('Downloading failed.', mbError, MB_OK);
end;

Inno Setup URLDownloadToCacheFile

1 个答案: