[iOS, Android] Как загрузить html страницу из файла?
uses
{...,} System.IOUtils;
procedure TForm1.Button1Click(Sender: TObject);
const
TEMPORARY_FILE_NAME = 'temp.html';
FORMAT_URL_OPEN_FILE = 'file:///%s';
var
HTMLPage: TStrings;
TemporaryFileName: string;
begin
HTMLPage := TStringList.Create;
try
// Создание контента страницы
HTMLPage.Add( '<!DOCTYPE HTML>' );
HTMLPage.Add( '<html>' );
HTMLPage.Add( ' <head>' );
HTMLPage.Add( ' <title>Local page</title>' );
HTMLPage.Add( ' </head>' );
HTMLPage.Add( ' <body>' );
HTMLPage.Add( ' <p>Page content</p>' );
HTMLPage.Add( ' </body>' );
HTMLPage.Add( '</html>' );
// Кроссплатформенный запрос на получение места хранения временных файлов
TemporaryFileName := TPath.Combine( TPath.GetTempPath, TEMPORARY_FILE_NAME );
// Сохраняем страницу во временный файл
HTMLPage.SaveToFile( TemporaryFileName );
// Загружаем файл в браузере
WebBrowser1.URL := Format( FORMAT_URL_OPEN_FILE, [TemporaryFileName] );
finally
HTMLPage.Free;
end;
end;
|