如何在OCAML中读取位图？
在OCAML中读取位图，可以使用Graphics库。首先，需要安装graphics库，可以使用opam进行安装：
opam install graphics然后，在OCAML代码中，可以使用以下代码读取位图：
#load "graphics.cma";;
let img = Graphics.open_graph " 800x600";;
let bitmap = Graphics.read_image "path/to/image.bmp";;
Graphics.draw_image bitmap 0 0;;
Graphics.close_graph();;在这个代码中，Graphics.open_graph函数用于打开一个新的图形窗口，Graphics.read_image函数用于读取位图文件，Graphics.draw_image函数用于将位图绘制到窗口上，Graphics.close_graph函数用于关闭窗口。
需要注意的是，Graphics库并不是OCAML标准库的一部分，因此需要手动安装。此外，Graphics库只支持读取BMP格式的位图文件，如果需要读取其他格式的文件，可以使用第三方库，例如ocaml-stb-image库。
相关·内容
1回答
在Haskell中，我们可以在终端输入多行代码，方法是将其封装在“:{”和“:}”之间。例如，键入
> :{ main = do
> print("Hello") :}
在ghci中，我们可以调用main。我们怎么才能在utop的Ocaml上做到这一点呢？
浏览 6提问于2021-12-16得票数 -1
回答已采纳
1回答
在编译OCaml应用程序时，我得到以下错误：
File "/tmp/ocamlpp466ee0", line 308, characters 34-233:
Error: Signature mismatch:
...
The field `unlock' is required but not provided
The field `lock' is required but not provided
Command exited with code 2.
我的猜测是，错误是通过OCaml库Datalog发布的(我已经从安装了版本
浏览 2提问于2013-10-15得票数 0
回答已采纳
1回答
经过几天的努力，我不得不停止浪费时间，并最终寻求帮助。我在我的iMac上运行小牛。我已经安装了EclipseVersion: Kepler Service Release 1和OcaIDE插件。默认情况下，除了ocamlbuild、omake和Ocamle lib Path之外，我的所有路径都是填写的。所以我在想，我已经做了所有需要做的事情，最终让Ocaml编译我的程序，并得到我在终端中获得的结果。
我创建了一个新的Ocaml托管项目，然后创建了一个扩展名为file.ml的新文件，并键入：
List.fold_left
(fun acc x -> acc + x)
0
[1; 2; 3;
浏览 1提问于2013-10-29得票数 1
4回答
我想使用OCAML读取位图文件(从文件系统)，并将像素(颜色)存储在具有位图第四维的数组中，每个像素将在数组中接受一个单元格。
我找到了函数Graphics.dump_image图像->颜色数组数组，但它不能从文件中读取。
浏览 8提问于2009-03-04得票数 6
我的OCaml .ml代码如下所示：
open Str
let idregex = Str.regexp ['a'-'z' 'A'-'Z']+ ['a'-'z' 'A'-'Z' '0'-'9' '_']*;
let evalT (x,y) = (match x with
Str.regexp "Id(" (idregex as var) ")" -> (x,y)
为什么
浏览 5提问于2014-08-10得票数 5
我正在迁移到最新版本的OCaml (以及Jane Street的核心模块)，但希望我的代码继续使用旧版本进行编译。为此，我想创建一个模块，该模块具有可移植的函数，根据版本的不同映射到旧的或新的接口。查询OCaml版本和Jane Street版本都是可行的。
我们如何在运行时查找编译器或Jane Street的版本？我知道我可以通过构建系统传递ocamlopt --version的输出，但理想情况下，我不应该以一种特殊的方式调用我的程序。
浏览 5提问于2022-02-07得票数 1
回答已采纳
下面的代码在OCaml 3.11中编译得很好：
module type T =
sig
type test
val create : int -> test (* line 44 *)
...
end
...
type test = (string, clause list) Hashtbl.t
let create = Hashtbl.create (* line 332 *)
但是，当我试图用OCaml 4.01编译它时，它会给出以下错误：
Error: Signature mismatch:
...
Values do not matc
浏览 5提问于2014-02-26得票数 1
回答已采纳
在OCaml中，我可以使用Printf.printf输出格式化字符串，如
Printf.printf "Hello %s %d\n" world 123
然而，printf是一种输出。
我想要的不是输出，而是字符串。例如，我想
let s = something "Hello %s %d\n" "world" 123
然后我就能得到s = "Hello World 123"
我怎么能这么做？
浏览 3提问于2013-06-15得票数 14
回答已采纳
3回答
您能告诉我如何在Ocaml中获取用户的输入吗？
它可以在以下链接中找到：
我是Ocaml的初学者，我试图让用户的输入运行
这是代码：
let rec hilo n =
let () = print_string "type a number: " in
let i = read_int ()
in
if i = n then
let () = print_string "BRAVO" in
let () = print_newline ()
in print_
浏览 7提问于2014-02-23得票数 1
回答已采纳
我想知道从OCaml向Python发送数据并从Python向OCaml返回响应的最好方法。
我能想到的一个天真的方法如下。
1)在OCaml中，将数据写入文件系统上的文件(input.txt)。
2)在OCaml中，运行python，打开input.txt，读取数据，并将执行结果写入output.txt
3)在OCaml中，打开output.txt并读取结果
有没有其他简单的方法来完成这类任务？
提前谢谢。
浏览 0提问于2015-01-15得票数 6
在将OCaml 转换为F#的过程中，我发现我需要详细了解初始化过程。对于F#，这在F#规范的小节中进行了解释。虽然页面列出了几个很好的文档，但我找不到任何文档提供与F#规范中相同级别的详细信息。
是否有为OCaml初始化提供相应详细级别的文档？
浏览 0提问于2012-09-18得票数 5
回答已采纳
我在UniMath目录的顶层运行make，并不断返回错误。我正在开发fedora 35，我使用的是Ocaml版本4.11.2。
以下是错误的打印输出
make[2]: Entering directory '/home/rymndbkr/UniMath/sub/coq'
OCAMLBEST -o bin/coqdep_boot
File "_none_", line 1:
Error: tools/coqdep_boot.cmx is not a compilation unit description.
OCAMLBEST -o bin/ocamllibdep
浏览 5提问于2022-01-24得票数 2
我想用ReasonML编写一个简单的程序，从标准输入中获取数据，并逐行处理它。
截至2018年11月，这似乎没有在的“语言基础”或“常见问题”部分中涵盖，并且很难从API文档中理解如何做到这一点。
浏览 0提问于2018-11-09得票数 1
我最近一直在尝试让OCaml工作，而解释器工作得很好，我只是不能用它构建本机可执行文件。这是我的节目：
let () = print_endline "Hello, World!"
现在，如果我运行ocaml program.ml，就会得到Hello, World!的预期输出。但是，如果我运行ocamlbuild program.native，就会得到：
mkdir 'C:\Users\User\_build'
'''C:\Program Files\OCaml\bin/ocamldep.opt' -modules program
浏览 2提问于2016-02-05得票数 2
回答已采纳
嗨，我一直在互联网上检查，以找到一种在OCaml中实现“字符串是否以特定文本结尾”的好方法，我发现在OCaml中操作字符串并不像我预期的那样简单。
下面是我的OCaml代码，它使用Str.regexp检查文件名称是否以".ml“结尾，以查看它是否是OCaml脚本文件。但是，它并不像我预期的那样起作用：
let r = Str.regexp "*\\.ml" in
if (Str.string_match r file 0)
then
let _ = print_endline ("Read file: "^full_path) in
浏览 8提问于2016-06-16得票数 5
回答已采纳
我正在尝试使用js_of_ocaml将带有在线下载源代码的Yojson转换为字节文件。
我尝试以下命令：
%: ocamlfind ocamlc -package yojson -linkpkg -g -o yojson.cmo
%: ocamlfind ocamlc -package js_of_ocaml -package js_of_ocaml-ppx -linkpkg -g -o -package yojson yojson.byte
我试图将一个OCaml文件编译成字节码，但是它会产生以下错误：
%: ocamlfind ocamlc -package js_of_ocam
浏览 16提问于2022-04-28得票数 0
mirage是用OCaml代替C的unix内核的新实现，是真的吗？或者mirage只是Ocaml中unix内核的一部分？
谢谢。
浏览 4提问于2016-12-02得票数 3
我有一个动态的，可点击的ImageView。基本上，一旦用户单击ImageView，s/他就可以添加要显示在视图中的图像。我想找到一种方法，使当前的图像被安置在ImageView中，并将其转换为位图。
到目前为止，这是我的尝试：
Bitmap bitmap = BitmapFactory.decodeResource(getContext().getResources(), (BitmapDrawable)imageView.getDrawable());
但是它给了我一个Wrong 2nd argument type错误，因为它期待一个int。
为了清楚起见，我现在把帖子写得很简短。我可以在
浏览 1提问于2019-02-20得票数 1
回答已采纳
我正在开发一个安卓应用程序，我在其中获取数据，其中包括从数据库中存储为blobs的图像，然后一旦我在应用程序中获得这些数据，我就会将所有这些数据转换为位图，并将数据存储在ArrayList中以供以后使用。当对24个图像执行此操作时，大约需要8秒；如何更快地创建位图。图像的高度各不相同。在for循环中，我将图像字符串转换为字节数组，然后使用BitmapFactory.decodeByteArray。我也使用options.inSampleSize = 4。
浏览 0提问于2016-03-08得票数 0
我已经下载并安装了，我很乐意使用它。
问题是我该如何使用它？
在ocaml中，对于默认字符串，我只执行let s = "a string";;
但是为什么要用Camomile
例如，如果我想构造一个utf8字符串こんにちは (一个日语单词hello，从google复制)，我应该如何使用Camomile？
编辑：
有趣的是，据说ocaml不能支持utf8，但我尝试了下面的代码
let s = "你好";;
let _ = print_string s;print_string "\n";;
它在ocaml起作用了。但是为什么呢？？你好是一个中国
浏览 5提问于2013-04-24得票数 8
回答已采纳
2回答
我安装了opam，运行opam init，运行opam switch 4.06.0在~/.opam中创建了一个4.06.0目录，运行"eval opam confing env“将$OCAML_TOPLEVEL_PATH导出为~/.opam/4.06.0/lib/toplevel等，当启动ocaml时，我得到了可怕的：
$ ocaml
OCaml version 4.06.0
Cannot find file topfind.
Unknown directive `camlp4o'.
#
我看过和，它们都不能解决我的问题，我束手无策(第一次设置OCaml)。
浏览 41提问于2017-11-27得票数 2
是否有可能在OCaml的中重新加载模块
在处理OCaml代码时，我的开发工作流程如下所示：
首先，在Vim中打开一个文件example.ml并对其进行黑客攻击。切换到另一个终端并运行utop。从utop内部加载带有指令#use "example.ml";;的代码。
回到Vim，并对代码进行一些更改。在更改代码之后，我想玩一下新的更改。返回到utop并重新运行指令#use "example.ml"。
如果有一个#reload指令来重新加载以前加载的所有模块，那就太好了，但是似乎没有。有什么方法可以轻松地重新加载所有以前加载的模块吗？
理想情况下，这将类似于GHCi
浏览 2提问于2017-09-04得票数 25
新手问题。我正在读一本非常好的书。当我尝试使用Marshal一节中的magic_copy示例时，我更接近浏览器而不是终端，所以我在ocsigen的中尝试了一下，我很惊讶地得到了结果：
(* js_of_ocaml *)
# let ora_magic_copy a =
let s = Marshal.to_string a [Marshal.Closures] in
Marshal.from_string s 0;;
val ora_magic_copy : 'a -> 'b = <fun>
# (ora_magic_copy 2 : fl
浏览 5提问于2012-09-10得票数 7
回答已采纳
1回答
我在用Jane Street's async_core通过在_tags中添加package(async_core) 当我用ocamlbuild -use-ocamlfind -I src test/test_airport.native，它给了我以下错误： camlfind ocamlopt -linkpkg -package async_core -package unix -package netclient -package mongo -package xml-light src/airport.cmx test/test_airport.cmx -o test/test_a
浏览 161提问于2018-03-22
回答已采纳
3回答
我正在学习OCaml，学习教程。我想使用“核心”库的列表函数来尝试一些示例。我启动ocaml ()并在打开‘Core.Std’时获得以下错误：
# open Core.Std
Characters 0-13:
open Core.Std;;
^^^^^^^^^^^^^
Error: Unbound module Core
文件~/..ocamlinit包含以下行(来自)：
(* Added by OPAM. *)
let () =
try Topdirs.dir_directory (Sys.getenv "OCAML_TOPLEVEL_PATH")
with
浏览 6提问于2014-02-12得票数 2
回答已采纳
我在跟踪。它演示了Graphics的使用。上面写着
Windows用户:为了在Windows上交互地工作，您需要创建一个自定义toplevel。从命令行发出ocamlmktop -o ocaml图形graphics.cma命令。
我不太明白这是什么意思。
我在"D:\MySourceCode\OCaml\2.Graphics.ml“中有相应的源代码。我的cmd已进入OCaml环境。现在我该怎么办？
浏览 1提问于2013-10-02得票数 0
回答已采纳
我一直试图在Ubuntu14.04上建立OCaml、OPAM、相关库和UTOP，这些都是基于真实世界OCaml的指令。我目前已经成功地安装了OCaml编译器和OPAM。但是，在尝试安装core和UTOP时，我会得到以下错误：
错误核心不是有效的版本化包名。
‘'opam安装核心utop’失败。
和
错误utop不是有效的版本化包名。
“'opam install utop”失败。
如果有人能就这个问题是什么以及如何解决它提出建议，我将非常感激。
谢谢!
编辑:根据反馈，我已经包括了安装的更多细节。我安装了OPAM 1.1.1。安装中执行的最后命令是
opam开
浏览 9提问于2016-07-31得票数 4
1回答
我们是否可以在Ocaml中打印一个字符串，而不使用print_string (它是命令式函数)(我不知道是否可以这样说)。我要在纯Ocaml中定义一个函数。谢谢你的帮助。
浏览 3提问于2013-11-30得票数 0
回答已采纳
我正在尝试在VirtualBox上设置Ubuntu16.04.3中的OCaml。我对他们所有人都是新手，请原谅我的无知。我使用以下命令安装了opam
wget https://raw.github.com/ocaml/opam/master/shell/opam_installer.sh -O - | sh -s /usr/local/bin
并添加了
. /home/<username>/.opam/opam-init/init.sh > /dev/null 2> /dev/null || true
根据opam安装后的说明，将其添加到我的~/.profile文件。我
浏览 11提问于2017-12-18得票数 0
回答已采纳
1回答
我正在寻找OCaml中的用法示例，以演示简单的性质或定理。例如，给定二叉树的ocaml定义，可以证明节点的最大数目是2^(h+1)-1。
我为二叉树和图建立了这样的例子，但没有别的。有什么建议或联系吗？
浏览 4提问于2012-10-17得票数 4
我在这个网站和编程是新手，所以如果我违反了任何规则或听起来很愚蠢，请原谅我。我已经说过了，
我们最近不得不在我的cs1类(c++入门)中创建一个程序来模拟游戏中的21点，同时使用位图在图形窗口中显示卡片。现在我想在我的桌面上以可执行文件的形式运行这个程序。但是，当我将调试项目文件夹中的可执行文件放到桌面上并运行时，程序崩溃了，因为它找不到位图。有没有关于如何做到这一点的建议，但将位图文件夹放在其他地方？该程序在我使用的编译器Microsoft Visual C++ 2008Express Edition中运行良好。提前感谢您的帮助！
编辑:我上传了有问题的源代码。我可能已经上传了整个程序，但是
浏览 24提问于2012-03-23得票数 1
我需要缩小位图大小，将其从24 1bpp转换为1bpp-单色，在我的安卓应用程序中。
我发现这个非常好的软件可以将位图转换为1bpp-单色()。它转换为1bpp-单色，但最终文件没有缩小的大小。
关于如何将位图文件大小转换为1bpp-单色的任何建议
提前谢谢你的帮助。
浏览 5提问于2015-11-13得票数 0
2回答
对于jpeg、gif、png，我使用libgd。(不是ImageMagick -这是不可能的)。我可以使用简单的方法/库调整bmp图像的大小吗？
浏览 0提问于2010-11-08得票数 0
回答已采纳
在F#程序中，我更喜欢使用
[<RequireQualifiedAccess>]
type MyType =
| FirstOption of string
| SecondOption of int
因此，在使用MyType的代码中，我不得不编写MyType.FirstOption，而不是只编写FirstOption。有什么办法在OCaml中强制这样做吗？
浏览 2提问于2015-06-01得票数 2
回答已采纳
2回答
我有一个包含几行文本的input.txt文件。我试图将这些行存储在列表l中。我认为我做的是正确的，但是列表l没有更新。请帮帮忙。
let l = []
let () =
let ic = open_in "input.txt"
in
try
while true do
let line = input_line ic
in
let rec append(a, b) = match a with
|[] -> [b]
|c::cs -> c::append(cs,b)
i
浏览 4提问于2016-04-08得票数 0
回答已采纳
我有一个起作用的正则表达式：
Str.string_match (Str.regexp "[0-9][0-9][0-9][0-9]\\.[0-9][0-9]\\.[0-9][0-9]") dir 0
但我想简化它，但它根本不起作用
"\\d{4}\\.\\d{2}\\.\\d{2}"
还有其他的尝试来使它工作，但我得出的结论是，它在d，{}，甚至在用()分组字符时都有问题，这种模式在任何其他语言中都可以工作，甚至在这个庞大的示例列表中也使用。
有什么想法吗？谢谢
浏览 5提问于2016-10-31得票数 2
回答已采纳
我是OCaml的新手，最近在学习程序验证。为了实现，我需要一个Ocaml的库模块，它可以获得另一个Ocaml程序的结果。我希望这个库具有与JAVA中的ProcessBuilder相同的功能。
我想知道有没有给Ocaml的。
浏览 10提问于2019-07-24得票数 0
回答已采纳
我编写了以下OCaml代码，以便将请求发送到https服务器。
open Lwt
open Cohttp
open Cohttp_lwt_unix
try
let headers = Header.init ()
|> fun h -> Header.add h "content-type" "application/json" in
let body = Client.post
~headers
~body:(body_of_credentials nickname secret)
(u
浏览 1提问于2018-10-16得票数 1
回答已采纳
我尝试使用Stringmap fold从映射中创建键和值对的元组列表，但在响应中遇到语法错误。 let testlist = Stringmap.fold (fun k v -> (k,v)) mymap [] (假设已经定义了mymap ) 我的终端说 File "myfile.mll", line 47, characters 0-3:
Error: Syntax error
make: *** [myfile] Error 2 但我不知道我的问题是什么(我也希望有更多的信息来帮助我)。
浏览 16提问于2021-10-21得票数 0
回答已采纳
这个问题的题目是自己解释的。
在Pervasives中，compare函数是外部函数。
如果有人要求我在OCaml中实现这样的函数，该怎么办？这有可能吗？
浏览 1提问于2014-02-28得票数 1
回答已采纳
但图片的缩略图不会显示并保持空白。可能的原因是什么？
Bundle extras = data.getExtras();
if(extras.get("data") != null){
Bitmap imageBitmap = (Bitmap) extras.get("data");
// Get the dimensions of the View
int targetW = imgViewPreview.getWidth();
int targetH = i
浏览 3提问于2014-02-15得票数 0
2回答
我试图从一个活动发送一些图像视图到另一个活动，我也看到了其他类似的问题，以及关于将图像视图的ID从一个活动发送到另一个活动的建议，但在我的例子中，区别在于我发送的是多个图像视图，而且这些图像视图是从一个更大的图像视图中动态创建的，也就是说，我正在通过使用Bitmap resized=Bitmap.createBitmap(bmp, 0, 0, width, height);从一个更大的图像视图创建12个小的图像视图，它们的组合将给我原来的更大的图像视图，并希望将它们全部传递给下一个活动。因此，我希望就我所遵循的程序提出一些建议，以及如何更好地做到这一点。谢谢！
编辑：--我正在用相机捕捉一
浏览 3提问于2013-07-11得票数 0
回答已采纳
我在模块Sys、Gc和Unix中搜索过，但没有找到在OCaml中获取系统页面大小的方法。如何获得系统页面大小？
我有OCaml 4.06和macOS 10.12.6 (塞拉利昂)
浏览 0提问于2018-01-25得票数 2
回答已采纳
我已经用谷歌搜索了至少一个小时，但我无法找到如何在postgresql中创建位图索引，所以我的问题非常简单，如何在postgresql中编写此命令(从oracle)
CREATE BITMAP INDEX name ON table (column);
浏览 4提问于2015-08-20得票数 5
1回答
我有一组protobuf类型，并希望生成用于序列化的reasonML代码。到目前为止，我发现ocaml-protoc无法安装到我的系统上。使用docker，
FROM ocaml/opam:alpine
RUN opam remote add dev git://github.com/mirage/mirage-dev
RUN opam depext -i mirage
RUN opam depext conf-m4.1
RUN yes | opam install ocaml-protoc
然后运行命令：
docker run \
--mount type=bind,sou
浏览 0提问于2018-04-01得票数 2
我有一个定义为type abc = bool->int;;的类型，它解释了从bool到int的简单映射。我的问题是，我如何使用这个type abc
比如如果我有
type Color = Red|Green|Blue|Dark of Color|Light of Color;;
然后我就可以使用像Dark Red;;拥有type Color这样的东西了。但是现在我似乎不能使用这个新的type abc了。
浏览 5提问于2017-01-22得票数 0
回答已采纳
我试图写，然后读取一个变量到一个文件。变量来自我创建的数据类型。
(如果有帮助的话：
类型sys = string * string列表的文件*字符串* sys列表的文件夹；
)
我该怎么做？我一直在读关于fprintf的用法，但就我所知，它必须首先被转换成字符串，对吗？
浏览 1提问于2012-03-29得票数 6
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
