rastreo de codigo.
 

hola foristas una pregunta podrian aydarme a ratreas este codigo?

Código Delphi [-]
procedure TdmRepDatos.ADOBDBeforeConnect(Sender: TObject);
var Coneccion: WideString; Programa: String;
begin
  Programa := ChangeFileExt(ExtractFileName(Application.ExeName),'');
  if not Assigned(WinReg) then winReg := TRegistry.Create;
  WinReg.RootKey := HKEY_LOCAL_MACHINE;
  if not WinReg.OpenKey('\Software\GrupoVRO\'+Programa, false) then
    ShowMessage('No existe información de la Empresa.  Llame al Administrador del Sistema para la Configuración.')
  else begin
    Coneccion := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+WinReg.ReadString('BaseDatos')+';Data Source='+WinReg.ReadString('Servidor');
    ADOBD.ConnectionString := Coneccion;
  end;
end;

desde ya muchas gracias

¿Y qué quieres que rastreemos?, ¿es una adivinanza?, ¿algún juego?... ;)

olvidalo. GRacias...

De nada, ya lo has solucionado, supongo :)

Deberías explicar algo sobre el tema, ya sabes, nuestra guía de estilo, para ayudar a otros que tengan el mismo problema.

sip :) antes de conectarme pregunta si esta en el registro de win.

el not fue el que me confundio

Yun-i:

Disculpa el sarcasmo de nuestro amigo Casimiro. Lo que sucede es que no queda muy claro lo que buscas. Por cada persona que responde a un mensaje hay varias decenas más que lo leen y estarían dispuestos a ayudar siempre que se comprenda lo que se pide. :)

Según se alcanza a distinguir en el código que pusiste, se trata de establecer una conexión ADO con base a información guardada en el Registro de Windows. A partir de ahí, dinos por favor cuál sería el problema, dificultad o inquietud que se te plantea.

Por cierto, un servidor jamás ha leído la famosa guía de estilo, pero con el tiempo vas tomando conciencia de lo importante que es detenerse a revisar lo que has escrito antes de oprimir el botón "enviar". Siempre bajo el sano ejercicio de ponerse en los zapatos de quienes lo van a leer, y sin flojear a la hora de dar detalles (la isla donde están los discos duros de Club Delphi es bastante grande, así que no te preocupes por una posible saturación*). :)

Esperamos tu respuesta.

Un abrazo.

Al González. :)

P.D.

Yun-i: Ahora veo que ya respondiste. :)

Casi: Gracias por el favor "privado" que me hiciste. El trabajo que los moderadores hacen fuera de los reflectores es también de gran importancia y debe ser reconocido.

* Contar con un respaldo en el continente y otro en América (en caso de que aún no se tengan), no vendría mal, por cualquier cosa que pudiera suceder.

:eek:

Aprovecho la ocasión para recomendarte que leas la guia de estilo. Gracias por tu colaboración.
(ya me sale casi como a los modes :p)

:eek:

Aprovecho la ocasión para recomendarte que leas la susodicha guía de estilo, gracias por tu colaboración. (Ya me sale casi como a los modes :p)

Edito: Catchis... que alguien borre este que me han salido dos con un problema de la adsl.

Por favor, no repitas hilos, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :p:p:p
:D:D:D

No, si al final el que va a salir escaldado soy yo. :o

:) .

;)

Gracias, una disculpa a todos ahora solo quiero sabes como guardarlo en el registro una vez que mande el mensaje no existe informacion en la empresa, pero si se conecta a la base. osea manda el error porque supongo que no lo esta guardando en el registro pero despues hace la conexion y si corre la aplicacion.

Hola.

Para escribir en el registros hay bastantes hilos, échale un vistazo a este.

http://www.clubdelphi.com/foros/show...gistro+windows

Saludos

Gracia Newtron. solo para concluir el tema como la marca la dichosa guia asi quedo mi codigo:

