Rusland

http://www.webdelphi.ru/2014/05/rest-client-library-ispolzovanie-api-vkontakte/ http://www.webdelphi.ru/2014/08/rest-client-library-ispolzovanie-api-vkontakte-2/

Первым не был, но был очень популярен во времена Delphi 7... сколько форумов тогда было, сколько тем. Потом все как-то стало грустно на несколько лет, до появления Firemonkey, когда студия снова заинтересовала. А насчет цен - сильно дорого ИМХО, но тут уж ничего не поделать, кто разрабатывает такой мощный инструмент, тот и устанавливает цену (спасибо хоть акции подобно этой устраивают, когда Стартер бесплатно раздают, а потом предлагают Pro+Mobile со скидкой)

Вот это интересная тема, поделитесь информацией с общественностью когда сделаете )

Пришло письмо от Абракадабры: Компания Embarcadero благодарит Вас за использование Delphi Starter Edition. Если Вы занимаетесь профессиональной разработкой программного обеспечения, то Вы заметили, что функционала этой редакции не всегда хватает, и кроме того лицензия Starter имеет определенные ограничения. Поэтому мы делаем Вам специальное предложение по обновлению на старшие редакции, которое действует до 30 сентября 2016г.* Вы можете обновить Delphi Starter до Delphi 10.1 Berlin Professional или Enterprise по специальной цене. Обновите Ваш Starter на Delphi 10.1 Berlin Professional! Сделав Upgrade с редакции Starter на Delphi Professional 10.1 Berlin за 58 999 рублей (обычная цена такого upgrade - $1 296) Вы получите: возможность разработки для Mac OS X и 64-битной версии Windows; компоненты и средства работы с локальными БД; возможность приобретения дополнительных продуктов для работы с серверными СУБД. А если Вы поторопитесь, и сделаете обновление до 15 сентября с.г. то Вы сможете воспользоваться еще одной нашей акцией и получить бесплатно Mobile Add-On Pack for Delphi10.1 Berlin Professional и возможность разработки мобильных приложений для iOS и Android;

Raspberry Pi + маячок? Это ж цена счетчика огого как вырастет, не?

Данные по электроэнергии в программу вносятся вручную?

Martifan, вы можете использовать любой шрифт, а не только FontAwesome

В первом сообщении я давал ссылку на этот метод.

Такой вопрос нужно задавать после 9 сентября... вдруг кто не успеет сейчас Delphi Starter отхватить

Действительно, AnsiString тут и не нужен. AnsiCompareText нужно заменить на CompareText

Обнулил переменные в функции Matching и нормально заработало и в Windows и на Android: TempRet.lngSubRows:=0; TempRet.lngCountLike:=0;

На просторах интернета нашел вот такой старый модуль для нечеткого сравнения строк (в качестве результата число от 0 до 100): unit FindCompare; interface //------------------------------------------------------------------------------ //Функция нечеткого сравнения строк БЕЗ УЧЕТА РЕГИСТРА //------------------------------------------------------------------------------ //MaxMatching - максимальная длина подстроки (достаточно 3-4) //strInputMatching - сравниваемая строка //strInputStandart - строка-образец // Сравнивание без учета регистра // if IndistinctMatching(4, "поисковая строка", "оригинальная строка - эталон") > 40 then ... function IndistinctMatching(MaxMatching : Integer; strInputMatching: WideString; strInputStandart: WideString): Integer; function IndistinctMatching2(A,B: String): Real; implementation Uses SysUtils; Type TRetCount = packed record lngSubRows : Word; lngCountLike : Word; end; //------------------------------------------------------------------------------ function Matching(StrInputA: WideString; StrInputB: WideString; lngLen: Integer) : TRetCount; Var TempRet : TRetCount; PosStrB : Integer; PosStrA : Integer; StrA : WideString; StrB : WideString; StrTempA : WideString; StrTempB : WideString; begin StrA := String(StrInputA); StrB := String(StrInputB); For PosStrA:= 1 To Length(strA) - lngLen + 1 do begin StrTempA:= System.Copy(strA, PosStrA, lngLen); PosStrB:= 1; For PosStrB:= 1 To Length(strB) - lngLen + 1 do begin StrTempB:= System.Copy(strB, PosStrB, lngLen); If SysUtils.AnsiCompareText(StrTempA,StrTempB) = 0 Then begin Inc(TempRet.lngCountLike); break; end; end; Inc(TempRet.lngSubRows); end; // PosStrA Matching.lngCountLike:= TempRet.lngCountLike; Matching.lngSubRows := TempRet.lngSubRows; end; { function } //------------------------------------------------------------------------------ function IndistinctMatching(MaxMatching : Integer; strInputMatching: WideString; strInputStandart: WideString): Integer; Var gret : TRetCount; tret : TRetCount; lngCurLen: Integer ; //текущая длина подстроки begin //если не передан какой-либо параметр, то выход If (MaxMatching = 0) Or (Length(strInputMatching) = 0) Or (Length(strInputStandart) = 0) Then begin IndistinctMatching:= 0; exit; end; gret.lngCountLike:= 0; gret.lngSubRows := 0; // Цикл прохода по длине сравниваемой фразы For lngCurLen:= 1 To MaxMatching do begin //Сравниваем строку A со строкой B tret:= Matching(strInputMatching, strInputStandart, lngCurLen); gret.lngCountLike := gret.lngCountLike + tret.lngCountLike; gret.lngSubRows := gret.lngSubRows + tret.lngSubRows; //Сравниваем строку B со строкой A tret:= Matching(strInputStandart, strInputMatching, lngCurLen); gret.lngCountLike := gret.lngCountLike + tret.lngCountLike; gret.lngSubRows := gret.lngSubRows + tret.lngSubRows; end; If gret.lngSubRows = 0 Then begin IndistinctMatching:= 0; exit; end; IndistinctMatching:= Trunc((gret.lngCountLike / gret.lngSubRows) * 100); end; end. В Delphi 7 отлично работает (также заработало в VCL Berlina после небольших изменений связанных с AnsiString). А вот чтобы заработало в Firemonkey (из-за отсутствия AnsiString) мне пришлось добавлять System.ByteStrings.dcu взятую отсюда. Так вот при запуске программы на Android я получаю более менее похожие на правду результаты, но они отличаются от тех что получаются в Delphi7. Число 100 не получается, даже если указать две одинаковые фразы (выдает около 75). А если запускать программу под Windows, то в результате получаются самые разные рандомные числа. Что мешает функции нормально работать?

