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 pour TIFF-Format
'
var Pic1$="C:\1Test\Bild1.gif"'--Existierende Bilder
var Pic2$="C:\1Test\Bild2.gif"'--Pfade s'il te plaît anpassen!
var Pic3$="C:\1Test\Bild3.gif"'--Bildtypen sommes égal
'
var but$="C:\1Test\Bild.tiff"'--Anzulegende Dossier (darf encore pas existieren)
'
var le chasseur1&=ocxCreate("WIA.ImageFile")'--ImageObjekte
var le chasseur2&=ocxCreate("WIA.ImageFile")
var le chasseur3&=ocxCreate("WIA.ImageFile")
'
ocxMethod(le chasseur1&,"LoadFile",Pic1$)'----Bilder magasin
ocxMethod(le chasseur2&,"LoadFile",Pic2$)
ocxMethod(le chasseur3&,"LoadFile",Pic3$)
'
var ImageProcess&=ocxCreate("WIA.ImageProcess")'-------ImageProcess-objet
var Filters&=ocxGet(ImageProcess&,"Filters")'----------Aktive filtre (encore vide)
var FilterInfos&=ocxGet(ImageProcess&,"FilterInfos")'--Verfügbare filtre
'
'--------------------------------------------------------------------filtre auswählen
declare FilterInfo&,ID$
'
FilterInfo&=ocxGet(FilterInfos&,"Item","Frame")'----Infos trop "Frame"-filtre
ID$=ocxGet(FilterInfo&,"FilterID")'-----------------ID en
ocxMethod(Filters&,"Add",ID$)'----------------------1. filtre "Frame" trop aktiven Filtern hinzufügen
ocxMethod(Filters&,"Add",ID$)'----------------------2. filtre "Frame" trop aktiven Filtern hinzufügen
ocxRelease(FilterInfo&)
'
FilterInfo&=ocxGet(FilterInfos&,"Item","Convert")'--Infos trop "Convert"-filtre
ID$=ocxGet(FilterInfo&,"FilterID")'-----------------ID en
ocxMethod(Filters&,"Add",ID$)'----------------------3. filtre "Convert" trop aktiven Filtern hinzufügen
ocxRelease(FilterInfo&)
'
ocxRelease(FilterInfos&)
'
'--------------------------------------------------------------------filtre-paramètre mettons
declare Filter&,Property&
'
Filter&=ocxGet(Filters&,"Item",1)'-------------------filtre 1 ("Frame")
Property&=ocxGet(Filter&,"Properties","ImageFile")'--qualité "ImageFile"
ocxPut(Property&,"Value",le chasseur2&)'--------------------sur le chasseur 2 mettons
ocxRelease(Property&,Filter&)
'
Filter&=ocxGet(Filters&,"Item",2)'-------------------filtre 2 ("Frame")
Property&=ocxGet(Filter&,"Properties","ImageFile")'--qualité "ImageFile"
ocxPut(Property&,"Value",le chasseur3&)'--------------------sur le chasseur 3 mettons
ocxRelease(Property&,Filter&)
'
Filter&=ocxGet(Filters&,"Item",3)'-------------------filtre 3 ("Convert")
Property&=ocxGet(Filter&,"Properties","FormatID")'---qualité "FormatID"
ocxPut(Property&,"Value",$wiaFormatTIFF)'------------sur CLSID de TIFF mettons
ocxRelease(Property&,Filter&)
'
'--------------------------------------------------------------------filtre anwenden + Sauver
var Image&=ocxMethod(ImageProcess&,"Apply",le chasseur1&)'--sur le chasseur 1 anwenden > Neues Image-objet
ocxMethod(Image&,"SaveFile",but$)'------------------Sauver
'
ocxRelease(le chasseur3&,le chasseur2&,le chasseur1&)'-----------Aufräumen
ocxRelease(Image&,ImageProcess&,Filters&)'--Aufräumen
ocxDeInit()
'
imprimer "Fertig"
waitkey