IdHttpServer JPG-Download

[Hobbycoder]

Zitat von mjustin:

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:

Zitat von Delphi.Narium:

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