🚀 go-pugleaf

W dniu 10-05-2018 o 08:29, Tomek D pisze:
> W dniu 09.05.2018 o 15:10, konsul41@wp.pl pisze:
>> Czego używacie do pobierania danych z REGONU w Windows10
>>
>> ICS ma problemy z DNS A indy z ssl (długość klucza)
>>
> 
> XE6 THTTPRIO - w tej wersji, o ile pamiętam, korzysta z bibliotek 
> systemowych i nie wymaga OpenSSL.
> 
> Tomek D.
> 

Próbuje na XE10.2

i rzeczywiście nie wymaga.


Ale mam inny problem

robię dll
z jedną funkcją

function SendData(SessionID, Akcja, Dane, URL: String): UTF8String; stdcall;
var
   Cli: TIdHttp;
   strm: tStringlist;
   Bytes: TBytes;
   i, j: Integer;
begin
   Cli := TIdHTTP.Create();
   try
     result := '';
     Cli.Request.Clear;
     Cli.HTTPOptions := [];
     Cli.Request.CharSet := 'UTF-8';
     Cli.Request.ContentType := 'application/soap+xml';
     Cli.Request.Method := 'POST';
     if SessionID <> '' then
       Cli.Request.CustomHeaders.Add('Sid: ' + SessionID);
     strm := TStringList.Create;
     try
       strm.text := Dane;
       Cli.Response.CharSet := 'UTF-8';
       result := Cli.Post(URL, strm);
     finally
       strm.free;
     end;
   finally
     Cli.Free;
   end;
end;

Jest to funkcja odpowiedzialna za wysyłania żądań do serwera
I teraz jeżeli użyję tej funkcji w applikacji (ciało funkcji w 
applikacji) to wszystko działa ok, jeżeli ciało tej funkcji znajduję się 
w dll i jest zaimportowany do EXE w taki sposób

function SendData(SessionID, Akcja, Dane, URL: String): UTF8String; 
stdcall; external 'NipyDLL.dll';

czyli statycznie to przy drugim i każdym następnym dostaję 
AccesViolation w linii

Cli := TIdHTTP.Create();
Jeżeli dołożę

     Cli.Request.Free;
     Cli.Response.Free;
     Cli.Free;
zamiast samego
     Cli.Free;
To wiesza mi się na zwalnianiu obiektu Cli: TIdHttp;

Czy ktoś miał takie problemy?