Webcam

Übersicht

BlitzBasic

Allgemein

	Mooch Betreff: Webcam	Mi, Sep 01, 2004 12:50 Antworten mit Zitat
Kann ich mit Blitz3D ein Foto mit meiner Webcam aufnehmen? Wenn, dann wie?
Pentium IV 3.0Ghz; nVidia Geforce 6800; Microsoft Windows XP Home SP2; BlitzBasic 3D .:: Sites ::. .:: http://www.fl4sh-clan.de/ ::.

Mooch

Betreff: Webcam

Mi, Sep 01, 2004 12:50
Antworten mit Zitat

Kann ich mit Blitz3D ein Foto mit meiner Webcam aufnehmen?
Wenn, dann wie?

Pentium IV 3.0Ghz; nVidia Geforce 6800;
Microsoft Windows XP Home SP2; BlitzBasic 3D

.:: Sites ::.
.:: http://www.fl4sh-clan.de/ ::.

	Jan_ Ehemaliger Admin	Mi, Sep 01, 2004 13:26 Antworten mit Zitat
ja, engliches Forum, suche nach Panno (Plasma im Deutschen Forum) und kontaktiere ihn.
between angels and insects

Jan_

Ehemaliger Admin

Mi, Sep 01, 2004 13:26
Antworten mit Zitat

ja, engliches Forum, suche nach Panno (Plasma im Deutschen Forum) und kontaktiere ihn.

between angels and insects

	Mooch Betreff: Für 2D...	Fr, Sep 03, 2004 18:02 Antworten mit Zitat
Aber wie kann ich diese Dll dafür benutzen einfach (in 2D) mit meiner Webcam ein Foto zu schiessen??? (Bin ein blutiger Anfänger)
Pentium IV 3.0Ghz; nVidia Geforce 6800; Microsoft Windows XP Home SP2; BlitzBasic 3D .:: Sites ::. .:: http://www.fl4sh-clan.de/ ::.

Mooch

Betreff: Für 2D...

Fr, Sep 03, 2004 18:02
Antworten mit Zitat

Aber wie kann ich diese Dll dafür benutzen einfach (in 2D) mit meiner Webcam ein Foto zu schiessen???
(Bin ein blutiger Anfänger) Question

Pentium IV 3.0Ghz; nVidia Geforce 6800;
Microsoft Windows XP Home SP2; BlitzBasic 3D

.:: Sites ::.
.:: http://www.fl4sh-clan.de/ ::.

	Sebastian	Sa, Sep 04, 2004 9:47 Antworten mit Zitat
Zwei dinge : 1: Blutige Anfänger progen besser keine Webcam programme ....... 2: Weißt du was Memory banks sind ?? Ohne die kommste nämlich nicht weit. Dann weißt du wie man ne Funktion aus ner DLL aufruft ? Wenn dir das alles klar ist und du dir die Demo anschaust , müsste dir alles weitere Klar werden .....
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !

Sebastian

Sa, Sep 04, 2004 9:47
Antworten mit Zitat

Zwei dinge :

1: Blutige Anfänger progen besser keine Webcam programme .......

2: Weißt du was Memory banks sind ??
Ohne die kommste nämlich nicht weit.
Dann weißt du wie man ne Funktion aus ner DLL aufruft ?

Wenn dir das alles klar ist und du dir die Demo anschaust , müsste
dir alles weitere Klar werden .....

Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !

	Mooch Betreff: ...	Sa, Sep 04, 2004 12:48 Antworten mit Zitat
Naja, die Demo hab ich mir angeschaut und ein Programm geschrieben. Aber das Bild das ich bekommen habe besteht nur aus einem Farbmischmasch... Kann mir nicht jemand einen Bespielcode mailen? (Privat oder hier) Denn aus der Demo werd ich nicht schlau.
Pentium IV 3.0Ghz; nVidia Geforce 6800; Microsoft Windows XP Home SP2; BlitzBasic 3D .:: Sites ::. .:: http://www.fl4sh-clan.de/ ::.

