<?xml version="1.0" encoding="UTF-8"?>

<SunIDE_Project_File Version="10.0">

<ActiveProfile>class2016</ActiveProfile>

<ProjectTitle>class2016</ProjectTitle>

<SelectedProgram>docgi.pls</SelectedProgram>

<Profiles>

<Name>class2016</Name>

<Properties>

<SourceFolder>C:\Sunbelt\sunbelt-plb-samples\conf2016\</SourceFolder>

<Compiler/>

<CompilerIni/>

<CompilerOptions>-S,ZI=0,WS1</CompilerOptions>

<MinimizeCompiler>1</MinimizeCompiler>

<BookmarkErrors>0</BookmarkErrors>

<ShowCompilerCmd>1</ShowCompilerCmd>

<MaxErrors>99</MaxErrors>

<OptionsPage>0</OptionsPage>

<SymbolFile>1</SymbolFile>

<OpenEnded>1</OpenEnded>

<CrossReference>0</CrossReference>

<MetadataMode>2</MetadataMode>

<MetadataFolder/>

<Graphics>0</Graphics>

<NoDuplicate>0</NoDuplicate>

<EncryptSymbols>0</EncryptSymbols>

<FlagConflicts>0</FlagConflicts>

<AbortError>0</AbortError>

<PauseError>0</PauseError>

<PauseSeconds>2</PauseSeconds>

<MultipleTraps>0</MultipleTraps>

<ReadMode>0</ReadMode>

<Restricted>0</Restricted>

<OutputExt/>

<OutputFolder/>

<OutputMode>1</OutputMode>

<WorkFolder/>

<CaseSensitive>0</CaseSensitive>

<CommentDelims/>

<SourceExt/>

<CompatMode>1</CompatMode>

<ListMode>1</ListMode>

<ListFolder/>

<DisableWarnings>0</DisableWarnings>

<GeneratedCode>0</GeneratedCode>

<NoTimestamp>0</NoTimestamp>

<ListErrorDelete>0</ListErrorDelete>

<NoOutput>1</NoOutput>

<ErrorsOnly>0</ErrorsOnly>

<AllSource>0</AllSource>

<ExpandedMacros>0</ExpandedMacros>

<ListOff>0</ListOff>

<FalseIf>0</FalseIf>

<SpoolFile>0</SpoolFile>

<SpoolAppend>0</SpoolAppend>

<IniFile/>

<WorkingDirectory/>

<HideMain>0</HideMain>

<GlobalData>64</GlobalData>

<VirtualMemory>20</VirtualMemory>

<Arguments/>

<DebugLog>1</DebugLog>

<Debugger>1</Debugger>

<DebugProcess>0</DebugProcess>

<DebugBreakFirst>1</DebugBreakFirst>

<DebugHost/>

<DebugPort/>

<PreBuildEnabled>0</PreBuildEnabled>

<PreBuildCommands/>

<PostBuildEnabled>0</PostBuildEnabled>

<PostBuildCommands/>

<FTPUpload>0</FTPUpload>

<FTPDebug>0</FTPDebug>

<FTPAccount/>

<FTPFolder/>

<EnableBackups>1</EnableBackups>

<MaxBackups>10</MaxBackups>

<BackupDir>.\Backups\</BackupDir>

</Properties>

</Profiles>

<Source Name="classtest.pls"/>

<Source Name="docgi.pls"/>

</SunIDE_Project_File>

*---------------------------------------------------------------

.

. Program Name: classtest

. Description: Conf 2016 Sample

.

. This program requires gauge.html, myjstest.html

. and mycss.css to be put in the http_root or plbwv_html directory

.

INCLUDE plbequ.inc

INCLUDE plbmeth.inc

INCLUDE plbstdlib.inc

*-------------------------------------------------------

ClassForm PLFORM "classtest.pwf"

Client CLIENT

Count FORM "0"

OkFlag FORM "1"

ErrTry FORM "5"

.

.

.

HtmlPageQR INIT "<img src='https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=Hello%20world&choe=UTF-8' ":

" alt='QR code' />"

.

. Table

.

HtmlTable INIT "<table>":

"<tr><th>Month</th><th>Weather</th></tr>":

"<tr><td>March</td><td>Snow<td></tr>":

"</table>"

.

. Map

.

LocData DIM 300

LocHtml DIM 300

.

. Chart

.

ChartHtml INIT "<iframe width='500px' height='200px' src='gauge.html'</iframe>"

.

. Js Class

.

ResStr DIM 200

HtmlObjId DIM 20

GetJsStr PROFILE !js@frame1,MyJsFuncStr,DIM,DIM

HtmlPageJs1 INIT "<iframe id='frame1' style='width:80%; border-width:0; margin-left:10px;'":

" src='myjstest.html' sandbox='allow-same-origin allow-scripts allow-top-navigation'></iframe>"

.

.

.

WINHIDE

FORMLOAD ClassForm

WebForm1.SetAsClient

LOOP

EVENTWAIT

REPEAT

STOP

TestIt LFUNCTION

ENTRY

ADD "1" TO Count

PERFORM Count Of TestItQR, TestItTable,TestItLoc, TestItG, TestItJs

