Windev Forum - WinDev Solutions

Printing/sending invoices with correct line sequence (no replies)

Mike James — Thu, 19 Mar 2026 23:52:08 +0100

I generate invoice as PDFs or files of various types, eg XML, CSV. I had trouble retaining the original line sequence as per the source transaction.

Typically I scan a data source of invoice headers, and within the scan I filter another data source for all the invoice lines for that invoice, then scan those lines to generate the output:

FOR EACH
- Using HFilter, filter the invoice lines data source for that invoice (ordered by invoice and linenumber)
- FOR EACH
- - Print the invoice report or create the output file

I tried 3 different ways to filter the invoice lines data:

1. FOR...EACH - did not return the correct set of data, even though a display of the data source in the debugger showed the correct set of lines.

2. WHILE HOut() - correct invoice set but the lines were in random order

3. FOR EACH where "saleid = '" + .saleid + "'" ON LineNumber

#3 worked correctly. The "where clause" created the correct subset of data, and "ON linenumber" retained the correct line sequence.

See [doc.windev.com].

This may be well known but not to me. Shared for anyone who can benefit!

Available Windev Dongles for Sale (V21 and V26) (1 reply)

mitchlove — Thu, 23 Nov 2023 18:13:47 +0100

Dear Windev Coders,

I am selling my Windev dongle version 21 and version 26.
Name your price.

for interested you can message me directly..

Ciao!

lost password *.fic file HFSQL (2 replies)

amiolodev — Wed, 22 Mar 2023 18:48:08 +0100

