Prenos vízií do reality bolí. - Vitajte na stránkach www.einsty ...

P R O G R A M U J E M EFILE *subor=NULL;subor=fopen(cesta,"rb");if(subor==NULL){PostQuitMessage(0);}Ak sme zadali správnu cestu a súbor sa nám podarilo otvori, môeme dáta naèíta dopo¾a, ktoré sme funkcii zadali. Ak sme hotoví, súbor môeme zavrie.fread(mapa,1,velkost,subor);fclose(subor);}Súbor teren.cpp teraz môeme uloi a zavrie. Do súboru init.cpp si pridáme definíciufunkcie LoadRAW, pretoe ju linker z externého súboru nerozpozná. Takisto si definuje−me pole typu byte s rozmermi 1024 × 1024 bajtov, spolu teda 1 MB.BYTE mapa[1024*1024];void LoadRAW(LPSTR cesta, int velkost, BYTE* mapa);Do funkcie InitGL si pridáme volanie funkcie LoadRaw, ktorou naèítame údaje o mapedo po¾a.LoadRAW(„dat/mapa.raw“,1024*1024,mapa);Ešte treba zmeni posledný parameter volania funkcie gluPerspective z ResizeGLSceneaspoò na hodnotu 3000.0f, pretoe mapa je ve¾ká a pri pôvodnom nastavení by sme junevideli celú. Ak ste to zmenili, presuòte sa do funkcie s kresliacou funkciou, kde si defi−nujte pole mapa ako externú premennú a pridajte aj definíciu funkcie RenderMap. Potomstaèí zavola z kresliacej funkcie:RenderMap(mapa);A je to hotové. Po skompilovaní by sa vám mal objavi poh¾ad na prekrásnu krajinu, aak máte v projekte aj kameru, môete sa po nej aj poprechádza. No nie je to nádhera?ZÁVER. Touto èasou sme opä pokroèili o krok do tajov OpenGL. Ak máte nejaké pri−pomienky, návrhy alebo vám nieèo nejde, napíšte mi, teším sa na vaše e−maily (ale aknemusíte, tak zbytoène nepíšte ☺). Nabudúce si preberieme textúrovanie vyrenderovanejkrajiny, a ak zvýši priestor, aj detekciu kolízie medzi kamerou a terénom. Take máte sana èo teši. Prajem pekný zvyšok júla.Lukáš StaòaDelphi v praxi / 28. èas: Otázky a odpovede II.Témy, ktoré som si naplánoval ako obsah týchto èastí, som trošku posunul, a to z jedi−ného dôvodu. Pokladám za potrebné uvies isté rutiny, ktoré sa priam pýtali na svetlo sve−ta práve prostredníctvom vás. Verím, e sa mi podarilo odpoveda všetkým, ktorí sa namòa obrátili s prosbou o pomoc v programovaní. Z týchto prosieb som vybral tie, ktorésom aj ja musel h¾ada vo svojom „programátorskom svete“ a ktoré sa vám pridajú priprogramovaní akejko¾vek aplikácie. Nebudú ma síce najelementárnejší charakter progra−mu, ale myslím, e zamútite hlavu nie jednému programátorovi, ktorý uvidí isté novátor−ské riešenia vo vašom programe.MONO VLOI CUDZIU APLIKÁCIU DO NAŠEJ? Odpoveï na túto pomernejednoducho znejúcu otázku som po dlhom pátraní našiel. Jedinou praktickou monosouje nastavi formulár ako rodièovské okno. Druhý krok pozostával z následného presunutiaexternej aplikácie funkciou MoveWindow do rodièovského formulára, nastavenia jehopozície a rozmerov. Posledný riadok je len nastavenie prekrytia, teda priority okna. Naotvorenie externého programu sme pouili príkaz WinExec, kde prvým parametrom jecesta k programu a druhým spôsob otvorenia. Aplikácie, ktoré tvoria jadro systému, res−pektíve sú umiestnené v koreni operaèného systému Windows alebo v jeho systéme,môeme vola priamo bez uvedenia celej cesty k súboru (v príklade uvedený „notepad“ –poznámkový blok).procedure TForm1.FormCreate(Sender: TObject);var wnd:HWND;beginWinExec('notepad',SW_SHOW);wnd:=FindWindow('notepad',nil);if Wnd0 then beginWindows.SetParent(Wnd, Handle);MoveWindow(Wnd, 0, 0, ClientWidth, ClientHeight, false);SetForegroundWindow(Wnd);end;end;EXISTUJE DIALÓG NA VYH¼ADANIE ADRESÁRA? V záloke dialógov, ia¾,takýto komponent nenájdeme. Ale pomocou direktívy kninice FileCtrl môeme vyvolaštandardný dialóg bez akéhoko¾vek vytvárania vlastných rutín a formulárov. Radšej si šet−rime sily a sústreïujme ich na zloitejšie algoritmy. Pre úplnú funkènos dopíšte do klau−Obr. 1zuly uses kninicu FileCtrl (bez nej by externé vyvolanie nebolo moné). Funkcia Select−Directory zavolá dialóg, ktorého ukonèením, resp. potvrdením sa do premennej path uloícesta k vybranému adresáru. Na skúšku som v príklade pouil príkaz ShowMessage, ktorýna demonštraèné úèely postaèuje. Prostredníctvom neho uvidíme vybranú cestu.procedure TForm1.Button1Click(Sender: TObject);var path:string;beginif FileCtrl.SelectDirectory(path, [sdAllowCreate, sdPerformCreate,sdPrompt], 0) then ShowMessage(path);end;AKO ZMENI TITULOK DIALÓGU? Tentoraz hovoríme o štandardných dialógo−vých oknách, ktoré nám ponúka záloka Dialogs. Niektoré dialógy majú staticky defino−vaný titulok okna, prièom jeho zmena podlieha zaslaniu správy SendMessage komponen−tu. V našom prípade zmeníme titulok na komponente PrintDialog. Aj keï z praktickéhoh¾adiska takáto monos neplní nijakú dôleitú úlohu, je dobré si rozšíri monosti Send−Message. Parameter WM_SETTEXT je, samozrejme, zo skupiny Windows Message.procedure TForm1.PrintDialog1Show(Sender: TObject);beginSendMessage(PrintDialog1.Handle,WM_SETTEXT, 0, LPARAM(PChar('nový text akéhoko¾vekdialógu')));end;NEŠTANDARDNÝ DIALÓG „OTVORI ÈÍM“. Keïe sme zaèali dialógmi, môe−me pri nich ešte chví¾ku zosta. Pri pouívaní operaèného systému Windows ste sa urèitestretli s príponami súborov. Tie majú rozliènú štruktúru, preto na prácu s nimi vyuívamerozlièné programy. Na u¾ahèenie práce s produktmi programov sa zaèala vyuíva inicia−lizácia príslušného programu práve pod¾a koncovky. To zabezpeèuje operaèný systém.V prípade, ak k poadovanej koncovke nie je priradený nijaký program, operaèný systémnám ponúkne interný dialóg „otvori èím“. V òom vyberieme príslušný program, ktorýmchceme súbor otvori alebo priradi mu jeden program, v ktorom sa bude otvára vdy.Tento dialóg je súèasou dynamickej kninice Shell32.dll patriacej k systému. Aj keï cezrozhranie Delphi môeme vola dynamické kninice priamo, nebudeme si komplikovaivot zisovaním názvov funkcií a premenných, ktoré poskytuje spomínaná kninica.Pouijeme radšej internú kninicu ShellAPI, ktorá je súèasou Delphi. Tú treba dopísa doklauzuly uses. Vytvorili sme si funkciu OpenAs, ktorej vstupným parametrom je cesta k sú−boru. Výstup má skôr kontrolný charakter, preto nám postaèuje typ boolean. Všetko ostatnéje prácou ShellAPI s premennou TShellExecuteInfo, ktoré vyvolá spomínaný dialóg v súvis−losti so súborom, ktorého cestu sme zadali ako vstup...Function OpenAs(Filen: String):Boolean;var Info:TShellExecuteInfo;Param:String;beginParam:=Format('Shell32.dll,OpenAs_RunDLL %s',[Filen]);ZeroMemory(@Info, SizeOf(Info));info.cbSize:=SizeOf(Info);info.lpFile:='Rundll32.exe';info.lpVerb:='Open';info.nShow:=SW_SHOWNORMAL;info.Wnd:=GetDesktopWindow;info.lpParameters:=PChar(Param);OpenAs:=ShellExecuteEx(@Info);end;POLOKA V MENU UMIESTNENÁ VPRAVO. Komponent TMainMenu nachádza−júci sa v záloke Standard je asi to, èo pouíva kadý programátor snaiaci sa naprogra−mova preh¾adný program. Samozrejme, e pouívanie poloiek menu je ve¾mi jednodu−ché, pokia¾ nechcete umiestni poloku do pravého rohu vášho programu. Takúto otázkusom dostal od èitate¾a, ktorý prive¾mi experimentuje a napadlo mu nieèo, èo som dopo−114 PC REVUE 7/2003