[VB 6.0] Webcam server

[Verwijderd]

Sinds kort probeer ik een programmatje (Client - server) op te zetten om een webcam op afstand te bekijken.

Op PS-code vond ik het volgende VBscript:
Download VB: http://users.pandora.be/rh_flyboy/webcam.zip

Code van het formulier:

code:

Private Sub cmdStart_Click()
cmdStart.Enabled = False
cmdStop.Enabled = True
'Setup a capture window (You can replace "WebcamCapture" with watever you want)
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
'Connect to capture device
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
tmrMain.Enabled = True
End Sub

Private Sub cmdStop_Click()
cmdStart.Enabled = True
cmdStop.Enabled = False
tmrMain.Enabled = False
'Make sure to disconnect from capture source!!!
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If cmdStop.Enabled = False Then

'Make sure to disconnect from capture source - if it is connected upon termination the program can become unstable
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End If
End Sub

Private Sub tmrMain_Timer()
On Error Resume Next
'Get Current Frame
        SendMessage mCapHwnd, GET_FRAME, 0, 0
'Copy Current Frame to ClipBoard
        SendMessage mCapHwnd, COPY, 0, 0
'Put ClipBoard's Data to picOutput
        picOutput.Picture = Clipboard.GetData
'Clear ClipBoard
        Clipboard.Clear
End Sub

Code van de dll:

code:

Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public 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

Public mCapHwnd As Long

Public Const CONNECT As Long = 1034
Public Const DISCONNECT As Long = 1035
Public Const GET_FRAME As Long = 1084
Public Const COPY As Long = 1054

Als ik de uitvoer van Clipboard.GetData bekijk, dan bekom ik integers zoals deze:
251989588
1795493265
-452653510
637865556
-2130375279
839192148
201657914
-804975015
1241845332
-1509618287
1241845210

Ik dacht eraan deze via winsock te versturen naar de client. Dit lukte wel.
Dan probeerde ik op de client deze via: winsock.getdata picOutput.Picture

Dit lukte echter niet.

Zijn deze cijfers dan een soort van verwijzigen naar geheugenplaatsen?

Alvast bedankt

[NMe]

Verwijderd schreef op 04 mei 2004 @ 23:31:
Zijn deze cijfers dan een soort van verwijzigen naar geheugenplaatsen?

Die kans zit er dik in, maar ik denk dat je eens moet proberen de maker van het script te mailen. Wij geven hier geen support op andermans code.

[raoulduke]

Je downloadt een script, dumpt het hier en nu mogen wij het gaan debuggen / oplossen / interpreteren? Misschien kan je beter toch echt zelf nog een keer kijken.

[Verwijderd]

Ik vraag helemaal niet om dit op te lossen.
Ik heb al zelf heel wat opzoekingswerk verricht.

De maker van het script heb ik al gemaild, maar al een lange tijd zonder resultaat.

Bezie het liever als een discutie over wat de mogelijkheden zijn met dit script.

[NMe]

Verwijderd schreef op 04 mei 2004 @ 23:39:
Bezie het liever als een discutie over wat de mogelijkheden zijn met dit script.

Als je die discussie graag wil hebben zit je hier verkeerd; dan kun je beter naar een eventueel forum van de makers zelf gaan. Hier wordt gediscussieerd over dingen die je zelf gemaakt hebt. Als er hier discussies zouden komen over elk 3rd party script dan zou het al snel uitlopen op een flamewar in de trant van "script x is beter!" vs "nee! script y is veel fijner man!".

Het enige waar je hulp bij kan verwachten op dit forum is als je zelf een module/functie/whatever hebt geschreven voor een dergelijk script, en hier tegen een fout aan loopt die niet met het verdere script te maken heeft, maar met een fout die je zelf gemaakt hebt.

Wat je nu doet is stellen dat het script een bepaalde uitvoer geeft, die jij niet begrijpt, en je vraagt wat die uitvoer betekent. Dat kan IMHO geen zinvolle discussie opleveren, vooral omdat de maker je er veel meer over kan vertellen dan wij.

[gorgi_19]

* gorgi_19 gaat eens optellen...

We hebben:

• Niet zelf geschreven script.
• Een vraag die normaliter alleen de maker kan beantwoorden; deze mag support geven op zijn eigen scripts. Beantwoord hij geen mails, dan zul je moeten uitwijken naar een ander script, we zijn geen vervanger van een support forum.
• Een verzoek om een discussie wat er mogelijk is met een bepaald script.
• Een halve discussie of het topic hier wel of niet hoort, welke normaliter in SM of via een TR hoort.
• Een onduidelijk topic; "Dit lukte echter niet." . Wat lukt niet? Welke foutmeldingen? Welke regel? Wat krijg je wel?

Programming en Webscripting gaat over zelf geschreven scripts, en de problemen die je hierbij tegen komt. Daaraan voldoet dit topic in ieder geval niet.

Verder zie ik niet in hoe dit topic nog tot een interessante discussie kan verworden, gezien de huidige loop.

Oftewel: dicht.

[ Voor 10% gewijzigd door gorgi_19 op 05-05-2004 00:59 ]