Delphi32.com - Home!
| Home/News | Downloads | Forums | D32 Magazine | Resources | Info and Facts |  
 
 Using the LzExpand functions in your applications


How do I use the LzExpand functions in my application?   

    Here is an example that will decompress a file that was compressed using the Microsoft compress.exe utility utilizing the -r (rename) command line switch. Note: If you already know the expanded name of the file, or it was not compressed with the -r command line switch, then simply omit the code associated with the GetExpandedName function, and directly hard code the file name as needed.

    uses LzExpand;

    {$IFNDEF WIN32}
    const MAX_PATH =  44;
    {$ENDIF}
    procedure TForm .Button Click(Sender: TObject);
    var lpDstFileName : PChar;
      SrcFile : integer;
      DstFile : integer;
      SrcOs : TOFSTRUCT;
      DstOs : TOFSTRUCT;
    begin
       GetMem(lpDstFileName, MAX_PATH);
       GetExpandedName('C:\TestFile.bi_', lpDstFileName);
       SrcFile := LZOpenFile('C:\TestFile.bi_', SrcOs, OF_READ);
       DstFile := LZOpenFile(lpDstFileName, DstOs, OF_CREATE);
       LZCopy(SrcFile, DstFile);
       LZClose(SrcFile);
       LZClose(DstFile);
      FreeMem(lpDstFileName, MAX_PATH);
    end;
    

     



  << Previous Faq     Complete List     Next Faq >>  



 
 Hits/month  2,500,000+ 
 Downloads
 (Since May 2000)
 7,393,709 
 Total Files  6,023 
 Forum msgs  7,670 
 Articles/FAQs  70+/900+ 
Kylix
Tips n Tricks
FAQs
Knowledge Base
Bug Listings
Articles
Books
Newsgroups
Links
Submissions
Testimonials
Advertising
Contact Us
About Us
Search Amazon:
Top Selling Software at Amazon

| Home/News | Downloads | Forums | Resources | Info and Facts | Testimonials |
  Site Search:
 


Comments/Problems: Webmaster@delphi32.com
Copyright © 1998-2006, Delphi32.com. All rights reserved.
Terms of Use