Añadir Ruta a un archivo de texto..

[BuRtOn]

Delphius a cual AssignFile te refieres al de Marcos ? o al mio, por que el mio tiene los siguientes parametros:

Código Delphi [-]
AssignFile( Id, ExtractFilePath( Application.ExeName )+'Id.dos ');

La variable tipo archivo de texto, luego el extracFilepath, y a continuacion el nombre del archivo con su respectiva extension....

el de Marcos segun vi tiene los siguientes parametros:

Código Delphi [-]
AssignFile(F, cNomFicLNotas);

Tiene el archivo que es F, y una variable donde alamcena algunos datos, aunque no le entendi muy bien lo que hizo en el codigo....


y estoy buscando por parametros del AssignFile, para tratar de guiarme, y Egostar, si supongo que la forma que mostre el codigo no es la correcta, solo que estoy probando haber a cual me acerco mas a mi problema....Gracis amigos, y gracias por ayudar a este novato....

[BuRtOn]

Bueno me explico bien por que quiero una ruta especifica para el archivo que estoy creando, lo que sucede es que tengo una aplicaicon pequeña que me extrae el Id del disco duro, lo alamcena en un archivo, y me muestra el Id en un Edit, y tengo una aplicacion Grande que es la principal, alli va a existir un formulario de Seguridad que me va a pedir el Id del sico, y pues copio el Id de la aplicacion pequeña y lo pego en la aplicacion Grande....y alli comparo que lo que este en la aplicaicon Grande sea igual a lo de la aplicacion pequeña, en fin ese no es el problema, solo explico lo que tengo y por que la necesidad de redireccionar el archivo....por que el programita pequeño esta creado, para guardarlo en una memoria Usb, osea una aplicacion portable, y que en el momento que ejecute la aplicacion grande y me pida el id, pues solo tengo que sacar mi programita portable ejecutarlo, que me muestre el Id del disco y que me cree un archivo de texto en la carpeta dle programa garnde, para poder hacer las comparaciones....hay mas logica en el codigo de seguridad, solo que no lo expolico por que no es el tema del hilo, pero eso es lo que necesito, y pues el codigo que deje en este hilo, fue el mnual mas especifica de archivos, y por eso estoy mal en lo de redireccionar el archivo a una carpeta que yo quiera...no importa si no me toca elegir la ruta como con el selectDirectory, contal que pueda especificarle la ruta desde tiempo de diseño, todo esta bien....les agardezo su paciencia, y espero que me entiendan lo que explique...Gracias...

[[egostar]]

Empezado por BuRtOn

y estoy buscando por parametros del AssignFile, para tratar de guiarme, y Egostar, si supongo que la forma que mostre el codigo no es la correcta, solo que estoy probando haber a cual me acerco mas a mi problema....Gracis amigos, y gracias por ayudar a este novato....

Para ser francos no veo el problema que tengas, es muy simple, solo asignas a la variable Id la ruta que deseas donde se creará el archivo Id.dos, que es lo que te hace falta.......

Delphius, la verdad es que no entiendo lo que dices, si algún chistoso modifica/borra el archivo, pues se tendrá que validar que exista y si no actuar en consecuencia, es decir, solicitar que se registre de nuevo o joder el sistema y no iniciarlo, así de fácil......

Salud OS

[BuRtOn]

Exacto egostar, jejejeje, si no existe el archivo pues no deja iniciar la aplicaicon....y otras cositas mas que agregue....peor que no profundisare, para no hacer extenso el tema...lo que me quieres decir es algo asi:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);var Id: TextFile;begin //Llamando la funcion en el text del editedtId.Text:=GetVolumeID('C');//Crear ArchivoAssignFile( Id, ExtractFilePath( Application.ExeName )+'D:\Nueva carpeta\Gyros\Id.dos '); Rewrite(Id);Writeln(Id,edtId.Text);closeFile(Id);end;

O como le asigno a Id que es de tipo TextFile la ruta, como tu dices ??...eso es todo lo que quiero hacer....

[BuRtOn]

Ha perdon por lo del editor del codigo, no se que le pasa, pero aveces me sale asi, y se lo incomodo que es, aki envio de nuevo el codigo para mas comodidad....

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var 
   Id: TextFile;
begin
   //Llamando la funcion en el text del edit
   edtId.Text:=GetVolumeID('C');
   //Crear Archivo
   AssignFile(Id,'D:\Nueva carpeta\Gyros\Id.dos'); 
   Rewrite(Id);
   Writeln(Id,edtId.Text);
   CloseFile(Id);

Gracias por toda su ayuda...

[[egostar]]

hola

Incluye en tu forma un TSaveDialog que encontrarás en el Tab Dialogs.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Id: TextFile;
begin
  edtId.Text:=GetVolumeID('C');
  savedialog1.FileName := 'Id.dos';
  if savedialog1.Execute then begin
     AssignFile(Id,savedialog1.FileName);
     Rewrite(Id);
     Writeln(Id,edtId.Text);
     CloseFile(Id);
  end;
end;

Solo indicas donde quieres que se grabe y listo, ya tienes creado el archivo Id.dos, en la ruta que quieras.

Salud OS

[[Delphius]]

Empezado por egostar

Delphius, la verdad es que no entiendo lo que dices, si algún chistoso modifica/borra el archivo, pues se tendrá que validar que exista y si no actuar en consecuencia, es decir, solicitar que se registre de nuevo o joder el sistema y no iniciarlo, así de fácil......

Salud OS

A pues... viendo lo que dice BuRtOn:

Empezado por BuRtOn

Bueno me explico bien por que quiero una ruta especifica para el archivo que estoy creando, lo que sucede es que tengo una aplicaicon pequeña que me extrae el Id del disco duro, lo alamcena en un archivo, y me muestra el Id en un Edit, y tengo una aplicacion Grande que es la principal, alli va a existir un formulario de Seguridad que me va a pedir el Id del sico, y pues copio el Id de la aplicacion pequeña y lo pego en la aplicacion Grande....y alli comparo que lo que este en la aplicaicon Grande sea igual a lo de la aplicacion pequeña, en fin ese no es el problema, solo explico lo que tengo y por que la necesidad de redireccionar el archivo....por que el programita pequeño esta creado, para guardarlo en una memoria Usb, osea una aplicacion portable, y que en el momento que ejecute la aplicacion grande y me pida el id, pues solo tengo que sacar mi programita portable ejecutarlo, que me muestre el Id del disco y que me cree un archivo de texto en la carpeta dle programa garnde, para poder hacer las comparaciones....hay mas logica en el codigo de seguridad, solo que no lo expolico por que no es el tema del hilo, pero eso es lo que necesito, y pues el codigo que deje en este hilo, fue el mnual mas especifica de archivos, y por eso estoy mal en lo de redireccionar el archivo a una carpeta que yo quiera...no importa si no me toca elegir la ruta como con el selectDirectory, contal que pueda especificarle la ruta desde tiempo de diseño, todo esta bien....les agardezo su paciencia, y espero que me entiendan lo que explique...Gracias...

Me doy cuenta de que si necesita indicar donde va el archivo. Perdón.

En ese aspecto si tienes razón egostar, ya es problema del usuario si lo toca. Nomás yo decía que por las dudas, cuanto más oculto esté del usuario mejor.

Saludos,

[BuRtOn]

Ok, delphius, yo estoy relax, la aplicacion ya la termine, y creeme que con la base de datos me fue muy bien, y logre todo lo que queria, y en cuanto a la validacion de datos, tambien quedo perfecto....esta creado para evitar cualquier erro de usuario...lo que pasa es que estoy con esta cuestion del archivito, y lo maximo que he leido es el siguiente manual:

http://delphiallimite.blogspot.com/2...exto-y_29.html

juzga por ti mismo delphius...no es que sea bruto ni nada de esas cosas, solo que es muy basico lo que he visto en Delphi, y lo poco que he aprendido a sido con esfuerzo regaños de ustedes y de leer mucho....no tengo mucha experiencia, mi programacion aun es 100% estructurada...

entiendeme un poco si por favor....Gracias por su tiempo prestado...

[[egostar]]

Empezado por BuRtOn

Ok, delphius, yo estoy relax, la aplicacion ya la termine, y creeme que con la base de datos me fue muy bien, y logre todo lo que queria, y en cuanto a la validacion de datos, tambien quedo perfecto....esta creado para evitar cualquier erro de usuario...lo que pasa es que estoy con esta cuestion del archivito, y lo maximo que he leido es el siguiente manual:

http://delphiallimite.blogspot.com/2...exto-y_29.html

