0

I assign a PNG image with transparency to the TImage component in Delphi XE8, used the sharesheet action to share this image. The successful result on my smartphone is now a JPEG image which loses all the transparency obviously. My transparent background now becomes black.

I need my images to retain its transparency, what do I do?

Here's my code:

var
ShareSheetForm: TShareSheetForm;



implementation

{$R *.fmx}

{$R *.LgXhdpiPh.fmx ANDROID}


    procedure TShareSheetForm.ShowShareSheetAction1BeforeExecute(Sender: TObject);

begin


    ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);

end;


end.
fvu
  • 32,488
  • 6
  • 61
  • 79
Smith
  • 3
  • 3
  • JPEG doesn't do transparency. How do you share this image exactly? – Pekka Oct 09 '15 at 23:43
  • 1
    @Pekka I didn't share a JPEG image, I shared a PNG image with transparency. After I share this to an IM on my mobile device, it is automatically converted to a JPEG image. I have no clue why it does that. I'm trying to stop it. – Smith Oct 10 '15 at 00:00
  • Hmm, what technology, what protocol is used for the sharing? – Pekka Oct 11 '15 at 10:20
  • @Pekka here is a demonstration of how it works [link](http://docwiki.embarcadero.com/RADStudio/XE8/en/User:Maria/Mobile_Tutorial:_Taking_and_Sharing_a_Picture,_and_Sharing_Text_(iOS_and_Android)) – Smith Oct 11 '15 at 13:40

0 Answers0