Também queria saber como comprimir um PDF, estou tentando dessa forma logo
abaixo, mas o arquivo fica corrompido após a compresão.
var oCompress: TCompressionStream; inpStream, outStream: TMemoryStream;
begin
inpStream := TMemoryStream.Create;
outStream := TMemoryStream.Create;
inpStream.LoadFromFile('C:\temp\teste.pdf');
oCompress := TCompressionStream.Create(clMax, outStream);
oCompress.CopyFrom(inpStream, inpStream.Size);
oCompress.Free;
outStream.SaveToFile('C:\temp\teste2.pdf');
inpStream.Free;
outStream.Free;
end;
--- Em delphi-br@yahoogrupos.com.br, "wagps2000" <wa...@...> escreveu
>
> Olá Colegas da lista.
>
> ALguem sabe se tem como abrir arquivos.pdf através do Delphi
>
> Como ???
>
> value.
>
> Wagner
>
