| Autor |
Beitrag |
mario88
Hält's aus hier
Beiträge: 6
|
Verfasst: Do 30.07.09 17:14
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
 
Beiträge: 98
Erhaltene Danke: 8
Win 8, Win 7, Vista, Win XP
Delphi XE3, Delphi 2009, Delphi 2007, Delphi 5
|
Verfasst: 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 
Hält's aus hier
Beiträge: 6
|
Verfasst: Do 30.07.09 21:21
vielen dank ich werde es mal testen
|
|
mario88
Hält's aus hier
Beiträge: 6
|
Verfasst: 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
Beiträge: 2077
Erhaltene Danke: 2
Win XP
Delphi 5 Ent., Delphi 2007 Prof
|
Verfasst: Do 30.07.09 21:35
a) du verwendest keine Delphi Tags
b) du hast uns nicht gesagt, welcher Fehler auftritt
_________________ PROGRAMMER: A device for converting coffee into software.
|
|
mario88
Hält's aus hier
Beiträge: 6
|
Verfasst: Do 30.07.09 21:39
was meinst du mit tags, wie ich verwendet keine tags?
und hier das bild
Einloggen, um Attachments anzusehen!
|
|
Xentar
Beiträge: 2077
Erhaltene Danke: 2
Win XP
Delphi 5 Ent., Delphi 2007 Prof
|
Verfasst: 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
_________________ PROGRAMMER: A device for converting coffee into software.
|
|
mario88
Hält's aus hier
Beiträge: 6
|
Verfasst: 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
Beiträge: 2077
Erhaltene Danke: 2
Win XP
Delphi 5 Ent., Delphi 2007 Prof
|
Verfasst: 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:
www.delphi-forum.de/sites.php?id=9_________________ PROGRAMMER: A device for converting coffee into software.
|
|
mario88
Hält's aus hier
Beiträge: 6
|
Verfasst: Do 30.07.09 21:51
ok, also soetwas ist hier verboten zu posten dachte ich mir fast ok
|
|
