code : pascal
var Bcg: TBitmap;
  BF: TBlobField;
  Buf: TStream;
begin
  // fetch data pake query
  XQuery.SQL.Text:= 'SELECT IMG_FIELD FROM TABLE_NAME WHERE PK_KEY = 101';
  XQuery.Open;
 
  // assign Blob field to BF
  BF:= XQuery.FindField('IMG_FIELD');
 
  // create memory stream
  Buf:= TMemoryStream.Create;
  try
    // assign blob field data to stream
    BF.SaveToStream(Buf);
 
    // reset stream pointer
    Buf.Seek(0, soFromBeginning);
 
    // nah... sekarang tinggal assign Buf stream ke bitmap
    Bcg.LoadFromStream(Buf);
  finally
    Buf.Free;
  end;
end;
Parsed in 0.004 seconds, using GeSHi

code : pascal
Canvas.Draw(0, 0, backgroundImage);
Parsed in 0.000 seconds, using GeSHi