Привет всем!
Среда laz4android, не могу никак запустить простой поток под Андроид. На телефон простенькие программы устанавливаются, работают. В lazarus под Windows работает. А здесь программа запускается, нажимаю на запуск потока, сразу вылетает. Куда копать? Второй день уже трачу, не могу понять что ему надо.
Задача простая, нажимаю на кнопку, должен запустится поток, в этом потоке он должен на форму в текствую метку вывести строку 'Rabotaet'.
{hint: Pascal files location: ...\Potok\jni }
unit unit1;
{$mode delphi}
interface
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, AndroidWidget, Laz_And_Controls;
type
{ TAndroidModule1 }
TAndroidModule1 = class(jForm)
Button1: jButton;
TextView1: jTextView;
procedure Button1Click(Sender: TObject);
private
{private declarations}
public
{public declarations}
end;
type
{ ShdkThread }
ShdkThread=class(TThread)
private
stroka: string;
procedure Show;
protected
procedure Execute; override;
end;
var
AndroidModule1: TAndroidModule1;
potok: ShdkThread;
implementation
{$R *.lfm}
{ ShdkThread }
procedure ShdkThread.Show;
begin
stroka:='Rabotaet';
AndroidModule1.TextView1.Text:=stroka;
end;
procedure ShdkThread.Execute;
begin
Synchronize(Show);
end;
{ TAndroidModule1 }
procedure TAndroidModule1.Button1Click(Sender: TObject);
begin
try
potok:=ShdkThread.Create(true);
potok.FreeOnTerminate:=true;
potok.Priority:=tpLower;
potok.Resume;
except
end;
end;
end.