BorlandTalk.com

edo · Guest

hi,

i'm trying to find, and read files that had been created while surfing the
WWW.
i can see those files in the Windows-Eplorer, but the function :
FindFirst('..Temporary Internet*', faAnyFile , searchRec)
fails....

BTW,
is there any official way to get the Temporary Internet directory, or at
least the most common used directory, by the most popular browsers i.e.
MS-IE, Netscape, OPERA?
i found in the registry:
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionInternet
SettingsCachePaths
StringValue - Directory
is it good for MS-IE only?

thanks in advance!
edo.

Larry Siemer · Guest

Try using the routines in the unit JclSysInfo from the JEDI-JCL
project, they use the official method.

http://sourceforge.net/projects/jcl/

"edo" <ewilde> wrote

Dennis Passmore · Guest

Here is a code sample to get you started:

unit InternetCacheListu;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses
WinInet;

{$R *.dfm}

(*
Here is an example how it could be done. I don't want to delete my cache, so
it only outputs the url to a TMemo Wink

To delete the entries
DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName) should work.
*)

procedure TForm1.Button1Click(Sender: TObject);
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord (*Handle*);
dwEntrySize, dwLastError: LongWord;
begin
//Get size of first entry in dwEntrySize
dwEntrySize := 0;
FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
//Create structure that can hold entry
GetMem(lpEntryInfo, dwEntrySize);
//Get first cache entry and handle to retrieve next entry, output url
hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
if hCacheDir <> 0 then
Memo1.Lines.Add(string(lpEntryInfo^.lpszSourceUrlName));
//free structure
FreeMem(lpEntryInfo);

//retrieve all subsequent entries
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
Memo1.Lines.Add(string(lpEntryInfo^.lpszSourceUrlName));
FreeMem(lpEntryInfo);
end;
until dwLastError = ERROR_NO_MORE_ITEMS;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(nil);
end;

end.

Dennis Passmore
Ultimate Software, Inc.

Rob Kennedy · Guest

edo wrote:

René Allan Larsen · Guest

In article <3fb77f5d (AT) newsgroups (DOT) borland.com>, Edo wrote:

edo · Guest

Thank you very very much!!

i'm trying to learn a lesson from this experience.

i guess all the units in BorlandDelphi5SourceRtlWin, contain "links" to
procedures in microsoft's .dll files.
the most common unit is windows.pas which load libraries like :
kernel32,comctl32 etc...
sometimes there are a kind of "completions", like the unit TLHelp32.pas,
which has a few more "links" to the kernel32.dll (i spent years to find it a
few months ago....but at least i had documention in the Win32 Developer's
Reference)

well, this time, i can not even find any doncumention, about those
procedures in wininet.dll.
(i'm still struggling through guessing the proper value for
lpszUrlSearchPattern, in order to find only files like, for example :
'*cnn*.html')

can you explain the common sence of what procedures of any .dll files exist
where in the .pas files, and where should i expect to find documentations
for everything?

thanks again,
edo.

"edo" <ewilde> wrote

edo · Guest

Thank you very very much!!

i'm trying to learn a lesson from this experience.

i guess all the units in BorlandDelphi5SourceRtlWin, contain "links" to
procedures in microsoft's .dll files.
the most common unit is windows.pas which load libraries like :
kernel32,comctl32 etc...
sometimes there are a kind of "completions", like the unit TLHelp32.pas,
which has a few more "links" to the kernel32.dll (i spent years to find it a
few months ago....but at least i had documention in the Win32 Developer's
Reference)

well, this time, i can not even find any doncumention, about those
procedures in wininet.dll.
(i'm still struggling through guessing the proper value for
lpszUrlSearchPattern, in order to find only files like, for example :
'*cnn*.html')

can you explain the common sence of what procedures of any .dll files exist
where in the .pas files, and where should i expect to find documentations
for everything?

thanks again,
edo.

<Dennis Passmore> wrote

Chris Morgan · Guest

Rob Kennedy · Guest

edo wrote: