知识大全在Delphi编程中使用C语言代码[3]

Posted 2022-07-22 函数

篇首语：困难是人的教科书。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在Delphi编程中使用C语言代码[3]相关的知识，希望对你有一定的参考价值。

在Delphi编程中使用C语言代码[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

运行CBC 新建一个工程然后把DatFormat c添加到工程里面编译整个工程将得到我们需要的OBJ文件:DatFormat OBJ 然后我们关闭CBC即可因为下面不再需要用到它了

　　运行Delphi 新建一个工程并保存然后把DatFormat OBJ拷贝到它的目录之下在单元的implementation下面添加如下代码:

　　$LINK DatFormat obj //链接外部OBJ文件

　　function _CheckIsDatFile(const FileName:Pchar;IsDatFile:PBool):Bool;cdecl;external;//定义函数其中cdecl进栈方式说明采用C语言格式传递参数 external说明是个外部声明函数

　　注意函数声明的原形与C定义的不一样必须在前面添加一个下划线原因是因为编译器的链接符号中 C与C++是不一样的因为这个不是本文重点所以这里不作讨论请感兴趣的朋友自行参阅相关资料

　　然后我们写如下代码调用此函数:

以下是引用片段　　procedure TFrmMain Button Click(Sender: TObject); 　　var 　　IsDatFile:Bool; 　　begin 　　if OpenDialog Execute then 　　if _CheckIsDatFile(Pchar(OpenDialog FileName) @IsDatFile) then 　　if IsDatFile then ShowMessage( 恭喜!该文件是一个Dat格式的视频文件! ) 　　else ShowMessage( 不好意思该文件不是一个Dat格式的视频文件! ) 　　else ShowMessage( 读文件错误! ); 　　end;

　　编译这个程序将得到一个干净的可执行EXE文件了

　　四:C++Builder中使用Delphi单元

　　这个实际是题外话了不过这里还是提一提:假设我们有一个获取BIOS密码的Delphi单元

　　unit AwardBiosPas;

　　=======================================================

　　项目: 在Delphi编程中使用C语言代码演示程序

　　模块: 获取BIOS密码单元

　　描述:

　　版本:

　　日期:

　　作者: 陈经韬 lovejingtao@ cn // soft

　　更新:

　　=======================================================

cha138/Article/program/Delphi/201311/24760

知识大全 在Delphi编程中使用C语言代码[3]

知识大全在Delphi编程中使用C语言代码[3]