Übersetzen von VB6 zu .NET Code - Benutzung von Funktionen

kafffee · 12. Dezember 2020, 17:01

Hi,

ich versuche gerade einen offensichtlich in VB6 geschriebenen Code in .NET umzuschreiben. Dabei stosse ich auf folgendes Problem. Mein Editor scheint folgende Codezeile nicht zu akzeptieren und unterstreicht diese rot. Dabei ist das wie im Lehrbuch (oder ich übersehe da etwas):

VB.NET-Quellcode

Public Function MP3_ID3v2Exists(ByVal sFile As String) As Long

Auch wenn ich das ByVal weglasse meckert er...

Ausserdem folgende Zeile in der Funktion:

Visual Basic-Quellcode

MP3_ID3v2Exists = 0
Exit Function

wird zwar akzeptiert aber das sollte doch eigentlich so sein:

VB.NET-Quellcode

Return 0

Oder wird sonst die Funktion nicht beendet?

RodFromGermany · 12. Dezember 2020, 17:10

kafffee schrieb:

Auch wenn ich das ByVal weglasse meckert er...

Die Alternative wäre ByRef, hier aber falsch.
Dies wäre völlig korrekt:

VB.NET-Quellcode

Public Function MP3_ID3v2Exists(sFile As String) As Long
' ...
Return 0
End Function

MP3_ID3v2Exists = 0 ist alte VB6-Syntax, da wurde dem Prozedur-Namen der Returnwert zugewiesen.
Zu überprüfen wäre, ob der Typ der Funktion auf Integer geändert werden kann.

Eierlein · 12. Dezember 2020, 17:18

VB6 Long ---> VB.net Integer
VB6 Integer ---> Vb.net Short

kafffee · 12. Dezember 2020, 17:18

Schon wieder so was unerklärliches...

RodFromGermany schrieb:

Zu überprüfen wäre, ob der Typ der Funktion auf Integer geändert werden kann.

Ja das hab ich mir auch schon gedacht. Zurückgegeben wird der Wert 0 bei einem Fehler oder wenn die *.mp3-Datei kein ID3v2-Tag besitzt.

Andernfalls die Länge des ID3v2-Tags...

Wäre mal auszuprobieren aber das sollte doch eigentlich ein Integer sein...

RodFromGermany · 12. Dezember 2020, 17:39

kafffee schrieb:

Andernfalls die Länge des ID3v2-Tags...

Wenn ich hier reinsehe:
de.wikipedia.org/wiki/ID3-Tag
genügt ein Integer.
Die Aussage

VB6 Long ---> VB.net Integer
VB6 Integer ---> Vb.net Short

allein ist da doch etwas zu pauschal.
Bei der Übertragung der Deklaration von API-Funktionen hingegen essentiell.

kafffee · 12. Dezember 2020, 17:49

Weiter im (Quell)Text...

hab jetzt den auskommentierten Text umgeschrieben, oder versucht umzuschreiben:

VB.NET-Quellcode

'Größe des ID3v2-Tags ermitteln
'F = FreeFile()
'Open sFile For Binary As #F
'Get #F, 7, b(4)
'Get #F, 8, b(3)
'Get #F, 9, b(2)
'Get #F, 10, b(1)
Dim length = 1
Dim bnr() As Byte = New Byte(length - 1) {}
Using fs = New System.IO.FileStream(sFile, IO.FileMode.Open)
fs.Read(bnr(1), 7, length)
fs.Read(bnr(2), 8, length)
fs.Read(bnr(3), 9, length)
fs.Read(bnr(4), 10, length)
End Using

Aber es kommt wieder zu rot unterstrichenem bnr(1) bis bnr(4) in den Zeilen 12-15

Edit: Oder so, aber dann kommt der Fehler "Offset and length were out of bounds for the array or count is greater than the number of elements from index to the end of the source collection":

VB.NET-Quellcode

Dim length = 4
Dim bnr() As Byte = New Byte(length - 1) {}
Using fs = New System.IO.FileStream("test.mp3", IO.FileMode.Open)
fs.Read(bnr, 7, length)
End Using

ErfinderDesRades · 12. Dezember 2020, 18:05

naja, schau in der Dokumentation von FileStream.Read() nach, was die Methode tut, und v.a., welche Argumente sie erwartet - und was sie zurückgibt (Es ist ja eine Function).
Gib ihr die richtigen Argumente, und die roten Kringel gehen weg.
MIt "richtig" ist vor allem der richtige Datetyp der Argumente gemeint.

RodFromGermany · 12. Dezember 2020, 18:29

@kafffee Wenn das dieses Tag sein soll, kannstz Du auch gleich ein Integer auslesen, vorausgesetzt, die ByteOrder ist korrekt.
Vielleicht postest Du zumindest die komplette Prozedur, das wird besser, schneller und richtiger als häppchenweise ein paar Code-Zeilen.

kafffee · 12. Dezember 2020, 18:37

Hier ist der Code. Die "alten" Zeilen hab ich auskommentiert:

VB.NET-Quellcode

Public Function MP3_ID3v2Exists(sFile As String) As Integer
Dim sText As String
Dim sBin As String
Dim sID3 As String * 3 'ACHTUNG EDIT: Was das zu bedeuten hat wüsste ich auch gerne. Ich hab das zuerst für einen Tippfehler gehalten und das [tt]* 3[/tt] einfach rausgelöscht...
Dim i As Integer
Dim z As Integer
'Dim bnr(4) As Byte
Dim F As Integer
Dim nID3v2Size As Integer
' Datei öffnen
On Error GoTo ErrHandler
'F = FreeFile()
'Open sFile For Binary As #F
'Get #F, 1, sID3
Dim by() As Byte = New Byte(2) {}
Using fs = New System.IO.FileStream(sFile, IO.FileMode.Open)
fs.Read(by, 0, 3)
End Using
sID3 = System.Text.Encoding.Default.GetString(by)
If sID3 <> "ID3" Then
Return 0
End If
'Größe des ID3v2-Tags ermitteln
'F = FreeFile()
'Open sFile For Binary As #F
'Get #F, 7, b(4)
'Get #F, 8, b(3)
'Get #F, 9, b(2)
'Get #F, 10, b(1)
Dim length = 4
Dim bnr() As Byte = New Byte(length - 1) {}
Using fs = New System.IO.FileStream(sFile, IO.FileMode.Open)
fs.Read(bnr, 7, length)
End Using
sBin = ""
For z = 2 To 4
For i = 0 To 6
sBin = sBin & CStr(Math.Abs(b(z) And (2 ^ i)))
Next i
Next z
nID3v2Size = 0
For i = 7 To 27
nID3v2Size = nID3v2Size + ((2 ^ i) *
Val(Mid(sBin, i - 6, 1)))
Next i
nID3v2Size = nID3v2Size + b(1) + 10
Return nID3v2Size
' Close #F
Exit Function
ErrHandler:
' If F > 0 Then Close #F
Return 0
End Function

RodFromGermany · 12. Dezember 2020, 19:23

@kafffee Probier mal

VB.NET-Quellcode

Public Function MP3_ID3v2Exists(sFile As String) As Integer
Dim by() As Byte = New Byte(2) {}
Using fs = New System.IO.FileStream(sFile, IO.FileMode.Open)
fs.Read(by, 0, 3)
End Using
Dim sID3 = System.Text.Encoding.Default.GetString(by)
If sID3 <> "ID3" Then
Return 0
End If
'Größe des ID3v2-Tags ermitteln
Dim length = 4
Dim bnr() As Byte = New Byte(length - 1) {}
Using fs = New System.IO.FileStream(sFile, IO.FileMode.Open)
fs.Read(bnr, 0, length)
End Using
Return BitConverter.ToInt32(bnr, 0) ' + 10 ' ???
End Function

In Zeile 17 das + 10 sieht merkwürdig aus, kommt aber da vor.
Probiere es einfach mal aus.
Ansonsten kann noch die Reihenfolge im Byte-Array geändert werden (von hinten nach vorn).

kafffee · 12. Dezember 2020, 20:01

Ja er spuckt mir eine Zahl aus. Ob das die richtige ist weiss ich nicht keine Ahnung wie gross das ID3-Tag ist.

Das müsste man mit dieser Funktion testen. Wär gut wenn du da mal dein Glück versuchst ich seh da den Wald vor lauter Bäumen nicht..

VB.NET-Quellcode

