Tutorial criar um app que acesse a cmera, a geleria de fotos e compartilhar, usando o Delphi XE8.

Inicio Primeiro passo que tomaremos ser iniciar o Delphi XE5 e criar nossa aplicao atravs da tela principal clicando em Create a new Project

Em seguida clique em

Salve a aplicao clicando em

O nome do .pas coloque frmAndPrincipalUntO nome do projeto coloque prjCamShare

Agora Incluiremos em nosso projetoum TImage, um TToolBar, trs TButton e um TActionList. Precisamos agora alterar algumas propriedades dos objetos em nosso projeto, comeamos pelo formulrio, seria o display do dispositivo exibido na IDE, altere sua propriedade Name parafrmAndPrincipal. Os demais objetos vamos seguir a lista abaixo: Button1 Name >btnCam StyleLookup >cameratoolbutton Button2 Name >btnArquivo StyleLookup >searchtoolbutton Button3 Name >btnCompartilhar StyleLookup >actiontoolbutton Image1 Name >imgFoto Align >alClient

Agora vamos as atribuies de cdigos e aes.Selecione obtnCame noObject Inspector, clique sobre a propriedade Action, selecione entoNew Standard Action > Media Library > TTakePhotoFromCameraAction.Ainda noObject Inspector, acesse a guiaEventse expanda a propriedadeAction

a partir da selecione o eventoonDidFinishTaking

De dois cliques caixa vazia na frente de onDidFinishTaking e digite este cdigo imgFoto.Bitmap.Assign(Image); dentro da linha de cdigo que aparecer aps voc clicar duas vezes na caixa vazia ao lado de onDidFinishTaking.

Agora vamos Selecionar obtnArquivoe noObject Inspector, clique sobre a propriedade Action, selecione entoNew Standard Action > Media Library > TTakePhotoFromLibraryAction.Ainda noObject Inspector, acesse a guiaEventse expanda a propriedadeActiona partir da selecione o eventoonDidFinishTaking

De dois cliques caixa vazia na frente de onDidFinishTaking e digite este cdigo imgFoto.Bitmap.Assign(Image); dentro da linha de cdigo que aparecer aps voc clicar duas vezes na caixa vazia ao lado de onDidFinishTaking.

E por fim vamos atribuir aobtnCompartilharaNew Standard Action > Media Library > TShowShareSheetActione nesse caso codificaremos seu evento onBeforeExecute:

De dois cliques caixa vazia na frente de onBeforeExecute e digite este cdigo ShowShareSheetAction1.Bitmap.Assign(imgFoto.Bitmap); dentro da linha de cdigo que aparecer aps voc clicar duas vezes na caixa vazia ao lado de onBeforeExecute

feito isto s falta selecionar a plataforma androide selecionar o aparelho para que voc quer seja criado o App.

Agora s falta copilar e instalar no aparelho.

Pronto. Agora pode usufruir de seu prprio app de cmera.