Convert Vb6 to C#

[Peter]

Does anyone know how to convert the following VB6 code to C# code?

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As
Any, Source As Any, ByVal bytes As Long)

Dim sngArray(0) As Single
strString = Chr$(107) & Chr$(62) & Chr(139) & Chr$(65)
CopyMemory sngArray(0), ByVal strString, Len(strString)

After running the code sngArray(0) = 17.40548
Thank You
Peter

[Ji Zhou [MSFT]]

Hello Peter,

Thanks for using Microsoft Newsgroup Support Service, my name is Ji Zhou
[MSFT] and I will be working on this issue with you.

Firstly, I want to confirm that I understand your question correctly. We
are trying to get a System.Single type value by combining four unsigned
char's bit value. If my understanding is incorrect, please feel free to let
me know.

I have found two solutions for this objective in C#:

1.Use the Windows API RtlMoveMemory as you did in VB6. But in this
approach, we need to put our codes in unsafe block to use the pointer. My
codes look like:

class Program
{
[DllImport("Kernel32.dll", EntryPoint = "RtlMoveMemory", SetLastError =
false)]
unsafe static extern void CopyMemory(void* dest, void* src, int size);

static void Main(string[] args)
{
unsafe
{
byte[] byteArray = new byte[] { 107, 62, 139, 65 };
float singleValue = 0f;
float* des = &singleValue;
fixed (byte* src = byteArray)
{
CopyMemory(des, src, 4);
}
Console.WriteLine(singleValue.ToString());
}
}
}

2.Actually, it is not necessary to move memory in this case. Thus a better
way is using the BitConverter class in .NET Framework to convert a byte
array to a single type value. Codes are as follows:

class Program
{
static void Main(string[] args)
{
byte[] s = new byte[] { 107, 62, 139, 65 };
Single test = BitConverter.ToSingle(s, 0);
Console.WriteLine(test.ToString());
}
}

The above two code snippets both give me the value 17.40548. I hope this
will help. Please let me know if you have any future questions or concerns.
I will do my best to help on this.
Best regards,
Ji Zhou (v-****@online.microsoft.com, remove 'online.')
Microsoft Online Community Support

Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
ms****@microsoft.com.

==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/en-us/subs...#notifications.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://support.microsoft.com/select/...tance&ln=en-us.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

Best regards,
Ji Zhou

[Peter]

""Ji Zhou [MSFT]"" <v-****@online.microsoft.comwrote in message
news:%2******************@TK2MSFTNGHUB02.phx.gbl.. .

Hello Peter,

Thanks for using Microsoft Newsgroup Support Service, my name is Ji Zhou
[MSFT] and I will be working on this issue with you.

Firstly, I want to confirm that I understand your question correctly. We
are trying to get a System.Single type value by combining four unsigned
char's bit value. If my understanding is incorrect, please feel free to
let
me know.

I have found two solutions for this objective in C#:

1.Use the Windows API RtlMoveMemory as you did in VB6. But in this
approach, we need to put our codes in unsafe block to use the pointer. My
codes look like:

class Program
{
[DllImport("Kernel32.dll", EntryPoint = "RtlMoveMemory", SetLastError =
false)]
unsafe static extern void CopyMemory(void* dest, void* src, int size);

static void Main(string[] args)
{
unsafe
{
byte[] byteArray = new byte[] { 107, 62, 139, 65 };
float singleValue = 0f;
float* des = &singleValue;
fixed (byte* src = byteArray)
{
CopyMemory(des, src, 4);
}
Console.WriteLine(singleValue.ToString());
}
}
}

2.Actually, it is not necessary to move memory in this case. Thus a better
way is using the BitConverter class in .NET Framework to convert a byte
array to a single type value. Codes are as follows:

class Program
{
static void Main(string[] args)
{
byte[] s = new byte[] { 107, 62, 139, 65 };
Single test = BitConverter.ToSingle(s, 0);
Console.WriteLine(test.ToString());
}
}

The above two code snippets both give me the value 17.40548. I hope this
will help. Please let me know if you have any future questions or
concerns.
I will do my best to help on this.
Best regards,
Ji Zhou (v-****@online.microsoft.com, remove 'online.')
Microsoft Online Community Support

Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
ms****@microsoft.com.

==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/en-us/subs...#notifications.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://support.microsoft.com/select/...tance&ln=en-us.
==================================================
This posting is provided "AS IS" with no warranties, and confers no
rights.

Best regards,
Ji Zhou

How come the following does not return the same value as yours and how can I
make it return the same value?

class Program
{
static void Main(string[] args)
{
//byte[] b = new byte[] { 107, 62, 139, 65 };

string s = new string((char)107, 1);
s += new string((char)62, 1);
s += new string((char)139, 1);
s += new string((char)65, 1);

System.Text.ASCIIEncoding ascii = new System.Text.ASCIIEncoding();
byte[] b = ascii.GetBytes(s);
Single test = BitConverter.ToSingle(b, 0);
Console.WriteLine(test.ToString());
}
}

[Peter Duniho]

On Thu, 18 Sep 2008 22:22:03 -0700, Peter <cz****@nospam.nospamwrote:

[...]
When I read the string from the Access database in VB6.0 I get the
following
ASCII values
(the string is 1024 bytes long, but each four bytes is a float so for
simplicity sake let's pretend there are only 4 bytes)
107,62,139,65

Note: 139 isn't a valid ASCII value. ASCII only goes up to 127. VB6.0 is
supporting an ANSI code page that goes up to 255.

but if I read the same data using C# and run the following code,

char[] cs = s.ToCharArray();

the cs contains the following { 107, 62, 8249, 65 } // this is what
displays
when I hover the mouse pointer over the cs variable in debug mode.

Because in C#, a char is a 16-bit Unicode value, not the ANSI code page.
The 139 has to be converted to a valid Unicode value, and so it is.

As Jon's pointed out, _maybe_ you can get away with then converting this
Unicode values back to the relevant ANSI encoding and get the bytes that
way. But you would certainly (as he suggests) want to run a test pattern
through that includes all 256 bytes values from 0 to 255, and make sure
that they make it through unscathed.

Pete

[Peter]

"Peter Duniho" <Np*********@nnowslpianmk.comwrote in message
news:op***************@petes-computer.local...

On Thu, 18 Sep 2008 22:22:03 -0700, Peter <cz****@nospam.nospamwrote:

>[...]
When I read the string from the Access database in VB6.0 I get the
following
ASCII values
(the string is 1024 bytes long, but each four bytes is a float so for
simplicity sake let's pretend there are only 4 bytes)
107,62,139,65

Note: 139 isn't a valid ASCII value. ASCII only goes up to 127. VB6.0 is
supporting an ANSI code page that goes up to 255.

>but if I read the same data using C# and run the following code,

char[] cs = s.ToCharArray();

the cs contains the following { 107, 62, 8249, 65 } // this is what
displays
when I hover the mouse pointer over the cs variable in debug mode.

Because in C#, a char is a 16-bit Unicode value, not the ANSI code page.
The 139 has to be converted to a valid Unicode value, and so it is.

As Jon's pointed out, _maybe_ you can get away with then converting this
Unicode values back to the relevant ANSI encoding and get the bytes that
way. But you would certainly (as he suggests) want to run a test pattern
through that includes all 256 bytes values from 0 to 255, and make sure
that they make it through unscathed.

Pete

Thank you

Encoding.GetEncoding(1252) did the trick, now I can convert the memo field
in Access to varbinary(MAX) field in MS SQL.