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

Question

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 );为什么不对呢？各位大侠指点一下吧。

Answer 1

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

Answer 2

你写的什么代码啊！
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;

Answer 3

我的主要问题是：
在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分！

Answer 4

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