FiveTech Software tech support forums

a. read/write .ini, GetPvProfString/WritePProfString....

At present, these functions are not Unicode compatible.
We will provide Unicode compatible versions at the earliest.

1. filename change from english to uft8, ex: 'abc.exe to ' 中文龍咙.exe'
2. directory is utf8 name, ex: 'c:\temp\中文龍咙\'

a. read/write .ini, GetPvProfString/WritePProfString....
b. GetModulefileName/cFilePath....

ahh ok
there is error with GetPvProfString command on HArbour not run

... file :      Local cIniFile  := TakeOffExt( GetModuleFileName( GetInstance() ) ) + ".ini"     Local dBassa1   := GetPvProfString("Stagioni", "BASSA1","17.05.", cIniFile)     Local dBassa4   := GetPvProfString("Stagioni", ...

On a ftp procedure I use this configuration to upload and download a file from fwh    Local cFtp     :=( pad(GetPvProfString("Config","Ftp" ,""   ,::cIniFtp ) , 60 ," " ) )   Local cFtpDir  :=( pad(GetPvProfString("Config","FtpDir" ...

... have to use numeric values in the configuration file for areas and items. The configuration files are INI-files. You can use WritePProString and GetPvProfString. Every PRINTAREA is stored in a single file. In the REPORT Definition file ReportName.vrd is a key [Areas] where you see a list with ...

... nOntop = 1, SetWindowPos( oDlgMain:hWnd, -1, 0, 0, 0, 0, 3 ), NIL ), ; // On Top defined in INI ... ... add in Function GET_INI() nOntop := Val(GetPvProfString( "RGB", "On top", "1" , cIniFile ) ) and in function SAVE_INI() WritePProString( "RGB", "On ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Many thanks!

Marco, If you still want to save value with leading spaces in an ini, maybe you can try to mime-encode it first. cStringIni  := cStringIni + "Password="   + cMimeEnc(cCrypted)  + crlf and later you have to remember to cVar2 := HB_DECRYPT( cMimeDec(cCri2) ...

Marco,

the problem is the leading space of the crypted string. You can't store it in an INI file.

EMG

...   ]cCri1   := hIniData[ "Main" ][ "Password" ]cVar1   := HB_DECRYPT( cCri1  , cKeyCry )cNoCri2 := GETPVPROFSTRING( "Main" , "UserId"   , "" , ".\critt.ini" )cCri2   := GETPVPROFSTRING( "Main" ...

Marco,

it looks as a standard Windows API behaviour. It seems that GetPrivateProfileString() API removes leading spaces, that has to be considered the right behaviour, of course.

EMG

... #include "Fivewin.ch" FUNCTION MAIN()LOCAL cVar1, cVar2LOCAL hIniData? memoread( ".\prova.ini" )cVar1  := GETPVPROFSTRING( "Numeri" , "var1" , "NOT READ" , ".\prova.ini" )hIniData := HB_ReadIni( ".\prova.ini" ...

Marco,

the sample is not complete. Please show a complete sample of the problem.

EMG