Help: Problem with ActiveX control

[srvet_claudio]

Hi all,

The example
C:\hmg.3.0.40\SAMPLES\ACTIVEX.7\demo7.prg

Code: Select all

#include "hmg.ch"

FUNCTION Main()

	DEFINE WINDOW Win1 ;
		AT 0,0 ;
		WIDTH 800 ;
		HEIGHT 500 ;
		TITLE 'HMG ActiveX Support Demo' ;
		MAIN 

		DEFINE MAIN MENU
			POPUP "Test"
				MENUITEM "Open File" ACTION Test()
			END POPUP 			
		END MENU

		DEFINE ACTIVEX Test
			ROW 10
			COL 50
			WIDTH 700  
			HEIGHT 400  
			PROGID "AcroPDF.PDF.1"  
		END ACTIVEX

	END WINDOW

	Center Window Win1

	Activate Window Win1

RETURN NIL

Procedure Test()

//	Win1.Test.Object:src := curdrive() + ':\' + curdir() + '\' + 'readme.pdf'
Win1.Test.Object:src := 'readme.pdf'

Return

does not run in my computer, it stops at:

ActiveX.JPG (28.99 KiB) Viewed 1672 times

I tried the same example in HMG Extended and works well.
Thanks in advance.
Best Regard,
Claudio Soto

[danielmaximiliano]

Hola Claudio

prueba reemplazar CurDrive() por la funcion HB_Curdrive()

Code: Select all

/*
 * HMG - Harbour Win32 GUI library Demo
 *
 * Copyright 2002-2008 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://sites.google.com/site/hmgweb/
 * Activex Sample: Inspired by Freewin Activex inplementation by 
 * Oscar Joel Lira Lira (http://sourceforge.net/projects/freewin).
*/

#include "hmg.ch"

FUNCTION Main()

	DEFINE WINDOW Win1 ;
		AT 0,0 ;
		WIDTH 800 ;
		HEIGHT 500 ;
		TITLE 'HMG ActiveX Support Demo' ;
		MAIN 

		DEFINE MAIN MENU
			POPUP "Test"
				MENUITEM "Open File" ACTION Test()
			END POPUP 			
		END MENU

		DEFINE ACTIVEX Test
			ROW 10
			COL 50
			WIDTH 700  
			HEIGHT 400  
			PROGID "AcroPDF.PDF.1"  
		END ACTIVEX

	END WINDOW

	Center Window Win1

	Activate Window Win1

RETURN NIL

Procedure Test()

	Win1.Test.Object:src := hb_curdrive() + ':\' + curdir() + '\' + 'readme.pdf'

Return

[srvet_claudio]

Grande Daniel, funciona perfecto!!!!
Saludos cordiales,
Claudio