TIdHTTP.Post / PHP / Umlaute in Formulardaten

[Valle]

Hallo,

ob dein Delphi-Code korrektes UTF-8 sendet weiß ich nicht, dass muss dir jemand anderes sagen. Gehen wir aber mal davon aus, dann sollte folgender PHP-Code Abhilfe schaffen:

PHP-Quellcode:

header('Content-Type: text/html; charset=utf-8');

echo $_POST['daten'];

Statt des Header-Aufrufs, kann man bei Apache-Servern auch eine Datei namens .htaccess anlegen und mit folgendem Inhalt versehen:

Code:

AddDefaultCharset utf-8

Denke einfach immer daran, eine Informations-Kette zu erstellen. Jedes beteiligte Element dieser Kette muss den Charset direkt oder indirekt wissen. Delphi kodiert die Daten als UTF-8 und sendet diese (mit entsprechender Markierung!!) an PHP. PHP weiß dann zwar, dass es sich um UTF-8 handelt, aber der Browser weiß das nicht. Also muss auch der via HTTP-Header informiert werden.

Noch ein kleines Experiment: Bei kaputtem Charset im Firefox unter Ansicht -> Zeichenkodierung mal einen anderen Charset auswählen. Sofern man nicht irgendwas kaputt-kodiert hat (utf8_decode ), hat man damit das Problem meist schon identifiziert. Man sieht also, dass lediglich dem Browser die Kenntniss über den richtigen Zeichesatz fehlt.

Liebe Grüße,
Valle

Liebe Grüße,
Valle

[kriegste]

Ohne utf8_decode(), wie in meinem Beispiel und dafür mit deinem Header passiert genau das Gleiche:

äöüß wird zu aou?

Edit: Ah, aber immerhin speichert PHP jetzt korrekt ab, wenn ich die Daten in ein Textfile schreiben lasse. Danke! Die Rückgabe will ich jetzt aber trotzdem noch hinkriegen...

[kriegste]

Lösung sieht jetzt so aus

Code:

<?php
header('Content-Type: text/html; charset=UTF-8');
echo $_POST["test"];
?>

Code:

var
  ds: TIdMultipartFormDataStream;
  ms: TMemoryStream;
  s: String;
begin
  ds:= TIdMultipartFormDataStream.Create;
  ms:= TMemoryStream.Create;
  try
    s:= 'äöüß';
    if s <> '' then ms.Write(s[1], Length(s));
    ds.AddObject('test', 'text/plain', '', ms);
    try
      HTTP.Post('http://localhost/test.php', ds, ms);
      SetLength(s, ms.Size);
      ms.Read(s[1], ms.Size);
      ShowMessage(s);
    except
    end;
  finally
    FreeAndNil(ds);
    FreeAndNil(ms);
  end;
end;