如何获取Internet临时文件中某文件的大小？

Question

本帖最后由 kayoo 于 2012-03-14 20:20:05 编辑

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function GetIeTempFilePath():string;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
   uses Registry;
{$R *.dfm}
function TForm1.GetIeTempFilePath():string;
var reg:Tregistry;
 KeyList: TStringList;
 i: Integer;
begin
  reg:=Tregistry.create;
  KeyList := TStringList.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.openkey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False);
  reg.GetValueNames(KeyList);
  for i := 0 to KeyList.Count - 1 do
  begin
   if KeyList[i] = 'Templates' then
   begin
      Result := reg.ReadString(KeyList[i]);
      Exit;
   end;
  end;
  reg.CloseKey;
  reg.free;
  KeyList.Free;
end;
function GetFileSize1(const FileName: string):integer;
var 
f: TFileStream; 
begin
   f:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone);
   Result:=f.Size;
   F.Free;end;procedure TForm1.Button1Click(Sender: TObject);
var filePath:string;
begin
  filePath := GetIeTempFilePath;
  if FileExists(filePath+'\a.jpg') then
  begin
    ShowMessage(IntToStr(GetFileSize1(filePath+'\a.jpg')));
  end
  else
    ShowMessage('文件不存在！');
end;end.我的方式是从注册表中获取文件路径

Answer 2

filePath := GetIeTempFilePath;
这里面的IE临时文件路径是否获取正确了呢？我在我的本机测试是没问题的，从注册表获取到了值的话应该也不会出错

Answer 3

应该不可能吧，我自己的机子上测试没有问题。应该不是隐藏文件或者其它导致？先判断下GetIeTempFilePath目录是否存在，然后多试几个文件试试

Answer 4

uses
  WinInet;FindFirstURLCacheEntry
FindNextUrlCacheEntry
DeleteUrlCacheEntry

Answer 5

Function GetCacheVerifyCodeFile(VerifyCodeURL:   String; var CacheVerifyCodeFile : String): Boolean;
var
  lpEntryInfo:   PInternetCacheEntryInfo;
  dwEntrySize,   dwLastError,   Hwd:   LongWORD;
  i,   j:   Integer;
  f:   String;
begin
  Result              := False;
  dwEntrySize         := 0;
  j := 0;
  CacheVerifyCodeFile := '';
  FindFirstUrlCacheEntry(nil , TInternetCacheEntryInfo(nil^) , dwEntrySize);
  GetMem(lpEntryInfo , dwEntrySize);
  Hwd := FindFirstUrlCacheEntry(nil , lpEntryInfo^ , dwEntrySize);
  if Hwd <> 0 Then begin
    Repeat
      dwEntrySize := 0;
      FindNextUrlCacheEntry(Hwd , TInternetCacheEntryInfo(nil^) , dwEntrySize);
      dwLastError := GetLastError();
      if dwLastError = ERROR_INSUFFICIENT_BUFFER then begin
        GetMem(lpEntryInfo , dwEntrySize);
        if FindNextUrlCacheEntry(Hwd , lpEntryInfo^ , dwEntrySize) then
          if Pos(UpperCase(VerifyCodeURL) , UpperCase(lpEntryInfo.lpszSourceUrlName)) > 0 then begin
            i := FileAge(lpEntryInfo.lpszLocalFileName);
            if i > j then begin
              j := i;
              f := lpEntryInfo.lpszLocalFileName;
            end else DeleteUrlCacheEntry(lpEntryInfo.lpszSourceUrlName);
          end;
      end;
    Until (dwLastError = ERROR_NO_MORE_ITEMS);
    if FileExists(f) then begin
      CacheVerifyCodeFile := f;
      Result := True;
    end;
  end;
  FreeMem(lpEntryInfo);
  FindCloseUrlCache(Hwd);
End;