forum.clarionlife.net

Код: Выделить всё

SSLClass.GetMachineIpAddress    PROCEDURE(STRING host)!,STRING
lMachineName                    CSTRING(101)
lIPAddress                      CSTRING(101)
llpHostBuf                      LONG
lPtr5                           LONG
lStrPtr                         LONG
lIPAddr                         LONG
  CODE
  lMachineName = host
  IF LEN(CLIP(lMachineName)) > 0
     llpHostBuf = GetHostByName(ADDRESS(lMachineName))
     IF llpHostBuf <> 0
        Memcpy(ADDRESS(lPtr5),llpHostBuf+12,4)
        IF lPtr5 <> 0
           Memcpy(ADDRESS(lStrPtr),lPtr5,4)
           IF lStrPtr <> 0
              Memcpy(ADDRESS(lIPAddr),lStrPtr,4)
              lStrPtr = WS_INet_NToA(lIPAddr)
              MESSAGE(lIPAddr,1)
              IF lStrPtr <> 0
                 Err# = LStrCpy(ADDRESS(lIPAddress),lStrPtr)
              END
           END
        END
     END
  END
  RETURN CLIP(lIPAddress)

Код: Выделить всё

    MODULE('')
      memcpy(long lpDest, long lpSource, long nCount),long,proc,name('_memcpy')
    END

Код: Выделить всё

SSLClass                CLASS,TYPE
...
GetMachineIpAddress       PROCEDURE(STRING host),STRING
                        END

Код: Выделить всё

        MODULE('WinSSL.DLL')
          SSL_library_init(),LONG,RAW,C,NAME('SSL_library_init')
          SSL_CTX_new(LONG Method),LONG,RAW,C,NAME('SSL_CTX_new')
          SSL_CTX_free(LONG),RAW,C,NAME('SSL_CTX_free')
          SSLv23_client_method(),LONG,RAW,C,NAME('SSLv23_client_method')
          SSL_new(LONG),LONG,RAW,C,NAME('SSL_new')
          SSL_free(LONG SSL),RAW,C,NAME('SSL_free')
          SSL_shutdown(LONG SSL),RAW,C,NAME('SSL_shutdown')
          SSL_set_fd(LONG SSL, LONG Sock),LONG,RAW,C,NAME('SSL_set_fd')
          SSL_connect(LONG SSL),LONG,RAW,C,NAME('SSL_connect')
          SSL_write(LONG SSL, LONG Buffer, LONG BufferSize),LONG,RAW,C,NAME('SSL_write')
          SSL_read(LONG SSL, LONG Buffer, LONG BufferSize),LONG,RAW,C,NAME('SSL_read')
          SSL_get_error(LONG SSL, LONG ret),LONG,RAW,C,NAME('SSL_get_error')
         END