Delphi арқылы WWW және Интернетте веб-қосымшаларды әзірлеу: HTML, CGI, серверлер және мәліметтер қоры

 Жоспар Интернет және WWW.................................................................................... WWW-мен жұмыс істеу үшін қажетті программалық қамсыздандыру... HTML-да документтерді сипаттау............................................................... Браузерлер...................................................................................................... Web динамикалық бет – CGI қосымшасы................................................... Web Delphi сервері......................................................................................... Web модулін құру................................................................................... Сервер қосымшасына мысал................................................................. CGI қосымшасын DLL ISAPI-да түрлендіру.............................................. HTML-да формалар мен кестелерді қолдану............................................. Қолданушының жауабын өңдеу............................................................ Клиент пен сервер арасындағы мәлімет алмасу.................................. HTML шаблондарын қолдану....................................................................... Интернеттгі мәліметтер қорымен жұмыс.................................................... Мәліметтер кестелерін қарау................................................................. Өзге жазбалармен жұмыс....................................................................... Мәліметтер жиынын редакторлау......................................................... Активті формаларды қолдану....................................................................... Активті форма құру.............................................................................. Активті формаларды қолдану............................................................. Интернетпен жұмыс жасаудың қосымша мүмкіндіктері.......................... 2 1. Интернет және Интернет локальды жүйелер және оған қосылған компьютерлерді біріктіретін World Wide Web (WWW) бүкіләлемдік өрмек – бұл HTTP протоколының мәні қарапайым WW қарапайым қарап URL - әмбебап ресурстар локаторы (universal resourse location) қолданылады. Ол келесі түрде бола алады: http:/www.borland.com. Егер HTTP протоколы негізінен транзакцияға негізделген: клиент мәліметтер 3 2. WWW–мен жұмыс істеу қамсыздандыру Сіздің қосымшаларыңызды Интернетке кірмей-ақ қарап шығу үшін дербес Content каталогында бірінші ретте сізге қажетті cgi-bin FrontPage-ті қою кезінде дербес серверге сіздің компьютероіңіздің аты Барлығын осы түрде орындаған болсаңыз, онда келесі кезекте 4 3. HTML -да документтерді сипаттау HTML(Hypertext Markup Language) тіліндегі Web беттер WWW-да HTML документ сипаттау “тегтардан” (операторлардан) құралады. Әрбір Мысал ретінде кез келген текстік редакторда документ құрыңыз: Бұл қалың шрифты Бұл документте тегіне HTML документінің Delphi 6-да HTML документтерін UCP Delphi-ден шықпай Күрделілеу мысал келтірейік: Delphi бойынша жаңа кітаптар туралы информация Бином басылымды жаңа кітаптар А.Я.Архангельский кітабы жарыққа шығуға дайындалу үстінде ’’Delphi 6-дағы программалау ’’ ’’123-45-67 телефоны арқылы звондаңыз Егер сізді баға туралы информация қызықтырса Документті қандай да бір каталогте сақтаңыз, мысалы, d:\test\HTML.html. 1-сурет Келтірілген тексте әлі де талқыланбаған тег қатары енгізілген. сызық түріндегі жолды береді. тегі келесі абзацты тегі басқа бір документке жүгіністі анықтайды. Жүгіністі қысқаша беруге болады. Мысалы жоғарыда келтірілген мысалды < a HREF= “HTML2.html”> Егер HTML2.html документі берілген жүгіністі құраған документ < a HREF= “/Test/HTML2.html”> Онда жүгінісі бар документ орналасқан диск сол күйінде Сервер адресін құрайтын URL-да Жұмыс кезінде Интернетпен байланыспай-ақ жүгіністерді тексеру үшін тағы информация о ценах цены цены договорные основной текст HTML2.html ретінде d:\tests каталогында сақтаңыз. Ал бірінші 4. Браузерлер Delphi көмегімен қарапайым браузер құрайық. Ол үшін жаңа WebBrowser1. Navigate (‘D:\TEST\HTML1. html ); Бұл оператор Navigate әдісімен көрсетілген файлды немесе URL Бұл тым жіңішке бағытталған браузер болып шығады. Басқа HTML(*.html,*.htm)файлдары барлық файлдар Қосымшаға Открыть бөлігі бар қосымшаны енгізіңіз де, тышқанды if (OpenDialog1.Execute) then WebBrowser1.Navigate(OpenDialog1.FileName); Өзіңіздің қосымшаңызды орындауға жіберіңіз. Сонда сіздің браузеріңіз бұған 2-сурет WebBrowser компонентінде құрылған қарапайым браузер Біздің браузер, әрине, қарапайым. Оны жүзеге асыру үшін 3-сурет Жүгілген Word документі бар браузер Егер сіз стандартты кеңейтіліммен басқа бір файлды ашсаңыз, Көп жағдайларда программаны жүзеге асырар алдында, браузердің диалогтік программасы шақырылады. Ал егер сіз сақтауды таңдасаңыз, онда стандартты диалогын көресіз. Бұл сізге өз компьютеріңізден Интернеттен 4-сурет Жүзеге асырылуға қажет операция туралы сұраныс терезесі Енді браузерімізге қосымша функцияларды қосайық. Формаға Cool Bar панелін қою. Cool Bar панеліне Tool Cool Bar панеліне Combo Box “түсіп қалатын Cool Bar панелі үшін оның Auto Size CBURL орналасқан екінші жол үшін ашылатын жол редакторының Панель формасына Status Bar жағдайын көшіріңіз. Оның Simple 5-сурет Web оқу бетінің жетілдірген браузері Unit Unit1; Interface … type Tform = class(TForm) … procedure FormCreste(Sender:TObject); procedure CBURLClick(Sender:TObject); procedure CBURLKeyDown(Sender:TObject; var Key: Word; Shift: TShiftState); procedure WebBrowser1BeforeNavigate2 (Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cansel:WordBool); procedure WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer); procedure MOpenClick(Sender: TObject); procedure TBBackClick(Sender: TObject); procedure TBForwardClick(Sender: TObject); private {Private declaration} procedure Load; public {Public declarations} end; var Form: Tform1; implementation {$R*.DFM} procedure TForm1.FormCreat(Sender: TObject); begin //URL CBURL.Text:= ’D:\TEST\HTML1.html’; Load; end; procedure TForm1.Load; begin //URL CBURL.Text WebBrowser1.Navigate(CBURL.Text); end; procedure TForm1.CBURLClick(Sender: TObject); begin //CBURL Load; end; procedure TForm1.CBURLKeyDown(Sender: TObject; var Key: Word; Shift:TShiftState); begin //Enter CBURL if Key = VK_Return then Load; end; procedure TForm1. WebBrowser1.Navigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cansel:WordBool); // var Index: Integer; begin //CBURL Index:=CBURL.Items.IndexOf(URL); if Index=-1 then begin CBURL.Items.Insert(0,URL); CBURL.Items.Index:=0; end else CBURL.Items.Index:=Index; //TBForward TBBack if CBURL.Items.Index>0 then TBForward.Enabled:=true else TBForward.Enabled:=false; if CBURL.Items.Index< CBURL.Items.Count-1 then TBBack.Enabled:=true else TBBack.Enabled:=false; end; procedure WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer); // if(Progress>0) then StatusBar1.SimpleText:=Format(‘Document %s: %d kbyte %d’, [WebBrowser1.LocationName, Progress div 1024, ProgressMax div 1024]); end; procedure MOpenClick(Sender: TObject); begin // if (OpenDialog1.Execute) then begin CBURL.Text:= OpenDialog1.FileName; Load; end; end; procedure TBBackClick(Sender: TObject); begin // CBURL.Text:= CBURL.Items[CBURL.Items.Index+1]; Load; end; procedure TBForwardClick(Sender: TObject); begin // CBURL.Text:= CBURL.Items[CBURL.Items.Index-1]; Load; end; end. Келтірілген кодты қарап шығайық. Оған Load функция – FromCreat функциясы OnCreat формалы оқиғаларды өңдеуші болып табылады. CBURL.Text:= ‘http://www.Borland.com/delphi/index.html’; FromCreat функциясында CBURL тізімінің текстін беруден кейін бұған WebBrowser1BeforeNavigate2 функциясы браузердің жаңа документке көшу алдында басталатын WebBrowser1BeforeNavigate2 өңдеушісінде ең алдымен CBURL тізіміндегі URL-дің Әрі қарай WebBrowser1BeforeNavigate2 өңдеушісінде мүмкін немесе мүмкін емес WebBrowser1ProgressChange функциясы OnProgressChange браузерінің оқиға өңдеушісі болып табылады. пайда болады. Жүктеу тоқтатылған кезде Progress мәні 1-ге MOpenClick функциясы Открыть менюіндегі шерту өңдеушісі болып табылады. TBBackClick және TBForward функциялары Назад және Вперед пернелерін Орындауға өзіңіздің қосымшаңызды жіберіңіз. Орындау кезінде оның көрінісі 5. Динамикалық Web беттері – CGI қосымшалары Cтатикалық Web беттер өзгертілінбейді, оларды алдын-ала кез келген Динамикалық бетті негізінен екі әдіспен құруға болады: динамикалық CGI (Common Gteway Interface)қосымшалары серверден стандартты негізу арқылы жіберілетін информацияны алады. Қолданушыға жіберідуі керек құрылатын HTML документі стандартты енгізуге қосымшасымен орындалады. Қарапайым жағдайда CGI қосымшасы консолды программа ретінде жүзеге Program PTime; {$APPTYPE CONSOLE} uses SusUtils; Var Days:array[1..7] of stings = (‘Воскресенье’, ‘Понедельник’, ‘Вторник’, ‘Четверг’, ‘Пятница’, ‘Суббота’); begin writeln(‘HTML’); writeln(‘ Здравствуйте! ’); writeln(‘Сегодня’+DateToStr(Date)+’(‘+Days[DayOfWeek(Date)]+’)