Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Auf Website ohne IE zugreifen, um Daten auszulesen (https://www.delphipraxis.net/16356-auf-website-ohne-ie-zugreifen-um-daten-auszulesen.html)

hm988 15. Feb 2004 20:46


Auf Website ohne IE zugreifen, um Daten auszulesen
 
hallo,

wie kann ich ohne den IE zu benutzen auf eine Webseite zugreifen um von dort Werte auszulesen
oder evtl Auch zu ändern.
Praktisch dass ich in meinem Label irgendein wort anzeigen kann, und über meine eigenen Butons
mit den links verbinde.

geht das überhaupt ?? :gruebel:

Danke für eine Antwort

gekmihesg 15. Feb 2004 21:58

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
ja mit IdHTTP

Synonym 15. Feb 2004 22:00

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
@gekmihesg in wie weit hätte dich das jetzt weitergebracht wenn du keine ahnung von der materie mit Lan und WAN hast!

Also bitte!

Synonym

hm988 16. Feb 2004 16:14

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
hallo,

na war zwar keine große Erklärung, aber mit diesem kleinen Hinweis konnte ich mich in der Delphi
Praxis recht gut informieren.

was ich aber noch nicht gefunden habe, wie komme ich auf einen Bestimmten Bereich ?? wenn ich z.B. aus einer
Tabelle --> bestimmtes Feld was auslesen will ??

vielleicht habt ihr ja noch eine Idee ?

Danke

Treffnix 16. Feb 2004 16:21

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
Sind die Webseiten von dir?
Soll heissen: Passt du die Webseiten ans Programm an oder das Programm an die Webseiten?

Haste vielleicht mal ne Beispielseite?

hm988 16. Feb 2004 16:30

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
ja hab ich, ist von einem Access Point und ich will die MAC Adressen auslesen und vergleichen um zu sehen wer auf meinem AP ist,

Delphi-Quellcode:
<html>
<head>
   <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
   <title>Access Point form</title>
   <link rel="stylesheet" href="form.css">
   <script language="javascript" type="text/javascript" src="func.js"></script>
<script Language="Javascript">
<!--
function goAround(){ location.reload(); }
//-->
</script>
</head>
<body bgcolor="#ffffff" onLoad="loadhelp('_stalist');setTimeout('goAround()', 30000)">
<form>
<table border="0" cellpadding="0" cellspacing="3" width="100%">
<tr>
   <td colspan="2"><h1>Station List</h1></td>
</tr>
<tr>
   <td colspan="2" background="liteblue.gif" height="12"> </td>
</tr>
<tr>
   <td colspan="2">
   <table border="1" cellpadding="0" cellspacing="0" width="100%">
   <tr>
      <td nowrap align="center">[b]Station ID[/b] </td>
      <td nowrap align="center">[b]MAC Address[/b]</td>
      <td nowrap align="center">[b]Channel[/b]</td>
      
      <td nowrap align="center">[b]Status[/b]</td>

   </tr>
<tr><td align=center>1</td><td align=center>00:50:FC:D0:E4:20</td><td align=center>1 / 2.412GHz</td><td align=center>associated</td></tr>
<tr><td align=center>2</td><td align=center>00:50:FC:D0:13:E2</td><td align=center>1 / 2.412GHz</td><td align=center>associated</td></tr>
<tr><td align=center>3</td><td align=center>00:50:FC:D0:E5:D5</td><td align=center>1 / 2.412GHz</td><td align=center>associated</td></tr>

   </table>
   </td>
</tr>
hast du eine Idee die Position ändert sich ja nie, höchstens die Zeilen der Tabelle werden mehr bzw. weniger.

hm988 18. Feb 2004 16:32

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
hallo,

hat denn keiner eine Idee, bin doch sicher nit der erste mit dem Problem :gruebel:

google find ich auch nichts richtig hilfreiches :wall:

Treffnix 19. Feb 2004 08:48

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
Also, wenn sich die Zeilenanzahl vor den relevanten Zeilen nie ändert und die Länge und Position einer MAC-Adresse immer gleich ist, ist es nicht schwer.

Delphi-Quellcode:
Procedure ...
var HTML: TStringlist;
    MACs: TStringList;
    i: Integer;
Begin
  ...
  HTML:= TStringlist.Create;
  MACs:= TStringList.Create;
  HTML.Text := deinHTMLString;
  i:= 33; //Wenn ich mich nicht verzählt habe, steht die erste MAC in Zeile 33
  While Trim( HTML[i] ) <> '' Do Begin
    MACS.Add( copy( HTML[i], 45, 17 ) ); //45-> erster Buchstabe der MAC 17 -> Länge einer MAC
    i:= i+2; //2, sofern die Zwischenzeile nich von DP kommt
  End;
End;
Ist jetzt so das erste, was mir einfällt und ungetestet. Die Zahlen musste auf jeden Fall noch überprüfen. Es ist früher Morgen ;)
Kannste es ja mal testen...

Wenn sich die Positon innerhalb des HTML-Textes musste die Zeilen nach Stichworten durchforsten, um die richtige zu finden.
z.B. in dem du mit pos nach "<tr><td align=center>1</td><td align=center>" suchst...

hm988 19. Feb 2004 20:52

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
also ich habe des mal getestet, funktioniert auch leider wiederholt er
die MAC Adresse andauernd und mein Prog ist so gut wie tot :gruebel:

aber ich bin noch dran, muss ja auch mal was rausfinden :mrgreen:

Treffnix 19. Feb 2004 22:18

Re: Auf Website ohne IE zugreifen, um Daten auszulesen
 
Ja, sorry mein Fehler. :wall:
Liegt daran, dass die Prozedur ja 2 Zeilen springt statt einer.

Ersetze
Delphi-Quellcode:
While Trim( HTML[i] ) <> '' Do Begin
durch
Delphi-Quellcode:
While Trim( HTML[i] ) <> '</table>' Do Begin
Dann sollte es gehen


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:21 Uhr.

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