Syb

Скачал триалку XE8 скомпилировал рабочий исходник , элементы дерева кроме корневых не видны, корневой элемент открываешь там пустая сторка... Из за чего такое может быть?(в XE7 все ок). Еще общая проблема если попробовать вставить картинку как в примере почему то под андроидом приложение закрывается долго думая...

constructor TNode.Create(Owner: TComponent; const aText: String;
  const im: TStringStream);
begin
  inherited Create(Owner);
  Self.Text := aText;

  FImage := TImage.Create(Owner);
  Self.AddObject(FImage);
  FImage.Align := TAlignLayout.Right;
  if aImageFileName <> nil then

    FImage.Bitmap.LoadFromStream(im);
  FImage.SendToBack;
end;

...................
 if Xml.ChildNodes['Розница'].ChildNodes[i].NodeName <> null then
              begin
                s9 := Xml.ChildNodes['Розница'].ChildNodes[i].Attributes['Наименование'];
                Item:=TTreeViewItem.Create(tv);
                item.Text:=s9;
                Item.Parent:=tv;
             

                for j := 0 to Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes.Count-1 do
                Begin
                  s9:=Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].Attributes['Требование'                      ]+' от '+Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].Attributes['Да                     та'];
                  Itemt:=TTreeViewItem.Create(tv);
                  itemt.Text:=s9;
                  Itemt.Parent:=Item;
                  for k := 0 to Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes.co                               unt-1  do
                  Begin
                    s9:=Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].Attribu                        tes['Заказ']+':'+Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].Chil                   dNodes[k].Attributes['ЗаказСумма'];
                    Itemz:=TTreeViewItem.Create(tv);
                    itemz.Text:=s9;
                    Itemz.Parent:=Itemt;
/////////////////////////////////////////картинка
for l := 0 to Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].ChildNodes.count -1  do
            Begin
            s9:= Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].ChildNodes[l].ChildValues['Izd'];
            s8:=Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].ChildNodes[l].ChildValues['Pic'];
            if pos('Binary',s8)>0 then
            Begin
            pi := (TresourceStream.Create(0, 'balalayka',
            PChar(RT_RCDATA)));
            ss:=TStringStream.Create;
            ss.LoadFromStream(pi);

            pi.Free;
            End else
            Begin
            ss:=TStringStream.Create;
            decode.DecodeStream(s8,ss);

            end;
            ss.Position:=0;
            Itemi:=TNode.Create(tv,s9,ss);
            itemi.Text:=s9;
            Itemi.Parent:=Itemz;
            // Itemi.IsExpanded:=true;
            Itemz.AddObject(Itemi);
            //      itemz.IsExpanded:=true;
            ss.Free;
            //   itemi.Destroy;
            //   itemi:=nil;
            End;



//////////////////////////////////////////

            
                    Itemt.AddObject(Itemz);
                 
                  End;





                  Item.AddObject(Itemt);
              
                End;
                tv.AddObject(Item);

              end;



  end;
 
  tv.EndUpdate;

Как реализованы в iOS фоновые операции судя по отсутствию тем можно просто потоком запустиь при сворачивании и засыпании не заморозится как у андроида?

С работой форм попробуйте хот фикс поставить, про меди плеер я не пробовал, но это все таки приложение + сервис. Сервис не замораживается. при сворачивании нужно по событию просто ставить паузу.

не из деплоймент, а из ресурсов Project>Resources and Images - Добавляете картинки ваши

var pi: TresourceStream;

.....

if findresource(0, 'имя картинки в ресурсах', PChar(RT_RCDATA)) <> 0

then

Begin

pi := (TresourceStream.Create(0, 'имя картинки в ресурсах',

PChar(RT_RCDATA)));

imageg[j].LoadFromStream(pi);

pi.Free;

end;

сервис запускайте, только придется для сервиса не много танцев с бубном и Джава кода.

Интересный момент , если сервис запускаешь из активити приложения тоесть из сомой программы, то сервис который мы запускаем видит написанные нативные процедуры, если мы стартуем сервис по action не запуская приложения, то нативные функции не определены. есть у кого то мысли как исправить? 

Спасибо за ответ

1. Эти примеры на java, из java я знаю как запустить сервис тут вопрос запуска именно из кода делфи правила и понятия обращения к java классу именно из делфи , вроди того что сделал брайн лонг , но сервис написан не на делфи а на java его нужно просто запустить и приклеить к приложению . Суть в том что и Брайн не очень то объяснил свой пример что и для чего в коде он делал...

2 . Как сослаться на нативный код из java тоже понятно , не понятно как описать а делфи вызываемую функцию из джава

Возможно ли запустить из приложения на Delphi сервис написанный на JAVA, в которм запускается поток, который запускает метод из кода Delphi?

Как описать в Delphi-JNI метод Delphi, для вызова из JAVA кода если можно с примером... ?