XProfan

window 600,600
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
 $I ocxInfo3a.inc
ocxInit()
'
def $wiaFormatTIFF "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"'--CLSID-Konstante para TIFF-Formato
'
var Pic1$="C:\1Test\Bild1.gif"'--Existierende Bilder
var Pic2$="C:\1Test\Bild2.gif"'--Pfade Por favor, adaptar!
var Pic3$="C:\1Test\Bild3.gif"'--Bildtypen son egal
'
var Ziel$="C:\1Test\Bild.tiff"'--Anzulegende Expediente (darf todavía no existieren)
'
var Page1&=ocxCreate("WIA.ImageFile")'--ImageObjekte
var Page2&=ocxCreate("WIA.ImageFile")
var Page3&=ocxCreate("WIA.ImageFile")
'
ocxMethod(Page1&,"LoadFile",Pic1$)'----Bilder invitar
ocxMethod(Page2&,"LoadFile",Pic2$)
ocxMethod(Page3&,"LoadFile",Pic3$)
'
var ImageProcess&=ocxCreate("WIA.ImageProcess")'-------ImageProcess-Objeto
var Filters&=ocxGet(ImageProcess&,"Filters")'----------Aktive Filter (todavía leer)
var FilterInfos&=ocxGet(ImageProcess&,"FilterInfos")'--Verfügbare Filter
'
'--------------------------------------------------------------------Filter auswählen
declarar FilterInfo&,ID$
'
FilterInfo&=ocxGet(FilterInfos&,"Item","Frame")'----Infos a "Frame"-Filter
ID$=ocxGet(FilterInfo&,"FilterID")'-----------------ID su
ocxMethod(Filters&,"Add",ID$)'----------------------1. Filter "Frame" a aktiven Filtern hinzufügen
ocxMethod(Filters&,"Add",ID$)'----------------------2. Filter "Frame" a aktiven Filtern hinzufügen
ocxRelease(FilterInfo&)
'
FilterInfo&=ocxGet(FilterInfos&,"Item","Convert")'--Infos a "Convert"-Filter
ID$=ocxGet(FilterInfo&,"FilterID")'-----------------ID su
ocxMethod(Filters&,"Add",ID$)'----------------------3. Filter "Convert" a aktiven Filtern hinzufügen
ocxRelease(FilterInfo&)
'
ocxRelease(FilterInfos&)
'
'--------------------------------------------------------------------Filter-Parámetro conjunto
declarar Filter&,Property&
'
Filter&=ocxGet(Filters&,"Item",1)'-------------------Filter 1 ("Frame")
Property&=ocxGet(Filter&,"Properties","ImageFile")'--Eigenschaft "ImageFile"
ocxPut(Property&,"Value",Page2&)'--------------------Auf Page 2 conjunto
ocxRelease(Property&,Filter&)
'
Filter&=ocxGet(Filters&,"Item",2)'-------------------Filter 2 ("Frame")
Property&=ocxGet(Filter&,"Properties","ImageFile")'--Eigenschaft "ImageFile"
ocxPut(Property&,"Value",Page3&)'--------------------Auf Page 3 conjunto
ocxRelease(Property&,Filter&)
'
Filter&=ocxGet(Filters&,"Item",3)'-------------------Filter 3 ("Convert")
Property&=ocxGet(Filter&,"Properties","FormatID")'---Eigenschaft "FormatID"
ocxPut(Property&,"Value",$wiaFormatTIFF)'------------Auf CLSID de TIFF conjunto
ocxRelease(Property&,Filter&)
'
'--------------------------------------------------------------------Filter anwenden + speichern
var Image&=ocxMethod(ImageProcess&,"Apply",Page1&)'--Auf Page 1 anwenden > Neues Imagen-Objeto
ocxMethod(Image&,"SaveFile",Ziel$)'------------------Guardar
'
ocxRelease(Page3&,Page2&,Page1&)'-----------Aufräumen
ocxRelease(Image&,ImageProcess&,Filters&)'--Aufräumen
ocxDeInit()
'
imprimir "Fertig"
waitkey