H
hwsh
Unregistered / Unconfirmed
GUEST, unregistred user!
var TmpStream:TStream;begin RVEdtSubject.Clear; if adodsst.FieldByName('theme').IsNull then exit; with AdoDsSt do begin TmpStream:=CreateBlobStream(FieldByName('Theme'),bmRead); end; (AdoDsSt.FieldByName('Theme') AS TBlobField).SaveToStream(TmpStream);//也用过这个方法：(AdoDsSt.FieldByName('Theme') AS TBlobField).SaveTofile('f:/tmp');// TmpStream := Tadoblobstream.Create(Tblobfield(AdoDsSt.fieldbyname('Theme')),bmread); tblobfield(AdoDsSt.FieldByName('Theme')).SaveToStream(TmpStream);