代码转换问题，高手请进

Question

在VB中Declare Function viVScanf Lib "VISA32.DLL" Alias "#272" (ByVal vi As Long, ByVal readFmt As String, params As Any) As Long
Dim strRes As String * 200
Call viVScanf(vi(j), "%t", strRes) -------读出返回值在VC中
char buf [512000] = {0};
viScanf (vi, "%t\n", &buf);//读取结果请问在delphi中应该怎么写？读取回来的值是乱码。

Answer 1

var
  buf:array of char;
begin
  //分配内存
  SetLegth(buf, 51200);
  //调用
  viScanf (vi, "%t\n", @buf);//读取结果
  //最后显示
  StrCopy(buf); //好像是StrCopy函数将PChar转化为String类型
end;

Answer 2

有人用过delphi调用visa.dll吗？