Лидеры

я так понимаю должен открыться выбор файла? ну на андройде логику выбора файла придется реализовывать самому... стандартного нет

На этот модуль то я внимание обратил, но мне необходимо реализовать следующие действия: 1) После нажатия на кнопку открывается галерея картинок (или другое приложение для открытия картинок), пользователь выбирает файл; 2) После выбора файла в моем приложении появляется его миниатюра и файл методом POST отправляется на upload сайта. Так вот чтобы отправить файл мне необходимо вывести полный путь к этой картинки из галереи которую выбрал пользователь. Т.е. вот тут нужно вставить полный путь этого самого Image (TBitmap) которое возвращает TakePhotoFromLibraryAction1DidFinishTaking: Fileweb:=TIdMultipartFormDataStream.Create; Fileweb.AddFile('qqfile',Путь к файлу); Fileweb.AddFormField('subaction','upload'); Response:= Form1.IdHTTP1.Post(SiteUrl + 'engine/ajax/upload.php',Fileweb); Fileweb.Free;

Вот пример того, как писать и читать BLOB procedure SaveToFireDACBlob; var MemStream: TMemoryStream; begin FireDAC.Connected := True; MemStream := TMemoryStream.Create; try Image1.Bitmap.SaveToStream(MemStream); MemStream.Seek(0,0); FDQueryInsert.ParamByName('Media').LoadFromStream(MemStream,ftBlob); FDQueryInsert.ParamByName('MType').AsString := '0'; FDQueryInsert.ExecSQL(); except on e: Exception do begin ShowMessage(e.Message); end; end; MemStream.Free; FireDAC.Connected := False; end; procedure LoadFromFireDACBlob; var BlobStream: TStream; begin FireDAC.Connected := True; try FDQuerySelect.Open; FDQuerySelect.First; while(not FDQuerySelect.EOF)do begin // access a stream from a blob like this BlobStream := FDQuerySelect.CreateBlobStream(FDQuerySelect.FieldByName('Media'),TBlobStreamMode.bmRead); // access a string from a field like this if (FDQuerySelect.FieldByName('MType').AsString='0') then begin // load your blob stream data into a control ImageViewer.Bitmap.LoadFromStream(BlobStream); end; BlobStream.Free; FDQuerySelect.Next; end; except on e: Exception do begin //ShowMessage(e.Message); end; end; FireDAC.Connected := False; end; {источник http://www.fmxexpress.com/read-and-write-a-blob-field-using-firedac-with-firemonkey-on-android-and-ios/} Касательно работы с изменением качества/размера, считаю что необходимо использовать TBitmapSurface (unit FMX.Surfaces)