Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
delphi 2007 update 1
[*] rkubat(zv)email(tec)cz - 07.6.2007 09:49:57
> P+AVk-edm+ARs-t: delphi 2007 update 1
>
> Ma uz s tim nekdo nejake zkusenosti ?
Pokud mate ve sv+AOk-m Delphi 2007 povoleno hledani update, najde se
automaticky. Pokud ne, update #1 najdete na adrese :
http://downloads.codegear.com/default.aspx?productid=2012
Pro stazeni je treba prihlasit do CDN pod jmenem a heslem pouzitym
pri registraci Delphi 2007.
Dalsi informace se najdou na adrese:
http://blogs.codegear.com/nickhodges/archive/2007/06/06/35619.aspx
Poznamky k instalaci Delphi 2007 for Win32+AK4- (Update 1) a C+-+-Builder 2007:
http://dn.codegear.com/article/36574
Posledni informace k Delphi 2007 for Win32+AK4- a C+-+-Builder+AK4- 2007, ktere
se nedostaly do produktove dokumentace:
http://dn.codegear.com/article/36575
Pruvodce instalaci C+-+-Builder 2007 na system, kde jiz je instalovan produkt Delphi 2007:
http://dn.codegear.com/article/36596
Vsechny zdravi, -- Richard Kubat
delphi 2007 update 1
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 07.6.2007 10:22:00
Nevis jak je to s potrebou prekladu , pokud mam u komponent jen DCU ?
Petr Svejda napsal(a):
> vcera jsem ho (Delphi 2007 pro Win32 Prof. update 1) nainstaloval na
> Windows Vista Ultimate a vse probehlo v poradku - jenom nevim, jake
> zmemy provedli.delphi 2007 update 1
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 07.6.2007 10:26:00
tady je primy odkaz na stazeni a postup:
http://downloads.codegear.com/default.aspx?productid=2012
Petr Svejda
www.znalosti(tec)cz
www.isoft(tec)cz
www.prowin(tec)cz
info(zv)drnholec(tec)cz napsal(a):
> Ma uz s tim nekdo nejake zkusenosti ?Jak zmenit tabulku, kterou se snazi DataSet aktual
[*] delphak(zv)centrum(tec)cz - 07.6.2007 10:44:02
Mam AdoDataSet plneny selectem
select dch_chrgno, dch_name, (select count(*) from l_df_chrgcd where dch_chrgno = dcc_chrgno) CntUsed
from l_df_Charge
Problem je ze Dataset se snazi aktualizovat prvni tabulku kterou nasel za where - v tomto pripade l_df_chrgcd - coz je samozrejme spatne.
Jak sem u da rict aby aktualizoval tabulku l_df_Charge?
Zde uvedeny je spise priklad, samozrejme jsem schopny select prepsat jinym zpusobem, ale pro slozitejsi pripady uz totreba neni mozne
Dik za radu.
PS: Napr. DOA pro Oracle ma property UpdatingTable .. ale tady jsem nic takoveho nenasel
Delphi 2007 pro Win32 a komponenty pro Firebird 2
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 07.6.2007 10:58:03
Zacinam novy program v novych subj. a opet oteviram muj problem - jake
komponenty pouzit. Musim pouzit (a prosim toto nediskutujte) pouze
standardni komponenty z palety subj.
Mam zvolit dbExpress, komponenty zalozky Interbase, nebo jsem prehlidl
neco jineho?
Dival jsem se na dbExpress, ale nepodarilo se mi vygooglit zadne ukazky
pro zacatecniky, jak je pouzit. Chci pouzivat transakce, update,
parametricke dotazy, relacni update mezi vice tabulkami (napr. SQL
parametricky insert hlavicky faktury a jejich polozek).
Diky moc za kazdy odkaz nebo praktickou radu.
Petr Svejda
www.znalosti(tec)cz
www.isoft(tec)cz
www.prowin(tec)cz
ListView a StateImages
[*] mydelphi(zv)seznam(tec)cz - 07.6.2007 11:14:04
V ListView pouzivam 17 ikon jako StateImages v TImageList. Kdyz je pak
zobrazuji, tak se mi zobrazi jen prvnich 15. Sestnacta se nezobrazi a
misto sedmnacte se opet zobrazi prvni. Nevite kde je chyba?
Dik
ListView a StateImages
[*] delphin(zv)post(tec)cz - 07.6.2007 11:20:04
>V ListView pouzivam 17 ikon jako StateImages v TImageList. Kdyz je pak
> zobrazuji, tak se mi zobrazi jen prvnich 15. Sestnacta se nezobrazi a
> misto sedmnacte se opet zobrazi prvni. Nevite kde je chyba?
ListView ma omezeni na urcity pocet StateImages, je to cislo blizke 16. Je
to omezeni Windows, nikoli Delphi.
Delphi 2007 pro Win32 a komponenty pro Firebird 2
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 07.6.2007 11:18:04
Myslim, ze celkem bez problemu muzes pouzit komponenty ze zalozky Interbase.
Jde jen o to, ze budes muset pri instalaci klienta nechat generovat
knihovnu gds32.dll namisto nativni fbclient.dll.
S pozdravem
Milan Tomes
Petr Svejda napsal(a):
> Zacinam novy program v novych subj. a opet oteviram muj problem - jake
> komponenty pouzit. Musim pouzit (a prosim toto nediskutujte) pouze
> standardni komponenty z palety subj.
>
> Mam zvolit dbExpress, komponenty zalozky Interbase, nebo jsem prehlidl
> neco jineho?
>
Delphi 2007 pro Win32 a komponenty pro Firebird 2
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 07.6.2007 12:22:09
> Mam zvolit dbExpress, komponenty zalozky Interbase, nebo jsem prehlidl
> neco jineho?
dbExpress je unidirectional.
Lze ho tedy "rozumne" (primy insert, append, edit, post, delete z datasetu) pouzit pouze v propojeni na TClientDataSet. Tak to taky bylo mysleno, proto jsme taky od Borlandu dostali TClientDataSet do verze D6Pro, kde se dbExpress poprve objevil.
Tedy propojeni
TSQLConnection - TSQLDataSet - TDataSetProvider - TClientDataSet
a TClientDataSet.ApplyUpdates.
Pouziti "rucni", tedy pres explicitne napsany insert, update, delete by melo jit jako SQLDataSet.ExecSQL.
(nezkousel jsem, pouzivam vyse uvedene propojeni)
Vyse uvedene propojeni pouzivam velmi rad, ale rikam si: "Kdyz FB, tak radsi IBX".
Tedy
TIBDatabase - TIBDataSet - TDataSetProvider - TClientDataSet.
Pokud potrebuji "rucni" prikaz, pouziju IBSQL.ExecQuery.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
OT: Nabidka prace - dlouhodoba spoluprace
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 07.6.2007 12:22:08
Dobry den,
pro firmu Arbosoft hledame programatora v Delphi pro dlouhodobou
spolupraci na vyvoji a udrzbe aplikaci pro zahradnicky obor.
V soucasne dobe by se nejednalo o hlavni pracovni pomer, spise 15-20
hodin prace tydne, v budoucnu bude objem prace i casova narocnost vetsi.
Pracovni napln:
* vyvoj a udrzba informacniho systemu pro jednu z nejvetsich
firem v okrasnem zahradnictvi v Ceske republice
* konverze sestav z QuickReport do FastReport
* priprava SQL pro sestavy a prehledy
* spoluprace na analyze a vyvoji novych casti aplikace
* komunikace s uzivateli
Pozadavky:
* preciznost
* zodpovednost
* samostatnost
* znalost Delphi
* zalost SQL
Nabidka:
* pruzna pracovni doba ("prace doma")
* prace v zajimavem prostredi
* odpovidajici ohodnoceni
* dlouhodoba spoluprace
Prostredi:
* Delphi 5
* FireBird 2
* FastReport 4
Misto:
* nejlepe Melnik, Praha, Stredni Cechy
V pripade, ze Vas tato nabidka zaujala, mne prosim kontaktujte na
adrese delphi(zv)zas-me(tec)cz.
Dekuji, s pranim pekneho dne
Karel Rys
delphi 2007 update 1
[*] rkubat(zv)email(tec)cz - 07.6.2007 12:50:11
Tabulka vlastnosti Delphi 2007:
http://www.codegear.com/article/34372/images/34372/Delphi2007Win32FeatureMatrix.pdf
strana 1, treti radek tabulky pravi:
"USE YOUR BDS 2006 COMPONENTS!" Compiler is compatible with binaries
created with Borland Developer Studio 2006."
Pokud tedy komponenty fungovaly pod BDS 2006, budou beze zmeny fungovat
i v Delphi 2007 bez nutnosti rekompilace zdroju.
Zdravi, -- R. Kubat
> Nevis jak je to s potrebou prekladu , pokud mam u komponent jen DCU ?
>
>
> Petr Svejda napsal(a):
> > vcera jsem ho (Delphi 2007 pro Win32 Prof. update 1) nainstaloval na
> > Windows Vista Ultimate a vse probehlo v poradku - jenom nevim, jake
> > zmemy provedli.
delphi 2007 update 1
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 07.6.2007 13:22:13
Zdravim
Ja myslel pouze zmenu z D2007 na D2007 update 1.
Jinak jsem si bohuzel opet potvrdil domnenku ze Borland zapomnel na ty
co provozuji DELPHI 2007 bez pristupu na internet.
I kdyz jsem si stahnul pomalu 800 mega instalacek, vyzaduje je to pri
instalaci pristup na web.
Nevite jak to obejit ?
rkubat(zv)email(tec)cz napsal(a):
> Tabulka vlastnosti Delphi 2007:
> http://www.codegear.com/article/34372/images/34372/Delphi2007Win32FeatureMatrix.pdf
> strana 1, treti radek tabulky pravi:
>
> "USE YOUR BDS 2006 COMPONENTS!" Compiler is compatible with binaries
> created with Borland Developer Studio 2006."
>
> Pokud tedy komponenty fungovaly pod BDS 2006, budou beze zmeny fungovat
> i v Delphi 2007 bez nutnosti rekompilace zdroju.
>
> Zdravi, -- R. Kubat
>
>
>> Nevis jak je to s potrebou prekladu , pokud mam u komponent jen DCU ?
>>
>>
>> Petr Svejda napsal(a):
>>> vcera jsem ho (Delphi 2007 pro Win32 Prof. update 1) nainstaloval na
>>> Windows Vista Ultimate a vse probehlo v poradku - jenom nevim, jake
>>> zmemy provedli.
>
>
>
delphi 2007 update 1
[*] Petr Vones <conference(zv)petrvones(tec)net> - 07.6.2007 13:40:14
From: <info(zv)drnholec(tec)cz>
> Jinak jsem si bohuzel opet potvrdil domnenku ze Borland zapomnel na ty
> co provozuji DELPHI 2007 bez pristupu na internet.
> I kdyz jsem si stahnul pomalu 800 mega instalacek, vyzaduje je to pri
> instalaci pristup na web.
>
> Nevite jak to obejit ?
V tomto bych se tedy Borlandu zastal. Pise se rok 2007, pocitac ktery nema
pripojeni do Internetu (tim spise kdyz je urceny pro vyvoj software) snad
nema smysl vubec ani zapinat, je pak to jen mrtva krabice.
Petr Vones
delphi 2007 update 1
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 07.6.2007 13:52:15
Tak to tedy ne !!!!
PRAVE proto ze mam PC na vyvoj software a ne na testovani antiviru a
firewalu ruznych znacek.
Na to mam druhy a treti PC se kterym sem spojeny na web.
Takovy zaslepeny nazor jsem od P.V. opravdu necekal !!
P.S. A az si budu kupovat software u kereho me prodejce predem upozorni
ze bez pripojeni na inet nebude fungovat potom to bude jina pisnicka.> V tomto bych se tedy Borlandu zastal. Pise se rok 2007, pocitac ktery nema
> pripojeni do Internetu (tim spise kdyz je urceny pro vyvoj software) snad
> nema smysl vubec ani zapinat, je pak to jen mrtva krabice.
> Petr Vones
delphi 2007 update 1
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 07.6.2007 14:14:17
> Tak to tedy ne !!!!
> PRAVE proto ze mam PC na vyvoj software a ne na testovani antiviru a
> firewalu ruznych znacek.
Sice to uz je flame, ale antivir ani firewall nemam, protoze pro
pripojeni na internet mi staci defacto dnes jakykoliv router ktery
odchyti veskery nezadouci provoz dovnitr. A pokud nepolezu explicitne na
"pochybne stranky s pochybnym prohlizecem" a pripadne vubec nebudu
pouzivat na tom PC email, je vicemene nulova sance ze neco "chytim".
Resp. sance je pouze pokud PC v siti chyti neco blbosti uzivatele a to
neco napadne ostatni PC po ionterni siti.
> Takovy zaslepeny nazor jsem od P.V. opravdu necekal !!
Spis to asi bylo mysleno ze dnes bez online napoved na netu a kamarada
google je to krok zpet.
TR
delphi 2007 update 1
[*] Petr Vones <conference(zv)petrvones(tec)net> - 07.6.2007 14:14:17
From: <info(zv)drnholec(tec)cz>
> Tak to tedy ne !!!!
> PRAVE proto ze mam PC na vyvoj software a ne na testovani antiviru a
> firewalu ruznych znacek.
> Na to mam druhy a treti PC se kterym sem spojeny na web.
Tak efektivni praci vam opravdu nezavidim :-)
> Takovy zaslepeny nazor jsem od P.V. opravdu necekal !!
(bez komentare)
Petr Vones
delphi 2007 update 1
[*] rkubat(zv)email(tec)cz - 07.6.2007 14:36:18
> Zdravim
> Ja myslel pouze zmenu z D2007 na D2007 update 1.
>
> Jinak jsem si bohuzel opet potvrdil domnenku ze Borland zapomnel na ty
> co provozuji DELPHI 2007 bez pristupu na internet.
> I kdyz jsem si stahnul pomalu 800 mega instalacek, vyzaduje je to pri
> instalaci pristup na web.
>
> Nevite jak to obejit ?
Dobry den,
neni pravda, ze Borland - tedy rikejme spise CodeGear, ano? - na uzivatele
bez pripojeni zapomnel, staci si precist clanek:
http://blogs.codegear.com/nickhodges/archive/2007/06/06/35619.aspx
Chcete-li produkt naistalovat "tradicnim" zpusobem, tedy nejdriv stahnout a pak
instalovat treba na jinem stroji, je to stale mozne. Popis je v Nickove clanku.
Jinak s komponentami se nic nestane, ale to je v clanku tez zmineno.
Zdravi, -- Richard Kubat
delphi 2007 update 1
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 07.6.2007 15:02:20
Tomas Rosa napsal(a):
> Spis to asi bylo mysleno ze dnes bez online napoved na netu a kamarada
> google je to krok zpet.
jak jsem jiz psal, inet mam v praci na 2 PC a VUBEC nemam potrebu si ho
tahat domu kde mam treti PC bez pripojeni.
A pokud si nekdo mysli ze my tim klesa produktivita prace necham ho pri
tom.
(I kdyz to nechava bez kometare).
A protoze to zacina byt opravdu flame o nicem, koncim debatu na toto
tema nez nam to ukonci Petr :-)
delphi 2007 update 1
[*] Petr Vones <conference(zv)petrvones(tec)net> - 07.6.2007 15:12:21
From: "Tomas Rosa" <trosa(zv)seznam(tec)cz>
> Sice to uz je flame, ale antivir ani firewall nemam, protoze pro
> pripojeni na internet mi staci defacto dnes jakykoliv router ktery
> odchyti veskery nezadouci provoz dovnitr. A pokud nepolezu explicitne na
To je zaklad, ktery je jiste spolehlivejsi nez softwarove firewally. Cena
routeru (bez WiFi) se dnes pohybuje v radu stokorun.
> "pochybne stranky s pochybnym prohlizecem" a pripadne vubec nebudu
V pripade vyvoje a ladeni aplikaci je opravdu problematicke nebyt prihlasen
pod uctem s admin pravy. Pak je vhodne pro vsechny aplikace (prohlizec,
email klient, media player ...) zpracovavajici obsah stazeny z Internetu
pomoci Software Restriction Policy nastavit, aby byly spustene s omezenymi
pravy. Tato vlastnost Windows je dostupna od XP/2003, blize je to popsano
zde: http://msdn2.microsoft.com/en-us/library/ms972802.aspx
Jinou moznosti je pouzivat virtualni stroje, ktere snadno umozni prenos cele
konfigurace vyvojoveho prostredi na jiny pocitac.
> Spis to asi bylo mysleno ze dnes bez online napoved na netu a kamarada
> google je to krok zpet.
Presne tak. Vyhledani problemu Googlem je jednoznacne nejefektivnejsi cesta
jak najit reseni. Stejne tak je online dokumentace zpravidla aktualnejsi nez
napriklad MSDN Library na disku, nemluve o navaznosti na pribuzne clanky
atd.
Petr Vones
Download Update z CodeGear
[*] rkubat(zv)email(tec)cz - 07.6.2007 17:30:30
> Zdravim,
>
> jde vam nekomu download Hotfixu pro BDS 2006 z CodeGear.com.
>
> Ja se tam prihlasim validnim a spravnym heslem a ono mi to vyhodi nejaky
> chyby. Delam neco blbe nebo to nejde vsem a CodeGear to ma p...... ?
>
> Vaclav Halik
Omlouvam se za materskou firmu, ale servery v USA jsou evidentne zahlceny
vlnou zajmu o Update #1 pro Delphi 2007. Zkuste, prosim, pokus o stazeni
odlozit na zitra, pripadne pres vikend, je-li to mozne; jakmile budou zajemci
uspokojeni a ziskaji svuj update, zase bude vse v poradku a Hotfixes si stahnete
bez problemu. Chyba neni na Vasi strane.
Kratce receno: ano, Codegear to ma (momentalne) p......
Richard Kubat
Download Update z CodeGear
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 07.6.2007 17:00:28
Zdravim,
jde vam nekomu download Hotfixu pro BDS 2006 z CodeGear.com.
Ja se tam prihlasim validnim a spravnym heslem a ono mi to vyhodi nejaky
chyby. Delam neco blbe nebo to nejde vsem a CodeGear to ma p...... ?
Vaclav Halik
nahrazeni stringu
[*] Novy Lubos <lnovy(zv)unileasing(tec)cz> - 11.6.2007 08:56:14
Vubec nechapu proc, ale mam nasledujici problem:
Funguje:
if fileexists('c:\cs\csstart.bat') then showmessage('cs1');
Nefunguje (soubor nenajde):
if fileexists('c:\cs\*.bat') then showmessage('cs2');
Jakmile nazev souboru nahradim hvezdickou, tak to nefunguje.
Jak jinak mam zjistit, jestli nejaky soubor s konkretni priponou existuje?
Diky,
L.Novy
nahrazeni stringu
[*] Tomas Bihary <delphi(zv)st-software(tec)com> - 11.6.2007 09:14:18
Ahoj,
Funkce FindFirst a FindNext podporuji vyhledavani pres hvezdicku. Pouzij je.
fileexists neni vyhledavani, ale dotaz na konkretni soubor
a soubor se jmenem *.bat neexistuje (ani nemuze)
Tomas
> Vubec nechapu proc, ale mam nasledujici problem:
>
> Funguje:
> if fileexists('c:\cs\csstart.bat') then showmessage('cs1');
>
> Nefunguje (soubor nenajde):
> if fileexists('c:\cs\*.bat') then showmessage('cs2');
>
> Jakmile nazev souboru nahradim hvezdickou, tak to nefunguje.
> Jak jinak mam zjistit, jestli nejaky soubor s konkretni priponou existuje?
>
> Diky,
> L.Novy
nahrazeni stringu
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 11.6.2007 09:12:17
Kdyz chces vyhledavat podle masky, tak na to jsou fce FindFirst a FindNext.
Fce FileExists podle me s wildcardama nepracuje.
Jirka Matejka
> Vubec nechapu proc, ale mam nasledujici problem:
>
> Funguje:
> if fileexists('c:\cs\csstart.bat') then showmessage('cs1');
>
> Nefunguje (soubor nenajde):
> if fileexists('c:\cs\*.bat') then showmessage('cs2');
>
> Jakmile nazev souboru nahradim hvezdickou, tak to nefunguje.
> Jak jinak mam zjistit, jestli nejaky soubor s konkretni priponou existuje?
>
> Diky,
> L.Novy
nahrazeni stringu
[*] Novy Lubos <lnovy(zv)unileasing(tec)cz> - 11.6.2007 09:18:18
Bohuzel stejne se mi to chova i na FindFirst ...
L.Novy
> Kdyz chces vyhledavat podle masky, tak na to jsou fce FindFirst a
> FindNext.
> Fce FileExists podle me s wildcardama nepracuje.
>
> Jirka Matejka
>
>
> > Vubec nechapu proc, ale mam nasledujici problem:
> >
> > Funguje:
> > if fileexists('c:\cs\csstart.bat') then showmessage('cs1');
> >
> > Nefunguje (soubor nenajde):
> > if fileexists('c:\cs\*.bat') then showmessage('cs2');
> >
> >
> > Jakmile nazev souboru nahradim hvezdickou, tak to nefunguje.
> > Jak jinak mam zjistit, jestli nejaky soubor s konkretni priponou
> existuje?
> >
> > Diky,
> > L.Novy
>
>
>
Delphi & Unicode
[*] delphak(zv)centrum(tec)cz - 11.6.2007 09:18:18
Ahoj,
jak je to s podporou Unicode v Delphi? Je v nektere verzi kompletni podpora unicode (VLC, system) ...
Jak moc jsou pouzitelne napriklad TNT komponenty pro Delphi 6? S cim jsou problemy, pripadne co je neresitelne?
Dekuji za info
V.
nahrazeni stringu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 11.6.2007 10:24:23
To uz bude asi chyba mezi zidli a klavesnici, co parametr Attr?
V8clav Sazima
Novy Lubos napsal(a):
> Bohuzel stejne se mi to chova i na FindFirst ...
> L.Novy
>
>
>
>> Kdyz chces vyhledavat podle masky, tak na to jsou fce FindFirst a
>> FindNext.
>> Fce FileExists podle me s wildcardama nepracuje.
nahrazeni stringu
[*] Novy Lubos <lnovy(zv)unileasing(tec)cz> - 11.6.2007 10:34:24
Omlouvam se, uz to funguje.
Na FindFirst to skutecne beha jak ma....
Dekuju za pomoc,
L.Novy
> > Kdyz chces vyhledavat podle masky, tak na to jsou fce FindFirst a
> > FindNext.
> > Fce FileExists podle me s wildcardama nepracuje.
> >
> > Jirka Matejka
> >
> >
> > > Vubec nechapu proc, ale mam nasledujici problem:
> > >
> > > Funguje:
> > > if fileexists('c:\cs\csstart.bat') then showmessage('cs1');
> > >
> > > Nefunguje (soubor nenajde):
> > > if fileexists('c:\cs\*.bat') then showmessage('cs2');
> > >
> > >
> > > Jakmile nazev souboru nahradim hvezdickou, tak to nefunguje.
> > > Jak jinak mam zjistit, jestli nejaky soubor s konkretni priponou
> > existuje?
> > >
> > > Diky,
> > > L.Novy
> >
> >
> >
>
>
nahrazeni stringu
[*] Pavel Zidek <delphi(zv)kopr(tec)cz> - 11.6.2007 10:38:24
var
SearchRec: TSearchRec;
...
if FindFirst(''c:\cs\*.bat', faAnyFile, SearchRec) = 0
then ZdeZpracovat(ExtractFileName(SearchRec.Name))
else FindClose(SearchRec);
while FindNext(SearchRec) = 0 do
ZdeZpracovat(ExtractFileName(SearchRec.Name));
FindClose(SearchRec);
....
Zkust toto
Pavel ZIDEK
> > > Funguje:
> > > if fileexists('c:\cs\csstart.bat') then showmessage('cs1');
> > >
> > > Nefunguje (soubor nenajde):
> > > if fileexists('c:\cs\*.bat') then showmessage('cs2');
> > >
> > >
> > > Jakmile nazev souboru nahradim hvezdickou, tak to nefunguje.
> > > Jak jinak mam zjistit, jestli nejaky soubor s konkretni priponou
> > existuje?
Delphi & Unicode
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 11.6.2007 15:42:44
Cau
ja s unicode v delphi problem nemam, pokud neco potrbuju vse resi
synachar ze synapse..
dcc> jak je to s podporou Unicode v Delphi? Je v nektere verzi
dcc> kompletni podpora unicode (VLC, system) ...
dcc> Jak moc jsou pouzitelne napriklad TNT komponenty pro Delphi 6? S
dcc> cim jsou problemy, pripadne co je neresitelne?
dcc> Dekuji za info
dcc> V.
--
S pozdravem,
David
david.kopecek(zv)hacktrack.com
Delphi a prepis vyslovnosti anglictiny
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 13.6.2007 11:35:37
Potreboval bych do aplikace napsane v Delphi 2007 pro Win32 vpasovat
napr. do labelu znaky pro prepis vyslovnosti. Jde to vubec nejak?
Delphi a prepis vyslovnosti anglictiny
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 13.6.2007 15:05:51
> Potreboval bych do aplikace napsane v Delphi 2007 pro Win32 vpasovat
> napr. do labelu znaky pro prepis vyslovnosti. Jde to vubec nejak?
Mozno Ti pomoze tato stranka:
http://en.wikipedia.org/wiki/International_Phonetic_Alphabet
Pre podporu Unicode mozes pouzit TNT Unicode, povodne opensource.
Najnovsie je to uz sice TMS Unicode: http://www.tmssoftware.com/go.asp?tmsuni
a nie zadarmo, ale starsie verzie so zdrojakmi sa este daju najst na Internete.
HTH
TOndrej
delphi 5 kontra Windows Vista
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 13.6.2007 18:52:06
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Milan Dvorak
Ahoj,
> Chci se zeptat ve skutecnosti na 3 veci:
> 1. Mate zkusenosti s Delphi 5 pod Windows Vista?
Mam. funguje(dokonce pri instalaci nerve na "nekompatibilitu" narozdil od
D7, ktere
presto take v pohode funguji). Jak IDE tak apl. OK zatim bez problemu.
> 2. Pokud ano, nemate nahodou zkusenosti s BDE pod Win Vista
Nemam. Ale google vi.
> 3. Funguje Inno Setup pod Win Vista ?
Funguje. Viz. take http://www.jrsoftware.org/isinfo.php#features
"Support for all versions of Windows in use today: Vista, XP, 2003, 2000,
Me, 98, 95, and NT 4.0. (No service packs are required.) "> P.S. Zatim porad mame Win XP, ale zakaznici nas asi donuti.
Neni vyhnuti. Presel sem na Visty take z techto duvodu...
PMal
delphi 5 kontra Windows Vista
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 13.6.2007 18:40:05
Chci se zeptat ve skutecnosti na 3 veci:
1. Mate zkusenosti s Delphi 5 pod Windows Vista?
2. Pokud ano, nemate nahodou zkusenosti s BDE pod Win Vista (vim, zni to hrozne, ale ta aplikace uz funguje pres 10 let a jeji predelani kvuli prevodu dat u vetsiho poctu uzivatelu oddalujeme co nejvic)
3. Funguje Inno Setup pod Win Vista ?
Dekuji i za odpovedi na jednotlive otazky.
Milan Dvorak
P.S. Zatim porad mame Win XP, ale zakaznici nas asi donuti.
OT: .Net a kontrola pravopisu
[*] Dalibor <dalibor(zv)torola(tec)cz> - 14.6.2007 13:21:18
Ahoj, da se do vlastni aplikace dostat kontrola pravopisu, kdyz je na danem PC nainstalovan OFFICE?
Zajima me to hlavne pro aplikaci v .NET.
Dekuji
D.odesilani meilu v synapsi
[*] Tomas Emresz <tomas.emresz(zv)strankysnadno(tec)cz> - 15.6.2007 15:24:59
Dobry den,
mam zajimavy problemek se synapsi a odesilanim meilu,
pouzivam funkci sendtoraw, a odesilani se projevuje nekolika zpusoby :
1) z jedne aplikace vse jde jak ma:
Connected
>>> 220-mail.strankysnadno(tec)cz ESMTP I.T.E.Development Mail Server; Fri, 15 Jun 2007 15:13:12 +0200
<<< EHLO brawne-lamia
>>> 250-mail.strankysnadno(tec)cz Hello brawne-lamia [127.0.0.1], pleased to meet you.
<<< MAIL FROM:<web(zv)o-nas.net> SIZE=270
>>> 250 2.1.0 <web(zv)o-nas.net>... Sender ok
<<< RCPT TO:<kancnyr(zv)o-nas.net>
>>> 250 2.1.5 <kancnyr(zv)o-nas.net>... User ok
<<< DATA
2) z druhe aplikace se nic neodesle:
>>> 220-mail.strankysnadno(tec)cz ESMTP I.T.E.Development Mail Server; Fri, 15 Jun 2007 15:16:29 +0200
<<< EHLO brawne-lamia
>>> 250-mail.strankysnadno(tec)cz Hello brawne-lamia [127.0.0.1], pleased to meet you.
<<< MAIL FROM:<web(zv)o-nas.net> SIZE=279
>>> 250 2.1.0 <web(zv)o-nas.net>... Sender ok
<<< QUIT
>>> 221 2.0.0 mail.strankysnadno(tec)cz closing connection
vypada to jako by neprosel MAIL FROM (v synapsi, nebot hned za nim QUIT connection)
3) z druhe aplikace, ALE Z JINEHO pocitace (tzn neodesila se pres 127.0.0.1 ale pres BRAWNE-LAMIA - jmeno pocitace) jde vse opet jak me.
127.0.0.1 ma nastaveno na meil serveru relay, takze muze odesilat co hrdlo raci kdykoliv a kamkoliv.
je mi divne, ze log vypada v pripade 1 a 2 stejne, presto dojde rovnou ke QUIT misto RCPT TO: apod..
Poradite ?
--
S pozdravem,
Tomas Emresz
mailto:tomas.emresz(zv)strankysnadno(tec)cz
Problem s TLB a typem EXCEPINFO
[*] Petr Nehez <dpn(zv)atlas(tec)cz> - 15.6.2007 14:58:58
Ahoj,
TomA?L? Bihary wrote:
> Ahoj
> Mam TLB a v ni rozhrani s metodou, ktera ma out paramater typtu EXCEPINFO.
> Kdy se vytvori prepis te TLB do pas, je tam misto EXCEPINFO typ TGUID.
>
> IDL:
> HRESULT _stdcall ParseScriptText(
> [in] LPWSTR pstrCode,
> [in] LPWSTR pstrItemName,
> [in] IUnknown * punkContext,
> [in] LPWSTR pstrDelimiter,
> [in] unsigned long dwSourceContextCookie,
> [in] unsigned long ulStartingLineNumber,
> [in] unsigned long dwFlags,
> [out] VARIANT * pvarResult,
> [out] EXCEPINFO * pexcepinfo );
> PAS:
> function ParseScriptText(pstrCode: PWideChar; pstrItemName: PWideChar;
> const punkContext: IUnknown;
> pstrDelimiter: PWideChar;
> dwSourceContextCookie: LongWord;
> ulStartingLineNumber: LongWord;
> dwFlags: LongWord; out pvarResult:
> OleVariant; out pexcepinfo: TGUID): HResult; stdcall;
A co dat do IDL **pexcepInfo, jestli ocekavas dynamicky alokovany record?
Petr
>
> Da se nejak zaridit aby se prepis vytvarel spravne?
> Je to znama chyba?
> Neco jsem nepochopil?
>
> D5 Ent, UP2,
>
> Diky Tomas
obrazky vetsi nez 64KB
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 15.6.2007 11:22:43
zdravim
pomoci funkce (GetDeviceCaps (_dc,RASTERCAPS) and RC_BITMAP64<>0) si zjistim
zda zarizeni umi obrazky vetsi nez 64KB ale mam takovy dotaz mam se ptat na
zdrojovy nebo cilovy handl a je to cely obrazek nebo jen jeho cast (napr ve
funkci StretchBlt)?
nevite to nekdo nejak sem to nikde nenasel
predem diky Net a kontrola pravopisu
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 15.6.2007 11:24:44
> Ahoj, da se do vlastni aplikace dostat kontrola pravopisu,
> kdyz je na danem PC nainstalovan OFFICE?
> Zajima me to hlavne pro aplikaci v .NET.
Office spristupnuje svoje funkcie cez Automation.
Nahodou prave o tom vysiel clanok:
http://delphi.about.com/b/a/257824.htm
V .NET sa tieto objekty daju pouzit cez tzv. COM interop:
http://www.blong.com/Conferences/BorConUK2002/Interop2/COMNetInterop.htm
http://www.codeproject.com/dotnet/cominterop.asp
HTH
TOndrej
Problem s TLB a typem EXCEPINFO
[*] TomA?L? Bihary <delphi(zv)st-software(tec)com> - 15.6.2007 09:10:34
Ahoj
Mam TLB a v ni rozhrani s metodou, ktera ma out paramater typtu EXCEPINFO.
Kdy se vytvori prepis te TLB do pas, je tam misto EXCEPINFO typ TGUID.
IDL:
HRESULT _stdcall ParseScriptText(
[in] LPWSTR pstrCode,
[in] LPWSTR pstrItemName,
[in] IUnknown * punkContext,
[in] LPWSTR pstrDelimiter,
[in] unsigned long dwSourceContextCookie,
[in] unsigned long ulStartingLineNumber,
[in] unsigned long dwFlags,
[out] VARIANT * pvarResult,
[out] EXCEPINFO * pexcepinfo );
PAS:
function ParseScriptText(pstrCode: PWideChar; pstrItemName: PWideChar;
const punkContext: IUnknown;
pstrDelimiter: PWideChar;
dwSourceContextCookie: LongWord;
ulStartingLineNumber: LongWord;
dwFlags: LongWord; out pvarResult:
OleVariant; out pexcepinfo: TGUID): HResult; stdcall;
Da se nejak zaridit aby se prepis vytvarel spravne?
Je to znama chyba?
Neco jsem nepochopil?
D5 Ent, UP2,
Diky Tomas
Synapse - HTTPS alebo SOCKS cez Proxy nefunguje
[*] Roland Turcan <konf(zv)rotursoft.sk> - 18.6.2007 08:19:08
Hello Delphi CZ!
Nastavil som tieto vlastnosti pre THTTPSend:
ProxyHost
ProxyPort
ProxyUser
ProxyPass
a pre TTCPBlockSocket:
SocksIP
SocksPort
SocksType
SocksUsername
SocksPassword
ale proxy connection funguje len v pripade HTTP spojenia, ale vobec
nefunguje v pripade HTTPS alebo SOCKS4/5.
Co som zabudol nastavit, aby som to rochodil?
Dakujem.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Firebird a join v DELETE SQL prikazu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 18.6.2007 12:41:27
delete from tab1
where
id in (select id from tab 2 where neco = bla)
S pozdravem
Milan Tomes
Petr Fischer napsal(a):
> Zdravim, netusite, jestli se da udelat JOIN ve Firebird SQL DELETE
> prikazu?
>
> tohle nefunguje:
> delete from TAB1 t1, TAB2 t2 where t1.ID = t2.ID and t2.neco = bl
Firebird a join v DELETE SQL prikazu
[*] Petr Fischer <petr.fischer(zv)praguesoft(tec)cz> - 18.6.2007 12:37:27
Zdravim, netusite, jestli se da udelat JOIN ve Firebird SQL DELETE
prikazu?
(potrebuju smazat zaznamy podle podminky, ktera potrebuje dalsi tabulku)
tohle nefunguje:
delete from TAB1 t1, TAB2 t2 where t1.ID = t2.ID and t2.neco = bla
zadny trik jsem nevygoogloval, diky za nakopnuti, pf
Firebird a join v DELETE SQL prikazu
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 18.6.2007 12:49:28
Ahoj, pokud potrebujes delete nad dvema tabulkama zaroven, musis to udelat pres ulozenou
proceduru, pokud ti staci jen nad jednou, tak to prepis na
delete from TAB1 t1 where (select neco from TAB2 t2 where t1.ID = t2.ID) = bla;
pokud potrebujes obe, tak dava-li jedna kombinace ID x ID pouze jeden radek, staci si
udelat uplne stejny select a
for select .... into t1_id, t2_id do begin
delete from tab1 where id = t1_id;
delete from tab2 where id = t2_id;
end
Petr Fischer napsal(a):
> Zdravim, netusite, jestli se da udelat JOIN ve Firebird SQL DELETE
> prikazu?
> (potrebuju smazat zaznamy podle podminky, ktera potrebuje dalsi tabulku)
>
> tohle nefunguje:
> delete from TAB1 t1, TAB2 t2 where t1.ID = t2.ID and t2.neco = bla
bezpecnostni text v PHP
[*] Pavel Smerk <xsmerk(zv)fi.muni(tec)cz> - 18.6.2007 13:25:31
On Mon, Jun 18, 2007 at 01:17:30PM +0200, Milan Dvorak wrote:
> Nevim do jake konference o PHP napsat, proto zkousim tady. Nemate nekdo
> tip na PHP skript, ktery by generoval v graficke podobe ruzne nakloneny
> text, ktery je nutno opsat do nejakeho pole, aby se zamezilo "strojovemu"
> volani nejakeho formulare? Googlil jsem, ale nevygooglil jsem.
Co takhle
http://technet.idnes(tec)cz/tec_denik.asp?c=A070528_093309_tec_denik_pka
? Ale nic o tom nevim (takze mozna to ani neresi Vas problem, uz jsem to ted
necetl), jenom jsem si vzpomnel, ze jsem to pred casem videl na iDNES.
S pozdravem, P.
bezpecnostni text v PHP
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 18.6.2007 13:35:31
Milan Dvorak napsal(a):
> Nemate nekdo tip na PHP skript, ktery by generoval v graficke podobe ruzne nakloneny text, ktery je nutno opsat do nejakeho pole, aby se zamezilo "strojovemu" volani nejakeho formulare?
^^^ To spravne slovo pro hledani je "captcha". Prikladu i hotovych
reseni najdede habadej, zkuste treba freshmeat a sourceforge
-- MO
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
OT: bezpecnostni text v PHP
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 18.6.2007 13:17:30
Nevim do jake konference o PHP napsat, proto zkousim tady.
Nemate nekdo tip na PHP skript, ktery by generoval v graficke podobe ruzne nakloneny text, ktery je nutno opsat do nejakeho pole, aby se zamezilo "strojovemu" volani nejakeho formulare?
Googlil jsem, ale nevygooglil jsem.
Dekuji
Milan Dvorak
ADMIN: OT: bezpecnostni text v PHP
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.6.2007 13:43:32
Puvodni zprava ze dne 18.6.2007 od Milan Dvorak:
> Nevim do jake konference o PHP napsat, proto zkousim tady. Nemate
> nekdo tip na PHP skript, ktery by generoval v graficke podobe ruzne
> nakloneny text, ktery je nutno opsat do nejakeho pole, aby se
> zamezilo "strojovemu" volani nejakeho formulare? Googlil jsem, ale
> nevygooglil jsem.
Tohle tu nema co delat. Ani proto, ze nevis, kam to poslat. Sem
rozhodne ne. Napomenuti administratora a vsichni, kteri zareagovali,
take tak...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Problem s TLB a typem EXCEPINFO
[*] Tomas Bihary <delphi(zv)st-software(tec)com> - 18.6.2007 13:47:33
Ahoj
TLB neni moje ale M$ takze menit nic nemuzu.
Ale TLB Editor to dela i kdyz vytvarim TLB vlastni.
Chova se to stejne i pri pouziti tlbimp.exe.
Zeptam se tedy znovu:
Da se nejak zaridit aby se prepis vytvarel spravne?
Je to znama chyba?
Neco jsem nepochopil?
D5 Ent, UP1,
Tomas
> Ahoj,
>
> TomA?L? Bihary wrote:
>
>> Ahoj
>> Mam TLB a v ni rozhrani s metodou, ktera ma out paramater typtu EXCEPINFO.
>> Kdy se vytvori prepis te TLB do pas, je tam misto EXCEPINFO typ TGUID.
>>
>> IDL:
>> HRESULT _stdcall ParseScriptText(
>> [in] LPWSTR pstrCode,
>> [in] LPWSTR pstrItemName,
>> [in] IUnknown * punkContext,
>> [in] LPWSTR pstrDelimiter,
>> [in] unsigned long dwSourceContextCookie,
>> [in] unsigned long ulStartingLineNumber,
>> [in] unsigned long dwFlags,
>> [out] VARIANT * pvarResult,
>> [out] EXCEPINFO * pexcepinfo );
>> PAS:
>> function ParseScriptText(pstrCode: PWideChar; pstrItemName: PWideChar;
>> const punkContext: IUnknown;
>> pstrDelimiter: PWideChar;
>> dwSourceContextCookie: LongWord;
>> ulStartingLineNumber: LongWord;
>> dwFlags: LongWord; out pvarResult:
>> OleVariant; out pexcepinfo: TGUID): HResult; stdcall;
>>
>
> A co dat do IDL **pexcepInfo, jestli ocekavas dynamicky alokovany record?
>
> Petr
>
>
>> Da se nejak zaridit aby se prepis vytvarel spravne?
>> Je to znama chyba?
>> Neco jsem nepochopil?
>>
>> D5 Ent, UP2,
>>
>> Diky Tomas
Seminar CodeGear v Bratislave
[*] rkubat(zv)email(tec)cz - 18.6.2007 14:01:34
Spolecnost CodeGear (Borland s.r.o.) srdecne zve na odborny seminar
o novych produktech, jejich vyhodach a zpusobech jejich pouzivani.
SEMINAR "CodeGear Info Day"
26.6.2007 v konferencnim sale hotelu Doprastav, Kosicka 52,
821 08 Bratislava, Slovenska republika - VSTUP ZDARMA.
Temata seminare:
1. Predstaveni Delphi 2007 a C++Builder 2007 pro Windows Vista, XP a 2000
2. Vyvoj webovych aplikaci s vyuzitim technologie AJAX
3. Budoucnost vizualniho vyvoje webovych serveru v jazyce PHP,
produkt Delphi for PHP a zpusob prace v jeho prostredi
4. Co je noveho v databazovem nastroji InterBase 2007
Seminar se bude konat v utery dne 26.6.2007 v bratislavskem
hotelu Doprastav od 9:00 hodin. Prednaska v anglictine bude
simultanne tlumocena do cestiny. Vstup je ZDARMA, podminkou
je vsak predchozi registrace.
Podrobny popis seminare najdete na adrese:
http://www.borland(tec)cz/events/cdg_info_day.html
Ucast si zajistite vcasnym vyplnenim registracniho formulare na adrese:
http://www.borland(tec)cz/events/cdg_info_day_form.php
Uzaverka registraci je v pondeli 25.6.2007 v 15:00 hodin.
Mimoradna nabidka:
Vsichni registrovani ucastnici dostanou mimoradnou cenovou
nabidku na nove produkty Delphi 2007 a C++Builder 2007.
Na konci seminare vylosujeme tri vyherce produktu:
Delphi 2007 Enterprise, Delphi for PHP a bezdratova opticka mys.
Tesim se na na Vasi ucast!
S pranim hezkeho dne, -- Richard Kubat, reditel Borland s.r.o.
Firebird a join v DELETE SQL prikazu
[*] Petr Fischer <petr.fischer(zv)praguesoft(tec)cz> - 18.6.2007 15:47:40
Jaj to me taky mohlo napadnout hned, diky moc (oboum), pf
On 18.6.2007, at 12:41, Milan Tomes wrote:
> delete from tab1
> where
> id in (select id from tab 2 where neco = bla)
>
> S pozdravem
>
> Milan Tomes
>
> Petr Fischer napsal(a):
>> Zdravim, netusite, jestli se da udelat JOIN ve Firebird SQL DELETE
>> prikazu?
>>
>> tohle nefunguje:
>> delete from TAB1 t1, TAB2 t2 where t1.ID = t2.ID and t2.neco = bl
>
>
>
Combo a osekavani diakritiky
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 18.6.2007 21:08:01
Uz jsem to vyresil, problem je v defaultnim prevodu widestringu na string v
D7
Po protazeni skrz WideCharToMultiByte je to uz ok.>nesetkal jste se nekdo s tim ze by combo urezavalo diakritiku ?
>Udelal jsem totiz to combo unicodove (aspon doufam, vsechny funkce pro
vytvoreni jeho okna jsou Wckove) ale funkce GetWindowTextW to stale vraci
>orezane :-(
Radek
Combo a osekavani diakritiky
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 18.6.2007 16:43:44
Zdarec,
nesetkal jste se nekdo s tim ze by combo urezavalo diakritiku ?
OEM converzi zaplou nemam, do comba lze text s diakritikou napsat ale napr.z
kun to udela kun nebo z Rericha to udela Rericha.
K tomu se poji otazka - lze mit na formulari jeden jediny unicode prvek ?
Udelal jsem totiz to combo unicodove (aspon doufam, vsechny funkce pro
vytvoreni jeho okna jsou Wckove) ale funkce GetWindowTextW to stale vraci
orezane :-(
Cus
Radek
IBX 7.11
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 19.6.2007 08:58:48
Zdravim vsechny,
nepovaluje se vam na disku update IBX pro D7 ?
CodeCentral je proste nefunkcni. Jestli to takhle Codegear pytlikuje no
tak to nas teda cekaji veci.
S pozdravem
Milan Tomes
Problem s TLB a typem EXCEPINFO
[*] Petr Nehez <dpn(zv)atlas(tec)cz> - 19.6.2007 08:52:47
Ahoj,
Tomas Bihary wrote:
> Ahoj
> TLB neni moje ale M$ takze menit nic nemuzu.
> Ale TLB Editor to dela i kdyz vytvarim TLB vlastni.
> Chova se to stejne i pri pouziti tlbimp.exe.
>
> Zeptam se tedy znovu:
>
> Da se nejak zaridit aby se prepis vytvarel spravne?
> Je to znama chyba?
> Neco jsem nepochopil?
ja mam s tlibimp spatne zkusenosti, nejake "obskurni" konstrukce
nedokaze spravne interpretovat, viz tvuj problem. Bud si budes muset
vysledny .PAS upravit sam nebo pouzij late-binding (IDispatch::Invoke),
ten ja uz od jiste chvile pouzivam stale.
Petr
>> Ahoj,
>>
>> TomA?L? Bihary wrote:
>>
>>> Ahoj
>>> Mam TLB a v ni rozhrani s metodou, ktera ma out paramater typtu EXCEPINFO.
>>> Kdy se vytvori prepis te TLB do pas, je tam misto EXCEPINFO typ TGUID.
>>>
>>> IDL:
>>> HRESULT _stdcall ParseScriptText(
>>> [in] LPWSTR pstrCode,
>>> [in] LPWSTR pstrItemName,
>>> [in] IUnknown * punkContext,
>>> [in] LPWSTR pstrDelimiter,
>>> [in] unsigned long dwSourceContextCookie,
>>> [in] unsigned long ulStartingLineNumber,
>>> [in] unsigned long dwFlags,
>>> [out] VARIANT * pvarResult,
>>> [out] EXCEPINFO * pexcepinfo );
>>> PAS:
>>> function ParseScriptText(pstrCode: PWideChar; pstrItemName: PWideChar;
>>> const punkContext: IUnknown;
>>> pstrDelimiter: PWideChar;
>>> dwSourceContextCookie: LongWord;
>>> ulStartingLineNumber: LongWord;
>>> dwFlags: LongWord; out pvarResult:
>>> OleVariant; out pexcepinfo: TGUID): HResult; stdcall;
>>>
>> A co dat do IDL **pexcepInfo, jestli ocekavas dynamicky alokovany record?
>>
>> Petr
>>
>>
>>> Da se nejak zaridit aby se prepis vytvarel spravne?
>>> Je to znama chyba?
>>> Neco jsem nepochopil?
>>>
>>> D5 Ent, UP2,
>>>
>>> Diky Tomas
>
>
>
>
>
>
>
>
IBX 7.11
[*] Robert Fujak <robof(zv)inmail.sk> - 19.6.2007 09:46:51
Skus
http://www.ibase.ru/ibx/ibxdp711.zip
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Milan Tomes
Sent: Tuesday, June 19, 2007 7:59 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: IBX 7.11
Zdravim vsechny,
nepovaluje se vam na disku update IBX pro D7 ?
CodeCentral je proste nefunkcni. Jestli to takhle Codegear pytlikuje no tak
to nas teda cekaji veci.
S pozdravem
Milan Tomes
Invalid pointer operation ve vyhodnocovani smycky
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 19.6.2007 10:52:56
petr palicka dne 19 Jun 2007 v 10:46:
> Ahoj,
>
> mam takovej fakt blbej problem. Upne jednoducha smycka "for i:=0 to
> j
> do ..." mi pri vyhodnocovani podminky vyhodi hlasku "Invalid pointer
> operation".
Ahoj,
to je fakt divny... Spis bych tipnul, ze to dela neco uvnitr cyklu - zkus tam schvalne dat try... Aspon si myslim, ze kdyz
dovnitr cyklu das treba jenom "asm nop end;", tak to nespadne, ne?
Karel Rys
Invalid pointer operation ve vyhodnocovani smycky
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 19.6.2007 11:24:58
Ahoj,
tak chyba mezi klavesnici a zidli. Ve skutecnosti slo o to, ze jsem
volal proceduru, predaval ji ukazatel na record a v deklaraci procedury
zapomnel napsat "var" prod record, kterym jsem predanemu parametru
pristupoval. pad nastal jakoby pri vykonavani posledniho vykonneho radku
v procedure. zrejme potom dochazelo k uvolnovani toho recordu, coz se
nemelo.
Peca
Invalid pointer operation ve vyhodnocovani smycky
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 19.6.2007 10:46:55
Ahoj,
mam takovej fakt blbej problem. Upne jednoducha smycka "for i:=0 to j
do ..." mi pri vyhodnocovani podminky vyhodi hlasku "Invalid pointer
operation".
Co je divny, udela to po posledni iteraci, kdy by to melo smycku
opustit. Tedy napriklad j je 20 a kdyz se provede 20. iterace (i 0..19),
tak v watches vidim ze i je 20 a pri krokovani pres for mi to hodi tu
hlasku.
Dokonce jsem to prepsal na while i<j do... (j jsem v tomto pripade
zvednul o 1) a stejna chyba ve stejnem miste. Obe promenne jsou typu
integer. obe spravne nastavene.
Jeste je divny, ze kdyz dam na radek s for (while)... break point,
tak se mi tam zastavi beh jen pri inicializaci, ale podruhe, po F9, uz
ne. Musim tam dokrokovat F8.
Nesetkal jste se nekdo nahodou s podobnym chovanim? Jsem z toho
docela zoufaly.
D6pro _i_ D7pro - oboji po instalaci poslednich updatu.
Peca
Zabranit spusteni programu pres vzdalenou plochu
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 19.6.2007 14:13:09
Ahoj *,
chtel bych zajistit aby muj program nebylo mozne spustit pres Remote Desktop
Connection. Vykon takto spusteneho programu je velmi nizky a nedela mi to
dobre jmeno. V zasade neexistuje duvod proc ten program (databazova
aplikace) takto spoustet. Vzdaleny uzivatel si muze klienta nainstalovat u
sebe a k tomu ho chci takto donutit.
Mohu nejak poznat, ze jsem spusten na vzdalene plose (win XP)?
Dekuji.
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.472 / Virus Database: 269.9.0/853 - Release Date: 18.6.2007
15:02
Zabranit spusteni programu pres vzdalenou plochu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 19.6.2007 14:27:10
Osobne si myslim, ze zakazovat tuto funkcnost je nesmysl (ba prave
naopak), ale pointa je v tom, ze je nutno zjistit jestli je aplikace
spoustena v terminalovem rezimu.
Ja osobne se snazim terminalove spousteni podporovat napr. tim, ze vypnu
vykreslovani bitmapy na pozadi a podobne graficke udelatka. Vlastni
vykon v terminalovem rezimu je omezen pouze rychlosti pripojeni (coz by
snad uz dnes nemel byt problem) a vykonu terminaloveho serveru (je nutno
s tim pocitat).
Myslim, ze vice nez zakaz spousteni pres vzdalenou plochu Ti dobre jmeno
udela kvalitni podpora i v tomto rezimu. IMHO z praxe vim, ze castokrat
je spusteni v terminalovem rezimu mnohem vyhodnejsi (a rychlejsi) nez
lokalni instalace s prenosem dat pres napr. VPN a podobne.
Jinak tahle funkce Ti asi pomuze:
function IsRemoteSession : Boolean;
begin
Result := (SysUtils.Win32Platform = Windows.VER_PLATFORM_WIN32_NT) and (GetSystemMetrics($1000{=SM_REMOTESESSION}) <> 0);
end;
S pozdravem
Milan Tomes
Martin Pisarik napsal(a):
> chtel bych zajistit aby muj program nebylo mozne spustit pres Remote Desktop
> Connection. Vykon takto spusteneho programu je velmi nizky a nedela mi to
> dobre jmeno. V zasade neexistuje duvod proc ten program (databazova
> aplikace) takto spoustet. Vzdaleny uzivatel si muze klienta nainstalovat u
> sebe a k tomu ho chci takto donutit.
> Mohu nejak poznat, ze jsem spusten na vzdalene plose (win XP)
Zabranit spusteni programu pres vzdalenou plochu
[*] vlko <vlko(zv)zilina(tec)net> - 19.6.2007 14:37:11
Martin Pisarik wrote:
> Ahoj *,
>
> chtel bych zajistit aby muj program nebylo mozne spustit pres Remote Desktop
> Connection. Vykon takto spusteneho programu je velmi nizky a nedela mi to
> dobre jmeno. V zasade neexistuje duvod proc ten program (databazova
> aplikace) takto spoustet. Vzdaleny uzivatel si muze klienta nainstalovat u
> sebe a k tomu ho chci takto donutit.
> Mohu nejak poznat, ze jsem spusten na vzdalene plose (win XP)?
hmm, v praci pouzivam cez remote desktop visual studio, ie7
a okrem animacii nevidim v tom problem, skor asi ide o
licencnu ochranu ako o vykon:)
ale trebars treba skusit toto:
http://www.thescripts.com/forum/thread442528.html
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Zabranit spusteni programu pres vzdalenou plochu
[*] delphin(zv)post(tec)cz - 19.6.2007 14:31:11
> chtel bych zajistit aby muj program nebylo mozne spustit pres Remote
> Desktop
> Connection. Vykon takto spusteneho programu je velmi nizky a nedela mi to
> dobre jmeno. V zasade neexistuje duvod proc ten program (databazova
> aplikace) takto spoustet. Vzdaleny uzivatel si muze klienta nainstalovat u
> sebe a k tomu ho chci takto donutit.
> Mohu nejak poznat, ze jsem spusten na vzdalene plose (win XP)?
Melo by fungovat tohle, ale nemam to vyzkouseno:
BOOL IsRemoteSession(void)
{
return GetSystemMetrics( SM_REMOTESESSION );
}Znemoznit uzivateli spoustet program pres vzdalenou plochu ale neni vubec
dobry napad. Spravne reseni je zobrazit okno s upozornenim.
Zabranit spusteni programu pres vzdalenou plochu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 19.6.2007 14:29:11
Jeste bych chtel dodat, ze to neni vselek - pokud dany uzivatel pouzije
napr. FreeVNC bude jeho vykon jeste horsi, ale ty to pravdepodobne nejsi
schopen zjistit. Naopak remote desktop primo ve WinXP je jeden z tech
lepsich a velmi vykonnych (technologie Citrixu se nezapre) :)
S pozdravem
Milan Tomes
OT: Zabranit spusteni programu pres vzdalenou ploc
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 19.6.2007 15:05:13
:-) Tak ja to tedy trochu rozvedu, snizeny vykon pres remote desktop neni
hlavnim duvodem.
Muj sw je DB klient, ktery se potrebuje pripojit k DB serveru v centrale.
Jediny, co "admin" (neci synovec co dela do pocitacu) dokazal udelat, je
poradit cloveku, co chtel s aplikaci pracovat z pobocky, at se na server(!)
v centrale prihlasi (dal mu adminovky ucet!!!) pres remote desktop.
Ten "vzdaleny" pracovnik (BFU) vsak obcas neco z te aplikace (klienta)
vytiskne a moc se divi "ze mu to na pobocce netiskne". V centrale zas maji
problem, ze jim potiskava jejich papir. Jejich "admin" to ted prave
reportoval (dost agresivne) jako "problem s tiskem" a ja uz mu opravdu nemam
silu vysvetlovat o co jde. A jeho sefovi uz vubec ne - ten tomu nerozumi
vubec...
Proto tedy zakazu spousteni pres vzdalenou plochu, tim donutim "admina" aby
se trochu naucil pracovat s pocitacem a nastavil to spravne...
Mimochodem ten "admin" sice koupil verenou IP, ale nejak to nezvladl
nastavit, takze ten Remote desktop jede jeste pres Hamachi...
Diky vsem a omlouvam se za OT, ale chtel jsem jen ukazat jak jsou skvele
technologie v rukou nekterych lidi nebezpecne a trochu si postezovat ;-)
Osobne remote desktop taky casto vyuzivam a nemuzu si to vynachvalit.
>
> Osobne si myslim, ze zakazovat tuto funkcnost je nesmysl (ba prave
> naopak), ale pointa je v tom, ze je nutno zjistit jestli je aplikace
> spoustena v terminalovem rezimu.
> Ja osobne se snazim terminalove spousteni podporovat napr. tim, ze vypnu
> vykreslovani bitmapy na pozadi a podobne graficke udelatka. Vlastni
> vykon v terminalovem rezimu je omezen pouze rychlosti pripojeni (coz by
> snad uz dnes nemel byt problem) a vykonu terminaloveho serveru (je nutno
> s tim pocitat).
> Myslim, ze vice nez zakaz spousteni pres vzdalenou plochu Ti dobre jmeno
> udela kvalitni podpora i v tomto rezimu. IMHO z praxe vim, ze castokrat
> je spusteni v terminalovem rezimu mnohem vyhodnejsi (a rychlejsi) nez
> lokalni instalace s prenosem dat pres napr. VPN a podobne.
>
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.472 / Virus Database: 269.9.0/853 - Release Date: 18.6.2007
15:02
Zabranit spusteni programu pres vzdalenou plochu
[*] vlko <vlko(zv)zilina(tec)net> - 19.6.2007 15:39:16
Martin Pisarik wrote:
> :-) Tak ja to tedy trochu rozvedu, snizeny vykon pres remote desktop neni
> hlavnim duvodem.
>
> Muj sw je DB klient, ktery se potrebuje pripojit k DB serveru v centrale.
> Jediny, co "admin" (neci synovec co dela do pocitacu) dokazal udelat, je
> poradit cloveku, co chtel s aplikaci pracovat z pobocky, at se na server(!)
> v centrale prihlasi (dal mu adminovky ucet!!!) pres remote desktop.
> Ten "vzdaleny" pracovnik (BFU) vsak obcas neco z te aplikace (klienta)
> vytiskne a moc se divi "ze mu to na pobocce netiskne". V centrale zas maji
nebolo by jednoduchsie na server nainstalovat driver pre
jeho lokalnu tlaciaren v remote desktop mu nastavit
zdielanie tlaciarne a cez logon script potom zabezpecit aby
sa nastavila ako default.
Alebo este jednoduchsie pre takto prihlaseneho uzivatela
zakazat tlacit.
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Zabranit spusteni programu pres vzdalenou plochu
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 19.6.2007 15:57:17
Mozna bylo, ale ja nejsem jejich spravce. A ten, kdo je jejich "admin",
neumi ani prejmenovat soubor - a to fakt nekecam. Proto si myslim, ze bude
lepsi lidem, kteri to neumi, podobne veci radsi zakazat dokud se to nedouci.
Jakykoliv problem, kteryu se nejak tyka pocitacu je tim clovekem "svaden" na
moji aplikaci, takze v tokovem pripade bude nejlepsi vzdaleny pristup
nepodporovat, protoze k nemu neni duvod. Ten klient je malinky a kazdy ho
muze spoustet na svem PC. Jen jsem chtel vedet jak na to. Diky.
>
> nebolo by jednoduchsie na server nainstalovat driver pre
> jeho lokalnu tlaciaren v remote desktop mu nastavit
> zdielanie tlaciarne a cez logon script potom zabezpecit aby
> sa nastavila ako default.
>
> Alebo este jednoduchsie pre takto prihlaseneho uzivatela
> zakazat tlacit.
>
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.472 / Virus Database: 269.9.0/853 - Release Date: 18.6.2007
15:02
OT: Nabidka spoluprace
[*] Miroslav Auzky <auzky(zv)dcomm(tec)cz> - 19.6.2007 20:23:35
Hledame programatora Delphi pro podporu a rozvoj systemu Qualcomm (www.qualcomm.com) - monitorovani vozidel v mezinarodni kamionove doprave
- prace s Firebird
- historicky jeste castecne Paradox
- kontakt se zakaznikem
Pokud bude zajem, piste prosim na job(zv)dcomm(tec)cz nebo primy mail.
Dekuji, ze jste venovali cas teto informaci.
Miroslav Auzky
D&COMM s.r.o.
Korunovacni 6
CZ - 170 00 Praha 7
tel: +420 233 382 540, fax: +420 233 382 545
www.dcomm(tec)cz
Jak ladit unicode
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 19.6.2007 23:07:45
Zdravim,
Nemate nekdo nejakou fintu jak ladit unicode aplikace ?
Jde o to ze kdyz mam widestring a zrovna nahodou neni v odpovidajici casti
ansi tak se ve watches atd... (na D7) zobrazuji jenom otaznicky :-(
Nema nekdo tip na nejakeho experta nebo neco jineho co by zvladalo evaluaci
widestringu ?
Vypisovat nekam se me to zrovna moc nechce ale vypada to ze nic jineho
nezbude :-((
Zatim
Radek
Synapse - HTTPS alebo SOCKS cez Proxy nefunguje
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.6.2007 09:08:25
> ale proxy connection funguje len v pripade HTTP spojenia, ale vobec
> nefunguje v pripade HTTPS alebo SOCKS4/5.
Zkusil jsem to, a HTTPS mi funguje jak pres HTTP proxy, tak i pres
SOCKS proxy.
P.S. netreba se ptat tady a zaroven v Synalistu, staci to na jednom
miste. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Synapse - HTTPS alebo SOCKS cez Proxy nefunguje
[*] Roland Turcan <konf(zv)rotursoft.sk> - 20.6.2007 09:58:29
<<< 20.6.2007 9:08 - Lukas Gebauer "gebylist(zv)mlp(tec)cz" >>>
>> ale proxy connection funguje len v pripade HTTP spojenia, ale vobec
>> nefunguje v pripade HTTPS alebo SOCKS4/5.
LG> Zkusil jsem to, a HTTPS mi funguje jak pres HTTP proxy, tak i pres
LG> SOCKS proxy.
LG> P.S. netreba se ptat tady a zaroven v Synalistu, staci to na jednom
LG> miste. ;-)
Dakujem za odpoved, ale ja to skusam oproti 602LanSuite 4.0 a hlasi
to v pripade HTTPS BadURL a BlankURL.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Jak ladit unicode
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 20.6.2007 12:50:40
Ja si do Wathce vypisuji Ordinalni hodnotu znaku a tim poznam ze je to jeste unicode nebo uz otaznicek(tusim ze ma 63).
Petr
IBX 7.11
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 21.6.2007 07:01:49
Ahoj
Pokud pouzivas IbDataset ke generovani SQL prikazu, tak verze 11 z D2007
mi zacala generovat u Update a Insert prikazu i vypocitane udaje. (takze
je musim rucne vylucovat).
Verze 7.08 v D7 mi to nedelala.
Ale problem muze byt i jinde ...
Jura
>Robert Fujak napsal(a):
> Skus
> http://www.ibase.ru/ibx/ibxdp711.zip
>
> nepovaluje se vam na disku update IBX pro D7 ?
> CodeCentral je proste nefunkcni. Jestli to takhle Codegear pytlikuje no tak
> to nas teda cekaji veci.
>
> S pozdravem
>
> Milan Tomes
Prava na registre
[*] Jozef Jusko <jusko(zv)colnicapo.sk> - 21.6.2007 10:54:05
Ahoj,
ako programovo nastavim opravnenia na urcitu vetvu registrov pre W2K,WXP ? Program bude prvykrat spustany s administratorskymi pravami.
D7Ent
Prava na registre
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 21.6.2007 13:04:14
> ako programovo nastavim opravnenia na urcitu vetvu registrov
> pre W2K,WXP ? Program bude prvykrat spustany s
> administratorskymi pravami.
Tu je na to priklad:
http://msdn2.microsoft.com/En-US/library/aa379283.aspx
a tu je kod, ktorym som si to narychlo vyskusal v Delphi:
uses
AccCtrl;
function GetNamedSecurityInfo(pObjectName: PChar; ObjectType : SE_OBJECT_TYPE; SecurityInfo: SECURITY_INFORMATION;
ppsidOwner, ppsidGroup: PPSID; ppDacl, ppSacl: PPACL; var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD; stdcall;
external 'advapi32.dll' name 'GetNamedSecurityInfoA';
function SetEntriesInAcl(cCountOfExplicitEntries: ULONG; pListOfExplicitEntries: PEXPLICIT_ACCESS; OldAcl: PACL;
var NewAcl: PACL): DWORD; stdcall; external 'advapi32.dll' name 'SetEntriesInAclA';
function SetNamedSecurityInfo(pObjectName: PChar; ObjectType: SE_OBJECT_TYPE; SecurityInfo: SECURITY_INFORMATION;
psidOowner, psidGroup: PSID; pDacl, pSacl: PACL): DWORD; stdcall; external 'advapi32.dll' name 'SetNamedSecurityInfoA';
procedure AddRegAccess(const RegPath, UserName: string; Rights: Cardinal);
var
OldDacl, NewDacl: PACL;
sd: PSECURITY_DESCRIPTOR;
ea: EXPLICIT_ACCESS;
begin
sd := nil;
NewDacl := nil;
try
if GetNamedSecurityInfo(PChar(RegPath), SE_REGISTRY_KEY, DACL_SECURITY_INFORMATION, nil, nil, (zv)OldDACL, nil,
sd) <> ERROR_SUCCESS then
RaiseLastOSError;
FillChar(ea, SizeOf(ea), 0);
ea.grfAccessPermissions := Rights;
ea.grfAccessMode := GRANT_ACCESS;
ea.grfInheritance := SUB_CONTAINERS_AND_OBJECTS_INHERIT;
ea.Trustee.TrusteeForm := TRUSTEE_IS_NAME;
ea.Trustee.TrusteeType := TRUSTEE_IS_USER;
ea.Trustee.ptstrName := PChar(UserName);
if SetEntriesInAcl(1, (zv)ea, OldDacl, NewDacl) <> ERROR_SUCCESS then
RaiseLastOSError;
if SetNamedSecurityInfo(PChar(RegPath), SE_REGISTRY_KEY, DACL_SECURITY_INFORMATION, nil, nil, NewDacl,
nil) <> ERROR_SUCCESS then
RaiseLastOSError;
finally
if sd <> nil then
LocalFree(Cardinal(sd));
if NewDacl <> nil then
LocalFree(Cardinal(NewDacl));
end;
end;
priklad pouzitia:
// lokalny uzivatel
AddRegAccess('MACHINE\Software\digital publishing\LMS', 'Test1', GENERIC_WRITE);
// uzivatel v domene
AddRegAccess('MACHINE\Software\digital publishing\LMS', 'DPUBLISHING\Ralph', GENERIC_WRITE);
Stringy pre preddefinovane kluce su 'CLASSES_ROOT', 'CURRENT_USER', 'MACHINE', 'USERS':
http://msdn2.microsoft.com/En-US/library/aa379593.aspx
HTH
TOndrej
twebbrowser
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 21.6.2007 15:06:23
musis neco nastavit v registru.
Myslim, ze vymazat hodnotu:
AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.current
Kdyz bude mit nekdoneco lepsiho, tak by me to taky zajimalo...> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of David Kopecek
> Sent: Thursday, June 21, 2007 2:44 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: twebbrowser
>
>
> Zdravim
>
> nevite nahodou prosim nekdo jak vypnout zvuk pri pouzivani twebbrowser
> ?.. v IE aplikaci se to vypnout da ale nevim jak u toho browseru
>
> Diky david
>
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.472 / Virus Database: 269.9.0/853 - Release Date:
> 18.6.2007 15:02
>
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.472 / Virus Database: 269.9.0/853 - Release Date: 18.6.2007
15:02
odesilani meilu v synapsi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 21.6.2007 14:56:22
> je mi divne, ze log vypada v pripade 1 a 2 stejne, presto dojde rovnou
> ke QUIT misto RCPT TO: apod..
To je mi taky hodne divne. Nejlepsi by bylo, kdybys pouzil Wireshark
a zachytil tu nefunkci komunikaci. To pak uloz do souboru a posli mi
to na muj mail. Zkusim se podivat, jestlitamnezahlednu neco, co by
delalo neplechu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
twebbrowser
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 21.6.2007 14:44:21
Zdravim
nevite nahodou prosim nekdo jak vypnout zvuk pri pouzivani twebbrowser
?.. v IE aplikaci se to vypnout da ale nevim jak u toho browseru
Diky david
Prava na registre
[*] Jozef Jusko <jusko(zv)colnicapo.sk> - 22.6.2007 09:35:38
A tebe ten priklad fungoval ?
Mne to neslo ani skompilovat, musel som pridat
type PPSID = ^ PSID;
PPACL = ^ PACL;
Toto uz skompilovalo, ale volanie SetEntriesInAcl vzdy dava chybu 87, podla
dokumentacie ERROR_INVALID_PARAMETER.
Skusil som priamo zahrnut aclapi bez vlastnych protoypov, ale tam je asi
chyba, lebo namiesto ADVAPI32.DLL okazuje na neexistujucu ACLAPI.DLL.
----- Original Message -----
From: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, June 21, 2007 1:04 PM
Subject: Re: Prava na registre
>> ako programovo nastavim opravnenia na urcitu vetvu registrov
>> pre W2K,WXP ? Program bude prvykrat spustany s
>> administratorskymi pravami.
>
> Tu je na to priklad:
> http://msdn2.microsoft.com/En-US/library/aa379283.aspx
>
> a tu je kod, ktorym som si to narychlo vyskusal v Delphi:
>
> uses
> AccCtrl;
>
> function GetNamedSecurityInfo(pObjectName: PChar; ObjectType :
> SE_OBJECT_TYPE; SecurityInfo: SECURITY_INFORMATION;
> ppsidOwner, ppsidGroup: PPSID; ppDacl, ppSacl: PPACL; var
> ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD; stdcall;
> external 'advapi32.dll' name 'GetNamedSecurityInfoA';
> function SetEntriesInAcl(cCountOfExplicitEntries: ULONG;
> pListOfExplicitEntries: PEXPLICIT_ACCESS; OldAcl: PACL;
> var NewAcl: PACL): DWORD; stdcall; external 'advapi32.dll' name
> 'SetEntriesInAclA';
> function SetNamedSecurityInfo(pObjectName: PChar; ObjectType:
> SE_OBJECT_TYPE; SecurityInfo: SECURITY_INFORMATION;
> psidOowner, psidGroup: PSID; pDacl, pSacl: PACL): DWORD; stdcall;
> external 'advapi32.dll' name 'SetNamedSecurityInfoA';
>
> procedure AddRegAccess(const RegPath, UserName: string; Rights: Cardinal);
> var
> OldDacl, NewDacl: PACL;
> sd: PSECURITY_DESCRIPTOR;
> ea: EXPLICIT_ACCESS;
> begin
> sd := nil;
> NewDacl := nil;
> try
> if GetNamedSecurityInfo(PChar(RegPath), SE_REGISTRY_KEY,
> DACL_SECURITY_INFORMATION, nil, nil, (zv)OldDACL, nil,
> sd) <> ERROR_SUCCESS then
> RaiseLastOSError;
>
> FillChar(ea, SizeOf(ea), 0);
> ea.grfAccessPermissions := Rights;
> ea.grfAccessMode := GRANT_ACCESS;
> ea.grfInheritance := SUB_CONTAINERS_AND_OBJECTS_INHERIT;
> ea.Trustee.TrusteeForm := TRUSTEE_IS_NAME;
> ea.Trustee.TrusteeType := TRUSTEE_IS_USER;
> ea.Trustee.ptstrName := PChar(UserName);
>
> if SetEntriesInAcl(1, (zv)ea, OldDacl, NewDacl) <> ERROR_SUCCESS then
> RaiseLastOSError;
>
> if SetNamedSecurityInfo(PChar(RegPath), SE_REGISTRY_KEY,
> DACL_SECURITY_INFORMATION, nil, nil, NewDacl,
> nil) <> ERROR_SUCCESS then
> RaiseLastOSError;
> finally
> if sd <> nil then
> LocalFree(Cardinal(sd));
> if NewDacl <> nil then
> LocalFree(Cardinal(NewDacl));
> end;
> end;
>
> priklad pouzitia:
> // lokalny uzivatel
> AddRegAccess('MACHINE\Software\digital publishing\LMS', 'Test1',
> GENERIC_WRITE);
> // uzivatel v domene
> AddRegAccess('MACHINE\Software\digital publishing\LMS',
> 'DPUBLISHING\Ralph', GENERIC_WRITE);
>
> Stringy pre preddefinovane kluce su 'CLASSES_ROOT', 'CURRENT_USER',
> 'MACHINE', 'USERS':
> http://msdn2.microsoft.com/En-US/library/aa379593.aspx
>
> HTH
> TOndrej
>
>
> Prava na registre
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 22.6.2007 10:15:41
> A tebe ten priklad fungoval ?
Ano, fungovalo to u mna na Windows 2000 SP4 Server.
> Mne to neslo ani skompilovat, musel som pridat
>
> type PPSID = ^ PSID;
> PPACL = ^ PACL;
Ano, ospravedlnujem sa, to som omylom vynechal.
> Toto uz skompilovalo, ale volanie SetEntriesInAcl vzdy dava
> chybu 87, podla
> dokumentacie ERROR_INVALID_PARAMETER.
Na com to bezi?
http://support.microsoft.com/kb/242510
> Skusil som priamo zahrnut aclapi bez vlastnych protoypov, ale
> tam je asi chyba, lebo namiesto ADVAPI32.DLL okazuje na
> neexistujucu ACLAPI.DLL.
Vdaka, nevsimol som si, ze AclApi existuje :-)
Ale to je divne, AclApi u mna v Delphi 7, 2006 a 2007 pouziva advapi32.dll.
Nechyba Ti nahodou v D7 update pack?
A este nieco: V Delphi 7 v AccCtrl.pas chyba nastavenie {$MINENUMSIZE 4}.
V novsich verziach je to uz spravne. Daj si to tam, to by mohlo pomoct.
HTH
TOndrej
twebbrowser
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 22.6.2007 12:55:51
Cau
MP> musis neco nastavit v registru.
MP> Myslim, ze vymazat hodnotu:
MP> AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.current
MP> Kdyz bude mit nekdoneco lepsiho, tak by me to taky zajimalo...
tohle sem taky nasel, problem je vtom ze to potrbuju vzdy v nove
instanci.. a nekde to ma jit a nekde ne.. Ale zrejme sem uz asi
prisel na to kde zjistim jak to funguje.. Existuje nejaky opensource
web browser postaveny na twebbrowser komponente a vypinani to tam ma.
Dam vedet.>> -----Original Message-----
>> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>> Behalf Of David Kopecek
>> Sent: Thursday, June 21, 2007 2:44 PM
>> To: delphi-l(zv)clexpert(tec)cz
>> Subject: twebbrowser
>>
>>
>> Zdravim
>>
>> nevite nahodou prosim nekdo jak vypnout zvuk pri pouzivani twebbrowser
>> ?.. v IE aplikaci se to vypnout da ale nevim jak u toho browseru
>>
>> Diky david
--
S pozdravem,
David
david.kopecek(zv)hacktrack.com
Prava na registre
[*] Jozef Jusko <jusko(zv)colnicapo.sk> - 22.6.2007 13:07:52
> Na com to bezi?
WXP SP2.
> Ale to je divne, AclApi u mna v Delphi 7, 2006 a 2007 pouziva
> advapi32.dll.
> Nechyba Ti nahodou v D7 update pack?
Moja chyba, program, ktory toto bude vyuzivat je vytvarany este v D5Ent a
tam je to aclapi.dll, v D7 je to advapi32.dll. Aj tak to vsak neslo ani na
D5 ani na D7.
Ak sa vsak kod trochu upravi, zacne to pod WXP fungovat.
procedure TForm1.AddRegAccess(const RegPath, UserName: string; Rights:
DWORD);
var
OldDacl, NewDacl: PACL;
sd: PSECURITY_DESCRIPTOR;
ea : array[0..1] of EXPLICIT_ACCESS_A;
x:Integer;
begin
sd := nil;
NewDacl := nil;
try
if GetNamedSecurityInfo(PAnsiChar(RegPath), SE_REGISTRY_KEY,
DACL_SECURITY_INFORMATION, nil, nil, (zv)OldDACL, nil,
sd) <> ERROR_SUCCESS then
exit;
BuildExplicitAccessWithName( (zv)ea[0], PAnsiChar(UserName), Rights,
GRANT_ACCESS, SUB_CONTAINERS_AND_OBJECTS_INHERIT);
ea[0].Trustee.TrusteeForm := TRUSTEE_IS_NAME;
ea[0].Trustee.TrusteeType := TRUSTEE_IS_USER;
x:=SetEntriesInAcl(1, (zv)ea[0], OldDacl, NewDacl);
if x<> ERROR_SUCCESS then
begin
ShowMessage(IntToStr(x));
exit;
end;
if SetNamedSecurityInfo(PAnsiChar(RegPath), SE_REGISTRY_KEY,
DACL_SECURITY_INFORMATION, nil, nil, NewDacl,
nil) <> ERROR_SUCCESS then
exit;
finally
if sd <> nil then
LocalFree(Cardinal(sd));
if NewDacl <> nil then
LocalFree(Cardinal(NewDacl));
end;
end;
Cela zmena je v podstate len v definovani ea ako pola a volani
BuildExplicitAccessWithName pred SetEntriesInAcl.
Toto okrem WXP funguje aj na W2003server. Skusal som to vsak na WVista a tam
to hodi chybu uz pri volani GetNamedSecurityInfo, kod 5, to by malo byt
nieco ako Access Denied. Kedze ja to potrebujem hlavne pre WVista, idem
skusat dalej.
----- Original Message -----
From: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 22, 2007 10:15 AM
Subject: Re: Prava na registre
>> A tebe ten priklad fungoval ?
>
> Ano, fungovalo to u mna na Windows 2000 SP4 Server.
>
>> Mne to neslo ani skompilovat, musel som pridat
>>
>> type PPSID = ^ PSID;
>> PPACL = ^ PACL;
>
> Ano, ospravedlnujem sa, to som omylom vynechal.
>
>> Toto uz skompilovalo, ale volanie SetEntriesInAcl vzdy dava
>> chybu 87, podla
>> dokumentacie ERROR_INVALID_PARAMETER.
>
> Na com to bezi?
> http://support.microsoft.com/kb/242510
>
>> Skusil som priamo zahrnut aclapi bez vlastnych protoypov, ale
>> tam je asi chyba, lebo namiesto ADVAPI32.DLL okazuje na
>> neexistujucu ACLAPI.DLL.
>
> Vdaka, nevsimol som si, ze AclApi existuje :-)
> Ale to je divne, AclApi u mna v Delphi 7, 2006 a 2007 pouziva
> advapi32.dll.
> Nechyba Ti nahodou v D7 update pack?
>
> A este nieco: V Delphi 7 v AccCtrl.pas chyba nastavenie {$MINENUMSIZE 4}.
> V novsich verziach je to uz spravne. Daj si to tam, to by mohlo pomoct.
>
> HTH
> TOndrej
>
>
> Prava na registre
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 22.6.2007 13:41:54
> Ak sa vsak kod trochu upravi, zacne to pod WXP fungovat.
> var
> ea : array[0..1] of EXPLICIT_ACCESS_A;
> BuildExplicitAccessWithName( (zv)ea[0], PAnsiChar(UserName), Rights,
> GRANT_ACCESS, SUB_CONTAINERS_AND_OBJECTS_INHERIT);
> Cela zmena je v podstate len v definovani ea ako pola a volani
> BuildExplicitAccessWithName pred SetEntriesInAcl.
V tej definicii to asi nebude, ved (zv)ea[0] je odkaz na prvy prvok pola typu EXPLICIT_ACCESS, takze je to to iste.
Nebude to skor tym, ze si tam nedal to {$MINENUMSIZE 4} a deklaracia EXPLICIT_ACCESS (ACCESS_MODE) na strane Delphi je tym padom nespravna? BuildExplicitAccessWithName zrejme tu pamet vyplni spravne, a kedze tam mas dost miesta - pole s 2 prvkami ;-), potom je ta struktura v pameti vytvorena spravne. Spravnejsie by bolo opravit si AccCtrl.pas, ako som uz pisal.
> Toto okrem WXP funguje aj na W2003server. Skusal som to vsak
> na WVista a tam to hodi chybu uz pri volani GetNamedSecurityInfo,
> kod 5, to by malo byt nieco ako Access Denied.
OK, takze kod funguje, ERROR_ACCESS_DENIED bude zrejme nedostatocnymi pravami. Na Viste to moze znamenat napriklad aj to, ze potrebujes manifest s "requireAdministrator". Skus, mozno to pomoze.
HTH
TOndrej
Refresh nad tabulkou
[*] delphi(zv)spst(tec)cz - 23.6.2007 10:41:19
Ahoj
Potrebuji poradit v D7 pracuji s databazi MySQL a komponentama Zeos. Nad
tabulkou otevru dialog a vyplnim ho. Po uzavreni potrebuji, aby se
uprava promitla v hlavni tabulce. Tato tabulka ma pocitane sloupce a ma
i zapati (suma). Kdyz provedu refresh tak se vse udela, ale trva to cca
2s. Je mozne provest refres jen jednoho radku v dbgridu?
Kdyz byla tabulka skoro prazdna vse fungovalo rychle. Cim je tam vice
dat tim to logicky trva dele. Nechci se dostat do stavu, kdy uzivatel
bude cekat a cekat a ceka.
Predem dekuji
Jirka
Download Update z CodeGear
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 24.6.2007 16:18:39
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of rkubat(zv)email(tec)cz
> Sent: Thursday, June 07, 2007 5:31 PM
Tak to si zajem asi trva, grrrrrr. Nebo se snad nekomu zadari stahnout
http://downloads.codegear.com/default.aspx?productid=2012 ?
Neni mozne to stahnout na nejakem zrcadle proboha?
PS: NEchci online instalaci, chci balicek kterej pustim.
Dkeuji PMal
> Omlouvam se za materskou firmu, ale servery v USA jsou evidentne zahlceny
> vlnou zajmu o Update #1 pro Delphi 2007. Zkuste, prosim, pokus o stazeni
> odlozit na zitra, pripadne pres vikend, je-li to mozne; jakmile budou
zajemci
> uspokojeni a ziskaji svuj update, zase bude vse v poradku a Hotfixes si
stahnete
> bez problemu. Chyba neni na Vasi strane.
>
> Kratce receno: ano, Codegear to ma (momentalne) p......
Download Update z CodeGear
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 25.6.2007 14:36:03
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> Tak to si zajem asi trva, grrrrrr. Nebo se snad nekomu zadari
> stahnout
> http://downloads.codegear.com/default.aspx?productid=2012 ?
>
> Neni mozne to stahnout na nejakem zrcadle proboha?
>
> PS: NEchci online instalaci, chci balicek kterej pustim.
Beru zpet. Uz se asi probral.
PMal
DBRichEdit - problem s prekreslovanim
[*] Tyslic Jiri <jiri.tyslic(zv)delfortgroup(tec)com> - 26.6.2007 10:11:20
Dobry den,
chtel bych Vas poprosit o nejaky dobry tip co s nasledujicim problemem.
Mam DBRichEdit, ktery je napojeny na DB. Prochazim Grid a v DBRichEditu
se prubezne zobrazuji RTF zaznamy. Mam ovsem jeden zaznam, na ktery kdyz
najedu, tak zustane v RichEdit jiz na veky veku a pomuze pouze restart
aplikace.
Dokonce jsem si dal do aplikace tlacitko, kterym volam DBRichEdit.Clear,
ruzne nastavuji property Text a Lines, ale absolutne bez uspechu. V
DBRichEditu zustane ten proklety zaznam.
Nesetkal jste se s tim prosim nekdo?
Dekuji za kazdy tip
Jirka
zobrazeni komponent na zalozkach
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 26.6.2007 18:31:51
Omlouvam se, uz jsem to nasel. Omlouvam se za cas vsech.
>>> dvorak(zv)gymzn(tec)cz 26.6.2007 18:19 >>>
Instaloval jsem si novou verzi urcitych komponent a trochu jsem se do
toho zamotal. Behem "zbavovani" se stare verze jsem dal HIDE pro
nektere
komponety na palete komponent a nyni tam nemohu tyto komponenty dostat
zpet (hlavne ani ty nove verze) i kdyz se mi po kompilaci balicku s
komponentami oznami, ze byly registrovany.
Nevite, jak je tam dostanu zpet?
Dekuji Milan Dvorak
zobrazeni komponent na zalozkach
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 26.6.2007 18:19:50
Instaloval jsem si novou verzi urcitych komponent a trochu jsem se do
toho zamotal. Behem "zbavovani" se stare verze jsem dal HIDE pro nektere
komponety na palete komponent a nyni tam nemohu tyto komponenty dostat
zpet (hlavne ani ty nove verze) i kdyz se mi po kompilaci balicku s
komponentami oznami, ze byly registrovany.
Nevite, jak je tam dostanu zpet?
Dekuji Milan Dvorak
Obnoveni pohledu
[*] delphi(zv)spst(tec)cz - 27.6.2007 11:28:58
Ahoj
Pouzivam Delphi 7 a MySQL. Mam problem s obnovenim pohledu. Pohled je z
nekolika tabulek cca 6. Kdyz v dialogu nastavim hodnotu, provedu ulozeni
a refresh tohoto pohledu, tak se hodnota neupravi. Musim znovu spustit
dialog, kde je vsak uz hodnota nastavena spravne a po znovuulozeni a
refresh se teprve provede spravne zobrazeni pohledu.
Predpokladam, ze se pohled nestaci aktualizovat. Pritom z jinych tabulek
jsou hodnoty po refresh okamzite.
Co mam udelat, aby to fungovalo na prvni refresh?
Predem dekuji
Jirka
Overeni uzivatele bez hesla
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.6.2007 11:42:59
K overeni uzivatele pouzivam funkci:
function CheckUser(const DomainName, UserName, Password: string): Boolean;
var
Token: THandle;
begin
Result := LogonUser(PChar(UserName), PChar(DomainName), PChar(Password),
LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, Token);
if Result then
CloseHandle(Token);
end;
Funguje mi podle ocekavani, pokud ma uzivatel heslo. Pokud je uzivatel bez
hesla, vraci mi funkce vzdy false.
Jak overit uzivatele, ktery nema heslo?
Dekuji
Vaclav Krmela
Obnoveni pohledu
[*] delphi(zv)spst(tec)cz - 27.6.2007 12:01:00
Ahoj
problem vyresen sedel u klavesnice. Neprovedl jsem Post nad vsema tabulkama
Jirka
> Kdyz v dialogu nastavim hodnotu, provedu ulozeni
> a refresh tohoto pohledu, tak se hodnota neupravi. Musim znovu spustit
> dialog, kde je vsak uz hodnota nastavena spravne a po znovuulozeni a
> refresh se teprve provede spravne zobrazeni pohledu.
>
SQL konzola v delphi
[*] delphi(zv)spst(tec)cz - 27.6.2007 12:25:02
Ahoj
Jeste jeden dotaz. Jak je v Delphi 7 mozno udelat konzolovy rezim pro
prikazy SQL. V mem okne zadam SQL prikaz stisknu ENTER a vysledek dotazu
se zobrazi v tomtez okne. Zjistit jaky je zadany prikaz nebude problem,
ale jak tam dostat ten vysledek?
Predem dekuji
Jirka
SQL konzola v delphi
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 27.6.2007 12:35:03
> Jeste jeden dotaz. Jak je v Delphi 7 mozno udelat konzolovy rezim pro
> prikazy SQL. V mem okne zadam SQL prikaz stisknu ENTER a vysledek
> dotazu se zobrazi v tomtez okne. Zjistit jaky je zadany prikaz
> nebude problem, ale jak tam dostat ten vysledek?
vstup z stdin: Readln
vystup na stdout: Writeln
napriklad:
while not Query1.EOF do
begin
WriteLn(Query1.FieldByName('NAME').AsString);
Query1.Next;
end;
HTH
TOndrej
Overeni uzivatele bez hesla
[*] vlko <vlko(zv)zilina(tec)net> - 27.6.2007 12:33:02
Vaclav Krmela wrote:
> Funguje mi podle ocekavani, pokud ma uzivatel heslo. Pokud je uzivatel bez
> hesla, vraci mi funkce vzdy false.
> Jak overit uzivatele, ktery nema heslo?
Taky uzivatel sa neda overit, da sa len zistit ci existuje.
Napr. Remote Desktop sa na takeho uzivatela nevie vobec
pripojit z rovnakeho dovodu.
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Overeni uzivatele bez hesla
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 27.6.2007 13:03:04
> Result := LogonUser(PChar(UserName), PChar(DomainName), PChar(Password),
> LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, Token);
> Funguje mi podle ocekavani, pokud ma uzivatel heslo. Pokud je
> uzivatel bez hesla, vraci mi funkce vzdy false.
> Jak overit uzivatele, ktery nema heslo?
Mozno by bolo uzitocne zistit si GetLastError.
Ak je to na XP a vyssie, mozno je nastavena local security policy "Limit local account use of blank passwords to console logon only" - myslim, ze default je Enabled.
Ako prve ma napadlo predat tam nil namiesto PChar(''), ale podla Google to nepomoze (neskusal som, u nas v domene su prazdne hesla zakazane). Takze je tiez celkom mozne, ze LogonUser skratka prazdne heslo nepodporuje.
HTH
TOndrej
thread s vlastnym oknom
[*] miroslav.barica(zv)matador.sk - 27.6.2007 13:35:07
Dobry den,
Potreboval by som trosku nakopnut, mam thread v ktorom by som rad vyuzil
vlastne okno (definovane v threade). Pri vytvoreni threadu vytvorim
instanciu okna, v metode execute ho na zaciatku zobrazim, v cykle do
neho cez metodu synchronize zobrazujem priebeh cyklu, po skonceni cyklu
threadu okno zavriem. Problem je v tom, ze neviem ako ho uvolnit z
pamati. Myslel som, ze ho uvolnim v Destroy threadu, ale mam dojem, ze k
volaniu tejto metody nedojde a nechapem preco. Vie ma niekto nasmerovat
prosim?
MB
thread s vlastnym oknom
[*] delphin(zv)post(tec)cz - 27.6.2007 14:35:11
thread s vlastnym oknom
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 27.6.2007 15:09:13
> Potreboval by som trosku nakopnut, mam thread v ktorom by som
> rad vyuzil vlastne okno (definovane v threade). Pri vytvoreni
> threadu vytvorim instanciu okna, v metode execute ho na
> zaciatku zobrazim, v cykle do neho cez metodu synchronize
> zobrazujem priebeh cyklu, po skonceni cyklu threadu okno
> zavriem.
Predpokladam, ze pod oknom myslis potomka TForm.
VCL nie je thread-safe, takze to bude fungovat len obcas nahodou, ak vobec.
Nenapisal si, co sa snazis dosiahnut, ale asi to budes musiet prepisat tak, aby vsetko, co sa tyka VCL, bezalo v hlavnom threade.
HTH
TOndrej
thread s vlastnym oknom
[*] miroslav.barica(zv)matador.sk - 27.6.2007 15:41:16
Ide mi napr. O prekopirovanie suboru, alebo o vytvorenie suboru cez
stream. Mam aplikaciu, hlavne okno ma nejake editboxy na vstupne
parametre, po potvrdeni sa vytvori thread, urobi co ma (v synchronize
prekreslujem progressbar hlavneho formu), vsetko funguje ako ma. Lenze
prisla poziadavka aby bol hlavny formular (na vyplnenie parametrov), po
potvrdeni ma nabehnut dalsi formular s progress barom a pri zobrazeni
tohto formu spustim dany thread. To tiez funguje pokial ten druhy form
je staticky (pokial nevytvorim instanciu). Lenze ja ho chcem vytvorit
dynamicky v case potreby ako potomka a v tom je problem, ze ked je takto
vytvoreny, tak uz neviem ako cez synchronize aktualizovat progress bar.
Tak som myslel, ze by som na to mohol ist opacne, t.j. spustenim threadu
z hlavneho okna, pricom po spusteni thr by sa zobrazil formular s
progress barom a ten aktualizoval cez synchronize. Toto funguje, len
neviem ako je to s uvolnenim tohto formu. Vlastne, celkovo neviem ako
zrusit napriklad objekt tstringlist vytvoreny v sekcii tthread.create...
Viem, zmateny popis, ale uz som aj ja zacykleny ;))
M.> -----Original Message-----
>
> > Potreboval by som trosku nakopnut, mam thread v ktorom by som
> > rad vyuzil vlastne okno (definovane v threade). Pri vytvoreni
> > threadu vytvorim instanciu okna, v metode execute ho na
> > zaciatku zobrazim, v cykle do neho cez metodu synchronize
> > zobrazujem priebeh cyklu, po skonceni cyklu threadu okno
> > zavriem.
>
> Predpokladam, ze pod oknom myslis potomka TForm.
> VCL nie je thread-safe, takze to bude fungovat len obcas nahodou, ak
> vobec.
> Nenapisal si, co sa snazis dosiahnut, ale asi to budes musiet prepisat
> tak, aby vsetko, co sa tyka VCL, bezalo v hlavnom threade.
>
thread s vlastnym oknom
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 27.6.2007 16:33:19
> Ide mi napr. O prekopirovanie suboru, alebo o vytvorenie suboru cez
> stream. Mam aplikaciu, hlavne okno ma nejake editboxy na vstupne
> parametre, po potvrdeni sa vytvori thread, urobi co ma (v synchronize
> prekreslujem progressbar hlavneho formu), vsetko funguje ako ma. Lenze
> prisla poziadavka aby bol hlavny formular (na vyplnenie
Tomu skutocne nerozumiem, ale skus si to prepisat tak, ze thread bude len posielat spravu (cez PostMessage) a okno si v spracovani tej spravy samo aktualizuje progressbar.
Mozno to bude jasnejsie z prikladu (pseudokod):
const
AM_UPDATEPROGRESS = WM_USER + 1;
type
TAMUpdateProgress = packed record
Msg: Cardinal;
Pos: Integer;
Max: Integer;
Result: Longint;
end;
TMyForm = class(TForm)
...
procedure AMUpdateProgress(var Message: TAMUpdateProgress); message AM_UPDATEPROGRESS;
end;
procedure TMyForm.AMUpdateProgress(var Message: TAMUpdateProgress);
begin
ProgressBar.Position := Message.Position;
ProgressBar.Max := Message.Max;
end;
constructor TProgressThread.Create(AHandle: THandle; ...);
begin
FHandle := AHandle;
inherited Create(...);
end;
....
procedure TProgressThread.Execute;
var
Pos, Max: Integer;
begin
while ... do
begin
...
PostMessage(FHandle, AM_UPDATEPROGRESS, Pos, Max);
end;
end;
Takze thread nebude pouzivat ziadne prvky VCL, len posielat spravy na danu Handle formulara.
Formular si v spracovani spravy aktualizuje svoj progressbar, co je OK, lebo to uz bezi v hlavnom threade.
Ten pseudokod som pisal z hlavy priamo do spravy, dufam, ze tam nie je prilis vela chyb a objasnuje to princip.
HTH
TOndrej
quantum gridsuit a neco jako property inspektor
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.6.2007 16:57:21
Ahoj,
mam v DB tabulku, kde mimo jine klicove sloupce mam sloupec
"vlastnost" a "hodnota". chtel jsem si nepast nejaky sikovny univerzalni
editor, ve kterem bych dle predanych klicovych udaju mohl editovat
hodnoty vlastnosti vracenych jednim selectem. Co mi ztezuje situaci, ze
hodnota, ac ulozena ve varchra(50) muze mit nejaky (jinym sloupcem
definovany) datovy typ, pro ktery potrebuju nastavit ten spravny inplace
(property) editor.
nekde jsme na to videl takove pekne demicko prave s DevExperess
QuantumGridSuite komponentami, jenze to zaprase nemuzu najit. Napadlo
me, jestli byste nekdo nevedel o nejakem prikladu, jak na to. Bud pres
QuantumGridSuite, nebo i pres jine, pokud mozno klasicke ci free+source
komponenty.
Vlastnosti mohou byt zanorene, takze by mi vyhovoval editor vylozene
ve stylu property inspektoru v Delphi (vcetne obrazku a dlouhych textu).
Dik Peca.
OT: Mysql jako ebedded
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.6.2007 01:13:52
Zdravim,
snazim se v C++ Builderu 6 rozchodit mysql jako embedded. Ale jakmile pridam
do include mysql.h, tak mi to v knihovne mysql_com.h vyhodi hlasku na radku
154: Type name expected.
my_socket fd; /* For Perl DBI/dbd */
Myslim, ze tohle ale muzu zakomentovat.
Dalsi chybu to vypise na 298 radku: SOCKET cannot start a parameter
declaration
int my_connect(my_socket s, const struct sockaddr *name, unsigned int
namelen, unsigned int timeout);
Pokud jsem i tohle zakomentoval, tak nastal dalsi problem. Uspesne jsem si
vytvoril objekt tridy mysql, ale kdyz chci pouzit funkci, trebe
mysql_init(), tak to vypise: Unresolved external mysql_init reference from
....
Hledal jsem na netu, nakonec jsem pridal soubor libmysql.lib a zacalo to
vypisovat toto:
libmysql.lib contains invalid OMF record, type 0x21 (possibly COFF)
U toho jsem hledal na netu a uz jsem dostaval jen ruske stranky, bohuzel
rusky neumim :)
Nesetkali jste se nekdo s timto problemem?
Diky za jakokoliv radu, jak to rozchodit.
Petr
Mysql jako ebedded
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 28.6.2007 06:26:13
Dne Thu, 28 Jun 2007 01:13:52 +0200 Petr Berek <sojokl(zv)seznam(tec)cz>
napsal/-a:> libmysql.lib contains invalid OMF record, type 0x21 (possibly COFF)
Nejspis je ta lib pro Microsoft C a ne pro Borland
zobrazeni vlasniho formulare u comboboxu
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 28.6.2007 14:24:43
zdravim
nevite nekdo jak pri stisku vyvolat vlastni formular (to jde pres
OnDropDown) ale tak aby po jeho ukonceni se nezobrazil ten vyskakovaci
seznam? nejak to nemuzu nikde najit
diky predem za kazde nakopnuti zobrazeni vlasniho formulare u comboboxu
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 28.6.2007 14:58:46
Ladislav Fitz napsal(a):
> zdravim
>
> nevite nekdo jak pri stisku vyvolat vlastni formular (to jde pres
> OnDropDown) ale tak aby po jeho ukonceni se nezobrazil ten vyskakovaci
> seznam? nejak to nemuzu nikde najit
>
> diky predem za kazde nakopnuti
Abort nezabere?
tj.
zobraz formular;
Abort; (ticha vyjimka)
Jen tak zkousim, funguje to jinde, treba i tam
R.
OT: SevenZipInterface
[*] Dalibor <dalibor(zv)torola(tec)cz> - 29.6.2007 07:53:51
Ahoj, nevite nekdo jak tohle http://innerlimit.googlepages.com/sevenzipinterface pouzit v netku pro zabaleni/rozbaleni jednoho souboru?
Diky
D.thread s vlastnym oknom
[*] miroslav.barica(zv)matador.sk - 29.6.2007 08:43:54
Dakujem, to mi naozaj nenapadlo
> .....ze thread bude len
> posielat spravu (cez PostMessage) a okno si v spracovani tej spravy
samo
> aktualizuje progressbar.
CodeGear Highlander beta
[*] rkubat(zv)email(tec)cz - 29.6.2007 09:33:58
Dobry den vsem,
Chris Pattison, vedouci oddeleni testovani a overovani kvality u CodeGear
oznamuje ve svem blogu:
http://blogs.codegear.com/ChrisPattinson/archive/2007/06/28/36584.aspx
uvolneni betaverze produktu Highlander, tedy nove verze vyvojarskeho studia
CodeGear pro testovani.
Ve svem blogu pise (zkraceno):
Zaciname betatestovani dalsiho produktu z naseho planu, tedy nastroje
Highlander. Potrebujeme zpetnou vazbu na nektere vlastnosti, napriklad
ASP.NET, podpora .NET 2.0/3.0, tvorba a vyuzivani parametrizovanych typu
("generics") v Delphi for .NET, podporu Vista, ECO IV a nove databazove
vlastnosti. Vice informaci se najde v produktovem planu:
http://dn.codegear.com/article/36620
Highlander obsahuje tez Delphi a C++, pro ktere budou vydany nektere dalsi
opravy chyb a zmeny ... pokud mate zajem zucastnit se testovani, vyplnte
nam jednoduchy formular na teto adrese:
http://www.surveymonkey.com/s.aspx?sm=zOitB9WcYlX1htdU4J6ioQ_3d_3d
S pranim hezkeho vikendu, -- Richard Kubat, Borland s.r.o.
OT: exit code TP
[*] Pavol Svorc <svorc(zv)slovanet.sk> - 29.6.2007 10:54:03
Ahoj,
kolega by potreboval poradit ako v Turbo Pascale (DOS) nastavit exit
code, aby sa dal potom testovat v bataku cez errorlevel. Je tu este
nejaky pamatnik na stare casy?
palo
exit code TP
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 29.6.2007 11:06:04
Tusim ze se pouzivalo
halt(123);
> Ahoj,
> kolega by potreboval poradit ako v Turbo Pascale (DOS) nastavit exit
> code, aby sa dal potom testovat v bataku cez errorlevel. Je tu este
> nejaky pamatnik na stare casy?
exit code TP
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 29.6.2007 11:04:04
Pavol Svorc napsal(a):
> Ahoj,
> kolega by potreboval poradit ako v Turbo Pascale (DOS) nastavit exit
> code, aby sa dal potom testovat v bataku cez errorlevel. Je tu este
> nejaky pamatnik na stare casy?
>
> palo
>
stejne jako v Delphi: Halt(kod)
R.
exit code TP
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.6.2007 11:02:04
> kolega by potreboval poradit ako v Turbo Pascale (DOS) nastavit exit
> code, aby sa dal potom testovat v bataku cez errorlevel. Je tu este
> nejaky pamatnik na stare casy?
nie som pametnik, ale skus premennu ExitCode a proceduru Halt, to je v Delphi myslim prebrate este z TP.
HTH
TOndrej
exit code TP
[*] Ing. Antonin Spurny <spurny(zv)kavlounky(tec)cz> - 29.6.2007 11:10:05
Ahoj
From: "Pavol Svorc" <svorc(zv)slovanet.sk>
> kolega by potreboval poradit ako v Turbo Pascale (DOS) nastavit exit
> code, aby sa dal potom testovat v bataku cez errorlevel. Je tu este
zkuste pouzit: Halt[ ( ExitCode: Word) ];
Jeste mam schovane prirucky od BP, tak snad to bude fungovat i v TP.
Tonda
FreeLibrary vyvola access Violation
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 01.7.2007 17:23:52
Zdravim,
potrebuju nacist nekolik veci z nekolika knihoven do comboboxu a tak nacitam
knihovny pomoci LoadLibrary, nactu udaj a pak je zase uvolnim. Problem
nastava, kdyz ji chci uvolnit. Vysledek volane funkce dostanu, ale pri
pokusu uvolnit knihovnu dojde k padu. Dival jsem se na Handle po nacteni,
tak vsechno se zda byt v poradku.
Diky za jakoukoliv radu.
Petr
function Tnastaveni1.overKnihovnu(const filename:string):pchar;
var Handle:THandle;
fnc:Pointer;
begin
Handle:=LoadLibrary(pchar(filename));
try
fnc:=Windows.GetProcAddress(Handle, pchar('jazykovaMutace'));
if fnc=nil then
begin
MessageBox(Application.Handle, pchar('Nepodarilo se zpracovat jazykovou
knihovnu'), pchar('Chyba'), MB_OK+MB_ICONERROR);
exit;
end;
Result:=jazykovaMutace(fnc);
finally
FreeLibrary(Handle);
end;
end;MIDAS - datove toky
[*] Ondrej <o.kelle(zv)digitalpublishing.de> - 30.6.2007 10:04:12
> Jde o pripojeni tenkeho klienta (TClientDataSet) na aplikacni server
> (TDataSetProvider) pres internet.
>
> a)
> Ma nekdo poneti, k jak velkym datovym prenosum dochazi pri pouziti
> MIDAS mezi TDataSetProvider a TClientDataSet?
> Ja bych si tipnul, ze by to mohlo byt priblizne tolik, kolik je
> velikost souboru po ClientDataSet.SaveToFile(.., dfBinary).
> Je ale moje domnenka opodstatnena?
To asi nebude daleko od pravdy. Presnejsie by to mala byt velkost
vlastnosti Data (to je jednoduche variant array of bytes) plus par
bajtov na datasnap packet, parametre metody (AS_GetRecords, AS_Execute
apod.).
> b)
> Lze nejak jednoduse velikost takoveho datoveho prenosu zmerit?
> Nechce se mi instalovat nejake sofistikovane diagnosticke nastroje.
Velkost ClientDataSet.Data v pameti, plus par bajtov. Ak to potrebujes
presne, mozes si v SConnect dopisat pocitadlo. Pre TSocketConnection to
bude myslim v TSocketTransport.Send, TSocketTransport.Receive (pripadne
sa da napisat interceptor), pre TWebConnection asi metody
TWebConnection.Send, TWebConnection.Receive.
Toto je mozno trochu od veci, ale pre aplikacny server som si kedysi
napisal DataSnap performance counters:
http://cc.codegear.com/Item/22334
http://cc.codegear.com/Item/22332
http://tondrej.blogspot.com/2004/09/perfmon-ready.html
Tie vsak sleduju len priemerny pocet bajtov na jedno volanie metody
(avg. bytes read/written per call). Dalo by sa tam vsak pridat aj total
bytes read/written.
V pripade potreby je tiez mozne celu komunikaciu komprimovat.
HTH
TOndrej
MIDAS - datove toky
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 30.6.2007 08:08:01
Jde o pripojeni tenkeho klienta (TClientDataSet) na aplikacni server (TDataSetProvider) pres internet.
a)
Ma nekdo poneti, k jak velkym datovym prenosum dochazi pri pouziti MIDAS mezi TDataSetProvider a TClientDataSet?
Ja bych si tipnul, ze by to mohlo byt priblizne tolik, kolik je velikost souboru po ClientDataSet.SaveToFile(.., dfBinary).
Je ale moje domnenka opodstatnena?
b)
Lze nejak jednoduse velikost takoveho datoveho prenosu zmerit?
Nechce se mi instalovat nejake sofistikovane diagnosticke nastroje.
Diky
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
FreeLibrary vyvola access Violation
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 02.7.2007 06:12:40
> potrebuju nacist nekolik veci z nekolika knihoven do comboboxu a tak
> nacitam knihovny pomoci LoadLibrary, nactu udaj a pak je zase uvolnim.
> Problem nastava, kdyz ji chci uvolnit. Vysledek volane funkce dostanu, ale
> var Handle:THandle;
> fnc:Pointer;
> begin
> Handle:=LoadLibrary(pchar(filename));
> try
> fnc:=Windows.GetProcAddress(Handle, pchar('jazykovaMutace'));
> if fnc=nil then
> begin
> MessageBox(Application.Handle, pchar('Nepodarilo se zpracovat jazykovou
> knihovnu'), pchar('Chyba'), MB_OK+MB_ICONERROR);
> exit;
> end;
> Result:=jazykovaMutace(fnc);
> finally
> FreeLibrary(Handle);
> end;
> end;
Ahoj,
nemam to zrovna zazite, ale ber to jako tip. Nemuze jit o to, ze funkce
jazykova mutace nekde pripravi retezec, preda na nej pointer, DLL pak
skonci a s tim se zneplatni i pointer? Mam za to, ze retezec bys mel
predavat tak, ze funkci JazykovaMutace predas dva parametry - pointer na
zacatek bufferu a delku bufferu. Funkce JazykovaMutace pak jen vysledek
nasype do toho bufferu. O jeho alokaci i dealokaci se postara volajici.
Nejak podobne to funguje i v API funkcich Win.
David Lebeda
FreeLibrary vyvola access Violation
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 02.7.2007 08:06:48
Az si nebudes vedet rady, zkus http://www.eurekalog.com/ - tahle hracka ti
najde chyby
a ukaze ti na misto ve zdroji, kde jsi je udelal... Umi chytit i handlovane
vyjimky, takze
prozradi stare chyby, ktere si obcas nekdo ohandluje, ze se k nim vrati a
pak uz to
neudela. Je to trial na mesic (aplikace ci dll v tom se po mesici zastavi),
ale po odladeni
vypnes linkovani s eurekou pri prekladu projektu v Delphi a distribuujes
cisty kod.
Chyby v uvolnovackach to hleda skvele.
Milan
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 02, 2007 6:12 AM
Subject: Re: FreeLibrary vyvola access Violation
>> potrebuju nacist nekolik veci z nekolika knihoven do comboboxu a tak
>> nacitam knihovny pomoci LoadLibrary, nactu udaj a pak je zase uvolnim.
>> Problem nastava, kdyz ji chci uvolnit. Vysledek volane funkce dostanu,
>> ale
>
>> var Handle:THandle;
>> fnc:Pointer;
>> begin
>> Handle:=LoadLibrary(pchar(filename));
>> try
>> fnc:=Windows.GetProcAddress(Handle, pchar('jazykovaMutace'));
>> if fnc=nil then
>> begin
>> MessageBox(Application.Handle, pchar('Nepodarilo se zpracovat jazykovou
>> knihovnu'), pchar('Chyba'), MB_OK+MB_ICONERROR);
>> exit;
>> end;
>> Result:=jazykovaMutace(fnc);
>> finally
>> FreeLibrary(Handle);
>> end;
>> end;
>
> Ahoj,
>
> nemam to zrovna zazite, ale ber to jako tip. Nemuze jit o to, ze funkce
> jazykova mutace nekde pripravi retezec, preda na nej pointer, DLL pak
> skonci a s tim se zneplatni i pointer? Mam za to, ze retezec bys mel
> predavat tak, ze funkci JazykovaMutace predas dva parametry - pointer na
> zacatek bufferu a delku bufferu. Funkce JazykovaMutace pak jen vysledek
> nasype do toho bufferu. O jeho alokaci i dealokaci se postara volajici.
> Nejak podobne to funguje i v API funkcich Win.
>
> David Lebeda
>
>
>
ImageList a PNG
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 02.7.2007 12:09:05
Ahoj
Vite o nejakem reseni viz subject ,
Drive pouzivanou komponentu z http://www.thany.org/pngcomponents/ nemohu
rozchodit v Delphi 2007.
Diky Jura
FreeLibrary vyvola access Violation
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 02.7.2007 12:31:07
Problem byl nakonec trosku nekde jinde. Kdyz jsem tu funkci poradne
trasoval, tak pri prejeti freeLibrary se v eventlogu objevlo
unloadmodule(knihovna). Nakonec jsem zjistil, ze mi ta funkce nevraci zadnou
hodnotu. Nejdriv jsem si myslel, ze to bude nejakym prevodem z pchar do
stringu, nebo tak. Ale pak jsem presunul FreeLibrary az za radek, kde bylo
volani funkce a problem zmizel.
Petr
DLL s vlastnim formularem
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 08.8.2007 20:47:15
Ahoj vsem,
Resim pro me novou vec, tlaci me cas, rad bych se vyhnul slepym ulickam -
budu proto vdecny za kazde nasmerovani:
Kolega vyviji aplikaci pro PDA, ktera komunikuje se svym serverem bezicim na
zakladnovem PC. PDA aplikace i server je napsana v .NET. Server bude mimo
jine volat dll, kterou bych mel napsat ja v Delphi. Moje predstava je, ze
moje dll pri inicializaci vytvori a zobrazi monitorovaci formular, do
ktereho pak bude vypisovat ruzne hlasky o cinnosti serveru a o provadenych
akcich. Zaroven by na tomto formulari mely byt nejake ovladaci prvky, ktere
by mely umoznit interakci uzivatele se systemem. Udelal jsem si zatim jen
prvni testy, a narazil na problem, ze nebezi vyrizovani fronty zprav, takze
formular sice vypisuje co do nej dll posle, ale jinak nereaguje. Zatim me
napadlo jen napsat monitor jako samostatnou aplikaci, ktera se spusti
samostatne a se kterou bude dll komunikovat. Pletu se, kdyz mam za to ze to
jinak nepujde?
Martin
Formatovani cisel Sinea/D7
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 08.8.2007 18:11:05
From: "Kalhous" <kalhous(zv)eu(tec)cz>> Jak docilim toho, aby pri tisku Sinea se fixed cislo formatovalo -9,999 a
> +9,999 ? Proste zakaznik chce aby tam bylo i plus u kladnych cisel a to
> neumim.
Datove polozky se prebiraji z datoveho zdroje metodou AsString. Prvni
moznosti tedy je pomoci DisplayFormat fieldu, nebo jak se to jmenuje.
Pokud je vyzadovano reseni pouze na urovni generatoru sestav, asi
nejjednodussi postup je definovat retezcovou uzivatelskou funkci, ktera
ciselne pole zformatuje na text, interne se pouzije funkce FormatFloat,
takze podrobnosti v helpu Delphi. Funkcni vyraz bude vypadat asi takto:
FORMAT(#DatovaPolozka,'+0.000;-0.000')
pokud u 0 muze byt +, nebo bez + u nuly:
FORMAT(#DatovaPolozka,'+0.000;-0.000;0.000')
Dalsi dve moznosti reseni jsou slozitejsi:
- pomoci uzivatelske funkce s IIF
- pomoci podmineneho tisku
Vaclav Krmela
Formatovani cisel Sinea/D7
[*] Kalhous <kalhous(zv)eu(tec)cz> - 08.8.2007 15:44:55
Jak docilim toho, aby pri tisku Sinea se fixed cislo formatovalo -9,999 a +9,999 ? Proste zakaznik chce aby tam bylo i plus u kladnych cisel a to neumim.
Z.Kalhous
Vyvolani ICQ, Skype
[*] Lauko Stefan, Insypo <lauko(zv)insypo.sk> - 08.8.2007 13:36:47
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> potrebuji zjistit, je mozne dosahnout komunikace programu z Delphi s ICQ
> klientem nebo Skypem. Jde mi o neco podobneho, jako kdyz pomoci
> ShellExecute vyvolam implicitni postovni program, tak abych kliknutim na
> ICQ kontakt dokazal zahajit komunikaci pres ICQ a podobne i pro Skype.
> Rad bych se vyhnul vestaveni vlastniho klienta do aplikace (na to jsem
> nasel komponenty), radeji bych primo aktivoval jiz beziciho klienta.
Ahoj,
toto funguje na skype: CallTo:xyz
Lauko.
Vyvolani ICQ, Skype
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 08.8.2007 13:02:45
Ahoj,
potrebuji zjistit, je mozne dosahnout komunikace programu z Delphi s ICQ
klientem nebo Skypem. Jde mi o neco podobneho, jako kdyz pomoci
ShellExecute vyvolam implicitni postovni program, tak abych kliknutim na
ICQ kontakt dokazal zahajit komunikaci pres ICQ a podobne i pro Skype.
Rad bych se vyhnul vestaveni vlastniho klienta do aplikace (na to jsem
nasel komponenty), radeji bych primo aktivoval jiz beziciho klienta.
Dekuji predem za jakekoli informace nebo nasmerovani.
D5E.
David Lebeda
resource compiler a jazyk
[*] Petr Vetesnik <vetesnik(zv)gmail(tec)com> - 08.8.2007 08:52:26
Tak uz je vyreseno,
do rc souboru stacilo pred rustinu vlozit
#pragma code_page(1251)
PV.
On 8/8/07, Petr Vetesnik <vetesnik(zv)gmail.com> wrote:
>
> Dobry den vsem,
> potreboval bych poradit s jazykovou mutaci programu.
> Chtel bych pouzit mutace pomoci souboru rc, kde bych vyplnoval
> STRINGTABLE.
> Na ceskych XP je vse OK, pokud to ale pustim na ruskych, nenacita mi to
> rustinu, respektive mi to 'orezava hacky a carky' a azbuce je amen.
>
> Nemate nekdo nahodou navod, jak to udelat?
>
> Predem dik
>
>
>
resource compiler a jazyk
[*] Petr Vetesnik <vetesnik(zv)gmail(tec)com> - 08.8.2007 07:56:22
Dobry den vsem,
potreboval bych poradit s jazykovou mutaci programu.
Chtel bych pouzit mutace pomoci souboru rc, kde bych vyplnoval STRINGTABLE.
Na ceskych XP je vse OK, pokud to ale pustim na ruskych, nenacita mi to
rustinu, respektive mi to 'orezava hacky a carky' a azbuce je amen.
Nemate nekdo nahodou navod, jak to udelat?
Predem dik
Umisteni BPL souboru u uzivatele
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 09.8.2007 13:56:26
> Chtel bych sirit vice exe souboru s co nejmensi velikosti.
> Zapnul jsem si proto u projektu volbu Build with runtime
> packages a spolecne s exe do stejneho adresare jako exe
> umistuji bpl soubory. Jak ale vnutit aplikacim jine umisteni
> bpl souboru - napr. v podslozce ..\MOJE_BPL tak, aby je
> mohlo vyuzivat vice exe souboru, ktere jsou v ruznych
> slozkach?
> Nikde nemuzu nastaveni najit. Diky.
Windows ich hlada rovnako ako kazdu DLL.
Staci, ak su v ceste (systemova premenna PATH).
HTH
TOndrej
Vista a prava
[*] Petr Vones <conference(zv)petrvones(tec)net> - 07.8.2007 11:21:01
From: "Radek Voltr" <voltr(zv)eleasoftware.com>
> komunikace mezi exacema. Ted ale najednou Visty pro pouhou registraci COMu
> potrebuji adminska prava. Proste presto ze clovek pouziva pouze korektni
To je samozrejme spravne, ale to vec instalace aplikace, ne jejiho behu pod
uzivatelskym uctem.
Petr Vones
Vista a prava
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 07.8.2007 10:44:59
On 8/7/07, Radek Voltr <voltr(zv)eleasoftware.com> wrote:
> Ted jsem narazil napr. na jednu vec - stahl jsem si soubor z netu do
> adresare a od te doby vsechny exace spustene z daneho adresare otravuji
> dotazem o nebezpecnosti (ktery na rozdil od klasickeho nema vypinaci
> checkbox) a naprosto netusim kde to vypnout. Jako alternate data stream
> zapsaneho nikde nic neni ale presto maj Visty nekde ten adresar nejak
> oznacen. Netusite ?
Jmenuje se to Mandatory Integrity Control. Jde o to, ze stazeny soubor
ma nastavenou nizsi nez zbytek a nema takova prava, aby neco
nepokazil.
IE standardne bezi v "low" modu, takze vse co udela ma taky "low" MIC.
Je to predvesim kvuli bezpecnosti.
Vice opet na MSDN resp. TechNetu.
--
Jiri {x2} Cincura (Microsoft Student Partner)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Vista a prava
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 07.8.2007 08:58:50
Zdar
>> pracovat. Znam plno aplikaci, co i pod WinXP cpaly data do C:\neco.
>Predevsim se nabizi otazka, proc vubec aplikace takova prava potrebuje.
To je presne ta schyza MS - dost dlouhou dobu protlacovali COM jako zpusob
komunikace mezi exacema. Ted ale najednou Visty pro pouhou registraci COMu
potrebuji adminska prava. Proste presto ze clovek pouziva pouze korektni
postupy tak muze narazit a ten COM neni jedina vec.
Ted jsem narazil napr. na jednu vec - stahl jsem si soubor z netu do
adresare a od te doby vsechny exace spustene z daneho adresare otravuji
dotazem o nebezpecnosti (ktery na rozdil od klasickeho nema vypinaci
checkbox) a naprosto netusim kde to vypnout. Jako alternate data stream
zapsaneho nikde nic neni ale presto maj Visty nekde ten adresar nejak
oznacen. Netusite ?
Cus
Radek
idSysLog a TimeStamp
[*] Dusek Karel <dusek(zv)mudk(tec)cz> - 07.8.2007 07:24:44
Prosim o radu. Snazim se vytvorit jednoduchy program pro zasilani informaci do syslogu, pouzivam k tomu idSysLog. V pripade, ze pouziji proceduru Send tak se mi do syslogu zapise moje zprava, ale nemohu menit Facility a Severity. Kdyz pouziji SendMessage tak Facility a Severity mohu menit, ale do textu se mi automaticky doplni aktualni datum. Zkusil jsem i pouzit SendMessage s hodnotou parametru AAutoTimeStamp=False, ale ani to nepomohlo. Jak lze tento datum vypnout aby se nedoplnoval, nebo jak pri procedure Send menit Facility a Severity. Pouzivam Delphi7.
Dik za kazdou radu. Karel Dusek
Vista a prava
[*] Petr Vones <conference(zv)petrvones(tec)net> - 07.8.2007 00:24:17
From: "Jiri Cincura" <diskuze(zv)cincura.net>
> Tak je to nova (relativne) vec, takze vyvojari se s tim musi naucit
> pracovat. Znam plno aplikaci, co i pod WinXP cpaly data do C:\neco.
Predevsim se nabizi otazka, proc vubec aplikace takova prava potrebuje.
Petr Vones
Vista a prava
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 07.8.2007 00:20:17
On 8/6/07, Radek Voltr <voltr(zv)eleasoftware.com> wrote:
> 1. administratorem se muze aplikace stat pouze pri svem startu - nelze
> elevovat napr. Thread
No proto se to asi jmenuje "*process* eleveation". ;)> Elevace, UAC a mandatory labels na Viste je vubec kapitola sama pro sebe,
> precetl jsem co jsem nasel vcetne clanku v MSDN Magazine, vim ze lze
> napr.jednoduse pridat tlacitku takovou tu ikonku ctyrbarevneho stitu (ktera
> slouzi pro oznaceni operace vyzadujici admin mod) ale stejne me prijde ze se
> obcas nektere aplikace chovaji jinak nez by meli :-)))
Tak je to nova (relativne) vec, takze vyvojari se s tim musi naucit
pracovat. Znam plno aplikaci, co i pod WinXP cpaly data do C:\neco.
--
Jiri {x2} Cincura (Microsoft Student Partner)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Umisteni BPL souboru u uzivatele
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 09.8.2007 13:30:24
Chtel bych sirit vice exe souboru s co nejmensi velikosti. Zapnul jsem
si proto u projektu volbu Build with runtime packages a spolecne s exe
do stejneho adresare jako exe umistuji bpl soubory. Jak ale vnutit
aplikacim jine umisteni bpl souboru - napr. v podslozce ..\MOJE_BPL tak,
aby je mohlo vyuzivat vice exe souboru, ktere jsou v ruznych slozkach?
Nikde nemuzu nastaveni najit. Diky.
Petr Svejda
www.znalosti(tec)cz
ww.prowin(tec)cz
www.isoft(tec)cz
Vista a prava
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 06.8.2007 23:48:14
Zdarec
>nektere aplikace provozovane na Vistach, umeji takovou zajimavou vec. Kdyz
zjisti, ze k urcite cinnosti nemaji prava, pozadaji uzivatele nejakym
dialogem
>o docasne prepnuti do administratorskeho rezimu.
par veci k tomudle :
1. administratorem se muze aplikace stat pouze pri svem startu - nelze
elevovat napr. Thread
2. spusteni aplikace v admin modu lze zaridit bud pres com a nebo vyrazne
jednoduseji - ShellExecute kde druhy parametr (vetsinou se pouziva nil nebo
'open') ma hodnotu 'runas' napr.
if WinVer >= wvVista then
//run add file as administrator
ShellExecute(0, 'runas', pchar(SelfFileShort), pchar('/addfile "' +
sName + '=' + sFile + '"'), pchar(SelfFilePath), sw_show);
Aplikace spusti sama sebe s parametrem ktery rika co ze se ma v admin modu
udelat. Pokud ma user UAC vyplej tak se to udela bez dotazu, jinak se to
zepta na povoleni, pripadne na admin jmeno/heslo.
Elevace, UAC a mandatory labels na Viste je vubec kapitola sama pro sebe,
precetl jsem co jsem nasel vcetne clanku v MSDN Magazine, vim ze lze
napr.jednoduse pridat tlacitku takovou tu ikonku ctyrbarevneho stitu (ktera
slouzi pro oznaceni operace vyzadujici admin mod) ale stejne me prijde ze se
obcas nektere aplikace chovaji jinak nez by meli :-)))
Cus
Radek
Komponenty pro Open Office
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 06.8.2007 22:00:07
> nevite, zda existuje nejaka VCL pro Delhi, ktera by zapouzdrovala
> ovladani Open Office 2.x obdobne, jako komponenty ze zalozky Servers v
> pripade Microsoft Office. Dival jsem se na SourceForge, ale nic
> kloudneho jsem nenasel.
pracujem na komponentach TOpenOfficeWriter a TOpenOfficeCalc.
Mam uz premyslene ako to obrovske mnozstvo roznych OpenOffice
interfacov dostat do komponenty, v sucasnej faze postupne pridavam
rozne funkcie a testujem ich funkcnost. Pouzivam OLE Automation
aj ked uvazujem aj o priamom vyuziti UNO modelu z Delphi
(az by sa ukazalo vyrazdne rychlejsie). Ak mate zaujem, mozem
pripravit a poslat komponenty na vyskusanie.
Co sa tyka obecnej moznosti ovladania OpenOfficu, tak je
na webe k dispozicii OpenOffice SDK a je tam podpora
pre Javu, C#, C++ a COM. OpenOffice ale nema typovu
kniznicu, takze nie je mozne importovat COM rozhrania
do Delphi.
Erik Salaj
IIS Chyba
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 09.8.2007 10:40:12
Zdravim,
> Vyprsel casovy limit. Casovy limit vyprsel pred ziskanim
> pripojeni od fondu. Pravdepodobnym duvodem je vyuziti vsech
> pripojeni fondu a dosazeni maximalni velikosti fondu.
>
> Tato chyba se mi zobrazuje pri pokusu o pripojeni s IE na Web
> aplikaci napsanou v .net.
>
> ISS bezi na Win xp Prof, .Net Framework 2
Stejny problem jsme meli s jednou webovou aplikaci asp.net bezici oproti
MSSQL serveru (MSDE2000). Pohledem do Enterprise Manageru jsem zjistil, ze v
tu chvili ma IIS (respektive .net) otevreno cca 180 spojeni na MSSQL server
a ten uz proste vic nezvladal.
Chyba byla v aplikaci, nekorektne ukoncovala pripojeni k DB (presne
podrobnosti bohuzel neznam), do vyreseni pomahal planovany restart IIS po
takove dobe kdy jeste pocet spojeni nebyl kriticky (po startu IIS byl 0 a
pri pouzivani webu pocet otevrenych spojeni postupne vzrustal).
Pokud pouzivate MSSQL databazi, zkusil bych toto proverit.
S pozdravem
Pavel Zichovsky
Formatovani cisel Sinea/D7
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 09.8.2007 09:08:03
From: "Kalhous" <kalhous(zv)eu(tec)cz>> Zpet. Funguje to, chyba byla mezi zidli a klavesnici kde mi uniklo ze
> FORMAT
> je textova funkce a ne ciselna.
Pokud byla uzivatelska funkce jako celek deklarovana jako ciselna, prevedl
se uz zformatovany text zpatky na cislo a o formatovani se prislo.
Vaclav Krmela
Vista a prava
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 06.8.2007 14:49:40
On 8/6/07, Lebeda David <david.lebeda(zv)comarr(tec)cz> wrote:
> Ahoj,
>
> nektere aplikace provozovane na Vistach, umeji takovou zajimavou vec. Kdyz
> zjisti, ze k urcite cinnosti nemaji prava, pozadaji uzivatele nejakym
> dialogem o docasne prepnuti do administratorskeho rezimu. No - je to
> laicky, mozna nepresne popsane, ale... Jak mohu takovy dialog vyvolat z
> programu? Jde to vubec ve Win32 aplikaci?
Jde to. Jmenuje se to elevace procesu (process elevation). Na MSDN
najdes plno prikladu, jak to udelat (vcetne vsech veci okolo, ktere s
tim souvisi).
--
Jiri {x2} Cincura (Microsoft Student Partner)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Vista a prava
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 06.8.2007 14:45:40
Ahoj,
nektere aplikace provozovane na Vistach, umeji takovou zajimavou vec. Kdyz
zjisti, ze k urcite cinnosti nemaji prava, pozadaji uzivatele nejakym
dialogem o docasne prepnuti do administratorskeho rezimu. No - je to
laicky, mozna nepresne popsane, ale... Jak mohu takovy dialog vyvolat z
programu? Jde to vubec ve Win32 aplikaci?
Diky.
David Lebeda
Komponenty pro Open Office
[*] Pavel Lavicka <konference(zv)zus(tec)cz> - 06.8.2007 10:37:24
Ahoj,
nevite, zda existuje nejaka VCL pro Delhi, ktera by zapouzdrovala
ovladani Open Office 2.x obdobne, jako komponenty ze zalozky Servers v
pripade Microsoft Office. Dival jsem se na SourceForge, ale nic
kloudneho jsem nenasel.
Diky
Pavel
Milan Bartonek je mimo kancelar.
[*] mbartonek(zv)synthesia(tec)cz - 06.8.2007 10:03:22
Mimo kancelar budu od 04.08.2007 a nevratim se do 21.08.2007.
Na vasi zpravu odpovim, jakmile se vratim.
inicializovat HART modem
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 06.8.2007 09:15:18
> Netusm jak vlastne vypda ve skutecnosti typicky HART modem. Muze to
> byt proste zarizeni ci neco sofistikovanejsiho s vlastnim ridicim CPU.
> Predpokladam spis ale neco minimalistickeho (HART chip + minimalni
> mnozstvi veci kolem). Predpokladam, ze se modem pripojuje na
> seriovku...
Modem je krabicka s konektorem a kablikem na seriovy port na strane smerem k
PC, dvema zdirkami, nebo nejakym dvoupolovym konektorem smerem k ovladanemu
zarizeni (typicky meridlu).
> Zacal bych tim, ze se pokusim zjistit neco od vyrobce modemu (navod
> atd). Pripadne bych se podival dovnitr a zjistil co je tam za
> chipset -> datasheet od vyrobce by mel poskytnout patricne udaje.
nemam datasheet od vyrobce, snad se mi povede jej ziskat..
> Pro prvni kroky by se mozna hodil i osciloskop aby bylo videt, zda do
to jsem udelal, myslim, pri beznem provozu s nastavovacim softem od vyrobce
je komunikace na vystupni strane pekne videt (modulovany signal), jeste se
pokusim odchytit sekvence pri startu programu na seriovem portu.
Osobne si myslim, ze je nejdriv treba do modemu z PC poslat nejakou
inicializacni sekvenci, kterou snad zjistim z toho datasheetu. Bez
inicializace je tam videt jen lichobeznik cca polovicni frekvence.
Pokud to nekoho zajima, napisu jak to cele dopadlo. Je to zase neco jineho
nez databaze.
Dalibor F.
OT: na co se pouzivaji
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 03.8.2007 14:18:49
dobry den
chtel bych se zeptat jestli nekdo nevite o nejakem seznamu ve kterem je
napsano na co windowsy pouzivaji kterou ikonku ze souboru SHELL32.DLL a nove
IMAGERES.DLL
diky za kazde info inicializovat HART modem
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 03.8.2007 13:58:48
On Friday, August 03, 2007 12:48 PM ,
Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> wrote:
zbezne jsem se googlem na HARTA dival a vypada zajimave...
Netusm jak vlastne vypda ve skutecnosti typicky HART modem. Muze to
byt proste zarizeni ci neco sofistikovanejsiho s vlastnim ridicim CPU.
Predpokladam spis ale neco minimalistickeho (HART chip + minimalni
mnozstvi veci kolem). Predpokladam, ze se modem pripojuje na
seriovku...
Zacal bych tim, ze se pokusim zjistit neco od vyrobce modemu (navod
atd). Pripadne bych se podival dovnitr a zjistil co je tam za
chipset -> datasheet od vyrobce by mel poskytnout patricne udaje.
Pro prvni kroky by se mozna hodil i osciloskop aby bylo videt, zda do
proudove smycky vubec z modemu neco odchazi
komunikacni rychlost je 1200baudu ale smerem k PC to muze byt i jinak
(modem muze befferovat)
prepinani smeru zrejme bude nutne nejak resit (vlastni po proudove
smycce sice umoznuje oba smery ale tezko simultanne) ale neni
jiste,zda na urovni software v PC. Je mozne, ze je to resene ciste
protokolove - to znamena nektera zarizeni maji pravo vznaset dotazy a
jina jen odpovidat
D. Toman inicializovat HART modem
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 03.8.2007 12:48:43
Ahoj,
pred casem jsem se ptal na knihovnu pro komunikaci pres HART modem. Protoze
jsem nic free nenasel, pokousim se napsat neco sam, ale:
1. Protokol jsem nacvicil, neni to zase tak slozite
2. Pres comport posilam potrebne byty s adresami master a slave, prikazy a
crc.
3. Zbytecne, protoze mam nulovou odezvu z pristroje.
Myslim si, ze modem je treba asi nejak inicializovat podobne jako telefonnni
modem, ale nevim jak.
Kdysi jsem si rozchodil RS485, tam se musel prepinat smer dat pomoci RTS,
nevim, jestli u RS232 je to taky nutne, nebo to provadi samo...
Pokud vite, aspon prosim naznacte.
S diky Dalibor F.
DLL D7 D2006
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 03.8.2007 09:36:31
> prechadzam z D7 na D2006. Mam v D7 napisane DLL-ka, ktore ale
> nemozem
> prekompilovat -- a ani som nevidel dovod, pretoze som si myslel ze
> staci ze dodrzim nazvy funkcii a parametre (pocet a typy) pri volani z
> programu napisaneho v D2006.
>
> Zda sa ze to nebude tak jednoduche.
>
> 1. pod D7 som pouzival borlndmm.dll -- zial neviem si spomenut,
> odkial ho mam,
To byla standardni soucast starsich Dephi! Nebylo treba to nekde
shanet. ;-) Tato knihovnaumoznovala sdileni pameti mezi DLL a volanym
procesem. Osobne povazuji psani DLL s touto podporou za velmi
nestastne...
Kazdopadne od D2006 se pouziva jiny memory manager (fastMM), takze se
tyto 'cunacinky' delaji trosku jinak.
Doporucuji si precist toto:
http://groups.google(tec)cz/group/borland.public.delphi.non-
technical/browse_thread/thread/f4834b2ea63f44dd/c082169882308c86?lnk=s
t&q=borlndmm+d2006&rnum=2&hl=cs#c082169882308c86
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Umisteni formulare na stred obrazovky. D7
[*] Pavel Zidek <delphi(zv)kopr(tec)cz> - 03.8.2007 08:10:23
Zdravim,
zkus Position = poScreenCenter
ale je lepsi dat Position=poDesigned a umisteni nastavit rucne
Pavel ZIDEK
> U jednoho zakaznika pouzivaji takovou vymyslenost, ze maji u jednoho PC
dva monitory vedle sebe a windowsy si to nejak dumyslne osetruji tak, ze na