| |
|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
  |
|
| 2393 Error in SSL connection form Delphi app to IBM MQ |
« View previous topic :: View next topic » |
| Author |
Message
|
| sahamidas |
 Posted: Thu Dec 21, 2017 3:47 pm Post subject: 2393 Error in SSL connection form Delphi app to IBM MQ |
 |
|
Novice
Joined: 03 Mar 2012
Posts: 17
|
Hi all
I want an implement a Delphi program for connect to IBM MQ ver7.5 via SSL.
but ,i got error 2393 !!
The connection between my app to MQ without SSL is OKay.an also connected MQ explorer to MQ server via SSL.
can you help me about this error?
my source code in is :
| Code: |
procedure Connect_To_MQ_SSL;
var qmn : MQCHAR48 ;
CO : MQCNO ;
CCD : MQCD ;
hc: integer ;
QM,Host,Channel:string;
MQSCO:PMQSCO;
MQAIR: PMQAIR;
begin
QM:='QueueManager';
Host:='Host(Port)';
Channel :='Channel';
hc := 0 ;
move ( MQCNO_DEFAULT, CO, sizeof (MQCNO_DEFAULT) ) ;
move ( MQCD_CLIENT_CONN_DEFAULT, CCD, sizeof (MQCD_CLIENT_CONN_DEFAULT) ) ;
StrPCopy ( qmn, trim(QM) ) ;
/////////////////////////////////////////////////
//++++++++++++++++++++++++++++++++++++++++
MQSCO := new(PMQSCO);
MQSCO^.StrucId := MQSCO_STRUC_ID;
MQSCO^.Version := MQSCO_VERSION_1;
MQSCO^.KeyRepository := 'E:\Delphi\SSL-MQ\trustStore.kdb';
MQSCO^.CryptoHardware:= ' ';
MQAIR := new(PMQAIR);
MQAIR^.AuthInfoConnName := 'Ha';
MQAIR^.AuthInfoType := 1;
MQAIR^.LDAPPassword := '';
MQAIR^.LDAPUserNameLength := 0;
MQAIR^.LDAPUserNameOffset := 0;
MQAIR^.LDAPUserNamePtr := nil;
MQAIR^.StrucId := MQAIR_STRUC_ID;
MQAIR^.Version := MQSCO_VERSION_1;
MQSCO^.AuthInfoRecPtr :=MQAIR;
MQSCO^.AuthInfoRecOffset := 0;
MQSCO^.AuthInfoRecCount := 1;
//+++++++++++++++++++++++++++++++++++++++
StrPCopy ( CCD.ConnectionName, trim(Host) ) ;
StrPCopy ( CCD.ChannelName, trim(Channel) ) ;
CCD.SSLClientAuth :=1;
StrPCopy ( CCD.SSLCipherSpec, 'NULL_MD5' ) ;
//+++++++++++++++++++++++++++++++++++++++
CO.StrucId := MQCNO_STRUC_ID;
CO.Version := MQCNO_VERSION_4 ;
CO.Options := MQCNO_NONE;
CO.ClientConnPtr := @ CCD ;
CO.SSLConfigPtr := MQSCO;
CO.SSLConfigOffset := 0;
////////////////////////////////////////////////
MQCONNX ( @ qmn, @ CO, @ hc, @ Cnx_CC, @ Cnx_RC ) ;
end;
|
|
|
| Back to top |
|
 |
| zpat |
| Posted: Thu Dec 21, 2017 11:56 pm Post subject: |
|
|
Jedi Council
Joined: 19 May 2001
Posts: 5866
Location: UK
|
Normally you would reference the stem file name of a standard MQ CMS keystore (leave out the .kdb).
_________________
Well, I don't think there is any question about it. It can only be attributable to human error. This sort of thing has cropped up before, and it has always been due to human error. |
|
| Back to top |
|
|
| fjb_saper |
| Posted: Fri Dec 22, 2017 5:47 am Post subject: |
|
|
Grand High Poobah
Joined: 18 Nov 2003
Posts: 20756
Location: LI,NY
|
You would also use a CCDT to allow the channel to be enhanced with a cipherspec... 
_________________
MQ & Broker admin |
|
| Back to top |
|
|
| sahamidas |
| Posted: Fri Dec 22, 2017 8:29 pm Post subject: |
|
|
Novice
Joined: 03 Mar 2012
Posts: 17
|
Thanks for reply .
without ".kdb" ,i got same error code |
|
| Back to top |
|
|
|
|
|
| |
|
Page 1 of 1 |
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
|
|
