Fórum Importar JPG para banco #234533

delphiforum.icft.com.br/forum/viewtopic.php?t=18267&highlight=jpeg
http://www.salesiano.com.br/egama/dbjpeg.zip

Paulo,
este componente nao instalou pq deu erro, algo como ser incompativel com o D7, dá erro na hora de registrar o JPEGdbIbx

Colega, tenho um pequeno exemplo (um cadastro que grava
imagens JPG em um campo do tipo BLOB), criado no Interbase.
Acredito que com o Firebird, funcione da mesma forma.

Me mande uma mensagem particular com o seu e-mail e eu
te mando o exemplo.

OK ?

GLAUCO.

Adriano,

Coloque no Form um [b:8bf8aecb9b]OpenPictureDialog[/b:8bf8aecb9b] que fica na palheta Dialogs, um [b:8bf8aecb9b]ClientDataSet[/b:8bf8aecb9b] ligado ao banco, um [b:8bf8aecb9b]DBImage[/b:8bf8aecb9b] (ligado ao campo imagem do tipo BLOB) e, por fim, na cláusula uses da interface acrescente a unit [b:8bf8aecb9b]Clipbrd[/b:8bf8aecb9b] (para usar a área de transferên-cia do Windows) e a também a unit [b:8bf8aecb9b]Jpeg[/b:8bf8aecb9b] para trabalhar com arquivos do tipo jpg.

O exemplo abaixo usa DBExpress acessando o Interbase e faz o que vc está precisando:

procedure TForm1.Button1Click(Sender: TObject);
var jpg : TJPegImage;
begin
if (ClientDataSet1.State = dsInsert) or (ClientDataSet1.State = dsEdit) then
begin
if OpenPictureDialog1.Execute then
begin
jpg := TJpegImage.Create;
jpg.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assign(jpg);
DBImage1.PasteFromClipboard;
jpg.Free;
end;
end
else
ShowMessage(´Tabela não está no modo de inclusão/edição´);
end;

Colega,

Assunto detalhado aqui, com BDE ou IBX: http://www.firebase.com.br/cgi-bin/firebase.cgi/artigo?ID=286