Hello everyone and Thank you in advance for the Help
i forget my password for *.FIC files HFSQL server and i also lost the analyse file for programming a new password for those FIC files, is there a way to retrieve the data ? how i can resolve this problem ? X(

api webservice REST cals (no replies)

Allard — Mon, 20 Mar 2023 22:50:48 +0100

Hi I have been looking at webservices in windev and I was wondereing if they do support : "Asynchronous" webserice calls ?

Any body any Idea . I can not foind it on the help

regards

Renko Allard

WinDev LPR (DOS) Function (no replies)

erich45 — Tue, 30 Mar 2021 16:39:47 +0200

Hello

My solution will not work:
For a exotic Labelprinter I have to send Binary data direct to the printer.
I do this creating a File with the data.
Then I create a DOS Batch file as follow:
Cmd is string = "c:\windows\system32\LPR.exe -S " + Computername + " -P " + Printername + " " + Filename + " -ol"
an write it to my disk: fSaveText("C:\Temp\Batch.bat", Cmd)

This Batch can I start manualy without any problems, it works.
But unfortunately I am not able to start the batch by WinDev
I tryed 'exerun', 'DDEstart' (DDEStart("C:\Temp\Batch.bat"))
whatever i try, it does'nt work

Anybody can help me ?

Thanks in advance
Erich

How to Run a MS SQL Store Procedure and get the Value from it to a Variable (3 replies)

MPD_For_Life — Tue, 22 Aug 2023 12:29:41 +0200

Hello everyone and Thank you in advance for the Help

I have this stored procedure inside a Microsoft Sequel Database which gets me the Date and Time of the Server.

Name of the Procedure: Get_The_Date_And_Time

Structure of the Procedute

CREATE PROCEDURE dbo.Get_The_Date_And_Time
AS
BEGIN
/* Procedure body */
DECLARE @Date_And_Time as date SELECT Date_And_Time = GETDATE();
END

The result of the Procedure if executed is the following:
Under the Column Name "Get_The_Date_And_Time" The result is the Following

2/8/2021 8:10:19 PM <-------- This is the Date and Time of the Server when the stored procedure is Executed

My question is: How can I run this store procedure from within WinDev or WebDev and put the result in a Variable, for Example varServerDate.

I have tried different things HExecuteProcedure() This does not work with ODBC Connection
I Have tried with HExecuteSQLQuery Get errors
I have tried SQLExec got errors too

Nothing works

I would really appreciate it you can give me a hand on this and perhaps a code Example can be provided since I have no clue where to start.

Thank you so Much

Best regards,
Carlos

HFSQL Export Tool for PostgreSQL, MySQL and MariaDB (1 reply)

apredl — Wed, 23 Nov 2022 16:46:03 +0100

HFSQLExport

HFSQL analysis and data exports a SQL script for MySQL, MariaDB and PostgreSQL.

Direct export for PostgreSQL is not ready, but can be done (needs time)

If anyone wants to extend this little tool, sources are available at request.

Replacement for IsNumeric() (no replies)

Sebastian Arnold — Tue, 09 Aug 2016 13:30:44 +0200

A few weeks ago I discovered that

IsNumeric("02NST2")

returns True. Well, I don't agree with this result.

So I needed a workaround. And this is what I ended up with:

MatchRegularExpression("02NST2","[0-9]+") -> False

HTH
Sebastian

C# example using WD 16 .NET assembly (1 reply)

Jeff Graham — Thu, 16 May 2024 15:07:32 +0200

I have stopped my attempt to use C# for finger scanners for now but I can give anyone interested my test project and C# solution if it is of interest. Just send me an email or post your email here and I will get the code to you.

I encourage all that use .NET to add to this sample or add their own suggestions.

Jeff Graham
Cascade Consulting

Related threads:
[forum.mysnip.de]
[forum.mysnip.de]
[forum.mysnip.de]
[forum.mysnip.de]
[forum.mysnip.de]

Code for WD .NET assembly class

// .NET assebly for accessing HF Fingerprints and Accounts from C#

//--- LOG ----------------------------------------------------------------------------------------------------------------------------------
//2011-09-06	JWG		clHFAccess		- New class
//2011-11-08    JWG     Note that properties do not seem to show in C# even if marked PUBLIC => must have Get.. and Set.. methods
//--- END LOG ------------------------------------------------------------------------------------------------------------------------------

clHFAccess is class 
	PRIVATE
		m_cnxHFConn is Connection
		m_bufFingerprints is Buffer
		m_sTestString is string = "Default value!"	
		gm_sDataPath is string = ""
	PUBLIC
		gm_bIsConnected is boolean = False
		gm_iNbrRecords is int = 0
	END


PROCEDURE PUBLIC p_sDataPath()
RESULT gm_sDataPath

PROCEDURE PUBLIC p_sDataPath(sValue is string)
HCloseConnection(m_cnxHFConn)
gm_bIsConnected = False
IF fDirectoryExist(sValue) THEN 
	m_cnxHFConn..Source = sValue
	IF HOpenConnection(m_cnxHFConn) THEN 
		IF HChangeConnection(Fingerprints,m_cnxHFConn) THEN // Only file used by this .NET dll
			gm_bIsConnected = True
			gm_iNbrRecords = HNbRec(Fingerprints)    
			gm_bIsConnected = False
			gm_sDataPath = sValue
		END
	END
END
PROCEDURE PUBLIC p_sTestString()
RESULT m_sTestString

PROCEDURE PUBLIC p_sTestString(par_Value is string)
m_sTestString = par_Value

PROCEDURE Constructor()
// Set public property to indicate HF is connected
//gm_sDataPath = fDataDir()  // This does not work as fDataDir unique to WinDev
gm_sDataPath = fCurrentDir()
m_cnxHFConn..Provider=hAccessHF7
m_cnxHFConn..Password = ""
m_cnxHFConn..Source=fDataDir()  //+"\Fingerprints.fic" 
IF HOpenConnection(m_cnxHFConn) THEN 
	IF HChangeConnection(Fingerprints,m_cnxHFConn) THEN // Only file used by this .NET dll
		gm_bIsConnected = True
		gm_iNbrRecords = HNbRec(Fingerprints)    
		gm_bIsConnected = False
	END
END
RESULT gm_bIsConnected
PROCEDURE Destructor()
// NOTE - This code causes AccessViolationException
//if gm_bIsConnected then
//	HCloseConnection(m_cnxHFConn)
//END

// Summary: 
// Syntax:
//[  = ] GetNextFingerprint ( is int,  is int,  is int, )
//
// Parameters:
//	ID (int): Fingerprints ID
//	iAccountsID (int): AccMeals account identifier
//	iDistrictStudentNbr (int): Unique identifier of student
//	aFeatures: Template data
// Return Value:
// 	boolean: // 	None
//
// For instance:
// Indicate an example.
//
//PROCEDURE GetNextFingerprint(LOCAL ID is int, LOCAL iAccountsID is int, LOCAL iDistrictStudentNbr is int, LOCAL aFeatures is array of byte ) 
PROCEDURE GetNextFingerprint(ID is int, iAccountsID is int, iDistrictStudentNbr is int, aFeatures) // is array of byte )
bResult is boolean = HReadNext(Fingerprints,ID,hLockNo)
IF bResult THEN
	ID = Fingerprints.ID
	iAccountsID = Fingerprints.AccountsID
	iDistrictStudentNbr = Fingerprints.DistrictStudentNbr
	IF Fingerprints.Features..Null = False THEN  
		 //		aFeatures = Fingerprints.Features
		Deserialize(aFeatures,Fingerprints.Features,psdBinary)
	END
END
RESULT bResult
//result gm_bIsConnected

// Summary: 
// Syntax:
//[  = ] GetTestString ()
//
// Parameters:
//	None
// Return Value:
// 	string: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE GetTestString()
RESULT m_sTestString

// Summary: 
// Syntax:
//SetTestString ( is string)
//
// Parameters:
//	sValue (string): 
// Return Value:
// 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE SetTestString(LOCAL sValue is string)
m_sTestString = sValue


//PROCEDURE GetFirstFingerprint(local ID is int, LOCAL iAccountsID is int, LOCAL iDistrictStudentNbr is int, LOCAL aFeatures is array of byte )
PROCEDURE GetFirstFingerprint(ID is int, iAccountsID is int, iDistrictStudentNbr is int, aFeatures) // is array of byte )
bResult is boolean = HReadFirst(Fingerprints)
IF bResult THEN
	ID = Fingerprints.ID
	iAccountsID = Fingerprints.AccountsID
	iDistrictStudentNbr = Fingerprints.DistrictStudentNbr
	IF Fingerprints.Features..Null = False THEN 
//		aFeatures = Fingerprints.Features
		Deserialize(aFeatures,Fingerprints.Features,psdBinary)
	END
END
RESULT bResult
// Summary: 
// Syntax:
//[  = ] WriteData ( is int,  is int,  is string,  is array)
//
// Parameters:
//	iAccountsID (int): 
//	iDistrictStudentNbr (int): 
//	sFingerID (string): 
//	aTemplate (array): 
// Return Value:
// 	boolean: // 	None
//
// For instance:
// Indicate an example.
//
//PROCEDURE WriteData(iAccountsID is int, iDistrictStudentNbr is int, sFingerID is string, aFeatures is array of byte  )  // This causes "ref " calls

PROCEDURE WriteData(LOCAL iAccountsID is int, LOCAL iDistrictStudentNbr is int, LOCAL sFingerID is string, LOCAL aTemplate is array of 1-byte unsigned int )

bSuccess is boolean = False
HReset(Fingerprints)
Fingerprints.AccountsID = iAccountsID
Fingerprints.DistrictStudentNbr = iDistrictStudentNbr
Fingerprints.FingerID = sFingerID
//Serialize(aFeatures,Fingerprints.Features,psdBinary)
//Fingerprints.Features = aTemplate  // just puts address in binary field
bufTemplate is Buffer
Serialize(aTemplate,bufTemplate,psdBinary)
Fingerprints.Features = bufTemplate

IF HAdd(Fingerprints) THEN
	bSuccess = True
END
gm_iNbrRecords = HNbRec(Fingerprints)    // Update class info
RESULT bSuccess
// Summary: 
// Syntax:
//[  = ] TestA ( is int,  is array)
//
// Parameters:
//	p1 (int): 
//	p2 (array): 
// Return Value:
// 	boolean: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE TestA(p1 is int,p2 is array of byte)
temp is array of byte = [1,2,3]
p1 += 1
p2 = temp
RESULT True
// Summary: 
// Syntax:
//[  = ] TestB ( is int, )
//
// Parameters:
//	p1 (int): 
//	p2: 
// Return Value:
// 	boolean: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE TestB(p1 is int, p2)
temp is array of byte = [2,3,4,5]
p1 += 1
p2 = temp
RESULT True


// Summary: 
// Syntax:
//[  = ] TestC ( is int [,  is array])
//
// Parameters:
//	p1 (int): 
//	p2 (array - default value=0): 
// Return Value:
// 	boolean: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE TestC(p1 is int,p2 is array of 1-byte unsigned int = Null)
temp is array of byte = [10,11,12]
p1 += 1
IF MyParameters..NbReceived = 2 THEN
	p2 = temp
	RESULT True
ELSE
	RESULT False
END

// Summary: 
// Syntax:
//[  = ] TestD ( is int,  is COMObject)
//
// Parameters:
//	p1 (int): 
//	p2 (COMObject): 
// Return Value:
// 	boolean: // 	None
//
// For instance:
// Indicate an example.
//
//	p1 (int): 
//	p2 (array - default value=0): 
PROCEDURE TestD(p1 is int, p2 is COMObject)
temp is array of byte = [13,14,15]
p1 += 1
IF MyParameters..NbReceived = 2 THEN
	p2 = temp
	RESULT True
ELSE
	RESULT False
END

// Summary: 
// Syntax:
//[  = ] GetDataPath ()
//
// Parameters:
//	None
// Return Value:
// 	string: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE GetDataPath()
RESULT p_sDataPath

// Summary: 
// Syntax:
//SetDataPath ( is string)
//
// Parameters:
//	sValue (string): 
// Return Value:
// 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE SetDataPath(LOCAL sValue is string)
p_sDataPath = sValue

// Summary: 
// Syntax:
//[  = ] CloseDB ()
//
// Parameters:
//	None
// Return Value:
// 	boolean: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE CloseDB()
IF HCloseConnection(m_cnxHFConn) THEN
	gm_bIsConnected = False
END
RESULT gm_bIsConnected

C# code

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Data.Odbc;
using System.Data.OleDb;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using Neurotec.Biometrics;
using Neurotec.Licensing;
using WL;


namespace Test_CS
{
    public partial class FormTest : Form
    {
        public FormTest()
        {
            InitializeComponent();
        }
        private string pathTestData = @"D:\BioMetrics\Test_Data";

        private void buttonOLE_Click(object sender, EventArgs e)
        {
            /*
            Connection to a HyperFileSQL Classic database without specifying the analysis:
                Provider=PCSOFT.HFSQL;Initial Catalog=c:\My HyperFileSQL Database
            Connection to a HyperFileSQL Classic database byspecifying the analysis:
                Provider=PCSOFT.HFSQL;Data Source=c:\My HyperFileSQL Database\MyAnalysis.wdd;Initial Catalog=c:\My HyperFileSQL Database
            Connection to a HyperFileSQL Client/Server database:
                Provider=PCSOFT.HFSQL;Data Source=serverdb.mycompany.fr:4910;User ID=admin;Password=secret;Initial Catalog=MyDatabase
            Connection to a HyperFileSQL Client/Server database with password-protected files that use the Russian character set:
                Provider=PCSOFT.HFSQL;Data Source=serverdb.mycompany.fr;User ID=user;Initial Catalog=MyRussianDatabase;Extended Properties="Password=*:secret1;Password=File2:secret2;Language=KOI8-R"
            Note: In this example, all the database files are protected by the "secret1" password except for the "File2" file that is protected by the "secret2" password.
            */

            textOLE.Text = "";
            try
            {
                System.Data.OleDb.OleDbConnection myOleDb = new System.Data.OleDb.OleDbConnection
                    (@"Provider=PCSOFT.HFSQL;Data Source=D:\BioMetrics\\VF_CS_Test\\VF_CS_Test.wdd;Initial Catalog="+pathTestData+";"); //D:\\BioMetrics\\WD_Net\\Exe;");
                    //("Provider=PCSOFT.HFSQL;Data Source=D:\\BioMetrics\\VF_CS_Test\\VF_CS_Test.wdd;Initial Catalog=D:\\BioMetrics\\VF_CS_Test\\exe:");
                    // (Provider=PCSOFT.HFSQL;Data Source=c:\My HyperFileSQL Database\MyAnalysis.wdd;Initial Catalog=c:\My HyperFileSQL Database); 
                    //("Provider=PCSOFT.HFSQL;Data Source=c:\\My HyperFileSQL Database\\MyAnalysis.wdd;Initial Catalog=c:\\My HyperFileSQL Database");
                myOleDb.Open();
                // Specify the Query
                OleDbCommand MyQuery = new OleDbCommand("SELECT ID,AccountsID,DistrictStudentNbr,FingerID,Features FROM FingerPrints",myOleDb);
                // Run the Query
                //OleDbDataReader MyData = MyQuery.ExecuteReader();
                // Read first
                OleDbDataReader MyDataReader = MyQuery.ExecuteReader();
                //MyDataReader.Read();
                // Display
                //textOLE.AppendText(MyDataReader.ToString());
                for (int i = 1; i < 15; i++)
                {
                    if (MyDataReader.Read())
                    {
                        var ID = MyDataReader.GetValue(0);
                        var accountID = MyDataReader.GetValue(1);
                        var districtStudentNbr = MyDataReader.GetValue(2);
                        var fingerID = MyDataReader.GetValue(3);
                        var features = MyDataReader.GetValue(4);
                        // Display
                        textOLE.AppendText(string.Format("ID={0},AccountID={1},FingerID={2},FeaturesType={3}\n ",ID.ToString(),accountID.ToString(),fingerID,features.GetType()));
                    }
                    else
                    {
                        textOLE.AppendText("EOF");
                        break;
                    }
                }
                // Close
                MyDataReader.Close();
                myOleDb.Close();
        
            }
            catch(Exception ex)
            {
                textOLE.AppendText("Error in connect: \n" + ex.Message);
            }
        }
 
        private void buttonMDB_Click(object sender, EventArgs e)
        {
            textMDB.Text = "";
            try
            {
                System.Data.OleDb.OleDbConnection myMDB = new System.Data.OleDb.OleDbConnection
                    ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+pathTestData+@"\FPID.mdb;"); //  D:\\BioMetrics\\VF_CS_Test\\Exe\\FPID.mdb;");
                myMDB.Open();
                // Specify the Query
                OleDbCommand MyQuery = new OleDbCommand("SELECT AccountsID FROM FingerPrints",myMDB);
                OleDbCommand myCommand = myMDB.CreateCommand();
                myCommand.CommandText = "FingerPrints";
                // Run the Query
                OleDbDataReader MyDataReader = MyQuery.ExecuteReader();

                for (int i = 1; i < 15; i++)
                {
                    MyDataReader.Read();
                    var accountID = MyDataReader.GetValue(0);
                    // Display
                    textMDB.AppendText(accountID.ToString() + "; ");
                }
                // Close
                MyDataReader.Close();
                myMDB.Close();

            }
            catch (Exception ex)
            {
                textMDB.AppendText("Error in MDB: \n" + ex.Message);
            }

        }

        private void buttonConvert_Click(object sender, EventArgs e)
        {

            textConvert.Text = "Start of test.\n";
            try
            {
                WL.clHFAccess hfAccess = new clHFAccess();
                hfAccess.SetDataPath(@"D:\Biometrics\Test_Data"); 
                int _AccountsID = 0;
                int _DistrictStudentNbr = 0;
                string _FingerID;
                //byte[] _FingerPrint;
                byte[] vf42_template;
                byte[] vf63_template;
                // Data access by using a DataSet
                FPIDTestDataSetTableAdapters.Fingerprints1TableAdapter taFP1 = new FPIDTestDataSetTableAdapters.Fingerprints1TableAdapter();
                taFP1.Connection.ConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BioMetrics\Test_Data\FPID.mdb";
                FPIDTestDataSet dsFP1s = new FPIDTestDataSet(); 
                taFP1.Fill(dsFP1s.Fingerprints1);  
                textConvert.AppendText(string.Format("WD Fingerprints: {2} Data path = {0}\nAccess MDB path = {1}\n",hfAccess.GetDataPath(),taFP1.Connection.DataSource,hfAccess.gm_iNbrRecords)); 
                int iCount = 0;
                foreach (FPIDTestDataSet.Fingerprints1Row fingerprint in dsFP1s.Fingerprints1.Rows)
                {
                    iCount++;
                    //if (iCount > 15) break;
                    // Convert old template to new format:
                    vf42_template = fingerprint.Features;
                    NFRecord nfrecord = new NFRecord(vf42_template);
                    vf63_template = nfrecord.Save();
                    // Write to HF
                    _AccountsID = fingerprint.AccountsID;
                    _DistrictStudentNbr = fingerprint.DistrictStudentNbr;
                    _FingerID = fingerprint.FingerID;
                    if (hfAccess.WriteData(_AccountsID, _DistrictStudentNbr, _FingerID,  vf63_template) )
                    {
                        // Message
                        textConvert.AppendText(fingerprint.AccountsID.ToString() + "; ");
                    }
                    else
                    {
                        textConvert.AppendText("Error: "+fingerprint.AccountsID.ToString() + "; ");
                    }
                    nfrecord.Dispose();
                }
                textConvert.AppendText(string.Format("\nAdded {0} HF fingerprints.\n Now {1} fingerprints.",iCount,hfAccess.gm_iNbrRecords));
                hfAccess = null;
                dsFP1s.Dispose();
                taFP1.Dispose();
            }
            catch (Exception ex)
            {
                // Display the errors
                textConvert.AppendText("Error: Source = " + ex.Source + "\n");
                textConvert.AppendText("Error: Message = " + ex.Message + "\n");
            }
            
            textConvert.AppendText(" End of test.");
        }

        private void buttonDataSet_Click(object sender, EventArgs e) // Read Access with dataset
        {
            textDataSet.Text = "";
            try
            {
                // Data access by using a DataSet
                //FPIDDataSetTableAdapters.FingerprintsTableAdapter ctaFPID = new FPIDDataSetTableAdapters.FingerprintsTableAdapter;
                //FPIDDataSet
                FPIDDataSet_MDBTableAdapters.FingerprintsTableAdapter taFP = new FPIDDataSet_MDBTableAdapters.FingerprintsTableAdapter();
                FPIDDataSet_MDB dsFPs = new FPIDDataSet_MDB();
                taFP.Fill(dsFPs.Fingerprints);
                int iCount = 0;
                foreach (FPIDDataSet_MDB.FingerprintsRow fingerprint in dsFPs.Fingerprints.Rows)
                {
                    iCount++;
                    if (iCount > 15) break;
                    textDataSet.AppendText(fingerprint.AccountsID.ToString() + "; ");
                }
            }
            catch (OdbcException eExcpt)
            {
                // Display the errors
                textDataSet.AppendText("Error: Source = " + eExcpt.Source);
                textDataSet.AppendText("Error: Message = " + eExcpt.Message);
                //Console.WriteLine("Source = " + eExcpt.Source);
                //Console.WriteLine("Message = " + eExcpt.Message);
            }
        }

        #region Comments and code showing limitations of PC Soft data access 
  /* Note the code below gets the following exception: 
  * The ICommandWithParameters interface is not supported by the 'PCSOFT.HFSQL' provider.  
  * Command parameters are unsupported with the current provider.
  *           try
            {
                // FPID Data access by using a DataSet
                FPIDDataSet_MDBTableAdapters.FingerprintsTableAdapter taFP = new FPIDDataSet_MDBTableAdapters.FingerprintsTableAdapter();
                FPIDDataSet_MDB dsFPs = new FPIDDataSet_MDB();
                taFP.Fill(dsFPs.Fingerprints);

                // .FIC access by =======================================================
                System.Data.OleDb.OleDbConnection myFIC = new System.Data.OleDb.OleDbConnection
                    ("Provider=PCSOFT.HFSQL;Data Source=D:\\BioMetrics\\VF_CS_Test\\VF_CS_Test.wdd;Initial Catalog=D:\\BioMetrics\\VF_CS_Test\\exe;");
                // Experiment with making a data adapter for Insert & Modify
                OleDbDataAdapter adapter = CreateDataAdapter("SELECT * FROM Fingerprints", myFIC);

                DataSet dsFIC = new DataSet();
                adapter.Fill(dsFIC);

                // Process FPID records
                int iCount = 0;
                foreach (FPIDDataSet_MDB.FingerprintsRow fingerprint in dsFPs.Fingerprints.Rows)
                {
                    iCount++;
                    if (iCount > 15) break;
                    textConvert.AppendText(fingerprint.AccountsID.ToString() + "; ");
                    // Add to FIC Fingerprints
                   // Parameters not supported by PCSoft
                    //DataRow newFIC = dsFIC.Tables[0].NewRow();
                    //newFIC["AccountsID"] = fingerprint.AccountsID;
                    //newFIC["FingerID"] = fingerprint.FingerID;
                    //newFIC["DistrictStudentNbr"] = fingerprint.DistrictStudentNbr;
                    //byte[] vf42_template = fingerprint.Features;
                    ////NFRecord nfrecord = new NFRecord(vf42_template);
                    ////newFIC["Features"] = nfrecord;
                    //newFIC["Features"] = vf42_template;
                    //dsFIC.Tables[0].Rows.Add(newFIC);
                  
                    // Try commands:
                    myFIC.Open();
                    OleDbCommand addFIC = new OleDbCommand(
                        "INSERT INTO Fingerprints (AccountsID) " +
                        "VALUES (?)", myFIC);
                    //"INSERT INTO Fingerprints (Features, FingerID, AccountsID, DistrictStudentNbr) " +
                    //"VALUES (?, ?, ?, ?)", myFIC);
                    OleDbParameter p1 = new OleDbParameter();
                    addFIC.Parameters.Add(p1);
                    p1.Value = fingerprint.AccountsID;
                    //fingerprint.Features, fingerprint.FingerID, fingerprint.AccountsID, fingerprint.DistrictStudentNbr);
                    //addFIC.CommandType = System.Data.CommandType.TableDirect;
                    int iAdded = addFIC.ExecuteNonQuery();
                    MessageBox.Show("Added {0} rows.", iAdded.ToString());
                }
                adapter.Update(dsFIC);
            }
            catch (OdbcException eExcpt)
            {
                // Display the errors
                textConvert.AppendText("Error: Source = " + eExcpt.Source);
                textConvert.AppendText("Error: Message = " + eExcpt.Message);
                //Console.WriteLine("Source = " + eExcpt.Source);
                //Console.WriteLine("Message = " + eExcpt.Message);
            }
        }


        public static OleDbDataAdapter CreateDataAdapter(string selectCommand,
        OleDbConnection connection)
        {
        }

           OleDbDataAdapter adapter = new OleDbDataAdapter(selectCommand, connection);

            adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey;

            // Create the Insert, Update and Delete commands.
            adapter.InsertCommand = new OleDbCommand(
                "INSERT INTO Fingerprints (Features, FingerID, AccountsID, DistrictStudentNbr) " +
                "VALUES (?, ?, ?, ?)", connection);

            adapter.UpdateCommand = new OleDbCommand(
                "UPDATE Fingerprints SET Features = ?, FingerID, AccountsID = ?, DistrictStudentNbr = ? " +
                "WHERE AccountsID = ?", connection);

            adapter.DeleteCommand = new OleDbCommand(
                "DELETE FROM Fingerprints WHERE AccountsID = ?", connection);

            // Create the parameters. Add others !@!!!!!!!!!!!!!!!!!
            adapter.InsertCommand.Parameters.Add("@AccountsID",
                OleDbType.Integer, 10, "AccountsID");
            adapter.InsertCommand.Parameters.Add("@DistrictStudentNbr",
                OleDbType.Integer, 10, "DistrictStudentNbr");
            adapter.InsertCommand.Parameters.Add("@FingerID",
                OleDbType.VarChar, 50, "FingerID");
            adapter.InsertCommand.Parameters.Add("@Features",
                OleDbType.Binary, 0, "Features");

            adapter.UpdateCommand.Parameters.Add("@AccountsID",
                OleDbType.Integer, 10, "AccountsID");
            adapter.UpdateCommand.Parameters.Add("@DistrictStudentNbr",
                OleDbType.Integer, 10, "DistrictStudentNbr");
            adapter.UpdateCommand.Parameters.Add("@FingerID",
                OleDbType.VarChar, 50, "FingerID");
            adapter.UpdateCommand.Parameters.Add("@Features",
                OleDbType.Binary, 0, "Features");

            adapter.DeleteCommand.Parameters.Add("@AccountsID",
                OleDbType.Char, 5, "AccountsID").SourceVersion =
                DataRowVersion.Original;
            return (adapter);
        }
*/
#endregion

        private void buttonWL_Click(object sender, EventArgs e)
        {
            //var testWL = "Test";
            //var param1 = "Param1";
            //clLog testLog = new clLog(ref testWL, ref param1);  

            WL.clHFAccess hfAccess = new clHFAccess();
            textWL.Text = "Starting clHFAccess test.\n";
            textWL.AppendText("Data Path = "+hfAccess.GetDataPath()+"\n");
            textWL.AppendText("hfAccess.TestString = " + hfAccess.GetTestString()+"\n");
            // Read records:
            textWL.AppendText( "\nStarting Records test usingg clAcess.\n"); 
            textWL.AppendText("hfAccess.TestString = " + hfAccess.GetTestString() + "\n");
            int nbrRecords = hfAccess.gm_iNbrRecords;
            textWL.AppendText("Number of Records = " + nbrRecords.ToString() + "\n");
            int _ID = 0;
            int _AccountsID = 0;
            int _DistrictStudentNbr = 0;
            //var _FingerPrint = new Neurotec.IO.NBuffer(byte[]);// _Buffer);
            //NFRecord _FingerPrint = new NFRecord(); // _Buffer);
            //Neurotec.IO.NBuffer _FingerPrint;
            //byte[] _FingerPrint;
            //object _FingerPrint = new byte[100];
            //Buffer _FingerPrint;
            //byte[] _FingerPrint = new byte[100];
            //Byte[] _FingerPrint = new Byte[100];
            //try
            //{
            //    if (hfAccess.GetFirstFingerprint(ref _ID, ref _AccountsID, ref _DistrictStudentNbr,ref _FingerPrint))
            //    //if (hfAccess.GetFirstFingerprint( _ID,  _AccountsID,  _DistrictStudentNbr,  _FingerPrint)) 

            //    {
            //        do
            //        {
            //            //textWLAppendText("Processing Account: " + _AccountsID.ToString()+
            //            //   ", FP_Length = "+_FingerPrint.Length.ToString()+ "\n");
            //            textWL.AppendText(string.Format("Processing ID={0} Account: {1}, FP_Length = {2}\n", _ID, _AccountsID.ToString(),
            //              _FingerPrint.Length));
            //        }
            //        while (hfAccess.GetNextFingerprint(ref _ID, ref _AccountsID, ref _DistrictStudentNbr, ref _FingerPrint));
            //        //while (hfAccess.GetNextFingerprint( _ID, _AccountsID, _DistrictStudentNbr,  _FingerPrint));
            //    }
            //}
            //catch (Exception  ex)
            //{
            //    textWL.AppendText("Exception: " + ex.Message + "\n");
            //}
            //hfAccess = null;  // How to dispose? (Getting call stack error)

        }

        private void FormTest_Load(object sender, EventArgs e)
        {
 
        }

        private void buttonWL2_Click(object sender, EventArgs e)
        {
            // Test different methods of passing data from WinDev to C#
            clHFAccess wlTest = new clHFAccess();
            textWL.Text = "Start of parameter test.\n";
            int testInt = 0;
            byte[] testArray = new byte[20];

            //wlTest.TestD(ref testInt,ref testArray);
            //textWL.AppendText(string.Format("Test D: testInt={0}, testArray upper bound={1}\n", testInt, testArray.GetLength(0)));

            wlTest.TestC(ref testInt, ref testArray);
            textWL.AppendText(string.Format("Test C: testInt={0}, testArray upper bound={1}\n", testInt, testArray.GetLength(0)));

            textWL.AppendText("End of test.\n");
            wlTest = null;
        }

    }
}

