Ένας δεύτερος τρόπος πρόσβασης στο Web μέσα από την εφαρμογή μας είναι με τη
χρήση του Internet Transfer Control (προσθήκη από το Project - Components).
Το όργανο αυτό δεν εμφανίζεται όταν εκτελείται η εφαρμογή μας, αλλά
μας επιτρέπει την πρόσβαση σε περιεχόμενο δικτυακών τόπων μέσα
από το πρόγραμμα.
Για διαβάσουμε το περιεχόμενο μιας συγκεκριμένης σελίδας χρησιμοποιούμε τη
μέθοδο OpenURL που επιστρέφει μια συμβολοσειρά με τα περιεχόμενα
της σελίδας όπως στο παρακάτω παράδειγμα:
Private Sub Command1_Click()
Dim weather As String
weather = Inet1.OpenURL("http://www.ntua.gr/weather")
MsgBox "Wind speed is " + Mid(weather, InStr(weather, "beaufort") - 2, 1) + " beaufort", vbOKOnly, "Current wind speed"
End Sub
Προσοχή: τα περιεχόμενα της σελίδας είναι - στην καλύτερη περίπτωση -
κωδικοποιημένα σε HTML.
Αν τα περιεχόμενα της σελίδας είναι πολλά πρέπει να χρησιμοποιήσουμε
τις μεθόδους Execute και GetChunk για να τη διαβάσουμε σε τμήματα.
Η μέθοδος GetHeader επιτρέπει την πρόσβαση στις επικεφαλίδες HTTP.
Τελευταία αλλαγή: Παρασκευή, 22 Ιουνίου 2001 2:42 μμ
Εκτός αν αναφέρεται κάτι διαφορετικό, όλο το πρωτότυπο υλικό της σελίδας αυτής
του οποίου δημιουργός είναι ο Διομήδης Σπινέλλης παρέχεται σύμφωνα με τους
όρους της άδειας
«Creative Commons Attribution-Share Alike 3.0 Greece License».