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;