Beiträge von AnMa

AnMa

Ja ich weiß, von wegen "Gute Nacht"

Aber wenn ich mich mal in was verbissen habe, dann bin ich kaum zu bremsen.
Das Problem mit den Fenstern einzeln öffnen und schließen, wobei das Hauptfenster immer offen bleibt, konnte ich jetzt lösen.

Mit dem Group-Problem bin ich allerdings nicht weiter gekommen. Sobald ich in der zweiten GUI eine Group aktiviere stürzt das Script ab bevor es überhaupt startet.

Einzig diese Zeile sorgt für den crash, aber ich finde den Fehler darin nicht

[autoit]

$sGuiOptGroup_1 = _GUICtrlGroup_Create("Audioeinstellungen:", 5, 30, 440, 80)

[/autoit]

Fehlermeldung aus dem Output:
!>04:05:44 AutoIt3.exe ended.rc:-1073741819

STOP ... Also gerade habe ich festgestellt, dass wohl GroupEx[0.5].au3 nicht mit der zweiten GUI klar kommt.

Denn mit dieser Zeile funktioniert das Script:

[autoit]

$sGuiMainGroup_1 = GUICtrlCreateGroup("Nachrichten:", 15, 80, 185, 120)

[/autoit]

Was mach ich denn da schon wieder falsch ?

AnMa

So, nun habe ich das bisherige komplette Script nochmal neu überarbeitet.

Variablen neu geschrieben, Funktionen eingerichtet usw...

Aber nun hänge ich fest. Aus der Main-Gui möchte ich über das Menu ein kleines Fester (Einstellungen) in einer Funktion aufrufen, was soweit auch gelingt. Aber wenn ich in dem neuen Fenster Groups anlegen möchte crasht das komplette Script.

[autoit]

;~ $sGuiOptGroup_2 = _GUICtrlGroup_Create("Zugangsdaten:", 5, 120, 440, 80)
;~ _GuiCtrlGroup_Set($sGuiOpt, $sGuiOptGroup_2, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
_GUICtrlCreateLabelTrans("Benutzername:", 20, 145, 80, 20, $SS_RIGHT)
$sOptFtpUser = GUICtrlCreateInput($sOptFtpUser, 105, 143, 125, 20)
_GUICtrlCreateLabelTrans("Passwort:", 230, 145, 80, 20, $SS_RIGHT)
$sOptFtpPasswd = GUICtrlCreateInput($sOptFtpPasswd, 315, 143, 125, 20)
;~ GUICtrlCreateGroup("", -99, -99, 1, 1)

[/autoit]

Ich habe es auch schon mit $WS_CHILD in der folgenden Zeile versucht, aber dann öffnet er kein neues Fenster sondern überlagert das Alte.

[autoit]

$sGuiOpt = GUICreate("BeCast Downloader V. " & $sPrgVersion & " - Einstelungen", 450, 300, 250, 150, $WS_CHILD)

[/autoit]

Zu dem bin ich noch nciht dahinter gekommen, was ich am Exit-Befehl ändern muß, dass auch nur das neue Fenster und nicht die komplette Aplikation geschlossen wird.

Sonst läufts schon recht gut

AnMa

Vielen Dank An BugFix und Oscar.

Das Problem mit dem Disabel hatten wir schon gefunden.

Das zweite werde ich auch in jedem Fall umsetzen .. Danke ..

AnMa

Das ist nochmal mein komplettes Script und ich starte es mit F5 in AutoIt und es funktioniert kein Button ... Weder der Button, noch das Label

Spoiler anzeigen

[autoit]

#cs
######################################################
# BeCast Downloader #
# #
# Build 2013 #
# #
# BeCast V 2.0.1 #
# August 2013 #
# copyright by Anna Heiland #
######################################################
#ce

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

#Region ### INCLUDES ###
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <GroupEx[0.5].au3>
#include <Winamp_Library.au3>
#EndRegion ### INCLUDES ###

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

#Region ### INI-READ ###
;~ [Program-Info]
$Version = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Version", "default")
$build = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Build", "default")
$author = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Author", "default")
$copyright = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "copyright", "default")
$contact_mail = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "contact_mail", "default")

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

;~ [Options]
$zugang = IniRead(@ScriptDir & "\data\config.ini", "Options", "zugang", "default")
$ftp_server = IniRead(@ScriptDir & "\data\config.ini", "Basics", "ftp_server", "default")
$ftp_user = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_user", "default")
$ftp_passwd = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_passwd", "default")
$audiopath = IniRead(@ScriptDir & "\data\config.ini", "Options", "audiopath", "default")
$db = IniRead(@ScriptDir & "\data\config.ini", "Options", "db", "default")

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

