Criptografar JPG

Delphi

27/06/2005

Caros, bom dia.

Preciso criptografar imagens (JPG).

Tenho uma rotina que faz isso, mas é (BMP), tentei adaptar, mas nao funfou.

Detalhe: Nao posso transformar o JPG em BMP para executar a criptografia, motivo: sao 13.000 imagens, ae ficaria enorme o total (tamanho) de todas as imagens

em JPG-> 13.000 Imagens: 260MB +-
em BMP->13.000 Imagens: 2.GB +-

por isso nao posso transformar JPG em BMP.

Preciso colocar todas as imagens, dentro de um CD-ROM. Este é mais um detalhe do porque precisa-se ser em JPG.


Abracos.


Pedih

Pedih

Curtidas 0

Respostas

Crcam

Crcam

27/06/2005

Tente assim:

acrescente na cláusula uses

JPeg, CLIPBRD;


Acrescente um objeto OpenPictureDialog e um DBImage no seu form.
No evento OnDblClick acrescente o código abaixo.

procedure TForm1.DBImage1DblClick(Sender: TObject);
var
imagem : tPicture;
begin
if OpenPictureDialog1.execute then
begin
imagem := tPicture.create();
imagem.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assign(imagem);
DBImage1.PasteFromClipboard;
imagem.Free;
end;
end;


GOSTEI 0
POSTAR