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

以下是引用片段

/*

文件名称:DatFormath

*/

#ifndef DatFormat_H

#define DatFormat_H

#include

#pragma pack(push )//这个与下面的配对一般用到记录类型的时候需要定义这里实际不用

#ifdef __cplusplus

extern C {

#endif

extern BOOL CheckIsDatFile(const char * FileNameBOOL *IsDatFile);

#ifdef __cplusplus

}

#endif

#pragma pack(pop)

#endif // DatFormat_H

具体实现代码DatFormatc如下:

#include DatFormath

BOOL CheckIsDatFile(const char * FileNameBOOL *IsDatFile)

/*

函数说明:该函数用于判断一个文件是否为Dat文件(即VCD文件)格式

参数:

IN:

FileName:欲判断的文件名称

INOUT:

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新建一个工程然后把DatFormatc添加到工程里面编译整个工程将得到我们需要的OBJ文件:DatFormatOBJ然后我们关闭CBC即可因为下面不再需要用到它了

[] [] [] [] []