Club Builder

[Trankoss]

hola

El codigo con el cual envio un objeto mediante SendBuf:

Aki envio un objeto:

bool __fastcall TForm1::MiFuncion(TObject *Send)
{
TPanel *panel;
panel=(TPanel*)Send;

if(FormInternet->Internet)
{
if(!FormInternet->Servidor)
FormInternet->ClientSocket1->Socket->SendBuf(panel,1024);

.
.
.
Aki recojo el objeto:

void __fastcall TFormInternet::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{

TPanel *panel;

int bytes=Socket->ReceiveLength();
int entra=Socket->ReceiveBuf(&panel,bytes);
if(entra!=-1)
Form1->movimiento(panel);
}

Problema: Cuando no se envia ningun byte, sendbuf devuelve -1. La variable "entra" vale -1, por que? cual es el problema?

Saludos.

[TOÑO]

HOLA:

ReceiveBuf returns the number of bytes actually read. If no bytes are read, ReceiveBuf returns –1.

Creo que deberias de poner.

int bytes=Socket->ReceiveLength();
if(bytes >0 )
{
int entra=Socket->ReceiveBuf (&panel,bytes);
Form1->movimiento(panel);
}

By.

[Trankoss]

Este no es el problema. Ya que es lo mismo. y ademas tambien compruebo los bytes =)

Gracias de todas maneras

Saludossss

[MARCELO]

TODOS LAS PERSONAS QUE TENGAN ESTE PROBLEMA CONTACTENME A MIS CORREOS

cfuentes@odepa.gob.cl
marcelo.flores@chile.com

----------------------------------------------------------------

Trankoss
Necesito que me ayudes con respecto al código que publicaste en mayo de 2002. Si puedes contactarme o enviarme más información.

Saludos.

[Ernestx]

He tratado de enviar video con SendBuffer pero no he podido alguien lo ha hecho. Hay otra forma de hacerlo en BCB5 Por favor si alguien tiene un ejemplo o algo que me pueda ayudar le agradecería nucho

Gracias

erroco@univalle.edu.co