Stringübergabe Delphi--> VB 6.0 in DLL

[shmia]

Code:

Private Declare Function Set_Seriennummer Lib "xxx.dll" (ByVal DataPointer As String) As Long

Delphi-Quellcode:

function Set_Seriennummer(DataPointer:PChar):Cardinal;stdcall; 
var 
  Text:string; 
begin 
  Text := DataPointer; // nullterminierte C-Style Strings können einfach durch Zuweisung konvertiert werden
  Result:=aObj.Set_Seriennummer(Text); 
end;