1,184
社区成员
发帖
与我相关
我的任务
分享怎样处理指向文件的指针？！
我要在delphi中调用一个vc的dll中的
GenerateCryptText(int BlockLength,int KeyLength,int DataMode,CRYPT_ENC_BLOCK_ROUND Crypt_Enc_Block_Round,int CryptRound,FILE* CryptFile)函数。
在delphi中定义：
GenerateCryptText=procedure(BlockLength, KeyLength,DataMode:integer; Crypt_Enc_Block_Rounds:CRYPT_ENC_BLOCK_ROUND; cryptRound:integer;CryptFile:pfile);stdcall;
其中pfile=^file of byte
函数的意思是要产生按照一定数据模式加密的二进制文件，这个文件存储在CryptFile中。我想先建立一个文件，然后将指针传给这个函数。不知道该如何去做，那位兄弟帮帮忙吧！
GenerateCryptText(int BlockLength,int KeyLength,int DataMode,CRYPT_ENC_BLOCK_ROUND Crypt_Enc_Block_Round,int CryptRound,FILE* CryptFile)函数。
在delphi中定义：
GenerateCryptText=procedure(BlockLength, KeyLength,DataMode:integer; Crypt_Enc_Block_Rounds:CRYPT_ENC_BLOCK_ROUND; cryptRound:integer;CryptFile:pfile);stdcall;
其中pfile=^file of byte
函数的意思是要产生按照一定数据模式加密的二进制文件，这个文件存储在CryptFile中。我想先建立一个文件，然后将指针传给这个函数。不知道该如何去做，那位兄弟帮帮忙吧！
...全文
请发表友善的回复…
发表回复
firetoucher 2003-07-03
- 打赏
- 举报
AssignFile(F, FileName);pfile：=@F;..
firetoucher 2003-07-03
- 打赏
- 举报
var
F: file of byte;
pfile：^file of byte；
begin
{$I-}
AssignFile(F, FileName);pfile：=@F;..
F: file of byte;
pfile：^file of byte；
begin
{$I-}
AssignFile(F, FileName);pfile：=@F;..
jun_01 2003-07-03
- 打赏
- 举报
帮你顶！
