FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Probando Navegador Web usando Activex
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Probando Navegador Web usando Activex
Posted: Wed Feb 24, 2010 11:15 PM

Este post lo he colocado con la primera prueba del uso de activex, usando el ejemplo de FiveTech
testactm.prg

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Probando Navegador Web usando Activex
Posted: Thu Feb 25, 2010 07:45 PM
Amigos,

para hacer algunas pruebas...
Por favor, solo visiten sitios conocidos, ya que el navegador podria permitir el ataque de virus (al menos yo creo que si)

Este navegador podria ser usado para acceder el sitio web del programador, desde la aplicacion, o algo asi...


http://www.box.net/shared/o1htt4yuns




=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Probando Navegador Web usando Activex
Posted: Thu Feb 25, 2010 08:30 PM
Amigos,

encontre esto por ahi...


Name MemberType Definition
---- ---------- ----------
ClientToWindow Method void ClientToWindow (int, int)
ExecWB Method void ExecWB (OLECMDID, OLECMDEXECOPT, Variant, Variant)
GetProperty Method Variant GetProperty (string)
GoBack Method void GoBack ()
GoForward Method void GoForward ()
GoHome Method void GoHome ()
GoSearch Method void GoSearch ()
Navigate Method void Navigate (string, Variant, Variant, Variant, Variant)
Navigate2 Method void Navigate2 (Variant, Variant, Variant, Variant, Variant)
PutProperty Method void PutProperty (string, Variant)
QueryStatusWB Method OLECMDF QueryStatusWB (OLECMDID)
Quit Method void Quit ()
Refresh Method void Refresh ()
Refresh2 Method void Refresh2 (Variant)
ShowBrowserBar Method void ShowBrowserBar (Variant, Variant, Variant)
Stop Method void Stop ()
AddressBar Property bool AddressBar () {get} {set}
Application Property IDispatch Application () {get}
Busy Property bool Busy () {get}
Container Property IDispatch Container () {get}
Document Property IDispatch Document () {get}
FullName Property string FullName () {get}
FullScreen Property bool FullScreen () {get} {set}
Height Property int Height () {get} {set}
HWND Property int HWND () {get}
Left Property int Left () {get} {set}
LocationName Property string LocationName () {get}
LocationURL Property string LocationURL () {get}
MenuBar Property bool MenuBar () {get} {set}
Name Property string Name () {get}
Offline Property bool Offline () {get} {set}
Parent Property IDispatch Parent () {get}
Path Property string Path () {get}
ReadyState Property tagREADYSTATE ReadyState () {get}
RegisterAsBrowser Property bool RegisterAsBrowser () {get} {set}
RegisterAsDropTarget Property bool RegisterAsDropTarget () {get} {set}
Resizable Property bool Resizable () {get} {set}
Silent Property bool Silent () {get} {set}
StatusBar Property bool StatusBar () {get} {set}
StatusText Property string StatusText () {get} {set}
TheaterMode Property bool TheaterMode () {get} {set}
ToolBar Property int ToolBar () {get} {set}
Top Property int Top () {get} {set}
TopLevelContainer Property bool TopLevelContainer () {get}
Type Property string Type () {get}
Visible Property bool Visible () {get} {set}
Width Property int Width () {get} {set}

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Probando Navegador Web usando Activex
Posted: Mon Mar 01, 2010 06:19 PM
Amigos,
Modificando el codigo de esta manera, la ventana se ajustara al tamaño del monitor, y el Activex al tamaño de la Ventana....
Code (fw): Select all Collapse
   DEFINE WINDOW oWnd TITLE "MayaNAV 1.0";
                 FROM 2, 2 TO ( WndHeight( GetDesktopWindow() ) - IF( IsWin7(), 40 , 30 ) ),;   //Windows 7 tiene una barra de estado mas gruesa!!!!
                 ( WndWidth( (GetDesktopWindow()) ) - 2 );
                 PIXEL
                 
                 //////
                 
                 //////
  
                 @ 100, 80 ACTIVEX oActiveX1 PROGID "Shell.Explorer" OF oWnd SIZE oWnd:nRight - 158, oWnd:nBottom - 150

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Continue the discussion