Ich schon wieder ^^ Ich komme einfach nicht weiter!

1. offizieller Beitrag

    Hallo noch einmal,
    so sieht mein File Converter im Moment aus:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <Inet.au3>
    #include <String.au3>
    ;Writte by PokerFace
    ;If you change something, please let me know :)

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

    #include <IE.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>

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

    #NoTrayIcon

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

    Global $oIE=_IECreate("http://www.freefileconvert.com/",0,0,1)
    Global $Website = "http://www.freefileconvert.com/"
    Global $Ergebnisse

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Online Konverter", 625, 573, 335, 185)
    $Label1 = GUICtrlCreateLabel("Online Konverter by Benne", 48, 16, 530, 47)
    GUICtrlSetFont(-1, 28, 800, 0, "Lucida Fax")
    $DataSelect = GUICtrlCreateInput("", 160, 184, 257, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Search = GUICtrlCreateButton("Durchsuchen", 224, 136, 121, 25, 0)
    $Format = GUICtrlCreateCombo("", 200, 288, 193, 25)
    $Label2 = GUICtrlCreateLabel("Das Format auswählen!", 160, 240, 261, 28)
    GUICtrlSetFont(-1, 16, 800, 0, "Lucida Fax")
    $Label3 = GUICtrlCreateLabel("Datei auswählen!", 192, 88, 192, 28)
    GUICtrlSetFont(-1, 16, 800, 0, "Lucida Fax")
    $Label4 = GUICtrlCreateLabel("Bitte gebe deine E-Mail Adresse an!", 88, 352, 393, 28)
    GUICtrlSetFont(-1, 16, 800, 0, "Lucida Fax")
    $Email = GUICtrlCreateInput("Brauchst du im Moment nicht!", 168, 392, 249, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Send = GUICtrlCreateButton("Abschicken!", 48, 448, 521, 89, 0)
    GUICtrlSetFont(-1, 36, 800, 0, "Lucida Fax")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    _IEQuit ($oIE)
    Exit
    Case $Search
    _GetFileOpenDialog()
    Case $Send
    ;~ Global $FormatOut = GUICtrlRead ($Format)
    Global $FormatOut = "doc"
    _Konvert()
    _WaitTillFinish()
    EndSwitch
    WEnd

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

    Func _GetFileOpenDialog()
    Global $oFileOpenDialog = _IEGetObjById ($oIE, "input_file")
    _IEAction ($oFileOpenDialog, "click")
    GUICtrlSetData ($DataSelect, "Erfolgreich geladen!")
    EndFunc

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

    Func _Konvert()
    Global $oFileOut = _IEGetObjById ($oIE, "file_output_format")
    _IEFormElementOptionSelect ($oFileOut, $FormatOut)
    Global $oFileUploadButton = _IEGetObjById ($oIE, "upload_file_button")
    _IEAction ($oFileUploadButton, "click")
    EndFunc

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

    Func _WaitTillFinish()
    While 1
    Global $Site = _IEPropertyGet($oIE, "locationurl")
    Global $Source = _INetGetSource ($Site)
    Global $DownloadLink = _StringBetween ($Source, "<a href=/converted/", "target=_blank>")
    If IsArray ($DownloadLink) Then
    MsgBox (1, "","Geklappt")
    _ArrayDisplay ($DownloadLink)
    ExitLoop
    EndIf
    Sleep (500)
    WEnd
    EndFunc

    [/autoit]


    Dieses Konverter basiert auf einer Website, da ich so keine Exe gefunden habe, mit der ich per Parametern konvertieren kann ^^

    Okay..
    Nun alles geht soweit, bis auf die Funktion _WaitTillFinish() es kommt einfach kein Array!
    Obwohl ich per Inetgetsource eigentlich einen finden müsste.
    Wenn ihr oben die Zeile:

    [autoit]

    Global $oIE=_IECreate("http://www.freefileconvert.com/",0,0,1)

    [/autoit]


    In diese abändert:

    [autoit]

    Global $oIE=_IECreate("http://www.freefileconvert.com/",0,1,1)

    [/autoit]


    Dann seht ihr auch die Schritte.

    Kann mir jemand helfen? ^^
    Die Combobox müsst ihr nicht bedienen^^
    Die hat noch keine Funktion :P

    Übrigens:
    Die Datei wird in das .doc Format konvertiert!
    Guckst du hier:

    [autoit]

    Global $FormatOut = "doc"

    [/autoit]


    Mögliche Formate: doc, docx, odt, txt, pdf ...
    Einfach in die Endung OHNE den Punkt ändern ^^
    Also NICHT :

    [autoit]

    Global $FormatOut = ".doc"

    [/autoit]


    Sondern:

    [autoit]

    Global $FormatOut = "doc"

    [/autoit]

    Nur mal so am Rande ^^

    Oh..
    Das ist natürlich dumm !

    Okay..
    Dann lösch ich das schonmal...
    Gibt es eine Konverter.exe?
    Also mit der ich per Parameter konvertieren kann?

    Wie zum Beispiel ffmpeg.exe?

    Bitte verwende EINDEUTIGE Themen und nicht "Ich schon wieder ...".

    Wenn man eine Themenübersicht sehen möchte, möchte man sich eine Übersicht verschaffen, was bei Deiner Themenbenennung nicht möglich ist.

    Vielen Dank.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    • Offizieller Beitrag

    Also in welches Format du konvertieren willst, wissen wir.

    Zitat

    Mögliche Formate: doc, docx, odt, txt, pdf ...


    Die Frage ist nur von welchem Format du konvertieren willst? Hab ich schlechte Augen oder haste das nicht angegeben? :wacko:

    Post 1400 :)

    • Offizieller Beitrag

    Sirocool was willst du uns mit deinem Beitrag sagen? In diesem Thread geht es um das Konvertieren von Dateien. Dein Code, wie auch dein Antwort, hat rein gar nicht damit zu tun.

    Edit

    Zitat

    Ps und da es dein eigener funpic server ist dann ist es ja egal auf die regeln nur das bei funpic nicht grosse mengen hochladen darfst und kannst was aber auch richtig ist

    Kommas und Punkt wären schön und die fehlenden Worte wären noch schöner. Das ist ja das reinste Ratespiel :wacko: