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

Posted 2022-07-22 文件

篇首语：只有努力攀登顶峰的人，才能把顶峰踩在脚下。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在Delphi编程中使用C语言代码[2]相关的知识，希望对你有一定的参考价值。

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

　三:在Delphi中直接链接C语言的OBJ文件

　　这种方法的好处在于最终EXE不用带任何外部文件也不用对C语言过于熟悉

　　我们都知道代码在编译成可执行文件(或DLL OCX文件下同)之前都必须得先生成OBJ文件(DELPHI一般是DCU文件但也可以通过编辑编译选项生成OBJ文件) 然后把OBJ文件和资源文件(* RES)链接成最终的可执行文件利用这个方法我们可以直接把OBJ文件链接到我们的程序里面

　　不过需要注意的是编译器不同生成的OBJ文件也不一样 Microsoft的编译器生成的OBJ文件是COFF格式而Borland的C++Builder生成的是OMF格式因为我们需要在Delphi中链接所以必须使用CBC 或者Borland官方站点带的免费编译工具下面我们通过一个简单的例子来说明具体操作步骤:

　　这个例子是简单的提供一个函数用来判断一个文件是否为Dat格式的VCD文件头文件声明如下:

以下是引用片段　　/* 　　文件名称:DatFormat h 　　*/ 　　#ifndef DatFormat_H 　　#define DatFormat_H 　　#include 　　#pragma pack(push )//这个与下面的配对一般用到记录类型的时候需要定义这里实际不用　　#ifdef __cplusplus 　　extern C 　　#endif 　　extern BOOL CheckIsDatFile(const char * FileName BOOL *IsDatFile); 　　#ifdef __cplusplus 　　　　#endif 　　#pragma pack(pop) 　　#endif // DatFormat_H 　　具体实现代码DatFormat c如下: 　　#include DatFormat h 　　BOOL CheckIsDatFile(const char * FileName BOOL *IsDatFile) 　　/* 　　函数说明:该函数用于判断一个文件是否为Dat文件(即VCD文件)格式　　参数: 　　IN: 　　FileName:欲判断的文件名称　　IN OUT: 　　IsDatFile:是否为Dat格式文件　　OUT: 　　读文件失败返回FALSE 否则返回TRUE 　　　　作者:陈经韬 // soft lovejingtao@ cn 　　*/ 　　　　HANDLE hFile; 　　DWORD dwBytesRead; 　　BOOL re; 　　char MyBuf[ ]; 　　*IsDatFile=FALSE; 　　//建立读文件句柄　　hFile = CreateFile(FileName 　　GENERIC_READ 　　FILE_SHARE_READ 　　NULL 　　OPEN_EXISTING 　　　　 ); 　　if (hFile == INVALID_HANDLE_VALUE) return FALSE; 　　//读文件　　re = ReadFile(hFile 　　&MyBuf 　　　　&dwBytesRead 　　NULL); 　　if (dwBytesRead!= ) 　　　　CloseHandle(hFile); 　　return FALSE; 　　　　//读文件失败的时候　　if (re!=TRUE) 　　　　CloseHandle(hFile); 　　return FALSE; 　　　　CloseHandle(hFile); 　　*IsDatFile=(MyBuf[ ]== R && MyBuf[ ]== I && MyBuf[ ]== F && MyBuf[ ]== F ); 　　return(TRUE); 　　

cha138/Article/program/Delphi/201311/24759

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

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