Hola tengo el siguiente codigo usando el componente d7zip :
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
Arch: I7zOutArchive;
AFileName: string;
begin
AFileName := 'c:/test.txt';
Arch := CreateOutArchive(CLSID_CFormat7z,'7za.dll');
SetCompressionLevel(Arch, 9);
SevenZipSetCompressionMethod(Arch, m7LZMA);
Arch.AddFile(AFileName, '');
Memo1.Lines.Add(AFileName);
Memo1.Lines.Add(StringOfChar('=', 30));
Memo1.Lines.Add('Finalizado');
Arch.SaveToFile('test.zip');
end;
El problema esta en que no me compila porque da error :
Too many actual parameters
En esta linea :
Código Delphi
[-]Arch := CreateOutArchive(CLSID_CFormat7z,'7za.dll');
Probe sacando la parte de dll que esta de mas pero despues me aparece el error de que no encuentra la dll , todo esto lo hago en delphi xe2 y me baso en esta pagina :
http://jachguate.wordpress.com/2012/...7zip-y-delphi/
¿ Cual es el error ?