wolfran_hack
22-07-2015, 03:58:47
tengo un botón que llama a la cámara y saca una foto y la mueve a un TImagen, quiero guardar esa imagen desde la toma de la cámara o desde el TImagen en un archivo de imagenes dentro del android, utilice:
procedure TAccessCameraAppForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
upLoadFolder,ImageName: string;
begin
upLoadFolder := TPath.GetDocumentsPath +TPath.DirectorySeparatorChar;
ImageName := 'test.jpg'; // I have a function that create a uniqe name
///guarda
//Image.SaveToFile(upLoadFolder+ImageName);
{ Assign the image retrieved from the Camera to the TImage component. }
imgCameraImage.Bitmap.Assign(Image);
imgCameraImage.Bitmap.SaveToFile(upLoadFolder+ImageName);
Edit1.Text := upLoadFolder;
end;
me crea el directorio pero no la imagen.
procedure TAccessCameraAppForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
upLoadFolder,ImageName: string;
begin
upLoadFolder := TPath.GetDocumentsPath +TPath.DirectorySeparatorChar;
ImageName := 'test.jpg'; // I have a function that create a uniqe name
///guarda
Image.SaveToFile(upLoadFolder+ImageName);
{ Assign the image retrieved from the Camera to the TImage component. }
imgCameraImage.Bitmap.Assign(Image);
//imgCameraImage.Bitmap.SaveToFile(upLoadFolder+ImageName);
Edit1.Text := upLoadFolder;
end;
me crea el directorio pero no la imagen.
procedure TAccessCameraAppForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
upLoadFolder,ImageName: string;
begin
upLoadFolder := TPath.GetDocumentsPath +TPath.DirectorySeparatorChar;
ImageName := 'test.jpg'; // I have a function that create a uniqe name
///guarda
//Image.SaveToFile(upLoadFolder+ImageName);
{ Assign the image retrieved from the Camera to the TImage component. }
imgCameraImage.Bitmap.Assign(Image);
imgCameraImage.Bitmap.SaveToFile(upLoadFolder+ImageName);
Edit1.Text := upLoadFolder;
end;
me crea el directorio pero no la imagen.
procedure TAccessCameraAppForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
upLoadFolder,ImageName: string;
begin
upLoadFolder := TPath.GetDocumentsPath +TPath.DirectorySeparatorChar;
ImageName := 'test.jpg'; // I have a function that create a uniqe name
///guarda
Image.SaveToFile(upLoadFolder+ImageName);
{ Assign the image retrieved from the Camera to the TImage component. }
imgCameraImage.Bitmap.Assign(Image);
//imgCameraImage.Bitmap.SaveToFile(upLoadFolder+ImageName);
Edit1.Text := upLoadFolder;
end;
me crea el directorio pero no la imagen.