N A B Í D K A

A N K E T A

Líbí se vám tyto stránky?
celkem hlasů: 8208

21%

20%

20%

21%

19%

M A I L - L I S T

S E T I @ H O M E

Odeslané jednotky: 21143
Aktuální pořadí: 11200
Všech uživatelů: 5436301
CPU time: 13.681 years
Délka účasti: 5.608 years
Pozice v TOP: 0.206%

R E K L A M A

Chyba, curl

P R O J E K T Y

Programátorské hrátky

Globání RichEdit Fix

Tato aplikace byla primárně určena jako dočasné řešení problému chybného zobrazení v prvku richedit. I když jsem po relativně dlouhé době nalezl elegantnější řešení (použití konkrétní verze knihovny riched20.dll), jde svým způsobem o zajímavou, obecně použitelnou ukázku.

Celý kód je z úsporných důvodu napsán pomocí WinAPI funkcí, mimoto hlavní proces pracuje v nejnižší možné prioritě. Neviditelný hlavní formulář je přítomen pouze z důvodu práce s messages, dále je při startu vytvořen timer, který v požadovaném intervalu utváří seznam veškerých oken (EnumWindows). V těchto oknech jsou následně zjišťovány další komponenty, případně dále do hloubky (použitá rekurze EnumChildWindows), následně je nad každým nalezeným prvkem volána funkce SendREMessage. Ze získaných HWND lze již snadným způsobem odvodit jméno třídy, pakliže se jedná o námi hledané RichEdit*, pošleme odpovídající zprávu zajišťujících korekci.

Přeložená aplikace + zdrojový kód v Delphi.

SysColors

Jednoduchá pomocná utilita umožňující přenášet barevná schémata Windows. Při užití parametru save jsou nejprve zjištěny odpovídající barvy příslušných systémových konstant, ty jsou posléze uloženy do souboru SysColors.cfg. K opětovnému nahrání slouží parametr load. Program je dobrou pomůckou pro ověření výsledného vzhledu na OS s jiným barevným schématem (např. různé verze Windows). Jednoduchou úpravou kódu je možné vytvořit nová nestandardní témata (viz použití API funkcí GetSysColor,SetSystemColors).

Přeložená aplikace + zdrojový kód v Delphi.

Test znalostí Delphi

Celkem jednoduchý příklad, který jsem vypracoval v rámci jednoho vstupního pohovoru (ucházel jsem se o místo vývojáře). Poté následoval ještě druhý úkol, kdy jsem měl vytvořit stored proceduru pro MS SQL. Byla to vlastně vůbec první složitější SQL zkušenost, studoval jsem asi týden. Ale bavilo mě to a za podpory několika kamarádů jsem výsledek odevzdal. Z práce nakonec stejně nic nebylo, tedy mé znalosti byly dostačující, ale prostě jsme se tak nějak nedohodli. Dnes jsem tomu docela rád - přeci jen, pracovat ve firmě, kde nedokáže komunikovat ani její šéf, to už raději nic. :-)

Ale zpět k řešené úloze. Požadavkem bylo vytvořit objekt (v unitě uObject.pas), který by určitým způsobem poskytl základní, dovolím si to nazvat „databázové“ funkce. Tedy pole hodnot, do/ze kterého bude možné údaje přidávat, číst, odstraňovat, nahrazovat a také naprosto jednoduchým způsobem vyhledávat. Mým cílem bylo vytvořit co nejefektivnější a nejrychlejší algoritmus. Jak jsem následně zjistil, největším zdržováním byla funkce SetLength, respektive realokace (zvětšení/zmenšení) pole. Z tohoto důvodu jsem se rozhodl zapracovat jednoduchou vlastnost, která tento úkon několikanásobně urychluje. Jde o alokaci po blocích, jejichž velikost je možné ovlivnit (proměnná FSegLength). Pokud je tedy potřeba přidat nový prvek, zároveň se nám připraví místo i pro x následujících. A stejně tak opačně. Odstraníme-li dostatečný počet prvků, pole se automaticky zmenší o celý tento segment.

Popravdě to nebylo vůbec nic složitého, tedy nic, na čem bych mohl předvést své skutečné znalosti. Proto jsem ještě navíc zapracoval co nejpřesnější měření jednotlivých operací. Využil jsem k tomu PerformaceCounter – skvělá to věc nabízející poměrně vysokou přesnost. Použití je opravdu jednoduché a myslím, že i pro mnohé z vás může být dobrou inspirací. Jen doplním, proměnná Overhead zachycuje odchylku, která vzniká po dobu vlastního měření.

