Алекс Иванов

камера. работает. пытаюсь сохранить: Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); bs := TBitmapSurface.Create; bs.Assign(image1.Bitmap); sp.Quality := 100; t:='/storage/emulated/0/Pictures/'; TBitmapCodecManager.SaveToFile(t+IntToStr(MSec) +IntToStr(Sec) +IntToStr(Min) + IntToStr(Hour)+'.jpg', bs, @sp); bs.free; Файл(ы) создается, но его(их) держит программа и пока не закроешь ничего нельзя с файлом(файлами) сделать куда копать?

Именно так! Спасибо Огромное!!!

Работает на Java (android studio) public void onClick(View v) { Intent intent = new Intent(); intent.putExtra("GPS_Широта", Glla); intent.putExtra("GPS_Долгота", Gllt); intent.putExtra("NET_Широта", Nlla); intent.putExtra("NET_Долгота", Nllt); finish(); } на работает в Дельфи procedure TForm1.Button6Click(Sender: TObject); var Intent: JIntent; begin Intent := TJIntent.Create; Intent.setType(StringToJString('text/plain')); Intent.putExtra(StringToJString('GPS_Долгота'),StringToJString(d)); Intent.putExtra(StringToJString('GPS_Широта'),StringToJString(s)); Intent.putExtra(StringToJString('NET_Долгота'),StringToJString(d)); Intent.putExtra(StringToJString('NET_Широта'),StringToJString(s)); form1.close; end; 1С ругается и не видит от правленые данные