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)