DDE

Yuklangan vaqt:

20.09.2019

Ko'chirishlar soni:

0

Hajmi:

52 KB

Ko'chirib olish

DDE Режа: 1. DDE асослари. 2. DDE нинг қўлланилиши 3. DDE-серверлар 4. DDE-мижозлар 5. DDE бўйича ReportSmithни бошқариш

DDE асослари DDEML қисқартмаси Dynamic Data Exchange Management Library (динамик маълумотлар алмашиш кутубхонаси) маъносини англатади. DDEML бу Dynamic Data Exchange (DDE) деб номланувчи мураккаб хабарлар тизими устидан назоратдир. DDE сақловчи кутубхона Windowsнинг дастлабки хабарлар тизими имкониятларини ошириш учун ишлаб чиқилган. Dynamic Data Exchange бундай номланишига сабаб, у икки дастурни бажарилиш вақтида ўзаро динамик ҳолда маълумотлар алмашишига имкон беради. Икки дастур орасидаги алоқани шундай яратиш мумкинки, бирида қилинган ўзгариш иккинчисида аксланади. Бундан ташқари DDE ёрдамида ўз дастурингиздан бошқа дастурларни масалан, Word for Windows, Report Smith, Excel ва бошқаларни бошқариш мумкин. Қуйида Delphi компонентларидан DDE қуриш учун қандай фойдаланиш тушунтирилган. DDEнинг қ ўлланилиши DDE бўйича бошқа дастурдан маълумотлар олувчи ёки бошқа дастурни DDE буйруқлари ёрдамида бошқарувчи дастур DDE-мижози ҳисобланади. Бу ҳолда иккинчи дастур DDE-сервери бўлади. Бир дастурнинг ўзи бир вақтда ҳам мижоз, ҳам сервер бўлиши мумкин (масалан, MicroSoft Word). Энди келинг Delphi қандай қилиб DDE-дастурларни тузиш мумкинлигини кўриб ўтайлик. DDE-серверлар Delphiда DDE-серверни қуриш учун System саҳифасидаги икки - TDdeServerConv ва TDdeServerItem компонентлари хизмат қилади. Одатда лоиҳада битта TDdeServerConv объекти ва бир ёки бир нечта TDdeServerItem объекти ишлатиди. DDE-сервернинг сервисларига мурожаат қилиш учун мижоз бир неча параметрларни билиши кеарк: сервис номи (Service Name) – бу дастур номи (одатда – EXE кенгайтмасиз бажарилувчи файл номи, тўлиқ

йули билан); Topic Name - Delphiда бу ном TDdeServerConv компоненти; Item Name – Delphiда бу TDdeServerItemнинг керакли бўлими номи. TDdeServerConv объектининг вазифалари – DDEни умумий бошқариш ва макровларнинг бажарилиши учун мижозлардан сўровларни қабул қилиш. Охирги амал OnExecuteMacro ҳолатлар қайта ишловчисида бажарилади, масалан, бизнинг ҳолдақуйидагича: procedure TDdeSrvrForm.doMacro(Sender: TObject; Msg: TStrings); var Text: string; begin Text := ''; if Msg.Count > 0 then Text := Msg.Strings[0]; MessageDlg ('Executing Macro - ' + Text, mtInformation, [mbOK], 0); end; TDdeServerItem объекти TDdeServerConv билан бо ғланади ва DDE бўйича айнан нима юборилишини аниқланади. Бунинг учун унда Text ва Lines хусусиятлари мавжуд . (Text нинг қиймати доимо Lines[0] га тенг бўлади ) бу қийматлар ўзгарганда сервер билан боғланган ҳамма мижозларга янгиланган маълумотлар юборилади. Бизнинг дастуримизда Lines хусусияти қийматинин г ўзгариши Edit1 компонентининг OnChange ҳолатлари қайта ишловчисида амалга ошади : procedure TDdeSrvrForm.doOnChange(Sender: TObject); begin if not FInPoke then DdeTestItem.Lines := Edit1.Lines; end; Шу компонентнинг ўзи мижозлардан маълумот олишни аъминлайди , бизнинг мисолимизда бу ҳолат Poke Data тугмаси босилганда , OnPokeData ҳолати қайта ишловчисида бажарилади : procedure TDdeSrvrForm.doOnPoke(Sender: TObject);

