[mosco]

Gracias Ñuño. Ayer he conseguido grabar perfectamente los datos de direccion y fuerza de señal en un fichero de texto. Tienes toda la razón pero me enfrento a algo verdaderamente dificil para mi, no tengo experiencia pero he conseguido que los datos se graben. Ahora que ya tengo la seguridad de que los datos están ahí toca pasarlos a un array dinámico, no se como pero a lo mejor alguien me pueda orientar...

Vean el código que llevo hecho y que ya graba los datos a un archivo de texto:

procedure TForm1.Button10Click(Sender: TObject);
var
    a: string;
    i, j, ndirecciones: integer;
  begin
    CrearFichero;
    ndirecciones:= 200;
     dato:=#105;                                     //Izquierda 1ra vez
    FileWrite(FHandle,PChar(dato)^,Length(dato));
    for i:=0 to ndirecciones-1 do
    begin
      Fileread(FHandle,PChar(dato)^,Length(dato));
      if dato = '(' then
        begin
          memo2.Lines[0] := '(' ;
          for j:=0 to 8 do
          begin
            Fileread(FHandle,PChar(dato)^,Length(dato));
            memo2.Lines[0] := memo2.Lines[0] + dato;
          end;
          EnviaDatos('iwconfig wlan0 | grep -i "Link Quality" | cut -f2 -d ''='' | cut -f1 -d"/"');
          RecibeDatosB;
          memo2.Lines[0] := memo2.Lines[0] + FuerzaSenialB;
          a:=memo2.Lines[0];
        end;
      EscribirDatos (a);
    end;
  dato:=#112;
  FileWrite(FHandle,PChar(dato)^,Length(dato));       //Paramos
  end;

Y vean un trozo del archivo de texto que se crea:

(00080137)00(00120137)41(00160137)41(00200137)41(00240137)40(00280137)42(00320137)42(00360137)40(00400137)41(00440137)41(00480137)40(00520137)41(00560137)41(00600137)39(00640137)39(00680137)39(00720137)40...

La fuerza de la señal (dos bytes después de los parentesis) no varia casi nada porque no tengo puesto el receptor en la antena todavía para que se mueva con esta.


Saludos.