Thema: Dir2HTML

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: Dir2HTML

  Alt 5. Mai 2004, 09:43
Nettes Programm
Man könnte GIF-Bilder mit in die HTML-Datei einbetten:
Delphi-Quellcode:
function HTMLImage(const Filename: String): String;
begin
   Result := HTMLLink(Filename)+'[img]'+filename+'[/img]';
end;
procedure FindAllFiles(var Liste ...
...
        if SR.Attr and faDirectory <> faDirectory then
        begin
          if CompareText(ExtractFileExt(SR.Name), '.GIF')=0 then
              Liste.Add('<dd>'+HTMLImage(RootFolder + SR.Name)+'</dd>')
          else
             Liste.Add('<dd>'+HTMLLink(RootFolder + SR.Name)+'</dd>');
        end;
"Kleine" JPEG-Bilder könnte man auch so behandeln.
(Einfach: Dateigrösse < 5Kb, Besser: JPEG-Header auslesen und Height < 100)
Andreas
  Mit Zitat antworten Zitat