Código Delphi [-]
  Programa := ChangeFileExt(ExtractFileName(Application.ExeName),'');
  if not Assigned(WinReg) then winReg := TRegistry.Create;
  WinReg.RootKey := HKEY_LOCAL_MACHINE;
  if MessageDlg('Se le pedirá que confirme los Parametros de Conección'#13'¿ Desea Continuar ?',mtWarning,[mbYes,mbNo],0) = mrYes then
  if not WinReg.OpenKey('\Software\GrupoVRO\'+Programa, False) then begin
    if WinReg.OpenKey('\Software\GrupoVRO\'+Programa, True) then begin
      WinReg.WriteString('BaseDatos', InputBox('Base de Datos','Escriba el Nombre de la Base de Datos','Base de Datos'));
      WinReg.WriteString('Servidor', InputBox('Servidor','Proporcione el Nombre del Servidor','(local)'));
      WinReg.WriteString('Pasword', InputBox('Pasword Enlace Remoto','Digite el PASSWORD','*******')); end
    else ShowMessage('La llave no ha podido ser creada'#13'.  Contacte al Administrador del Sistema.');
  end
  else begin
    WinReg.WriteString('BaseDatos', InputBox('Base de Datos','Escriba el Nombre de la BASE de DATOS', WinReg.ReadString('BaseDatos')));
    WinReg.WriteString('Servidor', InputBox('Servidor','Proporcione el Nombre del SERVIDOR',WinReg.ReadString('Servidor')));
    WinReg.WriteString('Pasword', InputBox('Pasword Enalce Remoto','Digite el PASSWORD','*******'));
  end;

como comentario a Casimiro notevi que desde su username es sarcastico diria que si en la guia pide hablar con educacion y demas si me pide leerla creo que el tambien debria darle una repasada, o como es la cosa no hay que ser grocero ni faltar al repeto, pero sarcastico si se puede? entonces talvez a la guia le falte agregarle eso.

Gracias a todos los foristas de sus conociemientos hemos aprendido muchos.

Hola.

Me alegro de que hayas solucionado tu tema.

Por otro lado no te tomes a mal los comentarios de casimiro, es buen tío, lo que pasa es que esta gente que saben tanto son un poco raritos. :p

Amigo Yun-i, nuestra guía de estilo son unas simples normas elementales para mantener un poco de orden aquí. Ejemplo: los títulos. Si tú vienes a buscar información sobre cualquier tema y resulta que te resulta imposible encontrar nada porque la gente pone títulos que no describen nada sobre el contenido... ¿de qué sirve la búsqueda?.
En tu caso, titulas "rastreo de codigo". Y pegas un trozo de código.
¿Qué espera que hagamos?, lo normal es que pasemos del mensaje, ignorándolo, ¿nos ponemos a revisarlo buscando... el qué?, si no has dicho nada, no has explicado absolutamente nada, ¿lo imprimimos?, ¿estás mostrándonos un código del que estás especialmente contento?, ¿estás indicando que hay algún error y no lo encuentras?, etc. en fin, como comprenderás no somos adivinos.
La "dichosa" guía de estilo sólo informa de una serie de consejos para que sea más fácil encontrar ayuda quien pregunta. Nada más.

En cuanto a mi sarcasmo, pues más bien soy irónico, normalmente respondo con "doble sentido", hago bromas incluso en las situaciones más adversas, penosas y tristes, me gusta provocar la sonrisa en los demás, sin embargo, "por fuera" aparento ser muy serio.

Bueno, creo que no he faltado el respeto a nadie. Más bien fue una "burla disimulada" para hacerte entender: ¿qué hacemos con este código? :)
De todas formas, no es mi intención molestar a nadie, más bien al contrario, procuro o intento "conducir" a los nuevos usuarios para que obtengan una mejor ayuda/respuesta de los foros.

Saludos.

pues la verdd eres malo para eso, no dudo que seas excelente programador y sepas mucho pero bueno gracias y supongo que debo darte la razon :p

Por desgracia, soy malo en muchas cosas, lo único que se me da bien es hacer tortillas de patatas :D

Por lo que veo en el primer código, es una protección anticopia basada en la presencia (o ausencia) de una clave en el registro. Un esquema de protección que cualquiera con medianos conocimientos puede romper en minutos.