Равиль Зарипов (ZuBy)

Тема: Создание приложений в FireMonkey для Windows 10 в RAD Studio 10 Seattle Дата и время: 28 октября 2015 года в 12:00 Участники: Денис Васильев Регистрация: ссылка Участие бесплатное Запись вебинара будет доступна здесь: http://www.youtube.com/playlist?list=PLNexYoB7XRWZv-6QviwJzdRKthKuBR_dG
На вебинаре будут рассмотрены новые возможности FireMonkey для создания Windows-приложений; особенности родных и стилизованных компонентов для Windows; особенности работы с Z-ордер; новый режим компонента TMultiView.

Тема: Новые визуальные VCL-компоненты для Windows 10 в RAD Studio 10 Seattle Дата и время: 21 октября 2015 года в 12:00 Участники: Денис Васильев Регистрация: ссылка Участие бесплатное Запись вебинара будет доступна здесь: http://www.youtube.com/playlist?list=PLNexYoB7XRWZv-6QviwJzdRKthKuBR_dG
Вебинар посвящен разбору использования новых VCL-компонентов TActivityIndicator, TSplitView, TRelativePanel, TSearchBox, TToggleSwitch, которые появились в RAD Studio 10 Seattle специально для Windows 10. Работу каждого компонента мы рассмотрим на примерах.

Тема: Возможности RAD Studio 10 Seattle для разработки Windows 10 приложений Дата и время: 7 октября 2015 года в 12:00 Участники: Денис Васильев Регистрация: ссылка Участие бесплатное Запись вебинара будет доступна здесь: http://www.youtube.com/playlist?list=PLNexYoB7XRWZv-6QviwJzdRKthKuBR_dG
Обзор новинок, появившихся в RAD Studio 10 Seattle для разработчиков Windows 10. Рассмотрим, какие теперь возможности доступны для разработчиков VCL-, FMX-приложений и познакомимся с особенностями разработки приложений для Windows 10.

У Floatanimation есть событие Process. В его обработчике пропишите изменение image.position пропорционально увеличению image

Это вопрос, утверждение или предложение?

Ссылка на статью. Автор: Александр Бирюков В статья я максимально подробно попытался описать работу с PHP скриптом для рассылки Push сообщений из любой программы вне зависимости от платформы. Затрагивается вопроса от экспорта скриптов до кода программы: отправка и получение Push, регистрация устройств.
 
Надеюсь кому-нибудь пригодится. Буду рад комментариям, обоснованной критике и доработкам.
 

Мне кажется, проще воспользоваться REST API и получать данные без UI. А дальше уж самому решать, что с ними делать.
https://wordpress.org/plugins/json-rest-api/
 
Я понимаю, что парсить страницу - это универсальное решение, но оно работает ровно до первого изменения шаблона дизайна страницы :-)

RAD Studio 10 Seatlle: обзор продукта
Презентация: RAD Studio 10 Seatlle обзор продукта.pdf Разработка приложений для Windows 10 и новые возможности VCL
Презентация: Разработка приложений для Windows 10 и новые возможности VCL.pdf Новые возможности мобильной разработки приложений
Презентация: Новые возможности мобильной разработки приложений.pdf Пример сервиса: DownloadServiceDemo.zip Эффективное использование среды разработки и компилятора C++
Презентация: Эффективное использование среды разработки и компилятора C++.pdf Взаимодействие приложений и IoT
Презентация: Взаимодействие приложений и IoT.pdf Преодолевая границы: EMS и расширение FireDAC для работы с MongoDB и Средства разработки и управления для разработчиков БД
Презентация: Преодолевая границы EMS и расширение FireDAC для работы с MongoDB.pdf

на счёт яндекса, может позже.
а here у меня уже несколько месяцев работает

Компонент TMapsEngine
 
Возможности
Нативный LocationSensor [ANDROID] Геокодинг/Реверс геокодинг через Google API, Yandex API, Here Maps API Построение маршрута через Google Distance API Расчет дистанции по прямой Совместим со стандартным компонентом TLocationSensor  
Видео демонстрация
 
На видео видно как TMapView косячик с миллионом точек, приложение зависло при отрисовке, но с этим ничего не поделать.
Без синхронизации не возможно отрисовать все точки
 
Исходник
TMapsEngine_source.zip
TMapsEngine_Seattle_10.zip
 
Скачать APK  (долго он там не пролежит, а форум не позволяет загрузить zip размером 7,4 мб )
 

function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var   aJSValue: TJSONValue;   aJSObject: TJSONObject;   aJSArray: TJSONArray;   I, J: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; if Assigned(aJSObject) then begin for I := 0 to aJSObject.Count - 1 do begin aMemo.Lines.Add(aJSObject.Pairs[I].JsonString.Value + '=' + aJSObject.Pairs[I].JsonValue.Value); if aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) is TJSONArray then begin aJSArray := aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) as TJSONArray; if Assigned(aJSArray) then begin for J := 0 to aJSArray.Count - 1 do aMemo.Lines.Add(aJSArray.Items[J].Value); end; end; end; end; end; Result := true; end; JSONParse('{"desc":"Описания...","otdel":["1","12","300"],"manufacturer":"ООО \"Привет\""}', Memo1)

begin fSSL := TIdSSLIOHandlerSocketOpenSSL.Create(fHTTP); fHTTP.IOHandler := fSSL; fHTTP.AllowCookies := True; fHTTP.HandleRedirects := True; end; Указать НУЖНЫЙ тип SSL/TLS и его версию
и если это Windows программа, то надеюсь вы не забыли библиотеки ssl положить вместе с исполнительным файлом
ответ на запрос, проверьте id вашего приложения

