AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Thread mit TRestRequest

Ein Thema von Incocnito · begonnen am 29. Jun 2021 · letzter Beitrag vom 2. Jul 2021
Antwort Antwort
Seite 2 von 2     12
Incocnito

Registriert seit: 28. Nov 2016
223 Beiträge
 
#11

AW: Thread mit TRestRequest

  Alt 1. Jul 2021, 13:39
Musst du dir denn einen eigenen Thread bauen?
Kannst du nicht das TCustomRESTRequest.ExecuteAsync nutzen und für das Abbrechen das dafür vorgesehene Cancel?

Delphi-Quellcode:
procedure TForm3.FormClick(Sender: TObject);
var
    RESTThread: TRESTExecutionThread;
begin
    RESTThread := RESTRequest1.ExecuteAsync({Bitte hier die optionalen Argumente beachten wie CompletionHandler und CompletionHandlerWithError});

    // Bla blupp, dauert alles zu lange:
    if Assigned(RESTThread) then
        RESTThread.Cancel;
end;
Interessanter Ansatz, hat aber letztlich nicht so geil geklappt.
Delphi-Quellcode:
  ...
  tempThread := Whatever();

  // Speichern der lokalen Objekte, damit man beim OnAccept oder OnError
  // auch damit arbeiten kann:
  mainThread := tempThread;
  mainClient := tempClient;
  mainRequest := tempRequest;
  mainResponse := tempResponse;

  // Warten, bis entweder der Thread von außen beendet wird (Terminated) oder
  // er selbst fertig wird (FRecieved):
  while (NOT Terminated) AND (NOT FRecieved) do
  begin
    Sleep(10);
  end;
  // Wenn hier angekommen schauen, ob er hier ankommt, weil er Daten
  // empfangen hat. Falls es durch "Terminate" von außen passiert ist
  // den Rest-Thread mit "Cancel();" abbrechen:
  if (Terminated) AND (NOT FRecieved) then mainThread.Cancel();

  // Warten, bis er den Thread ordnungsgemäß beendet hat:
  mainThread.WaitFor();

  // Jetzt sind wir hier fertig, das Programm soll beendet werden,
  // also alles wieder freigeben:
  mainClient.Free();
  mainRequest.Free();
  mainResponse.Free();
  mainThread.Free();
Beim Freigeben kommt es immer zu Fehlern. Es sieht auch nicht so aus,
als ob Cancel die Rest-Abfrage tatsächlich abbrechen würde,
respektive das WaitFor dann wartet, bis der Abbruch durch ist.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#12

AW: Thread mit TRestRequest

  Alt 1. Jul 2021, 14:04
Das ist mir Zuviel Pseudocode und Zuwenig Kontext, um irgendwas sinnvolles dazu sagen zu können.
Wer ist denn der Owner von Request, Response und Client?
Kannst du dein Problem vielleicht in einen vollständigen kleinen Beispiel zip-archivieren und hochladen?

Vergesse das mal mit dem eigenen Extra-Thread.
Speichere dir den TRESTExecutionThread in eine Member-Variable und prüfe dem Empfang einfach zyklisch per TTimer.
Wenn Antwort empfangen wurde oder das Programm beendet wird, mit Cancel() abbrechen.
  Mit Zitat antworten Zitat
Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
742 Beiträge
 
#13

AW: Thread mit TRestRequest

  Alt 1. Jul 2021, 14:20
Kannst du nicht einfach einen zweiten Request schicken und der Server beendet (beantwortet) dann auch den anderen Request?
  Mit Zitat antworten Zitat
Incocnito

Registriert seit: 28. Nov 2016
223 Beiträge
 
#14

AW: Thread mit TRestRequest

  Alt 1. Jul 2021, 14:23
Das ist mir Zuviel Pseudocode und Zuwenig Kontext, um irgendwas sinnvolles dazu sagen zu können.
Wer ist denn der Owner von Request, Response und Client?
Kannst du dein Problem vielleicht in einen vollständigen kleinen Beispiel zip-archivieren und hochladen?

