56 lines
1.8 KiB
ObjectPascal
56 lines
1.8 KiB
ObjectPascal
{******************************************}
|
|
{ }
|
|
{ FastReport VCL }
|
|
{ Interface for Browser Components }
|
|
{ }
|
|
{ Copyright (c) 1998-2021 }
|
|
{ by Fast Reports Inc. }
|
|
{ }
|
|
{ }
|
|
{******************************************}
|
|
unit frxBrowser;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls;
|
|
|
|
type
|
|
|
|
TTestURLEvent = function(const URL: String; var Errors: String): Boolean of object;
|
|
|
|
TNavComplete = procedure(const Value: OleVariant) of object;
|
|
|
|
TfrxBrowserClass = class of TWinControl;
|
|
|
|
IfrxWebBrowser = interface(IUnknown)
|
|
['{FAA83A31-6D9B-4C9D-8C3D-A6F8F61F85B8}']
|
|
function GetNavigateHistory : TStringList; stdcall;
|
|
function GetOnDocumentComplet : TNotifyEvent; stdcall;
|
|
function GetOnTestURL : TTestURLEvent; stdcall;
|
|
function GetURL : String; stdcall;
|
|
function GetDocument: IDispatch; stdcall;
|
|
procedure SetNavigateHistory(const Value: TStringList); stdcall;
|
|
procedure SetOnDocumentComplet(const Value: TNotifyEvent); stdcall;
|
|
procedure SetURL(const Value: String); stdcall;
|
|
procedure SetOnTestURL(const Value: TTestURLEvent); stdcall;
|
|
procedure SetOnNavComplete(const Value: TNavComplete); stdcall;
|
|
procedure CloseQuery(var CanClose: Boolean); stdcall;
|
|
procedure NavigateURL(aURL: String); stdcall;
|
|
procedure BrowserConfiguration; stdcall;
|
|
procedure SetListenerPort(const Value: Integer); stdcall;
|
|
procedure SetRedirectURL(const Value: String); stdcall;
|
|
end;
|
|
|
|
var
|
|
frxBrowserGlobal : TfrxBrowserClass;
|
|
|
|
implementation
|
|
|
|
initialization
|
|
frxBrowserGlobal := nil;
|
|
end.
|
|
|