Escribir en archivos con Delphi

[Casimiro Noteví]

Eso es para ficheros de texto:

Código Delphi [-]
 openfile: TextFile;

¿Para qué quieres hacer eso?

[JuanOrtega]

porque la unica forma en que se me ocurrio hacerlo , estoy haciendo el login de una agenda , en esta parte pregunto los datos de login y los escribo al final del programa login.exe despues en login.exe me leo a si mismo y compruebo los datos para mostrar el administrador de la agenda.

[Casimiro Noteví]

Pero guárdalo mejor, por ejemplo, en un simple fichero .ini

[JuanOrtega]

Pero eso es lo que trato de que todo este en el exe , tambien tengo pensado incrustar sonidos en el exe pero es un proyecto a futuro.

[Casimiro Noteví]

Empezado por Lepuke

Pero eso es lo que trato de que todo este en el exe

¿Por qué y para qué?
¿Los contactos de la agenda también van a estar en el ejecutable? ¿Cómo?
Eso no se hace así.

[[AgustinOrtu]]

Concuerdo con Casimiro, no solo no esta "bueno" tener los datos de un login metidos dentro de un ejecutale, sino que la forma que lo haces es medio feucha tambien

Podrias declarar dos costantes en tu programa o usar resourcestrings:

Código Delphi [-]
unit Unit1;

interface

uses
  ...

// opcion 1, resourcestring
resourcestring
 sUserName = 'pepito';
 sPassword  = '1234';

// opcion 2, constantes
const
 NombreUsuario = 'pepito';
 PasswordUsuario = '1234';

Y luego la usas como cualquier costante/variable que hayas declarado

Código Delphi [-]
  ShowMessage(sUserName);
  ShowMessage(sPassword);
  ShowMessage(NombreUsuario);
  ShowMessage(PasswordUsuario);

De esta forma te queda metido dentro del ejecutable como necesitas y dejas al delphi que se encarge de hacerlo, no vaya a ser que corrompas el exe o algo por andar metiendo como no se debe

[[escafandra]]

Volviendo a la pregunta original, la forma general de escribir en un fichero sería algo como esto:

Código Delphi [-]
var
  hFile: integer;
  Buffer: PCHAR;
  Size: integer;
begin
   // abro para escribir
   hFile:= FileOpen('File.bin', fmOpenWrite);
   // Coloco el índice de archivo al final
   FileSeek(hFile, 0,2);
   // El Buffer y su tamaño
   Buffer:= PCHAR('Añado al final');
   Size:= lstrlen(Buffer);
   // Escribo el buffer
   FileWrite(hFile, Buffer^, Size);
   // Cierro el fichero
   FileClose(hFile);
end;

Escribir en un ejecutable, un archivo binario, datos en modo texto, no es buena idea, mejor escribirlos en modo binario.
El problema de escribir un login en el ejecutable es que es muy fácil de que lo vean los curiosos. Cuando lo hago, lo guardo en variables cuyo valor encripto previamente y uso una rutina para descifrar en mi programa.

Si lo haces al final del programa, tendrás que tener previsto un modo de localizar cuando empiezan tus datos, generalmente una firma colocada delante. No es sencillo que un ejecutable se modifique y se guarde así mismo. Otra forma es escribir en los recursos del mismo, más fácil de extraer después.


Saludos.