怎样打印数据库中的blob的内容？

Question

直接读到内存流里面进行处理吧！
var 
  StampStream : TMemoryStrem; 
begin 
  StampStream := TMemoryStream.Create; 
  try 
    ADOQuery1.Close; 
    ADOQuery1.SQL.CLear; 
    ADOQuery1.SQL.Add('Select BlobField from Table'); 
    ADOQuery1.Open; 
    ADOQuery1.First; 
    StampStream.Clear; 
    TBlobField(ADOQuery1.FieldByName('BlobField')).SaveToStream(StampStream); 
    // ... do whatever with your stream 
  finally 
    StampStream .Free; 
  end; 
end; 
     

Answer 1

你的Blob字段中存的数据是什么格式的?
BMP:创建TBitmap对象,用LoadFromStream读出来(使用TBlobStream),把它画到Printer.Canvas中.
其它图片:同BMP,创建的对象不同,如TJpegImage.
文本或RichText:读到TRichEdit中,调用TRichEdit.Print
OLE对象:创建正确的OLE对象(如用TOleContainer),调用DoVerb('print')
......     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/

Answer 2

我想把它打印出来，最好是把它发到word上处理因为这样拍板方便，请问可以吗？