Da ich ja recht unzufrieden bin mit den FTP-Funktionen von XProfan will ich mich ransetzen und eien Inc schreiben, die die FTP-APIs von Windows (ab 2000) nutzt. Das ist an sich vielverprechend, aber ich komm wieder mal nicht weiter. Vielleicht kann mir ja jemand helfen.
Folgendes habe ich schon:
Code
Def InternetConnect(8) !"wininet","InternetConnectA"
Def InternetOpen(5) !"wininet","InternetOpenA"
Def SetDir(2) !"wininet","FtpSetCurrentDirectoryA"
Def GetDir(3) !"wininet","FtpGetCurrentDirectoryA"
declare handle&,server$,user$,pw$
cls
server$="server"
user$="benutzer"
pw$="passwort"
handle&=InternetOpen("MeineprogrammID",1,0,0,0)
Print "Handle: "+Str$(handle&)
Print "Connect: "+Str$(InternetConnect(handle&,Addr(server$),21,Addr(user$),Addr(pw$),1,$8000000,0))
'soweit so gut, aber:
declare b#
Dim b#,259
Print "GetDir: "+Str$(GetDir(handle&,b#,259))
Print String$(b#,0)
Dispose b#
'...geht nicht
Printe "Ende"
waitinput
end
Alles anzeigen
Der Code zur Verbindung liefert beide Male nicht Null, also Erfolg. GetDir geht aber nicht. Mach ich was mit der API-Syntax falsch?