I am using Version:7.84 + OpenSSL v1.0.0d now. I tested ersion:7.84 +
OpenSSL v0.9.8r. It don't work yet. The following code work OK in v7 +
OpenSSL v0.9.8.11. Can you tell me know how I can fix it in new version.


  httpCli := TSSLHttpCli.Create(nil);

  httpCli.SslContext := TSslContext.Create(nil);

  httpCli.ContentTypePost := 'application/x-www-form-urlencoded';

  httpCli.URL := 'https://www.google.com/accounts/ClientAuth';

  httpCli.RcvdStream := TMemoryStream.Create;

  httpCli.SendStream := TMemoryStream.Create;

  s := 'Email=testacc%40gmail.com
&Passwd=testpwd&PersistentCookie=false&source=googletalk&service=mail';

  httpCli.SendStream.Write(s[1], Length(s));

  httpCli.Post;

  SetLength(s, httpCli.RcvdCount);

  httpCli.RcvdStream.Position := 0;

  httpCli.RcvdStream.Read(s[1], httpCli.RcvdCount);

-- 
Frank
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to