como crear componentes ado en tiempo de ejecucion

[richy08]

es ahi donde tengo mis dudas por que ese misma funcion se mandara llamar en todas las iteraciones que tengas los clientes con el servidor, los hilos sabran que tzconnections y que tzquery fueron creados por cada uno de los hilos, y no he encontrado como hacer una cadena de conexion para los componentes zeos que sea por medio de una cadena, el tipo es tzconnections pero yo al querer asignar por el nombre Myusername(nombre de la maquina que creo el hilo) es tipo string e ahi el problema

[richy08]

ok al parecer ya funciona aunque no lo se con certeza, la duda que ahora me queda es si tengo que destruir los componentes que he creado o autmaticamente se destruyen cuuando finaliza el hilo, la otra duda es en que momento finalizo el hilo gracias por su tiempo

[Neftali [Germán.Estévez]]

Los componentes que hayas creado tú, debe destruirlos tú. Lo lógico sería que los que crees en el Create, los liberes en el Destroy. Los que pertenecen al formulario y se crean en diseño los destruye el propio form, pero los que has creado tú, son tu responsabilidad.

[richy08]

ok entonces sigo teniendo algunos detalles, lo malo de esto es que el programa siempre estara corriendo en el server(todo el tiempo) asi es que no puedo usar el evento oncreate(), ondestroy() tendre que usar una funcion para destruirlos aunque esto si me da un poco de panico lo probare gracias.

[[Caral]]

Hola
Creo la conexion y el query que necesite.
Lo uso e inmediatamente despues en el acto lo destruyo.
Simple y transparente.
Se puede hacer un simple procedimiento que sea llamado cuando ya no se usen los componentes para ser destruidos.
La verdad no le veo lo complicado.
Saludos

[Neftali [Germán.Estévez]]

Empezado por richy08

ok entonces sigo teniendo algunos detalles, lo malo de esto es que el programa siempre estara corriendo en el server(todo el tiempo) asi es que no puedo usar el evento oncreate(), ondestroy() tendre que usar una funcion para destruirlos aunque esto si me da un poco de panico lo probare gracias.

Me refería a los eventos de los hilos (threads) no del programa principal.

[richy08]

Empezado por Caral

Hola
Creo la conexion y el query que necesite.
Lo uso e inmediatamente despues en el acto lo destruyo.
Simple y transparente.
Se puede hacer un simple procedimiento que sea llamado cuando ya no se usen los componentes para ser destruidos.
La verdad no le veo lo complicado.
Saludos

si la verdad no seria complicado pero no se con certeza que es lo que pase
aunque segun yo le doy un nombre al query al querer acceder por su nombre no logro que compile

Código Delphi [-]
function TFrm_Interfaces.CreaAdo(Myusername, nombre: string; acode, estado : integer):boolean;
var
   i, seleccion :integer;
begin
       //coneccion mysql
       zConnect1:= TzConnection.Create(nil);
       With zConnect1 do
       begin
        Parent:= Frm_Interfaces;
        Name:= Myusername+'z';
        Catalog:= 'lookup';
        Database:= 'cdr';
        HostName:= '192.168.10.3';
        Password:= 'siti270';
        Protocol:= 'mysql-5';
        port:= 3306;
        User:= 'root';
        Connect;
       end;

       //coneccion mssql
       connect:= tadoconnection.Create(nil);
       With Connect do
       begin
        connectionstring:=cadena;
        loginprompt:=false;
        provider:='SQLOLEDB.1';
        name:=Myusername+'m';
        connected;
       end;

       //crea el query   mssql   busca extensiones
       Query      :=   TAdoquery.Create(nil);
       with Query  do
       begin
         Name :=   Myusername+'1';
         close;
         Connection:= connect;
         SQL.text:='select idext, DesTel from pbx_ext where acode=:acode ';
         parameters.ParamByName('acode').Value:=acode;
         Parent:= Frm_Interfaces;
         CursorType := ctStatic;
         open;
       end;

       //crea el query   mysql
       zQuery      :=   TzQuery.Create(nil);
       with zQuery  do
       begin
         Name :=   Myusername+'2';
         Connection:= zConnect1;
         SQL.text:='update lookup set  allowcalls=:allowcalls, ldesc=:ldesc where code=:code ';
         Parent:= Frm_Interfaces;
       end;

       i:=0;
       seleccion:=Query.RecordCount;
       Query.First;
       While ido
       begin
            zQuery.Close;
            zQuery.ParamByName('allowcalls').Value:=estado;
            zQuery.ParamByName('ldesc').Value:=nombre;
            zQuery.ParamByName('code').Value:=Query.fieldbyname('idext').Value;
            zQuery.ExecSQL;
            i:=i+1;
            Query.Next;
       end;
end;

Empezado por Neftali

Me refería a los eventos de los hilos (threads) no del programa principal.

entonces si destruyo el hilo todo lo que se halla creado a dentro de el se destruye ???

este codigo lo uso para destruir el hilo en la parte del cliente

Código Delphi [-]
  if CBClientActive.Checked then
      begin
        try
           Client.Connect(10000);  // in Indy < 8.1 leave the parameter away
           ClientHandleThread := TClientHandleThread.Create(True); //crea el hilo
           ClientHandleThread.FreeOnTerminate:=True; //para que no se ejecute inmediatamente
           ClientHandleThread.Resume; //lo manda ejecutar
       except
            on E: Exception do MessageDlg ('Error while connecting:'+#13+E.Message, mtError, [mbOk], 0);
        end;
      end
      else
      begin
       ClientHandleThread.Terminate;
       Client.Disconnect;
      end;

[Neftali [Germán.Estévez]]

Empezado por richy08

entonces si destruyo el hilo todo lo que se halla creado a dentro de el se destruye ???

Cuando destruyes un objeto, ese objeto queda innacesible y todo lo que hubieras creado dentro también. Si lo que has creado dentro (Create del Thread) lo has destruído correctamente (Destroy del Thread) estará todo OK, si no lo has destruído, esa memoria se perderá.

En cualquier caso el hilo y todo lo que hubiera dentro ya no existe (por decirlo así).

[richy08]

Empezado por Neftali

Cuando destruyes un objeto, ese objeto queda innacesible y todo lo que hubieras creado dentro también. Si lo que has creado dentro (Create del Thread) lo has destruído correctamente (Destroy del Thread) estará todo OK, si no lo has destruído, esa memoria se perderá.

En cualquier caso el hilo y todo lo que hubiera dentro ya no existe (por decirlo así).

sabes viendo mi codigo no tengo nada de lo que describes, creo que tendre que volver a requemarme los manuales para ver en que momento tengo que utilizar lo que comentas, por que mi maquina al estar corriendo los programas al final empezo a marcar errores de memoria al principio no se me hizo raro por que es algo normal en mi maquina ya que mi instalacion de windows esta dañada, pero es mejor asegurarme gracias por sus comentarios.

[Neftali [Germán.Estévez]]

Tal vez deberíamos "hacer un alto en el camino" (como se dice aquí) y pensar y revisar todo lo que hemos hablado, porque te confío que yo mismo he perdido un poco de vista el objetivo final.

Creo que hemos dado muchas vueltas y me suena que hemos estado discutiendo de los mismo en varios hilos y al final yo me he perdido un poco.

Así que tal vez deberíamos poner la PAUSA.

[richy08]

si totalmente de acuerdo la verdad hasta yo me empiezo a confundir al ver el codigo y tanto texto que sigo intentando digerir, creo que mi mayor problema es que veo diferentes textos y ejemplos de programacion que son diferentes pero igual y pueden llegar al mismo resultado