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

Tumaso

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

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

  • Посещение

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

    23

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

  1. Like
    Tumaso получил репутацию от mazayhin в [Android] Файловый менеджер   
    @Android покажите свой код, который вы уже написали в рамках этой задачи. mazayhin сказал всё верно, что никто не будет делать файловый менеджер за вас. Помочь в существующем коде, где что то не получается - один разговор, а дать готовый код без капли усилий с вашей стороны?
  2. Like
    Tumaso получил репутацию от Ingalime в Создание HTTP сервера   
    Почему?)
    Я делал в виде демона для ubuntu с использованием indy + mysql + json. Работает уже как два года, полет нормальный, ни разу не крешилось
  3. Like
    Tumaso получил репутацию от dnekrasov в Не получается скачать файл по https   
    Используй TNetHTTPClient вместо инди, проблема с ssl уйдет.
    При использовании инди и указании https в URL например в виндах требуется две дополнительные dll-ки (libeay32.dll / ssleay32.dll), для андроида libcrypto.so / libssl.so и т.д. Поэтому проще перейти на TNetHTTPClient
  4. Like
    Tumaso получил репутацию от Ingalime в Не получается скачать файл по https   
    Используй TNetHTTPClient вместо инди, проблема с ssl уйдет.
    При использовании инди и указании https в URL например в виндах требуется две дополнительные dll-ки (libeay32.dll / ssleay32.dll), для андроида libcrypto.so / libssl.so и т.д. Поэтому проще перейти на TNetHTTPClient
  5. Like
    Tumaso получил репутацию от Ingalime в Android 11   
    Никак.
  6. Like
    Tumaso получил репутацию от Vitaldj в Ускорение работы среды   
    Тогда следующий шаг - использование блокнота для разработки. Всё летает.
  7. Like
    Tumaso получил репутацию от Ingalime в Не помпилируеться под Ios   
    Не, этот патч устанавливается на всё, от delphi 1 до 10.3.3. И не важно, что это патч исключительно для 10.4.1))))
  8. Like
    Tumaso получил репутацию от Ingalime в XSuperObject   
    Скажи, а зачем вообще использовать библиотеку, которая не развивается?
  9. Like
    Tumaso выдал репутацию gonzales в закодировать строку в UTF8 для передачи в GET запросе   
    Переделал только немного под себя, чтобы строку в ответ выдавал
    function TForm1.Get(const ASession: TIdHTTP; const AUrl: string):string; begin result:=ASession.Get(ASession.URL.URLEncode(AUrl)); end;  
  10. Like
    Tumaso получил репутацию от gonzales в закодировать строку в UTF8 для передачи в GET запросе   
    попробуй вот так:
     
    procedure Get(const ASession: TIdHTTP; const AUrl: string; const AResult: TStringStream); begin ASession.Get(ASession.URL.URLEncode(AUrl), AResult); end; где AUrl - твой урл с параметрами
  11. Like
    Tumaso получил репутацию от Ingalime в После обновления на Андроид 6.01   
    а причем тут способ доступа к серверу FTP, если проблема в записи в локальный файл? Кто его знает, какой там у вас код записи.
    UPD. Может быть проблема и не в записи, а в сетевом доступе. Под отладкой вообще запускали?
  12. Thanks
    Tumaso получил репутацию от Ingalime в [Android]RAD10.4.1   
    @Ingalime
    у меня в 10.4.1 sdk лежит в C:\Users\Public\Documents\Embarcadero\Studio\21.0\CatalogRepository\AndroidSDK-2525-21.0.38860.1461 (так инсталлятор установил), соответственно всё лежит там, включая Android SDK Manager
    в 10.3.3 sdk лежит в C:\Users\Public\Documents\Embarcadero\Studio\20.0\PlatformSDKs\android-sdk-windows
  13. Like
    Tumaso выдал репутацию krapotkin в После обновления на Андроид 6.01   
    на всех андроид устройствах нет смысла пользоваться прямым указанием папки
    доступные программе папки перечислены в class TPath из System.IOUtils.pas
    пример
    uses System.IOUtils; fname := TPath.combine(TPath.GetDocumentsPath, 'myfile.txt');  
  14. Like
    Tumaso получил репутацию от Ingalime в А не сделать ли уроки по стилям FMX for free?   
    Да, для десктопных приложений курс до сих пор актуален, убеждаюсь по переходящим из VCL и задающим кучу одних и тех же вопросов. А FGX Native увы только для Android и (скоро) для iOS.
  15. Like
    Tumaso выдал репутацию Yarpda в А не сделать ли уроки по стилям FMX for free?   
    Заметил что ссылка на уроки по стилям FMX уже не доступна. Как я понял Ярослав не планирует больше продавать эти уроки, т.к. ушел в FGX Native, но по сути там довольно интересный материал (я их проходил в свое время и много раз использовал то, что узнал на них), и раз он уже не продается, может быть сделать доступ к этим урокам бесплатным? Я полагаю это могло бы популяризировать FMX. Там действительно без бутылки видео-уроков не разберешься
  16. Like
    Tumaso выдал репутацию OnePeople в Программное одноразовое применение InnerGlowEffect к изображению   
    Поздно, но может кому пригодится
    function TForm1.Blur(sbit: TBitmap): TBitmap; var   FilterClass: TFilterClass;   FFilter: TFilter;   FFilterParams: TFilterRec;   BitmSource, BitmDest: TBitmap; begin       BitmSource:=TBitmap.Create;       BitmSource.Assign(sbit);       Result:=TBitmap.Create;       FFilter := TFilterManager.FilterByName('GaussianBlur');       FilterClass := TFilterManager.FilterClassByName('GaussianBlur');       FFilterParams := FilterClass.FilterAttr;       FFilter.ValuesAsFloat['BlurAmount']:=5.7;       FFilter.Apply;       FFilter.ValuesAsBitmap['Input'] := BitmSource;       Result.Assign(FFilter.ValuesAsBitmap['output']);       FreeAndNil(FFilter);       FreeAndNil(BitmSource); end; function TForm1.Tint(sbit: TBitmap; tintColor: TAlphaColor): TBitmap; var   FilterClass: TFilterClass;   FFilter: TFilter;   FFilterParams: TFilterRec;   BitmSource, BitmDest: TBitmap; begin       BitmSource:=TBitmap.Create;       BitmSource.Assign(sbit);       Result:=TBitmap.Create;       FFilter := TFilterManager.FilterByName('FillRGB');       FilterClass := TFilterManager.FilterClassByName('FillRGB');       FFilterParams := FilterClass.FilterAttr;       FFilter.ValuesAsColor['Color']:=tintColor;       FFilter.Apply;       FFilter.ValuesAsBitmap['Input'] := BitmSource;       Result.Assign(FFilter.ValuesAsBitmap['output']);       FreeAndNil(FFilter);       FreeAndNil(BitmSource); end;  
  17. Like
    Tumaso получил репутацию от Ingalime в [Android] Воспроизводить аудио   
    А причем тут твой фаервол? Вопрос совсем о другом, о принципиальной возможности  воспроизведения аудиопотока с указаного адреса/порта в FMX
    Стандартный TMediaPlayer из FMX полное убожесто, не работает нормально даже в 10.4.1, поэтому про него можно забыть. Если еще кто то в него верит и надеется на чудо.
    Теоретически это могут делать FFMPEG VCL (поддерживает и FMX) и Alcinoe
  18. Like
    Tumaso выдал репутацию slav_z в Расположение нажатого элемента управления по отношению к экрану   
    не ClientToScreen а LocalToScreen... оно есть у фрейма...
    Пример:
    LocalToScreen(TPointF.Zero) - левый верхний угол фрейма в координатах экрана,
    LocalToAbsolute(TPointF.Zero) - левый верхний угол фрейма в координатах формы.
     
  19. Thanks
    Tumaso получил репутацию от Ingalime в Посоветуйте компонет   
    @Ingalime
    1. если высота фрейма зависит от данных, то да, вычисляйте высоту
    2. по расположению создаваемых фреймов друго под другом - самый простой вариант использовать свойство Align у фреймов (устанавить в Top), для этого размещайте создаваемые фреймы на общем контейнере для них (например на VertScrollBox)
    условно говоря примерно так:
    procedure TForm1.AddFrame(const AParent: TFmxObject; const AData: TFrameData); var LFrame: TMyFrame; begin LFrame := TMyFrame.Create(Self); // или nil, если в дальнейшем будете сами уничтожать фреймы LFrame.Parent := AParent; LFrame.Align := TAlignLayout.Top; LFrame.Data := AData; // этим кодом предполагается заполнение фрейма данными, при котором фрейм заполнит выводимые компоненты и настроит свою высоту end; procedure TForm1.FillFrames; var I: Integer; begin for I := 0 to Data.Count - 1 do AddFrame(vsbFrames, Data[I]); // vsbFrames - TVertScrollBox для размещения фреймов, Data - список данных для отображения, каждый элемент - данные для отдельного фрейма end;  
  20. Like
    Tumaso выдал репутацию krapotkin в Гибкие аналоги TListBox и TListView   
    вот мой вариант со свистелками
  21. Like
    Tumaso получил репутацию от Ingalime в Гибкие аналоги TListBox и TListView   
    Почему вы решили, что стандартный TListView не подойдет? Прекрасно подойдет.
    Посмотрите демо, идущее с делфи, в каталоге C:\Users\Public\Documents\Embarcadero\Studio\версия\Samples\Object Pascal\Multi-Device Samples\User Interface\ListView\VariableHeightItems. Для вашей задачи - идеальный старт
  22. Thanks
    Tumaso получил репутацию от Ingalime в Посоветуйте компонет   
    Другой вариант - использование TListView
  23. Thanks
    Tumaso получил репутацию от Ingalime в Посоветуйте компонет   
    Я бы сделал шаблонный фрейм, в котором бы выводил текст с помощью TText (или TLabel или другой), если нужно выводить картинки - TImage и т.д.
    Далее для каждой карточки создаете свой экземпляр фрейма и в качестве параметров передаете значения отображаемых полей.
    Легко в реализации, гибко, работает на всех платформах, включая Linux через FmxLinux
     
  24. Like
    Tumaso получил репутацию от Ingalime в TMapView маркер при старте   
    ImageLocationSample это банально TImage, в котором я храню изображение маркера - заказчик хотел, чтобы маркеры отображались в его корпоративном стиле
    у меня был загружен в TImage как .png
  25. Thanks
    Tumaso получил репутацию от Ingalime в TMapView маркер при старте   
    Я делал так, маркер устанавливался в заданную позицию при создании:
    var LLocation: TMapCoordinate; LMarker: TMapMarkerDescriptor; LLocation := TMapCoordinate.Create(DEFAULT_LATITUDE, DEFAULT_LONGITUDE); LMarker := TMapMarkerDescriptor.Create(LLocation, 'Название метки'); LMarker.Icon := ImageLocationSample.Bitmap; MapView.AddMarker(LMarker); MapView.Zoom := DEFAULT_ZOOM; где DEFAULT_LATITUDE и DEFAULT_LONGITUDE это мои константы с нужной координатой маркера
×
×
  • Создать...