psword for analises default (1 reply)

Allard — Wed, 16 Nov 2011 20:42:17 +0100

I saw this in the windev forum and I thibk it is usefull in the solutions forum:

By default, the data files of user groupware have a specific password. This password is: "PCSGPW2001".

Instructions for how to set up HFSQL C/S on 4 Linux distributions (1 reply)

Jimbo — Thu, 28 Feb 2013 14:13:26 +0100

[www.windev.at]

Alexander Predl has written up the exact procedure of how to set up HyperFile C/S on a Linux System.

Three other instruction pdfs (for OpenSuse, Ubuntu 11.04 and Debian) are to follow! Sorry, the first manual is in German only. We plan to translate & publish them in English too!

This is done in the light of our intention to offer virtual web servers to our customers for HF C/S synchronization of their POS terminals. We're looking at e.g. [vps.servage.com] for setting up such a server. It's cheap and we can get our customers databases off from our own web server. Sure, it's possible to use MySQL in ordinary rented web space too but experienced funny limitations by providers. They simply want to limit traffic and aren't very excited about having large databases running on their servers.

[WD16] Select / Unselect the underlayingTreeview-Nodes with the checkmark of the parent node (no replies)

Michael Drechsel — Mon, 19 Sep 2011 20:44:25 +0200

Hi,

