Hi,
Στις 11/5/2014 9:10 μμ, ο/η Michael Van Canneyt έγραψε:
Show quoted text 48 lines
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 :
Show quoted text 50 lines
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