;~ [Audios]
$news = IniRead(@ScriptDir & "\data\config.ini", "Audios", "news", "default")
$newsopener = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newsopener", "default")
$newscloser = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newscloser", "default")
$cine = IniRead(@ScriptDir & "\data\config.ini", "Audios", "cine", "default")
#EndRegion ### INI-READ ###

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

;~ MsgBox(0, "Testbox für Variablen", $Version)

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

#Region ### DCLARATION OF VARS ###
$sGuiMain = GUICreate("BeCast Downloader V. " & $Version & " - für Radio4Players", 800, 550, 20, 20)
#EndRegion ### DCLARATION OF VARS ###

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

#Region ### GUI OPTIONS ###
GUISetBkColor(0x000000)
GUISetIcon("becast_icon.ico")
GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", 0, 0, 800, 530)
#EndRegion ### GUI OPTIONS ###

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

#Region ### GUI FORM ###
_GUICtrlCreateLabelTrans ("Download auswählen:", 75, 48, 278, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")

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

$sGuiMainGroup_1 = _GUICtrlGroup_Create("Nachrichten:", 15, 80, 185, 120)
;~ _GuiCtrlGroup_Set($sGuiMain, $Group1, '', BitOR($_GROUPTEXT_DEFAULT,$_GROUPTEXT_TRANS))
_GuiCtrlGroup_Set($sGuiMain, $sGuiMainGroup_1, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
$Test = _GUICtrlCreateLabelTrans("Montag - Freitag:", 25, 100, 101, 17)
_GUICtrlCreateLabelTrans("06:00 Uhr / 09:00 Uhr / 12:00 Uhr", 25, 130, 167, 17)
_GUICtrlCreateLabelTrans("jeweils ab ca. 10 Min vor", 25, 115, 121, 17)
_GUICtrlCreateLabelTrans("16:00 Uhr / 20:00 Uhr / 24:00 Uhr", 25, 145, 167, 17)
$sGuiMainButton_1 = GUICtrlCreateButton("Aktualisieren", 111, 168, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### GUI FORM ###

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

#Region ### MENU ###
$sMenuFile = GUICtrlCreateMenu("Datei")
$sMenuOpt = GUICtrlCreateMenu("Optionen")
$sMenuHelp = GUICtrlCreateMenu("?")

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

$sItemExit = GUICtrlCreateMenuItem("Beenden", $sMenuFile)

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

$sItemConnect = GUICtrlCreateMenuItem("Verbindung testen", $sMenuOpt)
$sItemTrenner_1 = GUICtrlCreateMenuItem("", $sMenuOpt)
$sItemState = GUICtrlCreateMenuItem("Statusanzeige", $sMenuOpt)
$sItemEinst = GUICtrlCreateMenuItem("Einstellungen", $sMenuOpt)

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

$sItemHelp = GUICtrlCreateMenuItem("Hilfe", $sMenuHelp)
$sItemAbout = GUICtrlCreateMenuItem("Info", $sMenuHelp)
#EndRegion ### MENU ###

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

GUISetState()

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

#Region ### WORKAROUND ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $sItemExit, $GUI_EVENT_CLOSE
Exit
Case $sGuiMainButton_1
MsgBox(0, 'Testing', 'Button 2 was pressed') ; Will demonstrate Button 2 being pressed
Case $Test
MsgBox(0, 'Testing', 'Button TEST was pressed') ; Will demonstrate Button 2 being pressed
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###

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

Exit

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

#Region ### FUNCTIONS ###
Func _GuiCtrlCreateLabelTrans($_text, $_left, $_top, $_width=Default, $_height=Default, $_style=-1, $_exStyle=0, $_iForeCol=-1)
Local $ID = GUICtrlCreateLabel($_text, $_left, $_top, $_width, $_height, $_style, $_exStyle)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
If $_iForeCol <> -1 Then GUICtrlSetColor(-1, $_iForeCol)
Return $ID
EndFunc
#EndRegion ### FUNCTIONS ###

[/autoit]

AnMa

hmmm habs versetzt .. ändert aber nix daran ...

AnMa

Ich habe jetzt zum Beispiel mal folgendes in die Schleife eingefügt....

[autoit]

Case $sGuiMainButton_1
MsgBox(0, 'Testing', 'Button 2 was pressed')

[/autoit]

Sieht also so aus

[autoit]

#Region ### WORKAROUND ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $sItemExit, $GUI_EVENT_CLOSE
Exit
Case $sGuiMainButton_1
MsgBox(0, 'Testing', 'Button 2 was pressed') ; Will demonstrate Button 2 being pressed
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###

[/autoit]

Aber es passiert nix.

AnMa

Irgendwie hab ich was mit der Funktionalität der Buttons verpasst

Aber ich finde nicht den Fehler warum der Button nicht reagiert.

Spoiler anzeigen

[autoit]

#Region ### INCLUDES ###
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <GroupEx[0.5].au3>
#include <Winamp_Library.au3>
#EndRegion ### INCLUDES ###

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

#Region ### INI-READ ###
;~ [Program-Info]
$Version = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Version", "default")
$build = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Build", "default")
$author = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Author", "default")
$copyright = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "copyright", "default")
$contact_mail = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "contact_mail", "default")

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

;~ [Options]
$zugang = IniRead(@ScriptDir & "\data\config.ini", "Options", "zugang", "default")
$ftp_server = IniRead(@ScriptDir & "\data\config.ini", "Basics", "ftp_server", "default")
$ftp_user = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_user", "default")
$ftp_passwd = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_passwd", "default")
$audiopath = IniRead(@ScriptDir & "\data\config.ini", "Options", "audiopath", "default")
$db = IniRead(@ScriptDir & "\data\config.ini", "Options", "db", "default")

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

;~ [Audios]
$news = IniRead(@ScriptDir & "\data\config.ini", "Audios", "news", "default")
$newsopener = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newsopener", "default")
$newscloser = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newscloser", "default")
$cine = IniRead(@ScriptDir & "\data\config.ini", "Audios", "cine", "default")
#EndRegion ### INI-READ ###

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

;~ MsgBox(0, "Testbox für Variablen", $Version)

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

#Region ### DCLARATION OF VARS ###
$sGuiMain = GUICreate("BeCast Downloader V. " & $Version & " - für Radio4Players", 800, 550, 20, 20)
#EndRegion ### DCLARATION OF VARS ###

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

#Region ### GUI OPTIONS ###
GUISetState()
GUISetBkColor(0x000000)
GUISetIcon("becast_icon.ico")
GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", 0, 0, 800, 530)
#EndRegion ### GUI OPTIONS ###

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

#Region ### GUI FORM ###
_GUICtrlCreateLabelTrans ("Download auswählen:", 75, 48, 278, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")

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

$sGuiMainGroup_1 = _GUICtrlGroup_Create("Nachrichten:", 15, 80, 185, 120)
;~ _GuiCtrlGroup_Set($sGuiMain, $Group1, '', BitOR($_GROUPTEXT_DEFAULT,$_GROUPTEXT_TRANS))
_GuiCtrlGroup_Set($sGuiMain, $sGuiMainGroup_1, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
_GUICtrlCreateLabelTrans("Montag - Freitag:", 25, 100, 101, 17)
_GUICtrlCreateLabelTrans("06:00 Uhr / 09:00 Uhr / 12:00 Uhr", 25, 130, 167, 17)
_GUICtrlCreateLabelTrans("jeweils ab ca. 10 Min vor", 25, 115, 121, 17)
_GUICtrlCreateLabelTrans("16:00 Uhr / 20:00 Uhr / 24:00 Uhr", 25, 145, 167, 17)
$sGuiMainButton_1 = GUICtrlCreateButton("Aktualisieren", 111, 168, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### GUI FORM ###

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

#Region ### MENU ###
$sMenuFile = GUICtrlCreateMenu("Datei")
$sMenuOpt = GUICtrlCreateMenu("Optionen")
$sMenuHelp = GUICtrlCreateMenu("?")

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

$sItemExit = GUICtrlCreateMenuItem("Beenden", $sMenuFile)

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

$sItemConnect = GUICtrlCreateMenuItem("Verbindung testen", $sMenuOpt)
$sItemTrenner_1 = GUICtrlCreateMenuItem("", $sMenuOpt)
$sItemState = GUICtrlCreateMenuItem("Statusanzeige", $sMenuOpt)
$sItemEinst = GUICtrlCreateMenuItem("Einstellungen", $sMenuOpt)

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

$sItemHelp = GUICtrlCreateMenuItem("Hilfe", $sMenuHelp)
$sItemAbout = GUICtrlCreateMenuItem("Info", $sMenuHelp)
#EndRegion ### MENU ###

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

#Region ### WORKAROUND ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $sItemExit, $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###

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

Exit

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

#Region ### FUNCTIONS ###
Func _GuiCtrlCreateLabelTrans($_text, $_left, $_top, $_width=Default, $_height=Default, $_style=-1, $_exStyle=0, $_iForeCol=-1)
Local $ID = GUICtrlCreateLabel($_text, $_left, $_top, $_width, $_height, $_style, $_exStyle)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
If $_iForeCol <> -1 Then GUICtrlSetColor(-1, $_iForeCol)
Return $ID
EndFunc
#EndRegion ### FUNCTIONS ###

[/autoit]

AnMa

OK, so langsam beginnt der Nebel sich zu lichten

Das heißt alles was ich in meiner "Haupt.au3" aufrufe wird beim compilieren mit eingelesen und in die spätere Exe-Datein eingebaut? Es würde also später nur noch die Exe existieren udn darinwären alle Subprogram integriert.

Das macht natürlich jetzt einiges klar, warum diverse Dinge nicht so gelaufen sind wie ich dachte.

AnMa

Ich seh schon .. irgendwie hänge ich hier noch in irreführenden Gedankengängen fest

Vermutlich muß ich mich erst nochmal mit dem Gedanken des Aufbaus geneuer auseinander setzen.

AnMa

OK, dann mal die folgende Frage:

Sehe ich das richtig, dass ich die einzelnen Unterprogramm als Funktion in das Hauptprogramm integriere?

AnMa

Gute Frage ...

Irgendwie kam das mal irgendwo zu Tage und ich hatte das bei meinem CMD-Script auch so gelöst.

Deinen Worten entnehme ich, dass das totaler unfug ist

Das heißt für mich .... Kommando zurück und alles neu aufbauen?

AnMa

Öhm ... ich dachte das wäre notwendig?

Oder fahre ich gerade auf dem falschen Zug?

AnMa

*grins*

Nun mein script besteht ja aus vielen einzelnen scripten und ich muß die Variablen dann in jedem Script extra einlesen. Zu dem möchte ich das Script ja nach und nach für viele andere Dinge weiter entwickeln, das heißt es komen evtl. neue Variablen hinzu usw., dann müßte ich das in jedem scrit ändern. So muß ich nur die config.ini und und die configread.au3 anpassen.

AnMa

Grummls ... Da hab ich mal wieder verpennt ...

Nun habe ich also zwei Möglichkeiten.

Erste Variante, ich lese in jedem Dokument mit IniRead alle Secions ein und lebe damit dass die Variablen etwas unübersichtlicher sind "$varOptions[1][1]" usw.

Oder ich baue eine config.au3 die aus der config.ini die Variablen mit IniRead ausließt und ihnen dann neue Variablen zuweist. Diese config.au3 kann dann über #include einglesen werden. Dann müßte ich bei Änderungen oder Erweiterungen nicht mehr alle einzelenen Sub-Programme überarbeiten.

oder?

AnMa

Ich glaube irgendwie reden wir gerade aneinander vorbei

Wenn ich mit IniWrite einen Eintrag schreibe, steht dort ja dann zum Beispiel folgendes:

[Options]
variable=C.\Test 1\test\

Wenn ich dann wiederum mit IniRead den Eintrag auslese passiert folgendes:

IniReadSection("config.ini", "Options")
MsgBox(0, "test", §variable")

WARNING: $variable: posibly used bevore declaration.

AnMa

Und wie wird das dann den Variablen zugeordnet?

In der config.ini steht ja nur ftp_server=ft_server.com dort fehlt also das $-Zeichen und die "-Zeichen, denn für eine Variable müßte es ja $ftp_server="ftp_server.com" heißen?

AnMa

Das hast Du aber schön gesagt

Na dann werd ich mich mal an die Arbeit machen ....

AnMa

Das heißt, wennich das komplette script später compilieren möchte komm ich um IniRead und IniWrite nicht rum?

und um Variable aus einer Ini-Datei auszulesen muß ich jede Einzelne in jedem Script separat mit IniRead einlesen?

AnMa

OK, nur damit ich das jetzt nicht falsch verstehe.

In der Config.ini speichere ich ja meine Variablen ab und da ich nicht jedesmal alle Variablen einzelen einlesen will, hole ich mir die Variablen aus der config.ini mit dem #include.

Damit würde ich IniRead ja nicht benötigen?

Die config.ini ist wie folgt aufgebaut:

[autoit]

[Options]
$ftp_server="ftpserver.com"
$zugang = "zugang.ini"
$ftp_user="anna"
$ftp_passwd="0815"
$audiopath="C:"
$db = "0"

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

[Audios}
$news = "Nachrichten.mp3"
$newsopener = "R4P_News_Opener.mp3"
$newscloser = "R4P_News_Closer.mp3"

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

[Basics]
$scriptpath = "D:\Program"

[/autoit]

und aus der options.au3 schribe ich dann mittels IniWrite in die config.ini?

Aber damit ich die config.ini über #include einlesen kann müßen die Variablen ja entsprechend geschrieben sein und dann ist wieder die [section] im weg?

Holla die Waldfee, jetzt verrenn ich mich gerade oder?

AnMa

Ah .. ok ...

Um daraus dann die Variable zurück zu bekommen holen ich mit $var = IniRead ... die Daten da wieder raus und im IniRead füge ich auch die "-Zeichen wieder ein?

Beiträge von AnMa

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien