Entwickler-Ecke
Internet / Netzwerk - überprüfung ob internetseite vorhanden
mario88 - Do 30.07.09 17:14
Titel: überprüfung ob internetseite vorhanden
Hallo,
ich bin auf der Suche nach einem Befehl in Delhpi, welcher überprüft, ob eine internetseite vorhanden ist.
ich möchste nämlich das mein programm erstmal üprüft ob die seite vorhanden ist und wenn ja, dann diese öffnet.
den zweiten teil habe ich schon fertig.
gruß mario
Muck - Do 30.07.09 19:56
Hallo,
benutze die Indy Componente IdHTTP. Hier die Methode Head, damit nur die Groesse der HTML Datei zurueckgegeben wird und nicht das gesamte Document.
In etwa so: GR ist Integer und idhttp1 ist TIdHttp;
Delphi-Quelltext
1:
2:
3:
4:
5:
| try
idhttp1.Head('http://www.x.de/index.htm');
GR:=idhttp1.Response.ContentLength;
except on e:exception do GR:=0;
end; |
Wenn GR>0 dann ist die Seite vorhanden.
bis denne
Markus
mario88 - Do 30.07.09 21:21
vielen dank ich werde es mal testen
mario88 - Do 30.07.09 21:34
wo liegt den hier der fehler?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.Button1Click(Sender: TObject);
var i,GR:integer;
begin
for i:=2000 to 2001 do
begin
try
idhttp1.Head('http://www.dresden-mails.de/index.php?area=user&mod=paidbanner&do=click&id='+inttostr(i)+'');
GR:=idhttp1.Response.ContentLength;
except on e:exception do GR:=0;
end;
if GR=0
then
else
ShellExecute(handle, 'open', PChar('http://www.dresden-mails.de/index.php?area=user&mod=paidbanner&do=click&id='+inttostr(i)+''), nil, nil, SW_SHOW)
end;
end;
end. |
gruß mario
Moderiert von 
Gausi: Delphi-Tags hinzugefügt
Xentar - Do 30.07.09 21:35
a) du verwendest keine Delphi Tags
b) du hast uns nicht gesagt, welcher Fehler auftritt
mario88 - Do 30.07.09 21:39
was meinst du mit tags, wie ich verwendet keine tags?
und hier das bild
Xentar - Do 30.07.09 21:41
Wenn du einen Beitrag schreibst, kannst du eben in den Leisten bei "Bereiche" deinen Code mit Delphi TAGs umschließen. Dadurch wird der besser lesbar.
Zu der Fehlermeldung: Bist du sicher, dass es IdHTTP1 gibt? Hast du das aufs Formular gezogen, oder wie machst du das?
Zum Allgemeinen Vorhaben:
- Auf der Seite muss man sich einloggen, also ist das nicht so einfach, wie du es gerade versuchst
- Auszug aus der URL: mod=paidbanner&do=click <-- was wirdn das? Sieht auf den ersten Blick aus, wie ein automatischer Banner-Clicker / Bot
mario88 - Do 30.07.09 21:44
achso, das mit dem delphi tag wusste ich nicht, ja ich probiere ob so etwas so einfach zu erstellen ist, ma kann es ja mal probieren, oder haste da bessere tipps?
Xentar - Do 30.07.09 21:48
mario88 hat folgendes geschrieben  : |
| ja ich probiere ob so etwas so einfach zu erstellen ist, ma kann es ja mal probieren, oder haste da bessere tipps? |
Was erstellen? Einen Bannerklicker?
Klar hab ich da einen Tipp:
http://www.delphi-forum.de/sites.php?id=9
mario88 - Do 30.07.09 21:51
ok, also soetwas ist hier verboten zu posten dachte ich mir fast ok
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!