Přeložená aplikace + zdrojový kód v Delphi.

XP shutdown

Velice jednoduchá aplikace zajišťující plánované vypnutí počítače. Přejete-li si během usínání poslouchat své oblínené MP3jky nebo nechat PC z jiného důvodu ještě nějakou tu chvilku pracovat (stahovat torrenty apod. :-)), je toto program právě pro Vás. Jednoduše naplánujete čas, zvolíte metodu: hibernace/shutdown a to je vše. Program se následně automaticky minimalizuje do tray oblasti, v případě potřeby lze dialog s nastavením opětovně vyvolat.

Přeložená aplikace + zdrojový kód v Delphi.

Domeček jedním tahem

Jistě každý znáte klasickou školní úlohu... Také mne tato myšlenka oslovila - kolik řešení vůbec existuje? Jedno, dvě, nebo snad více? Po několika hodinovém zamyšlení jsem pouhým pohledem nalezl 9 řešení, každé je ale proveditelné i "zrcadlově", celkem tedy 18. Pomohli také kolegové a kamarádi, někteří hledali, jiní pouze tipli výsledek. Začal jsem proto uvažovat nad možným programovým řešením, nejprve pouze teoreticky, v úvahách a zamyšleních s nemalou dávkou motivace vymyslet něco nového. Několik okamžiků jsem také věnoval pročtení matematické teorie grafů, na kterou jsem byl nasměrován, velký dík také patří K.Soukupovi za jeho studijní poznatek (platí, že každé správné řešení musí začínat a končit v bodě s lichým počtem vazeb - tedy C a D). Protože se mi nikde nepodařilo nalézt konečný výsledek, je to také jediný důkaz mého správného postupu.

Nyní již k samotnému algoritmu. Vzhledem k náročnějšímu výpočtu jsem se rozhodl celý proces přesunout do samostatného vlákna (threadu). Základem je dvojrozměrné pole, uchovávající stav jednotlivých spojů, každý takový spoj (relace) nabývá jednu ze tří hodnot pravda, nepravda nebo zakázáno. Nejprve je nutné provést vynulování všech vazeb a současné zakázání těch, které nejsou žádoucí - sem patří odstranění relací A-A,B-B... (žádný bod se nespojuje sám se sebou), dále je nutné zakázat vazby A-C a A-D. Vlastní logiku provádí rekurzivní funkce ComputeDomecek, která postupně generuje posloupnost všech dostupných kombinací (1953125). Každá devítimístná varianta je pak samostatně testována, je-li nalezena jedna nebo více relací ve stavu zakázáno, je jasné, že se domeček nepodařilo "dokreslit". V opačném případě si výsledek poznamenáme...

Myšlenka: Mým původním záměrem nebylo generování všech možností s následným porovnáním, ale okamžité měnění stavu vazby ihned při připojení dalšího bodu. Jinými slovy provádět porovnání bezprostředně, to by umožnilo vyřadit chybné kombinace již během první milné cesty (např. ABAB), podstatnou měrou by se také zkrátil čas výpočtu - to je ideální cesta k řešení.

Přeložená aplikace + zdrojový kód v Delphi.

AppsOnLAN

Kolega se na mě obrátil s dotazem, zda-li by se dalo nějakým způsobem zjistit, kde má nainstalované jaké verze Microsoft Office. Nechtělo se mu obcházet přes 80 stanic (také jsem lenoch ;)). Tak jsem přišel na docela zajímavou myšlenku, kterou jsem během několika minut proměnil v tuto utilitu.

Ta si nejprve vytvoří seznam všech okolních PC, která jsou na síti (nejen v doméně) k dispozici. Následuje pokus o připojení vzdáleného registru, z nějž jsou v případě úspěchu získávány informace o nainstalovaných programech (využití klíče ..\Uninstall v HKLM). Režim programu lze ovlivnit parametrem: * provede kompletní výstup bez jakéhokoli omezení, jiný parametr pak aktivuje jednoduchý filtr - zadané slovo musí být obsaženo, přičemž velikost písmen není zohledněna. Jen vyobrazení českých znaků v konzoli je trochu problém, záleží na nastavení prostředí (možná pomůže příkaz chcp, nemám vyzkoušeno).

Ukázka použití:
AppsOnLAN.exe * >sestava.txt | AppsOnLAN.exe oFFicE | AppsOnLAN.exe "Microsoft Office Professional"

Přeložená aplikace + zdrojový kód v Delphi.

Dělové koule

Středověcí dělostřelci stavěli tehdejší kamenné koule do pyramid. A to buď se čtvercovitou nebo trojúhelníkovou základnou. Např.: základnu pyramidy tvořil čtverec 5x5 koulí, na ní postavili 4x4 koule, atd., na vrchol umístili jednu kouli. Tato čtvercová pyramida tedy obsahovala 25+16+9+4+1=55 koulí. Avšak mohli stavět koule do pyramid s trojúhelníkovou základnou. Základnu tak tvoří např. 10 koulí, další vrstvu 6, na ní jsou 3 koule a na vrcholu jedna koule. Celkem je v této trojúhelníkové pyramidě takto sestaveno 10+6+3+1=20 koulí. Otázka zní: Existuje počet koulí, ze kterých se dá postavit čtvercová i trojúhelníková pyramida? Triviální řešení jedna koule neuvažujeme.

Úloha je postavená na porovnávání objemů, na jedné straně výpočet se čtvercovou a na straně druhé pak s trojúhelníkovou podstavou. Každá strana rovnice je ztvárněna samostatnou funkcí, jejímž vstupem je aktuální počet koulí (inkrementálně se zvětšující) a výstupem pravda či nepravda, podle toho, lze-li z takového počtu sestavit příslušný útvar beze zbytku.

Jak jsem se dozvěděl, tato úloha nemá řešení, neexistuje jednotné množství koulí, ze kterých by bylo možné postavit obě varianty. Praktický důkaz mi ale zůstal utajen, takže bych si nebyl úplně tak jistý. :) Čistě teoreticky se ale také přikláním k tomu, že řešení prostě není. Můj příklad je jen takový malý pokus těžkopádného systematického (pomalého) vyhledávání, přinejmenším je to ale zajímavý námět k nějaké další distributed-computing aplikaci.

Přeložená aplikace + zdrojový kód v Delphi nebo C++ (WinAPI).

Recognizer

... popis se připravuje

...

...

Přeložená aplikace + zdrojový kód v Delphi.

Baťáček s rekurzí

Potřebujete provést libovolnou operaci se soubory určitého typu, které se nacházejí třeba i v několikáté úrovni podadresářů? Nemám namysli přejmenování, které v dnešní době zvládne kdejaký program, ale využití odpovídajícího jména jako parametru pro jiný program. Baťáček dokáže projít dostupné podadresáře (začíná na úrovni, kde je spuštěn), najít soubory vyhovující zadané masce a ty pak předat další aplikaci obstarávající zbytek akce. Osobně používám například pro hromadnou legalizaci Eagle projektů (soubory schémat i desek). Nebudu popisovat jednotlivé příkazy, raději doporučuji osobně prozkoumat. Chtěl jsem spíše ukázat použitelnost a především jednoduchost tohoto řešení.

Ukázkový cmd/bat soubor.

MoreCPU example

Tato aplikace je malou ukázkou využití výpočetního výkonu na víceprocesorovém stroji. Toto téma mne lákalo již delší dobu, nicméně jsem neměl k dispozici potřebný hardware, na kterém bych s něčím takový mohl začít experimentovat. Alespoň částečným uspokojením se mi stalo mé nové pracovní PC s Intel P4 (HyperThreading), na kterém jsem si prográmek poprvé ozkoušel.

Základem je získání několika prvotních údajů - počet všech dostupných procesorů (dwNumberOfProcessors) a bitové masky (dwActiveProcessorMask), která udává, na jaké "pozici" se nachází. Informace o architektuře je pouze doplňující. Potřebný náročný výpočet jsem nevymýšlel, rozhodl jsem se použít výše popsanou úlohu dělových koulí, bez rozsáhlejších úprav, tak jak byla vytvořena.

Pro zjednodušení si k výpisu procesorů přidávám vždy příslušný MaskBit, který se případnou změnou škrtátka aktivuje nebo deaktivuje v globální masce. Právě manipulaci s jednotlivými bity obstarává trojice jednoduchých funkcí SetBit,GetBit a RstBit, samotné přiřazení aktivních procesorů vláknu pak zařídí WinAPI funkce SetThreadAffinityMask.

Tento příklad si nekladl za cíl nic konkrétního, je to jen taková obecná demonstrace, případný námět pro vaše vlastní aplikace. Rozkládání výkonu je samo o sobě jistě velice zajímavou (ač trochu specifickou) kapitolou.

Přeložená aplikace + zdrojový kód v Delphi.