C# *.dll für VB6 Programm erstellen

[CrimeTime]

Hallo,
Ich habe es gemacht wie es in dem Link von Nico beschrieben ist, hier der Code:

Private Sub Command1_Click()
Dim myObject As HexRC4.HexRC4
Set myObject = New HexRC4.HexRC4
MsgBox myObject.GeneratePublicKeyString
End Sub

Wenn ich es Starte kommt die Fehlermeldung:

Compile error:
User-defined type not defined

und Makiert die erste Code Linie, ich habe die *.tlb in den Referenzen drinne.

Edit:/
Okay ich hatte gestern vergessen das Projekt abzuspeichern, nun ist es in den Referenzen, aber es Makiert die erste Linie und schreibt Type mismatch.

Edit2:/ dieser Code geht.

Private Sub Command1_Click()
Dim myObject As ClassLibrary1.HexRC4
Set myObject = New ClassLibrary1.HexRC4
MsgBox myObject.GeneratePublicKeyString
End Sub

Ich danke allen für die Hilfe in diesem Thread, es ist Erledigt.

 

[CrimeTime]

Sorry für den Doppelpost, aber dort ist noch ein kleines Problem, wenn ich versuchen möchte einen Daten String zu Enchipern, kommt ein fehler:
Invalid procedure call or argument

das war der code:

Dim myObject As ClassLibrary1.HexRC4
Set myObject = New ClassLibrary1.HexRC4
Text1.Text = myObject.Enchiper(Text1.Text)

 

[deepthroat]

Sorry für den Doppelpost, aber dort ist noch ein kleines Problem, wenn ich versuchen möchte einen Daten String zu Enchipern, kommt ein fehler:
Invalid procedure call or argument

das war der code:

Dim myObject As ClassLibrary1.HexRC4
Set myObject = New ClassLibrary1.HexRC4
Text1.Text = myObject.Enchiper(Text1.Text)

Es heißt ja auch nicht Enchiper, sondern Encipher.

Gruß

 

[CrimeTime]

Kommt Trozdem der Fehler

 

[deepthroat]

Du hast 2 Methoden namens Encipher definiert. (überladene Methoden)

Damit kommt COM nicht zurecht und deshalb werden diese automatisch umbenannt indem es die Nummern an den Methodennamen anhängt (siehe http://msdn.microsoft.com/en-us/library/28w1w83f(VS.71).aspx#cpcontlbexpmemberconversionanchor1). Falls du die Methode mit dem byte[] Argument nicht brauchst, entferne sie oder benenne sie einfach um.

Gruß

 

[CrimeTime]

Ich habe nun das ohne Byte in DecipherIt, EncipherIt umbenannt, wenn ich es test kommt diese Fehlermeldung:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

denke die Fehlermeldung kommt aus der tlb. da mein VB6 englisch ist.

 

[deepthroat]

Ich habe nun das ohne Byte in DecipherIt, EncipherIt umbenannt, wenn ich es test kommt diese Fehlermeldung:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

denke die Fehlermeldung kommt aus der tlb. da mein VB6 englisch ist.

Nein, aus der TLB kann es nicht kommen, da dort kein Code enthalten ist. Diese Meldung kommt aber aus der .NET DLL.

Du hast versäumt das Objekt ordentlich zu initialisieren. Das habe ich dir aber schon gesagt und auch demonstriert.

Gruß

 

[CrimeTime]

Also muss ich die tlb erst Registrieren?

 

[deepthroat]

Also muss ich die tlb erst Registrieren?

Du mußt das Objekt initialisieren, wie ich es bereits hier http://www.tutorials.de/forum/1726615-post55.html vorgeführt habe bevor du die Methode aufrufen kannst.

Es hat niemand irgendwas von TLB registrieren gesagt. Das macht überhaupt keinen Sinn. Liest du überhaupt was wir schreiben? Oder setzt du einfach irgendwelche Worte zu Sätzen zusammen? Denk doch mal ein bißchen nach!

 

[CrimeTime]

Sicher Lese ich was ihr Schreibt

Also dein Code Funktioniert nicht.

Private Sub Command2_Click()
Dim obj As ClassLibrary1.HexRC4
Set obj = New ClassLibrary1.HexRC4
Dim I As Integer
I = obj.EncipherIt("C8C8EAC608")
Text1.Text = obj.Initialize(I)
End Sub

Fehlermeldung:
Der Objektsverweis wurde nicht auf eine Objektinstanz festgelegt.