Rnbfra Multi-Thread und Netzwerkfähig mit GUI im www, jetzt

Vier Dinge:

Eins:
Ich habe mal Test weise eine Dll aus dem Internet eingebunden, das ging ohne Aufhebens.
Ich musste noch nicht mal einen Verweis hinzufügen.

Zwei:
Ich weis nicht wo Du den Pfad hinschreibst:
Zitat:
declare Tralala LIB "C:\da\und\dort\rnregist.dll" etc.
Also in dem Projekt existiert das nicht.

Drei:
Irgendwas ist bei Dir anders als bei anderen Menschen.

Vier:
Ich habe das an zwei verschiedenen Rechnern ausprobiert immer mit dem gleichen Ergebnis.
Habe das einem Anderen gegeben der hat das bei sich gemacht , mit dem selben Ergebnis.
Es steht also 3 zu eins für mich.

Netter Gruß

Das ist Form1.vb

Code:

---

Imports System.Runtime.InteropServices

Public Class Form1
    Dim heute As Date
    Dim yy As Int16
    Dim mm As Int16
    Dim dd As Int16
    Dim DllVal As Integer

    Dim Selected As Integer
    Dim NodSel As System.Windows.Forms.TreeNode

    Dim RegTop As Integer
    Dim RegistryName As String


    Declare Function RnRegistInit Lib "rnregist.dll" () As Integer
    Declare Function RnRegistRead Lib "rnregist.dll" (ByVal top As Integer, ByVal filename As String) As Integer
    Declare Function RnRegistFlush Lib "rnregist.dll" (ByVal top As Integer, ByVal filename As String) As Integer

    Declare Function RnRegistNextDir Lib "rnregist.dll" (ByVal Hd As Integer, ByVal pre As Integer, ByVal dir As String) As Integer
    Declare Function RnRegistFindDir Lib "rnregist.dll" (ByVal Hd As Integer, ByVal dir As String) As Integer
    Declare Function RnRegistCifDir Lib "rnregist.dll" (ByVal Hd As Integer, ByVal dir As String) As Integer

    Declare Function RnRegistNextPar Lib "rnregist.dll" (ByVal Hd As Integer, ByVal pre As Integer, ByVal dir As String) As Integer
    Declare Function RnRegistFindPar Lib "rnregist.dll" (ByVal Hd As Integer, ByVal dir As String) As Integer
    Declare Function RnRegistFindParDef Lib "rnregist.dll" (ByVal Hd As Integer, ByVal dir As String) As Integer
    Declare Function RnRegistCifPar Lib "rnregist.dll" (ByVal Hd As Integer, ByVal dir As String) As Integer
    Declare Function RnRegistNextVal Lib "rnregist.dll" (ByVal Hd As Integer, ByVal pre As Integer, ByVal dir As String) As Integer
    Declare Function RnRegistCifParVal Lib "rnregist.dll" (ByVal Hd As Integer, ByVal dir As String, ByVal val As String) As Integer
    Declare Function RnRegistCifParValSet Lib "rnregist.dll" (ByVal Hd As Integer, ByVal dir As String, ByVal val As String) As Integer
    Declare Function RnRegistDrop Lib "rnregist.dll" (ByVal Hd As Integer)
    Declare Function RnRegistName Lib "rnregist.dll" (ByVal Hd As Integer, ByVal name As String) As Integer
    Declare Function RnRegistNameSet Lib "rnregist.dll" (ByVal Hd As Integer, ByVal name As String) As Integer
    Declare Function RnRegistRef Lib "rnregist.dll" (ByVal Hd As Integer) As Integer
    Declare Function RnRegistRefSet Lib "rnregist.dll" (ByVal Hd As Integer, ByVal ref As Integer) As Integer


    Public Sub New()

        InitializeComponent()
        Selected = 0

    End Sub
    Private Sub Tree_build_node(ByVal head As Integer, ByVal TreeHdr As System.Windows.Forms.TreeNode)
        Dim pdir As Integer
        Dim ppar As Integer
        Dim pval As Integer
        Dim DirName As String
        Dim ParName As String
        Dim ValName As String

        Dim NodSub As System.Windows.Forms.TreeNode
        Dim NodVal As System.Windows.Forms.TreeNode

        DirName = New String(" ", 64)
        ParName = New String(" ", 64)
        ValName = New String(" ", 64)

        pdir = RnRegistNextDir(head, 0, DirName)        ' get first param
        While pdir <> 0                                ' while params
            NodSub = New System.Windows.Forms.TreeNode
            NodSub.Text = DirName
            NodSub.Tag = pdir
            TreeHdr.Nodes.Add(NodSub)                    ' create treeview
            Tree_build_node(pdir, NodSub)
            pdir = RnRegistNextDir(head, pdir, DirName)        ' get first param
        End While
        ppar = RnRegistNextPar(head, 0, ParName)        ' get first param
        While ppar <> 0                                  ' while params
            NodSub = New System.Windows.Forms.TreeNode
            NodSub.Text = ParName
            NodSub.Tag = ppar
            TreeHdr.Nodes.Add(NodSub)                    ' create treeview
            pval = RnRegistNextVal(ppar, 0, ValName)        ' get first value
            While pval <> 0
                NodVal = New System.Windows.Forms.TreeNode
                NodVal.Text = ValName
                NodVal.Tag = pval
                NodSub.Nodes.Add(NodVal)                    ' create treeview
                pval = RnRegistNextVal(ppar, pval, ValName)        ' get first value
            End While
            ppar = RnRegistNextPar(head, ppar, ParName) ' next param
        End While

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DirName As String
        Dim ValName As String
        Dim phdr As Integer

        Dim NodHdr As System.Windows.Forms.TreeNode

        DirName = New String(" ", 64)
        ValName = New String(" ", 64)

        RegTop = RnRegistInit()
        RegistryName = "t_vis_set.cfg"
        DllVal = RnRegistRead(RegTop, RegistryName)
        phdr = RnRegistNextDir(RegTop, 0, DirName)
        While phdr <> 0
            NodHdr = Me.TreeView1.Nodes.Add(DirName)            'Top Directory
            NodHdr.Tag = phdr                                  ' save position
            Tree_build_node(phdr, NodHdr)
            phdr = RnRegistNextDir(RegTop, phdr, DirName)
        End While
    End Sub
    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim Seltext As String
        Dim slen As Integer
        NodSel = e.Node
        Seltext = New String(" ", 64)
        Selected = e.Node.Tag
        slen = RnRegistName(Selected, Seltext)
        TextBox1.Text = Seltext
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim slen As Integer
        If Selected <> 0 Then
            slen = RnRegistNameSet(Selected, TextBox1.Text)
            NodSel.Text = TextBox1.Text
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim retval As Integer
        ' RegistryName = "something_different_or_the_same.CFG"
        retval = RnRegistFlush(RegTop, RegistryName)
    End Sub
