我在VB中调用的一个汉字转拼音DLL，怎么在DELPHI中调用这个？

Question

下边是我 VB中的代码，主要是DELPHI中正常使用？Private Declare Function GetSpellCode Lib "py.DLL" (ByVal szText As String, ByVal iMode As Integer, ByVal iCount As Integer) As String    
Public Function GetALLPINYIN(ByVal CurHanZi As String) As String
        
Try
           
 GetALLPINYIN = GetSpellCode(CurHanZi, 2, 100)
        
Catch ex As Exception
            
GetALLPINYIN = "编号获取失败！"
        
End Try
    End Function

Answer 1

function GetSpellCode（szText:string;iMode,iCount:Integer):integer;stdcall;external 'py.DLL' name  'GetSpellCode';  Function GetALLPINYIN(CurHanZi:String):String;
begin
        
Try
           
 ReSult:= GetSpellCode(CurHanZi, 2, 100)
        
except
            
ReSult:= = "编号获取失败！"
end;
            end;

Answer 2

ReSult:='编号获取失败';
不好意思，是单引号