C++ Dll kald fra VB

Vil mene du gør på denne måde, aller øverste skriver du følgende:

Private Declare Function <FunktionNavn> Lib "<DllNavn" (ByVal arg As String) As String

Nu kan du kalde den på funktion navnet som en almindelig funktion i VB.

Jeg har kun selv prøvet hvor den ikke returnere noget, men går ud fra det giver det samme.

Mvh.
Casper W.

ups, der skal ikke < > om navnene, bare for at gøre det mere klart.

nej, det duer ikke, for der er noget bøvl med forskellen af strenge mellem c++ og vb

Skal du kalde en funktion i VC++ (programmet) eller i et lib du har lavet i VC++?
I så fald, anvender du COM eller..?

Jeg har lavet et dll i c++ og skal foretage funktion kaldet fra VB applikationen

Igen, bruger du COM eller..?

eller hvad??
jeg har brugt atl wizarden hvis det er det du tænker på.

Okay, når du har kompileret og registreret din dll, går du over i VB og vælger Project->References, krydser din dll af, trykker "OK" og så er du klar til at bruge den.

Du kan også højreklikke på din kode og vælge "Object Browser", så kan du se hvilke metoder der findes på interfacet.

JPK<<Jeg tror at du misforstår mig. Problematikken er overførsel af strenge fra vb applikationen til c++ dll'et og omvendt. CString i C++ og strings i VB kan ikke enes:-)

Jeg kan godt overfører strenge fra VB til dll'en, der er skrev i C++. Har du stadigvæk problem med det? For det skal du bare overføre med by value.

Men jeg har også prøvet diverse metoder på at få den til at kunne returnere en streng, og det er ikke løkkes endnu.

Casper W.

Når du tilføjer en metode med en streng, bliver funktionens signatur så a la:

STDMETHODIMP CClassName::Func(BSTR Val)

extern "C" long FAR PASCAL EXPORT StringFunc (char *str)
{
    char *ch;
    CString temp,temp2;
    temp=*str;
    strcpy(ch,temp);

    theApp.SetString(temp);

    temp2=theApp.GetString();

    strcpy(str,temp2);
    return 0;
    }
Sådan ser funktionen ud.
I min VB applikation køre jeg en rutine der tilpasser den 'str' således at den bliver "klippet" ved den første '0' karakter. Problemet er bare at der altid er en '0' på strengens anden plads.

jeg opretter spørgsmålet igen med størrer belønning til det rigtige svar

Jeg vil meget gerne hjælpe dig, men der findes mange måder at gøre det samme på og mange teknologier!
Af gode grunde ved jeg ikke hvilke du bruger og kommer derfor med nogle spørgsmål. Hvis du ikke svarer på disse, kan jeg ikke hjælpe dig..!
Du skal tænke mere objektivt og ikke tage for givet at alle bruger de samme teknologier som dig.