Перейти к содержанию

Вся активность

Лента обновляется автоматически     

  1. Сегодня
  2. Вчера
  3. Последняя неделя
  4. Первый раз, и ничего не могу понять. Загрузил, всю информацию прописал, иконки\картинки\политики\цены на месте. Не дает создать версия для внутренного тестирования.Как и любую другую версию. Может кто поопытней подскажет? Есть и ошибка но где? Или надо все версии заполнить?
  5. После заполнения Листбокса первая страница отображается корректно, т.е. сперва стоит CheckBox, затем картинка и Текст. А при пролистывании вниз CheckBox и Иконка меняются местами. При пролистывании вверх те Итемы которые были нормальные выводятся так же коряво. Как победить?
  6. В общем для Windows как-то так. Может кому пригодиться: #include <fmx.h> #pragma hdrstop #include "bass.h" #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.fmx" TForm1 *Form1; HSAMPLE smp; HSTREAM str; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TrackBar1->Value = 10; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { BASS_Init(-1, 44100, BASS_DEVICE_3D, 0, NULL); //Инициализация звукового потока str=BASS_StreamCreateURL(PAnsiChar("http://путь"), 0, 0, NULL,0); //Создаем поток str. BASS_SetVolume(TrackBar1->Value/100.0); BASS_ChannelPlay(str, false); //Воспроизвести наше звуковой поток str } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { BASS_ChannelStop(str); //Остановка BASS_SampleFree (smp); //Чистим ресурс } //--------------------------------------------------------------------------- void __fastcall TForm1::TrackBar1Change(TObject *Sender) { BASS_SetVolume(TrackBar1->Value/100.0); } //--------------------------------------------------------------------------- Теперь буду пробовать для Андроида портировать...
  7. Вроде с BASS получаеться проигрывает нужный мне адрес: #include "bass.h" HSAMPLE smp; HSTREAM str; void __fastcall TForm1::Button1Click(TObject *Sender) { BASS_Init(-1, 44100, BASS_DEVICE_3D, 0, NULL); //Инициализация звукового потока str=BASS_StreamCreateURL(PAnsiChar("http://путь к нужной станции"), 0, 0, NULL,0); //Создаем поток str. BASS_ChannelPlay(str, False); //Воспроизвести наше звуковой поток str } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { BASS_ChannelStop(str); //Остановка BASS_SampleFree (smp); //Чистим ресурс } //--------------------------------------------------------------------------- Пока пробую с Windows, но у BASS и для Андроида есть файлы... Пока не разобралась как с помощью TrackBar менять громкость.
  8. А при том что надо разделять транспорт, кодек и hal... я без проблем сделаю TCP/HTTP запрос, до что делать с данными? а может там udp? нужен декодер, и управлялка потоком декодер может и найду, но что делать с PCM данными... нужен компонент вывода звука вывод может найду... а если хотите кинуть батон и в продакшон... ищите сами
  9. А причем тут твой фаервол? Вопрос совсем о другом, о принципиальной возможности воспроизведения аудиопотока с указаного адреса/порта в FMX Стандартный TMediaPlayer из FMX полное убожесто, не работает нормально даже в 10.4.1, поэтому про него можно забыть. Если еще кто то в него верит и надеется на чудо. Теоретически это могут делать FFMPEG VCL (поддерживает и FMX) и Alcinoe
  10. Нет. я свой статический адрес и порт прикрыл фаирволом и другим советую
  11. Konoplaud

    TBluetoothManager

    Здравствуйте господа-товарищи. Пытаюсь завести по примеру Classic Bluetooth используя классы TBluetoothManager, TBluetoothAdapter и так далее. В чем суть, не запускается сканирование устройств. btManager->OnDiscoveryEnd = DevicesDiscoveryEnd; btManager->StartDiscovery(5000); Вообще ничего не происходит. Причем пробовал его компилить на C++ Builder 10.4 Architect - работало. Перенес проект к себе на C++ Builder 10.3 Community - не работает. Прям пример использования классического Bluetooth завожу, и не переходит в функцию окончания сканирования. С чем может быть связано? Кто-нибудь сталкивался? HELP ME PLEASE!!!
  12. Подскажите, пожалуйста, можно ли воспроизводить аудио поток в FMX, если известен статический адрес и порт -> IP:порт? Спасибо.
  13. Content-Disposition: inline? или тогда может в сторону js копать https://ru.stackoverflow.com/questions/439058/Открыть-pdf-в-окне-браузера-ajax
  14. смущает, что просто в хроме то работает все.. а через TWebBrowser - не звонит по tel: . не емейлит по mailto: но это решил перехватом и через интент.. но пдф принимать, сохранять.. не хочется.. Заголовки вот что разработчики сайта ответили: Изначально было header("Content-Type: application/pdf"); header("Content-Length: " . $_GET['size']); echo $recordPdf; Т.е. отдавался полученный из ПДФ контент с корректным типом и браузер сам принимал решение, что с ним делать.Для варианта открытия из МП (с параметром MP в get строке) реализовали вариант с выдачей заголовков на принудительное сохранение файла header("Content-Type: application/pdf"); header("Content-Length: " . $_GET['size']); header("Content-Disposition: attachment; filename=\"card_record_".$_GET['id'].".pdf\"; filename*=utf-8''card_record_".$_GET['id'].".pdf"); header("Content-Transfer-Encoding: binary"); header("Cache-Control: no-cache, must-revalidate, post-check=0, pre-check=0"); header("Expires: 0"); header("Pragma: public"); echo $recordPdf; В чистом баузере работает корректно, однако, в браузере в МП ( моб. прил)не открывает и запрос на сохранение не вызывает.
  15. заголовки смотрел? может там честное Content-Disposition: attachment...
  16. Есть мобильная версия сайта. Задача простая - открывать его в МП. Положил TWebBrowser, который открывает сразу сайт, все ок..НО! не работает открытия pdf файлов по ссылке, если без МП - все ок - Chrome задает вопрос - Скачать? и скачав открывает.. а тут - никак.. сложные решения ( типа поймать ссылку ПДФ, скачать самому, открыть через Интент - не нужно) там всякие разрешения полезут и т.д. Задача сделать "вечное" - МП которое просто открывает сайт.. чтобы не продлевать лицензию и не напарываться на требования обновлять версию Дельфи ( то 64, то новый ИОС, то новые правила размещения.. )
  17. Всем привет. Никто не замечал проблемы с фетчем строк в SQLite? Имею таблицу из которой необходимо сделать выборку с использованием фетчей. FireDac отбирает соответствующее свойству RecsMax количество строк, но при увеличении значения RecsSkip и последующем фетче получает тот же самый набор строк. В итоге повисаем в бесконечном цикле из-за того, что не можем продвинуться дальше. То ли я что-то не так делаю, хотя вроде бы всё по инструкции http://docwiki.embarcadero.com/RADStudio/Sydney/en/Fetching_Rows_(FireDAC) unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types, FMX.StdCtrls, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, System.IOUtils, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Stan.ExprFuncs, FireDAC.Phys.Oracle, FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteWrapper, FireDAC.Phys.SQLiteWrapper.Stat, FireDAC.FMXUI.Wait, FireDAC.Comp.UI; const FETCH_COUNT = 2; DRIVER_NAME = 'SQLite'; DB_NAME = 'test.db'; type TForm1 = class(TForm) Memo_Result: TMemo; Button_Select: TButton; Button_Cancel: TButton; FDGUIxWaitCursor: TFDGUIxWaitCursor; procedure FormCreate(Sender: TObject); procedure Button_SelectClick(Sender: TObject); procedure Button_CancelClick(Sender: TObject); private FConnect : TFDConnection; FQuery : TFDQuery; FAbort : Boolean; procedure OnAfterOpen(DataSet: TDataSet); public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button_CancelClick(Sender: TObject); begin FAbort := true; end; procedure TForm1.Button_SelectClick(Sender: TObject); begin FAbort := false; FQuery.Open('SELECT field1, field2 FROM test_1 ORDER BY field1;'); end; procedure TForm1.FormCreate(Sender: TObject); begin FConnect := TFDConnection.Create(nil); FQuery := TFDQuery.Create(nil); FConnect.DriverName := DRIVER_NAME; FConnect.Params.Clear; FConnect.Params.Add(Format('DriverID=%s', [DRIVER_NAME])); FConnect.Params.Add(Format('Database=%s', [ TPath.Combine( TPath.GetDirectoryName(ParamStr(0)), DB_NAME )]) ); FConnect.FetchOptions.CursorKind := ckForwardOnly; FConnect.FetchOptions.RowsetSize := FETCH_COUNT; FQuery.FetchOptions.RecsSkip := 0; FQuery.FetchOptions.RecsMax := FETCH_COUNT; FQuery.ResourceOptions.CmdExecMode := amAsync; FQuery.AfterOpen := OnAfterOpen; FQuery.Connection := FConnect; FConnect.Connected := true; end; procedure TForm1.OnAfterOpen(DataSet: TDataSet); begin if not FQuery.SourceEOF then begin Memo_Result.Lines.Add('New fetch'); while not DataSet.Eof do begin Memo_Result.Lines.Add(Format('field1 = %d; field2 = %d', [DataSet.Fields[0].AsInteger, DataSet.Fields[1].AsInteger])); DataSet.Next; end; FQuery.Disconnect(); if not FAbort then begin FQuery.FetchOptions.RecsSkip := FQuery.FetchOptions.RecsSkip + FETCH_COUNT; FQuery.Open; end else Memo_Result.Lines.Add('Cancel'); end else Memo_Result.Lines.Add('End'); end; end. Пример во вложении. Fetch SQLite.zip
  18. как-то так uses System.RegularExpressions; ... const AHREF = '<a href="([^"]*)"[^>]*>([^<]*)</a>'; var Match: TMatch; s: String; begin Match := TRegEx.Match(ваша HTML строка, AHREF); while Match.Success do begin // здесь что-то делаем //<a href"...>...</a> в Match.Value //Match.Groups[1] - адрес ссылки //Match.Groups[2] - отображаемый текст ссылки Match := Match.NextMatch; end; end
  19. Если вам удасться победить прокрутку пальцем в ios, дайте знать, пожалуйста, как. Мне не удалось: http://fire-monkey.ru/topic/6777-iosvertscrollbox-как-заставить-работать/
  20. <a ... href="ссылка" минут за 10 можно накидать, думаю, без всяких парсеров
  21. Удалите манифест (tmp) и соберите опять
  22. Пробивал, не работает. Здесь почему-то пропадает события в TActionList остаётся только OnUpdate
  23. киньте на форму компонент драйвера нужного движка БД и все будет ок! который с префиксом ....Phys..
  24. Вот тут все есть и работает https://www.jvesoft.com/wp/
  25. HitTest может где определить надо при загрузке?
  26. Книга впечатлила по своему содержанию и ведению мысли в разработке Только что прошла по ссылке)))
  1. Загрузить ещё активность
×
×
  • Создать...