key 값을 받아 sql로 저장하고 다시 화면에 뿌리려는데요



key값을 받는거는 이상이 없는 듯 한데



sql에 어떻게 저장하고 다시 에디트나 그리드에 뿌려주려면 어떻게 해야 하는지....



저한테는 어려운데 쉬운분들은 답변 좀 해주세요....부탁드립니다.



소스......(이 소스는 ASP로 구현된 것을 델파이로 변경하는 중이거든요.....)



PROCEDURE AAA();



sMallID := 'hansolo';



PayGateway := TClient.Create(nil);

PayGateway.InitSecurity('C:Inetpubwwwroottest1121', 'FMSPriv.key', 'CSFEPub.key');



sPlainLine := 'orderid=20001120006&username=Han'

+ '&amount=120000'

+ '&cardnum=941045800000000'

+ '&expireyear=2003'

+ '&expiremonth=03'

+ '&cardkind=001'

+ '&QuotaType=00';



sEncrypted := PayGateway.Encrypt(sPlainLine);



sResult := PayGateway.SendRequest

('211.116.228.69', '/csfe/diRequest.asp',

'mallid='

+ sMallID

+ '&ret_url=direct_approve'

+ '&SecureParam=' + sEncrypted);



ShowMessage(sResult); //이부분을 그냥 뿌려주면 값이 나오거던요...

PayGateway.TermSecurity();





OrderID := PayGateway.GetVariable(sResult, 'oid');

ConfirmNo := PayGateway.GetVariable(sResult, 'cid');

Amount := PayGateway.GetVariable(sResult, '"amount');

Date := PayGateway.GetVariable(sResult, 'date');

CardType := PayGateway.GetVariable(sResult, 'cname');

UserName := PayGateway.GetVariable(sResult, 'username');



sPlain_Line := 'orderid=' + PayGateway.GetVariable(sResult, 'oid')

+ '&confirmno=' + PayGateway.GetVariable(sResult, 'cid');





bsEncrypted := PayGateway.Encrypt(sPlain_Line);



// Connect to Paygateway and send refund request;

위에도 풀어주면 에러가 나요....CONNECT 에러

sResult := PayGateway.SendRequest('pgtest.commercen.com',

'/csfe/diCancel.asp',

'mallid='

+ sMallID

+ '&ret_url=direct_approve'

+ '&SecureParam='

+ sEncrypted);



showmessage(sResult);

// Response.Write := sResult;









PayGateway.TermSecurity();

// PayGateway := Nil;







end;



end.