帮忙转下C的代码

2008-11-10 02:46:54 147 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【模板】普通多项式转下降幂多项式题目下降幂多项式×ex\times e^x×ex就是其点值多项式的EGFEGFEGF。所以多点求值后乘e−xe^{-x}e−x即可。 AC Code\mathrm{AC \ Code}AC Code #include<bits/stdc++.h> #define maxn 300005 #define mod 998244353 #define rep(i,j,... 阅读详情



///标准接口

struct IKnown

{

    ///接口

    virtual unsigned long __stdcall Release()=0;

};



///服务接口 

struct IService : IKnown

{

    ///返回版本号

    virtual int __stdcall Get(const void * lpBuffer) = 0;

};

这个转成delphi应该怎么转？我听朋友说struct可以转成delphi的record，但C中struct做了继承，delphi中该怎么处理



  TStruct = record

    function release(): longword;

  end;

...全文

Simulink调用外部C代码的几种方法 Simulink调用手写代码进行测试阅读详情

散乱心绪

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

散乱心绪 2008-11-10

打赏
举报

哎，试着写了个class，编译通过，输入点的函数也获取正常，但获取到第二层的Struct就出错误了。

散乱心绪 2008-11-10

打赏
举报

[Quote=引用 9 楼 jiju 的回复:]
没办法写，上面有人提到用class，但最终调用时可能会出现问题，最有效的方法，重新用c++再作一次封装，或者换工具开发
[/Quote]

dll也不能做到通用啊？？以前一直以为C和Delphi写的dll只要格式标准都可以通用的。。。

散乱心绪 2008-11-10

打赏
举报

ERRORCODE 有邮箱地址吗？我发你邮件吧。

jiju 2008-11-10

打赏
举报

没办法写，上面有人提到用class，但最终调用时可能会出现问题，最有效的方法，重新用c++再作一次封装，或者换工具开发

散乱心绪 2008-11-10

打赏
举报

写成interface，该怎么去调用dll中的函数？

ERR0RC0DE 2008-11-10

打赏
举报

这个可以这样调用：
type
PKnown = ^IKnown;
IKnown = record
_QueryInterface: function(var iid: Integer; var ppv: PKnown): Cardinal; stdcall;
_AddRef: function: Cardinal; stdcall;
_Release: function: Cardinal; stdcall;
end;

IWorkService = record
known: IKnown;
GetWorker:....
end;

...

function getWorkServiceInstance(): PKnown; stdcall;

你这样测试下。不知行不行。不然将那DLL和那开发定义传到某地，我下载测试看看。

suton 2008-11-10

打赏
举报

type
IKnown = interface(IUnknown)
///接口
function Release: DWORD; stdcall;
end;

///服务接口
IService = interface(IKnown)
///返回版本号
function Get(const lpBuffer: Pointer): Integer; stdcall;
end;

难道这样?

散乱心绪 2008-11-10

打赏
举报

啊啊，实在是不行，找了下，都没能出什么结果。哎。。

拿到的是一个用C写的DLL和他的头文件。需要在Delphi中调用里面的函数，Delphi的申明怎么写哦。。。



struct IKnown

{

    virtual unsigned long  __stdcall _QueryInterface(const int & iid, IKnown **ppv )=0;

    virtual unsigned long  __stdcall _AddRef()=0;

    virtual unsigned long  __stdcall _Release()=0;

};



struct IWorkService : IKnown

{

    virtual IWorker * __stdcall GetWorker(int iVersion) = 0;

    virtual void __stdcall FreeWorker(IWorker * lpWorker) = 0;

};



struct IWorker

{

	virtual void __stdcall SetBuffer(void * pBuf,int iBufSize)=0;

	virtual int __stdcall getVersion(void) = 0;

};





#ifdef __cplusplus

extern "C" 

#endif

	

	IKnown * __stdcall getWorkServiceInstance();



#ifdef __cplusplus

}

#endif

suton 2008-11-10

打赏
举报

同意楼上,C++里面的struct跟class差不多,可以继承.
直接翻译成class.

type
IKnown = class(TObject)
///接口
function Release: DWORD; stdcall;
end;

///服务接口
IService = class(IKnown)
///返回版本号
function Get(const lpBuffer: Pointer): Integer; stdcall;
end;

ERR0RC0DE 2008-11-10

打赏
举报

D7以下不支持这种写法，如果要真要转，只能以指针指向的方法来转，
大概是这样：
type
IKnown = record
Release: function: Cardinal; stdcall;
end;

IService = record
//无法继承，使用下面中一个来处理
//Release: function: Cardinal; stdcall;
//Known_Release: IKnown;
Get: function: Integer; stdcall;
end;

很勉强，建议直接转成class的形式来写。
C++里面struct和class的区别不大，所以他们在写struct，其实跟class基本差不多（具体区查查，好像就几个点不同）
而D里面的区别就比较大了。

散乱心绪 2008-11-10

打赏
举报

哦，我的是delphi6，抱歉我没说清楚

delphi6中要怎么转

ERR0RC0DE 2008-11-10

打赏
举报

听说D2008可以在record中继承，不知是不是，木有用过，看看有没人给出测试结果。

如果可以，转过来应该是这样：

type
IKnown = record
function Release: Cardinal; stdcall; virtual; abstract;
end;

IService = record(IKnow) // ???是不是这样写的？
function Get: Integer; stdcall; virtual; abstract;
end;

帮忙转下C的代码

相关推荐