@Pantcho!! and rsts:
You need to install the beta 2 of PB 4.10, than it should work.
Greetz, Morty
HTML GUI (PB 4.10+)
Here is a example to show how you can include a html with all files (in the
example a animate gif) in the executable as resource.
So you can enhance the other examples
http://ts-soft.eu/dl/AboutHTML.zip
example a animate gif) in the executable as resource.
So you can enhance the other examples
http://ts-soft.eu/dl/AboutHTML.zip
PureBasic 5.73 | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Old bugs good, new bugs bad! Updates are evil: might fix old bugs and introduce no new ones.

Old bugs good, new bugs bad! Updates are evil: might fix old bugs and introduce no new ones.

sorry, the domain ts-soft.eu exist no more. If i find the old source, i will posttroy wrote:The links is broken - getting a 404 error
a new link.
PureBasic 5.73 | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Old bugs good, new bugs bad! Updates are evil: might fix old bugs and introduce no new ones.

Old bugs good, new bugs bad! Updates are evil: might fix old bugs and introduce no new ones.

Hello,
unfortunately the way to transmit data with method="get" does only
transport a small amount of data.
i try unsuccessfully to send a teststring of 10000 Spaces (see code
below). Sending a teststring of 1000 Spaces works.
any hint to solve this problem?
Thanks in advance & Greetings ... Kiffi
unfortunately the way to transmit data with method="get" does only
transport a small amount of data.
i try unsuccessfully to send a teststring of 10000 Spaces (see code
below). Sending a teststring of 1000 Spaces works.
Code: Select all
; based on the code from Rescator:
EnableExplicit
Procedure.l AboutHtml_NavigationCallback(gadget,url$)
If Left(url$,8)="cmd:data"
MessageRequester("GET","Length: " + Str(Len(Right(url$,Len(url$)-8))))
ProcedureReturn #False
EndIf
ProcedureReturn #True
EndProcedure
Define LargeData.s = Space(1000) ; this works
; Define LargeData.s = Space(10000) ; this not
Define HTML.s = "<html><body><form action='cmd:data' method='get'><textarea name='message' rows='17' cols='77' title='Message'>" + LargeData + "</textarea><input class='button' type='submit' name='submit' Value='submit'></form></body></html>"
OpenWindow(0,#PB_Ignore,#PB_Ignore,800,400,"")
CreateGadgetList(WindowID(0))
WebGadget(0,0,0,WindowWidth(0),WindowHeight(0),"")
SetGadgetItemText(0,#PB_Web_HtmlCode,HTML)
SetGadgetAttribute(0,#PB_Web_NavigationCallback,@AboutHtml_NavigationCallback())
SetActiveGadget(0)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Thanks in advance & Greetings ... Kiffi
Hygge