End Class

---

Ja, das Form1 sehe ich ja.
Auch die Deklarationen.
Die sind OK
Ist die alte Schreibweise, aber völlig in Ordnung so.
Ich habe mit einer genau solche Deklaration eine andere Lib mal eingebunden und das ging ohne zucken.
Da legst Du die Lib einfach ins bin Verzeichnis und alles ist fein.
Er weigert sich einen Verweis zu setzen weil er sagt da ist keine. Der tut so als wollte ich eine nicht dll Datei als dll verkaufen.

Ich hatte schon mal mit MrNiemand einen dll-Versuch zwischen VB6 und VB2005 gemacht.
Der lief im ersten Anlauf VB6 dll in vb2005 OK
Vb2005 dll in vb6 Problem.


Es ist ganz gut, dass wir das Problem haben. Denn Du kannst das bei Dir gar nicht nachvollziehen.
Du kannst nur zu Deinem Kollegen gehen und das da mal probieren.

Wer den Fehler als erstes finde hat gewonnen :-)

Ich bleib drann

Netter Gruß

Edit:
Sag mal, kann es sein das die System Uhr vom Forum falsch geht?

Zitat:

---

..einen Verweis zu setzen ..

---

Den braucht er nicht wirklich. Ist bestenfalls hübsch, wenn verwendete dll's im Projekt sind (und man install-sets kreieren will)

Ist ein ganz anderer Kaffee, wenn man mit VBxx eine DLL erzeugt, da geht zwar mehr, aber auch viel spezialisierter. da mag zwische VB6 /VB2005 DLL schon ein Unterschied sein.

Vergiß die DLL im Projekt, das geht ihn eine Sch... an , schau nur, daß der Pfad stimmt.

Schlimmstenfalls kopier die DLL dorthin, wo die anderen sind, also WINDOW\SYSTEM32 oder so.

Wenn Problem, dann eines mit den Pfaden (environment)
Wenn er eine exe oder dll sucht, geht er erst lokal, und dann über
PATH= ............................

