HTML GUI (PB 4.10+)

Share your advanced PureBasic knowledge/code with the community.
Morty
User
User
Posts: 35
Joined: Mon Mar 19, 2007 8:30 am
Location: Germany
Contact:

Post by Morty »

@Pantcho!! and rsts:

You need to install the beta 2 of PB 4.10, than it should work.

Greetz, Morty
rsts
Addict
Addict
Posts: 2736
Joined: Wed Aug 24, 2005 8:39 am
Location: Southwest OH - USA

Post by rsts »

Thanks Morty. I will try that shortly. Right now I'm in a development cycle for which I would hate to impact what I've got running.

Thanks again.

cheers
User avatar
ts-soft
Always Here
Always Here
Posts: 5756
Joined: Thu Jun 24, 2004 2:44 pm
Location: Berlin - Germany

Post by ts-soft »

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
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.
Image
troy
User
User
Posts: 51
Joined: Sat May 31, 2003 2:59 pm

Post by troy »

The links is broken - getting a 404 error :(
--
troy
User avatar
ts-soft
Always Here
Always Here
Posts: 5756
Joined: Thu Jun 24, 2004 2:44 pm
Location: Berlin - Germany

Post by ts-soft »

troy wrote:The links is broken - getting a 404 error :(
sorry, the domain ts-soft.eu exist no more. If i find the old source, i will post
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.
Image
User avatar
Kiffi
Addict
Addict
Posts: 1486
Joined: Tue Mar 02, 2004 1:20 pm
Location: Amphibios 9

Post by Kiffi »

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.

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
any hint to solve this problem?

Thanks in advance & Greetings ... Kiffi
Hygge
JCKodel
New User
New User
Posts: 1
Joined: Sun Jul 27, 2008 3:51 am
Location: Brazil

Post by JCKodel »

Anyone has noticed that [Tab] key doesn't work?
Try create two text boxes and press [Tab] in one of them =(
Post Reply