RADStudioDeveloper

Завершение приложения (вылет) Android Delphi x64 на Android 10

Приложение Android Delphi x32 на Android 10  работает.

В чём причина?

Необходимо получить значения параметров текущего состояния работы майнера криптовалют для GPU из встроенного в майнер HTTP сервера.

В частности, интересует пример по распространённым майнерам для GPU:

NiceHash QuickMiner Excavator, T-Rex,  BzMiner, NbMiner, GMiner, RedMiner, lolMiner, Claymore's Miner и других.

При использовании компонента Delphi TNetHTTPClient и TNetHTTPRequest успешно получаю полный HTML код майнера NiceHash QuickMiner Excavator без информационных данных.

Пожалуйста, помогите рабочим примером или укажите на существующие решения.

Привет всем! Необходим рабочий пример проекта планировщика Delphi FMX Android Service Scheduler с возможностью периодического запланированного старта нового Intent - осуществление исходящего звонка (набор номера) и запуска стороннего установленного приложения Android. Заранее благодарю за помощь!

Владимир, благодарю за идею!

Существуют ли решения для извлечения файлов из ISO образа только в исходном коде Delphi без внешних DLL?

CLSID_CFormatIso

Test d7zip-master for ISO CLSID_CFormatIso.rar

С zip работает а вот с .iso НЕТ!

Не работает с x64 Application!

Test d7zip for ISO.rar

Krapotkin,  благодарю за отклик!

Попробовал почти всё доступное!

ComponentAce ZipForge, d7zip, SevenZipVCL

Не работает с .iso!

Необходима распаковка дистрибутива Microsoft SQL Server Express Edition для установки.

Помогите, пожалуйста, с работающим решением для Embarcadero RAD Studio Delphi VCL/FMX с извлечением файлов из дистрибутива образа .iso

Необходимо извлечение файлов из образа .ISO приложением созданным

Embarcadero RAD Studio Delphi VCL/FMX.

Есть ли компоненты и исходный код для решения?

Закрытие (падение) IDE Embarcadero RAD Studio Delphi  при открытии конкретного исходного модуля кода Delphi (.pas)

как в составе проекта так и просто открытие редактором среды без проекта.

Ситуация воспроизведена на IDE:

Embarcadero RAD Studio Delphi 10.2.3 Tokyo

Embarcadero RAD Studio Delphi 10.3.3 Rio

Открытие этого файла в IDE Lazarus не вызывает никаких проблем.

Подскажите, пожалуйста, возможные причины и решение проблемы.

12 часов назад, Yarpda сказал:

Не знаю как раньше но в 10.4.1. прекрасно работает добавление через add нескольких элементов,  выделяя их с контролом.

Это работает!

Мне необходимо добавить пакетом (списком) в  существующий проект множества файлов (*.pas + *.dfm) в каталоге проекта содержащего  структуру вложенных каталогов с сохранением исходной структуры расположения добавляемых файлов в проект в этих каталогах!

Может есть plugin к IDE?

krapotkin Благодарю за отклик!

Добавить через Add... - не работает - только один файл!

Мне необходимо добавить много модулей пакетно в проект как они добавляются через Add  с сохранением исходной структуры файлов в каталогах и созданием дерева проекта.

Привет всем!

Подскажите, пожалуйста, как добавить пакетом существующие файлы модулей Delphi (*.pas) из различных каталогов ?

Пока полностью не разобрался. Но пытаюсь

А вообще, сразу виден Ваш хороший уровень разработчика!

Только необходимо подумать как получить в разные каталоги как в современных версиях IDE Win32, Win64.

Со службами очень интересно устроено - нигде не обнаружил примера Delphi для компонента TService для создания службы из приложения а не с командной строки.

Ещё раз спасибо!

Благодарю за ответ!

Но я для добавления платформы поступил по другому - удалил текущий  AMBackupBDSvc.dproj и открыл AMBackupBDSvc.dpr в результате появились все доступные платформы и был создан новый AMBackupBDSvc.dproj

Привет всем!

Через компонент TService необходимо программно из приложения для Windows создать службу Windows (Windows NT Service).

Установка службы через командную строку с помощью опций /Install /Silent  выполняется методом Vcl.SvcMgr.Application.Run

