如何查看 Oracle 中的 Clob 字段内容
示例代码：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.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
)
页:
[1]