I tried this code on Windows,Mandriva and fedora. With same results:
"Access violation" or "Project project1 raised exception class 'External: SIGSEGV.'"
Am I missing something?
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, LR_Class, LR_View, IpHtml, Ipfilebroker, PrintersDlgs;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
IpFileDataProvider1: TIpFileDataProvider;
IpHtmlPanel1: TIpHtmlPanel;
PrintDialog1: TPrintDialog;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
printdialog1.execute;
iphtmlpanel1.OpenURL('c:\test3\index.html');
iphtmlpanel1.PrintPreview;
end;
initialization
{$I unit1.lrs}
end.