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

Вниз

НЕПОНЯТНЫЙ БАГ !!!   Найти похожие ветки 

 
Checist [root]   (2003-11-15 02:17) [0]

У меня на форме присутствует WebBrowser. При нажатии на кнопку он берет урл из Edit"а и проверяет есть ли страница с таким адрессом в кэше (Temporary Internet Files) и если есть, то по средствам GetUrlCacheEntryInfo получает полный путь до искомой страници, если таковой нет грузит методом Navigate (WebBrowser).
Все вроде нормально - если страница есть, получаю полный к ней путь. Но вся проблема возникает, мне кажется после самого вызова GetUrlCacheEntryInfo, так как сразу после обработки строки с данной функцией процесс неожиданно падает, без всяких сообщений об ошибках.
Как мне быть - прога почти готова, а с таковым багом толку от нее нет. Помогите, очень прошу. Вот весь код на проверку существования стр. в TIF:

procedure TFormMain.Load;
var
St: TStream;
Box: TInternetCacheEntryInfo; BuffSize:Cardinal;
begin
if GetUrlCacheEntryInfo(PChar(Edit1.Text), Box, BuffSize) = false then
begin
if GetLastError = ERROR_FILE_NOT_FOUND then
begin
Try WebBrowser1.Navigate(Edit1.Text);
Except
Panel2.Caption := "Cannot load this page";
ListBox2.ItemIndex := ListBox2.ItemIndex - 1;
ListBox2.Items.Delete(ListBox2.ItemIndex + 1);
end;
end
else if GetLastError = ERROR_INSUFFICIENT_BUFFER then
begin
Box.dwStructSize := BuffSize;
GetUrlCacheEntryInfo(PChar(Edit1.Text), Box, BuffSize);
WebBrowser1.Navigate(Box.lpszLocalFileName);
end
else WebBrowser1.Navigate(Edit1.Text);
end
else WebBrowser1.Navigate(Box.lpszLocalFileName);
end;


 
Checist [root]   (2003-11-15 16:20) [1]

Ну, кто нибудь помогите!!!


 
clickmaker   (2003-11-15 18:14) [2]

Может так:

var
lpInfo: PInternetCacheEntryInfo;
BuffSize: cardinal;
begin
BuffSize := 0;
lpInfo := nil;
if not GetUrlCacheEntryInfo(PChar(Edit1.Text), lpInfo^, BuffSize) then begin

if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
lpInfo := PInternetCacheEntryInfo(GetMem(BuffSize));
end;


 
Checist [root]   (2003-11-16 02:28) [3]

Ну, а еще есть идеи?



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

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

Наверх




Память: 0.44 MB
Время: 0.013 c
1-89981
tmv
2003-11-17 10:00
2003.11.27
Просмотр файлов


6-90023
Sirus
2003-10-01 15:07
2003.11.27
Как организовать докачку файлов с ServerSocket и ClientSocket?


1-89955
ghg
2003-11-18 15:57
2003.11.27
string и memo1.Lines


6-90028
SPIRIT
2003-10-01 01:53
2003.11.27
Отправить письмо


1-89929
Relaxxx
2003-11-18 10:23
2003.11.27
Как мне сделать чтобы при скролинге одной таблицы.......





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский