СОКЕТЫ

Сокет - инструмент позволяющий организовать сетевое взаимодействие приложений типа "точка-точка". В ABL существует два типа сокетов: Server Socket и Client Socket. Server Socket выполняет роль коммутатора, а Client Socket - роль оконечного оборудования связи.

SERVER SOCKET

SERVER SOCKET - Слушает TCP/IP порт обрабатывая клиентские подключения.

CREATE SERVER-SOCKET handle [NO-ERROR].

где, handle - переменная HANDLE типа, в которою будет записан handle создаваемого сервер-сокета.

АТРИБУТЫ:

МЕТОДЫ:

ENABLE-CONNECTIONS(connection-parms) - осуществляет запуск сервера с указанными параметрами. Результатом является логическое значение, отражающее успешность или не успешность запуска сервера.

• connection-parms  - Строка параметров подключения:

DISABLE-CONNECTIONS() - прекращает прием запросов сервером. Возвращает логическое значение TRUE в случае успешной остановки сервера.

SET-CONNECT-PROCEDURE(event-internal-procedure [,procedure-context]) - определяет процедуру обработки клиентских запросов, т.е. процедуру вызываемую по событию подключения очередного клиента. Данная процедура должна обладать одним входным параметром типа handle. При вызове метода данной процедуре будет передан handle сокета.

• event-internal-procedure - текстовое значение имени процедуры.
• procedure-context - параметры передаваемые процедуре.
  

SOCKET

SOCKET - осуществляет непосредственный обмен сообщениями с подключившимся клиентом.

АТРИБУТЫ:

МЕТОДЫ:

CONNECT([connect-parms]) - устанавливает соединение. Метод возвращает значение типа LOGICAL отражающее успешность (TRUE) или не успешность (FALSE) установки соединения.

connect-parms - параметры соединения:

CONNECTED( ) - метод возвращает логическое значение состояния подключения.

DISCONNECT( ) - осуществляет отключение сокета. Метод возвращает логическое значение отражающее успешность выполнения отключения.

SET-SOCKET-OPTION(name, arguments) - устанавливает значение параметров (опций) сокета:

GET-SOCKET-OPTION(name) - метод возвращает значение указанного параметра name cокета.  

SET-READ-RESPONSE-PROCEDURE(procedure, procedure-context) - определяет процедуру обрабатывающую событие запрос-ответ.

• procedure - имя процедуры;
• procedure-context - handle процедуры содержащей procedure . По умолчанию THIS-PROCEDURE.
  

GET-BYTES-AVAILABLE( ) Метод возвращает число байт доступных для чтения с сокета, INTEGER типа.

READ(buffer, position, bytes-to-read [, mode]) Чтение полученных сокетом данных. Метод возвращает логическое значение (тип LOGICAL), отражающее успешность выполнения чтения данных.

• buffer - MEMPTR значение, определяющее, где должны быть размещены полученные данные;
• position - порядковый номер байта (значение должно быть больше нуля), начиная с которого будет осуществляться запись в buffer, тип INTEGER;
• bytes-to-read - количество байт которое будет прочитано из сокета, тип INTEGER;
• mode - определяет режим чтения данных, тип INTEGER.
  

WRITE(buffer, position, bytes-to-write)

• buffer - MEMPTR значение, определяющее буфер данных для записи в сокет;
• position - целочисленное значение типа INTEGER большее 0, указывающее позицию стартового байта в буфере buffer, данные которого должны быть записаны в сокет;
• bytes-to-write - количество байт данных, которые должны быть записаны из буфера в сокет.

 
ПРИМЕР РАБОТЫ С SOCKET

SERVER SOCKET

DEF VAR vOk AS LOGICAL NO-UNDO. /* успешность запуска сервера */

/* Создание server socket */
CREATE SERVER-SOCKET hServSocket NO-ERROR.

/* Запуск server socket */
DEF VAR aOk AS LOGICAL NO-UNDO.
vOk = hServSocket:ENABLE-CONNECTIONS("-S 4080").

IF NOT vOk THEN RETURN.

/* Определение процедуры метода CONNECT */
hServSocket:SET-CONNECT-PROCEDURE("connect-proc").

DO ON STOP UNDO, LEAVE:
   WAIT-FOR CLOSE OF THIS-PROCEDURE.
END.

hServerSocket:DISABLE-CONNECTIONS().
DELETE OBJECT hServerSocket.

/* Процедура метода CONNECT */
PROCEDURE connect-proc:
  DEF INPUT PARAMETER hSocket AS HANDLE.    /* socket handle            */
  IF VALID-HANDLE(hSocket) THEN
  DO:
     hSocket:SET-READ-RESPONSE-PROCEDURE("read-handler", THIS-PROCEDURE).
  END.
END PROCEDURE. 

/* Процедура обработки запросов */
PROCEDURE read-handler:
   DEF VAR mBuffer   AS MEMPTR   NO-UNDO.
   DEF VAR vLenReq   AS INT64    NO-UNDO.
   DEF VAR vLenResp  AS INT64    NO-UNDO.
   DEF VAR vHost     AS CHAR     NO-UNDO.   /* с какого хоста запрос    */
   DEF VAR vRequest  AS LONGCHAR NO-UNDO.   /* Запрос                   */
   DEF VAR vResponce AS LONGCHAR NO-UNDO.   /* Ответ                    */
  
   /********************** ЗАПРОС ************************/
   vHost   = hSocket:REMOTE-HOST.           /* с какого хоста запрос    */
   vLenReq = hSocket:GET-BYTES-AVAILABLE(). /* размер входящего запроса */

   IF vLenReq > 0 THEN
   DO:
      /* читаем запрос в буфер */
      SET-SIZE(mBuffer) = vLenReq.
      hSocket:READ(mBuffer, 1, vLenReq, 1). 
      COPY-LOB mBuffer FOR vLenReq TO vRequest.
  
      /* освобождаем буфер */
      SET-SIZE(mBuffer) = 0.
   
      /************************* ОТВЕТ **********************/
      vResponce = "Привет " + vRequest.
      vLenResp  = LENGTH(vResponce).
   
      IF vLenResp > 0 THEN
      DO:
         SET-SIZE(mBuffer) = vLenResp.
         COPY-LOB vResponce FOR vLenResp TO mBuffer.
   
         /* непосредственно ответ */
         hSocket:WRITE(mBuffer,1,vLenResp)).
   
         /* освобождаем буфера */
         SET-SIZE(mBuffer) = 0.
      END.
   END.

   hSocket:DISCONNECT().
   DELETE OBJECT hSocket.

END PROCEDURE.