Потоки в android на delphi

[-=Virus=-]

Доброе время суток. Решил попробовать написать не большую программку для android. Столкнулся с проблемой:
Пытаюсь запустить поток, но ругается на tpLower, глянул и увидел что данные должны быть integer.

var
  SearchThread: TSearchThread;
begin
  SearchThread:=TSearchThread.Create(true);
  SearchThread.FreeOnTerminate:=true;
  SearchThread.Priority:=tpLower;
  SearchThread.Resume;
end;

Решил загуглить насчёт этого, какой должен быть приоритет.
Задал ругаться перестал собрался .apk но при запуске потока выдаёт ошибку.

var
  SearchThread: TSearchThread;
begin
  SearchThread:=TSearchThread.Create(true);
  SearchThread.FreeOnTerminate:=true;
  SearchThread.Priority:=5;
  SearchThread.Resume;
end;

Подскажите как правильно установить приоритет?
Глянул документацию delphi но так и не нашёл по данному вопросу ни чего.

[Stilet]

при запуске потока выдаёт ошибку.

Которая естесственно Гуглом сразу была забанена )

[-=Virus=-]

Сообщение от Stilet

Которая естесственно Гуглом сразу была забанена )

В том то и дело что ничего внятного и не нашёл.
Кстати сама ошибка:

thread error: invalid argument (22).

Сделал так поток запустился и после завершения потока программа просто закрывается. И ошибок нет ни каких.

var
SearchThread: TSearchThread;
begin
SearchThread:=TSearchThread.Create( true);
SearchThread.FreeOnTerminate:=true;
SearchThread.Priority:=0;
SearchThread.Resume;
end;

[Пепел Феникса]

Сообщение от -=Virus=-

Сделал так поток запустился и после завершения потока программа просто закрывается. И ошибок нет ни каких.

это весь код приложения?

[-=Virus=-]

Сообщение от Пепел Феникса

это весь код приложения?

Нет конечно.

unit TabbedFormwithNavigation;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Graphics, FMX.Forms, FMX.Dialogs, FMX.TabControl, FMX.StdCtrls,
  System.Actions, FMX.ActnList, FMX.Gestures, FMX.Edit, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  FMX.Layouts, FMX.ListBox, FMX.Ani, FMX.WebBrowser, Data.Bind.EngExt,
  Fmx.Bind.DBEngExt, Data.Bind.Components, inifiles;

type
TNewThread = class(TThread)
public
 procedure Execute;override;
end;

type
  TTabbedwithNavigationForm = class(TForm)
    TabControl1: TTabControl;
    ActionList1: TActionList;
    ChangeTabAction1: TChangeTabAction;
    ChangeTabAction2: TChangeTabAction;
    GestureManager1: TGestureManager;
    IdHTTP1: TIdHTTP;
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    TabItem3: TTabItem;
    ListBox1: TListBox;
    Expander1: TExpander;
    FloatAnimation1: TFloatAnimation;
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Switch1: TSwitch;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;

    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure ListBox1ItemClick(const Sender: TCustomListBox;
      const Item: TListBoxItem);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TabbedwithNavigationForm: TTabbedwithNavigationForm;


implementation

{$R *.fmx}





procedure TNewThread.Execute;
begin
 showmessage('1');
end;



procedure TTabbedwithNavigationForm.Button2Click(Sender: TObject);
var
 NewThread: TNewThread;
begin
          NewThread:=TNewThread.Create(true);
          NewThread.FreeOnTerminate:=true;
          //поток автоматически завершается после выполнения
          NewThread.Priority:=0;
          NewThread.Resume; //запуск потока
end;

procedure TTabbedwithNavigationForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
   Ini: TIniFile;
begin
   Ini:= TIniFile.Create('sdcard/.Raspisanie_LPK/settings');
   Ini.WriteString ( 'setting','Server_Proxy',  Edit1.Text);
   Ini.WriteString ( 'setting','Port_Proxy',  Edit2.Text);
   Ini.WriteBool ( 'setting' ,'Proxy',  Switch1.IsChecked);
end;

procedure TTabbedwithNavigationForm.FormCreate(Sender: TObject);
begin
  TabControl1.ActiveTab := TabItem3;
end;

procedure TTabbedwithNavigationForm.FormResize(Sender: TObject);
begin
  if DirectoryExists('sdcard/.Raspisanie_LPK/')
   then
  else CreateDir('sdcard/.Raspisanie_LPK/');
end;

procedure TTabbedwithNavigationForm.FormShow(Sender: TObject);
var
   ini: TIniFile;
begin
   Ini := TIniFile.Create('sdcard/.Raspisanie_LPK/settings');
   Edit1.Text := Ini.ReadString ('setting','Server_Proxy','');
   Edit2.Text := Ini.ReadString ('setting','Port_Proxy','');
   Switch1.IsChecked:= Ini.ReadBool ( 'setting','Proxy', True);

end;

end.

[Stilet]

Я криминала в коде не увидел.

[Кольша]

-=Virus=-, я что-то пропустил, или из по делфи можно строчить под андройд?

[-=Virus=-]

Сообщение от Кольша

-=Virus=-, я что-то пропустил, или из по делфи можно строчить под андройд?

Можно, только в Embarcadero RAD Studio XE5, там поддержка android есть.

Сообщение от Stilet

Я криминала в коде не увидел.

Я про это же. Самое интересное, при окончании потока программка сразу закрывается. И понять я не могу почему.

Вот что я увидел в System.Classes

{$IF Defined(MSWINDOWS)}
    property Handle: THandle read FHandle;
    property Priority: TThreadPriority read GetPriority write SetPriority;
{$ELSEIF Defined(POSIX)}
    // ** Priority is an Integer **
    property Priority: Integer read GetPriority write SetPriority;
    property Policy: Integer read GetPolicy write SetPolicy;
{$ENDIF POSIX}

Вот какое тогда число задать Priority? Всю уж голову поломал.

[Stilet]

при окончании потока программка сразу закрывается.

Ошибка какая-то проходит, Андруша ее и вышибает.
P.S. мне казалось что для андройда нужно в uses использовать его пространство имен, а я там их у тебя не вижу. Хотя в 5-ке не работал, могу ошибаться.

[petrovichtim]

Сообщение от Кольша

-=Virus=-, я что-то пропустил, или из по делфи можно строчить под андройд?

Можно с версии XE5, только не под каждый, вот тут описан способ определения подходящего устройства.