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

Question

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

Aroldo Zanela · Answer

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

E-eduardo · Answer

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;

E-eduardo · Answer

Desculpe, voc� quer salvar em um campo.... � s� usar a imagem que est� no TPicure....

Davi_info · Answer

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.

F�rum como gravar parte de uma imagem e depois salva-la... #225197