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.ppI 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
smime.p7s
Description: Κρυπτογραφημένη υπογραφή S/MIME
_______________________________________________ fpc-devel maillist - [email protected] http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
