Hola,
Hasta el momento, la modificacion ha funcionado correctamente.
Lo que hice fue lo siguiente:
1.- Añadir una variable MDO_Unique_Cursor en MDOUtils.pas
Código Delphi
[-]var
MDO_Unique_Cursor: Integer = (aqui va el valor más bajo de un integer, ahora no lo recuerdo);
2.- Añadir la función (en MDOUtils) que incremente nuestra nueva variable.
Código Delphi
[-]function Valor_Cursor_MDO:string;
begin
try
inc(MDO_Unique_Cursor);
except
MDO_Unique_Cursor:= low(integer);
end;
result:= inttostr(MDO_Unique_Cursor);
end:
He utilizado un bloque try..except porque creo que será más rapido que un if..then..else. Ya me he equivocado un monton de veces en este hilo, puede que me equivoque en esto tambien.
3.- En MDOSQL.pas, buscar el TMDOSQL.Prepare, y sustituir la linea donde se asigna el valor al cursor por esta:
Código Delphi
[-]FCursor := Name + Valor_Cursor_MDO;
Si utilizas IBX o FreeIB, seria algo parecido, aunque yo comentaria la asignación del cursor en el .Create.
Al ya ha explicado porque es mejor.
Aunque el valor de Name (haciendo un uso "normal" del componente TMDOQuery, TMDODataset) siempre es vacio, el cursor funciona sin problemas.
Supongo que el componente TMDOSQL si que pasará el valor de Name al crear el cursor. No lo he probado, y no lo necesito.
El typecast, al principio no me funcionaba, luego recorde que hay que hacerlo en la misma unit donde tengas los componentes, y asi si que funciona.
Como digo, Name no es necesario, salvo que seais capaces de acabaros todos los numeros integer en poco tiempo. Si este fuera el caso, recomendaria pasar el valor Name mediante un typecast, o con un overload del create como se sugiere en el foro.
La rutina para "cifrar" no contiene la formula de la coca cola
, se trata solo de evitar que el usuario pueda cambiar algunas cosas.
Estas rutinas estan en la web por todas partes, yo no se si las vi por primera vez en trucomania.
Tienen varios inconvenientes, por ejemplo, el texto no siempre es legible, puede tener caractares no imprimibles, y si lo guardas a un archivo luego no es descifrable.
Admito sugerencias, pero como esto del cifrado deberia estar en otro hilo, enviarlas por privado, y si es necesario comentar algo iniciamos el post en el foro correspondiente.
No podeis imaginaros lo agradecido que estoy por la ayuda que desinteresadamente me habeis proporcionado. Ojalá algún dia tenga los conocimientos necesarios como para devolver(os) el favor.
GRACIAS