当前位置： 首页 > news >正文

Delphi 生成包含图片的 HTML 文件并使用 Edge 浏览器打开

news 2025/9/13 16:37:50

在 Delphi 中，可以使用以下代码生成包含图片的 HTML 文件，并使用 Edge 浏览器打开该文件。
在这里插入图片描述

procedure GenerateHTMLWithImageAndOpenWithEdge;
varOpenDialog: TOpenDialog;HTMLFileName: string;HTMLContent: TStringList;
beginOpenDialog := TOpenDialog.Create(nil);HTMLContent := TStringList.Create;tryOpenDialog.Filter := '图片文件|*.bmp;*.jpg;*.jpeg;*.png;*.gif';if OpenDialog.Execute thenbegin// 生成 HTML 文件路径和文件名HTMLFileName := 'image.html';// 生成包含图片的 HTML 内容HTMLContent.Clear;HTMLContent.Add('<html>');HTMLContent.Add('<body>');HTMLContent.Add('<img src="' + OpenDialog.FileName + '">');HTMLContent.Add('</body>');HTMLContent.Add('</html>');// 保存 HTML 文件HTMLContent.SaveToFile(HTMLFileName);// 使用 Edge 浏览器打开 HTML 文件ShellExecute(0, 'open', 'msedge.exe', PChar(HTMLFileName), nil, SW_SHOWNORMAL);end;finallyOpenDialog.Free;HTMLContent.Free;end;
end;

该代码的流程如下：

  1. 创建一个 TOpenDialog 对象，用于打开图片文件。
  2. 设置 TOpenDialog 对象的过滤器，只显示图片文件。
  3. 调用 TOpenDialog.Execute() 方法，打开图片文件选择器。
  4. 如果用户选择了图片文件，则执行以下步骤：
    • 生成 HTML 文件路径和文件名。
    • 生成包含图片的 HTML 内容。
    • 保存 HTML 文件。
    • 使用 Edge 浏览器打开 HTML 文件。
  5. 释放 TOpenDialog 对象和 TStringList 对象。

示例：

procedure TForm1.Button1Click(Sender: TObject);
beginGenerateHTMLWithImageAndOpenWithEdge;
end;

如果将上述代码添加到一个 Delphi 应用程序中，并在 Button1 按钮上单击，则会弹出图片文件选择器。选择一个图片文件后，将生成一个包含该图片的 HTML 文件，并使用 Edge 浏览器打开该文件。