function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var   aJSValue: TJSONValue;   aJSObject: TJSONObject;   aJSArray: TJSONArray;   I, J: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; if Assigned(aJSObject) then begin for I := 0 to aJSObject.Count - 1 do begin aMemo.Lines.Add(aJSObject.Pairs[I].JsonString.Value + '=' + aJSObject.Pairs[I].JsonValue.Value); if aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) is TJSONArray then begin aJSArray := aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) as TJSONArray; if Assigned(aJSArray) then begin for J := 0 to aJSArray.Count - 1 do aMemo.Lines.Add(aJSArray.Items[J].Value); end; end; end; end; end; Result := true; end; JSONParse('{"desc":"Описания...","otdel":["1","12","300"],"manufacturer":"ООО \"Привет\""}', Memo1)

function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var   aJSValue: TJSONValue;   aJSObject: TJSONObject;   aJSArray: TJSONArray;   I, J: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; if Assigned(aJSObject) then begin for I := 0 to aJSObject.Count - 1 do begin aMemo.Lines.Add(aJSObject.Pairs[I].JsonString.Value + '=' + aJSObject.Pairs[I].JsonValue.Value); if aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) is TJSONArray then begin aJSArray := aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) as TJSONArray; if Assigned(aJSArray) then begin for J := 0 to aJSArray.Count - 1 do aMemo.Lines.Add(aJSArray.Items[J].Value); end; end; end; end; end; Result := true; end; JSONParse('{"desc":"Описания...","otdel":["1","12","300"],"manufacturer":"ООО \"Привет\""}', Memo1)

function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var   aJSValue: TJSONValue;   aJSObject: TJSONObject;   aJSArray: TJSONArray;   I, J: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; if Assigned(aJSObject) then begin for I := 0 to aJSObject.Count - 1 do begin aMemo.Lines.Add(aJSObject.Pairs[I].JsonString.Value + '=' + aJSObject.Pairs[I].JsonValue.Value); if aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) is TJSONArray then begin aJSArray := aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) as TJSONArray; if Assigned(aJSArray) then begin for J := 0 to aJSArray.Count - 1 do aMemo.Lines.Add(aJSArray.Items[J].Value); end; end; end; end; end; Result := true; end; JSONParse('{"desc":"Описания...","otdel":["1","12","300"],"manufacturer":"ООО \"Привет\""}', Memo1)

function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var   aJSValue: TJSONValue;   aJSObject: TJSONObject;   aJSArray: TJSONArray;   I, J: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; if Assigned(aJSObject) then begin for I := 0 to aJSObject.Count - 1 do begin aMemo.Lines.Add(aJSObject.Pairs[I].JsonString.Value + '=' + aJSObject.Pairs[I].JsonValue.Value); if aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) is TJSONArray then begin aJSArray := aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) as TJSONArray; if Assigned(aJSArray) then begin for J := 0 to aJSArray.Count - 1 do aMemo.Lines.Add(aJSArray.Items[J].Value); end; end; end; end; end; Result := true; end; JSONParse('{"desc":"Описания...","otdel":["1","12","300"],"manufacturer":"ООО \"Привет\""}', Memo1)

это делается так
TLayout = Top\Bottom      TLayout = Center            Button1 = Left\Right            Button2 = Left\Right            Button3 = Left\Right            Button4 = Left\Right            Button5 = Left\Right center_demo.zip

Версия 1.5 (Т.к. исходники предыдущей версии утеряны, было принято решение написать всё заново.)

 
Приложение ориентированно на людей, которые понимают для чего оно предназначено. В противном случае, ошибки, типо неправильного шаблона для имени не избежать. Позже, может быть придумаю, как это всё учесть. Для использования, как минимум, необходимо подготовить файлы, которые планируется занести в файл ресурсов.
  Изменения в версии 1.5: Всё написано заново Добавлена возможность выбирать как определенную папку (с возможностью сканирования подпапок), так и отдельно несколько файлов. Добавлена возможность выбора места сохранения (с возможностью дозаписать новые файлы в старый RC файл) Возможные длительные операции вынесены в отдельные потоки Во время длительных операций осуществляется оповещение в виде AniIndicator'a  
Скачать с Google Drive
 
p.s. Если вы обнаружили баг, то отпишитесь мне, пожалуйста.

оригинальный Mac Pro
 

Не знаю, конечно, как остальным, но как по мне - так ссылка крайне неудачная... Отпадает желание смотреть.

Покупаю компененты от Devart для SQlite и Mysql, неплохие))

Лови ipad estay
https://www.dropbox.com/s/527supdlc565umw/20150923_183759.jpg?dl=0
Только в модуле uDevice на 137 кажись строке для виза отсутствовал энд. Рекомендую поправить иначе не компилится под ИОС.

DeviceInfo - модуль для получения информации о девайсе
Android || Windows || IOS || MAC OS
  

Intel планшет

для Андроида нужно включить разрешения (permission)
Ссылка на GitHub

ip не отображает  {$IF defined(IOS) or defined(MacOs)}   with TUIDevice.Wrap(TUIDevice.OCClass.currentDevice) do   begin     DeviceInfo.diPlatformVer := systemVersion.UTF8String;     DeviceInfo.diDevice := model.UTF8String;     DeviceInfo.diMacAddress := identifierForVendor.UUIDString.UTF8String;     DeviceInfo.diIPAddress := 'not found';     end; <- добавил     // ShowMessage(uniqueIdentifier.UTF8String);     // ShowMessage(identifierForVendor.UUIDString.UTF8String); {$ENDIF}  
при компиляции для mac ругает  что нет файла
[dccosx Fatal Error] uDevice.pas(42): F2613 Unit 'IOSapi.UIKit' not found. 
 
не смог найти