Video-Funkübertragung über WLAN in Visual Basic

Hallo zusammen,

Ich möchte das Bild einer Webcam über WLAN von einem Computer auf einen Anderen übertragen. Mit MS Netmeeting hab ich das auch schon hingekriegt. Mein Problem ist aber, dass ich das Ganze in einem Visual Basic ( .NET) Projekt tun möchte. Ich habe auf der Homepage von Microsoft ein SDK gefunden (http://www.microsoft.com/windows/Net...DK/default.ASP), aber die Projekte darin sind alle in C++ verfasst und da erkenne ich halt nur noch Hyrogliephen.

Gibts vielleicht eine OCX dazu oder hat sonst jemand einen Tipp, denn ich hab im Internet noch nichts brauchbares gefunden.


gruss commander7

Also unter VB6 ist das nicht ganz so schwer: Pixel für Pixel auslesen (In PictureBox) und dann mit dem Winsock-Steuerelement als String verschicken. Zum Bandbreitesparen kann man das ganze mit geeigneten DLLs vorher in JPEG umwandeln und dann die Bilddatei auslesen und per Winsock verschicken (auch als String, geht ja nich anders ^^).

Gruß, Trabukh

hallo trabukh,

danke für deine Antwort. Das Kamerabild kann ich in VB schon einlesen, aber mir stellen sich nun aber noch 2 Fragen.
1. Wie kann ich das eingelesene Bild in einen String wandeln?
2. Wie wandle ich den ankommenden String wieder in ein Bild um (ergibt sich vielleicht auch aus 1.)

gruss commander7

ganz einfach, du nimmst das bild als bmp-datei auf und schickst die daten rüber und baust sie auf der anderen seite wieder zusammen.
ich nehme z.b. in visualbasic ein bild von videocapture als bmp-bild auf (kommt über funk vom robby) und werte es nach hindernissen und steuere dann wieder den robby.
mfg pebisoft

Also, du kannst in VB ich glaub mit Picture1.Point... die Pixelfarbe auslesen. Das musst du dann für jedes Pixel machen und das ganze in einem String speichern. Was allerdings aus meiner Sicht einfacher und resourcensparender ist, wäre, das Bild in JPEG umzuwandeln und dann die Datei binär öffnen und in sagen wir mal 1 KByte-Packeten verschicken. Falls du da Fragen hast, immer her damit... ;-)

Gruß, Trabukh

danke erstmal für eure ideen,

hat jemand eine Seite, wo das etwas näher beschrieben ist. Ich möchte es mir lieber selber aufarbeiten, und erst wenn ich es selber nicht mehr schaffe, dann melde ich mich....

gruss commander7

Also hiermit kann man BMP nach JPG konvertieren:
http://www.schmittis-page.de/index.html?/vb/t115.htm

Nur kennt jemand eine Möglichkeit das bild SCHNELL zu verschicken ohne den Binary-Modus zu benutzen, also ohne es auf der Festplatte zu speichern?
Ich hab da alle möglichen sachen ausprobiert, die aber immer jeden Pixel auslaßen, was bei einem Bild in Desktopauflösung etwas länger dauert ...
Auch ohne ü+berhaupt was zu verschicken dauerte das einige Sekunden.

Warum überträgst du nicht nur die änderungen an standt das ganze bild ?
Warum bitmap übertragen ?

den header brauchst du nicht da du ja auf der anderen seite weiß wie groß das bild ist und welche farb tiefe es hat.

Wie übertägst du die daten (Format) ?
Reichen nicht vielleicht auch 256 Farben ?

Bei einer Bildgrösse unter 255 x 255 bei 256 Farbe brauch ma pro Pixel nur drei Byte wenn man jetzt nur die Änderungen überträgt sollte es sehr schnell sein.

Gruß

Ich übertrage nur die änderungen. aber allein das auslesen von jedem Pixel dauert ewig. Das versenden an sich geht ja schnell.
Jetzt hab ich halt angefangen das Bild erst auf der Festplatte zu speichern und dann im Bynary-Modus zu verschicken. das geht irgendwie 20 mal so schnell, nur ist das wohl nicht gut für die Festplatte und auch irgendwie murks. Und mehr wie 1 Bild pro 2 Sekunden geht damit auch nicht.

das darf nicht dauer

wie bekommst du das bild ? Daten format ?
wie hollst du die Pixel raus ?

