HTTPS connection, how to debug to determine what is going wrong?
I am initiating an https connection using the generated files from
ws_helper and the synapse library.
Based on sample code include with wst i have in my uses clause:
soap_formatter, metadata_repository, // WST
ssl_openssl, synapse_http_protocol, //SYNAPSE
vim_proxy, vim; //From WSDL conversion
When I try to connect, I get an exception that says 'HTTP Request to
https://192.168.0.170/sdk failed'
The log file on my ESXi 4.0 box shows:
err 'APP' ] SSLStreamImpl::DoServerHandshake (D24A4d8) SSL_accept
failed with Unexpected EOF
warning 'Proxysvc'] SSL Handshake failed failed for stream
TCP(local=192.168.0.197:47287, peer=192.168.0.170:443), error=SSL
Exception: Unexpected EOF
Perhaps my client does not trust the SSL certificate? How can I tell?
How can I change if it doesn't?
Here is my sample code:
procedure TMainForm.btnConnectClick(Sender: TObject);
var
serviceInstance: ManagedObjectReference; //all invocations require this.
vimPort: VimPortType;
login: LoginRequestType;
areLogin: LoginResponse;
begin
//try
memoResults.Append('Click!');
SYNAPSE_RegisterHTTP_Transport();
memoResults.Append('Synapse!');
serviceInstance := ManagedObjectReference.Create();
memoResults.Append('Service Instance Created.');
vimPort :=
wst_CreateInstance_VimPortType('SOAP:','HTTP:',txtURL.Text);//();
memoResults.Append('vimPort created.');
login := LoginRequestType.Create();
login.userName:=txtUser.Text;
login.password:=txtPasswd.Text;
memoResults.Append('procedure login');
areLogin := vimPort.Login(login);
memoResults.Append('Login.');
//except
if areLogin = nil then memoResults.Append('areLogin is NIL!');
memoResults.Append('Not Good!');
//end;
end;
--
LyX: http://www.lyx.org/ OpenOffice: http://www.openoffice.org/
Inkscape: http://www.inkscape.org/ Scribus: http://www.scribus.net/
GIMP: http://www.gimp.org/ PDF: http://www.pdfforge.org/
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
