Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Благоволите обворожительных шлюх вашего города на интим сайте http://prostitutkijoshkaroly.men, ибо ни одна обычная девушка не сможет вознаградить вам уровень обслуживания, каким владеют престижные шлюхи. | Вы при вожделении постоянно можете найти себе красивую индивидуалку на интим сайте http://kostroma.prostitutki.desi, если у вас нет верной молодой девушки или ваша возлюбленная не удовлетворяет вас как нужно. | Очаровательные шлюхи готовы наслушаться с вами максимально хорошим отдыхом сексуального характера. Они симпатичные индивидуалки будут рады, если вы напишите им в вольное время и порекомендуйте увидеть друг друга.
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.