begin FInPoke := True; Edit1.Lines := DdeTestItem.Lines; FInPoke := False; end; Шундай қилиб биз Delphi компонентлари ёрдамида қурилган тўлиқ ишловчи DDE-серверни кўриб ўтдик. Кўпинча мавжуд DDE-серверлар DDE имкониятларини тўлиқ намойиш қила олмайди ва сервис имкониятларнинг фақат бир қисми билан чегараланилади. Масалан, ReportSmith фақатгина DDE бўйича буйруқлар (макрослар)ни бажаради. DDE-мижозлар Delphiда DDE-мижозни яратиш учун иккита TDDEClientConv ва TDDEClientItem компонентлари ишлатилади. Сервердагига ўхшаш бу ерда ҳам лоиҳада битта TDDEClientConv объекти ва бир ёки бир нечта TDDEClientItem объекти ишлатилади. TDDEClientConv объекти сервер билан алоқа ўрнатиш ва умуман DDE- алоқани бошқариш учун хизмат қилади. DDE-сервер билан алоқа нафақат Формалар дизайнери режимида, балки, дастур бажарилиш вақтида ҳам ўрнатиш мумкин. Биринчи усулда компонентнинг керакли хусусиятлари қўлда тўлдириб чиқилади. Булар DdeService, DdeTopic ва ServiceApplicationлардир. Формалар дизайнери режимида Объектлар Инспекторидаги дастлабки икки хусусиятга сичқончани икки марта чиқиллатсак - DDE-алоқа мулоқот ойнасига мурожаат қилишиимиз мумкин. 21-расм. DDE алоқани ўрнатиш ойнаси.

$Мулоқот ойнасида DDE Service ва DDE Topic лар номини киритинг. Масалан, DDE-сервер сифатида DataBase Desktop келса, унга бирорта Paradox жадвалини юклаш, бирор майдонни белгилаш ва менюдан Edit|Copy бажариш керак. Шундае сўнг мулоқот ойнасига кириб Paste Link тугмасини босиш керак. Мулоқот ойнаси майдонлари мос ҳолда тўлдирилади. ServiceApplication хусусияти фақат дастур жорий каталогда турмаган вақтда ва DDEService майдонидаги ёзув дастур номидан фарқли бўлган ҳолларда тўлдирилади. Бу ерда дастур номи тўлиқ йўли билан кўрсатилиши керак. Report Smith билан ишлаганда бу ерда масалан: C:\RPTSMITH\ RPTSMITH ёзувини кўрсатиш керак. Бизнинг мисолимизда алоқа дастур бажарилиш вақтида менюнинг File| New Link ва Edit|Paste Link буйруқлари ёрдамида яратилади. Меню File|New Link буйруғида DDE бўйича алоқа объектнинг мос услуби ёрдамида боғланади TDdeServerConv ва OpenLinkларни бажариш керак эмас, чунки ConnectMode хусусияти ddeAutomatic қийматига эга: procedure TFormD.doNewLink(Sender: TObject); begin DdeClient.SetLink(AppName.Text, TopicName.Text); DdeClientItem.DdeConv := DdeClient; DdeClientItem.DdeItem := ItemName.Text; end; бу ерда TDdeClietItem объекути хусусиятлари тўлдирилади . Менюнинг Edit|Past Link буйру ғида DDE бўйча ало қа Clipboard даги маълумотларни қўллаш йўли билан боғланади : procedure TFormD.doPasteLink(Sender: TObject); var Service, Topic, Item : String; begin if GetPasteLinkInfo (Service, Topic, Item) then begin$

AppName.Text := Service; TopicName.Text := Topic; ItemName.Text := Item; DdeClient.SetLink (Service, Topic); DdeClientItem.DdeConv := DdeClient; DdeClientItem.DdeItem := ItemName.Text; end; end; ало қа боғлангандан кейин DDE бўйича келувчи маълумотларни бош қариш керак, бу иш TDdeClietItem объектининг OnChange ҳолатлар қайта ишловчисида ажарилади . procedure TFormD.DdeClientItemChange(Sender: TObject); begin DdeDat.Lines := DdeClientItem.Lines; end; Бу иш TDdeClientItem объектининг ягона вазифасидир . TDdeClientConv объектига яна икки вазифа юкланади: маълумотларни серверга узатиш ва макросларни бажариш. Бунинг учун бу объектнинг мос услублари мавжуд . Қуйида макросларнинг серверда бажариишини кўриб ўтамиз: procedure TFormD.doMacro(Sender: TObject); begin DdeClient.ExecuteMacroLines(XEdit.Lines, True); end; Пересылка данных на сервер: procedure TFormD.doPoke (Sender: TObject); begin DdeClient.PokeDataLines(DdeClientItem.DdeItem,XEdit.Lines); end;

Адабиётлар руйхати: 1. Компьютердаги ёрдам файллари. 2. Бобровский «Delphi 5», «Питер» Москва 1997г. 3. Шумаков «Delphi 4 разработка баз данных», «Питер» Москва 1996г. 4. www.ziyonet.uz 5.

O'xshashlar

Dеlphi kоmpоnеntlаr pаlitrаsi

OLE

Windows тизими ва унинг имкониятлари

Windows операцион тизими