iwunit1.~pas

一些关于电子邮件SMTP`POP3 MIME`的源码·个人感觉还不错

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompButton, IWCompEdit, IWCompLabel,
  Classes, Controls, IWControl, IWHTMLControls,SysUtils;

type
  TformMain = class(TIWAppForm)
    IWApplet1: TIWApplet;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWEdit1: TIWEdit;
    IWEdit2: TIWEdit;
    IWEdit3: TIWEdit;
    IWButton1: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
  with IWApplet1.Params do begin
    Values['text1'] := Trim(IWEdit1.Text);
    Values['text2'] := Trim(IWEdit2.Text);
    Values['text3'] := Trim(IWEdit3.Text);
  end;
  IWApplet1.Visible:=True;
end;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
  IWApplet1.Visible:=False;
end;

end.