@dietmar
wenn es dir nichts ausmacht die WinINet befehle des internet explorers zu verwenden, kannst du es so machen:
Code: Alles auswählen
Procedure.l FTPInit()
ProcedureReturn InternetOpen_("FTP",1,"","",0)
EndProcedure
Procedure.l FTPConnect(hInternet,Server.s,User.s,Password.s,Port.l)
ProcedureReturn InternetConnect_(hInternet,Server,Port,User,Password,1,0,0)
EndProcedure
Procedure.l FTPDir(hConnect.l)
hFind=FtpFindFirstFile_(hConnect,"*.*",@FTPFile.WIN32_FIND_DATA,0,0)
If hFind
Find=1
Debug PeekS(@FTPFile\cFileName)
While Find
Find=InternetFindNextFile_(hFind,@FTPFile)
If Find
Debug PeekS(@FTPFile\cFileName)
EndIf
Wend
EndIf
EndProcedure
Procedure.l FTPSetDir(hConnect.l,Dir.s)
ProcedureReturn FtpSetCurrentDirectory_(hConnect,Dir)
EndProcedure
Procedure.l FTPCreateDir(hConnect.l,Dir.s)
ProcedureReturn FTPCreateDirectory_(hConnect,Dir)
EndProcedure
Procedure.l FTPDownload(hConnect.l,Source.s,Dest.s)
ProcedureReturn FTPGetFile_(hConnect,Source,Dest,0,0,0,0)
EndProcedure
Procedure.l FTPUpload(hConnect.l,Source.s,Dest.s)
ProcedureReturn FTPPutFile_(hConnect,Source,Dest,0,0)
EndProcedure
Procedure.l FTPClose(hInternet.l)
ProcedureReturn InternetCloseHandle_(hInternet)
EndProcedure
;--------------------
hInternet=FTPInit()
If hInternet
hConnect=FTPConnect(hInternet,"ftp.reelmediaproductions.com","guest","guest",21)
If hConnect
FTPSetDir(hConnect,"test/")
FTPDir(hConnect)
FTPDownload(hConnect,"hello.txt","C:\download.txt")
FTPUpload(hConnect,"C:\Download.txt","download.txt")
FTPClose(hInternet)
EndIf
EndIf
End
der code stammt von paul leischow aus dem englischen forum und funktioniert auf jedem windows system ab win95 oder höher, sofern internet explorer 3 oder höher installiert ist. seine prozeduren sind nicht perfekt, der feinschliff fehlt (z.b. error handling und die abfrage, dass die daten auch wirklich angekommen sind), aber für das erste reichts.
ansonsten kannst du über die internen pb netzwerk befehle dein ftp zugriff selber basteln. da hilft dir vielleicht dieser link weiter
http://forums.purebasic.com/english/vie ... hp?t=12656 (leider englisch)
hoffe es hilft dir weiter, wenn nicht einfach nochmal fragen.
c ya,
nco2k