romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quitar cambio demás y nuevo EXE

Browse Source
This commit is contained in:
fdbozzo
2017-12-02 01:09:10 +01:00
parent f50381da0a
commit 62353694a2
2 changed files with 98 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

50
foxbin2prg.prg
View File

@@ -8579,6 +8579,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDIF ENDIF
*-- Inserto el objeto *-- Inserto el objeto
IF JUSTEXT(toFoxBin2Prg.c_InputFile) = toFoxBin2Prg.c_PJ2
* Solo los PJX/PJ2 tienen el campo DEVINFO
INSERT INTO TABLABIN ; INSERT INTO TABLABIN ;
( PLATFORM ; ( PLATFORM ;
, UNIQUEID ; , UNIQUEID ;
@@ -8627,6 +8629,54 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, '' ; , '' ;
, STRCONV(toObjeto._User,14) ; , STRCONV(toObjeto._User,14) ;
, STRCONV(toObjeto._DevInfo,14) ) , STRCONV(toObjeto._DevInfo,14) )
ELSE
INSERT INTO TABLABIN ;
( PLATFORM ;
, UNIQUEID ;
, TIMESTAMP ;
, CLASS ;
, CLASSLOC ;
, BASECLASS ;
, OBJNAME ;
, PARENT ;
, PROPERTIES ;
, PROTECTED ;
, METHODS ;
, OLE ;
, OLE2 ;
, RESERVED1 ;
, RESERVED2 ;
, RESERVED3 ;
, RESERVED4 ;
, RESERVED5 ;
, RESERVED6 ;
, RESERVED7 ;
, RESERVED8 ;
, USER ) ;
VALUES ;
( 'WINDOWS' ;
, toObjeto._UniqueID ;
, toObjeto._TimeStamp ;
, toObjeto._Class ;
, toObjeto._ClassLib ;
, toObjeto._BaseClass ;
, toObjeto._ObjName ;
, toObjeto._Parent ;
, lcPropsMemo ;
, '' ;
, lcMethodsMemo ;
, toObjeto._Ole ;
, toObjeto._Ole2 ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, STRCONV(toObjeto._User,14) )
ENDIF
ENDIF ENDIF
ENDWITH && THIS ENDWITH && THIS