.main testftp
.include "ftp_defines.def"
.align
record
ftp ,D_ADDR
err ,i4
.proc
;connect to ftp server
err = %ftp_connect(ftp, "ftp.myserver.com", "username", "password")
if (.not. err)
begin
;upload image file to server
err = %ftp_putfile(ftp,
FTP_FILE, "c:\temp\logo.jpg",, FTP_BINARY, "logo.jpg")
;issue other ftp command to server here
end
;disconnect from ftp server
xcall ftp_disconnect(ftp)
.end
|