#include "Form1.frm"

Procedure main
PUBLIC oTCPCLient
oTCPClient:= TTCPCLient():Create()
oTCPClient:OnError := {| | ProcesaOnErrorTCP()}
oTCPClient:OnConnect := {| | ProcesaOnConnectTCP()}
oTCPClient:OnData := {| | ProcesaOnDataTCP()}
oTCPClient:OnClose := {| | ProcesaOncloseTCP()}
oTCPClient:Host := "www.epiezas.com"
oTCPClient:Port := 110
? "Voy a abrir"
oTCPClient:Open()
? "Voy a cerrar"
oTCPClient:Close()
return

Function ProcesaOnErrorTCP ()
? oTCPClient:LastError
? oTCPClient:SocketState
return


Function ProcesaOnConnectTCP ()
? "CONECTADO"
return

Function ProcesaOnDataTCP ()
Return oSender:Read()

Function ProcesaOnCloseTCP ()
oTCPClient:Close()
Return

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

josu;
En primer lugar el "include Form1.frm" se útiliza para el "IDE" y para el compilador se útiliza el "include Gui.ch".

En segundo ludar la función "Procedure Main", se escribe de la siguiente forma "Procedure Main()"

Espero que una vez corregidos estos dos puntos te funcione bien.

Para más información deberias de tratar de hacerte, con el tutorial de como practicar con C3, titulado "Practicando con C3", en el cual se monta un pequeño programa linea por linea, totalmente operativo y en el cual se abordan muchas de las preguntas que tu haces aqui en el foro.

Recibe un saludo
Fraguibo
[/b]

El programa va bien, se ocmpila y se ejecuta bien. Lo que pasa es que despues del OPen me salta siempre diciendo que tengo un error 10022 y no se como seguir. He mirado el ejemplo de tcpclient y hago lo mismo...creo...

Bruno , Victor, jesus,echadme una mano que estoy parado desde hace unos dias y se me han agotado las ideas y pruebas ...

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Hola de nuevo Josu;

Aqui te adjunto una de las practicas de que consta el tutorial de "Practicando con C3", para que te hagas una pequeña idea de lo que trata.

Un saludo
Fraguibo

Es que estoy buscandolo y en la direccion donde dice que esta no seta realmente y Bruno no la ha puesto en el area de descargas (Bruno!!!! Estaria bien tener esa documentacion a descargar...)

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Josu,

¿Qué documentación?

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

el tutorial "Practicando con C3"

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Josu,
Ese tutorial no es mío es de Francisco, pídeselo a él.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

A mi me devuelve siempre el lasterror 10022 que es invalid argument error...

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Josu, ¿podias explicarnos que es lo que quieres hacer con el codigo que envias? o ¿que crees que deberia de hacer dicho codigo?.

_________________
Un saludo.
Jesús P. Melgar Velasco

Abrir una conexcion socket como hace el ejemplo TCPClient

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Vamos a ver, tengo un form1 con dos botones, uno es"conectar" y el otro "desconectar"


#include "Form1.frm"
#include "gui.ch"


Function ProcesaOnErrorTCP(Param1)
// Funcion que procesa en caso de error de TCPClient
? oTCPClient:LastError
? oTCPClient:SocketState
? Param1
return NIL


Function ProcesaOnConnectTCP(Param1)
// Funcion que procesa el connect del socket
? "CONECTADO"
return NIL

Function ProcesaOnDataTCP(Param1)
// Fncion que devuelve lo leido en el socket
Return oTCPCLient:Read()

Function ProcesaOnCloseTCP(Param1)
// Funcion que se ejecuta cuando se cierra el socket
oTCPClient:Close()
Return NIL

/*
* Evento OnClick.
*/
METHOD ConectarOnClick( oSender ) CLASS TForm1
oTCPClient:Open()
return
/*
* Evento OnClick.
*/
METHOD DesconectarOnClick( oSender ) CLASS TForm1
oTCPClient:Close()
return

/*
* Evento OnCreate.
*/
METHOD Form1OnShow( oSender ) CLASS TForm1
// Al mostrar el form, creo el objeto oTCPClient dependiente de Form1, cargo los Blocks de Onerror,Onconnect Ondata y Onclose y abro el socket,. abro el socket y cierro. Si al abrir hay error se lanza onerror sino hay erroor se debe lanzar onconnect...
oTCPClient:= TTCPCLient():Create(Form1)
oTCPClient:OnError := { || ProcesaOnErrorTCP() }
oTCPClient:OnConnect := { || ProcesaOnConnectTCP()}
oTCPClient:OnData := { || ProcesaOnDataTCP() }
oTCPClient:OnClose := { || ProcesaOncloseTCP() }
oTCPClient:Host := "www.epiezas.com"
oTCPClient:Port := 110
? "Voy a abrir"
? oTCPClient:Host
? oTCPCLient:Port
oTCPClient:Open()
? "Voy a cerrar"
oTCPClient:Close()
? oTCPClient:Host
? oTCPCLient:Port
Return

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

WSAEINVAL
10022
Invalid argument.
Some invalid argument was supplied (for example, specifying an invalid level to the setsockopt function). In some instances, it also refers to the current state of the socket???for instance, calling accept on a socket that is not listening.

Como vereis es un poco dificil saber que se hace mal en mi ejemplo con esta breve descripcion...

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006

Josu,

Está bien claro, intentas abrir una conexión al puerto 110 y no hay ningún servicio activo en él.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

te aseguro que mi servidor de correo esta activo y esperando...

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006