Jump to content

milan

Members
 View Profile  See their activity

  • Content Count

    8

  • Joined

  • Last visited

Everything posted by milan

  1. milan
    I try code from OverbyteIcsPemTool to export certificate from 'MY' windows store: xTmp := f_d2i_X509(nil, @pCertContext.pbCertEncoded, pCertContext.cbCertEncoded); if Assigned(xTmp) then begin X.X509 := xTmp; f_X509_free(xTmp); … end; however, this does not return private key (X.PrivateKey := nil). It does some additional code? Milan
  2. milan
    But I need to communicate with a web service (REST), that requires certificate authorization. And clients often have it on a USB token or in windows store without the possibility of export. So ICS cannot be used?
  3. milan
    So they can't use certificates from USB token, that can't be exported? Uf! Milan
  4. milan
    I need to solve this in the application, because of clients that do not have a certificate file and do not want or cannot export it. I'll do it with k and then take it through the buffer. Thank you!
  5. milan
    The OverbyteIcsHttpRestTst.dproj sample has a grid titled REST Parameters where i enter Name - "verify" and Value - "true". I need JSON {"verify":true} but method RestParams.GetParameters return {"verify":"true"}. Parameter aRaw make nothing.
  6. milan
    Thank you very much. In the meantime I will set HttpRest.ContentTypePost : = ''; (instead 'application/x-www-form-urlencoded' set from Create) and code in OverbyteIcsSslHttpRest.pas: line 1818 { V8.64 set Json content type if empty } if (Params <> '') and (FContentPost = '') then begin if (Params[1] = '{') or (Params[1] = '[') then FContentPost := 'application/json; charset=UTF-8'; { V8.61 added UTF8 } will come into effect. Milan
  7. milan
    But if it does not take place function GetParams, will stay after THttpCli.Create FContentPost := 'application/x-www-form-urlencoded'; because it will not be replaced: OverbyteIcsSslHttpRest.pas: ... line 1818 { V8.64 set Json content type if empty } if (Params <> '') and (FContentPost = '') then begin if (Params[1] = '{') or (Params[1] = '[') then FContentPost := 'application/json; charset=UTF-8'; { V8.61 added UTF8 } excuse my English Milan
  8. milan
    Thank you and at the same time please: I construct the Json manually, but where to assign in? Milan
×