在 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;
该代码的流程如下：
- 创建一个 TOpenDialog 对象，用于打开图片文件。
- 设置 TOpenDialog 对象的过滤器，只显示图片文件。
- 调用 TOpenDialog.Execute() 方法，打开图片文件选择器。
- 如果用户选择了图片文件，则执行以下步骤：
- 生成 HTML 文件路径和文件名。
- 生成包含图片的 HTML 内容。
- 保存 HTML 文件。
- 使用 Edge 浏览器打开 HTML 文件。
- 释放 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 文件。- `
