rareMax
-
Постов
553 -
Зарегистрирован
-
Посещение
-
Победитель дней
35
Весь контент rareMax
-
How to use As follows, it can use like TWebBrowser of iOS /Android. uses FMX.WebBrowserEx; type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private FWebBrowser: TWebBrowserEx; end; procedure TForm1.FormCreate(Sender: TObject); begin FWebBrowser := TWebBrowserEx.Create(Self); FWebBrowser.Parent := Panel1; FWebBrowser.Align := TAlignLayout.Client; end; procedure TForm1.Button1Click(Sender: TObject); begin FWebBrowser.URL := 'http://www.embarcadero.com/'; // As follows, WebBrowserEx can also read a HTML-String. FWebBrowser.LoadFromStrings('<html><body>Hello WebBrowser!</body></html>', ''); end; As follows, WebBrowserEx can use JavaScript procedure TForm1.Button2Click(Sender: TObject); var Value: String; begin // JavaScript function "foo" needs Two-Arguments. FWebBrowser.CallJS('foo', [Param1, Param2]); // TWebBrowserEx can call with TWebBrowser default style. FWebBrowser.EvaluteJavascript('alert("Delphi!")'); // TWebBrowserEx take a Value of HTML Tags. // If following tag exists, // <input type="text" id="bar" value="" /> // ↓ can taking id of bar's attribute value. Value := FWebBrowser.GetTagValue('bar', 'value'); end; -
А на 2015 я думаю через пару месяцев распишут стратегию)
- 4 ответа
-
- 1
-
-
Попробуй использовать работу с вк без защищенного протокола. Правда придется добавлять в конец подпись(Sig).
-
Подскажите, как правильно проверить, есть ли папка на FTP сервере? Сейчас делаю так: function TFTP_As.FtpPathExist(Path: String): boolean; begin Result := false; try fFtp.MakeDir(Path); except Result := true; end; end; Но при большом кол-ве папок тяжело отлаживать программу - уж слишком много except"ов. Можно ли как-то иначе сделать эту проверку? Спасибо.
-
TWebBrowser.7z - iOS+Win+MacOS+Android
-
Firemonkey - это будущее, ведь только лет через 5 приложения на fmx будут работать без лагов
-
Можете приложить минимальное пустой проект с такой ошибкой? Добавленно: Упс, не eвидел что в форуме iOS тема создана. Тут я безсилен
-
Добрый вечер! Суть проблемы: Есть компонент у меня на базе TEdit - TSearchEdit = class(TEdit). Вот в нем используются методы предка(TEdit) - procedure DoChangeTracking; override; и procedure Change; которые в XE6 работали. Попробовал установить компонент для XE7 - пишет что нет этих методов. Их куда то перенесли или переименовали? Как привести класс в рабочее состояние? Спасибо.
-
Необходимо распарсить JSON в котором есть массив. Искал в интернете - но там для сторонних библиотек. Вот сам объект в котором есть массив: { "Version": "1", "Charset": "UTF-8", "Variables": { "cookiepre": "1ati_2132_", "auth": "2ab39ybBCy0KypS2Sh6Ey5facuaHGKSG/9uhrV0JHzcirqQX+fl2nFUErSIpvOwZJuGURxqrJ9arNTPGkIiZ", "saltkey": "C6bK667j", "member_uid": "3", "member_username": "Maximum", "groupid": "2", "formhash": "e2b42ccc", "ismoderator": null, "readaccess": "150", "notice": { "newpush": "0", "newpm": "0", "newprompt": "0", "newmypost": "0" }, "list": [ { "uid": "5", "username": "Player" }, { "uid": "12", "username": "RaR" }, { "uid": "29", "username": "prlzrak" }, { "uid": "63", "username": "Leemur" } ], "count": "4" } } Вот тут мне надо помощь с парсингом list.
-
Как раз то что надо. Спасибо!
-
Всем привет. Можно ли не зная имени элемента в структуре JSON - определить тип(объект, массив, значение, строка или число) зная только его индекс. Спасибо
-
А нативность, в некоторых случаях, не урезает функциональность на определенной платформе?(Ведь ОС разные - и возможности контролов для разных осей тоже разные)
-
Для андроида, как я понимаю, нужны libeay32.so ssleay32.so да? Что-то у меня проблема с поиском библиотек для Android :-(
-
В Xe7 пародия. Ждите в версиях XE9/10
-
Приветствую! Пишу компоненты для работы с VK API. Там все операции(рекомендовано) с АПИ проходят по защищенному соединению. Интересует можно ли использовать в приложении для Android idHttp по защищенному протоколу SSL. В Windows необходимо было таскать Dll'ку с приложением. Что делать если будет разработка не только для Windows? Спасибо.
-
Добрый день. Не совсем пойму как в XE6 можно использовать Drag and Drop файлов на контролы формы. Делаю так: Ложу TListBox на форму. Далее в событии DragOver пишу: но почему то при перетаскивании файла на компонент мышь не меняет форму. Если тоже самое сделать с TDropTarget - то он отлично работает. Демо: http://ovrload.ru/t/26149_demo.zip
-
procedure TForm16.FormResize(Sender: TObject); const C_FORM_MIN_H = 100; // минимальная высота C_FORM_MIN_W = 100; // минимальная ширина begin if Self.Height < C_FORM_MIN_H then Self.Height := C_FORM_MIN_H; if Self.Width < C_FORM_MIN_W then Self.Width := C_FORM_MIN_W; end;
-
попробуйте в событии OnResize устанавливать нужные вам размеры формы
-
В общем извинения за лишний кипишь - все дело было в просмотрщике изображений, он сильно искажал изображение. Когда же распечатали скрины - все отлично получилось.
-
ща вечерком еще раз перепроверю все, спасибо за ответ!
-
Класс TLang смотрели? Интересно годен он для работы или нет
-
Добрый день. Можно ли улучшить качество отрисовки приложения на fmx в Windows? Появилась необходимость в распечатке интерфейса моего приложения на листе A1, но после скрина программы - наблюдается плохое кач-во изображения. Сразу думал что дело в том что у меня сравнительно не большое разрешение экрана. Нашли большой монитор - проблема та же. Решили заскринить другое приложение, напиcаное не на fmx - проблема не наблюдается. Далее пробывал в режиме дизайна указать свойство формы Quality = HighQuality. Изменений нет. Можно ли повлиять на такое поведение программы? Очень срочно нужна ваша помощь, спасибо за внимание.
-
TComponent - одинаковый класс как для ВЦЛ так и для ФМХ(если не ошибаюсь). Поэтому попробуйте поискать нужную инфу для ВЦЛ.