JohnC
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если б было так просто. Например, создаю форму и делаю так
не размещая на форме компонент NMSMTP с закладки FastNet.
-------------------------Unit1.h------------------------
#ifndef Unit1H
#define Unit1H
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <NMsmtp.hpp> //подключаю в ручную
#include <Psock.hpp> // для копанента NMSMTP
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
TNMSMTP *SMTP; //добавляю сам
void __fastcall SMTPConnect(TObject *Sender);//добавляю сам
};
extern PACKAGE TForm1 *Form1;
#endif
-------------------Unit1.cpp---------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ }
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SMTP->Name="SMTP";
SMTP->ClearParams=true;
SMTP->Charset="us-ascii";
SMTP->EncodeType=uuMime;
SMTP->Host="smtp.mail.ru";
SMTP->SubType= mtPlain;
SMTP->Port=25;
SMTP->UserID="alex";
SMTP->Connect();
}
void __fastcall TForm1::SMTPConnect(TObject *Sender)
{
//
}
//---------------------------------------------------------------------------
Причем код компилируется, но при попытке выполнения вываливается ошибка.
Если я помещаю компонент на форму, но имя в Object Insepector ставлю не "SMTP", то также
ничего не работает.
Кто знает, как правильно сделать. |
