如何在 SWI Prolog 中向 tcp 套接字发出请求并处理响应？

问题描述

我想处理建立到 MongoDB 服务器的连接，它已经可以正常工作了。现在我想通过我建立的套接字发送和接收请求，但我不知道如何。

这是我目前的代码：

:- module(_,[
    new_connection/3,new_socket/3,host/1,port/1 ]).

host(localhost). port(27017).

new_connection(Host,Port,Connection) :-
    new_socket(Host,Socket),Connection = connection(Socket).

new_socket(Host,Socket) :-
        socket:tcp_socket(SocketId),socket:tcp_connect(SocketId,Host:Port),socket:tcp_open_socket(SocketId,StreamPair).

回复：

new_connection(localhost,27017,Connection).
Connection = connection(socket(<stream>(0000013B7C59CEF0),<stream>(0000013B7C59D000))).

套接字已打开，我得到了响应，但是如何发出请求并处理套接字的下一个响应？

（编辑：我知道已经存在了longgeo，但是自从几天以来我只是想运行它，但是由于它已经有10年历史了，代码的某些部分似乎已被弃用，所以我从头开始尝试。）

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

prolog sockets swi-prolog