|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
½²¤åµØ
µù¥U®É¶¡: 2005-10-31 ¤å³¹: 118
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤@¤ë 13, 2006 6:35 pm ¤å³¹¥DÃD: ¦Û°Ê§ó·s§¹¾ã¨Ï¥Î¨ç¦¡!! |
|
|
¦U¦ì¤j¤j¦n,¦]¬°¤§«eÓ¤H¦b¬ãµo¦Û°Ê§ó·sµ{¦¡,©Ò¥H¦b¥»¯¸½Ð±Ð¤F«Ü¦h°ÝÃD,·íµM¤]n¤F«Ü¦h
¥»¯¸´£¨Ñªº§Þ³N,©Ò¥H²{¦b¤w¸g¶}µo§¹¦¨¤F,§Ú·Q§â³o¨Ç¨ç¦¡´£¨Ñµ¹¤j®a,¦]¬°·íªì¦b¾ã¦X³o¨Ç
§Þ³N®É,¹ê¦bªá¤F¤£¤Ö¥\¤Ò³á..
³o¸Ìªº¤GºØ¤è¦¡¦³¤G:
1. ftp¤U¸ü : ¨ç¦¡¦p¤U («Ü¦h§Þ³N³£¬O±q¥»¯¸±o¨ìªº½d¨Ò,¥u¬O¤Ö³\°µÅܧó)
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡GŪ¨ú«ü©wFTP¥Ø¿ý¤U©Ò¦³Àɮ׸ê°T
¡@¡@*¨ç¼Æ¦WºÙ¡GFtpAdir(strhost,valport,struser,strpwd,strloaddir,@fileadir)
¡@¡@*°Ñ¼Æ»¡©ú¡Gstrhost ¦r¦ê ftp¦ì§}
¡@¡@* valport ¼ÆÈ ³s±µ°ð¼ÆÈ
¡@¡@* struser ¦r¦ê µn¤J±b¸¹
¡@¡@* strpwd ¦r¦ê µn¤J±K½X
¡@¡@* strloaddir ¦r¦ê FTP¨Ó·½¸ô®|(¹w³]¬°/)
¡@¡@* fileadir °}¦CÅÜ¼Æ ±N©ÒŪ¨ú¤§ÀÉ®×°}¦C¶Ç¦^
¡@¡@*¶Ç¦^È¡@¡GªÅ¦r¦ê¡@¡@§¹¦¨¤U¸ü°Ê§@
¡@¡@* «DªÅ¦r¦ê¡@¦³¿ù»~µo¥Í
¡@¡@**************************************************************
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡G¤U¸ü«ü©wFTP¥Ø¿ý¤U©Ò¦³ÀɮפΥؿý
¡@¡@*¨ç¼Æ¦WºÙ¡GFtpLoadAll(strhost,valport,struser,strpwd,strloaddir,strwritedir,intspeed)
¡@¡@*°Ñ¼Æ»¡©ú¡Gstrhost ¦r¦ê ftp¦ì§}
¡@¡@* valport ¼ÆÈ ³s±µ°ð¼ÆÈ
¡@¡@* struser ¦r¦ê µn¤J±b¸¹
¡@¡@* strpwd ¦r¦ê µn¤J±K½X
¡@¡@* strloaddir ¦r¦ê FTP¨Ó·½¸ô®|(¹w³]¬°/)
¡@¡@* strwritedir ¦r¦ê ¥»¾÷«ü©w¼g¤J¸ô®|(¹w³]¬°©Ò¦b¥Ø¿ý)
¡@¡@* intspeed ¼ÆÈ ¤U¸ü¶Ç°e³t«×
¡@¡@*¶Ç¦^È¡@¡GªÅ¦r¦ê¡@¡@§¹¦¨¤U¸ü°Ê§@
¡@¡@* «DªÅ¦r¦ê¡@¦³¿ù»~µo¥Í
¡@¡@**************************************************************
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡G¤U¸ü«ü©wFTP¥Ø¿ý¤U«ü©wÀÉ®×
¡@¡@*¨ç¼Æ¦WºÙ¡GFtpLoadFile(strhost,valport,struser,strpwd,strloaddir,strwritedir,strfile,strchangefile,intspeed)
¡@¡@*°Ñ¼Æ»¡©ú¡Gstrhost ¦r¦ê ftp¦ì§}
¡@¡@* valport ¼ÆÈ ³s±µ°ð¼ÆÈ
¡@¡@* struser ¦r¦ê µn¤J±b¸¹
¡@¡@* strpwd ¦r¦ê µn¤J±K½X
¡@¡@* strloaddir ¦r¦ê FTP¨Ó·½¸ô®|(¹w³]¬°/)
¡@¡@* strwritedir ¦r¦ê ¥»¾÷«ü©w¼g¤J¸ô®|(¹w³]¬°©Ò¦b¥Ø¿ý)
¡@¡@* strfile ¦r¦ê FTP±ý«þ¨©¤§ÀɮצWºÙ
¡@¡@* strchangefile ¦r¦ê ¤U¸ü¥»¾÷±ýÀx¦s¤§ÀɮצWºÙ
¡@¡@* intspeed ¼ÆÈ ¤U¸ü¶Ç°e³t«×
¡@¡@*¶Ç¦^È¡@¡GªÅ¦r¦ê¡@¡@§¹¦¨¤U¸ü°Ê§@
¡@¡@* «DªÅ¦r¦ê¡@¦³¿ù»~µo¥Í
¡@¡@************************************************************
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡G¤W¶Ç¥»¾÷«ü©wÀɮצÜFTP¥Ø¿ý
¡@¡@*¨ç¼Æ¦WºÙ¡GFtpSendFile(strhost,valport,struser,strpwd,strfile,strchangefile)
¡@¡@*°Ñ¼Æ»¡©ú¡Gstrhost ¦r¦ê ftp¦ì§}
¡@¡@* valport ¼ÆÈ ³s±µ°ð¼ÆÈ
¡@¡@* struser ¦r¦ê µn¤J±b¸¹
¡@¡@* strpwd ¦r¦ê µn¤J±K½X
¡@¡@* strfile ¦r¦ê ¥»¾÷±ý«þ¨©¤§ÀɮצWºÙ
¡@¡@* strchangefile ¦r¦ê ¤W¶Ç¦ÜFTP±ýÀx¦s¤§ÀɮצWºÙ
¡@¡@*¶Ç¦^È¡@¡GªÅ¦r¦ê¡@¡@§¹¦¨¤W¶Ç°Ê§@
¡@¡@* «DªÅ¦r¦ê¡@¦³¿ù»~µo¥Í
¡@¡@************************************************************
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡G§PÂ_«ü©wFTP¥Ø¿ý¤U«ü©wÀɮפ§°T®§
¡@¡@*¨ç¼Æ¦WºÙ¡GFtpLoadFileMessage(strhost,valport,struser,strpwd,strloaddir,strfile,@filesize,@filedate)
¡@¡@*°Ñ¼Æ»¡©ú¡Gstrhost ¦r¦ê ftp¦ì§}
¡@¡@* ¡@¡@ valport ¼ÆÈ ³s±µ°ð¼ÆÈ
¡@¡@* struser ¦r¦ê µn¤J±b¸¹
¡@¡@* strpwd ¦r¦ê µn¤J±K½X
¡@¡@* strloaddir ¦r¦ê FTP¨Ó·½¸ô®|(¹w³]¬°/)
¡@¡@* strfile ¦r¦ê FTP±ý¬d¸ß¤§ÀɮצWºÙ
¡@¡@* filesize ¶Ç¦^Àɮפj¤p
¡@¡@* filedate ¶Ç¦^Àɮפé´Á
¡@¡@*¶Ç¦^È¡@¡GªÅ¦r¦ê¡@¡@§¹¦¨
¡@¡@* «DªÅ¦r¦ê¡@¦³¿ù»~µo¥Í
¡@¡@************************************************************
2. ºô¸ôºÏºÐ¤U¸ü («Ü¦h§Þ³N³£¬O±q¥»¯¸±o¨ìªº½d¨Ò,¥u¬O¤Ö³\°µÅܧó)
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡G«Ø¥ßºô¸ôºÏºÐ¾÷
¡@¡@*¨ç¼Æ¦WºÙ¡Gdriveconnect(defpath,defdrive)
¡@¡@*°Ñ¼Æ»¡©ú¡Gdefpath ¦r¦ê ºô¸ô¸ô®|
¡@¡@* defdrive ¦r¦ê ºÏºÐ¾÷
¡@¡@*¶Ç¦^È¡@¡G¦³È ¦r¦ê §¹¦¨³s½u°Ê§@«áªººÏºÐ¾÷¸¹
¡@¡@* ªÅ¥Õ ¦r¦ê ¨S¦³³s½u¦¨¥\
¡@¡@**************************************************************
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡G¤¤Â_ºô¸ôºÏºÐ¾÷
¡@¡@*¨ç¼Æ¦WºÙ¡Gdrivedisconnect(defdrive)
¡@¡@*°Ñ¼Æ»¡©ú¡Gdefdrive ¦r¦ê ºÏºÐ¾÷
¡@¡@*¶Ç¦^È¡@¡GªÅ¥Õ ¦r¦ê §¹¦¨ºÏºÐ¤¤Â_°Ê§@
¡@¡@* ¦³È ¦r¦ê ¥¼§¹¦¨ºÏºÐ¤¤Â_°Ê§@
¡@¡@**************************************************************
¡@¡@**************************************************************
¡@¡@*¨ç¼Æ»¡©ú¡G«þ¨©«ü©wºÏºÐ¾÷¤ºªºÀÉ®×
¡@¡@*¨ç¼Æ¦WºÙ¡GdriveLoadFile( frompath,topath,fromfile,tofile,speed )
¡@¡@*°Ñ¼Æ»¡©ú¡Gfrompath ¦r¦ê ¨Ó·½ºÏºÐ¾÷
¡@¡@* topath ¦r¦ê ¥ØªººÏºÐ¾÷
¡@¡@* fromfile ¦r¦ê ¨Ó·½ÀɮצWºÙ
¡@¡@* tofile ¦r¦ê ¥ØªºÀɮצWºÙ
¡@¡@* speed ¼ÆÈ «þ¨©³t«× 256ªº¿¼Æ
¡@¡@*¶Ç¦^È¡@¡G.t. §¹¦¨«þ¨©°Ê§@
¡@¡@* .f. ¥¼§¹¦¨«þ¨©°Ê§@
¡@¡@**************************************************************
³o¤GºØ¤è¦¡¥i¥H¦P®É³Q¨Ï¥Î
½d¨Ò¦p¤U:
wait window '³s±µ¦øªA¾¹....' nowait
m_ip = "ftp ip"
m_port = val("ftp port")
m_username = "ftp µn¤J±b¸¹"
m_userpass = "ftp µn¤J±K½X"
m_drivepass = "\host\share"
&&§PÂ_ºô¸ô¬O§_¥i³q
if empty( FtpAdir(m_ip,m_port,m_username,m_userpass,'/',@aa) )
&&ºô¸ô³q,¨Ï¥Îftp
public_drive = ""
public_connect = .t.
else
&&ftp¤£³q,¸Õºô¸ôºÏºÐ¾÷
public_drive = ""
public_connect = .f.
endif
&&°²¦pftp¤£³q,¦b³z¹Lºô¸ôºÏºÐÀˬd
if public_connect = .f.
m_drive = driveconnect( m_drivepass ) &&³s±µºô¸ôºÏºÐ¾÷
if !empty(m_drive) &&¤w³s±µ¤W¤F
&&ºô¸ôºÏºÐ¥i³q,¨Ï¥Îºô¸ôºÏºÐ
public_drive = m_drive
public_connect = .t.
else
public_drive = "" &&ºô¸ô³q,¨Ï¥Îftp
public_connect = .f.
endif
endif
&&§PÂ_¨Ï¥Îftp¤U¸üÁÙ¬Oºô¸ôºÏºÐ
do case
case public_connect .and. empty(public_drive) &&¨Ï¥Îftp
&&n¥ý§PÂ_¬O§_¦³Àɮ׻ݧó·s±q±o¨ìªºaa°}¦C
do while aa°}¦C¤j¤p
if §ä¨ìn¤U¸üªºÀÉ®×
&&¤U¸ü«áºÝ¸ê®Æ®wÀÉ®×
m_pathdir = "¨Ó·½¸ô®|" &&¦]¬°¨Ï¥Îftp,\n´«¦¨/³á
m_todir = "¥Øªº¸ô®|" &&¤U¸ü«áªº¥Øªº¦ì¸m,n¨Ï¥Î\
m_runfile = "¤U¸üªºÀɮצWºÙ"
m_value = FtpLoadFile(m_ip,;
m_port,;
m_username,;
m_userpass,;
m_pathdir,;
m_todir,;
m_runfile,;
m_speed )
if m_value = ""
messagebox("ÀɮפU¸üok")
else
messagebox("ÀɮפU¸üerror")
endif
endif
enddo
messagebox("ftp§ó·s§¹¦¨")
case public_connect .and. !empty(public_drive) &&¨Ï¥Îºô¸ôºÏºÐ
&&¦]¬°ºô¸ôºÏºÐ¹À¡A¨Ï¥Îadir¨ú±o°}¦C©ñ¦Üaa°}¦C
do while aa°}¦C¤j¤p
if §ä¨ìn¤U¸üªºÀÉ®×
m_pathdir = "¨Ó·½¸ô®|" &&¦]¬°¨Ï¥Îºô¸ôºÏºÐ,\¤£¥Î´«¦¨/³á
m_todir = "¥Øªº¸ô®|" &&¤U¸ü«áªº¥Øªº¦ì¸m,n¨Ï¥Î\
m_runfile = "¤U¸üªºÀɮצWºÙ"
m_value = driveLoadFile( public_drive+m_pathdir,;
m_todir,;
m_runfile,;
m_runfile,;
m_speed )
if m_value = ""
messagebox("ÀɮפU¸üok")
else
messagebox("ÀɮפU¸üerror")
endif
endif
enddo
messagebox("ftp§ó·s§¹¦¨")
othe
messagebox("ºô¸ô¤£³q³á,¤p¥ë¤l","´£¥Ü°T®§")
endcase
³o¼Ë¤j·§´N¥i¥H¦Û°Ê§ó·s¤F¡A·íµMn¦Û¤vµo´§¤F!!
¨ç¦¡½Ð¤U¸ü¤U¥h§Y¥i!! |
|
¦^³»ºÝ |
|
|
½²¤åµØ
µù¥U®É¶¡: 2005-10-31 ¤å³¹: 118
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤@¤ë 13, 2006 6:44 pm ¤å³¹¥DÃD: |
|
|
¥u»Ý¤U¸ürar§Y¥i |
|
¦^³»ºÝ |
|
|
h580920
µù¥U®É¶¡: 2005-02-28 ¤å³¹: 35
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤é ¤@¤ë 15, 2006 10:25 am ¤å³¹¥DÃD: |
|
|
thk |
|
¦^³»ºÝ |
|
|
jaime47
µù¥U®É¶¡: 2003-03-26 ¤å³¹: 10 ¨Ó¦Û: Taiwan
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤@¤ë 16, 2006 10:32 am ¤å³¹¥DÃD: |
|
|
Thans for your sharing. _________________ Jaime Tsao |
|
¦^³»ºÝ |
|
|
Abel
µù¥U®É¶¡: 2005-03-14 ¤å³¹: 189 ¨Ó¦Û: ³À´ä¤pÂí
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤@¤ë 17, 2006 12:32 pm ¤å³¹¥DÃD: |
|
|
¤Q¤À·PÁ¡A3Q |
|
¦^³»ºÝ |
|
|
mongshan
µù¥U®É¶¡: 2003-02-20 ¤å³¹: 3
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤¤ë 17, 2006 10:27 am ¤å³¹¥DÃD: |
|
|
Tigerlee ¼g¨ì: | ÁÂÁ ¥ý¤U¨Ó¬ã¨s¤@¤U |
|
|
¦^³»ºÝ |
|
|
impotence
µù¥U®É¶¡: 2005-02-21 ¤å³¹: 135 ¨Ó¦Û: Hong Kong
²Ä 7 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤¤ë 17, 2006 11:09 am ¤å³¹¥DÃD: |
|
|
thx a lot ~~~ _________________ ¤@Ó±`±`§Ñ°O Command ªº¤H ! |
|
¦^³»ºÝ |
|
|
vfp123
µù¥U®É¶¡: 2005-06-09 ¤å³¹: 2
²Ä 8 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤¤ë 29, 2006 3:39 am ¤å³¹¥DÃD: |
|
|
Thans for your sharing. |
|
¦^³»ºÝ |
|
|
css
µù¥U®É¶¡: 2004-12-31 ¤å³¹: 32
²Ä 9 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤¤ë 31, 2006 10:17 pm ¤å³¹¥DÃD: |
|
|
«D±`·PÁ¤À¨É¡I |
|
¦^³»ºÝ |
|
|
fengchiao
µù¥U®É¶¡: 2004-09-19 ¤å³¹: 12 ¨Ó¦Û: Taipei
²Ä 10 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤»¤ë 05, 2006 4:39 pm ¤å³¹¥DÃD: |
|
|
«D±`·PÁÂ!!¨ü¯qµL½a _________________ ª¾ÃÑ¡A»Ýn¤£Â_ªº¾Ç²ß
¦¨¥\¡A¨Ó¦Û¤£Â_ªº¹Á¸Õ
¦¨´N¡A¦b©ó¤£¾Óªº§V¤O |
|
¦^³»ºÝ |
|
|
goto-dream
µù¥U®É¶¡: 2004-05-11 ¤å³¹: 909
²Ä 11 ¼Ó
|
|
¦^³»ºÝ |
|
|
¦æªÌ孙
µù¥U®É¶¡: 2006-03-11 ¤å³¹: 43
²Ä 12 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤E¤ë 21, 2006 3:28 pm ¤å³¹¥DÃD: |
|
|
§Ú«e¤L¤Ñ°µ¤FVF¤¤无组¥ó实现HTTP带进«×条¤W传¤U载ªº¥Ü¨Ò¦}¥B发ªí¦b¤F论坛¤¤¡A
¥i±¤没¤H¬Ý¡I _________________ ¢~⌒¢¡VFP应¥Îµ{¦¡ºâªk¸s 12787940¤¢~⌒
¢~http://hi.baidu.com/myvfp/blog
,¡`¡`¡`¡`,""¡`~~ ,""~¡`¡`¡@ ,""
¢¬¢ª¢i¢©¡@¢¬¢ª¢i¢©
¡W¥Ð¡W¥Ð¡W¡W¥Ð¡W¥Ð¡W
ùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùá
http://hi.baidu.com/myvfp/blog |
|
¦^³»ºÝ |
|
|
goto-dream
µù¥U®É¶¡: 2004-05-11 ¤å³¹: 909
²Ä 13 ¼Ó
|
|
¦^³»ºÝ |
|
|
liangszpt
µù¥U®É¶¡: 2004-11-18 ¤å³¹: 262 ¨Ó¦Û: 广东¬Ù²`¦`¥«
²Ä 14 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤E¤ë 22, 2006 2:31 am ¤å³¹¥DÃD: |
|
|
¦æªÌ孙 ¼g¨ì: | §Ú«e¤L¤Ñ°µ¤FVF¤¤无组¥ó实现HTTP带进«×条¤W传¤U载ªº¥Ü¨Ò¦}¥B发ªí¦b¤F论坛¤¤¡A
¥i±¤没¤H¬Ý¡I |
¤j¤j¡A¤£n¦Ç¤ß©MªnÉa¡A¥i¯à¬O¨ä¥LªB¤Í没¨Ï¥Î¨ì这个§Þ术ªº¦a¤è¡A©Ò¥H¦^Î`ªº¤H¦Ó¤w¡C
¦³¦n东¦è¦^馈给¤j®a¡A¤j®aªÖ©w³£会欢ªï¡C
¥i±¤§Ú´N没¤°¤\®³±o¥X¤âªº¡A¥u¬O¸Ñµª¤@¤U¤@¨Çªì学ªÌªºªì级问题 _________________ §Úªº²z·Q¬O¯à¦¨为¥j¥Nªº¤@¦ì´I®a¤½¤l¡A
¤é±`¥Í¬¡´N¬O³Ü¯ù¥h©É»°|¡A没¨Æ带着¤@¯Z¤p¥´¤â¦bµó¤W调戏¨}®a妇¤k¡C |
|
¦^³»ºÝ |
|
|
karl
µù¥U®É¶¡: 2003-12-30 ¤å³¹: 16
²Ä 15 ¼Ó
|
µoªí©ó: ¬P´Á¤é ¤E¤ë 24, 2006 5:12 pm ¤å³¹¥DÃD: |
|
|
thank u |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|