Fórum Criptografar JPG #286159
27/06/2005
0
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.
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
Curtir tópico
+ 0
Responder
Posts
26/11/2005
Crcam
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)