[internet] avattu ftp serverin pidike
[tiedosto] tiedosto joka haetaan serveriltä
[tallennetaan] nimi johon tallennetaan omalla kovalevyllä
Funktio palauttaa numeron 1 jos onnnistui, 0 jos ei onnistunut
Funktiolla voidaan hakea ftp serveriltä tiedosto ja tallentaa se omalle kovalevylle.
Ennen latausta täytyy yhdistyä internettiin ja ftp-serverille internet() -funktiolla.
ihan1=internet(,) /* yhdistetään internettiin */
if ihan1<=0
? "Internet ei onnistu"
return
endif
ihan2=internet(ihan1,"ftp.datamike.biz","kayttajatunnus","salasana") /* yhdistetään ftp serveriin */
if ihan2<=0
internet(ihan1) /* suljetaan internet yhteys */
? "tunnukset väärin"
return
endif
apu=ftpgetf(ihan2,"aa.bin","apu.bak") /* haetaan tiedosto aa.bin ja tallennetaan se apu.bak */
if apu#1
? "Tiedoston haku epäonnistui"
else
? "Haku onnistui"
endif
internet(ihan2) /* suljetaan ftp yhteys */
internet(ihan1) /* suljetaan internet yhteys */