如何对IC卡彩色印卡机串口发送指令 ( 积分: 100 )

印卡前需要在印卡机串口上，发送'M','S'指令，实现进卡操作（使卡进去机器内部）。请问怎么样实现对串口发送指令的操作啊？？急

印卡前需要在印卡机串口上，发送'M','S'指令，实现进卡操作（使卡进去机器内部）。请问怎么样实现对串口发送指令的操作啊？？急

var
comDev : THANDLE;
buf : char;
Count:integer;
begin
comDev := CreateFile('COM1', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, nil);
if comDev <> INVALID_HANDLE_VALUE then

begin
buf := 'M';
WriteFile(comDev, buf, 1, Count, nil);
buf := 'S';
WriteFile(comDev, buf, 1, Count, nil);
end;
CloseHandle(comDev);
end;