2

Delphiプログラムでは、DLLを使用して外部実行可能ファイルを制御しています。DLLはVisualC++で記述されています。C ++では、DLLを使用するコードは次のとおりです。

// defining pointer's type to a function compatible with 'launcher' function:
typedef int (WINAPI* PFI_HD_ST_N)(HDC, LPCSTR, int);
…
…
HINSTANCE m_hiDLLCTRL;  // handle to DLL instance
PFI_HD_ST_N pfStart;    // pointer to function that starts external program

// initialization
m_hiDLLCTRL = NULL;
pfStart = NULL;

// links DLL dynamically
m_hiDLLCTRL = LoadLibrary(“ExtProgCTRL.dll”);

// if DLL has been loaded
If (m_hiDLLCTRL)
    // I get the address to funcion that launches ExtProg
    pfStart = ( PFI_HD_ST_N) GetProcAddress( m_hiDLLCTRL, “ExtProgStart” );
// launches external program
If ( pfStart )
    // hWnd is handle to window where I want do draw 
    pfStart -> ( GetDC ( hWnd ), “C:\\Programs\\ExtProg”, 1 );

私はDelphiに同等のコードを持っています：

private
    DLLHandle: THandle;
    XInt: function: Integer: cdecl;

...
implementation
...
...
DLLHandle := LoadLibrary('ExtProgCTRL.dll');
if DLLHandle <> 0 then
begin
    @XInt := GetProcAddress(DLLHandle, ''ExtProgStart);
    if @XInt <> nil then
    begin
        MessageDlg('Function ExtProgStart loaded !', mtError, mbOKCancel, 0);
        ...
        ...
    end;
end;

正しく動作しているようですが、外部プログラムを起動するための最後の命令のDelphiコードが見つかりません...

pfStart -> ( GetDC ( hWnd ), “C:\\Programs\\ExtProg”, 1 );

Delphiでは何ですか？

私は変わりました：

private
    DLLHandle: THandle;
    XInt: function(DC: HDC; Text: PAnsiChar; SomeInt: Integer); Integer: cdecl;

...
implementation
...
retval: Integer;

DLLHandle := LoadLibrary('ExtProgCTRL.dll');
if DLLHandle <> 0 then
begin
    @XInt := GetProcAddress(DLLHandle, ''ExtProgStart);
    if @XInt <> nil then
    begin
        MessageDlg('Function ExtProgStart loaded !', mtError, mbOKCancel, 0);
       retval := XInt(GetDC(hWnd), 'C:\Programs\ExtProg', 1);
    end;
end;

しかし今、私は最後の命令を持っています：retval：= XInt ...次のエラー：DCCエラー：'（'期待されますが'）'が見つかりました（hWndの後の括弧）

4

1 に答える 1

3

XInt次のように宣言する必要があります。

XInt: function(DC: HDC; Text: PAnsiChar; SomeInt: Integer): Integer; stdcall;
  1. C++コードの定義に一致するパラメーターリストを宣言する必要があります。
  2. パラメータの意味のある名前はわかりませんが、指定できると思います。
  3. C ++コードは、DelphiWINAPIで一致する呼び出し規約を指定します。stdcall

そして、あなたはそれをこのように呼ぶことができます：

retval := XInt(GetDC(hWnd), 'C:\Programs\ExtProg', 1);
于 2012-05-25T12:21:36.373 に答える