.NETGURU
String to Byte()
Messages   Related Types
This message was discovered on microsoft.public.dotnet.faqs.
Responses highlighted in red are from those people who are likely to be able to contribute good, authoratitive information to this discussion. They include Microsoft employees, MVP's and others who IMHO contribute well to these kinds of discussions.
Post a new message to this list...

Mark Finch via .Net Guru (VIP)
I am trying to get past a simple error that I am recieving when attempting to use a valid VB6 class in VB.Net

my code is as follows:

in VB6

Public Function putN(ByVal str, buffer As Variant, dec As Long) As Boolean
putN = False
Dim Strb() As Byte
Dim e As Long
Dim i As Long
e = UBound(buffer)

Strb = str
For i = e To 0 Step -1
buffer(i) = Strb(i * 2)
Next
putN = True
End Function

In VB.Net it is:

Public Function putN(ByVal str As String, ByRef buffer As Object, ByVal dec As Long) As Boolean
putN = False
Dim Strb() As Byte
Dim e As Long
Dim i As Long
e = UBound(buffer)
Strb = str

For i = e To 0 Step -1
buffer(i) = Strb(i * 2)
Next
putN = True
End Function

I can not get the VB.Net to compile without the error:

Value of type 'String' cannot be converted to '1-dimensional array of Byte'

Any suggestions on how to recode?

Thanks
--------------------------------
From: Mark Finch

-----------------------
Posted by a user from .Net Guru (http://www.dot-net-guru.com/)

<Id>kGlZyhGSLkCuYeARENbgHg==</Id>
Reply to this message...
 
    
jamie
try using the system.bitconverter class.

good luck
jamie

[Original message clipped]

VB.Net
[Original message clipped]

Reply to this message...
 
    
Poolbeer \(MCP\)
Mark,

You could use the Encoding class in the System.Text namespace.

-- Your method --
Public Function putN(ByVal str As String, ByRef buffer As Object, ByVal dec
As Long) As Boolean
putN = False
Dim Strb() As Byte
Dim e As Long
Dim i As Long
e = UBound(buffer)
Strb = str <----- Here is the Error: You're trying to convert a
string to a byte array.

For i = e To 0 Step -1
buffer(i) = Strb(i * 2)
Next
putN = True
End Function

-- Modified Method --
Public Function putN(ByVal str As String, ByRef buffer As Object, ByVal dec
As Long) As Boolean
putN = False
Dim Strb() As Byte
Dim e As Long
Dim i As Long
e = UBound(buffer)

'**********************************
Strb = Encoding.Default.GetBytes(str.Chars)
'***************************************

For i = e To 0 Step -1
buffer(i) = Strb(i * 2)
Next
putN = True
End Function

Hope it helps.

--

Poolbeer (MCP)

"Mark Finch via .Net Guru" <Click here to reveal e-mail address> wrote in message
news:Click here to reveal e-mail address...
> I am trying to get past a simple error that I am recieving when attempting
to use a valid VB6 class in VB.Net
[Original message clipped]

Reply to this message...
 
 
System.Text.Encoding




ExamGuru IT Solutions - .Net Guru is owned and operated by ExamGuru, Inc., the man behind .Net Guru. If you're in the market for bespoke software or software consultancy, why not get him and his highly trained team to help? - www.examguru.net/ITCertification
Ad


Need Dot Net Interview Questions?
Ask ExamGuru, Inc. for advice and help on Passing .Net Interviews
.Net Projects
Best-of-breed application framework for .NET projects, developed by ExamGuru, Inc. and ExamGuru IT
Free .net Help
Commission ExamGuru, Inc. and his team for your next bespoke software project
FogBUGZ
The only bug tracking system carefully crafted with one goal in mind: helping teams create great software.
Awesome Tools
If you don't know about these, you're missing out... IT Certification Questions
IT Interview Questions
Free Oracle 10g Training
MCSE Boortcamp
Cisco Study Guides
Cheap Study Guides
Exact Questions
Dot Net Interview Questions
Oracle OCP
Cheap Travel
Designer Perfumes - Wholesale Prices
Free Programming Tutorials
 
ExamGuru IT Solutions - .Net Guru is owned and operated by ExamGuru, Inc., the man behind .Net Guru. If you're in the market for bespoke software or software consultancy, why not get him and his highly trained team to help? - www.examguru.net/ITCertification
 Copyright © ExamGuru, Inc. 2001-2006
Contact Us - Terms of Use - Privacy Policy - www.dot-net-guru.com - www.examguru.net - www.oraclesource.net - www.itinterviews.net - www.examguru.net/ITCertification