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

Dmitry Stolyarov

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

    69
  • Зарегистрирован

  • Посещение

  • Победитель дней

    3

Весь контент Dmitry Stolyarov

  1. не исключаю ошибки в формировании JSON.. (опыта нет) сам php: if ($DBResult = mysqli_query($DBLink, $query2)) { $ResultArray = array(); $Index = 0; while ($row = mysqli_fetch_array($DBResult, MYSQLI_ASSOC)){ $ResultArray[$Index] = $row; $Index++; } $ResultJSON = json_encode($ResultArray, JSON_PRETTY_PRINT | JSON_UNESCAPED_UNICODE); echo $ResultJSON; mysqli_free_result($DBResult); } if ($DBResult = mysqli_query($DBLink, $query3)) { $ResultArray = array(); $Index = 0; while ($row = mysqli_fetch_array($DBResult, MYSQLI_ASSOC)){ $ResultArray[$Index] = $row; $Index++; } $ResultJSON = json_encode($ResultArray, JSON_PRETTY_PRINT | JSON_UNESCAPED_UNICODE); echo $ResultJSON; mysqli_free_result($DBResult); } if ($DBResult = mysqli_query($DBLink, $query4)) { $ResultArray = array(); $Index = 0; while ($row = mysqli_fetch_array($DBResult, MYSQLI_ASSOC)){ $ResultArray[$Index] = $row; $Index++; } $ResultJSON = json_encode($ResultArray, JSON_PRETTY_PRINT | JSON_UNESCAPED_UNICODE); echo $ResultJSON; mysqli_free_result($DBResult); } на выходе дает указанный выше формат
  2. Подскажите, пжл, ка разобрать такой JSON: [ { "cities_id": "1", "cities_idpartner": "2", "cities_name": "москва" }, { "cities_id": "2", "cities_idpartner": "2", "cities_name": "москва2" } ][ { "prices_id": "1", "prices_name": "полный прайс", "prices_idpartner": "2", "prices_rub": "1000.00" }, { "prices_id": "2", "prices_name": "многодетные", "prices_idpartner": "2", "prices_rub": "750.00" } ][ ... несколько подобных запрос с разных таблиц в одном JSON
  3. так и не понял.. сертификат поможет или только ждать обновление разработчиков?
  4. откат на xcode версии ниже поможет ?
  5. Dmitry Stolyarov

    XCode 10.14 Majave

    Не могу скомпилировать пустое приложение под OSX Majave SDK 10.14. При компиляции вылетает ошибка и студия закрывается (10.2.2 Tokyo). Подскажите, пжл, как это победить??
  6. ничего не могу понять.. стоял lockbox компилировался под osx. Переустановил.. сейчас только поддержка win32 или я чего не так делаю или качаю lockbox не тот.. подскажите пжл?
  7. Да, решение - сразу сохранять обработанные изображения (с обрезанными углами)
  8. Margins (4) выставлен 2. Нужно чтобы углов у image не было. То есть image “влилась» по рамке rectangle
  9. У rectangle выставлено MustTop, у image Client, пробовал Content. Результат тот же..
  10. Добавил TRectangle в стиль. Поместил Image в Rectangle. При выводе Image выходит за рамки Rectangle. Подскажите, пжл, что делаю не так?
  11. Попробовал запустить демку Berlin 10.2, но получил ошибку : [dcc32 Fatal Error] FMX.ListView.pas(21): F2051 Unit FMX.ListView.Adapters.Base was compiled with a different version of FMX.ListView.Types.TListItem нужно еще какие-то манипуляции провести или я что-то не понял?
  12. у меня не получилось воспроизвести mp4... где необходимо прописатьTMediaCodecManager::RegisterMediaCodecClass... ?
  13. Сайт на Wordpress. Просто не могу найти пример для THTTPClient, хотя бы посмотреть каким образом можно передать параметры (логин и пароль)
  14. имеется ввиду, что пользователь может скачать файл только если зарегистрирован на сайте. Т.е. как я понимаю, необходимо отправить запрос, в котором указаны логин и пароль, и если все ОК, то скачивается файл. Сейчас у меня реализовано простое скачивание без "авторизации". Использую THTTPClient
  15. Кто-ть подскажет... можно как-то авторизоваться используя THTTPClient?
  16. сейчас я использую THTTPClient. Необходимо полностью переписать код на TNetHTTPClient вместо THTTPClient ?
  17. да, справку эту видел... но не понимаю как ее привязать.. делал так, но не работает. procedure TfmMain.NetHTTPClient2AuthEvent(const Sender: TObject; AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName, APassword: string; var AbortAuth: Boolean; var Persistence: TAuthPersistenceType); begin if AnAuthTarget = TAuthTargetType.Server then begin AUserName := 'stdimarik'; APassword := '123456'; end; end; ... FClient.AuthEvent:= NetHTTPClient2AuthEvent; ...
  18. Скачиваю файл через THTTPClient (как реализовано в демке xe 10) ... FClient := THTTPClient.Create; FClient.OnReceiveData := ReceiveDataEvent; ... не могу найти пример с THTTPClient как добавить авторизацию на сайте перед скачиванием файла. подскажите, пжл...
  19. странное поведение MediaPlayerControl ... есть Tabcontrol, на нем лежит MediaPlayerControl. листаю таб через SetActiveTabWithTransition. в итоге если вернутся обратно на вкладку, то на MediaPlayerControl отпечатки других компонентов, которые при перелистывании как бы проехали через него.
  20. Dmitry Stolyarov

    Воспроизвести MP4

    Коллеги, у кого-ть получилось воспроизвести MP4? строка: initialization TMediaCodecManager.RegisterMediaCodecClass('.mp4', 'Mpeg4 Files', TMediaType.Video, TWindowsMediaCodec); ничего не дает... ps: Берлин 10.2
  21. разобрался. намудрил со стилями. Можно закрыть вопрос
  22. т.к. нужна была статическая страница (по сути картинка) , то решил через скрины)
  23. Не могу понять в чем дело.. динамически создаются Tabы и Image внутри табов.. for k := 0 to ... ... Img:= TImage.Create(tabcSlider.Tabs[k]); Img.Name:= 'Img'+IntToStr(k); Img.Parent := tabcSlider.Tabs[k]; Img.Align:= TAlignLayOut.Client; Img.WrapMode:= TImageWrapMode.Center; ... в результате Image вылазит за границы таба... смещается влево что не так?
  24. Добрый день, подскажите, пжл, возможно как-то убрать рамку вокруг twebbrowser ?
×
×
  • Создать...