FiveTech Software tech support forums

Code: Select all

 
claseMETHOD SendData( cData, Msoc ) CLASS TSocket

   local nSize := Len( cData )
   local nLen  := nSize
   local nSent := 0

   if ! ::lSending
      ::lSending = .t.
   else
      AAdd( ::aBuffer, cData )
      return nSize
   endif
    while ( nLen > 0 .and. ;
           ( nSent := SocketSend( msoc, cData ) ) < nLen ) .or. ;        //-> aqui el agregue mosc,,,   quitandole ::nsocket  ya que ::nsocket no guardaba el ultimo socket 
           Len( ::aBuffer ) > 0
      if ::lDebug .and. ! Empty( ::cLogFile )
         LogFile( ::cLogFile, { "Sent:", nSent, "Len:", Len( cData ), "Buffer Len:", Len( ::aBuffer ), "Error:", WSAGetLastError() } )
      endif
      // Check for buffered packets to send
      if nLen == 0 .and. Len( ::aBuffer ) > 0
         cData = ::aBuffer[ 1 ]
         ADel( ::aBuffer, 1 )
         ASize( ::aBuffer, Len( ::aBuffer ) - 1 )
      endif
      if nSent != -1
         cData = SubStr( cData, nSent + 1 )
         nLen  = Len( cData )
      else
         if WSAGetLastError() != WSAEWOULDBLOCK
            // exit
         endif
      endif
      SysRefresh()
   end

   // if ::lDebug .and. ! Empty( ::cLogFile )
   //    LogFile( ::cLogFile, { cData } )
   // endif

   ::lSending = .f.

return nSize
 

Code: Select all

/* Obtener el puerto para el servicio WWW. */
$service_port = 3850;

/* Obtener la dirección IP para el host objetivo. */
$address = gethostbyname('192.168.7.5');

/* Crear un socket TCP/IP. */
$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
if ($socket === false) {
    echo "socket_create() falló: razón: " . socket_strerror(socket_last_error()) . "\n";
} else {
    echo "OK.\n";
}

echo "Intentando conectar a '$address' en el puerto '$service_port'...";
$result = socket_connect($socket, $address, $service_port);
if ($result === false) {
    echo "socket_connect() falló.\nRazón: ($result) " . socket_strerror(socket_last_error($socket)) . "\n";
} else {
    echo "OK.\n";
}

$in = "PHP>BASES hola";
$out = '';

echo "Enviando petición EL SERVIDOR ELEEBEN ...";

socket_write($socket, $in, strlen($in));
echo "OK.\n";

echo "Leyendo respuesta:\n\n";
while ($out = socket_read($socket, 4048)) {
    echo $out;
}

echo "Cerrando socket...";
socket_close($socket);
echo "OK.\n\n";
?>