被一个com搞的晕头转向。。。。

[draculamx]

有一个com是dll文件，注册，使用，都没问题，但是我用到其中一个函数的时候，始终无法运行。
dll文件，通过“Component”--"Import Component"方式导入，所以自动生成了xxxx_TLB.h和xxxx_TLB.cpp

在xxxx_TLB.h中，有这样一个函数和接口：

//这是我要调用的函数，这个函数的最后一个参数，就是我出问题的地方，它需要下面那个接口的指针
HRESULT   __fastcall EncodeFile(BSTR FileName/*[in]*/, BSTR 
                               OutputFileName/*[in]*/, 
                               BSTR Parameters/*[in]*/, 
                               unsigned ResampleSampleRate/*[in]*/,
                               unsigned Channels/*[in]*/, 
                               double StartPosition/*[in]*/, 
                               double Length/*[in]*/, 
                               double Normalize/*[in]*/, 
                               Bassencoder_tlb::IProgress* ProgressCallback/*[in]*/);

//这是接口
// *********************************************************************//
// Interface: IProgress
// Flags:     (4352) OleAutomation Dispatchable
// GUID:      {C23CF58D-3121-45D2-A0DB-B19F98350D52}
// *********************************************************************//
interface IProgress  : public IDispatch
{
public:
   HRESULT STDMETHODCALLTYPE ProgressCallback(double Progress/*[in]*/); // [201]
};

然后我创建一个窗体，在窗体的头文件 Form1.hpp中，我改写了窗口类的派生关系
将

“class TFormMain : public TForm”

改为

“class TFormMain : public TForm ,public IProgress”

接着我重写了“IProgress ”接口中的“ProgressCallback”函数

HRESULT STDMETHODCALLTYPE TFormMain::ProgressCallback(double Progress)
{
	pb1->Position=(int)(Progress);
	return S_OK;
}

然后我调用这个函数：

EncodeFile(.............(IProgress*)this);

运行结果“Pure virtual function called”。。。。。

我尝试了一些修改
第一种，把重写的函数类改为基类，如下：

HRESULT STDMETHODCALLTYPE IProgress::ProgressCallback(double Progress)
{
	//pb1->Position=(int)(Progress);
	return S_OK;
}

第二种

EncodeFile(.............(IProgress*)this);

改为

EncodeFile(.............this);

两种都不行。。其实这个代码是照着DEMO中，DELPHI的例子来的，DELPHI运行完全没有问题。。。
搞了一天了，不行了，大家帮忙看看。。。

[日立奔腾浪潮微软松下联想]

Delphi的例子是怎样调用的

[draculamx]

delphi的例子，就是和我一样的，或者说，我这代码就是delphi翻译过来的

[日立奔腾浪潮微软松下联想]

既然运行结果不一样，翻译肯定是没有完全一致

[draculamx]

unit Unit1;

interface

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

type
  TForm1 = class(TForm, IProgress)
    Button2: TButton;
    GroupBox1: TGroupBox;
    Button3: TButton;
    Label1: TLabel;
    EditInputFileName: TEdit;
    Button4: TButton;
    EditOutputFileName: TEdit;
    Label2: TLabel;
    Button5: TButton;
    Label3: TLabel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Label4: TLabel;
    EditCommandLine: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    //procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
    function ProgressCallback(Progress: Double): HResult; stdcall;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Uses
    //BASSEncoderLibrary,
    ComObj;

//* Example to call the DLL class directly without COM (requires BASSEncoderLibrary.pas in the Uses list):
{
procedure TForm1.Button9Click(Sender: TObject);
var
    BASSEncodeFileMP3: IBASSEncodeFile;
    Error: HResult;
begin
    //* Acquire the class
    BASSEncodeFileMP3 := BASSEncoderGetFileMP3;
    //* Generate MP3, CBR 320 kbps, 44100 Hz, 2 channels (stereo)
    Error := BASSEncodeFileMP3.EncodeFile(EditInputFileName.Text, EditOutputFileName.Text, '-b 320', 44100, 2, 0, 0, 0, Self);
    if Error <> 0 then begin
        Showmessage('Error: ' + IntToStr(Error));
    end;
end;
}
procedure TForm1.Button7Click(Sender: TObject);
var
    BASSEncodeFileMP3: IBASSEncodeFile;
    Error: HResult;