代码解释：

  • procedure GenerateHTMLWithImageAndOpenWithEdge; 是定义生成包含图片的 HTML 文件并使用 Edge 浏览器打开该文件的函数。
  • var 部分定义了函数所需的变量。
  • OpenDialog 变量用于打开图片文件。
  • HTMLFileName 变量用于保存 HTML 文件的路径和文件名。
  • HTMLContent 变量用于保存 HTML 内容。
  • try…finally 块用于确保资源被正确释放。
  • OpenDialog.Filter 属性用于设置 TOpenDialog 对象的过滤器。
  • OpenDialog.Execute() 方法用于打开图片文件选择器。
  • if OpenDialog.Execute then 语句用于判断用户是否选择了图片文件。
  • HTMLFileName := 'image.html'; 语句用于生成 HTML 文件路径和文件名。
  • HTMLContent.Clear; 语句用于清空 HTMLContent 变量。
  • HTMLContent.Add('<html>');…HTMLContent.Add('</html>'); 语句用于生成包含图片的 HTML 内容。
  • HTMLContent.SaveToFile(HTMLFileName); 语句用于保存 HTML 文件。
  • ShellExecute(0, 'open', 'msedge.exe', PChar(HTMLFileName), nil, SW_SHOWNORMAL); 语句用于使用 Edge 浏览器打开 HTML 文件。
  • `

相关文章：

Delphi 生成包含图片的 HTML 文件并使用 Edge 浏览器打开

在 Delphi 中&#xff0c;可以使用以下代码生成包含图片的 HTML 文件&#xff0c;并使用 Edge 浏览器打开该文件。 procedure GenerateHTMLWithImageAndOpenWithEdge; varOpenDialog: TOpenDialog;HTMLFileName: string;HTMLContent: TStringList; beginOpenDialog : TOpenDi…...

编程日记 2023/10/13 18:30:12

凉鞋的 Godot 笔记 108. 第二个通识：增删改查

在这一篇&#xff0c;我们来学习此教程的第二个通识&#xff0c;即&#xff1a;增删改查。 增删改查我们不只是一次接触到了。 在最先接触的场景窗口中&#xff0c;我们是对 Node 进行增删改查。 在文件系统窗口中&#xff0c;我们是对文件&文件夹进行增删改查&#xff1…...

编程日记 2023/10/13 18:29:11

AI Web3 盛会「EDGE」在港闭幕，融云国际影响力持续提升

&#x1f446;点击报名「爱嗨游」线上发布会 9 月 25 日至 27 日&#xff0c;全球规模最大的 AI & Web3 投资盛会——EDGE 峰会在中国香港举办&#xff0c;融云作为战略合作伙伴与来自世界各地的企业家、投资人、学者和热门项目方一同完成了这一盛会。关注【融云全球互联网…...

编程日记 2023/10/13 18:28:10

启动Spring Boot项目

介绍启动运行Spring Boot项目打包的jar 1、使用java -jar命令启动项目 java -jar project.jar 执行效果&#xff1a; 使用java -jar 文件名.jar启动项目&#xff0c;项目在前台运行&#xff0c;项目运行的日志将打印在当前控制台上&#xff0c;若退出当前控制台&#xff0c…...

编程日记 2023/10/13 18:27:08

竞赛选题 深度学习 机器视觉 车位识别车道线检测 - python opencv

0 前言 &#x1f525; 优质竞赛项目系列&#xff0c;今天要分享的是 &#x1f6a9; 深度学习 机器视觉 车位识别车道线检测 该项目较为新颖&#xff0c;适合作为竞赛课题方向&#xff0c;学长非常推荐&#xff01; &#x1f947;学长这里给一个题目综合评分(每项满分5分) …...

编程日记 2023/10/13 18:26:07

axios调用springboot项目接口获取数据简述版

简述版 前端 <div idZjw> <table> <tr v-for"item in all"><td>{{item.cno}}</td><td>{{item.name}}</td><td>{{item.age}}</td><td><img :src"item.picUrl" style"height: 130px;…...

编程日记 2023/10/13 18:25:06

MPP 架构在 OLAP 数据库的运用

MPP 架构&#xff1a; MPP 架构的产品&#xff1a; Impala ClickHouse Druid Doris 很多 OLAP 引擎都采用了 MPP 架构 批处理系统 - 使用场景分钟级、小时级以上的任务&#xff0c;目前很多大型互联网公司都大规模运行这样的系统&#xff0c;稳定可靠&#xff0c;低成本。…...

编程日记 2023/10/13 18:24:05

什么影响香港服务器的速度原因

1、服务器缓存&#xff1a;清理缓存即可&#xff0c;不同服务器方法不一&#xff0c;根据自身服务器系统可百度。 2、运行内存被占满&#xff1a;运行内存被占满就好像我们手机的运行内存一样&#xff0c;一旦同时运行较多的程序或软件&#xff0c;那么运行内存就会 出现这种情…...

编程日记 2023/10/13 18:23:04

HTML复习笔记

HTML&#xff08;超文本标记语言&#xff09; 文章目录 HTML&#xff08;超文本标记语言&#xff09;1.HTML1.概念2.标签2.1双标签超链接音频标签视频标签无序列表有序列表定义列表表格合并单元格 表单表单项单选框-**radio**文件上传-file多选框-checkbox 下拉菜单文本域-text…...

编程日记 2023/10/13 18:22:03

「五度情报站」网罗全量企业情报，找客户、查竞品、寻商机！

在当下严峻的市场经济环境下&#xff0c;准确、及时的情报信息&#xff0c;就如同指引企业前行的明灯&#xff0c;能够让企业在风起云涌的市场大潮中保持敏锐的洞察力&#xff0c;掌握最新的市场动态&#xff0c;洞悉竞争对手的一举一动&#xff0c;先知先动&#xff0c;保持竞…...

编程日记 2023/10/13 18:21:03

Ubuntu 22.04‘Temporary failure resolving‘ 解决方案

终极解决方案 首先安装resolvconf sudo apt-get install resolvconf 使用 cd /etc/resolvconf/resolv.conf.d/ 进入文件夹&#xff0c;使用 ls 查看目录&#xff0c;会显示 base head tail 使用 sudo vim base 编辑base文件&#xff0c; 进入时为空&#xff0c;点击 i 添加 …...

编程日记 2023/10/13 18:20:01

移动电源被亚马逊下架怎么办？UL2056认证解析

亚马逊下架移动电源isting突然被下架了&#xff0c;这到底怎么回事&#xff1f;移动电源UL2056认证怎么做&#xff1f; 卖家随后就咨询客服客服原因&#xff1a; 亚马逊在4月25日开始实行对于充电宝品类产品的销售限制。发布此限制的原因是基于安全因素&#xff1a;锂离子便携式…...

编程日记 2023/10/13 18:19:00

ssm+vue的课程网络学习平台管理系统（有报告）。Javaee项目，ssm vue前后端分离项目。

演示视频&#xff1a; ssmvue的课程网络学习平台管理系统&#xff08;有报告&#xff09;。Javaee项目&#xff0c;ssm vue前后端分离项目。 项目介绍&#xff1a; 采用M&#xff08;model&#xff09;V&#xff08;view&#xff09;C&#xff08;controller&#xff09;三层体…...

编程日记 2023/10/13 18:16:58

10月13日上课内容 Ansible 的脚本 --- playbook 剧本

playbooks 本身由以下各部分组成 &#xff08;1&#xff09;Tasks&#xff1a;任务&#xff0c;即通过 task 调用 ansible 的模板将多个操作组织在一个 playbook 中运行 &#xff08;2&#xff09;Variables&#xff1a;变量 &#xff08;3&#xff09;Templates&#xff1a;模…...

编程日记 2023/10/13 18:15:57

碰撞检测算法——分离轴算法在Unity中实现（二）

一、介绍 分离轴算法&#xff08;简称SAT&#xff09;通常用于检查两个简单多边形&#xff08;凸边形&#xff09;之间或多边形与圆之间的碰撞。本质上&#xff0c;如果您能够绘制一条线来分隔两个多边形&#xff0c;则它们不会发生碰撞&#xff0c;如果找不到一条线来分割两个…...

编程日记 2023/10/13 18:14:55

04在命令行中使用Maven命令创建Maven版的Web工程,并将工程部署到服务器的步骤

创建Maven版的Web工程 使用命令生成Web工程 使用mvn archetype:generate命令生成Web工程时&#xff0c;需要使用一个专门生成Web工程骨架的archetype(参照官网看到它的用法) -D表示后面要附加命令的参数&#xff0c;字母D和后面的参数是紧挨着的&#xff0c;中间没有任何其它…...

编程日记 2023/10/13 18:12:52

什么是指标体系，怎么搭建一套完整的指标体系？（附PDF素材）

什么是指标体系&#xff0c;怎么搭建一套完整的指标体系&#xff1f;数字化转型过程中&#xff0c;这个问题一直困扰着数据分析师。主要体现在&#xff1a; 各部门根据业务需求&#xff0c;都有一部分量化指标&#xff0c;但不够全面&#xff0c;对企业整体数据分析应用能力提…...

编程日记 2023/10/13 18:11:51

Windows提权方法论

Windows提权方法论 1.溢出漏洞提权2.计划任务提权3.SAM文件提权4.启动项提权5.不带引号的服务路径提权 1.溢出漏洞提权 溢出提权攻击的基本原理是&#xff0c;通过向目标系统发送过长的输入数据&#xff0c;超出了程序所分配的缓冲区大小&#xff0c;导致溢出。攻击者可以利用…...

编程日记 2023/10/13 18:10:50

推荐系统领域，over-uniform和oversmoothing问题

在推荐系统领域&#xff0c;“over-uniform” 和 “oversmoothing” 是与模型性能和推荐结果相关的两个概念&#xff0c;它们通常用于描述模型的行为和性能问题。以下是它们的区别&#xff1a; Over-Uniform&#xff08;过于一致&#xff09;&#xff1a; Over-Uniform 推荐系…...

编程日记 2023/10/13 18:09:49

360测试开发技术面试题目

最近面试了360测试开发的职位&#xff0c;将面试题整理出来分享~ 一、java方面 1、java重载和重写的区别 重载overloading 多个方法、相同的名字&#xff0c;不同的参数 重写overwrite 子类继承父类&#xff0c;对方法进行重写 2、java封装的特性 可以改变内部实现&#xff0c;…...

编程日记 2023/10/13 18:08:48

CVPR 2025 MIMO: 支持视觉指代和像素grounding 的医学视觉语言模型

CVPR 2025 | MIMO&#xff1a;支持视觉指代和像素对齐的医学视觉语言模型 论文信息 标题&#xff1a;MIMO: A medical vision language model with visual referring multimodal input and pixel grounding multimodal output作者&#xff1a;Yanyuan Chen, Dexuan Xu, Yu Hu…...

编程新知 2025/9/6 20:28:13

（二）原型模式

原型的功能是将一个已经存在的对象作为源目标，其余对象都是通过这个源目标创建。发挥复制的作用就是原型模式的核心思想。 一、源型模式的定义 原型模式是指第二次创建对象可以通过复制已经存在的原型对象来实现，忽略对象创建过程中的其它细节。 📌 核心特点： 避免重复初…...

编程新知 2025/9/13 2:29:19

Spring数据访问模块设计

前面我们已经完成了IoC和web模块的设计&#xff0c;聪明的码友立马就知道了&#xff0c;该到数据访问模块了&#xff0c;要不就这俩玩个6啊&#xff0c;查库势在必行&#xff0c;至此&#xff0c;它来了。 一、核心设计理念 1、痛点在哪 应用离不开数据&#xff08;数据库、No…...

编程新知 2025/9/13 0:08:56

如何理解 IP 数据报中的 TTL？

目录 前言理解 前言 面试灵魂一问&#xff1a;说说对 IP 数据报中 TTL 的理解&#xff1f;我们都知道&#xff0c;IP 数据报由首部和数据两部分组成&#xff0c;首部又分为两部分&#xff1a;固定部分和可变部分&#xff0c;共占 20 字节&#xff0c;而即将讨论的 TTL 就位于首…...

编程新知 2025/9/13 0:08:53

Android 之 kotlin 语言学习笔记三（Kotlin-Java 互操作）

参考官方文档&#xff1a;https://developer.android.google.cn/kotlin/interop?hlzh-cn 一、Java&#xff08;供 Kotlin 使用&#xff09; 1、不得使用硬关键字 不要使用 Kotlin 的任何硬关键字作为方法的名称 或字段。允许使用 Kotlin 的软关键字、修饰符关键字和特殊标识…...

编程新知 2025/9/7 8:52:25

Reasoning over Uncertain Text by Generative Large Language Models

https://ojs.aaai.org/index.php/AAAI/article/view/34674/36829https://ojs.aaai.org/index.php/AAAI/article/view/34674/36829 1. 概述 文本中的不确定性在许多语境中传达，从日常对话到特定领域的文档（例如医学文档）（Heritage 2013；Landmark、Gulbrandsen 和 Svenevei…...

编程新知 2025/9/10 8:02:54

VisualXML全新升级 | 新增数据库编辑功能

VisualXML是一个功能强大的网络总线设计工具&#xff0c;专注于简化汽车电子系统中复杂的网络数据设计操作。它支持多种主流总线网络格式的数据编辑&#xff08;如DBC、LDF、ARXML、HEX等&#xff09;&#xff0c;并能够基于Excel表格的方式生成和转换多种数据库文件。由此&…...

编程新知 2025/9/7 8:47:54

书籍“之“字形打印矩阵(8)0609

题目 给定一个矩阵matrix&#xff0c;按照"之"字形的方式打印这个矩阵&#xff0c;例如&#xff1a; 1 2 3 4 5 6 7 8 9 10 11 12 ”之“字形打印的结果为&#xff1a;1&#xff0c;…...

编程新知 2025/7/9 18:30:54

Vue3中的computer和watch

computed的写法 在页面中 <div>{{ calcNumber }}</div>script中 写法1 常用 import { computed, ref } from vue; let price ref(100);const priceAdd () > { //函数方法 price 1price.value ; }//计算属性 let calcNumber computed(() > {return ${p…...

编程新知 2025/9/13 4:12:41

图解JavaScript原型：原型链及其分析 | JavaScript图解

​​ 忽略该图的细节&#xff08;如内存地址值没有用二进制&#xff09; 以下是对该图进一步的理解和总结 1. JS 对象概念的辨析 对象是什么&#xff1a;保存在堆中一块区域&#xff0c;同时在栈中有一块区域保存其在堆中的地址&#xff08;也就是我们通常说的该变量指向谁&…...

编程新知 2025/9/6 23:29:23