Frage zum Befehl Debug

[ts-soft]

Ich habs auf die schnelle einfach mal so gemacht:

Code: Alles auswählen

...

Das ist gar nicht gut, Du pokst in einen Speicher von 1 oder 2 Byte länge
Schalte mal im den Compiler-Optionen den Purifier ein, dann entdeckst Du solche
Fehler oftmals selber.

Gruß
Thomas

[Micha122]

Ups, ein klarer Absturzkandidat.

Bin aber ohnehin dabei, deine Version mit "AllocateMemory" einzubauen.

Purifier bleibt ab jetzt mein ständiger Freund

Gruß und danke!

[ts-soft]

Purifier bleibt ab jetzt mein ständiger Freund

Nur bei Bedarf einschalten, ansonsten verlangsamt der Purifier die Programmausführung
erheblich, das macht dann auch keinen Spass mehr

[NicTheQuick]

Oder man verwendet allokierten Speicher, der bleibt bis zum freigeben gültig:

Code: Alles auswählen

EnableExplicit

Procedure test()
  Protected teststring.s = "C:\Users\Micha\Dropbox"
  Protected *zeiger = AllocateMemory(Len(teststring) + SizeOf(Character)) ; für nullbyte
  
  If *zeiger
    PokeS(*zeiger, teststring)
    ProcedureReturn *zeiger
  EndIf
EndProcedure

Define *string = test()
Debug ""
Debug "Main"
Debug *string
Debug PeekS(*string)
FreeMemory(*string)

Diese Version ist aber auch nur sicher im Ascii-Modus. Korrekterweise müsste da stehen: AllocateMemory((Len(teststring) + 1) * SizeOf(Character))
Oder man nutzt zumindest PokeS korrekt mit PokeS(*zeiger, teststring, -1, #PB_Ascii).

[ts-soft]

Shit, sowas kann passieren, wenn man hier auf die schnelle mal ein Beispiel reinpoked

[Micha122]

Habe auch gemerkt, das im Unicode Modus der Doppelte Speicher benötigt wird.
Mit Purifier wurde Overflow direkt angezeigt.
Hab den Code dann abgeändert, aber mich dann doch nicht so ganz getraut das zu posten.

[Micha122]

@NicTheQuick :

AllocateMemory((Len(teststring) + 1) * SizeOf(Character))

Warum das "+1"?
Ohne "+1" wird bei mir kein Fehler mehr angezeigt.

[HeX0R]

@NicTheQuick :

AllocateMemory((Len(teststring) + 1) * SizeOf(Character))

Warum das "+1"?
Ohne "+1" wird bei mir kein Fehler mehr angezeigt.

Ein String in PB hat immer noch ein Null-Byte am Ende (bzw. zwei in Unicode), um das Ende zu markieren.
Beim Poken wird das/die Nullbyte mitgeschrieben.
Also MUSS man das tatsächlich so machen, sonst schreibst Du über den bereitgestellten Speicherbereich.

Man kann übrigens auch StringByteLength() anstatt Len() benutzen.
Also

Code: Alles auswählen

Protected *zeiger = AllocateMemory(StringByteLengh(teststring) + SizeOf(Character)) ; für nullbyte

[Micha122]

Hallo HeX0R,
das mit der Nullbyte Ende- Markierung habe ich verstanden.

StringByteLengh + SizeOf(Character) = Anzahl Bytes + Nullbyte (Unicode 2 Byte) auch verstanden.

Danke!

[ts-soft]

Hier noch eine andere Möglichkeit, ist aber nicht DLL-geeignet!
Statt zu poken nutzen wir eine strukture und überlassen die
Stringverwaltung dem Stringmanager:

Code: Alles auswählen

DeclareModule test
  Declare test(*string.String)
EndDeclareModule

Module test
  EnableExplicit
  
  Procedure test(*string.String)
    *string\s = "C:\Users\Micha\Dropbox"
  EndProcedure
EndModule

EnableExplicit

UseModule test
Define string.String\s = ""
test(@string)
Debug string\s

Einfacher Code, aber schwer zu verstehen