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:
[Fehler] Unit1.pas(45): Inkompatible Typen: 'Boolean' und 'Integer'
Nehme ich die mshtml_tlb raus, läuft alles!
Hat jemand eine Idee?