我知道这个话题已经提过很多次了，但不是专门针对Delphi的。我试图通过邮件发送生成的qr码作为内联img。目前我正在成功地这样做，但只是作为URL:
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABqQAAAakCAYAAA..." width="170" height="170">
但是在Gmail中，它只添加了一个空白的正方形。我已经找到了很多关于如何在电子邮件中嵌入图片的答案，比如这两个帖子:
Base64 images to gmail
Gmail阻止电子邮件模板中嵌入的小内联图像
但是我不明白如何在Delphi内部实现答案中的代码。
我还找到了从磁盘获取img作为附件的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
oSmtp : TMail;
cid : WideString;
begin
oSmtp := TMail.Create(Application);
// Add embedded image and return the unique identifier of the attachment
cid := oSmtp.AddInline('c:test.jpg');
// Set HTML body format
oSmtp.BodyFormat := 1;
// Set HTML body
oSmtp.BodyText := '<html><body>Hello, this is an embedded <img src="cid:' +
cid + '"> picture.</body></html>';
end;
// i do not use this code it is just an example of what i have found thus far
目前我对img所做的是:
HtmlBody = ReplaceStr(HtmlBody, [parameter_img],'<img src="data:image/png;base64,' + StreamToString(imgStream) + '"width="170" height="170"/>');
但是我不能保存图像，所以我想直接插入base64string。
我已经设法在我的电子邮件中获得附件，它在那里，但在文本区域只有一个空白的正方形。
img部分代码和原始电子邮件消息:
<img src="cid:qrcode.png" width="170" height="170" />';
--wpn=_6hoco9kAT3gWlDy6D313EA3BETyyOfe
Content-Type: text/html; charset="windows-1250"
Content-Transfer-Encoding: base64
Content-Disposition: inline
PCFET0NUWVBFIGh0bWwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMCBUcmFuc2l0aW9uYWwv
L0VOIiAiaHR0cDovL3d3dy53My5vcmcvVFIvUkVDLWh0bWw0MC9sb29zZS5kdGQiPjxtZXRhIGh0
dHAtZXF1aXY9IkNvbnRlbnQtVHlwZSIgY29udGVudD0idGV4dC9odG1sOyBjaGFyc2V0PXdpbmRv
d3MtMTI1MCI+PGJvZHk+PGltZyBzcmM9Imh0dHBzOi8vbmFpcy1yYXp2b2ouaXBsdXMuc2kvX2Fz
...
--wpn=_6hoco9kAT3gWlDy6D313EA3BETyyOfe
Content-Type: image/png; name="qrcode.png"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="qrcode.png"
Content-ID: qrcode.png
--wpn=_6hoco9kAT3gWlDyD6D313EA3BEyyOfe--
起初我认为问题是这样的:PCFET0NUWVBFIGh0bWwgUFVCTElDICItL因为它看起来不像以iVBOR开头的png的base64代码。
但问题在这里:Content-ID: qrcode.png
当设置Content-ID时，你必须小心，因为在某些版本中，简单地用引号设置它是不够的，你必须添加<>Content-ID: <qrcode.png>.
结果如所愿。