wenn ich in meiner app mit athread.suspended:= false; den thread fortsetzen lassen möchte bekomme ich die Fehlermeldung :"Segmentation fault (11)" unter Windows funktioniert das ohne Probleme. ... muss ich bei Android und threads was besonderes beachten?

Hallo...
was heißt

Zitat:

fortsetzen lassen

Hast du den Thread (TThread?) suspendet erzeugt und willst ihn starten? Dann Thread.Start; Hast du den Thread angehalten und willst weitermachen? Dann eine andere Strategie wählen. Imho ist das nicht zu empfehlen.

Threads werden nach dem Start nicht mehr angefasst. Wenn ein Thread warten muss bis eine bestimmte Bedingung besteht, gibt es dafür verschiedene Möglichkeiten, zum Beispiel TEvent.

Stop, Pause, Suspend usw. darf niemals aufgerufen werden.

Jedenfalls nicht von extern. (darum geben "aktuellere" Delphis auch eine Compilerwarnug aus, wenn man solche Funktionen aufrufen will)
Maximal darf sich der Thread von innen selber schlafen legen, denn nur dan ist sichergestellt, daß er auch an einer "sicheren" Stelle anhält.

Stell dir mal vor du pausierst den Thread, während er z.B. grade vom Speichermanager etwas anfordert, oder wenn er gerade mitten dabei ist in einer "gesperten" CriticalSection etwas zu machen.
Mit genug Pech hälst du den nun dann an, während der Speichermanager noch mitten in der Arbeit ist, also er sich noch gesperrt hat (CS.Enter), dann kommt der Thread aus der Sperre nicht mehr raus und du blockierst dann auch alles Andere so lange, was ebenfalls darauf zugreifen will.

ok verstanden... hab nur irgend einaltest tutorial auf platte gefunden gehabt...

hat da jemand einaktuelles das ich mich da bei gelegenheit mal einarbeiten kann?

hab das ganze um gebaut...
funktioniert soweit auch...

nur mit dem senden über einen socket aus dem Thread heraus bekomm ich immer noch die fehlermeldung

Zu deiner Frage: "nur mit dem senden über einen socket aus dem Thread heraus bekomm ich immer noch die Fehlermeldung"


Der Fehler ist ein Mega Bug was Threads in Android angeht in XE5 (soll aber schon gefixt werden, also bitte KEIN QC-Eintrag mehr machen)

wenn man im Thread in JavaObjekt nutzt bricht das genau mit dem Fehler ab.

JavaObjekt???? Ja zum Beispiel nutzt ihr ein Bitmap im Thread, das wird in Wirklichkeit auf ein Android Bitmap gelegt (also Java mapping)

Der Thread meldet sich aber am Ende nicht von Java ab. Somit kracht der Thread dann am ende.

Lösung:

Es gibt eine globale (singleton) Methode wo sich der Thread meldet wenn er fertig ist. Somit müsst Ihr diese abhandeln.

In eurem Hauptform macht Ihr folgendes:

USES Anweisung hinzufügen

markieren

Code:

{$IFDEF ANDROID}
    , Androidapi.NativeActivity,
  Posix.Pthread
{$ENDIF}

Dann eine Methode im Hauptform hinzufügen

markieren

Code:

{$IFDEF ANDROID}

procedure MyEndThreadProc(ExitCode: integer);
var
  PActivity: PANativeActivity;
begin
  PActivity := PANativeActivity(System.DelphiActivity);
  PActivity^.vm^.DetachCurrentThread(PActivity^.vm);
  pthread_exit(ExitCode);
end;
{$ENDIF}

und im FormCreate folgendes:

markieren

Code:

procedure TfrmMain.FormCreate(Sender: TObject);
var
  AppEventSvc: IFMXApplicationEventService;
begin

{$IFDEF ANDROID}
  EndThreadProc := MyEndThreadProc;
{$ENDIF}
 ......
end;

dann gehts sauber.

Grüsse

Daniel Magin
DeveloperExperts

danke

ein Thread tutorial würde ich trotzdem noch nehmen wenn einer einen link haben sollte..

Neuer Versuch altes problem:

zusammenfalten · markieren

Delphi-Quellcode:

  TTestClientSock = Class(TThread)
    private
      fSocket : TIdTCPClient;
    protected
      procedure Execute; override;
    public
      Constructor Create;
      Destructor Destroy; override;
  End;

.....................

constructor TTestClientSock.Create;
begin
  inherited Create(true);
  FSocket := TIdTCPClient.Create(nil);
end;

destructor TTestClientSock.Destroy;
begin
  FSocket.Free;
  inherited;
end;

procedure TTestClientSock.Execute;
var i,j : Integer;
begin
  for i:= 0 to 5000000 do J:= i
end;

.....

uses ....
{$IFDEF ANDROID}
     Androidapi.NativeActivity,
  Posix.Pthread, FMX.Platform,
{$ENDIF}
   .....

{$IFDEF ANDROID}

procedure MyEndThreadProc(ExitCode: integer);
var
  PActivity: PANativeActivity;
begin
  PActivity := PANativeActivity(System.DelphiActivity);
  PActivity^.vm^.DetachCurrentThread(PActivity^.vm);
  pthread_exit(ExitCode);
end;
{$ENDIF}

procedure THeaderFooterForm.FormCreate(Sender: TObject);
var
  AppEventSvc: IFMXApplicationEventService;
begin
{$IFDEF ANDROID}
  EndThreadProc := MyEndThreadProc;
{$ENDIF}
  fSocket := TTestClientSock.Create;
  fSocket.Start;
end;

wenn ich den socket weglasse geht alles ohne probleme sobald ich den socket ins Spiel bringe bekomm ich wieder
"Segmentation fault (11)"
unter Win Gestestet da funktioniert es...