| |
| |
|
Jörg
Sellmeyer | has it really a designed reason, that these function directly into a File writes and not z.B. into Listboxliste or a area?
If the systembedingt so is: there a Possibility the in list/area umzuleiten, without before on The disk To write? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 09/21/08 ▲ |
|
| |
|
|
 | ftp . listDir has yet at least one other trouble, The Answer weichen in the stature of Server To Server ex, the attempt The expenses To standardisieren is imho failed.
an list goes so imho therefore not, because no list zurückgegeben becomes, separate only one Kompletttext. means sooner Memory-Variable instead of File.
I had with Rolf a ftp include written, if i remember rightly I had there another Verzeichniseinlesemethode, these gives The Files too particular back. Perhaps has Rolf the still. |
|
| |
| |
| |
|
|
Rolf
Koch | | unfortunately find I The Inc neither More. but Perhaps somewhere as Backup. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Memory-Variable would already class. so is it then Yes slight, whom Content in a list To get. That there not one uniformly standard develops watts, find I already right strange. How creates it because then z.B. Filezilla, The data correctly anzugeben. or is the author well in the Vorausplanen and write of Algorithms, The on unterschiedlichste situations fit? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 09/21/08 ▲ |
|
| |
|
|
Rolf
Koch | I mean I habs found  - hold not as inc.
is it still iF, or?
CompileMarkSeparation {$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 | functions super!!
now should only FTP("Connect",...) a handle zurückliefern and not only 1 for success, then can The link beautiful easily with Profan produce and the Reading with API erledingen. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 09/21/08 ▲ |
|
| |
|
(950)
Deutsch
English
Français
Español
Italia