Dear Jimmy,
I think CreateBinary() could be implemented like this:
HB_FUNC( CREATEBINARY )
{
hb_retclen( hb_parc( 1 ), hb_parclen( 1 ) );
}
or maybe we simply don't need it as Harbour strings can contain embedded zeroes
Visual FoxPro automatically converts binary data passed from an ActiveX control or automation object as an array of VT_UI1 type data to a Visual FoxPro character string. Visual FoxPro internally marks this character string as binary data passed from an ActiveX control or automation object. When the character string is passed back to an ActiveX control or automation object, Visual FoxPro automatically converts the character string to an array of VT_UI1 type data the ActiveX control or automation object expects.
lsInk := hb_MemoRead( cFile )
oInkOvl:Enabled := 0
oInkOvl:ink:Load( lsInk )
oInkOvl:Enabled := 1
// draw it
oInkOvl:Draw( oInkrectangle )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 58 guests