🚀 go-pugleaf

W dniu środa, 9 maja 2018 15:10:45 UTC+2 użytkownik kons...@wp.pl napisał:
> Czego używacie do pobierania danych z REGONU w Windows10
> 
> ICS ma problemy z DNS
> A indy z ssl (długość klucza)
> 
> function SendData(SessionID: string; Akcja: string; Dane: string; URL: 
> string = URL_service): string;
> var
>    Cli: TIdHttp;
>    SSLContext: TIdSSLIOHandlerSocketOpenSSL;
>    strm: tstringlist;
>    Bytes: TBytes;
>    i, j: Integer;
> begin
>    Cli := TIdHTTP.Create(nil);
>    SSLContext := TIdSSLIOHandlerSocketOpenSSL.Create(Cli);
>    SSLContext.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv23, 
> sslvSSLv3, sslvTLSv1];
>    Cli.IOHandler := SSLContext;
>    try
>      result := '';
>      Cli.Request.Clear;
> ...
>      Cli.Request.Method := 'POST';
>      if SessionID <> '' then
>        Cli.Request.CustomHeaders.Add('Sid: ' + SessionID);
>      strm := TStringList.Create;
>      try
>        try
>          strm.text := Dane;
>        except
>          on E: Exception do
>            ShowMessage('SendData -> strm.text' + #13 + 'DANE ' + #13 + 
> Dane + #13 + E.Message);
>        end;
>        Cli.Response.CharSet := 'UTF-8';
>        try
>          result := Cli.Post(URL, strm);
>        except
>          on E: Exception do
>            ShowMessage('SendData Post Error' + #13 + E.Message);
>        end;
>      finally
>        strm.free;
>      end;
>    finally
>      Cli.IOHandler := nil;
>      Cli.Request.Clear;
>      FreeAndNil(Cli);
>      FreeAndNil(SSLContext);
>    end;
> end;
> 
> 
> Non stop mam Accesviolation w libeay32.dll
> przy wołaniu result := Cli.Post(URL, strm);

Serwus,
Kup wreszcie SecureBlackbox'a, szkoda nerwów na "rzeźbienie" tego typu softu w "czystym" Delphi

Pozdrawiam
---
Roman