Salut,
J'essaie de décompresser (avec les outils donnés en sujet) un zip. Après plusieurs composants qui ont tous plus ou moins foirés sous Lazarus, j'essaie avec TurboExplorer. J'arrive à compiler les outils Abbrevia (mais pas à les installer car on ne peut installer de composants visuels sous TurboExplorer ).
J'arrive à compiler mon projet aussi, mis il y a systématiquement une violation d'accès ... mais je ne vois pas pourquoi.
Voilà le code en cause :
A noter que eoCreateDirs et eoRestorePath génère une erreur ("identifiant non déclaré" alors qu'ils le sont normalement dans le source Abbrevia ! ).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 begin if odSource.execute then begin sourcePath:=odSource.FileName; sourcePathFinal:=extractFilePath(sourcePath); sourceExt:=extractFileExt(sourcePath); sourceName:=extractFileName(sourcePath); a:=pos('.',SourceName); sourceName:=copy(sourceName,0,a-1); renameFile(sourcePath,sourcePathFinal+'\'+sourceName+'.zip'); sourcePathFinal:=sourcePathFinal+'temp\'; forceDirectories(sourcePathFinal); showmessage(sourceName+'.zip'); //unZip.extractOptions:=[eoCreateDirs, eoRestorePath]; unZip.FileName:=sourceName+'.zip'; showmessage(sourceName+'.'+sourceExt); unzip.ExtractFiles('*.*'); end;
Merci pour vos avis.
Partager