Difference between revisions of "Networking/es"
m |
|||
| Line 1: | Line 1: | ||
{{Networking}} | {{Networking}} | ||
= Trabajando en RED = | = Trabajando en RED = | ||
| − | [[category:Castellano| | + | [[category:Castellano|R]][[category:Español|R]] |
Esta página será el comienzo para las tutorias sobre la programación para red con Lazarus. No soy un experto en la programación para redes y agregaré al artículo todo lo queaprendo sobre esta cuestión. Invito a otros a que ayuden a crear artículos sobre trabajo en redes. Agregue un enlace en la sección siguiente, agregue una página y cree su propio artículo de WiKi. En esta página se dará información de carácter general . | Esta página será el comienzo para las tutorias sobre la programación para red con Lazarus. No soy un experto en la programación para redes y agregaré al artículo todo lo queaprendo sobre esta cuestión. Invito a otros a que ayuden a crear artículos sobre trabajo en redes. Agregue un enlace en la sección siguiente, agregue una página y cree su propio artículo de WiKi. En esta página se dará información de carácter general . | ||
Revision as of 00:29, 10 September 2009
│
Deutsch (de) │
English (en) │
español (es) │
français (fr) │
日本語 (ja) │
한국어 (ko) │
polski (pl) │
português (pt) │
русский (ru) │
slovenčina (sk) │
中文（中国大陆） (zh_CN) │
Trabajando en RED
Esta página será el comienzo para las tutorias sobre la programación para red con Lazarus. No soy un experto en la programación para redes y agregaré al artículo todo lo queaprendo sobre esta cuestión. Invito a otros a que ayuden a crear artículos sobre trabajo en redes. Agregue un enlace en la sección siguiente, agregue una página y cree su propio artículo de WiKi. En esta página se dará información de carácter general .
Otras tutorías sobre trabajo en redes
- Programación segura
- Componentes sobre TCP/IP Sockets
- lNet - Componentes ligeros para trabajo en red
- [[XML Tutorial]|Tutoría XML] - XML se utiliza a menudo en comunicaciones en la red
- FPC y módulos Apache
Protocolo TCP/IP
Ejemplo de Servidor Web
El código que sigue es un ejemplo de servidor http escrito con Synapse y probado en Mac OS X, después de cambiar los fuentes de Synapse para utilizar una constante fija $20000 como MSG_NOSIGNAL, porque esta constante no estaba presente en la undidas 'Sockets' para Mac OS X.
<delphi> {
The Micro Pascal WebServer
This is a very simple example webserver implemented with the Synapse library.
It works with blocking sockets and a single thread, so it can only handle one request at a given time.
It will write the headers that it receives from the browser to the standard output.
It serves a fixed webpage for the / URI For any other URI it will return 504 not found
} program upserver;
{$ifdef fpc}
{$mode delphi}
{$endif}
{$apptype console}
uses
Classes, blcksock, sockets, Synautil, SysUtils;
{@@
Attends a connection. Reads the headers and gives an appropriate response
} procedure AttendConnection(ASocket: TTCPBlockSocket); var
timeout: integer; s: string; method, uri, protocol: string; OutputDataString: string; ResultCode: integer;
begin
timeout := 120000;
WriteLn('Received headers+document from browser:');
//read request line s := ASocket.RecvString(timeout); WriteLn(s); method := fetch(s, ' '); uri := fetch(s, ' '); protocol := fetch(s, ' ');
//read request headers repeat s := ASocket.RecvString(Timeout); WriteLn(s); until s = ;
// Now write the document to the output stream
if uri = '/' then
begin
// Write the output document to the stream
OutputDataString :=
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"'
+ ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + CRLF
+ '<html>
Teste
</html>' + CRLF;
// Write the headers back to the client
ASocket.SendString('HTTP/1.0 200' + CRLF);
ASocket.SendString('Content-type: Text/Html' + CRLF);
ASocket.SendString('Content-length: ' + IntTostr(Length(OutputDataString)) + CRLF);
ASocket.SendString('Connection: close' + CRLF);
ASocket.SendString('Date: ' + Rfc822DateTime(now) + CRLF);
ASocket.SendString('Server: Servidor do Felipe usando Synapse' + CRLF);
ASocket.SendString( + CRLF);
// if ASocket.lasterror <> 0 then HandleError;
// Write the document back to the browser
ASocket.SendString(OutputDataString);
end
else
ASocket.SendString('HTTP/1.0 504' + CRLF);
end;
var
ListenerSocket, ConnectionSocket: TTCPBlockSocket;
begin
ListenerSocket := TTCPBlockSocket.Create; ConnectionSocket := TTCPBlockSocket.Create;
ListenerSocket.CreateSocket;
ListenerSocket.setLinger(true,10);
ListenerSocket.bind('0.0.0.0','1500');
ListenerSocket.listen;
repeat
if ListenerSocket.canread(1000) then
begin
ConnectionSocket.Socket := ListenerSocket.accept;
WriteLn('Attending Connection. Error code (0=Success): ', ConnectionSocket.lasterror);
AttendConnection(ConnectionSocket);
end;
until false;
ListenerSocket.Free; ConnectionSocket.Free;
end. </delphi>
Servicos web (WebServices)
Según el W3C un servicio web es un sistema software diseñado para dar soporte a la operación interactiva entre máquinas a través de una red. Cuenta con un interfaz que está descrito en un formato procesable por una máquina que es WSDL. Otros sistemas interactuan con el servicio web de la forma descrita en la interfaz utilizando mensajes, que irán dentro de sobres SOAP, o siguiendo un acercamiento REST. Los mensajes se transportan típicamente usando HTTP, y se componen normalmente de XML junto con otros estándares web relacionados. Aplicaciones informáticas escritas en distintos lenguajes de programación y funcionando en plataformas diversas pueden utilizar servicios web para intercambiar datos sobre las redes de ordenadores, como Internet ,de una forma similar a la comunicación entre procesos sobre un único ordenador. Esta interoperabilidad (v.g., entre aplicaciones Windows y Linux) es posible debido al uso de estándares abiertos. OASIS y W3C son los comités más importantes responsables de la arquitectura y de la estandardización de los servicios de red. Para mejorar la interoperabilidad entre las implementaciones de servicios de red, la organización WS-I está desarrollando una serie de perfiles para definir mejor los estándares implicados.
Web Service Toolkit for FPC & Lazarus
Web Service Toolkit es un paquete de herramientas para servicios web para FPC y Lazarus.
