Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

Проблема с WebBrowser.OnFileDownload   Найти похожие ветки 

 
AlexeyT ©   (2006-10-11 16:42) [0]

Импортировал WebBrowser под Win98 IE4, чтобы использовать OnFileDownload, возникла проблема при запуске под XP SP2 IE7.

procedure TMyComp.WebBrowserFileDownload(Sender: TObject; var Cancel: WordBool);
begin
 Cancel:= false;
end;


такой код в обработчике выдает AV. Посмотрел, есть ли различие в объявлении OnFileDownload в разных системах: есть. В либе полученной под IE4 событие имеет один параметр, Cancel. В либе от IE7 есть дополнительный параметр ActiveDocument, видимо из-за этого и рушится.

 TWebBrowserFileDownload = procedure(Sender: TObject; ActiveDocument: WordBool;
                                                       var Cancel: WordBool) of object;


Что делать? Взять либу от IE7, перестанет работать под IE4.


 
clickmaker ©   (2006-10-11 17:01) [1]

ну а ежели в зависимости от версии IE цеплять разные обработчики в ран-тайме?


 
AlexeyT ©   (2006-10-11 17:53) [2]

Во-первых, криво, во-вторых, какая там "зависимость от версии"? Я на сайте msdn про OnFileDownload нашел инфу только применительно к NET, а про обычную Win32 версию что-то не видно.


 
clickmaker ©   (2006-10-11 18:11) [3]

http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/browser_control_node_entry.asp


 
AlexeyT ©   (2006-10-11 20:09) [4]

Спасибо! Там оно называется просто FileDownload.

void FileDownload(          VARIANT_BOOL *ActiveDocument,
   VARIANT_BOOL *&Cancel
);

как видно, параметр ActiveDocument там есть.

Попробую код из IE7 TLB запустить на IE4, может поможет.


 
AlexeyT ©   (2006-10-11 21:51) [5]

Помогло!

TLB для IE7 работает корректно и под IE4, и под IE7.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.108 c
3-1158571807
NotGooDP
2006-09-18 13:30
2006.11.19
Программное добавление Usera MsSql


3-1158307102
Guest001
2006-09-15 11:58
2006.11.19
Exception в Firebird не ловится в Delphi - почему?


15-1162188972
Cyrax
2006-10-30 09:16
2006.11.19
Lingvo-перевод на осевом уровне


2-1162290734
aht
2006-10-31 13:32
2006.11.19
InterBase - права


4-1149152948
Mr tray
2006-06-01 13:09
2006.11.19
Хук на активизацию окон





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский