| |
| |
|
Jörg
Sellmeyer | Sombrero lo eigentlich una cierto Grund, daß esta Función direkt en un Expediente schreibt y no z.B. en el Listboxliste oder una Zona?
Si el systembedingt así es: hay una Möglichkeit el en Liste/Zona umzuleiten, sin vorher en el Platte a escribir? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 21.09.2008 ▲ |
|
| |
|
|
 | ftp . listDir ha todavía mindestens una más Problema, el Respuesta weichen en el Formato de Server a Server de, el Intento el Ausgaben a standardisieren es mi humilde opinión gescheitert.
Un Liste va así imho deshalb no, porque no Liste zurückgegeben se, pero sólo una Kompletttext. Also más Bereichsvariable en lugar de Expediente.
Tuve con Rolf una ftp include geschrieben, si yo mich bastante erinnere Tuve hay una otro Verzeichniseinlesemethode, esta son el Archivos auch einzeln zurück. Tal vez ha Rolf el todavía. |
|
| |
| |
| |
|
|
Rolf
Koch | | Leider finde Yo el Inc auch no mehr. Aber tal vez irgendwo como Backup. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Bereichsvariable wäre sí ya klasse. Damit es entonces sí ligeramente, el Inhalt en un Liste a bekommen. Daß como no una einheitlicher Standard entwickelt wurde, finde Yo ya bastante seltsam. Como schafft lo porque entonces z.B. Filezilla, el Daten korrekt anzugeben. Oder es el Autor bien en el Vorausplanen y Carta de Algorithmen, el en unterschiedlichste Situationen passen? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.09.2008 ▲ |
|
| |
|
|
Rolf
Koch | Yo glaub Yo habs gefunden  - sólo no como inc.
¿Es doch IF, oder?
KompilierenMarcaSeparación {$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/disponer/'>disponer data#
|
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Funktioniert super!!
Jetzt müßte sólo FTP("Connect",...) una Handle zurückliefern y no sólo 1 para el Erfolg, entonces puede ser el Verbindung schön bequem con Profano herstellen y el Auslesen con API erledingen. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.09.2008 ▲ |
|
| |
|
(1.882)
Deutsch
English
Français
Español
Italia