ActiveDelphi

[edialves]

bom dia nobres colegas,

Estou pesquisando sem sucesso uma solução que na minha app; o usuário pode tirar uma foto da câmera ou selecionar alguma foto na biblioteca, ao compartilhar, seleciono o WhatsApp e em seguida, escolho o contato que vai receber a foto selecionada, ate aí tudo bem, mas logo após eu selecionar o meu contato e dar OK, o app ou o Android pega uma foto anterior ou qualquer uma da minha biblioteca e coloca pronta para ser compartilhada, é estranho isso.
Já olhei todo o código da minha app, estou liberando da memória dados das variáveis e continua persistindo esse problema.

Abaixo o caminho do exemplo que eu peguei:
C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\Multi-Device Samples\Media\PhotoEditorDemo

Abaixo o código que adaptei para o projeto:
procedure TfrmPrincipal.actCompartilharBeforeExecute(Sender: TObject);
var
stream : TStream;
bit : TBitmap;
begin
try
bit := TBitmap.Create;

stream := qryProdutos.CreateBlobStream(qryProdutos.FieldByName('FOTO'), bmRead);

bit.LoadFromStream(stream);

actCompartilhar.Bitmap.Assign(bit);
finally
stream.Free;
bit.Free;

end;

end;

Uso o Berlin 10.1 com os componentes FGX


O que devo estar fazendo de errado?

[edialves]

Bom dia !

Alguém?

[edialves]

boa noite!

Up