Closed

Modify Delphi FMX code to take the bitmap from a timage and send the image to androids gallery.

procedure [login to view URL](Sender: TObject);

var

Intent: JIntent;

FileName, DestFileName: string;

Data: Jnet_Uri;

CompName: JComponentName;

lFile: JFile;

const

IMAGE_FILENAME = '[login to view URL]';

// need to get the bitmap in a timage and use this intent to open it in androids gallery.

begin

FileName := [login to view URL] + PathDelim + IMAGE_FILENAME;

// deployed to "assets"

log.d(FileName);

DestFileName := [login to view URL] + PathDelim + IMAGE_FILENAME;

[login to view URL](FileName, DestFileName, true);

Intent := [login to view URL];

[login to view URL](TJIntent.JavaClass.ACTION_VIEW);

if TJBuild_VERSION.JavaClass.SDK_INT >= TJBuild_VERSION_CODES.JavaClass.N then

begin

lFile := [login to view URL](StringToJString(FileName));

[login to view URL](TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);

Data := [login to view URL]([login to view URL],

StringToJString('[login to view URL]'), lFile);

end

else

Data := [login to view URL]

(StringToJString('file://' + DestFileName));

[login to view URL](Data, StringToJString('image/jpg'));

try

[login to view URL](Intent);

except

on E: Exception do

begin

[login to view URL] := [login to view URL];

end;

end;

end;

I have a timage on a form. It has a bitmap in it.

I need to get the image from the timage and use this intent to send the image to androids gallery/photos.

Skills: Android, Delphi

See more: delphi imagelist, delphi fmx timagelist, send image form, hid delphi source code, send image php scripting, java code message bluetooth send file, symbian send image via mms, client server socket program vbnet send image, modify existing data code, send image forms, visual basic delphi source code, modify website java code, delphi opengl code, send image bluetooth j2me, vbnet server socket send image, server socket send image client, free source code discrete cosine transform image compression, delphi send image photoshop

About the Employer:
( 62 reviews ) Clintwood, United States

Project ID: #18691299

3 freelancers are bidding on average $29 for this job

evonsystems7

Dear Prospect Hiring Manager. Thank you for giving me a chance to bid on your project. i am a serious bidder here and i have already worked on a similar project before and can deliver as u have mentioned "I can do More

$31 USD in 7 days
(1 Review)
0.0
Kashrock786

I am learning

$25 USD in 1 day
(0 Reviews)
0.0
okat0005

Hi. I am a C/C++/C# expert for 10 years. I have developed many apps with Visual Studio. I'm familiar with Visual Studio and Android studio. So I think there is no problems. Thank you.

$30 USD in 1 day
(1 Review)
0.0