¿THREADS O HILOS EN VB6.0?

[Rick.Hunter.007]

Hola amigos programadores. ¿Alguno de ustedes sabe si se pueden manejar varios THREADS en VB6.0  

[Juancho]

mira hasta dond yo tengo entendido no se puede hacer Threads en vb 6.0. ¿Por que razon? Porque si recuerdan vs 6.0 sali en 1998 entonces ni siquiera se pensaba en hacer tarear multihilos. Esa tecnologia la introdujeron en vs 2002-2003 ya propiamente en el .NET que el nombre de espacio si mal no recuerdo es THREADING algo asi creo pero ya en vs 2005 ya introdujeron el control BackgroundWorker mucho mejor que el de vs2002-2003 que era una  clase unicamente!

X eso que yo recuerde no se puede hacer hilos en vs 6.0 aunq con la actualziacion de los SP que el ultimo de Visual Basic 6.0 fue el SP6, noc si ahi ya lo incluyeron o algo!

[vlad]

No, ningun SP del VB6 incluyo alguna manera de crear multithreading de forma nativa en VB6.

Sin embargo hay muchas formas de hacerlo, desde las mas vulgares (con multiples exes...) (pasando por EXE ActiveX) hasta formas muy elaboradas con DLLs y demas cosas.

Sin embargo, para el Reseter 3 me di cuenta que la mejor forma de 'simular' multithreading es con el API 'settimer".

Suena extraño, pero de alguna forma esa API resulta increiblemente conveniente porque te permite pasarle el identificador del procedimiento que queres que ejecute (el cual obtenes con 'AddressOf') y lo ejecuta en el fondo.

Si quieres puedes ver un ejemplo de esto en el codigo del Reseter 3, en el procedimiento 'Crear_Objeto_IE()'.

Basicamente lo que hace es ejecutar un hilo que se encarga de crear y esperar a que se cree el objeto "InternetExplorer.Application", lo cual lo hace el procedimiento 'lpObjetoIE()', de no ser asi, la aplicacion se bloquearia mientras inicia.

Sin embargo deberias de plantear mejor tu necesidad en especifico, para ver la mejor solucion.

PD: Juancho, HLQYS el multithreading esta presente desde tiempos algo remotos

[vlad]

Por cierto, Googleando por "Multithreading + vb6":
http://www.freevbcode.com/ShowCode.Asp?ID=1287
http://www.vbforums.com/showthread.php?s=&threadid=296315
http://www.elguille.info/colabora/vb/multi_thread_nc.htm
http://visualbasic.ittoolbox.com/documents/popular-q-and-a/mutithreading-support-in-visual-basic-1785

Discusion al respecto:
http://www.xtremevbtalk.com/showthread.php?t=252924

[Rick.Hunter.007]

Gracias Vlad, voy a revisar tú código de Reseter 3

Código: [Seleccionar]

http://www.svcommunity.org/redir/?http://www.xmr.bolhost.com/arc/1%20Reseter/Reseter%203.0.0%20Alpha%201.zip para ver que ondax. Lo que sucede es que estoy trabajando con unos registros inmensos de sql server y de oracle... y pues, mientras el usuario esta haciendo algo más, quiero que esos registros, anticipadamente, se me bajen del servidor... porque despues los meto en clases (sip, en vb6) y los proceso para hacer calculos con $$$.... a pues, eso lo quiero hacer background... no tanto como el soporte que DoEvents me proporciona, sino... que ni siquiera que se note... de pronto, ya estaria ahi, bien ejecutado jajajajaja  Es cierto. En VS.NET la cosa es más sencilla... mejor dicho: "C@GADA" de risa... es como Java...  una completa risa, ya cuando uno ha trabajado con la WinAPI 32 en C++ para hacer sistemas.... jajajaja 

[vlad]

Gracias Vlad, voy a revisar tú código de Reseter 3

Código: [Seleccionar]

http://www.svcommunity.org/redir/?http://www.xmr.bolhost.com/arc/1%20Reseter/Reseter%203.0.0%20Alpha%201.zip para ver que ondax. Lo que sucede es que estoy trabajando con unos registros inmensos de sql server y de oracle... y pues, mientras el usuario esta haciendo algo más, quiero que esos registros, anticipadamente, se me bajen del servidor... porque despues los meto en clases (sip, en vb6) y los proceso para hacer calculos con $$$.... a pues, eso lo quiero hacer background... no tanto como el soporte que DoEvents me proporciona, sino... que ni siquiera que se note... de pronto, ya estaria ahi, bien ejecutado jajajajaja  Es cierto. En VS.NET la cosa es más sencilla... mejor dicho: "C@GADA" de risa... es como Java...  una completa risa, ya cuando uno ha trabajado con la WinAPI 32 en C++ para hacer sistemas.... jajajaja 

Realmente es este : http://untercio.net/extra/Reseter%203.rar

Por cierto, el uso de DoEvents es completamente para otros fines, pero en tu caso no estoy seguro de entender muy bien el problema.

¿Tanto tarda en obtenerse un registro desde el servidor?, ¿o es que tenes que tener todos los registros para hacer el calculo que decis?.

Cuando "bajas" los registros, ¿haces una copia local de la base que esta en el servidor o simplemente metes todos los registros en la memoria?

Por cierto, ¿será que el cuello de botella esta en los calculos y no en  el acceso a la base de datos?

[Rick.Hunter.007]

Ey. No veo nada especial... ni en Global.bas, ni en NET.bas....... solo un DoEvents....   

[Rick.Hunter.007]

Realmente es este : http://untercio.net/extra/Reseter%203.rar

Por cierto, el uso de DoEvents es completamente para otros fines, pero en tu caso no estoy seguro de entender muy bien el problema.

¿Tanto tarda en obtenerse un registro desde el servidor?, ¿o es que tenes que tener todos los registros para hacer el calculo que decis?.

Cuando "bajas" los registros, ¿haces una copia local de la base que esta en el servidor o simplemente metes todos los registros en la memoria?

Por cierto, ¿será que el cuello de botella esta en los calculos y no en  el acceso a la base de datos?

Mmm.....Okey, vere ese. Lo que sucede es que en la bd tengo más de 13 millones de registros... 13.337... o algo asi jajajaja... y se tarda un POQUITO en acceder a ellos.... he tratado de optimizar la consulta... pero ni modo, siempre se tarde 1.6 o 2 segundos en Oracle.... e igual, tengo que obtener varios usuarios de la red (registros)... por eso.... mejor que lo haga background y que llene una estructura (lo hago del servidor a la ram)... más rapido asi....... haber, ya reviso....mmmm

[vlad]

Verás, en esa versión tenes que encontrar una parte que dice 'hpObjetoIE = SetTimer(0, 0, 0, AddressOf lpObjetoIE)' @ 'Crear_Objeto_IE()'

El cual dispara 'lpObjetoIE()', el que a la vez elimina el Timer ('KillTimer 0, hpObjetoIE') para evitar una nueva repetición y deja el proceso terminando en el fondo.

[Rick.Hunter.007]

Verás, en esa versión tenes que encontrar una parte que dice 'hpObjetoIE = SetTimer(0, 0, 0, AddressOf lpObjetoIE)' @ 'Crear_Objeto_IE()'

El cual dispara 'lpObjetoIE()', el que a la vez elimina el Timer ('KillTimer 0, hpObjetoIE') para evitar una nueva repetición y deja el proceso terminando en el fondo.

Ahhhhhhhhhhh. Pero para eso necesito la clase cTimer... y ahi como que medio tiene derechos de autor jajajaja.... bueno, espero que no sea salvatrucho, porque robare JAJAJAJAJJA 

[vlad]

Ahhhhhhhhhhh. Pero para eso necesito la clase cTimer... y ahi como que medio tiene derechos de autor jajajaja.... bueno, espero que no sea salvatrucho, porque robare JAJAJAJAJJA 

cTimer no es necesario, es una cosa completamente diferente.

[Rick.Hunter.007]

En la versión que me baje no tá eso (3 beta 1)... ¿Estara en la 4?....Mmmm 

[vlad]

En la versión que me baje no tá eso (3 beta 1)... ¿Estara en la 4?....Mmmm 

No, esta en el Reseter 3.0 final, el del link que puse en el post #5 (el que no sirve). Ya te mandé un nuevo link para descargarlo en respuesta al MP.

Por si en caso, es este: http://www.todosv.com/index.php?showtopic=664&view=getnewpost


Por cierto, aunque ya dije que cTimer no es necesario para lo que estas haciendo, quiero aclarar algo sobre la licencia de uso, y es que dice:

'   This Class module is provided AS-IS. This Class module can be used as a part of a compiled
'   executable whether freeware or not.
`

[Rick.Hunter.007]

Aja!!!, mi amada winAPI jajajajajajaja

Código: [Seleccionar]

'Tomado de http://abstractvb.com/code.asp?A=939 (Asi dice en el código de Vlad-Kike1/3
Public Declare Function SetTimer _
               Lib "user32" (ByVal hwnd As Long, _
                             ByVal nIDEvent As Long, _
                             ByVal uElapse As Long, _
                             ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer _
               Lib "user32" (ByVal hwnd As Long, _
                             ByVal nIDEvent As Long) As Long


MUCHAS GRACIAS VLAD Y KIKE1/3 (Que solo estabas viendo el post). Ya entendi. Y lo voy a aplicar para sacar más $$$... los voy a dejar impresionados... juajuajua 

[vlad]

Que bueno que le podas sacar provecho ($$$), hay le donas algo al hosting de svcommunity.org