Code:

unit Unit1;

 

{©Drkb v.3}

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Readhtml, FramView, FramBrwz, HtmlView;

 

type

TForm1 = class(TForm)

   FrameBrowser1: TFrameBrowser;

   procedure FormCreate(Sender: TObject);

   procedure FrameBrowser1GetPostRequest(Sender: TObject; IsGet: Boolean;

     const URL, Query: String; Reload: Boolean; var NewURL: String;

     var DocType: ThtmlFileType; var Stream: TMemoryStream);

   procedure FrameBrowser1ImageRequest(Sender: TObject; const SRC: String;

     var Stream: TMemoryStream);

public

   BaseDir: string;

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

BaseDir := 'F:\Download\';

FrameBrowser1.LoadURL('file://F:\Download\index.htm');

end;

 

procedure TForm1.FrameBrowser1GetPostRequest(Sender: TObject;

IsGet: Boolean; const URL, Query: String; Reload: Boolean;

var NewURL: String; var DocType: ThtmlFileType;

var Stream: TMemoryStream);

var

S, sType: string;

F: TFileStream;

P: Integer;

begin

S := StringReplace(URL, '|', ':', [rfReplaceAll]);

 

P := Pos(':', S) + 2;

sType := Copy(S, 1, P);

 

Stream := TMemoryStream.Create;

 

if AnsiLowerCase(sType) = 'file://' then

begin

   S := StringReplace(Copy(S, P + 1, MaxInt), '/', '\', [rfReplaceAll]);

 

   F := TFileStream.Create(S, fmOpenRead);

   try

     Stream.CopyFrom(F, F.Size);

   finally

     F.Free;

   end;

end;

end;

 

procedure TForm1.FrameBrowser1ImageRequest(Sender: TObject;

const SRC: String; var Stream: TMemoryStream);

begin

{}

end;

 

end.

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить