Get more resolution Save To Picture

General
1

Hello, good day to all.
Am working with a desktop and a webcam project, which saves me the pictures at 640x480 pixels, you can increase the resolution?

Thanks in advance

2

Use DRAWPICTURE to change the resolution, but be aware it changes the QUALITY as well… the larger you make it the more blurry it will be… Thats the nature of a graphic image, nothing to do with XOJO specifically…

Its not like those magic cameras you seen on TV shows like “CSI”, where they can take a bad picture from a security camera and blow it up to reveal a perfect image of the bad-guys face…

3

You are limited by what the webcam can provide. If the webcam is only capable of 640x480, that’s the best you can do. You can blow it up, but the image quality will suffer.

4

OK, I’m using, but I use it only to display and adjust the saved image, as with the aforementioned resolution to ImageView.

[code]Function DrawPicture(i as imagewell, p as picture, w as integer, h as integer)
dim pic as new picture(w, h, 32)
pic.graphics.drawpicture p, 0, 0, w, h, 0, 0, p.width, p.height
i.image = pic

End Function[/code]

5

The Web camera is HD 1080p images are saved in 96 dpi

6

Capture Picture From Logitech Software and save to 2304x1296 Pixels

7

How are you capturing the image? Are you saving the original capture? Or are you saving the image from the imagewell? You need to keep both the original and the imagewell on hand, so you can save the original.

8

Here my code how captured the image

[code] Dim Fot as FolderItem
dim la as integer
la=len(app.executablefile.name)

dim bn as string
bn=app.executablefile.absolutepath
dim la2 as integer
la2=len(bn)-la
dim def as string
def=left(bn,la2)

Declare Function SendMessage lib “user32” alias “SendMessageA”(hwnd as integer,wMsg as integer,wParam as integer,lParam as CSTRING)AS integer

DIM START AS INTEGER
DIM SAVE AS INTEGER
DIM G AS INTEGER

START =&H400
G=START+61
SAVE =START+25

z=SendMessage(cap,G,0,“0”)
z=SendMessage(cap,SAVE,0,“C:\LOGI\temp.jpg”)[/code]

9

Is the captured image at 2304x1296 or 640x480? What is “cap”?

Are you doing a screen capture? Or are you addressing the camera directly? If you’re doing a screen capture, you will not get the desired resolution. My guess is you’re going to have to talk directly to the camera via declares, which will require a lot of research. Maybe Monkeybread has a plugin that can do the job.

10

I do capture directly from the webcam and saves me a low resolution

11

This Activate Webcam

[code] Declare Function SendMessage lib “user32” alias “SendMessageA”(hwnd as integer,wMsg as integer,wParam as integer,lParam as integer)AS integer

DIM START AS INTEGER
DIM G AS INTEGER

START =&H400
G=START+11

CALL SendMessage(CANVAS1.Handle,G,0,0)

Declare Function capCreateCaptureWindowA lib “avicap32.dll” (lpszWindowName as integer,dwStyle as Integer,x as integer,y as integer,nWidth as integer,nHeight as integer,hWndParent as integer,nID as integer)as integer

cap=capCreateCaptureWindowA(0,BITOR(&h10000000,&H40000000),0,0,200,100,canvas1.handle,0)

CALL SendMessage (cap,1034,0,0)
CALL SendMessage (cap,1077,1,0)
CALL SendMessage (cap,1076,20,0)
CALL SendMessage (cap,1074,1,0)[/code]

12

Where are you setting the resolution for the capture?

13

That’s the problem, is not to configure it, so my question.

I was changing number on this line.

cap=capCreateCaptureWindowA(0,BITOR(&h10000000,&H40000000),0,0,200,100,canvas1.handle,0)

But he did not change the resolution.

14

Great. Now we understand the problem. Unfortunately, I don’t know a solution.

Anybody?