begin
    //* Acquire the class
    BASSEncodeFileMP3 := CreateComObject(CLASS_TBASSEncodeFileMP3) as IBASSEncodeFile;
    //* Generate MP3, CBR 320 kbps, 44100 Hz, 2 channels (stereo)
    Error := BASSEncodeFileMP3.EncodeFile(EditInputFileName.Text, EditOutputFileName.Text, '-b 320', 44100, 2, 0, 0, 0, Self);
    if Error <> 0 then begin
        Showmessage('Error: ' + IntToStr(Error));
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    BASSEncodeFileOpus: IBASSEncodeFile;
    Error: HResult;
begin
    //* Acquire the class
    BASSEncodeFileOpus := CreateComObject(CLASS_TBASSEncodeFileOpus) as IBASSEncodeFile;
    //* Generate Opus, 320 kbps
    Error := BASSEncodeFileOpus.EncodeFile(EditInputFileName.Text, EditOutputFileName.Text, '--bitrate 320', 0, 0, 0, 0, 0, Self);
    if Error <> 0 then begin
        Showmessage('Error: ' + IntToStr(Error));
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    BASSEncodeFileFLAC: IBASSEncodeFile;
    Error: HResult;
begin
    //* Acquire the class
    BASSEncodeFileFLAC := CreateComObject(CLASS_TBASSEncodeFileFLAC) as IBASSEncodeFile;
    //* Generate FLAC
    Error := BASSEncodeFileFLAC.EncodeFile(EditInputFileName.Text, EditOutputFileName.Text, '--best', 0, 0, 0, 0, 0, Self);
    if Error <> 0 then begin
        Showmessage('Error: ' + IntToStr(Error));
    end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
    BASSEncodeFileOggVorbis: IBASSEncodeFile;
    Error: HResult;
begin
    //* Acquire the class
    BASSEncodeFileOggVorbis := CreateComObject(CLASS_TBASSEncodeFileVorbis) as IBASSEncodeFile;
    //* Generate Ogg Vorbis, 320 kbps
    Error := BASSEncodeFileOggVorbis.EncodeFile(EditInputFileName.Text, EditOutputFileName.Text, '--bitrate 320', 0, 0, 0, 0, 0, Self);
    if Error <> 0 then begin
        Showmessage('Error: ' + IntToStr(Error));
    end;
end;

procedure TForm1.Button8Click(Sender: TObject);
var
    BASSEncodeFileCommandLine: IBASSEncodeFile;
    Error: HResult;
begin
    //* Acquire the class
    BASSEncodeFileCommandLine := CreateComObject(CLASS_TBASSEncodeFileCommandLine) as IBASSEncodeFile;
    //* Encode a MusePack file (replace '{outputfilename}' with specified output file name and convert extension to .mpc)
    Error := BASSEncodeFileCommandLine.EncodeFile(EditInputFileName.Text, ChangeFileExt(EditOutputFileName.Text, '.mpc'), StringReplace(EditCommandLine.Text, '{outputfilename}', '"' + ChangeFileExt(EditOutputFileName.Text, '.mpc') + '"', [rfReplaceAll]), 0, 0, 0, 0, 0, Self);
    if Error <> 0 then begin
        Showmessage('Error: ' + IntToStr(Error));
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    Close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    OpenDialog1.FileName := EditInputFileName.Text;
    if OpenDialog1.Execute then begin
        EditInputFileName.Text := OpenDialog1.FileName;
    end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
    SaveDialog1.FileName := EditOutputFileName.Text;
    if SaveDialog1.Execute then begin
        EditOutputFileName.Text := SaveDialog1.FileName;
    end;
