[internet] avattu ftp serverin pidike
[tiedosto] tiedosto joka lähetetään serverille tai komento
[tyyli] numero tai teksti. Lähetetään tiedosto 1=ASCII lähetys, 2=binäärilähetys
[tallennetaan] numero tai teksti. Jos lähetetään tiedosto tässä on tallennetaan tiedoston nimi jos halutaan muu kuin lähetysnimi.
[arvo] ei käytössä
Funktio palauttaa numeron 1 jos onnistui, 0 jos ei onnistunut
Funktiolla voidaan lähettää ftp serverille tiedosto tai suorittaa ftp komento.
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=FTPPUTF(ihan2,"apu.txt") /* lähetetään tiedosto apu.txt serverille */
if apu#1
? "Tiedoston lähetys epäonnistui"
endif
apu=FTPPUTF(ihan2,"apu.txt",1,"apu2.txt",) /* lähetetään tiedosto apu.txt serverille ASCII lähetyksenä ja tallennetaan se toisella nimellä.
Tällöin pitää antaa viisi parametria, viimeinen on NIL */
apu=FTPPUTF(ihan2,"CWD cgi-bin",,) /* lähetetään FTP komento jonka tarkoitus on mennä ala-hakemistoon cgi-bin. Mikäli komento onnistuu funktio palauttaa 1, jos ei palautetaan 0.
Tällöin pitää antaa neljä parametria, kaksi viimeistä ovat NIL */
internet(ihan2) /* suljetaan ftp yhteys */
internet(ihan1) /* suljetaan internet yhteys */