delphi下的此dll函数在vb中如何调用？

Question

Function jiqi ( X , Y : integer;code:PChar ) : integer ; stdcall ; 
假设其中参数值为：x:=10;
y:=20;
code:= #$03#$D0#$8B#$C2#$C3#$F7#$EA#$C3;如何写vb赋值及调用代码呢？
谢谢！
  
   

Answer 1

做一个简单的范例：
declare function jiqi lib "dll file name" (byval x as long, byval y as long, byval code as string) as longsub test()
  dim s as string
  s=#$03#$D0#$8B#$C2#$C3#$F7#$EA#$C3
  debug.pring jiqi(10, 20, s)
end sub

Answer 2

s=#$03#$D0#$8B#$C2#$C3#$F7#$EA#$C3
这句语法错误，如何处理？

Answer 3

:P  s="#$03#$D0#$8B#$C2#$C3#$F7#$EA#$C3"
  debug.pring jiqi(10, 20, s)

Answer 4

问题是delphi中的语句是：
code:= #$03#$D0#$8B#$C2#$C3#$F7#$EA#$C3;
而不是
code:= '#$03#$D0#$8B#$C2#$C3#$F7#$EA#$C3';这两个语句完全是两个概念。
第一个语句在vb中如何实现呢？

Answer 5

code= chr(03) & chr(D0) & chr(8B) & chr(C2) & chr(C3) & chr(F7) & chr(EA) & chr(C3)