Probleme Abrevia

J'utilse un TABunzip pour dezippper un fichier jusque la pas de probleme mais voila je ne peux pas repeter l'operation
Je m'explique je souhaite dezipper un archive 'Temp.zip' j'utilise les fichiers deziper puis supprime le tout a la deuxieme application je retelecharge une archive temp.zip jusque la aucun probleme mais lorsque je veux la deziper avec la même fonction il ne fait rien

Voila ma fonction :
je ne comprend pas je precise que je n'ai pas de message d'erreur lors de l'execution de unzip mais apres lors de AssignFile(....) mais je me suis rendu compte que le probleme vient de cette fonction

Code:

---

1 2 3 4 5 6 7

with unzip do begin FileName := 'c:\\Vidéothèque\\Temp\\Temp.zip'; BaseDirectory := ExtractFilePath( FileName ); ExtractFiles( '*.*' ); free; end;

---

MERCI

PS : L'erreur est : "Violation d'acces à l'adresse 0046A57A dans le module 'Projet1.exe'. L'ecture de l'adresse 00000000."

Et le programme s'arrete sur la ligne :

Code:

---

FileName := 'c:\\Vidéothèque\\Temp\\Temp.zip';

---

Bonjour,

je ne connais pas ce composant, mais peut être cela vient il de l'intruction "free;".


comment est créé le TABunzip ?

en effet c'est sa mais je suis aublige de liberer pour pouvoir supprimer le zip mais c'est bon j'ai trouvé la solution MERCI :)