Einzelnen Beitrag anzeigen

oakley

Registriert seit: 15. Aug 2005
203 Beiträge
 
#10

AW: FMX : getContentResolver.query Crash und Jnet_Uri getPath

  Alt 30. Jan 2021, 16:46
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.

Delphi-Quellcode:
function TMFORM.HandleIntentAction(const Data: JIntent): Boolean;
var
  C: JCursor;
  I, count: Integer;
  ms : TMemoryStream;
  InputStream : JInputStream;
  b: TJavaArray<Byte>;
begin
  count := Data.getClipData().getItemCount();
  for i := 0 to count-1 do
  begin
    Memo1.Lines.Add('URI:' + JStringToString(Data.getClipData().getItemAt(i).getUri.toString));
    InputStream := MainActivity.getContentResolver.openInputStream(Data.getClipData().getItemAt(i).getUri);
    b := TJavaArray<Byte>.Create(InputStream.available);
    ms := TMemoryStream.Create;
    InputStream.read(b);
    Memo1.Lines.Add('Stream länge:'  + inttoStr(b.Length));
    ms.Write(b.Data^, b.Length);
    InputStream.close;
    if not idftp1.Connected then
      idftp1.Connect;
    ms.Position := 0;
    idftp1.Put(ms,'test'+InttoStr(i)+'.jpg');
    ms.Free;
    b.Free;
  end;

  idftp1.Disconnect;
end;
  Mit Zitat antworten Zitat