L
Langzii
Unregistered / Unconfirmed
GUEST, unregistred user!
关于FindFirstUrlCacheEntry和FindNextUrlCacheEntry的问题。根据
微软的文档,前者的形式应该如下:
function FindFirstUrlCacheEntry(lpszUrlSearchPattern: PAnsiChar;
var lpFirstCacheEntryInfo: TInternetCacheEntryInfo;
var lpdwFirstCacheEntryInfoBufferSize: DWORD): THandle; stdcall;
而在Delphi提供的wininet.pas中返回值却变成了Bool.这样一来,
FindNextUrlCacheEntry中所要的那个句柄就不知道要到什么地方去找了。
这是第一个问题。第二个问题,有如下一段代码:
procedure ... ..............
var
pinfoInternetCacheEntryInfo;
sizeWord;
begin
... ...
FindFirstUrlCacheEntry('*.*',info^,size);//暂且不管下一个
Edit1.Text:='URL:'+String(info^.lpszSourceUrlName);
Edit2.Text:='Local File:'+String(info^.lpszLocalFileName);
... ...
end;
这段代码运行后,没有找到任何一个UrlCacheEntry,两个文本框中也是
一片空白。不知道倒底错在哪里。还望精通这方面的大虾能够指点一二。
最好是能说一说哪里有参考资料或实例。
微软的文档,前者的形式应该如下:
function FindFirstUrlCacheEntry(lpszUrlSearchPattern: PAnsiChar;
var lpFirstCacheEntryInfo: TInternetCacheEntryInfo;
var lpdwFirstCacheEntryInfoBufferSize: DWORD): THandle; stdcall;
而在Delphi提供的wininet.pas中返回值却变成了Bool.这样一来,
FindNextUrlCacheEntry中所要的那个句柄就不知道要到什么地方去找了。
这是第一个问题。第二个问题,有如下一段代码:
procedure ... ..............
var
pinfoInternetCacheEntryInfo;
sizeWord;
begin
... ...
FindFirstUrlCacheEntry('*.*',info^,size);//暂且不管下一个
Edit1.Text:='URL:'+String(info^.lpszSourceUrlName);
Edit2.Text:='Local File:'+String(info^.lpszLocalFileName);
... ...
end;
这段代码运行后,没有找到任何一个UrlCacheEntry,两个文本框中也是
一片空白。不知道倒底错在哪里。还望精通这方面的大虾能够指点一二。
最好是能说一说哪里有参考资料或实例。