none
求助DELPHI转VB.NET RRS feed

  • 问题

  • 本人初学VB。DELPHI不懂,有下面这么一段DELPHI需要转换成VB.NET

     

    type

      ZipOption_t = record

        FileType:pchar;         //文件格式

        pwd:pchar;              //访问口令

        Version : pchar;        //版本

        Memos : PChar;          //备注

        Reserved : PChar;       //保留的文本区

        src:PChar;              //源文件

        dst:pchar;              //目标文件

        IncludeSubDir:Boolean;  //目录压缩时是否压缩子目录

      end;

     

      ZipOption_p = ^ZipOption_t;

      UnZipOption_t = ZipOption_t;

      UnZipOption_p = ZipOption_p;

     

      StepFunc_t = record

        BeginStep : procedure  (Msg:pchar; Count:integer);  stdcall;

        Step : procedure  (msg:pchar;Position:integer);stdcall;

        EndStep: procedure();

       end;

       StepFunc_p = ^StepFunc_t;

     

    function ZipFile(ZipOption: ZipOption_p; StepFunc: StepFunc_p): Boolean;external'dszip.dll';

     

    function UnzipFile(UnZipOption: UnZipOption_p; StepFunc: StepFunc_p): Boolean; external'dszip.dll';

     

     

    2011年4月9日 5:09

答案