Unzip !!

[DoctorJay]

آیا تابع خاصی برای Unzip کردن وجود داره ؟؟ API

چند جا پراکنده یه چیزایی خوندم ولی کامل نبودن !!!

[DoctorJay]

این تاپیک خیلی وقت بی جواب رو زمین مونده !!

کسی راهنمایی نمی کنه !؟

[H4i0 ACP]

سلام
من تو تاپیک APi همینو گذاشتم و اسم تابع اون هم
Private Declare Function CopyLZFile Lib "lz32" Alias "CopyLZFile" (ByVal n1 As Long, ByVal n2 As Long) As Long

[vbhamed]

سلام

دنبال اكتيوايكس Xceed Zip تو گوگل جستجو كن

[f.nabavi]

سلام من یه فایل براتون می ذارم. ولی باهاش مشکل دارم. یعنی نتونستم خودم یه فایل رو با تغییر آدرس ها unzip کنم. به نتیجه رسیدید، اطلاع بدید..

[H4i0 ACP]

سلام
یه تاپیک هم با عنوان ساخت فایل Zip توسط ارسال پارامتر به Zip.exe وجود داره که هم Zip میکنه و هم Unzip .

[H4i0 ACP]

سلام من یه فایل براتون می ذارم. ولی باهاش مشکل دارم. یعنی نتونستم خودم یه فایل رو با تغییر آدرس ها unzip کنم. به نتیجه رسیدید، اطلاع بدید..
--------------------------------------------------
شما وقتی می تونید از این برنامه استفاده کنید که برنامه Winzip در این مسیر نصب شده باشه :

' The default location of the winzip32.exe is
' C:\Program Files\WinZip\. If your winzip32.exe
' is in another folder, change ZIP_EXE accordingly.

[f.nabavi]

اول اینکه مسیر رو میشه تغییر داد... دوم اینکه مساله unzip کردن یه فایل در فولدر خاصه. من تو این قسمت مشکل دارم و برنامه رو نمی تونم اون طوری که می خوام تغییر بدم.

[H4i0 ACP]

دوست عزیز
شما که قراره از ارسال پارامتر استفاده کنید بهتره به این تاپیک برید :
فایل zip بسازید (با استفاده از ارسال پارامتر به فایل zip.exe) (http://barnamenevis.org/forum/showthread.php?t=102023)

[DoctorJay]

پس اینجوری توانایی Zip و Unzip کردم منحصر میشه به زمانی که فایل Zip.eXe .

بله , منم این تاپیک رو دیدم, جالب بود , ولی من می خوام مستقل عمل Zip کردن انجام بشه .

جوابمو توی تاپیکهای قبلی گرفتم ؟؟

[H4i0 ACP]

Private Declare Function CopyLZFile Lib "lz32" Alias "CopyLZFile" (ByVal n1 As Long, ByVal n2 As Long) As Long
---------------------------
این تابع قادره یه فایل رو از درون یه فایل Zip دیگه به هر مکانی روی هارد دیسک کپی کنه ( از فشردگی در بیاره )

[DoctorJay]

توی این تابع مقادیر n1 , n2 باید چی باشه ؟؟

آدرس فایل مقصد و مبدا کجا داده میشه ؟؟؟

ممنون

[DoctorJay]

اینم کد APIیه unZip کردن :


Const OFS_MAXPATHNAME = 128
Const OF_CREATE = &H1000
Const OF_READ = &H0
Const OF_WRITE = &H1
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private Declare Function CopyLZFile Lib "lz32" (ByVal n1 As Long, ByVal n2 As Long) As Long
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim sFile As String, hDecomp As Long, hResult As Long
Dim OF As OFSTRUCT, sSaveTo As String
'Ask for a file to decompress
sFile = InputBox("Please, enter a file to decompress.")
'Ask for a file to decompress it to
sSaveTo = InputBox("Please, enter a filename to decompress it to.")
'Open the two files
hDecomp = OpenFile(sFile, OF, OF_READ)
hResult = OpenFile(sSaveTo, OF, OF_WRITE Or OF_CREATE)
'decompress the file
CopyLZFile hDecomp, hResult
'Close the two files
CloseHandle hDecomp
CloseHandle hResult
Unload Me
End Sub



من تستش کردم و فایل Unzip شده رو خراب می کنه !! واسه eXe و mp3 تست کردم .

موردی هست که اصلاحش کنه ؟؟

[f.nabavi]

با توجه به فایلی که فرستادم، راهی وجود نداره که بشه با winrar از داخل برنامه یه فایل zip رو unzip کرد؟

[H4i0 ACP]

سلام
چرا
به سایت wINRAR برید.

[DoctorJay]

سیستم عامل ویندوز بدونه استفاده از نرم افزاره خاصی عمل unzip رو انجام میده .

حتی API اون رو هم گذاشتم , حالا می خوام ببینم مشکلش قابل حله یه نه .

ممنون میشم اگه یه فایل کمکی واسه Unzip کردن معرفی نکنید ...

[DoctorJay]

این تاپیک آخر به نتیجه نرسید ! یعنی یه آدم تو این کره ی خاکی بوسیله ی ویندوز نمی تونه یه

فایل Zip. رو Unzip کنه !!!!؟؟؟

سوالمو جور دیگه ای مطرح می کنم . فرض کنید یه فایل Zip. داریم با محتوای یک فولدر .

حالا ما ( با توجه به کد API که در بالا گفتم ) چجوری از این فایل Zip. یه فولدر استخراج کنیم !!؟