Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Como convertir un archivo a solo lectura (https://www.clubdelphi.com/foros/showthread.php?t=25180)

JuanErasmo 14-09-2005 19:28:14

Como convertir un archivo a solo lectura
 
Buenas tardes, necesito convertir un archivo a solo lectura despues de una modificacion. con ofstream, no me funciona. Hay alguna manera de hacerlo para que el archivo quede inmodificable desde Builder?

Gracias.

dec 14-09-2005 19:39:23

Hola,

Una forma podría ser utilizar la función "FileSetReadOnly". Otra puede ser utilizar la función "SetFileAttributes".

Código Delphi [-]
  FileSetReadOnly('C:\archivo.txt', true);
Código Delphi [-]
  var
    atributos: Cardinal;
  begin
    atributos := GetFileAttributes(PChar('C:\archivo.txt'));
    SetFileAttributes(PChar('C:\archivo.txt'), atributos + faReadOnly);
  end;

dec 14-09-2005 19:53:13

Hola,

Otra vez... que no me fijé en que se hablaba de C++ Builder... ¡Esta vez yo mismo traduzco el código propuesto por mí mismo! ;)

Código:

// C++ Builder
 FileSetReadOnly("C:\\archivo.txt", true);

Código:

// C++ Builder
 Cardinal atributos = GetFileAttributesA("C:\\archivo.txt");
 SetFileAttributesA("C:\\archivo.txt", atributos + faReadOnly);

No crean... ha costado lo suyo ;)

JuanErasmo 14-09-2005 20:12:41

No me funcionó
 
Hola amigo, te cuento que copié las lineas que me dijiste y no me funcionó.
Gracias por tu ayuda.

dec 14-09-2005 20:16:04

Hola,

Cita:

Empezado por JuanErasmo
Hola amigo, te cuento que copié las lineas que me dijiste y no me funcionó.

Hombre, ya lo siento, pero, ¿qué es lo que no te funcionó? ¿se produjo algún error? En caso afirmativo, ¿qué error se produjo?

JuanErasmo 14-09-2005 20:21:19

Hola dec
 
Dec el archivo me desapareció de C:\\archivo.txt.
Quedó como oculto. yo necesito que se vea pero que cuando se le dé guardar despues de modificarlo, saque un error.

dec 14-09-2005 20:43:51

Hola,

Cita:

Empezado por JuanErasmo
Dec el archivo me desapareció de C:\\archivo.txt.

A ver, ese archivo era un ejemplo, evidentemente, debes sustituir ese archivo por el que precises. Respecto de lo de que te "desapareció" el archivo... probando la primera de las funciones que te comenté sobre un archivo este no desaparece, sino que se le cambia el atributo de "solo lectura", tal como se espera. Y con la segunda "forma de hacerlo" pasa igual: no desaparece el archivo y sí pasa a tener el atributo de "solo lectura". Vamos, que lo he probado y no va mal ;)

Cita:

Empezado por JuanErasmo
(...) yo necesito que se vea pero que cuando se le dé guardar despues de modificarlo, saque un error.

Ya digo que una cosa es ocultar un archivo y otra cambiarle el atributo de "solo lectura": en realidad si quieres ocultar el archivo se trata de cambiar otro atributo del mismo. Si para hacerlo de "solo lectura" hay que utilizar la constante "faReadOnly", para "ocultarlo" hay que utilizar la constante "faHidden".

Ahora bien, ¿qué se trata de conseguir? En un editor que traigo entre manos, por ejemplo, si tratas de abrir un archivo cuyo atributo de "solo lectura" esté activado, el programa te preguntará si quieres quitar dicho atributo del archivo: si lo quitas, te dejará editar el archivo, y, si no lo haces, no te dejará editarlo: respetando así el atributo de "solo lectura" del archivo en cuestión. Ahora, ¿es a algo así a lo que te refieres?

Quiere decirse que tú puedes comprobar (ver más abajo) desde tu programa si un archivo tiene el atributo de "solo lectura" y actuar luego en consecuencia como tuvieras pensado. Otra cosa sería que el propio Windows respetase los atributos de los archivos, pero, si no me equivoco, esto no es muy así.

Código:

  // C++ Builder
 Cardinal atributos = GetFileAttributesA("C:\\archivo.txt");
 if (atributos && faReadOnly == faReadOnly)
 {
  // El archivo tiene el atributo de "solo lectura"
 }


JuanErasmo 14-09-2005 20:49:52

Dec
 
Dec, lo que yo te digo es que el archivo al cual le cambio a ReadOnly desaparece del Explorador, la prueba es que no lo veo, y al intentar crear un archivo con el mismo nombre, me dice que el archivo ya existe. y entonces a tí no te pasa eso?
Gracias.
Yo quiero poder leer el archivo despues no que ni siquiera me deje ver su acceso.

dec 14-09-2005 20:58:39

Hola,

Cita:

Empezado por JuanErasmo
Dec, lo que yo te digo es que el archivo al cual le cambio a ReadOnly desaparece del Explorador, la prueba es que no lo veo, y al intentar crear un archivo con el mismo nombre, me dice que el archivo ya existe. y entonces a tí no te pasa eso?

No; te lo juro. ;)

JuanErasmo 14-09-2005 21:13:24

Gracias por tu ayuda, dec.
 
Gracias dec, de la primera forma no me desparece

FileSetReadOnly("C:\\arch.txt", true);


pero de la segunda sí.

Cardinal atributos = GetFileAttributesA("C:\\arch.txt"); //para ocultar el archivo
SetFileAttributesA("C:\\arch.txt", atributos + faReadOnly);

Sin embargo en Windows puede volver a cambiarle uno esa propiedad.
No hay manera de sellar el archivo completamente?
Gracias.

dec 14-09-2005 21:47:42

Hola,

Cita:

Empezado por JuanErasmo
Gracias dec, de la primera forma no me desparece (...) pero de la segunda sí.

Pues no lo entiendo, ciertamente.

Cita:

Empezado por JuanErasmo
Sin embargo en Windows puede volver a cambiarle uno esa propiedad.
No hay manera de sellar el archivo completamente?

Hasta donde yo llego y así a bote pronto diría que no.


La franja horaria es GMT +2. Ahora son las 17:49:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi