Mit IdHTTP Seite aufrufen und an MemoryStream übergeben = Zeichen fehlerhaft

[KodeZwerg]

Hallo bogdan,
gut wäre ein Projekt-Upload gewesen für alle Properties (die stehen in der .dfm Datei) die Du so gesetzt hast.
Auch gut zu Wissen was in Edit1.Text steht, nur eine blanko Webadresse ohne Endung?
Soll das Ziel sein den HTML Source-Code zu laden oder eine bestimmte Datei?


edit
Hier ein Beispiel um HTTP HTML Sourcecode zu laden:

Delphi-Quellcode:

function DownloadHTMLSource( var xUrl : ansiString ):ansiString;
const
  INET_USERAGENT    = 'Mozilla/4.0, Indy Library (Windows; en-US)'; // Damit sagst Du "Hallo, ich bin..."
  INET_TIMEOUT_SECS = 3;                                            // Wieviele Sekunden warten bevor Timeout kommt?
  INET_REDIRECT_MAX = 10;                                           // Maximale Redirect-Tiefe
begin
 with tIdHttp.create(nil) do begin         // Create Indy http object
  request.userAgent := INET_USERAGENT;     // Custom user agent string
  redirectMaximum := INET_REDIRECT_MAX;    // Maximum redirects
  handleRedirects := INET_REDIRECT_MAX<>0; // Handle redirects
  readTimeOut := INET_TIMEOUT_SECS*1000;   // Read timeout msec
  try                                      // Catch errors
   Result := Get(xUrl);                    // Do the request
   if URL.Port = '80' then URL.Port := ''; // Remove port 80 from final URL
   xUrl := URL.GetFullURI                  // Return final URL <<- da könnte nun eine andere URL stehen als wie Du eingegeben hast
  except                                   // Return an error message if failed
    on E: Exception do
    Result := 'Error! HTTP Adress: ' +xUrl+ #13#10 + 'E.Message: ' + E.Message;   // Return Error Message
  end;
  free                                     // Free the http object
 end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  temp1, temp2: ansiString;
  i : Integer;
begin
  Memo1.Clear;
  Memo1.Lines.Add('Working...');
  Temp1 := Edit1.Text;
  if Length(Edit1.Text) > 0 then Temp2 := DownloadHTMLSource(Temp1);
  // hier noch irgendwas mit ansiString anstellen, zum Beispiel nullen entfernen
  for I := 1 to Length(Temp2) do
    if Temp2[i] = Char(Ord($00)) then Temp2[i] := Char(Ord($20));
  Memo1.Lines.Text := Temp2;
  Memo1.Lines.Add('HTTP HTML Source from: '+Temp1);
end;

Alles noch unoptimiert aber vielleicht ist es ja das was Du wolltest?
Viel Spass damit.
Ps: Diesen Code solltest Du in einem leeren Projekt testen ohne Indy Komponenten aufm Formular aber in Uses.