;---------- ---------- ---------- ---------- ----------
; 作成者のURL ---> http://www.setsuki.com/
;---------- ---------- ---------- ---------- ----------
#include "wininet.as"


// dir_exe に "FTPini.ini" を作成しますんで、
// お気をつけ下さい。


	netinit
	if stat : dialog "ネット接続できません。" : end

	sdim ini_file,256 : ini_file=dir_exe+"\\FTPini.ini"
	sdim ini_data,256 : notesel ini_data
	sdim log_data,256,5
	sdim result,256
	sdim res,1024

	#define host  log_data(0)
	#define user  log_data(1)
	#define pass  log_data(2)
	#define dfile log_data(3)
	#define pfile log_data(4)


	exist ini_file : if strsize>0 : noteload ini_file
	repeat 5
		if cnt >= notemax : break
		noteget log_data.cnt, cnt
	loop

	sysfont 17 : objsize 200,25
	pos   5,  8 :mes "ＷＷＷサーバ (ホスト名)"    : input host
	pos   5, 48 :mes "アカウント（ユーザー名）"   : input user
	pos   5, 88 :mes "パスワード "                : input pass
	pos   5,128 :mes "ホストの初期フォルダ"       : input dfile
	pos   5,168 :mes "PCの初期フォルダ"           : input pfile,140
	pos 145,180 :objsize 60,25 : button "参照",*pfile_get
	pos   5,208 :objsize 200,25: button "接続",*connect
	pos   5,233 :mesbox result,200,200 : id_result=stat

	onexit *finish
	stop


*pfile_get
	stop


*connect
	ftpopen host, user, pass
	if stat : goto *ftperror

	result="FTP接続しました。\n"
	ftpresult res
	result+=res

	ftpdir mydir,dfile
	ftpdirlist
	repeat
		netexec mode
		if mode : break
		await 50
	loop
	if mode<0 : goto *ftperror

	ftpdirlist2 res
	result+=res

	ftpclose
	result+="FTP切断します。\n"

	objprm id_result,result
	stop


*ftperror
	ftpresult res
	result="FTP接続エラー。\n"+res
	objprm id_result,result
	stop


*finish
	ini_data="" : notesel ini_data
	repeat 5
		noteadd log_data.cnt
	loop

	notesave ini_file
	end