FiveTech Software tech support forums

Hello Boris, As all is that complex it is very important to have good beta testers for your software. BTW, did you try using Lfn2Sfn(cDir) with the directory-function? Best regards, Otto Hi Otto, All my software is tested for 8 years (web app) and more than 14 years (desktop) Two months ...

Hello Boris,

As all is that complex it is very important to have good beta testers for your software.

BTW, did you try using Lfn2Sfn(cDir) with the directory-function?

Best regards,
Otto

... +hbcommon,+hbpp,+hbcpage,+hbwin,+hbcplr,+hbct,+xhb.lib,+hbziparc,+hbmzip,-minizip,+hbzlib,+png,+ace32 CCompiler=BCC CDir=C:\Bcc582 CDirBin=C:\Bcc582\Bin CDirInclude=C:\Bcc582\Include CDirLib=C:\Bcc582\Lib CFlags=-tWM -c -v- -O2 -X CLibraries=+c0w32.obj,+psdk\odbc32,+psdk\psapi,+psdk\msimg32,+cw32,+import32,+wininet ...

when I load a bitmaps the function getdir save on cDir all directory

for sample

c:\work\prg\codici\bitmaps\xxx.bmp

I wish only .\bitmaps\xxx.bmp

because if I insert the exe to another folder or pc it not found the bitmaps

any idea ?

... can I adapt the source code of xbimg.prg on the source I wrote on first message of this post I wrote : I have a dbf with this structure DbCreate(cDir+'TT', {{'Codice' , 'C', 4, 0} ,; {'Descri' , 'C', 60, 0} ,; {'Image' , 'C', 60, 0}}, 'DBFCDX') and I want insert a image directly from xbrowse ...

I wish show the image with a dialog and Have the possibility to insert a new image from xbrowse directly I have a dbf with this structure DbCreate(cDir+'TT', {{'Codice' , 'C', 4, 0} ,; {'Descri' , 'C', 60, 0} ,; {'Image' , 'C', 60, 0}}, 'DBFCDX') And I want create a xbrowse oApp():oGrid := TXBrowse():New( ...

... NEXT oPrn:EndPage() oPrn:End() RETURN NIL ******************************** Function DirTempdoWindows() Local cDir := GetEnv("TEMP") // Se Vazio cDir Entao cDir := GetEnv("TMP") If Right( cDir, 1 ) == "\" cDir = SubStr( cDir, 1, ...

Hola, 1.- crear un directorio por ejemplo c:\mitmp 2.- en tu definicion del repoerte oRepo:oDevice:cDir := 'c:\mitmp' y nos comentas :-) solo una idea saludos Marcelo Marcelo ¡No pasa nada! Hice lo que sugeriste y estuve rastreando a ver si aparece algo en la carpeta creada ...

Hola,

1.- crear un directorio por ejemplo c:\mitmp

2.- en tu definicion del repoerte oRepo:oDevice:cDir := 'c:\mitmp'

y nos comentas solo una idea

saludos

Marcelo

... nPosic, cDescrip, nPosic1, nPosic2 LOCAL nHandle, oFont, oFontMulti, oDlgEmp, nAlto, cTitle PRIVATE DirEmpresa := "", aCampos:={}, cDir, lSalir := FALSE, cDirCon PRIVATE Init32 := FALSE MsgInfo("DEBUG") SET HELPFILE TO ""

Thank you, Enrico,
I use your
FUNCTION DELETEDIR( cDir )
and all is working.
Thanks again,
Otto

... creado, el cual, posteriormente, se puede recuperar para simplemente visualizarlo, o imprimirlo. Dentro del metodo End() creo la variable local cDirSaveMF:=".\METAFILE", para crear, aquí mismo, el Subdirectorio donde voy a guardas mis "Metas". Por defecto lo creo dentro del directorio actual. ...

... /* Función CrearInd() */ Function CrearInd(oMeter,oText,oDlg,lEnd,aBas) Local nPor,aInd,nBas,nTot,nLargo,i,cDir Field RUTCLI,NOMCLI,DIRCLI,MARCA,MODELO,PATENTE,NUMLIQ,FECHA,CODIGO,FACNUM,FACFE,RUTPRO,BOLNUM,BOLFE Field REPAR,DETALLE,CARGOS,ABONOS,COMUNA,CIUDAD,PRVRUT,PRVNOM,PRVGIR,PRVDIR,NUMDOC,NUMFAC,FEFAC,CLIGIR ...

Richard Chidiak wrote:John

try set index to ( cDir + "\ARTICUL" )

HTH

Richard

Yes, I am on.
Thanks Richard

John

try set index to ( cDir + "\ARTICUL" )

HTH

Richard