WD - WDModFic file password? July 15, 2021 11:57PM |
Registered: 5 years ago Posts: 236 |
sWDModFicDirectory is string = CompleteDir(fExeDir())//fExeDir() //mapa gdje se nalazi ModFic.exe sFullWDDName is string = CompleteDir(fExeDir())+"INFOS.wdd" //naziv analize sUser is string = gsUser //korisnicko ime sPassword is string = gsLozinka sAddressOrNameHFServer is string = gsServer //naziv servera sPortNumHFServer is int = gsPort //port sDatabaseName is string = gsBaza //naziv baze podataka sFilePassword is string = gsFilePasword sCommandLine is string sCommandLine = StringBuild([ "%1WDModFic.exe" /WDD="%2" /SERVER="%3:%4@%5:%6/%7" /FILEPWD="%8" -nolink ], CompleteDir(sWDModFicDirectory), sFullWDDName, sUser, sPassword, sAddressOrNameHFServer, sPortNumHFServer, sDatabaseName, sFilePassword) //Start automatske modifikacije IF not ExeRun(sCommandLine, exeActive, exeWait) THEN Error("Ne može se izvršiti automatska izmjena podataka : ", ErrorInfo(), "naredbeni redak : ", sCommandLine) ELSE ToastDisplay("Procedura nadogradnje je završena") END
Re: WD - WDModFic file password? July 16, 2021 12:30AM |
Admin Registered: 5 years ago Posts: 297 |
Argus
Re: WD - WDModFic file password? July 16, 2021 02:46AM |
Re: WD - WDModFic file password? July 16, 2021 09:09PM |
Registered: 5 years ago Posts: 236 |
Re: WD - WDModFic file password? July 17, 2021 07:44AM |
Admin Registered: 5 years ago Posts: 501 |
Re: WD - WDModFic file password? July 17, 2021 09:46AM |
Registered: 5 years ago Posts: 236 |
Re: WD - WDModFic file password? July 17, 2021 01:39PM |
Registered: 5 years ago Posts: 236 |
Argus
Re: WD - WDModFic file password? July 17, 2021 04:19PM |
Re: WD - WDModFic file password? July 17, 2021 05:29PM |
Registered: 5 years ago Posts: 236 |
Re: WD - WDModFic file password? July 17, 2021 05:36PM |
Admin Registered: 5 years ago Posts: 501 |
Re: WD - WDModFic file password? July 17, 2021 05:47PM |
Admin Registered: 5 years ago Posts: 501 |
Re: WD - WDModFic file password? July 17, 2021 06:19PM |
Registered: 5 years ago Posts: 236 |
sListOfErrors is string // Strict check of the structure of files HCheckStructure("*", hIdentical) // For all the files FOR EACH STRING sAFileName OF HListFile() SEPARATED BY CR WHEN EXCEPTION IN // Open or create the data file HCreationIfNotFound(sAFileName) DO // Problem // Is there a difference of structure? IF HError(hErrCurrent) = 70016 THEN // Error 70016: THE FILE DOES NOT CORRESPOND TO ITS DESCRIPTION ToastDisplay("Updating the structure of the file <" + ... sAFileName + "> in progress...", toastShort, vaMiddle, haCenter) // Update the structure of the file IF NOT HModifyStructure(sAFileName) THEN // Failure updating the structure of the file sListOfErrors += [CR] + ... "- Error while modifying the structure for the file <" + ... sAFileName + ">: " + HErrorInfo() END ELSE // Errors other than a difference of structure sListOfErrors += [CR] + "- Error while accessing the file <" + ... sAFileName + ">: " + HErrorInfo() END END END // Compatible check of the file structure // Therefore, the "most common" modifications allow // to use the application (see HCheckStructure) HCheckStructure("*", hCompatible) // Errors occurred? IF sListOfErrors <> "" THEN // Message in order to warn IF NOT YesNo("Errors occurred while opening the files: " + CR + ... sListOfErrors + CR +... "Continue the application?") THEN EndProgram() END END
Re: WD - WDModFic file password? July 18, 2021 10:45AM |
Registered: 5 years ago Posts: 216 |