Usuarios, passwd y listbox??

[rocksoft]

Hola JuancaDJ,

una pregunta por que quieres usar el odbc de mysql si puedes acceder directamente? con los componentes firedac o ZeosLib.

Mira si tienes algun componente MemData en tu delphi, sino puedes buscar alguno libre
si usas DevExpress lo cargas asi:

Código Delphi [-]
dxMemData1.LoadFromTextFile('c:\xxxx.txt');

[JuancaDJ]

Ummm estoy usando delphi7 esos componentes vienen ahi?
El tema de usar Mysql es que queria usar un base de datos para almacenar usuario, passwd y tiempo conectado pero al no poder poseer una base de datos he tenido que hacer 3 ficheros, usuario, passwd y tiempo, que en el caso del fichero tiempo se me esta complicando pues si tengo 300 usuarios tengo que hacer unos 300 ficheros ya que si dejo solo 1, cuando el usuario x cierra su aplicacion no podra guardar los cambios poque el usuario z aun esta conectado y el fichero esta en uso, por eso el tema de una base de datos o algo similar que me permita eso

[Casimiro Notevi]

Creo que no está muy claro, exactamente, lo que quieres conseguir. Creo que estás intentando solucionar algo de forma no demasiado correcta. Deberías centrarte primero en explicar claramente la problemática que necesitas solucionar. Luego buscar la mejor solución para esa problemática. Finalmente implementar esa solución.
Tú estás empezando por la última parte, sin saber si es la mejor solución para esa problemática.
Es mi parecer, puede que no haya entendido bien.

[JuancaDJ]

Código Delphi [-]
procedure TForm2.FormActivate(Sender: TObject); 
begin  
  //usuario 0
  //timer1.Enabled:=true; 
  if form1.Edit1.Text=form1.ListBox1.Items.Strings[0] then
    memo1.Lines.LoadFromFile('/veryimport/data/time'+inttostr(ix)+'.dll'); 
  labeltimer.Caption:=memo1.Lines.Text;

Esto me quedó asi:

Código Delphi [-]
procedure TForm2.FormActivate(Sender: TObject);
begin
  label2.Caption:=form1.Edit1.Text;
  timer1.Enabled:=true;
  memo1.Lines.LoadFromFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
  labeltimer.Caption:=memo1.Lines.Text;
end;

Referente a la problematica que tengo es simple, la idea era usar una Base de Datos pero ya por las razones expuestas no pude usarla y tuve que usar ficheros txt para mi solucion.

[ecfisa]

Hola JuancaDJ.

Otra opción que podrías considerar es usar un TClientDataSet en memoria y manejarlo como si estuviera conectado a una bd usando los métodos LoadFromFile y SaveFromFile para plasmar y recuperar los datos en tu archivo.

Te pongo un ejemplo básico del control de ingreso:

Código Delphi [-]
...
implementation

var
  gFileName : string;

procedure TForm1.FormCreate(Sender: TObject);
var
  fld: TField;
  cds: TClientDataSet;
begin
  cds := ClientDataSet1;

  // ~ (*)
  fld := TStringField.Create(cds);
  fld.FieldName := 'NAME';
  fld.DataSet   := cds;
  fld := TStringField.Create(cds);
  fld.FieldName := 'PASSWORD';
  fld.DataSet   := cds;
  // ~

  cds.CreateDataSet;
  gFileName := ExtractFilePath(Application.ExeName) + 'ARCHIVO.CDS';
  if FileExists(gFileName) then
    cds.LoadFromFile(gFileName);
  cds.Open;
end;

procedure TForm1.btnAceptClick(Sender: TObject);
begin
  if not ClientDataSet1.Locate('NAME', EditName.Text, []) then
    raise Exception.Create('Nombre de usuario inexistente');

  if EditPassword.Text <> ClientDataSet1.FieldByName('PASSWORD').AsString then
    raise Exception.Create('Contraseña incorrecta');
  //...
  ShowMessage('¡ Bienvenido !');
end;

//....
procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClientDataSet1.SaveToFile(gFileName);
end;

(*) los campos podes crearlos en tiempo de diseño pero lo hice en ejecución para clarificar.

Me valí de Edits para simplificar el ejemplo, pero no tendrías problemas en beneficiarte usando los controles de la pestaña DataControls como si el CDS estuviese conectado con una BD.

Saludos

[JuancaDJ]

Muchas gracias por ese codigo, que tendre que estudiarlo a ver si lo implemente para posterior actualizacion de mi aplicacion jeje, ya que la tengo casi terminada usando los txt jejeje
Ahora tengo una duda sumamente importante que viene siendo un BUGS critico en mi sistema jeej y es el siguiente:
Tengo este codigo en estas funciones:

Código Delphi [-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
form1.Close;
end;

Código Delphi [-]
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');

form1.Close;
end;

Código Delphi [-]
procedure TForm2.FormDeactivate(Sender: TObject);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
form1.Close;
end;

Código Delphi [-]
procedure TForm2.FormDestroy(Sender: TObject);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
if labeltimer.Caption='00:00:00' then
WinExec(PChar('/veryimport/data/offtime.bat'),SW_SHOWNORMAL);
form1.Close;
end;

Como pueden ver todo eso lo tengo implementado pues si la aplicacion es cerrada, o la PC reiniciada necesito que guarde el ultimo tiempo que estaba ejecutandose antes del cierre de la aplicacion, pero hay un problema y es que si ejecuto el administrador de tareas y mato ese proceso no guarda el tiempo, entonces necesito saber como corregir ese fallo u ocultar el proceso del administrador de tareas
Otra cosa, en el evento ondestroy eso llama a un .bat que cierra la sesion del sistema operativo, por lo que igual si el proceso es matado ademas de guardar el ultimo tiempo cierre la session del sistema operativo. Gracias.