[gelöst] Stream ins Memo - Umlaute werden zu ?

[catweasel]

Hallo

Ich versuche das Ergebnis eines Pings in ein Memo einzutragen.
Generell funktioniert das auch soweit, allerdings werden Deutsche Umlaute als "?" dargestellt:

Code: Alles auswählen

Ping wird ausgef?hrt f?r 217.244.48.203 mit 32 Bytes Daten:
Antwort von 217.244.48.203: Bytes=32 Zeit=46ms TTL=54
Antwort von 217.244.48.203: Bytes=32 Zeit=44ms TTL=54
 
Ping-Statistik f?r 217.244.48.203:
    Pakete: Gesendet = 2, Empfangen = 2, Verloren = 0
    (0% Verlust),
Ca. Zeitangaben in Millisek.:
    Minimum = 44ms, Maximum = 46ms, Mittelwert = 45ms

Ich weis das es mit z.B. "utf8tosys" und anderes eine Möglichkeit zur Konvertierung gibt. Mit ist aber nicht klar wie ich das hier im Zusammenhang mit dem Reinschreiben eines Steams in ein Memo umgesetzt werden muß.

Kann mir da jemand helfen?

So habe ich das bis jetzt umgesetzt:

Code: Alles auswählen

AProcess := TProcess.Create(nil);
AProcess.Options := AProcess.Options + [poNoConsole, poWaitOnExit, poUsePipes];
AProcess.CommandLine := 'ping '+ip+' -n 4 -w 100';
AProcess.Execute;
 
Memo1.Lines.LoadFromStream(AProcess.Output);
 
AProcess.Free;

Gruß
Michael

[theo]

Zuerst in eine StringList laden und dann die Umwandlungsfunktion auf die Eigenschaft Text anwenden.
Z.B:
Memo1.Text:=SysToUTF8(SL.Text);

Vllt. auch http://lazarus-ccr.sourceforge.net/docs ... outf8.html

[creed steiger]

oder die ganze Problematik umgehen (falls du nur die Pingzeit brauchst):

http://synapse.ararat.cz/doc/help/pingsend.html

[Soner]

Nimm doch gleich TProcessUTF8

[catweasel]

Danke an alle. Ich habe mich für pingsend entschieden und auch schon umgesetzt.

Noch einen schönen Sonntag
Michael

[Christian]

funktioniert dann aber nur unter windows