' ID3v2-Infos auslesen
Public Function MP3_ReadID3v2Tag(ByVal sFile As String, ByVal nID3v2Size As Long) As ID3v2
Dim nPos As Long
Dim sFrameType As String * 4 'was das hier macht wüsste ich auch nur zu gerne
Dim sText As String
Dim sBin As String
Dim sID3 As String * 3 'und das
Dim i As Integer
Dim z As Integer
Dim b(4) As Byte
Dim F As Integer
Dim nSize As Long
On Error GoTo ErrHandler
' Datei öffnen
F = FreeFile()
Open sFile For Binary As #F
' Start-Position
nPos = 11
' Liest den Framtyp so lange aus bis es nichts
' mehr zum lesen gibt
Do While nPos < nID3v2Size
' der eingelesene Framtyp
Get #F, nPos, sFrameType
If InStr(sFrameType, Chr$(0)) > 0 Then
' Fertig nichts mehr zum lesen
Close #F
Exit Do
End If
nPos = nPos + 4
Get #F, nPos, b(4) ' FrameTyp Größe
Get #F, nPos + 1, b(3) ' FrameTyp Größe
Get #F, nPos + 2, b(2) ' FrameTyp Größe
Get #F, nPos + 3, b(1) ' FrameTyp Größe
nPos = nPos + 5
sBin = ""
For z = 2 To 4
For i = 0 To 7 Step 1
sBin = sBin & CStr(Math.Abs(b(z) And (2 ^ i)))
Next i
Next z
' Framtyp-Größe ausrechnen
nSize = 0
For i = 8 To 30
nSize = nSize + ((2 ^ i) * Val(Mid$(sBin, i - 7, 1)))
Next i
nSize = nSize + b(1)
' ID3v2-Info
sText = String$(nSize, vbNullChar) 'und zu dem hab ich bei Google keinen .NET-Ersatz gefunden, vielleicht einfach CStr()??
nPos = nPos + 1
Get #F, nPos, sText
sText = TrimNullChar(sText)
With MP3_ReadID3v2Tag
Select Case sFrameType
Case "TMED"
.sMedium = sText
'[...] usw.
End Select
nPos = nPos + nSize
End With
Loop
ErrHandler:
Close #F
End Function

VaporiZed · 12. Dezember 2020, 20:12

Boah, nee. Keine On Error-Geschichten mehr in VB.NET! Arbeite (richtig) mit Try-Catch. Aber: Fange nur Exceptions ab, die Du kennst und sinnvoll bearbeiten kannst.

kafffee · 12. Dezember 2020, 20:16

@VaporiZed

Ja hatte ich eh vor aber danke.

Das Beste zum Schluss...

@RodFromGermany
Was mich bei deinem Code in Post 10 etwas verwirrt ist dass du die Bytes scheinbar ab Position 0 einliest. Es müssten doch die Bytes 7, 8 ,9, 10 sein sehe ich das richtig? Bloss wenn ich fs.Read(bnr, 7, length) mache, kommt dieser Fehler "Offset and length were out of bounds for the array or count is greater than the number of elements from index to the end of the source collection":"

Sonst liest der computer doch die falschen Bytes aus, der weiss ja nicht dass wir die Länge des Tags aus der Datei lesen wollen...

Oder bin ich da auf dem falschen Dampfer?

ErfinderDesRades · 12. Dezember 2020, 22:05

kafffee schrieb:

Oder bin ich da auf dem falschen Dampfer?

Das sagte ich im Grunde bereits in post#7.
Ich bin auch höchst unsicher, ob RFGs Code zielführend ist.
Schon dass da in derselben Methode die Datei zweimal geöffnet, gelesen geschlossen wird ist mir höchst verdächtig. Und scheints auch nur am Anfang der Datei. Dabei dachte ich, die Id3v2Tags seien am Ende der Datei zu finden. Und es bringt ja auch nicht viel zu erfahren, ob eine Datei getaggt ist - sondern, wenn man sie schon aufmacht und liest, dann sollte man die Daten doch auch gleich auslesen - dass sie nicht noch ein drittes Mal geöffnet werden muss für was eigentlich ein Fliegenschiss sein sollte.
Imo muss eine .Net-Klasse her, die eine Id4vDingens-getaggte Datei repräsentiert.
Beim Erstellen eines Objekts davon wird der Dateiname angegeben, und dann liest das Ding eben die "Tag-Zone" aus und weiss bescheid.
Wie gesagt: solche Tag-Wrapper-Klassen sollten sich eigentlich im INet finden lassen - imo seid ihr voll dabei das Rad neu zu erfinden.

kafffee · 12. Dezember 2020, 23:19

Hab mich mal umgeschaut und tatsächlich was gefunden:

