DECOMPRESSER FICHIER RAR AVEC UNRAR.DLL - B3
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
14 nov. 2002 à 13:36
sarahmhiri Messages postés 1 Date d'inscription lundi 8 janvier 2007 Statut Membre Dernière intervention 25 décembre 2008 - 25 déc. 2008 à 17:37
sarahmhiri Messages postés 1 Date d'inscription lundi 8 janvier 2007 Statut Membre Dernière intervention 25 décembre 2008 - 25 déc. 2008 à 17:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5062-decompresser-fichier-rar-avec-unrar-dll-b3
https://codes-sources.commentcamarche.net/source/5062-decompresser-fichier-rar-avec-unrar-dll-b3
25 déc. 2008 à 17:37
merci d'avance
25 mars 2008 à 11:04
21 mars 2008 à 20:32
21 mars 2008 à 20:26
N'y a t il pas moyen que l'extraction se fasse tout en conservant une certaine fluidité ?
L'instruction DoEvents ne change rien.
Merci d'avance !
21 mars 2008 à 19:54
Le programme marche parfaitement, maintenant, reste plus qu'à faire un truc sympa :)
Encore merci Renfield, et je reviens si j'ai un souci :)
21 mars 2008 à 19:42
Je valide, mais ensuite, au moment d'executer le programme j'ai la fameuse erreur "Erreur de compilation, Projet ou bibliothèque introuvable" qui pointe sur "Dim WithEvents objTKUnrar As TKUnrar.CTKUnrar"
:( Si déja je cale ici, je vais pas aller bien loin dans ma démarche ^^
Encore merci Renfield :)
21 mars 2008 à 09:10
parce que j'execute le programme sans soucis, chez moi... mis a part ce message qui m'indique qu'aucun fichier DLL compilé n'a été trouvé et que, par conséquent, le fichier issu de la compilation ne pourra être compatible (interchangeable) avec tout autre release de cette dll
20 mars 2008 à 21:37
Quand je l'execute, il me dit que la bibliothèque est introuvable :(
C'est dommage, je pense que ce programme correspond exactement à ce que je veux faire.
PS : encore merci de m'aider Renfield ;)
19 mars 2008 à 08:05
en gros, si tu génère la dll, TKUnrar (dont le code est fourni dans le sample2)
elle sera pas compatible avec celle qui n'est pas fournie dans le Zip.
en gros, tout roule, tu valide le message, et tu l'oublie ^^
18 mars 2008 à 19:58
Bon de retour du taff, je peux commencer à tester la bête, et il y a un exemple vraiment sympa qui teste un peu tous les events en VB.
Le problème, c'est qu'il est impossible de lancer l'execution du projet (situé dans le rep "démo" de "Visual Basic Sample 2") pour cause d'absence de TKUnrar.dll.
C'est surement une erreur due à ma rookie attitude ;) mais je n'arrive pas à trouver d'ou cela provient.
Merci d'avance !
18 mars 2008 à 13:18
Merci :)
18 mars 2008 à 08:48
tu as en prime des exemples dans plusieurs langages dont le VB6.
ils ont l'air très complets, pour des exemples, notamment CTKUnrar.cls.
Je t'invite a le regarder, il propose un événement :
Event Progress(dblFileSize As Double, dblExtracted As Double)
18 mars 2008 à 08:38
http://www.rarlab.com/rar_add.htm
==================================================================
void PASCAL RARSetCallback(HANDLE hArcData,
int PASCAL (*CallbackProc)(UINT msg,LPARAM UserData,LPARAM P1,LPARAM P2),
LPARAM UserData);
==================================================================
Description
~~~~~~~~~~~
Set a user-defined callback function to process Unrar events.
Parameters
~~~~~~~~~~
hArcData
This parameter should contain the archive handle obtained from the
RAROpenArchive function call.
CallbackProc
It should point to a user-defined callback function.
The function will be passed four parameters:
msg Type of event. Described below.
UserData User defined value passed to RARSetCallback.
P1 and P2 Event dependent parameters. Described below.
Possible events
UCM_CHANGEVOLUME Process volume change.
P1 Points to the zero terminated name
of the next volume.
P2 The function call mode:
RAR_VOL_ASK Required volume is absent. The function should
prompt user and return a positive value
to retry or return -1 value to terminate
operation. The function may also specify a new
volume name, placing it to the address specified
by P1 parameter.
RAR_VOL_NOTIFY Required volume is successfully opened.
This is a notification call and volume name
modification is not allowed. The function should
return a positive value to continue or -1
to terminate operation.
UCM_PROCESSDATA Process unpacked data. It may be used to read
a file while it is being extracted or tested
without actual extracting file to disk.
Return a positive value to continue process
or -1 to cancel the archive operation
P1 Address pointing to the unpacked data.
Function may refer to the data but must not
change it.
P2 Size of the unpacked data. It is guaranteed
only that the size will not exceed the maximum
dictionary size (4 Mb in RAR 3.0).
UCM_NEEDPASSWORD DLL needs a password to process archive.
This message must be processed if you wish
to be able to handle archives with encrypted
file names. It can be also used as replacement
of RARSetPassword function even for usual
encrypted files with non-encrypted names.
P1 Address pointing to the buffer for a password.
You need to copy a password here.
P2 Size of the password buffer.
UserData
User data passed to callback function.
Other functions of UnRAR.dll should not be called from the callback
function.
Return values
~~~~~~~~~~~~~
None
18 mars 2008 à 08:35
18 mars 2008 à 00:11
Super source que voila, tout fonctionne parfaitement, bravo ;)
En revanche, j'aimerais savoir comment rajouter une progressbar, voire deux progressbar qui s'incrémenteraient en fonction des archives en cours d'extraction.
Par exemple, la ProgressBar1 s'incrémenterait (Puis reviendrait à une Value de 0) en fonction de l'archive en cours, dans le cadre d'archives multiples.
Puis la ProgressBar2 s'incrémenterait en fonction du pourcentage total d'extraction des archives (Toujours dans le cadre d'archives multiples).
En fait, comment adapter des progressbar intelligentes avec ce code ? (Un peu à la manière des progs d'installation à la Class, Razor1911, Myth, Paradigm, etc.... pour les érudits en la matière ;) )
J'ai essayé de bidouiller un peu les modules, mais cela ne marche pas.
Merci d'avance !
15 nov. 2007 à 08:01
tu as sous les yeux un code source, permettant de décompresser des fichiers rar dans un logiciel. Tu ne semble pas familier avec Visual Basic ni avec la programmation, cette source ne saura donc t'etre d'aucune aide.
Concernant ton fichier RAR, si WinRar ne sais rien faire, fort à parier que ton fichier est corrompu...
15 nov. 2007 à 05:15
mais je comprend pas comment il marche ce truc
quelqu'un pourrait me donner la manip ???
ya pas de .exe
comprend pas
j'ai un gros fichier rar a décompresser et winrar ne fonctionne pas
help please
13 juin 2007 à 11:51
11 févr. 2006 à 00:09
Merci en avance.
2 janv. 2006 à 11:17
3 juil. 2005 à 20:57
2 juin 2005 à 16:07
(Désolé pour les commentaires en anglais mais y'a pô envie de tout traduire ;-) ).
'Windows API
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function DosDateTimeToFileTime Lib "kernel32" ( _
ByVal wFatDate As Long, _
ByVal wFatTime As Long, _
ByRef lpFileTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" ( _
ByRef lpFileTime As FILETIME, _
ByRef lpSystemTime As SYSTEMTIME) _
As Long
Private Declare Function SystemTimeToTzSpecificLocalTime Lib "kernel32" ( _
ByVal lpTimeZoneInformation As Long, _
ByRef lpUniversalTime As SYSTEMTIME, _
ByRef lpLocalTime As SYSTEMTIME) _
As Long
'Conversion from a Long to two Integers
Private Type typLong
Long1 As Long
End Type
Private Type typLongToInteger
Integer1 As Integer
Integer2 As Integer
End Type
Public Function RARFileTimeToVBDate(ByVal alngRARFileTime As Long) As Date
Dim ludtLong As typLong
Dim ludtIntegers As typLongToInteger
Dim ludtFileTime As FILETIME
Dim ludtUTCTime As SYSTEMTIME
Dim ludtLocalTime As SYSTEMTIME
Dim ldtmReturn As Date
'First split the Long into the composing High and Low words:
ludtLong.Long1 = alngRARFileTime
LSet ludtIntegers = ludtLong
'Then convert the DOS date/time to a Windows FILETIME
If DosDateTimeToFileTime(ludtIntegers.Integer2, ludtIntegers.Integer1, ludtFileTime) = 0 Then
ldtmReturn = #1/1/1980#
'and convert that FILETIME structure to a SYSTEMTIME
ElseIf FileTimeToSystemTime(ludtFileTime, ludtUTCTime) = 0 Then
ldtmReturn = #1/1/1980#
'then, adjust the SYSTEMTIME (which is in UTC) for the current time zone
ElseIf SystemTimeToTzSpecificLocalTime(0, ludtUTCTime, ludtLocalTime) = 0 Then
ldtmReturn = #1/1/1980#
Else
'and finally, calculate a VB date based on the local SystemTime's members
With ludtUTCTime
ldtmReturn = DateSerial(.wYear, .wMonth, .wDay) + _
TimeSerial(.wHour, .wMinute, .wSecond + (.wMilliseconds / 1000))
End With
End If
RARFileTimeToVBDate = ldtmReturn
End Function
14 oct. 2004 à 21:40
23 sept. 2004 à 08:05
26 juin 2004 à 14:08
Sorry, ça a bugger....
26 juin 2004 à 14:06
c'est vrai, ça marche très bien du moins pour les archives simple...
En revanche ça ne fonctionne pas pour les archives multiples...
Je cherche désespérément la solution, mais je n'arrive pas a utiliser l'API "SetCallBack" et récupérer les Flags afin d'injecter le chemin de l'archive suivante.
Si l'un d'entre vous a la solution, des infos ou des idées je suis preneur...
Merci a tous par avance
.Marcial.
24 juin 2004 à 15:24
21 févr. 2004 à 22:34
Merci , et bon courage pour la suite.
ma note 10/10 min
17 nov. 2003 à 21:28
11 nov. 2003 à 12:11
sinon, je tenais à dire aussi qu'on peut aussi utiliser "rar.exe" et "unrar.exe" qui sont dans le dossier de winrar. C'est des programme sous dos, ça peut être une bonne alternative pour ceux qui veulent pas tout programmer et gérer les erreurs!
Bien sur le rar.exe est en shareware tandis que l'autre en freeware.
@+
Ben
10 nov. 2003 à 08:53
http://www.ifrance.com/goa/article/2000_09_17_unrar_dll/UnRARDLL.html
;)
27 juil. 2003 à 15:29
22 juil. 2003 à 10:01
A priori, ca devrait m'être pas mal utile, j'espère seulement qu'il marche correctement même avec des gros RAR ...
8 févr. 2003 à 19:02
27 janv. 2003 à 12:55
17 nov. 2002 à 01:02
Là je re-post les déclarations, certes connu, et j'y ajoute en plus une appli home-made qui les utilise... fallait bien que quelqu'un le fasse ;)
15 nov. 2002 à 08:44
sans te vexer on le trouve un peu partout sur le net en cherchant dans google :)
14 nov. 2002 à 13:36
10/10
14 nov. 2002 à 13:36