gravar imagem

Question

bom dia!Gostaria de saber, como consigo, pegar uma imagem, do componente image, e gravar no banco de dados?Obrigado...

Massuda · Answer

Esta procedure copia uma imagem para um campo BLOB:

procedure SalvaImagemNoBlob(AImage: TImage; ABlob: TBlobField);
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    AImage.Picture.Bitmap.SaveToStream(Stream);
    Stream.Position := 0;
    ABlob.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Para copiar uma imagem em um TImage para um campo BLOB:

SalvaImagemNoBlob(SeuImage, SeuCampoBlob);

Caro Massuda, para quais tipos de imagem esse c�digo � v�lido?
Abra�os

Airto · Answer

estou usando o componente ahacquireimage, para scannear, quando e dado o post, para efetuar a grava�o esta retornando acess violation 40003C52, o bde j� alterei o blobs to cache para 10000 e blobs do size para 10000

teria um outro problema?

Obrigado

Technos · Answer

Amigo, eu aconselho voce gravar o caminho para essas imagens.

Tipow, uma string sacou ?
� Melhor, mais f�cil e mais r�pido, al�m de nao sobrecarregar o BD com imagens grandes.

Apenas o caminho, pensse nisso.
Se tiver d�vidas, fala aee que agente resolve.

Technos :D

Massuda · Answer

[quote:964667bf24=�Airto�]estou usando o componente ahacquireimage, para scannear, quando e dado o post, para efetuar a grava�o esta retornando acess violation  40003C52...[/quote:964667bf24]Voc� poderia postar o c�digo que voc� est� usando e, se poss�vel, indicar onde est� ocorrendo o erro?...

Tnaires · Answer

[quote:19b27f03de=�Massuda�]Esta procedure copia uma imagem para um campo BLOB:[code:1:19b27f03de]procedure SalvaImagemNoBlob(AImage: TImage; ABlob: TBlobField);var  Stream: TMemoryStream;begin  Stream := TMemoryStream.Create;  try    AImage.Picture.Bitmap.SaveToStream(Stream);    Stream.Position := 0;    ABlob.LoadFromStream(Stream);  finally    Stream.Free;  end;end;[/code:1:19b27f03de]Para copiar uma imagem em um TImage para um campo BLOB:[code:1:19b27f03de]SalvaImagemNoBlob(SeuImage, SeuCampoBlob);[/code:1:19b27f03de][/quote:19b27f03de]Caro Massuda, para quais tipos de imagem esse c�digo � v�lido?Abra�os...

Tnaires · Answer

Afe Maria, eu e essa minha mania d perguntar antes d pensar...
Respondendo a minha pergunta :oops: , esse c�digo � v�lido para os tipos d imagem q um componente TImage suporta. Ou seja, nada feito para JPEGs, GIFs ou PNGs...
Se algu�m souber algum c�digo para salvar qq tipo d imagem, pelamordedeus divulgue no f�rum...

Massuda · Answer

[quote:8f6bcf4a8d=�tnaires�]Afe Maria, eu e essa minha mania d perguntar antes d pensar...[/quote:8f6bcf4a8d]Acontece nas melhores fam�lias!  :lol: [quote:8f6bcf4a8d=�tnaires�]Se algu�m souber algum c�digo para salvar qq tipo d imagem, pelamordedeus divulgue no f�rum...[/quote:8f6bcf4a8d]Se n�o me engano, para ter suporte a JPEG, basta incluir a unit JPEG (ou JPG?) no uses da sua unit. Essa unit costuma vir no CD do Delphi (mas n�o faz parte da instala��o normal) e est� (acho) no diret�rio Extras.Para outros formatos, experimente usar a biblioteca [url=//www.soft-gems.net/Graphics.php#GraphicEx]GraphicEx[/url] (freeware com source).Em ambos os casos, basta incluir as units no uses de sua unit, que automagicamente o TImage passa a suportar novos formatos de imagens....

Airto · Answer

o problema e o seguinte....scaneo a nota fiscal, no formato jpg, at� funcionando normal...na hora de executar o post, que retorna o acess violation,

quando n�o gravo a imagem, so os demais campos,,,grava normal, quando tento gravar a imagem que retorna o erro?

Obrigado

Massuda · Answer

[quote:74467ba584=�Airto�]... na hora de executar o post, que retorna o acess violation ...[/quote:74467ba584]AV geralmente ocorre se voc� estiver tentando usar um objeto que j� n�o existe ou que ainda n�o foi criado. Por exemplo, quando voc� tenta postar a imagem no DB, o componente que contem a imagem ainda existe?Ser� que voc� poderia postar o c�digo para que todos possam dar uma olhada?...

Aroldo Zanela · Answer

Colega,Qual � o banco de dados que voc� est� utilizando? Acredito que seu problema est� em visualizar a imagem e n�o em armazenar, pois o objeto TField encapsula toda a �complexidade� para a grava��o por meio dos m�todos LoadFrom<X>. A Jedi VCL possui diversos componentes  para manipular v�rios formatos de imagens (convers�o e visualiza��o). A prop�sito, a JPEG.DCU fica no diret�rio LIB padr�o....

Kapak · Answer

Experimente utilizar SaveToStream de TGraphic e n�o TBitmap.Troque:Picture.Bitmap.SaveToStreampor:Picture.Graphic.SaveToStream...

Gustavo_pacheco · Answer

[quote:da33a3a359]A Jedi VCL possui diversos componentes para manipular v�rios formatos de imagens (convers�o e visualiza��o). [/quote:da33a3a359]Alguma dica de qual componente utilizar?...

Gustavo_pacheco · Answer

Sobe...

Gustavo_pacheco · Answer

Sobe...

F�rum gravar imagem #269645