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

Pax Beach

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

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

  • Посещение

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

    12

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

  1. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в TBitmap -> TJPEGImage и TgifImage   
    модули Jpeg, PngImg (для gif не помню как называется), там есть нужные классы
  2. Like
    Pax Beach получил реакцию от Kitty в Seattle Android Ошибка exited with code 1   
    Как понять «нашел»?
    А Android Tools не дает скачать нужную версию SDK?
  3. Like
    Pax Beach отреагировална enatechno в TBitmap -> TJPEGImage и TgifImage   
    Для конвертации можете использовать TBitmapCodecManager. Например, так я его использую для сохранения файлов в различном формате:
     
    var aExtention, aFileName: string; aFileStream: TFileStream; aSaveParams: TBitmapCodecSaveParams; aSurf: TBitmapSurface; aBitmap: TBitmap ..... aFileStream := TFileStream.Create(aFileName, fmCreate); try aSurf := TBitmapSurface.Create(); try aSurf.Assign(aBitmap); aSaveParams.Quality := 70; TBitmapCodecManager.SaveToStream(aFileStream, aSurf, aExtention, @aSaveParams); finally FreeAndNil(aSurf); end; finally FreeAndNil(aFileStream); end; Для сохранения jpg использую aExtention='.jpg' и т.д.



    И почему Вы используете  TJPEGImage и TgifImage? Они разве есть в FMX? TImage.Bitmap читается из файла так:
     
    var aImage: TImage; aFileName: string; ... aImage.Bitmap.LoadFromFile(aFileName);  
  4. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в TBitmap -> TJPEGImage и TgifImage   
    TBitmap это общий класс для работы с картинками, он всеядный
    Это не VCL где нужно подбирать класс под расширение файла
  5. Like
    Pax Beach получил реакцию от Rusland в Зависимость от регистра русских символов при использовании LIKE   
    Я говорю про все диалекты SQL. Когда идет речь о том, что не работает сравнение в where или like, нужно смотреть настройки кодировки на сервере и в строке соединения.
    UPD:
    Прочитал, что есть проблема сортировки в SQLite. Проверил — есть, и LIKE, и ORDER BY. Прочитал ответ разработчиков — подход порадовал.
    Потребуется воспользоваться функцией sqlite3_create_collation (есть в компонентах FireDAC, UniDAC, модуле RTL\System.Sqlite.pas). Я нашел пример только на C.
    Может у Вас получится воспользоваться — будем рады посмотреть пример.
  6. Like
    Pax Beach отреагировална Steepe_Hare в Другая система координат?   
    Объясните, пожалуйста, почему этот простой код работает по-разному в Win32 и на Андроиде? Картинка 150x200 в битмап уже загружена и нужно ее расчертить.
     
    Image1.Bitmap.Canvas.BeginScene; try Image1.Bitmap.Canvas.Stroke.Kind := TBrushKind.Solid; Image1.Bitmap.Canvas.Stroke.Color := TAlphaColors.Blue; for I := 0 to 9 do Image1.Bitmap.Canvas.DrawLine(TPointF.Create(I * 15, 0), TPointF.Create(I * 15, Image1.Bitmap.Height), 1); for J := 0 to 9 do Image1.Bitmap.Canvas.DrawLine(TPointF.Create(0, J * 20), TPointF.Create(Image1.Bitmap.Width, J * 20), 1); finally Image1.Bitmap.Canvas.EndScene; end; Под Виндой создается точная сетка 10x10, а под Андроид как будто другая система координат и территория делится на огромные квадраты (больше, чем надо).
  7. Like
    Pax Beach отреагировална rustam_d в Как узнать уровень заряда батареи (BatteryManager)   
    uses   AndroidAPI.Helpers,   AndroidAPI.JNI.GraphicsContentViewText;   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     function BatteryPercent(const aContext: JContext): Integer;   end;   var   Form1: TForm1;   implementation   {$R *.fmx}   function TForm1.BatteryPercent(const aContext: JContext): Integer; var   filter: JIntentFilter;   battery: JIntent; begin   filter := TJIntentFilter.Create;   filter.addAction(TJIntent.JavaClass.ACTION_BATTERY_CHANGED);   battery := aContext.registerReceiver(NIL, filter);   result := battery.getIntExtra(StringToJString('level'), -1) end;   procedure TForm1.FormCreate(Sender: TObject); var   myContext: JContext; begin   myContext := SharedActivityContext;   Showmessage(BatteryPercent(myContext).ToString); end;   а еще по другим параметрам испанец круто обсосал тут http://neftali.clubdelphi.com/?p=3157 а если надо модель, серийный то это у вас на компе Delphi\Samples\Object Pascal\Mobile Snippets\DeviceInfo  (но тут хоть ИОС есть).
  8. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в анимация батарейки с управлением "уровня заряда"   
    ответ: можно
    P.S. несколько раз прочитал, не понял о чем
  9. Like
    Pax Beach отреагировална Brovin Yaroslav в TBitmap и экономия памяти   
    Не знаю, кто пишет примеры в студию  Но иногда сам удивляюсь... Мы, конечно, иногда сами делаем примеры, но их не так много.
    P.S. Opacity в FMX всегда было от 0 до 1
  10. Like
    Pax Beach получил реакцию от Brovin Yaroslav в TBitmap и экономия памяти   
    В FMX Opacity всегда от 0 до 1. Не верьте безоговорочно примерам Студии, они не актуальные.
     
  11. Like
    Pax Beach получил реакцию от dnekrasov в TBitmap и экономия памяти   
    В FMX Opacity всегда от 0 до 1. Не верьте безоговорочно примерам Студии, они не актуальные.
     
  12. Like
    Pax Beach получил реакцию от Равиль Зарипов (ZuBy) в Проверить наличие интернета   
    Вот теперь верю )
    Спасибо, то что нужно!
     
  13. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в TMapView не работает с IOS   
    думаю как-то так
    function CheckInternet2: boolean; // uses System.Net.HttpClient, System.Net.HttpClientComponent var Resp: IHTTPResponse; begin Result := false; with TNetHTTPClient.Create(nil) do begin try Resp := Head('http://google.com'); Result := Resp.StatusCode < 400; except Result := false; end; Free; end; end; метод HEAD
  14. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в Проверить наличие интернета   
    "ОН" - метод средствами апи
    посмотрите DeviceInfo там реализовано для Android и Windows
    для IOS нет нужных интерфейсов. сделать можно, но времени нет этим заниматься
  15. Like
    Pax Beach получил реакцию от Равиль Зарипов (ZuBy) в TBitmap и экономия памяти   
    В FMX Opacity всегда от 0 до 1. Не верьте безоговорочно примерам Студии, они не актуальные.
     
  16. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в Вес исполняемого файла.   
    смиритесь, это RAD! Хотите чтобы меньше весило используйте нативные инструменты разработки.
    Android Studio, XCode
  17. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в RAD Berlin Upd1 & XCode   
    xcode 8 и новый paserver все пучком
  18. Like
    Pax Beach получил реакцию от Kitty в Seattle Android Ошибка exited with code 1   
    Не могу сейчас найти. Хотите — верьте, хотите — проверьте, на прошлой неделе, буквально, читал во глубинах developer.android.com, что SDK 23 пока самый работоспособный релиз. Наверное имелся ввиду 23.3, этой версией пользуюсь.
    С более поздними версиями были аналогичные проблемы, описанные в топике.
     
  19. Like
    Pax Beach получил реакцию от Прикладной в Seattle Android Ошибка exited with code 1   
    Не могу сейчас найти. Хотите — верьте, хотите — проверьте, на прошлой неделе, буквально, читал во глубинах developer.android.com, что SDK 23 пока самый работоспособный релиз. Наверное имелся ввиду 23.3, этой версией пользуюсь.
    С более поздними версиями были аналогичные проблемы, описанные в топике.
     
  20. Like
    Pax Beach получил реакцию от Rusland в TBitmap и экономия памяти   
    В FMX Opacity всегда от 0 до 1. Не верьте безоговорочно примерам Студии, они не актуальные.
     
  21. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в [TListView] Как отловить нажатие на картинку в TListView?   
    procedure TForm1.lvMainItemClickEx(const Sender: TObject; ItemIndex: Integer; const LocalClickPos: TPointF; const ItemObject: TListItemDrawable); begin if ItemObject is TListItemImage then ShowMessage(lvMain.Items[ItemIndex].Data['DateText'].AsString); end;  
  22. Like
    Pax Beach отреагировална Равиль Зарипов (ZuBy) в TBitmap и экономия памяти   
    TRectF - не является классом, у него нет конструктора. Create используется чисто синтаксически.
  23. Like
    Pax Beach получил реакцию от Andrey Efimov в Методы шифрования delphi   
    Для каких задач нужно шифрование?
    Если нужно шифровать текст для передачи по сети, то с этим справятся DataSnap и Indy.
    А если файлы шифровать, и чтобы работало на всех платформах, возьмите открытый код стандартных методов шифрования AES, RSA, DES и т.п. Например, здесь, и используйте в своем проекте.
    Конечно, давно пора это дело причесать под XE и Berlin и выложить для сообщества. Только не забываете про различие UNIX и Windows нумерации символов в String.
     
  24. Like
    Pax Beach получил реакцию от Равиль Зарипов (ZuBy) в TBeacon. CASE: Использование маячков для контроля расхода электроэнергии   
    Для расчета расстояния мы работаем с событием onCalculateDistances. Параметр var NewDistance: Double.
    Выдается некое абстрактное дробное число, которое опытным путем можно перевести в метры.
    Сейчас разбираемся с BeaconFence, скачал из GetIt PM, есть желание визуализировать местонахождение маячков, по типу локатора.
     
    UPD:
    Расчет расстояния получаем по такой формуле: пруфлинк1, пруфлинк2, пруфлинк3, пруфлинк4.
    function TfmMain.GetDistance(const ATxPower, ARssi: Integer): Double; begin if ARssi = 0 then Result := -1; // Невозможно определить расстояние if (ARssi / ATxPower < 1) then Result := power(ARssi / ATxPower, 10) else Result := 0.89976 * power(ARssi / ATxPower, 7.7095) + 0.111; end;  
  25. Like
    Pax Beach отреагировална Rusland в PowerOff - пример приложения с гибким интерфейсом(flexible interface)   
    Для этого нужны root-права
×
×
  • Создать...