双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

2020-07-10 02:06:18 678 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

draculamx 墨衍会员 · AI 创作全网分发关注 + 加入社区

从COM原理到实战：VC++驱动SOLIDWORKS二次开发的核心路径本文深入解析了基于COM原理的SOLIDWORKS二次开发核心技术路径，详细介绍了VC++环境下驱动SOLIDWORKS API的开发实践。从COM组件原理、开发环境配置到接口获取技巧，再到功能实现与性能优化，全面覆盖了SOLIDWORKS二次开发的关键环节，帮助开发者高效构建专业级插件。阅读详情

有一个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运行完全没有问题。。。
搞了一天了，不行了，大家帮忙看看。。。

...全文

自动驾驶轨迹规划算法——Apollo Lattice Planner Apollo Lattice Planner是百度Apollo自动驾驶系统中的一种基于采样的实时轨迹规划算法。其核心思想是在离散化的状态空间中，对终端状态进行采样，并通过多项式曲线连接当前状态与候选终端状态，形成候选轨迹集，最后基于代价函数选择最优轨迹。该算法将车辆可达状态按纵向距离、横向偏移和速度等维度规则离散化，形成"格点"状态空间。 Lattice Planner通过三个主要步骤实现轨迹规划：1)终端状态采样，在规划时域内枚举多种驾驶意图；2)轨迹生成，使用五次多项式连接起点与各终阅读详情

draculamx

ActiveX/COM/DCOM 703 成员 3,001 内容

+ 关注 + 加入社区

切换为时间正序

draculamx 2020-07-20

打赏
举报

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

日立奔腾浪潮微软松下联想 2020-07-19

打赏
举报

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

Waiting4you 2020-07-19

打赏
举报

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

日立奔腾浪潮微软松下联想 2020-07-17

打赏
举报

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

丁劲犇 2020-07-17

打赏
举报

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

draculamx 2020-07-14

打赏
举报

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

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

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

日立奔腾浪潮微软松下联想 2020-07-14

打赏
举报

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

draculamx 2020-07-13

打赏
举报

引用 9 楼 ooolinux 的回复:

IBASSEncodeFile *BASSEncodeFileMP3; 指针试试呢

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

ooolinux 2020-07-13

打赏
举报

IBASSEncodeFile *BASSEncodeFileMP3; 指针试试呢

draculamx 2020-07-13

打赏
举报

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

draculamx 2020-07-13

打赏
举报

我来把问题简化一下吧： 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 2020-07-13

打赏
举报

引用 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”。。。。

日立奔腾浪潮微软松下联想 2020-07-13

打赏
举报

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 2020-07-13

打赏
举报


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里面的代码和这个应该没有什么出入，但就是运行不了。。

日立奔腾浪潮微软松下联想 2020-07-11

打赏
举报

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

draculamx 2020-07-11

打赏
举报

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

日立奔腾浪潮微软松下联想 2020-07-10

打赏
举报

Delphi的例子是怎样调用的

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促