Ucitavanje slike iz baze

[ AnaBaki @ 23.07.2007. 18:09 ] @

Resih da skockam neki program, i zanima me kako:
U TImage da se ucitava slika iz baze, ako se klikne na TButton.
Probah nesto ali nikakve zadovoljavajuce rezultate nisam dobio.

Program je edukativne prirode.

Zahvaljujem na odgovorima i na primerima.

[ Nemanja Avramović @ 24.07.2007. 09:08 ] @

I ja sam pokušavao jednom da iz polja tipa BLOB u kom sam imao sliku učitam sliku u TDBImage (ili kako se već zove komponenta) ali nisam uspeo, pa ako neko zna, molio bih najprostiji primer

[ nikola.j @ 24.07.2007. 11:36 ] @

Code:

    if not dm.qPicPreview.IsEmpty then
    begin
        jpg:= TJPEGImage.Create;
        try
           jpg.Assign(dm.qPicPreview.FieldByName('slika'));
           Image1.Picture.Assign(jpg);
        finally
          jpg.Free;
        end;
      end;