Einzelnen Beitrag anzeigen

dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
 
Delphi 2007 Professional
 
#1

IdHTTP.Get Unicode

  Alt 11. Nov 2010, 12:38
Hi,

folgendes kleines Beispielprogramm compilliert mit Delphi 2010:
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  html: string;
begin
  with TidHTTP.Create do
    try
      html := Get('http://www.web.de'); // oder andere Seiten
      showmessage(html);
    finally
      Free;
    end;
end;

end.
Problem ist, dass, egal welchen Webseitenquelltext ich lade, nur Mist rauskommt. Showmessage zeigt 2 Kästchen, wenn man debugt steht in html
Zitat:
#$1F#$008B#8#0#0#0#0#0#0#3'í}Ys"IÒàó¶Yÿ'#$0087'l}5 ¥ªV!nI'#$0094'JÕ'#$0083#$0084#0#$1D'*'#3#4#$0082'Þ ¶²<'#2'2E^'#$0095#7'×l'#$009B'íOÚ'#$1F'´fó2¿á{ê'#$ 0087'u'#$008F'<È'#$0084#4#$12'$õTõ'#$008E'¬T'#$008 2'Ì'#8#$F'w'#$F#$F#$F#$F#$F#$F#$008F'O?'#$0095'nÎ' #$009A#$009D'ÛsF´'#$14#$0099'¹}8½¾8cv'#$12'Éd;{'#$ 0096'L'#$0096#$009A'%æ±Ú¬]3éý'#$14'Ó4XÕ'#$0094',ISY9'#$0099'<¯ï0;¢eé'#$1F#$0 093'ÉÑh´?ÊîkF?...
Compilliert mit früheren Delphiversionen gehts.

Jemand eine Idee an was das liegen könnte?


Dominik
Dominik
Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
  Mit Zitat antworten Zitat