STDMETHODIMP Cencrypt::encry(BSTR* s, BSTR* a)
{
int len,i;
len=int(strlen((char *)(s)));
for(i=0;i<len;i++)
{
a[i]=s[i]+3;
}
a[i]='\0';
return S_OK;
}
Это код бэкэнда, который я использую для простого шифрования строк ... Мой интерфейс - VB, и он имеет следующий код ..
Dim obj As New encrypt
Dim s As String
Dim a As String
Private Sub Command1_Click()
a = Text1.Text
Call obj.encrypt(s, a)
MsgBox (s)
End Sub
Но когда я запускаю свой vb после обращения к dll, он не выполняется ... Могу ли я знать, почему это происходит?