DomůVáš účetFórumeObchodTémataKontaktiPod/iPhoneOpravy iPhonů
19. dubna 2024  
 
Nabídka
· Domů
· Archív článků
· Countdown
· Developing Group
· Fórum
· Freeware
· Obchod
· Odkazy
· PDASoft klub
· Seznam uživatelů
· Sidebar
· Témata
· Uživatelé PDA
· Váš účet
· Verze pro PDA

Reklama

Prislusenstvi pro PDA


Vyhledávání


Pokročilé vyhledávání

Kdo je online
V tuto chvíli je 250 návštěvník(ů) a 0 uživatel(ů) online.

Jste anonymní uživatel. Můžete se zdarma zaregistrovat zde

eObchod Info

eBook čtečka eB-700

Zařízení eBook 700 je čtečka elektronických knih s plnou podporou českého jazyka a desítky nejpoužívanějších formátů elektronických knih, hudby a videa za nejnižší cenu na trhu! K dostání je v černé a bílé barvě.

Cena: 1994 Kč vč. DPH



Sluchátka pro Samsung Galaxy S II

Nová sluchátka pro váš skvělý moderní smartphone Samsung Galaxy i9100. Super cena!

Cena: 99 Kč vč. DPH



R4i SDHC White Dual Core pro DS/3DS

Rozšiřující karta pro herní konzole Nintendo DS / DS Lite / 3DS apod., která vám umožní přehrávat počítačové hry stažené z internetu.

Cena: 348 Kč



Nabíjecí Touchstone sada pro Palm Pré

Třídílná Touchstone sada pro smartphone HP / Palm Pré / Pixy obsahující touchstone nabíječku, síťový adaptér s redukcí pro české zásuvky a microUSB kabel pro propojení.

Cena: 782 Kč



Sluchátka Sony Ericsson HPM-70

Handsfree sluchátka pro mobilní telefony Sony Ericsson za super cenu!

Cena: 114 Kč vč. DPH



Vyhřívané USB rukavice

Přemýšlíte nad vhodným dárkem pro chladné období? Vyhřívané USB rukavice jistě potěší a jedno zda to bude na začátku zimy, nebo na jejím konci! STOP prokřelým prstům!

Cena: 363 Kč vč. DPH



TTX Audio FM vysílač do auta

Poslouchejte hudbu ze svého PDA, smartphonu nebo MP3 přehrávače v rádiu!

- 7 kanálů
- Dosah přenosu: 5m
- Výhodná nízká cena!

Cena: 240 Kč vč. DPH



ScreenWard Protector pro iPhone 3G

Ochranná fólie ScreenWard společnosti ADPO patří mezi jedny z nejlepších fólií pro PDA, které můžete svému PDA nebo smartphonu dopřát.

Cena: 101 Kč


Ochranná fólie PrivacyWard pro Pocket PC 2.8"

Speciální bezpečnostní a ochranná fólie. Chraňte displej svého PDA a zároveň chraňte jeho obsah. Super cena!

Cena: 58 Kč

Pro všechna Windows Mobile PDA s 2,8" displejem.


Nabíječka do auta pro Treo 750/650

Malá, lehká, skladná, levná a tedy vždy po ruce.

Cena: 153 Kč



Matná ScreenWard fólie pro Treo 680

Ochranná fólie ScreenWard od společnosti ADPO patří mezi jedny z nejlepších fólií pro PDA, které můžete svému PDA dopřát. Nyní za bezkonkuenční cenu!

Cena: 58 Kč



