DLL(Delphi) для vb - VB

Формулировка задачи:

Доброго времени суток народ! Сообственно сама проблема: сама функция в делфи
function ssCase(x:integer):PChar;stdcall;
//var st: string;
begin
case x of
1: st:='XOPOIIIO';
end;
  Result:= PChar(st);
end;
 exports ssCase;
begin
end.
При выполнении vb просто вылетает
Private Declare Function ssCase Lib "C:\Users\User\Desktop\dll\Project1.dll" (ByVal x As Integer) As Integer
Private Sub Form_Load()
MsgBox (ssCase(1))
End Sub
как я пологаю ошибка в передачи результат из длл в вб с размерами переменных а может и нет помогите кто чем может в чем ошибка? как правильно вызвать в вб?

Код к задаче: «DLL(Delphi) для vb - VB»

textual
dim s as String * 6
s = ssCase(1&)
msgbox s

9   голосов, оценка 3.778 из 5


СОХРАНИТЬ ССЫЛКУ