CreateBlobStream - error read stream

[ANsy]

код написан изначально в делфе 6ой...

procedure TDsnGrid.ReadDS_Columns(dsdb: TADOConnection; chFld, blFld, tableNm,
  chVal: shortString; clms: TDBGridColumns);
var
  dq:TADOQuery;
  bs:tstream;
begin
dq:=TADOQuery.Create(nil);
dq.Connection:=dsdb;
dq.SQL.Text:=format('SELECT %s,%s FROM %s WHERE %0:s LIKE ''%3:s''',[chFld,blFld,tableNm,chVal]);
dq.Open;
dq.First;
clms.State:=csCustomized;
if (dq.RecordCount>0) then begin
 bs:=dq.CreateBlobStream(dq.FieldByName(blFld) as TBlobField,bmRead);
 if (bs.Size>0) then clms.LoadFromStream(bs) else ShowMessage('ÎØÈÁÊÀ: çàãðóçêè â ïîòîêå ñòèëÿ');
end;
bs.Free;
dq.Close;
dq.Free;
end;

после перекомпиляции в 7ой делфе стал выдавать ошибку "error read stream", конкретно на clms.LoadFromStream строку

[Grag]

Попробуй использовать TADOBlobStream

[ANsy]

попробовал так вот, не сработало (та же ошибка). Может я не так делаю?

procedure TDsnGrid.ReadDS_Columns(dsdb: TADOConnection; chFld, blFld, tableNm,
  chVal: shortString; clms: TDBGridColumns);
var
  dq:TADOQuery;
  bs:TADOBlobStream;
begin
dq:=TADOQuery.Create(nil);
dq.Connection:=dsdb;
dq.SQL.Text:=format('SELECT %s,%s FROM %s WHERE %0:s LIKE ''%3:s''',[chFld,blFld,tableNm,chVal]);
dq.Open;
dq.First;
clms.State:=csCustomized;
if (dq.RecordCount>0) then begin
 //TADOBlobStream
 bs:=TADOBlobStream.Create((dq.FieldByName(blFld) as TBlobField),bmRead);
 //bs:=dq.CreateBlobStream(dq.FieldByName(blFld),bmRead);
 if (bs.Size>0) then clms.LoadFromStream(bs) else ShowMessage('ÎØÈÁÊÀ: ïîòîê ñòèëÿ ïóñòîé');
end;
bs.Free;
dq.Close;
dq.Free;
end;

[ANsy]

в таблице "slots_grids" берет из CB (сервер mssql2000 sp4)
CD int
CN nvarchar(64)
CB ntext
upsize_ts timestamp