| |

VerySource

 Forgot password?
 Register
Search
View: 1066|Reply: 7

Has anyone written a magnetic stripe card writing program with Delphi? If so please give a piece of code.

[Copy link]

1

Threads

3

Posts

4.00

Credits

Newbie

Rank: 1

Credits
4.00

 China

Post time: 2020-1-26 21:40:01
| Show all posts |Read mode
Has anyone written a magnetic stripe card writing program with Delphi? If so please give a piece of code. Such as writing the card, the relevant code when reading the card, thank you very much!
Reply

Use magic Report

0

Threads

1

Posts

2.00

Credits

Newbie

Rank: 1

Credits
2.00

 Vietnam

Post time: 2020-2-18 10:30:01
| Show all posts
This general DLL file is sent with the disk when you buy and write a card machine. You only need to call this DLL.
Reply

Use magic Report

0

Threads

8

Posts

9.00

Credits

Newbie

Rank: 1

Credits
9.00

 China

Post time: 2020-2-19 10:45:01
| Show all posts
Most are COM (USB2COM) / RS232 port
Just follow the specifications ~
What about some direct PS2 analog keyboards?
Reply

Use magic Report

0

Threads

1

Posts

2.00

Credits

Newbie

Rank: 1

Credits
2.00

 China

Post time: 2020-2-22 23:15:02
| Show all posts
What card writer do you use? I have done LK602
Reply

Use magic Report

1

Threads

3

Posts

4.00

Credits

Newbie

Rank: 1

Credits
4.00

 China

 Author| Post time: 2020-3-2 23:00:01
| Show all posts
Uses three crystals of 353B
Reply

Use magic Report

1

Threads

6

Posts

4.00

Credits

Newbie

Rank: 1

Credits
4.00

 China

Post time: 2020-6-28 19:15:01
| Show all posts
The description in the document is already very clear

The dll file is declared in the implementation below in the program
  function Rcard(rdata:pchar;track:integer):integer;stdcall;external'JINCARD7.dll';
  function Wcard(wdata:pchar;track:integer):integer;stdcall;external'JINCARD7.dll';

  //Main program:

  if 1 = Init_com('1,9600,n,8,1') then //Initialize the port successfully
  begin
    if 1 = Rcard(rdata,5) then //Call the read function in the library, read two or three tracks, if successful
    begin
      i:=pos ('a',rdata);
      strlcopy(str2,rdata,i-1); //Copy the content of track two in str2
      strcopy(str3,rdata+i); //Copy the contents of track three in str3
      ShowMessage('Successfully read card!'); //Display the successful card reading dialog
    end;
    wdata:= '2222222222a333333333';
    if 1 = Wcard(wdata,5) then //Call the write function in the library to write two or three tracks, if successful
    begin
      ShowMessage('Successfully write card!'); //Display the successful card writing dialog box
    end;
  end; //Determine the status of card writing based on the value returned by Wcard function
Reply

Use magic Report

1

Threads

3

Posts

4.00

Credits

Newbie

Rank: 1

Credits
4.00

 China

 Author| Post time: 2020-8-23 21:15:02
| Show all posts
Thank youorange4923, but it crashed after writing. I don’t know why. Then only write the second track (the track content is in edit1). How to write it? I’m a beginner and don’t understand. Thank you for your help.
Reply

Use magic Report

0

Threads

2

Posts

3.00

Credits

Newbie

Rank: 1

Credits
3.00

 China

Post time: 2020-8-24 09:45:01
| Show all posts
Now most manufacturers will directly provide drivers, which are used like keyboards, without thinking about how to read them.
Reply

Use magic Report

You have to log in before you can reply Login | Register

Points Rules

Contact us|Archive|Mobile|CopyRight © 2008-2023|verysource.com ( 京ICP备17048824号-1 )

Quick Reply To Top Return to the list