13. Komponenty NetMasters III

V tΘto kapitole je dokonΦen popis komponent NetMasters. Jsou zde popsßny:

• TNMPOP3 (v jednotce NMPop3)
• TNMSMTP (v jednotce NMSmtp)
• TNMUUProcessor
• TNMStrm (v jednotce NMSTRM)
• TNMStrmServ (v jednotce NMSTRM)
• TNMUDP (v jednotce NMUDP)
• THTML

Jednotka NMPop3

• TMailMessage
• TSummary

T°φda TMailMessage

T°φda TSummary

Typ TListEvent

Komponenta TNMPOP3

Komponenta mß nßsledujφcφ metody:

function UniqueID(MailNumber: integer): string;
Metoda vracφ identifikaci zprßvy pro zprßvu specifikovanou parametrem (Φφslo zprßvy; m∙╛e nab²vat hodnot od 1 do hodnoty MailCount).

procedure DeleteMailMessage(MailNumber: integer);
Metoda ru╣φ zprßvu na mail serveru specifikovanou parametrem (Φφslo zprßvy). V p°φpad∞ ·sp∞chu vznikß OnSuccess a v p°φpad∞ ne·sp∞chu OnFailure. Zru╣enΘ zprßvy nejsou skuteΦn∞ zru╣eny do odpojenφ. Metodou Reset obnovφme v╣echny zru╣enΘ zprßvy v pr∙b∞hu souΦasnΘho sezenφ.

procedure GetMailMessage(MailNumber: integer);
Metoda zφskßvß mail zprßvu urΦenou parametrem (Φφslo zprßvy) a uklßdß jejφ data do vlastnosti MailMessage. Pokud nastane chyba, pak je generovßna v²jimka. Pokud nenφ z°φzeno p°ipojenφ, pak nastßvß OnConnectionRequired. P°i zahßjenφ zφskßvßnφ zprßvy vznikß udßlost OnRetrieveStart a p°i dokonΦenφ zφskßvßnφ udßlost OnRetrieveEnd. Jestli╛e zprßva je zφskßna ·sp∞╣n∞, pak vznikß OnSuccess. Kdy╛ DeleteOnRead je nastaveno na true, pak volßnφ GetMailMessage takΘ oznaΦuje zφskanou zprßvu jako zru╣enou.

procedure GetSummary(MailNumber: integer);
Metoda zφskßvß souhrn zprßvy pro zprßvu specifikovanou parametrem (Φφslo zprßvy) a uklßdß souhrn do vlastnosti Summary. Pokud nastane chyba, pak je generovßna v²jimka. Pokud nenφ z°φzeno p°ipojenφ, pak nastßvß OnConnectionRequired. P°i zahßjenφ zφskßvßnφ souhrnu zprßvy vznikß udßlost OnRetrieveStart a p°i dokonΦenφ zφskßvßnφ udßlost OnRetrieveEnd. Jestli╛e souhrn zprßvy je zφskßn ·sp∞╣n∞, pak vznikß OnSuccess.

procedure List;
Metoda zφskßvß seznam Φφsel zprßv a jejich velikosti. Pro ka╛dou zprßvu v seznamu vznikß udßlost OnList (Φφslo zprßvy a velikost jsou p°edßny jako parametry). Pokud nastane chyba, pak je generovßna v²jimka. Pokud nenφ z°φzeno p°ipojenφ, pak nastßvß OnConnectionRequired.

procedure Reset;
Metoda odvolßvß zru╣enφ v╣ech zprßv oznaΦen²ch k zru╣enφ metodou DeleteMailMessage nebo metodou GetMailMessage s DeleteOnRead nastaven²m na true v pr∙b∞hu souΦasnΘho sezenφ. P°i chyb∞ je generovßna v²jimka. Pokud nenφ z°φzeno p°ipojenφ, pak nastßvß OnConnectionRequired. V p°φpad∞ ·sp∞chu vznikß udßlost OnReset.

Komponenta mß nßsledujφcφ udßlosti:

property OnAuthenticationFailed: THandlerEvent;
Udßlost nastßvß, kdy╛ POP3 server vy╛aduje identifikaci u╛ivatele a heslo a je poskytnuta chybnß dvojice t∞chto informacφ. Pokud Handled je nastaveno na true, pak pokus o p°ipojenφ je zopakovßn. Je-li Handled nastaveno na false, pak je generovßna v²jimka a p°ipojenφ je zru╣eno.

