forum.clarionlife.net

Код: Выделить всё

LoadFileHTTP         PROCEDURE  (LocalFile_,URL_,xIndicator_)

TCurlHTTPClassEx  Class(TCurlHTTPClass),Type
XFerInfo            PROCEDURE(REAL dltotal, REAL dlnow, REAL ultotal, REAL ulnow), LONG, DERIVED
                  end
MyCurl            TCurlHTTPClassEx

  Code
  MyCurl.Init()
  ...
  CurlRes = MyCurl.ReadFile(URL_, LocalFile_)
  ... ! Обработка ошибок и завершение
  
  ! --- Собственно переопределение индикации загрузки

TCurlHTTPClassEx.XFerInfo  PROCEDURE(REAL dltotal, REAL dlnow, REAL ultotal, REAL ulnow)

  Code

  If xIndicator_ > 0

     If dlnow
        If dltotal           
           xIndicator_{Prop:Progress} = dlnow * 100 / dltotal
        else
           xIndicator_{Prop:Progress} = dlnow / 1000
        end
     end
  end

  RETURN 0

Код: Выделить всё

Proc1 PROCEDURE(), LONG

Код: Выделить всё

  Proc1()   !- вместо ret = Proc1()

Код: Выделить всё

XFerInfo                        PROCEDURE(REAL dltotal, REAL dlnow, REAL ultotal, REAL ulnow), LONG, PROC, VIRTUAL

Код: Выделить всё

curl.SetOpt(CURLOPT_POSTFIELDS, 'Двоичное DER-представление X.509-сертификата пользователя')
curl.SetOpt(CURLOPT_POSTFIELDSIZE, LEN(CLIP('Двоичное DER-представление X.509-сертификата пользователя')))

Код: Выделить всё

sCertFile  STRING(256), AUTO
sCertType STRING(20), AUTO
  sCertFile = 'estcert.pem'
  sCertType = 'PEM'
  curl.SetOpt(CURLOPT_SSLCERT, sCertFile)
  curl.SetOpt(CURLOPT_SSLCERTTYPE, sCertType)

Код: Выделить всё

DecodeStr            PROCEDURE(*string sIn)

c2        STRING(16)
c3        CSTRING(16)
c4        CSTRING(16)
sOut      &CSTRING

Blength   LONG
Slength   LONG
  CODE
  Blength = len(clip(sIn)) + 100
  sOut &= NEW(CSTRING(Blength))
  clear(sOut)
  loop 
    i# += 1
    if len(clip(sIn)) < i# then break.
    case sIn[i#]
    of '\'
      if len(clip(sIn)) < i#+1 then break.
      case sIn[i#+1]
      of 'b'
        sOut = sOut &'<08>'
      of 't'
        sOut = sOut &'<09>'
      of 'n'
        sOut = sOut &'<10>'
      of 'f'
        sOut = sOut &'<12>'
      of 'r'
        sOut = sOut &'<13>'
      of 'u'
        clear(c2)
        c3 = sub(sIn,i#+4,2)
        ccc1# = strtol(c3,ccc2#,16)
        c2[1] = chr(ccc1#)
        c3 = sub(sIn,i#+2,2)
        ccc1# = strtol(c3,ccc2#,16)
        c2[2] = chr(ccc1#)

        c3 = all('<0>',size(c3))
        c4 = all('<0>',size(c4))

        c4 = clip(c2)
        Blength = size(c4)
        Slength = size(c3)
        RetCode# = winapi::WideCharToMultiByte (1251, 0, address(c4), Blength, address(c3), Slength, 0, 0)
        sOut = sOut & clip(c3)

        i#+= 4
      else 
        sOut = sOut & sIn[i#+1]
      end 
      i#+= 1
    else 
      sOut = sOut & sIn[i#]
    end 
  end
  sIn = sOut
  dispose(sOut)