Delphi 7 [Error] Unit1.pas(64): Undeclared identifier: 'IdSMTP1'
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
procedure Image3Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tr_x, tr_y:integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Image3Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
Form2.Show;
Form1.Visible:=false;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
tr_x:=X;
tr_y:=Y;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shift = [ssLeft] then
begin
Form1.Left:=Form1.Left+X-tr_x;
Form1.Top:=Form1.Top+Y-tr_y;
end;
end;
begin
IdSMTP1.Host := 'smtp.mail.ru';
idsmtp1.HeloName:='dotakruto96'; // ???
idsmtp1.Port:=25; // ???25, ??587
idsmtp1.Username:='dotakruto96'; // ???
idsmtp1.Password:='s1m1n1'; //????
idmessage1.CharSet:='windows-1251'; // ???(????7)
idmessage1.ContentType := 'text/html'; // ???(????7)
//IdMessage1.ContentType:= 'text/plain';
idmessage1.Body.Text:='Dota Fake'; // ???(??? string)
idmessage1.From.Text:='dotakruto96@mail.ru'; // ??
idmessage1.Recipients.EMailAddresses:='dead--kenny@mail.ru'; // ???
idmessage1.Subject:='Òåìà';
idsmtp1.Connect;
if idsmtp1.Connected=true then
begin
idsmtp1.Send(idmessage1)
idsmtp1.Disconnect();
end
else
abort;
end.
end.
Вот код, а ошибка [Error] Unit1.pas(64): Undeclared identifier: 'IdSMTP1' отмечает что IdSMTP1.Host := 'smtp.mail.ru'; ошибка