Show Picture in VCL Help

[asapltda]

Hello everyone , I require a VCL application show photos taken using standard phone unigui . I could not do it , someone could place the code required to do ?, I put the code used to take photos and display them in ungui phone .

Thank you for your help

 

I took some pictures using unigui phone (movil huawei androit 4.2)

 

1. I have stored in l firebird ( FOTOCUMPLIDO    BLOB SUB_TYPE 0 SEGMENT SIZE 16384)

2 I take the picture using the component UnimFileUpload1

  UnimFileUpload1.Capture  :='camera';

  UnimFileUpload1.Execute;

3. keep the photo taken in the database firebird

 

 procedure TMainmForm.UnimFileUpload1Completed(Sender: TObject;

  AStream: TFileStream);

var

blob: TStream;

ARCHIVO:string;

archivo_destino:STRING;

 img: string;

 S:string;

 F:string;

 f_fr:string;

 f_to:string;

  W_errorcode: integer;

begin

  // capturar el nombre del archivo enviado al servidor

 G_FileNombre     := (Sender as TUnimFileUpload).FileName;         // nombre archivo

 g_fileUbicacion  :=  (Sender as TUnimFileUpload).TargetFolder ;   // folder destino

// ShowMessage(G_FileNombre);

 

 

 // MOVER GRAFICA TOMADA  A IMAGEN EN PANTALLA

   UnimImage_FOTOCUMPLIDO.LoadFromStream (AStream);

 

 // GRABAR BASE DE DATOS

 TRPPLANILLASENTREGAS.edit;

 TBlobField( TRPPLANILLASENTREGAS.FieldByName('FOTOCUMPLIDO')).LoadFromStream( AStream) ;

 TRPPLANILLASENTREGAS.Post;

 

4. I can see the photos taken at a later time using unigui phone

 

procedure TMainmForm.UnimButton3Click(Sender: TObject);

var

   MS : TMemoryStream;

begin

 MS := TMemoryStream.Create;

//  MS.Seek(0,soFromBeginning);

  TBlobField(tRPPLANILLASENTREGAS.FieldByName('FOTOCUMPLIDO')).SaveToStream(MS);

  UnimImage_FOTOCUMPLIDO_BASEDEDATOS.LoadFromStream(MS) ;

 

  MS.Free;

 

end;