PureBasic Forums - English

Here is my snap7 include:



;-TOP
; Kommentar : snap7 include
; Author :
; Second Author :
; Datei : snap7.pbi
; Version : 1.4.2
; Erstellt : 12.10.2013
; Geändert : 28.12.2016

; http://snap7.sourceforge.net ...

If CreateFile(0, "image.rtf")

WriteStringN(0, "{\rtf1", #PB_UTF8)
WriteStringN(0, "\qc{\*\shppict{\pict{\*\picprop\jpegblip}", #PB_UTF8)

;Bin2Hex image here
For n = 0 To ?imageEnd - ?imageStart - 1
WriteString(0, RSet(Hex(PeekA(?imageStart + n)), 2, "0"), #PB_UTF8)
Next n ...

you have to use ImageID(imageID0)



Procedure Decode1(null)
Repeat
WaitSemaphore(semaphore1)

; StartDrawing(WindowOutput(1))
; ;StartDrawing(ImageOutput(imageID0))
; Box(0,0,400,400, $0000ff)
; StopDrawing()

StartDrawing(WindowOutput(1))
DrawImage(ImageID(imageID0), 0, 0)
StopDrawing()

ForEver ...

hello

With full html:

one red dot



#DQ = Chr(34)

Enumeration
#Form0
#Web0
#Bouton0
EndEnumeration

OpenWindow(#Form0, 216, 0, 397, 340, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
WebGadget(#Web0, 12, 18, 372, 291, "about:blank")
ButtonGadget ...

hello

and without #PB_Web_Mozilla ?

Hello

two red dots:



#DQ = Chr(34)

Enumeration
#Form0
#Web0
#Bouton0
EndEnumeration

OpenWindow(#Form0, 216, 0, 397, 340, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
WebGadget(#Web0, 12, 18, 372, 291, "about:blank")
ButtonGadget(#Bouton0, 104, 315 ...

The b.s is a pointer, but with a fixed string it works.



Structure Kcc
a.l
b.s{20}
EndStructure

Global Variable.Kcc

Variable\a = 123456
Variable\b = "Hello, I'm KCC"

OpenConsole()

PrintN(Trim(Str(@Variable)))
FlushFileBuffers_(GetStdHandle_(#STD_OUTPUT_HANDLE))

CloseConsole()
Delay(2000 ...

Structure test
name.s{10}
moreinfo.s{10}
id.w
EndStructure

tests.test\name = "Aurthor"
tests.test\moreinfo = "Dent"
tests.test\id = 42

test2.test

Debug SizeOf(test)

If CreateFile(0, "info.txt")
WriteData(0, @tests, SizeOf(test)) ; problem is determining the proper size of @tests ...