邮件自动发送 (200分)

老兄，什么时候可以阿 ,你是不是太忙了。其他朋友有没有好的办法。

我这段时间真的特别的忙，真抱歉，这个礼拜应该比较轻松，我会尽快的做好的，对不起啊。

现在不见你的消息？！

springbreak78老兄，问你个问题，你做的的这个软件，能不能读TIFF的图片啊。
如果可以的话，想问你，你是怎么实现对这个图片上每个像素的RGB的读取啊。

springbreak78老兄，发1封学习一下
a9b8c7d6@163.net

不错。就是cpu一般

我感觉这个很难的，因为扫描出的图片有变行，这时局部可能还要进行一下调整（如缩放）。这样才可以，但这个又自动进行。难呀

没有熟悉的吗，我一直等。

我查询的一个答案，可是：
procedure TEmailForm.GetMxList(AMxList: TStringList; AQName: string);
中的
ClearVars;// 清除前一次查询所反馈回来的资源记录
DNSQDList.Clear;我找不到声明阿。
那位大虾可以告诉我啊，给分。

不知能不能给我一份
greedisland@tom.com

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,
IdDNSResolver, IdAntiFreezeBase, IdAntiFreeze, IdMessage,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;

type
TForm1 = class(TForm)
IdDNSResolver: TIdDNSResolver;
IdSMTP: TIdSMTP;
IdMsgSend: TIdMessage;
IdAntiFreeze1: TIdAntiFreeze;
btnSend: TButton;
edtTo: TEdit;
edtFrom: TEdit;
edtSubject: TEdit;
mmContent: TMemo;
procedure btnSendClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure GetMxList(AMxList: TStringList; AQName: string);

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GetMxList(AMxList: TStringList; AQName: string);
var
i: Integer;
DNSHeader :TDNSHeader;

begin

with IdDNSResolver do
begin
Host := '172.18.3.231';
ReceiveTimeout := 10000; // 在指定的时间内得不到域名服务器的反馈，则视为失败。
AMxList.Clear ; // 清除前一次查询所反馈回来的资源记录


with DNSHeader do
begin

Qr := 0; // False 代表查询
Opcode := 0; // 0代表标准域名查询
RD := 1; //域名服务器可以进行递归查询
QDCount := 1; //查询的数量
end;
{ 构建要查询的问题 }

{QueryResult.Clear;
with QueryResult.Items.Collection.Add. do
begin
QName := AQName; //要查询的域名
QType := cMX; //QTYPE指定要查询的资源记录的种类，值为cMX代表邮件交换记录
QClass := cIN;
end;
}
Resolve('172.18.3.231');
//ResolveDNS; //向域名服务器发出请求

{ 从域名服务器接收反馈的结果，将反馈回来的邮件服务器名称放在AMXList列表的Name
部分，
邮件服务器的优先级别数放在Value部分。 }

for i := 0 to QueryResult.Items[0].Collection.Count - 1 do
AMxList.Add(QueryResult.Items.RData);
end;
end;

在Delphi安装目录/Demo/Indy/Mailclient下有一个简单的例子，参考它做就行了。如果找不到的话留下E-Mail，我给你发一个。

Mailclient我倒是有，可是no server我该怎么配置smtp。配置本机器的ip不行，dns也不行，出现socket错误。请教。

http://www.feichuang.com
qq:15405747

会不会是你的设置有问题呢？以网易的免费邮箱为例：POP3地址为pop.163.com，SMTP地址为smtp.163.com。此外indy发邮件时候，会加上一个indy标志，163会把这种标志当作垃圾邮件。所以，就发送不出去了，而etang就不这么检查，所以可以。解决办法，把标志去掉了，要修改控件原码找到IDMessage.pas,再其中搜索Values['X-Library'] ,把它所在的行注释掉，就可以了然后保存，重新编译控件包，或者重新安装控件，要么把这个单元加入工程也可以。

我根本找不到那一行阿，X-Library
unit IdMessage;

{
2002-12-09 Andrew Neillans
Removed X-Library Line

第789行。

还是不行，算了，第789我是找到了，是Values['Newsgroups'] := NewsGroups.CommaText; {do not localize}

现在用另外的一个例子可以了，多谢。