🚀 go-pugleaf

"Van Wouwe Francois" <francois.van.wouwe@skynet.be> wrote in message
news:4608f043$1@newsgroups.borland.com...

> When I use the SMTP component for sending email, the mail is send
> out, but when I close the form I get an access violation at a given
> address, during the read of that address.

That is because you are using it wrong.  Why are you calling
Destroying() at all?

Use this code instead:

    extern int RecId_club;
    extern String WORKDIR, PROGDIR;

    void __fastcall TF_Deelnemers::Email1Click(TObject *Sender)
    {
        char buf[200];
        int taal;
        String temp, tornooi, tornooinaam;

        IdMessage1->Clear();
        ...
        IdMessage1->Sender->Name = buf;
        ...
        IdMessage1->Sender->Address = buf;
        IdMessage1->Recipients->EMailAddresses =
DM->Q_CLUBS->FieldByName("email")->AsString;
        IdMessage1->From->Assign(IdMessage1->Sender);
        IdMessage1->BccList->EMailAddresses =
"francois.van.wouwe@skynet.be";
        ...
        IdMessage1->Subject = "Confirmation of inscription " +
tornooinaam;
        IdMessage1->ContentType = "text/plain";
        IdMessage1->Body->Add("Club = " +
DM->Q_CLUBS->FieldByName("nr")->AsString + " " +
DM->Q_CLUBS->FieldByName("naam")->AsString);
        ....
        IdMessage1->Body->Add("");
        IdMessage1->Body->Add("With sporty greetings");
        ...
        IdMessage1->Body->Add(buf);

        GetPrivateProfileString("Email", "SMTPHost", "", buf,
sizeof(buf), tornooi.c_str());
        IdSMTP1->Host = buf;

        GetPrivateProfileString("Email", "Username", "", buf,
sizeof(buf), tornooi.c_str());
        IdSMTP1->Username = buf;

        IdSMTP1->Connect(5000);
        try {
            IdSMTP1->Send(IdMessage1);
        }
        __finally {
            IdSMTP1->Disconnect();
        }

        ShowMessage("E-mail is verstuurd");
    }


Gambit