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

zairkz

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

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

  • Посещение

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

    12

Активность репутации

  1. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в А как хочется что бы Delphi опять стал «Первым в мире».   
    вы не правы:
    1) клиент - серверное решение - и клиент и сервер написаны на делфи! (а у делфи нет линукс поддержки, т.е. нет кроссплатформенности)
    2) про БД я не говорил, оно тут не причем
    3) трехзвенка имеет много плюсов, но эта не та тема чтобы здесь это обсуждать
     
  2. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в А как хочется что бы Delphi опять стал «Первым в мире».   
    ну делфи как все RAD сокращает время на создание приложения, с этим не поспоришь. А на счёт скорости, компилирование под WIn - да чудо, об остальном помолчим. быстродействие опять же на Win отличное, а на остальном он "чуток" не в своей тарелке (как и все RAD, т.к. работают через JVM и разные прослойки)
  3. Like
    zairkz отреагировална kami в А как хочется что бы Delphi опять стал «Первым в мире».   
    С этим никто и не спорит.
    Немного утрируя - вы предлагаете сказать разработчикам Embarcadero "ребята, поживите годик без зарплаты, зато мы восстановим популярность и вот тогда всё выплатим"?
    Простите за резкие высказывания, но я со своего дивана тоже могу говорить, как надо управлять государством. Еще раз повторюсь, в управлении Embarcadero сидят не дураки. Там люди, умеющие считать деньги. Как "деньги сейчас" так и "что у нас будет с деньгами в перспективе". И очень может быть, что снизить цену просто не позволяет текущее финансовое состояние компании.
    Вот за такие факторы я и говорил. Ни вы, ни я, и никто кроме руководства компании не видит полной картины. Поэтому говорить "снизьте цену и через полгода все станет классно, это единственный выход" с вашей стороны как минимум опрометчиво.
    О, да. Как кодер по вашей классификации - снимаю шляпу перед вами, настоящим разработчиком.
     
    Увы - у меня их нет. Я просто не могу и не буду ничего советовать, если не имею всех исходных данных и соответственно - не могу просчитать влияние планируемых шагов на дальнейшую жизнь компании. И вам не советую.
  4. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Вылетает приложение для Андроид   
    он извлекает из деплоймента файлы
  5. Like
    zairkz отреагировална Fedor K в TNotificationCenter. Можно ли изменить иконку?   
    Чтобы не лезть в исходники, можно сделать так для Android:
    1. В Deployment : добавляешь нужную картинку X.png и устанавливаешь у картинки "Remote Path" "res\drawable\";
    2. В коде перед созданием уведомления добавляешь:
    const IMAGE = 'drawable/X'; //расширение картинки не указывается var lId : Integer; begin lId := TAndroidHelper.Context.getResources().getIdentifier( StringToJString(IMAGE), StringToJString('drawable'), TAndroidHelper.Context.getPackageName); TAndroidHelper.Context.getApplicationInfo.icon := lId; //именно отсюда потом берется Id картинки для локального уведомления *Проверял на Android 4.4, в более поздних версиях могут быть различия, версия IDE =  Delphi 10 Seattle.
    **В прошивках типа MIUI код выше может не работать из-за жестокого кеширования.
  6. Like
    zairkz отреагировална AngryOwl в Использование своего шрифта под Windows   
    В общем можно сделать, конечно, установку шрифта в инсталлере программы. И это будет оптимальным решением.
    Но можно обойтись и без него.
    Не буду расписывать детали, просто закину приложение и фрагменты кода. Думаю разберетесь. Естественно изменив на свои шрифты и т.п.
    Все нижеперечисленное - в файл проекта DPR, перед Application.Initialize;
    const CKey = '\Software\Microsoft\Windows NT\CurrentVersion\Fonts'; CFontFileName = 'spherelive.ttf'; CFontName = 'spherelive (TrueType)'; procedure ExecuteWait(const sProgramm: string; const sParams: string = ''; fHide: Boolean = false); var ShExecInfo: TShellExecuteInfo; begin FillChar(ShExecInfo, sizeof(ShExecInfo), 0); with ShExecInfo do begin cbSize := sizeof(ShExecInfo); fMask := SEE_MASK_NOCLOSEPROCESS; lpFile := PChar(sProgramm); lpParameters := PChar(sParams); lpVerb := 'open'; if (not fHide) then nShow := SW_SHOW else nShow := SW_HIDE end; try if (ShellExecuteEx(@ShExecInfo) and (ShExecInfo.hProcess <> 0)) then try WaitForSingleObject(ShExecInfo.hProcess, INFINITE) finally CloseHandle(ShExecInfo.hProcess); end; except On E : Exception do ShowMessage('font install Exception: ' + E.Message); end; end; if not IsFontRegistered(TPath.Combine(ExtractFilePath(ParamStr(0)), CFontFileName), CFontName) then if FileExists(TPath.Combine(ExtractFilePath(ParamStr(0)), 'RegFontC.exe')) then ExecuteWait(TPath.Combine(ExtractFilePath(ParamStr(0)), 'RegFontC.exe')); Application.Initialize; Где будет лежать файл со шрифтом - это уже ваше дело. Можно его куда угодно поместить. Хоть в ресурсы, хоть файлом просто, хоть с инета скачать.
    P.S. Ну и конечно - это все именно под винду...
    RegFont.zip
  7. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Прокрутка формы   
    положить все контролы в TPresentedScrollBox
  8. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в GCMIntentService или Multiline Push and Local Notification   
    оффтоп: в чем смысл, на форуме не по инвайту регистрируются. сделаю тест-акк и заберу бесплатно...
    будут проблемы в реалиации пишите, возможно решим их вместе
  9. Like
    zairkz получил реакцию от AngryOwl в Получение результата голосового распознавания   
    Компонент надо установить только под 32-bit windows->compile->install
    А для компиляции проекта надо чтобы в папке проекта лежали выше указанные файлы.
  10. Like
    zairkz получил реакцию от AngryOwl в Получение результата голосового распознавания   
    Упс, не забудьте добавить SpeechRecognition.pas' добавить в проект и в папку с проектом скопировать файлы android.speech.SpeechRecognizer.pas, Androidapi.JNI.Speech.pas, AndroidTTS.pas
  11. Like
    zairkz получил реакцию от Rusland в Получение результата голосового распознавания   
    Компонент надо установить только под 32-bit windows->compile->install
    А для компиляции проекта надо чтобы в папке проекта лежали выше указанные файлы.
  12. Like
    zairkz получил реакцию от Rusland в Получение результата голосового распознавания   
    Упс, не забудьте добавить SpeechRecognition.pas' добавить в проект и в папку с проектом скопировать файлы android.speech.SpeechRecognizer.pas, Androidapi.JNI.Speech.pas, AndroidTTS.pas
  13. Like
    zairkz получил реакцию от Равиль Зарипов (ZuBy) в Получение результата голосового распознавания   
    Упс, не забудьте добавить SpeechRecognition.pas' добавить в проект и в папку с проектом скопировать файлы android.speech.SpeechRecognizer.pas, Androidapi.JNI.Speech.pas, AndroidTTS.pas
  14. Like
    zairkz получил реакцию от Равиль Зарипов (ZuBy) в Получение результата голосового распознавания   
    Компонент надо установить только под 32-bit windows->compile->install
    А для компиляции проекта надо чтобы в папке проекта лежали выше указанные файлы.
  15. Like
    zairkz отреагировална sinuke в Анимация нажатия   
    тоже интересно узнать, как убрать этот эффект
     
    добавлено чуть позже:
    разобрался. нужно было убрать этот эффект на итэмах ListBox'а. Нашел стиль listboxitem и удалил у него ActiveStyleObject.

  16. Like
    zairkz отреагировална krapotkin в Как нормально установить Berlin?   
    уже более 10 лет я не ставлю крупные программы, особенно делфи и SDK по путям производителей
    началось это тогда, когда выяснилось, что имена файлов длиннее 255 и среда просто не справляется с ними. а если там кириллица, то шеф, усё пропало....
    лучше ставить в корень. SDK ставить отдельно. тоже в корень. а потом просто показать делфи, где они лежат...
  17. Like
    zairkz отреагировална Евгений Корепов в Как нормально установить Berlin?   
    Самое смешное что у меня для таких случаем настроена переменная среды окружения TEMP=D:\Temp\System_Temp\, но видимо писатели не стали парится с их использованием, а написали нечто вроде Куда_срем := Папка_профиля + 'AppData\Local\Temp';
    Установить в итоге удалось выделив на системном около 45 гигов. Но мусор на системном диске остался, буду разбираться как его переносить. Интересно, хоть кто нибудь пишет проекты в папке профиля Documents\Embarcadero\Studio\Projects, по станной задумке эмбаркадеры? Нужно больше вложенных папок! Глубже, еще глубже! Все еще не достаточно глубоко! ;-)
    С трудом нашел Android SDK C:\Users\Public\Documents\Embarcadero\Studio\18.0\CatalogRepository\AndroidSDK-24.3.3_GIB.Build.22858.6822, хотя не уверен что это используемая средой копия, слишком мало вложенных папок, нужно копать глубже ;-)
  18. Like
    zairkz отреагировална Евгений Корепов в Как нормально установить Berlin?   
    Получил сегодня ключи от Берлина, на радостях начал установку. Как и у многих, конфигурация типичная - SSD 128Gb в качестве системного, и большой HDD в качестве рабочего. На SSD было 20 гигов свободного места, студию естественно устанавливал в D:\Embarcadero\Studio\18.0.
    Установка закончилась падением винды. Убогий установщик Берлина засрал системный диск полностью, распихав по системному диску 30 гигов мусора и обрушил систему. Посмотреть бы в глаза разработчику этого убожества. Почему нельзя ставить студию туда куда указано? Для чего такой кривой интерфейс установщика, скрин прилагаю, надеюсь ниже обезанного пункта в списке ничего нет что мне понадобится. Почему нельзя использовать Application.ProcessMessage для долгих операций, чтоб винда по нескольку раз не говорила что приложение не отвечает, давай ее убъем. Пока складывается ощущение что я выкинул 54 тысячи на ветер, если среда исполнена теми же авторами, то чувствую весь ад еще впереди.

  19. Like
    zairkz отреагировална Rusland в Дорожная карта   
    В 2017  
    еще пока даже апдейты Берлина не выпустили, когда им успеть новую версию выпустить
  20. Like
    zairkz получил реакцию от Manfred в Получение результата голосового распознавания   
    Если еще актуально:
    Установил компонент SpeechRecognition1 (во вложении)
    Накидываю на форму компонент TSpeechRecognition из панели компонентов
    в нем имеются свойства(у меня следующие):
    AlwaysGuesses: true; Language: ru-RU; Prompt: Пожалуйста скажите ЧЕ нибудь! Объявите глобально FSpeech: TStrings; является своего рода посредником передачи данных иначе все глючит) Теперь при необходимости вызывайте SpeechRecognition1.ListenFor(FSpeech); появится окно обработки голоса Далее в компоненте обработчике OnRecognitionEx прописываем куда распознанный текст должен попасть   Edit1.Text := Guesses[0]; Ссылка на источник http://delphi.org/2014/10/voice-enable-your-android-apps/ но кажись сейчас можно скачать только Триал версию, а во вложении полная версия (да простят меня Боги!), демки там есть, а также примеры для перевода текста в голос.
    Speech.zip
  21. Like
    zairkz получил реакцию от Александр Жевлаков в Получение результата голосового распознавания   
    Если еще актуально:
    Установил компонент SpeechRecognition1 (во вложении)
    Накидываю на форму компонент TSpeechRecognition из панели компонентов
    в нем имеются свойства(у меня следующие):
    AlwaysGuesses: true; Language: ru-RU; Prompt: Пожалуйста скажите ЧЕ нибудь! Объявите глобально FSpeech: TStrings; является своего рода посредником передачи данных иначе все глючит) Теперь при необходимости вызывайте SpeechRecognition1.ListenFor(FSpeech); появится окно обработки голоса Далее в компоненте обработчике OnRecognitionEx прописываем куда распознанный текст должен попасть   Edit1.Text := Guesses[0]; Ссылка на источник http://delphi.org/2014/10/voice-enable-your-android-apps/ но кажись сейчас можно скачать только Триал версию, а во вложении полная версия (да простят меня Боги!), демки там есть, а также примеры для перевода текста в голос.
    Speech.zip
  22. Like
    zairkz получил реакцию от Равиль Зарипов (ZuBy) в Получение результата голосового распознавания   
    Если еще актуально:
    Установил компонент SpeechRecognition1 (во вложении)
    Накидываю на форму компонент TSpeechRecognition из панели компонентов
    в нем имеются свойства(у меня следующие):
    AlwaysGuesses: true; Language: ru-RU; Prompt: Пожалуйста скажите ЧЕ нибудь! Объявите глобально FSpeech: TStrings; является своего рода посредником передачи данных иначе все глючит) Теперь при необходимости вызывайте SpeechRecognition1.ListenFor(FSpeech); появится окно обработки голоса Далее в компоненте обработчике OnRecognitionEx прописываем куда распознанный текст должен попасть   Edit1.Text := Guesses[0]; Ссылка на источник http://delphi.org/2014/10/voice-enable-your-android-apps/ но кажись сейчас можно скачать только Триал версию, а во вложении полная версия (да простят меня Боги!), демки там есть, а также примеры для перевода текста в голос.
    Speech.zip
  23. Like
    zairkz получил реакцию от AngryOwl в Получение результата голосового распознавания   
    Если еще актуально:
    Установил компонент SpeechRecognition1 (во вложении)
    Накидываю на форму компонент TSpeechRecognition из панели компонентов
    в нем имеются свойства(у меня следующие):
    AlwaysGuesses: true; Language: ru-RU; Prompt: Пожалуйста скажите ЧЕ нибудь! Объявите глобально FSpeech: TStrings; является своего рода посредником передачи данных иначе все глючит) Теперь при необходимости вызывайте SpeechRecognition1.ListenFor(FSpeech); появится окно обработки голоса Далее в компоненте обработчике OnRecognitionEx прописываем куда распознанный текст должен попасть   Edit1.Text := Guesses[0]; Ссылка на источник http://delphi.org/2014/10/voice-enable-your-android-apps/ но кажись сейчас можно скачать только Триал версию, а во вложении полная версия (да простят меня Боги!), демки там есть, а также примеры для перевода текста в голос.
    Speech.zip
  24. Like
    zairkz отреагировална Евгений Корепов в Программно закрыть клавиатуру   
    Один из способов Edit1.KillFocusByReturn:=True;
    Или можно использовать более гибкий метод, скрывать клавиатуру когда вам захочется:
    В Uses добавьте FMX.VirtualKeyboard, FMX.Platform. Код примерно такой:
    procedure TForm1.Edit1ChangeTracking(Sender: TObject); begin If Edit1.Text.ToLower.Contains('карамба') Then HideVirtualKeyboard; end; procedure TForm1.HideVirtualKeyboard; var Keyboard: IFMXVirtualKeyboardService; begin if TPlatformServices.Current.SupportsPlatformService( IFMXVirtualKeyboardService, IInterface( Keyboard ) ) then Keyboard.HideVirtualKeyboard; end;  
  25. Like
    zairkz отреагировална DirtyBorov в Не работает IFMXPhoneDialerService?   
    Очень интересная идея. Спасибо! Буду пробовать
×
×
  • Создать...