That example copies the acquired frame in the background layer in Tfmain.ImageEnView1DShowNewFrame event. Inside it you can also change the layer 1 (semitransparent layer).
The same example shows also how display a text over the acquired frame, maybe it could be useful (look at the code remarked as "// display datatime").
procedure Tfmain.ImageEnView1DShowNewFrame(Sender: TObject);
var
ss: string;
begin
ImageEnView1.LayersCurrent:=0;
ImageEnView1.IO.DShowParams.GetSample(ImageEnView1.IEBitmap);
// display datatime
ss := FormatDateTime('c', date + time);
with ImageEnView1.IEBitmap.Canvas do
begin
Brush.Style := bsClear;
Font.Color := clWhite;
TextOut(0, 0, ss);
end;
// uncomment if you want merge image also in the saved AVI
//ImageEnView1.LayersMerge(0,1,false);
ImageEnView1.IO.SaveToAVI;
ImageEnView1.Update;
ImageEnView1.Paint;
end;
Search
