como gravar parte de uma imagem e depois salva-la...

Delphi

10/04/2004

Ola gente, gostaria de saber como gravar parte de uma imagem e depois salva-la num campo Blob de uma tabela Access.
Aguardo...


Davi_info

Davi_info

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

10/04/2004

Colega,

Verifique se esta thread aqui te ajuda: [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=13086] 13086 [/url]


GOSTEI 0
E-eduardo

E-eduardo

10/04/2004

Abra a imagem em um TImage depois crie um outro TImage e use seu método CopyRect depois use o método SaveToFile do seu objeto Picture.

procedure TForm1.BitBtn1Click(Sender: TObject);
var ImageDestino : TImage;
    Dest, Orig : TRect;
begin
  ImageDestino := TImage.Create(Self);

  Dest.Left := 0; Dest.Top := 0; Dest.Right := 50; Dest.Bottom := 50;
  Orig.Left := 0; Orig.Top := 0; Orig.Right := 50; Orig.Bottom := 50;

  ImageDestino.Canvas.CopyRect(Dest, Image1.Canvas, Orig);
  ImageDestino.Picture.SaveToFile(´seuarquivo.bmp´);
end;



GOSTEI 0
E-eduardo

E-eduardo

10/04/2004

Desculpe, você quer salvar em um campo.... é só usar a imagem que está no TPicure.


GOSTEI 0
Davi_info

Davi_info

10/04/2004

Obrigadao Edu, a sua primeira explicacao ja valeu. Eu estava fazendo extamente assim so q ao inves de usar o TImage estava usando o Tbitmap e nao funciona, ja que ele nao retirava a selecao da imagem e sim a imagem toda. Tem q usar o TImage primeiro e depois passar ao Tbitmap para se ter a selecao exata da imagem e depois gravar na tabela.
Valeu tb aroldo pela explicacao de como gravar na tabela.


GOSTEI 0
POSTAR