[fpc-devel] https support; call for testers

[Dimitrios Chr. Ioannidis]

Hi,

Στις 11/5/2014 9:10 μμ, ο/η Michael Van Canneyt έγραψε:
>
>
> On Sun, 11 May 2014, Dimitrios Chr. Ioannidis wrote:
>
>> Hi,
>>
>> Στις 10/5/2014 5:30 μμ, ο/η Michael Van Canneyt έγραψε:
>>>
>>>
>>> On Sat, 10 May 2014, Dimitrios Chr. Ioannidis wrote:
>>>
>>>> Ηι,
>>>>
>>>>> Στις 11/4/2014 4:26 μμ, ο/η Michael Van Canneyt έγραψε:
>>>>>>
>>>> <snip>
>>>>>> But I compiled everything with 2.6.4, and it worked.
>>>>>> You should be able to copy the following units from trunk to your 
>>>>>> projects directory:
>>>>>>
>>>>>> openssl/src/openssl.pas
>>>>>> openssl/src/fpopenssl.pp
>>>>>> fcl-net/src/ssockets.pp
>>>>>> fcl-net/src/sslsockets.pp
>>>>>> fcl-web/src/fphttpclient.pp
>>>>>
>>>>> I already done that and started to test it ...
>>>>>
>>>>> Thx again ...
>>>>
>>>> i'm getting an range check error with not properly configured https 
>>>> sites.
>>>>
>>>> I know that the https infrastructure isn't properly configured but 
>>>> shouldn't the ssl socket raise an error reg. wrong certificate ( or 
>>>> somethink like that ) instead of throw a range check error and of 
>>>> course new mem leaks ?
>>>>
>>>> You can check the following address https://www.zougla.gr ( which 
>>>> is in an akamai ).
>>>
>>> I can't reproduce this. I get a 504 error.
>>
>> i'm still getting range check error but after you fixed bug id 
>> 0026130 i no longer have mem leaks.
>
> Can you post a test program please, or at least a GDB backtrace so I 
> can track the error ?

fpc latest 2.6.x fixes branch and latest lazarus 1.2.3 .

Test program is very simple :

> unit uAppMain;
>
> {$mode objfpc}{$H+}
>
> interface
>
> uses
> Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
>
> type
>
> { TForm1 }
>
> TForm1 = class(TForm)
> Button1: TButton;
> Edit1: TEdit;
> Memo1: TMemo;
> procedure Button1Click(Sender: TObject);
> private
> { private declarations }
> public
> { public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.lfm}
>
> uses
> fphttpclient;
>
> { TForm1 }
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> WebClient: TFPHttpClient;
> begin
> Memo1.Clear;
> WebClient := TFPHttpClient.Create(Nil);
> try
> Memo1.Append(WebClient.Get(edit1.Text));
> finally
> FreeAndnil(WebClient);
> end;
> end;
>
> end.



BackTrace

#0 HANDLEERRORADDRFRAME(201, 0x15ff0dc, 0x2e2f48) at ..\inc\system.inc:962
#1 HANDLEERRORFRAME(201, 0x15ff0dc) at ..\inc\system.inc:992
#2 fpc_rangeerror at ..\inc\system.inc:653
#3 CONNECT(0x2e72a8) at ..\source\ssockets.pp:860
#4 CONNECTTOSERVER(0x3248120, 0x2e2f48 'www.zougla.gr', 443, true) at 
..\source\fphttpclient.pp:449
#5 DOMETHOD(0x3248120, 0x5c28d0 'GET', 0x355e78 
'https://www.zougla.gr/', 0x2e3840, 0x15ff31c, 0) at 
..\source\fphttpclient.pp:932
#6 HTTPMETHOD(0x3248120, 0x5c28d0 'GET', 0x355e78 
'https://www.zougla.gr/', 0x2e3840, 0x15ff31c, 0) at 
..\source\fphttpclient.pp:1030
#7 GET(0x3248120, 0x355e78 'https://www.zougla.gr/', 0x2e3840) at 
..\source\fphttpclient.pp:1066
#8 GET(0x3248120, 0x355e78 'https://www.zougla.gr/') at 
..\source\fphttpclient.pp:1097
#9 BUTTON1CLICK(0x343a28, 0x3448e8) at ..\source\uappmain.pas:53
#10 CONTROLS_TCONTROL_$__CLICK at :0
#11 STDCTRLS_TBUTTONCONTROL_$__CLICK at :0
#12 STDCTRLS_TCUSTOMBUTTON_$__CLICK at :0
#13 STDCTRLS_TBUTTONCONTROL_$__WMDEFAULTCLICKED$TMESSAGE at :0
#14 DISPATCH(0x3448e8, 0) at ..\inc\objpas.inc:592
#15 CONTROLS_TCONTROL_$__WNDPROC$TMESSAGE at :0
#16 CONTROLS_TWINCONTROL_$__WNDPROC$TMESSAGE at :0
#17 LCLMESSAGEGLUE_DELIVERMESSAGE$TOBJECT$formal$$LONGINT at :0
#18 WIN32INT_WINDOWPROC$LONGWORD$LONGWORD$LONGINT$LONGINT$$LONGINT at :0
#19 
WIN32WSFORMS_CUSTOMFORMWNDPROC$LONGWORD$LONGWORD$LONGINT$LONGINT$$LONGINT at 
:0
#20 gapfnScSendMessage at :0
#21 ?? at :0
#22 USER32!GetThreadDesktop at :0
#23 WIN32WSFORMS_ADJUSTFORMBOUNDS$TCUSTOMFORM$RECT at :0
#24 USER32!GetWindow at :0
#25 ?? at :0


regards,

-- 
Dimitrios Chr. Ioannidis

-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/pkcs7-signature
Size: 4261 bytes
Desc: Κρυπτογραφημένη υπογραφή S/MIME
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20140511/bf941620/attachment.bin>