umlaute in memo anzeigen

[A-KI]

servus

ich möchte den quelltext einer html seite in einem memo anzeigen lassen

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
var
 
  sl : tstringlist;
begin
     sl := tstringlist.Create;
    try
      httpgettext(edit1.Text,sl) ;
      memo1.Lines.Add(ansitoutf8(sl.text) );
    finally
    sl.Free;
    end;
end;   

klappt soweit auch nachdem ich ansitoutf8 hinzugefügt habe davor wurde mir nichts im memo angezeigt.
nun enthält der quelltext auch sonderzeichen. diese werden leider nicht richtig dargestellt.

wie z.b. ß = ß

wie bekomme ich das denn hin das das ß als ß angezeigt wird?

[mschnell]

Die remote Website gibt Dir über httpget Daten-Bytes , die *irgendwie* codiert sind (da gibt es hunderte Möglichkeiten inklusive z.B. "HTML Entitäten").

Um sie zur Anzeige zu bringen, interpretiert ein Browser entsprechende Einstellungen, die im HTML-Header stehen, außerdem berücksichtigt er Default-Einstellungen, die in der Konfiguration des Browsers hinterlegt wurden.

Du musst also zunächst herausbekommen, in welcher Codierung der Text bei Dir ankommt und dann die passende Konvertierungs-Routine (beim aktuellen Lazarus zu "UTF-8") aufrufen.

(Der eigentliche "technische" Quelltext der HTML-Seite ist ohnehin 7-bit ASCII, da gibt es kein "ß". Komplexere Codierungen kommen hauptsächlich da vor, wo irgendetwas vom Browser angezeigt werden soll dazu siehe oben.)

-Michael

[m.fuchs]

Das sind keine Sonderzeichen sondern HTML-Entitäten.
Die stehen also im Original Quelltext schon so drin. Wenn du da lieber die Sonderzeichen haben möchtest, musst du konvertieren. Zum Beispiel mit folgender (sicherlich verbesserungswürdiger) Funktion:

Code: Alles auswählen

function DecodeEntities(EscapedString: String): String;
var
  FoundPos, FoundEndPos: LongInt;
  Code: String;
  DecodedChars: String;
begin
  FoundPos := 1;
  Result := EscapedString;
  FoundPos := PosEx('&#', Result, FoundPos);
  while (FoundPos <> 0) and (FoundPos < Length(Result) - 2) do begin
    FoundEndPos := PosEx(';', Result, FoundPos);
    Code := Copy(Result, FoundPos + 2, FoundEndPos - FoundPos - 2);
    try
      DecodedChars := WideChar(StrToInt(Code));
      Result := AnsiReplaceStr(Result, '&#' + Code + ';', UTF8Encode(DecodedChars));
    except on EConvertError do
      Inc(FoundPos);
    end;
    FoundPos := PosEx('&#', Result, FoundPos);
  end;
end;                  

Benötigt StrUtils.

[theo]

viewtopic.php?f=26&t=7132

[A-KI]

hi

leider klappt es noch nicht ganz so wie ich es möchte

jetzt bekomme ich die zeichen öäü als ? angezeigt unter win und linux

im quelltext steht das ü mal als ü und mal als ü z.b.

Code: Alles auswählen

var
 
  sl : tstringlist;
begin
     sl := tstringlist.Create;
    try
      httpgettext(edit1.Text,sl) ;
      sl.text := ansitoutf8(sl.text)
      memo1.Lines.Add(DecodeEntities(sl.text) );
    finally
    sl.Free;
    end;
end; 

[mschnell]

leider klappt es noch nicht ganz so wie ich es möchte

"HTML-Entitäten" sind keine Standard-Funktionalität. Da ist dann wohl Debuggen angesagt

unter win und linux

wäre ja auch schlimm, wenn ein Lazarus-Programm, das keine direkten System-Zugriffe macht, sich unter verschiedenen Systemen unterschiedlich verhalten würde. Das Muss Lazarus regeln !

-Michael

[hde]

Die remote Website gibt Dir über httpget Daten-Bytes , die *irgendwie* codiert sind (da gibt es hunderte Möglichkeiten inklusive z.B. "HTML Entitäten").

die in einem Memofeld anzuzeigen geht nun mal nicht ohne Aufwand, das passt einfach nicht zusammen.

versuch doch mal ThtmlPort

hde

[mschnell]

siehe -> http://de.selfhtml.org/html/referenz/zeichen.htm

Wer diesen Unsinn erfunden hat gehört geteert und gefedert.

-Michael

[Michl]

hi

leider klappt es noch nicht ganz so wie ich es möchte

jetzt bekomme ich die zeichen öäü als ? angezeigt unter win und linux

im quelltext steht das ü mal als ü und mal als ü z.b.

Code: Alles auswählen

var
 
  sl : tstringlist;
begin
     sl := tstringlist.Create;
    try
      httpgettext(edit1.Text,sl) ;
      sl.text := ansitoutf8(sl.text)
      memo1.Lines.Add(DecodeEntities(sl.text) );
    finally
    sl.Free;
    end;
end; 

Habe es eben nochmal getestet. Zumindest unter Win7 funktioniert es gem. http://www.lazarusforum.de/viewtopic.php?f=26&t=7132:

Code: Alles auswählen

uses ..., HTMLDefs;
...
var
  sl : tstringlist;
begin
  sl := tstringlist.Create;
  try
    httpgettext(edit1.Text, sl);
    HtmlToStr(sl);
    memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end;
end; 

[A-KI]

hi

habe es jetzt hinbekommen

ich lese das charset der seite aus und wandele es dan mittels unit synachar von synapse nach utf8 um.

[mschnell]

Super !

Gut zu wissen, dass es das gibt. (Ist aber auch ein ziemlich dickes Teil )

-Michael