WebBrowser

[DoGFoX]

WebBrowser как вывести кэш??

[DoGFoX]

Блин, никто не знает?? или это вообще не возможно??

[Пепел Феникса]

E:\Documents and Settings\Феникс\Local Settings\Temporary Internet Files
правда там не только от вашего WB будут файлы, а еще от всего остального что его юзает(ну и ИЕ)

[DoGFoX]

А нельзя вытащить кэш только текущего сеанса???

Или может можно как то сохранять кэш в отдельно заданную папку??

[Пепел Феникса]

нет, разве что вы можете определить новые файлы, но они не обязательно будут вашими(ИЕ использоватся может не только же вами)

ИЕ создает там.

[DoGFoX]

мм... и как же быть???

создать свой сообственный браузер не используя компонет WebBrowser??

И решит ли это мою проблему??

[Пепел Феникса]

можете использовать другие движки(Gecko например)
ну или пишите свой(это точно решит проблему, ибо там вы будете определять где что лежит)

[DoGFoX]

Спасибо за помощь))) будем пробовать...

[odssoft]

procedure TfmMain.Button3Click(Sender: TObject);
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
dwLastError: LongWord;

Str : TStrings;
begin

Str := TStringList.Create;

dwEntrySize := 0;
FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
if (hCacheDir <> 0) then
DeleteUrlCacheEntry(lpEntryInfo^.lp szSourceUrlName);
FreeMem(lpEntryInfo);

repeat
dwEntrySize := 0;
FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
dwLastError := GetLastError();
if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
begin
GetMem(lpEntryInfo, dwEntrySize);
if (FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)) then
begin
// lpEntryInfo^.LastAccessTime
Str.Add(lpEntryInfo^.lpszSourceUrlN ame+#09+lpEntryInfo^.lpszLocalFileN ame+#09+DateToStr(FileTimeToDateTim e(lpEntryInfo^.LastAccessTime))+#09 +TimeToStr(FileTimeToDateTime(lpEnt ryInfo^.LastAccessTime)));
// DeleteUrlCacheEntry(lpEntryInfo^.lp szSourceUrlName);
end;
// fmMemoForm.Memo.Lines.Add();
// fmMemoForm.Show;
FreeMem(lpEntryInfo);
end;
until (dwLastError = ERROR_NO_MORE_ITEMS);

Str.SaveToFile('333.txt');
end;



По нажатию на кнопке весь кэш сохраняется в файл.

[Пепел Феникса]

дык ТС то нужен не весь кэш, а только от его сессии