In meinem Uraltwebserver hab' ich das (sinngemäß) so gemacht:
Delphi-Quellcode:
procedure TfmHTTPServerMain.HTTPServerCommandGet(AContext: TIdContext; RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
var
LocalDoc : String;
...
begin
LocalDoc := config.Pfade.BilderKrankmeldungen + filename;
...
AResponseInfo.ContentType := GetFileMIMEType(LocalDoc);
...
AResponseInfo.ContentLength := AResponseInfo.ServeFile(AContext,LocalDoc);
...
end;