mfg

das bild ist ein screenshot. format wird dann wohl bmp sein. und die pixel guck ich mit picturebox.point an.

Moin,
eine andere Möglichkeit wäre, einen Netzwerkordner zu verwenden. Dann greift der eine Recher auf den Ordner des anderen Rechners zu und öffnet übers Netzwerk das Bild. Geht eventuell schneller.

Gruß
Johannes

das geht sicher noch langsamer

Wieso das denn?

weil man das dann erst dort speichern muss 2. muss es dann der andere pc lesen 3. muss der lesende pollen 4. kann es passieren, dass während der eine schreibt der andere liest.
also damit schafft man bestimmt nicht mehr als die jetzigen 0,5 bilder/sek

Na das müsste man probieren. War nur ne Idee :-)

Gruß
Johannes

Hallo kann auch glauben das die Platte die lösung ist. ich denke die das die bild hol routine das problem ist..

ICH_ hast du mal ein bisschen soure damit ich mir das mit dem bild holen mal an gucken kann ?

Wenn ich ein bild bekomme ich das schon in einem Array of byte da ist das verschicken dann releativ leicht.

Was benutzt du ? DirektX oder den Treiber oder VFW Api ?

Gruß

ich verschick meine bilder mit Winsock. Oder was meinst du?

Das ist mir schon klar.

wie Kommt das bild in die Picturebox ?
und wie dann die pixel zu verschicken wieder raus ?

hast du mal gewessen wo welche zeit drauf geht ?

Zeit 1 bild machen
Zeit 2 delta berechen
Zeit 3 verschick zeit

Ich denke das pixel auslesen muß erstmal optimiert werden dann machen
wir weiter. Also wie kommst du an die Pixel ?

hallo NumberFive,

Mein Interesse liegt auch daran, wie die Pixel verschickt werden.
Zum auslesen der Kamera in VB benutze ich folgenden Code (gekürzt).

Code:

---

    Dim Video_Handle As Integer
    Form_Load()
    Video_Handle = CreateCaptureWindow(Picture1.hwnd)

---

und in einem Modul dazu noch

Code:

---

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
  Alias "capCreateCaptureWindowA" ( _
  ByVal lpszWindowName As String, _
  ByVal dwStyle As Long, _
  ByVal x As Long, _
  ByVal y As Long, _
  ByVal nWidth As Long, _
  ByVal nHeight As Long, _
  ByVal hWndParent As Long, _
  ByVal nID As Long) As Long

Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WM_USER = &H400
Private Const WM_CAP_START = &H400
Private Const WM_CAP_EDIT_COPY = (WM_CAP_START + 30)
Private Const WM_CAP_DRIVER_CONNECT = (WM_CAP_START + 10)
Private Const WM_CAP_SET_PREVIEWRATE = (WM_CAP_START + 52)
Private Const WM_CAP_SET_OVERLAY = (WM_CAP_START + 51)
Private Const WM_CAP_SET_PREVIEW = (WM_CAP_START + 50)
Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11)

Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long

Private Preview_Handle As Long


Public Function CreateCaptureWindow( _
  hWndParent As Long, _
  Optional x As Long = 0, _
  Optional y As Long = 0, _
  Optional nWidth As Long = 320, _
  Optional nHeight As Long = 240, _
  Optional nCameraID As Long = 0) As Long

  Preview_Handle = capCreateCaptureWindow("Video", _
    WS_CHILD + WS_VISIBLE, x, y, _
    nWidth, nHeight, hWndParent, 1)

  SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, nCameraID, 0
  SendMessage Preview_Handle, WM_CAP_SET_PREVIEWRATE, 30, 0
  SendMessage Preview_Handle, WM_CAP_SET_OVERLAY, 1, 0
  SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0

  CreateCaptureWindow = Preview_Handle
End Function


Public Sub CapturePicture(nCaptureHandle As Long, _
  picCapture As PictureBox)

  Clipboard.Clear
  SendMessage nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0
  picCapture.Picture = Clipboard.GetData
End Sub


Public Sub Disconnect(nCaptureHandle As Long, _
  Optional nCameraID = 0)

  SendMessage nCaptureHandle, WM_CAP_DRIVER_DISCONNECT, _
    nCameraID, 0
End Sub

---

gruss commander7

