PureBoard

Ich glaub, ich habe es verstanden. Der "Fehler" liegt wohl in der IsTextUnicode API Funktion.

string1$="secret:xxxxxxxxxxxxxxx xxxxxxxxxxx"
string2$="this app can break"

ansi$ = string1$
*MemoryID = AllocateMemory(Len(ansi$) + 1)
PokeS(*MemoryID, ansi$)
If IsTextUnicode_(*MemoryID, Len(ansi ...

Gerade bin ich über einen komischen Windows XP Bug gestolpert.

ansi$="secret:xxxxxxxxxxxxxxx xxxxxxxxxxx"
CreateFile(1, "x.txt")
WriteString(1, ansi$)
CloseFile(1)
RunProgram("notepad.exe", "x.txt", "")

Ich weiß nicht, wie Notepad darauf kommt, das es sich hierbei um eine UNICODE Datei handelt ...

WriteString scheint nen Bug zu haben, funktioniert nicht mit Unicodestrings
im Ascii Modus, müßte es aber.
Jeep, der Bug liegt nicht beim ReadString sondern beim Schreiben der Datei.

Selbst wenn man WriteString
; WriteString(0, writebuffer$, #code)
WriteData(0, @writebuffer$, Len(writebuffer ...

Interessanter Ansatz:
Der folgende Code läuft auch mehrere Male, wenn die Temp.txt mit 2050 Zeichen schon existiert.

; bug report PureBasic 4.20

#file$ = "Temp.txt"
#maxlen = 2050

#code = #PB_Unicode
; #code = #PB_Ascii

bufferlength = #maxlen
For x = 1 To 300
writebuffer$ = Space(bufferlength ...

In dem Beispiel geht es hauptsächlich darum eine "Grenze" zu finden. Für kann man für x gleiche mehrere hundert Durchläufe ohne Fehler machen.

Der Quellcode oben ist nur ein Beispiel. Ich verarbeite Text-Dateien, die etwa 30 MByte groß sind. Da stehen nunmal mehrere Zeilen drin.

Der folgende Code hat weniger Dateizugriffe und endet bei mir auch in einen Invalid memory access

; bug report PureBasic 4.20

#file$ = "Temp.txt"
#maxlen ...

Für den Fall, daß ich ReadString im Unicode Format auf eine größere Zeile mit mehr als 2049 Zeichen anwende, bekomme ich immer einen Invalid memory access.

; bug report PureBasic 4.20

#file$ = "Temp.txt"
#maxlen = 2048 * 4
#code = #PB_Unicode
; #code = #PB_Ascii

For bufferlength = 0 To #maxlen ...

Grundsätzlich dürfte das Problem daran liegen, das sich an der KERNEL32.LIB was geändert hat.

PureBasic Version 2.92 KERNEL32.LIB 163.052 Bytes
PureBasic Version 2.93 KERNEL32.LIB 110.314 Bytes

In der "neuen" LIB ist z. B. die API Funktionen CreateToolhelp32Snapshot nicht mehr definiert, warum ...