Олег Киреев

Здравствуйте уважаемый antigrav. Я пользовался встраиваемыми компонентами GLScene которые распространяются бесплатно. С Уважением.

Приложение под OS Win для расчёта нагрузок
(сил, скоростей угловых и угловых ускорений)
от работы карданного вала в зависимости от схемы
и имеющихся данных. Перед началом работы необходимо посмотреть 
файл Help.mp4.

РасНагрКард.rar

Приложение под OS Win для расчёта тяговой динамики транспортного средства (автомобиля, автобуса, троллейбуса, электробуса) с графиками, диаграммами, выводом на печать и базой данных. Просто запустите файл exe. Перед началом пользования посмотрите файл Help.mp4. Приложение работает при 64-битном офисе.

ТДР v.46.rarТДР v .48.rar

Пожалуйста. На здоровье. Хорошо. С Уважением.

Здравствуйте.

Пришлите мне на Viber (номер тел указан в приложении) схему и все размеры. Я Вам посчитаю. С Уважением.

Здравствуйте уважаемые.

Приложение для OS Android, Delphi 10.3.

Подскажите пожалуйста почему при компиляции нового или старого проекта стало появляться непонятное сообщение (см прилагаемый скрин). Может кто сталкивался с этой проблемой.

СпасиБО.

Пожалуйста.

Рад был помочь.

С Уважением.

Здравствуйте.

Прилагаю картинку как это сделать.

С Уважением.

Здравствуйте Emma.

По опыту лучше поместить компонент TChart на форму. Сразу настроить как надо. Там куча настроек. Думаю дело там. Сделать невидимым. А потом на кнопке Vasible Graphic делать видимым.

С Уважением.

И на моём запустился и не "упал".

С Уважением. Олег.

1 час назад, Ingalime сказал:

Мои дополнительные шаги. Надо было подправить манифест для 32 бит. Там по дефолту добавлялись 5 опасных разрешений. Теперь манифест для 32 бит нормальный:

<uses-sdk android:minSdkVersion="23" android:targetSdkVersion="29" />
    <uses-permission android:name="android.permission.FOREGROUND_SERVICE" />
    <uses-permission android:name="android.permission.INTERNET" />
//********************
 <service android:exported="false" android:foregroundServiceType="mediaPlayback" android:name="com.embarcadero.services.serPublic" />

Откомпилировала службу в режиме 32 бит и в деплоймент для 32 бит добавила пути как выше на рисунке. Вот такой теперь арк, но падает.

 

PublicRadio.apk 14 \u041c\u0411 · 1 загрузка

Да и у меня "падает".

С Уважением. Олег Киреев.

1 час назад, Ingalime сказал:

Пока под рукой только андроид 8.1 Redmi 5A

Теперь в кнопке Play в обновленном apk

procedure TForm1.FormCreate(Sender: TObject);
Begin

 if not BASS_Init(-1, 44100, 0, nil, nil) Then Begin
	   ShowMessage('Failed to initialize audio!' + sLineBreak + 'Не удалось инициализировать audio!');
     Exit;
     end;
End;

procedure TForm1.Button1Click(Sender: TObject);

var
  check :boolean;
  ercode: Integer;
  ermsg: string;

Begin

 try
     if FService = Nil Then Begin
      FService := TLocalServiceConnection.Create;
      FService.StartService('serPublic');
      end;
  except
       Exit;
  end;
//******************************************

В манифесте только это. Что ему надо не понятно...

<uses-permission android:name="android.permission.FOREGROUND_SERVICE" />
<uses-permission android:name="android.permission.INTERNET" />

 

PublicRadio.apk 18 \u041c\u0411 · 2 загрузки

И в этой новой версии OS сообщает "В приложении произошёл сбой".

С Уважением. Олег.

21 час назад, Ingalime сказал:

Может у кого-то есть Адроид 10, посмотрите, пожалуйста, или падает при запуске. Спасибо.

PublicRadio.apk 18 \u041c\u0411 · 13 загрузок

