комноненты Indi, что я делаю неправильно?

← →
Dust © (2006-03-16 17:15) [0]

Пытаюсь загнать говотое письмо в TIdMessage, получаю Exception, что я делаю неправильно?
procedure TForm1.Button1Click(Sender: TObject); var idMsg : TIdMessage; MsgFileName :String; NewMsg :TEmailMessage; tick_count :Integer; MsgBody :TStringList; tmp_str :String; begin IdSMTP1.Password := Edit3.Text; IdSMTP1.Username := Edit2.Text; IdSMTP1.Host := Edit1.Text; IdSMTP1.UseEhlo := True; // IdSMTP1.Connect(1500); if true (*IdSMTP1.Authenticate()*) then begin StatusBar1.Panels[0].Text := "Authenticated"; NewMsg := TEmailMessage.Create(); NewMsg.Date := Now(); NewMsg.From := Edit6.Text; NewMsg.ReplyTo := Edit6.Text; NewMsg.AttachFile("c:\andrexa\Projects\Outbox.eml\fr_rus.rar"); NewMsg.MailTo := Edit5.Text; NewMsg.Subject := Edit4.Text; NewMsg.IncludeTextPart(TStringList(Memo1.Lines)); NewMsg.EncodeMessage(); tick_count := GetTickCount(); MsgFileName :="Outbox.eml\"+IntToStr(tick_count)+".eml"; NewMsg.SaveToFile(MsgFileName); SetLength( tmp_str, NewMsg.MsgSize); Move (NewMsg.MsgPtr^, Pointer(tmp_str)^, NewMsg.MsgSize); FreeAndNil(NewMsg); MsgBody := TStringList.Create(); MsgBody.SetText(PChar(tmp_str)); idMsg := TIdMessage.Create(nil); //idMsg.SetBody(MsgBody); try idMsg.LoadFromFile(MsgFileName); //!!!!!!!!!!!!!!!!!!!!!!!!!!! Exception!!!!!!!!!!!! except ShowMessage (Exception.ClassName); end; //IdSMTP1.Send(idMsg); FreeAndNil(idMsg); FreeAndNil (MsgBody); end; end;

← →
Reindeer Moss Eater © (2006-03-16 17:22) [1]

что я делаю неправильно?

Замени это
except
ShowMessage (Exception.ClassName);
end;

на это
except
on E:Exception do ShowMessage (E.Message);
end;

и узнаешь что

← →
Dust © (2006-03-16 17:29) [2]

Мне вообще не нужно появления каких ли б это ни было исключений, мне просто нужно загрузить письмо из файла, или другим путём и передать его по сети, именно это у меня и не получается.

← →
Reindeer Moss Eater © (2006-03-16 17:34) [3]

Ну и славно.

← →
Dust © (2006-03-16 17:36) [4]

посмотрел как это делал народ в форуме,
заменил
idMsg := TIdMessage.Create(nil);
на
idMsg := TIdMessage.Create(IdSMTP1);
Этого оказалось недостаточно.... :(
что ещё?

← →
Dust © (2006-03-17 17:01) [5]

в 10-й версии компонент Indy всё работает.

Подскажите ссылочку для закачки Indy 10

Огромное спасибо

комноненты Indi, что я делаю неправильно? Найти похожие ветки