property OnAuthenticationNeeded: THandlerEvent;
Udßlost nastßvß, kdy╛ je po╛adovßna identifikace u╛ivatele a heslo a n∞co z toho nenφ poskytnuto. Pokud Handled je nastaveno na true, pak pokus o p°ipojenφ je zopakovßn. Je-li Handled nastaveno na false, pak je generovßna v²jimka.

property OnFailure: TNotifyEvent;
Udßlost vznikß p°i ne·sp∞chu operace (zru╣enφ mail zprßvy nebo zφskßvßnφ identifikace zprßvy).

property OnList: TListEvent;
Udßlost nastßvß s p°edßvßnφm velikosti a Φφsla zprßvy pro ka╛dou zprßvu p°i volßnφ metody List. Parametr Msg je identifikace zprßvy, kterou p°edßvßme metodßm typu GetMailMessage nebo DeleteMailMessage. Parametr Size je velikost zprßvy ve slabikßch.

property OnReset: TNotifyEvent;
Udßlost nastßvß po ·sp∞╣nΘm volßnφ metody Reset. Tato udßlost oznamuje, ╛e v╣echny zprßvy oznaΦenΘ jako zru╣enΘ, ji╛ takto oznaΦeny nejsou.

property OnRetrieveEnd: TNotifyEvent;
Udßlost nastßvß, kdy╛ mail zprßva nebo sumß° zprßvy je kompletn∞ zφskßn.

property OnRetrieveStart: TNotifyEvent;
Udßlost nastßvß, kdy╛ je zahßjeno zφskßvßnφ zprßvy.

property OnSuccess: TNotifyEvent;
Udßlost nastßvß, kdy╛ zprßva je ·sp∞╣n∞ oznaΦena jako zru╣enß, metodou DeleteMailMessage.

Jednotka NMSmtp

• TFileItem
• THeaderInComplete
• TMailListReturn
• TRecipientNotFound
• TSubType

T°φda TPostMessage

Typ TFileItem

Typ THeaderInComplete

Typ TMailListReturn

Typ TRecipientNotFound

Typ TSubType

• mtPlain - hol² text
• mtEnriched - Rich Text Format
• mtSgml - dokument SGML (Standard Generalized Markup Language)
• mtTabSeperated - text odd∞lovan² tabulßtorem
• mtHTML - dokument HTML (Hyper Text Markup Language)

Komponenta TNMSMTP

Komponenta mß nßsledujφcφ metody:

function ExpandList(MailList: string): boolean;
Metoda je pou╛φvßna k zφskßnφ Φlen∙ po╣tovnφho seznamu na SMTP serveru. Parametr specifikuje seznam k zφskßnφ jmen nebo adres. Kdy╛ adresy jsou vrßceny z hostitele SMTP, pak vznikß udßlost OnMailListReturn.

function ExtractAddress(TotalAddress: string): string;
Metoda extrahuje e-mail adresu z °et∞zce. Je obvykle pou╛φvßna v internφm zpracovßnφ, ale je ve°ejnß a m∙╛e b²t pou╛φvßna kdekoliv. Parametr specifikuje rozklßdan² °et∞zec. Tato funkce p°ebφrß °et∞zec formßtovan² nßsledujφcφm zp∙sobem:
Persons Name <email@host.ext>
Persons Name:email@host.ext
Metoda nevy╛aduje p°ipojenφ na hostitele SMTP.

function Verify(UserName: string): boolean;
Metoda se pou╛φvß k ov∞°enφ existence u╛ivatele na hostiteli SMTP. Parametr specifikuje u╛ivatele k ov∞°enφ. N∞kterΘ hostitelΘ po╛adujφ pouze jmΘno u╛ivatele (jmΘno p°ed @ v adrese), zatφmco n∞kte°φ jinφ hostitelΘ po╛adujφ celou adresu k ov∞°enφ. Pokud u╛ivatel je nalezen, pak je vrßceno true, jinak je vraceno false.

procedure ClearParameters;
Metoda vyprazd≥uje obsah vlastnosti PostMessage. Polo╛ky ToAddress, ToCarbonCopy, ToBlindCarbonCopy a Attachments jsou vyprßzdn∞ny. K vyprßzdn∞nφ polo╛ky Body volßme PostMessage->Body->Clear(). Metoda je volßna automaticky po ka╛dΘm volßnφ SendMail, pokud vlastnost ClearParams je nastavena na true.

