FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour servidor dbf (eleben) 2da revision web con php
benjiben143
Posts: 120
Joined: Wed Mar 11, 2009 07:32 PM
servidor dbf (eleben) 2da revision web con php
Posted: Mon Aug 20, 2012 06:32 PM
Hola buenos dias
anexo un modulo de cliente servidor realizado con la clase tsocket

el cual por lo pronto hace la conexion al servidor

regresa las bases de datos
regresa la estructura de una base de datos
regresa el contenido de un archivo (20 registros por lo pronto ) despues genero el pagineo completo

son modulos bases , el cual nos permitiria anexar cualquier peticion del cliente al servidor

se puede meter
cualquier funcion de bases de datos
como
append blank, replace, dbrlock,dbunlock, dbcreate, filtros ect, indexado


modulo servidor
http://www.eleben.com.mx/elebens.prg
modulo cliente
http://www.eleben.com.mx/elebenc.prg

falta validaciones que poco a poco ire metiendo ,, pero con esto nos damos una idea como realizar un servidor dbf

pasos :
1- ejecutar el servidor (elebens.prg) en cualquier carpeta que contenga dbf las cuales son las que van a manipular


2.- ejecutar el cliente (elebenc.prg)


saludos
Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
Lautaro
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Re: servidor dbf (eleben) primer revision
Posted: Mon Aug 20, 2012 07:10 PM

Hola benjiben143 ,

Creo que puedes ver el hbnetio de harbour que implementa esta funcionalidad, creo que completa, te puede servir para ejemplo o ver como hacer

Saludos,

Lautaro Moreira

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.
benjiben143
Posts: 120
Joined: Wed Mar 11, 2009 07:32 PM
Re: servidor dbf (eleben) primer revision
Posted: Mon Aug 20, 2012 10:36 PM

ok,gracias le hecho un vistaso

saludos

Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: servidor dbf (eleben) primer revision
Posted: Tue Aug 21, 2012 04:21 PM

ben10,

Excelente aporte.

William, Morales

Saludos



m茅xico.sureste
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: servidor dbf (eleben) primer revision
Posted: Wed Aug 22, 2012 08:21 AM

Hola,

S脫LO por si puede servir la info:

En Harbour existen Rdds Cliente-Servidor:
- LetoDb
- Pritpal Bedhi Cliente-Servidor (desconozco el nombre del rdd), basado en hbNetio, que al parecer dej贸 muy avanzado pero por al parecer por falta de inter茅s de los colegas abandon贸 su desarrollo. Creo que este es una muy buena opcion porque permite heredar de cualquier Rdd ya existente en Harbour, en intuyo que su potencia, si se probara y terminara ser铆a mayor que la de LetoDb.

Saludos

benjiben143
Posts: 120
Joined: Wed Mar 11, 2009 07:32 PM
Re: servidor dbf (eleben) primer revision
Posted: Wed Aug 22, 2012 02:27 PM

hola buenas buenas

de antemano este peque帽o avanze me sirvio en una empresa donde lo estan probando y estan contentos con la presentacion de la informacion por internet si usar sql, mysql y mucho mas rapido los browse en la red local ( aqui mando una lista de 20 registro , en donde lo estan probando manda todo el archivo empaquetado el cliente lo recibe y se procesa localmente la informacion )

a si mismo un reporte de x base de datos por x filtro tambien esta implementado

la ventaja de esto para mi , que viene como crear el servidor como mandar la peticion y recibir la peticion procesarla y mandarla a cliente

se que es el primer paso pero las peticiones las hice en un ratito donde batalle fue por la clase tsocket para el envio de la informacion pero haciendo pruebas quedo muy bien asta podemos mandar archivos completos zip o de grandes cantidades (ya probado )

saludos ,,,

Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: servidor dbf (eleben) primer revision
Posted: Wed Aug 22, 2012 03:08 PM

benjiben143,

Amigo, los comentarios de los colegas son para que veas otras opciones, claro esta que tu avance es mucho muy importante, y desde luego, lo que vale es el esfuerzo que cada quien imprime a sus logros.

Colegas, lo que hizo Ben10 no es buscarle la vuelta a la rueda, sino es algo que gener贸 en base a una necesidad propia, hay que aplaudir su entusiasmo y sobre todo dedicaci贸n.

Pero de sobre manera su entusiasmo por aportarlo a la comunidad, habemos muchos que solo somos espectadores y que estos aportes nos sirven de mucho...

Y los que conoces otras herramientas deben exponerlo de igual manera, asi no se le busca la vuelta a la rueda....

William, Morales

Saludos



m茅xico.sureste
benjiben143
Posts: 120
Joined: Wed Mar 11, 2009 07:32 PM
Re: servidor dbf (eleben) primer revision
Posted: Fri Aug 24, 2012 04:16 PM
hola buenas buenas ...

ya que actualizada con el browse ya listo con
avanze de pagina
regreso de pagina
inicio de pagina
final de pagina




el cliente
http://www.eleben.com.mx/elebenc.prg

el servidor
http://www.eleben.com.mx/elebens.prg/



saludos ...
Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
benjiben143
Posts: 120
Joined: Wed Mar 11, 2009 07:32 PM
Re: servidor dbf (eleben) primer revision
Posted: Mon Aug 27, 2012 08:29 PM
hola ,,, con una peque帽a adecuacion en la clase tsocket , al momento de mandar los mensajes ya es multiusuario

modificacion en clase tsocket,,, en el metodo senddata ,,,, le mando el socket ya que con el anterior no mandaba el socket adecuado de la peticion
Code (fw): Select all Collapse
 
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


por lo consiguiente el servidor elebens,, ya trabaja en modo multiusuario

servidor
http://www.eleben.com.mx/elebens.prg
cliente
http://www.eleben.com.mx/elebenc.prg


saludos
Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: servidor dbf (eleben) primer revision
Posted: Tue Aug 28, 2012 03:01 AM

Coincido con el amigo, Willy, es bueno tener mas opciones
total, "Programar siempre sera un placer".

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
benjiben143
Posts: 120
Joined: Wed Mar 11, 2009 07:32 PM
Re: servidor dbf (eleben) 2da revision web con php
Posted: Wed Sep 05, 2012 06:28 PM
hola
le agregue conexcion con php

lo que hace es mostar via web las bases de datos del servidor con php sockets

que nos quiere decir que podemos mandar lo que queramos de las base de datos ,,,,


lo pueden bajar
http://www.eleben.com.mx/elebens.prg
http://www.eleben.com.mx/elebenc.prg
http://www.eleben.com.mx/sphp.php

archivo sphp.php
Code (fw): Select all Collapse
/* 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";
?>
Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions