Hi Zhu,

What do you need? Do you want to create the function in VFP?
If you need to create the function in VFP, do this:

FUNCTION Writecard () as Integer
	LPARAMETERS encodertype as Integer, ncomm as Integer, secnr as Integer, cardtype as Integer;
			, 	guestname as String, roomno as String, checkin as String; checkout as String, guestcardno as String

	* Thing to do  => The symbol * at line's start mean commented line
ENDFUNC


FUNCTION ReadCard() as Integer
	LPARAMETERS encodertype as Integer, ncomm as Integer, secnr as Integer, cardtype as Integer;
			, 	syspass as String, cardno as String, roomno as String, checkin as String; checkout as String

	* Thing to do  => The symbol * at line's start mean commented line
ENDFUNC



FUNCTION ClearCard() as Integer
	LPARAMETERS encodertype as Integer, ncomm as Integer, secnr as Integer
	
	* Thing to do  => The symbol * at line's start mean commented line
ENDFUNC
	
FUNCTION GuestCheckOut() as Integer
	LPARAMETERS cardno as String
	
	* Thing to do  => The symbol * at line's start mean commented line
ENDFUNC

I hope this helps you.
Good luck!



>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