 Tim Hannemann | Sorry pour Doppelpost mais je voulez deswegen ne...aucune extra Thema aufmachen là es oui avec le FTP-Funktionen est, denke je la fois.
alors j'ai derzeit folgendes Problem: j'ai une Procédure FTP wohin une Eingabemaske aufgebaut wird et wohin on ensuite seinen Server, Username et Mot de passe eingeben peux. Klickt on sur den Button relier wird trop dem angegebenen Server verbunden et qui Fichiers sur dem Server devoir dans einer ListBox angezeigt volonté. J'ai pensé es serait entier simple sur ChDir aller (après que cela aktuelle FTP verzeichnis ausgelesen wurde) et ensuite arrêt entier simple dans qui vorgefertigte ListBox reinkopieren et cet ensuite dans mon kopieren. seulement volonté mir ensuite qui Fichiers aus dem Verzeichnis angzeigt wohin mon prf fichier liegt. je hoffe cela mir qui aider peux, ici qui Code qui Procédure
Proc FTP
--declares-----------------------------------------------------------------------
declare server$,user$,pass$, ftpdir$
declare server&,user&,pass&,verbinden&,liste&
declare ftp%
UseFont Times New Roman,18,0,0,0,0
Textcolor rgb(0,200,200),-1
DrawText 10,15,Servername:
DrawText 20,40,Username:
DrawText 25,65,Mot de passe:
server& = Créer(EDIT,%HWnd,,100,10,100,25)
user& = Créer(EDIT,%HWnd,,100,35,100,25)
pass& = Créer(EDIT,%HWnd,,100,60,100,25)
liste& = Créer(SORTEDLISTBOX,%HWnd,,300,10,200,400)
verbinden&=Créer(BUTTON,%HWnd,relier,100,90,100,25)
clear ftp%
Whilenot ftp%
Waitinput
Si MenuItem(1)
ende
Elseif Getfocus(verbinden&)
user$=GetText $(user&)
pass$=GetText $(pass&)
server$=GetText $(server&)
FTP(Connect,user$,pass$,server$,21)
ftpdir$=FTP(GETDIR)
ChDir ftpDir$
AddFiles *.*
MoveListToList(liste&)
Endif
Wend
ENDPROC
|
|