To Antonio - hb_HrbRun()

[Rimantas]

Hi,

I wanted to did script with hb_hrbRun() , in which exist xbrowse . Sorry , but I'm getting error : "Unknow or unregistered symbol XBROWSENEW" . As I can understand , this one exist in xbrowse.ch . This include is directed in my prg file .

Prg script :

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xbrowse.ch"

function uzsak_brw()
local oWnd, oBrw

MsgInfo( "Start of script ..." )
dBUseArea( .t., "sqlmix", "SELECT * FROM uzsakym", "uzsakym", .T., .F. )
DEFINE WINDOW oWnd MDICHILD OF WndMain() TITLE "Uzsakymai"

@ 0, 0 XBROWSE oBrw OF oWnd ALIAS "uzsakym"

oBrw:GoBottom()
oBrw:CreateFromCode()
oWnd:oClient := oBrw

ACTIVATE WINDOW oWnd ON INIT oBrw:SetFocus() VALID ( UZSAKYM->( dbclosearea() ), .t. )
return( NIL )
 

It not reach - MsgInfo( "Start of script ..." ) .

How to solve this problem ?

With best regards !

[Antonio Linares]

In your code add:

REQUEST XBROWSENEW

[Rimantas]

In your code add:

REQUEST XBROWSENEW

Thanks ! That worked !

Antonio , can you advise to mine with another question ? viewtopic.php?f=3&t=23402 .

I did some search and found that :

Code: Select all  Expand view

proc main
   local CONTENT, HANDLE_HRB, PRG, HRBCODE
   PRG := ;
      "proc p()" + EOL + ;
      "   ? 'Hello World'" + EOL + ;
      "   alert( 'Hello World' )" + EOL + ;
      "return"
   HRBCODE := hb_compileFromBuf( PRG, "harbour", "-n", "-w3", "-es2", "-q0" )
   memowrit( "myhrb.hrb", sx_encrypt( HRBCODE, "myPaswdKey" ) )

   CONTENT := sx_decrypt( memoread( "myhrb.hrb" ), "myPaswdKey" )
   HANDLE_HRB := hb_hrbload( CONTENT )
   hb_hrbDo( HANDLE_HRB )
   hb_hrbunload( HANDLE_HRB )
   WAIT
return
 

Which version is better of running and manage scripts ? In mine question or in this sample ? Or other way ? I have in mind and first question - maybe scripts are doing some memory leaks ?

Many thanks in advance ! With best regards !

[Antonio Linares]

Rimantas,

This seems to be missing in your code:

hb_hrbunload( HANDLE_HRB ) // oRun for you

Try it

[Rimantas]

Rimantas,
This seems to be missing in your code:
hb_hrbunload( HANDLE_HRB ) // oRun for you
Try it

Hello Antonio !

I tried this and it seems that all is working OK . One moment - what is the difference between "HB_compilebuf" and "HB_compileFrombuf" ? Of course , description of harbour functions exist in sources . But in sources I can't find such too ...

With best regards !

[Antonio Linares]

Rimantas,

With HB_COMPILEFROMBUF() the source code is loaded from a variable. function HB_COMPILEBUF() get the source from a file:

Code: Select all  Expand view

HB_FUNC( HB_COMPILEFROMBUF )
{
   ...
   const char * szSource;
   ...

   szSource = hb_parc( 1 );
   if( szSource )
   ...

 

http://harbour-project.svn.sourceforge.net/viewvc/harbour-project/trunk/harbour/src/compiler/hbcmplib.c?revision=17084&view=markup

[Rimantas]

Rimantas,

With HB_COMPILEFROMBUF() the source code is loaded from a variable. function HB_COMPILEBUF() get the source from a file:

Thanks , Antonio !

With best regards !