Перейти к содержанию
Fire Monkey от А до Я

WinterSun

Пользователи
 Профиль  Обзор контента

  • Постов

    12

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

  • Посещение

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

    1

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

  1. Like
    Ingalime
    WinterSun получил реакцию от Ingalime в Помогите проиграть звук в MediaPlayer   
    Привет.
    TMediaPlayer умеет воспроизводить только из файлов - не из ресурсов. Надо ресурс сохранить в файл и затем его проиграть. 
  2. Thanks
    WinterSun
    WinterSun отреагировална Вадим Смоленский в Обработка анимированных GIF по рецепту китайского коллеги   
    Год назад в одной из веток проскочила ссылка на китайский сайт (http://www.raysoftware.cn/?p=559), где предлагалось готовое решение для показа анимированных гифок средствами FireMonkey на любых платформах. Сейчас эта ссылка, как и весь сайт raysoftware.cn, упорно не открывается; по счастью, контент сохранился в гугловском кэше. Я скопировал оттуда код юнита и перевел гуглом все китайские комментарии на английский, добавив их в скобках. Там был еще сопроводительный текст, в котором автор излагал мотивы, побудившие его взяться за эту проблему; каких-то важных технических деталей я в этом тексте не увидел.
    Привожу весь юнит ниже и очень надеюсь, что кто-нибудь из продвинутых коллег объяснит мне, как именно этим кодом можно воспользоваться, чтобы показать пользователю анимированный файл в формате GIF. Моей программерской квалификации, к сожалению, не хватает.
     
  3. Like
    WinterSun
    WinterSun отреагировална Евгений Корепов в Обработка анимированных GIF по рецепту китайского коллеги   
    Принцип работы такой:
    На форму кладете стандартный TImage Создаете экземпляр TGifPlayer Задаете свойство FGifPlayer.Image:=Image; где Image это лежащая на форме TImage Загружаете гифку FGifPlayer.LoadFromFile('D:\Embarcadero\Projects\ShareCode\FMX.GifUtils\GIF_Example.gif'); Запускаем проигрывание гифки FGifPlayer.Play; Вот код:
    unit UnitFormMain; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.GifUtils, FMX.Objects; type TFormMain = class(TForm) Image: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } FGifPlayer : TGifPlayer; end; var FormMain: TFormMain; implementation {$R *.fmx} procedure TFormMain.FormCreate(Sender: TObject); begin FGifPlayer:=TGifPlayer.Create(Self); FGifPlayer.Image:=Image; FGifPlayer.LoadFromFile('D:\Embarcadero\Projects\ShareCode\FMX.GifUtils\GIF_Example.gif'); FGifPlayer.Play; end; end. Вот демо проект во вложении:
     
    FMX.GifUtils.Demo.zip
  4. Like
    #WAMACO
    WinterSun получил реакцию от #WAMACO в Объявления процедур и функций горячими клавишими   
    Здравствуйте. 
    Shift+Ctrl+C
    Delphi-Default-IDE-Shortcut-Keys.pdf
  5. Like
    Евгений Корепов
    WinterSun получил реакцию от Евгений Корепов в Объявления процедур и функций горячими клавишими   
    Здравствуйте. 
    Shift+Ctrl+C
    Delphi-Default-IDE-Shortcut-Keys.pdf
  6. Like
    Brovin Yaroslav
    WinterSun получил реакцию от Brovin Yaroslav в Протектор FireMonkey приложений для Mac OS X   
    Здравствуйте. 
    VMProtect вроде бы умеет.
×
×
  • Создать...