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

Posted 2022-07-22 文件

篇首语：学向勤中得，萤窗万卷书。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 C语言代码套用在Delphi编程中[3]相关的知识，希望对你有一定的参考价值。

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

以下是引用片段

/* 　　文件名称: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 　　　　　　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即可因为下面不再需要用到它了

cha138/Article/program/Delphi/201311/8456