Autor
|
Tema: Problema que no comprendo con la api GetPixel (Leído 3,523 veces)
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
odio a esa api. Asi nomas les digo.
Tengo el hdc. Uso getpixel DESDE el IDE y funciona de 10. Lo compilo y me da error 308
Alguien tiene idea de que corno me pasa?
Consigo el hwnd con findwindow consigo el hdc con getdc o con getwindowdc y de ahi hago getpixel.
en que puedo estar fallando? :'(
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
MCKSys Argentina
|
Y falla en el call de la API o despues?
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
normalmente la api tira -1 como resultado a pesar que deberia tirar rojo. Sino directamente recibo un error 308 cuando llega a la llamada de la api.
Se pone peor. pongo el getpixel COPIADO de otro proyecto que tengo y tampoco anda y en el otro proyecto si. Probe de compilar a nativo y a p-code y es lo mismo (por las dudas)
|
|
« Última modificación: 6 Septiembre 2012, 22:50 pm por Elemental Code »
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
MCKSys Argentina
|
Podes poner un link para bajar el EXE? (No digo todo el EXE, sino uno que muestre el error)
Ah! Y el pedazo de codigo que genera el error.
Digo, asi se podria reproducir el error...
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetPixel Lib "GDI32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Dim window As Long Dim dc As Long Dim color As Long Private Sub Form_Load() window = FindWindow("ThunderRT6FormDC", vbNullString) MsgBox window dc = GetWindowDC(window) MsgBox dc color = GetPixel(dc, 600, 500) MsgBox color End Sub
Empeoro, ahora no anda ni de la IDE. Puede ser que este funcionando mal porque estoy en windwos 7? :S
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
MCKSys Argentina
|
Probe ese mismo codigo en un VM con XP SP3 y en el IDE no encuentra la ventana (pero no falla). Como exe si encuentra la ventana, pero como dijiste, GetPixel devuelve -1.
Ahora, en ningun caso tira el error...
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
Acabo de hacer un descubrimiento BRUTAL "ThunderRT6FormDC" Es el generico para un exe de vb6.0 El programa al que yo intento afectar es de vb6.0 y el mio tambien. TENGO UN SUPER CONFLICTO RE PULENTA Tengo que ser mas especifico Vuelvo despues y les cuento
SANTO REMEDIO Tenia un conflicto en las clases. Correji eso y sali andando en moto
|
|
« Última modificación: 6 Septiembre 2012, 23:54 pm por Elemental Code »
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
Dessa
Desconectado
Mensajes: 624
|
Tenia un conflicto en las clases.
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim window As Long Private Sub Form_Load()
If App.LogMode = 0 Then window = FindWindow("ThunderFormDC", vbNullString) ' IDE ElseIf App.LogMode = 1 Then window = FindWindow("ThunderRT6FormDC", vbNullString) ' EXE End If MsgBox window, , "LogMode " & App.LogMode
End Sub
|
|
|
En línea
|
Adrian Desanti
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Recursividad en C++, programas que no comprendo muy bien
« 1 2 »
Programación C/C++
|
TaLaP0 XoR BiT
|
15
|
10,337
|
27 Octubre 2012, 00:31 am
por leosansan
|
|
|
Expliquenme esta nota que no la comprendo ?
.NET (C#, VB.NET, ASP)
|
TrashAmbishion
|
2
|
2,230
|
4 Mayo 2013, 16:59 pm
por TrashAmbishion
|
|
|
[JS] Cada vez me siento más idiota, no comprendo lo más sencillo
« 1 2 »
Desarrollo Web
|
Linton
|
10
|
5,113
|
20 Junio 2013, 13:15 pm
por Linton
|
|
|
[C++]Ayuda con un programa funcion getpixel
Programación C/C++
|
Ahustinkrone
|
5
|
4,030
|
31 Mayo 2014, 07:08 am
por Ahustinkrone
|
|
|
problema de subredes que no comprendo
Redes
|
rulovive
|
7
|
2,545
|
29 Enero 2018, 23:27 pm
por engel lex
|
|