Web оқу бетінің жетілдірген браузері
Жоспар
Интернет және 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)]+’)
WWW–мен жұмыс істеу үшін қажетті программалық қамсыздандыру
Интернет және WWW
Құжаттың структурасы
Интернетте программалау технологиясын, Web builder бағдарламасын зерттеу және негізгі әдістерін үйрене отырып, «Дүниетану» деп аталатын оқу-танымдық сайт жасақтау
Қашықтықтан оқыту артықшылықтары
Гипермәтіндік белгілеулердің принциптері
Тортугалия кондитерлік фирмасы
Интернет сипаттамасы
Web - сайт құру
Интернет желісі. Интернеттің негізгі принциптері