Ayuda conectar form con IdHTTP
Hola a todos estoy haciendo un trabajo para la facultad y bueno hace poco empezamos con delphi estuve leyendo muchos cursos y tutoriales que hay por internet y nos han mandado a hacer un registro del micro procesador usando el componente WMI , para esto en una casilla de edit.texto obtenemos el " ID Unico del Procesador " hasta aquí vamos perfecto por que esto lo eh terminado.
Cita:
|
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)
|
Hola.
Cita:
Hasta aquí salvo la pregunta,más o menos entiendo lo que te han mandado y lo que has hecho. Cita:
¿No estarás hablando de Intraweb, en lugar de las Indy? ¿Puedes explicar lo que necesitas porque no se entiende lo que necesitas? Intenta dedicarle un poco de tiempo a explicar bien, lo que debes hacer. Revisa la Guia de estilo. Bienvenido a los foros. |
Cita:
Cita:
Bueno en base a este componente y viendo un poco el source En un Form , hice un pequeño archivo que reconoce el procesador ID nada más que eso .. en el form escribo lo siguiente : Hasta aquí ya va perfecto porque mediante un Edit . Text puedo obtener el ID del procesador de mi maquina o de cualquiera digamos y funciona muy bien de hecho solamente eso necesitaba obtener en esta ocasión y lo pude lograr investigando un poco y hechando manos.. Este es el codigo que identifica el ID del CPU (Procesador ID) con el componente correspondiente : GLibWMI
Código:
Ejemplo : oi40.tinypic.com/2mms5lf.jpg En este caso leyendo un poco más y adentrandome e investigando logre colocar en un MEMO , y usando el Componente de Indy (IdHTTP1)
Código:
Ejemplo : oi43.tinypic.com/nzoom1.jpg Pero ahora lo que necesito es que al hacer click en el boton , identifique si esta cargado el HWID en la página y si esta que me permita acceder a un Form2 , que puedo agregar o bien que al hacer click en el boton identifique si el HWID de la pagina es el de mi maquina y me permita continuar con la aplicación y en caso de que no este cargado en la página que automaticamente me suelte un error. Agradecería respuestas estoy bastante apurado con esto !!! :D |
Cita:
Cita:
Me estás explicando lo que haces (que no entiendo), pero no lo que necesitas hacer. Cita:
No entiendo qué tiene que ver el componente de las Indy es esto. ¿Por qué necesitas acceder a internet para saber temas de hardware? ¿Quieres que al acceder a una página web te de el identificador del equipo? ¿?¿?¿ Cita:
¿Esas HWID de las que hablas de dónde salen? ¿Dónde están almacenadas? |
Cita:
No exactamente me detallare paso por paso , antes que nada quiero agradecerte por tu colaboración y las respuestas !!! Ejemplo : Yo tengo un archivo el cual al abrirlo resulta ser un form con un edit , text y un buton Bien hasta aqui vamos genial ahora al momento yo de " Verificar si ese archivo / programa " Haciendo Click en el boton me diga si esta validado para mi PC el cual hace que lea el Link de la pagina que agregue por Indy IdHTTP y verifique si el serial cargado en esa web es el que tiene este programa en su Edit , Texto. ( EN el caso de que sea así que me permita continuar la operación ) ejemplo puedo agregar un form 2 y que al decir que esta verificado continue al form 2 , en el caso de que no este cargado que me de un mensaje de error .. Un ejemplo rapido que voy a hacer : un amigo hizo algo similar pero en vB 2010 Express - a todos nos toco distinto tipo de lenguajes.. Quizás no explique muy bien o no sirva para explicar en estos casos muchas veces me trabo con el tema de dar explicaciones no es mi fuerte , pero dejare algo mas detallado lo cual servirá como mi apoyo de explicación es un diseño similar a mi trabajo que me hizo un amigo en vB2010 que también conecta con el foro gratuito que cree para que lea las HWIDs , Código:
Ejemplo de lo que quiero hacer video Youtube : |
Bueno eh conseguido el codigo de mi amigo y lo que me dio es esto me dijo que lo tradujera pero no entiendo mucho las syntaxis de vB para pasarlo a Delphi alguna mano ?
Aclaro la etiqueta no es código DELPHi esta programado en vB esto y necesitaría pasarlo a Delphi para que me funcione lo que intento hacer u.U !!
|
¿En qué necesitas ayuda exactamente para pasarlo a delphi?, ¿qué parte no entiendes?
|
Cita:
No entiendo , " No comprendo la sintaxis de vB " como para traducirla a pascal estuve leyendo y orientandome en codigos encontrados en la web referentes o ejemplos pero no logro distinguir al momento de pasarlos o comprender como se orientan cada uno. Yo necesitaría traducir " digamos ese código para que mi " ( Programa funcione ) " o bien hacer lo anterior a ese post .. >_< ^\||/ Gracias por tu respuesta y/o colaboración son apreciadas ! |
¿Cuál es el objetivo, Andrés? ¿Que tu programa verifique si en cierta página aparece cierto valor y, dependiendo de ello, que permita continuar o que se cierre? :confused:
Cita:
Con un poco más de calma (y comas) se te comprendería mejor, en buen plan. :) |
Cita:
Exactamente , eso ._. :mad: No logro entender que es lo que hizo mi compañero en vB porque segun todas las posibles traducciones que encontre tuve que Moldearme a viejos componentes de Pascal para poder sacar el Procesador ID primero haciendolo funcionar en Delphi6 y Pasandolo a Delphi7 y ahora , Luego tuve que usar un componente de Indy10 Para pascal y hacer la conexión IdHTTP para que lea en un Memo el " URL " ahora lo que necesito es lo siguiente : " Que al apretar el botón " Me diga si esta validado o no , ejemplo ya esta hecha la conexión al servidor IdHTTP ahora solo queda verificar que sea cierto si esta el HWID cargado tiene que continuar a otro form que lo puedo agregar arriba y si no esta el HWID en el servidor que directamente salga un error!! Lo que quiero hacer es que , al momento de "Chaskear el boton" me diga si el hwid cargado en la página "esta" ejemplo , Si esta el HWID cargado en la página que continue abriendo un Form2 continua -> "Abre un Form" , Si no esta cargado el HWID en la página que salga un "MsgBox Error" |
Revisa este link, a ver si es lo que necesitas...
No estoy seguro de que sea eso. Un saludo. |
Cita:
|
|
Cita:
|
Cita:
Gracias neftali por querer ayudarme , ! |
Hola.
Si no te entiendo mal habías logrado cargar la lista de HWIDs al memo, por lo que prácticamente ya lo tenías solucionado. Solo te faltó revisar si el el HWID existía en la lista obtenida. Para ejemplificar, uso la dirección de tu mensaje número #4 y algunas palabras de su contenido: Si cambias algo del texto que devuelve la función GetHWID no será encontrado y lanzará la excepción. Saludos :) |
Cita:
Bueno en este caso revisando un poco el código que posteastes al momento de implementarlo y situar nuevamente en lo que es el code , me lanza algunos errores eh intentado cambiar de lugar algunas cosas y modificarlas pero aún así no logro terminar de declarar algunas funciones para que pueda compilar sin errores saludos y gracias por tu cooperación ! |
no podia editar el de arriba ._. !!!!!!!
Cita:
Bueno en este caso revisando un poco el código que posteastes al momento de implementarlo y situar nuevamente en lo que es el code , me lanza algunos errores eh intentado cambiar de lugar algunas cosas y modificarlas pero aún así no logro terminar de declarar algunas funciones para que pueda compilar sin errores saludos y gracias por tu cooperación ! Tras estar un rato mirandolo recibo un par de errores que me tienen loco si estan declaradas las strings porque me da estos errores ? Cita:
:mad: |
Cita:
En principio te faltó declarar el método TryConnect. Por lo que veo, en tu código sólo está definido, los demás avisos se desprenden del mismo orígen. Te adjunto los fuentes del ejemplo tál como está en mi mensaje anterior y funcionando, para que lo puedas revisar con tranquilidad. Cualquier inconveniente no dudes en comunicarlo. Saludos. :) |
Cita:
|
Cita:
Quería antes que nada preguntarte si tenes Skype o Messenger o Facebook , ya que como estoy en mi primer año lo que hice en El formulario fue a base de tutoriales y guías sin tener el conocimiento que requiero para programar como nos cambiaron los lenguajes muchas veces de vB a C# de C# a Pascal y así , tengo una ensala de fruta en la cabeza y no me deja pensar bien y no me puedo explicar bien o entenderme a la hora de hacer que esto funcione. Mi pequeña duda a todo esto es ya declarado el TryConnect y compila genial , lo unico que me resta es que siga al siguiente formulario ya que no "Chequea" el HWID en la página o yo no lo hago que compruebe no lo entiendo bien , pero me ayudarías con este temita ? serían un par de minutitos nada más. Saludos y muchisimas gracias por todo! |
1 Archivos Adjunto(s)
Hola Andres.
Te pongo el ejemplo algo modificado con el agregado de un TListBox y un TEdit. Lo leído de la página, además de almacenarlo temporalmente en TStrings(donde se busca el ProcessorId), se muestra en un TListBox para mayor claridad. Esta vez hice referencia a una página que tiene logarítmos del 1 al 100. Desde el edit, ingresa cualquier logarítmo que cumpla la condición vg: 1,397940 - 1,531479 - 1,579784 - etc. Y también otros que no lo hagan: 2,079181 - 2,017609 - 2,69897 - etc. En el segundo caso mostrará el mensaje de error y en el primero permitirá la creación y visualización del form. Si sigue dándote problemas sería muy útil conocer la dirección de la página contra la que efectuas la lectura y que pusieras algún valor HWID que hayas usado como prueba. De ese modo sería mas fácil hacerte un ejemplo sobre el caso específico. Saludos. :) |
Cita:
|
Cita:
http://hdwid.foroargentina.net/h1-hdwid Esa url es creada por un foro gratuito que me permite crear un Modulo .HTML donde al editar ese modulo asigno ahí los HWID cargados , y de esta manera desde el form que me da mi HWID lo lee y verifica y caso de que este en la página , me permite continuar digamos al Form2 , y en el caso de que no este en la página no me permitiría continuar ahora chequeo todo nuevamente muchisimas gracias. Cita:
Más perfecto que esto imposible!! Pero en este caso , yo necesitaría que sea un ID por maquina , ¿ me explico ? porque yo en el edit.text puedo poner cualquier ID y continua , ahora le voy a agregar la lectura del processorID , para que me arroje el HWID de esta maquina , si lo pongo sobre la casilla de texto y verifico al "chasquear el botón" como esta cargado en la página me va a permitir continuar pero si yo en la "página edito un numero por decirte (178BFBFF00040F33) y le saco 2 Numeros (178BFBFF00040F) ("FALTA 33") me tendría que dar error veamos.. Perfecto ecfisa muchisimas gracias por todo funciona como quería !! |
Hola Andres.
Tengo que discrepar con vos, realmente no puedo imaginar a Casimiro haciendo spam por estos lares... :) El es uno de los que mas trabaja y derrocha su valioso tiempo para el foro. Es que tu comentario: "... responder lo que las otras personas no pudieron o no quisieron ayudarme!" (aunque con seguridad sin ánimo de molestar a nadie) soslaya que hubo quién no quiso ayudarte. Mirá, llevo años trabajando y compartiendo con los que respondieron en este hilo y puedo asegurarte que no es así. Si no han podido ayudarte es por que sus actividades personales en este momento no se lo permiten, pero bajo ningún punto de vista por falta de voluntad ¡y mucho menos por falta de conocimientos para hacerlo! Es más, de haber podído, estoy convencido que cualquiera de ellos te habría dado sugerencias mas eficientes y elegantes que la mía. Volviendo a tu consulta, de donde provenga el HWID es irrelevante, basta que reemplaces el valor del Edit por el valor que devuelve la función que desarrollo Neftalí. Valor que supongo será diferente para cada equipo. Saludos. :) |
Cita:
Y que la mayoria esta haciendo la rutina diaria de trabajar y encargarse de otros Proyectos personales . Que algunos no tienen ese tiempo necesario pero me molesto la forma en que lo dijo al igual que Al Gonzales preguntandome sobre mi vida privada para eliminarme Luego y decirme no puedo chau , más facil hubiese sido no preguntarme nada y no aceptarme y decirme la verdad no te puedo ayudar lee mas guías hubiera bastado con solo eso, a cosas así me refiero nada más! Yo que recien me inicio con esto y soy medio de Piedra por más que agarre tutoriales no es lo mismo que me enseñan en la UNI hay muchas cosas que no comprendo y si hay un lugar donde se pueden debatir temas para poder aprender y tener el minímo conocimiento o ayuda de otros siempre es bienvenida para poder avanzar y una vez obtenido eso seguir avanzando acorde a lo que uno tiene y poder aprender más y más! .. Me surgió otra cuestion mi PC reconoce este HWID código unico de procesadorID "178BFBFF00040F33", pero ahora borrando desde el archivo HTML "33" y verificando la conexión da error perfecto , pero si yo pongo otro HWID va a continuar la aplicación como podría hacer para que no continue y solo sea un HWID por maquina ? |
Cita:
Buena suerte en la vida. |
Cita:
No no comprendo el hecho de ayudar a un Usuario que este perdido o no este bien orientado . La verdad que me es difícil preguntarte tu vida que haces que comes a que te dedicas que edad tenes , de donde sos , con quien vivis , y luego eliminarte .. :rolleyes: Deberías de fijarte que siendo moderador tratar tus respuestas con otra expectativa estas no ayudan en nada constructivo solo incitan a que te siga contestando lo cual de hecho no seguire haciendo saludos .. Muchisima suerte en tu vida! ^\||/ |
Cita:
|
Cita:
|
Cita:
Ya en serio, Andrés, y que conste que lo que voy a decir no es para criticarte ni reirme ni nada de eso, sino la percepción que transmites es la de ser un "aprovechado", conseguir lo que necesitas aunque para ello tengas que volverte molesto, fastidioso e inoportuno, lo que vulgarmente se conoce como un pelmazo. Criticas en público a todo el que no ha actuado según tus intereses, aunque esa acción haya sido en modo privado (lo que has hecho con Al González, por ejemplo), y supongo que habrás escrito más mensajes privados a otras personas con el mismo tema, y por eso has confundido antes mi nombre con el de otro al decir no sé que cosas de tu vida. Por eso te aconsejo, con la mayor humildad posible, que cambies un poco de actitud, los que te conocen en "la vida real" ya lo sabrán, pero en el "mundo virtual" lo dejas bien claro. Todo gira entorno a ti, tú eres lo primero, sólo importan tus problemas y tus necesidades. Bien, eso es lo que aparentas. Ahora tú decides si quedarte o irte, en ambos casos te deseo lo mejor del mundo para ti y los tuyos :) |
La franja horaria es GMT +2. Ahora son las 11:42:26. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi