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.