RtlVclOptimize 2.77 - DelphiSpeedUp Code im eigenen Programm

[jbg]

Zitat von marc_ki:

Die Fastfileexists hat einen kleinen schönheitsfehler im vergleich zum original. Das original nimmt auch wildcards, die optimierte variante scheinbar nicht...

Dann rate ich dir mal ganz schnell davon ab, diese nicht dokumentierte Funktionalität von FileExists zu nutzen. Denn ab Delphi 2006 ist FileExists genau so implementiert wie FastFileExists.

[jbg]

Ach ja und ab Delphi 2007 funktioniert diese undokumentierte Funktionalität auch nicht mehr mit FileAge().

[bigg]

moin,

ich habe noch eine Kleinigkeit gefunden:
Die Funktion FastFileExists() findet die Auslagerungsdatei "pagefile.sys" nicht.

Ist das bei D2005-D2007 auch der Fall?

Testsystem: XPSP2, Delphi 7 PE




Gruß Stefan

[jbg]

Zitat von bigg:

Ist das bei D2005-D2007 auch der Fall?

Ja, da hast du wohl voll ins Schwarze getroffen (wer prüft denn schon auf die Existenz der Auslagerungsdatei).

Delphi-Quellcode:

function FileExists(const Filename: string): Boolean;
var
  Code: Integer;
begin
  Code := Integer(GetFileAttributes(PChar(FileName)));
  if Code <> -1 then
    Result := (FILE_ATTRIBUTE_DIRECTORY and Code = 0)
  else
    Result := GetLastError = ERROR_SHARING_VIOLATION;
end;

Da werde ich gleich mal einen QualityCentral Report aufmachen.

[bigg]

Zitat von jbg:

Ja, da hast du wohl voll ins Schwarze getroffen (wer prüft denn schon auf die Existenz der Auslagerungsdatei).

Vermutlich nur ich?
Du hast den Fehler ja schon behoben?!. Das ging flott.

ps: Die abgewandelten Listen sehen auch sehr schmackhaft aus, die werde ich mir auch noch vorknöpfen.


Gruß Stefan

[jbg]

http://qc.codegear.com/wc/qcmain.aspx?d=52905

[bigg]

Das WorkArround funktioniert bei mir nicht. Die Funktion Windows.GetLastError liefert bei mir den Wert 5 "Zugriff verweigert", wenn ich die "pagefile.sys" auf Existenz überprüfe.

So geht's:

Delphi-Quellcode:

function MyFileExists(const Filename: string): Boolean;
var
  Code: Integer;
  LastError: Integer;
begin
  Code := Integer(Windows.GetFileAttributes(PChar(FileName)));
  if Code <> -1 then
    Result := (FILE_ATTRIBUTE_DIRECTORY and Code = 0)
  else
  begin
    LastError := Windows.GetLastError;
    Result    := (LastError = ERROR_ACCESS_DENIED);
  end;
end;

Gruß Stefan

[mirage228]

Hi,

Ich erhalte für die pagefile.sys ERROR_SHARING_VIOLATION (und nicht ERROR_ACCESS_DENIED)...

mfG
mirage228

[bigg]

Dann verknüpfen wir das ganze mit or?

Delphi-Quellcode:

function MyFileExists(const Filename: string): Boolean;
var
  Code: Integer;
  LastError: Integer;
begin
  Code := Integer(Windows.GetFileAttributes(PChar(FileName)));
  if Code <> -1 then
    Result := (FILE_ATTRIBUTE_DIRECTORY and Code = 0)
  else
  begin
    LastError := Windows.GetLastError;
    Result    := (LastError = ERROR_ACCESS_DENIED) or (LastError = ERROR_SHARING_VIOLATION);
  end;
end;

ps: Bin mit Adminrechten unterwegs, WinXP SP2 und D7PE.


Gruß Stefan

[mirage228]

Zitat von bigg:

Dann verknüpfen wir das ganze mit or?

Wäre ne Idee - Es sei denn es gibt noch mehr Fehler die GetLastError in dem Fall liefern könnte...