应该这样改吧: delphi 代码 function bestfont(ss:PChar;ww:integer;hh:integer):integer;stdcall;//ss:string 改为 ss:PChar var lss:string; begin lss := strpas(ss);//下面的代码如要使用string类型的ss,就都改为lss吧 ... ... end;vb代码 Private Declare Function bestfont Lib "project1.dll" (ByVal ss As String,ByVal ww As Long, ByVal hh As Long) As Long
delphi 代码
function bestfont(ss:PChar;ww:integer;hh:integer):integer;stdcall;//ss:string 改为 ss:PChar
var
lss:string;
begin
lss := strpas(ss);//下面的代码如要使用string类型的ss,就都改为lss吧
...
...
end;vb代码
Private Declare Function bestfont Lib "project1.dll" (ByVal ss As String,ByVal ww As Long, ByVal hh As Long) As Long