(1) mp3class --> kann man eine *.exe runterladen aber da meckert mein Virenscanner
(2) id3.NET (zu finden auf sourceforge.net) --> ist ein *.zip mit mehreren *.dll und *.pdb-Dateien drin, aber keine Ahnung wie ich das installieren soll bzw. dann in mein Projekt einfügen...

Meine Vermutung:
Alles nach C:\Windows\System kopieren.
Mit regsvr32 C:\Windows\System32\Test.dll registrieren
Verweis in VS2019 hinzufügen

Oder gibts das auch automatisiert in VS? Mir ist das ein wenig heikel..

Da steht auch es ist geeignet für .NET Framework, ich kann es also mit VB.NET benutzen??

Wenn ihr wollt kann ich das ZIP-File mal anhängen..

ErfinderDesRades · 12. Dezember 2020, 23:21

guck auch mal auf Codeproject - da sind auch die Sources veröffentlicht.
Meist c# - aber im gegensatz zu vb6 kann man das nach vb.net übersetzen.

kafffee · 13. Dezember 2020, 00:41

Was haltet ihr davon? Hab mich mal bissle ins Zeug gelegt. Das sieht schon besser aus oder?:

VB.NET-Quellcode

Dim baits As Byte() = My.Computer.FileSystem.ReadAllBytes("test.mp3")
sID3 = System.Text.Encoding.Default.GetString(baits, 0, 3)
If sID3 <> "ID3" Then
Return 0
End If
'Größe des ID3v2-Tags ermitteln
'F = FreeFile()
'Open sFile For Binary As #F
'Get #F, 7, b(4)
'Get #F, 8, b(3)
'Get #F, 9, b(2)
'Get #F, 10, b(1)
Dim bnr() As Byte
bnr(1) = baits(10)
bnr(2) = baits(9)
bnr(3) = baits(8)
bnr(4) = baits(7)
Return BitConverter.ToInt32(bnr, 1) + 10 'hier bin ich mir unsicher ob Index 0 oder 1 und ob das "BitConverter.ToInt32" notwendig ist bzw. was es macht (irgendein Typ umwandeln oder?

@ErfinderDesRades

Ja hab tatsächlich was gefunden. Aber nur für WMA-Files. Aber das werd ich in mein Projekt integrieren, kann nicht schaden,,,

Für ID3v2 Tags hab ich auch was gefunden aber das ist in C#. Und alles was mit C zu tun hat ist für mich bissle ein rotes Tuch

Jetzt muss ich erstmal klarkommen mit VB. Daher wäre es nicht schlecht wenn wir das was wir ursprünglich erarbeitet haben in diesem Thread auch fertigstellen könnten. Jetzt haben wir auch so viel Arbeit da schon reingesteckt. Wäre schade um die Zeit, obwohl ich einiges gelernt hab...

ID3v1 wäre kein Problem da hab ich schon was gefunden, aber meine Musiksammlung ist vorwiegend mit ID3v2 ausgestattet. Aber du hast Recht. Die v1-Tags sind am Dateianfang angebracht, die v2-Tags am Ende wenn ich das so richtig gelesen hab...

Einfach so eine fertige DLL zu benutzen find ich bissle heikel...

kafffee · 13. Dezember 2020, 02:45

Und analog dazu:

VB.NET-Quellcode

'ID3v2-Infos auslesen
Public Function MP3_ReadID3v2Tag(ByVal sFile As String, ByVal nID3v2Size As Long) As ID3v2
Dim nPos As Long
Dim sFrameType As String * 4 'hier brauche ich noch etwas Hilfe
Dim sText As String
Dim sBin As String
Dim sID3 As String * 3 'und hier
Dim i As Integer
Dim z As Integer
Dim b(4) As Byte
Dim F As Integer
Dim nSize As Long
On Error GoTo ErrHandler 'das machen wir zum Schluss :-)
' Datei öffnen
'F = FreeFile()
'Open sFile For Binary As #F
Dim baits As Byte() = My.Computer.FileSystem.ReadAllBytes("test.mp3")
' Start-Position
nPos = 11
' Liest den Framtyp so lange aus bis es nichts
' mehr zum lesen gibt
Do While nPos < nID3v2Size
' der eingelesene Framtyp
'Get #F, nPos, sFrameType
baits(nPos) = sFrameType
If InStr(sFrameType, Chr$(0)) > 0 Then 'hier brauche ich auch noch bissle Hilfe
' Fertig nichts mehr zum lesen
'Close #F
Exit Do
'End If
nPos = nPos + 4
'Get #F, nPos, b(4) ' FrameTyp Größe
'Get #F, nPos + 1, b(3) ' FrameTyp Größe
'Get #F, nPos + 2, b(2) ' FrameTyp Größe
'Get #F, nPos + 3, b(1) ' FrameTyp Größe
'nPos = nPos + 5
b(4) = baits(nPos)
b(3) = baits(nPos + 1)
b(2) = baits(nPos + 2)
b(1) = baits(nPos + 3)
nPos = nPos + 5
sBin = ""
For z = 2 To 4
For i = 0 To 7 Step 1
sBin = sBin & CStr(Math.Abs(b(z) And (2 ^ i)))
Next i
Next z
' Framtyp-Größe ausrechnen
nSize = 0
For i = 8 To 30
nSize = nSize + ((2 ^ i) * Val(Mid$(sBin, i - 7, 1))) 'und hier natürlich
Next i
nSize = nSize + b(1)
' ID3v2-Info
sText = String$(nSize, vbNullChar) 'und hier auch
nPos = nPos + 1
'Get #F, nPos, sText
sText = baits(nPos)
sText = TrimNullChar(sText)
With MP3_ReadID3v2Tag
' Select Case sFrameType
Case "TMED"
.sMedium = sText
Case "TLEN"
.sLen = sText
[...]
End Function

