RSS

Salvar imagem no access

27 nov

//Bom sobre como salvar imagem no banco

//No access voce deve ter um campo da tabela como Objeto OLE

//Para rodar o exemplo, coloque em um formulário 2 Button,

//2 Image e a conexão ADO com o access

//carregue qualquer imagem bmp no Image1

//para salvar a imagem

//no evento onClick do Button1

procedure TForm1.Button1Click(Sender: TObject);

var

Stream: TMemoryStream;

begin

Stream := TMemoryStream.Create;

try

Image1.Picture.Bitmap.SaveToStream(Stream);

ADOQuery1.SQL.Text := ‘SELECT * FROM Tabela do banco ACCESS WHERE Campo da tabela’;

ADOQuery1.Open;

ADOQuery1.Edit;

TBlobField(ADOQuery1.FieldByName(‘Nome do campo’)).LoadFromStream(Stream);

ADOQuery1.Post;

finally

Stream.Free;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

Stream: TMemoryStream;

begin

ADOQuery1.SQL.Text := ‘SELECT * FROM Tabela do ACCESS WHERE Campo da tabela’;

ADOQuery1.Open;

Stream := TMemoryStream.Create;

try

TBlobField(ADOQuery1.FieldByName(‘Nome do Campo’)).SaveToStream(Stream);

Stream.Position := 0;

Image2.Picture.Bitmap.LoadFromStream(Stream);

finally

Stream.Free;

end;

end;

Anúncios
 
Deixe um comentário

Publicado por em 27/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: