请问有谁用Delphi写过磁条卡写卡程序没有？如有请给一段代码。

liunian

请问有谁用Delphi写过磁条卡写卡程序没有？如有请给一段代码。如写卡时，读卡时的相关代码，不胜感谢！

蘑小菇

这个一般购写卡机时都会随盘送DLL文件，你只须调用这个DLL就行了

goylee

多数是COM(USB2COM)/RS232端口的
按照规范即可~
某些直接PS2模拟键盘的呢

xinxing99

你用的是什么写卡机？我做过LK602

liunian

用的是三晶的353B

orange4923

说明文档里写的已经是非常清楚了

程序中把dll文件声明于implementation中下面
  function Rcard(rdata:pchar;track:integer):integer;stdcall;external'JINCARD7.dll';
  function Wcard(wdata:pchar;track:integer):integer;stdcall;external'JINCARD7.dll';

  //主程序 ：

  if 1 = Init_com('1,9600,n,8,1') then  //初始化端口成功
  begin
    if 1 = Rcard(rdata,5) then          //调用库中的读函数,读二，三磁道,若成功则
    begin
      i:=pos ('a',rdata);
      strlcopy(str2,rdata,i-1);         //拷贝磁道二中的内容于str2中
      strcopy(str3,rdata+i);            //拷贝磁道三中的内容于str3中
      ShowMessage('读卡成功！');        //显示读卡成功对话框
    end;
    wdata:= '2222222222a333333333';
    if 1 = Wcard(wdata,5) then          //调用库中的写函数进行写二，三磁道,若成功则
    begin
      ShowMessage('写卡成功！');        //显示写卡成功对话框
    end;
  end;                                  //根据Wcard函数所返回值判断写卡的状态

liunian

orange4923谢谢，但是写完后就死机，不知道什么原因，那只写第二轨（磁道内容在edit1中），怎么写呢？我是初学，不懂，谢谢各位大哥哥帮忙。

nanjamonja

现在大部分厂商都会直接提供驱动，就象键盘一样使用，不需要考虑怎么读。