Untitled - Xakep Online

ÎÑÅË ÍÀ ÑËÓÆÁÅ ËÞÄÅÉ
ÑÒÐ. 90
ÊÎÄÈÌ ÑÎÊÅÒÛ ÍÀ MFC
Ïèøåì áåñêîíå÷íûå
ñåòåâûå êðåñòèêè-íîëèêè
ïðè ïîìîùè MFC êëàññà
CSocket.
ÑÒÐ. 94
ÏÀÐÑÈÌ ÏÐÎÑÒÎÐÛ XML
Ïðîãðàììèðóåì ñâîé
ìîäóëü äëÿ ïåðåâîäà
XML äàííûõ â MySQL è
îáðàòíî.
navNoReadFromCache - íå èñïîëüçîâàòü
÷òåíèå èç êýøà.
navNoWriteToCache - íå çàïèñûâàòü
íè÷åãî â êýø.
navAllowAutosearch - ðàçðåøàòü àâòîïîèñê,
åñëè íè÷åãî íå íàéäåíî (ïîìíèøü ïåðåáîð
.com, .mil, .edu è âñå îñòàëüíîå Îõ, êàê
ýòî ìíîãèõ áåñèò :)).
Õîòÿ, åñëè òåáå íàäî ïåðåäàòü íà ñåðâàê,
íàïðèìåð, ñîäåðæèìîå ôîðìû ñ ïîìîùüþ
POST, òåáå ïðèãîäèòñÿ è PostData.
Íàïðèìåð, âûçîâ WebBrowser1.Navigate
('www.xakep.ru', navNoHistory); ïðèâåäåò ê
òîìó, ÷òî íè îäíà æèâàÿ äóøà íå óçíàåò î
òâîåì ïîñåùåíèè ñàéòà www.xakep.ru â ðàáî÷åå
âðåìÿ ;).
Òåïåðü ñàìîå âðåìÿ âçãëÿíóòü íà toolbar.
Òàì íåò íè÷åãî ñëîæíîãî, îíêëèêè áîëüøèíñòâà
êíîïîê òû íàéäåøü â òàáëèöå.
OLECMDEXECOPT_DONTPROMP-
TUSER - âûïîëíÿòü, íå ñïðàøèâàÿ þçåðà.
OLECMDEXECOPT_SHOWHELP - ïðîñòî
âûâåñòè õåëï î êîìàíäå.
Îñòàëüíûå ïàðàìåòðû îñîáîãî çíà÷åíèÿ
íå èìåþò, ïðàâäà, íàäî ïîìíèòü, ÷òî íå âñå
êîìàíäû ìîãóò ïîääåðæèâàòüñÿ. ×òîáû ïîëó÷èòü
ñïèñîê äîñòóïíûõ, âîñïîëüçóéñÿ ìåòîäîì
QueryStatusWB.
Äàëåå ÿ ðåøèë ñîçäàòü ãëàâíîå ìåíþ äëÿ
ñâîåãî áðàóçåðà. Ñ ïîìîùüþ TMainMenu ÿ
ñîçäàë "ôàéë" è "ñåðâèñ". Â ìåíþ "ôàéë" èççà
ìîåé ëåíè ïîìåñòèëîñü òîëüêî "ñîõðàíèòü
êàê" è "àâòîíîìíî", ïîýòîìó äàâàé âûææåì â
îáðàáîò÷èêàõ èõ îíêëèêîâ ñîîòâåòñòâåííî:
WebBrowser1.ExecWB(OLECMDID_SAVEAS,
OLECMDEXECOPT_DODEFAULT); - ñîõðàíåíèå
Ðèñ. 1. Ïðèìèòèâíåé íåêóäà...
ÑÏÈÑÎÊ ÊÍÎÏÎÊ
Êíîïêà "Íàçàä" - îáðàáîò÷èê OnClick - WebBrowser1.GoBack;
Êíîïêà "Âïåðåä" - îáðàáîò÷èê OnClick -
WebBrowser1.GoForward;
Êíîïêà "Ñòîï" - îáðàáîò÷èê OnClick - WebBrowser1.Stop;
Êíîïêà "Refresh" - îáðàáîò÷èê OnClick - WebBrowser1.Refresh;
Êíîïêà "Home" - îáðàáîò÷èê OnClick - WebBrowser1.GoHome;
Âîò, ñîáñòâåííî, è âñå èõ êîðîòêèå
OnClick'è. Òàê èì è íàäî. À ìû ñåé÷àñ çàéìåìñÿ
áîëåå èíòåðåñíûìè âåùàìè: ïå÷àòü,
ïîèñê è ñîõðàíåíèå ñòðàíèöû. Ñàìûé ïðîñòîé
ñïîñîá ïå÷àòè (îí æå OnClick êíîïêè
"Print") âûãëÿäèò òàê:
IF N4.Checked then webbrowser1.offline:= false else
webbrowser1.offline:= true; - ïîäïóíêò "Àâòîíîìíî"
Âîò, ñîáñòâåííî, è âñå, ÷òî êàñàåòñÿ ñîçäàíèÿ
ñâîåãî îñëèêà. Îí óæå óìååò äîâîëüíî
ìíîãîå, à ïîñëå ïðî÷òåíèÿ ñòàíäàðòíîãî
äåëüôèéñêîãî õåëïà è MSDN òåáå îòêðîþòñÿ
âñå âîçìîæíîñòè äëÿ ñîçäàíèÿ ñâîåãî
opera-killer'a.
Ðèñ. 2. Íó âûëèòûé ïàïî÷êà :)
ÌÎÄÅÐÍÈÇÈÐÓÅÌ ÈÍÒÅÐÔÅÉÑ
Ñóùåñòâóåò ëèøü íåáîëüøîå êîëè÷åñòâî êîìïîíåíòîâ,
çàòî÷åííûõ ïîä óïðàâëåíèå IE. Â
ïðèíöèïå, ýòî ïðàâèëüíî - äîâîëüíî ãëóïî ïèñàòü
êîìïîíåíòû, ïîìîãàþùèå ïðîãðàììèñòó
íàñèëîâàòü ÷óæóþ ïðîãó. Òàêèå âåùè íàäî
óìåòü äåëàòü ñàìîìó. Íåñìîòðÿ íà ýòî, íà
äèñêå òû ìîæåøü íàéòè ôàéë "IE5tools.pas",
ñîäåðæàùèé â ñåáå î÷åíü ìíîãî ïîëåçíûõ
ôóíêöèé äëÿ ðàáîòû ñ IE. Çàãëÿíóâ â åãî íåäðà,
òû óçíàåøü, êàêèå êëþ÷è ðååñòðà íàäî ðåäàêòèðîâàòü
è êàêèå êîìàíäû îòäàâàòü, ÷òîáû
äîáèòüñÿ íóæíîãî ðåçóëüòàòà. À ïîêà ÿ ïîçíàêîìëþ
òåáÿ ñ íåêîòîðûìè ôóíêöèÿìè:
WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT);
Ìåòîä "ExecWB" âîîáùå äîâîëüíî íåïëîõàÿ
âåùü. Â ñóùíîñòè, îí ïðåäñòàâëÿåò ñîáîé
îäèí èç ñïîñîáîâ îáðàùåíèÿ ê èíòåðôåéñó
IOleCommandTarget (îá ýòîì ïîäðîáíåå
òû ìîæåøü ïî÷èòàòü íà msdn):
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXE-
COPT; var pvaIn: OleVariant; var pvaOut: OleVariant); overload;
Ïðî÷òåíèå ýòîé ñòàòüè âïîëíå
ìîæåò ïðåâðàòèòü òåáÿ â çëîáíîãî
îôèñíîãî òèðàíà :).
Çäåñü cmdID - êîìàíäà. Âîò ÷òî îíà ìîæåò
äåëàòü:
OLECMDID_SAVEAS - âûçûâàåò äèàëîã
"ñîõðàíèòü êàê".
OLECMDID_PRINTPREVIEW - âûçûâàåò
ïðåäïðîñìîòð ïåðåä ïå÷àòüþ.
OLECMDID_FIND - îòêðûâàåò ñòàíäàðòíûé
âèíäîâûé äèàëîã "ïîèñê ôàéëîâ è ïàïîê".
OLECMDID_PROPERTIES - âûâîäèò
"ñâîéñòâà ñòðàíèöû".
Cmdexecopt - ñïîñîá âûïîëíåíèÿ. Ìîæåò
ïðèíèìàòü çíà÷åíèÿ:
OLECMDEXECOPT_DODEFAULT - âûïîëíÿòü
ñ íàñòðîéêàìè ïî óìîë÷àíèþ.
OLECMDEXECOPT_PROMPTUSER - ñíà-
÷àëà ñïðàøèâàòü ó ïîëüçîâàòåëÿ, ïîòîì âûïîëíÿòü.
Íàïðèìåð, âûâåñòè äèàëîã "Save As...".
È âñå-òàêè îí âåðòèòñÿ!
87