Dir2HTML

[shmia]

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)