如何查看 Oracle 中的 Clob 字段内容

sunsir

　　示例代码：
　　uses
　　ShellAPI;
　　
　　var
　　FileTmp: string;
　　sl: TStrings;
　　begin
　　FileTmp:= '';
　　with aqy_QryTmp do //aqy_QryTmp: TADOQuery;
　　begin
　　Screen.Cursor:= crHourGlass;
　　try
　　Close;
　　SQL.Text:=
　　'select to_char(Content) from Tab_Demo '
　　'where>
　　Open;
　　if RecordCount > 0 then
　　begin
　　FileTmp:= 'FileTmp.htm'; //Set FILENAME here...
　　
　　sl:= TStringList.Create;
　　with sl do
　　try           
　　Add(Fields[0].AsString);
　　SaveToFile(ExtractFilePath(ParamStr(0)) + 'Tmp\' + FileTmp);
　　finally
　　FreeAndNil(sl);
　　end;         
　　end;      
　　finally
　　Close;
　　Screen.Cursor:= crDefault;
　　end;
　　
　　ShellExecute(
　　Handle,
　　'Open',
　　PChar(ExtractFilePath(ParamStr(0)) + 'Tmp\'+ FileTmp),
　　nil,
　　nil,
　　SW_SHOW
　　)