FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index All products support Utilizzo ACTIVEX in FWH
max
Posts: 130
Joined: Fri Jun 30, 2006 02:14 PM
Utilizzo ACTIVEX in FWH
Posted: Wed Oct 29, 2008 11:09 PM
In Visual Basic, precisamente nell'ambiente di sviluppo macro di Excel, ho un controllo activex impostato e funzionante in questo modo:
Code: Select all Collapse
Sub loadcobol()
  euro09 = "C:\092p6x4demo\euro09"
  euro09cfg = "C:\092p6x4demo\etc\cblcon34.sml"
  euro09ocx = euro09 & "\p\z9ocx"
  euro09az = euro09 & "\demop5"
  UTENTE = "MICHELE"

  Set cobolapp = New AcuGT
  cobolapp.Initialize ("-c " & euro09cfg)
  
  z9passwd = " "
  cobolapp.Call euro09ocx, "AUT", UTENTE, z9passwd, euro09az
End Sub

L'activex che mi interessa attivare è l'ACUGT, ed in sintesi i due controlli activex che vengono lanciati in esecuzione sono il cobolapp.initialize e il cobolapp.call , con il passaggio di alcuni parametri.
Come posso tradurre il tutto in FWH? Ho fatto qualche tentativo ma senza successo...
Un'altra domanda: come si può vedere l'elenco degli activex esistenti attivi e richiamabili in un pc? C'è una qualche utility che li elenca?
grazie.
Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 08:30 AM
Cosa succede se scrivi semplicemente

Code: Select all Collapse
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oAcuGT := CREATEOBJECT( "AcuGT" )

    RETURN NIL


?

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
max
Posts: 130
Joined: Fri Jun 30, 2006 02:14 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 08:40 AM

quando mando in esecuzione ricevo questo errore:

Application

Path and name: W:\FWH\samples\EU092.EXE (32 bits)
Size: 1,374,720 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 10/30/08, 09:38:23
Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C AcuGT

Stack Calls

Called from: => THROW(0)
Called from: win32ole.prg => TOLEAUTO:NEW(331)
Called from: win32ole.prg => CREATEOBJECT(73)
Called from: EU092.prg => MAIN(7)

max
Posts: 130
Joined: Fri Jun 30, 2006 02:14 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 08:44 AM

Quando nell'ambiente macro visual basic di excel scrivo "ACUGT." , dopo che ho messo il punto mi compare automaticamente una combobox con alcune funzioni come "initialize" , "call", ecc.ecc...

non so se questa info può essere utile o meno, te la passo così com'è...

Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 08:46 AM
E scrivendo

Code: Select all Collapse
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oAcuGT := TActiveX():New( oWnd, "AcuGT" )

    RETURN NIL


?

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
max
Posts: 130
Joined: Fri Jun 30, 2006 02:14 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 09:45 AM

Ricevo questo errore:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND
Args:
[ 1] = U

Stack Calls

Called from: => HWND(0)
Called from: ACTIVEX.PRG => TACTIVEX:NEW(0)
Called from: EU092.prg => MAIN(7)

Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 09:51 AM
Uff, ma ti devo proprio dire tutto?

Code: Select all Collapse
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oAcuGT

    DEFINE WINDOW oWnd

    oAcuGT = TActiveX():New( oWnd, "AcuGT" )

    ACTIVATE WINDOW oWnd

    RETURN NIL


Impara a cercare nella cartella samples.

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
max
Posts: 130
Joined: Fri Jun 30, 2006 02:14 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 10:03 AM

Ho già cercato, trovato, studiato e tentato di mio quanto ho trovato in fwh\samples .
Pigro sì, ma fino a un certo punto. Non mi piace rompere le scatole inutilmente al prossimo.
E' che come sai sono agli inizi con FWH e quindi ancora non mi fido molto di me stesso, tutto qua.

Tornando all'ultimo tentativo, ora quando lancio l'exe dopo qualche secondo ricevo una segnalazione di errore di explorer del tipo "invia segnalazione" o "non inviare".
Servono dettagli o è inutile?

Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 10:07 AM

A quanto pare "AcuGT" non è né un server OLE né un ActiveX. Oltre quei due tentativi non so proprio che altro proporti.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
max
Posts: 130
Joined: Fri Jun 30, 2006 02:14 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 10:13 AM

Ok, pazienza. A questo punto chiederò maggiori lumi a chi ha eseguito la macro su Excel visto che lì funziona.
Ma un comando/utility di sistema o di terzi per avere un elenco degli activex utilizzabili su un pc esiste?

max
Posts: 130
Joined: Fri Jun 30, 2006 02:14 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 10:22 AM

Ad esempio: in WEBEXP.PRG ho notato che c'è uno "Shell.Explorer" che funziona.
Mi domando: come si fa a sapere che esiste il controllo activex "shell.explorer"? E che posso usare il "navigate" per andare ad una certa pagina o il "go home" per aprire la pagina iniziale?

E perché invece in EXCEL.PRG l'activex "OWC11.Spreadsheet" non mi funziona? Intuisco che occorre forse dare i riferimenti della giusta versione di office che ho su (2007) e in effetti la riga di comando lo dice, ma dove li trovo ?

Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 10:27 AM
max wrote:Ok, pazienza. A questo punto chiederò maggiori lumi a chi ha eseguito la macro su Excel visto che lì funziona.
Ma un comando/utility di sistema o di terzi per avere un elenco degli activex utilizzabili su un pc esiste?


Sì, ne ho visto qualcuno in passato ma non mi ha mai soddisfatto (e non so dartene i riferimenti).

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Utilizzo ACTIVEX in FWH
Posted: Thu Oct 30, 2008 10:28 AM
max wrote:Mi domando: come si fa a sapere che esiste il controllo activex "shell.explorer"? E che posso usare il "navigate" per andare ad una certa pagina o il "go home" per aprire la pagina iniziale?

E perché invece in EXCEL.PRG l'activex "OWC11.Spreadsheet" non mi funziona? Intuisco che occorre forse dare i riferimenti della giusta versione di office che ho su (2007) e in effetti la riga di comando lo dice, ma dove li trovo ?


Per gli ActiveX è come per gli OLE, ogni oggetto è storia a sé e richiede la propria documentazione per poter essere utilizzato.

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Continue the discussion

Static archive · New replies & topics via GitHub Discussions