1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Исходник Простоко Почтового Клиента.

Тема в разделе "Исходные коды", создана пользователем Born, 7 фев 2013.

  1. TopicStarter Overlay
    Born

    Born

    Регистрация:
    19 янв 2013
    Сообщения:
    257
    Симпатии:
    147
    Код:
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
      IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, XPMan;
     
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        Button2: TButton;
        OpenDialog1: TOpenDialog;
        Edit2: TEdit;
        Label1: TLabel;
        Edit3: TEdit;
        Edit4: TEdit;
        Label2: TLabel;
        Label3: TLabel;
        Button3: TButton;
        Label4: TLabel;
        Edit5: TEdit;
        Label5: TLabel;
        Label6: TLabel;
        Send: TMemo;
        XPManifest1: TXPManifest;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
    smtp:tidsmtp;
      msg:tidmessage;
      Nick,Parol,Kuda,EXEPath:string;
    implementation
     
    {$R *.dfm}
     
     
     
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    smtp:=tidsmtp.Create(nil);
    Nick:=(edit3.Text);
    Parol:=(edit4.Text);
    Kuda:=(edit2.Text);
     
    smtp.Username:=Nick;
    smtp.Port:=25;
    smtp.AuthenticationType := atLogin;;
    smtp.HeloName:='Фаил';
    smtp.Password:=Parol;
    smtp.Host:=(edit2.text);
    smtp.Connect();
     
     
    msg:=tidmessage.Create(nil);
    msg.Body.Text:='Фаил';
    msg.Subject:='TEMA';
    msg.From.Address:=Nick;
    msg.From.Name:=Nick;
    msg.Recipients.EMailAddresses:=(edit5.text);
    msg.Body.Text:=Send.Text;
    showmessage('Отправлено!!!');
    smtp.Disconnect;
     
     
    end;
     
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    if (edit1.text<>'') and (edit2.text<>'') and ( edit3.text<>'') and  (edit4.Text <>'')then
    edit1.text:='';
    edit2.text:='';
    edit3.text:='';
    edit4.text:='';
    edit5.text:='';
    Send.Text:='';
    end;
     
    end.
    Я не волшебник я тока учусь.
     
    • Like Like x 2
    Метки:
  2. googie

    googie Команда форума

    Регистрация:
    27 июл 2012
    Сообщения:
    824
    Симпатии:
    616
    комментарии поясняющие не забывай строчить в коде и [co de=delphi]
     
  3. TopicStarter Overlay
    Born

    Born

    Регистрация:
    19 янв 2013
    Сообщения:
    257
    Симпатии:
    147
    Учту.;)
     

Поделиться этой страницей

Загрузка...