Ich lese die Pixel mit
Picturebox.Point
aus, steht doch da schon oben. Nur das dauert ewig, alles andere ist recht schnell.

du kannst das capturebild auch in die ablage packen und von da aus als bmp-datei oder anderes format herausholen. oder aber auch nur im ram ablegen zum bearbeiten/auswerten, aber immer aus der ablage heraus.
mfg pebisoft

Wie gesagt, am einfachsten ist es, des ganze vorher inne JPEG umzuwandeln....

Gruß, Trabukh

Würde ich nicht machen in gepacken Formaten lassen sich die geänderten pixel nicht so schnell finden.

Ich würde es über die Callback Routine machen:

capSetCallbackOnFrame

typedef struct videohdr_tag {
LPBYTE lpData;
DWORD dwBufferLength;
DWORD dwBytesUsed;
DWORD dwTimeCaptured;
DWORD dwUser;
DWORD dwFlags;
DWORD_PTR dwReserved[4];
} VIDEOHDR, NEAR *PVIDEOHDR, FAR * LPVIDEOHDR;

Da bekommt man die Strucktur gesendet da sind die Roh daten drin
also das Array of Byte von dem Frame

Hier ist ein VB beispiel den ich kann vb nur lesen nicht schreiben

http://compsci.snc.edu/cs460/wegndt/...o/edgedet2.frm

wenn man lpData jetzt verschickt sollte man auf der anderen seite ein
bild bauen können.

Das sollte die Performens bei aus lesen doch um einiges er höhen.

Jetzt würde mich die Netzlast mal interessieren wenn man so die Datenpustet.

Im Nexten Step könnte man sich überlegen nur noch die änderungen zu übertragen.

Könnt ihr verstehen wie ich das meine ?

Gruß

Der link auf das VB Beispiel ist topp!
Hab das Programm gleich ausprobiert. Endlich mal ein überzeugendes Beispiel für eine Kantenerkennung in VB.

Danke, Günter

das mit der Kanten erkennung hatte ich garnicht gesehen.

Hatte ich nur raus gesucht wegen der callback funktion und ich nicht wusste wie ma so was in VB macht.

Bin C++/Delphi programierer.

Gruß

Zitat:

---

Würde ich nicht machen in gepacken Formaten lassen sich die geänderten pixel nicht so schnell finden.

---

Ich glaube bei jpeg Komprimierung ist es noch etwas schlimmer, denn da kann es sein, dass die gesuchten Pixel gar nicht mehr existieren.

Jpeg ist eine verlustbehaftete Komprimierung die viele Bildinformationen die der Mensch nicht so besonders deutlich wahrnimmt komplett entfernt.

Das lässt sich ganz gut feststellen, wenn man jpeg-Bilder stark vergrössert. Dann sieht man meist, dass gerade Kanten und Farbübergänge verändert werden. Für eine automatische Kantenerkennung ist das keine so besonders gute Voraussetzung.

Ich muss nochmal sagen, wie begeistert ich von NumberFives link bin.
http://compsci.snc.edu/cs460/wegndt/...o/edgedet2.frm oder gleich http://compsci.snc.edu/cs460/wegndt/ und dort MyCode:
Es wird nicht nur der VB-Quellcode für still-images (.bmp, (160x120) und videostreams von einer Logitech QuickCam(160x120)dargestellt, sondern auch noch zwei exe.-Dateien mitgeliefert, wo man die Sobel-Kantendetektion gleich ausprobieren kann. Ich habe das Video-Programm für eine Auflösung von 320x240 Pixeln umgeschrieben und mit VB5 eine neue exe-Datei erstellt. Funktioniert problemlos. Und läuft für BASIC rasend schnell. (QuickCam 3000 Pro; Pentium4; 3,2GHz; 2GB RAM).
Das ist wirklich mal ein guter Startpunkt für VB-Programmierer, auf der man eigene Entwicklungen aufbauen kann.

Gruß, Günter

So jetzt habe mal die Übertragung so gebaut wie gedacht mußte doch mal probieren ob das hin haut. jetzt kann ich daten von PC zu pc verschicken
ein life stream ist es zwar noch nicht aber für 7 Stunden finde das OK

Alles selbst programmiert nur mit Teilen die zu Delphi gehören.
VB kann ich halt nicht.

Der code ist sicher noch schneller zu machen aber sollte ich mal was anders Tun.

Der Genutze TCP port ist 32000
Es werden mit jedem bild 320x160x3 Bytes übertragen

Gruß

hallo number5,

hab dein Programm mal ausprobiert und funktioniert wirklich super.
hast du als Basiscode den von http://compsci.snc.edu/cs460/wegndt/ gebraucht?
hast du das senden nun mit Winsock realisiert ?

gruss commander7

hallo commander7,

den code habe fast nicht gebraucht nur für die CallBack procedure da brauchte ich nich alles selbst denken.
ver senden tut indirekt über die winsock es gibt in Delphi ein Klasse dafür
da muß man dann die Thread's(Server) nicht selbst machen.

Naja die Anzeige könnte man sicher noch schneller machen und man müsste mal über legen ob man nicht den stream packen kann und am ende wieder aus packen.

Mit was für rechner hast du getestet ?

Gruß

habe mal ein problem aus gesondert

das packen

https://www.roboternetz.de/phpBB2/viewtopic.php?t=10384

Gruß

hallo number5,

hab ein 1.2 GHz AMD mit 256MB RAM, also schon ein etwas älteres System.
Hab noch ein paar Fragen:
Grundsätzlich wie kommen die 3 Bytes pro Pixel zustande (Grundsatzfrage) ?
Wie kommst du nun an die einzelnen Pixel, etwa mit der Picture.Point Methode?

gruss commander7

Ich habe mir den Quelltext jetzt nicht angesehen.... aber prinzipiell werden bei Bitmaps jeweils 3 Bytes pro Pixel gespeichert, eben RGB: 1x Rotanteil, 1x Grünanteil und halt noch 1x Blauanteil...
Hmm, wie das jetzt in dem Code oben ist, kann ich nicht sagen, aber mit der Point-Funktion bekommt man einen Wert vom Typ Long, den man noch in seine RGB-Bestandteile trennen muss (ist eine einfache Funktion, falls Interesse besteht, werd ich sie nochmal raussuchen).

Gruß, Trabukh

@Trabukh

der Code ist nicht dabei ist nur die exe.

@Alle

Grundsätzlich ist die GetPixel oder Setpixel methode bei den Raten bzw im Video bereich gift den die ist viel zu langsam und alles Flackert und brauch zeit.

Imm dran denke ein bitmap kann man auch als Array of byte betrachten wenn man es mit 24bit farb tife nimmt. Natürlich geht auch mit andern farb tiefen aber da ist das um rechnen dann nicht so einfach.

In der Software oben bekomme ich das Bild in der Callback routine des Vorschau Streams. Und wenn die andere seite bereit ist pumpe ich die daten rüber. Also um so dicker die leitung umso mehr frames (Bilder Pro sekunde). Bin man über legen ob es nicht besser ist das array zu packen und dann zu senden sollte eingendlich mehr frames zu lassen als jetzt.

aber dann wird das array dynamisch und man hat andere Probleme.
Mal sehen ob ich da noch ne neue Version mache.

Gruß

@commander7

wie weit bist du ? reicht dir jetzt mein Programm oder wie willst du weiter machen ?

@all

wenn ihr so fleissig runter ladet währe mal schön ein Feedback zu bekommen.

Gruß

hallo Number5,

Hatte die Videoübertragung etwas aus den Augen verloren. Zum einen hatten ich (vorher endlich letzte Prüfung) noch Schulschluss und da ziemlich viel Zeit gebraucht und zum anderen habe ich mich mit der Kollisionserkennung beschäftigt.

Zitat:

---

reicht dir jetzt mein Programm oder wie willst du weiter machen ?

---

Tja, ich habe gemerkt, dass es mir schon bei den Grundlagen fehlt. Hab noch nicht viel mit Bildern aus Pictureboxes programmiert, zudem kommt erschwehrend dazu, dass ich VB6 oder lieber VB .NET programmiere.

Kennst du Seiten wo dass mit dem Umwandeln der Pixel in Arrays of Byte beschrieben ist und wie ich dieses Array wieder zu einem Bild zusammenbaue. Oder vielleicht halt auch ein paar Codeschnipsel von dir, wenn das möglich ist.

Zitat:

---

wenn ihr so fleissig runter ladet währe mal schön ein Feedback zu bekommen.

---

Ist wirklich schon top, auch das flakern ist raus.

gruss commander7

Beschreibung z.B. hier:
http://msdn.microsoft.com/library/de...ringArrays.asp

Gruß, Günter

@commander7

Habe kein Problem damit dir den source zu geben aber ich denke das du Ihn
nicht verstehen wirst den da hat ein c++ programmierer (das mache ich den ganzen tag) in delphi ein programm geschrieebn was schnel fertig werden soll. Werde aber versuchen dir es zu erklären.

Das mit dem VB oder delphi oder was für ein sprache ist eigendlich egal es änder sich nur die Dialektik nicht das Programm.

In dem Link oben ist ja ein vb programm wie man an der Stream kommt.

In dem Stream ist das bild schon in einem Array of byte also brauchst es nicht mehr wandeln.

Aufpassen im Stream sind die byte verdreht angeordnet. Das heist nicht RGB sondern BGR warum ich habe keine Ahnung.

Alle beschreibung hier gilt nur für 24 bit farbtife und rgb modus der Camera.

So sieht das Array nun aus:

1.Byte Wert für Blau 0 - 255
2.Byte Wert für Gelb 0 - 255
3.Byte Wert für Rot 0 - 255
...

und so weiter der Erste Punkt im Array of Byte ist Links oben sondern

Code:

---

      Z:=0;
      For y:=239 downTo 0 Do
        Begin
          BmpRGB:=MyBitmap.ScanLine[y];
          For x:=0 To 319 Do
          begin
            BmpRGB^.b:=Buffer[z];
            BmpRGB^.g:=Buffer[z+1];
            BmpRGB^.r:=Buffer[z+2];
            Inc(BmpRGB);
            z := z + 3;
          end;
        end;

---

Das ist der Code zum zeichnen das bildes.
Hier habe ich schon ein bisschen mit pointer gespielt damit es schneller wird.

MyBitmap.ScanLine Ist Praktisch ein Array Of 3 Byte für eine Zeile.

Man könnte auch schreiben:

Code:

---

    Z:=0;
      For y:=239 downTo 0 Do
        Begin
          For x:=0 To 319 Do
          begin
              MyBitmap.Canvas.SetPixel(x,y):=RGB(Buffer[z],Buffer[z+1]          Buffer[z+2])
              z := z + 3;
          end;
        end;

---

MyBitmap.Canvas. Ist pratisch die PictureBox ist mach das dann nur im speicher damit nach her bei anzeigen schneller geht.

An der Stelle mach ich jetzt mal schluss wenn du wieder fragst gibt mehr infos. Ich würde sage probiere erst mal folgendes aus dem Stream bilder holen und dann selbst in Picture box darstellen wenn das klappt machen wir die Übertragung.

Hast du die Kollisionserkennung hin bekommen Ihrgend wie will die bei mir nicht so bin zu langsam wie sieht den dein Robi aus (Schematischer auf bau) vielleicht können wir ja softwer zu sammen machen hats du die Links in mein Fusszeile schon an gesehen ?

Gruß

hallo number5,

vielen dank für deine Mühe/Geduld. Ich glaube es ist nicht schlecht, wenn ich auch mal andere Sprachen lesen und Untersuchen muss. Schadet mir sicher nicht.

Ich probier nun mit deinen Anweisungen mit der Programmierung weiterzufahren. Habe aber übers Wochenende wenig Zeit, werde mich nächste Woche damit beschäftigen.
Danke auch für ev. weitere Fragen. Ich werde mich bei dir melden.

Ich habe mich wahrscheinlich bei meinem Beitrag oben etwas unpräzise Ausgedrückt. Die Kollisionserkennung realisiere ich im Moment nicht über die Analyse der Videobilder, ich will die mit US und Sharp Sensoren machen.

Ich hab mich auf deinen Links auch schon kurz umgesehen. Der Roboter den ich am bauen bin ist mein erster. Er ist ähnlich aufgebaut wie deiner (respektive wird es erst sein). Ich packe auf den Robby ein VIA EPIA mini-ITX Computer und ne Webcam. Über WLAN und den ITX kann ich nun auch den AVR ansprechen, der dann die Schrittmotor steuert. Nun will ich wie gesagt zur Kollisionserkennung um ihn auch autonom rumkurven zu lassen. Ist aber alles noch in einzelteilen, werde in meinen Ferien mit dem Zusammenbau beginnen.

werde mich wieder melden.
nochmal ein herzliches dankeschön

gruss commander7