Salut Delphiprog :)

Merci pour les investigations !

Pour ce qui est de ta participation je m'en souviens assez bien de mon côté !
Je crois que tu m'avais généré la doc et sans doute aidé sur le code avec Nono ^^

Bonjour Clio908 !

Je suis désolé, depuis toutes ces années je suis toujours inscrit aux emails de notification, malheureusement je ne fais plus de Delphi depuis presque autant de temps... je n'ai pour ainsi dire plus de quoi ouvrir ces fichiers (pas même Windows...) et je ne pourrais donc pas t'aider à corriger les problèmes.

D'instinct, je dirais que pour le premier problème il faut que tu vérifies le paramètre passé à toString (s'il y en a un/en manque un ?) ou sur quoi l'appel est fait. L'API a pu changer depuis  2003...
Pour le second problème, le type WideString n'existe sans doute plus depuis le support Unicode par Delphi ?
De ce que je viens de lire, remplace WideString par UnicodeString et ça devrait rouler !
Je t'invite à lire cet article : http://delphi.about.com/gi/o.htm?zi=1/XJ&zTi=1&sdn=delphi&cdn=compute&tm=33&f=00&su=p284.9.336.ip_p504.1.336.ip_&tt=2&bt=0&bts=0&zu=http://edn.embarcadero.com/article/38437

Voilà voilà, je ne peux guère faire plus, j'espère que cela t'aidera :)
Et comme je le disais avant, "bonne prog' !" ^^
Olivier

pas de quoi je t'en prie :)

Je te souhaite bon courage, si j'ai le temps je me pencherai peut-être dessus, qui sais...

Petit bonjour à Delphiprog au passage ^^

Héhé, 5 ans plus tard... c'est toujours marrant de retomber sur ses sources :)

Je crois me souvenir du problème dont tu parles MD21, a priori je n'y avais pas trouvé de solution à l'époque mais ça doit bien être possible.

Ca fait longtemps que j'ai touché à tout ça donc ça vaut ce que ça vaut, mais regarde peut-être s'il n'y a pas une possibilité du côté de GetWindowRect sur le handle du menu ou quelque chose dans ce goût, qui te permettrait de récupérer les coordonnées de toute la bande et de la colorer avant de passer à la coloration des items, en passant par un DeviceContext et les API, ou avec un TCanvas...

(c'est possible que je sois complètement à côté de la plaque hein...)

Cirec est dans le vrai, il faut que tu forces la recompilation de l'archiveur :)

Salut,

je pense qu'une méthode assez simple pour gérer les sous-répertoires est la suivante :

-> Lors de la création de l'archive, enregistrer dans un champ "Nom" le nom complet du fichier, relativement à la racine de l'archive.

Exemple:
racine
|
|---Rep1
|    |--Fichier1
|    |---Rep2
|         |--Fichier2
|         |--Fichier3

>> L'enregistrement correspondant à Fichier1 aura pour champ Nom la valeur 'Rep1\Fichier1'
>> Les enregistrements correspondant à Fichier2 et Fichier3 auront pour champ Nom la valeur 'Rep1\Rep2\Fichier2' et 'Rep1\Rep2\Fichier3'

-> Lors de la décompression, créer au besoin le répertoire de destination correspondant à la racine de l'archive, puis pour chaque fichier, faire un ForceDirectories(ExtractFilePath(Racine + Nom)) puis créer le fichier dans l'arborescence ainsi générée.

Exemple : L'archive est décompressée dans Racine = 'C:\Temp\'. (Utiliser IncludeTrailingBackSlash ou IncludeTrailingPathDelimitor pour s'assurer qu'il y a bien le '\' à la fin)

Le Fichier1 doit donc avoir pour chemin de destination 'C:\Temp\Rep1\Fichier1'

ExtractFilePath(Racine + Nom) correspond à ExtractFilePath('C:\Temp\' + 'Rep1\Fichier1'). Cela renverra 'C:\Temp\Rep1\'.
ForceDirectories('C:\Temp\Rep1\') crée tous les répertoires non existant du chemin passé en paramètre. Dans notre cas, Rep1 est créé sous Temp.
L'extraction peut continuer dans le répertoire 'C:\Temp\Rep1\' :)

Vala vala ;)
Bonne prog' !
Bestiol

Envoie-moi ton mail par mp !

J'ai voulu reprendre le code avec Delphi 7 pour voir si c'est un problème de Delphi 2006, mais j'ai des erreurs de compilation....
Jveux bien t'envoyer les sources mais je ne te garantis pas que j'ai pas introduit des problèmes en bidouillant ^^

lol :o)

Ben en fait j'en ai une qui est presque prête, mais j'ai un souci complètement stupide qui me bloque complètement : mon TMemoryStream.Size renvoie 0 alors que le code est identique à cette "vieille" version :os

enfin bref ça a fini par me casser les pieds et comme j'ai d'autres choses à faire, c'est un ptit peu en standby pour le moment ;o)

++
Bestiol.

merci :)

Oui tout à fait ;)
Mais packer un EXE de 17ko je sais pas trop si ça vaut le coup ! C'est la taille d'un exe compilé avec ce code :

program extracteur;

uses
  Windows;

begin

end.

L'ajout de Classes fait monter à 76ko, donc je devrai me passer des streams ^^

Je vous tiens au courant de tout ça !