AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bluescreen-Programm

Ein Thema von MasterDG · begonnen am 13. Jul 2005 · letzter Beitrag vom 21. Jul 2005
Antwort Antwort
Seite 1 von 2  1 2      
MasterDG

Registriert seit: 29. Sep 2004
54 Beiträge
 
Delphi 2005 Personal
 
#1

Bluescreen-Programm

  Alt 13. Jul 2005, 17:09
Hallo!

Ich versuche gerade ein Bluescreen-Programm zu schreiben was eine einfache Vorschau machen soll. Wie ich das Bild von der Kamera bekomme hab ich in nem anderen Thread schon gefragt. Das ist auch nicht das große Problem. Was mir momentan Probleme bereitet ist die Geschwindigkeit mit der das Bild verarbeitet wird. Ich möchte nur die blauen Teile aus dem Bild entfernen und das ganze auf ein anderes Bild legen.

Meine ersten Versuche habe ich mit Graphics32 gemacht, allerdings kein gutes Ergebnis bekommen. Wenn ich nur die Farbwerte beispielsweise in ein String schreibe dann dauert das schon so lange dass ich kein flüssiges Bild mehr bekomme. Ich habe auch keine Idee wie ich das jetzt beschleunigen könnte.

Wie könnte man sonst noch das gleiche machen wie ich das will? Kann man evt. die Verarbeitung durch Graphics32 so optimieren dass ich eine flüssige Vorschau bekomme?

Also es geht mir nicht darum den Film als avi oder so zu exportieren sondern ich will eine reine Vorschau sodass man vorher schon mal sehn kann wie der Film am Ende in etwa aussehen könnte.

Für alle die nicht wissen was Bluescreen ist: Bluescreen/Bluebox

Gruß
MasterDG
Dominik
  Mit Zitat antworten Zitat
Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#2

Re: Bluescreen-Programm

  Alt 13. Jul 2005, 17:20
Was ich nicht verstehe, ist, warum du die blauen Pixel in einen String schreiben willst . Ich würde das ganze so angehen: Du hast für jeden Frame zwei Bitmaps, das Kamerabild und den Hintergrund. Nun iterierst du durch die Pixel des Kamerabilds (z.B. per Delphi-Referenz durchsuchenTBitmap32.Bits), wenn die Farbe innerhalb einer gewissen Grenze liegt, fügst du stattdessen das Pixel des Hintergrunds ein.
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat
Chris1986

Registriert seit: 17. Jul 2003
Ort: Aachen
350 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Bluescreen-Programm

  Alt 13. Jul 2005, 17:20
Hi, wie groß ist denn dein Vorschaubild?
Rechnest du es vor dem Keyen auf 1/2 oder 1/4 der PAL-Auflösung runter, oder arbeitest du mit der vollen Auflösung?

Gruß
Christian
Es gibt nur 10 Typen von Menschen auf der Welt:
Die, die Binärcode verstehen und die, die es nicht tun . . .
  Mit Zitat antworten Zitat
MasterDG

Registriert seit: 29. Sep 2004
54 Beiträge
 
Delphi 2005 Personal
 
#4

Re: Bluescreen-Programm

  Alt 13. Jul 2005, 20:05
Hallo!
@Khabarakh: Das mit dem String war nur en Test weil ich noch keine richtige Funktion hatte und einfach mal testen wollte wie schnell das Auslesen der Farben und das schreiben von Variablen bei mehreren tausend Aktionen ist und ob das geeignet ist um eine flüssige Vorschau anzuzeigen und nicht nur en paar Bilder alle paar Sekunden.

Du hast die Funktion TBitmap32.Bits erwähnt, bisher habe ich immer nur mit TBitmap.Pixel gearbeitet. So wie ich das jetzt in der Hilfe gelesen habe macht das das gleiche speichert jedoch die Werte einmalig in ein Array. Wie sieht das mit der Schnelligkeit aus? Was ist die schnellste Methode?

@Chris1986: Ich werde warscheinlich mit einer Auflösung von 320x240 arbeiten. Wenn es von der Schnelligkeit stimmt, dann werd ich auch evt. 640x480 nehmen, was ich aber für eher unwarscheinlich halte weil doch sehr viel Rechenleistung gebraucht wird.

Grüße
MasterDG
Dominik
  Mit Zitat antworten Zitat
Benutzerbild von Delphi-Freak
Delphi-Freak

Registriert seit: 26. Sep 2004
Ort: Wien Nähe (Österreich)
321 Beiträge
 
Delphi 2006 Architect
 
#5

Re: Bluescreen-Programm

  Alt 13. Jul 2005, 20:22
Hi!

Schneller ist sicher TBitmap32.Bits. Habemal einen Überblendeffekt in Laufzeit gemacht (mit voller Bildschirmauflösung -> 1280x1024), das hat mit Graphics32 und TBitmap32.Bits ziemlich gut funktioniert.

LG

Edit: Wie machst du das eigenlich mit der Farbgrenze - das würde mich interessieren - bzw. baust du auch Anti-Aliasing ein (für Objekt (Mensch) <-> Hintergrund)?
Gerhard Pfister
*
»To him who loves us and has freed us from our sins by his blood [...] be glory and power for ever and ever! Amen.« (Revelation*1,*5?6)
  Mit Zitat antworten Zitat
Benutzerbild von tn249
tn249

Registriert seit: 18. Jan 2004
Ort: München
164 Beiträge
 
