Hello, the World.
Please Help Me.
Delphi to VFP :


A. Write Card

WriteCard Prototype
Writecard (encodertype:integer;ncomm:integer;secnr:integer; cardtype: integer; guestname: pchar; roomno: pchar; checkin:pchar; checkout:pchar;var guestcardno:pchar):integer;


B. Read Card

ReadCard Prototype
ReadCard(encodertype:integer;ncomm:integer;secnr:integer;var cardtype:integer;
var syspass:pchar;var cardno:pchar;var roomno:pchar;var checkin:pchar;
var checkout:pchar):integer;


C. Clear Card

Function ClearCard(encodertype:integer;ncomm:integer;secnr:integer):integer;stdcall ;


D. GuestCheckOut

Function GuestCheckOut(cardno:pchar):integer;

Thank U.

- Tuberose