end;

function TForm1.ProgressCallback(Progress: Double): HResult; stdcall;
begin
    ProgressBar1.Position := Round(Progress);
    Result := S_OK;
end;

end.

这是Delphi例子的所有代码，就这些，我觉得我C++ Builder里面的代码和这个应该没有什么出入，但就是运行不了。。

[日立奔腾浪潮微软松下联想]

var
BASSEncodeFileMP3: IBASSEncodeFile;
Error: HResult;
begin
//* Acquire the class
BASSEncodeFileMP3 := CreateComObject(CLASS_TBASSEncodeFileMP3) as IBASSEncodeFile;
//* Generate MP3, CBR 320 kbps, 44100 Hz, 2 channels (stereo)
Error := BASSEncodeFileMP3.EncodeFile(EditInputFileName.Text, EditOutputFileName.Text, '-b 320', 44100, 2, 0, 0, 0, Self);

如果按照这个改写：
IBASSEncodeFile BASSEncodeFileMP3;
HResult Error;
//* Acquire the class
BASSEncodeFileMP3 = (IBASSEncodeFile)CreateComObject(CLASS_TBASSEncodeFileMP3);
//* Generate MP3, CBR 320 kbps, 44100 Hz, 2 channels (stereo)
Error = BASSEncodeFileMP3.EncodeFile(EditInputFileName->Text, EditOutputFileName->Text, "-b 320", 44100, 2, 0, 0, 0, this);

[draculamx]

引用 5 楼 早打大打打核战争 的回复:

var BASSEncodeFileMP3: IBASSEncodeFile; Error: HResult; begin //* Acquire the class BASSEncodeFileMP3 := CreateComObject(CLASS_TBASSEncodeFileMP3) as IBASSEncodeFile; //* Generate MP3, CBR 320 kbps, 44100 Hz, 2 channels (stereo) Error := BASSEncodeFileMP3.EncodeFile(EditInputFileName.Text, EditOutputFileName.Text, '-b 320', 44100, 2, 0, 0, 0, Self); 如果按照这个改写： IBASSEncodeFile BASSEncodeFileMP3; HResult Error; //* Acquire the class BASSEncodeFileMP3 = (IBASSEncodeFile)CreateComObject(CLASS_TBASSEncodeFileMP3); //* Generate MP3, CBR 320 kbps, 44100 Hz, 2 channels (stereo) Error = BASSEncodeFileMP3.EncodeFile(EditInputFileName->Text, EditOutputFileName->Text, "-b 320", 44100, 2, 0, 0, 0, this);

我在一楼就提到过，我就是这么写的。。得到的运行结果是：“Pure virtual function called”。。。。

[draculamx]

我来把问题简化一下吧： CB中，代码如下： 头文件

class TFormMain : public TForm,public IProgress
{
__published:	// IDE-managed Components
	TButton *btn1;
	TProgressBar *pb1;
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall btn1Click(TObject *Sender);
	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
	HRESULT _fastcall ProgressCallback(double Progress);
public:		// User declarations
	__fastcall TFormMain(TComponent* Owner);

};

//---------------------------------------------------------------------------
extern PACKAGE TFormMain *FormMain;

源文件：

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "FormMainUnit.h"

//----------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;


HRESULT _fastcall TFormMain::ProgressCallback(double Progress)
{
	//pb1->Position=(int)(Progress);
	return S_OK;
}


//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
	: TForm(Owner)
{

}

