关于文件指针问题，急死人了

vc中float     Frequency1(int   BlockLength,FILE*   fp);  
  delphi中我这样定义：function   Frequency1(BlockLength:integer;fp:pfile   ):double   ;far;external'symmetry_modules.dll'   ;  
   
  同时定义  
  crypfile:^file   of   byte  
  filename:string;  
   
  filename:='aaa';  
  cryptfile:=@filename;  
  tt:=(BlockLength,cryptfile   );  
   
  为什么不对呢？各位大侠指点一下吧。 问题点数：50、回复次数：8Top

1 楼ysx192（岸上的鱼）回复于 2003-07-03 17:54:08 得分 0

路过   帮你   upTop

2 楼firetoucher（风焱）回复于 2003-07-03 17:59:24 得分 20

AssignFile(F,   FileName);pfile：=@F;..Top

3 楼Linux2001（闭关开发中）回复于 2003-07-03 19:10:46 得分 10

你写的什么代码啊！  
  var  
      crypfile   :file   of   byte;  
      filename   :string;  
      aaa   :array   [0..1023]   of   byte;  
      i   :integer;  
  begin  
      filename   :='c:\a.txt';  
      AssignFile(crypfile,   filename);  
      reset(crypfile);  
      for   i   :=   0   to   1023   do    
          read(crypfile,   aaa);  
  end;Top

4 楼hansion3406（阿木㊣拖鞋男）回复于 2003-07-03 21:27:28 得分 0

呵呵..Top

5 楼livin（小米粒）回复于 2003-07-04 12:35:52 得分 0

我的主要问题是：  
  在vc中定义的函数原型：Frequency1(int   BlockLength,FILE*   fp);  
  delphi中function   Frequency1(BlockLength:integer;fp:pfile   ):double   ;far;external'symmetry_modules.dll'   ;  
   
  调用assignfile(f,'E:\test\crytext');  
    tt:=@f;  
    cc:=   Frequency1(xx,tt);  
   
  为什么总是说NTDLL.DLL出错呢？谁帮我解决这个问题，我再加100分！Top

6 楼livin（小米粒）回复于 2003-07-04 15:30:58 得分 0

upTop

7 楼ljmanage（过客）回复于 2003-07-04 16:41:26 得分 20

VC中FILE*   fp和delphi定义不一致,你把文件名传递进去好了,不要把文件指针传进去,我以前用过不行Top

8 楼livin（小米粒）回复于 2003-07-09 09:03:20 得分 0

结账了Top

相关问题

• delphi
• dll
• crypfile
• blocklength
• frequency1
• assignfile
• 定义
• fp
• pfile
• filename

• 帖主：livin
• firetoucher
• Linux2001
• ljmanage

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载