Ol� pessoalTenho esse c�digo pra salvar imagens JPEG num banco (tirado daqui do f�rum mesmo):[code:1:0ea2a736d6]procedure TForm1.Button1Click(Sender: TObject); var Image: TJPEGImage;begin if OpenPic...

F�rum Imagens em Bancos de Dados #268163

11/02/2005

Ol� pessoal
Tenho esse c�digo pra salvar imagens JPEG num banco (tirado daqui do f�rum mesmo):

procedure TForm1.Button1Click(Sender: TObject);
  var Image: TJPEGImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    Image := TJPEGImage.Create;
    Image.LoadFromFile(OpenPictureDialog1.FileName);
    Clipboard.Assign(Image);
    Table.Insert;
    DBImage1.PasteFromClipboard;
    Table.Post;
    Image.Free;
  end;
end;

Esse c�digo � espec�fico pra imagens JPEG. H� alguma maneira de generalizar esse c�digo pra todos os tipos de imagem?
Uma maneira seria examinar a extens�o do arquivo e instanciar o objeto correspondente. Mas isso parece mais �gambiarra�.
Ouvi algu�m do f�rum falar em LoadFromStream e SaveToStream. Algu�m tem um bom material sobre Streams no Delphi?
Abra�os

Tnaires

Curtir t�pico

+ 0

Responder