照这写,将它写成静态连接。
const
Connect_Table = 0;
Connect_List = 1;
MType_BNB = 0;
MType_Report = 1;type
_SMS_Recv = record
lMsgType: DWORD;
szSmsc: array [0..31] of Char;
szSender: array [0..31] of Char;
szTime: array [0..31] of Char;
szMsg: array [0..511] of Char;
end;
TSMS_Recv = _SMS_Recv;function S_Exit: DWORD; stdcall; external 'YouDLL' name 'S_Exit';其它类似
const
Connect_Table = 0;
Connect_List = 1;
MType_BNB = 0;
MType_Report = 1;type
_SMS_Recv = record
lMsgType: DWORD;
szSmsc: array [0..31] of Char;
szSender: array [0..31] of Char;
szTime: array [0..31] of Char;
szMsg: array [0..511] of Char;
end;
TSMS_Recv = _SMS_Recv;function S_Exit: DWORD; stdcall; external 'YouDLL' name 'S_Exit';其它类似
你在delphi里引用就是了。
比如那个S_Send函数,
Function S_Send(pNo:PChar,pMsg:PChar,bReport:Boolean,bHandFree:Boolean,bAsyn=False:Boolean) External "库函数路径"这样就能调用了
是放到代码的前面还是后面?
uses Windows;
function PcmtoWave(PcmFileName:Pchar;WaveFileName:Pchar):Integer; stdcall; far external 'djcvt.dll';
implementationend.
pSMCA: PChar; hwnd: THandle = 0): DWORD; stdcall;