Показать сообщение отдельно

[DELPHI] smtp клиент
  #1  
Старый 25.08.2009, 01:33
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
С нами: 9194467

Репутация: 6
По умолчанию [DELPHI] smtp клиент

что делаю не так?

PHP код:
begin 
   IdSMTP1
.Host:='smtp.mail.ru';
   
IdSMTP1.Port:=25;
  
IdSMTP1.Username:='io';
   
IdSMTP1.Password:='*****';
   
IdSMTP1.AuthenticationType:=atLogin;
   
with IdMessage1 do
      
begin
        Body
.Assign(Edit1.text);
        
From.Text := 'ddd';
        
Recipients.EMailAddresses := 'dd';
        
Subject := '==';

        
end;

      
IdSMTP1.Connect;
         try
      
showmessage('Ïðîèçîøëî ïîäêëþ÷åíèå ê ñåðâåðó');
      
IdSMTP1.Send(IdMessage);
         finally
           
IdSMTP1.Disconnect;
         
end
ошибка в строчке
PHP код:
 Body.Assign(Edit1.text); 
 
Ответить с цитированием