FiveTech Software tech support forums

Posted: **Sun Jan 02, 2011 10:08 pm**

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


#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

Posted: **Mon Jan 03, 2011 1:57 am**

Hello Mr. Otto

you need convert to wide

with Harbour try with hb_mbtowc (AnsiToWide)

Code: Select all | Expand



#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...

FiveTech Software tech support forums

How to define a parameter

How to define a parameter

Re: How to define a parameter