BS:=TADOBlobStream.Create(TBlobField(dm2.ADODataSet1.FieldByName('FILE_CONTENT')),bmRead);
try
sFileName:=ExtractFilePath(Application.ExeName)+'tmpBlob';
sFileName:=sFileName+dm2.ADODataSet1.FieldByName('FILE_EXTENSION').AsString;
BS.SaveToFile(sFileName); ------(1) 這一句有問題
If ShellExecute(0,nil,PChar(sFileName),nil,'',SW_SHOW)<=32 Then
showmessage('對不起! 操作系統不知道這是什麼文件 . ');
finally
BS.Free;
end;為什麼打開word/bmp等文件都沒問題,但打開exe文件就出錯?錯誤如下;EFCreateError with message 'Cannot create file F:\humantrain\tmpBlob.exe'.難道oracle中數據庫的blob字段保存的exe文件,是不是exe文件不能轉化為流???
try
sFileName:=ExtractFilePath(Application.ExeName)+'tmpBlob';
sFileName:=sFileName+dm2.ADODataSet1.FieldByName('FILE_EXTENSION').AsString;
BS.SaveToFile(sFileName); ------(1) 這一句有問題
If ShellExecute(0,nil,PChar(sFileName),nil,'',SW_SHOW)<=32 Then
showmessage('對不起! 操作系統不知道這是什麼文件 . ');
finally
BS.Free;
end;為什麼打開word/bmp等文件都沒問題,但打開exe文件就出錯?錯誤如下;EFCreateError with message 'Cannot create file F:\humantrain\tmpBlob.exe'.難道oracle中數據庫的blob字段保存的exe文件,是不是exe文件不能轉化為流???
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货