Ver Mensaje Individual
  #1  
Antiguo 11-07-2018
Yulexis Yulexis is offline
Miembro
 
Registrado: sep 2016
Posts: 19
Reputación: 0
Yulexis Va por buen camino
Stream read error en Android

Saludos a todos.
Tengo el siguiente código el cual funciona perfecto en Windows pero cuando compilo y lo ejecuto en Android me devuelve el siguiente error: Stream read error.
Código Delphi [-]
var
  datos :TStream;
  ruta : string;
  Zip :TZipFile;
begin

  ForceDirectories(GetHomePath + PathDelim + 'ENTRADAS' );

  ruta := GetHomePath + PathDelim + 'ENTRADAS' + PathDelim + 'update.zip';
  datos := TFileStream.Create(ruta, fmCreate);
  NetHTTPClient1.Get('Act.zip',datos);
  datos.Free;

  Zip := TZipFile.Create;
  Try
    Zip.Open (ruta, zmRead);
    Zip.ExtractAll(GetHomePath + PathDelim + 'ENTRADAS');
    Finally
    Zip.Free;
  End;
end;
Espero alguien pueda darme una mano.
Desde ya gracias.

Última edición por Casimiro Notevi fecha: 11-07-2018 a las 17:54:32.
Responder Con Cita