Необходимо программно выполнить из приложения аналогичное действие ApplicationName.exe /Install /Silent по установке службы без повторного запуска самого приложения через исполняемый код Delphi по нажатию на кнопку в самом приложении.

Подскажите, пожалуйста, решение.

Благодарю всех за помощь!

Аналогичный вопрос без конкретного решения

https://www.cyberforum.ru/delphi-beginners/thread1902266.html

Krapotkin, благодарю за отклик!

Пробовал многое, вот к примеру: 

работает, но редирект на загружаемый файл responseHeader (https://updates.tdesktop.com/tsetup/tsetup.2.4.2.exe)

в коде MemHeaders.Lines.Add(Header.Name+': '+Header.Value);  - не отображает.

// https://webdelphi.ru/2019/02/http-client-api-v-delphi/#klass_tnethttpresponse_-_otvet
Очень долгий ответ.

procedure TForm.Button1Click(Sender: TObject);

var MS: TMemoryStream;
    Resp: IHTTPResponse;
    Header: TNameValuePair;
    Cookie: TCookie;
begin
  memHeaders.Lines.Clear;
  memCookies.Lines.Clear;
  memContent.Lines.Clear;

  MS:=TMemoryStream.Create;

  NetHTTPRequest1.ContentStream:=MS;
  NetHTTPRequest1.MethodString:='get';
  NetHTTPRequest1.URL:=edURL.Text;
  Resp:=NetHTTPRequest1.Execute();
  try
   //загружаем контент
    memContent.Lines.LoadFromStream(NetHTTPRequest1.ContentStream);
   //выводим заголовки
    for Header in Resp.Headers do
      MemHeaders.Lines.Add(Header.Name+': '+Header.Value);
   //выводим куки
    for Cookie in Resp.Cookies do
      memCookies.Lines.Add(Cookie.ToString);
   //выводим версию HTTP
    case Resp.Version of
      THTTPProtocolVersion.UNKNOWN_HTTP: lbHttpVer.Caption:='n/a';
      THTTPProtocolVersion.HTTP_1_0: lbHttpVer.Caption:='1.0';
      THTTPProtocolVersion.HTTP_1_1: lbHttpVer.Caption:='1.1';
      THTTPProtocolVersion.HTTP_2_0: lbHttpVer.Caption:='2.0';
    end;
   //выводим код статуса
    lbStatusCode.Caption:=Resp.StatusCode.ToString;
  finally
    FreeAndNil(MS)
  end;
end;

end.

11 часов назад, OnePeople сказал:

В данном случае имя файла в responseHeader     

Location:https://updates.tdesktop.com/tsetup/tsetup.2.4.2.exe

Благодарю за отклик!

Абсолютно верно!

Как получить в Delphi коде  responseHeader (https://updates.tdesktop.com/tsetup/tsetup.2.4.2.exe) используя NetHTTPClient?

53 минут назад, OnePeople сказал:

Либо выдергивают из url или уже из самого файла( у мультимедиа например из тэгов)

Имени файла в URL нет! Пример https://telegram.org/dl/desktop/win

Привет всем!

Загрузка с WEB сервера файла с помощью

NetHTTPClient

NetHTTPClient1.Get(URL, FS) - загрузка проходит хорошо.

Вопрос как получить имя загружаемого файла?

Есть реально работающее решение?

Вопрос решён самостоятельно: необходимо определить используемые протоколы.

Возможно, решение поможет для разработчиков взаимодействующих с Telegram

Привет всем!

Подскажите, пожалуйста, решение вопроса отправки сообщения Telegram Bot с использованием компонента именно NetHTTPClient

NetHTTPClient1.Post('https://api.telegram.org/bot<token>/sendMessage?chat_id=@UserName&text=MessageText',data).ContentAsString;

Отправка запроса Telegram bot-у через браузер проходит,  через приложение Delphi Embarcadero RAD Studio 10.3.3 Rio не работает.

Пожалуйста, предложите работающее решение.

Интересует вопрос интеграции CMS и REST Client проекта на Embarcadero RAD Studio

Какие есть возможные решения с OAuth (OAuth2), компоненты и примеры исходного кода Delphi?

В частности, интересует практическое решение интеграции   CMS Magento и REST Client-a.

Пожалуйста, поделитесь решениями.