Das Bild ist vermutlich 3,09 KB groß. Ich würde
Indy die Ermittlung von AResponseInfo.ContentLength anvertrauen und daher die Zeile auskommentieren:
AResponseInfo.ContentLength := fs.Size;
Wild geraten: Delphi initialisiert fs.Size nicht korrekt
Das Bild ist schon etwas über 600 KB groß. Aber ich habe es jetzt so gemacht:
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;
und so läuft es wunderbar
Danke euch beiden.
@arnof: es ging um IdHttpServer