Bezskutecznie szukam w necie informacji o czymś na podobieństwo semafora, sekcji krytycznej albu mutexu dla aplikacji FMX (Android) w D 10.2 lub D10.4.
Może ktoś coś podpowie
- Rejestracja:ponad 14 lat
- Ostatnio:około 10 godzin
0
Delphi edytowany 1x, ostatnio: grzegorz_so
- Rejestracja:ponad 14 lat
- Ostatnio:około 10 godzin
0
@robertz68:
jest mi to potrzebne, aplikacja wielowątkowa i synchronizacja dostępu do wspólnego zasobu
- Rejestracja:ponad 17 lat
- Ostatnio:około 4 godziny
- Postów:1597
1
Może ktoś mnie poprawi ale semafory i mutexy to chyba jest stricte windowsowe rozwiązanie i na androidzie chyba inaczej się to realizuje ale doświadczenia w tej kwestii nie mam
grzegorz_so
pewnie tak jest, szukam analogicznego narzędzia (mechanizmu)
robertz68
ale System.Threading działa na androidzie, tam przecież jest możliwość synchronizacji? Działa nawet PPL które jest zdecydowanie prostsze, no dobra ma mniejsze możliwości ale często wystarczające.
- Rejestracja:ponad 9 lat
- Ostatnio:4 miesiące
- Postów:130
1
Może klasa TMonitor z modułu System coś pomoże.
http://docwiki.embarcadero.com/Libraries/Sydney/en/System.TMonitor
edytowany 1x, ostatnio: PrzemysławWiśniewski
- Rejestracja:ponad 14 lat
- Ostatnio:około 10 godzin
1
Dziękuję wszyskim którzy próbowali pomóc w rozwiązaniu problemu.
Udało mi się rozwiązać problem stosując klasę "TInterlocked".
kod realizujący blokady
unit lock;
interface
uses System.SyncObjs;
function lockData: integer;
function unlockData: integer;
implementation
var
lockFlag: integer;
function lockData: integer;
begin
result := TInterlocked.Increment(lockFlag);
if result = 1 then
exit;
TInterlocked.decrement(lockFlag);
result := 0;
end;
function unlockData: integer;
begin
result := TInterlocked.decrement(lockFlag);
end;
initialization
lockFlag := 0;
end.
kod testowego wątku
testowym obiektem wymagającym wyłączności na dostęp jest globalna zmienna 'lockCount' typu integer
type TTestThread = class(TThread)
protected
procedure Execute; override;
end;
procedure TTestThread.Execute;
begin
inherited;
while not self.Terminated do
begin
if lockData = 1 then
try
Inc(lockCount);
try
if lockCount <> 1 then
self.Synchronize(
procedure
begin
Form1.Memo1.Lines.Add(datetimetostr(now) + ' ' +
inttostr(lockCount))
end);
sleep(random(100));
finally
dec(lockCount);
end;
finally
unlockData;
end;
sleep(random(100));
end;
end;
procedura testująca
var lockCount:integer;
......
......
procedure TForm1.Button8Click(Sender: TObject);
var
i: integer;
begin
randomize;
lockCount := 0;
for i := 1 to 50 do
TTestThread.create;
end;
Wiem że metodzie testującej tworzę 50 wątków, które nie są kończone i zwalniane. To jest tylko test mechanizmu blokowania. W aplikacji finalnej coś takiego jest niedopuszczalne
edytowany 7x, ostatnio: grzegorz_so