给你个sample 其他的都是一样的。
type
.....
end;procedure CalcMAC(mac:lpcstr;data:lpcstr;key:lpcstr); stdcall; external 'yhmm.DLL';//声明var
TX_Form: TTX_Form;
procedure TTX_form.pro;
being
CalcMAC(PChar(temp),pchar(s),pchar(tx_my));//调用end
type
.....
end;procedure CalcMAC(mac:lpcstr;data:lpcstr;key:lpcstr); stdcall; external 'yhmm.DLL';//声明var
TX_Form: TTX_Form;
procedure TTX_form.pro;
being
CalcMAC(PChar(temp),pchar(s),pchar(tx_my));//调用end
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货