29 WLANGUAGE CODE SAMPLES (5GL)

// Saves the document found in the scanner in the "MyPhoto.JPEG" file
// The document will be saved in black and white
IF TwainToBMP("C:\Temp\MyPhoto.BMP", False, TwainBlackWhite) = True THEN
Info("The document was saved")
ELSE
Error("The document was not scanned")
END

// Reads the "Language" value in the "HKEY_LOCAL_MACHINE\SOFTWARE\App" key
// ResExecute is a boolean used to find out whether the value was read
ResRead = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\App", "Language", ResExecute)

IF ResExecute = True THEN
Info("The value was read and it is set to: " + ResRead)
END

Value is int 
SelectionResult is boolean

Value =  RGB(10, 17, 69)
Info("Initial color: " + Value)
SelectionResult = SelectColor(Value, scInit)
Info("Final color: " + Value)

// Displays the number of days passed since 01/01/1998
Info(NumToString(DateDifference("19980101", DateSys())) + "days spent")

sFilePath is string
sResFileName is string

sFilePath = "C:\MyDirectories\File.psw"

// Retrieve the name of the file
sResFileName = fExtractPath(sFilePath, fFileName)
// sResFileName corresponds to "File"

Info(NumberInWords(83.335))
// Displays "eighty three point thirty four"

Info(NumberInWords(1.10, "Euro(s)"))
// Displays "one Euro ten"

Info(NumberInWords(1.01, "Euro(s)", "cent(s)"))
// Displays "one Euro and one cent"

IF EmailStartSession(USER, PASSWORD, "pop3.gmail.com", ...
"smtp.gmail.com") = True THEN
UserName = USER
ELSE
  UserName = ""
  Error("Unable to establish the connection")
END

// Initializes the email components
// The sender
Email.Sender = "<user@pcsoft.fr>"
// The recipient
Email.Recipient[1] = RECIPIENT
// The number of recipients
Email.NbRecipient = 1
// The subject
Email.Subject = SUBJECT
// The message body
Email.Message = TEXT
// The number of attachments
Email.NbAttach = 0

// Sends the email
IF EmailSendMessage(UserName) = False THEN
Error()
END

// Add the "C:\Icons\Icon.ICO" icon into the taskbar
ResAddIcon = SysIconAdd("C:\Icons\Icon.ICO", "", "Sales 2013")

// Saves in memory the image found in "IMG_ImageDrawing"
ResSave = dSaveImageJPEG(IMG_ImageDrawing, inMemory)

// Declaration of variables
Value is int
SelectionResult is boolean
Price is real
x,j,k are int

// Runs the click code on a button
ExecuteProcess(BTN_Save, trtClick)

// Run a thread while passing parameters
sDate is string 
sDate = DateSys()
// Run the thread
ThreadExecute("THREADNAME", threadNormal, "pExecQry", sDate)

// Details of the "pExecQry" procedure 
// This procedure expects a date in parameter of a query
PROCEDURE pExecQry(sDate)
IF HExecuteQuery(Del_Date, hQueryDefault, sDate) = False THEN
Error(HErrorInfo())
ELSE
HReadFirst(Del_Date)
END

// No button in the preview
iParameterPreview(iButtonNone)
iPreview()
iPrintReport(RPT_MyReport)

// Print a report based on a query without parameter in an HTML file
// Generate a unique file name
MyReportFile is string = fWebDir() + "\" + "ReportQuery_" + DateSys() + TimeSys() + ".htm"
// Configure the destination of the print
iDestination(iHTML, MyReportFile)
// Print the RPT_QueryReport report
iPrintReport(RPT_QueryReport)
// Extract the name and extension of the generated file
NameGeneratedFile is string = fExtractPath(MyReportFile, fFileName + fExtension)
// Send the file to the browser
PageDisplay(NameGeneratedFile)

// Generate a unique PDF file name
AFile is string  
AFile = fWebDir() + "\" + DateSys() + TimeSys() + ".pdf" 
// Configure the destination of the print 
iDestination(iPDF, AFile) 
// Print the RPT_InvoicePDF report
iPrintReport(RPT_InvoicePDF) 
// Send the file to the browser 
FileDisplay(AFile, "application/pdf") 
// Delete the file 
fDelete(AFile)

// In this example, the password is "password"
iParameterPDF("opening", "password", iProtectionPrinting + iProtectionSelection)

// Create the PDF file
iPreview(iPDF, "MyPDF.PDF")