procedure SendMail;
Metoda odesφlß e-mail zprßvu definovanou vlastnostφ PostMessage. Pokud ClearParams je nastavena na true, pak p°i odeslßnφ zprßvy je volßna metoda ClearParameters. Bezprost°edn∞ p°ed odeslßnφm zprßvy vznikß OnSendStart. Jestli╛e zprßva je ·sp∞╣n∞ odeslßna, pak vznikß OnSuccess a p°i ne·sp∞chu vznikß OnFailureEvent.

Komponenta mß tyto udßlosti:

property OnAuthenticationFailed: THandlerEvent;
Udßlost nastßvß p°i pokusu klienta p°ipojit se ke vzdßlenΘmu hostiteli p°i zadßnφ chybnΘ identifikace nebo chybnΘho hesla. Pokud parametr Handled je nastaven na true, pak je zopakovßn pokus o autentizaci. Jestli╛e tento druh² pokus je stßle ne·sp∞╣n², pak je generovßna v²jimka. Pokud Handled je nastaven na false (implicitn∞), pak je generovßna v²jimka a p°ipojenφ je ne·sp∞╣nΘ.

property OnFailure: TNotifyEvent;
Udßlost nastßvß, kdy╛ odchßzejφcφ e-mail zprßva nenφ odeslßna ·sp∞╣n∞.

property OnSendStart: TNotifyEvent;
Udßlost nastßvß bezprost°edn∞ p°ed odeslßnφm e-mail zprßvy. Je to poslednφ mo╛nost modifikovat odchßzejφcφ zprßvu.

property OnSuccess: TNotifyEvent;
Udßlost nastßvß p°i ·sp∞╣nΘm odeslßnφ e-mail zprßvy.

property OnAttachmentNotFound: TFileItem;
Udßlost nastßvß, kdy╛ soubor p°ipojen² k odchßzejφcφ e-mail zprßv∞ nenφ nalezen. Parametr TFileItem m∙╛e identifikovat chyb∞jφcφ soubor.

property OnEncodeEnd: TFileItem;
Udßlost nastßvß, kdy╛ soubor p°ipojen² k odchßzejφcφ e-mail zprßv∞ je kompletn∞ zak≤dovßn pro p°enos. Parametr TFileItem urΦuje jmΘno prßv∞ zak≤dovanΘho souboru.

property OnEncodeStart: TFileItem;
Udßlost nastßvß, kdy╛ p°ipojen² soubor bude k≤dovßn pro p°enos. Parametr TFileItem urΦuje jmΘno prßv∞ k≤dovanΘho souboru.

property OnHeaderIncomplete: THeaderInComplete;
Udßlost nastßvß, kdy╛ n∞kterß z nßsledujφcφch vlastnostφ PostMessage je prßzdnß:

• Vlastnost FromAddress.
• N∞kterß z vlastnostφ ToAddress, ToCarbonCopy nebo ToBlindCarbonCopy.

• hiFromAddress - nenφ zadßno FromAddress
• hiToAddress - nenφ zadßno n∞co z ToAddress, ToCarbonCopy, or ToBlindCarbonCopy

property OnMailListReturn: TMailListReturn;
Udßlost nastßvß, kdy╛ metoda ExpandList zφskßvß e-mail addresy. Adresy jsou p°edßny jako parametr.

property OnRecipientNotFound: TRecipientNotFound;
Udßlost nastßvß, kdy╛ n∞kter² z adresßt∙ specifikovan²ch ve vlastnosti PostMessage (ToAddress, ToCarbonCopy nebo ToBlindCarbonCopy) nenφ nalezen. Nenalezenß adresa je p°edßna jako parametr.

Komponenta TNMUUProcessor

Komponenta mß nßsledujφcφ metody:

procedure Decode;
Metoda dek≤duje proud dat specifikovan² vlastnostφ InputStream, pomocφ metody urΦenΘ vlastnostφ Method a uklßdß data do proudu specifikovanΘho vlastnostφ OutputStream.

procedure Encode;
Metoda k≤duje proud dat specifikovan² vlastnostφ InputStream, pomocφ metody urΦenΘ vlastnostφ Method a uklßdß data do proudu specifikovanΘho vlastnostφ OutputStream.

Komponenta mß udßlosti:

procedure OnBeginDecode: TNotifyEvent;
Udßlost nastßvß p°i zahßjenφ dek≤dovßnφ.

procedure OnBeginEncode: TNotifyEvent;
Udßlost nastßvß p°i zahßjenφ k≤dovßnφ.

procedure OnEndDecode: TNotifyEvent;
Udßlost nastßvß p°i dokonΦenφ dekodovßnφ.

procedure OnEndEncode: TNotifyEvent;
Udßlost nastßvß p°i dokonΦenφ k≤dovßnφ.

Jednotka NMSTRM

Typ TStrmEvent

Komponenta TNMStrm

metodu

function PostIt(const sStrm: TStream): string;
kterß odesφlß proud urΦen² parametrem na vzdßlenΘho hostitele specifikovanΘho vlastnostφ Host. Parametr je TStream (nebo jeho potomek), kter² obsahuje odesφlanß data. Vrßcenß hodnota je odpov∞∩ OK od serveru, pokud proud byl p°ijat sprßvn∞. Metoda zpracovßvß v╣echna p°ipojenφ/odpojenφ na vzdßlenΘho hostitele. Kdy╛ zprßva byla odeslßna, pak nastßvß udßlost OnMessageSent.

a udßlost

property OnMessageSent: TNotifyEvent;
Udßlost vznikß, kdy╛ metoda PostIt byla provedena ·sp∞╣n∞.

Komponenta TNMStrmServ

property OnMSG: TStrmEvent;
Udßlost nastßvß, kdy╛ proud je p°ijat. Parametr sFrom specifikuje jmΘno odesilatele proudu a parametr strm je p°ijat² proud. Data z proudu v parametru strm musφme p°eΦφst p°ed ukonΦenφm udßlosti, jinak jsou ztracena.

Jednotka NMUDP

• TBuffInvalid
• THandlerEvent
• TOnErrorEvent
• TOnReceive
• TOnStatus
• TStreamInvalid

Typ TBuffInvalid

Typ THandlerEvent

Typ TOnErrorEvent

Typ TOnReceive

Typ TOnStatus

Typ TStreamInvalid

Komponenta TNMUDP

*Tato vlastnost m∙╛e b²t nastavovßna pouze b∞hem nßvrhu. Pokud komponenta je vytvß°ena dynamicky v na╣em k≤du (pomocφ metody Create), pak vlastnost LocalPort musφ b²t nastavena zde.

Komponenta mß nßsledujφcφ metody:

constructor Create(AOwner: TComponent); override;
Metoda alokuje pam∞╗ a vytvß°φ bezpeΦnou instanci komponenty TNMUDP.

destructor Destroy; override;
Ve svΘ aplikaci nevolßme metodu Destroy, musφme volat Free. Metoda Destroy uvol≥uje komponentu TNMUDP a jφ vlastn∞nΘ komponeny.

procedure ReadBuffer(var Buff: array of char; var length: integer);
Metoda Φte p°ichßzejφcφ UDP data do vyrovnßvacφ pam∞ti specifikovanΘ prvnφm parametrem. Druh² parametr urΦuje velikost vyrovnßvacφ pam∞ti.

procedure ReadStream(DataStream: TStream);
Metoda je pou╛φvßna pro Φtenφ UDP dat p°ijat²ch ze vzdßlenΘho poΦφtaΦe do proudu urΦenΘho parametrem (TStream nebo jeho potomek).

procedure SendBuffer(Buff: array of char; length: integer);
Metoda je urΦena pro odeslßnφ pole znak∙ na vzdßlenΘho hostitele. Znaky jsou ulo╛eny v poli urΦenΘm prvnφm parametrem a jejich poΦet je urΦen druh²m parametrem. Pokud pole neobsahuje data vznikß OnBufferInvalid.

procedure SendStream(DataStream: TStream);
Metoda je urΦena k odeslßnφ proudu dat urΦenΘho parametrem (TStream nebo jeho potomek) na vzdßlenΘho hostitele. Pokud proud neobsahuje data vznikß OnStreamInvalid.

Komponenta mß tyto udßlosti:

property OnBufferInvalid: TBuffInvalid;
Udßlost nastßvß, pokud vyrovnßvacφ pam∞╗ odesφlanß metodou SendBuffer neobsahuje data. Parametr Buff je odesφlanß vyrovnßvacφ pam∞╗ a parametr length je velikost vyrovnßvacφ pam∞ti. Tyto parametry mohou b²t v obsluze udßlosti modifikovßny tak, aby urΦovaly p°φpustnou vyrovnßvacφ pam∞╗. Po jejich modifikaci m∙╛eme nastavit parametr handled na true k op∞tovnΘmu pokusu o odeslßnφ dat. Pokud parametr handled je false (implicitn∞), je generovßna v²jimka.