Navštivte
LevnaKoupe.cz - e-shop s výpočetní technikou - počítače,Notebooky, PDA příslušenství (Palm, Pocket PC, iPhone), Software, Hry (STEAM KEYS

CE4YOU

POCKET4YOU

Palmknihy - knihy do vaší dlaně

Queer Research

ADPO


Google Analytics

Nahradni dily pro Apple, HTC, Nokia, Samsung

Fórum

www.pdasoft.cz
Forum o vsem, co se tyka PDA a dalsich mobilnich zarizeni.
 
 FAQFAQ   HledatHledat   Seznam uživatelůSeznam uživatelů   Uživatelské skupinyUživatelské skupiny   RegistraceRegistrace 
 Osobní nastaveníOsobní nastavení   Přihlásit se pro kontrolu soukromých zprávPřihlásit se pro kontrolu soukromých zpráv   PřihlášeníPřihlášení 

NaPP (pp pascal) a zobrazení obrázku z resource souboru

 
Přidat nové téma   Zaslat odpověď    Obsah fóra www.pdasoft.cz -> Obecná diskuze o programování všech platforem
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
haluze
Pokrocily uzivatel
Pokrocily uzivatel


Registrace: 23.1. 2006
Příspěvky: 70
Bydliště: Jihlava

PříspěvekZaslal: út 19. červen, 2007 9:44    Předmět: NaPP (pp pascal) a zobrazení obrázku z resource souboru Citovat

Nevíte prosím někdo jak se dá v NaPP pascalu (to je 32 bitovej klon od PP pascalu) zobrazit nějaká bitmapa z resource souboru?

V PP pascalu mi normálně funguje tato procedura:

Kód:
Const
bitmapRsc=$­54626d70; //Tbmp

Procedure LoadAndDisplayBMP(RscFile:string;IdBMP:UInt16;x,y:Coord);
var
MyBMPH:Memhandle;
MyBMPP:MemPtr;
i:UInt16;
e:Err;
gDataBase:DmOpenRef;
IDDataBase:LocalID;
iClosed:integer;
Begin
IDDataBase:=DmFindDatabase(0,RscFile);
gDataBase:=DmOpenDatabase(0,IDDataBase,dmModeReadWrite);

MyBMPH:=DmGetResource(bitmapRsc,IdBMP);
MyBMPP:=MemHandleLock(MyBMPH);
WinDrawBitmap(MyBMPP,x,y);
i:=MemHandleUnlock(MyBMPH);
e:=DmReleaseResource(MyBMPH);
iClosed:=DmCloseDatabase(gDataBase);

end;


ale v tom NaPP to nechce fungovat (vždycky to zamrzne...). Ve fóru sem četl něco jako že resource musí být: "native little endian", ale vůbec nevím co to znamená a jestli se mě to vůbec týká...

Nevíte prosím někdo, jak na to?
_________________
http://palm.profitux.cz - stránky s českými programy pro PalmOS
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu Zobrazit uživatelovy WWW stránky
fanoush
Veteran
Veteran


Registrace: 4.10. 2004
Příspěvky: 480
Bydliště: Olomouc

PříspěvekZaslal: út 19. červen, 2007 10:16    Předmět: Re: NaPP (pp pascal) a zobrazení obrázku z resource souboru Citovat

haluze napsal:
Nevíte prosím někdo jak se dá v NaPP pascalu (to je 32 bitovej klon od PP pascalu) zobrazit nějaká bitmapa z resource souboru?

ale v tom NaPP to nechce fungovat (vždycky to zamrzne...). Ve fóru sem četl něco jako že resource musí být: "native little endian", ale vůbec nevím co to znamená a jestli se mě to vůbec týká...

Nevíte prosím někdo, jak na to?

NaPP neni "32 bitovej klon" ale kompiler generujici nativni ARM kod pro palmy s ARM procesorem, PP je kompiler do m68k kodu pro puvodni palmy s OS <5.0 a procesorem Dragonball. Oba kompilery jsou 32 bitove. Pro ARM kod musi byt resource ve formatu "native little endian" takze ano, tyka se te to.

treba pilrc generuje resources v little endian formatu volbou -le
co se tyce PP mrkni na tohle, melo by to delat to co potrebujes
http://www.ppcompiler.org/thread.php?lng=en&pg=4384&fid=1&cat=3
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu
haluze
Pokrocily uzivatel
Pokrocily uzivatel


Registrace: 23.1. 2006
Příspěvky: 70
Bydliště: Jihlava

PříspěvekZaslal: út 19. červen, 2007 11:00    Předmět: Citovat

Aha, zak jsem zase o něco chytřejší... Díky moc Velmi šťastný

Tím PilRC to opravdu jde, je to teda pomocí parametru -LE32, ale to nevadí... Nakonec se mi to tedy povedlo překonvertovat, ale stejně se mi ten obrázek nedaří zobrazit...

Nemohl by jsi mi prosím poslat nějaký jednoduchý vzorový příklad, jak by to mělo vypadat? Protože ta procedura co jsem ji uvedl v prvním příspěvku stejně nefunguje, a to ani když jsem ten resource soubor převedl...
_________________
http://palm.profitux.cz - stránky s českými programy pro PalmOS
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu Zobrazit uživatelovy WWW stránky
haluze
Pokrocily uzivatel
Pokrocily uzivatel


Registrace: 23.1. 2006
Příspěvky: 70
Bydliště: Jihlava

PříspěvekZaslal: út 19. červen, 2007 11:11    Předmět: Citovat

Trošku jsem ten program poupravil:

Kód:
program bbb;
{$i ArmAPI.pas}

procedure WinDrawBitmap(bitmapP:BitmapPtr;x,y:Coord); inline($4E4F,$A226);

Const
bitmapRsc=$54626d70; //Tbmp

Procedure LoadAndDisplayBMP(RscFile:string;IdBMP:UInt16;x,y:Coord);
var
MyBMPH:Memhandle;
MyBMPP:MemPtr;
i:UInt16;
e:Err;
gDataBase:DmOpenRef;
IDDataBase:LocalID;
iClosed:integer;
Begin
IDDataBase:=DmFindDatabase(RscFile);
gDataBase:=DmOpenDatabase(IDDataBase,dmModeReadWrite);

MyBMPH:=DmGetResource(bitmapRsc,IdBMP);
MyBMPP:=MemHandleLock(MyBMPH);
WinDrawBitmap(MyBMPP,x,y);
i:=MemHandleUnlock(MyBMPH);
e:=DmReleaseResource(MyBMPH);
iClosed:=DmCloseDatabase(gDataBase);

end;

begin
LoadAndDisplayBMP('too_data',2000,0,0);

pause;
end.


Ale stejně to nic nezobrazuje...

Ten soubor ArmAPI jsem nahrál sem:

Kód:
http://leteckaposta.cz/487522427


Mohl bys mi teda prosím poradit, co s tím?
_________________
http://palm.profitux.cz - stránky s českými programy pro PalmOS
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu Zobrazit uživatelovy WWW stránky
fanoush
Veteran
Veteran


Registrace: 4.10. 2004
Příspěvky: 480
Bydliště: Olomouc

PříspěvekZaslal: út 19. červen, 2007 16:22    Předmět: Citovat

arm nativni bitmapa urcite nema typ Tbmp, spis abmp. Zkus si v BIRDu projit resource databazi kterou se snazis otvirat.
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu
haluze
Pokrocily uzivatel
Pokrocily uzivatel


Registrace: 23.1. 2006
Příspěvky: 70
Bydliště: Jihlava

PříspěvekZaslal: út 19. červen, 2007 16:41    Předmět: Citovat

Máš pravdu, je tam skutečně napsáno abmp.

Mohl bys mi tedy prosím poradit, co tam mám napsat místo toho? Já jsem totiž nikde nenašel, jakou hodnotu to abmp má...

Na PC umím v Pascalu programovat perfektně, ale tady na Palmu tomu zatím moc nerozumím... Teprve se to učím, tak bych právě potřeboval poradit, jak to mám rozchodit...
_________________
http://palm.profitux.cz - stránky s českými programy pro PalmOS
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu Zobrazit uživatelovy WWW stránky
fanoush
Veteran
Veteran


Registrace: 4.10. 2004
Příspěvky: 480
Bydliště: Olomouc

PříspěvekZaslal: út 19. červen, 2007 17:24    Předmět: Citovat

staci vedet hexa kod pismenka 'a' v ASCII tabulce a pak ho nahradit v tomhle
bitmapRsc=$54626d70; //Tbmp

$54 je T
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu
haluze
Pokrocily uzivatel
Pokrocily uzivatel


Registrace: 23.1. 2006
Příspěvky: 70
Bydliště: Jihlava

PříspěvekZaslal: út 19. červen, 2007 17:56    Předmět: Citovat

Aha, písmenu a odpovídá hexa hodnota 61, takže jsem to tedy pozměnil, nicméně to stejně nefunguje. Nejspíš asi bude problém v tom, že pro zobrazení používám tu proceduru WinDrawBitmap, kterou asi v tomto případě použít nemůžu, že jo?

Nevíš, co bych měl místo této procedury použít?
_________________
http://palm.profitux.cz - stránky s českými programy pro PalmOS
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu Zobrazit uživatelovy WWW stránky
fanoush
Veteran
Veteran


Registrace: 4.10. 2004
Příspěvky: 480
Bydliště: Olomouc

PříspěvekZaslal: út 19. červen, 2007 18:30    Předmět: Citovat

haluze napsal:
Nejspíš asi bude problém v tom, že pro zobrazení používám tu proceduru WinDrawBitmap, kterou asi v tomto případě použít nemůžu, že jo?

No, kdyz si ji spravne nadeklarujes tak proc ne. inline($4E4F,$A226) nebude mozna v ARM modu to spravne orechove Usmívající

Myslim ze by ti docela pomohlo kdybys rozumel tomu co delas Mrkající
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu
haluze
Pokrocily uzivatel
Pokrocily uzivatel


Registrace: 23.1. 2006
Příspěvky: 70
Bydliště: Jihlava

PříspěvekZaslal: út 19. červen, 2007 19:00    Předmět: Citovat

No a nemohl bys mi prosím říct, jak jí mám nadeklarovat? Velmi šťastný

Ať už tady nemusím pořád otravovat... Já právě tady těm příkazům inline nerozumím... Jsem holt klasický Pascalista. Stačí mi jen abys mi řekl, jak to rozjet a už dám pokoj... Protože očividně se v tom dost vyznáš (rozhodně víc jak já) Mrkající
_________________
http://palm.profitux.cz - stránky s českými programy pro PalmOS
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu Zobrazit uživatelovy WWW stránky
fanoush
Veteran
Veteran


Registrace: 4.10. 2004
Příspěvky: 480
Bydliště: Olomouc

PříspěvekZaslal: st 20. červen, 2007 10:07    Předmět: Citovat

haluze napsal:
No a nemohl bys mi prosím říct, jak jí mám nadeklarovat? Velmi šťastný

mas to vsechno primo pod nosem, mrkni do ArmAPI.pas, zapoj vlastni mozek a nemel by byt problem Usmívající
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu
haluze
Pokrocily uzivatel
Pokrocily uzivatel


Registrace: 23.1. 2006
Příspěvky: 70
Bydliště: Jihlava

PříspěvekZaslal: čt 21. červen, 2007 7:51    Předmět: Citovat

Tak jsem nakonec stvořil tuto proceduru:

Kód:
procedure WinDrawBitmap(bitmapP:pointer;x,y:Coord); inline($E519C008,$E1A0E00F,$E59CFB10);


a už mito funguje Velmi šťastný

Ale každopádně díky za pomoc.
_________________
http://palm.profitux.cz - stránky s českými programy pro PalmOS
Návrat nahoru
Zobrazit informace o uživateli Odeslat soukromou zprávu Zobrazit uživatelovy WWW stránky
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď    Obsah fóra www.pdasoft.cz -> Obecná diskuze o programování všech platforem Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejít na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.


Powered by phpBB © 2001, 2005 phpBB Group





Všechny obchodní známky a názvy patří jejich příslušným vlastníkům, komentáře patří jejich odesílatelům. Vše ostatní vlastní © 2004 Sale&Consulting Company s.r.o.
Web pohání Copyright © Redakční systém UNITED-NUKE. Všechna práva vyhrazena.
Čas potřebný ke zpracování stránky: 0.62 sekund

RSS - články RSS - fórum