MSHTML_tlb löst Fehlermeldung aus

[moperswings]

Hallo,

ich habe aus dem SwissDelphiCenter eine Funktion zur Berechnung der Verzeichnisgrösse.
Jetzt wollte ich noch etwas mit Web-Technik machen und füge die mshtml_tlb ein ...

Delphi-Quellcode:

implementation
uses MSHTML_tlb;
{$R *.dfm}

function GetDirSize(dirx: string; subdirx: Boolean): Longint;
var
        rec_: TSearchRec;
        foundx: Integer;
begin
        Result := 0;
        if dirx[Length(dirx)] <> '\' then dirx := dirx + '\';
        foundx := FindFirst(dirx + '*.*', faAnyFile, rec_);
        while foundx = 0 do
        begin
          Inc(Result, rec_.Size);
          if (rec_.Attr and faDirectory > 0) and
          (rec_.Name[1] <> '.') and (subdirx = True) then // hier kommt die 1. Fehlermeldung
          Inc(Result, GetDirSize(dirx + rec_.Name, True));
          foundx := FindNext(rec_);
        end;
        FindClose(rec_);
end;

und bekomme für jede Zeile, in der die Funktion vorkommt, diese Meldung:

Delphi-Quellcode:

[Fehler] Unit1.pas(45): Inkompatible Typen: 'Boolean' und 'Integer'

Nehme ich die mshtml_tlb raus, läuft alles!

Hat jemand eine Idee?

[mkinzler]

rec_.Attr ist kein Boolean
BTW.

Delphi-Quellcode:

subdirx = True

kannst du zu

Delphi-Quellcode:

subdirx

kürzen

[peschai]

@mkinzler

Delphi-Quellcode:

rec_.Attr and faDirectory > 0

ist ok.

@moperswings
Ich vermute, das durch einbinden von der unit eventuell TSearchRec redefiniert wird.
Versuche mal "SysUtils.TSearchRec"

[moperswings]

SysUtils.TSearchRec ändert nichts :(

[marabu]

Hallo,

Klarheit für das Überdeckungsproblem müsste eigentlich schon Code-Insight bringen.

Hier noch eine Alternative zu GetDirSize: FolderSize()

Grüße vom marabu

[peschai]

Hallo

Also ich habe mir jetz mal die Mühe gemacht und von delphi eine "MSHTML_tlb" erzuegen lassen (Komponenten-ActiceXImportieren...)

Oh mein Gott!
Es wurde ein 12MByte große MSHTML_tlb.pas erzeugt, welche die DelphiIDE an den Rand des benutzbaren bringt!

Mein Tip, versuch ohne das auszukommen, wenn es geht ...