Beiträge von MrB

  • Variablenübergabe von laufenden Script an laufendes Script

    Moin,

    Hoffe die Überschrift versteht man. Wusste nicht, wie man es sonst ausdrücken sollte.

    Problem:

    Script1 (compiliert) läuft. Daraus wird Script2 (compiliert, seperate Exe) gestartet. Nun möchte ich, wenn ich in Script2 auf einen Button klicke, einen Wert an Script1 übergeben, welches damit weiterarbeitet. Hab nur keinen blassen Schimmer wie.
    $CmdLine funktioniert doch nur, wenn Script1 neu gestartet würde, oder hab ich das falsch verstanden. Denn einen Neustart möchte ich eigentlich vermeiden.

    Kann mir da einer einen Tip geben ?

  • scrollbare GUI

    Moin zusammen,

    Hab da mal wieder was, wo ich nicht selber hinter komme :cursing:

    folgendes Script :

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <FileEx.au3>
    #include <GUIScrollBars.au3>
    #include <ScrollBarConstants.au3>

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

    Global $aPics_Viewer
    #Region ### START Koda GUI section ### Form=
    $Viewer = GUICreate("Viewer", 1017, 769, 192, 124, BitOR($WS_SYSMENU, $WS_VSCROLL))
    $Pic1 = GUICtrlCreatePic("", 16, 16, 185, 193)
    $Pic2 = GUICtrlCreatePic("", 216, 16, 185, 193)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    _GUIScrollBars_Init($Viewer)

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

    $aPics_Viewer = liste($aPics_Viewer)
    GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
    While 1

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

    $nMsg = GUIGetMsg()

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

    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $GUI_EVENT_PRIMARYDOWN
    $Pos = GetPos()
    If $Pos >= 5 Then
    ShellExecute($aPics_Viewer[$Pos - 5])
    EndIf

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

    EndSwitch
    WEnd

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

    Func GetPos()
    Local $a
    $a = GUIGetCursorInfo()
    Return $a[4]
    EndFunc ;==>GetPos

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

    Func liste($aPics_Viewer)
    Local $aPics = _FileListTreeToArray(@ScriptDir & "\Pflanzen DB\pics\")
    Local $left = 16
    Local $top = 16
    Local $width = 185
    Local $height = 193
    Local $nr = 0
    Dim $aPics_Viewer[UBound($aPics) - 1]
    _deleteBlanks($aPics)
    ;~ _ArrayDisplay($aPics)
    For $i = 1 To UBound($aPics) - 1
    GUICtrlCreatePic($aPics[$i], $left, $top, $width, $height)
    $aPics_Viewer[$i] = $aPics[$i]
    $left = $left + 200
    $nr = $nr + 1
    If $nr = 5 Then
    $top = $top + 208
    $left = 16
    $nr = 0

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

    EndIf
    Next
    _deleteBlanks($aPics_Viewer)
    MsgBox(0,"","Liste fertig. Es wurden " & UBound($aPics) - 1 & " Bilder erstellt")
    Return $aPics_Viewer
    EndFunc ;==>liste

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

    Func _deleteBlanks(ByRef $array)
    If IsArray($array) < 1 Then Return 0

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

    $bound = UBound($array) - 1
    Local $i = 0
    Local $isZeroIndex = 0

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

    If $array[0] = $bound Then
    $isZeroIndex = 1
    $i = 1
    EndIf

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

    While $i <= $bound
    If $array[$i] = "" Or StringIsSpace($array[$i]) > 0 Or Not StringInStr($array[$i], '.') Or StringInStr($array[$i], "blau.jpg") Or StringInStr($array[$i], "platzhalter.jpg") Or StringInStr($array[$i], "background.jpg") Then
    _ArrayDelete($array, $i)
    $bound = $bound - 1
    If $isZeroIndex > 0 Then $array[0] = $array[0] - 1
    Else
    $i = $i + 1
    EndIf
    WEnd
    EndFunc ;==>_deleteBlanks

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

    Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
    Local $index = -1, $yChar, $yPos
    Local $Min, $Max, $Page, $Pos, $TrackPos

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

    For $x = 0 To UBound($aSB_WindowInfo) - 1
    If $aSB_WindowInfo[$x][0] = $hWnd Then
    $index = $x
    $yChar = $aSB_WindowInfo[$index][3]
    ExitLoop
    EndIf
    Next
    If $index = -1 Then Return 0

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

    ; Ermittelt alle Informationen der vertikalen Scrollbar
    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $Min = DllStructGetData($tSCROLLINFO, "nMin")
    $Max = DllStructGetData($tSCROLLINFO, "nMax")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
    ; Speichert die y-Position für einen späteren Vergleich
    $Pos = $yPos

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

    ; Auswertung der vom System gemeldeten Scroll-Nachricht
    Switch $nScrollCode
    Case $SB_TOP ; Der Anwender klickte auf die "Pos1"-Taste
    DllStructSetData($tSCROLLINFO, "nPos", $Min)

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

    Case $SB_BOTTOM ; Der Anwender klickte auf die "Ende"-Taste
    DllStructSetData($tSCROLLINFO, "nPos", $Max)

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

    Case $SB_LINEUP ; Der Anwender klickte auf den oberen Pfeil
    DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

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

    Case $SB_LINEDOWN ; Der Anwender klickte auf den unteren Pfeil
    DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

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

    Case $SB_PAGEUP ; Der Anwender klickte oberhalb des Scrollbalkens
    DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

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

    Case $SB_PAGEDOWN ; Der Anwender klickte unterhalb des Scrollbalkens
    DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

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

    Case $SB_THUMBTRACK ; Der Anwender zog den Scrollbalken
    DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
    EndSwitch

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

    ;~ // Setzt die neue Position und ermittelt sie danach erneut.
    ;~ // Abhängig von den Windows-Einstellungen kann es sein, dass die gelesenen Werte nicht die gleichen sind, wie die vorher gesetzten.

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

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    ; // Falls sich die y-Position der Scrollbar geändert hat, den Fensterbereich verschieben und aktualisieren
    $Pos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($Pos <> $yPos) Then
    _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
    $yPos = $Pos
    EndIf

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

    Return $GUI_RUNDEFMSG

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

    EndFunc ;==>WM_VSCROLL

    [/autoit]

    Es werden ca. 45 Bilder erstellt. Das klappt auch, nur reicht mein Scrollbereich nicht, da er ungefähr nur doppelte GUI Höhe beträgt. wo kann man das einstellen. Forste im Moment die GUIScrollBars.au3 durch und versuch die zu verstehen.
    Ist mein erster Versuch in der Richtung. Wer also Tips hat immer her damit :)

  • DirCopy und GUICtrlCreateProgress

    *grins*

    Hab´s auch schon gemerkt.

    [autoit]

    $wo = @ScriptDir & "\Pflanzen DB\pics"
    $wohin = @ScriptDir & "\Pflanzen DB\Sicherung\pics"

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

    $array=_FileListToArray($wo);Später:rekursiv
    For $i=1 To $array[0]
    FileCopy($wo & "\" & $array[$i],$wohin & "\" & $array[$i],9)
    GUICtrlSetData($Progress1,$i/$array[0]*100)
    Next

    [/autoit]

    dann kopiert er zwar erstellt aber keine Unterverzeichnisse und deren Dateien. Für Ordner erstellt er einfach eine Datei ohne Endung. Aber wenn ich das richtig verstehe, kann er das ja auch gar nicht anders machen. Mit FileListToArray werden ja auch die Ordner gelistet aber FileCopy kann damit ja nichts anfangen und behandelt das ja als Datei oder sehe ich da was falsch?

  • DirCopy und GUICtrlCreateProgress

    Hab´s jetzt mal so probiert und es passiert nix ;( . Da ich die Funktion auch nicht wirklich verstehe, bin auch schon am ende :huh:

    [autoit]


    $wo = @ScriptDir & "\Pflanzen DB\pics"
    $wohin = @ScriptDir & "\Pflanzen DB\Sicherung\pics"

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

    $array=_FileListToArray($wo);Später:rekursiv
    For $i=1 To $array[$array[0]]
    FileCopy($wo & "\" & $array[$i],$wohin & "\" & $array[$i],9)
    GUICtrlSetData($Progress1,$i/$array[$array[0]]*100)
    Next

    [/autoit]

    Ah, geht gar nicht in die For-Schleife

  • DirCopy und GUICtrlCreateProgress

    Klar, hab´s ja auch schon hinbekommen. Nur ist die Verzeichnisstruktur recht tief und dann wird´s mit meinen Kenntnissen recht mühsam. Hatte gehofft es gäbe einen einfacheren Weg :( .

    Kann man sich eigentlich irgendwo anschauen wie DirCopy funktioniert ?

    @L3viathan
    Da ist wieder mein Problem mit den Kenntnissen :rolleyes: . Werd´s mal testen

  • DirCopy und GUICtrlCreateProgress

    Mal wieder eine Frage: Ist es irgendwie möglich einen GUICtrlCreateProgress mit DirCopy zu verbinden ?

    Meine das so. Z.B. ich kopier ein Verzeichniss mit 100 Dateien. Dann soll der GUICtrlCreateProgress für jede Datei einen Schritt weiter gehen. Bekomm das einfach nicht hin, da ich ja keine Rückmeldung von DirCopy bekomme bzw. ich keinen Weg kenne.

    Kennt ihr einen?

  • FileCopy Problem

    Wie sagt man so schön : Der Computer ist nur so schlau, wie derjenige der davor sitzt.
    Manchmal ist man aber auch blind, vorallem sind diese Art von Fehlern diejenigen die mich richtig ärgern

  • FileCopy Problem

    Ha, hab den Fehler gefunden. Man Stunden drüber geschaut und nicht gesehen. Habe die Arrays nicht richtig mit den Pfaden kombiniert. Kleiner27 hat mich dann mehr oder weniger drauf gebracht das nochmal genau zu kontrollieren. Mir ist da nämlich auch nichts anderes eingefallen, als das da schon ein Zugriff statt findet und siehe da es war so.
    Danke euch allen

  • FileCopy Problem

    Cartan12

    zu1. Array ist richtig, da der richtige Pfad in der error.log steht
    zu2. Dachte ich auch, aber es funktioniert bei allen anderen Ordnern und Dateien problemlos. Nur bei der ini nicht. Benutze Win7 Ultimate 64
    zu3. sollte ich doch mit Flag 9 eigentlich alles erschlagen haben, trotzdem getestet und funktioniert auch nicht

    Zitat

    Schreib uns mal bitte die Fehlermeldung (eventuell auch ein Screenshot)...

    Da hab ich mich schlecht ausgedrückt. Meine damit das FileCopy 0 zurück gibt (also Fehler) anstatt 1

    @kleiner27

    Hatte ich auch schon gedacht. Finde aber nichts was darauf zugreifen könnte

  • FileCopy Problem

    Moin,

    Mal wieder was, was ich nicht verstehe.


    Hier mal den Ausschnitt um den es geht :

    Spoiler anzeigen
    [autoit]


    GUICtrlSetData($Progress1, 0)
    $read1 = GUICtrlRead($2Checkbox1)
    $read2 = GUICtrlRead($2Checkbox2)

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

    $aFiles = _FileListToArray(@ScriptDir & "\Pflanzen DB\files\")
    $aPics = _FileListToArray(@ScriptDir & "\Pflanzen DB\pics\")
    $aPicfiles = _FileListToArray(@ScriptDir & "\Pflanzen DB\picfiles\")
    $aData = _FileListToArray(@ScriptDir & "\Pflanzen DB\data\")
    $aAlle = _FileListToArray(@ScriptDir & "\Pflanzen DB\")
    $aAlle_save = _FileListToArray(@ScriptDir & "\Pflanzen DB\Sicherung\")

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

    GUICtrlSetData($Progress1, 0)

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

    $Progress1_end = $aFiles[0] + $aPics[0] + $aPicfiles[0] + $aData
    $Progress1_step = 100 / $Progress1_end

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

    If $read1 = 1 Then
    If IsArray($aFiles) Then
    For $i = 1 To $aFiles[0]
    $copy = FileCopy(@ScriptDir & "\Pflanzen DB\files\" & $aFiles[$i], @ScriptDir & "\Pflanzen DB\Sicherung\files\", 9)
    $Progress1_ist = GUICtrlRead($Progress1)
    GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
    GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aFiles[$i])
    If $copy = 0 Then
    $error = "Fehler beim Kopieren der Datei " & $aFiles[$i]
    IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aFiles[$i])
    EndIf
    Next
    EndIf

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

    If IsArray($aPics) Then
    For $i = 1 To $aPics[0]
    $copy = FileCopy(@ScriptDir & "\Pflanzen DB\data\" & $aPics[$i], @ScriptDir & "\Pflanzen DB\Sicherung\data\", 9)
    $Progress1_ist = GUICtrlRead($Progress1)
    GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
    GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aPics[$i])
    If $copy = 0 Then
    $error = "Fehler beim Kopieren der Datei " & $aPics[$i]
    IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aPics[$i])
    EndIf
    Next
    EndIf

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

    If IsArray($aPicfiles) Then
    For $i = 1 To $aPicfiles[0]
    $copy = FileCopy(@ScriptDir & "\Pflanzen DB\picfiles\" & $aPicfiles[$i], @ScriptDir & "\Pflanzen DB\Sicherung\picfiles\", 9)
    $Progress1_ist = GUICtrlRead($Progress1)
    GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
    GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aPicfiles[$i])
    If $copy = 0 Then
    $error = "Fehler beim Kopieren der Datei " & $aPicfiles[$i]
    IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aPicfiles[$i])
    EndIf
    Next
    EndIf

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

    If IsArray($aData) Then
    For $i = 1 To $aData[0]
    $copy = FileCopy(@ScriptDir & "\Pflanzen DB\pics\" & $aData[$i], @ScriptDir & "\Pflanzen DB\Sicherung\pics\", 9)
    $Progress1_ist = GUICtrlRead($Progress1)
    GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
    GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aData[$i])
    If $copy = 0 Then
    $error = "Fehler beim Kopieren der Datei " & $aData[$i]
    IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aData[$i])
    EndIf
    Next
    EndIf
    If $error <> "OK" Then
    MsgBox(0, "Datenbank nicht gesichert", "Datenbanksicherung fehlgeschlagen.Mehr Infos in der error.log")
    ;~ ToolTip("Datenbank nicht gesichert", "Datenbanksicherung fehlgeschlagen.Mehr Infos in der error.log")
    ;~ sleep(5000)
    Else
    MsgBox(0, "Datenbank gesichert", "Datenbanksicherung erfolgreich durch geführt" & @CRLF & "Es wurden " & $aAlle_save[0] & " Einträge gesichert")
    IniWrite($data_dir & "\pflanzen.ini", 'save', 'last', @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN)
    $last_date = IniRead($data_dir & "\pflanzen.ini", 'save', 'last', "keine erfolgt")
    GUICtrlSetData($2Label2, "Letzte Sicherung war am : " & $last_date)
    GUICtrlSetData($status_label, "Erledigt")
    EndIf

    [/autoit]


    und zwar geht es um folgenden Bereich:

    [autoit]

    If IsArray($aData) Then
    For $i = 1 To $aData[0]
    $copy = FileCopy(@ScriptDir & "\Pflanzen DB\pics\" & $aData[$i], @ScriptDir & "\Pflanzen DB\Sicherung\pics\", 9)
    $Progress1_ist = GUICtrlRead($Progress1)
    GUICtrlSetData($Progress1, $Progress1_ist + $Progress1_step)
    GUICtrlSetData($status_label, "Es wird folgende Datei kopiert: " & $aData[$i])
    If $copy = 0 Then
    $error = "Fehler beim Kopieren der Datei " & $aData[$i]
    IniWrite(@ScriptDir & "\Pflanzen DB\error.log", "Files", @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, "Fehler beim Kopieren der Datei " & $aData[$i])
    EndIf
    Next
    EndIf

    [/autoit]

    In dem Ordner befindet sich nur eine ini Datei, wo ich Einstellungen gespeichert habe. Das Problem ist das FileCopy mir immer einen Fehler (Fehler 0) zurück gibt, kopiert aber manchmal die Datei, aber eben nur manchmal. Kann sich das einer erklären ??

  • Zeilen in Edit einfärben

    Ähm, ok hab soweit mal getestet, hab nur ein kleines Problem : Wie finde ich heraus in welchem RichEdit in meiner Gui sich gerade dieser nette kleine blinkende Cursor befindet. Auf

    [autoit]

    GUIGetMsg()

    [/autoit]

    reagieren die RichEdits nicht (bzw anders rum) oder mache ich was falsch

  • Zeilen in Edit einfärben

    @stayawayknight

    Nur die Schriftfarbe

    name22

    das was ich bis jetzt gesehen habe (Hilfe usw) sieht nicht wirklich einfach aus, aber scheint ja so als käme ich nicht drum rum

    P.S.: Schwer Nein, anders Ja. Man macht halt einiges anders wie gewohnt und da ich das auch evtl. in andere Scripte einbauen wollte und nicht alles umschreiben möchte, würde ich es gerne umgehen

  • Zeilen in Edit einfärben

    Moin zusammen,

    Ich hab jetzt schon einige Zeit nach einer Möglichkeit gesucht einzelne Zeilen eines Edits einzufärben. Leider bin ich bis jetzt auf keine Möglichkeit (außer Richedit, was ich gerne umgehen würde) gestossen. Kennt ihr da eine Möglichkeit. Ach ja, Skript gibt´s noch keines da es bis jetzt noch in der Planung ist.

  • _IECreateEmbedded löschen

    Sers zusammen,

    gibt´s eine Möglichkeit ein _IECreateEmbedded per Button zu löschen (entfernen) bevor die GUI geschlossen wird. Bin schon die ganze Zeit am suchen und finde nichts. Würde aber gerne bei _IECreateEmbedded bleiben.

    THX