Трабла с WebBrowser1
Помогите справиться с траблой
База Paradox, есть поле blob, в котором храняться различные файлы
Для отображения содержимого использую,
WebBroser для *.pdf,*.xls,*.txt
Проблемма вот в чем когда ВТОРОЙ РАЗ активизируешь содержимое *.pdf в WebBroser
возникает ошибка открытия файла, и действительно временный файл (из базы сохраняем
в временный файл,затем загружаем в WebBroser) файл заблокирован
процессом AcrobatReader,если после этого активизировать содержимое *.xls через тот же
WebBroser блокировка с временного файла *.pdf исчезает и его снова можно
открыть в WebBroser,
С файлами *.xls такая же беда, что делать поскажите!
Вот код кусок процедуры при клике по полу с расширением файла
if (Table2.FieldByName('FILE_EXT').AsString = 'pdf') or
(Table2.FieldByName('FILE_EXT').AsString = 'htm') or
(Table2.FieldByName('FILE_EXT').AsString = 'html') or
(Table2.FieldByName('FILE_EXT').AsString = 'tif') or
(Table2.FieldByName('FILE_EXT').AsString = 'xls') or
(Table2.FieldByName('FILE_EXT').AsString = 'jpeg') or
(Table2.FieldByName('FILE_EXT').AsString = 'txt') or
(Table2.FieldByName('FILE_EXT').AsString = 'bmp') or
(Table2.FieldByName('FILE_EXT').AsString = 'jpg') then begin
DeleteFile(TempFile);
Table3.Close;
Table3.Filter:='ITEM_ID='+IntToStr(i);
Table3.Open;
(Table3.FieldByName('ITEM_FILE') as TBlobField).SaveToFile(ExtractFilePath(Application.ExeName)+'vcvcx.'+ext);
//WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'vcvcx.'+Table2.FieldByName('FILE_EXT').AsString);
Table3.Close;
WebBrowser1.Visible:=True;
OleContainer1.Visible:=False;
if not FirstWord then OleContainer1.DestroyObject;
WebBrowser1.BringToFront;
//открывается текущий файл
WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'vcvcx.'+ext);
TempFile:=ExtractFilePath(Application.ExeName)+'vcvcx.'+ext;
DBMemo1.SetFocus;
FirstWord:=True;
end;