Delphi 2005 Personal
 
#6

Re: Bluescreen-Programm

  Alt 13. Jul 2005, 20:45
Wenn für dich DX kein Overkill ist, ich weiß nicht ob du das für den Rest deines Programms eventuell benutzen kannst wären aus DirectDraw die Funktionen BltFast bzw Blt interessant. Beide Funktioinen sind ziemlich flott vorallem BltFast. Beide bieten einen Colokey an, allerdings nur für einen Wert. Blt kann zusätzlich Strecken usw

Ich weiß nicht was es für Implementierungen für die Delphilanguage gibt (wahrscheinlich geht es auch mit DelphiX), aber wollte das nurmal als option in den Raum geworfen haben.

MfG
tn249
this post is printed on 100% recycled electrons
  Mit Zitat antworten Zitat
MasterDG

Registriert seit: 29. Sep 2004
54 Beiträge
 
Delphi 2005 Personal
 
#7

Re: Bluescreen-Programm

  Alt 13. Jul 2005, 21:11
An DirectX wollte ich mich noch nicht so ranwagen weil ich denke dass das doch schwer ist. Stimmt das. Wenn es relativ einfach wäre dann wäre es eine Alternative. Was bringt das von der Geschwindigkeit? Sehr viel, oder doch eher wenig sodass es sich nicht lohnt?

@Delphi-Freak: Ich hab schon mal sowas ähnliches gemacht. Da habe ich es so gemacht solange Rot und Grün unter bestimmten Werten bleiben und Blau über einem bestimmten Wert bleibt dann ist es die richtige Farbe. Welche Werte dann benutzt werden können muss man schauen.

Gruß
MasterDG
Dominik
  Mit Zitat antworten Zitat
Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#8

Re: Bluescreen-Programm

  Alt 14. Jul 2005, 13:35
Ja, Bits sollte das schnellste sein, weil man damit direkt auf den Bitmapinhalt zugreifen kann, ohne irgendwelche Funktionen dazwischen.

Zu DirectX:
Ich denke nicht, dass es GR32 in Sachen Geschwindigkeit schlagen kann. Man muss sich mal ansehen, wieviel Mühe die Jungs in das Projekt gesteckt haben: Ein Großteil in Assembler, MMX-Support usw.
Und ein ColorKey reicht wahrscheinlich nicht .
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat
MasterDG

Registriert seit: 29. Sep 2004
54 Beiträge
 
Delphi 2005 Personal
 
#9

Re: Bluescreen-Programm

  Alt 14. Jul 2005, 16:43
Hallo!
Mit Bits habe ich leider leichte Verständniss Probleme. Bits gibt ja PColor32Array zurück. Aber wie kann ich damit arbeiten? Ich hab gedacht dass das einfach alle Pixel in ein Index schreibt und man mit dem Index den TColor32 Wert zurückbekommt. Ist aber anscheind nicht so.

Kann mir einer sagen wie das funktioniert?

Was ist eigendlich bei den Vorgängen die ich machen muss das das am längsten dauert? Das auslesen der Farbwerte? Das setzen der Pixel in der Vorschau?

Ich habe auch in der Hilfe gelesen dass es eine schnellere Methode gibt als Canvas, jedoch habe ich nur setpixelT gefunden. Allerdings hab ich es noch nicht geschafft ein Pixel einzufärben...

Grüße
MasterDG
Dominik
  Mit Zitat antworten Zitat
Benutzerbild von Delphi-Freak
Delphi-Freak

Registriert seit: 26. Sep 2004
Ort: Wien Nähe (Österreich)
321 Beiträge
 
Delphi 2006 Architect
 
#10

Re: Bluescreen-Programm

  Alt 14. Jul 2005, 16:51
Habe das gerade in meinem Dateienchaos gefunden:
Delphi-Quellcode:
maxP := ViewImage.Bitmap.Width * ViewImage.Bitmap.Height - 1;
Pdst := @ViewImage.Bitmap.Bits[0];
Psrc1 := @oldImage.Bits[0];
Psrc2 := @newImage.Bits[0];
for i := 0 to maxP do begin
   Pdst^ := ((((Psrc1^ and $00FF0000) shr 16) * (255 - blendfact)) shl 8 + (((Psrc2^ and $00FF0000) shr 16) * (blendfact)) shl 8) and $00FF0000
      or ((((Psrc1^ and $0000FF00) shr 8 ) * (255 - blendfact)) shl 0 + (((Psrc2^ and $0000FF00) shr 8 ) * (blendfact)) shl 0) and $0000FF00
      or ((((Psrc1^ and $000000FF) shr 0 ) * (255 - blendfact)) shr 8 + (((Psrc2^ and $000000FF) shr 0 ) * (blendfact)) shr 8) and $000000FF;
   Inc(Pdst);
   Inc(Psrc1);
   Inc(Psrc2);
end;
Pdst, Psrc1 und Psrc2 sind vom Typ PColor32; maxP vom Typ Cardinal (schneller als Integer)
ViewImage, oldImage, newImage sind TBitmap32s

Hoffe, das ist etwas hilfreich...


LG, Gerhard


Edit: Achja, der Code war zum Überblenden von oldImage auf newImage; das Bild wird eben immer in ViewImage ausgegeben. blendfact geht von 0 bis 255.
Gerhard Pfister
*
»To him who loves us and has freed us from our sins by his blood [...] be glory and power for ever and ever! Amen.« (Revelation*1,*5?6)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz