Delphi dicas

Exibir jpeg de tabela access no delphi

Pessoal depois de pedir muita ajuda, procurar, e ninguém dar uma luz, consegui encontrar em um site americano(http://delphi.about.com/library/code/ncaa030601a.htm) essa dica, segue o código abaixo.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Buttons, ExtCtrls, StdCtrls, Db, ADODB, Grids, DBCtrls, DBGrids;



type

        TForm1 = class(TForm)

        ADOTable1: TADOTable;

        DataSource1: TDataSource;

        btnShowImage: TButton;

        ADOImage: TImage;

        ADOTable1Name: TWideStringField;

        ADOTable1Description: TWideStringField;

        ADOTable1Author: TWideStringField;

        ADOTable1Type: TWideStringField;

        ADOTable1Size: TFloatField;

        ADOTable1Cost: TBCDField;

        ADOTable1DateUpl: TDateTimeField;

        ADOTable1Picture: TBlobField;

        DBGrid1: TDBGrid;

        procedure btnShowImageClick(Sender: TObject);

        procedure FormCreate(Sender: TObject);

        procedure FormDestroy(Sender: TObject);

        private

        { Private declarations }

        public

        { Public declarations }

end;





const

JPEGstarts = 'FFD8';

BMPstarts = '424D';  //BM



var

Form1: TForm1;



implementation

uses jpeg;

{$R *.DFM}



function JpegStartsInBlob (PicField:TBlobField):integer;

var

bS     : TADOBlobStream;

buffer : Word;

hx     : string;

begin

        Result := -1;

        bS := TADOBlobStream.Create(PicField, bmRead);

        try

        while (Result = -1) and (bS.Position + 1 < bS.Size) do

        begin

                bS.ReadBuffer(buffer, 1);

                hx:=IntToHex(buffer, 2);

                if hx = 'FF' then begin

                        bS.ReadBuffer(buffer, 1);

                        hx:=IntToHex(buffer, 2);

                        if hx = 'D8' then Result := bS.Position - 2

                        else if hx = 'FF' then bS.Position := bS.Position-1;

                end; //if

        end; //while

        finally

        bS.Free

end;  //try

end;



procedure TForm1.btnShowImageClick(Sender: TObject);

var

bS  : TADOBlobStream;

Pic : TJpegImage;

begin

        bS := TADOBlobStream.Create(AdoTable1Picture, bmRead);

        try

        bS.Seek(JpegStartsInBlob(AdoTable1Picture), soFromBeginning);

        Pic:=TJpegImage.Create;

        try

        Pic.LoadFromStream(bS);

        ADOImage.Picture.Graphic:=Pic;

        finally

        Pic.Free;

end;

finally

bS.Free

end;

end;





procedure TForm1.FormCreate(Sender: TObject);

var sDBPath, sCons: string;

begin

        //change the sDBPath to point to your database!

        sDBPath := 'c:!GajbaAboutaboutdelphi.mdb';

        sCons := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + sDBPath + ';Persist Security Info=False';



        ADOTable1.ConnectionString := sCons;

        ADOTable1.TableName := 'Applications';

        DataSource1.DataSet := ADOTable1;

        DBGrid1.DataSource := DataSource1;



        ADOTable1.Active:=True;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

        ADOTable1.Active:=False;

end;





//Extra!! save JPG to table

procedure SaveJpegToTable(Table: TADOTable; PicField:TBlobField; sPicPath: string);

{

Usage:



SPicFileName := 'C:!gajbacdcoverscdcover1.jpg';

SaveJpegToTable(ADOTable1, ADOTable1Picture, SPicFileName);

}

var

fS  : TFileStream;

begin

        fs:=TFileStream.Create(sPicPath, fmOpenRead);

        try

        Table.Edit;

        PicField.LoadFromStream(fs);

        Table.Post;

        finally

        fs.Free;

end;

end;





end.

por : Éderson Cassiano Bologna