Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

camera mit über wintv-karte ansprechen

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
pebisoft
gesperrt


Anmeldungsdatum: 28.11.2004
Beiträge: 131

BeitragVerfasst am: 21.09.2006, 09:35    Titel: camera mit über wintv-karte ansprechen Antworten mit Zitat

hallo, ich habe diesen code in purebasic, wo ich eine cam über die avivcap32.dll auslesen kann.
wie kann ich das in freebasic relalisieren?

Code:

#WM_CAP_START = #WM_USER
#WM_CAP_SET_CALLBACK_ERROR = #WM_CAP_START + 2
#WM_CAP_SET_CALLBACK_STATUS = #WM_CAP_START + 3
#WM_CAP_SET_CALLBACK_YIELD = #WM_CAP_START + 4
#WM_CAP_SET_CALLBACK_FRAME = #WM_CAP_START + 5
#WM_CAP_SET_CALLBACK_VIDEOSTREAM = #WM_CAP_START + 6
#WM_CAP_SET_CALLBACK_WAVESTREAM = #WM_CAP_START + 7
#WM_CAP_DRIVER_CONNECT = #WM_CAP_START + 10
#WM_CAP_DRIVER_DISCONNECT = #WM_CAP_START + 11
#WM_CAP_DRIVER_GET_CAPS = #WM_CAP_START + 14
#WM_CAP_DLG_VIDEOFORMAT = #WM_CAP_START + 41
#WM_CAP_DLG_VIDEOSOURCE = #WM_CAP_START + 42
#WM_CAP_DLG_VIDEODISPLAY = #WM_CAP_START + 43
#WM_CAP_SET_PREVIEW = #WM_CAP_START + 50
#WM_CAP_SET_PREVIEWRATE = #WM_CAP_START + 52
#WM_CAP_GET_STATUS = #WM_CAP_START + 54
#WM_CAP_FILE_SAVEDIB = #WM_CAP_START + 25
#WM_CAP_SET_SCALE = #WM_CAP_START + 53
#WM_CAP_SET_CALLBACK_CAPCONTROL = #WM_CAP_START + 85
#WM_CAP_EDIT_COPY = #WM_CAP_START + 30
#WM_CAP_GRAB_FRAME = #WM_CAP_START+60

Open_Window_0()
OpenLibrary(0, "AVICAP32.DLL")

hRobby = CallFunction(0, "capCreateCaptureWindowA", "Test", #WS_VISIBLE + #WS_CHILD, 1, 1, 1, 1, hWnd, 0)
SendMessage_(hRobby, #WM_CAP_DRIVER_CONNECT, 0 , 0)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Eisbaer



Anmeldungsdatum: 16.10.2004
Beiträge: 354
Wohnort: Deutschland,Bayern

BeitragVerfasst am: 22.09.2006, 08:38    Titel: DLLs in FreeBasic laden. Antworten mit Zitat

Hi, um das zu realisieren,

Die Tutorials und Beispiele von FreeBasic Studieren und dann die Umsetzung der DLL Befehle nach FreeBasic vornehmen.


http://www.freebasic.de/Referenz.php?zeig=tuts&col1=a0d5d0&ref=yes&show=DYLIBLOAD

Gruß Eisbaer
_________________
Eigene Webseite:
http://www.eisbaer-studios.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 22.09.2006, 10:26    Titel: Antworten mit Zitat

Den PB-Code hab ich nicht zum laufen gebracht, vermutlich fehlt da was?
Erst
Code:
...
...
hWnd = OpenWindow(0, 0, 0, 640, 480, #PB_Window_SystemMenu, "WebCamTest")

CreateGadgetList(WindowID())

If OpenLibrary(0, "AVICAP32.DLL")

 hWebcam = CallFunction(0, "capCreateCaptureWindowA", "CamTest", #WS_VISIBLE + #WS_CHILD, 10, 10, 320, 240, hWnd, 0)

 SendMessage_(hWebcam, #WM_CAP_DRIVER_CONNECT   , 0 , 0)
 SendMessage_(hWebcam, #WM_CAP_SET_SCALE        , 1 , 0)
 SendMessage_(hWebcam, #WM_CAP_SET_PREVIEWRATE  ,10 , 0)
 SendMessage_(hWebcam, #WM_CAP_SET_PREVIEW      , 1 , 0)
 SendMessage_(hWebcam, #WM_CAP_GRAB_FRAME_NOSTOP, 0 , 0)

 Repeat
  Event = WindowEvent()
  Select Event
    Case #PB_Event_CloseWindow
      Quit = 1
  EndSelect
 Until Quit = 1
 SendMessage_(hWebcam, #WM_CAP_SET_PREVIEW       , 0, 0)
 SendMessage_(hWebcam, #WM_CAP_DRIVER_DISCONNECT, "CamTest", 0)
 CloseWindow(0)
 CloseLibrary(0)
EndIf

End
lief.
Umsetzung in FB hakelt noch an der vfw.bi mit den Augen rollen

Gruß Volta
EDIT/ Umsetzung in FB siehe http://forum.qbasic.at/viewtopic.php?p=40138#40138
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz