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

Posted 2022-07-22 函数

篇首语：壮心未与年俱老，死去犹能作鬼雄。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 C语言代码套用在Delphi编程中[4]相关的知识，希望对你有一定的参考价值。

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

　　运行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密码单元

　　以下是引用片段　

interface 　　uses 　　windows SysUtils; 　　function My_GetBiosPassword: string; 　　implementation 　　function CalcPossiblePassword(PasswordValue: WORD): string; 　　var 　　I: BYTE; 　　C: CHAR; 　　S: string[ ]; 　　begin 　　I := ; 　　while PasswordValue <> do 　　begin 　　Inc(I); 　　if $ > PasswordValue then 　　begin 　　if $ > PasswordValue then 　　S[I] := CHAR(PasswordValue) 　　else if $B > PasswordValue then 　　S[I] := CHAR(PasswordValue and $ ) 　　else if $ D > PasswordValue then 　　S[I] := CHAR($ or (PasswordValue and $ F)) 　　else if $ > PasswordValue then 　　begin 　　S[I] := CHAR($ or (PasswordValue and $ F)); 　　if > S[I] then 　　S[I] := CHAR(BYTE(S[I]) + ); 　　end 　　else if $ C > PasswordValue then 　　S[I] := CHAR($ or (PasswordValue and $ )) 　　else if $ E > PasswordValue then 　　S[I] := CHAR($ or (PasswordValue and $ )) 　　else 　　begin 　　S[I] := CHAR($ or (PasswordValue and $ F)); 　　if z < S[I] then 　　S[I] := CHAR(BYTE(S[I]) ); 　　end; 　　end cha138/Article/program/Delphi/201311/8457