Page 1 of 1
Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX
Posted: Tue Apr 17, 2007 7:37 pm
by Valdir
Olá...
É possível abrir esses arquivos com a Classe TActiveX ?
Saludos
y por que no
Posted: Tue Apr 17, 2007 8:46 pm
by fleal
Hola.
¿Por qué no usas Freeimage?
Revisa Testimg.prg en los ejemplos de FWH
Posted: Wed Apr 18, 2007 8:54 pm
by 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
Posted: Wed Apr 18, 2007 9:47 pm
by Valdir
Olá...
Seria esse o Imaging Preview que gostaria de usar com a TActiveX.
Só não sei se será possível...
Saludos
Posted: Wed May 30, 2007 6:23 am
by 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!!!
Posted: Wed May 30, 2007 12:24 pm
by Valdir
Olá Daniel
É exatamente oque estava precisando...
Funcionou perfeitamente.
Gracias.
Saludos