(oder man gibt den kompletten Pfad im "declare" an)

Das ist ja lächerlich

System einrichten ... viel Glück

virtuelle Kanne Kaffee reinstell ;-)

Zitat:

---

..virtuelle Kanne Kaffee ..

---

Cyber-coffeine nutz da nix.
Irgendeine Idee ? Ich hab das probiert auf W2k prof. mit der kompletten VB2005 Suite, auf XP sp2 mit VB2005 express und kann den Fehler nicht nachvollziehen.

An UllrichC:
Danke für den Kaffee :-) kann sein das wir den brauchen.

Ich fasse mal den momentanen Stand der Ermittlungen zusammen.

Die Dll geht bei PicNick tadellos.
Schlussfolgerung:
Die Dll lässt sich aus VB2005 benutzen.

Die DLL geht bei Marvin42x auf drei Rechnern nicht.

Schlussfolgerung:
Die Systeme kann man als das zu erwartende Umfeld ansehen.

Aufgabe:
Funktionsfähigkeit im zu erwartenden Umfeld herstellen.

Fehlersuche:

Marvin42x hat probeweise eine zufällige Dll aus dem Internet runtergeladen bei der die Einbindung in vb2005 beschrieben war und mit einer entsprechenden Deklaration eingebunden und angesprochen.
Das ganze ohne jegliche Pfadangabe. Die Dll muss nur entweder in bin oder bin\debug oder bin\release liegen.
Wie PicNick schon sagte ohne Verweis hinzuzufügen.
Dieser Vorgang lief problemlos ab.

Auch eine Kernel32.dll Einbindung läuft bei Marvin42x ohne Probleme.

Marvin42x hat die RnRegist.dll in alle nur denkbaren Verzeichnisse kopiert.
Einschließlich system32 und system

Der Befehl: regsvr32 c:\Windows\system32\RnRegist.dll
und regsvr32 RnRegist.dll
Schlagen fehl mit der Fehlermeldung:
LoadLibrary(„RnRegist.dll“) fehlgeschlagen – Das angegebene Modul wurde nicht gefunden.

Dieser Befehl regsvr32 war einmal nötig um eine VB6 Dll anzusprechen. Darum dieser Versuch.
Vorsichtige Schlussfolgerung:
Alle Fehlermeldungen laufen darauf hinauslaufen, dass er die Dll nicht findet obwohl man ihn in jeder erdenklichen Art mit der Nase drauf stößt.
Und der regsvr32 Befehl sagt er findet die nicht, er sagt ja nicht wie schon vorgekommen, er kann sie nicht registrieren weil sie nicht richtig ist. In dem Fall hat er sie offensichtlich gesehen und überprüft.
Schlussfolgerung?

So erstmal Strich, geht später weiter

Netter Gruß

So, weiter geht’s:

Der erstrangige Schluss aus der Situation kann sein:
Schlüssel Annahmen:
Bei PicNick arbeitet die Datei
Bei Marvin42x arbeitet die Datei nicht
Beide Systeme sind ausreichend identisch.
Marvin42x arbeite mit einer Kopie, nicht mit dem Original.
Es fand ein Kopiervorgang, Ferndatentransfer, Kopiervorgang der Datei statt.

Schlussfolge:
Die Datei entspricht nicht dem Original.

Meinung:
Die Pfadangabe in der Deklaration mit c:\……. Kann nicht der Weg sein.

Marvin42x wird aber auch das noch prüfen.

Zwischenstopp

Netter Gruß

Nachsatz:

Wenn jemand was Bestimmtes sucht und das bestimmte ist nicht da obwohl was Ähnliches mit selben Namen da ist, sagt er auch: „ich kann das nicht finden“.
Und dann kann man sich auf den Kopf stellen ihm zu sagen wo das Ähnliche liegt, obwohl es doch den gleichen Namen hat.

Netter Gruß

Ich hab sicherheitshalber die DLL nochmal erstellt. Bin nicht sicher, ob eine verwendete lib nicht im debug mode erstellt wurde, d.h. da braucht er ein paar DLL-Varianten, die ich zwar überall habe, weil ich ja VC++ installiert habe, aber bei euch ist das möglicherweise nicht der Fall.
wenn's wahr ist, hieße das, das er zwar rnregist.dll findet (so blöd kann er ja nicht sein) daß er aber dann nicht weiterkommt, aber nicht weiß, wie ihm geschieht.

Versuchs bitte mal