C语言编程代码 C语言代码套用在Delphi编程中[3]

C语言代码套用在Delphi编程中[3]  

       以下是引用片段

　　#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 　　 　　{ 　　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); 　　}

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

lishixinzhi/Article/program/Delphi/201311/8456