Visual Basic

2-May-12 13:43

Hello all,

Whenever I run my program, it gives the error "32-bit processes cannot access the modules of 64-bit processes," since my program is 32-bit and that it reads (basically) every 64-bit processes start-up path, and terminates it or keeps it alive to make sure it's the real program. So how can I build my program in 64-bit.

Simple Thanks and Regards,
Brandon T. H.

Been programming in Visual Basic for 4 years this point forward, and is very good at it (I can even create programs completely on code, without dragging those items from the toolbox). Programming C++ for 1 year so far and the same with C#.

Many of life's failures are people who did not realize how close they were to success when they gave up. - Thomas Edison

modified 3-May-12 8:57am.

Peter_in_27802-May-12 13:59

Peter_in_2780

2-May-12 13:59

Follow the bouncing ball.[^]

Software rusts. Simon Stephenson, ca 1994.

Brandon-X120003-May-12 2:48

3-May-12 2:48

lol, ok

Brandon-X120003-May-12 2:57

3-May-12 2:57

Thanks bro it helped

Peter_in_27803-May-12 12:11

Peter_in_2780

3-May-12 12:11

It's good to combine a joke with being useful! Don't get the chance too often.

Cheers,
Peter

Software rusts. Simon Stephenson, ca 1994.

Brandon-X120004-May-12 9:18

Problem using a fixed length string in a structure used as a parameter to a Win32API call

4-May-12 9:18

Thanks for the advice Smile | :)

dmt19401-May-12 9:29

dmt1940

1-May-12 9:29

Imports System.Runtime.InteropServices
Public Class Form1
Public Const MAXPNAMELEN = 32 ' max product name length (including NULL)
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Structure MIDIINCAPS 'Structure def copied from win32api.txt
Dim wMid As Int16
Dim wPid As Int16
Dim vVersion As Integer
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAXPNAMELEN)> _
Dim szPname As String 'win32api.txt def is String*MAXPNAMELEN
End Structure
Declare Function midiInGetNumDevs Lib "winmm.dll" () As Long
Declare Function midiInGetDevCaps Lib "winmm.dll" Alias "midiInGetDevCapsA" _
(ByVal uDeviceID As Int32, ByVal lpCaps As MIDIINCAPS, ByVal uSize As Int32) As Int32
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim retval As Int32
Dim NumMidiInDevices As Int32
Dim DevCounter As Int32
Dim devicecaps As New MIDIINCAPS
NumMidiInDevices = midiInGetNumDevs()
For DevCounter = 0 To NumMidiInDevices - 1
retval = midiInGetDevCaps(DevCounter, devicecaps, Len(devicecaps)) ' Runtime error msg here
'=======================================================================
'A call to PInvoke function 'MidiInCapTest!MidiInCapTest.Form1::midiInGetDevCaps' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.
'========================================================================
Next DevCounter
End Sub
'============================================================================
'I have tried <VBFixedString(MAXPNAMELEN)> instead of Marshall as, in the sructure plus countless tries at int16, int32 etc for the other parameters in the API call,in a fruitless attempt to outwit the known inconsistencies between winapi32.txt data types & .NET but to no avail.

'Can anyone help

End Class

Re: Problem using a fixed length string in a structure used as a parameter to a Win32API call

Dave Doknjas1-May-12 14:13

Dave Doknjas

1-May-12 14:13

The main thing is that the 2nd parameter should be 'ByRef':

Declare Function midiInGetDevCaps Lib "winmm.dll" Alias "midiInGetDevCapsA" (ByVal uDeviceID As Integer, ByRef lpCaps As MIDIINCAPS, ByVal uSize As Integer) As Integer

Public Structure MIDIINCAPS
    Dim ManufacturerID As Short
    Dim ProductID As Short
    Dim DriverVersion As Integer
    Dim Label As String
    Dim Support As Integer
End Structure

David Anton
Convert between VB, C#, C++, & Java
www.tangiblesoftwaresolutions.com

Re: Problem using a fixed length string in a structure used as a parameter to a Win32API call

dmt19402-May-12 6:52

dmt1940

2-May-12 6:52

You are right, the main thing was to use byref on the 2nd param. I usually copy Api calls directly from win32api.txt but in this case copied it from someone elses downloaded code Frown | :(

Thanks for the assist

Midigeek

Re: Problem using a fixed length string in a structure used as a parameter to a Win32API call

Luc Pattyn1-May-12 14:20

Luc Pattyn

1-May-12 14:20

Hi,

This article[^] of mine should help you out for most issues.

Yes it may take some experimenting; however for optimum progress, you should fix issues in this order:
1. The stack problem should be solved through the CallingConvention attribute.
2. The numeric parameters or fields should pose no problem, just make sure you use the managed/unmanaged types with matching sizes.
3. The fixed-length string field takes a MarshalAs with SizeConst (not sure a symbolic constant is acceptable); I expect ByValTStr is right, the doc says:
Used for in-line, fixed-length character arrays that appear within a structure. The character type used with ByValTStr is determined by the System.Runtime.InteropServices.CharSet argument of the System.Runtime.InteropServices.StructLayoutAttribute applied to the containing structure.

Good luck

Smile | :)

Luc Pattyn [My Articles] Nil Volentibus Arduum

Re: Problem using a fixed length string in a structure used as a parameter to a Win32API call

dmt19402-May-12 7:52

dmt1940

2-May-12 7:52

See my reply to David Anton's ByRef suggestio which was the only change I made. Thanks for the link to your article which also mentions delegates.

Now that Phase one (identify connected MIDI devices) works I shall code the MidiIn phase....watch this space!

Number comparisons in VBScript

vanikanc30-Apr-12 9:56

vanikanc

30-Apr-12 9:56

Hi,

I have two numbers, they are rather large.

So I have
dim A
dim B

A=123456789
B=123456789

I am trying to compare the numbers,

if (A > B) then
code here
else
code here 2
end if

It is not comparing the numbers for some reason and going into the first part of the if statement, which is quite frankly false. I want it to go the second part of the code.

I have tried to cast A and B as cint, that did not work as well.

Any help is appreciated.

Dave Kreskowiak30-Apr-12 13:18

Dave Kreskowiak

30-Apr-12 13:18

Without seeing your actual code, it's pretty much impossible to tell you what's wrong. From your description, it's possible that you might be comparing strings and not the values they represent.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

vanikanc30-Apr-12 14:33

vanikanc

30-Apr-12 14:33

you are right on the dot! But how can I make this code compare as numbers? I tried to cast as number and it did not work. I used cint.

Midnight Ahri30-Apr-12 15:38

Midnight Ahri

30-Apr-12 15:38

have you tried not to use CInt and dim an integer variable?

Dave Kreskowiak30-Apr-12 16:04

Dave Kreskowiak

30-Apr-12 16:04

What did I just say about seeing the relevent code??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

vanikanc1-May-12 2:34

vanikanc

1-May-12 2:34

It look just like what I mentioned in my intial email.

if (A > B) then
code1
else
code2
end if

I have also tried it this way:
if ((cint(A) > cint(B))
code1
else
code2
end if