怎么将图片格式转成HTML格式打开
发布网友
发布时间:2022-04-24 15:25
我来回答
共1个回答
热心网友
时间:2023-10-19 03:13
{*
MakeHtml('test.jpg', 'test.html');
@param imgsrc 图片路径
@param savefile 生成的html文件名
@return 保存成功返回true
}
function MakeHtml(const imgsrc,savefile: string): Boolean;
var
f: TStringList;
begin
Result := True;
f := TStringList.Create;
try
f.Add('<IMG SRC="' + imgsrc + '" />');
try
f.SaveToFile(savefile);
except
Result := False;
end;
finally
f.Free;
end;
end;