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:

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:

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 :hi:

[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 :hi:

[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:

Delphi-Quellcode:

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!

[Marco Haffner]

Zitat:

Zitat von Trouble_Maker

Memo1.Text := IdHTTP.Get('http://www.delphipraxis.net');

Wenn du die Komponente auf das Fomular gestzt hast, ist der Name IdHTTP1 und nicht IdHTTP.
Entweder du benennst die Komponente um (Name im Objekinspektor) oder du verwendest:

Delphi-Quellcode:

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

[RomanK]

Hoi,
bist du dir sicher dass die Komponente auch IdHttp und nicht IdHttp1 heißt ???

[Trouble_Maker]

Also wenn ich eine "1" hinter das "IdHttp" setzte, dann meint er:

[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'IdHTTP1'

ohne der "1" motzt er nur wegen dem "get":

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




hmm ich hab keine ahnung!!!

helf mir :-|

[Daniel B]

Schreib mal
Edit1.Text := IdHTTP1.
Mit dem Punkt am Schluss.
und warte kurz, oder drücke Strg+Space, dann sollte sich die AutoVervollständigung öffnen, schau mal ob Get überhaupt in der Liste steht und wenn ja, was in den Klammern dahinter steht.

Grüsse, Daniel :hi:

[Trouble_Maker]

Hallo,

@Daniel:

wieso hast du denn Edit1. und nich Memo1. geschrieben ?!?
Oder war das ein Tippfehler ?!?

[Trouble_Maker]

hmm... "get" steht nich in der Liste.


*g* daran liegts wohl! Wie bekomm ich das da rein ?

[Marco Haffner]

Zitat:

Zitat von FuckRacism

bist du dir sicher dass die Komponente auch IdHttp und nicht IdHttp1 heißt ???

Du hattest ja in deinem Beispiel idhttp1 geschrieben, Trouble_Maker aber hatte IdHTTP geschrieben.
Was ich wohl überlesen hatte, war, das der Fehler mittlerweile

Zitat:

Undefinierter Bezeichner: 'Get'

lautet. :oops:

@Trouble_Maker: Welche Indy-Version setzt du ein? Vielleicht funktioniert das ja nicht mit jeder Indy-Version.

[Trouble_Maker]

ich hab die neueste Indy Version !!!
Grad vorhin runtergeladen!!!
Aber das "get" steht ja garnich in der Liste drin :-(

Ach ich verzweifel noch mit dem *piep*

Trouble_Maker

[Daniel B]

Wenn Get nicht in der Liste steht, dann kann das auch nicht gehen.
Bei den Indy-Komponenten sind auch Hilfe-Dateien dabei.
Such mal da drin nach Get und schau in welchem zusammenhang es benutzt wird.

Versuch mal da ganze auch mal mit Edit1.Text := IdHTTP.
also ohne die 1.

Grüsse, Daniel :hi:

[Daniel B]

Hallo,

Zitat:

Zitat von Trouble_Maker

@Daniel:
wieso hast du denn Edit1. und nich Memo1. geschrieben ?!?
Oder war das ein Tippfehler ?!?

Natürlich Memo1.
Habe mich von Fu**Racism ablenken lassen. :oops:

Grüsse, Daniel :hi:

[Marco Haffner]

Zitat:

Zitat von Daniel B

Bei den Indy-Komponenten sind auch Hilfe-Dateien dabei.

In meiner Indy-Hilfe (Version 9.irgendwas) taucht idhttp.get auf.

Zitat:

TIdCustomHTTP.Get
TIdCustomHTTP, See Also
Retrieves an HTTP resource.
procedure Get(AURL: string; const AResponseContent: TStream); overload;
function Get(AURL: string): string; overload;
Parameters
AURL: string
The resource to be retrieved.
const AResponseContent: TStream
Destination for the data retrieved.
Return Value
String - Contents of the retrieve resource. (Optional)
Description
Get is an overloaded method used to retrieve the file or data for the resource specified in AURL.
AURL is the complete, fully-qualified location of the resource.

AResponseContent is the TStream or descendant that is the destination for data retrieved using the specified URL .

Use Get(AUrl) to retrieve the data from AURL and return the contents as the String result of the function.

Use Get(AUrl, AResponseContent) to retrieve data from the URL and write the return values to the TStream descendant specified by AResponseContent.

Get relies on the DoRequest method to perform the HTTP transfer.