| |
| |
|
 | ICh would like a FTP manager program.
now stand I to the trouble an Overview of files of FTP Server in the Style of @loadfile$ dialog zuerstellen.
can someone help? |
|
| |
| |
| |
|
|
 | helps you the View source of iFTP [...]  ? |
|
| |
| |
| |
|
|
| | unfortunately No but nevertheless thanks |
|
| |
| |
| |
|
|
ByteAttack | rather would it, itself times the wininet.dll accurate durchzulesen.
example for VB: [...] |
|
| |
| |
| |
|
|
| | GEht not somehow plainer? |
|
| |
| |
| |
|
|
| XProfans FTP-functions are integrally ok -
where very lying because your trouble?
at that design one Dialoges? |
|
| |
| |
| |
|
|
ByteAttack | Yes, The FTP-functions are OK, if one itself only with a Server engage. according to Server gives ListDir different Formate from.
example1:
04-28-10 07:22PM <DIR> ACCESS
example2:
drwxrwxr-x 2 10490 100 4096 May 20 2005 Acrobat
u.s.w.....
therefore eignet the wininet much better. |
|
| |
| |
| |
|
|
ByteAttack | time one small example:
CompileMarkSeparationUSERMESSAGES 16
Declare WIDLL&,Session&,s$,ihdl&,Adresse$,User$,Pass$,data#,Liste&
Declare Sz&,L#,ende%,IConnect&,dhdl&,do&,anzdat&,ftpfile$
Dim L#,4
Long L#,0 = -1
dim data#,318
clear data#
s$="FTPSESSION\z"
Adresse$="ftp.adobe.com"+"\z"
User$="anonymous"+"\z"
Pass$="guest@unknown"+"\z"
WIDLL&=UseDLL("wininet.dll")
$I WININET.INC
Def GetSysColor(1) !"USER32","GetSysColor"
WindowStyle 26
WindowTitle "FTP-Test mit der WININET.DLL"
Window ((%maxX/2)-320),((%maxY/2)-240)-640,480
Cls GetSysColor(15)
Liste&=create("sortedlistbox",%hwnd,"",5,5,(width(%hwnd)-10),(Height(%hwnd)-30))
Sz&=@Create("StatusWindow",%HWND,"",1,L#)
ihdl&=InternetOpenA(addr(s$),0,0,0,0)
UseCursor 2
'InternetConnect Lib "wininet.dll" Alias _
' "InternetConnectA" (ByVal hInternetSession As Long, _
' ByVal sServerName As String, ByVal nServerPort As Integer, _
' ByVal sUsername As String, ByVal sPassword As String, _
' ByVal lService As Long, ByVal lFlags As Long, ByVal _
' lContext As Long) As Long
IConnect&=@InternetConnectA(ihdl&,addr(Adresse$),21,addr(User$),addr(Pass$),1,0,0)
SetText Sz&,0,"Handle: "+Str$(ihdl&)
dhdl&=FtpFindFirstFileA(IConnect&,0,addr(data#),2147483648,0)
do&=1
while do&
if do&
if long(data#,0)=16
ftpfile$="> "+string$(data#,44)
elseif long(data#,0)=0
ftpfile$="> "+string$(data#,44)
else
ftpfile$=string$(data#,44)
endif
addstring(Liste&,ftpfile$)
endif
inc anzdat&
do&=InternetFindNextFileA(dhdl&,data#)
endwhile
UseCursor 0
WhileNot ende%
WaitInput
If %Umessage=16' X
ende%=1
endif
EndWhile
InternetCloseHandle(IConnect&)
ref='./../../references-fonction/XProfan/freedll/'>FreeDLL WIDLL&
|
 |
| |
| |
| |
|
|
| thanks first...
Marc you have from the Listdir commands spoken.
it should objectively one Filemanager for 1 Server his.
would be it so plainer weg? |
|
| |
| |
| |
|
|
Paul
Glatz | | only for a Server (always one and the same???) |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
(506)
Deutsch
English
Français
Español
Italia