Mooch

Betreff: ...

Sa, Sep 04, 2004 12:48
Antworten mit Zitat

Naja, die Demo hab ich mir angeschaut und ein Programm geschrieben. Aber das Bild das ich bekommen habe besteht nur aus einem Farbmischmasch...
Kann mir nicht jemand einen Bespielcode mailen? (Privat oder hier)
Denn aus der Demo werd ich nicht schlau.
Question

Pentium IV 3.0Ghz; nVidia Geforce 6800;
Microsoft Windows XP Home SP2; BlitzBasic 3D

.:: Sites ::.
.:: http://www.fl4sh-clan.de/ ::.

	Vertex	Sa, Sep 04, 2004 15:40 Antworten mit Zitat
Bei mir geht z.B. die Webcam nicht. Ich weiß nicht in wie weit Panno das über WinAPI Capturingbefehle gemacht hat, denn da geht es. mfg olli
vertex.dreamfall.at \| GitHub

Vertex

Sa, Sep 04, 2004 15:40
Antworten mit Zitat

Bei mir geht z.B. die Webcam nicht. Ich weiß nicht in wie weit Panno das über WinAPI Capturingbefehle gemacht hat, denn da geht es.
mfg olli

vertex.dreamfall.at | GitHub

	Sebastian	So, Sep 05, 2004 11:36 Antworten mit Zitat
Bei mir lauft alles einwandfrei ..... Code: [AUSKLAPPEN] [EINKLAPPEN] AppTitle "OK" Graphics3D 1024,768,32,2 in_bank = CreateBank(1) ; Bloss so out_bank = CreateBank (3202404): ; 320240 pixels mit je 3 bytes R-G-B aber da blitz integer liest 4 img = CreateImage (319,239) ; Hier wird nachher bas bild kopiert MaskImage img,0,127,0 ; könnte mann sich sparen tex = CreateTexture (319,239) ScaleTexture tex,1.32,1.01 camera=CreateCamera() light=CreateLight() RotateEntity light,90,0,0 cube=CreateCube() PositionEntity cube,.1,0,2.5 EntityFX cube ,1 ok = CallDLL("B3DCAPtest","INIT",in_bank,Out_bank); Driver Wählen ok = CallDLL ("B3DCAPtest","START"); startet tread der jedesmal das bild selsbständig in die Bank kopiert!! SetBuffer BackBuffer() ClsColor 25,25,255 .test Cls m = MilliSecs() SetBuffer ImageBuffer(img) LockBuffer ImageBuffer(img) pointer =0 For LoopX = 0To 319 For LoopY = 0 To 239 argb = PeekInt(out_bank,pointer) WritePixelFast(Loopx,Loopy,argb) Pointer = Pointer + 4 Next Next UnlockBuffer ImageBuffer(img) SetBuffer TextureBuffer(tex) LockBuffer TextureBuffer(tex) pointer =0 For LoopX = 0To 319 For LoopY = 0 To 239 argb = PeekInt(out_bank,pointer) WritePixelFast(Loopx,Loopy,argb) Pointer = Pointer + 4 Next Next UnlockBuffer TextureBuffer(tex) SetBuffer BackBuffer() EntityTexture cube,tex DrawImage img,MouseX(),MouseY() Locate 10,10 Print Str(MilliSecs()-m) MoveEntity cube ,0,0,Sin(a) a=a Mod 2 ;UpdateWorld RenderWorld DrawImage img,MouseX(),MouseY() Flip(1) If KeyHit(1) Then .raus ok = CallDLL("B3dCAPtest","ENDCAP") EndGraphics() End End If Goto test End Is ein sch***** codestyle ...... Is ja auch nich von mir sondern von panno.
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !

Sebastian

So, Sep 05, 2004 11:36
Antworten mit Zitat

Bei mir lauft alles einwandfrei .....

Code: [AUSKLAPPEN]

AppTitle "OK"
Graphics3D 1024,768,32,2

in_bank = CreateBank(1) ; Bloss so

out_bank = CreateBank (320*240*4): ; 320*240 pixels mit je 3 bytes R-G-B aber da blitz integer liest *4
img = CreateImage (319,239) ; Hier wird nachher bas bild kopiert

MaskImage img,0,127,0 ; könnte mann sich sparen
tex = CreateTexture (319,239)

ScaleTexture tex,1.32,1.01
camera=CreateCamera()
light=CreateLight()
RotateEntity light,90,0,0
cube=CreateCube()

PositionEntity cube,.1,0,2.5
EntityFX cube ,1

ok = CallDLL("B3DCAPtest","INIT",in_bank,Out_bank); Driver Wählen

ok = CallDLL ("B3DCAPtest","START"); startet tread der jedesmal das bild selsbständig in die Bank kopiert!!

SetBuffer BackBuffer()
ClsColor 25,25,255

.test
Cls
m = MilliSecs()

SetBuffer ImageBuffer(img)
LockBuffer ImageBuffer(img)

   pointer =0
   For LoopX = 0To 319
   For LoopY = 0 To 239
   argb = PeekInt(out_bank,pointer)

   WritePixelFast(Loopx,Loopy,argb)

   Pointer = Pointer + 4
   Next
   Next
UnlockBuffer ImageBuffer(img)

SetBuffer TextureBuffer(tex)
LockBuffer TextureBuffer(tex)

   pointer =0
   For LoopX = 0To 319
   For LoopY = 0 To 239
   argb = PeekInt(out_bank,pointer)

   WritePixelFast(Loopx,Loopy,argb)

   Pointer = Pointer + 4
   Next
   Next
UnlockBuffer TextureBuffer(tex)

SetBuffer BackBuffer()
EntityTexture cube,tex

DrawImage img,MouseX(),MouseY()

Locate 10,10
Print Str(MilliSecs()-m)
MoveEntity cube ,0,0,Sin(a)
a=a Mod 2
;UpdateWorld
RenderWorld
DrawImage img,MouseX(),MouseY()
Flip(1)

If KeyHit(1) Then
.raus
ok = CallDLL("B3dCAPtest","ENDCAP")
EndGraphics()
End
End If

Goto test

End

Is ein sch***** codestyle ...... Rolling Eyes

Is ja auch nich von mir sondern von panno.

Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !

	Plasma(alt) Betreff: ups	So, Sep 05, 2004 19:19 Antworten mit Zitat
oh danke sebastian
DIV is dead !

Plasma(alt)

Betreff: ups

So, Sep 05, 2004 19:19
Antworten mit Zitat

oh danke sebastian

DIV is dead !

	Mooch Betreff: ...	Mo, Sep 06, 2004 11:53 Antworten mit Zitat
Genau diesen COde habe ich auch, ich kapiere nur nicht, wie man jetzt ein 2D Bild (Keine Textur!) aus der Kamera herausbekommt. Ich will nämlich ein überwachungsprogramm schreiben, dass regelmäßig ein Bild mit meiner Kamera macht und abspeichert. Help!!!!
Pentium IV 3.0Ghz; nVidia Geforce 6800; Microsoft Windows XP Home SP2; BlitzBasic 3D .:: Sites ::. .:: http://www.fl4sh-clan.de/ ::.

Mooch

Betreff: ...

Mo, Sep 06, 2004 11:53
Antworten mit Zitat

Genau diesen COde habe ich auch, ich kapiere nur nicht, wie man jetzt ein 2D Bild (Keine Textur!) aus der Kamera herausbekommt.
Ich will nämlich ein überwachungsprogramm schreiben, dass regelmäßig ein Bild mit meiner Kamera macht und abspeichert.
Help!!!! Shocked

Pentium IV 3.0Ghz; nVidia Geforce 6800;
Microsoft Windows XP Home SP2; BlitzBasic 3D

.:: Sites ::.
.:: http://www.fl4sh-clan.de/ ::.

	Sebastian	Mo, Sep 06, 2004 16:36 Antworten mit Zitat
@Plasma war nicht so gemeint @The\|rest\|of\|univers\| Ich hab einem Quellcode für sowas hab ich mal aus langeweile gemacht .... Soll ich dir ne PN schicken ?
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !

Sebastian

Mo, Sep 06, 2004 16:36
Antworten mit Zitat

@Plasma war nicht so gemeint Very Happy

@The|rest|of|univers|
Ich hab einem Quellcode für sowas hab ich mal aus langeweile gemacht ....
Soll ich dir ne PN schicken ?

Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !

	simi	Mo, Sep 06, 2004 16:40 Antworten mit Zitat
Ich denke du brauchst nur das: Code: [AUSKLAPPEN] [EINKLAPPEN] SetBuffer ImageBuffer(img) LockBuffer ImageBuffer(img) pointer =0 For LoopX = 0To 319 For LoopY = 0 To 239 argb = PeekInt(out_bank,pointer) WritePixelFast(Loopx,Loopy,argb) Pointer = Pointer + 4 Next Next UnlockBuffer ImageBuffer(img) Dann kannst du das Bild (img) abspeichern...

simi

Mo, Sep 06, 2004 16:40
Antworten mit Zitat

Ich denke du brauchst nur das:
Code: [AUSKLAPPEN]

SetBuffer ImageBuffer(img)
LockBuffer ImageBuffer(img)

pointer =0
For LoopX = 0To 319
For LoopY = 0 To 239
argb = PeekInt(out_bank,pointer)

WritePixelFast(Loopx,Loopy,argb)

Pointer = Pointer + 4
Next
Next
UnlockBuffer ImageBuffer(img)

Dann kannst du das Bild (img) abspeichern...

	Mooch Betreff: ...	Mo, Sep 06, 2004 17:19 Antworten mit Zitat
Ja bitte.
Pentium IV 3.0Ghz; nVidia Geforce 6800; Microsoft Windows XP Home SP2; BlitzBasic 3D .:: Sites ::. .:: http://www.fl4sh-clan.de/ ::.

Mooch

Betreff: ...

Mo, Sep 06, 2004 17:19
Antworten mit Zitat

Ja bitte.

Pentium IV 3.0Ghz; nVidia Geforce 6800;
Microsoft Windows XP Home SP2; BlitzBasic 3D

.:: Sites ::.
.:: http://www.fl4sh-clan.de/ ::.

	Mooch Betreff: ...	Mi, Sep 08, 2004 19:37 Antworten mit Zitat
@Sebastian: Ähm, hast du mir schon die PN geschickt?
Pentium IV 3.0Ghz; nVidia Geforce 6800; Microsoft Windows XP Home SP2; BlitzBasic 3D .:: Sites ::. .:: http://www.fl4sh-clan.de/ ::.

Mooch

Betreff: ...

Mi, Sep 08, 2004 19:37
Antworten mit Zitat

@Sebastian:
Ähm, hast du mir schon die PN geschickt?
Embarassed

Pentium IV 3.0Ghz; nVidia Geforce 6800;
Microsoft Windows XP Home SP2; BlitzBasic 3D

.:: Sites ::.
.:: http://www.fl4sh-clan.de/ ::.

	Ricknasher Betreff: Re: ...	Fr, Sep 10, 2004 4:25 Antworten mit Zitat
Mooch hat Folgendes geschrieben: Genau diesen COde habe ich auch, ich kapiere nur nicht, wie man jetzt ein 2D Bild (Keine Textur!) aus der Kamera herausbekommt. Ich will nämlich ein überwachungsprogramm schreiben, dass regelmäßig ein Bild mit meiner Kamera macht und abspeichert. Help!!!! Ich hab doch genau dasselbe problem(und mehrere) Also: Sebastian, wenn du mir die Quellcode auch schicken wurde, soll ich doch sehr glucklich sein. Veilliecht konnst du ein service starten. 8) Woll auch das popup beim initialisierung ausschalten aber wie man das machst?? ricknasher@yahoo.com Greetz, peace & thanx