|
You need to profile your code to find out where the bottleneck is before you can start fixing it. Just dumping 669 lines of unexplained code in a message and expecting us to profile it for you isn't going to work - especially since we don't have access to your database. And since you can't be bothered to remove irrelevant code, such as the unused DelayMSC function, you clearly don't care about helping us to help you.
For a start, look at your queries. If your outer query returns 2000 rows, you will be executing 2001 queries to load the data, since you execute a separate query for every row in the "header data" query. There will almost certainly be a way to combine the queries so that you only need to execute one.
You have multiple calls to the Delay function, which will delay your code by more than 10ms each time you call it.
You're calling Application.DoEvents , which is always a code-smell. It indicates that you're doing work on the UI thread which should actually be performed on a background thread using a BackgroundWorker[^] or similar.
Also, Office Interop can be quite slow. You might have better luck using the Open XML SDK[^] to generate the file instead.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
I'm using "avicap32.dll" for my program which found on this website. However the webcam preview only works on older laptop built in webcam but display black/blank on newer model laptop.
Anyone has the solution to this? Been cracking my head for few months trying to solve it.
Attach below with my code:
1 Imports System.IO
2 Imports System.Threading
3 Imports System.Diagnostics
4 Imports System.Runtime.InteropServices
5
6 Public Class frmTest
7 Private Structure BITMAPINFOHEADER
8 Dim biSize As Integer
9 Dim biWidth As Integer
10 Dim biHeight As Integer
11 Dim biPlanes As Short
12 Dim biBitCount As Short
13 Dim biCompression As Integer
14 Dim biSizeImage As Integer
15 Dim biXPelsPerMeter As Integer
16 Dim biYPelsPerMeter As Integer
17 Dim biClrUsed As Integer
18 Dim biClrImportant As Integer
19 End Structure
20
21 Private Structure BITMAPINFO
22 Dim bmiHeader As BITMAPINFOHEADER
23 Dim bmiColors() As Integer
24 End Structure
25
26 Const WM_CAP As Short = &H400S
27 Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
28 Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
29 Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
30 Const WM_CAP_SET_VIDEOFORMAT = WM_CAP + 45
31 Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
32 Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
33 Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
34
35 Const WS_CHILD As Integer = &H40000000
36 Const WS_VISIBLE As Integer = &H10000000
37 Const SWP_NOMOVE As Short = &H2S
38 Const SWP_NOZORDER As Short = &H4S
39 Const HWND_BOTTOM As Short = 1
40
41 Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _
42 ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
43 ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
44
45 Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
46 (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
47 ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
48 ByVal nHeight As Short, ByVal hWndParent As Integer, _
49 ByVal nID As Integer) As Integer
50
51 Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
52 (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
53 <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer
54
55 Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
56
57 Private iDevice As Integer = 0
58 Private hHwnd As Integer
59
60 Private intSecurity As ENSECURITY
61 Private m_strImage As String
62 Private m_strFinger As String
63 Private m_imageRawData() As Byte = Nothing
64 Private m_strReader As String
65
66
67
68
69 Public WriteOnly Property SetSecurity() As Integer
70 Set(ByVal value As Integer)
71 intSecurity = value
72 If intSecurity = ENSECURITY.EN_READ Then
73
74 End If
75 End Set
76 End Property
77
78
79
80 Private Sub OpenPreviewWindow()
81 Dim iHeight As Integer = pbPhoto.Height
82 Dim iWidth As Integer = pbPhoto.Width
83
84
85
86
87 hHwnd = capCreateCaptureWindowA(iDevice.ToString, WS_VISIBLE Or WS_CHILD, 0, 0, 1280, _
88 1024, pbPhoto.Handle.ToInt32, 0)
89
90
91
92
93 If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
94
95
96
97 SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
98
99
100
101
102 SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
103
104
105
106
107 SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
108
109
110
111
112 SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, pbPhoto.Width, pbPhoto.Height, _
113 SWP_NOMOVE Or SWP_NOZORDER)
114
115
116
117 Else
118
119
120
121 DestroyWindow(hHwnd)
122
123 End If
124 End Sub
125
126 Private Sub fncStart()
127 Try
128 File.Delete(Application.StartupPath & "\" & "Web.jpg")
129 If hHwnd = 0 Then
130 hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, pbPhoto.Width, pbPhoto.Height, pbPhoto.Handle.ToInt32, 0)
131 End If
132
133
134 If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
135
136 Dim myBitMapInfo As BITMAPINFO
137 With myBitMapInfo.bmiHeader
138 .biSize = Len(myBitMapInfo.bmiHeader)
139 .biWidth = 1024
140 .biHeight = 768
141 .biPlanes = 1
142 .biBitCount = 24
143 End With
144
145 SendMessage(hHwnd, WM_CAP_SET_VIDEOFORMAT, Len(myBitMapInfo), myBitMapInfo)
146
147 SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
148
149 SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
150
151 SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
152
153 SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, pbPhoto.Width, pbPhoto.Height, SWP_NOMOVE Or SWP_NOZORDER)
154
155 Else
156
157 DestroyWindow(hHwnd)
158 End If
159 Catch ex As Exception
160
161 End Try
162
163 End Sub
164
165 Private Sub ClosePreviewWindow()
166
167
168
169 SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)
170
171
172
173
174
175 DestroyWindow(hHwnd)
176 End Sub
177
178 Private Sub fncCapture()
179 Dim data As IDataObject
180 Dim bmap As Bitmap
181 Dim strImageFileName As String
182 Dim fsImage As FileStream = Nothing
183
184
185
186 SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
187
188
189
190
191 data = Clipboard.GetDataObject()
192 If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
193 strImageFileName = Application.StartupPath & "\" & "Web.jpg"
194 bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
195 pbPhoto.Image = bmap
196
197 ClosePreviewWindow()
198
199 Trace.Assert(Not (bmap Is Nothing))
200
201 bmap.Save(strImageFileName, Imaging.ImageFormat.Jpeg)
202
203 pbPhoto.ImageLocation = strImageFileName
204 fsImage = New FileStream(strImageFileName, FileMode.Open, FileAccess.Read)
205 m_imageRawData = New Byte(fsImage.Length) {}
206 fsImage.Read(m_imageRawData, 0, fsImage.Length)
207 fsImage.Close()
208
209 End If
210 hHwnd = Nothing
211 End Sub
212
213
214
215 Private Sub frmTest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
216 Dim retval As Int32
217 Dim readers(-1)() As Char
218 Try
219
220
221
222 retval = GetReaders(readers)
223
224
225
226
227
228
229
230
231
232
233 m_strReader = CStr(readers(0))
234 If txtName.CanFocus Then txtName.Focus()
235
236
237 Catch ex As Exception
238 cmdMyKad.Visible = False
239
240 End Try
241 End Sub
242
243
244
245
246 Private Sub pbPhoto_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbPhoto.Resize
247 fncStart()
248 End Sub
modified 17-Aug-21 3:45am.
|
|
|
|
|
You need to provide more details, rather than just dumping 250 lines of code here.
|
|
|
|
|
You seem to be swallowing some exceptions. Put some logging in there to find out if all the code runs as you expect it.
Also, the cam should probably not be in use by another application at the same time.
Bastard Programmer from Hell
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
I have a small clock/calendar Applet that lives on my desktop, since (for at least some purposes) I like to have an analog clock. I recently decided to clean up the Panel that displays the clock to make the square background to the round clockface transparent, so that the clock face would just 'float' over the desktop. I discovered that this was not simply a matter of making the relevant area in the source image transparent, since the transparency 'disappears' when the image is loaded into the Panel. However, the following load code almost works when the panel is displayed:
Private Function ConvertImageToRGBFormat(img As Image) As Image
Dim temp As New Bitmap(img.Width, img.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
Dim g As Graphics = Graphics.FromImage(temp)
g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel)
g.Dispose()
temp.MakeTransparent(temp.GetPixel(1, 1))
Return temp
End Function
I say that it 'almost' works because the square background of the displayed image is, indeed, transparent, except for a very thin green 'halo' round the clock. I typically use bright green as the guide color for image areas that I am going to make transparent, so I initially thought that the feathering at the edges of the clock had caused this, and changed the color for the transparent area to a dark gray (similar to the background color on my desktop), so that there was no green anywhere in the image (or in its color palette). Notwithstanding this change, the green halo persists. This is how the Panel appears on the desktop, and this is the source image.
Does anyone have any idea what is going on?
|
|
|
|
|
Yeah, it's aliasing. The "green" halo isn't green. At least, it's not the green of your transparency green.
In order to get rid of the green, you have to get rid of the antialiasing while drawing the clock image. On your Graphics object, set the SmoothingMode = None.
Your clock image will end up with "jaggies" all around it, but you won't get the halo any more.
|
|
|
|
|
Thanks for your response, which makes sense. I have, however, now tried setting the SmoothingMode to None in the Panel's overridden OnPaint Event without changing the (mis)behavior. I assume that the aliasing is occurring earlier, probably when the image (a .png file included and passed as a Resource item) is read in and converted to its internal Bitmap format, and I don't see how I can influence that step.
|
|
|
|
|
It could also be in the image itself if it was created with antialiasing turned on.
|
|
|
|
|
Yes. Looking at the image at a very high zoom, I do now see that it is antialiased. However, the 'smoothing' is all grayscale, which would not be a problem if it carried over to the final displayed image. It is the green false color introduced by the Panel's rendering of it that is the major issue. I will see if I can 'un-antialias' the original image, but that may introduce different, but equally unsightly, problems.
|
|
|
|
|
Since writing my last message, I 'un-antialiased' the source image and tried again. Even though there are only three colors of pixels in the new source image (pure black, pure white, and the very dark gray used for the area to be rendered as transparent), the panel appears exactly the same when displayed on the desktop - with the thin green 'halo' round the clock. The new source image can be found here. It really does look as if the false color aliasing is happening when the image is created/initialized.
modified 6-Aug-21 16:06pm.
|
|
|
|
|
I did something similar, though not transparent, a couple decades ago.
Instead of using an image like that, I just drew the entire clock face when needed.
|
|
|
|
|
Since the clock face is invariant, it seemed to me to make sense to use a static image. My other experiments, described in the other 'branch' of this thread, would also suggest that your approach would not solve the haloing problem with transparency.
|
|
|
|
|
I think no matter what color you pick for the chroma key, you're going to have the same problem. It comes down to the key color you pick isn't the resulting key color when the black of the clock face and the key color are blended together. I don't think there's going to be any solution to the problem while using a chroma key.
|
|
|
|
|
I am not sure what you mean by 'chroma key' in this context. The placeholder 'color' I am using for the transparent area is a very dark gray - the entire palette of the image is grayscale. If you blend black, white, and a pure grey in any proportions, you shouldn't get bright green!
|
|
|
|
|
The "chroma key" is the color chosen to be replaced by "transparent", or "green screen".
|
|
|
|
|
That's what I thought you meant, hence my comment that blending white, black, and gray shouldn't give you green!
|
|
|
|
|
PixelFormat.Format32bppRgb
With black and white you can get by with 8 bits.
It was only in wine that he laid down no limit for himself, but he did not allow himself to be confused by it.
― Confucian Analects: Rules of Confucius about his food
|
|
|
|
|
Yes. I was reusing old code which allowed color images. I wasn't the original author, so I didn't change anything that I didn't think absolutely had to be changed, and I wasn't sure whether any of the other reused code implicitly assumed the specified format. Indeed, experimentation since you raised the issue showed that using other formats (including indexed and grayscale ones) does cause other problems.
|
|
|
|
|
In general, Windows (10) recommends against bit maps because they don't scale well. Use (font) icons and vector graphics. Segoe UI MDL2 assets can be overlayed, reversed and rotated. The .NET shape classess provide circles, polygons, etc.
In your case, I would try overlaying the outter problem area with an ellipse / circle (black stroke, transparent fill) for a quick fix.
It was only in wine that he laid down no limit for himself, but he did not allow himself to be confused by it.
― Confucian Analects: Rules of Confucius about his food
|
|
|
|
|
Well, that was very interesting! Doing as you suggested does not solve the problem. If you use a sensible sized pen (fairly small), nothing visible happens, and the 'halo' looks just as before, though there is a suggestion of it disappearing at the points where the drawn circle overlaps the edges of the original image (the top, bottom, and two sides). If you use a thicker pen, it is more obvious that the 'halo' is gone at the overlapped edges, but it is just pushed out to the edge of the drawn circle over the rest of the rendered image - it still always appears where a 'transparent' pixel was adjacent to one of another color, whether that pixel was part of the original bitmap or subsequently drawn on the Graphic. Presumably, therefore, it is an artefact of the [Bitmap].MakeTransparent() Function, but I have no idea why it has not (as far as I can tell) been described before
Parenthetically, I now see that that function forces the Bitmap on which it is invoked to 32bppRgb mode, since that format has the alpha channel which it needs, so any attempt to use a different format would be pointless.
|
|
|
|
|
I think your problem is part of Windows Forms.
I do a lot of graphics in UWP and WPF and never have any issues I can't overcome.
e.g. WPF and snap to pixels:
Quote: You can set this property to true on your root element to enable pixel snap rendering throughout the UI. For devices operating at greater than 96 dots per inch (dpi), pixel snap rendering can minimize anti-aliasing visual artifacts in the vicinity of single-unit solid lines.
It was only in wine that he laid down no limit for himself, but he did not allow himself to be confused by it.
― Confucian Analects: Rules of Confucius about his food
|
|
|
|
|
I want to pass PointF as optional Parameter. But I am finding it difficult to assign default value for PointF.
I can't assign Nothing. If I do it becomes (0,0) which can be working value hence can't be used as a unique default value.
I am not able to assign any other value. I tried (Optional P1 As PointF = New PointF(-100, -100) but it does not work.
Public MyFunc(Optional P1 As PointF = ????)
Please help.
|
|
|
|
|
Use a nullable value type:
Nullable Value Types - Visual Basic | Microsoft Docs[^]
Public Function MyFunc(Optional P1 As PointF? = Nothing) Or:
Public Function MyFunc(Optional P1 As Nullable(Of PointF) = Nothing)
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Hello everybody,
Maybe this is not the correct place, but the programs (web service) it is in vb scripts.
First i don not nothing about VBS, but we have an old WS in VB.
This is how its works:
http://..../ws?cmd=country
Then the scripts read the action, and call a method (just a query and return a JSON).
The problem: if we need to pass an specific country: How do we do it in the http and how to read the parameter in the code, because the script only recives: country, cities, etc and return the whole data.
Thanks
|
|
|
|
|
There is no way anyone can answer your question based on the information provided. We have no idea what your code is doing, so how are we supposed to know what parameters it accepts, or how you can pass them?
Talk to the person who wrote the service, or consult the documentation.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|