IdHTTP.Get Unicode

[youuu]

Hast du schon einmal meinen Code ausprobiert ohne "With"?

[dominikkv]

Ja, im eigentlichen Projekt habe ich das auch mit einer Variablen gemacht, aber das ist gehopst wie gesprungen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  html: string;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(self);

  try
    html := http.Get('http://www.web.de');  // oder andere Seiten
  finally
    http.Free;
  end;

  showmessage(html);
end;

Trotzdem Danke für deine Hilfe!

[dominikkv]

Da es Probleme bei der Indy-Version, die bei Delphi 2010 mitgeliefert wurde, geben soll habe ich mal ein Update mit dem aktuellen Snapshot gemacht (Tutorial).

Ändert leider nichts.

Ist das ein Unicode-Problem?

[mkinzler]

Was passiert, wenn du html als AnsiString deklarierst?

[dominikkv]

Inhalt wenn html als String deklariert ist:

Zitat:

#$1F#$008B#8#0#0#0#0#0#0#3'í}Ùrâȶèó©'#$0088'þ'#7' µwíÂÕ.'#$008C#$0098'lS.Wo0'#$18'<'#$0080'mÀL}:'#$1 C#$1A#$12'$£©40õí'#$0088'ûI÷'#$0083'nÄyéoØOýpW¦'#6 '$'#$10' °]]Õw;l#¤ÔÊ5åÊ'#$0095#$0099'+W~ú±x{ÞìÞ'#$0095'(Á'#$00 94'%êî¡psyNíÅ'#$13#$0089'vú<'#$0091'(6'#$008B'T§Ò¬ ÞPÉC'#$009A'jê'#$008C'b'#$0088'¦¨*'#$008C#$0094'H' #$0094'j{Ô'#$009E'`'#$009A'ÚÇDb<'#$1E#$1F#$008E'Ó' #$0087'ª>H4ë'#$0089#9#$0086#$0095'Ä/;'#$0097'qÓ÷æ!oò{'#$009F'ß|"'#

...

Inhalt wenn html als AnsiString deklariert ist:

Zitat:

#$1F'?'#8#0#0#0#0#0#0#3'í½ÙrâÈÖ(|}*b¿?Ú_íÂÕ.Ìl?r¹z ?Áà'#1'<??úë¨Ð'#$90' '#$19'M¥'#$81'©OG?Gú'#$1F'èD|7û'#$19'öU_ü+3%!'#$81 #0#$81'íÚU}¶Ã6BJ'#$AD'\S®\?¹rå§?J·çÍî]?'#$11'-Efî'#$1E'?7?çÌ^<?hgÎ'#$13'?R³ÄtªÍÚ'#$D'?:L2M?UMÉ?4 ??'#$13'?r}'#$8F'Ù'#$13'-Kÿ?H?ÇãÃqæP3'#6'?æCb?a¥ðËÎeÜò½y(XÂÞç7?H?'#$13'EVͳ '#$10'0©|>OßÞÃ?>ʬ:8Û'#$13'Ð'#$1E'ã]}~ó'#6'* Vøü?'#$81'?O?dÉès»\<,??8S?×XI???Í?'#8'>K'#$8D#$1B' ü'#$1F'y÷EM×%u?˪'#

...