Fórum SavePictureDialog #327777

19/08/2006

0

Bom dia,,,, to vinculando a foto de produtos ao cadastro, intaum tenho um Dbimage, 1 openpicturedialog, e 1 savepicturedialog.
No cadastro do produto consigo abrir a foto com o openpicturedialog, a foto aparece no dbimage mas pra salvar essa foto a este produto oque devo fazer, alguem sabe uma rotina no savepicturedialog para salvar,,, pois quando volto no cadastro do produto naum tem a foto ...Desde ja agradeço a ajuda...


Vfdelphi

Vfdelphi

Responder

Posts

19/08/2006

Micheus

...a foto aparece no dbimage mas pra salvar essa foto a este produto oque devo fazer,...
Para armazenar a imagem eu anteiormente utilizei um campo BLOB no banco e, para ler e gravar, um TMemoryStrem como intermediários. Após ter carregado a imagem para o DBImage através do OpenPictureDialog, vc pode executar um procedimento mais ou menos assim:
procedure TForm1.GravaImage(Imagem :TDBImage);
var
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    Imagem.Picture.Graphic.SaveToStream(MemStream);
    TableName.Edit;
    TableNameBlobField.LoadFromStream(MemStream);
    TableName.Post;
  finally
    TheStream.Free;
  end;
end;
Obs: leve em consideração o fato de sua tabela já estar em edição, daí tem um edit e post que não precisará ser utilizado.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar