用delphi如何编写?谢谢!

Question

以下是动态动库zhang_msr.dll的函数名,如何用Delphi编写并调用bool _stdcall zhang_OpenCOM(int nPort=1,DWORD dwBaud=9600,int Mode=0,int Parity=2,BYTE DataBits=8,int StopBits=0,int Fc=0);int _stdcall zhang_CloseCOM();int _stdcall zhang_SelectExtPort(char cExPort);int _stdcall zhang_Reset();int _stdcall zhang_HL(int Mode);
int _stdcall zhang_HL_Density(int Mode);int _stdcall zhang_Erase(int TK);int _stdcall zhang_MSR_Read(int Type, char TK1[], char TK2[], char TK3[], int TimeOut);bool _stdcall zhang_MSR_Write(int Type, char TK1[], char TK2[], char TK3[], int TimeOut);int _stdcall zhang_Test_ExPort(char Response[]);
int _stdcall zhang_Version(char Response[], int TimeOut);

Answer 1

详细的参考参考这里吧:
http://www.7880.com/info/2005/03/03/article-12214.html

Answer 2

function zhang_OpenCOM(nPort:integer;dwBaud;DWORD iMode:integer;Parity:Integer, DataBits:BYTE,StopBits:integer;fc:integer):integer;stdcall;
 
function zhang_CloseCOM():integer;stdcall;
 
function zhang_SelectExtPort(cExPort:Char):integer;stdcall;
function zhang_Reset():integer;stdcall;function zhang_HL(Mode:Integer):integer;stdcall;
function zhang_HL_Density(Mode:Integer):integer;stdcall;
function zhang_Erase( TK:Integer):integer;stdcall;function zhang_MSR_Read(_Type:integer;Tk1:Pchar;Tk2:Pchar;Tk3:Pchar;TimeOut:Integer):integer;stdcall;function zhang_MSR_Write(_Type:integer;Tk1:Pchar;Tk2:Pchar;Tk3:Pchar;TimeOut:Integer):integer;stdcall;function zhang_Test_ExPort (Response:Pchar):Integer;stdcall; 
function zhang_Version(Response:Pchar;TimeOut:Integer):Integer;stdcall;

Answer 3

同意楼上，第一个补充一下：
function zhang_OpenCOM(nPort:integer=1;dwBaud:DWORD=9600 ;iMode:integer=0;Parity:Integer=2, DataBits:BYTE=8;StopBits:integer=0;fc:integer=0):integer;stdcall;