WSL环境下OCaml调用Graphics.open_graph报错Cannot open display如何解决

OCaml的Graphics模块依赖X11显示服务，WSL默认没有内置图形服务，需要借助Windows端的X服务器转发显示，你遇到的报错本质是DISPLAY变量指向的显示服务不存在或者不可访问，按以下步骤配置即可解决：

步骤1：安装并启动Windows端X服务器 #

• 直接搜索下载VcXsrv安装，全程默认选项即可
• 启动VcXsrv时，一路下一步到「Extra settings」页面，勾选 Disable access control 选项，完成启动
• Windows防火墙弹出访问提示时，同时勾选允许「专用网络」和「公用网络」访问，确认放行

步骤2：配置WSL端DISPLAY环境变量 #

首先先确认你的WSL版本，在Windows PowerShell中执行：
wsl --list --verbose
根据版本选择对应配置：

若为WSL1 #

在WSL终端执行以下命令临时生效：
export DISPLAY=:0
如需永久生效，将上述命令追加到~/.bashrc（使用Bash）或~/.zshrc（使用Zsh）文件末尾，之后执行source ~/.bashrc（对应你的shell配置文件）即可立即生效。

若为WSL2 #

WSL2采用独立虚拟机网络，需要指向Windows宿主机的IP，执行以下命令临时生效：
export DISPLAY=$(cat /etc/resolv.conf | grep nameserver | awk '{print $2}'):0
同样如需永久生效，将命令追加到对应shell配置文件末尾，执行source命令生效。

步骤3：验证配置 #

配置完成后先执行echo $DISPLAY确认变量正常输出，再运行你的测试代码：

#use "topfind";;
#require "graphics";;
Graphics.open_graph "";;

正常情况下会弹出空白的Graphics图形窗口，报错即可解决。

注意事项 #

• 每次运行带图形的OCaml代码前，需要先启动Windows端的VcXsrv
• 如果仍报错，优先检查VcXsrv是否勾选了Disable access control，以及防火墙是否正确放行VcXsrv的网络请求

内容的提问来源于stack exchange，提问作者Vatinas