FiveTech Support Forums

FUNCTION MAIN( cParam1, cParam2, etc. )

// wndsend.prg

#include "fivewin.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

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

function Main()

   local oWnd, oBar, oBrw

   USE CUSTOMER NEW VIA "DBFCDX"

   DEFINE WINDOW oWnd TITLE "SendWnd"
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
   DEFINE BUTTON OF oBar PROMPT "SendMsg" ACTION SendData()
   SET MESSAGE OF oWnd TO '' 2007

   @ 0,0 XBROWSE oBrw OF oWnd ALIAS "CUSTOMER" ;
      AUTOCOLS CELL LINES NOBORDER

   oBrw:CreateFromCode()
   oWnd:oClient   := oBrw

   ACTIVATE WINDOW oWnd
   CLOSE DATA

return 0

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

static function SendData()

   local hDstWnd  := FindWindow( "TCDWnd", "GetWnd" )

   if Empty( hDstWnd )
      ? "window not found"
   else
      SendDataToApp( hDstWnd, 1, ;
         FW_ValToExp( { CUSTOMER->FIRST, CUSTOMER->LAST, CUSTOMER->CITY } ), ;
         WndMain():hWnd )
   endif

return nil

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

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

#pragma BEGINDUMP

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

HB_FUNC (SENDDATATOAPP) // ( hDestWnd, nMsgID, cData, hFromWnd )
{
   COPYDATASTRUCT cds;

   cds.dwData     = hb_parnl( 2 );
   cds.cbData     = hb_parclen( 3 );
   cds.lpData     = (PVOID) hb_parcx( 3 );

   SendMessage( (HWND) hb_parnl( 1 ), WM_COPYDATA, (WPARAM) (HWND) hb_parnl( 4 ), (LPARAM) (LPVOID) &cds );
   hb_ret();
}

HB_FUNC (PARSECOPYDATA)
{
   PCOPYDATASTRUCT pCDS;

   pCDS           = (PCOPYDATASTRUCT) hb_parnl( 1 );
   hb_stornl( pCDS->dwData, 2 );
   hb_retclen( pCDS->lpData, pCDS->cbData );

}

#pragma ENDDUMP

//============================================================================//

// wndget.prg

#include "fivewin.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

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

function Main()

   local oWnd, oBar, oBrw

   oWnd  := TCDWnd():New( nil, nil, nil, nil, "GetWnd" )
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
   SET MESSAGE OF oWnd TO ''

   oWnd:bOnGetData   := { |oWnd, oFrom, nID, cData| ;
      OnGetData( oWnd, oFrom, nID, cData, oBrw ) }

   @ 0,0 XBROWSE oBrw OF oWnd DATASOURCE {} ;
      COLUMNS 1, 2, 3 ;
      HEADERS "First", "Last", "City" ;
      COLSIZES 80, 80, 80 ;
      CELL LINES NOBORDER

   oBrw:CreateFromCode()
   oWnd:oClient   := oBrw

   ACTIVATE WINDOW oWnd
   CLOSE DATA

return 0

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

static function OnGetData( oWnd, oFrom, nMsgID, cData, oBrw )

   AAdd( oBrw:aArrayData, &cData )
   oBrw:GoBottom()
   oBrw:Refresh()
   oBrw:SetFocus()

return nil

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

//============================================================================//

#define WM_COPYDATA                     0x004A

CLASS TCDWnd FROM TWindow STATIC

   DATA bOnGetData

   CLASSDATA lRegistered AS LOGICAL

   METHOD HandleEvent( nMsg, nWParam, nLParam )

ENDCLASS

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

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TCDWnd

   local nDataID := 0, cData

   if nMsg == WM_COPYDATA
      if ::bOnGetData != nil
         cData    := ParseCopyData( nLParam, @nDataID )
         Eval( ::bOnGetData, Self, nWParam, nDataID, cData )
         return 0
      endif
   endif

return ::Super:HandleEvent( nMsg, nWParam, nLParam )

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

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

#pragma BEGINDUMP

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

HB_FUNC (SENDDATATOAPP) // ( hDestWnd, nMsgID, cData, hFromWnd )
{
   COPYDATASTRUCT cds;

   cds.dwData     = hb_parnl( 2 );
   cds.cbData     = hb_parclen( 3 );
   cds.lpData     = (PVOID) hb_parcx( 3 );

   SendMessage( (HWND) hb_parnl( 1 ), WM_COPYDATA, (WPARAM) (HWND) hb_parnl( 4 ), (LPARAM) (LPVOID) &cds );
   hb_ret();
}

HB_FUNC (PARSECOPYDATA)
{
   PCOPYDATASTRUCT pCDS;

   pCDS           = (PCOPYDATASTRUCT) hb_parnl( 1 );
   hb_stornl( pCDS->dwData, 2 );
   hb_retclen( pCDS->lpData, pCDS->cbData );

}

#pragma ENDDUMP

//============================================================================//