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

ophion

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

  • Постов

    28

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

  • Посещение

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

    2

 Тип контента 

Весь контент ophion

  1. ophion
    Если своими силами, то вот необходимая информация http://www.adobe.com/devnet/pdf/pdf_reference.html
  2. ophion
    Нет, пока пока нет времени, но стоит попробовать реализовать данную вещь через TBitmapSurface (FMX.Surfaces.TBitmapSurface)
  3. ophion
    Конечно стоит сообщать. Может стоит даже отдельную ветку завести, куда просить пользователей добавлять найденные библиотеки.
  4. ophion
    Возможно так var Item: TCustomBitmapItem; Size: TSize; begin ImageList1.BitmapItemByName('тут пишем Source item name (указывается при добавлении нового изображения) как правило представлент точно так же как имя файла изображения', Item, Size); Image1.Bitmap.Assign(Item.Bitmap); end;
  5. ophion
    Вам же написали, используйте OnTap прекрасно работает, не мешает при скроле. Вы хотите сказать что это не костыль?
  6. ophion
    Судя по всему "решения из коробки" нет. Будем писать костыли... но считаю что наличие такой возможности по умолчанию для TScrollBox было бы не лишним. Спасибо за ответы. Тема открыта, может кто-то сталкивался с такой ситуацией. Не ленитесь делится опытом и кодом тут.
  7. ophion
    Вот пример того, как писать и читать BLOB procedure SaveToFireDACBlob; var MemStream: TMemoryStream; begin FireDAC.Connected := True; MemStream := TMemoryStream.Create; try Image1.Bitmap.SaveToStream(MemStream); MemStream.Seek(0,0); FDQueryInsert.ParamByName('Media').LoadFromStream(MemStream,ftBlob); FDQueryInsert.ParamByName('MType').AsString := '0'; FDQueryInsert.ExecSQL(); except on e: Exception do begin ShowMessage(e.Message); end; end; MemStream.Free; FireDAC.Connected := False; end; procedure LoadFromFireDACBlob; var BlobStream: TStream; begin FireDAC.Connected := True; try FDQuerySelect.Open; FDQuerySelect.First; while(not FDQuerySelect.EOF)do begin // access a stream from a blob like this BlobStream := FDQuerySelect.CreateBlobStream(FDQuerySelect.FieldByName('Media'),TBlobStreamMode.bmRead); // access a string from a field like this if (FDQuerySelect.FieldByName('MType').AsString='0') then begin // load your blob stream data into a control ImageViewer.Bitmap.LoadFromStream(BlobStream); end; BlobStream.Free; FDQuerySelect.Next; end; except on e: Exception do begin //ShowMessage(e.Message); end; end; FireDAC.Connected := False; end; {источник http://www.fmxexpress.com/read-and-write-a-blob-field-using-firedac-with-firemonkey-on-android-and-ios/} Касательно работы с изменением качества/размера, считаю что необходимо использовать TBitmapSurface (unit FMX.Surfaces)
  8. ophion
    Добрый день. В рантайме создаются TButton и помещаются в TVertScrollBox. Если во время прокручивания нажать пальцем на TButton, то срабатывает событие OnClick. Собственно вопрос... как избежать такого поведения? Т.е. как разрешить нажатие на кнопки только после того, как прокручивание остановилось?
  9. ophion
    Там образец кода есть var QRCode: TDelphiZXingQRCode; QRCodeBitmap:TBitmap; Row, Column: Integer; pixelColor : TAlphaColor; vBitMapData : TBitmapData; rSrc, rDest : TRectF; s : widestring; begin QRCode := TDelphiZXingQRCode.Create; try QRCode.Data := edtText.Text; QRCode.Encoding := TQRCodeEncoding(cmbEncoding.ItemIndex); QRCode.QuietZone := StrToIntDef(edtQuietZone.Text, 4); QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns); for Row := 0 to QRCode.Rows - 1 do begin for Column := 0 to QRCode.Columns - 1 do begin if (QRCode.IsBlack[Row, Column]) then pixelColor := TAlphaColors.Black else pixelColor := TAlphaColors.White; if QRCodeBitmap.Map(TMapAccess.maWrite, vBitMapData) then try vBitMapData.SetPixel(Column, Row, pixelColor); finally QRCodeBitmap.Unmap(vBitMapData); end; end; end; finally QRCode.Free; end; {далее выводим битмап QRCodeBitmap на TImage} end;
  10. ophion
    Код проекта и дполнительньно-используемый юнит есть по ссылке, где собственно и приводится пример.
  11. ophion
    Поднимаю тему, поскольку вопрос генерации QR-кода на устройстве под управлением Android, не решен.
  12. ophion
    Будет зависеть от языка ОС (если не ошибаюсь)
  13. ophion
    Используйте MessageDlg. На андроиде немного инная реализация, требующая добавления асинхронной процедуры обрабоки результатов, полученных от MessageDlg. Будет что-то вроде: MessageDlg('Удалить выбранный файл?', TMsgDlgType.mtConfirmation, mbYesNo, 0, procedure (const AResult: TModalResult) begin if (AResult=mrYes) then begin {тут обрабатываете результат нажатия кнопки "Yes"} end; end);
  14. ophion
    Всем доброго времени суток. Среда: Rad Studio 10 Seattle (без Update 1) Платформа: Android Столкнулся с необходимостью генерации QR-кода для отображения на TImage. Воспользовался информацией, взятой тут http://zarko-gajic.iz.hr/firemonkey-mobile-android-ios-qr-code-generation-using-delphi-xe-5-delphizxingqrcode/ У автора возникла проблема с опцией DisableInterpolation на платформе Android (тот же код отлично работает на Windows), а именно, на Android это не работает (изображение получается размытым) Перепробовал всё, что приходило в голову, а так же было нагуглено.... но все попытки безуспешны. Подскажите, как изменить размер изображения, чтобы оно не становилось мутным?
  15. ophion
    В демонстрационных проектах есть пример работы с ImageList, где так-же в Run time добавляются новые изображения.. Найти его можно тут С:\Users\Public\Documents\Embarcadero\Studio\17.0\Samples\Object Pascal\Multi-Device Samples\User Interface\ImageList (есть вероятность, что у вас необходимо немного изменить путь, в зависимости от расположения папки "Users" или "Пользователи", а так-же заменить 17.0 на вашу версию). Надеюсь это вам поможет.
  16. ophion
    Рекомендую начать с простого... проверьте файл hosts, который расположен тут /system/etc/hosts Именно этот файл редактирует AdBlock и прочие решения.
  17. ophion

    Как получить IMEI?

    ophion ответил estra вопрос в iOS

    Дам вам подсказку из Android доков... public String getDeviceId () Added in API level 1 Returns the unique device ID, for example, the IMEI for GSM and the MEID or ESN for CDMA phones. Return null if device ID is not available. Requires Permission: READ_PHONE_STATE public String getDeviceId (int slotId) Added in API level 23 Returns the unique device ID of a subscription, for example, the IMEI for GSM and the MEID for CDMA phones. Return null if device ID is not available. Requires Permission: READ_PHONE_STATE Parameters slotId of which deviceID is returned
  18. ophion
    Конструктивный ответ. Ну значит подскажите человеку как пользоваться поиском, либо киньте ссылку на обсуждение данной темы. А так зачем писать сухие отписки?!
  19. ophion
    Попробуйте для начала проверить, есть-ли данные от сервера в буфере if IdTCPClient1.IOHandler.InputBufferIsEmpty=false then begin {тут считываете и обрабатываете данные} end;
  20. ophion
    Грузить в отдельном потоке?!
  21. ophion
    Реализации сервисных приложений под Android имели место, и об этом есть пара статей http://blog.blong.com/2013/11/delphi-and-android-services.html и http://blog.blong.com/2013/11/delphi-and-android-services-part-2.html Надеюсь, это Вам поможет
  22. ophion
    Монетизация не всегда сказывается положительно на развитии сервиса, а иногда и вовсе его "убивает". Думаю, что введение в эксплуатацию подобного способа размещения вопросов/ответов, плачевно скажется на данной комьюнити. У вас определенно наблюдаются предпринимательские навыки, но, как мне кажется, отнюдь не уместные в данном месте. Что вам мешает запустить собственный проект, который будет аналогом experts-exchange.com , где у Вас будет возможность и желание творить, что Вашей душе угодно?
  23. ophion
    Может тогда зальёте в тему адаптированные варианты?
  24. ophion
    Может особенности девайса.... Galaxy NOTE 2 (Android 4.4.2) После сканирования не отрабатывает OnScanResult. информация размещается в буфере обмена, но вот AResult в себе информации не содержит.
  25. ophion
    Добрый вечер дамы и господа. Для RAD XE5 был написан замечательный компонент для работы со считыванием штрих-кодов на мобильных платформах. Суть темы следующая... Этот компонент очень легко переделать под RAD XE6, но вот под XE7 он никак не идёт, а разбираться с этой проблемой, честно говоря, нет времени. Я выложу ссылочку на компонент, который отлично работает с XE5, а остальные представители сообщества, у которых найдется немного времени, могут допилить его для версий XE6 и XE7 и запостить в этой теме ссылочки и описания изменений. Коллективный разум, так сказать... Вот сама ссылочка для версии XE5 TKRBarCodeSanner.zip P.S. Если у кого-то имеются другие компоненты для работы со штрих-кодами, не поленитесь выкатить их в тему.
×
×
  • Создать...