Hi Nigel.
I found an error with this Method not SwitchTo Transfers the parameters from source to destination?
//Here Not Assign IO.Params.
procedure TForm1.Button1Click(Sender: TObject);
var
bmp : TIEBitmap;
begin
bmp := TIEBitmap.Create;
try
bmp.Read( 'Tulips.jpg' );
bmp.SwitchTo( ImageEnView1.IEBitmap ); //Here Not Transfer ??
ImageEnView1.Update;
ShowMessage( IntToStr( ImageEnView1.IO.Params.OriginalWidth ) );
ShowMessage( IntToStr( ImageEnView1.IO.Params.OriginalHeight ) );
finally
bmp.Free;
end;
end;
//Here Normal.
procedure TForm1.Button2Click(Sender: TObject);
begin
ImageEnView1.IO.LoadFromFile( 'Tulips.jpg' );
ShowMessage( IntToStr( ImageEnView1.IO.Params.OriginalWidth ) );
ShowMessage( IntToStr( ImageEnView1.IO.Params.OriginalHeight ) );
end;
Thank You.