INTERNET([internet],[hakemisto],[käyttäjä],[salasana],[tyyppi],[palvelu],[num1],[num2])

Parametrit

[internet] internet pidike
[hakemisto] mihin hakemistoon/sivulle mennään
[käyttäjä] teksti
[salasana] teksti
[tyyppi] numero
[palvelu] numero
[num1] numero
[num2] numero

Palautusarvo

Funktio palauttaa numeron 1 jos onnistui, 0 jos ei onnistunut

Selitys

Funktiolla voidaan mennä ottaa yhteys internettiin eri tavoilla.

Esimerkki

ihan1=internet(,) /* yhdistetään internettiin, kaksi parametria, jotka ovat NIL */
if ihan1<=0
   ? "Internet ei onnistu"
   return
endif
ihan2=internet(ihan1,"ftp.datamike.biz","kayttajatunnus","salasana") /* neljä tai viisi parametria, yhdistetään ftp serveriin.
Mikäli annetaan viides parametri se voi olla 1 (FTP, perusarvo) tai 3 (HTTP)*/
if ihan2<=0
   internet(ihan1) /* suljetaan internet yhteys */
   ? "tunnukset väärin"
   return
endif
internet(ihan2) /* yksi parametri: suljetaan ftp yhteys */
internet(ihan1) /* yksi parametri: suljetaan internet yhteys */

Toinen esimerkki, lähetetään pyyntö/komento GET:

ihan1=internet(,)
if ihan1<=0
   ? "Internet ei onnistu"
   return
endif
ihan2=internet(ihan1,"www.datamike.com","","",3) /* viisi parametria, yhdistetään sivulle http=3 */
if ihan2<=0
   internet(ihan1)
   ? "ei onnistu"
   return
endif
? internet(ihan2,"GET","/kassapaa.htm","",0,) /* kuusi parametria: tehdään ns. http_request.
Funktio palauttaa nolla jos sivua kassapaa.htm ei ole, muuten numeron */
internet(ihan2)
internet(ihan1)

Kolmas esimerkki, yhdistetään porttiin ym.:

ihan1=internet(,)
if ihan1<=0
   ? "Internet ei onnistu"
   return
endif
ihan2=internet(ihan1,"www.datamike.com","","",80,134217728,3,0) /* kahdeksan parametria, yhdistetään sivulle, portti=80, FLAG_PASSIVE=134217728, http=3, context=0 */
if ihan2<=0
   internet(ihan1)
   ? "ei onnistu"
   return
endif
internet(ihan2)
internet(ihan1)

Katso myös FTPPUTF(), HTTP()