喜欢DELPHI的都看过来，帮我解决一个问题

[ruisheng]

我有以下程序
var
Stream1: TBlobStream;
begin
DM.Query1.Close;
DM.Query1.SQL.Clear;
sql1 := 'select * from gz_test_gzs';
DM.Query1.SQL.Add(sql1);
DM.Query1.Open;
DM.Query1.First;
stream1 := TBlobStream.Create(DM.Query1.FieldByName('gzs_rr')as TBlobField,bmRead);
RichEdit1.Lines.LoadFromStream(stream1);
stream1.Free;
end;
能够正确运行，但Query1换成ADOQuery1后出错，错误原因大概在
DM.Query1.FieldByName('gzs_rr')as TBlobField这里
应该怎么解决啊

[chechy]

将这句
stream1 := TBlobStream.Create(DM.Query1.FieldByName('gzs_rr')as TBlobField,bmRead);
改为
stream1 := TADOBlobStream.Create(DM.Query1.FieldByName('gzs_rr')as TBlobField,bmRead);

[shift]

chechy(chechy)说得没错,将Query1换成ADOQuery1后要将TBlobStream.Create换成TADOBlobStream.Create,道理其实很很简单,不用说你也会明了.

[machin]

stream1 := TADOBlobStream.Create(DM.Query1.FieldByName('gzs_rr')as TBlobField,bmRead);

我也是这么做的。

[netyjynixa]

i agree up

[ruisheng]

谢谢各位，我已经解决了。不过我发现TBlobStream和TADOBlobStream有一个区别：
我在Oracle8定义了一个字段为varchar2类型，用TBlobStream能访问，但用TADOBlobStream
不能访问，只能改为LONG型了。