FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Me da error al quitar el componente ClientSocket1
Bueno como no dejo de ser novato pues tengo un problema que no veo como arreglarlo y a lo mejor me he opcecado y no lo veo.
Es un form que lo estoy mirando por programacion y en concreto con un componente no visual el TClientSocket. Me da error al compilar Si inclullo el componente visualmente en el form y no defino la variable en la seccion private, entonces me funciona bien. Pero si quito el componente ClientSocket de form1 y lo defino en la seccion private ClientSocket1: TClientSocket; entonces me da un error al compilar. seguro que hago algo mal. Me podeis decir que es. Muchas gracias. Este es el form1
|
#2
|
|||
|
|||
Si no lo pones como componente, que se crea automaticamente al crear el form, deberás crearlo antes de nada.
En el FormCreate antes de nada: ClientSocket1 := TClientSocket.Create(Self); Y para mayor seguridad en el FormClose: ClientSocket1.Free;
__________________
SIN FIRMA :P |
#3
|
|||
|
|||
Ha sido un exito
Perfecto me funciona bien.
Muchas gracias Como estoy aprendiendo y buscando cosas, y experimentando. ¿Se podria pasar el codigo del boton a una funcion?
|
#4
|
||||
|
||||
Hola,
Cita:
|
#5
|
|||
|
|||
Tiene que responder un texto
Como ves he caido de nuevo en delphi.
El el primer hilo tengo lo que devuelve que es esto Pero lo logico es que lo devuelva como dices en el ReciveText en un EditText. Intentare lo que dices pero al hacer la funcion me dice que el componente ClientSocket1 no esta definido y sin embargo en el apartado private lo tengo definido. Volvere a dejarlo de nuevo y seguir con lo que estaba haciendo hasta que coja nivel. |
#6
|
||||
|
||||
Lo mas apropiado para eso es utilizar un procedimiento en vez de una funcion.
Lo declaras en la seccion private procedure PeticionWeb; y en implementation Lo podes mejorar para que en vez de que siempre realice la peticion de la misma pagina, que se le pasen los parametros de la web que se quiere llamar. Espero que te haya servido... Edicion: Declara la funcion de la misma forma que declaro este procedimiento y te va a reconocer el ClientSocket1. Última edición por Sotrono fecha: 11-09-2005 a las 16:34:58. |
#7
|
|||
|
|||
Con el procedure he resuelto en problema
Bien pues eso, que con el procedure he resuelto el problema y he modificado el codigo para ver varias web con un edit1.text
Pero tengo que pulsar dos veces con el raton el en boton La primera no aparece nada y la segunda vez si Lo he intentado haciendo una funcion y no reconoces el ClientSocket1 Bueno muchas gracias y poco a poco creo que lo ire sacando. Supongo. Aunque con vuestra ayuda tambien voy aprendiendo y bastante. La siguiente fase sera evitar tener que pulsar 2 veces el raton y si lo consigo intentare que el resultado en vez de darlo en un memo me lo de en un EditText. |
#8
|
||||
|
||||
Hola,
Antuan, echando un vistazo a la ayuda de "TClientSocket" y temas relacionados me doy cuenta de lo poco que sé de ellos. Quiero decir que hacer la función, como dije arriba, no se ve tan sencillo como acaso di a entender. Se me ocurre una forma de rectificar, y es, ¿qué quieres conseguir exactamente? ¿qué información tratas de lograr? ¿Qué se supone que ha de haber en la propiedad "ReceiveText"? Lo digo por ver si podría lograrse de algún otro modo echarte una mano. |
#9
|
|||
|
|||
Ya lo he consegido y pongo el codigo a disposicion del que lo necesite.
Ya lo he conseguido y pongo el codigo a disposicion del que lo necesite pero dejo que alguien me ayude como siempre para no tener que pulsar el boton 2 veces.
Se trata de sacar todo el codigo de una url incluso las cabeceras. Yo como soy un novato aun no esta del todo depurada pero funciona. es un formulario con dos botones, una labe,l un EditText y um MemoEdit. Este es el codigo
|
#10
|
||||
|
||||
Hey, muchas gracias, justo estaba buscando como manejar los eventos de los objetos creados en tiempo de ejecucion
Con esta linea aprendi. Una cosa, si la funcion PeticionWeb no va a devolver ningun resultado te conviene utilizar un procedimiento. |
|
|
|