Aber ich check das einfach nicht.
Kann mir jemand einen Tip geben, noch besser ein Beispiel, wie ich eine PDF encode?
So funktioniert es jedenfalls NICHT:
Code: Alles auswählen
file$ = OpenFileRequester("Datei auswählen...","*.*","*.*",0)
If file$
If ReadFile(0, file$)
length = Lof(0) ; Länge der geöffneten Datei ermitteln
*MemoryID = AllocateMemory(length) ; Reservieren des benötigten Speichers
If *MemoryID
bytes = ReadData(0, *MemoryID, length) ; Einlesen aller Daten in den Speicherblock
;Debug "Anzahl der gelesenen Bytes: " + Str(bytes)
pdf$=PeekS(*MemoryID ,bytes)
EndIf
CloseFile(0)
EndIf
EndIf
Encoded$ = Base64Encoder(*MemoryID, MemorySize(*MemoryID))
; Debug "Encoded: " + Encoded$
*DecodedBuffer = AllocateMemory(1024)
Base64Decoder(Encoded$, *DecodedBuffer, 1024)
;Debug "Decoded: " + PeekS(*DecodedBuffer, -1, #PB_UTF8)
pdf2$=PeekS(*DecodedBuffer, -1, #PB_UTF8)
OpenWindow(1,0,0,1400,800,"Test")
WebGadget(2,10,10,800,600,pdf2$)
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow