6 replies to this topic

[egostar]

Hola

A partir de éste tema he resuelto (gracias a los masters del API ) de manera parcial mi desarrollo.

Ahora viene la parte del programa SERVER, con lo que tengo funciona muy bien cuando se recibe un archivo a la vez, la complicación viene cuando llegan varios archivos de forma simultánea o cuando el programa está "ocupado" procesando otro archivo.

¿Como puedo hacer para recibir todos los archivos de forma simultánea ?

Estoy usando el componente TServerSocket y el código es el siguiente.

delphi

procedure TForm1.ServerSocketAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
  Statusbar1.Panels[0].Text := 'Conectando desde: ' + Socket.RemoteAddress;
  Archivo:= TStringList.Create;
  Data := '';
  Longitud := 0;
end;
 
procedure TForm1.ServerSocketClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Statusbar1.Panels[0].Text := 'No hay cliente conectando';
  Archivo.Free;
end;
 
procedure TForm1.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  ZeroMemory(@Buffer[0], sizeof(Buffer));
  uLen := Socket.ReceiveBuf(Buffer,SizeOf(Buffer));
  if uLen < 0 then
  begin
    uByte := -1;
    Socket.SendBuf(uByte,1);
    memo1.Lines.Add( '' );
    exit;
  end
  else begin
         Data := Data + string(PChar(@Buffer));
         memo1.Lines.add( string(PChar(@Buffer)) );
         if uLen < 1024 then
         begin
           memo1.Lines.Add( DirRec + Cadena );
           Archivo.Text := Data;
           Archivo.SaveToFile( DirRec + cadena );
           uByte := 0;
           Socket.SendBuf(uByte,sizeof(uByte));
         end;
  end;
end;

Como hago para que se generen hilos y evitar los posibles errores.

Saludos y gracias.

[egostar]

Me parece que me aloqué, acabo de hacer una prueba de enviar varios archivos y los recibió correctamente, haré mas pruebas y les comento como va el asunto.

Saludos

[TiammatMX]

Me parece que me aloqué...

El fantasma de "yo pregunto, yo me contesto" ataca de nuevooo 

[egostar]

Me parece que me aloqué...

El fantasma de "yo pregunto, yo me contesto" ataca de nuevooo 

Se pega mi estimado, se pega

Saludos

[seoane]

No debería de haber problemas cuando te lleguen varias conexiones a la vez, simplemente esperaran su turno mientras las atiendes una a una. Siempre que no estemos hablando de un a autentica avalancha que desborde los buffers del sistema, pero contra eso poco puedes hacer.

[syed20]

Bueno estoy depurando una aplicacion y mi codigo esta mayormente en delphi asi que encontre unos ejemplos los cuales me sirven en mi caso, si estuviera en C pero lo que no ocurre nose si alguien tiene similares add log como estos:

[genriquez]

Hola

Veo que este hilo es bastante antiguo y no sé si ya lo resolvieron.  pero he aquí mi respuesta por si alguien la llega a necesitar.


en el método 15.procedure TForm1.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket);  se pasa como parámetro un TCustomWinSocket, el cual representa la conexión con un solo cliente,  si existen 10 clientes, se ejecutará 10 veces la misma función pero cada vez con un TCustomWinSocket diferente.

Asi que es fácil crear una instancia de la tarea pasándole la variable Socket : TCustomWinSocket y esta se encargará de atender esa conexión hasta que termine.

Espero sea de ayuda.

Saludos.