procedure TFrmDownload.DownBolb(FieldName: String; Q: TADOQuery);Var BlobStream:TADOBlobStream;begin if TBlobField(Q.FieldByName(FieldName)).isNull then begin ADOQueryUpdate.Parameters[0].Value:= Null; end else begin Try BlobStream:= TADOBlobStream.Create(TBlobField(Q.FieldByName(FieldName)), bmRead); if BlobStream.Size>0 then begin BlobStream.Position:= 0; ADOQueryUpdate.Parameters[0].LoadFromStream(BlobStream, ftBlob); end; Finally BlobStream.Free; end; end;end
