PureBoard

@Friedhelm
Da brauch ich nicht testen, Dein temp ist kein String, es fehlt also eine Geschwindigkeitsentscheidende
Funktion :wink:

geschummelt, geschummelt :lol:

@ts-soft
Da habe ich wohl nicht richtig aufgepasst /:->



Ich Versuchs nochmal mit geänderten Routinen und denke das es flott ist ...

Procedure test1(Text.s)
; Christian H For Next 1
TAdr.i = @Text
TEnd.i = TAdr+StringByteLength(Text)-SizeOf(Character)
For i = TAdr To TEnd Step SizeOf(Character)
temp.s = Chr(PeekC(i))
Next

EndProcedure

Procedure test12(Text.s)
; Christian H For Next 2
TAdr.i = @Text

For i = TAdr To ...

Structure byt
StructureUnion
wert.b
EndStructureUnion
EndStructure


file$ = OpenFileRequester("Encode in S2-1", "", "", "")
fileout$ = SaveFileRequester("Encode", "encode.txt", "", "")

If CreateFile(1, fileout$)
If ReadFile(2, file$)
UseFile(1)
WriteStringN("Code: Pxxxxx "+inp ...

zu 1.
such mal nach GetExePath() von TS-Soft

Dieses zip archiv ist OK
http://www.automatedqa.com/downloads/memp0950.zip

Hi
Wie wäre es mit einem alten Notebook der per Lan oder WLan, wenn möglich, auf den im trockenen stehenden zugreift.
Somit ist er ein billiges Terminal mit allem Komfort.
Im Betrieb sollte er aufgrund seines Lüfters und Eigenerwärmung garnicht so feucht werden. Außerhalb der Betriebszeit kann man ...

@Janno & @Vermilion
Aus dem alten PureBoard

Milkshape3D ASCII File Loader für PB (von Danilo)
http://www.purebasic.fr/german/archive/ ... php?t=4546

Scarabol@ Schon gesehen

http://www.purearea.net/pb/english/pure ... :Main_Page

Frage: Wie unterbinde ich beim Poken, dass eine abschließende Null angehängt wird?


CopyMemory()

Syntax

CopyMemory(*SourceMemoryID, *DestinationMemoryID, Laenge)
Beschreibung

Kopiert einen Speicherbereich von '*SourceMemoryID' (der Ausgangs-Speicheradresse) mit der angegebenen Länge (in Bytes ...