Quelltext einer Internetseite!

[Trouble_Maker]

Hiho alle,
also ich möchte den Quelltext (QT) einer Internet-Seite, die ich in einem WebBrowser angezeigt habe, in einem Memo angezeigt bekommen!
In den anderen Threads haben die so etwas hier genannt:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := IdHTTP1.Get(http://irgendein-server.de/irgendeine_datei.html');
end;

aber bei mir sagt er undefinierter Bezeichner zu dem "IdHTTP1"!
Ich weiss nich was der Fehler is!
(Indy hab ich installiert! oder is das garkeine "Indy-Komponente" ?)

Danke im Vorraus

Trouble_Maker

[Marco Haffner]

Zitat von Trouble_Maker:

Indy hab ich installiert! oder is das garkeine "Indy-Komponente" ?

So weit ich mich erinnern kann, ist das eine Indy-Komponente.
Hast du denn die TidHTTP-Komponente auch auf dem Formular abgelegt?

[Trouble_Maker]

äh keine Ahnung!
Wie gehtn das ?!?

[Daniel B]

Zitat von Trouble_Maker:

äh keine Ahnung!
Wie gehtn das ?!?

Du musst im Netz nach der Indy-Komponentensammlung suchen. Diese dann runter laden und in Delphi installieren. Dann hast Du neue Komponenten zur Auswahl. Diese musst Du dann auf Dein Formular setzen und erst dann kannst Du damit arbeiten.

Grüsse, Daniel

[Trouble_Maker]

ja, genau das hab ich jetzt gemach! Das "idHTTP" findet er jetzt! (also keine Fehlermeldung mehr!)
Aber bei dem "get" motzt er rum!

Wieso ?!?

[Daniel B]

Andere möglichkeit ist dieses hier.
Diese Komponente ist bei Delphi dabei, mann muss sie nur nachträglich installieren.
Das geht folgendermassen:
Menü\Komponenten\ActiveX importieren
In dem Fenster was sich dann öffnet, suchst Du in der Liste nach Microsoft Internet Controls, diese anklicken und unten dann auf installieren klicken.
Nachdem alles fertig ist, hast Du oben dann bei den Komponenten, auf den Reiter ActiveX, zwei "globuse". Klicke den ertsen an und setze es auf Dein Formular, dann kannst Du meinen Code benutzen.

Grüsse, Daniel

[RomanK]

Was sagt er denn ????

[Trouble_Maker]

Das sagt er:

[Fehler] Unit1.pas(70): Undefinierter Bezeichner: 'Get'

[RomanK]

Hoi,
zeig uns mal den Code.
Bei mir tut es so:
edit1.Text := idhttp1.Get('http://www.delphipraxis.net');

[Trouble_Maker]

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := IdHTTP.Get('http://www.delphipraxis.net');
end;



das is mein Code!!!

nix besonderes! und das gleiche wie bei dir oda ?!?

aber der Fehler kommt trotzdem!