this is a recursiv function to select/unselect a node and his children with the checkmark feature of the wd16 treeview.

Call the function in the treeview "whenever modified" event with the full path of the current node. I think that must be a built in function in future releases of WD.

---------------------------------------------------------------------------------------------------------------

PROCEDURE Treeview_click_auswerten(sNode is string="")

bStatus is boolean=TREE_Gesamtstruktur[sNode]..Checked
sChild, sChildPath is string

sChild=TreeGiveChild(TREE_Gesamtstruktur,sNode,tvFirst)

IF sChild="" THEN
RESULT ""
ELSE
sChildPath=sNode+TAB+sChild
TREE_Gesamtstruktur[sChildPath]..Checked=bStatus
Treeview_click_auswerten(sChildPath)
END

WHILE sChild<>""
sChild=TreeGiveChild(TREE_Gesamtstruktur,sNode,tvNext)
IF sChild="" THEN
Treeview_click_auswerten(sChildPath)
ELSE
sChildPath=sNode+TAB+sChild
TREE_Gesamtstruktur[sChildPath]..Checked=bStatus
Treeview_click_auswerten(sChildPath)
END

END

[WD14] Balloon Help (1 reply)

David Egan — Fri, 03 Feb 2012 13:54:11 +0100

Hi
Windev includes an example of Balloon Help which uses API calls. Unfortunately this just doesn't seem to work correctly under Win7. The attached example uses standard Windev code to make a balloon help type error message, so that the user is not forced to stop & click on a button to continue data entry.
The file includes a README which explains the general logic behind the example.
[www.expresslanepos.com.au]

David

Using an INI file to point to your HF Classic data files... (no replies)

DarrenF — Fri, 26 Nov 2010 13:11:18 +0100

Hello everyone,

I recently had a need to write a bit of code that would allow my app to "know" where the HF classic data files were stored on my app's network. In a production environment, my app's EXE is installed on each client PC and on a "main" PC acting as the system "server" in the "C:\Program Files\System" folders. The HF classic data files are stored in a shared folder on the "server" such as "C:\SystemData" and shared appropriately (Where "System" is your app name).

This all came about via a topic I raised on the main Windev forum concerning "where does WD look for data files?" - [forum.mysnip.de]

Via this thread, I decided to go down the INI file route.

