External: SIGSEGV Issue
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
unique · 2014-07-06 12:20

Hi,

i am trying to GET a webpage from internet using this piece of code :

Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, fphttpclient;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  http : TFPHTTPClient;
begin
  http := TFPHTTPClient.Create(nil);
  http.Get('http://www.yahoo.com',memo1.Lines);
  http.Free;
end;

end.  
when i click the button i get :
Project project1 raised exception class 'External: SIGSEGV'

OS : ubuntu 12.04
FPC Ver : 2.6.2

----------------------------------------------------------------------
Mike.Cornflake · 2014-07-06 14:13

Wild guess, pass through your own TStringList instead of using
Memo1.Lines...

----------------------------------------------------------------------
unique · 2014-07-06 14:38

replaced with :
memo1.Lines.Text := http.Get('http://www.yahoo.com');

i get the same error.
the most strange this is about people report this error on windows in
most cases.

strange !

is there anyone on linux to check this for me ?

Regards.

----------------------------------------------------------------------
Leledumbo · 2014-07-06 14:52

2 things:
http://www.yahoo.com will return HTTP 301, which will be thrown as
exception if you don't set AllowRedirect to trueEven if you set
AllowRedirect to true, it then redirects to an address with https
protocol, which requires svn version since the protocol support is
rather new

----------------------------------------------------------------------
unique · 2014-07-06 20:24

Hi,

yeah it is right.
i changed the url and it is working fine !

Thanks