Video Stream

[snapman]

Hallo,
erstmal danke für das tolle board hier!!

weiss jemand wie und womit (vllt komponente?) ich mit meiner webcam ins internet streamen kann? wollte mir da ein eigenes programm machen!!

[Kamil]

Du nimmst irgendeine Socket Komponente und verschickst die einzelnen Bilder, empfängst sie auf der anderen Seite und zeigst sie an.
Jenachdem welche Kompression du nimmst kannst du unter Umständen UDP verwenden. Ansonsten nimm TCP. Da gibt es keine Probleme.(Daten gehen nicht verloren und kommen in der richtigen Reihenfolge an)

[snapman]

aber damit es flüssig ist müssen es doch 25bilder / s sein
so schaff ich vielleicht eins

oder?

[Chewie]

Hmm, sagen wir mal du hast eine Downloadrate von 7kb (realistische ISDN-Geschwindigkeit). Du brauchst 25 Einzelbilder pro Sekunde, macht ca. 287 Byte. Da kann man natürlich kein Bild verschicken!

Nein, Video als Einzelbilder streamen ist wohl nur in einem sehr schnellen Netz möglich. Bei modernen Streamingverfahren werden die Unterschiede zum vorherigen Bild berechnet und verschickt, der StreamingClient berechnet aus diesen Daten das neue Bild usw.
Mit anderen Worten: ein eigenes Streamingverfahren zu entwickeln dürfte sich als sehr schwierig erweisen!

[snapman]

kennt da keiner ne komponente?

http://www.progdigy.com/

da gibt es son DSPack da kann man z.b. ASF files mit streamen
aber geht das auch mit der webcam dann?

naja *HELP*

[Kamil]

Weil hier das rausfiltern der Unterschiede zweier Bilder angesprochen wurde, verweise ich auf einen Beitrag(#57) von mir in einem anderem Forum:
http://www.delphi-groups.de/YaBBSe/i...10097;start=45

Das ist eine sehr gute Möglichkeit um die Datenmenge klein zu halten.
Bei einer ISDN Verbindung wird es trotzdem sehr schwer auf 25 Bilder/Sek zu kommen. Da muss die Qualität der Bilder schon sehr drunter leiden! (sehr niedriege Auflösing + Komprimierung mit sehr großem Verlust)

[snapman]

hallo,
danke für den tipp.
das problem ist nur das das änderungsbild fast genauso gross ist, da es ja die gleiche pixelzahl besitzt.

was kann man da machen?

[Kamil]

Unkomprimiert ja, aber mit einer LZW oder RLE Komprimierung (oder ähnlichen) ist es viel kleiner!

[snapman]

also wenn ichne 320x240 BMP habe hat die 300KB, das änderungsbild komprimiert kommt af 50-100KB
mit JPG geht nicht da hier zuviele pixel verändert werden

wie kann ich denn n vernünftigen stream hinkriegen

[snapman]

niemand ne idee :wall: :gruebel: ?

[Kamil]

Ich habs mal mit LZW getestet und die Größe lag zwichen 0,35 KB (nichts hat sich verändert) und 13,33 KB (fast alles hat sich verändert) bei einem Bild mit 320x240 Pixeln.

[snapman]

also entweder bin ich blöd oder ich weiss nicht
hab jetzt meheres probiert..lzw, zip, rar etc...kam nichts unter 350KB....

ich hab das änderungsbild mal angehängt, probier bitte mal! (ist nicht ganz 320x240..sollte aber keine rolle spielen)

[Kamil]

Bei solchen Bildern solltest du noch einen Filter drüberlaufen lassen, der "kleine Unterschiede" in "keinen Unterschied" umwandelt.

Nimm doch einfach TGifImage http://www.torry.net/vcl/graphics/gif/gifimage.exe
Falls du LZW nicht nehmen willst gibt es noch anndere Formate. z.B. PNG http://pngdelphi.sourceforge.net

[snapman]

also meinst du in GIF umwandeln...? oder gibt es in der komponente ne funktion für ähnliche in gleiche?

weil wenn ichs in GIF komplett umwandele..kommt nur noch bullshit raus weil sich zuviel ändert

[Kamil]

1. erstes Bild holen und in GIF umwandeln
2. Bild verschicken
3. nächstes Bild holen und in GIF umwandeln
4. Änderungen zwischen den zwei vorherigen Bildern "berechnen" (hier können dann noch Filter dazukommen)
5. Änderungen in GIF umwandeln
6. Bild verschicken
7. Gehe zu 3.

(GIF kann durch jede andere verlusfreie Komprimierung ersetzt werden)

[snapman]

hm der BitBlt Befehl funktioniert nur mit BMP..was mach ich da?

[Kamil]

GIF.Bitmap.Canvas.Handle

[andre_r]

schau mal da ...

http://www.viscomsoft.com/videocaplive.htm

:thuimb:

cu
andre

[snapman]

vielen vielen dank
die frage ist nur, kann man die streams irgendwie mitm passwort schützen?
weil die gehn leider nur über windows media

[snapman]

Zitat:

Zitat von Kamil

GIF.Bitmap.Canvas.Handle

Hallo,
er sagt immernoch das nur Bitmaps bearbeitet werden können.
Hast du nicht vielleicht noch einen alten beispielsource?

[Kamil]

Hi,
-erstellt mit Delphi 6
-benötigt TGifImage