1.图片如何转换成代码
使用数据流的形式输出图片;
参考实例如下:
{*
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;