Mit FTP-Server verbinden?

[mk-soft]

Nachtrag.

Man sollte nicht vergessen FTPClose(hConnect) auszuführen da sonst irgendwann man keine Verbindung aufbauen kann. Zu viele Verbindungen von den gleichen User verhindert der Server.

Code: Alles auswählen

; Test Beispiel

Global NewList Files.FIND_DATA()

hInternet = FTPInit()
If hInternet = 0
  Debug "Error Init: " + FormatMessage(GetLastError_())
  
  End
EndIf

hConnect = FTPConnect(hInternet, "ftp.avm.de", "", "")

If hConnect = 0
  Debug "Error Connet: " + FormatMessage(GetLastError_())
  
  End
EndIf

If FTPListDir(hConnect, "", Files()) = 0
  Debug FormatMessage(GetLastError_())
  FTPClose(hConnect)
  FTPClose(hInternet)
  End  
EndIf

ForEach Files()
  With Files()
    If \dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY = #FILE_ATTRIBUTE_DIRECTORY
      Debug "[" + \cFileName + "]"
    Else
      Debug \cFileName
    EndIf
  EndWith
Next

Debug FTPClose(hConnect)
Debug FTPClose(hInternet)

FF

[mk-soft]

@ts-soft

In der Strukture WIN32_FIND_DATA ist cFilename als Char .c[260] und cAlternate als Char c[14] deklariert.
Diese ist einmal falsch bei UNICODE und es lässt sich besser verarbeiten.

FF

[ts-soft]

>> Diese ist einmal falsch bei UNICODE
Das stimmt nicht. aber ansonsten haste vielleicht recht

[mk-soft]

Debug SizeOf(WIN32_FIND_DATA)

Normal : 320 Byte
Unicode: 594 Byte

Großes Fragezeichen? Gehen aber beide Richtig.

cFilename.s{260} braucht man aber kein Peeks()

FF

[ts-soft]

>> Großes Fragezeichen? Gehen aber beide Richtig.
Ist doch korrekt, unter Unicode hat jedes Char (.c) 2 Bytes. Es werden ja
Chars ausgelesen, nicht Bytes

[mk-soft]

Ist Klar

Habe nur keine FtpFindFirstFileW(...) gefunden. Fragt sich nur wann welche Struktur gültig ist.
Ist aber auch egal. Macht der Compiler für uns.

FF

[ts-soft]

Implemented as FtpFindFirstFileW (Unicode) and FtpFindFirstFileA (ANSI). Note that Unicode support on Windows Me/98/95 requires Microsoft Layer for Unicode.

Wo hast Du geguckt?

Den richtigen API Aufruf erledigt PB, den Rest macht Windows

[Programie]

Erstmal: DANKE für die Antworten!

[Thorsten1867]

Jetzt fehlen eigentlich nur noch 'FTPDownloadProgress()' und 'FTPUploadProgress()' und ich kann meine bisherige FTP-Library wegschmeißen und eure nehmen.
Für den Titel 'PB FTP Hero' müsstet ihr dann lediglich noch die "Kleinigkeit" von 'SFtp' einbauen.

[ts-soft]

Jetzt fehlen eigentlich nur noch 'FTPDownloadProgress()' und 'FTPUploadProgress()' und ich kann meine bisherige FTP-Library wegschmeißen und eure nehmen.
Für den Titel 'PB FTP Hero' müsstet ihr dann lediglich noch die "Kleinigkeit" von 'SFtp' einbauen.

http://www.purebasic.fr/english/viewtopic.php?t=25662
Dort siehste das benötigte Callback, ich hatte bisher keinen Bedarf für sowas,
kannste aber gerne Einbauen, dann wird das hier vielleicht ja noch doch eine
vollständige FTP_ Include/Lib
Interessant ist aber auch die Variante von DarkDragon, da das auch unter
Linux funktioniert.