IdHTTP in Android Release Modus

[TiGü]

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject);
var
  mstream: TMemoryStream;

  function DownloadFile(const aURL: string; aStream: TStream): boolean;
  // THTTPClient benötigt im Gegensatz zu TidHTTP beim Download von htpps:// KEINE SSL Dateien!
  var
    vHTTP: THTTPClient;
    vResponse: IHTTPResponse;
  begin
    Result := False;
    Assert(aStream <> nil);
    vHTTP := THTTPClient.Create;
    try
      vHTTP.CustomHeaders['Pragma'] := 'no-cache';
      vResponse := vHTTP.Get(aURL, aStream);
      if Assigned(vResponse) then
      begin
        Result := vResponse.StatusCode = 200;
      end else
      begin
          // kluge Log-Möglichkeit, damit man mitbekommt, das keine Instanz von IHTTPResponse zurückkommt
      end;
    finally
      vHTTP.Free
    end;
  end;

begin
  mstream := TMemoryStream.Create;
  try
    try
      DownloadFile('https://www.[]', mstream);
      Memo1.Lines.LoadFromStream(mstream);
    except
      // [kein Internet, lokal gespeicherten Dateiinhalt/Backup verarbeiten]
    end;
  finally
    mstream.Free;
  end;
end;

Wie ist es denn so?

[Rollo62]

Ich sehe da zwei Probleme.

1. Der Request ist blocking
http://docwiki.embarcadero.com/RADSt...g_its_Response
Deshalb sollte man das besser asynchron in einem Thread aufrufen.

2. In FormCreate sollte man unter Mobile nichts machen.
Besser auf FormShow warten, und da dann irgendwelche längerdauernden Tasks machen.

Wird Android blockiert, insbesondere beim Startup, ist das meistens eine Garantie dass dich das OS killt.

[Stewag]

Die erweiterte DownloadFile Function von TiGü und das Verschieben in OnShow hat leider nichts gebracht.

Mit Threads komme ich alleine nicht klar. Kann mir da bitte jemand mit einem Stück Code helfen?

[zeras]

Zitat von Rollo62:

.....

2. In FormCreate sollte man unter Mobile nichts machen.
Besser auf FormShow warten, und da dann irgendwelche längerdauernden Tasks machen.

Ist das wirklich so? Sollte man OnCreate bei Mobile vergessen?
Ich hole mir da meine Ini rein, initialisiere TTS, holen mit die Versionen etc.
Sollte ich das wirklich alles erst im Formshow machen?

[Rollo62]

Ja, denn das System ist mit hochfahren beschäftigt.
Dauert da etwas zu lange wird man rausgeworfen.
Phones akzeptieren keine Geisterzustände.
Wenn der ViewController dann sichtbar ist, dann ist die App im Foreground, da kann der User machen was er will.
Aber längere Zeit blockieren geht auch da in die Hose, z.b. wenn ein Anruft kommt, dann fliegt die App wieder raus.

Du hast natürlich etwas Zeit, wenn es nicht lange blockiert Ok,
Aber eine hhtp Abfrage fällt da nicht drunter.

[Stewag]

Der Fehler wurde an einer anderen Stelle verursacht. Ein thread ist für das GET nicht unbedingt erforderlich

[Rollo62]

Dann würde ich trotzdem mal probieren was unter Android passiert wenn Du das machst

Delphi-Quellcode:

  ... 
  vResponse := vHTTP.Get(aURL, aStream);
  Sleep( 60000 );
  ...

Wie lange lässt sich das dein Phone gefallen ?