HEX TO .EXE

[hherrera]

Hi friends!!

I have an idea, but I don't know if it can be done.

I have created an .exe application that generates various configuration files in text mode.
in turn I have to indicate where a small executable is and copy it.
What I dislike is having to carry an additional .exe.

If with those programs that convert from .exe to Hex I copy that information, paste it into a file and store it inside my installer, created from harbour.

 It could generate an .exe

Thanks

Henry Herrera

[Brunello Pulix]

hb_Base64Decode(cFile) or UUencode-UUedecode

Brunello Pulix

[hherrera]

Thanks Brunello.

[Brunello Pulix]

another idea

PROCEDURE RunScript
   LOCAL cCONTENT, hHANDLE_HRB, cPRG, cHRBCODE
   LOCAL cFILE := "script.hrb", cPASSWORD := "MyPasswordKey"
   IF !FILE( cFILE )
      cPRG := ;
         "proc p()" + hb_eol() + ;
         "   SetProperty ( 'Win_Main', 'StatusBar' , 'Item' , 1 , 'Hello World!' ) " + hb_eol() + ;
         "   MsgInfo( 'Hello World!' )" + hb_eol() + ;
         "return"
      cHRBCODE := hb_compileFromBuf( cPRG, "harbour", "-n", "-w3", "-es2", "-q0" )
      MEMOWRIT( cFILE, sx_encrypt( cHRBCODE, cPASSWORD ) )
   ENDIF
   cCONTENT := sx_decrypt( MEMOREAD( cFILE ), cPASSWORD )
   hHANDLE_HRB := hb_hrbload( cCONTENT )
   hb_hrbDo( hHANDLE_HRB )
   hb_hrbunload( hHANDLE_HRB )
RETURN

Brunello Pulix

[Diego F]

Hi, 

#xcommand SOURCE <(cFile)> TO <var> => ;
   #pragma __binarystreaminclude <(cFile)>|<var> := %s

FUNCTION Main()

   SOURCE "yourexe.exe" TO a
   hb_memowrit("yourexe_new.exe", a)

RETURN NIL

Diego.

[hherrera]

Thanks for your answer