sample\hspinet\test5.hsp » Plain Format
#include "hspinet.as" ; ; ftpサーバー上のファイル一覧を得る ; title "ftp接続サンプル" ; netinit if stat : dialog "ネット接続できません。" : end sdim m_adr,256 sdim m_user,256 sdim m_pass,256 sdim m_dir,256 sdim m_edit,64 sdim m_result,256 m_adr="127.0.0.1" m_dir="/" m_user="anonymous" m_pass="a@a.com" objsize 320,24 mes "ftp接続先" input m_adr mes "ユーザー名" input m_user mes "パスワード" input m_pass mes "ディレクトリ" input m_dir button "接続",*go mes "ファイル一覧" mesbox m_result,640,240 id_result = stat stop *go ftpopen m_adr,m_user,m_pass if stat : goto *ftperror m_result="" ; m_result+="FTP接続しました。\n" ftpresult res m_result+=res ; ftpdir mydir,m_dir ; ftpdirlist repeat netexec mode if mode : break await 50 loop if mode<0 : goto *ftperror ftpdirlist2 res m_result+=res ftpclose m_result+="FTP切断します。\n" objprm id_result,m_result stop *ftperror ftpresult res m_result="FTP接続エラー。\n"+res objprm id_result,m_result stop