ASG
IBM
Zystems
Cressida
Icon
Netflexity
 
  MQSeries.net
Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
 
Register  ::  Log in Log in to check your private messages
 
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support

MQSeries.net Forum Index » IBM MQ API Support » 2393 Error in SSL connection form Delphi app to IBM MQ

Post new topic  Reply to topic
 2393 Error in SSL connection form Delphi app to IBM MQ « View previous topic :: View next topic » 
Author Message
sahamidas
PostPosted: Thu Dec 21, 2017 3:47 pm    Post subject: 2393 Error in SSL connection form Delphi app to IBM MQ Reply with quote

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
View user's profile Send private message
zpat
PostPosted: Thu Dec 21, 2017 11:56 pm    Post subject: Reply with quote

Jedi Council

Joined: 19 May 2001
Posts: 5849
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
View user's profile Send private message
fjb_saper
PostPosted: Fri Dec 22, 2017 5:47 am    Post subject: Reply with quote

Grand High Poobah

Joined: 18 Nov 2003
Posts: 20696
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
View user's profile Send private message Send e-mail
sahamidas
PostPosted: Fri Dec 22, 2017 8:29 pm    Post subject: Reply with quote

Novice

Joined: 03 Mar 2012
Posts: 17

Thanks for reply .
without ".kdb" ,i got same error code
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic  Reply to topic Page 1 of 1

MQSeries.net Forum Index » IBM MQ API Support » 2393 Error in SSL connection form Delphi app to IBM MQ
Jump to:  



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
Protected by Anti-Spam ACP
 
 


Theme by Dustin Baccetti
Powered by phpBB © 2001, 2002 phpBB Group

Copyright © MQSeries.net. All rights reserved.