Hmm, seltsame Sache, mit MPEG funkts echt net
Aber für AVIs kannst Du das nehmen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var DC:HDC;
begin
DC:=GetDC(Panel1.Handle);
BitBlt(Bit.Canvas.Handle, 0, 0, 384, 288,
DC, 0, 0, SRCCOPY);
ReleaseDC(Panel1.Handle,
DC);
Canvas.Draw(384, 0, Bit);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bit:=TBitmap.Create;
Bit.Width:=384;
Bit.Height:=288;
end;