I am getting following error:
Exception at 00000000005029AE: EXMLReadError:
In 'stream:' (line 1 pos 1345): Unmatching element end tag (expected "</HR>").
Below is my code:
procedure Execute;
var
vGetMerchant: UnicodeString;
send: SendTranRequest;
me: Merc;
tr: TranData;
vcard : Card;
begin
send := SendTranRequest.Create;
me := Merc.Create;
me.id := UnicodeString(GatewayID);
me.regKey := UnicodeString(RegKey);
send.merc := me;
tr := TranData.Create;
tr.tranNr := '1';
case trancode of
'0': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__0;
'1': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__1;
'2': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__2;
'3': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__3;
'4': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__4;
'5': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__5;
'6': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__6;
'7': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__7;
'9': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__9;
'10': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__10;
'11': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__11;
'12': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__12;
'13': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__13;
'14': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__14;
'15': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__15;
'17': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__16;
'18': send.tranCode := SendTranRequest_tranCode_Type.SendTranRequest_tranCode_Type__18;
end;
vcard := Card.Create;
vcard.pan := UnicodeString(AccountNumber);
vcard.sec := UnicodeString(CVV2);
vcard.xprDt := UnicodeString(ExpirationDate);
send.card := vcard;
send.reqAmt := UnicodeString(Amount);
SYNAPSE_RegisterHTTP_Transport;
vGetMerchant := UnicodeString(wst_CreateInstance_MerchantWebServicesPortType('SOAP:',
'HTTP:Address=https://ws.cert.transactionexpress.com:443/portal/merchantframework/MerchantWebServices-v1',
'
ws.cert.transactionexpress.com/portal/me...rchantWebServices-v1').SendTran(send));
WriteLn(vGetMerchant);
end;
What I am doing wrong? Please help. I am using CT 5.5 in CentOS 7. This wsdl uses OpenSSL with TLS v1.2. I have added following unit in my project which is a console application:
synapse_http_protocol, soap_formatter, ssl_openssl,
Please help.