Padronizar Imagem

Question

Colegas minha d�vida � a seguinte tenho uma aplica��o que usando o image pega um arquivo jpg cria uma referencia para o cliente e salva em uma pasta deixando o bd mais leve, at� ai beleza s� que eu qu...

Beppe · Answer

[code:1:589c95661c]function PadronizaTamanho(Imagem: TGraphic; W, H: Integer): TGraphic;var  B: TBitmap;begin  B := TBitmap.Create;  try    B.Width := W;    B.Height := H;    B.Canvas.StrecthDraw(Rect(0, 0, W, H), Imagem);    Result := Imagem.ClassType.Create;    Result.Assign(B);  finally    B.Free;  end;  end;[/code:1:589c95661c]Chame assim:[code:1:589c95661c]Nova := PadronizaTamanho(SuaImagem, 80, 80);try  Nova.SaveToFile(�nome_do_arquivo.ext�);finally  Nova.Free;end;[/code:1:589c95661c]A fun��o deve criar uma nova imagem do mesmo tipo da imagem passada como argumento.Eu n�o testei o c�digo, ent�o por favor me retorne, se deu certo ou n�o.T+...

Mssilva · Answer

Colega est� dando erro nessa lina:
B.Canvas.StrecthDraw(Rect(0, 0, W, H), Imagem);
Erro:
[Error] UnitCadCds.pas(214): Undeclared identifier: �StrecthDraw�
[Error] UnitCadCds.pas(215): Incompatible types: �TGraphic� and �TObject�

Estou fazendo assim para garregar a imagem jpg ou bitmap:

procedure TFrmCadCds.btnCarregarClick(Sender: TObject);
begin
If dscds.State in [dsInsert, dsEdit] then
begin
OpenPictureDialog1.Execute;
Caminho:=OpenPictureDialog1.FileName;
if OpenPictureDialog1.FileName �� Then //Begin
//Label2.Caption:= �Origem da Foto = �+ caminho;
imgFoto.Picture.LoadFromFile(Caminho);
btnCarregar.Enabled:= False;
btnSalvar.Enabled:= True;
//end;
end
else
ShowMessage(�Para adcionar uma foto voc� deve criar uma nova banda!�);
end;

Para Gravar a imagem na pasta:

procedure TFrmCadCds.btnSalvarClick(Sender: TObject);
begin
if DirectoryExists(�C:\Cadastro de CDS\Bin\Fotos�) then
begin
imgFoto.Picture.SaveToFile(�C:\Cadastro de CDS\Bin\Fotos\�+edtCodigo.Text+�.jpg�);
ShowMessage(�Foto Salva com Sucesso�);
imgFoto.Picture:= Nil;
btnSalvar.Enabled:= false;
btnCarregar.Enabled:= true;
end
else
begin
ShowMessage(�Caro usu�rio n�o foi poss�vel encontrar�+#13+
�A pasta onde ira ficar as fotos�);
ImgFoto.Picture:= Nil;
btnSalvar.Enabled:= false;
btnCarregar.Enabled:= true;
end;
end;

A imagem � gravada com o c�digo da banda para pader visualizar em outro form

Como encaxo essa fun��o que me envio
Des de j� muito obrigado :D

Beppe · Answer

Ops...mispelling... :oops: [code:1:5f9a2cfd9b]function PadronizaTamanho(Imagem: TGraphic; W, H: Integer): TGraphic; var   B: TBitmap; begin   B := TBitmap.Create;   try     B.Width := W;     B.Height := H;     B.Canvas.StretchDraw(Rect(0, 0, W, H), Imagem);     Result := Imagem.ClassType.Create;     Result.Assign(B);   finally     B.Free;   end;  end;[/code:1:5f9a2cfd9b]Veja agora. ;)...

Mssilva · Answer

Colega a fun��o com o (ClassType) n�o funciona se tira funciona falta algo na uses?
Fiz assim:
procedure TFrmCadCds.btnSalvarClick(Sender: TObject);
Var
Nova : TGraphic;
begin
if DirectoryExists(�C:\Cadastro de CDS\Bin\Fotos�) then
begin
Nova:= PadronizaTamanho(imgFoto.Picture.Bitmap,80,80);
imgFoto.Picture.SaveToFile(�C:\Cadastro de CDS\Bin\Fotos\�+edtCodigo.Text+�.jpg�);
ShowMessage(�Foto Salva com Sucesso�);
imgFoto.Picture:= Nil;
btnSalvar.Enabled:= false;
btnCarregar.Enabled:= true;
end
else
begin
ShowMessage(�Caro usu�rio n�o foi poss�vel encontrar�+#13+
�A pasta onde ira ficar as fotos�);
ImgFoto.Picture:= Nil;
btnSalvar.Enabled:= false;
btnCarregar.Enabled:= true;
end;
end;
S� que � criado um aquivo jpg em branco onde estou errando :oops:

Beppe · Answer

Pode testar que agora t� limpo(eu testei). :D

function PadronizaTamanho(Imagem: TGraphic; W, H: Integer; Tipo: TGraphicClass = nil): TGraphic;
var
  B: TBitmap;
begin
  B := TBitmap.Create;
  try
    B.Width := W;
    B.Height := H;
    B.Canvas.StretchDraw(Rect(0, 0, W, H), Imagem);
    if Tipo = nil then
      Result := TGraphic(Imagem.ClassType.Create)
    else
      Result := Tipo.Create;
    Result.Assign(B);
  finally
    B.Free;
  end;
end;

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
var
  Nova: TGraphic;
begin
  Nova := PadronizaTamanho(Image1.Picture.Graphic, 80, 80, TJPEGImage);
  try
    Image2.Picture.Graphic := Nova;
  finally
    Nova.Free;
  end;
end;

Eu mudei a l�gica da rotina, com um par�metro a mais. Eu vi que vc usa a propriedade Bitmap, o que significa que a imagem de origem n�o � um BMP. Se a imagem � JPEG, usar Bitmap apaga a imagem original :!:

O �ltimo par�metro � o tipo da imagem que deseja criar. Se deixar nil ou n�o colocar nada, ser� criada uma imagem do mesmo tipo da original.

� necess�rio ter Jpeg e Graphics na uses.

Mssilva · Answer

Beppe Funcionouuuuuu  :lol:   :D   8) , Valeu mesmo pela ajuda espero poder retribuir um dia.Marcos...

Beppe · Answer

Que bom.Quero apenas retificar uma coisa. Eu disse:�Eu vi que vc usa a propriedade Bitmap, o que significa que a imagem de origem n�o � um BMP.�mas queria dizer:�Eu vi que vc usa a propriedade Bitmap, o que significa que a imagem de origem � um BMP.�T+...

F�rum Padronizar Imagem #268329