БОЕВЫЕ РОБОТЫ:

Delphi
Òâîÿ ñîáñòâåííàÿ ïî÷òîâàÿ ìûøêà
Ìíå ïî÷åìó-òî ðåãóëÿðíî ïðèõîäÿò ïèñüìà ñ ïðîñüáîé îáúÿñíèòü, êàê îòïðàâèòü
ïèñüìî òàê, ÷òîáû îíî íå áûëî çàìåòíî þçåðó ß ïîíèìàþ, ÷òî ïðîáëåìà
êàñàåòñÿ ïðàêòè÷åñêè ëþáîãî ïðîäâèíóòîãî ïåðöà, íî íå âèæó â ýòîì íè÷åãî
ñëîæíîãî Â Delphi ïîëíî êîìïîíåíòîâ, êîòîðûå ëåãêî ìîãóò âûïîëíèòü ýòó
çàäà÷ó Îòïðàâëåííûå ñ ïîìîùüþ ýòèõ êîìïîíåíòîâ ïèñüìà íå ñîõðàíÿþòñÿ â
ïî÷òîâîì êëèåíòå, è òû áåç ïðîáëåì ìîæåøü ñäåëàòü îòïðàâêó íåâèäèìîé
Horrific aka Ôëåíîâ Ìèõàèë smirnandr@mailru wwwcydsoftcom/vr-online
Ïîëó÷àåòñÿ, ÷òî åñëè ÿ ïðîñòî îïèøó ïðèìåð îòïðàâêè ïèñüìà, ýòî áóäåò ñëèøêîì
ïðîñòî Èìåííî ïîýòîìó ÿ îïèøó íå ïðîñòåéøèé ñïîñîá, à ñàìûé ýôôåêòèâíûé è
èíòåðåñíûé (íà ìîé âçãëÿä) Ëè÷íî ÿ ëþáëþ îòïðàâëÿòü ïèñüìà ÷åðåç áèáëèîòåêó
FreeInternet Ýòà áèáëèîòåêà àáñîëþòíî áåñïëàòíà, è ïîñòàâëÿåòñÿ â èñõîäíèêàõ
Ýòè èñõîäíèêè òû ñìîæåøü íàéòè íà äèñêå ][ èëè íà ìîåì ñàéòå ÷åðåç íåñêîëüêî
äíåé ïîñëå âûõîäà ýòîãî íîìåðà
Âíóòðåííîñòè áèáëèîòåêè
Óñòàíàâëèâàåòñÿ áèáëèîòåêà î÷åíü ïðîñòî Òåáå íóæíî òîëüêî îòêðûòü ñ ïîìîùüþ
Delphi ôàéë FreeInterdpk è â ïîÿâèâøåìñÿ îêíå íàæàòü êíîïêó Install (ñìîòðè íóëåâîé
ñêðèí) Áèáëèîòåêà ñòàâèòñÿ êàê ïî ìàñëó íà Delphi5 è 6 Â ñåäüìîé âåðñèè ÿ
ïîêà åå íå òåñòèðîâàë
Çàãëÿíóâ â èñõîäíèêè áèáëèîòåêè, òû ñðàçó æå íàòêíåøüñÿ íà ïðèìåð ãîòîâîãî ïî÷òîâîãî
êëèåíòà Ïîñìîòðè íà ïåðâûé ñêðèí, è óâèäèøü ãëàâíîå îêíî ýòîãî ïðèìåðà
Ñêðèí ïåðâûé Ãëàâíîå îêíî ïî÷òîâèêà
Êàê òîëüêî ñêîíñòðóèðóåøü ýòè ôîðìû, ìîæåøü ïåðåõîäèòü ê êîäèíãó Ïî íàæàòèþ
êíîïêè «Îòïðàâèòü» ïèøåì ñëåäóþùèé êîä:
procedure TForm1SendButtonClick(Sender: TObject);
var
i:Integer;
begin
//Ïðîâåðêà íàëè÷èÿ èíôîðìàöèè î ïî÷òîâîì ñåðâåðå
if SMTPOptFormSMTPEditText=’’ then
SMTPOptFormShowModal;
Ñêðèí íóëåâîé Óñòàíîâêà ïàêåòà
Ñêàæó ÷åñòíî, ïðèìåð ÿâíî íå çàêîí÷åííûé è òðåáóåò äîðàáîòêè äàæå äëÿ òîãî, ÷òî
óæå åñòü Íî, ïî êðàéíåé ìåðå, ýòî îòëè÷íàÿ áàçà äëÿ ïîíèìàíèÿ òîãî, êàê ñàìîìó
ñäåëàòü íå÷òî ïîäîáíîå ëåòó÷åé ìûøêå The Bat
Íåñìîòðÿ íà ïðîñòîòó, ïðèìåð äîñòàòî÷íî êðàñèâûé è ðàáî÷èé Âçãëÿíóâ òîëüêî íà
âíåøíèé âèä àäðåñíîé êíèãè, ìîæíî ïîíÿòü, ÷òî àâòîð ñòàðàëñÿ íå çà äåíüãè, à äëÿ
ñåáÿ ëþáèìîãî :) Âñå ïðîäóìàíî è êðàñèâî ðåàëèçîâàíî Äàæå íå âåðèòñÿ, ÷òî âñå
ýòî áåñïëàòíî Òåáå îñòàåòñÿ òîëüêî íåìíîãî èçìåíèòü âíåøíèé âèä ïðèìåðà, è,
âîçìîæíî, òû ñòàíåøü ñëåäóþùèì ìûøåâëàäåëüöåì
Ïðîñòîé ïðèìåð
ß íå ñîáèðàþñü ðàñïèñûâàòü âåñü ïðèìåð, êîòîðûé òû è ñàì óâèäèøü Ìîÿ çàäà÷à -
ïîêàçàòü, êàê ñ ïîìîùüþ òàêîé ìîùíîé áèáëèîòåêè îòïðàâèòü ïðîñòåíüêîå ïèñüìî ñ
ïðèêðåïëåííûì ôàéëîì Äëÿ ýòîãî íàì ïîíàäîáèòñÿ çàïóñòèòü Delphi è ñîçäàòü ïðîñòîé
ïðîåêò Application Ãëàâíóþ ôîðìó îôîðìëÿåì â ñîîòâåòñòâèè ñî ñêðèíîì òðè
Òàê êàê ÿ ïèøó ïðîãðàììó-ïðèìåð, íàì íàäî èìåòü âîçìîæíîñòü ââîäèòü äàííûå î ïî÷òîâîì
ÿùèêå è SMTP ñåðâåðå, ÷åðåç êîòîðûé áóäåò îòïðàâëÿòüñÿ ïèñüìî Äëÿ ýòîãî ñîçäàäèì
åùå îäíó ôîðìó, âíåøíèé âèä êîòîðîé äîëæåí áûòü ïîõîæ íà ñêðèí ÷åòâåðòûé
//Çàïîëíÿþ ïàðàìåòðû ïèñüìà
SendMail1FROM_Address:=SMTPOptFormSendFromEditText;
SendMail1SMTP_Server:=SMTPOptFormSMTPEditText;
SendMail1Port:=StrToIntDef(SMTPOptFormPortEditText,25);
SendMail1TO_Address:=SendToEditText;
SendMail1Subject:=SubEditText;
//Çàïîëíÿþ ñïèñîê àäðåñàòîâ
SendMail1ListccClear;
SendMail1ListccAdd(CCEditText);
//Âíîøó ñàì òåêñò ïèñüìà
SendMail1MailTextClear;
for i:=0 to TextEditLinesCount-1 do
SendMail1MailTextAdd(TextEditLinesStrings[i]);
//Ïðèêðåïëÿþ ôàéëû
SendMail1AttachmentsClear;
SendMail1AttachmentsAdd(‘’);
//Îòïðàâêà ïèñüìà
SendMail1Action:=Send_Mail;
end;
85