Invalid memory access
Verfasst: 04.06.2013 22:19
Hallo,
Iich habe ein Problem und konnte es bisher nicht lösen...
Nach der Zugabe von ein paar Zeilen Code in "MainScreen.pb":
A.) ButtonGadget (# Main_B_03, .........
B.) Case # Main_B_03 ; E-Mail erstellen.
Define sMailAddress.s, sMailSubject.s
sMailAddress.s = "username@provider.country"
sMailSubject.s = "Testing e-mail"
ShellExecute_ (Null # # Null "mailto:" + sMailAddress + "? Subject =" + SMailSubject.s, # NULL, NULL #, # SW_SHOWNORMAL)
Beim ersten Start des Programms und begleitet "E-Mail erstellen" gibt keinen Fehler, im Folgenden "Programm beenden".
Ab der zweiten Zeit des Programms und begleitet "Suche Kontakt", "Zurück zum Hauptmenü"", "E-Mail erstellen",
die Standard-Mail-Programm wird gestartet und gibt dem Programm einen Fehler in der folgenden Zeile:
Event = WaitWindowEvent()
[ERROR] MainScreen.pb (Line 35)
[ERROR] Invalid memory access (read error at address 268451016).
Hat jemand eine Idee?
Danke,
Little_Man
Iich habe ein Problem und konnte es bisher nicht lösen...
Nach der Zugabe von ein paar Zeilen Code in "MainScreen.pb":
A.) ButtonGadget (# Main_B_03, .........
B.) Case # Main_B_03 ; E-Mail erstellen.
Define sMailAddress.s, sMailSubject.s
sMailAddress.s = "username@provider.country"
sMailSubject.s = "Testing e-mail"
ShellExecute_ (Null # # Null "mailto:" + sMailAddress + "? Subject =" + SMailSubject.s, # NULL, NULL #, # SW_SHOWNORMAL)
Beim ersten Start des Programms und begleitet "E-Mail erstellen" gibt keinen Fehler, im Folgenden "Programm beenden".
Ab der zweiten Zeit des Programms und begleitet "Suche Kontakt", "Zurück zum Hauptmenü"", "E-Mail erstellen",
die Standard-Mail-Programm wird gestartet und gibt dem Programm einen Fehler in der folgenden Zeile:
Event = WaitWindowEvent()
[ERROR] MainScreen.pb (Line 35)
[ERROR] Invalid memory access (read error at address 268451016).
Code: Alles auswählen
; MainScreen.exe.
EnableExplicit
Enumeration
#MainScreen
#Main_B_01: #Main_B_02: #Main_B_03
EndEnumeration
Global Year = 2014
Global Month = 4
Global Day = 9
Global Build = #PB_Editor_BuildCount
Global ScreenHeight = 693
Global ScreenWidth = 730
Global Version.s = " v." + Str(Year) + "." + Str(Month) + "." + Str(Day) + " - " + "Build" + " " + Str(Build)
Global Style.l = #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_TitleBar
Global FontID0 = LoadFont(0, "Verdana", 8)
Global Event.l
Global Result = 0
Procedure Main_Screen()
OpenWindow(#MainScreen, 0, 0, ScreenWidth, ScreenHeight, " " + "Kontakte Management" + Version.s + ".", Style.l)
ButtonGadget(#Main_B_01, 265, 498, 240, 25, "Suche Kontakt"): SetGadgetFont(#Main_B_01, FontID0)
ButtonGadget(#Main_B_02, 15, 663, 490, 25, "Programm beenden"): SetGadgetFont(#Main_B_02, FontID0)
ButtonGadget(#Main_B_03, 15, 566, 240, 25, "E-Mail erstellen"): SetGadgetFont(#Main_B_03, FontID0)
EndProcedure
Main_Screen()
Repeat
Event = WaitWindowEvent() ; ;<-- FEHLER NACH: "Suche Kontakt" --> "Zurück zum Hauptmenü" --> "E-Mail erstellen" !!...
Debug Event
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #Main_B_01 ; Suche Kontakt.
HideWindow(#MainScreen, #True)
OpenLibrary(0, "SearchContact.dll")
Result = CallFunction(0, "SearchScreen", Year, Month, Day, Build)
Debug PeekS(Result)
CloseLibrary(0)
HideWindow(#MainScreen, #False)
Case #Main_B_02 ; Programm-Ende.
End
Case #Main_B_03 ; E-Mail erstellen.
Define sMailAddress.s, sMailSubject.s
sMailAddress.s = "username@provider.country"
sMailSubject.s = "Testing e-mail"
ShellExecute_(#Null, #Null, "mailto:" + sMailAddress + "?Subject=" + sMailSubject.s, #Null, #Null, #SW_SHOWNORMAL)
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
End
Code: Alles auswählen
; SearchContact.dll.
Enumeration
#Search_Screen
#Search_B_01
EndEnumeration
ProcedureDLL.s SearchScreen(Year, Month, Day, Build)
Protected A$
Protected Style.l = #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_TitleBar
Protected ScreenHeight = 700
Protected ScreenWidth = 693
Protected FontID0 = LoadFont(0, "Verdana", 8)
A$ ="Suche Kontakt"
OpenWindow(#Search_Screen, 0, 0, ScreenHeight, ScreenWidth, " " + "Suche Kontakt" + " v."+ Str(Year) + "." + Str(Month) + Str(Day) + " - Build " +Str(Build), Style.l)
ButtonGadget(#Search_B_01, 15, 663, 490, 25, "Zurück zum Hauptmenü"): SetGadgetFont(#Search_B_01, FontID0)
Repeat
Protected Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #Search_B_01 ; Zurück zum Hauptmenü.
CloseWindow(#Search_Screen)
ProcedureReturn A$
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndProcedure
Danke,
Little_Man