А можно перевод? )

Создал новый проект, кинул компонент, все работает... что не может не радовать ) Но можно ли сделать так чтобы появляющееся окно с Микрофоном было поменьше или располагалось снизу, не перекрывая компоненты формы?

В 2017 еще пока даже апдейты Берлина не выпустили, когда им успеть новую версию выпустить

Сразу напишите какая версия среды разработки, на каком устройстве происходит, сделайте/выложите скрины и приложите тестовый пример.

На компиляцию libAndoridVoiceComponents.so у меня на строку Androidapi.JNI.Speech in 'JNIBridge\Androidapi.JNI.Speech.pas', ругается: [DCC Error] AndoridVoiceComponents.dpk(38): E2200 Package 'rtl' already contains unit 'Androidapi.JNI.Speech'

Попробуйте поставить два Edit-а и переходите с одного на другой и попробуйте удалить последний символ. Спасибо, решение сработало.

Стремятся подсадить больше программистов на свои продукты

Тут получается не покупка, а скачивание. Правда серийный номер все же прислали на почту )

Никто не разобрался в теме? Взял код из этой темы: procedure OpenSpeechRecognizer; var Intent: JIntent; begin Intent := TJIntent.JavaClass.init(TJRecognizerIntent.JavaClass.ACTION_RECOGNIZE_SPEECH); Intent.putExtra(TJRecognizerIntent.JavaClass.EXTRA_PROMPT, StringToJString('Голосовой поиск Inforino')); Intent.putExtra(TJRecognizerIntent.JavaClass.EXTRA_LANGUAGE_MODEL, TJRecognizerIntent.JavaClass.LANGUAGE_MODEL_WEB_SEARCH); Intent.putExtra(TJRecognizerIntent.JavaClass.EXTRA_MAX_RESULTS, 1); Intent.putExtra(TJRecognizerIntent.JavaClass.EXTRA_LANGUAGE, StringToJString('ru-RU')); SharedActivity.startActivityForResult(Intent, 1); end; procedure TForm1.Button1Click(Sender: TObject); begin OpenSpeechRecognizer(); end; После нажатия микрофона, наговорить что-нибудь, как вылетает Segmentation fault (Delphi Berlin) RecognizeSpeech.zip

Аналогичная тема

Если стиль везде одинаковый, то можно в Default поместить этот стиль, а остальные удалить

Попробовал с Align=Scale - работает! Расставил в тестовом проекте компоненты как нравится, размеры меняются автоматически и никого кода писать не надо. Хотя в моем случае некоторые кнопки то видны, то нет (меняю свойство Visible). Не знаю как будет в этом случае.

Думаю проблема кроется где-то здесь Что прописано в Default стиле?