Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi URL ohne Browser öffnen (https://www.delphipraxis.net/77314-url-ohne-browser-oeffnen.html)

Green 17. Sep 2006 17:14


URL ohne Browser öffnen
 
Also im Prinzip öffne ich ja wenn ich im Browser 'http://www.google.de/' eingebe auch nur eine html (oder php oder sonstiges) datei die ich dann wiederum parse. Daraus hab ich jetzt ma geschlossen das ich eine url (also den html code) ja theoretisch auch ganz einfach in einem Memo öffnen könnte.

Delphi-Quellcode:
memo1.Lines.LoadFromFile('http://www.google.de/');
Doch da krieg ich nix ausser das er die Datei nicht findet...

mfG Green

3_of_8 17. Sep 2006 17:16

Re: URL ohne Browser öffnen
 
Dafür gibt es Komponenten wie die Indys. Google hilft.

Green 17. Sep 2006 17:17

Re: URL ohne Browser öffnen
 
Wie genau kann ich denn eine Seite mit Indy öffnen ohne sie zu parsen

3_of_8 17. Sep 2006 17:19

Re: URL ohne Browser öffnen
 
Delphi-Quellcode:
IdHTTP.Get('URL');

Meflin 17. Sep 2006 17:20

Re: URL ohne Browser öffnen
 
Zitat:

Zitat von 3_of_8
Dafür gibt es Komponenten wie die Indys. Google hilft.

jein. die indys werden von google geblockt :mrgreen:
Zitat:

Wie genau kann ich denn eine Seite mit Indy öffnen ohne sie zu parsen
Mit der IdHTTP Komponente. Forumssuche bringt alle Antworten ;)


mkinzler 17. Sep 2006 17:20

Re: URL ohne Browser öffnen
 
Bei den Indys gibt es eine Clientkomponenet für HTTP, mit welcher du die dateien per HTTP herunterladen kannst. Parsen müßt du sie dann selber, wenn du es willst oder es sein lassen.

Ultimator 17. Sep 2006 17:24

Re: URL ohne Browser öffnen
 
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var MS: TMemoryStream;
begin
 MS := TMemoryStream.Create;
 IdHTTP1.Get('http://www.delphipraxis.net', MS);
 MS.Seek(0, soFromBeginning);
 Memo1.Lines.LoadFromStream(MS);
 MS.Free;
end;
Getestet und für gut befunden :mrgreen:

Diese Komplettlösung tut ja keinem weh^^

3_of_8 17. Sep 2006 17:27

Re: URL ohne Browser öffnen
 
Man kanns aber auch so machen:

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

Ultimator 17. Sep 2006 17:32

Re: URL ohne Browser öffnen
 
Zitat:

Zitat von 3_of_8
Man kanns aber auch so machen:

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

Warum einfach, wenns auch schwer geht? :mrgreen:

Peinlich... xD

Ralf Kaiser 17. Sep 2006 18:18

Re: URL ohne Browser öffnen
 
Zitat:

Zitat von Meflin
jein. die indys werden von google geblockt :mrgreen:

Man kan bei der Indy-Komponente aber den HTTP-Agent auf einen beliebigen Wert setzen und sich so z.B. als Explorer oder Firefox ausgeben. Dann sollte es auch mit Google klappen (ich vermute mal, daß Google den Agent auswertet)

Nicht getestet, nur vermutet... :?

Meflin 17. Sep 2006 19:12

Re: URL ohne Browser öffnen
 
Zitat:

Zitat von Alfi001
Nicht getestet, nur vermutet... :?

Ja, das stimmt schon so ;) Trotzdem wird das ja nicht ohne Grund geblockt... Aber das ist ein anderes Thema :roll:


Green 19. Sep 2006 13:02

Re: URL ohne Browser öffnen
 
Also Seite öffnen und so funktioniert, aber wie krieg ich jetzt noch raus wann die Seite fertig geladen hat?

mfG

3_of_8 19. Sep 2006 13:08

Re: URL ohne Browser öffnen
 
TIdHTTP.Get blockiert die weitere Ausführung so lange, bis die Seite geladen ist.

inherited 19. Sep 2006 13:09

Re: URL ohne Browser öffnen
 
Und sonst, wenn du es mit threads machst, gibt es noch das Ereignis OnWorkEnd ;)
(hättest du acuh selbst finden können)

Green 19. Sep 2006 14:09

Re: URL ohne Browser öffnen
 
also ein
Delphi-Quellcode:
memo1.Text:=IdHTTP1.Get('http://www.delphipraxis.net');
close;
würde die Seite laden und sich danach beenden

Aenogym 19. Sep 2006 14:38

Re: URL ohne Browser öffnen
 
Zitat:

Zitat von Green
also ein
Delphi-Quellcode:
memo1.Text:=IdHTTP1.Get('http://www.delphipraxis.net');
close;
würde die Seite laden und sich danach beenden

richtig. aber was für einen sinn hätte das? :gruebel:

aeno


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz