Essa é a procedure que eu eu executo...
É simples...
procedure TFrmPrincipal.ConverteImagem(index: Integer);
var
Redimensionar,ScalaCinza,Comprimir: Boolean;
qualidade: TJPEGQualityRange;
begin
Redimensionar := chkbxred.Checked;
ScalaCinza := chkbxpb.Checked;
Comprimir := chkbxComp.Checked;
imgBmp := TBitmap.Create;
imgJpeg := TJPEGImage.Create;
caminho := lstbxbmp.Items.Strings[index];
caminhoex := caminho;
Delete(caminhoex,Pos('.',caminhoex),4);
if FileExists(caminho) then
begin
imgBmp.LoadFromFile(caminho);
if Redimensionar then
begin
imgBmp.Width := StrToInt(edtW.Text);
imgBmp.Height := StrToInt(edtH.Text);
end;
imgJpeg.Assign(imgBmp);
imgJpeg.CompressionQuality := 50;
imgJpeg.Compress;
if ScalaCinza then
imgJpeg.Grayscale := true;
if Comprimir then
begin
qualidade := StrToInt(edtQualidade.Text);
imgJpeg.CompressionQuality := qualidade;
imgJpeg.Compress;
end;
end;
end;
Ta ae...
----- Original Message -----
From: Denise
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 24, 2005 5:03 PM
Subject: Re: [delphi-br] Gente uma ajuda por favor
Manda o código que fica mais fácil de entender o que vc está fazendo!
----- Original Message -----
From: Leonardo Martins
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 24, 2005 2:57 PM
Subject: [delphi-br] Gente uma ajuda por favor
Ninguém pode me ajudar e resolver esse problema?
O programa está pronto...
Sò gostaria de entender porque acontece isso...
Consigo converter a imagem tranquilamente,
porém imagens grandes ficam com tamanho pequeno
e imagens pequenas com tamanho grande...
Porque issO?
´Seria meu código?
Por favor, precisava de uma ajuda urgente mesmo...
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