property OnDataReceived: TOnReceive;
Udßlost nastßvß, kdy╛ data jsou p°ijata. Parametr NumberBytes specifikuje poΦet p°ijat²ch slabik, FromIP specifikuje IP adresu odesilatele a Port urΦuje port, kter² odeslal data.

property OnStatus: TOnStatus;
Udßlost vznikß, kdy╛ stav komponenty se zm∞nφ. Parametr status je souΦasn² stav komponenty.

property OnStreamInvalid: TStreamInvalid;
Udßlost nastßvß, pokud proud odeslan² metodou SendStream neobsahuje data. Parametr Stream je proud neobsahujφcφ data. M∙╛eme jej naplnit daty a parametr handled nastavit na true pro op∞tovnΘ odeslßnφ dat. Pokud parametr handled je false (implicitn∞), je generovßna v²jimka.

property OnDataSend: TNotifyEvent;
Udßlost nastßvß, kdy╛ data byla ·sp∞╣n∞ odeslßna (nenφ tφm ale zaji╣t∞no, ╛e data budou p°ijata).

property OnInvalidHost: THandlerEvent;
Udßlost nastßvß, kdy╛ vlastnost RemoteHost je chybnß. Pokud parametr handled je nastaven na true, pak data jsou odeslßna znova. Po druhΘm ne·sp∞chu je generovßna v²jimka. Jestli╛e handled je false pak je generovßna v²jimka.

Komponenta HTML

