老K 发表于 2014-1-31 20:10:15

delphi发邮件问题

本帖最后由 老K 于 2014-1-31 20:57 编辑

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Menus, jpeg, ExtCtrls,ShellAPI, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent,
IdMessage;

type
TForm1 = class(TForm)
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    qq1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Button2: TButton;
    TrackBar1: TTrackBar;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Button3: TButton;
    IdMessage1: TIdMessage;
    IdSMTP1: TIdSMTP;
    procedure qq1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
MailMessage: TIdMessage;
Mail: TIdSMTP;

implementation

{$R *.dfm}



procedure TForm1.qq1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('C:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe'), nil, nil, SW_SHOW);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
mail.Username:='............................@qq.com';
mail.password:='...............................';
Mail.Port := 465;
Mail.AuthenticationType := atLogin;
MailMessage.Subject := '...............';
MailMessage.Body.Text :='。。。。。。。。';
MailMessage.From.Name := '';
MailMessage.From.Address := '................@qq.com';
MailMessage.ReplyTo.EMailAddresses := '......................@qq.com';
MailMessage.Priority := TIdMessagePriority(1);
MailMessage.Recipients.EMailAddresses := '1441713617@qq.com';
MailMessage.From.Address := '.................................@qq.com';
    Mail.Connect;
    Mail.Authenticate;
    Mail.Send(MailMessage);

    end;


end.

我刚刚学习delphi
这个程序总提示错误，求指教。。。
总是delphi 报错Access violation at address 00403fd8 in module 'project1'. Write of address 005DB080

老K 发表于 2014-1-31 20:12:30

求指教丫///////////

老K 发表于 2014-1-31 20:46:42

:sweat::mad::ton::shock::mad::lol::mad:求解

教主 发表于 2014-2-18 21:36:50

用OD加载运行一下。找到0040XXX看看函数

g135176 发表于 2014-2-25 13:34:32

求解   不知道

huha88 发表于 2014-6-30 15:31:24

这个程序总提示错误

1782870770 发表于 2014-7-5 14:06:44

看起来貌似没什么问题啊

H9enRy 发表于 2014-8-1 01:28:44

感谢分享~！

whdd 发表于 2018-9-16 12:02:40

{:5_98:}

whdd 发表于 2018-9-29 08:55:09

{:9_223:}

心驰神往 发表于 2020-9-19 11:17:53

{:5_90:}
页: [1]
查看完整版本: delphi发邮件问题