НЕПОНЯТНЫЙ БАГ !!!

← →
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]

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

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