Diese Seite mit anderen teilen ...

Informationen zum Thema:
Forum:
WinDev Forum
Beiträge im Thema:
3
Erster Beitrag:
vor 10 Monaten, 2 Wochen
Letzter Beitrag:
vor 10 Monaten, 2 Wochen
Beteiligte Autoren:
Gabriel Marten, Allard

Framework included in executable with custom groupware

Startbeitrag von Gabriel Marten am 11.12.2016 19:34

Hi all

I have a windev 20 application with a custom user groupware. (CS/manual start) If i generate the windows executable using the framework DLL beside the executable the program works ok, but if use the option to include the framework in the executable (No DLL extraction at startup) I get the following error :

Error at line 5 of Local Procedure CheckConfirmation process.
HReadSeek function called.
The data source is not initialized.
- If it is a data file, the file was not found in the analysis or it was not described by HDeclare/HDeclareExternal.
- If it is a query or a view, the execution may have failed.
To retrieve the corresponding error, check the result of HExecuteQuery/HExecuteSQLQuery/HCreateView.

Has anyone had this problem and found a solution ?

Thanks for your help!

Gabriel

Antworten:

Hi Gabriel,

You have to make a connection to the groupware.

Here is a a procudure I use for that. ( I just paste in my code. I think this will give you some insight although some stuff is in Dutch ):

Code:

PROCEDURE gpwCONNECT()
LOCAL
lboolResult is boolean
lintResult is int


IF gstrGpwDatabaseRights = "" THEN
//No groupware.
ELSE
// IF gstrDbConnectionType = "" OR gstrDbConnectionType = "HF" THEN
// //Classic local hyperfiles.
// lintResult = gpwOpen(gstrGpwDatabaseRights,gstrGpwDatabaseUsers)
// IF lintResult = gpwOk THEN
// gstrLoginMedewerker = gpwGetUserInfo(gpwInfoLogin)
// gstrLoginAutorisatie = gpwGetUserInfo(gpwInfoGroup)
// ELSE
// SWITCH lintResult
// CASE gpwError : Error("Error initializing groupware1.")
// CASE gpwUnknownUser : Error("Unknown user.")
// CASE gpwInvalidPassword : Error("Bad password.")
// END
// EndProgram()
// END
//
// IF NOT gpwInitAnalysis() THEN
// Info("GPW")
// // goApplication:sAfkortingLogin = csSupervisor
// END
//
// ELSE
//Other connection, e.g. HF-ClientServer or MS-SQL-server.
gstrGpwConnectionName = "hfcs"
lboolResult = gpwOpenConnection(gstrGpwConnectionName,gsStrGPWDBuser,gsStrGPWDbPassword,gsStrGPWDbDataSource,gstrGpwDatabaseRights,hAccessHFClientServer,hOReadWrite)
IF NOT lboolResult THEN
EndProgram("Fout bij het openen van connectie naar GPW!",HErrorInfo())
ELSE
// De login uitvoeren.
//lintResult = gpwOpen(gstrGpwDatabaseRights,gstrGpwDatabaseUsers) //".","."
lintResult = gpwOpen(gstrGpwDatabaseRights,gstrGpwDatabaseUsers)
IF lintResult = gpwOk THEN
gstrLoginMedewerker = gpwGetUserInfo(gpwInfoLogin)
gstrLoginAutorisatie = gpwGetUserInfo(gpwInfoGroup)
ELSE
SWITCH lintResult
CASE gpwError : Error("Error initializing groupware2.",HErrorInfo())
CASE gpwUnknownUser : Error("Unknown user.")
CASE gpwInvalidPassword : Error("Bad password.")
END
EndProgram()
END
END
END

regards
Allard

von Allard - am 12.12.2016 08:42
Hi Allard

Thank's for the info!

Regards

Gabriel

von Gabriel Marten - am 12.12.2016 15:15
Zur Information:
MySnip.de hat keinen Einfluss auf die Inhalte der Beiträge. Bitte kontaktieren Sie den Administrator des Forums bei Problemen oder Löschforderungen über die Kontaktseite.
Falls die Kontaktaufnahme mit dem Administrator des Forums fehlschlägt, kontaktieren Sie uns bitte über die in unserem Impressum angegebenen Daten.