TIdHTTPServer umd Umlaute

[Schokohase]

Und hier ein bisserl Quelltext

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    CheckBox1: TCheckBox;
    ActionList1: TActionList;
    Action1: TAction;
    procedure Action1Execute(Sender: TObject);
    procedure Action1Update(Sender: TObject);
    procedure IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  private
    { Private-Deklarationen }
    procedure AddTemplateFile(const AFilename: string; var s: string);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin
  IdHTTPServer1.Active := not IdHTTPServer1.Active;
end;

procedure TForm1.Action1Update(Sender: TObject);
begin
  TAction(Sender).Checked := IdHTTPServer1.Active;
end;

procedure TForm1.AddTemplateFile(const AFilename: string; var s: string);
begin
  // hier wird es spannend
  // die Dateien sind UTF8-kodiert, also geben wir das mit an
  s := s + TFile.ReadAllText(AFilename,TEncoding.UTF8);

  // Wenn man das so macht, dann gibt es eine komische Anzeige
  //s := s + TFile.ReadAllText(AFilename);
end;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  s: string;
begin
  s := '';
  AddTemplateFile('header.txt', s);
  AddTemplateFile('zaehler.txt', s);
  AResponseInfo.ContentType := 'text/html';
  AResponseInfo.ContentEncoding := 'utf-8';
  AResponseInfo.ContentText := s;
end;

Die Dateien (die ich hier zum Testen verwende) header.txt und zaehler.txt auf dem Datenträger sind - bei mir - UTF8 kodiert und genau das muss ich beim Einlesen der Dateien berücksichtigen.

Das was man an AResponseInfo.ContentText übergibt wird von Indy anhand des AResponseInfo.ContentEncoding entsprechend umgewandelt, aber dafür muss man auch etwas Vernünftiges übergeben.