RodFromGermany · 13. Dezember 2020, 06:48

kafffee schrieb:

Es müssten doch die Bytes 7, 8 ,9, 10 sein sehe ich das richtig?

Das sind die so genannten Magic Bytes.
Wenn ich mir eine MP3 ansehe, stehen die an Position 0, mein Code ist also richtig:

====
Die Exception, die Du meinst, ist Ursache eines falsch verstandenen Parameters, der gibt den Offset im Byte-Array an, wo hingeschrieben werden soll:
docs.microsoft.com/de-de/dotne…estream.read?view=net-5.0
Wenn Du das 7. Byte lesen willst, musst Du den Lese-Zeiger auf Position 7 des Streams platzieren, das geht mit FileStream.Seek()
docs.microsoft.com/de-de/dotne…estream.seek?view=net-5.0
und das müsste dann für die Position des Tags getan werden:

VB.NET-Quellcode

fs.Seek(DEINE_POSITION, IO.SeekOrigin.Begin)

maniactools.de/soft/mp3tag-pro…ags-versionen-von-id3.htm

kafffee · 13. Dezember 2020, 11:43

Also wie kommst du denn auf diese "Magic Bytes"? Im Internet steht ja viel wenn der Tag lang ist. Die ersten drei Bytes waren doch schon für den String "ID3" reserviert. Siehe Post #17 Zeile 2-4. Und auf deinem Bild in Post #19 sieht man das doch auch ganz oben rechts? Also kann das ja gar nicht bei Null anfangen oder?

Guck mal hier da ist das Format sehr ausführlich beschrieben:

mutagen-specs.readthedocs.io/e…/id3v2.4.0-structure.html

Da steht u.a. für den Header:

The first part of the ID3v2 tag is the 10 byte tag header, laid out as follows:

ID3v2/file identifier: "ID3"
ID3v2 version: $04 00
ID3v2 flags: %abcd0000
ID3v2 size: 4 * %0xxxxxxx

Ich würde es ja einfach ausprobieren, aber das Programm läuft noch nicht, wegen den Zeilen, die ich in Post #18 auskommentiert hab. Es ist wirklich schwer da was drüber zufinden, da, trotz dem dass ich VB6.0 in die Suchmaschine eingebe, natürlich meistens auch VB.Net-Treffer angezeigt werden. Es geht um die veralteten Stringmethoden und -deklarationen. Z.B. das fixed String, das in Zeile 5 und 8 deklariert ist. Da hab ich Folgendes gefunden, aber da müsste ich den Visual Basic Namespace wieder aktivieren (und <VBFixedString(3)>Dim sID3 As String verwenden)und das bekomme ich nicht hin. Wenn ich im Projektmappen-Explorer auf My Project klicke öffnet sich nur das Fenster, das du im angehängten Screenshot siehst. Oder gibts da eine entsprechende Deklaration in VB.Net?

Übersetzen von VB6 zu .NET Code - Benutzung von Funktionen

Übersetzen von VB6 zu .NET Code - Benutzung von Funktionen

VB.NET-Quellcode

Visual Basic-Quellcode

VB.NET-Quellcode

kafffee schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

kafffee schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

kafffee schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

kafffee schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben