{******Unit1.pas源代码内容如下******} unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Psock, NMsmtp; type TForm1 = class(TForm) Label1: TLabel; txtTo: TEdit; Label2: TLabel; txtFrom: TEdit; Label3: TLabel; txtSubject: TEdit; Label4: TLabel; memContents: TMemo; Label5: TLabel; txtUserName: TEdit; Label6: TLabel; txtPassword: TEdit; chkSmtpVerify: TCheckBox; btnSend: TButton; btnOpen: TButton; txtSwfFile: TEdit; Label7: TLabel; OpenDialog1: TOpenDialog; Label8: TLabel; txtSmtpServer: TEdit; NMSMTP1: TNMSMTP; Label9: TLabel; txtPort: TEdit; procedure btnOpenClick(Sender: TObject); procedure btnSendClick(Sender: TObject); procedure NMSMTP1SendStart(Sender: TObject); procedure NMSMTP1Connect(Sender: TObject); procedure chkSmtpVerifyClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; function EncodeString(Decoded:string):String; function EncodeBASE64(Encoded: TMemoryS
...
Read more »