Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX

Valdir

Posts: 20

Joined: Fri Feb 10, 2006 05:21 PM

Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX
Posted: Tue Apr 17, 2007 07:37 PM

Olá...

É possível abrir esses arquivos com a Classe TActiveX ?

Saludos

Valdir - Jundiaí - S.P. - Brasil

Fivewin 16.08

fleal

Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

y por que no
Posted: Tue Apr 17, 2007 08:46 PM

Hola.
¿Por qué no usas Freeimage?

Revisa Testimg.prg en los ejemplos de FWH

Valdir

Posts: 20

Joined: Fri Feb 10, 2006 05:21 PM

Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX
Posted: Wed Apr 18, 2007 08:54 PM

Olá FLeal...

Obrigado pela resposta...

Já havia usado o Freeimage, porém na verdade, gostaria de abrir qualquer tipo de Imagem (BMP,JPG,TIF,GIF), usando os recursos do "image.preview" do Windows, através da Classe TActiveX.

Seguindo os exemplos abaixo :
WORD => oActiveX = TActiveX():New( oWnd, "Word.Application.8" )
ACROBAT => oActiveX = TActiveX():New( oWndPdf, "PDF.PdfCtrl.6" )
EXCEL => oActiveX = TActiveX():New( oWnd, "OWC10.Spreadsheet" )
FLASH => oActiveX = TActiveX():New( oWnd, "ShockwaveFlash.ShockwaveFlash.1" )
ficou facil de usar esses recursos, porém não encontrei nada em relação as imagens acima.

Encontrei os parametros "WangImage.Document" que abre o image preview, só que estão faltando alguns parâmetros e não estou sabendo usa-los.

Gracias

Valdir - Jundiaí - S.P. - Brasil

Fivewin 16.08

Valdir

Posts: 20

Joined: Fri Feb 10, 2006 05:21 PM

Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX
Posted: Wed Apr 18, 2007 09:47 PM

Olá...

Seria esse o Imaging Preview que gostaria de usar com a TActiveX.
Só não sei se será possível...

Saludos

Valdir - Jundiaí - S.P. - Brasil

Fivewin 16.08

danielr cyberia®

Posts: 28

Joined: Sat Apr 28, 2007 04:06 AM

Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX
Posted: Wed May 30, 2007 06:23 AM

Saludos Cordiales Colegas!!!

Bueno realmente por lo que mas o menos te entiendo creo que te refieres a algo como esto!!

Code: Select all Collapse

#INCLUDE "FIVEWIN.CH"

PROCE MAIN()
   LOCAL oDlg,oAdj,cAdj:=SPACE(30)

   DEFINE DIALOG oDlg TITLE "Abrir Imagen" 

   @ 1,1 SAY "Ubicación del Archivo :"

   @ 2,1 BMPGET oAdj VAR cAdj NAME "BITMAPS\IMPORTAR.BMP";
			  ACTION (cFile:=cGetFile32("Todos los Archivos de Imagen (*.*) |*.*|Mapa de Bits (*.BMP) |*.bmp|;
			  JPGE (*.JPG,*.JPGE,*.JPE,*.JFIF)|*.JPG;*.JPGE;*.JPE;*.JFIF|GIF (*.GIF)|*.gif|PNG (*.PNG)|*.png",;
                    " Seleccionar Archivo para Abrir",1,cFilePath(cAdj),.f.,.t.),;
			  cAdj:=IIF(!EMPTY(cFile),cFile,cAdj),;
			  oAdj   :Refresh())

   @ 3,1 BUTTON "Abrir" ACTION ShellExecute( 0, "open", cAdj)
   @ 3,8 BUTTON "Cerrar" ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED
  

RETURN

Necesitas una imagen para el BMPGET!!!

Best Regards- Saludos y Exitos

Daniel Rivas

Valdir

Posts: 20

Joined: Fri Feb 10, 2006 05:21 PM

Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX
Posted: Wed May 30, 2007 12:24 PM

Olá Daniel

É exatamente oque estava precisando...

Funcionou perfeitamente.

Gracias.

Saludos

Valdir - Jundiaí - S.P. - Brasil

Fivewin 16.08

FiveTech Support Forums

Continue the discussion