Bitte um Hilfe zu "Config oa. Daten in Exe speichern
Verfasst: 03.05.2009 16:03
Hallo Zusammen,
ich versuche gerade verzweifelt das Beispiel zu verwenden mit einer Struktur und einem Array.
Hier habe ich das Beispiel gefunden:
http://www.purebasic.fr/german/viewtopi ... c&start=20
Das ist der Code von der o.g. Seite:
Nun habe ich versucht dieses Beispiel so zu verändern, dass ich es für meine Zwecke weiter verwenden kann.
Ich bekomme jedoch immer folgende Fehlermeldung:
In der Zeile
erscheint die Fehlermeldung: The specified Buffer is 0
Könnte mir hier jemand Hilfestellung geben... wäre toll.
Hier ist der Code den ich verwende:
Schon mal vielen Dank für Eure Hilfe.
ich versuche gerade verzweifelt das Beispiel zu verwenden mit einer Struktur und einem Array.
Hier habe ich das Beispiel gefunden:
http://www.purebasic.fr/german/viewtopi ... c&start=20
Das ist der Code von der o.g. Seite:
Code: Alles auswählen
XIncludeFile "EC_Include.pbi"
EC_Builder_SelfConfigHead()
Structure Config
Var1.i
Var2.i
Var3.i
Var4.i
Var5.i
EndStructure
Global *Config.Config
Procedure SaveConfig()
EC_Builder_SelfConfig(*Config, SizeOf(Config), #True, #False)
EndProcedure
Procedure LoadConfig()
Protected Loader = EC_Load_All()
If Loader
*Config = EC_Loader_GetMem(Loader)
Else
*Config = AllocateMemory(SizeOf(Config))
EndIf
EndProcedure
LoadConfig() ; Läd/Initialisiert Config
With *Config
If Not \Var1
\Var1 = 1
\Var2 = 3
\Var3 = 6
\Var4 = 12
\Var5 = 24
EndIf
\Var1*2
\Var2*2
\Var3*2
\Var4*2
\Var5*2
; Code
; Code
; .....
; .....
MessageRequester("Test", Str(\Var1) + #LFCR$ + Str(\Var2) + #LFCR$ + Str(\Var3) + #LFCR$ + Str(\Var4) + #LFCR$ + Str(\Var5))
SaveConfig()
EndWith
Ich bekomme jedoch immer folgende Fehlermeldung:
In der Zeile
Code: Alles auswählen
WriteData(hFile, *Mem, MemSize)
Könnte mir hier jemand Hilfestellung geben... wäre toll.
Hier ist der Code den ich verwende:
Code: Alles auswählen
XIncludeFile "EC_Include.pbi"
EC_Builder_SelfConfigHead()
Structure Zelle
Zeile.l
PatName.s
PatFallNr.s
PatDatum.s
EndStructure
Global NewList ArchivList.Zelle()
Procedure SaveConfig()
EC_Builder_SelfConfig(ArchivList, SizeOf(Zelle), #True, #False)
EndProcedure
Procedure LoadConfig()
Protected Loader = EC_Load_All()
If Loader
ArchivList = EC_Loader_GetMem(Loader)
Else
ArchivList = AllocateMemory(SizeOf(Zelle))
EndIf
EndProcedure
LoadConfig()
AddElement(ArchivList())
ArchivList()\Zeile = 1
ArchivList()\PatName = "Meier"
ArchivList()\PatFallNr = "12345"
ArchivList()\PatDatum = "19.12.2009"
Debug ArchivList()\Zeile
Debug ArchivList()\PatName
SaveConfig()