Vergesse das mal mit dem eigenen Extra-Thread.
Speichere dir den TRESTExecutionThread in eine Member-Variable und prüfe dem Empfang einfach zyklisch per TTimer.
Wenn Antwort empfangen wurde oder das Programm beendet wird, mit Cancel() abbrechen.
Owner?
RESTClient := TRESTClient.Create(sUrl);
RESTResponse := TRESTResponse.Create(RESTClient);
RESTRequest := TRESTRequest.Create(RESTClient);
Wo gibt es da Owner?

Beispiel hochladen kann ich (wie immer) nicht, da ich mich auf einen Rest-Endpunkt beziehe,
welcher bei euch nicht existiert; Body, Parameter, Header usw. enthalten sicherheitskritische Informationen, welche ich nicht posten kann.

Die Thread-Struktur enthält ja nur diese 3 (für dieses Beispiel relevante):
- Der Main-Thread welcher den Nachrichten-Tread erstellt und beim Close per
"Terminate();" beenden soll
- Der Nachrichten-Thread, welcher den Rest-Thread (wie von TiGü beschrieben) erstellt,
die Events empfangen und Nachrichten abarbeiten soll (ohne den Anwender von der Arbeit ab zu halten)
- Und der Rest-Thread, welcher ja ohnehin durch
RestThread := RESTRequest.ExecuteAsync(aCompletionHandler, False, False, aCompletionHandler2);
erstellt wird (evtl. noch weitere innen-liegende, aber davon habe ich keine Ahnung)

Auf jeden Fall kann ich davon keinen "auflösen". Die Abarbeitung der Nachrichten kann ich ja unmöglich im Main-Thread machen.

Einen Abbruch-Request? Mal sehen, ob das so geht.

Das klingt jetzt alles ein wenig negativ, hoffenlich kommt das nicht falsch rüber.

Ich forsche dann mal weiter ...

LG Incocnito
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: Thread mit TRestRequest

  Alt 1. Jul 2021, 14:43
Okay, du nimmst TCustomRESTClient.Create(const ABaseApiURL: string); als Constructor, kannte ich so auch noch nicht.

Der Client hat dann keinen Owner und muss selber freigeben werden.
Wenn du aber dann noch Response und Request so erstellst, dass der Client der Owner ist (Übergabe im Constructor), dann kannst du die nicht händisch freigeben.
Daher resultieren wahrscheinlich deine "Beim Freigeben kommt es immer zu Fehlern."-Probleme.

Edit: Den REST-Thread auch nicht selber freigeben, einfach AFreeThread als dritten Parameter im ExecuteAsync() auf True setzen.

Geändert von TiGü ( 1. Jul 2021 um 14:45 Uhr)
  Mit Zitat antworten Zitat
Incocnito

Registriert seit: 28. Nov 2016
223 Beiträge
 
#16

AW: Thread mit TRestRequest

  Alt 2. Jul 2021, 12:00
Ok,

nächster Step ...
Ich habe den TRestExecutionThread wieder raus geworfen und auf einen "normalen" TRestClient-Aufruf umgebaut. Das RestRequext.Execute(); läuft in einem Thread (der Nachrichten-Thread), wie beschrieben.
Den Thread kann man ja per Terminate(); beenden.
Nun habe ich die Funktion "TerminateSet" von TThread überladen und dort einfach
RESTRequest.Cancel(); aufgerufen.
Oh Wunder, damit bricht er den Request ab und kommt sauber zurück.
Derzeit gebe ich dann wie von TiGü empfohlen nur den RESTClient frei,
aber ich will noch prüfen, ob ich jetzt irgendwelche Speicherlecks habe.
Damit sieht es auf jeden Fall schonmal gut aus.

Am Ende des Tages wusste ich nicht, dass es "TerminateSet();" und "RESTRequest.Cancel();" gibt.

Ich hoffe das hilft einem eventuellen Leser in Zukunft weiter.

Liebe Grüße
Incocnito
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz