Indy.get Umlaute = ?

[Youuuu]

Habe ein Post vorher nun ein Bild angehangen, welches die übermittelten Daten ausgibt, dort ist von utf-8 nichts zu sehen. hm

[nahpets]

Ausgehend vom META-Tag bekommt man UTF-8.

Allerdings sind da die deutschen Umlaute auch ohne Umwandlung von UTF-8 nach Ansi enthalten.

Ferienwohnungen, Ferienhäuser, Zimmervermietung, Pension, Gästezimmer

Aber auch in dieser Form: Allgemeine Geschäftsbedingungen

Wenn man von einigen Syntaxfehlern im HTML absieht, sollte man eigentlich ohne Umwandlung von UTF-8 nach irgendwas auskommen.

Ist diese Umwandlung denn bei Delphi 10.1 überhaupt noch nötig?

Mit Delphi 7 und ohne Rücksichtnahme auf den Zeichensatz, bekomme ich eine (zeichensatzmäßig) fehlerfreie Textdatei. Der Zeichzensatz dürfte iso-8859-1 sein.

ö hat nichts mit UFT-8 zu tuen (siehe Self-HTML: Referenz:HTML/Zeichenreferenz)

[Youuuu]

Wie hast du denn http.get aufgebaut, denn bei mir erhalte ich wie gesagt keinen anständigen Text

[nahpets]

Accept = text/html, */*.

Sonst nichts.

Bitte speichere Dein Ergebnis, zippe es und häng das dann hier mal an, möchte da mal reinschauen.

Wenn möglich beide Versionen: source := http.Get(url); und source := UTF8ToAnsi(http.Get(url));

[nahpets]

Habe gerade mal das angehängte Bild angeschaut:

Da steht, dass Charset iso-8859-1 geliefert wird.
Content-Type ist ebenfalls iso-8859-1.

Die Angabe im Meta-Tag dürfte demnach falsch sein.

[Youuuu]

Delphi-Quellcode:

resp := TMemoryStream.Create;
      try
        with http do begin
          HandleRedirects := True;
          AllowCookies := False;
          RedirectMaximum := 10;
        end;
        http.Get( url, resp );
        resp.Position := 0; 
        slSource := TStringList.Create;
        try
          slSource.LoadFromStream(resp);
          source := slSource.Text;
        finally
          FreeAndNil(slSource);
        end;
        Result := source;
      finally
        resp.Free;
      end;

Wenn ich es wie oben per Stream lade, funktioniert es, anders jedoch nicht.

[a.def]

Ich glaube hier könnten die "Delphi-Profis" helfen

- Uwe Raabe
bzw.
- Maverik

[Michael II]

Liest du die Berlin Webseite nur oder bis du Besitzer und hast somit Einfluss darauf wie sie abgespeichert ist?

Wenn ich deine Seite mit Chrome runterlade und dann im Editor öffne und unter Codierung nachsehe dann lese ich ANSI und nicht UTF-8 (wie bei ca. 90% aller Webseiten dieser Welt).

Falls du Einfluss auf die Webseite hast, dann speichere eine "öäü Test-Webseite" mal mit Codierung UTF-8 ab und checke, ob's nun klappt.


[Nebenbei: Ich habe auch noch alte ANSI codiert abgespeicherte Webseiten mit Formularen drauf. Bis mind. D X6 konnte man die Werte der übermittelten Felder locker mit TWebRequest.Contentfields auslesen. Bei späteren Delphis crasht das CGI bei Zugriff auf die ContenFields; Abhilfe: Webseiten UTF-8 codiert speichern oder wenn man nicht alles von ANSI auf UTF-8 umstellen mag Request.RawContent...]

[himitsu]

Zum Glück (oder eher leider) sind Browser sehr Fehlertolerant und versuchen massig Schrott auszumärzen.

Sonst würden viele Webseiten garnicht angezeigt werden und man sähe ständig nur Fehlermeldungen.
Tja, da hat man nun Probleme eine Webseite auszulesen.
Aber besser wäre es eh, wenn man eine offizielle Schnittstelle/API zu den gewünschten Daten verwenden würde, wenn der Seitenbetreiber sowas anbietet.

Die Delphi-PRAXiS kann man so z.B. problemlos per XML auslesen und muß die Informationen nicht mitten im HTML suchen.

[Michael II]

Ich hab's rasch auf einem meiner Webserver gecheckt.

Wie vermutet: Speichere deine Webseite statt mit Codierung ANSI mit UTF-8 ab, dann werden die Umlaute korrekt angezeigt, d.h.: Lade die Webseite in einen Editor [wenn du ein neueres Windows hast, geht's auch mit dem "normalen" Editor von Windows], wähle Codierung UTF8 und speichere die Seite wieder ab. Lade sie hoch - und staune .

Wenn du keinen Zugriff hast auf die Webseite dann müsstest du die heruntergeladene Seite umcodieren [Ich weiss, es gibt direktere Wege ]:
hs := TStringList.Create;
hs.LoadFromFile( webseite, TEncoding.ANSI );
hs.SaveToFile( webseite, TEncoding.UTF8 );
und dann klappt es auch.