在Oracle数据库中，RAW类型的数据怎样把它取出来??

Question

ADOConnection1.Open;
 with ADOQuery1 do
 begin
 close;
 sql.Clear;
 sql.Add('SELECT ST_CUSTNAME FROM DR_M');
 open;
 Edit1.Text:=ADoquery1.FieldByName('St_Custname').AsString;
 end;ST_CUSTNAME 是Raw类型，我这样写不行。。取不出来Raw类型的值，，

Answer 1

//try
var
  vMemoryStream: TMemoryStream;
  S: string;
begin
  vMemoryStream := TMemoryStream.Create;
  try
    TBlobField(ADOQuery1.FieldByName('St_Custname')).SaveToStream(vMemoryStream);
    vMemoryStream.Position := 0;
    SetLength(S, vMemoryStream.Size);
    vMemoryStream.Read(S[1], vMemoryStream.Size);
    Edit1.Text := S;
  finally
    Free;
  end;
end;