FilterImageLoader

How to load a Single image

procedure test; var filterImageLoader : Integer; fileName : String ; imageToLoad : array[0..1000] of char; images : PArrayOfPFBitmap32; firstImage : PFBitmap32; begin filterImageLoader := createFilter(filterImageLoader'); StrPCopy(imageToLoad, fileName) ; setParameterString(filterImageLoader, 'filesName', imageToLoad );

run(filterImageLoader);

images := getOutputImages( filterImageLoader, 'outImages' ); // Getting the first image firstImage := images^[0] ;

deleteFilter(filterImageLoader);

end;