FUNCTIONEND

TestItQR LFUNCTION

ENTRY

Panel1.InnerHtml Using HtmlPageQR

FUNCTIONEND

TestItTable LFUNCTION

ENTRY

Client.AddCss Using "mycss.css"

SETPROP Button2,WebClass="myclass"

Panel1.InnerHtml Using HtmlTable

FUNCTIONEND

TestItLoc LFUNCTION

ENTRY

Client.GetLocation Giving LocData

PACK LocHtml Using "<img src='http://maps.googleapis.com/maps/api/staticmap?center=":

LocData:

"&zoom=14&size=400x300&sensor=false' />"

Panel1.InnerHtml Using LocHtml

FUNCTIONEND

TestItG LFUNCTION

ENTRY

Panel1.InnerHtml USING ChartHtml

FUNCTIONEND

TestItJs LFUNCTION

ENTRY

MOVE "0" To Count

Panel1.InnerHtml Using HtmlPageJs1

Client.FlushMessages

Client.JsMakeString Giving HtmlObjId Using "MyJsTest1"

MOVE "5" To ErrTry

TRAP RetryFunc Noreset If Object

LOOP

MOVE "1" To OkFlag

WINAPI GetJsStr Giving ResStr Using HtmlObjId

BREAK If (OkFlag = 1)

REPEAT

TRAPCLR Object

SETPROP LabelText1, Text=ResStr

FUNCTIONEND

RetryFunc LFUNCTION

ENTRY

SUB "1" From ErrTry

IF ( ErrTry = 0 )

TRAPCLR Object

ELSE

MOVE "0" To OkFlag

ENDIF

PAUSE "1"

FUNCTIONEND

*---------------------------------------------------------------

.

. Program Name: docgi

. Description: Conference 2016 Sample CGI Program

.

. This program requires docgitest.html to be

. put in the http_root directory. This html page

. must be used to run the docgi program

.

. The webserver configuration must set PLBWEB_CGI_INFODIR

.

. PLBWEB_CGI_INFODIR=c:\temp\cgi

.

INCLUDE plbequ.inc

INCLUDE plbmeth.inc

INCLUDE plbstdlib.inc

*-------------------------------------------------------

R RUNTIME

DATA DIM 240

xDATA DIM 300

CgiName DIM 30

.

X PLFORM docgi.pwf

.

FORMLOAD X

.

CALL FetchQuery_String_Raw

.

LOOP

EVENTWAIT

REPEAT

STOP

.....

. 'GetCGI'

.

GetCGI FUNCTION

CgiKey DIM 30

Opt FORM 2

ENTRY

.

R.CgiString Giving DATA Using CgiKey, Opt

PACK xData, CgiKey, "='", DATA,"'"

INSERTITEM DataList1, 0, xData

.

FUNCTIONEND

.....

. 'GetUserParm'

. This function retrieves a URL parameter by

. keyname found in the EditText1.

.

GetUserParm FUNCTION

ENTRY

.

GETPROP EditText1, TEXT=CgiName

.

SQUEEZE CgiName, CgiName

TYPE CgiName

IF EOS

SETPROP STATTEXT1, TEXT="CGI Name Required!"

RETURN

ENDIF

.

CALL GetCGI USING CgiName, "1" //Fetch URL parameter data!

.

FUNCTIONEND

.

.....

. 'GetField'

. This function retrieves a URL parameter by

. pre-defined (static) keyname.

.

GetField FUNCTION

ENTRY

.

NVAR FORM 3

CNT FORM 3

.

ComboBox1.GetCurSel GIVING NVAR

ComboBox1.GetText GIVING CgiName USING NVAR

.

IF ( NVAR == 0 )

DataList1.ResetContent

ENDIF

.

CALL GetCGI USING CgiName, "2" //Fetch pre-defined HTTP header fields!

.

ComboBox1.GetCount GIVING CNT

INCR NVAR

IF ( NVAR >= CNT )

CLEAR NVAR

ENDIF

ComboBox1.SetCurSel USING NVAR

.

FUNCTIONEND

.

.....

.

FetchQuery_String_Raw FUNCTION

ENTRY

.

R.CgiString Giving DATA Using "QUERY_STRING" //Query_String raw!!

.

PACK xData, "QUERY_STRING='", DATA,"'"

TYPE DATA

IF EOS

SETPROP STATTEXT1, TEXT="URL Query_String not specified!"

RETURN

ENDIF

.

INSERTITEM DataList1, 0, xData

SETPROP STATTEXT1, TEXT="URL QUERY_STRING parameters available!"

.

FUNCTIONEND

.

<form action="http://127.0.0.1:8081/docgi.plc" method="POST" >

<label for="UserName" style="display: inline-block; width: 125px; text-align: right;">User:</label>

<input type="text" name="UserName"><br><br>

<label for="Address" style="display: inline-block;width: 125px; text-align: right;">Address:</label>

<input type="text" name="Address"><br><br>

<input type="text" name="runopt" value="-g100000" style="display: none">

<input type="text" name="cmdline" value="PLB command line;and More upto 250 bytes!" style="display: none">

<input type="submit" value="Run 'docgi.plc'">

</form>