Перейти к содержанию
Fire Monkey от А до Я

Лидеры

  1. Brovin Yaroslav

    Brovin Yaroslav

    Администраторы


    • Баллы

      3

    • Постов

      2 124


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

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

    Модераторы


    • Баллы

      2

    • Постов

      2 517


  3. haword

    haword

    Пользователи


    • Баллы

      2

    • Постов

      533


  4. ElenaS.

    ElenaS.

    Пользователи


    • Баллы

      2

    • Постов

      28


Популярный контент

Показан контент с высокой репутацией 29.01.2016 во всех областях

  1. Brovin Yaroslav

    FGX - Donate - QIWI

    Вроде сделал: FGX - Donate - QIWI: 4890 4941 7671 0929
    2 балла
  2. Привет Всем! Решил поделится впечатлениями по работе с SuperObject'ом и родным JSON'ом тест был файла с 2000+ объектами в JSON файле структура файла была такая { "status":"OK", "last_id":"711", "objects":[ { "obj_id":"1", "obj_acc_id":"1", "obj_cat_id":"24", "obj_title":"13 магистраль", "obj_descr":"ЖК представляет собой комфортный дом, состоящий из 14 блок-секций (подъездов). Расположен в перспективном развивающемся районе по 13 Магистрали с удобным выездом как на левый берег, так и в старую часть города. Вблизи Жилого комплекса распологается новая школа, парк отдыха и культуры.", "obj_address":"ул. Мамышулы - 104, д. 16\/1", "obj_address2":null, "obj_url":"3fa07dd73be072b049529c80c7d74732", "obj_planet":"1", "obj_country":"1", "obj_region":"1", "obj_city":"292", "obj_lat":"51.141", "obj_lon":"71.4835", "obj_insert_dt":null, "obj_update_dt":null, "obj_editted":"0", "obj_updated":"0", "obj_deleted":"0", "obj_showed":"1", "obj_rating":"0", "obj_pro_top":"0", "obj_pro_selected":"0", "obj_pro_unix_dt":"0", "obj_partner":"0", "obj_parent_id":"0", "obj_has_child":"0", "obj_currency":"0" }, // тут далее 2000+ объектов ] } SuperObject Время выполнения: ~01:393 JSON родной Время выполнения: ~01:690 разница не особо ощутима, тем более если будет меньше объектов JSON родной function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var aJSValue: TJSONValue; aJSObject, aJSObjArr: TJSONObject; aJSArray: TJSONArray; I: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; aMemo.Lines.Add('status: ' + aJSObject.GetValue('status').Value); if aJSObject.GetValue('status').Value = 'OK' then begin Result := true; if Assigned(aJSObject) then begin aJSArray := aJSObject.GetValue('objects') as TJSONArray; if Assigned(aJSArray) then begin Result := true; aMemo.Lines.Add('last_id: ' + aJSObject.GetValue('last_id').Value); aMemo.Lines.Add('count: ' + aJSArray.Count.ToString); for I := 0 to aJSArray.Count - 1 do begin aJSObjArr := aJSArray.Items[I] as TJSONObject; if Assigned(aJSObjArr) then begin aMemo.Lines.Add(aJSObjArr.GetValue('obj_id').Value + ',' + aJSObjArr.GetValue('obj_acc_id').Value + ',' + aJSObjArr.GetValue('obj_cat_id').Value); aMemo.Lines.Add(aJSObjArr.GetValue('obj_title').Value); aMemo.Lines.Add(aJSObjArr.GetValue('obj_descr').Value); aMemo.Lines.Add(aJSObjArr.GetValue('obj_address').Value); aMemo.Lines.Add(aJSObjArr.GetValue('obj_url').Value); end; end; end; end; end; aJSValue.Free; end; end; SuperObject function JSONSOParse(const aJSONData: string; const aMemo: TMemo): boolean; var xObject: ISuperObject; xCount, I: integer; sfmt: string; begin Result := false; xObject := SO(aJSONData); aMemo.Lines.Add('status: ' + xObject['status'].AsString); if xObject['status'].AsString = 'OK' then begin Result := true; xCount := xObject['objects'].AsArray.Length; aMemo.Lines.Add('count: ' + xCount.ToString); aMemo.Lines.Add('last_id: ' + xObject['last_id'].AsInteger.ToString); for I := 0 to xCount - 1 do begin aMemo.Lines.Add(xObject['objects[' + I.ToString + ']."obj_id"'].AsInteger.ToString + ',' + xObject['objects[' + I.ToString + ']."obj_acc_id"'].AsInteger.ToString + ',' + xObject['objects[' + I.ToString + ']."obj_cat_id"'].AsInteger.ToString); aMemo.Lines.Add(xObject['objects[' + I.ToString + ']."obj_title"'].AsString); aMemo.Lines.Add(xObject['objects[' + I.ToString + ']."obj_descr"'].AsString); aMemo.Lines.Add(xObject['objects[' + I.ToString + ']."obj_address"'].AsString); aMemo.Lines.Add(xObject['objects[' + I.ToString + ']."obj_url"'].AsString); end; end; end; Разница ощутима когда пишешь код, SO намного легче читать Подробней почитать и скачать SO
    1 балл
  3. После нескольких звонков в наш офис, мы узнали, что некоторые гос. структуры (соцстрах, пенсионный фонд) выдают пользователям документы в .fp3, и эти пользователи были озадачены: просматривать их было нечем. Такую несправедливость вынести мы не смогли и выпустили новый просмотрщик для готовых отчетов. FR Viewer может просматривать/печатать файлы .fp3. В этом формате работают сразу два наших продукта: FastReport VCL и FastReport FMX. Но если с VCL просмотрщик работал и до этого, то FMX до этого момента просматривать было нечем. Viewer автоматически определяет версию .fp3 между VCL/FMX и запускает соответствующий просмотр. Доступен для платформ Windows и MacOS и абсолютно бесплатен. Скачать можно тут: https://www.fast-report.com/en/download/fast-report-viewer/
    1 балл
  4. по моему победил сию беду. нужно что бы в базе была таблица android_metadata CREATE TABLE "android_metadata" ("locale" TEXT) INSERT INTO "android_metadata" VALUES ('ru_RU') и в английской локали нормально видны русские буквы из базы.
    1 балл
  5. Так если нашел, выкладывай. Сделай то, что просишь сделать других
    1 балл
  6. Может пригодится кому нибудь: procedure TForm1.Button1Click(Sender: TObject); begin MapView1.Snapshot(SnapshotReady); end; procedure TForm1.SnapshotReady(const Bitmap: TBitmap); begin Image1.Bitmap.Assign(Bitmap); end;
    1 балл
  7. Тему создал специально, чтобы не засоряли другую. Все сообщения перенёс. Исходная тема: Как решить проблему с кодировкой на Android
    1 балл
  8. Хороший вопрос Планируется. Но более подробно пока ничего сказать не могу
    1 балл
  9. Rusland

    Rad Studio лаги

    Вот этот HotFix установить нужно после апдейта )
    1 балл
  10. Официальный сайт: http://www.sensomusic.org/ Автор: Sensomusic Ссылки на приложение: http://www.sensomusic.org/download.php
    1 балл
  11. то есть за тебя написать программу и отдать тебе исходники?
    1 балл
  12. а что именно не понятно? 1) создаём mEngine := TMapsEngine.Create; 2) указываем что будем использовать mEngine.SetOptionsYandex(''); mEngine.SetOptionsGoogle(GoogleAPI); mEngine.SetOptionsHere(HereAPI, HereAPP); 3) получаем данные по координатам mEngine.Geocoding(myCoordLoc, myGeoLoc); 4) получаем координаты по адресу mEngine.GeocodingReverse(myGeoLoc, myCoordLoc); 5) отрисовать маршрут mEngine.SetOptionsGoogleDistance(GoogleDistance); // тут !!distance!! api_key google mEngine.GoogleDistance(myCoordLoc, myCoordTap, myRoutePoints, myRouteInfo); // данные о маршруте Примера нет, т.к. я уже им не пользуюсь (из-за android 6.0, в нём нет поддержки open-ssl на которых работает indy)
    1 балл
  13. AquaGraphite стиль для VCL, в нем нету Scale'ов, Ani индикаторов, и т.д. если нужен VCL стиль для Десктопных приложений, тогда не стоит проверять на FireMonkey.
    1 балл
Эта таблица лидеров рассчитана в Москва/GMT+03:00
×
×
  • Создать...