使用回调从Inno Setup调用C#DLL

时间:2014-12-18 15:17:14

标签: c# dll callback inno-setup dllexport

我有一个正在运行的Inno Setup脚本,其中我使用了Sherlock Software的innocallback.dll。

此DLL包装了我的一个过程,以便它可以传递给C#DLL。

我不想使用这个DLL,我想直接调用我导出的C#方法并将回调过程传递给它。

我的问题是:

如何将我的Inno安装程序(@mycallback)传递给我的C#DLL,以便我可以将其用作我的delegate / UnmanagedFunctionPointer

正如我所说,这段代码有效,但我想尽可能少使用外部DLL。

这是我的代码:

Inno设置脚本

type
  TTimerProc=procedure();
  TProgressCallback=procedure(progress:Integer);
    
function WrapProgressProc(callback:TProgressCallback; paramcount:integer):longword;
  external 'wrapcallback@files:innocallback.dll stdcall';

function Test(callback:longword): String;
  external 'Test@files:ExposeTestLibrary.dll stdcall';

var
  endProgram : Boolean;

procedure mycallback(progress:Integer);
begin
  MsgBox(IntToStr(progress), mbInformation, MB_OK); 
  if progress > 15 then
  begin
    endProgram := True;
  end
end;
  
function InitializeSetup:boolean;
var
  progCallBack   : longword;
  callback       : longword;
  msg            : longword;
  msg2           : widestring;
begin
  endProgram := False;
  progCallBack:= WrapProgressProc(@mycallback,1); //Our proc has 1 arguments
  Test(progCallBack);
  result:=true;
end;

这是我的C#代码

public class TestClass
{
    [UnmanagedFunctionPointer(CallingConvention.StdCall)]
    public delegate void ReportProgress(uint progress);

    public static ReportProgress m_reportProgess;
    static uint m_iProgress;
    
    [DllExport("Test", CallingConvention = CallingConvention.StdCall)]
    static int Test(ReportProgress rProg)
    {
        m_iProgress = 0;
        m_reportProgess = rProg;
        System.Timers.Timer pTimer = new System.Timers.Timer();
        pTimer.Elapsed += aTimer_Elapsed;
        pTimer.Interval = 1000;
        pTimer.Enabled = true;
        GC.KeepAlive(pTimer);
        return 0;
    }

    static void aTimer_Elapsed(object sender, System.Timers.ElapsedEventArgs e)
    {
        m_iProgress++;
        m_reportProgess(m_iProgress);
    }
}

2 个答案:

答案 0 :(得分:4)

由于您无法在Inno Setup中使用您选择的调用约定来定义回调过程,因此无法放弃包装InnoCallback库的使用,也无法使用register调用约定定义回调( C#库中特定于Delphi编译器的那个。

由于此限制,您必须使用外部库,它将Inno Setup的回调方法包装到具有库可以使用的调用约定的函数中(InnoCallback使用stdcall)。

因此,如果您使用支持Delphi的register调用约定的语言编写库,那么您所要求的就是可能的。出于好奇,在Delphi中你可以编写例如:

library MyLib;

type
  TMyCallback = procedure(IntParam: Integer; StrParam: WideString) of object;

procedure CallMeBack(Callback: TMyCallback); stdcall;
begin
  Callback(123, 'Hello!');
end;

exports
  CallMeBack;

begin
end.

然后在Inno Setup中(没有任何包装库):

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

[Files]
Source: "MyLib.dll"; Flags: dontcopy
[Code]
type
  TMyCallback = procedure(IntParam: Integer; StrParam: WideString);

procedure CallMeBack(Callback: TMyCallback);
  external 'CallMeBack@files:mylib.dll stdcall';

procedure MyCallback(IntParam: Integer; StrParam: WideString);
begin
  MsgBox(Format('IntParam: %d; StrParam: %s', [IntParam, StrParam]),
    mbInformation, MB_OK);
end;

procedure InitializeWizard;
begin
  CallMeBack(@MyCallback);
end;

答案 1 :(得分:1)

使用Inno Setup 6,内置的CreateCallback function与InnoTools InnoCallback库中的WrapCallback函数具有相同的作用。

因此您现在可以这样做:

Test(CreateCallback(@mycallback));