如何用API函数实现对无类型文件的读取，请给出例子！(100分)

ynfly · 2004-01-16

我需要编写一个DLL在Lotus Notes中调用（Lotus Notes中的lsScript语法跟VB的语法可以说一样的） 此DLL的有一个重要的功能是读取源文件的部分信息然后存放到一个目标文件中,其中我要到了BlockRead 函数,编写完成后，我把此DLL拷贝到系统目录下面，然后在word的宏里面声明此Dll中的所有引出的函数，调用后， 结果均正常，然后在Notes里面建立一个数据库，然后在表单中声明此DLL中引出的所有函数，调用后发现 其他的函数结果正常，就是一个包含了BlockRead函数的引出函数调用结果不正常，下面是有问题的函数的代码： function setWpgFiletoBmp(srcFileName,dstFileName,strPassword:string):integer;stdcall;   var   srcTypedFile:File;   decTypedFile:File;   BytesRead,BytesWritted:Integer;   Buffer:array[0..15] of  byte;   strTruePassWord:string;   key:Word;   begin     Result:=0;     AssignFile(srcTypedFile,srcFileName);     AssignFile(decTypedFile,dstFileName);     if fileexists(dstFileName ) then       reset(decTypedFile)     else       rewrite(decTypedFile);      reset(srcTypedFile,1);      try      try          repeat          //经通过设计标记得方法,发现在Notes中执行时,下面代码不能运行          BlockRead(srcTypedFile,buffer,SizeOF(buffer),BytesRead);          if BytesRead>0 then          begin                 BlockWrite(decTypedFile,buffer,BytesRead,BytesWritted);           if BytesRead<>BytesWritted then             raise Exception.Create('Error Copying file')             else begin             end;           end          until BytesRead=0;      except      Erase(decTypedFile);      raise;      end;     finally       closefile(decTypedFile);     end;   finally         closefile(srcTypedFile);   end;       Result:=1   end; 我想问的是1、BlockRead函数的调用是否有问题？  2、如何用API函数的调用的方法代替BlockRead方法实现对无类型文件的读取，最好给出例子代码？

ynfly · 2004-01-16

各位高手请积极发言,不吝赐教

tt.t · 2004-01-21

给你一个用API写的COPY文件的粒子，或许会有帮助 function TFileOpertionClass.doFileCopy(Src,Tar:string;Pos:int64=0):int64; const   MaxBufSize = $80000; var   BufSize,N : DWORD;   Buffer: PChar;   FSrcHandle,FTarHandle:THandle;   hi,lo

WORD; begin   result:=-1;   FSrcHandle:=CreateFile(PChar(Src),GENERIC_READ,0,nil,OPEN_EXISTING,      FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN,0);   if FSrcHandle=INVALID_HANDLE_VALUE then   begin     showmessage('Open Source Failed!!Exit!');     exit;   end;   showmessage('Open Src successfully!!');   try     FTarHandle:=CreateFile(PChar(Tar),GENERIC_WRITE,0,nil,OPEN_ALWAYS,        GetFileAttributes(PChar(Src)) or FILE_FLAG_SEQUENTIAL_SCAN,0);     if FTarHandle=INVALID_HANDLE_VALUE then     begin       showmessage('Open Target Failed!!Exit!');       exit;     end;     showmessage('Open Target successfully!!');     try       N:=0;       sCount:=FGetSize(FSrcHandle);       if sCount>0 then       begin         if pos>0 then         begin           tCount:=FGetSize(FTarHandle);         end;         if (Pos<sCount) and (Pos<=tCount) then         begin           lo:=Pos and $FFFFFFFF;           hi:=(Pos and $FFFFFFFF00000000) shr 8;           sCount:=sCount-Pos;           result:=scount;           if sCount > MaxBufSize then BufSize := MaxBufSize else BufSize := sCount;           GetMem(Buffer,MaxBufSize);           SetFilePointer(FSrcHandle, lo, @hi, FILE_BEGIN);           SetFilePointer(FTarHandle, lo, @hi, FILE_BEGIN); //          showmessage(inttostr(lo));           try             while sCount<>0 do             begin               if not ReadFile(FSrcHandle, Buffer^, BufSize, N, nil) then               begin                 showmessage('Read Source Error!!');                 break;               end;               if not WriteFile(FTarHandle,Buffer^,N,N,nil) then               begin                 showmessage('Write Target Error!!');                 break;               end;               dec(sCount,N);             end;           finally           begin             FreeMem(Buffer);             result:=sCount;           end;           end;         end;       end;     finally       if not CloseHandle(FTarHandle) then         showmessage('Close Target Failed!!');     end;   finally     if not CloseHandle(FSrcHandle) then       showmessage('Close Source Failed!!');   end; end;

wql · 2004-01-22

新年帮助你ding!

ynfly · 2004-02-19

虽然没有太大帮助,但我已经知道了，谢谢

如何用API函数实现对无类型文件的读取，请给出例子！(100分)

ynfly

Unregistered / Unconfirmed

ynfly

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

ynfly

Unregistered / Unconfirmed

Similar threads