In VB werden Strings intern als Unicode-Strings (16 Bit pro Zeichen) behandelt. Ich würde die Funktion in der DLL also auf wchar_t* anstatt char* umstellen...

EDIT: Alternativ kannst du aus Basic auch mit StrConv den String in ein Byte-Array umwandeln. Dann sollte es auch mit char* klappen. Die Lösung mit der Temporärdatei funktioniert zwar auch ist aber:
1.) unsauber
2.) unsicher
3.) langsam
4.) schlicht und einfach schlecht

[ Dieser Beitrag wurde am 08.06.2003 um 14:16 Uhr von MaSTaH editiert. ]

Die Funktion in der C-DLL sieht so aus:

extern "C" INT PASCAL EXPORT SCP_ReceiveData(char * x, unsigned int len)
{
  AFX_MANAGE_STATE(AfxGetStaticModuleState());
  char *test;
  test = "dies ist es jetzt!";
  // reicht der Speicherplatz aus?
  if ((strlen(test) + 1) > len)
  {
    return -1;
  }
 memcpy(x,test,strlen(test) + 1); //das ist es!
 return 0;
}

Die Deklaration der Dll-Funktion in VB:

Private Declare Function SCP_ReceiveData _
Lib "Test.dll" ( _
ByVal Puffer As String, _
ByVal Length As Integer
) As Integer

Achtung: der String muss in diesem Fall ByVal übergeben werden. ByVal verliert hier aber seine ursrüngliche Bedeutung. Es wird hiermit ein Zeiger auf die nullterminierte Zeichenkette übergeben. (ByRef würde einen Zeiger auf eine BSTR-Struktur liefern...)

Der Aufruf der Funktion in VB:

Dim strPuffer As String
Dim intRueck As Integer
strPuffer = String$(260, 0) 'Speicher reservieren soviel wie nötig
intRueck = SCP_ReceiveData(strPuffer, Len(strPuffer))
'hier kann der Rückgabewert ausgewertet werden
strPuffer = C2VBString(strPuffer) 'Funktion sucht das erste Chr(0) im String und gibt ihn bis dort zurück

Und das funzt - jedoch die Verwendung natürlich auf eigene Gefahr!
Gruß,
Gerto