Pulsarius

Привет всем!

Кто-нибудь сталкивался с проблемой запуска приложения с использованием 3D компонентов на Android эмуляторе? Приложение написано на Delphi. На iOS эмуляторе всё в порядке - запускается и работает без проблем, а вот Android эмуляторе не хочет. Точнее приложение только начинает запускаться и эмулятор падает. Подчёркиваю - не приложение а сам эмулятор падает! Если убрать 3D компоненты, то всё будет нормально работать, но стоит только добавить хотя бы один 3D компонент, то всё... Delphi 10 Seattle, Android API 22 для 5.1.1. Такое же было и на прежних версиях студии - XE7, XE8. Решение не находил и забивал, т.к. под Android приложение не требовалось - чисто для интереса пробовал запустить, а сейчас потребовалось. Буду очень благодарен за помощь!

где можно скачать презентационные материалы, представление на семинаре в Москве?

https://onedrive.live.com/redir?resid=6F5EAC5B9D042042!4961&authkey=!AEoTXbnPYPhSm4I&ithint=folder%2cpdf

А кто знает, как называлась книга, которую написал Леонов о мобильной разработке в Дельфи и которую показывали на этом семинаре в Москве: http://www.delphitour.ru/

?

"ОБУЧЕНИЕ МОБИЛЬНОЙ РАЗРАБОТКЕ НА DELPHI"

Ты с ума сошёл в функцию массивы передавать 

Замени

function opus_decode(st:OpusDecoder; data:array of Byte; len:Integer;var pcm: array of Byte; frame_size: Integer; decode_fec:Integer):Integer; cdecl; external 'opus.dll';

на

function opus_decode(st: OpusDecoder; data: PByte; len: Integer; pcm: PByte; frame_size: Integer; decode_fec: Integer):Integer; cdecl; external 'opus.dll';

Прототип функции ты неверно объявил. Дальше вызываешь функцию так:

Error := opus_decode(OPDecoder, @PreEnc[0], 9, @PreDec[0], 2000, 0);

Или можно ещё короче, если планируется работа с памятью по указателю:

var
  decodedPtr: Pointer;

procedure MyProcedure(const MaxDataBytes: Integer);
begin
  GetMem(decodedPtr, MaxDataBytes);
end;

И потом не забыть написать где-нибудь вот это, когда выделенная память больше не нужна:

...
FreeMem(decodedPtr);
...

var
  decodedPtr: Pointer;
  decoded: Array of Byte;

procedure MyProcedure(const MaxDataBytes: Integer);
begin
  SetLength(decoded, MaxDataBytes);
  decodedPtr:=@decoded[0];
end;