调用Delphi编写的DLL问题,请大家帮忙看看。

m277877855 2021-07-20 10:53:12

我用C++和C#调用都报错,用Delphi调用没问题(DLL不是我们开发的没办法改),请大家帮忙看看;DoorIntf.dll 提取码:1234

目录

Delphi接口定义

Delphi调用

C++接口定义

C++调用



Delphi接口定义

 //定义创建访问IDDB接口对象的抽象工厂接口
  IDoorIntfFactory = interface(IInterface)
    ['{F573C1C3-E0FD-44F4-8A32-4337B2FCF680}']
    function CreateDDB(_host: wideString; _port: Integer): IDoorIntf; stdcall;
  end;

Delphi调用

unit Unit1;
interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    factory: IDoorIntfFactory;
    db: IDoorIntf;
  protected
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  const
  commdb = 'DoorIntf.dll'; //动态库路径
var
  aLib: THandle;
  function CoDoorIntfFactory: IDoorIntfFactory; stdcall;

procedure DoDoorIntfFactory; stdcall;
function CoDoorIntfFactory;stdcall external commdb;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ip:string;
begin

  ip:='127.0.0.1';
  factory := CoDoorIntfFactory;
  db := factory.CreateDDB(ip, 10);
  if db.ping then
  begin
    MessageBox(0, '连接成功', '系统提示', MB_OK);
  end
  else
  begin
    MessageBox(0, '连接失败', '系统提示', MB_OK);
  end;
end;

end.

 

C++接口定义

[uuid("F573C1C3-E0FD-44F4-8A32-4337B2FCF580")]
__interface IDoorIntfFactory{
	 virtual IDoorIntf*  __stdcall CreateDDB(BSTR _host, Int32 _port) = 0;
};

C++调用

typedef IDoorIntfFactory*(__stdcall *CoDoorIntfFactory)();//函数原型
	HINSTANCE hDllInst = LoadLibrary(L"DoorIntf.dll");
	if (hDllInst != NULL) {
		{
			BSTR bstr = ::SysAllocString(L"127.0.0.1");
			long nRes;
			IDoorIntfFactory* Ifactory = NULL;
			CoDoorIntfFactory Cfactory = (CoDoorIntfFactory)GetProcAddress(hDllInst, "CoDoorIntfFactory");

			if (Cfactory)
			{
				Ifactory=Cfactory();//这里报错
				if (NULL != Ifactory)
				{
					Ifactory->CreateDDB(bstr, 2);
				}
			}
		}
	}

 

...全文
603 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
m277877855 2021-07-20
  • 打赏
  • 举报
回复

会不会还是wideString这个类型问题

m277877855 2021-07-20
  • 打赏
  • 举报
回复
能在多说点吗。几个方式我都用过了。
赵4老师 2021-07-20
  • 打赏
  • 举报
回复 1

16,467

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