Pourquoi ai-je une "erreur abstraite" lors de l'appel de TJclCompressArchive.Compress?

Question

J'ai le code suivant qui échoue toujours avec une « erreur abstraite »:

arch := TJclCompressArchive.Create(GetDesktop + 'Support.7z'); 
    try 
    with arch do 
    begin 

     if FindFirst('*.log', faAnyFile, sr) = 0 then 
     begin 
     repeat 
      AddFile(ExtractFileName(sr.Name),sr.Name); 
     until FindNext(sr) <> 0; 

     FindClose(sr); 
     end; 

     Compress; //this line throws the error 
    end; 
    finally 
    arch.free; 
    end; 

Cependant, je reçois toujours cette erreur en essayant de Compresser. Des idées sur ce que je fais mal ici?

Answer 1

Je crois que vous devez dire quel type de JclCompressArchive créer, comme lui donner arch := TJcl7zCompressArchive.Create... au lieu de JclCompressArchive.Create().

Si vous regardez la section « Hiérarchie des classes » de JclCompression.pas:

TJclCompressionArchive 
    | 
    |-- TJclCompressArchive 
    | | 
    | |-- TJclSevenzipCompressArchive 
    |   | 
    |   |-- TJclZipCompressArchive  handled by sevenzip ... 
    |   |-- TJclBZ2CompressArchive  handled by sevenzip ... 
    |   |-- TJcl7zCompressArchive  handled by sevenzip ... 
    |   |-- TJclTarCompressArchive  handled by sevenzip ... 
    |   |-- TJclGZipCompressArchive handled by sevenzip ... 
    |   |-- TJclXzCompressArchive  handled by sevenzip ... 

Mise à jour
Je pense que la bonne façon d'utiliser StackOverflow aurait été d'ajouter une nouvelle question, car après la mise à jour, c'est une question complètement différente.

Je ne sais pas pourquoi vous jeter à TJclCompressArchive à AddFile() et Compress(), il semble fonctionner pour moi sans les moulages

const 
    FILENAME = 'Support.7z'; 
var 
    archiveclass: TJCLUpdateArchiveClass; 
    arch: TJclUpdateArchive; 
    sr: TSearchRec; 
begin 
    archiveclass := GetArchiveFormats.FindUpdateFormat(FILENAME); 

    if not Assigned(archiveclass) then 
    raise Exception.Create('Could not determine the Format of ' + FILENAME); 

    arch := archiveclass.Create(FILENAME); 
    try 
    // if FileExists(FILENAME) then // if you want to add any new files, 
    // arch.ListFiles;   // in addition to what is already there 

    if FindFirst('*.pas', faAnyFile, sr) = 0 then 
    begin 
     repeat 
     arch.AddFile(ExtractFileName(sr.Name),sr.Name); 
     until FindNext(sr) <> 0; 

     FindClose(sr); 
    end; 

    arch.Compress; 
    finally 
    arch.free; 
    end; 
end;