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

[Valdir]

Olá...

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

Saludos

[fleal]

Hola.
¿Por qué no usas Freeimage?

Revisa Testimg.prg en los ejemplos de FWH

[Valdir]

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]

Olá...

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



Saludos

[danielr cyberia®]

Saludos Cordiales Colegas!!!


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

Code: Select all

#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!!!

[Valdir]

Olá Daniel

É exatamente oque estava precisando...

Funcionou perfeitamente.

Gracias.

Saludos