22 lines
331 B
Plaintext
22 lines
331 B
Plaintext
* Test conectare
|
|
x=CREATE('conectare')
|
|
DEFINE CLASS Conectare AS Conectare
|
|
PROCEDURE INIT
|
|
DODEFAULT()
|
|
IF !FILE(lcIniFile)
|
|
SET TEXTMERGE ON TO MEMVAR lcTextIni
|
|
ENDIF
|
|
\[connection]
|
|
\host=ROA_ROMFAST2
|
|
\username=test
|
|
\password=123
|
|
SET TEXTMERGE TO
|
|
STRTOFILE(lcTextIni, lcIniFile)
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
|
|
|
|
|