Help converting small vb6 function to vb.net

[PT Exorcist]

help converting vb6 code to .net code(as i am using c# avoid plz putting specific vb words):

Dim lRec As Long
Dim fn As Integer
fn = FreeFile
MsgBox Len(lRec)
Open Left(Drive, 1) & ":\track01.cda" For Random As #fn Len = Len(lRec)
Get #fn, 7, lRec
GetCD_ID1 = Hex$(lRec)
Close fn

i am really needing this function and i dont seem to understand that vb6 commands...could anyone help me with this?

[Pirate]

Len = Length in all data type . BTW , what does this function mainly do ?

[PT Exorcist]

i think len is self explanatory lol
i want to know get as random , open blablabla
its so small..cant anyone convert it plz?

its to get a cd's id

[Pirate]

I changed this code to write in the C drive , and edit the file , it created the file , but didn't write anything inside . At the end of the day what do you want to achieve ?

Private Sub Command1_Click()
Dim lRec As Long
Dim fn As Integer
fn = FreeFile
MsgBox Len(lRec)
Open Left(Drive, 1) & "c:\track01.txt" For Random As #fn Len = Len(lRec)
Get #fn, 7, lRec
GetCD_ID1 = Hex$(lRec)
MsgBox GetCD_ID1
Close fn
End Sub

[PT Exorcist]

i dont get what you mean
that code doesnt write anything

it READS
lol

[PT Exorcist]

how would i convert this to .net?

Open "d:\track01.cda" For Random As #fn Len = 4
Get #fn, 7, lRec

its the only think i need to know......

[Pirate]

Originally posted by PT Exorcist
i dont get what you mean
that code doesnt write anything

it READS
lol

but it creates a file

[PT Exorcist]

no it doesnt lol

if u have a music cd and use that prog it wont create any kind of file

[Edneeis]

From

Open "d:\track01.cda" For Random As #fn Len = 4
Get #fn, 7, lRec

To

FileOpen(fn, "d:\track01.cda", OpenMode.Random, , , 4)
        FileGet(fn, 7, lRec)

[PT Exorcist]

Originally posted by Edneeis
From

Open "d:\track01.cda" For Random As #fn Len = 4
Get #fn, 7, lRec

To

FileOpen(fn, "d:\track01.cda", OpenMode.Random, , , 4)
        FileGet(fn, 7, lRec)

thanks by converting the code but i dont seem to know FileOpen and FileGet so i think they are in the vb6 compability dll right? could you convert it to real .net functions? (the ones in System.IO because i am using c# and dont want to use the ref to the vb dll)

[Edneeis]

I can't test these but the whole conversion would be somethign like one of these:

Public Function GetCDID(ByVal driveLetter As String) As String
        Dim lRec As Long
        Dim fn As Integer = FreeFile()
        FileOpen(fn, driveLetter.Concat(":\track01.cda"), OpenMode.Random, , , Len(lRec))
        FileGet(fn, 7, lRec)
        Dim result As String = Hex$(lRec)
        FileClose(fn)
        Return result
    End Function
 
'or maybe
 
    Public Function GetCDID(ByVal driveLetter As String) As String
        Dim lRec As Long
        Dim fn As Integer = FreeFile()
        FileOpen(fn, driveLetter.Concat(":\track01.cda"), OpenMode.Random, , , Len(lRec))
        FileGet(fn, 7, lRec)
        FileClose(fn)
        Return Hex$(lRec)
    End Function

[Edneeis]

Originally posted by PT Exorcist
thanks by converting the code but i dont seem to know FileOpen and FileGet so i think they are in the vb6 compability dll right? could you convert it to real .net functions? (the ones in System.IO because i am using c# and dont want to use the ref to the vb dll)

Sorry can't help then, at least not without having something to test it on. Its a matter of getting specific bytes in the file after opening it. There are no straight shot conversions of those functions to .NET functions. You'd just have to open the file as a stream and get the bytes you need.

[PT Exorcist]

hmm tks by the asnwer

then how should i open the file? as text? as binary stream?
at what point of the file does the code start to read? i didnt get that...at the 4th byte(because FileOpen(fn, "d:\track01.cda", OpenMode.Random, , , 4))..and then the 7 means it reads the next 7 chars? is it it?

[Edneeis]

I'm not exactly sure but you should be able to test it on something and find out. The 4 means go to the 4th record which in this case each record is a long or a byte (i think not sure) but I'm not sure about the 7. You are probably right about reading 7 bytes in.

What should it return? Maybe I have a CD in my car.

[Edneeis]

Ok this:

'in vb6
Private Sub Command1_Click()
    MsgBox GetCD_ID("d")
End Sub
 
Public Function GetCD_ID(drive As String) As String
Dim lRec As Long
Dim fn As Integer
fn = FreeFile
MsgBox Len(lRec)
Open Left(drive, 1) & ":\track01.cda" For Random As #fn Len = Len(lRec)
Get #fn, 7, lRec
GetCD_ID = Hex$(lRec)
Close fn
End Function

And this

'in vb.NET
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(GetCDID("d"))
    End Sub
 
    Public Function GetCDID(ByVal driveLetter As String) As String
        Dim lRec As Long = 7
        Dim fn As Integer = FreeFile()
        FileOpen(fn, String.Concat(driveLetter, ":\track01.cda"), OpenMode.Random, OpenAccess.Read, , Len(lRec))
        FileGet(fn, lRec, 4)
        Dim result As String = Hex$(lRec)
        FileClose(fn)
        Return result
    End Function

Both return the samething, which is '3269FCD', whatever that means. Is that what it should do?

[PT Exorcist]

oh much tks by ur hard work..now ill try out to convert that code to IO classes code..tks a lot

[nemaroller]

All .Net version....

Private Function GetCDID(ByVal driveLetter As String) As String
        Dim fs As New IO.FileStream(String.Concat(driveLetter, ":\track01.cda"), IO.FileMode.Open, IO.FileAccess.Read)
        Dim c As Int32
        Dim g As BitConverter
        Dim r(12) As Byte
        fs.Read(r, 0, 12)
        fs.Close()
'following line starts reading at element 6 in byte array, reads
'in 4 bytes
        c = g.ToInt32(r, 6)
        System.Windows.Forms.MessageBox.Show(c.ToString)
        Return GetCDID = converttoHex(c)
    End Function
 
    Private Function converttoHex(ByVal HexValue As Int32) As String
        Dim uiDecimal As UInt32
        Dim hexstring As String
 
        Try
 
            ' Convert text string to unsigned integer
            uiDecimal = Convert.ToUInt32(HexValue)
 
        Catch e As System.OverflowException
 
            ' Show overflow message and return
 
            Return 0
 
        End Try
        ' Format unsigned integer value to hex and show in another textbox
 
        hexstring = uiDecimal.ToString("x")
        Windows.Forms.MessageBox.Show(hexstring)
        Return hexstring
 
    End Function

The C# version I found on the net:

'tbhex was a textbox
uint uiDecimal = 0;

				try
				{
					// Convert text string to unsigned integer
					uiDecimal = checked((uint)System.Convert.ToUInt32(tbDecimal.Text));
				}

				catch (System.OverflowException exception) 
				{
					// Show overflow message and return
					tbHex.Text = "Overflow";
					return;
				}

				// Format unsigned integer value to hex and show in another textbox
				tbHex.Text = String.Format("{0:x2}", uiDecimal);

[Evad]

Its great and all but what happens when a cd does not have a track01.cda file on it???

Most cd's do but some do not.


and Msg to nemaroller... Excellent code, but in your code the return value = false....

remove the word return and assign the value back to the function.

From

Return GetCDID = converttoHex(c)

To

GetCDID = converttoHex(c)

From

Return hexstring

To

converttoHex = hexstring

[PT Exorcist]

its for music cds so it will have it

edit: tks all by the code ill check it like in a hour or two because right now im busy

[PT Exorcist]

hmm sorry to say but actually the code is givin a completly different number than it should be..
with SOAD's toxicity cd the right number is: 1007A9D
and with the .net code im getting: 44430000

:|

[PT Exorcist]

From

Return hexstring

To

converttoHex = hexstring

[/B][/QUOTE]

and why this?
the right way is Return, the function=value its from the old vb6 if i am not in error and i think its not the best way to do it lol

[Evad]

I know that the return is the right way, But with that function it was returning False, so to fix that just return the value to the function solved the problem, I didn't say it was the best method =)

Also the Function returns 44430000 with my Prodigy CD.

Finally NOT all MUSIC CD's have a track01.cda, Put any cd that has Data on it along with music and you will not get a track01.cda.

Do you have Linkin Park's (Meteora) Throw that in and see for yourself.

Thus the function if it worked in the first place would still fail.

[nemaroller]

Well, I tried converting the C# code that supposedly returns HEX best I could...
I didn't know what to look for as the proper result, and I only had one CD near me at the time.

[nemaroller]

Anyway, after looking at the original VB6 code again...

its opens the file for random access. The context of which it uses the get statement Get #fn, 7, lrec...

means to grab 4 bytes at byte position 28 (27 in .Net) in the file...?

[PT Exorcist]

Originally posted by Evad
I know that the return is the right way, But with that function it was returning False, so to fix that just return the value to the function solved the problem, I didn't say it was the best method =)

Also the Function returns 44430000 with my Prodigy CD.

Finally NOT all MUSIC CD's have a track01.cda, Put any cd that has Data on it along with music and you will not get a track01.cda.

Do you have Linkin Park's (Meteora) Throw that in and see for yourself.

Thus the function if it worked in the first place would still fail.

actually i hate linkin park

[Evad]

Prefrence =)...

Hey PT... How did you come along with that Icon Extractor code???

Did it help?

[PT Exorcist]

yeah worked very well!

[Evad]

THEN CLOSE THE THREAD

Glad it helped