| |
| |
|
Jörg
Sellmeyer | Hat es eigentlich une certain Grund, qui cet Funktion direct dans un Dossier écrit et pas z.B. dans qui Listboxliste ou bien une Bereich?
si cela systembedingt so ist: gibt es une Possibilité cela dans liste/Bereich umzuleiten, sans auparavant sur qui Platte trop écrivons? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 21.09.2008 ▲ |
|
| |
|
|
 | ftp . listDir hat encore mindestens un d'autre Problem, qui répondre céder im Format de Server trop Server ab, qui Versuch qui Ausgaben trop standardisieren ist imho gescheitert.
une liste allez avec cela imho c'est pourquoi pas, weil aucun liste retour wird, mais seulement un Kompletttext. alors plutôt Bereichsvariable statt Dossier.
je hatte avec Rolf une ftp include geschrieben, si je mich droite erinnere J'ai eu là une autre Verzeichniseinlesemethode, cet gibt qui Fichiers aussi einzeln zurück. peut-être hat Rolf le reste. |
|
| |
| |
| |
|
|
Rolf
Koch | | malheureusement finde je qui Inc aussi pas plus. mais peut-être irgendwo comme Backup. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Bereichsvariable wäre oui déjà super. avec cela ist es ensuite oui léger, den le contenu dans un liste trop bekommen. sofern là pas un einheitlicher Standard entwickelt wurde, finde je déjà droite seltsam. comment schafft es car ensuite z.B. Filezilla, qui données korrekt anzugeben. ou bien ist qui Autor bien im Vorausplanen et écrivons de Algorithmen, qui sur unterschiedlichste Situationen passen? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.09.2008 ▲ |
|
| |
|
|
Rolf
Koch | je glaub je habs trouvé  - arrêt pas comme inc.
Ist es doch iF, ou bien?
KompilierenMarqueSéparation {$i}
declare dllhdl&,ihdl&,chdl&,dhdl&,ftpfile$,nhdl&
declare ftppfad$,listbox1&,closeftp&,ENDE%,anzdat&
cls
declare s$,do&
s$="FTPSESSIONz"
usermessages 16
cls
listbox1&:=createsortedlistbox(%hwnd,"",5,5,(width(%hwnd)-10),(Height(%hwnd)-10))
dllhdl&:=usedll("wininet")
def InternetOpen(5) !"wininet","InternetOpenA"
def InternetClose(1) !"wininet","InternetCloseHandle"
def InternetConnect(8) !"wininet","InternetConnectA"
def FtpFindFirstFile(5) !"wininet","FtpFindFirstFileA"
Def FtpFindNextFile(2) !"wininet","InternetFindNextFileA"
Def GetLastError(0) !"KERNEL32","GetLastError"
def FtpSetCurrentDirectory(2) !"wininet","FtpSetCurrentDirectoryA"
ihdl&:=InternetOpen(addr(s$),0,0,0,0)
declare server$,user$,pwdd$,mem#,data#
Hier Daten (das z muss unbedingt vorhanden bleiben!)***********
server$:=""+"z" SERVER zum Beispiel rokosoft.de
user$:=""+"z" Username
pwdd$:=""+"z" Passwort
ftppfad$:="" Startpfad
****************************************************************
dim mem#,4
long mem#,0:=12345
dim data#,318
clear data#
chdl&:=InternetConnect(ihdl&,addr(server$),21,addr(user$),addr(pwdd$), 1,0, 0)
settext %hwnd,str$(chdl&)
FtpSetCurrentDirectory(chdl&,addr(ftppfad$))
Addstring(listbox1&,"Internet Handle: "+ str$(ihdl&))
Addstring(listbox1&,"Connect Handle: "+ str$(chdl&))
Addstring(listbox1&,"Taste drücken")
sendmessage(listbox1&,$0184,0,0)
dhdl&:=FtpFindFirstFile(chdl&,0,addr(data#),2147483648,0)
do&:=1
while do&
if do&
ftpfile$:=if(long(data#,0)==16," >","")+string$(data#,44)
addstring(listbox1&,ftpfile$)
endif
anzdat&+
do&:=FtpFindNextFile(dhdl&,data#)
endwhile
settext %hwnd,"Anzahl Dateien (incl. Ornder) "+str$(anzdat&)
WHILENOT ENDE%
WAITINPUT
IF %UMESSAGE = 16
ENDE%=1
ENDIF
WEND
sendmessage(listbox1&,$0184,0,0)
Closeftp&=InternetClose(chdl&)
//messagebox("FTP SESSION RETURN = "+str$(closeftp&),"FTP ENDE",0)
dispose mem#
s4 href='./../../function-references/XProfan/dispose/'>dispose data#
|
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Funktioniert super!!
maintenant devrait seulement FTP("Connect",...) un Handle zurückliefern et pas seulement 1 pour den Erfolg, ensuite peux on qui liaison joli bequem avec Profan herstellen et cela Lecture avec API erledingen. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.09.2008 ▲ |
|
| |
|
(1.831)
Deutsch
English
Français
Español
Italia