|
klausdoege
Germany
389 Posts |
 Posted - Nov 14 2011 : 09:56:36
|
Hello,
show the change in procedure Tfmain.ImageEnView1DShowNewFrame, it works fine.
1. Make a selection in Imageenview1
2. Change Buffer0.AssignImage(ImageEnView1.IEBitmap);
in Imageenview1.CopySelectionToIEBitmap(buffer0);
For Buffer1 make the same, show down.
ready
procedure Tfmain.ImageEnView1DShowNewFrame(Sender: TObject);
var
diff: double;
ss: string;
begin
ImageEnView1.IO.DShowParams.GetSample(ImageEnView1.IEBitmap);
case current of
-1: // first time
begin
imageenview1.CopySelectionToIEBitmap(buffer0);
imageenview1.CopySelectionToIEBitmap(buffer1);
// Buffer0.AssignImage(ImageEnView1.IEBitmap);
// Buffer1.AssignImage(ImageEnView1.IEBitmap);
current := 0;
end;
0:
begin
imageenview1.CopySelectionToIEBitmap(buffer0);
// Buffer0.AssignImage(ImageEnView1.IEBitmap);
current := 1;
end;
1:
begin
imageenview1.CopySelectionToIEBitmap(buffer1);
// Buffer1.AssignImage(ImageEnView1.IEBitmap);
current := 0;
end;
end;
Klaus |
 |
|
Search
Motion Detection for an area
