Zeichnen auf Video?

[Quetzalcoatl]

Ja, hab ich auch gedacht das ein andres Programm Schuld war, das einzige (zumindest was mir einfällt) was anders war, war eben das der WindowsMediaPlayer nebenbei auch ein Video abgespielt hat.. Erst ging mein eigenes Programm nicht, dann hab ich ein anderes Video darin geöffnet, dann gings aufeinmal. dann hab ich das Video vom Anfang geöffnet und es ging immernoch.. Als ich dann mein Programm neugestartet hab (ohne Codeänderung) ging wieder nix mehr.. bissl seltsam das ganze

Edit:
Argh.. Es hat ja mal geklappt also muss es irgendwie ja auf diese Weise gehen.. Sonst bleibt mir wohl nur die Screenshotmethode, wobei die wird bestimmt dann bisschen langsam

Edit2:
So Für alle dies interessiert: Meine Lösung fürs erste ist einfach keine WindowsMediaPlayer Videos oder MPEG zu benutzen sondern .avi Videos -.- Mit denen funktionierts.. Vielleicht weiß ja sogar einer warum das so ist?

[Sunlight7]

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;

[Quetzalcoatl]

Hi, Danke nochmal für eure ganze Hilfe.

@Sunlight7:
Für Avi´s funktionierts ja auch einfach so, oder meintest du für MPEG?
Find das immernoch ein bisschen seltsam das MPEG´s da anders sind als die avi´s

[Sunlight7]

Das was ich gezeigt habe is für AVIs

Das liegt da dran, das MCI aus mehreren Komponenten besteht, jeder MCI-Treiber hat so seine Eigenheiten.
Übrigens funkt das mit den MPEGs bei mir unter Win95

[Quetzalcoatl]

Hi

Was macht denn dein Code genau? Also es wird ein Bitmap erstellt und dann im Timer das Bild vom Panel1 auf die Bitmap kopiert und das ganze wird mit Canvas.Draw angezeigt? Bzw. Wozu genau?

[Sunlight7]

Moin,

das Bitmap wird schon im FormCreate erstellt.

Der Code kopiert lediglich das DC vom Panel auf die Bitmap, wenn der Timer 40 MS lief, war rechts das Original Video zu sehen und links lief die Livekopie davon.

Wenn Du es auf eine Bitmap kopierst kannst Du mit ScanLine viel schneller drauf zugreifen als mit GetPixel