Leer Archivo Recibido por WhatApps con delphi
 

buenas Tardes Foristas
Se requiere leer los datos recibidos con whatsApp con una aplicacion hecha en delphi fmx,
como puedo leer el archivo, o si existe otra alternativa donde un usuario x coloque el nuevo archivo y desde el movil androit se pueda leer los datos
gracias por sus aportes

¿Datos, archivos, mensajes...? Seguramente con la API disponible en su web.

No te he entendido muy bien.
Lo que deberías probar/mirar es si la versión "business" de WhatsApp, que posee una API para acceder te permite hacer lo que necesitas.

https://www.whatsapp.com/business/api/?lang=es
https://developers.facebook.com/docs.../?locale=es_ES
https://www.adslzone.net/esenciales/...sapp-business/

recepción archivos whatapps, Solución
 

Buenos dias ,
1. cuando se instala whatsapp en tu movil la aplicacion genera un ruta de archivos en mi caso creo la siguiente:
/storage/emulated/0/WhatsApp/Media/WhatsApp Documents/Lista_de_Precio_001.txt (use cx explorador de archivos para identificar la ruta)

2. De permisos de lectura escritura de archivos al programa delphi apk

Código Delphi [-]
   var
     vPermissionWRITE_EXTERNAL_STORAGE : string;       // nota tambien es READ_EXTERNAL_STORAGE

  if TOSVersion.Check(6) then
  begin
    PermissionsService.RequestPermissions([vPermissionCoarseLocation, vPermissionFineLocation,vPermissionWRITE_EXTERNAL_STORAGE, vPermissionREAD_PHONE_STATE ], LocationPermissionRequestResult);
  end ;

3. lea datos

Código Delphi [-]
procedure Tfpruebas.Button5Click(Sender: TObject);
var
  TABLA: TStringList;
  PATH:string;
  i:Integer;
  w_str:string;
begin
  //Memo1.Lines.Clear;
 // Memo1.Enabled := False;

  ClientDataSet1.Close;
  ClientDataSet1.CreateDataSet;


  PATH:= MemoPath.Text;
///MemoPath.Text = 'storage/emulated/0/WhatsApp/Media/WhatsApp Documents/Lista_de_Precio_001.txt'


  // Define a string list object, and point our variable at it
  TABLA := TStringList.Create;
  TABLA.LoadFromFile(PATH);

  // reemplazar tab por ;
  for i:= 0 to   tABLA.Count -1 do begin
    // Memo1.Lines.Add(StringReplace(TABLA[i], Chr(9), ';', [rfReplaceAll, rfIgnoreCase]));
     ClientDataSet1.Append ;
     w_str := StringReplace(TABLA[i], Chr(9), ';', [rfReplaceAll, rfIgnoreCase]);
     ClientDataSet1.FieldByName('CODIGO').AsString := Copy(w_str,1,13);
     ClientDataSet1.FieldByName('DATOS').AsString := w_str;

     ClientDataSet1.post;
  end;