熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

C語言代碼套用在Delphi編程中[3]

2013-11-11 21:05:07  來源: Delphi編程 

       以下是引用片段

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

[]  []  []  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/8456.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.