1. S komponentou TNMPOP3 se seznßmφme v nßsledujφcφ aplikaci. ZaΦneme v²voj novΘ aplikace a na formulß° umφstφme komponenty: 6x TEdit, TMemo, TCheckBox, 2x TButton a TNMPOP3. Komponenty majφ tento v²znam:
• Edit1 - Hostitel
• Edit2 - Identifikace u╛ivatele
• Edit3 - Heslo
• Edit4 - Cesta pro p°ipojenΘ soubory
• Edit5 - Od (osoba, kterß odeslala e-mail)
• Edit6 - Subjekt e-mail
• Memo1 - T∞lo zprßvy
• Button1 - P°ipojenφ/odpojenφ
• Button2 - Zφskßnφ mail zprßvy
• CheckBox1 - Zru╣enφ zprßvy po p°eΦtenφ
Obsluha stisku prvnφho tlaΦφtka je tvo°ena p°φkazy:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (NMPOP31->Connected)
    NMPOP31->Disconnect();
  else
    {
      NMPOP31->Host = Edit1->Text;
      NMPOP31->UserID = Edit2->Text;
      NMPOP31->Password = Edit3->Text;
      NMPOP31->DeleteOnRead = CheckBox1->Checked;
      NMPOP31->AttachFilePath = Edit4->Text;
      NMPOP31->Connect();
    }
}
Obsluhu udßlosti OnConnect komponenty NMPOP31 tvo°φ (je zji╣t∞n poΦet zprßv):
void __fastcall TForm1::NMPOP31Connect(TObject *Sender)
{
  if (NMPOP31->MailCount > 0)
    ShowMessage(IntToStr(NMPOP31->MailCount)+" messages in your mailbox");
  else
    ShowMessage("No messages waiting");
}
Obsluhu stisku druhΘho tlaΦφtka tvo°φ:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString S;
  int M;
  if (NMPOP31->MailCount > 0)
    {
      if (InputQuery("Retrieve an E-Mail message",
        "Which message? (1-"+IntToStr(NMPOP31->MailCount)+")", S))
        {
          M = StrToIntDef(S, -1);
          if ((M < 0) || (M > NMPOP31->MailCount))
            ShowMessage("Invalid message index");
          else
            NMPOP31->GetMailMessage(M);
        }
    }
  else
    ShowMessage("No Messages to Get");
}
Aplikace obsahuje je╣t∞ jednu obsluhu udßlosti:
void __fastcall TForm1::NMPOP31RetrieveEnd(TObject *Sender)
{
  Memo1->Text = NMPOP31->MailMessage->Body->Text;
  Edit6->Text = NMPOP31->MailMessage->Subject;
  Edit5->Text = NMPOP31->MailMessage->From;
}
Po p°ijmu zprßvy jsou jejφ informace zobrazeny. Aplikaci si prostudujte a zjist∞te jak pracuje.
2. Ji╛ hotovou aplikaci pou╛φvajφcφ komponentu TNMPOP3 nalezneme v adresß°i Program Files\Borland\CBuilder\Examples\Interner\Pop3. ProhlΘdn∞te si tuto aplikaci a sna╛te se pochopit, jak pracuje.
3. S komponentou TNMSMTP se seznßmφme v nßsledujφcφ aplikaci. ZaΦneme v²voj novΘ aplikace a na formulß° umφstφme 5x TMemo, 8x TEdit, TListBox, 3x TButton, TCheckBox, TNMSMTP, TRadioGroup a TOpenDialog. Komponenty majφ tento v²znam:
• Edit1 - Vlastnost Host
• Edit2 - Vlastnost UserID
• Edit3 - Vlastnost Date vlastnosti PostMessage
• Edit4 - Vlastnost FromAddress vlastnosti PostMessage
• Edit5 - Vlastnost FromName vlastnosti PostMessage
• Edit6 - Vlastnost LocalProgram vlastnosti PostMessage
• Edit7 - Vlastnost ReplyTo vlastnosti PostMessage
• Edit8 - Vlastnost Subject vlastnosti PostMessage
• Memo1 - Vlastnost ToAddress vlastnosti PostMessage
• Memo2 - Vlastnost ToBlindCarbonCopy vlastnosti PostMessage
• Memo3 - Vlastnost ToCarbonCopy vlastnosti PostMessage
• Memo4 - Vlastnost Body vlastnosti PostMessage
• Memo5 - StavovΘ okno
• ListBox1 - Vlastnost Attachments vlastnosti PostMessage
• Button1 - P°ipojenφ/odpojenφ
• Button2 - Ode╣li po╣tu
• Button3 - Vyprßzdni editaΦnφ ovladaΦe a parametry
• CheckBox1 - nastavenφ vlastnosti ClearParams
• OpenDialog1 - P°idßvßnφ soubor∙ p°ipojen²ch k e-mail
• RadioGroup1 - Specifikuje metodu k≤dovßnφ soubor∙ (p°idßme 2 prvky RadioGroupItem: MIME a UUEncode).
Obsluhy stisku tlaΦφtek jsou tvo°eny p°φkazy:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (NMSMTP1->Connected)
    NMSMTP1->Disconnect();
  else
    {
      NMSMTP1->Host = Edit1->Text;
      NMSMTP1->UserID = Edit2->Text;
      NMSMTP1->Connect();
    }
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  if (NMSMTP1->Connected)
    {
      NMSMTP1->ClearParams = CheckBox1->Checked;
      NMSMTP1->SubType = mtPlain;
      switch(RadioGroup1->ItemIndex)
        {
          case 0: NMSMTP1->EncodeType = uuMime;
          case 1: NMSMTP1->EncodeType = uuCode;
        }
      NMSMTP1->PostMessage->FromAddress = Edit4->Text;
      NMSMTP1->PostMessage->FromName = Edit5->Text;
      NMSMTP1->PostMessage->ToAddress->Text = Memo1->Text;
      NMSMTP1->PostMessage->ToCarbonCopy->Text = Memo3->Text;
      NMSMTP1->PostMessage->ToBlindCarbonCopy->Text = Memo2->Text;
      NMSMTP1->PostMessage->Body->Text = Memo4->Text;
      NMSMTP1->PostMessage->Attachments->Text = ListBox1->Items->Text;
      NMSMTP1->PostMessage->Subject = Edit8->Text;
      NMSMTP1->PostMessage->LocalProgram = Edit6->Text;
      NMSMTP1->PostMessage->Date = Edit3->Text;
      NMSMTP1->PostMessage->ReplyTo = Edit7->Text;
      NMSMTP1->SendMail();
    }
  else
    ShowMessage("You need to connect before you can send your message");
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  NMSMTP1->ClearParameters();
  Edit3->Clear();
  Edit4->Clear();
  Edit5->Clear();
  Edit6->Clear();
  Edit7->Clear();
  Edit8->Clear();
  Memo1->Clear();
  Memo2->Clear();
  Memo3->Clear();
  Memo4->Clear();
  Memo5->Clear();
  ListBox1->Clear();
}
Obsluha udßlosti OnKeyDown komponenty ListBox1 je tvo°ena p°φkazy (p°idßvßnφ a ru╣enφ p°i°azen²ch soubor∙):
void __fastcall TForm1::ListBox1KeyDown(TObject *Sender,
   WORD &Key, TShiftState Shift)
{
  if (Key == VK_INSERT)
    if (OpenDialog1->Execute())
      ListBox1->Items->Add(OpenDialog1->FileName);
  if (Key == VK_DELETE)
    ListBox1->Items->Delete(ListBox1->ItemIndex);
}
Nßsleduje n∞kolik obsluh udßlostφ komponenty TNMSMTP:
void __fastcall TForm1::NMSMTP1AttachmentNotFound(AnsiString Filename)
{
  Memo5->Lines->Add("File attachment "+Filename+" not found");
}
void __fastcall TForm1::NMSMTP1AuthenticationFailed(bool &Handled)
{
  AnsiString S;
  S = NMSMTP1->UserID;
  if (InputQuery("Authentication Failed", "Invalid User ID. New User ID: ", S))
    {
      NMSMTP1->UserID = S;
      Handled = TRUE;
    }
}
void __fastcall TForm1::NMSMTP1Connect(TObject *Sender)
{
  Memo5->Lines->Add("Connected");
}
void __fastcall TForm1::NMSMTP1SendStart(TObject *Sender)
{
  Memo5->Lines->Add("Sending Message");
}
void __fastcall TForm1::NMSMTP1EncodeStart(AnsiString Filename)
{
  Memo5->Lines->Add("Encoding "+Filename);
}
void __fastcall TForm1::NMSMTP1EncodeEnd(AnsiString Filename)
{
  Memo5->Lines->Add(Filename+" encoded");
}
void __fastcall TForm1::NMSMTP1Failure(TObject *Sender)
{
  Memo5->Lines->Add("Message delivery failure");
}
void __fastcall TForm1::NMSMTP1Success(TObject *Sender)
{
  Memo5->Lines->Add("Message sent successfully");
}
void __fastcall TForm1::NMSMTP1HeaderIncomplete(bool &handled, int hiType)
{
  AnsiString S;
  switch(hiType)
    {
      case hiFromAddress:
        {
          if(InputQuery("Missing From Address","Enter From Address:",S))
            {
              NMSMTP1->PostMessage->FromAddress = S;
              handled = TRUE;
            }
        }
      case hiToAddress:
        {
          if (InputQuery("Missing To Address", "Enter To Address: ", S))
            {
              NMSMTP1->PostMessage->ToAddress->Text = S;
              handled = TRUE;
            }
        }
    }
}
void __fastcall TForm1::NMSMTP1RecipientNotFound(AnsiString Recipient)
{
  Memo5->Lines->Add("Recipient "+Recipient+" not found");
}
Po spu╣t∞nφ aplikace zadßme po╛adovanΘ informace do editaΦnφch ovladaΦ∙ a ovladaΦ∙ Memo. Pro polo╛ky ToAddress, ToCarbonCopy a TBlindCarbonCopy m∙╛e b²t zadßno vφce adres. Stiskem prvnφho tlaΦφtka se p°ipojφme a stiskem druhΘho tlaΦφtka zprßvu ode╣leme. Druh²m stiskem prvnφho tlaΦφtka se op∞t odpojφme.
4. Ji╛ hotovou aplikaci pou╛φvajφcφ komponentu TNMSMTP nalezneme v adresß°i Program Files\Borland\CBuilder\Examples\Interner\Smtp. ProhlΘdn∞te si tuto aplikaci a sna╛te se pochopit, jak pracuje.
5. Ji╛ hotovou aplikaci pou╛φvajφcφ komponentu TNMStrm a komponentu TNMStrmServ nalezneme v adresß°i Program Files\Borland\CBuilder\Examples\Interner\stream. ProhlΘdn∞te si tuto aplikaci a sna╛te se pochopit, jak pracuje.
6. Ji╛ hotovou aplikaci pou╛φvajφcφ komponentu TNMUDP nalezneme v adresß°i Program Files\Borland\CBuilder\Examples\Interner\Udp. ProhlΘdn∞te si tuto aplikaci a sna╛te se pochopit, jak pracuje.

13. Komponenty NetMasters III