var
  io:TImageEnIO;
  proc:TImageEnProc;
  bmp:TIEBitmap;
begin
  bmp := TIEBitmap.Create();
  bmp.Location := ieMemory;
  io := TImageEnIO.CreateFromBitmap(bmp);
  proc := TImageEnProc.CreateFromBitmap(bmp);
  try
    io.LoadFromFile(....);
    proc.HistAutoEqualize();
    io.SaveToFile(...);
  finally
    proc.Free();
    io.Free();
    bmp.Free();
  end;
end;

aBitmap: TBitmap;
Stream: TMemoryStream;
VideoWindow: TVideoWindow; // active video display to this obj 
                           // already estblished

    aBitmap := TBitmap.Create;
    Stream := TMemoryStream.Create;
    VideoWindow.VMRGetBitmap(Stream);
    aBitmap.LoadFromStream(Stream);
    Stream.Free;
    aBitmap.PixelFormat := pf24bit;

    aBitmap.SaveToFile(FileName);

Pic: TImage;                    // Scope: local
ImageIO: TImageEnIO;            // Scope: attached to a form
                                // but is used nowhere else
ImageProcessEnh: TImageEnProc;  // Scope: ditto the above

  Pic := TImage.Create(Paper);  // Paper is the container to be later
  Pic.Parent := Paper;          // delivered to the print function
  ImageIO.AttachedTImage := Pic;
  ImageIO.LoadFromFileBMP(FileName);
  ImageProcessEnh.AttachedBitmap := Pic.Picture.Bitmap;

  ImageProcessEnh.HistEqualize(LoThresh, HiThresh);
  ImageProcessEnh.GammaCorrect( ... );

  // etc.

EnhBitmap: TIEBitmap;

  EnhBitmap.Assign(Pic.Picture.Bitmap);
  ImageProcessEnh.AttachedBitmap := EnhBitmap;
  ImageProcessEnh.GammaCorrect( ... ); // etc.
  Pic.Picture.Bitmap.Assign(EnhBitmap);

quote:

---

Is there such a thing at TIEImage, that is the analog of TImage, in which the bitmap will be intrinsically of type TIEBitmap?

---

locImage: TImageEnView;

  locImage := TImageEnView.Create(nil);     //1
  locImage.LegacyBitmap := false;           //2
  locImage.Assign(OriginalImage.Picture);   //3
  ImageProcessEnh.AttachedImageEn := locImage;
  ImageProcessEnh.GammaAdjust( ... );       //4
  AfterImage.Picture.Assign(locImage);      //5
  locImage.free;                            //6

locImage: TImageEnView;

  locImage := TImageEnView.Create(nil);     //1
  locImage.LegacyBitmap := false;           //2
  locImage.IEBitmap.Assign(OriginalImage.Picture.Bitmap); //3
  ImageProcessEnh.AttachedImageEn := locImage;
  ImageProcessEnh.GammaAdjust( ... );       //4
  AfterImage.Picture.Bitmap.Assign(locImage.Bitmap); //5
  locImage.IEBitmap.Assign(nil);
  locImage.free;                            //6

quote:

---

Using the TImageEnView object throughout the code presents some problems for me. These arise because it seems that there is no path by which an existing TBitmap or TImage can be used as the source for populating a TImageEnView. It appears its image can be populated only by loading it from a file. Can the LoadFromBuffer method be used to populate the image from an existing TBitmap?

---

TImageExt = class(Timage)
  public
  aIEBitmap: TIEBitmap;
  destructor Free;  // free aIEBitmap if it's assigned
end;

Pic: TImageExt;

Pic := TImageExt.Create(Paper);
 ... read an image file into Pic using VCL method ...
Pic.aIEBitmap := TIEBitmap.Create;
Pic.aIEBitmap.CopyFromTBitmap(Pic.Picture.Bitmap);

Pic.aIEBitmap.CopyToTBitmap(Pic.Picture.Bitmap);