Pero...que raro, el rendimiento de la red cambia

[javier7ar]

me paso algo parecido con unos componentes que eran pagos, que mientras ejecutabas desde delphi andaba todo perfecto, pero cuando lo lleve a la maquina del cliente aparecian unos carteles de "DEMO" y me ponia un par de limitaciones. El componente no tenia nada que ver con la red, pero se me ocurre que si usas algun componente extra para hacer tus conexiones por ahi te este pasando algo similar. Es un pensamiento en el aire nomas.
Saludos

[cesarsoftware]

Que va, los componentes son los indy (uso Delphi 10), por el puerto serie van "a toda mecha" (uso esas librerias pcomm desde hace al menos 10 años).
Pero es que ahora e visto que me pasa en otros programas que tengo hechos para la industria. Juraria que con Delphi 7 esto no pasaba.

A ver si a alguien se le ocurre algo mas.

Thanks

[CSIE]

Empezado por javier7ar

me paso algo parecido con unos componentes que eran pagos, que mientras ejecutabas desde delphi andaba todo perfecto, pero cuando lo lleve a la maquina del cliente aparecian unos carteles de "DEMO" y me ponia un par de limitaciones. El componente no tenia nada que ver con la red, pero se me ocurre que si usas algun componente extra para hacer tus conexiones por ahi te este pasando algo similar. Es un pensamiento en el aire nomas.
Saludos

Yo estoy con javier. Por lo que he visto la librería pcomm que usas depende de una dll, y además solo tendrás el archivo dcu (¿Es asi?). Deduzco que la versión que tenías para Delphi 7 no era shareware, pero amigo, la que usas con Delphi 2010 (no creo que la misma te sirviera)... seguro que si es shareware, apuesto 1$.

[cesarsoftware]

Gracias por vuestras respuestas, pero a lo mejor no me he explicado bien.
La libreria Pcomm (puerto serie) funciona siempre a la velocidad correcta, no tengo problemas con ella, esta incluida en la unidad publicada porque esta diseñada para enviar/recibir tanto por puerto serie como por ethernet por eso veo las diferencias de rendimiento.
El problema esta en ethernet y los componentes que usa son los Indy, que si vienen con Delphi.

.... Pero ..... ya se donde esta el problema
Estos dias he modificado el codigo para usar sockets (via WinSock) y ahora se donde se acelera/desacelera el rendimiento de la red.
El problema, si se le puede llamar asi, esta en la funcion

Código Delphi [-]
ioctlsocket(nSocket, FIONREAD , &InBuffer);

que comprueba si el buffer tiene algo para leer o no. Con el compilador abierto o el nigthtly activo esta funcion retorna inmediatamente e indica en "&InBuffer" cuantos bytes ahi para leer, 0 para ninguno u otro valor si ahi algo, entonces se llama a la funcion de lectura

Código Delphi [-]
rxLen := recv(nSocket, rxBuffer, InBuffer, 0);

para leer el contenido del buffer en "rxBuffer".

Lo que pasa es que si el compilador esta cerrado (y por tanto sus librerias) entonces se usan las de windows (o eso creo yo), en concreto esta funcion usa "Ws2_32.dll"
Y parece ser que esta libreria en su funcion ioctlsocket no devuelve nada y espera a que tenga algo en el buffer para retornar y de ahi su lentitud o no entiendo muy bien lo que pasa con esa funcion pues si se la quito y solo uso "recv" siempre va lento.

Este es el codigo completo para la lectura

Código Delphi [-]
function TClienteSocket.Recibe(): integer;
var
  InBuffer: integer;
begin
  if ioctlsocket(nSocket, FIONREAD , &InBuffer) = SOCKET_ERROR then
  begin
    Result := 0;
    Exit;
  end;
  if InBuffer < 1 then
  begin
    Result := 0;
    Exit;
  end;
  rxLen := recv(nSocket, rxBuffer, InBuffer, 0);
  if rxLen = SOCKET_ERROR then
  begin
    Result := 0;
    Exit;
  end;
  Result := rxLen;
end;

Lo que ahora no se es como solucionarlo si consiguiendo otra ws2_32.dl o se os ocurre algo.

Gracias.