Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Создать таблицу ABS (AbsoluteDB)
   Категория: Базы данных
  Удалить лишние символы из строки
   Категория: Текст и строки
  Список ошибок BDE
   Категория: Базы данных
  Вычислить логарифм
   Категория: Математика
  Изменить структуру ABS (AbsoluteDB)
   Категория: Базы данных
  Процедуры и функции для рабты с файлами
   Категория: Файловая система
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки
  Группировка TopAdvGrid
   Категория: Компоненты
Delphi - База Знаний: Загрузка файлов в THTMLViewer и TFrameBrowser

  << Вернуться к Содержанию  

unit Unit1;

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:Downloadindex.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.
  << Вернуться к Содержанию