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

Модераторы
  • Публикации

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

  • Посещение

  • Days Won

    192

Все публикации пользователя Равиль Зарипов (ZuBy)

  1. скидывайте демо-пример, посмотрим
  2. картинку желательно не загружать в базу а складывать в папку на сервере (и лучше всего сжать до нужных размеров) и в базу вписать лишь путь до файла вот мануалчик на пхп http://php.net/manual/ru/features.file-upload.post-method.php на delphi это просто составляем POST запрос aURL - путь до скрипта, который будет принимать файлы aFileName - полный путь до файла, который нужно отправить var aData: TMultipartFormData; aHTTP: THTTPClient; aResp: TStringStream; begin aResp := TStringStream.Create('', aEncoding); aData := TMultipartFormData.Create(); aHTTP := THTTPClient.Create; try try aData.AddFile('image', aFileName); // на php считываем по полю image aHTTP.Post(aURL, aData, aResp); Result := aResp.DataString; // тут скрипт должен что-то вернуть о успешном принятии except Result := TmyHTTPClient.ERROR_COMMON; // генерация своей ошибки, если что-то пошло не так end; finally FreeAndNil(aHTTP); FreeAndNil(aData); FreeAndNil(aResp); end;
  3. единственное что можно сделать, это скрыть его, но тут на вкус и цвет
  4. кстати заметил у тебя Chr(39), это не нужно делать достаточно продублировать апостроф ' icon: ''мой сайт/car-01.png'',' и будет вот так --------------------------- Project1 --------------------------- icon: 'мой сайт/car-01.png', --------------------------- ОК --------------------------- @afors клац
  5. обращайтесь)
  6. там есть TBitmap.HandleAllocated, его нужно использовать
  7. на билдере вроде так TPath::GetDocumentsPath() ну или вот так, чтобы уж наверняка System::IOutils::TPath::GetDocumentsPath()
  8. Я ведь написал что в uses нужно добавить System.IOutils
  9. ничего не убирали, TPath.GetDocumentsPath uses System.IOUtils
  10. boringssl

    Если используется только запросы на основе POST и GET, то использовать нужно T(Net)HTTPClient, проблем не будет на андроиде любых версии
  11. да, T(Net)HTTPClient как раз и работает адекватно на всех платформах при запуске проверить функцией CheckInet, если нету доступа показать окно с прокси
  12. как-то так, но это наверное сложно для понимания) LVStars.rar
  13. точка доступа wi-fi

    вообщем я попробовал, но так и не смог получить ip адрес с точки доступа. может где накосячил
  14. точка доступа wi-fi

    есть то оно есть, но получать нужно по другому. можете потестить сами, скачайте Deviceinfo и запустите точку доступа. айпи адреса не будет а вот как на java это делается http://stackoverflow.com/questions/9573196/how-to-get-the-ip-of-the-wifi-hotspot-in-android
  15. не понятно зачем это понадобилось? если менюшка показана, то у пользователя только один путь - тапнуть чтобы менюшка закрывалась по тапу вне области списка, нужно добавить один элемент со стилем aItem.Style := TfgActionStyle.Cancel;
  16. Ссылка: http://blog.rzaripov.kz/2016/12/3-modernlistview.html Автор: Зарипов Равиль @ZuBy Описание: Реализация динамической подгрузки контента: Бесконечный скроллинг (например как лента в ВК) Паджинация/Пагинация (постраничная загрузка)
  17. Эта статья была для Берлина там есть папка tokyo файлы из нее перенести в проект
  18. Какая версия студии?
  19. чтобы прям кросс, думаю такой код подойдёт function StartGranted: boolean; // uses System.IOUtils begin Result := not TFile.Exists(TPath.Combine(TPath.GetDocumentsPath, 'IamStarted')); TFile.WriteAllText(TPath.Combine(TPath.GetDocumentsPath, 'IamStarted'), ''); end; в dpr пишем begin if StartGranted then begin Application.Initialize; Application.CreateForm(TForm2, Form2); Application.Run; end; end. ну и в дестрое главной формы procedure TForm2.FormDestroy(Sender: TObject); //uses System.IOUtils; begin TFile.Delete(TPath.Combine(TPath.GetDocumentsPath, 'IamStarted')); end; Но это не точно, может есть и аналог mutex'a в MacOS
  20. нету, реестр есть только в Windows сохраняйте в файлы свои конфигурации
  21. ага, посмотрел логом, думаю правильней будет так // ZuBy *** procedure TCustomWebBrowser.FormHandleCreated(const Sender: TObject; const Msg: TMessage); var WBService: IFMXWBService; begin if not(Sender.ClassNameIs('TCustomPopupForm')) then if not(csDesigning in ComponentState) and TPlatformServices.Current.SupportsPlatformService(IFMXWBService, WBService) then begin FWeb := WBService.CreateWebBrowser; FWeb.SetWebBrowserControl(Self); FWeb.UpdateContentFromControl; FWeb.URL := FURL; FWeb.Navigate; end; end; // *** ZuBy не реагировать на создание Попап окон, на формы это не влияет. Сильно не тестил, так что хз.
  22. Ссылка: http://blog.rzaripov.kz/2017/02/firebase-android-ios-2.html Автор: Зарипов Равиль @ZuBy Описание: Настройка пуш уведомлении через сервис Firebase для ANDROID и IOS [Часть 2] В предыдущей части , я рассказывал как сделать настройку пуш уведомления в консоли Firebase, в этой я покажу код на Delphi и серверную часть на PHP https://github.com/rzaripov1990/PUSHTestFCM
  23. Если мне память не изменяет, хендл пересоздается при изменении стиля (sizeble, single, none...) Но какого черта Комбобокс отсылает подобное сообщение я не смотрел
  24. вот залил https://yadi.sk/d/bLqs3l1V3H962e
  25. не понял почему, но перезалил