На всякий случай. У меня устройство Самсунг Галакси J6 с Андроид 10. После клика на иконку идёт запрос на разрешение. Я разрешаю а потом приложение само закрывается и OS сообщает что приложение загрузилось не корректно и предлагает его закрыть.

С Уважением. Олег.

16 часов назад, Ingalime сказал:

Может у кого-то есть Адроид 10, посмотрите, пожалуйста, или падает при запуске. Спасибо.

PublicRadio.apk 18 \u041c\u0411 · 11 загрузок

Здравствуйте.

Ваше приложение на моём устройстве с OS Android 10 "падает".

С Уважением. Олег.

Файл Posix.SysStat.dcu  у меня лежит в C:\Program Files (x86)\Embarcadero\Studio\20.0\lib\iossimulator\debug. 

Файл  Posix.SysStat.pas у меня лежит в C:\Program Files (x86)\Embarcadero\Studio\20.0\source\rtl\posix.

Оба пути прописаны в библиотеке.

В коде  после implementation прописываю и так:  Uses Posix.SysStat и так  Uses Posix.SysStat in 'posix\Posix.SysStat.pas'; всё равно  "ругается" что cannot resolve unit filename Posix.SysStat at line... Что делать?

С Уважением. Олег.

В 27.03.2021 в 20:34, Billy Bones сказал:

Значит просто: Uses Posix.SysStat и используйте функцию stat.

Billy Bones

Здравствуйте.

Почему у меня при прописывании  Uses Posix.SysStat RAD Studio 10.3  "ругается" что cannot resolve unit filename Posix.SysStat at line...???? Хотя в библиотеке путь source\rtl\posix прописан.

Соединяюсь с помощью  ADOConnection.

Здравствуйте Уважаемые.

РадСтудия 10.3 Рио, ОС Виндовс 7.

Прошу помощи в следующем. Переделываю старое приложение для  ОСВиндовс с БД МСАкцесс 2010 сделанного ещё на Делфи7 в Делфи 10.3 Рио. При SQL запросе в новом приложении не происходит поиска старых данных. Но если ввести новые данные в новом приложении поиск осуществляется нормально. Похоже что то с Юникодами в МСАкцесс??? Или что другое не знаю. Может кто сталкивался с такой проблемой?  Япытался сделать так: https://coderoad.ru/5222705/Как-преобразовать-кодировку-базы-данных-MS-Access-в-UTF-8. Но не помогло.

С Уважением.

Здравствуйте.

Я сначала становлюсь на нужную строку вот так:

ADOQuery1.Locate('Nomer',bsSkinEdit1.Text,[loPartialKey, loCaseInsensitive]);

Где Nomer - имя поля а bsSkinEdit1.Text искомое значение поля.

С Уважением.

В 01.11.2020 в 08:57, OnePeople сказал:

Copy(path,0,lastDelimiter('/',path)-1);

Здравствуйте дайте пожалуйста ссылку на расшифровку   "Copy(path,0,lastDelimiter('/',path)-1);"

С Уважением. Олег.

Так у Вас в переменной cpO Х=0 и Y=0.

Предлагаю почитать здесь:

https://progi.pro/delphi-memo-pochemu-kursor-vsegda-idet-vlevo-10314416

С Уважением Олег.

У меня ругается на TCaretPosition.

Наверное не хватает юнита. Какого?

Можно и на кнопку:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TabControl1.Width := TabControl1.Width+200;
  Memo1.WordWrap := false;
  Memo1.WordWrap := true;
end;

У меня помогло так:

procedure TForm1.FormResize(Sender: TObject);
begin
 Memo1.WordWrap := false;
  Memo1.WordWrap := true;
end;

С Уважением Олег.

Здравствуйте.

У меня она есть. Файл формата pdf 31 мегабайт. Я дополнил его повставлял закладки по главам для быстрого поиска. У меня впечатления самые лучшие. СпасиБО Всеволоду Леонову. Могу прислать на вашу личную почту.

С Уважением. Олег.