DLL einbinden VB6

[Matze D. (matze0304)]

Hallo Zusammen,

ich bin noch ziemlicher Anfänger mit VB6 und gerade dabei eine externe 
Dll einzubinden über Delcare Function....

Jetzt habe ich folgendes Problem wie kann ich folgenden Structur in VB6 
abbilden (Beispiel stammt aus VB.net2005)?

 Public Structure LND_NOTIFICATION
        Dim type As UShort

        ''            union
        ''          {
        ''            struct
        ''          {
        ''            PDLN_CALLBACK function;
        ''            void *context;
        ''          } callback;
        ''#ifdef WIN32
        ''        HANDLE event;
        ''       struct
        ''        {
        ''            HWND handle;
        ''            UINT message;
        ''        } windowMessage;
        ''        struct
        ''        {
        ''           DWORD thread;
        ''            UINT message;
        ''        } threadMessage;
        ''#endif // WIN32
        ''          uint8_t reserved[64];
        ''    };

    End Structure

[Felix U. (ubfx)]

Matze D. schrieb:
> Ich bin noch ziemlicher Anfänger mit VB6
Dann fang doch gleich mit was ordentlichem an, solange du noch nicht zu 
tief drin bist.

Deine vb.net Structure hat ja nur ein Member. Oder was soll das 
auskommentierte?

Private Type LND_NOTIFICATION
    _type As Integer
End Type

[Robert C. (anykey)]

Geh mal auf "www.pinvoke.net" und such nach dem Namen deine API.
Da sind dann die Konvertierungen gelistet.

Gruß Robert

[Felix U. (ubfx)]

Robert C. schrieb:
> Geh mal auf "www.pinvoke.net" und such nach dem Namen deine API.
Es geht nicht um eine WinAPI, aber wo kann man da VB6 Signaturen 
kriegen?

[Flip (Gast)]

Robert C. schrieb:
> Geh mal auf "www.pinvoke.net" und such nach dem Namen deine API.
> Da sind dann die Konvertierungen gelistet.

Ja, für .NET, der TO will aber VB6.

@Matze
> Beispiel stammt aus VB.net2005

Na ja, das ist wohl eher auskommentierter C-Code mit 3 Zeilen VB.

Struktur in VB6 (zumindest ein einfaches Beispiel):
https://msdn.microsoft.com/de-de/library/030kb3e9(v=vs.90).aspx

Vielleicht auch nützlich (ähnliche Frage):
http://www.vbforums.com/showthread.php?505818-RESOLVED-C-Structures-Unions-and-Pointers-in-VB6

[Felix U. (ubfx)]

Es geht wohl um die struct aus dem header:
https://github.com/PISCES-HI/rover-onboard/blob/master/thirdparty/include/dln/dln_generic.h

da ist das Problem, dass du in der Struktur 64 Byte freihalten musst, 
gleichzeitig aber die ersten 8 dieser 64 Byte als struktur 
interpretieren. Würde das so machen:

Private Type DLN_container
    _type As Integer
    data(64) As Byte
End Type

Private Type DLN_message
    handle As Long
    message As Long
End Type

Dann der Funktion einen DLN_container übergeben, damit auf jeden Fall 
genug Speicher allokiert ist. Anschließend

Dim msg As DLN_message
LSet msg = container.data