_Ftp_FileRead gibt Text in Hex Format wieder ...

  • Abend,

    ich bin noch bei meinem FTP Chat, wo 2 Leute über einen FTP Server später schreiben sollen und habe nun das Problem, dass er bei FileRead nur so einen Hexcode wiedergibt.

    Ich habe mal das Skript aus der Hilfe für _Ftp_FilePut benutzt um eine Datei hochzuladen und sie dann noch so bearbeitet, dass der Text der Datei vom FtP server ausgelesen wird und in der Console wiedergegeben wird.

    Hier mal das Skript :

    Spoiler anzeigen
    [autoit]


    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <FTPEx.au3>
    #include <File.au3>
    #include <Array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt('MustDeclareVars', 1)

    [/autoit] [autoit][/autoit] [autoit]

    _example1()

    [/autoit] [autoit][/autoit] [autoit]

    Func _example1()
    ;lädt eine Datei hoch
    Local $s_ServerName = '' ; Hier würde normalerweise der Servername stehen
    Local $s_Username = "" ; Hier würde normalerweise der Servername stehen
    Local $s_Password = "" ; Hier würde normalerweise der Servername stehen

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Local $s_LocalFile = @ScriptDir & "\Message1.txt"
    Local $s_RemoteFile = "/Msg/Message1.txt"
    Local $i_Passive = 0
    Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP

    [/autoit] [autoit][/autoit] [autoit]

    $l_InternetSession = _FTP_Open('MeineSitzung') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    If _FTP_FilePut($l_FTPSession, $s_LocalFile, $s_RemoteFile) Then
    ConsoleWrite("Upload: erfolgreich" & @CRLF)
    Local $File = _FTP_FileOpen($l_FTPSession,$s_RemoteFile)
    Local $Read = _FTP_FileRead($File,10000)
    ConsoleWrite($Read & @CRLF)
    Else
    ConsoleWrite("Upload: fehlgeschlagen " & " " & @error & @CRLF)
    EndIf
    Else
    MsgBox(0, "Connect", "fehlgeschlagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschlagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzung
    EndFunc ;==>_example1

    [/autoit]

    So schaut es bei mir in der Console aus :

    Upload: erfolgreich
    0x6173647361

  • [autoit]

    _FTP_FileOpen($hConnect, $lpszFileName [, $dwAccess = 0x80000000 [, $dwFlags = 2 [, $dwContext = 0]]])

    [/autoit]


    $dwFlags ----> $FTP_TRANSFER_TYPE_ASCII