So, here goes - You'll need something like the code below for the INI file processing. I've tried to keep it logical rather than "fancy" for maintenance purposes. It needs to go in your Project Code (well that's were I put it), before any data files are processed.

// Setup var for processing INI file
gproviINIResult is int
gprovsFolder is string

// Handle the INI file for Network drive location
IF fDirectoryExist(fExeDir()) THEN
	
	// If INI file exists then read the 'Drive' entry
	IF fFileExist(fExeDir + "\System.INI") THEN
		// If found, then read it
		gprovsFolder = INIRead("NetworkDrive","Drive","",fExeDir + "\System.INI")
	ELSE
		// INI file not found, so browse for network drive
		gprovsFolder = UserSelectDataDir()
		// Test for no folder selected
		IF gprovsFolder = "" THEN
			// Error already reported in UserSelectDataDir, so get out of here
			EndProgram()
		ELSE
			// Directory selected, so Create/Write INI file entry
			gproviINIResult = INIWrite("NetworkDrive","Drive",gprovsFolder,fExeDir + "\System.INI")
		END
	END
ELSE
	
	// Directory doesn't already exist, so create DIR
	fMakeDir(fExeDir())
	// INI file not found, so browse for network drive
	gprovsFolder = UserSelectDataDir()
	// Test for no folder selected
	IF gprovsFolder = "" THEN
		// Error already reported in UserSelectDataDir, so get out of here
		EndProgram()
	ELSE
		// Directory selected, so Create/Write INI file entry
		gproviINIResult = INIWrite("NetworkDrive","Drive",gprovsFolder,fExeDir + "\System.INI")
	END
END

// Now swap to the drive selected...
HChangeDir("*",gprovsFolder)

The UserSelectDataDir is a procedure purely to avoid repeating the code:

PROCEDURE UserSelectDataDir()

glocalsDataFolder is string

// Browse for network drive
glocalsDataFolder = fSelectDir("", "Select a directory...", "I can't seem to locate your data files. Please select the server network directory that contains your data files OR, if this is your server, select the local directory that contains the data files.", "")

// Test for no folder selected
IF glocalsDataFolder = "" THEN
	Error("You must select a local or network folder  to continue!","Please re-run the system.",...
	"If this problem persists or you are not able to select the required folder, then please contact your system administrator for help.")
END

// Return the folder (blank or otherwise)
RESULT glocalsDataFolder

So now when you run your app on each PC for the first time, you'll be asked where your data files are. From then on, your app will read the INI file on each PC to locate the data files. If you move your data files for any reason, then all you need to do is either amend the INI files on the PC's or delete them and you'll be re-prompted - it's as simple as that! :cheers:

Hope this helps you on your way...

Getting printer status (no replies)

Arie — Mon, 02 Aug 2010 21:47:11 +0200

The code below can be used to read the status of all printers, like in start-settings-printers.
You need to add System.Printing to the dotnet list of your project.

pclLps is LocalPrintServer dynamic
pclLps = new LocalPrintServer
pclEnu is IEnumerator dynamic
PcliEnumObject is PrintQueueCollection dynamic
PcliEnumObject = pclLps:GetPrintQueues()
pclEnu = PcliEnumObject:GetEnumerator()
bOK is boolean = pclEnu:MoveNext()
pq is PrintQueue dynamic
WHILE bOK
	pq = pclEnu:Current
	Trace(pq:FullName,pq:NumberOfJobs,pq:HasPaperProblem,pq:IsDoorOpened,pq:IsNotAvailable,pq:IsOffline,pq:IsInError,pq:IsPaperJammed,pq:IsOutOfPaper,pq:NeedUserIntervention,pq:IsTonerLow)
	bOK = pclEnu:MoveNext()
END

btw: in WD15 you can skip the IEnumerator steps and use FOR EACH directly

[WD12] Creating a set of CSV files from corresponding HF files... (1 reply)

DarrenF — Tue, 26 Jul 2011 12:30:51 +0200

Hi guys,

Some people may find this useful...? I posted it as a result of this post; [forum.mysnip.de]

In my app, I have a requirement to extract Products (and related info, such as Categories and Catergory usage), into 3 separate CSV files then FTP them upto a web server in order to update the web site. This example shows only the CSV creation part of the requirement.

You will also see various bits of code referencing window elements - this is because this code sits behind a push button on a window and also updates 3 progress bars (one for each CSV file), on the same window.

It may be more complex than you need, but hopefully you can glean the information you need - Enjoy! :spos:

// Get counts of the 3 tables I'm sending data from to use with progress bars
HExecuteQuery(QRY_CountActiveCategories)
glocaliCatCount is int = HNbRec(QRY_CountActiveCategories)
HExecuteQuery(QRY_CountActiveWebProducts)
glocaliProdCount is int = HNbRec(QRY_CountActiveWebProducts)
HExecuteQuery(QRY_CountProducts2Categories)
glocaliPrd2CatCount is int = HNbRec(QRY_CountProducts2Categories)

// Set-up progress bars
WPBAR_Products..MinValue = 0
WPBAR_Products..MaxValue = glocaliProdCount
WPBAR_PageNodes..MinValue = 0
WPBAR_PageNodes..MaxValue = glocaliCatCount
WPBAR_PageProducts..MinValue = 0
WPBAR_PageProducts..MaxValue = glocaliPrd2CatCount
//Set up actual counts
glocaliPBarProdCount,glocaliPBarCatCount,glocaliPBarP2CCount is int = 0

// Set-up variables
glocaliTempCount is int
glocalsSep is string = WEDIT_TypeOfSeparator
glocalsQuotes is string = WEDIT_TypeOfQuotes
glocalsSampleData is string = ""
nFileID1,nFileID2,nFileID3 is int
sMyString is string

// Decide if quotes are required around the data
IF WCB_IncludeQuotes = False THEN
	glocalsQuotes = ""
END

// Create the blank files in the "ftp" folder
nFileID1 = fOpen(WEDIT_CSVFielname1, foCreate+foReadWrite)
nFileID2 = fOpen(WEDIT_CSVFielname2, foCreate+foReadWrite)
nFileID3 = fOpen(WEDIT_CSVFielname3, foCreate+foReadWrite)

// Did any of the files fail to open correctly?
IF nFileID1 = -1 OR nFileID2 = -1 OR nFileID3 = -1 THEN

	// Error trying to open the Product CSV file in read/write mode
	IF nFileID1 = -1 THEN
		Error("Error: Unable to create the Product CSV file!", ErrorInfo())
		RETURN
	END

	// Error trying to open the PageNodes CSV file in read/write mode
	IF nFileID2 = -1 THEN
		Error("Error: Unable to create the PageNodes CSV file!", ErrorInfo())
		RETURN
	END

	// Error trying to open the PageProducts CSV file in read/write mode
	IF nFileID3 = -1 THEN
		Error("Error: Unable to create the PageProducts CSV file!", ErrorInfo())
		RETURN
	END

ELSE

	// Reset counter
	glocaliTempCount = 0
	
	// Tax Rate control var
	glocaliTempSTDID is int
	glocaliTempZEROID is int
	glocalsTempTaxCode is string
			
	// Read the STD Tax Rate to get ID
	HReadSeek(Tax_Rates,cCode,"STD")
	IF HFound() THEN
		// Set depending on what
		glocaliTempSTDID = Tax_Rates.ID
	ELSE
		// Error getting tax info...
		Error("Error: Unable to find the STD VAT tax record!" + CR + "There should be a VAT tax record with a code of STD, and I can't find it on the database." + CR + "Please check via the VAT Maintenance option and try this option again.", ErrorInfo())
		RETURN
	END
	
	// Read the ZERO Tax Rate to get ID
	HReadSeek(Tax_Rates,cCode,"ZERO")
	IF HFound() THEN
		// Set depending on what
		glocaliTempZEROID = Tax_Rates.ID
	ELSE
		// Error getting tax info...
		Error("Error: Unable to find the ZERO VAT tax record!" + CR + "There should be a VAT tax record with a code of ZERO, and I can't find it on the database." + CR + "Please check via the VAT Maintenance option and try this option again.", ErrorInfo())
		RETURN
	END

	// Loop through each product
	FOR EACH Product_Variants
		
		// Only consider products that are flagged as Web products and are also flagged as Active
		IF Product_Variants.bWeb = True AND Product_Variants.bActive = True THEN

			// Fill the string to write in the file
			
			// prod_id = ID
			sMyString = glocalsQuotes + Product_Variants.ID + glocalsQuotes + glocalsSep
			//sMyString = glocalsQuotes + Product_Variants.cCode_External + glocalsQuotes + glocalsSep
			
			// product_name = cTitle
			sMyString = sMyString + Charact(34) + Product_Variants.cTitle + Charact(34) + glocalsSep
			
			// unitprice = cyRetail
			sMyString = sMyString + glocalsQuotes + Product_Variants.cyRetail + glocalsQuotes + glocalsSep
			
			// rrp_proce = cySRP
			sMyString = sMyString + glocalsQuotes + Product_Variants.cySRP + glocalsQuotes + glocalsSep
			
			// weight = nWeight
			sMyString = sMyString + glocalsQuotes + Product_Variants.nWeight + glocalsQuotes + glocalsSep
			
			// taxcode = See code...
			IF Product_Variants.FK_Tax = glocaliTempSTDID THEN
				
				glocalsTempTaxCode = "0"
				
			ELSE IF Product_Variants.FK_Tax = glocaliTempZEROID THEN
				
				glocalsTempTaxCode = "2"
				
			END
						
			sMyString = sMyString + glocalsQuotes + glocalsTempTaxCode + glocalsQuotes + glocalsSep
			
			// displayoff = "1"
			sMyString = sMyString + glocalsQuotes + "1" + glocalsQuotes + glocalsSep
			
			// options = ???
			sMyString = sMyString + glocalsQuotes + "" + glocalsQuotes + glocalsSep
			
			// description = cDescription
			sMyString = sMyString + Charact(34) + Product_Variants.cDescription + Charact(34) + glocalsSep

			// long_description =  see code...
			IF Product_Variants.cWebDesc <> "" THEN
				
				// First use the Web description if it's not empty
				sMyString = sMyString + Charact(34) + Product_Variants.cWebDesc + Charact(34)
				
			ELSE IF Product_Variants.cB2BDesc <> "" THEN
				
				// If Web description is blank, then use B2B description
				sMyString = sMyString + Charact(34) + Product_Variants.cB2BDesc + Charact(34)
				
			ELSE
				
				// If both the above are empty then put something in there
				sMyString = sMyString + Charact(34) + Product_Variants.cDescription + Charact(34)				
				
			END
			

			// Write to the Products CSV file
			fWriteLine(nFileID1, sMyString)	
			
			// Create Preview string for output later
			IF glocaliTempCount < 100 THEN
				// Add this row to the preview
				IF glocaliTempCount = 1 THEN 
					glocalsSampleData = glocalsSampleData + sMyString
				ELSE
					glocalsSampleData = glocalsSampleData + CR + sMyString	
				END	
			END
			
			// Now write to the the PageProducts CSV file
			sMyString = glocalsQuotes + Product_Variants.FK_Category + glocalsQuotes + glocalsSep
			sMyString = sMyString + glocalsQuotes + Product_Variants.ID + glocalsQuotes + glocalsSep
			sMyString = sMyString + glocalsQuotes + "0" + glocalsQuotes +glocalsSep
			// Just for me - not required for Get Trolleyed system
			sMyString = sMyString + glocalsQuotes + Product_Variants.cTitle + glocalsQuotes
			
			// Write to the PageProducts CSV file based on the current product
			fWriteLine(nFileID3, sMyString)	
			
			// Keep track of the number of records in the file
			glocaliTempCount ++
			glocaliPBarP2CCount ++
			glocaliPBarProdCount ++
			WPBAR_Products = glocaliPBarProdCount
			WPBAR_PageProducts = glocaliPBarP2CCount
			
		END
	END
END

// Write all the PageNodes to a CSV file
FOR EACH Categories 
	
	// Now write to the the PageProducts CSV file
	sMyString = glocalsQuotes + Categories.ID + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + Categories.FK_Parent + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + Categories.cDescription + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + "" + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + Categories.cTreeBranch + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + "" + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + "" + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + "" + glocalsQuotes + glocalsSep
	sMyString = sMyString + glocalsQuotes + "0" + glocalsQuotes
	
	// Write into the PageProducts CSV file based on the current product
	fWriteLine(nFileID2, sMyString)	
	
	glocaliPBarCatCount ++
	WPBAR_PageNodes = glocaliPBarCatCount
	
END

// Now close the CSV files
fClose(nFileID1)
fClose(nFileID3)
fClose(nFileID2)

// Set the on screen preview field with the preview data...
WEDIT_Preview = glocalsSampleData

IF glocaliTempCount > 0 THEN

	// Show the user a message
	NextTitle("File Created")
	Info("Product Data Feed files were successfully created!" + CR + "The required Data Feed files have been created containing " + glocaliTempCount + " products." + CR + "Don't forget to press the Send Data Feed Files button to actually send the files to your FTP server.")

ELSE
	
	// Show the user a message
	NextTitle("File Create Error!")
	Info("Sorry, I couldn't find any products to put into the Product Data Feed file!" + CR + "Remember: Only products which have the 'Web' check box set on the Product Maintenance screen will be selected for processing.")
	
END

NOTE: This forum is for WinDev SOLUTIONS only, please, post your questions to the WinDev Forum! (1 reply)

Jimbo — Thu, 14 Jan 2021 15:13:21 +0100

Dear visitor,

this forum has been made available for those who can offer solutions to known problems, algorithms, demo programs etc.

For asking questions in regards to WinDev programming, please use the main WinDev forum [forum.mysnip.de] !

Kind regards,
Guenter

How to make a treeview with parents (3 replies)

Carlo Hermus — Thu, 08 Feb 2024 10:12:30 +0100

Hi all,

I thought I share this knowledge I gained about tree and parents.

I have 1 file named contacts. With a ID int and IDParent int field.

The IDParent contains the ID of the Parent in the same file.

To let an entry be a parent of a parent of a parent etc.. I found it was very easy after reading the help instead of coding with trial and error. This way also runs the query ones so, the filling of the treeview is very fast. (I only tested it with a few hundred entries, so if anyone wants to try with more entries and let me (us) know how fast/slow this becomes it would be much appreciated. I hope it is very helpful and if it can be fine-tuned I love to hear it.

So let us start.

I created a query of the datafile called QRY_TreeContacts.

SELECT 
	Contacts.ID AS ID,	
	Contacts.IDParent AS IDParent,	
	Contacts.Name AS Name,	
	Contacts.IsDeleted AS IsDeleted,	
	Contacts.IDIcon AS IDIcon
FROM 
	Contacts
ORDER BY 
	IDParent ASC

My Query 
sRoot is string
sTrash is string
sInbox is string

sParentNode is string

sRoot 	= "Categories"
sTrash 	= "Deleted Items"

sParentNode = ""

TreeDeleteAll(TREE_CONTACTS)
HReadSeek(Icons,ID,1,hIdentical)
TreeAdd(TREE_CONTACTS,sRoot,Icons.Icon,Icons.Icon,0)
HReadSeek(Icons,ID,-11,hIdentical)
TreeAdd(TREE_CONTACTS,sTrash,Icons.Icon,Icons.Icon,-11)

HExecuteQuery(QRY_TreeContacts)
HReadFirst(QRY_TreeContacts)

WHILE NOT HOut()
	
	HReadSeek(Icons,ID,QRY_TreeContacts.IDIcon,hIdentical)
	sParentNode = QRY_TreeContacts.Name
	
	IF NOT QRY_TreeContacts.IDParent = 0 THEN
		sParentNode = TreeFind(TREE_CONTACTS, QRY_TreeContacts.IDParent)
		TreeAdd(TREE_CONTACTS,sParentNode+TAB+QRY_TreeContacts.Name,Icons.Icon,Icons.Icon,QRY_TreeContacts.ID,tvAlphaSort+tvAcceptDuplicate)
	ELSE
		IF NOT QRY_TreeContacts.IsDeleted THEN
			TreeAdd(TREE_CONTACTS,sRoot+TAB+QRY_TreeContacts.Name,Icons.Icon,Icons.Icon,QRY_TreeContacts.ID,tvAlphaSort+tvAcceptDuplicate)
		ELSE IF QRY_TreeContacts.IsDeleted THEN
			TreeAdd(TREE_CONTACTS,sTrash+TAB+QRY_TreeContacts.Name,Icons.Icon,Icons.Icon,QRY_TreeContacts.ID,tvAlphaSort+tvAcceptDuplicate)	
		END
	END
	HReadNext(QRY_TreeContacts)
END

TreeSort(TREE_CONTACTS,sRoot,tvUp)

German Holidays (1 reply)

Jimbo — Tue, 12 Jan 2010 11:02:25 +0100

Hi, it's just a start, there will be a full calendar with holidays of the German speaking countries ...

[www.windev.at]

Kind regards,
Guenter

Import from DBF (no replies)

ICI — Thu, 22 Oct 2009 00:32:56 +0200

Here is my solution how to import data from DBF with very little code.
I hope this will be very useful. I love to use it with Progress-Bar so I put code here
if you also love to see what happening with your data.

Button code, on click:

dsKontaQuery is Data Source

//Same name can not be for DBF and for one into analysis THEN alias will be KTA 
HDBOpen("KTA","KTA","C:\IMPORT\KONTA.DBF")

sSql is string = "SELECT * FROM KTA"
IF NOT HExecuteSQLQuery(dsKontaQuery,hQueryDefault,sSql) THEN
	ErrorInfo(errFullDetails)
END

HCreation(Konta)
TableDisplay(TABLE_Konta,taStart)
nUkupno is int = HNbRec(dsKontaQuery)
nRbr is int =0

PROGBAR_ProgressBar1..MinValue=0
PROGBAR_ProgressBar1..MaxValue=nUkupno

HReadFirst(dsKontaQuery)
WHILE NOT HOut(dsKontaQuery)
	nRbr += 1
	PROGBAR_ProgressBar1 = nRbr
	Konta.Konto= dsKontaQuery.Konto
	Konta.Naziv_Konta=NoSpace(dsKontaQuery.kon_naz)
	HAdd(Konta)
	HReadNext(dsKontaQuery)
END
TableDisplay(TABLE_Konta,taStart)  //Re-display Table from start

And voila your DBF data are imported very very fast. Zooooomm.

XMLtoTable (1 reply)

King — Tue, 18 May 2010 17:02:25 +0200

Windev should consider to provide an XLMToTable function so that I don't need to write this as a workaround.

See below:

// 14:16:38 Fri 9 Oct 2009 xml2memoryTable
// 14:44:51 Sat 10 Oct 2009

XMLDoc is string="XML"
XMLInfo is string
sXmlTable is string = "C:\1.xml"
sTableName is string
sDir is string=completeDir("c:\wd7\7") //Make your own DIR
sFile is string="dTable"

HCancelDeclaration(dTable)
TableDesc is file description
ItemDesc is item description
dTable is data source
fDelete(sFile+".fic")
fDelete(sFile+".ndx")
hDuplicateKey is int = 2062 //2061 for hUniqueKey
nSize is int = 40

// Description of the "dTable" file
TableDesc..Name = "dTable"
TableDesc..Type = hFileNormal
TableDesc..FicCryptMethod = hCryptStandard

XMLClose(XMLDoc) //Frees the XML document

// Load the XML file in a string
XMLInfo = fLoadText(sXmlTable)
// Initialize the XML functions on this file
XMLDocument(XMLDoc,XMLInfo)
// point to the root
XMLRoot(XMLDoc)
XMLFind(XMLDoc, null)
sTableName = XMLElementName(XMLDoc)
//trace("ParentName"+nElement+"="+ XMLElementName(XMLDoc) )

XMLChild(XMLDoc)
XMLFirst(XMLDoc)

//trace("elementName"+nElement+"="+ XMLElementName(XMLDoc) )
ItemDesc..Name = XMLElementName(XMLDoc)
ItemDesc..Type = hItemText
ItemDesc..Size = nSize
ItemDesc..KeyType = hDuplicateKey

HDescribeItem ( TableDesc , ItemDesc )

nElement is int = 1
XMLNext(XMLDoc)
WHILE NOT XMLOut(XMLDoc)
nElement = nElement + 1
ItemDesc..Name = XMLElementName(XMLDoc)
ItemDesc..Type = hItemText
ItemDesc..Size = nSize
HDescribeItem ( TableDesc , ItemDesc )
// trace("elementName"+nElement+"="+ XMLElementName(XMLDoc) )
XMLNext(XMLDoc)
END

HDeclareExternal(sDir+sFile+".fic", sFile)
HDescribeFile ( TableDesc )
HImportXML ( dTable , sXmlTable , hImpCreation )
//Make a DUMMY Memory table, a few columns will do, mine is a 3-column table
OpenChild("t=c:\wd7\wdw\t03.wdw")

BuildBrowsingTable("t.tbl", sFile,taFillTable) //t.tbl WDWname.TableName
HCancelDeclaration(sFile)
HClose(dTable)

//trace("Total # of Elements in "+ sTableName + " = " + nElement)
// Cancels the search for the other XML functions used thereafter

XMLCancelSearch(XMLDoc)
XMLClose(XMLDoc) //Frees the XML document

Example of a Hierarchy Pop-up (no replies)

DW — Fri, 16 Oct 2009 18:28:46 +0200

Hello All,

This is a example of a Hierarchy Pop-up created in Windev 14 called Zone Picker.

Zone Picker

[www.mediafire.com] Picker.zip

Have fun,

Dennis W

Automatic update via http (2 replies)

Piet van Zanten — Wed, 21 Sep 2011 09:50:52 +0200

Hi all,

Here's a simple live update program, you can download the project here

Instructions:

Create a directory on your website called updates.
In this directory you put future downloads of the latest version of the update program itself and the .upd files for your applications. (myapp1.upd, myapp2.upd etc.)
For each application you create a subdir containing the files to be downloaded.

Incorporate the global_procedures_of_VZupdate.wdg in your program and in the project initialization code input the line:
check_update()

Open the project VZ_update.wdp and create the executable.
The file VZ_updateNN.exe should be in the same dir as your application's executable. (NN being the Windev version) So Include it in your first setup.

Create a textfile containing the files to be updated.
The filename is the name of your app + .upd
It contains the fileinfo separated by tabs:
Version: this is the version of your exe file
Date: this is the release date of the file
Filename: this is the file to be downloaded
Size: this is the filesize in bytes

example of the content of a .upd file:
02.54 tab 20091003 tab subdir_myappname/myprogram.exe tab 4879415
02.50 tab 20090621 tab subdir_myappname/myprogram.wdd tab 31577
02.14 tab 20090331 tab subdir_myappname/WD120ZIP.DLL tab 364544

Upload this file to your server.
Upload the files to be updated to the same relative location as indicated in the .upd file.

Put a textfile called VZupdateNN.upd containing the current version of VZ_updateNN.exe in the update directory of your website. (again: NN being the Windev version)
The VZ_update program uses the Windev framework of your application, so it should be the same Windev version. You create a VZ_update.exe for each Windev version of the deployed programs.

Of course you are free to rename all files to your liking.

If you have made improvements to this program please report them on the forum, so we can all benefit.

todo:
Create a Windev program to create and upload the .upd files and all files to be updated.

notes:
- the sIniName variable refers to an ini file in which the user's choice to enable live-update is stored. (e.g. if they don't have an internet connection)
- the testing of the program is not easy, because on testmode the circumstances are quite different from a running executable.

Best regards,
Piet

How to make a Table forget its column configuration - solution (1 reply)

Jimbo — Sat, 12 Dec 2009 23:38:30 +0100

Hi,

WinDev AAF offers to move, resize, hide and unhide colums of a Table. But there is no easy way to return to the original column configuration. The code below allows for being added to all Tables (with the name 'Table', others have to bee adapted) in the System popup-menu as a menu-item of something like 'Reset Column Configuration':


TC,TX, TW, TD are int
TN is string

TC = TableCount(Table,toColumn)

FOR TX = 1 TO TC
	TN = TableEnumColumn(Table,TX)
	TableMoveColumn(Table,TN,TX)
	IF {"Table."+TN}..InitialVisible = True THEN
		{"Table."+TN}..Visible = True
		{"Table."+TN}..Width = {"Table."+TN}..InitialWidth
		TW += {"Table."+TN}..Width
	END
END

TD = Table..Width - TW - 18  // 18 ~= Width of vertical scrollbar of Table
FOR TX = 1 TO TC
	TN = TableEnumColumn(Table,TX)
	IF {"Table."+TN}..InitialVisible = True THEN
		{"Table."+TN}..Width += TD * {"Table."+TN}..AnchorRateWidth / 1000
	END
END

Note 1: I wasn't able to find the width of the vertical scrollbar of the table programmatically. Vertical scrollbars of my tables ('110 System') are 18 pixels in width ..

Note 2: to make the second part of the procedure work, take care that the original AnchorRateWidth of the visible colums add up to 100%

Note 3: In order to make this code even independent from the name of the Table ('Table') you'd have to experiment with PopupField(..) to recover the name of the Table. However, I find it easier to change the Table's name in code ..

Kind regards,
Guenter

Import data from CSV file (no replies)

Toddy Utomo — Tue, 04 Aug 2009 05:52:08 +0200



PROCEDURE ImportCSVdata(sFullFileName is string)

sCsvSeparator is string = ";"
sCsvRow is string
nFileNum is int
nLoop is int
nCol is int
nJumCol is int = 1

// Create a Table Control with the sufficient (more) column
TableDeleteAll(TABLE_Table1)

nFileNum = fOpen(sFullFileName,foRead)
IF nFileNum = -1 THEN
	Error("File not found!")
ELSE
	LOOP
		sCsvRow=fReadLine(nFileNum)
		nCol=1
		FOR nLoop = 1 TO Length(sCsvRow)
			IF sCsvRow[[nLoop]] = sCsvSeparator THEN 
				sCsvRow[[nLoop]] = TAB
				nCol ++
			END
		END
		TableAdd(TABLE_Table1,sCsvRow)
		IF sCsvRow = EOT THEN BREAK
	END
	fClose(nFileNum)
        FOR x = 1 TO TableCount(TABLE_Table1)
             myfield1 = TABEL_Table1.column1[x]
             myfield2 = TABLE_Table1.column2[x]
             ....
             // Put your logic to HAdd or Hmodify here
             ....
        END

END

HTH
Toddy

Printing labels on a Zebra LP 2844 using Zebra EPL (2 replies)

DarrenF — Wed, 10 Aug 2022 09:02:16 +0200

It took a bit of thinking about as I've not used the fOpen etc. commands before, but here it is - a simple working Zebra LP 2844 example using the Zebra EPL language commands:

// EXAMPLE - Printing a product label (with barcode) on a Zebra LP 2844

// Device name
glocalsDevice is string = "LPT1"

// String to send to printer
sMyString is string

// Port no. returned from fOpen
glocaliPort is int

// Open the file
glocaliPort = fOpen(glocalsDevice, foCreateIfNotExist)

IF ErrorOccurred THEN
	Error("Unable to contact the printer! ", ErrorInfo())
ELSE
	// Init the label
	sMyString = Charact(10) + "N" + Charact(10)
	fWrite(glocaliPort, sMyString)
	
	// Send text - Business name
	sMyString = "A230,5,0,3,2,2,N," + Charact(34) + "XYZ Cycles" + Charact(34) + Charact(10)
	fWrite(glocaliPort, sMyString)
	
	// Send text - Manufacturer name
	sMyString = "A230,45,0,3,1,1,N," + Charact(34) + "Shimano" + Charact(34) + Charact(10)
	fWrite(glocaliPort, sMyString)
	
	// Send text - Price
	sMyString = "A480,45,0,3,1,1,N," + Charact(34) + "1234.99" + Charact(34) + Charact(10)
	fWrite(glocaliPort, sMyString)
	
	// Send text - Product name
	sMyString = "A230,65,0,3,1,1,N," + Charact(34) + "XT 32 hole hub" + Charact(34) + Charact(10)
	fWrite(glocaliPort, sMyString)
	
	// Send text - Product Barcode
	sMyString = "B245,90,0,E30,3,5,70,B," + Charact(34) + "123456789012" + Charact(34) + Charact(10)
	fWrite(glocaliPort, sMyString)
	
	// Send text - web address
	sMyString = "A250,185,0,3,1,1,R," + Charact(34) + "www.xyzcycles.co.uk" + Charact(34) + Charact(10)
	fWrite(glocaliPort, sMyString)
	
	// Send P1 print buffer contents
 	sMyString = "P1" + Charact(10)
	fWrite(glocaliPort, sMyString)

	// Close the file
	fClose(glocaliPort)
END

Extended DDW (no replies)

Patrice Terrier — Fri, 26 Jun 2009 14:35:15 +0200

Extended DDW

You probably like the WinDev exclusive DDW feature, however it has some limitations:
1 - It works only with native WinDev controls.
2 - It relies on the graphic card configuration and on the processor speed.
3 - It doesn't work with DirectX nor with OpenGL.

The CreateDDW below has no limitation, however it must be used only on true 32-bit or 64-bit OS (W2K, XP, VISTA, Windows 7).
It is based on direct call to the low level API, and uses the layerd window extended style.
It could be used with any third party addons as well as with 3D graphics using DirectX or OpenGL.

CONSTANT
   CS_VREDRAW        = 1
   CS_HREDRAW        = 2
   WM_SETCURSOR      = 32
   IDC_WAIT          = 32514
   WS_EX_TOOLWINDOW  = 128
   WS_POPUP          = -2147483648
   WS_DISABLED       = 134217728
   WS_EX_LAYERED     = 524288
   GWL_EXSTYLE       = -20
   LWA_ALPHA         = 2
END

WNDCLASSEX is structure
   cbSize        is unsigned int //Type C : UINT
   style         is unsigned int //Type C : UINT
   lpfnWndProc   is int      //Type C : WNDPROC
   cbClsExtra    is int      //Type C : int
   cbWndExtra    is int      //Type C : int
   hInstance     is int      //Type C : HINSTANCE
   hIcon         is int      //Type C : HICON
   hCursor       is int      //Type C : HCURSOR
   hbrBackground is int      //Type C : HBRUSH
   lpszMenuName  is int      //Type C : LPCSTR
   lpszClassName is int      //Type C : LPCSTR
   hIconSm       is int      //Type C : HICON
END

FUNCTION GetWindowRgn(LOCAL nX is int, LOCAL nY is int, LOCAL nhWnd is int)
nRet, nRgn, n1, n2, n3, n4 are int = 0
nRgn = API("GDI32", "CreateRectRgn", n1, n2, n3, n4)
IF API("USER32", "GetWindowRgn", nhWnd, nRgn) THEN
   IF API("GDI32", "OffsetRgn", nRgn, nX, nY) THEN nRet = nRgn
END
RESULT nRet

FUNCTION DDWproc(LOCAL nhWnd is int, LOCAL nMsg is int, LOCAL nwParam is int, LOCAL nlParam is int)
nRet is int
IF nMsg = WM_SETCURSOR THEN
   API("USER32", "SetCursor", API("USER32", "LoadCursorA", Null, IDC_WAIT))
   nRet = 1
ELSE
   nRet = API("USER32", "DefWindowProcA", nhWnd, nMsg, nwParam, nlParam)
END
RESULT nRet

FUNCTION RegisterDDWclass()
wc is WNDCLASSEX
zClass is string ASCIIZ on 16 = "DDWINDOWEX"
wcStyle is int = CS_HREDRAW + CS_VREDRAW
IsInitialized is int = API("USER32.DLL", "GetClassInfoExA", Instance, &zClass, &wc)
IF IsInitialized    = 0 THEN
   wc:cbSize        = Dimension(wc)
   wc:style         = wcStyle
   wc:lpfnWndProc   = &DDWproc
   wc:cbClsExtra    = 0
   wc:cbWndExtra    = 0 // Extend_cbWndExtra * 4
   wc:hInstance     = Instance
   wc:hIcon         = Null
   wc:hCursor       = API("USER32", "LoadCursorA", Null, IDC_WAIT)
   wc:hbrBackground = API("GDI32", "GetStockObject", 4) // BlackBrush
   wc:lpszMenuName  = Null
   wc:lpszClassName = &zClass
   wc:hIconSm       = Null
   IF API("USER32.DLL", "RegisterClassExA", &wc) THEN IsInitialized = True
END
RESULT IsInitialized

FUNCTION IsOsNT()
nRet is int
sVersion is string = SysWindowsVersion()
IF sVersion = "NT 5" THEN sVersion = "0"
// Check the OS before to apply the shadow effect
IF StringCount("0XV2", Left(sVersion, 1)) THEN nRet = -1 // 2000, XP, 2003, VISTA
RESULT nRet

FUNCTION GetWindowLong(LOCAL nHandle is int, LOCAL nIndex is int)
nRet is int = API("USER32", "GetWindowLongA", nHandle, nIndex)
RESULT nRet

FUNCTION SetWindowLong(LOCAL nHandle is int, LOCAL nIndex is int, LOCAL nNewValue is int)
nRet is int = API("USER32", "SetWindowLongA", nHandle, nIndex, nNewValue)
RESULT nRet

FUNCTION SetLayeredWindowAttributes(LOCAL nHandle is int, LOCAL nAlpha is 1-byte unsigned int)
nRet, nBlackColor, nUseStyle are int
IF IsOsNT THEN
  nBlackColor = 0
  nUseStyle = BinaryOR(GetWindowLong(nHandle, GWL_EXSTYLE), WS_EX_LAYERED)
  SetWindowLong(nHandle, GWL_EXSTYLE, nUseStyle)
  nRet = API("USER32", "SetLayeredWindowAttributes", nHandle, nBlackColor, nAlpha, LWA_ALPHA)
END
RESULT nRet

FUNCTION CreateDDW(LOCAL nParent is int)
nDDW, nUseStyle are is int
stRW is RECT
IF RegisterDDWclass() THEN
   IF nParent <> 0 THEN
      nUseStyle = BinaryOR(WS_POPUP, WS_DISABLED)
      nDDW = API("USER32","CreateWindowExA", ...
      WS_EX_TOOLWINDOW, ... // SDK extended style
      "DDWINDOWEX",...      // The unique class name
      "", ...               // Caption
      nUseStyle, ...        // SDK style
      0, ...                // X location
      0, ...                // Y location
      0, ...                // Control width
      0, ...                // Control height
      nParent, ...          // Parent handle
      0, ...                // Control ID
      Instance, ...         // Instance
      0)
      IF nDDW THEN
         SetLayeredWindowAttributes(nDDW, 132)
         // Get the region of the parent window.
         nRgn is int = GetWindowRgn(0, 0, nParent)
         // Assign same region shape to our DDW window.
         nRet is int = API("USER32", "SetWindowRgn", nDDW, nRgn, 0)
         API("USER32", "GetWindowRect", nParent, &stRW)
         // Setup the good size for our DDW window.
         API("USER32", "SetWindowPos", nDDW, nParent, stRW:nLeft, stRW:nTop, stRW:nRight, stRW:nBottom, SWP_NOACTIVATE)
         API("USER32", "ShowWindow", nDDW, SW_SHOW)
      END
   END
END
RESULT nDDW

PROCEDURE DestroyDDW(nDDW is int)
IF nDDW THEN API("USER32", "DestroyWindow", nDDW); nDDW = 0

To use it, call CreateDDW before to open the child popup, then call DestroyDDW once done.
MyWindow..Handle is the handle of the parent window that should be grayed.

Syntax example:

nDDW is int = CreateDDW(MyWindow..Handle)
   Open("MyChildPopupWindow")
DestroyDDW(nDDW)

Using STATIC variables within a procedure (7 replies)

Patrice Terrier — Mon, 27 Dec 2010 09:24:49 +0100

There is one big feature i am missing in WinDev:
the use of STATIC variables in a procedure to preserve specific values from one call to another.

Actualy there is no other alternative than using GLOBALs, however this is considered as a bad programming pratice in most languages i know, and it doesn't help to create modular procedures that can be reused from one project to another.

To work around this problem, i have written a couple of functions (see the code below), but if you have a better solution i would be glad to know about it.

Thank you!

_________________________________________________________________

SetStaticValue

PROCEDURE SetStaticValue(LOCAL sUseString is string, LOCAL nValue is int)
sUseString += "|"
nhMain is int = Handle(MyWindow..Name)
nStaticHandle is int = GetDlgItem(nhMain, ID_STATIC)
IF nStaticHandle = 0 THEN
	nStaticHandle = API("USER32", "CreateWindowExA", 0, "LISTBOX", "", WS_CHILD + LBS_HASSTRINGS, 0, 0, 0, 0, nhMain, ID_STATIC, Instance, 0)
END
IF nStaticHandle THEN
	nIndex is int = SendMessage(nStaticHandle, 399, -1, &sUseString)
	IF nIndex > -1 THEN // We found same static
		SendMessage(nStaticHandle, 410, nIndex, nValue)
	ELSE // Add it to our static list
		SendMessage(nStaticHandle, 410, SendMessage(nStaticHandle, 384, 0, &sUseString), nValue)
	END
END

GetStaticValue

FUNCTION GetStaticValue(LOCAL sUseString is string)
sUseString += "|"
nValue is int = 0
nhMain is int = Handle(MyWindow..Name)
nStaticHandle is int = GetDlgItem(nhMain, ID_STATIC)
IF nStaticHandle THEN
	nIndex is int = SendMessage(nStaticHandle, 399, -1, &sUseString)
	IF nIndex > -1 THEN // We found it
		nValue = SendMessage(nStaticHandle, 409, nIndex, 0)
	END
END
RESULT nValue

Example showing how to use it:
nFlip is int = GetStaticValue("nFlip"); nFlip = NOT nFlip; SetStaticValue("nFlip", nFlip)

Using TRANSFER with API calls (no replies)

Patrice Terrier — Wed, 24 Jun 2009 15:18:17 +0200

Useful TIP

You probably know that the WL API keyword returns "only" a long integer whatever the real value returned by the underlaying api call.

What to do, if the returned value is a pointer to a structure or indeed a real value?

Then the WL Transfer comes to rescue, here is an example showing you how to turn the Long integer (4-byte int) into a Single 4-byte real.

// Example based on the GDImage encapsulation
FUNCTION ZI_GetZoomValue(LOCAL hWnd is int)
nRet is int = ZI_GetProperty(hWnd, ZI_ZoomFactor)
rValue is 4-byte real       // <----------
Transfer(&rValue, &nRet, 4) // <----------
IF rValue < 0.001 THEN rValue = 1
RESULT rValue

...

GetGUID (by Guenter) (2 replies)

Michael Drechsel — Thu, 10 Dec 2009 18:19:19 +0100

// Summary: 
// Syntax:
//[  = ] GetGUID ()
//
// Parameters:
//	None
// Return Value:
// 	string: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE GetGUID() 

GUID is TO structure
	Data1 is int on 4 bytes
	Data2 is int on 2 bytes
	Data3 is int on 2 bytes
	Data4 is fixed array of 8 unsigned int on 1 byte
END 

LOCAL
	i is int on 4 bytes
	udtGuid is GUID
	s is string
	g is string 
	
i=CallDLL32("OLE32.DLL","CoCreateGuid",&udtGuid) 

IF i = 0 THEN
	s = NumToString(udtGuid:Data1, "08X")+NumToString(udtGuid:Data2, "04X")+...
	NumToString(udtGuid:Data3, "04X")
	IF udtGuid:Data4[1] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[1],"X")
	IF udtGuid:Data4[2] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[2],"X")
	IF udtGuid:Data4[3] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[3],"X")
	IF udtGuid:Data4[4] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[4],"X")
	IF udtGuid:Data4[5] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[5],"X")
	IF udtGuid:Data4[6] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[6],"X")
	IF udtGuid:Data4[7] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[7],"X")
	IF udtGuid:Data4[8] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuid:Data4[8],"X")
END 

RESULT s