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...