// Code for print
iCreateFont(1, 16, iBold, iRoman)
iPrintWord("First line of my PDF" + CR + "Second line of my PDF" + ...
CR + "Last line of my PDF")

// End of print and close the created PDF file
iEndPrinting()

// Display the PDF
ShellExecute(iLastFile())

// PCL printer to use
iDestination(iPCL, "\\MyNetwork\MyPrinter")

iDestination(iPCL, "\MyDocuments\MyFile.PCL")

IF tapiDial(EDT_PhoneNumber, "LineStatus")=True THEN 
Info("Click OK to hang up") 
tapiHangUp() 
END

PROCEDURE TestLineStatus(ValueLineStatus is int) 
SWITCH ValueLineStatus 
CASE tapiLineBusy: Message("The line is busy") 
CASE tapiLineConnected: Message("OK, connected")
CASE tapiLineDialing: Message("Dialing in progress") 
CASE tapiLineDialTone: Message("Dial tone")
CASE tapiLineDisconnected: Message("The correspondent has hung up")
CASE tapiLineProceeding: Message("Searching for your correspondent")
CASE tapiLineRingBack: Message("Ringing")
END

// Interest rate for a loan of 25000 Euros. Six payments
// of 5000 Euros are required to pay off the loan.
ResInterestRate = FinInterestRate(6, -5000, 25000)

// Exit according to an IF condition
LOOP
// Read a line in the text file
ALine = fReadLine(FileNum)
IF ALine = EOT THEN BREAK
ProcessLine(ALine)
END

MyList = INIRead("Examples", "", "", INIFile)
Keyword = ExtractString(MyList, nb, CR)
WHILE Keyword <> ""
nb = nb + 1
ExplName = INIRead("Projects installed", Keyword, "", INIFile)
Keyword = ExtractString(MyList, nb + 1, CR)
END

// Exit according to an iteration
LOOP (10)
// Read a line in the text file
ALine = fReadLine(FileNum)
ProcessLine(ALine)
END

sFile is string
// Asks for the name of the file
sFile = fSelect("", "", "Choose the export file", ...
"Excel files (*.xls) *.xls", "xls", fselCreate + fselExist)
// If the name was not specified, cancels the export
// Otherwise, exports the content of TABLE_TABLE1
IF sFile <> "" THEN TableToWord(TABLE_TABLE1, sFile, taNoTitle)

sFile is string
// Name of the file
sFile = fSelect("", "", "Choose the export file", ...
"XML files (*.XML) *.xml", "xml", fselCreate + fselExist)
// The export is canceled if no name was specified
// Otherwise, export the content of TABLE_TABLE1
IF sFile <> "" THEN TableToXML(TABLE_TABLE1, sFile, taNoTitle)

sFile is string
// Asks for the name of the file
sFile = fSelect("", "", "Choose the export file", ...
"Word files (*.rtf) *.rtf", "rtf", fselCreate + fselExist)
// If the name was not specified, cancels the export
// Otherwise, exports the content of TABLE_TABLE1
IF sFile <> "" THEN TableToWord(TABLE_TABLE1, sFile, taNoTitle)

// Initialize the SMS structure for a standard number 
SMS.Number = "0610203040" 
SMS.Message = "I am sending SMSs with WINDEV Mobile!" 

// Send the SMS 
ResSend is boolean = SMSSend() 

// Error occurred? 
IF ResSend = False THEN 
Error(ErrorInfo(errMessage)) 
END

ConnectID is int
ConnectID = FaxConnect()
IF ConnectID = 0 THEN 
Error("The connection to the fax server failed." + ...
 "Check whether it has been started", ...
ErrorInfo(errSystemMessage))
ELSE
 ListAdd(LIST_FaxSend, FaxOutbox(ConnectID))
END
...
// Click code of the list box
IF FaxStatus(LIST_FaxSend..DisplayedValue) = FaxStatusHandled THEN
 FaxRestart(LIST_FaxSend..DisplayedValue) 
END

...
FaxDisconnect(ConnectID)

Result1 = sOpen(1, 2000, 2000) // Open COM1
IF Result1 = True THEN
// Configure Com1: Rate 9600, even parity, 
// 8 data bits, 1 stop bit
sParameter(1, 9600, 1, 8, 0) // Configure COM1 
// Rest of process...
sClose(1) // Close COM1
ELSE
Error("Error while opening COM1")
END