AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > Delphi

在Delphi编程中使用C语言代码

51自学网 http://www.51zixue.net

 

  三:在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, 1)//这个与下面的配对,一般用到记录类型的时候需要定义,这里实际不用
  #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.
  ------------------------------------
  作者:陈经韬.2004,01,17. http://www.138soft.com,lovejingtao@21cn.com
  */
  {
  HANDLE hFile;
  DWORD dwBytesRead;
  BOOL re;
  char MyBuf[4];
  *IsDatFile=FALSE;
  //建立读文件句柄
  hFile = CreateFile(FileName,
  GENERIC_READ,
  FILE_SHARE_READ,
  NULL,
  OPEN_EXISTING,
  0,
  0);
  if (hFile == INVALID_HANDLE_VALUE) return FALSE;
  //读文件
  re = ReadFile(hFile,
  &MyBuf,
  4,
  &dwBytesRead,
  NULL);
  if (dwBytesRead!=4)
  {
  CloseHandle(hFile);
  return FALSE;
  }
  //读文件失败的时候
  if (re!=TRUE)
  {
  CloseHandle(hFile);
  return FALSE;
  }
  CloseHandle(hFile);
  *IsDatFile=(MyBuf[0]=='R' && MyBuf[1]=='I' && MyBuf[2]=='F' && MyBuf[3]=='F');
  return(TRUE);
  }

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

  运行Delphi,新建一个工程并保存.然后把DatFormat.OBJ拷贝到它的目录之下.在单元的implementation下面添加如下代码:

  {$LINK 'DatFormat.obj'} //链接外部OBJ文件

  function _CheckIsDatFile(const FileName:Pchar;IsDatFile:PBool):Bool;cdecl;external;//定义函数.其中cdecl进栈方式说明采用C语言格式传递参数.external说明是个外部声明函数.

  注意函数声明的原形与C定义的不一样.必须在前面添加一个下划线.原因是因为编译器的链接符号中.C与C++是不一样的.因为这个不是本文重点,所以这里不作讨论.请感兴趣的朋友自行参阅相关资料.

  然后我们写如下代码调用此函数:

以下是引用片段:
  procedure TFrmMain.Button1Click(Sender: TObject);
  var
  IsDatFile:Bool;
  begin
  if OpenDialog1.Execute then
  if _CheckIsDatFile(Pchar(OpenDialog1.FileName),@IsDatFile) then
  if IsDatFile then ShowMessage('恭喜!该文件是一个Dat格式的视频文件!')
  else ShowMessage('不好意思,该文件不是一个Dat格式的视频文件!')
  else ShowMessage('读文件错误!');
  end;

  编译这个程序,将得到一个干净的可执行EXE文件了.

 
 

上一篇:利用Delphi全面控制Windows任务栏  下一篇:Delphi中Hash表的使用方法