Sonderzeichen anzeigen

Delphi2009lover · Beiträge: 176

Hi

ich möchte den Title von z.B. dieser Webseite anzeigen... www.youtube.com/watch?v=QWNoiVrJDsE mit Sonderzeichn (Stern und Herz) aber wenn ich das so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

Quelltext := HttpDownload.Get('http://www.youtube.com/watch?v=QWNoiVrJDsE');
VIDEO_TITLE := Copy(Quelltext, Pos('<title>',Quelltext) + 7, Pos('</title>', Quelltext) - (Pos('<title>',Quelltext) + 7));

URLEdit.Text := VIDEO_TITLE;

Dann steht im Edit leider nur : YouTube - â˜†"Britains Got Talent â™¥ Connie

1. Gibt es eine möglichkeit den Titel anders auszulesen, dass auch die Sonderzeichen angezeigt werden? (evtl. Browser.OleObject.Document.....)

2. Währe es nett wenn ihr mir meinen Code verbessert, bzw einen Code der funktioniert postet

Vielen vielen Dank im Vorraus!!!!

platzwart · Verfasst: Di 03.11.09 17:40

Welche Delphi-Version verwendest du?

Btw: "wäre", nicht "währe"

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

elundril · Verfasst: Di 03.11.09 17:42

Blind drauf losgeraden würd ich fast sagen Delphi 2009 :mrgreen:

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Delphi2009lover · Beiträge: 176

Nein Turbo Delphi 2006... Ich muss das wirklich hinbekommen....

Andreas L. · Verfasst: Mi 04.11.09 15:05

Die Seite ist UTF-8 also Unicode kodiert. Delphi unterstützt Unicode aber erst ab Version 2009 von Haus aus. Es gibt aber auch unter Turbo Delphi ein paar Befehle die mit Unicode umgehen können. Schau mal ob es bei dir Utf8ToAnsi gibt und ob du damit den Text richtig dargestellt bekommst. Ansonsten könnte das was für dich sein: tmssoftware.com/site/tmsuni.asp (Gratis für die nicht kommerzielle Verwendung)

Delphi2009lover · Beiträge: 176

Den Befehl Utf8ToAnsi gibt es bei mir... geht das dann?

Xentar · Verfasst: Mi 04.11.09 15:36

Delphi2009lover hat folgendes geschrieben :

geht das dann?

Woher sollen wir das wissen? Probier es aus..

_________________
PROGRAMMER: A device for converting coffee into software.

Delphi2009lover · Beiträge: 176

Ok wie muss ich den Code denn ändern, damit das funktionieren könnte?

elundril · Verfasst: Mi 04.11.09 16:29

hmmm, mal gerate:

markieren

Delphi-Quelltext

1:	URLEdit.Text := Utf8ToAnsi(VIDEO_TITLE);

garantieren tu ich aber für nix!

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Andreas L. · Verfasst: Mi 04.11.09 16:58

Die Unicode-Zeichen gehen bereits hier verloren:

markieren

Delphi-Quelltext

1:	Quelltext := HttpDownload.Get('http://www.youtube.com/watch?v=QWNoiVrJDsE');

Eine Lösung könnte evtl. sein den Rückgabewert vor der Zuweisung umzuwandeln:

markieren

Delphi-Quelltext

1:	Quelltext := Utf8ToAnsi(HttpDownload.Get('http://www.youtube.com/watch?v=QWNoiVrJDsE'));

Ich gehe aber davon aus das .Get bereits einen AnsiString liefert, die Zeichen sind also schon weg. Man bräuchte eine überladene .Get-Methode die einen WideString zurück gibt.

EDIT: Man könnte auch versuchen die Variable Quelltext als WideString zu definieren.

Delphi2009lover · Beiträge: 176

Ok^^ ich werde sowiso demnächst (sprich in ca 4 Wochen) stolzer Besitzer des RAD Studio Architekt 2010(Schüleredition) sein. Ich werde es von meiner Oma geschenkt bekommen (zu meinem Geburtstag) wie kann ich das denn dann machen? Also in Delphi 2010?

Andreas L. · Verfasst: Do 05.11.09 15:06

Delphi2009lover hat folgendes geschrieben :

Ok^^ ich werde sowiso demnächst (sprich in ca 4 Wochen) stolzer Besitzer des RAD Studio Architekt 2010(Schüleredition) sein. Ich werde es von meiner Oma geschenkt bekommen (zu meinem Geburtstag) wie kann ich das denn dann machen? Also in Delphi 2010?

Ab Delphi 2009 sollten die Zeichen mit deinen bisherigen Code problemlos angezeigt werden können.

Delphi2009lover · Beiträge: 176

Achso das ist natürlich oberklasse^^

Dude566 · Verfasst: Do 05.11.09 19:28

Achso du bekommst einfach mal so ein RAD Studio für knapp 500€. ^^ :roll:

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

Andreas L. · Verfasst: Do 05.11.09 19:57

Dude566 hat folgendes geschrieben :

Achso du bekommst einfach mal so ein RAD Studio für knapp 500€. ^^ :roll:

Die SSL-Variante kostet ca. 200 €

elundril · Verfasst: Do 05.11.09 20:56

Delphi2009lover hat folgendes geschrieben :

Ok^^ ich werde sowiso demnächst (sprich in ca 4 Wochen) stolzer Besitzer des RAD Studio Architekt 2010(Schüleredition) sein. Ich werde es von meiner Oma geschenkt bekommen (zu meinem Geburtstag) wie kann ich das denn dann machen? Also in Delphi 2010?

ich hoffe dir ist klar das du, afaik, deine Programme die du mit einer SSL-Version programmierst nicht verbreiten darfst.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Dude566 · Verfasst: Do 05.11.09 21:12

Was ist denn eine SSL Variante ich habe nur eine Schülerversion gefunden wo steht sie wäre genau wie die Professional, das war aber nur Delphi2010.

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

Marc. · Verfasst: Do 05.11.09 21:16

Dude566 hat folgendes geschrieben :

Was ist denn eine SSL Variante ich habe nur eine Schülerversion gefunden wo steht sie wäre genau wie die Professional, das war aber nur Delphi2010.

Ich glaube, ihr werdet etwas OT. :roll:

SSL = Schueler Studenten Lehrer

elundril · Verfasst: Do 05.11.09 21:16

SSL = Schüler, Studenten und Lehrer

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme