All I include in something done by the form designer

You need some new stunning features ? Tell us here.
Post Reply
cleber
New User
New User
Posts: 9
Joined: Mon May 25, 2015 8:22 pm
Location: Brasil

All I include in something done by the form designer

Post by cleber »

Hi,

All I include in something done by the form designer, disappears when compiled, including comments.

What should I do?

att.,
Cleber
Top
IdeasVacuum
Always Here
Always Here
Posts: 6425
Joined: Fri Oct 23, 2009 2:33 am
Location: Wales, UK
Contact:
Contact IdeasVacuum

Re: All I include in something done by the form designer

Post by IdeasVacuum »

Must be something simple - post your code here
IdeasVacuum
If it sounds simple, you have not grasped the complexity.
Top
cleber
New User
New User
Posts: 9
Joined: Mon May 25, 2015 8:22 pm
Location: Brasil

Re: All I include in something done by the form designer

Post by cleber »

;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
; Teste de comentário

IncludeFile "\qmsys\syscom\qmclient.unicode.pb"

Global Window_1

Global Button_0

Enumeration FormFont
#Font_Window_1_0
EndEnumeration

LoadFont(#Font_Window_1_0,"MS Sans Serif", 8)

Declare CheckConnected(EventType)

Procedure OpenWindow_1(x = 0, y = 0, width = 600, height = 400)
Window_1 = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu)
Button_0 = ButtonGadget(#PB_Any, 320, 250, 100, 25, "")
SetGadgetFont(Button_0, FontID(#Font_Window_1_0))
EndProcedure

Procedure Window_1_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False

Case #PB_Event_Menu
Select EventMenu()
EndSelect

Case #PB_Event_Gadget
Select EventGadget()
Case Button_0
CheckConnected(EventType())
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
Top
cleber
New User
New User
Posts: 9
Joined: Mon May 25, 2015 8:22 pm
Location: Brasil

Re: All I include in something done by the form designer

Post by cleber »

Declare QMCall0(Subrname.s)
Declare QMCall1(Subrname.s, Arg1.s)
Declare QMCall2(Subrname.s, Arg1.s, Arg2.s)
Declare QMCall3(Subrname.s, Arg1.s, Arg2.s, Arg3.s)
Declare QMCall4(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s)
Declare QMCall5(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s)
Declare QMCall6(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s)
Declare QMCall7(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s)
Declare QMCall8(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s)
Declare QMCall9(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s)
Declare QMCall10(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s)
Declare QMCall11(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s)
Declare QMCall12(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s)
Declare QMCall13(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s)
Declare QMCall14(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s)
Declare QMCall15(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s)
Declare QMCall16(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s)
Declare QMCall17(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s)
Declare QMCall18(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s)
Declare QMCall19(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s, Arg19.s)
Declare QMCall20(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s, Arg19.s, Arg20.s)
Declare.s QMChange(Src.s, Old.s, New.s, Occ.l, Start.l)
Declare QMClearFile(Fileno.l)
Declare QMClearSelect(ListNo.l)
Declare QMClose(Fileno.l)
Declare.l QMConnect(Host.s, Port.l, User.s, Password.s, Account.s)
Declare.l QMConnected()
Declare.l QMConnectLocal(Account.s)
Declare.l QMConnectPool(Host.s, Port.l, User.s, Password.s, Account.s, PoolName.s)
Declare.l QMDcount(String.s, Delim.s)
Declare QMDebug(Type.l)
Declare.s QMDecrypt(EncryptedData.s, Keystring.s)
Declare.s QMDel(Src.s, Fno.l, Vno.l, SvNo.l)
Declare QMDelete(Fileno.l, Id.s)
Declare QMDeleteu(Fileno.l, Id.s)
Declare QMDisconnect()
Declare QMDisconnectAll()
Declare.s QMEncrypt(DecryptedData.s, Keystring.s)
Declare QMEndCommand()
Declare.s QMError()
Declare.l QMOpen(Filename.s)
Declare.s QMRead(Fileno.l, Id.s, *Err)
Global QMLib
Global Connected
Procedure OpenQMClientLibrary()
If QMLib = 0
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
LibPath$ = "/usr/qmsys/bin/qmclilib.so"
CompilerCase #PB_OS_Windows
LibPath$ = "c:\qmsys\bin\qmclilib.dll"
CompilerEndSelect
QMLib = OpenLibrary(#PB_Any, LibPath$)
If QMLib = 0
PrintN("Cannot open " + LibPath$)
End
EndIf
EndIf
EndProcedure
Procedure CheckConnected()
If Connected = 0
PrintN("QMClient server function attempted when not connected")
End
EndIf
EndProcedure
Procedure QMCall0(Subrname.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 0)
EndProcedure
Procedure QMCall1(Subrname.s, Arg1.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 1, *Arg1)
EndProcedure
Procedure QMCall2(Subrname.s, Arg1.s, Arg2.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 2, *Arg1, *Arg2)
EndProcedure
Procedure QMCall3(Subrname.s, Arg1.s, Arg2.s, Arg3.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 3, *Arg1, *Arg2, *Arg3)
EndProcedure
Procedure QMCall4(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 4, *Arg1, *Arg2, *Arg3, *Arg4)
EndProcedure
Procedure QMCall5(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 5, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5)
EndProcedure
Procedure QMCall6(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 6, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6)
EndProcedure
Procedure QMCall7(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 7, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7)
EndProcedure
Procedure QMCall8(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 8, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8)
EndProcedure
Procedure QMCall9(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 9, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9)
EndProcedure
Procedure QMCall10(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 10, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10)
EndProcedure
Procedure QMCall11(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 11, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11)
EndProcedure
Procedure QMCall12(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 12, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12)
EndProcedure
Procedure QMCall13(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 13, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13)
EndProcedure
Procedure QMCall14(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 14, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14)
EndProcedure
Procedure QMCall15(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 15, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15)
EndProcedure
Procedure QMCall16(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 16, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15, *Arg16)
EndProcedure
Procedure QMCall17(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 17, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15, *Arg16, *Arg17)
EndProcedure
Procedure QMCall18(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s)
CheckConnected()
CallCFunction(QMLib, "QMCallxW", @Subrname, 18, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15, *Arg16, *Arg17, *Arg18)
EndProcedure
Procedure.s QMChange(Src.s, Old.s, New.s, Occ.l, Start.l)
OpenQMClientLibrary()
*String = CallCFunction(QMLib, "QMChangeW", @Src, @Old, @New, Occ, Start)
If *string
String$ = PeekS(*String)
CallCFunction(QMLib, "QMFree", *String)
EndIf
ProcedureReturn String$
EndProcedure
Procedure.l QMChecksum(Src.s)
OpenQMClientLibrary()
Cs = CallCFunction(QMLib, "QMChecksumW", @Src)
ProcedureReturn Cs
EndProcedure
Procedure QMClearFile(Fileno.l)
CheckConnected()
CallCFunction(QMLib, "QMClearFile", Fileno)
EndProcedure
Procedure QMClearSelect(ListNo.l)
CheckConnected()
CallCFunction(QMLib, "QMClearSelect", ListNo)
EndProcedure
Procedure QMClose(Fileno.l)
CheckConnected()
CallCFunction(QMLib, "QMClose", Fileno)
EndProcedure
Procedure.l QMConnect(Host.s, Port.l, User.s, Password.s, Account.s)
OpenQMClientLibrary()
If Connected
QMDisconnect()
EndIf
Connected = CallCFunction(QMLib, "QMConnectW", @Host, Port, @User, @Password, @Account)
ProcedureReturn Connected
EndProcedure
Procedure QMConnectionType(Type.l)
CheckConnected()
CallCFunction(QMLib, "QMConnectionType", Type)
EndProcedure
Procedure.l QMConnectLocal(Account.s)
OpenQMClientLibrary()
If Connected
QMDisconnect()
EndIf
Connected = CallCFunction(QMLib, "QMConnectLocalW", @Account)
ProcedureReturn Connected
EndProcedure
Procedure.l QMConnectPool(Host.s, Port.l, User.s, Password.s, Account.s, PoolName.s)
OpenQMClientLibrary()
If Connected
QMDisconnect()
EndIf
Connected = CallCFunction(QMLib, "QMConnectPoolW", @Host, Port, @User, @Password, @Account, @PoolName)
ProcedureReturn Connected
EndProcedure
Procedure.l QMConnected()
OpenQMClientLibrary()
ProcedureReturn CallCFunction(QMLib, "QMConnected")
EndProcedure
Procedure.l QMDcount(String.s, Delim.s)
OpenQMClientLibrary()
ProcedureReturn CallCFunction(QMLib, "QMDcountW", @String, @Delim)
EndProcedure
Procedure QMDebug(Mode.l)
OpenQMClientLibrary()
CallCFunction(QMLib, "QMDebug", Mode)
EndProcedure
Procedure.s QMDecrypt(EncryptedData.s, Keystring.s)
OpenQMClientLibrary()
*String = CallCFunction(QMLib, "QMDecrypt", @EncryptedData, @Keystring)
If *string
String$ = PeekS(*String)
CallCFunction(QMLib, "QMFree", *String)
EndIf
ProcedureReturn String$
EndProcedure
Procedure.s QMDel(Src.s, Fno.l, Vno.l, SvNo.l)
OpenQMClientLibrary()
*String = CallCFunction(QMLib, "QMDelW", @Src, Fno, Vno, SvNo)
If *string
String$ = PeekS(*String)
CallCFunction(QMLib, "QMFree", *String)
EndIf
ProcedureReturn String$
EndProcedure
Procedure QMDelete(Fileno.l, Id.s)
CheckConnected()
CallCFunction(QMLib, "QMDeleteW", Fileno, @Id)
EndProcedure
Procedure QMDeleteu(Fileno.l, Id.s)
CheckConnected()
CallCFunction(QMLib, "QMDeleteuW", Fileno, @Id)
EndProcedure
Procedure QMDisconnect()
If Connected
CallCFunction(QMLib, "QMDisconnect")
Connected = 0
EndIf
EndProcedure
Procedure QMDisconnectAll()
If Connected
CallCFunction(QMLib, "QMDisconnectAll")
Connected = 0
EndIf
EndProcedure
Procedure.s QMEncrypt(DecryptedData.s, Keystring.s)
OpenQMClientLibrary()
*String = CallCFunction(QMLib, "QMEncrypt", @DecryptedData, @Keystring)
If *string
String$ = PeekS(*String)
CallCFunction(QMLib, "QMFree", *String)
EndIf
ProcedureReturn String$
EndProcedure
Procedure QMEndCommand()
CheckConnected()
CallCFunction(QMLib, "QMEndCommand")
EndProcedure
Procedure.s QMError()
OpenQMClientLibrary()
*String = CallCFunction(QMLib, "QMErrorW")
If *string
String$ = PeekS(*String)
CallCFunction(QMLib, "QMFree", *String)
EndIf
ProcedureReturn String$
EndProcedure

;===== QMOpen
Procedure.l QMOpen(Filename.s)
\qmsys\syscom\qmclient.unicode.pb
+++++++++++++++++++++++++++++++++++++++++++




CheckConnected()
ProcedureReturn CallCFunction(QMLib, "QMOpenW", @Filename)
EndProcedure

;===== QMRead
Procedure.s QMRead(Fileno.l, Id.s, *Err)
CheckConnected()
*String = CallCFunction(QMLib, "QMReadW", Fileno, @Id, *Err)
If *string
String$ = PeekS(*String)
CallCFunction(QMLib, "QMFree", *String)
EndIf
ProcedureReturn String$
EndProcedure
Top
Julian
Enthusiast
Enthusiast
Posts: 276
Joined: Tue May 24, 2011 1:36 pm

Re: All I include in something done by the form designer

Post by Julian »

cleber wrote:; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
Read this post:
http://www.purebasic.fr/english/viewtop ... 81#p465381
Top
User avatar
TI-994A
Addict
Addict
Posts: 2512
Joined: Sat Feb 19, 2011 3:47 am
Location: Singapore
Contact:
Contact TI-994A

Re: All I include in something done by the form designer

Post by TI-994A »

cleber wrote:All I include in something done by the form designer, disappears when compiled...
Hi Cleber, and welcome to the PureBasic forum. :D

That's simply the way the form files work. If you notice, this is clearly stated at the top of the form file source code:
Form Designer wrote:Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
Event procedures needs to be put in another source file.
So let's do that. Save your form file without any modifications, and simply include it in your qmclient.unicode.pb file. Then call its open window and event processing procedures like this (just add the last five lines to your qmclient.unicode.pb code):

Code: Select all

Declare QMCall0(Subrname.s)
Declare QMCall1(Subrname.s, Arg1.s)
Declare QMCall2(Subrname.s, Arg1.s, Arg2.s)
Declare QMCall3(Subrname.s, Arg1.s, Arg2.s, Arg3.s)
Declare QMCall4(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s)
Declare QMCall5(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s)
Declare QMCall6(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s)
Declare QMCall7(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s)
Declare QMCall8(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s)
Declare QMCall9(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s)
Declare QMCall10(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s)
Declare QMCall11(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s)
Declare QMCall12(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s)
Declare QMCall13(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s)
Declare QMCall14(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s)
Declare QMCall15(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s)
Declare QMCall16(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s)
Declare QMCall17(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s)
Declare QMCall18(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s)
Declare QMCall19(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s, Arg19.s)
Declare QMCall20(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s, Arg19.s, Arg20.s)
Declare.s QMChange(Src.s, Old.s, New.s, Occ.l, Start.l)
Declare QMClearFile(Fileno.l)
Declare QMClearSelect(ListNo.l)
Declare QMClose(Fileno.l)
Declare.l QMConnect(Host.s, Port.l, User.s, Password.s, Account.s)
Declare.l QMConnected()
Declare.l QMConnectLocal(Account.s)
Declare.l QMConnectPool(Host.s, Port.l, User.s, Password.s, Account.s, PoolName.s)
Declare.l QMDcount(String.s, Delim.s)
Declare QMDebug(Type.l)
Declare.s QMDecrypt(EncryptedData.s, Keystring.s)
Declare.s QMDel(Src.s, Fno.l, Vno.l, SvNo.l)
Declare QMDelete(Fileno.l, Id.s)
Declare QMDeleteu(Fileno.l, Id.s)
Declare QMDisconnect()
Declare QMDisconnectAll()
Declare.s QMEncrypt(DecryptedData.s, Keystring.s)
Declare QMEndCommand()
Declare.s QMError()
Declare.l QMOpen(Filename.s)
Declare.s QMRead(Fileno.l, Id.s, *Err)
Global QMLib
Global Connected
Procedure OpenQMClientLibrary()
  If QMLib = 0
    CompilerSelect #PB_Compiler_OS
      CompilerCase #PB_OS_Linux
        LibPath$ = "/usr/qmsys/bin/qmclilib.so"
      CompilerCase #PB_OS_Windows
        LibPath$ = "c:\qmsys\bin\qmclilib.dll"
    CompilerEndSelect
    QMLib = OpenLibrary(#PB_Any, LibPath$)
    If QMLib = 0
      PrintN("Cannot open " + LibPath$)
      End
    EndIf
  EndIf
EndProcedure
Procedure CheckConnected()
  If Connected = 0
    PrintN("QMClient server function attempted when not connected")
    End
  EndIf
EndProcedure
Procedure QMCall0(Subrname.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 0)
EndProcedure
Procedure QMCall1(Subrname.s, Arg1.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 1, *Arg1)
EndProcedure
Procedure QMCall2(Subrname.s, Arg1.s, Arg2.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 2, *Arg1, *Arg2)
EndProcedure
Procedure QMCall3(Subrname.s, Arg1.s, Arg2.s, Arg3.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 3, *Arg1, *Arg2, *Arg3)
EndProcedure
Procedure QMCall4(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 4, *Arg1, *Arg2, *Arg3, *Arg4)
EndProcedure
Procedure QMCall5(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 5, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5)
EndProcedure
Procedure QMCall6(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 6, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6)
EndProcedure
Procedure QMCall7(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 7, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7)
EndProcedure
Procedure QMCall8(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 8, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8)
EndProcedure
Procedure QMCall9(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 9, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9)
EndProcedure
Procedure QMCall10(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 10, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10)
EndProcedure
Procedure QMCall11(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 11, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11)
EndProcedure
Procedure QMCall12(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 12, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12)
EndProcedure
Procedure QMCall13(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 13, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13)
EndProcedure
Procedure QMCall14(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 14, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14)
EndProcedure
Procedure QMCall15(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 15, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15)
EndProcedure
Procedure QMCall16(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 16, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15, *Arg16)
EndProcedure
Procedure QMCall17(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 17, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15, *Arg16, *Arg17)
EndProcedure
Procedure QMCall18(Subrname.s, Arg1.s, Arg2.s, Arg3.s, Arg4.s, Arg5.s, Arg6.s, Arg7.s, Arg8.s, Arg9.s, Arg10.s, Arg11.s, Arg12.s, Arg13.s, Arg14.s, Arg15.s, Arg16.s, Arg17.s, Arg18.s)
  CheckConnected()
  CallCFunction(QMLib, "QMCallxW", @Subrname, 18, *Arg1, *Arg2, *Arg3, *Arg4, *Arg5, *Arg6, *Arg7, *Arg8, *Arg9, *Arg10, *Arg11, *Arg12, *Arg13, *Arg14, *Arg15, *Arg16, *Arg17, *Arg18)
EndProcedure
Procedure.s QMChange(Src.s, Old.s, New.s, Occ.l, Start.l)
  OpenQMClientLibrary()
  *String = CallCFunction(QMLib, "QMChangeW", @Src, @Old, @New, Occ, Start)
  If *string
    String$ = PeekS(*String)
    CallCFunction(QMLib, "QMFree", *String)
  EndIf
  ProcedureReturn String$
EndProcedure
Procedure.l QMChecksum(Src.s)
  OpenQMClientLibrary()
  Cs = CallCFunction(QMLib, "QMChecksumW", @Src)
  ProcedureReturn Cs
EndProcedure
Procedure QMClearFile(Fileno.l)
  CheckConnected()
  CallCFunction(QMLib, "QMClearFile", Fileno)
EndProcedure
Procedure QMClearSelect(ListNo.l)
  CheckConnected()
  CallCFunction(QMLib, "QMClearSelect", ListNo)
EndProcedure
Procedure QMClose(Fileno.l)
  CheckConnected()
  CallCFunction(QMLib, "QMClose", Fileno)
EndProcedure
Procedure.l QMConnect(Host.s, Port.l, User.s, Password.s, Account.s)
  OpenQMClientLibrary()
  If Connected
    QMDisconnect()
  EndIf
  Connected = CallCFunction(QMLib, "QMConnectW", @Host, Port, @User, @Password, @Account)
  ProcedureReturn Connected
EndProcedure
Procedure QMConnectionType(Type.l)
  CheckConnected()
  CallCFunction(QMLib, "QMConnectionType", Type)
EndProcedure
Procedure.l QMConnectLocal(Account.s)
  OpenQMClientLibrary()
  If Connected
    QMDisconnect()
  EndIf
  Connected = CallCFunction(QMLib, "QMConnectLocalW", @Account)
  ProcedureReturn Connected
EndProcedure
Procedure.l QMConnectPool(Host.s, Port.l, User.s, Password.s, Account.s, PoolName.s)
  OpenQMClientLibrary()
  If Connected
    QMDisconnect()
  EndIf
  Connected = CallCFunction(QMLib, "QMConnectPoolW", @Host, Port, @User, @Password, @Account, @PoolName)
  ProcedureReturn Connected
EndProcedure
Procedure.l QMConnected()
  OpenQMClientLibrary()
  ProcedureReturn CallCFunction(QMLib, "QMConnected")
EndProcedure
Procedure.l QMDcount(String.s, Delim.s)
  OpenQMClientLibrary()
  ProcedureReturn CallCFunction(QMLib, "QMDcountW", @String, @Delim)
EndProcedure
Procedure QMDebug(Mode.l)
  OpenQMClientLibrary()
  CallCFunction(QMLib, "QMDebug", Mode)
EndProcedure
Procedure.s QMDecrypt(EncryptedData.s, Keystring.s)
  OpenQMClientLibrary()
  *String = CallCFunction(QMLib, "QMDecrypt", @EncryptedData, @Keystring)
  If *string
    String$ = PeekS(*String)
    CallCFunction(QMLib, "QMFree", *String)
  EndIf
  ProcedureReturn String$
EndProcedure
Procedure.s QMDel(Src.s, Fno.l, Vno.l, SvNo.l)
  OpenQMClientLibrary()
  *String = CallCFunction(QMLib, "QMDelW", @Src, Fno, Vno, SvNo)
  If *string
    String$ = PeekS(*String)
    CallCFunction(QMLib, "QMFree", *String)
  EndIf
  ProcedureReturn String$
EndProcedure
Procedure QMDelete(Fileno.l, Id.s)
  CheckConnected()
  CallCFunction(QMLib, "QMDeleteW", Fileno, @Id)
EndProcedure
Procedure QMDeleteu(Fileno.l, Id.s)
  CheckConnected()
  CallCFunction(QMLib, "QMDeleteuW", Fileno, @Id)
EndProcedure
Procedure QMDisconnect()
  If Connected
    CallCFunction(QMLib, "QMDisconnect")
    Connected = 0
  EndIf
EndProcedure
Procedure QMDisconnectAll()
  If Connected
    CallCFunction(QMLib, "QMDisconnectAll")
    Connected = 0
  EndIf
EndProcedure
Procedure.s QMEncrypt(DecryptedData.s, Keystring.s)
  OpenQMClientLibrary()
  *String = CallCFunction(QMLib, "QMEncrypt", @DecryptedData, @Keystring)
  If *string
    String$ = PeekS(*String)
    CallCFunction(QMLib, "QMFree", *String)
  EndIf
  ProcedureReturn String$
EndProcedure
Procedure QMEndCommand()
  CheckConnected()
  CallCFunction(QMLib, "QMEndCommand")
EndProcedure
Procedure.s QMError()
  OpenQMClientLibrary()
  *String = CallCFunction(QMLib, "QMErrorW")
  If *string
    String$ = PeekS(*String)
    CallCFunction(QMLib, "QMFree", *String)
  EndIf
  ProcedureReturn String$
EndProcedure

;===== QMOpen
Procedure.l QMOpen(Filename.s)
  \qmsys\syscom\qmclient.unicode.pb
  +++++++++++++++++++++++++++++++++++++++++++ 
  CheckConnected()
  ProcedureReturn CallCFunction(QMLib, "QMOpenW", @Filename)
EndProcedure

;===== QMRead
Procedure.s QMRead(Fileno.l, Id.s, *Err)
  CheckConnected()
  *String = CallCFunction(QMLib, "QMReadW", Fileno, @Id, *Err)
  If *string
    String$ = PeekS(*String)
    CallCFunction(QMLib, "QMFree", *String)
  EndIf
  ProcedureReturn String$
EndProcedure


;###### ADD THIS CODE TO "qmclient.unicode.pb" #################

  ;replace with the name of your form file
  XIncludeFile "yourFormFileName.pbf"   
  
  OpenWindow_1()
  
  Repeat
    event = WaitWindowEvent()
  Until Window_1_Events(event) = #False

;###############################################################
Make sure to change this line [ XIncludeFile "yourFormFileName.pbf" ] with the actual name of your form file.

Then, run the program from your qmclient.unicode.pb file, and not the form file.

That should work. :wink:
Texas Instruments TI-99/4A Home Computer: the first home computer with a 16bit processor, crammed into an 8bit architecture. Great hardware - Poor design - Wonderful BASIC engine. And it could talk too! Please visit my YouTube Channel :D
Top
cleber
New User
New User
Posts: 9
Joined: Mon May 25, 2015 8:22 pm
Location: Brasil

Re: All I include in something done by the form designer

Post by cleber »

thank you guys,

So, does it work?

Code: Select all

XIncludeFile "yourFormFileName.pbf"   
IncludeFile "qmclient.unicode.pb"
 
  OpenWindow_1()
 
  Repeat
    event = WaitWindowEvent()
  Until Window_1_Events(event) = #False
Top
fromVB
User
User
Posts: 81
Joined: Sun Jul 29, 2012 2:27 am

Re: All I include in something done by the form designer

Post by fromVB »

cleber wrote:thank you guys,

So, does it work?
You tell us!
Top
Post Reply

Return to “The PureBasic Form Designer”