How to define a parameter

[Otto]

Can someone help me to pass the parameter to the messageBox.
I would like to show cTest inside the messagebox.

Thanks in advance
Otto

Code: Select all  Expand view  RUN

#include "FWCE.ch"
//----------------------------------------------------------------------------//
function Main()
   local oDlg, cText := "Hello world!   "
  local hReturn := ""

  hReturn = TESTFUNKTION( "216.117.77.7" )

  msginfo(hReturn)
   
return nil

//----------------------------------------------------------------------------//

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( TESTFUNKTION )
{
   LPSTR cTest=  ( hb_parc( 1 ) ) ;
   
//MessageBox( GetActiveWindow(), ( char * ) cTest, ( char * ) cAgent,0);

//MessageBox (NULL,  _T( &cTest) , _T("Hello"), 0);

MessageBox (NULL,  _T("Hello") , _T("Hello"), 0);


hb_retc( ( char * ) cTest);
}

#pragma ENDDUMP

[Daniel Garcia-Gil]

Hello Mr. Otto

you need convert to wide

with Harbour try with hb_mbtowc (AnsiToWide)

Code: Select all  Expand view  RUN

#include "FWCE.ch"
//----------------------------------------------------------------------------//
function Main()
   local oDlg, cText := "Hello world!   "
  local hReturn := ""

  hReturn = TESTFUNKTION( "216.117.77.7" )

  msginfo(hReturn)
   
return nil

//----------------------------------------------------------------------------//

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( TESTFUNKTION )
{
   WCHAR * cTest = hb_mbtowc( hb_parc( 1 ) ) ;
   
   MessageBox ( 0, cTest , cTest, 0 );
   
   HB_TCHAR_FREE( cTest );

}

#pragma ENDDUMP

 

i didn't tested...