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", то также ничего не работает. Кто знает, как правильно сделать. |