FiveTech Support Forums

#include "FiveWin.ch"

function Main( cXml )

   local oWebView := TWebView():New()
   local hTags
   local cHtml

   //msginfo( 1 )

   if !file( cXml )
       msginfo('no existe data de entrada presente en ' + cXml )
       return nil
   end

   cHtml = hb_memoread( cXml )


   oWebView:SetHtml( cHtml )
   oWebView:SetTitle( 'Importador XXXXXX ' )
   oWebView:SetSize( 1200, 800 )
   oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
   sleep( 300 )
   oWebView:Run()
   oWebView:Destroy()

return nil

#include "FiveWin.ch"

function Main( cXml )

   local oWebView := TWebView():New()
   local hTags
//    local cHtml

   //msginfo( 1 )

   if !file( cXml )
       msginfo('no existe data de entrada presente en ' + cXml )
       return nil
   end

//    cHtml = hb_memoread( cXml )
//    oWebView:SetHtml( cHtml )

   oWebView:Navigate( openLocalFile( cXml ) )

   oWebView:SetTitle( 'Importador XXXXXX ' )
   oWebView:SetSize( 1200, 800 )
   oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
   sleep( 300 )
   oWebView:Run()
   oWebView:Destroy()

return nil

function openLocalFile( cFile )

	local cUrl := hb_dirTemp() + "index.html"

	hb_memoWrit( cUrl, hb_memoRead( cFile ) )

	cUrl := urlEncode( "file:///" + strtran( cUrl, "\", "/" ) )
	cUrl := strtran( cUrl, "+", "%20" )
	cUrl := strtran( cUrl, " ", "%20" )
	cUrl := strtran( cUrl, "%3A", ":" )

return cUrl

#pragma BEGINDUMP
#include <hbvm.h>
#include <hbapi.h>
#include <hbapiitm.h>
#include <hbapierr.h>

HB_FUNC( URLENCODE )
{
	const char * cData     = hb_parc( 1 );
	HB_ISIZ      nLen      = hb_parclen( 1 );
	HB_BOOL      bComplete = hb_parldef( 2, HB_TRUE );
	char *       cRet;
	HB_ISIZ      nPos = 0, nPosRet = 0, nVal;
	char         cElem;

	if( ! cData )
	{
		hb_errRT_BASE( EG_ARG, 3012, NULL,
						HB_ERR_FUNCNAME, 1, hb_paramError( 1 ) );
		return;
	}

	if( ! nLen )
	{
		hb_retc_null();
		return;
	}

	/* Giving maximum final length possible */
	cRet = ( char * ) hb_xgrab( nLen * 3 + 1 );

	while( nPos < nLen )
	{
		cElem = cData[ nPos ];

		if( cElem == ' ' )
		{
			cRet[ nPosRet ] = '+';
		}
		else if(
			( cElem >= 'A' && cElem <= 'Z' ) ||
			( cElem >= 'a' && cElem <= 'z' ) ||
			( cElem >= '0' && cElem <= '9' ) ||
			cElem == '.' || cElem == ',' || cElem == '&' ||
			cElem == '/' || cElem == ';' || cElem == '_' )
		{
			cRet[ nPosRet ] = cElem;
		}
		else if( ! bComplete && ( cElem == ':' || cElem == '?' || cElem == '=' ) )
		{
			cRet[ nPosRet ] = cElem;
		}
		else /* encode! */
		{
			cRet[ nPosRet++ ] = '%';
			nVal = ( ( HB_UCHAR ) cElem ) >> 4;
			cRet[ nPosRet++ ] = nVal < 10 ? '0' + ( char ) nVal : 'A' + ( char ) nVal - 10;
			nVal = ( ( HB_UCHAR ) cElem ) & 0x0F;
			cRet[ nPosRet ] = nVal < 10 ? '0' + ( char ) nVal : 'A' + ( char ) nVal - 10;
		}

		nPosRet++;
		nPos++;
	}

	hb_retclen_buffer( cRet, nPosRet );
}

#pragma ENDDUMP

ShowWindow( oWebView:GetWindow(), 3 ) // SW_MAXIMIZE