Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Трабла с WebBrowser1

4.0K
04 июля 2005 года
sanich
9 / / 08.12.2003
Добрый день.
Помогите справиться с траблой
База 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;
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог