TCP-Server als Web-Server (Datein senden)

[rollstuhlfahrer]

Zitat von mb1996:

Mit [img]Bild.jpg[/img] sendet man ja ein Bild hoch.

Einspruch. Damit fordert man den Webbrowser auf, ein Bild nachzuladen. Mehr nicht.

Wie bietet man ein Bild zum Download an?

Delphi-Quellcode:

AResponseInfo.ContentType := 'image/jpeg';
FileStream := TFileStream.Create(FILENAME, mfOpenRead);
AResponseInfo.ContentLength := FileStream.Size;
AResponseInfo.ContentStream := FileStream;

Bernhard