void __fastcall TFormMain::btn1Click(TObject *Sender)
{
    IBASSEncodeFile BASSEncodeFileMP3;
    HResult Error;
    //* Acquire the class
    BASSEncodeFileMP3 = (IBASSEncodeFile)CreateComObject(CLASS_TBASSEncodeFileMP3);
    //* Generate MP3, CBR 320 kbps, 44100 Hz, 2 channels (stereo)
    Error = BASSEncodeFileMP3.EncodeFile(EditInputFileName->Text, EditOutputFileName->Text, "-b 320", 44100, 2, 0, 0, 0, this);
}

CB中的代码就这些，Delphi可以运行的例子，全部代码就在上面4楼，现在的问题就是，CB运行会报错：“Pure virtual function called”。。。。。 搜索了一些相关资料，没有得到答案

[draculamx]

BASSEncodeFileMP3.EncodeFile函数的最后一个参数，是可以设置为NULL的，即不接收进度信息 当最后一个参数为NULL的时候，函数是可以正常运行的，没有任何问题 也就是最后一个参数的问题，到底是什么问题，继承接口重写函数没有覆盖接口“IProgress”的函数？？“IProgress”接口中的那个函数，还是没有被实现？？依然只有一个声明？？但是从代码来看，我先用“TFormMain”继承了“IProgress”接口，然后在“TFormMain”中，定义并实现了和“IProgress”接口中的同名的函数，所以接口“IProgress”的函数声明应该被隐藏了啊。。 况且Delphi的代码也是这么做的，为什么它可以运行？难道Delphi在接口继承方面和CB有不同？？ 最后，我将代码简化以后，在VS2019里面也可以运行的。。。

[ooolinux]

IBASSEncodeFile *BASSEncodeFileMP3; 指针试试呢

[draculamx]

引用 9 楼 ooolinux 的回复:

IBASSEncodeFile *BASSEncodeFileMP3; 指针试试呢

我觉得并不是函数调用的问题，因为我前面说了，把这个函数的最后一个参数，设置为NULL，函数功能和整个程序都是正常的，没有任何问题。问题就出在最后一个参数上。 还有就是在C++中如何去把继承来的接口（Interface，实则为struct）里面的那个函数给实现。 现在从返回的错误来看，提示我调用了一个纯虚函数，也就是函数只有声明，没有实现，但是从代码来看，我继承了这个接口以后，是实现了这个函数的。。

[日立奔腾浪潮微软松下联想]

HRESULT _fastcall ProgressCallback(double Progress);
这个地方应该是__stdcall

[draculamx]

引用 11 楼 早打大打打核战争 的回复:

HRESULT _fastcall ProgressCallback(double Progress); 这个地方应该是__stdcall

开始是用的 __stdcall，后来不断尝试，司马当活马医才这样改的。。。用__stdcall也不行。。

[丁劲犇]

你用了多重继承，不要直接强制转换指针。 把转换去掉应该就好了。或者调用dynamic_cast (IProgress*)this 你那个强行转换不对。 先试试直接给this，应该就可以

[日立奔腾浪潮微软松下联想]

如果把
EncodeFile(.............(IProgress*)this);
改成
EncodeFile(.............(IProgress*)FormMain);

[Waiting4you]

奇怪，按理说你继承这个COM接口你要实现IUnknown, IDispatch的函数，你的代码里没看到。编译居然能通过~~可能C++Builder有什么机制帮忙实现了这些？ 你试试这样行不行： TComInterface<IProgress> tmp(this); EncodeFile(..., tmp); 如果在TComInterface这句出错，调试步进去看看是不是QueryInterface这里挂了，如果确实，说明你需要自己实现这个函数。

[日立奔腾浪潮微软松下联想]

试一试：
EncodeFile(.............interface_cast<IProgress>(this));

[draculamx]

算了，不纠结了，我直接发邮件给了作者，作者居然回复了，他自己说他C++也不怎么会用，然后他就给修改了一个直接调用callback函数，不通过interface的方法。。就像我们平时调用一些函数时，需要用到的回调函数一样，直接丢一个函数指针进去就行了，我试了下，可用。。。。