一个delphi程序问题

Posted 2023-04-27

运行后，将一个整行数的值发送到我的指定邮箱可以吗？急！！！！

当然可以,就是像发邮件一样嘛
代码如下:
控件

smtp: TIdSMTP;
MgeSend: TIdMessage;

代码

procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP.Host:='smtp.163.com';
smtp.Username:='[e-mail]';
smtp.Password:='paswrd';
smtp.Port:=25;
smtp.Connect();
MgeSend.Recipients.EMailAddresses:='[e-mail]';
MgeSend.From.Text :='[e-mail]';
MgeSend.Subject:='test';
MgeSend.Body.Text:='发邮件测试';
SMTP.Authenticate;
Smtp.Send(mgeSend);
end; 参考技术A ??没看懂什么意思？ 参考技术B 弱智,问题都表达不清楚还学delphi先学好中文在说吧追问

你连弱智都不如~~

在 Delphi 中实现 OAuth 提供程序

【中文标题】在 Delphi 中实现 OAuth 提供程序

【英文标题】：Implementing OAuth Provider in Delphi

【发布时间】：2011-01-23 16:40:12

【问题描述】：

我已经开发了一个 REST Web 服务，并且我想实现一个 OAuth 服务提供者来验证主要是两条腿的 OAuth 请求。谁能指出我在 Delphi 中创建的 OAuth 服务提供者的实现。提前致谢。

【参考方案1】：

我没有使用过这个OAUTH for Delphi，但我听说它有效。您可以在creator's blog 中阅读更多相关信息。

【讨论】：

似乎停滞不前，自 2009 年以来没有新的提交，不是吗？

加上问题是要求 OAuth 服务提供者，而参考库仅实现消费者（客户端）部分。