FTP-Uploader

    Hallo.
    Da es mir in letzter Zeit satt ist immer iwelche Hoster zu suchen,dachte ich mir,dass man doch in Autoit recht simpel das iwie umstetzen kann

    Gesagt...getan... :)

    Funktionen:

    -eigenen FTP-Server einstellen
    -Fortschrittanzeige (danke an Cartan12 hilfe)
    -Link befindet sich bei erfolgreichen Upload in der Zwischenablage

    Eigentlich ist das Tool selbsterklärend. :)

    Bild:

     [Blockierte Grafik: http://www.mybralogin.pytalhost.com/Preview.png]


    Viel Spass

    Ich hoffe auf Kommentare,Verbesserungsvorschläge und was man noch einbauen könnte.

    hi,
    ist soweit ganz nützlich :)
    würde aber mit @error schauen, ob die datei wirklich hochgeladen wurde und evtl ne möglichkeit bieten, mehrere server abzuspeichern.

    Hi,

    sieht gut aus :)
    Du kannst ja noch eine Funktion einbauen, dass du einen Kontextmenü-Eintrag von Windows ( also eben Rechtsklick auf irgendeine Datei ) erstellst,
    wo dann steht: Hochladen zu FTP,
    und dann läd er eben die ausgewählten Dateien zu einem vorher eingestellten FTP hoch,
    das wäre super praktisch:)

    Hier mal ein Beispiel, wo ich diesen Kontext-Menü Eintrag erstellt hatte, aber eben um ein BMP einfach in ein JPG umzuwandeln.
    Man muss das Skript erst einmal ausführen, damit der Eintrag erstellt wird ( es muss aber vorher compilet werden, da dann die Registry auf diese Exe zugreift ).

    Code:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\ICO's\shell32-217(48-32).ICO
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GDIPlus.au3>

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

    If $CmdLine[0] = 0 Then
    $ProgPath = @ScriptFullPath
    msgbox(0,"installed","installed: menu entry created!")
    RegWrite("HKEY_CLASSES_ROOT\*\shell\Convert to JPG\command", "", "REG_SZ", '"' & $ProgPath & '" "%1"')
    Exit
    EndIf

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

    $ImagePath = $CmdLine[1]
    _BmpToJpg($ImagePath)

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

    Func _BmpToJpg($filename)
    ; GDI+ initialisieren.
    _GDIPlus_Startup()
    ; falls mehrere Dateien mit FileOpenDialog ausgewählt wurden ...
    If StringInStr($filename, '|') Then
    $aFilenames = StringSplit($filename, '|')
    For $i = 1 To $aFilenames[0]
    ; Handle zu Imageobjekt erhalten.
    $hImg = _GDIPlus_ImageLoadFromFile($filename)
    ; Imageobjekt als Bitmapdatei abspeichern.
    _GDIPlus_ImageSaveToFile($hImg,StringTrimRight($filename ,3)& "jpg")
    ; Imageobjekt auflösen.
    _GDIPlus_ImageDispose($hImg)
    Next
    ; ... falls nicht.
    Else
    ; Handle zu Imageobjekt erhalten.
    $hImg = _GDIPlus_ImageLoadFromFile($filename)
    ; Imageobjekt als Bitmapdatei abspeichern.
    _GDIPlus_ImageSaveToFile($hImg,StringTrimRight($filename ,3)& "jpg")
    ; Imageobjekt auflösen.
    _GDIPlus_ImageDispose($hImg)
    EndIf
    ; GDI+ beenden.
    _GDIPlus_Shutdown()
    EndFunc

    [/autoit]

    Greetz