Page Index Toggle Pages: 1
Topic Tools
Normal Topic How to decompress w3g file on Delphi? (Read 2588 times)
Wi34rD
Peon
*
Offline


I love YaBB 1G - SP1!

Posts: 1
Joined: Sep 21st, 2005
How to decompress w3g file on Delphi?
Sep 21st, 2005 at 9:31am
Post Tools
I bad speak english, so exuse me, plz.
  
Back to top
 
IP Logged
 
wulfskin
Peon
*
Offline


I love YaBB 1G - SP1!

Posts: 30
Location: Germany
Joined: Jan 4th, 2003
Re: How to decompress w3g file on Delphi?
Reply #1 - Sep 22nd, 2005 at 8:20pm
Post Tools
Hello,

an extract out of my program:
Code
Select All
		for I := 1 to FBlockCount do begin
		  BlockSize := ReadWord;
		  Seek(6, soFromCurrent);
		  ZipStream := TMemoryStream.Create;
		  ZipStream.CopyFrom(FileStream, BlockSize);
		  DezipStream := TZDecompressionStream.Create(ZipStream);
		  ReplayStream.CopyFrom(DezipStream, 0);
		  DezipStream.Free;
		  ZipStream.Free;
		end; 

Google for Ziblib and Delphi to get the unit for extraction.

Regards,
Hape
  
Back to top
ICQ  
IP Logged
 
Wird
Peon
*
Offline


I love YaBB 1G - SP1!

Posts: 1
Joined: Aug 28th, 2006
Re: How to decompress w3g file on Delphi?
Reply #2 - Aug 28th, 2006 at 9:40am
Post Tools
Who can give me source-code on Delphi?
  
Back to top
 
IP Logged
 
wulfskin
Peon
*
Offline


I love YaBB 1G - SP1!

Posts: 30
Location: Germany
Joined: Jan 4th, 2003
Re: How to decompress w3g file on Delphi?
Reply #3 - Aug 28th, 2006 at 10:13am
Post Tools
Hello,

my program "Replay Explorer" is open source and written in delphi. The source code is not documented/commented, sorry.
You may want to look at my source:
http://sourceforge.net/projects/rep-ex.
Extraction is in unit "w3g.pas".
If you got any further question, you're welcome to ask!

Regards,
Hape
  
Back to top
ICQ  
IP Logged
 
Page Index Toggle Pages: 1
Topic Tools