Forum: Cross-Platform-Entwicklung
Delphi
by oakley,
31. Jan 2021
Hast Du eventuell eine Idee, woher die Meldung "keine Duplikate zulässig" kommt?
LG
Mirko
Forum: Cross-Platform-Entwicklung
Delphi
by oakley,
30. Jan 2021
So weit so gut.
Ich habe jetzt folgenden Code für den Upload
function TMFORM.HandleIntentAction(const Data: JIntent): Boolean;
var
C: JCursor;
count: Integer;
InputStream : JInputStream;
Forum: Cross-Platform-Entwicklung
Delphi
by oakley,
30. Jan 2021
Ja hab es in einen Task gepackt und er blockiert nicht mehr.
Muss noch Upload Progress machen usw.
Wenn ich fertig bin poste ich den Code.
LG
Mirko
Forum: Cross-Platform-Entwicklung
Delphi
by oakley,
30. Jan 2021
Hey,
ja ich weiß aber ich habe den Betrag editiert und da hatte ich die Option nicht auf den Helm zu klicken.
So habe ich es jetzt für mehrere Dateien ohne Fortschrittsbalken gelöst.
Hier ist noch das Problem, dass der Bildschirm schwarz wird bis der Upload abgeschlossen ist.
function TMFORM.HandleIntentAction(const Data: JIntent): Boolean;
var
Forum: Cross-Platform-Entwicklung
Delphi
by oakley,
30. Jan 2021
Ja stimmt ich habe ms := TMemoryStream.Create; hinzugefügt und er stürzt nicht mehr ab.
Jetzt muss ich es nur noch ein wenig verbessern mit Fortschrittsbalken und mehreren Dateien und dann passt das.
Die Funktion sieht damit bis jetzt so aus:
function TMFORM.HandleIntentAction(const Data: JIntent): Boolean;
var
C: JCursor;
I: Integer;
Forum: Cross-Platform-Entwicklung
Delphi
by oakley,
30. Jan 2021
var
ms : TMemoryStream;
InputStream : JInputStream;
b: TJavaArray<Byte>;
InputStream := MainActivity.getContentResolver.openInputStream(Da ta.getData);
b := TJavaArray<Byte>.Create(InputStream.available);
InputStream.read(b);
ms.Write(b.Data^, b.Length);
InputStream.close;