Video-Funkübertragung über WLAN in Visual Basic

[ICH_]

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

[Johannes]

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

[ICH_]

das geht sicher noch langsamer

[Johannes]

Wieso das denn?

[ICH_]

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

[Johannes]

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

Gruß
Johannes

[NumberFive]

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_]

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

[NumberFive]

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 ?

[commander7]

hallo NumberFive,

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

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

und in einem Modul dazu noch

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