FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Active X Explorer
Posts: 42
Joined: Sat Sep 30, 2006 09:43 AM
Active X Explorer
Posted: Fri Oct 06, 2006 02:32 PM

http://nolp.dhl.de/nextt-online-public/track.do?lang=de

This a tracking Page from DHL

How can i put Data from a dbf into Fields in Internet Explorer ?

Tx

Using Nissan 350 Z with last Firmware



compiled with Super Plus
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
Active X Explorer
Posted: Sat Oct 07, 2006 12:48 AM
Amiguinho

You can try a ASP Script, submiting data with GET METHOD:

<%@LANGUAGE = VBScript%>
<%
Dim nome,senha

nome = replace(request.form("nome"), "'", "''")
senha = replace(request.form("senha"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")

cnpath="DBQ=" & server.mappath(".\")
DB.Open "Driver={Microsoft dBase Driver (*.dbf)};;" & cnpath

inserir = "INSERT INTO users (nome,senha) " & _
"VALUES ('" & nome & "','" & senha & "','" & pagina & "')"
DB.Execute(inserir)
%>


Fivewin code:

STATIC FUNCTION NAVEGAR( MyName, MyPass )
   local hE 
   hE := CreateOleObject("InternetExplorer.Application") 
   OLESetProperty(hE,"Visible"  , .T.) 
   OLESetProperty(hE,"ToolBar"  , .F.) 
   OLESetProperty(hE,"StatusBar", .T.) 
   OLESetProperty(hE,"MenuBar"  , .T.) 
   OLEInvoke(hE,"Navigate","http://www.YourSite.com/adiciona.asp?nome="+MyName+"&senha="+MyPass)
   SysRefresh() 
   return nil
Posts: 42
Joined: Sat Sep 30, 2006 09:43 AM
Tx
Posted: Sat Oct 07, 2006 07:05 AM

I will try it !!!

is it also possible with active x ???

tx

Using Nissan 350 Z with last Firmware



compiled with Super Plus
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Active X Explorer
Posted: Tue Oct 10, 2006 09:26 AM

yes there is an sample on this forum but the method DO not run well or we not Know how make active the component of the activex
see this

http://fivetechsoft.com/forums/viewtopi ... highlight=

Best Regards, Saludos



Falconi Silvio
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Active X Explorer
Posted: Tue Oct 10, 2006 09:50 AM

Silvio,

Method Do() runs ok. Its an ActiveX issue.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Active X Explorer
Posted: Tue Oct 10, 2006 10:19 AM

ok Antonio,

these commands not run ok

oActiveX:SetProp( "StatusBar", .T. ) // not run ???
oActiveX:SetProp( "AddressBar", .T. ) // not run ???
oActiveX:SetProp( "ToolBar", .T. ) // not run ???
oActiveX:SetProp( "LinksBar", .T. ) // not run ???
oActiveX:SetProp( "ToolbarOptions", .T. ) // not run ???


Best Regards, Saludos



Falconi Silvio
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Active X Explorer
Posted: Tue Oct 10, 2006 10:46 AM

Silvio,

Try to do it in Visual Basic. Its not a FWH issue.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Active X Explorer
Posted: Tue Oct 10, 2006 10:05 PM

I don't Like VB , I hatred VB because I have lost many ex clipper friends

Best Regards, Saludos



Falconi Silvio
Posts: 42
Joined: Sat Sep 30, 2006 09:43 AM
Anyone read the question ???
Posted: Wed Oct 11, 2006 03:44 PM

Anyone read the question ???

-:)

Using Nissan 350 Z with last Firmware



compiled with Super Plus
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Active X Explorer
Posted: Thu Oct 12, 2006 07:17 AM

Uwe,

Rochinha has provided you a valid answer.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 42
Joined: Sat Sep 30, 2006 09:43 AM
Active X Explorer
Posted: Thu Oct 12, 2006 07:32 AM

Yes i read it but im searching for a solution with active x

i want to use it in a FW Dialog

Tx Uwe D

Using Nissan 350 Z with last Firmware



compiled with Super Plus
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Active X Explorer
Posted: Thu Oct 12, 2006 09:36 AM

Uwe,

Please review samples\webexp.prg

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion