RtlVclOptimize 2.77 - DelphiSpeedUp Code im eigenen Programm

[jbg]

Ich hatte eigentlich vor an den Delphi Tagen 2007 eine Unit mit den Optimierungen von DelphiSpeedUp vorzustellen. Jedoch kam mir etwas dazwischen, wodurch ich nicht an den Delphi Tagen 2007 teilnehmen konnte und auch keine Zeit hatte, diese Unit für die Öffentlichkeit aufzubereiten.

Wer also schon immer mal die Optimierungen aus DelphiSpeedUp in seinem eigenen Programmen haben wollte, kann sich nun die RtlVclOptimize.pas Unit herunterladen und sie in seine Projekte einbinden.


Installationsanleitung

• 1. Entpacken der RtlVclOptimize.zip in einen beliebigen Ordner.
• 2. Die Unit zum Delphi-Projekt hinzufügen. Am besten recht weit oben in der uses-Liste, da dadurch bereits die initialization-Abschnitte der andere Units auf die schnelleren Funktionen zugreifen.

Was gibt es zu beachten

• Die Unit muss in der EXE-Datei stecken und nicht in einem Package. Denn würde das Package entladen, könnte man sich vor den auftretenden Zugriffsverletzungen nicht retten, weil die Funktionen auf die die original-RTL Funktionen umgeleitet werden, nicht mehr im Speicher sind.

Was ist RtlVclOptimize.pas nicht, bzw. was fehlt im Vergleich zu DelphiSpeedUp

• Die Unit ist nicht die FastCode Library. Diese muss extra heruntergeladen werden, wenn man deren RTL-Optimierungen zusätzlich nutzen will.
• FastObj ist nicht enthalten
• Sämtliche nur für die IDE interessante Optimierungen fehlen

Lizenz

• Die Unit steht unter der MPL 1.1. Darf also auch in kommerziellen/closed-source Anwendungen eingesetzt werden

[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...