добрый день подскажите кто что знает вот я написал программульку такую вот надеюс разберетес тут видает ошибки не судите строга я новичок в этом деле и мне нужно совет что бы кто небуд подсказал что тут лишнее что убрат а что нет спасибо...
вот сам код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, IdMessage;
type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
procedure IdSMTP1Connected(Sender: TObject);
procedure IdMessage1InitializeISO(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IdSMTP1Connected(Sender: TObject);
begin
idsmtp1.Connect(5000);
if Connected=True then IdSMTP1.Send(Msg);
end;
procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
begin
Msg.Recipients.EMailAddresses:='shotalomsadze@yandex.ru,batura-87@yandex.ru';
Msg.From.Address:='batura-87@yandex.ru';
Msg.Body.Text:='текст сообшениа на DELPHI';
Msg.Date:=strToDate('01.02.2009');
end;
IdSMTP1.Disconnect;
end;
---------------------------
вот ошибки какие программа видает:
[Error] Unit1.pas(15): Undeclared identifier: 'TTransfer'
[Error] Unit1.pas(33): Undeclared identifier: 'Connected'
[Error] Unit1.pas(33): '(' expected but ')' found
[Error] Unit1.pas(34): Incompatible types: 'TIdMessage' and 'tagMSG'
[Error] Unit1.pas(39): Object or class type required
[Error] Unit1.pas(39): Missing operator or semicolon
[Error] Unit1.pas(40): Object or class type required
[Error] Unit1.pas(41): Object or class type required
[Error] Unit1.pas(42): Object or class type required
[Error] Unit1.pas(44): Declaration expected but identifier 'IdSMTP1' found
[Error] Unit1.pas(45): '.' expected but ';' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
*********************************************************
если кто может помогите пожалуйста очень нужно спасибо