juzga por ti mismo delphius...no es que sea bruto ni nada de esas cosas, solo que es muy basico lo que he visto en Delphi, y lo poco que he aprendido a sido con esfuerzo regaños de ustedes y de leer mucho....no tengo mucha experiencia, mi programacion aun es 100% estructurada...

entiendeme un poco si por favor....Gracias por su tiempo prestado...

Ah no, aquí el único regañon es [Delphius], yo no tengo vela en el entierro

Salud OS

PD, ya le diste una leída a mi último post?

[[Caral]]

Hola

Empezado por egostar

Ah no, aquí el único regañon es [Delphius], yo no tengo vela en el entierro

Salud OS

PD, ya le diste una leída a mi último post?

Asi es, se nos hace viejo nuestro amigo Delphius, Viejo, chocho y regañón
Nada como tu y yo amigo, somos los jovenzuelos del club
Saludos

[*Caro*]

Hola Burton, por lo que yo entiendo, tu no quieres que el usuario pueda darle el nombre a tu archivo, por lo que, creo que sería mejor utilizar SelectDirectory como estabas intentando hacerlo al principio.

Código Delphi [-]
var
  Id         : TextFile;
  Carpeta : String;
begin
 if SelectDirectory('Seleccione la ruta de la carpeta', 'd:\', Carpeta) then
 begin
   //Crear Archivo
   AssignFile(Id,Carpeta+'\Id.txt');
   Rewrite(Id);
   Writeln(Id,Carpeta);
   CloseFile(Id);
 end;
end;

Esta función de devuelve True si se Acepta la carpeta seleccionada, el primer parametro solo es el titulo que se mostrará, el segundo la ruta de donde quieres que seleccione si es '' entonces te aparecera en Mi PC, el tercer parametro la variable donde se te almacenara la ruta seleccionada la cual le pasas al AssignFile concatenando el nombre del archivo que quieres.

Saluditos

[*Caro*]

Una cosita mas, no te olvides añadir en tu uses la unidad FileCtrl.

Saluditos

[[Delphius]]

Empezado por BuRtOn

Delphius a cual AssignFile te refieres al de Marcos ? o al mio, por que el mio tiene los siguientes parametros:

Código Delphi [-]AssignFile( Id, ExtractFilePath( Application.ExeName )+'Id.dos ');


La variable tipo archivo de texto, luego el extracFilepath, y a continuacion el nombre del archivo con su respectiva extension....

el de Marcos segun vi tiene los siguientes parametros:

Código Delphi [-]AssignFile(F, cNomFicLNotas);


Tiene el archivo que es F, y una variable donde alamcena algunos datos, aunque no le entendi muy bien lo que hizo en el codigo....


y estoy buscando por parametros del AssignFile, para tratar de guiarme, y Egostar, si supongo que la forma que mostre el codigo no es la correcta, solo que estoy probando haber a cual me acerco mas a mi problema....Gracis amigos, y gracias por ayudar a este novato....

BuRtOn, ¿Tanto te cuesta darte cuenta de que el AssingFile de Marcos es el mismo que el tuyo?

Es lo mismo unicamente lo que hace marcos es armar el path completo del archivo por partes. Tu lo buscas en el directorio donde está el ejecutable gracias a ExtractFilePath y Application.ExeName.

AssingFile() lo que hace es asignar a la variable TextFile el archivo de modo que:

AssingFile(F, 'el path completo hacia el archivo'); lo que hace es asignar ese archivo a la variable F. Después vendré el Reset, Rewrite, etc...

Por favor BuRtOn, ve con calma.

¿En serio estás pensando en vender un aplicativo? ¿Y para mañana?
BuRtOn, no es por nada... pero si estás teniendo problemas con esto, no quiero imaginar lo que te va a pasar con bases de datos.

El manejo de archivos con AssingFile, reset, rewrite, y demás... es lo más básico en manejo de archivos. Por favor BuRtOn, un sano consejo: posterga la entrega del sistema a por lo menos dos semanas más. Estudia de una vez, lee la ayuda que proporciona F1. Para algo está el F1 y el problema que tu tienes es no haber ido a la ayuda. Prueba el sistema "de pe a pa", o como dicen en otros lados "desde la A hasta la Z".

Calmate, respira... porque no estás concentrandote. Veo que tienes un apurón de la gran siete y un susto por hacer las cosas rápido. Y de ese modo no conseguirás nada bueno.

Saludos,