Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
dll v C++
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 09.9.2008 20:02:34
Jan Stefec napsal(a):
> Pekny den preji vsem!
> V Borland C++ 2006 na PC s Win XP jem jsem vyrobil dll s touto pokusnou
> funkci:
> extern "C" int __declspec(dllexport) __stdcall Test(int *I1, int *I2)
> {
> return 123;
> }
> Podstrcil jsem ji FB 2.03 jako UDF. Na PC, kde byla vytvorena, mi chodi
> naprosto bez problemu, ale na jinem mi FB rika: modul name or entrypoint
> could not be found.
> FB nainstalovan klasicky, dll pdstrcena do adresare UDF.
> Napisu-li dll v Delphi je prenositelna kamkoliv. Nevite nekdo, jak toho
> dosahnout i v C++?
>
>
Nemuze to souviset s debug a retail verzi runtime knihoven pro C++?
Ale obecne bych zkusil bych filemon, ten napise co presne (ktery
soubor) program nemuze najit (pokud tedy nemuze najit soubor a ne ten
entry point).
R.
Lze pouzit DISTINCT jen pro zvolene sloupce?
[*] Jiri Koula <dino(zv)atrey.karlin.mff.cuni(tec)cz> - 09.9.2008 17:50:22
Zdar,
> radkem v selectu jiz obsazenym. Potreboval bych neco podobneho, ale jen pro
> vybrane sloupce.
> Napr:
> SELECT DISTINCT typ, evidencnicislo, datummereni, protokol, majitel FROM
> mereni WHERE ....;
>
> kde DISTINCT by se tykal jen sloupcu typ a evidencnicislo, ktere by se
> nemeli opakovat. Uplne optimalni by bylo vybrat radek s nejvetsi hodnotou
> sloupce datummereni. Zobrazit ale potrebuji vsechny sloupce.
takze zapomeneme na distinct a pokud jsem to pochopil, jde o to pro kazdou
dvojici typ, evidencni cislo vybrat ten zaznam, ktery ma nejvyssi (=nejnovejsi)
datum mereni. Bohuzel Firebird moc neznam, ale mohlo by to byt (pokud Firebird
2.0 podporuje vnorene selecty na miste identifikatoru tabulky) nejak jako
select b.* from
(
select typ, evidencnicislo, max(datummereni) datummereni
from mereni
group by typ, evidencnicislo
) a, mereni b
where
a.typ=b.typ and
a.evidencnicislo=b.evidencnicislo and
a.datummereni=b.datummereni
Dalsi moznosti by byla klauzule EXISTS, pripadne Oracle na to ma i sikovne
analyticke funkce a konstrukce, nevim co Firebird.
Logika toho prvniho dotazu je "pro kazdou dvojici vyber maximalni datum mereni a
pak seznam takto ziskanych trojic pouzij jako filtr na tabulku", jina logika by
mohla byt rovnou "vrat mi vsechny zaznamy, ktere maji maximalni datummereni ze
vsech zaznamu se stejnym typ a evidencnicislo", ovsem k tomu uz imho je potreba
nejaky bonus v konkretni databazi, treba se jeste ozve nekdo, kdo s Firebird
dela.
Jirka Koula
>
> Jak jste si vsimli z dotazu tak v SQL nejsem zrovna kovanej :-)
>
> Delphi 7, Win XP Pro, Firebird 2.0
>
> dekuji
>
> Tonda
>
>
>
OT: Firebird Developers' Day 2008 - Call for Paper
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 09.9.2008 17:24:20
Zdravim *,
pri priprave programu na letosni Firebird Developers' Day,
ktery se uskutecni v listopadu v Praze, nam zbylo jedno misto pro
prezentaci (standardni delka - 50min).
Pokud mate zajimave reseni postavene na FB, zkusenost s nejakou fci
FB, vyvojem v/pro FB apod. a chcete se o sve znalosti/zkusenosti
podelit, poslete kratke shrnuti vaseho prispevku na muj mail
[jiri(zv)cincura.net] (tedy *mimo* konferenci).
Diky
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Lze pouzit DISTINCT jen pro zvolene sloupce?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 09.9.2008 17:08:19
To si budes muset prepsat do group by.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Lze pouzit DISTINCT jen pro zvolene sloupce?
[*] Ing. Antonin Spurny <spurny(zv)kavlounky(tec)cz> - 09.9.2008 16:50:17
Ahoj
pokud potrebuji ze SELECT vyradit opakujici se polozky, pouziji modifikator
DISTINCT, ale ten vyrazuje jen radky, ktere maji vsechny sloupce shodne z
radkem v selectu jiz obsazenym. Potreboval bych neco podobneho, ale jen pro
vybrane sloupce.
Napr:
SELECT DISTINCT typ, evidencnicislo, datummereni, protokol, majitel FROM
mereni WHERE ....;
kde DISTINCT by se tykal jen sloupcu typ a evidencnicislo, ktere by se
nemeli opakovat. Uplne optimalni by bylo vybrat radek s nejvetsi hodnotou
sloupce datummereni. Zobrazit ale potrebuji vsechny sloupce.
Jak jste si vsimli z dotazu tak v SQL nejsem zrovna kovanej :-)
Delphi 7, Win XP Pro, Firebird 2.0
dekuji
Tonda
Delphi 6 a Windows Server 2008
[*] Dalibor <dalibor(zv)torola(tec)cz> - 09.9.2008 13:44:01
Ahoj, asi ti moc neporadim, ale muzes zkusit stahnout zkusebni verzi win
2008 a do ni to zkusit nainstalovat a uvidis.
http://www.microsoft.com/downloads/details.aspx?FamilyId=B6E99D4C-A40E-4FD2-A0F7-32212B520F50&displaylang=en (nebo to nainstalujes do Virtual PC, VMWARE) D.> Dobry den,>> v praci chystame zmenu stavajiciho Windows Server 2003 za Windows Server> 2008. Rad bych vedel jak na novem systemu pojedou Delphi 6. Jestli nebudou> problemy s instalaci pripadne jestli se Delphi vubec rozbehnou.>> Na soucasnem systemu jedou v pohode.>> Mate s tim nekdo zkusenosti?
Knihovny pro OCR
[*] LeoL? Urban <leos.urban(zv)qds(tec)cz> - 09.9.2008 12:51:56
Diky moc za tip.
Jeste existuje zminene reseni od ABBYY a to dvou variantach:
1) ABBYY Recognition Server za cca 40000,- Kc
COM, WebServices
2) ABBYY FineReader Scripting Edition za cca 60000 dev + 15500 rt Kc
COM
Je to licencovane dle poctu serveru a dokumentu, tyto ceny plati pro
jeden server a max 25000 stran mesicne.
Leos
Delphi 6 a Windows Server 2008
[*] semler(zv)kapsw(tec)cz - 09.9.2008 12:29:54
Dobry den,
v praci chystame zmenu stavajiciho Windows Server 2003 za Windows Server
2008. Rad bych vedel jak na novem systemu pojedou Delphi 6. Jestli nebudou
problemy s instalaci pripadne jestli se Delphi vubec rozbehnou.
Na soucasnem systemu jedou v pohode.
Mate s tim nekdo zkusenosti?
Jirka
dll v C++
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 09.9.2008 09:53:39
Pekny den preji vsem!
V Borland C++ 2006 na PC s Win XP jem jsem vyrobil dll s touto pokusnou
funkci:
extern "C" int __declspec(dllexport) __stdcall Test(int *I1, int *I2)
{
return 123;
}
Podstrcil jsem ji FB 2.03 jako UDF. Na PC, kde byla vytvorena, mi chodi
naprosto bez problemu, ale na jinem mi FB rika: modul name or entrypoint
could not be found.
FB nainstalovan klasicky, dll pdstrcena do adresare UDF.
Napisu-li dll v Delphi je prenositelna kamkoliv. Nevite nekdo, jak toho
dosahnout i v C++?
Diky Honza
Pouzitie DelphiX
[*] Ivan Dulgerov <ivan.dulgerov(zv)sazp.sk> - 09.9.2008 08:05:30
Zdravim.
Stiahol som si komponenty DelphiX.
Pri pokuse o kompilovanie niektorych samplov
mi Delphi hadze chyby
napr.
Undeclared identifier: 'IDirect3DRMFrame'
a tiez ostatne interface.
Cesty mam zadane spravne, Delphi unit DirectX.Pas urcite "vidi"
Neviete niekto co s tym moze byt?
S DirectX nemam prakticky ziadne skusenosti.
Mam Win XP Prof + Delphi 2007
--
S pozdravom
Ico
Jak donutit uzivatele ke korektnimu vyplnovani pol
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 10.9.2008 12:59:57
Zdravim,
Petr Zahradnik napsal(a):
> Pak to jsou prece pobocky jedne spolecnosti, provozovny. Musi byt
> prirazeny k sobe. Tedy musi... no mely by byt... Ve vysledku je to jen
> jedna spolecnost, je treba k ni tak pristupovat.
chapu co chtel Petr rict, ale neni to tak, neda se to pouzivat jako
100% pravidlo, tudiz to nema smysl delat.
Nase organizace je treba soucast VS se stejnou urovni jako fakulta,
ale ucetne je vse vedeno zcela striktne oddelene, tedy pokud budes
neco delat pro nas a posles fakturu na rektorat tak ti to nikdo nezplati,
protoze to tam nema co delat a nikoho to nezajima. Jenom soucasti
mame asi 16 + dalsi samostatne uctovane celky jako jsou vedecke ustavy,
sportoviste, atd.
Ano ve vysledku je to jedna VS, ale nikdo s tebou za jinou
soucast nebude nic resit, to proste v tomto pripade nejde.
Samozrejme jedeme vsichni na jedno ICO.
Pocitam ze ostatni VS to maji stejne. Proto se kontrola na ICO
dela jen tak, ze reknu uzivateli, ze uz to tam ma a jestli je spravne
to tam zase pridat. Pokud prida a nema to tam co delat, tak je to
potom tezke nejak resit.
S pozdravem Vaclav Halik
Jak donutit uzivatele ke korektnimu vyplnovani pol
[*] Pesek Michal <michal.pesek(zv)mnul(tec)cz> - 10.9.2008 13:13:59
> Petr Zahradnik napsal(a):
> > Pak to jsou prece pobocky jedne spolecnosti, provozovny. Musi byt
> > prirazeny k sobe. Tedy musi... no mely by byt... Ve vysledku je to jen
> > jedna spolecnost, je treba k ni tak pristupovat.
> Nase organizace je treba soucast VS se stejnou urovni jako fakulta, ale ucetne je vse vedeno zcela striktne oddelene, tedy pokud budes neco delat pro nas a posles fakturu na rektorat tak ti to
> nikdo nezplati, protoze to tam nema co delat a nikoho to nezajima. Jenom soucasti mame asi 16 + dalsi samostatne uctovane celky jako jsou vedecke ustavy, sportoviste, atd.
> Samozrejme jedeme vsichni na jedno ICO.
K tomuto problemu, to napriklad UZIS (Ustav zdravotnicke informatiky a statistiky) resi tak, ze u kazdeho subjektu (nemocnice, lekarna) nejen ICO ale i tzv. poradove cislo organizace (pco).
V praxi se to prave hodi pro tyto ucely. Pokud ma organizace pouze jednou provozovnu/pobocku, tak je pco 000. Dalsi provozovny jsou rozlisene prave timto pco (010,011,020,...). Takze pokud chci vyjet stav za konkretni provozovnu, pouziji klic IC + PCO, pokud za celou organizaci pouziji klic IC.
S pozdravem
Michal Pesek
Jak donutit uzivatele ke korektnimu vyplnovani pol
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.9.2008 13:11:58
Puvodni zprava ze dne 10.9.2008 od Vaclav Halik:
> Nase organizace je treba soucast VS se stejnou urovni jako fakulta,
> ale ucetne je vse vedeno zcela striktne oddelene, tedy pokud budes
> neco delat pro nas a posles fakturu na rektorat tak ti to nikdo
> nezplati, protoze to tam nema co delat a nikoho to nezajima. Jenom
> soucasti mame asi 16 + dalsi samostatne uctovane celky jako jsou
> vedecke ustavy, sportoviste, atd.
Jasne, chapu, ale prece fakturacnich adres muze byt vice, zjednodusene:
SPOLECNOST - IC, DIC, jednatel, sidlo dle rejstriku apod.
|
POBOCKA - muze a nemusi byt pro danou spolecnost
|
ADRESA - fyzicka adresa, kontakty na dane adrese, typ adresy (dodaci,
fakturacni, postovni, sidlo)
|
KONTAKT - osoba, funkce, telefony, e-maily
Pricemz spolecnost bude mit prirazeno vice pobocek, kazda pobocka svou
dodaci i fakturacni adresu, klidne postovni adresu a seznam kontaktu.
Navic, pri obchodnim styku, pro dany projekt (napr. dodavka lampicek)
bude specifikovano, na kterou adresu se dodava, na kterou se
fakturuje, kdo za co zodpovida, tj. kontakty pro jednani apod.
Takze ve vysledku je vzdy jasne, kam se ma co dodat. Ale pak lze
snadno vytvorit sestavu, jak velky business nam dela konkretni
spolecnost, pripadne jeji pobocky.
Ano, uznavam, je to slozitejsi struktura a i jeji udrzba jeji
jednoducha.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Dekodovani predmetu v mailu
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 10.9.2008 13:30:00
Dne Wed, 10 Sep 2008 09:55:47 +0200 Pavel Gazda <pavel_gazda(zv)datasw(tec)cz>
napsal/-a:
> To delam, ale dostavam uvedeny vysledek.
Pouzivas interni prevody nebo externi iconv.dll?
BTW, zkousel jsi to DecodeMessage trasovat?
Tim by se melo dat zjistit, co je spatne.Dekodovani predmetu v mailu
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 10.9.2008 14:22:05
Petr Fejfar napsal(a):
> Pouzivas interni prevody nebo externi iconv.dll?
>
> BTW, zkousel jsi to DecodeMessage trasovat?
> Tim by se melo dat zjistit, co je spatne
Pouzivam interni prevody.
Zkousel jsem trasovat:
('=?koi8-r?B?08vB3sHU2CDQz9LO1dvL1Q==?=')
projde to na
DecodeBase64(S) ... vysledek 'OEA?AO? ?IOIOUEO'
pak jde na
CharsetConversion(s, KOI8_R, CP1250);
tam to jde pres InternalToUcs dostanu neco takoveho
#4'A'#4':'#4'0'#4'G'#4'0'#4'B'#4'L'#0'
'#4'?'#4'>'#4'(zv)'#4'='#4'C'#4'H'#4':'#4'C'
a ve funkci CharsetConversionTrans se to dostava na NotFoundChar
Lze pouzit DISTINCT jen pro zvolene sloupce?
[*] Jiri Koula <dino(zv)atrey.karlin.mff.cuni(tec)cz> - 10.9.2008 19:54:34
Hoj,
> Zajima me jestli where je vyhodnejsi pouzit ve vnorenem nebo nadrizenem
> dotazu?
no, jak vidim ten dotaz, tak where podminka datummereni<='10.9.2008' musi byt v
tom vnorenem, v nadrizenem by mel select jiny smysl (pri podmince ve vnorenem
selectu se pracuje se vsim, co bylo do 10.9.2008i (tedy vezmeme zaznamy do 10.9.
a na teto mnozine hledama maximalni data pro dvojice TYPDP, EVIDENCNICISLO), pri
podmince v nadrizenem by se pracovalo pouze s dvojicemi TYPDP, EVIDENCNICISLO,
pro nez uz neexistuji zaznamy po 10.9.2008 (maximalni datum by bylo vetsi a
podminka by to zahodila).
A co se tyce podminky TYPDP='AUER', dal bych to spise do toho vnoreneho (v duchu
myslenky filtrovat co nejdrive, aby nadrizene operace pracovaly s co nejmene
daty), ale je docela mozne, ze oba zapisy povedou na stejny exekucni plan.
> Tabulka mereni ma cca 10000 radku.
To neni mnoho, pokud ten dotaz nebude bezet x-krat za vterinu, nemel by s tim
byt problem, at se to napise jakkoliv (aspon trochu smysluplne, kazdy dotaz se
da samozrejme napsat libovolne pomaly).
Jirka Koula
> upraveny SQL dotaz:
> select b.* from
> (
> select TYPDP, EVIDENCNICISLO, max(DATUMMERENI) as DATUMMERENI
> from MERENI
> where
> (TYPDP = 'AUER') and
> (DATUMMERENI <= '10.9.2008')
> group by TYPDP, EVIDENCNICISLO
> ) a, mereni b
> where
> a.TYPDP = b.TYPDP and
> a.EVIDENCNICISLO = b.EVIDENCNICISLO and
> a.DATUMMERENI = b.DATUMMERENI
> ;
Dekodovani predmetu v mailu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.9.2008 17:02:19
> BTW, zkousel jsi to DecodeMessage trasovat?
> Tim by se melo dat zjistit, co je spatne.
spatne neni nic.
kdyz se prevadi jedna znakova sada na jinou, proste muze nastat
situace, ze pozadovany znak v cilove kodove strance neexistuje a je
tim padem neprevoditelny. Synapse v takovem pripade vklada znak
podtrzitka.
a protoze puvodni subjekt byl v azbuce, je v principu neprevoditelny
do CP1250... proto vysledek dopadl jako hromada podtrzitek.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Dekodovani predmetu v mailu
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 10.9.2008 15:32:11
Dne Wed, 10 Sep 2008 14:22:05 +-0200 Pavel Gazda <pavel_gazda(zv)datasw(tec)cz>
napsal/-a:
> tam to jde pres InternalToUcs dostanu neco takoveho
> #4'A'#4':'#4'0'#4'G'#4'0'#4'B'#4'L'#0'
> '#4'?'#4'>'#4'(zv)'#4'='#4'C'#4'H'#4':'#4'C'
>
> a ve funkci CharsetConversionTrans se to dostava na NotFoundChar
No nejspis to bude tim - jak ti uz rano psal JC -
ze to puskinovo pismo do CP1250 neprevedes...
Jen tak cvicne jsem to predhodil InlineDecode do UTF8
a bolsevik v tom subjectu pise:
+BEEEOgQwBEcEMARCBEw- +BD8EPgRABD0EQwRIBDoEQw- (skacat pornusku) :-)
pf
Dekodovani predmetu v mailu
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 11.9.2008 07:01:41
Lukas Gebauer napsal(a):
>> BTW, zkousel jsi to DecodeMessage trasovat?
>> Tim by se melo dat zjistit, co je spatne.
>>
>
> spatne neni nic.
>
> kdyz se prevadi jedna znakova sada na jinou, proste muze nastat
> situace, ze pozadovany znak v cilove kodove strance neexistuje a je
> tim padem neprevoditelny. Synapse v takovem pripade vklada znak
> podtrzitka.
>
> a protoze puvodni subjekt byl v azbuce, je v principu neprevoditelny
> do CP1250... proto vysledek dopadl jako hromada podtrzitek.
>
Dobre, toto jsem uz pochopil a zeptam se trochu jinak.
nyni postupuji takto:
Mam naplneno TMimeMess
provedu DecodeMessage
a pak ctu Header.Subject
Jak mam postupovat, abych dostal informace ze subjectu ?
(puvodni znakovou sadu, puvodni text )
Diky
Pavel
knihovna v C++
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 11.9.2008 09:39:56
> Nicmene linkeru se asi nepodarilo najit funkci DecodeDate, aby ji mohl linkovat. Mas spravne prohledavane cesty, spravne unity v Uses ?
>
>
Mam #include <Sysutils.hpp> a opravdu jsem ji tam nasel. A vidi ji tam i
C++, kdyz dam Find Declaration...
knihovna v C++
[*] horky(zv)cominn(tec)cz - 11.9.2008 09:23:55
> From: Jan Stefec [mailto:stefec(zv)algo-hk(tec)cz]
> Sent: Thursday, September 11, 2008 8:48 AM
> Provedl jsem. Pri prekladu se mi objevi tato hlaska:
> [Linker Error] Error: Unresolved external __fastcall
> Sysutils::DecodeDate(........
> Kdyz funkci DecodeDate nepouziju, je vse OK. Proto jsem zkusil build
> with packages - odstrani to chybovou hlasku, ale zase to chce
> rtl100.bpl.
To je ovsem jiny problem, nez jsi se puvodne ptal.
S tim moc neporadim, delam v Delphi 7.
Nicmene linkeru se asi nepodarilo najit funkci DecodeDate, aby ji mohl linkovat. Mas spravne prohledavane cesty, spravne unity v Uses ?
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
knihovna v C++
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 11.9.2008 08:47:51
horky(zv)cominn(tec)cz napsal(a):
> Zrus zatrzeni Build with runtime packages. Pak se vse potrebne nalinkuje primo do kompilovaneho programu.
>
>
Provedl jsem. Pri prekladu se mi objevi tato hlaska:
[Linker Error] Error: Unresolved external __fastcall
Sysutils::DecodeDate(........
Kdyz funkci DecodeDate nepouziju, je vse OK. Proto jsem zkusil build
with packages - odstrani to chybovou hlasku, ale zase to chce rtl100.bpl.
knihovna v C++
[*] horky(zv)cominn(tec)cz - 11.9.2008 08:31:49
> From: Jan Stefec [mailto:stefec(zv)algo-hk(tec)cz]
> Sent: Thursday, September 11, 2008 8:26 AM
> Mam dll napsanou v Borland C++ 2006. Pri prekladu nemam zatrzenoUse
> dynamic RTL a mam zatrzeno Build with runtime packages. Vysledna
> knihovna k svemu zivotu vyzaduje pritomnost rtl100.bpl.
Zrus zatrzeni Build with runtime packages. Pak se vse potrebne nalinkuje primo do kompilovaneho programu.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
knihovna v C++
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 11.9.2008 08:25:49
Pekny den preji vsem!
Mam dll napsanou v Borland C++ 2006. Pri prekladu nemam zatrzenoUse
dynamic RTL a mam zatrzeno Build with runtime packages. Vysledna
knihovna k svemu zivotu vyzaduje pritomnost rtl100.bpl. Nevite nekdo,
jak ji teto zavislosti zbavit?
Dekuji Honza
dbExpress
[*] Tomas Krejzek <tomas.krejzek(zv)email(tec)cz> - 12.9.2008 09:17:58
Ahoj mam takovy dotaz, pouzivate nekdo v ostrem provozu komponenty dbExpress ??
A jake s nimi mate zkusenosti - vykon/spolehlivost??
Pokud ano, jak je dostavate do tabulek, protoze primo to nejde protoze jsou unidirectional.
Diky Tom
======================================================================
KP-SYS mail server
http://www.kpsys(tec)cz
+420 466 655 055
======================================================================dbExpress
[*] Cabak Pavel <delphikonf(zv)cross(tec)cz> - 12.9.2008 09:34:00
Zkus se podivat na http://dn.codegear.com/article/28876
Na adrese http://dn.codegear.com/delphi/components/usecomponents?page=4&sort=author
si vyhledej clanky od Cary Jensen
Pavel Cabak
cabak(zv)cross(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Tomas Krejzek
Posted At: Friday, September 12, 2008 9:18 AM
Posted To: Delphi konference
Conversation: dbExpress
Subject: dbExpress
Ahoj mam takovy dotaz, pouzivate nekdo v ostrem provozu komponenty dbExpress ??
A jake s nimi mate zkusenosti - vykon/spolehlivost??
Pokud ano, jak je dostavate do tabulek, protoze primo to nejde protoze jsou unidirectional.
Diky Tom
======================================================================
KP-SYS mail server
http://www.kpsys(tec)cz
+420 466 655 055
======================================================================
dbExpress
[*] Pavel Fiser <fiserpavel(zv)gmail(tec)com> - 12.9.2008 09:50:01
Pouzivam naprosto bezne - do tabulek ve spojeni s ClientDataSetem neni problem.
Jediny problem na ktery jsem narazil byla prace ve vlaknech, tam to
obcas pri hodne zatezovem provozu (spis vzacne) vyhuci na AV a je si
stale nejsem jisty jestli je to u me nebu v DBExpressu. PF.
> Ahoj mam takovy dotaz, pouzivate nekdo v ostrem provozu komponenty dbExpress ??
> A jake s nimi mate zkusenosti - vykon/spolehlivost??dbExpress
[*] Tomas Krejzek <tomas.krejzek(zv)email(tec)cz> - 12.9.2008 10:18:04
A jak to prosim dostanes do toho ClientDataSetu z SQLQuery/SQLTable/SQLDataSet ???
Zkousim, ale nasel jsem jen ClientDataSet->LoadFromStream, bohuzel z tech komponent se mi
ten stream nedari dostat, co delam zle ???
Pavel Fiser napsal(a):
> Pouzivam naprosto bezne - do tabulek ve spojeni s ClientDataSetem neni problem.
> ======================================================================
KP-SYS mail server
http://www.kpsys(tec)cz
+420 466 655 055
======================================================================dbExpress
[*] Pavel Fiser <fiserpavel(zv)gmail(tec)com> - 12.9.2008 12:00:13
Myslim ze je to popsano v tech linkach posilanych vyse...
Spojeni komponent TSQLDataSet->TDataSetProvider->TClientDataSet.
To samozrejme napojeno na TSQLConnection a pak pripadne pres
TDataSource napojit na konci visualni komponenty.
Urcite je to na mnoha mistech (vcetne helpu) bohate popsano.
PF
> A jak to prosim dostanes do toho ClientDataSetu z SQLQuery/SQLTable/SQLDataSet ???Dva Monitory
[*] Vasek ZARUBA <zaruba(zv)elastoform(tec)cz> - 12.9.2008 14:14:24
Ahoj,
Jak nastavim D7pro na dva monitory tak, aby jsem mel v jednom prostredi a ve druhem app? Vzdy mi skoci oba do primaru. Potreboval bych spustit app na sekundarni m.
Diky
Vasek 8^)Dva Monitory
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 12.9.2008 14:30:26
Ahoj,
mozna by bylo lepsi nastavit si prostredi pro ladeni do 2. monitoru a
ulozit jako debug desktop. Ten se ti potom automaticky nastavi po
spusteni aplikace.
Peca
Dekodovani predmetu v mailu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 12.9.2008 21:33:03
> nyni postupuji takto:
> Mam naplneno TMimeMess
> provedu DecodeMessage
> a pak ctu Header.Subject
>
> Jak mam postupovat, abych dostal informace ze subjectu ?
> (puvodni znakovou sadu, puvodni text )
Neni lepsi si to nechat prekodovat do nejakeho unicode? Puvodni znakova
sada muze byt opravdu hodne rozlicna, a ma-li program fungovat
univerzalne, bez unicode se neobejdes. Navic pak nebudes muset resit, co
ze je to vlastne pouzito za kodovani...
Viz. Mimemess.headers.charset propety
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
D5 na viste
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 15.9.2008 12:38:24
Dobry den,
jeste porad trochu programuji na D5Ent, ale chtel bych to delat na notebooku
a ty uz jsou prakticky jenom na Viste. Jenze zkusmo jsem D5 naintaloval na
Vistu a nejede. Po spusteni chce nastavit debugger (klasika) a pak tvrdi, ze
se nemohlo neco prejmenovat. O database desktopu hlasi zase "zname potize s
kompatibilitou". Jde to vubec na viste provozovat?
Diky za odpovedi.
Dalibor.
D5 na viste
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 15.9.2008 12:52:26
No, ja jsem to puvodne taky nemohl rozjet. Instalovalo se to do Program
Files a prd. Tak jsem to nainstaloval do Users a uz to ficelo. Asi jsou
dulezita prava.
Zaplik
----- Original Message -----
From: "Dalibor Faltynek" <dalibor.faltynek(zv)orgrez(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 15, 2008 12:38 PM
Subject: D5 na viste
> Dobry den,
> jeste porad trochu programuji na D5Ent, ale chtel bych to delat na
> notebooku
> a ty uz jsou prakticky jenom na Viste. Jenze zkusmo jsem D5 naintaloval na
> Vistu a nejede. Po spusteni chce nastavit debugger (klasika) a pak tvrdi,
> ze
> se nemohlo neco prejmenovat. O database desktopu hlasi zase "zname potize
> s
> kompatibilitou". Jde to vubec na viste provozovat?
> Diky za odpovedi.
> Dalibor.
>
>
Firebird, overeni existence DOMAIN
[*] spurny(zv)kavlounky(tec)cz - 16.9.2008 07:14:01
ahoj,
Potrebuji si overit existenci domain a v pripade jeji neexistence ji
vytvorit.
Lze si overit existenci domain jinak, nez nahlednutim do systemovych
tabulek (Tabulka: rdb$fields; Field: rdb$field_name)?
Nejlepe pomoci IB komponent.
dekuji Tonda
firebird 2.1, D7, WIN XP
RxMemoryData, vytvoreni sloupce
[*] Zdenek Kalhous <kalhous(zv)eu(tec)cz> - 15.9.2008 16:12:43
Jak (pokud vubec) lze za chodu programu pridat sloupec (pole) do tabulky TRxMemoryData? V helpu D7 sice pisou ze program nema instance TField vytvaret ale ja bych to potreboval. A nedari se mi konkretne vnutit vytvorenemu TField typ, treba ze ma byt TStringField. Dik.RxMemoryData, vytvoreni sloupce
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.9.2008 08:12:07
Zdenek Kalhous napsal(a):
> Jak (pokud vubec) lze za chodu programu pridat sloupec (pole) do tabulky TRxMemoryData? V helpu D7 sice pisou ze program nema instance TField vytvaret ale ja bych to potreboval. A nedari se mi konkretne vnutit vytvorenemu TField typ, treba ze ma byt TStringField. Dik.
>
>
Zdravim,
v programu jsem nasel, ze pouzivam tohle. Neni to sice primo pro
rxMemoryData, ale lisit by se to teoreticky nemelo.
var
f: TStringField;
fi: TIntegerField;
------------------------
fi := TIntegerField.Create(rxTab);
fi.FieldName := 'NUMREC';
fi.Name := rxTab.Name + fi.FieldName;
fi.Index := 0;
fi.DataSet := rxTab;
fi.Required := False;
fi.FieldKind := fkData;
f := TStringField.Create(rxTab);
f.FieldName := 'TYP';
f.Name := rxTab.Name + f.FieldName;
f.Index := 1;
f.DataSet := rxTab;
f.Required := False;
f.Size := 1;
f.FieldKind := fkData;
atd. Postypne se zvysuje Index, u stringovych poli se musi vyplnit i
Size. Promenne f, fi apod. staci lokalni, lze pouzit opakovane pro
vsechna pole stejneho typu. Nedelat na ne zadne Free apod. - pamet se
uvolni pri uvolnovani fieldu, tj. az pri uvolnovani komponenty rxTab. V
pripade pozadavku na zlikvidovani takto vytovreneho pole za behu
programu staci rxTab.Fields[i].Free
David Lebeda
IB pres BDE - razeni
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 16.9.2008 12:50:30
Nazdar vsem ve spolek, prestoze tusim, ze to nema reseni, musim se zeptat.
Mam projekt puvodne vznikli nad Paradoxem. V soucasne dobe se provozuje nad
IB6.0, FB1.5, FB2.0 a take IB7. Dosud jsme pouzivali CHARACTER SET WIN1250 a
COLLATE PXW_CSY. Melo to sve mouchy, ale dalo se. Primarni indexy jsou
bohuzel nad vyznamovymi polozkami (vestsinou varchar). A zde zacina muj
problem. Pokud se pouziva COLLATE PXW_CSY je na IB6.0 omezena delka takoveho
indexu (neco kolem 60 znaku). Takze jsem se rozhodl zkusit COLLATE WIN1250.
Delka indexu jiz omezena neni ale, v programu jsou ceske znaky setrideny
nepouzitelne. Na FB2.0 skvele funguje COLLATE WIN_CZ, ale to neni nikde
jinde - OK donutime zakazniky prejit na FB2.0 (spis to hodnotim kladne), ale
co s temi, kteri si poridili IB7 (a podotykam, ze jsme jim ho vymlouvali).
Proc to vlastne pisu ... neexistuje nejaka mocnost (UDF nebo tak neco),
doplneni o to razeni WIN_CZ z FB2.0 do IB? Nebo jina cesta,ktera me jeste
nenapadla?
Pri CHARACTER SET WIN1250 a COLLATE PXW_CSY na FB2.0 neni delka indexu
omezena, plati to i pro IB7? Nikde jsem to nenasel.
S pozdravem
Zdenek Brejsa
3444 (20080916)
__________
.
Delphi preklad do rustiny
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 16.9.2008 13:48:35
ahoj co vsechno musim mit na xpeckach abych mohl vytvorit aplikaci s ruskym
textem?
Nejak se mi to v Delphi 2007 nevede
Diky moc
Ales
D5 na viste
[*] Roland Turcan <konf(zv)rotursoft.sk> - 17.9.2008 08:20:10
Ahoj Martin,
Ja aj z tohoto dovodu mam virtualny pocitac a v nom Windows XP ako
guesta. Host moze byt iny OS, aj napr. Linux.
TRoland;
<<< 15.9.2008 12:52 - Zapletal Martin "zapletal(zv)inoma(tec)cz" >>>
ZM> No, ja jsem to puvodne taky nemohl rozjet. Instalovalo se to do Program
ZM> Files a prd. Tak jsem to nainstaloval do Users a uz to ficelo. Asi jsou
ZM> dulezita prava.
ZM> Zaplik
ZM> ----- Original Message -----
ZM> From: "Dalibor Faltynek" <dalibor.faltynek(zv)orgrez(tec)cz>
ZM> To: <delphi-l(zv)clexpert(tec)cz>
ZM> Sent: Monday, September 15, 2008 12:38 PM
ZM> Subject: D5 na viste
>> Dobry den,
>> jeste porad trochu programuji na D5Ent, ale chtel bych to delat na
>> notebooku
>> a ty uz jsou prakticky jenom na Viste. Jenze zkusmo jsem D5 naintaloval na
>> Vistu a nejede. Po spusteni chce nastavit debugger (klasika) a pak tvrdi,
>> ze
>> se nemohlo neco prejmenovat. O database desktopu hlasi zase "zname potize
>> s
>> kompatibilitou". Jde to vubec na viste provozovat?
>> Diky za odpovedi.
>> Dalibor.
>>
>>
>>
--
Best regards, TRoland
http://exekutor.rotursoft.sk
D5 na viste
[*] Marek Spisak <spishark(zv)post(tec)cz> - 17.9.2008 09:02:14
Zdravim
Osobne pouzivam Microsoft Virtual PC
http://www.microsoft.com/windows/downloads/virtualpc/default.mspx a v nem mi
behaji jak D5, tak i Builder 6. Jedina vec, kterou je treba si uvedomit je
licencovani, protoze pokud se nejedna o dual boot, tzn. ze mohou soubezne
bezet oba systemy najednou, je treba mit 2 licence i v pripade, ze host i
guest jsou XP. Virtualni stroj ma svoji obrovskou vyhodu i pro testovani -
lze zapnout undo disky, takze vesekere zmeny do systemu, ktere testy
provedou lze vzit zpet a dalsi testovani provadet opet na "nepolibenem" OS.
Marek
RT> Ja aj z tohoto dovodu mam virtualny pocitac a v nom Windows XP ako
RT> guesta. Host moze byt iny OS, aj napr. Linux.
RT> TRoland;
<<< 15.9.2008 12:52 - Zapletal Martin "zapletal(zv)inoma(tec)cz" >>>
ZM> No, ja jsem to puvodne taky nemohl rozjet. Instalovalo se to do Program
ZM> Files a prd. Tak jsem to nainstaloval do Users a uz to ficelo. Asi jsou
ZM> dulezita prava.
DF> <15.9.2008 12:38 PM dalibor.faltynek(zv)orgrez(tec)cz>
DF> jeste porad trochu programuji na D5Ent, ale chtel bych to delat na
DF> notebooku
DF> a ty uz jsou prakticky jenom na Viste. Jenze zkusmo jsem D5 naintaloval
na
DF> Vistu a nejede. Po spusteni chce nastavit debugger (klasika) a pak
tvrdi,
DF> ze
DF> se nemohlo neco prejmenovat. O database desktopu hlasi zase "zname
potize
DF> s kompatibilitou". Jde to vubec na viste provozovat?
D5 na viste
[*] horky(zv)cominn(tec)cz - 17.9.2008 08:54:13
> From: Dalibor Faltynek [mailto:dalibor.faltynek(zv)orgrez(tec)cz]
> Sent: Monday, September 15, 2008 12:38 PM
> Jenze zkusmo jsem D5
> naintaloval na
> Vistu a nejede. Po spusteni chce nastavit debugger (klasika)
> a pak tvrdi, ze
> se nemohlo neco prejmenovat. O database desktopu hlasi zase
> "zname potize s
> kompatibilitou". Jde to vubec na viste provozovat?
Mrkni se na http://www.drbob42.com/examines/examin84.htm
Popisuje tam reseni presne tech problemu, co pises.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
DLL-funkce vracejici retezec
[*] Ing. Zdenek Zacal <servis(zv)praktik(tec)cz> - 17.9.2008 09:42:18
Zdravim vsechny,
Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar (napr.
function GetPChar:PChar nebo procedure(P:PChar)), ale neni mi jasne jak
spravne alokovat a dealokovat pamet, zkousel jsem ruzne varianty, ale vzdy
to nakonec skoncilo na Access violation. Dik za nakopnuti.
A jeste jeden dotaz. Kde lze ted najit archiv konference?
Zdenek Zacal
DLL-funkce vracejici retezec
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 17.9.2008 09:58:20
Ahoj
Ing. Zdenek Zacal napsal(a):
> Zdravim vsechny,
> Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar (napr.
> function GetPChar:PChar nebo procedure(P:PChar)), ale neni mi jasne jak
>
Osvedcilo se mi toto:
procedure GetPChar(var BuffLen: integer; Buff: Pchar); cdecl;
var
TempString : string;
begin
..........
if Length(TempString) <= BuffLen then
StrPLCopy(Buff,TempString,BuffLen);
BuffLen := length(TempString);
end;
Pavel
DLL-funkce vracejici retezec
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.9.2008 10:10:21
> Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar (napr.
> function GetPChar:PChar nebo procedure(P:PChar)), ale neni mi jasne jak
> spravne alokovat a dealokovat pamet, zkousel jsem ruzne varianty, ale vzdy
>
Ahoj,
pokud by to funkce mela vracet jako result a sama naalokovat potrebnou
pamet, bude vzdy riziko, ze za nejakych okolnosti nedojde k uvolneni.
Proto se pouziva to, ze volajici funkce nalokuje buffer, pointer na nej
a informaci o jeho velikosti preda do funkce v DLL a funkce v DLL ho jen
plni. Alokaci i uvolneni tak resi volajici funkce.
David Lebeda
D5 na viste
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 17.9.2008 10:24:22
No a kdyz budu mit vistu byznys a downgraduju je na XPP, mohl bych pouzivat
na tom pocitaci oba systemy s rozhodnutim pri spusteni pocitace? Umoznuje to
ta licence? Sehnal jsem totiz notas, ktery ma u vyrobce jeste ovladace i na
WXP a dodava se s vistou byznysem?
Dalik
>
> Ja aj z tohoto dovodu mam virtualny pocitac a v nom Windows XP ako
> guesta. Host moze byt iny OS, aj napr. Linux.
>
>
D5 na viste
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.9.2008 10:38:24
Puvodni zprava ze dne 17.9.2008 od Dalibor Faltynek:
> No a kdyz budu mit vistu byznys a downgraduju je na XPP, mohl bych
> pouzivat na tom pocitaci oba systemy s rozhodnutim pri spusteni
> pocitace? Umoznuje to ta licence? Sehnal jsem totiz notas, ktery ma
> u vyrobce jeste ovladace i na WXP a dodava se s vistou byznysem?
Podle meho nazoru to aktivacni system nepovoli a bude pokazde
vyzadovat aktivaci. Ale jisty si tim nejsem, chtelo by to zkusit nebo
se zeptat primo u zdroje. Precti si tohle:
http://download.microsoft.com/download/D/2/E/D2E0A618-7A07-48DE-90A5-45D09C59F2A8/A4_Vista_downgrade.pdf
Je tam psano, ze muzes puvodni Vista znovu nainstalovat, ale musis
downgradovane XP z pocitace smazat.
Jinak, downgradovat muzes u OEM Vistal Business a OEM Vista Ultimate.
A take v pripade multilicencnich programu. Nikoliv vsak u krabicovych
verzi Vista, tam to neni dovoleno, stejne jako ne u OEM Vista nizsich
edic.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
D5 na viste
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 17.9.2008 11:04:26
Aha,
ja jsem si to predstavoval tak, ze:
1. krok) z recovery nainstaluju na NB Vistu a aktivuji.
2. krok) napriklad Partition magicem rozdelim disk a ve vznikle partition
nainstaluji XP a aktivuji
3. krok) nahraju nejaky zavadec, treba XOSL, nebo pouziju ten od Microsoftu,
a pri starttu pocitace mi da vybrat system. Tak jsem to delal u W98/WXP.
Samozrejme ze to chci vse legalne, XPecka potrebuji spis na starsi vyvojove
prostredky, ovladani stareho hardware apodobne, na ostatni veci asi je lepsi
uz pouzivat Visty, treba uz kvuli podpore novych veci, lepsimu zabezpeceni
(predpokladam). A nechci neco porad odinstalovavat, a instalovat dokola,
aktivovat a deaktivovat.
Podivam se na ten pdf, ale s mou bidnou anglictinou nevim.
Dalik.
>
>> No a kdyz budu mit vistu byznys a downgraduju je na XPP, mohl bych
>> pouzivat na tom pocitaci oba systemy s rozhodnutim pri spusteni
>> pocitace? Umoznuje to ta licence? Sehnal jsem totiz notas, ktery ma
>> u vyrobce jeste ovladace i na WXP a dodava se s vistou byznysem?
>
> Podle meho nazoru to aktivacni system nepovoli a bude pokazde
> vyzadovat aktivaci. Ale jisty si tim nejsem, chtelo by to zkusit nebo
> se zeptat primo u zdroje. Precti si tohle:
>
> http://download.microsoft.com/download/D/2/E/D2E0A618-7A07-48DE-90A5-45D09C59F2A8/A4_Vista_downgrade.pdf
>
> Je tam psano, ze muzes puvodni Vista znovu nainstalovat, ale musis
> downgradovane XP z pocitace smazat.
>
> Jinak, downgradovat muzes u OEM Vistal Business a OEM Vista Ultimate.
> A take v pripade multilicencnich programu. Nikoliv vsak u krabicovych
> verzi Vista, tam to neni dovoleno, stejne jako ne u OEM Vista nizsich
> edic.
D5 na viste
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.9.2008 11:14:27
Puvodni zprava ze dne 17.9.2008 od Dalibor Faltynek:
> Samozrejme ze to chci vse legalne, XPecka potrebuji spis na starsi
> vyvojove prostredky, ovladani stareho hardware apodobne, na ostatni
> veci asi je lepsi uz pouzivat Visty, treba uz kvuli podpore novych
> veci, lepsimu zabezpeceni (predpokladam). A nechci neco porad
> odinstalovavat, a instalovat dokola, aktivovat a deaktivovat.
Pokud bys ten druhy operacni system pouzil pouze na vyvoj, muzes bez
problemu vyuzit licenci z MSDN. Pokud mas MSDN.
Pokud nemas MSDN, kup si OEM XP Home za cca 1500-1700 Kc, v ramci
legalizacni kampane si je muzes koupit samostatne, a instalovat bez
problemu.
> Podivam se na ten pdf, ale s mou bidnou anglictinou nevim.
Si delas legraci? To PDF, ktere jsem poslal, je cesky :-)
PS: Jinak, me Delphi 5 pod Vistami pracuji. Mam je tedy uz jen jako
pro stare projekty, takze jsem to prepnuti debuggeru ani nepovoloval.
Ale jinak nemam zadny problem.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
D5 na viste
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 17.9.2008 11:48:30
> Jinak, downgradovat muzes u OEM Vistal Business a OEM Vista Ultimate.> A take v pripade multilicencnich programu. Nikoliv vsak u krabicovych> verzi Vista, tam to neni dovoleno, stejne jako ne u OEM Vista nizsich u FPP se da o DWN zazadat. KER
_________________________________________________________________
Stahni si 30 emotikonu pro tvuj Windows Live Messenger ZDARMA!
http://www.livemessenger-emoticons.com/funfamily/cs-cz/D5 na viste
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.9.2008 12:00:32
Puvodni zprava ze dne 17.9.2008 od Marek Kocan:
> Pozor, moznost legalizace konci 31. prosincem letosniho roku. Na
> samotnou legalizaci budou jine balicky (maji uz byt k dispozici, ale
> jeste jsem je nevidel).
Na legalizaci se pouzivaji OEM verze. Jake jine balicky? Jako neco
noveho do prosince, a nebo pak od ledna?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
D5 na viste
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 17.9.2008 12:10:23
> Na legalizaci se pouzivaji OEM verze. Jake jine balicky? Jako neco
> noveho do prosince, a nebo pak od ledna?
>
ano, presne tak. Soucasna legalizacni politika konci (ma koncit, ale uz jsem
to videl ofiko) 31.12.2008, moznost legalizace ma dokonce v teto podobe
zaniknout (nejsem pravnik, netusim, jak to bude s jiz nakoupenymi balicky -
rekl bych, ze by to pravo melo pretrvat). V kazdem pripade od 1.1.2009 by ti
nikdo nemel prodat OEM s tim, ze si muzes pomoci ni zlegalizovat pocitac
(pujde dal jen na novych pocitacich s podminkou, ze jsou urceny k prodeji -
cili ani OEM Builderi by si jiz sami pro sebe nemohli takto legalizovat, ale
cert vi).
pro legalizaci by mely byt k dispozici nove balicky, tusim po 1 ks a pak po
10 ks jako obdoba OLP NL, ale jak rikam, ty jsem jeste nikde nevidel. KER
D5 na viste
[*] Petr Vones <conference(zv)petrvones(tec)net> - 17.9.2008 12:14:23
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
> Pokud nemas MSDN, kup si OEM XP Home za cca 1500-1700 Kc, v ramci
> legalizacni kampane si je muzes koupit samostatne, a instalovat bez
> problemu.
Pouzivat Windows XP Home na vyvoj aplikaci je tak trochu masakr ;-) Pro ty
kteri znaji jen vyssi verze, zamerne v nich totiz chybi veci ktere clovek
povazuje jinak za zcela samozrejme. Napriklad zalozky pro nastaveni NTFS
prav ve Windows Exploreru, ruzne MMC snapiny pro nastaveni bezpecnosti apod.
MSDN predplatne a virtualni stroj je asi opravdu nejlepsi reseni techto
situaci.
Petr Vones
Firebird, overeni existence DOMAIN
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 17.9.2008 22:43:18
On Tue, Sep 16, 2008 at 7:14 AM, <spurny(zv)kavlounky(tec)cz> wrote:
> Lze si overit existenci domain jinak, nez nahlednutim do systemovych
> tabulek (Tabulka: rdb$fields; Field: rdb$field_name)?
1. Zkusit ji pouzit.
2. Zkusit ji vytvorit.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
DLL-funkce vracejici retezec
[*] Ing. Zdenek Zacal <servis(zv)praktik(tec)cz> - 17.9.2008 18:18:55
>
> >>> Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar
> >>> (napr. function GetPChar:PChar nebo procedure(P:PChar)), ale neni
> >>> mi jasne jak
> >>>
> >> Osvedcilo se mi toto:
> >>
> >> procedure GetPChar(var BuffLen: integer; Buff: Pchar); cdecl;
> >> var
> >> TempString : string;
> >> begin
> >> ..........
> >> if Length(TempString) <= BuffLen then
> >> StrPLCopy(Buff,TempString,BuffLen);
> >> BuffLen := length(TempString);
> >> end;
> >
> > Tohle mi nefunguje, na StrPLCopy... spadne to s Access violation.
> > Nechapu proc.
> >
>
> zrejme proto, ze nebyl pred volanim funkce z DLL alokovan buffer pro
> data nebo je pointer (ci delka bufferu) na nej predavan spatne.
> Pripadne funkce v DLL je spatne napsana...
>
Tak problem je ve volaci konvenci, pokud pouziju cdecl nebo stdcall, tak
procedura v DLL spadne pri praci s PCharem (StrPLCopy). Pokud pouziju
register tak to funguje. DLL natahuju do pameti dynamicky. V cem je problem?
Zdenek
DLL-funkce vracejici retezec
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 17.9.2008 16:48:47
On Wednesday, September 17, 2008 4:26 PM ,
Ing. Zdenek Zacal <servis(zv)praktik(tec)cz> wrote:
>>> Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar
>>> (napr. function GetPChar:PChar nebo procedure(P:PChar)), ale neni
>>> mi jasne jak
>>>
>> Osvedcilo se mi toto:
>>
>> procedure GetPChar(var BuffLen: integer; Buff: Pchar); cdecl;
>> var
>> TempString : string;
>> begin
>> ..........
>> if Length(TempString) <= BuffLen then
>> StrPLCopy(Buff,TempString,BuffLen);
>> BuffLen := length(TempString);
>> end;
>
> Tohle mi nefunguje, na StrPLCopy... spadne to s Access violation.
> Nechapu proc.
>
zrejme proto, ze nebyl pred volanim funkce z DLL alokovan buffer pro
data nebo je pointer (ci delka bufferu) na nej predavan spatne.
Pripadne funkce v DLL je spatne napsana...
> Vygoogloval jsem nasledujici kod, ktery pamet alokuje z opacne
> strany
jenze staci zapomenout volat FreeString a je problem...
Stejne se musi obsah string kopirovat jinam tak proc to neudelat tak
jak je v kraji zvykem?
D. Toman
DLL-funkce vracejici retezec
[*] Ing. Zdenek Zacal <servis(zv)praktik(tec)cz> - 17.9.2008 16:26:45
> > Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar (napr.
> > function GetPChar:PChar nebo procedure(P:PChar)), ale neni mi jasne jak
> >
> Osvedcilo se mi toto:
>
> procedure GetPChar(var BuffLen: integer; Buff: Pchar); cdecl;
> var
> TempString : string;
> begin
> ..........
> if Length(TempString) <= BuffLen then
> StrPLCopy(Buff,TempString,BuffLen);
> BuffLen := length(TempString);
> end;
Tohle mi nefunguje, na StrPLCopy... spadne to s Access violation. Nechapu
proc.
Vygoogloval jsem nasledujici kod, ktery pamet alokuje z opacne strany a
ktery u me funguje. Je to tak v poradku?
library MyDLL;
uses
SysUtils;
const
AString: string = 'Hello world!';
function ReturnsAString: PChar;
begin
GetMem( Result, length( AString ) +1 );
StrPCopy( Result, AString )
end;
procedure FreeString( s: PChar );
begin
FreeMem( s )
end;
exports
ReturnsAString,
FreeString;
begin
end.
V programu:
procedure Button1Click( Sender: Object ); // or whatever
var
s: string;
p: PChar;
begin
p := ReturnsAString; // get the DLL's memory
s := p; // get a copy into our string
FreeString( p ); // return the DLL's memory
ShowMessage( s )
end;
DLL-funkce vracejici retezec
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 18.9.2008 07:22:18
Ing. Zdenek Zacal napsal(a):
>>>>> Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar
>>>>> (napr. function GetPChar:PChar nebo procedure(P:PChar)), ale neni
>>>>> mi jasne jak
>>>>>
>>>>>
>>>> Osvedcilo se mi toto:
>>>>
>>>> procedure GetPChar(var BuffLen: integer; Buff: Pchar); cdecl;
>>>> var
>>>> TempString : string;
>>>> begin
>>>> ..........
>>>> if Length(TempString) <= BuffLen then
>>>> StrPLCopy(Buff,TempString,BuffLen);
>>>> BuffLen := length(TempString);
>>>> end;
>>>>
>>> Tohle mi nefunguje, na StrPLCopy... spadne to s Access violation.
>>> Nechapu proc.
>>>
>>>
>> zrejme proto, ze nebyl pred volanim funkce z DLL alokovan buffer pro
>> data nebo je pointer (ci delka bufferu) na nej predavan spatne.
>> Pripadne funkce v DLL je spatne napsana...
>>
>>
> Tak problem je ve volaci konvenci, pokud pouziju cdecl nebo stdcall, tak
> procedura v DLL spadne pri praci s PCharem (StrPLCopy). Pokud pouziju
> register tak to funguje. DLL natahuju do pameti dynamicky. V cem je problem?
> Zdenek
>
>
Problem bude ve volani. V BuffLen je delka alokovane pameti, Buff
ukazuje na alokovanou pamet.
Napis, jak alokoujes pamet, a jak to volas. Testovat to muzes i bez DLL
primo v programu a pak
"cdecl" nema celkem vyznam.
Pripadne napis primo na muj mail, nejak to doladime.
Pavel
DLL-funkce vracejici retezec
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.9.2008 07:36:20
Ing. Zdenek Zacal napsal(a):
>>> Potrebuji z funkce/procedury umistene v DLL vratit retezec-PChar (napr.
>>> function GetPChar:PChar nebo procedure(P:PChar)), ale neni mi jasne jak
>>>
>>>
> Tohle mi nefunguje, na StrPLCopy... spadne to s Access violation. Nechapu
> proc.
>
Ahoj,
ve volajicim programu ma byt neco v tomto stylu
const DELKA_BUF = 1024; //napr.
var Buf: PChar;
GetMem(Buf, DELKA_BUF);
try
FunkceZDLL(Buf, DELKA_BUF);//dostane uz naalokovany Buf
...pouziti vysledku v Buf
finally
FreeMem(Buf);
end;
V DLL pak nic nealokujes. Jen overis, ze DELKA_BUF je dostacujici pro
ulozeni vysledku a zapisujes do Buf. U DLL pouzivam volaci konvecni stdcall.
David Lebeda
DLL-funkce vracejici retezec
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 18.9.2008 07:32:19
>> Tak problem je ve volaci konvenci, pokud pouziju cdecl nebo stdcall, tak
>> procedura v DLL spadne pri praci s PCharem (StrPLCopy). Pokud pouziju
>> register tak to funguje. DLL natahuju do pameti dynamicky. V cem je problem?
>> Zdenek
>>
>>
Jeste upresneni. Volat proceduru v DLL musis se stejnou konvenci, jak je
definovana.
Podivej se na help.
Pavel
Delphi preklad do rustiny
[*] Milan Vorisek <vorisek(zv)igtt(tec)cz> - 18.9.2008 07:44:20
> ahoj co vsechno musim mit na xpeckach abych mohl vytvorit aplikaci s
> ruskym
> textem?
V mistnim nastaveni zalozce Upresnit si nastav rustinu jako
jazyk pro programy nepoporujici unicode. Je nutno restartovat
pocitac. V zalozce Jazyky si nastav ruskou klavesnici. S ni se ale tezko
pracuje, kdyz na ni nemas azbuku. Existuje ruska klavesnice s rozlozenim
jako latinka (CZRusQWERTY):
http://www.volny(tec)cz/ufp/SW.htm
Milan
DLL-funkce vracejici retezec
[*] Ing. Zdenek Zacal <servis(zv)praktik(tec)cz> - 18.9.2008 09:02:27
>
> >> Tak problem je ve volaci konvenci, pokud pouziju cdecl nebo stdcall,> Jeste upresneni. Volat proceduru v DLL musis se stejnou konvenci, jak je
> definovana.
> Podivej se na help.
Tak presne v tom byl problem v programu jsem mel nadefinovanou jinou volaci
konvenci nez v DLL.
Dik za pomoc.
Zdenek
Mereni datoveho toku
[*] iel1(zv)email(tec)cz - 19.9.2008 17:01:11
A ma nekdo nejaky tip na konkretni SW? Zkousel jsem par programu, ale zadny neumel napojeni na localhost:3306. (Mam server i klienta na jednom PC a chci merit prenos mezi nimi...)
Dik.
> ----------------------------------------
> rekl bych, ze to zvladne skoro kazdy monitor, ktery bude schopen napojeni na
> dany port. KER
>
>
>
>
>
>
Mereni datoveho toku
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 19.9.2008 14:32:58
rekl bych, ze to zvladne skoro kazdy monitor, ktery bude schopen napojeni na
dany port. KER
Mereni datoveho toku
[*] iel1(zv)email(tec)cz - 19.9.2008 12:52:49
Ahoj,
potrebuji kvuli sitove optimalizaci merit datovy tok mezi DB serverem a moji aplikaci? Nenapada vas jak na to? Treba nejakym inteligentnim tunelem?
Dik za tipy!
Seminare Delphi 2009 Praha a Bratislava
[*] rkubat(zv)email(tec)cz - 19.9.2008 10:00:34
Vazeni vyvojari a uzivatele Delphi
Zveme vas na odborne seminare, ktere probehnou 13.10.2008 v Praze a 14.10.2008 v Bratislave. Predstavime vam nove produkty CodeGear Delphi 2009 a CPPBuilder 2009. Navstevnici seminare ziskaji zajimavou slevu na nakup produktu.
Vstup je zdarma, pouze je treba se do 10.10.2008 registrovat online. Prednaset bude Pawel Glowacki, technicky pracovnik evropskeho zastoupeni spolecnosti Embarcadero. Prednaska v anglictine bude v Praze simultanne tlumocena do cestiny a v Bratislave do slovenstiny. Vstup je zdarma, podminkou je vsak predchozi registrace.
Popis a program seminare vcetne registracniho formulare najdete na adrese http://embt(tec)cz
Tesim se, ze si na seminar udelate cas a radi vas na nem privitame.
Vsechny zdravi, -- Richard Kubat, Borland s.r.o.
Obnova smazaneho MDX v BDE
[*] Rudolf Krizek <krizek(zv)trifid-sw(tec)cz> - 22.9.2008 14:49:07
Zdravim vsechny!
Mam takovy trivialni problem. Jak znovu vytvorit MDXsoubor, ktery nekdo
omylem smazal. Pokud se o to pokusim pomoci AddIndex, tak dostanu hlasku, ze
Index does not exist (logicky, kdyz je smazany).
Diky za jakoukoliv radu
Rudolf Krizek
TRIFID Software
WinXP SP2, RAD Studio 2007 December 2007 Update
Obnova smazaneho MDX v BDE
[*] Petr Hlozek <petr h(zv)mrp(tec)cz> - 22.9.2008 15:05:09
Dobry den,
vytvorte si treba prazdnou tabulku se stejnymi indexy. Vytvori se i mdx
soubor. Ten zkopirujte na misto toho smazaneho a udelejte neco jako:
T:= TTable.Create(Nil);
try
T.DatabaseName:= ExtractFilePath(dbfko);
T.TableName := ExtractFileName(dbfko);
T.Exclusive := true;
T.Open;
Check(DbiRegenIndexes(T.Handle));
finally
T.Close;
T.Free;
end;
Petr
Rudolf Krizek napsal(a):
>
> Zdravim vsechny!
>
> Mam takovy trivialni problem. Jak znovu vytvorit MDXsoubor, ktery nekdo
> omylem smazal. Pokud se o to pokusim pomoci AddIndex, tak dostanu hlasku, ze
> Index does not exist (logicky, kdyz je smazany).
>
> Diky za jakoukoliv radu
>
> Rudolf Krizek
> TRIFID Software
>
> WinXP SP2, RAD Studio 2007 December 2007 Update
>
>
>
OT: Rozdelit disk
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 22.9.2008 15:39:12
Dobry den,
nevite prosim nekdo, jestli funguje stary dobra Partition Magic i na Viste?
Dalibor.
ADMIN: OT: Rozdelit disk
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.2008 15:45:13
Puvodni zprava ze dne 22.9.2008 od Dalibor Faltynek:
> Dobry den, nevite prosim nekdo, jestli funguje stary dobra Partition
> Magic i na Viste? Dalibor.
To tu nema co delat, spletl sis konferenci.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
AN:Firebird Developers' Day 2008
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 22.9.2008 21:07:40
Ahoj *,
druhy rocnik konference Firebird Developers' Day 2008 se uskutecni 16.
rijna, vice informaci (prni oznameni) je zde
http://www.dbsvet(tec)cz/view.php?cisloclanku=2008091801. Loni bylo zajemcu asi
o 40 vice, nez bylo mist, proto doporucuji v pripade zajmu s pripadnou
registraci moc nevahat (to neni marketing, kdo tam by vi, ze je to fakt, ze
se sedelo i na stupincich:) ).
Hezky den, KER
Excel - Obecny format
[*] Tyslic Jiri <jiri.tyslic(zv)delfortgroup(tec)com> - 23.9.2008 12:22:58
Pekny den vsem,
mel bych velkou prosbu, jiz pul dne se trapim s nastavenim formatu bunky
v Excelu na Obecny format.
Nastavit format bunky delam pomoci
Excel.Range['A1:B1].NumberFormat:='0.00', to funguje OK, ale pokud chci
nastavit format na Obecne, tak na to bude asi nejaka magicka konstanta.
Strycek Google me honi od certa k dablu. Ve VB jsem zjistil, ze se jedna
o nazev konstanty General, ale nejsem schopen zjistit tu magickou
konstantu...
Vsem dekuji za nakopnuti
Jirka
Excel - Obecny format
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 23.9.2008 12:47:00
Ahoj,
> v Excelu na Obecny format.
> Nastavit format bunky delam pomoci
> Excel.Range['A1:B1].NumberFormat:='0.00', to funguje OK, ale
> pokud chci nastavit format na Obecne, tak na to bude asi nejaka
> magicka konstanta.
> Strycek Google me honi od certa k dablu. Ve VB jsem zjistil,
> ze se jedna o nazev konstanty General, ale nejsem schopen zjistit
> tu magickou konstantu...
Nahraj si makro a vykonaj to formatovanie interaktivne, potom si pozri vygenerovany kod.
V tomto pripade je to magicka konstanta 'General'.
HTH
TOndrej
Excel - Obecny format
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 23.9.2008 12:38:59
ja pouzivam toto: NumberFormat:='GENERAL';
> Pekny den vsem,
> mel bych velkou prosbu, jiz pul dne se trapim s nastavenim formatu bunky
> v Excelu na Obecny format.
> Nastavit format bunky delam pomoci
> Excel.Range['A1:B1].NumberFormat:='0.00', to funguje OK, ale pokud chci
> nastavit format na Obecne, tak na to bude asi nejaka magicka konstanta.
> Strycek Google me honi od certa k dablu. Ve VB jsem zjistil, ze se jedna
> o nazev konstanty General, ale nejsem schopen zjistit tu magickou
> konstantu...
>
> Vsem dekuji za nakopnuti
>
> Jirka
Excel - Obecny format
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 23.9.2008 12:57:01
> Nahraj si makro a vykonaj to formatovanie interaktivne, potom si pozri vygenerovany kod.
> V tomto pripade je to magicka konstanta 'General'.
To funguje v mojej anglickej verzii. Zda sa ale, ze v roznych lokalizovanych verziach Excelu moze ta konstanta mat rozne hodnoty. Takze bude asi lepsie pouzit nasledovny kod:
MyRange.NumberFormat := Application.International(xlGeneralFormatName);
xlGeneralFormatName je konstanta nezavisla od lokalizacie, jej hodnota je 26.
HTH
TOndrej
Excel - Obecny format
[*] Tyslic Jiri <jiri.tyslic(zv)delfortgroup(tec)com> - 23.9.2008 13:05:02
> To funguje v mojej anglickej verzii. Zda sa ale, ze v roznych
lokalizovanych verziach Excelu moze ta konstanta mat rozne hodnoty.
Takze bude asi lepsie pouzit nasledovny kod:
>
> MyRange.NumberFormat :=
Application.International(xlGeneralFormatName);
>
>xlGeneralFormatName je konstanta nezavisla od lokalizacie, jej hodnota
je 26.
>
>HTH
>TOndrej
Mnohokrate dekuji,
konstanta 26 zafungovala. Konstanta 'General' bohuzel ne, ale jeste mi
funguje konstanta '(zv)'
Jirka
ZEOS a Server Has Gone away
[*] Petr Mathon <dveste zar(zv)quick(tec)cz> - 23.9.2008 21:25:44
Zdravim
Pouzivam Zeos s MySQL, obcas mi nahlasi ze mi odesel server. Jak mam testovat pripojeni k serveru? Staci Zconnection.connected, PingServer nebo poslat nejaky prikaz jako napr. 'set names cp1250'? Toto nastava po vypadku site, samozrejme, akorat nevim jak to rychle otestovat bez zdrzovani. Predpokladam, ze na takto zabrzdeny TZconnect staci volat proceduru reconnect. Nebo se ma reconnect pouzivat pravidelne. Jsou Zeos thread safe? Pokud ano, tak predpokladam, ze reconnect bude stejne zdrzovat.
Ma predstava je connection.pingserver, ale problem je v tom, ze po vypadku site-predpokladam, mi hodi pingserver ok, ale pro spojeni-SQL prikaz - mi vyhodi stejnou hlasku.
PM
ZEOS a Server Has Gone away
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 24.9.2008 14:35:13
Petr Mathon napsal(a):
> Pouzivam Zeos s MySQL, obcas mi nahlasi ze mi odesel server. Jak mam testovat pripojeni k serveru? Staci Zconnection.connected, PingServer nebo poslat nejaky prikaz jako napr. 'set names cp1250'? Toto nastava po vypadku site, samozrejme, akorat nevim jak to rychle otestovat bez zdrzovani. Predpokladam, ze na takto zabrzdeny TZconnect staci volat proceduru reconnect. Nebo se ma reconnect pouzivat pravidelne. Jsou Zeos thread safe? Pokud ano, tak predpokladam, ze reconnect bude stejne zdrzovat.
> Ma predstava je connection.pingserver, ale problem je v tom, ze po vypadku site-predpokladam, mi hodi pingserver ok, ale pro spojeni-SQL prikaz - mi vyhodi stejnou hlasku.
>
A nestaci mit globalni ovladac vyjimek (Application.OnException) a tam
pri detekci teto vyjimky se zeptat uzivatele zda chce reconnectnout?
Resp. ja to po tichu
zkusim primo a kdyz to nevyjde - dojde opet k vyjimce tak se ptam
uzivatele ze je problem se siti a co jako s tim.
R.
objednano
[*] l.vlcek(zv)noel-plus(tec)cz <l.vlcek(zv)noel-plus(tec)cz> - 24.9.2008 12:59:04
hotovo
Ovladani Corelu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 24.9.2008 10:06:49
Puvodni zprava ze dne 24.9.2008 od Ing. Dubsky Jan:
> Byl na mne vznesen pozadavek ovladani programu CorelDRAW 12 z
> externi aplikace napsane v Delphi. Jedna se o automatizaci kresleni
> dle predem zadanych hodnot, ktere by se tahaly z tabulky. Muj dotaz
> zni: Je vubec mozne Corel takto ovladat. Existuje pro nej nejaky
> jazyk (tak jako je v Autocadu napr. Lisp nebo v Excelu makra) pomoci
> ktereho by sla tato automatizace provest. Diky za radu nebo
> nasmerovani k nejakemu studijnimu materialu.
Hledej OLE Automation. Aplikace Corel podporuji OLE2 Automation a k
dispozici je i Corel SCRIPT Editor, ktery to take umoznuje ridit ve
forme skriptu.
http://delphi.about.com/gi/dynamic/offsite.htm?zi=1/XJ/Ya&sdn=delphi&cdn=compute&tm=73&gps=319_562_1596_1029&f=11&tt=14&bt=1&bts=1&zu=http%3A//www.djpate.freeserve.co.uk/Automation.htm
http://www.oberonplace.com/vba/index.htm
http://www.oberonplace.com/vba/draw10vba.htm
http://www.oberonplace.com/vba/draw9vba.htm
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Ovladani Corelu
[*] Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz> - 24.9.2008 08:32:41
Zdravim
Byl na mne vznesen pozadavek ovladani programu CorelDRAW 12 z externi
aplikace napsane v Delphi. Jedna se o automatizaci kresleni dle predem
zadanych hodnot, ktere by se tahaly z tabulky. Muj dotaz zni: Je vubec mozne
Corel takto ovladat. Existuje pro nej nejaky jazyk (tak jako je v Autocadu
napr. Lisp nebo v Excelu makra) pomoci ktereho by sla tato automatizace
provest. Diky za radu nebo nasmerovani k nejakemu studijnimu materialu.
Honza
ZEOS a Server Has Gone away
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 24.9.2008 17:21:27
Zdravim,
bohuzel jsem nemel cas toto nikdy dodelat, ale ZeosDBO ma komponentu
TZSQLMonitor, ktera dokaze odchytavat pripadne problemy v metode
OnTrace. Mozna je toto ta spravna cesta jak poresit pripadne vyjimky.
Vaclav Halik
Viz.: (Vzor)
{ MySQL }
// MySQL Error codes list
MySQL_Error_Default = 'Nahlasena chyba cislo:';
MySQL_Error_1045 = 'Pristup odepren pro uzivatele:';
MySQL_Error_1049 = 'Neznama databaze:';
MySQL_Error_2003 = 'Neni mozno navazat spojeni se serverem MySQL na
adrese:';
MySQL_Error_2005 = 'Nedostupny hostitel pro server MySQL:';
procedure TMojeAppData.monMojeAppTrace(Sender: TObject;
Event: TZLoggingEvent; var LogTrace: Boolean);
var
ErrorMessage : String;
begin
case Event.ErrorCode of
0 : ErrorMessage := '';
1045 : ErrorMessage := MySQL_Error_1045 + ' "' + dbMojeApp.User
+ '(zv)' + dbMojeApp.HostName + '"';
1049 : ErrorMessage := MySQL_Error_1049 + ' "' + dbMojeApp.Database
+ '"';
2003 : ErrorMessage := MySQL_Error_2003 + ' "' + dbMojeApp.HostName
+ '"';
2005 : ErrorMessage := MySQL_Error_2005 + ' "' + dbMojeApp.HostName
+ '"';
else
ErrorMessage := MySQL_Error_Default + ' "' + IntToStr(Event.ErrorCode)
+ ' - ' + Event.Error;
end;
// Pokud tedy doslo k chybe provedeme prislusnou akci
if ErrorMessage <> '' then
begin
{$IFDEF MojeApp}
ShowError(ErrorMessage);
{$ENDIF}
end;
end;
Radek Cervinka napsal(a):
> A nestaci mit globalni ovladac vyjimek (Application.OnException) a tam
> pri detekci teto vyjimky se zeptat uzivatele zda chce reconnectnout?
> Resp. ja to po tichu
> zkusim primo a kdyz to nevyjde - dojde opet k vyjimce tak se ptam
> uzivatele ze je problem se siti a co jako s tim.
>
> R.
>
ZEOS a Server Has Gone away
[*] Petr Mathon <dveste zar(zv)quick(tec)cz> - 24.9.2008 22:39:56
Tak jsem testnul udelat tuto rutinu a muzu rict, ze pokud bych se poradne nedival a nevedel o tom, tak snad okno s hlaskou ani nepostrehnu, tyka se local pripojeni. Plne automaticke, a o to slo. Nemam otestovane pri SQLExecute.
Samozrejme pokud je server opravdu "Has Gone" tak smula. Pridelal jsem v menu obnoveni spojeni. Zalezi uz jen na obsluze.
Ted to jen nacpat pri startu alikace do vsech query, ale to uz je psouk do vetru.
Myslim ze takto je to OK ne? Nebo by to nekdo resil jinak?
PM
procedure Tform.LocalQuestBeforeOpen(DataSet: TDataSet);
var cn:tzconnection;
begin
if DataSet is tzquery then
cn:=TZQuery(DataSet).Connection
else
if DataSet is TZReadOnlyQuery then
cn:=TZReadOnlyQuery(DataSet).Connection
else
exit;
if not cn.PingServer then begin
Form_akcni_win.Show;
Form_akcni_win.Stav.Caption:='Zjisteny problemy se siti.'#13#10' Pokousim se obnovit spojeni ...';
Application.ProcessMessages;
try
cn.Reconnect;
except
on e:exception do begin
alert('Chyba znovupriojeni se serverem '+cn.HostName+' ...'#13#10
+e.Message);
end;
end;
Form_akcni_win.Hide;
end;
end;ZEOS a Server Has Gone away
[*] Petr Mathon <dveste zar(zv)quick(tec)cz> - 24.9.2008 22:17:53
>Zdravim,
>
>bohuzel jsem nemel cas toto nikdy dodelat, ale ZeosDBO ma komponentu
>TZSQLMonitor, ktera dokaze odchytavat pripadne problemy v metode
>OnTrace. Mozna je toto ta spravna cesta jak poresit pripadne vyjimky.
To zni sikovne, ale kdyz k programu stoupne "Stoupa", tak potom je kazda rada draha a melo by to byt co nejvice sobestacne.
Tak sem se jal testovani komponenty TZConnection.
Vytvoril jsem tlacitko testovani pres connection.pingserver
vzdaleny 64ms - ok
shodil jsem vzdaleny server a ...
vzdaleny 74 ms err
nahodil jsem jej a ...
vzdaleny 70ms err
po reconnect
vzdaleny 68 ms - ok
co se local tyce vse kolem nuly ;-)
Znamena to tedy, ze testuje spojeni se serverem co se prihlaseni tyce a ne co se dostupnosti tyce.
Takze muj zaver, je vytvorit univerzalni rutinu, ktera pred query.execute testne spojeni pres pingserver a popr.
vyhodi okno s hlaskou, ze se pokousi o znovupripojeni.
Ted akorat dumu nad tim, kam to nacpat, ... tzquery.beforeopen? Bude to testovat i pri tzquery.sqlexecute? Pokud by to slo takhle,
tak neni potom co resit ne?
PM
objednano
[*] l.vlcek(zv)noel-plus(tec)cz <l.vlcek(zv)noel-plus(tec)cz> - 25.9.2008 07:13:30
l.vlcek(zv)noel-plus(tec)cz wrote:
> hotovo
>
Uuuhh,
omyl, preklep, velmi se omlouvam.
Melo to byt jinam...
:-)
L.Vlcek
vyber hodnoty v TValueListEditor
[*] Petr Vetesnik <vetesnik(zv)gmail(tec)com> - 25.9.2008 11:01:50
Ahoj,potreboval bych poradit s komponentou TValueListEditor. Potrebuju v
teto komponente pomoci esPickList nastavit nejakou hodnotu. Problem ale je,
ze do seznamu poterebuji dat texty dle jazykove mutace a nedari se mi
zjistit, index vybrane polozky.
Muze te mi nekdo poradit, jak zjistit, co se vlastne vybralo bez toho, abych
komparoval text?
Predem dik
Petr Vetesnik
QuicReport problem s cestinou
[*] Ivan Pavelka <i.pavelka(zv)volny(tec)cz> - 25.9.2008 20:22:35
Netvrdim, ze to musi byt ono, ale my jsme takto jednou zapasili se sestavami
a na vine byla tiskarna. Respektive substituce nekterych fontu, kterou si
tiskarna provadela. Jak je toto mezi Windows a tiskarnou rizeno nemam
tuseni. Pokud nekdo vi, sam se rad poucim. Nam se jeden a ten samy font pri
nekterych velikostech tisk dobre a pri jinych spatne.
Doporucuji zkusit to poslat na jinou tiskarmu, alespon, aby jste vyloucili,
ze to neni to, co popisuji.
U nas to bylo na D7, verzi QR si jiz nevzpominam a tiskarna byla HP Laser,
typ jiz take nevim.
Ivan P.
----- Original Message -----
From: "Josef Sip" <conf(zv)sipj.net>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 25, 2008 6:18 PM
Subject: QuicReport problem s cestinou
> Dobry den,
>
> na nekterych PC cca 1/10 se pri tisku pre QR tisknou spatne ceske znaky,
> misto znaku s hackem ci carkou je tam nejaky nesmysl.
>
> Pri zobrazeni Preview je vse OK, cestina jak ma byt, nasledny tisk je
> bohuzel s nesmysly.
>
> Nevim kde mam hledat chybu, neresil jste nekdo neco podobneho ?
>
> (D7 QR4.07)
>
>
> Diky
>
>
>
QuicReport problem s cestinou
[*] Josef Sip <conf(zv)sipj(tec)net> - 25.9.2008 18:18:29
Dobry den,
na nekterych PC cca 1/10 se pri tisku pre QR tisknou spatne ceske znaky,
misto znaku s hackem ci carkou je tam nejaky nesmysl.
Pri zobrazeni Preview je vse OK, cestina jak ma byt, nasledny tisk je
bohuzel s nesmysly.
Nevim kde mam hledat chybu, neresil jste nekdo neco podobneho ?
(D7 QR4.07)
Diky
Seznam souboru podle masky
[*] Ivan Pavelka <i.pavelka(zv)volny(tec)cz> - 25.9.2008 15:42:15
V SysUtils je funkce FindFirst
Takto nejak to muze fungovat
var
sr : TSearchRec; // pro zjisteni, zda uz je nejaky soubor v adresari
begin
if FindFirst(DataPath + '*.dbf', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Name <> '.') and (sr.Name <> '..') then
begin
ExtractedName := ExtractFileName(sr.Name);
// ulozit treba do string listu
FilesList.Add( ExtractedName);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
Snad jsem spravne pochopil, na co se ptas.
----- Original Message -----
From: "Zdenek Kalhous" <kalhous(zv)eu(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 25, 2008 2:38 PM
Subject: Seznam souboru podle masky
> Je to hloupost ale nemuzu nic rozumneho najit. Jak ziskat v D7 seznam
> souboru (v adresari) ktere vyhovuji zadane masce? Ze by nejaka API
> funkcicka? Dik.
>
>
>
Seznam souboru podle masky
[*] konf(zv)agnis(tec)cz - 25.9.2008 14:52:10
> Je to hloupost ale nemuzu nic rozumneho najit. Jak ziskat v D7 seznam
> souboru (v adresari) ktere vyhovuji zadane masce? Ze by nejaka API
> funkcicka? Dik.
Viz. funkce FindFirst, FindNext, FindClose.
Marek Dostal
D7Prof, WinXP, FireBird
Seznam souboru podle masky
[*] Zdenek Kalhous <kalhous(zv)eu(tec)cz> - 25.9.2008 14:38:09
Je to hloupost ale nemuzu nic rozumneho najit. Jak ziskat v D7 seznam souboru (v adresari) ktere vyhovuji zadane masce? Ze by nejaka API funkcicka? Dik.
QuicReport problem s cestinou
[*] delphi(zv)mjsoft(tec)cz - 26.9.2008 08:01:35
Ahoj,
Podobny problem jsem take velmi davno resil. Mohla za to laserova
tiskarna. Ale dalo se na ni nastavit tisknout text, nebo fonty jako grafiku.
Uz si presne nevzpominam.
Jindra
> Netvrdim, ze to musi byt ono, ale my jsme takto jednou zapasili se
> sestavami
> a na vine byla tiskarna. Respektive substituce nekterych fontu, kterou
> si
> tiskarna provadela. Jak je toto mezi Windows a tiskarnou rizeno nemam
> tuseni. Pokud nekdo vi, sam se rad poucim. Nam se jeden a ten samy font
> pri
> nekterych velikostech tisk dobre a pri jinych spatne.
> Doporucuji zkusit to poslat na jinou tiskarmu, alespon, aby jste
> vyloucili,
> ze to neni to, co popisuji.
>
> U nas to bylo na D7, verzi QR si jiz nevzpominam a tiskarna byla HP
> Laser,
> typ jiz take nevim.
>
> Ivan P.
>
>
> > Dobry den,
> >
> > na nekterych PC cca 1/10 se pri tisku pre QR tisknou spatne ceske
> znaky,
> > misto znaku s hackem ci carkou je tam nejaky nesmysl.
> >
> > Pri zobrazeni Preview je vse OK, cestina jak ma byt, nasledny tisk je
> > bohuzel s nesmysly.
> >
> > Nevim kde mam hledat chybu, neresil jste nekdo neco podobneho ?
> >
> > (D7 QR4.07)
> >
3472 (20080925)
__________
QuicReport problem s cestinou
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 26.9.2008 09:41:43
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Josef Sip
>
> na nekterych PC cca 1/10 se pri tisku pre QR tisknou spatne
> ceske znaky, misto znaku s hackem ci carkou je tam nejaky nesmysl.
>
> Pri zobrazeni Preview je vse OK, cestina jak ma byt, nasledny
> tisk je bohuzel s nesmysly.
>
> Nevim kde mam hledat chybu, neresil jste nekdo neco podobneho ?
>
> (D7 QR4.07)
podivej se u qrlabelu (a pripadne i u ostatnich prvku) na CharSet - vetsinou DEFAULT_CHARSET nefunguje, je potreba specifikovat neco jako EASTEUROPE_CHARSET
Firebird a eventy na Vistach
[*] horky(zv)cominn(tec)cz - 26.9.2008 09:49:44
Dobry den!
Mame nekolik databazovych aplikaci, ve kterych pouzivame Eventy, s Firebird 1.5 k plne spokojenosti.
Od Win98 po WinXP neni zadny problem, vse spolehlive funguje.
Protoze vsak Firebird 1.5 nepodporuje WinVista, zaciname testovat Firebird 2.0.4.
Na WinVista se vsak objevuje problem. Zcela nahodile se prestanou posilat eventy.
Aplikaci ukoncim, spustim znovu a eventy treba zacnou chodit. Nebo treba ne.
Setkal jste se s tim nekdo ? Je nejake spolehlive reseni, aby eventy vzdy chodily ?
Pouzivame komponenty IBExpres 7.08, Firebird 2.0.4 a WinVista Bussiness.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Firebird a eventy na Vistach
[*] Dalibor <dalibor(zv)torola(tec)cz> - 26.9.2008 11:05:51
Ahoj, me firebird 1.5 na Vistach funguje. Jenom se nesmi instalovat ten
ovladaci prvek do Ovladacich panelu.
Nebo existuje jeste nejake jine omezeni?
> Dobry den!
> Mame nekolik databazovych aplikaci, ve kterych pouzivame Eventy, s
> Firebird 1.5 k plne spokojenosti.
> Od Win98 po WinXP neni zadny problem, vse spolehlive funguje.
>
> Protoze vsak Firebird 1.5 nepodporuje WinVista, zaciname testovat Firebird
> 2.0.4.
> Na WinVista se vsak objevuje problem. Zcela nahodile se prestanou posilat
> eventy.
> Aplikaci ukoncim, spustim znovu a eventy treba zacnou chodit. Nebo treba
> ne.
>
> Setkal jste se s tim nekdo ? Je nejake spolehlive reseni, aby eventy vzdy
> chodily ?
>
> Pouzivame komponenty IBExpres 7.08, Firebird 2.0.4 a WinVista Bussiness.
>
> --
Delphi 2006, JVCL
[*] Dalibor <dalibor(zv)torola(tec)cz> - 26.9.2008 11:03:51
Ahoj, mam nainstalovane JCL(1.96) a JVCL(3) v Delphi 2006. Chtel jsem pouzit komponentu TJvDBDateTimePicker.
Komponentu bezproblemu pridam do formulare, ale po kliknuti na ni, se mi zobrazi hlaseni
Access violation at address 0D03D55E in module 'JvDBD10R.bpl'. Read of address 00000000.
Nevite nekdo co s tim? Dival jsem se na po novych verzich, ale stranky na JVCL jsou nedostupne.
Vpodstate potrebuji jenom nejaky inteligentni DB prvek na editaci casu.
Dekuji
D.Delphi 2006, JVCL
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 26.9.2008 11:17:52
>> Nevite nekdo co s tim? Dival jsem se na po novych verzich, ale stranky na JVCL jsou nedostupne.
>>
>>
>>
> http://sourceforge.net/projects/jcl/
>
> je v pohode dostupne
>
resp. pro JVCL
http://sourceforge.net/projects/jvcl/
R.
Firebird a eventy na Vistach
[*] horky(zv)cominn(tec)cz - 26.9.2008 11:15:52
> From: Dalibor [mailto:dalibor(zv)torola(tec)cz]
> Sent: Friday, September 26, 2008 11:06 AM
> Ahoj, me firebird 1.5 na Vistach funguje. Jenom se nesmi
> instalovat ten
> ovladaci prvek do Ovladacich panelu.
Ano, Firebird 1.5 funguje i na Vistach. Ale je obtizne nekterym BFU po telefonu vysvetlovat, ze zrovna na Vistach musi pri instalaci Firebirdu odskrtnout ten posledni checkbox, kdyz ani nevi, co to je :-(
Proto jsme nuceni prejit na Firebird 2.0.x, kde staci instalaci odklepat.> Nebo existuje jeste nejake jine omezeni?
Pokud vim, tak ne. Nebo nekdo vi ?
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Delphi 2006, JVCL
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 26.9.2008 11:13:52
> Nevite nekdo co s tim? Dival jsem se na po novych verzich, ale stranky na JVCL jsou nedostupne.
>
>
http://sourceforge.net/projects/jcl/
je v pohode dostupne
DevExpress Grid 6 a informace o aktualni bunce
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 26.9.2008 11:27:54
Ahoj
Potrebuji urcit na jakou udalost se v DBgridu "povesit" abych mohl
zjistit aktualni hodnoty TField.
Tak aby se data aktualizovaly pri prechodu na jinou bunku pomoci
klavesnice ci mysi
Je to pro me docela dost dulezite, takze diky predem za jakoukoliv pomoc
Jirka
Firebird a eventy na Vistach
[*] BS Roman Borkovec <roman(zv)borkovec(tec)com> - 26.9.2008 11:25:53
Pokud nechces FB2x, dej jim verzi 1.5.5 ta tu chybu s cpl resi
Roman
Firebird a eventy na Vistach
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 26.9.2008 11:23:53
Cau,
> Proto jsme nuceni prejit na Firebird 2.0.x, kde staci instalaci odklepat.
a nepomohlo by toto? http://www.dbsvet(tec)cz/view.php?cisloclanku=2007092601 ?
KER
DevExpress Grid 6 a informace o aktualni bunce
[*] spurny(zv)kavlounky(tec)cz - 26.9.2008 13:10:03
Ahoj,
obvykle se staci pripojit na udalost OnDataChange u komponenty
DataSource, prez kterou je DBGrid svazan s componentou DataSet.
Podrobnosti jsou v helpu.
Tonda
Heinisch Jiri napsal(a):
> Potrebuji urcit na jakou udalost se v DBgridu "povesit" abych mohl
> zjistit aktualni hodnoty TField.
>
>
--
Ing. Antonin Spurny
"K&V" s.r.o.
Lounky 1
413 01 Roudnice nad Labem
tel: +420 416 849 150
fax: +420 416 849 151
mobil: +420 603 809 049
e-mail: spurny(zv)kavlounky(tec)cz
Delphi 2006, JVCL
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 26.9.2008 14:02:08
Zdravim,
> Ahoj, mam nainstalovane JCL(1.96) a JVCL(3) v Delphi 2006. Chtel jsem pouzit komponentu TJvDBDateTimePicker.
> Komponentu bezproblemu pridam do formulare, ale po kliknuti na ni, se mi zobrazi hlaseni
> Access violation at address 0D03D55E in module 'JvDBD10R.bpl'. Read of address 00000000.
>
> Nevite nekdo co s tim?
vime :-), doporucuju spise aktualizovat jen ten unit, zalezi jakou mas
verzi JVCL,
v popisu nize je reseni take, ale ne moc pekne. Pokud ti to jednoduse
nepujde,
budes muset prejit na posledni verzi. Ja musel jenom vymenit prislusny
unit, jestli
jsem jeste neco upravoval si bohuzel nepamatuju, ale asi spise ne.
Viz.:
http://homepages.codegear.com/jedi/issuetracker/view.php?id=3518
Vaclav Halik
ZEOS a Server Has Gone away
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 26.9.2008 14:08:09
Zdravim,
> Myslim ze takto je to OK ne? Nebo by to nekdo resil jinak?
>
vypada to dobre. Ale asi ve vetsim projektu bude lepsi udelat upravu na
Connection
a osetrit to uz v nem, nez to rvat do vsech Query.
S pozdravem Vaclav Halik
Zamek - transakce MSSQL 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 26.9.2008 18:00:30
Ahoj,
prosim o nakopnuti jak nastavit a pouzivat transakce
na MSSQL 2005 tak jako jsem je pouzival na FB, je-li to vubec mozne.
Na FB sem pouzival u transakci IsolationLevel jako ReadCommited
a kdyz sem chtel zahajit editaci tak sem provedl zamknuti
update TAB set pole=pole where id=konretnizaznam a tim sem si drzel zaznam,
pricemz proste selecty z jine transakce vracely potvrzene zmeny.
Na MSSQL sice takto zamknu dany zaznam, ale neni jiz mozne v ramci
jine transakce provest nad danou tabulkou ani select, protoze ceka na
dokonceni
rozjete transakce.
Zkousel sem nastavit nad DB "Row versioning in Read Comitted level"
(READ_COMMITTED_SNAPSHOT), ale i tak proste pri uzamknuti toho jednoho
zazanmu
mi cizi select vyhuci na lock timeout. POmuze kouzelne "WITH (NOLOCK)" u
select
prikazu, ale to me desi, abych tuto klauzuli musel uvadet u vsech selectu v
aplikaci
a ulozenych procedur apod. :((
Jde nejak globalne nastavit abych se mohl na MSSQL 2005 chovat stejne jako
jsem byl zvyklej na FB? Tzn. selecty bez ohledu na jakekoliv rozdelane zmeny
(ale FB = readcommited, norecversion...) a pritiom pouzivat styl zamykani
jak sem popsal,
resp mit rozjete update transakce? Pozn. pokud nastartuji trans1 a v ni
udelam insert do tabulky
ze ktere jine trans2 delam soucastne select tak to nevadi, to projde. Co
nastavit?
Dekuji za jakykoliv nastrel! PMal
Zamek - transakce MSSQL 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.9.2008 08:21:46
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Erik Salaj
> Sent: Friday, September 26, 2008 11:13 PM
> > prosim o nakopnuti jak nastavit a pouzivat transakce
> > na MSSQL 2005 tak jako jsem je pouzival na FB, je-li to vubec mozne.
> >
> > Na FB sem pouzival u transakci IsolationLevel jako ReadCommited
> > a kdyz sem chtel zahajit editaci tak sem provedl zamknuti
> > update TAB set pole=pole where id=konretnizaznam a tim sem
> si drzel zaznam,
> > pricemz proste selecty z jine transakce vracely potvrzene zmeny.
>
> co tak zacat pouzivat transakcie na to,
> na co su urcene a nie na drzanie zaznamov?
>
> Erik Salaj
Hm. Na podrzeni si zaznamu po dobu editace neni nic spatneho.
PMal
Zamek - transakce MSSQL 2005
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 26.9.2008 23:12:59
> prosim o nakopnuti jak nastavit a pouzivat transakce
> na MSSQL 2005 tak jako jsem je pouzival na FB, je-li to vubec mozne.
>
> Na FB sem pouzival u transakci IsolationLevel jako ReadCommited
> a kdyz sem chtel zahajit editaci tak sem provedl zamknuti
> update TAB set pole=pole where id=konretnizaznam a tim sem si drzel zaznam,
> pricemz proste selecty z jine transakce vracely potvrzene zmeny.
co tak zacat pouzivat transakcie na to,
na co su urcene a nie na drzanie zaznamov?
Erik Salaj
Zamek - transakce MSSQL 2005
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 29.9.2008 00:57:28
> Nevim, jestli je to k tematu, ale jestli jsem dobre pochopil, na co se
> tazatel pta, tak ono opravdu neexistuje neco, co by zamklo zaznam, tabulku
> jen pro zapis? Tak aby se z toho data dala precist i behem transakce, ale
> nemohl do ni zapisovat nekdo jiny? Nevim, transakce jsem v zivote nepouzil,
> ale mam takovy dojem, ze nam jeste ve skole rikali, ze tohle jde i v mysql,
> tak snad to v mssql musi jit taky, ne?
> Omlouvam se, pokud jsem to spatne pochopil.
ked chces citat nepotvrdene (nekomitnute) data, tak tam
problem nevidim. Ak chces komitnute, tak treba uz cakat
kych ich transakcia komitne (zjednodusene napisane).
Su rozne moznosti a techniky ako to blokovanie riesit
a minimalizovat, napr. pomocou urovne izolacie transakcii.
V pripade, ked si transkcie neprepisuju zaznamy (napr. jedna
transakcia zapisuje a ine len citaju), tak tam sa pomocou
vytvarania viacerych verzii zaznamov da predist blokovaniu
citania (tzv. snapshot system), to je system pouzity
napr. v IB/FB, PostgreSQL a podporovany aj dalsimi SQL
servermi, napr. MSSQL. Samozrejme, snapshot ma svoje
vyhody ale aj nevyhody, napr. PostgreSQL (a pravdepodobne
aj nie databazy s touto architekturou) negarantuje
"pravu" serializaciu, je potrebne "cistenie" databazy
a pod.
Erik Salaj
Zamek - transakce MSSQL 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.9.2008 09:47:57
Diky vsem. Reseni bylo naprosto jednoduche, ale ja matlak sem
delal pokusy s nastavovanim vlatnosti DB na jine DB nez sem mel
pripojenou aplikaci. Stane se :)
Takze: Aplikace zustava ve vsech transakcich jako ReadCommited
a na DB staci nastavit pouze READ_COMMITTED_SNAPSHOT ON a
vsechno je v poradku a to je presne ten ekvivalent k FB, ktery sem
hledal.
Pokud nenarazim na neco jineho, ale zda se, ze je to presne ono...
Diky
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Falta
> Sent: Saturday, September 27, 2008 11:51 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Zamek - transakce MSSQL 2005
>
> V tom je ten problem. Tvoje SELECT transakce musi byt
> nastavena na snapshot
> (SET TRANSACTION ISOLATION LEVEL SNAPSHOT;)
>
> Martin
Zamek - transakce MSSQL 2005
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 27.9.2008 23:51:07
V tom je ten problem. Tvoje SELECT transakce musi byt nastavena na snapshot
(SET TRANSACTION ISOLATION LEVEL SNAPSHOT;)
Martin
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Pavel Malinsky
Sent: Saturday, September 27, 2008 6:33 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Zamek - transakce MSSQL 2005
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Falta
> Zkus pro tu danou databazi jeste nastavit ALLOW SNAPSHOT
> ISOLATION (viz
> ALTER DATABASE v BOL).
Spatny :(.
Na DB sem nastavil ALLOW_SNAPSHOT_ISOLATION ON + READ_COMMITED_SNAPSHOT ON
a moje select transakce (ReadCommited level) presto nedokaze cist z
"rozpracovane" tabulky
dokud ty "cizi" updaty neskonci a neni proveden commit.
To preci neni mozny aby neslo nastavit stejny prostredi jako na FB
PMal
Ikona pro komponentu
[*] stefec(zv)algo-hk(tec)cz - 27.9.2008 22:59:03
Preji pekny vecer,
v BDS2006 jsem vytvoril novou komponentu a instaloval ji tamtez. Vse funguje,
jak ma, jen se mi nedari komponente vnutit ikonu. Poradi nekdo, jak na to?
Dik Honza
-------------------------------------------------
This mail sent through IMP: securemail.algo-hk(tec)cz
Archiv konferencie
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 27.9.2008 21:52:57
Ahoj vsetci
rad by som sa opytal kde mozem najst archiv konferencie. Poslednu
aktualizaciu mam 01/2008.
Ing. Keder Vladimir
Zamek - transakce MSSQL 2005
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 27.9.2008 21:24:54
Nevim, jestli je to k tematu, ale jestli jsem dobre pochopil, na co se
tazatel pta, tak ono opravdu neexistuje neco, co by zamklo zaznam, tabulku
jen pro zapis? Tak aby se z toho data dala precist i behem transakce, ale
nemohl do ni zapisovat nekdo jiny? Nevim, transakce jsem v zivote nepouzil,
ale mam takovy dojem, ze nam jeste ve skole rikali, ze tohle jde i v mysql,
tak snad to v mssql musi jit taky, ne?
Omlouvam se, pokud jsem to spatne pochopil.
Petr
> zrejme najlepsie bude ponechat FB, aky je
> vlastne dovod na prechod na MS SQL?
>
> Erik Salaj
>
Zamek - transakce MSSQL 2005
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 27.9.2008 21:16:53
> Connectiony si klidne vyrobim, s tim nemam problem, ale level
> ReadUncommited mi preci
> vraci rozpracovane hodnoty a to nechci? fakt potrebuju dostat posledni
> potvrzeny stav
> tak jako to umi dle pozadovanem rezimu transakci FB. Zacina mi pripadat, ze
> toho chci
> po MSSQL moc :) . Dalsi napady do placu ? Docela me todle na MSSQL dostalo a
> nevim kudy dal,
> protoze s timdle zasekem sem nepocital (pominu-li nechutne pouzivani
> kouzelneho WITH (NOLOCK)
> ve vsech selectech, joinech, trg, sp...) :(
zrejme najlepsie bude ponechat FB, aky je
vlastne dovod na prechod na MS SQL?
Erik Salaj
Zamek - transakce MSSQL 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.9.2008 18:34:39
> Ahoj,
> jednoducha moznost je pouzit vice (dve) conection a v tom pro prehledy
> pouzit SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED. Tak budou
> videt i dosud nepotvrzena data.
>
> Pavel
Connectiony si klidne vyrobim, s tim nemam problem, ale level
ReadUncommited mi preci
vraci rozpracovane hodnoty a to nechci? fakt potrebuju dostat posledni
potvrzeny stav
tak jako to umi dle pozadovanem rezimu transakci FB. Zacina mi pripadat, ze
toho chci
po MSSQL moc :) . Dalsi napady do placu ? Docela me todle na MSSQL dostalo a
nevim kudy dal,
protoze s timdle zasekem sem nepocital (pominu-li nechutne pouzivani
kouzelneho WITH (NOLOCK)
ve vsech selectech, joinech, trg, sp...) :(
PMal
Zamek - transakce MSSQL 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.9.2008 18:32:39
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Falta
> Zkus pro tu danou databazi jeste nastavit ALLOW SNAPSHOT
> ISOLATION (viz
> ALTER DATABASE v BOL).
Spatny :(.
Na DB sem nastavil ALLOW_SNAPSHOT_ISOLATION ON + READ_COMMITED_SNAPSHOT ON
a moje select transakce (ReadCommited level) presto nedokaze cist z
"rozpracovane" tabulky
dokud ty "cizi" updaty neskonci a neni proveden commit.
To preci neni mozny aby neslo nastavit stejny prostredi jako na FB
PMal
Zamek - transakce MSSQL 2005
[*] lelicek(zv)volny(tec)cz - 27.9.2008 18:16:37
Ahoj,
jednoducha moznost je pouzit vice (dve) conection a v tom pro prehledy
pouzit SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED. Tak budou
videt i dosud nepotvrzena data.
Pavel
>
> prosim o nakopnuti jak nastavit a pouzivat transakce
> na MSSQL 2005 tak jako jsem je pouzival na FB, je-li
> to vubec mozne.
>
> Na FB sem pouzival u transakci IsolationLevel jako
> ReadCommited
> a kdyz sem chtel zahajit editaci tak sem provedl zamknuti
> update TAB set pole=pole where id=konretnizaznam a
> tim sem si drzel zaznam,
> pricemz proste selecty z jine transakce vracely potvrzene
> zmeny.
>
> Na MSSQL sice takto zamknu dany zaznam, ale neni jiz
> mozne v ramci
> jine transakce provest nad danou tabulkou ani select,
> protoze ceka na
> dokonceni
> rozjete transakce.
> Zkousel sem nastavit nad DB "Row versioning in Read
> Comitted level"
> (READ_COMMITTED_SNAPSHOT), ale i tak proste pri uzamknuti
> toho jednoho
> zazanmu
IBSQLmonitor, jak monitorovat pouze jeden proces?
[*] Jiri Sladek <sladek(zv)czhops(tec)cz> - 27.9.2008 16:56:30
Zdravim, narazil jsem na problemek s komponentou IBSQLmonitor.
Pouzivam tuto komponentu na hlidani, jestli v aplikaci nechybi Commit. To ale neni dulezite.
Zjistil jsem, ze IBSQLmonitor v jedne bezici aplikaci monitoruje i SQL prikazy jinych aplikaci, bezicich na teze stanici.
To mi nevyhovuje. Da se nejak zajistit, aby ten monitor monitoroval pouze prikazy 'sve' bezici aplikace, sveho procesu?
Diky.
Jiri Sladek
Hromadna zmena verze u vsech projektu skupiny
[*] Ludan <konference(zv)sales(tec)cz> - 27.9.2008 14:34:18
Zdravim,
Mam cca 8 projektu sdruzenych do jedne ProjectGroup (bpg) protoze je potrebuji buildovat vzdy najednou. Samozrejme pri nejakem ladeni se buidluje nektery porjekt zvlast a diky tomu se mi rozjede Build Version (pouzivam autonumber).
Jak nastavit na vsech pred "finalnim" buildem stejne cislo verze - tedy krom "rucni prace".
Predem diky.
Ludek
Zamek - transakce MSSQL 2005
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 27.9.2008 13:00:10
Zkus pro tu danou databazi jeste nastavit ALLOW SNAPSHOT ISOLATION (viz
ALTER DATABASE v BOL).
Martin
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Pavel Malinsky
Sent: Saturday, September 27, 2008 12:18 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Zamek - transakce MSSQL 2005
> > ja mam na to iny nazor a transakcie pouzivam na transakcne
> > spracovanie a nie na editaciu zaznamov. A system potom
>
> Samozrejme v poradku, kazdeho vec, ale reknu to jinak. Nad
> nejakou tabulkou
> bude po spusteni SP probihat dele trvajici prepocet, a to samozrejme
> pojede v transakci. Ja chci z apliakce udelat select bez ohledu na to
> jestli se tabulka prepocitava nebo ne a chci videt posledni
> potvrzeny stav.
> V jake isolaci zavolat SP a vedlejsi select, aby se to
> nepotlouklo, resp
> select
> necekal na dokonceni prepoctu a dostal sem ted hned posledni
> znamy stav?
zeptam-li se jeste jinak: Je nejaky(jak jej dosahnout) adekvatni
transakcni
rezim na MSSQL2005 vuci Firebirdimu: isc_tpb_read_committed +
isc_tpb_rec_version + isc_tpb_nowait
?
Nevim jak jinak se jiz zeptat :(
PMal
Zamek - transakce MSSQL 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.9.2008 12:18:07
> > ja mam na to iny nazor a transakcie pouzivam na transakcne
> > spracovanie a nie na editaciu zaznamov. A system potom
>
> Samozrejme v poradku, kazdeho vec, ale reknu to jinak. Nad
> nejakou tabulkou
> bude po spusteni SP probihat dele trvajici prepocet, a to samozrejme
> pojede v transakci. Ja chci z apliakce udelat select bez ohledu na to
> jestli se tabulka prepocitava nebo ne a chci videt posledni
> potvrzeny stav.
> V jake isolaci zavolat SP a vedlejsi select, aby se to
> nepotlouklo, resp
> select
> necekal na dokonceni prepoctu a dostal sem ted hned posledni
> znamy stav?
zeptam-li se jeste jinak: Je nejaky(jak jej dosahnout) adekvatni
transakcni
rezim na MSSQL2005 vuci Firebirdimu: isc_tpb_read_committed +
isc_tpb_rec_version + isc_tpb_nowait
?
Nevim jak jinak se jiz zeptat :(
PMal
Zamek - transakce MSSQL 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.9.2008 12:14:06
> > Hm. Na podrzeni si zaznamu po dobu editace neni nic spatneho.
>
> ja mam na to iny nazor a transakcie pouzivam na transakcne
> spracovanie a nie na editaciu zaznamov. A system potom
Samozrejme v poradku, kazdeho vec, ale reknu to jinak. Nad nejakou tabulkou
bude po spusteni SP probihat dele trvajici prepocet, a to samozrejme
pojede v transakci. Ja chci z apliakce udelat select bez ohledu na to
jestli se tabulka prepocitava nebo ne a chci videt posledni potvrzeny stav.
V jake isolaci zavolat SP a vedlejsi select, aby se to nepotlouklo, resp
select
necekal na dokonceni prepoctu a dostal sem ted hned posledni znamy stav?
PMal
Zamek - transakce MSSQL 2005
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 27.9.2008 11:48:03
> Hm. Na podrzeni si zaznamu po dobu editace neni nic spatneho.
ja mam na to iny nazor a transakcie pouzivam na transakcne
spracovanie a nie na editaciu zaznamov. A system potom
moze fungovat (a nielen citanie) aj na inych databazach
ako FB. Pocas editacie zaznamu nemam nielenze spustenu
ziadnu transakciu, dokonca nemam ani otvorene pripojenie
k databaze (a nezatazujem a neblokujem tak ani databazu,
ani server, ani siet).
Erik Salaj
Zamek - transakce MSSQL 2005
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 27.9.2008 11:48:04
> Hm. Na podrzeni si zaznamu po dobu editace neni nic spatneho.
ja mam na to iny nazor a transakcie pouzivam na transakcne
spracovanie a nie na editaciu zaznamov. A system potom
moze fungovat (a nielen citanie) aj na inych databazach
ako FB. Pocas editacie zaznamu nemam nielenze spustenu
ziadnu transakciu, dokonca nemam ani otvorene pripojenie
k databaze (a nezatazujem a neblokujem tak ani databazu,
ani server, ani siet).
Erik Salaj
Indy FTP a a chyba 10054
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 30.9.2008 10:06:36
Ahoj,
mam aplikaci, ktera v pravidelnem intervalu 30s posila ping na server a v
intervalu 5-10 min (dle nastaveni) kontroluje pritomnost nejakych souboru na
FTP. Aplikace je za branou ve vnitrni siti, FTP server za branou v jine
siti, komunikace je povolena z obou stran. Jednou za cas po nejake dobe
(nejdrive nastalo za cca 5 hod, jinak radove nekolik dni) se v aplikaci, kt.
bezi na WinXP nebo Vistach objevi chyba 10054 Connection reset by peer a od
te doby tak v 50% pripadu uz neni mozne FTP spojeni navazat (ping dale
funguje), na serveru v logu je zaznam o prihlaseni na FTP a nasledne take
chyba 10054. Pokud aplikaci vypnu a spustim znovu, FTP spojeni se ihned
navaze a zase nejakou dobu funguje. FTP komunikace zkracene vypada takto:
try
if (ftp1.Connected) then
begin
try
ftp1.Quit;
except
end;
ftp1.Disconnect;
end;
try
ftp1.Login;
ftp1.List(...)
...
ftp1.Quit;
ftp1.Disconnect;
except
on E:...
end;
finally
if (ftp1.Connected) then
begin
try
ftp1.Quit;
except
end;
ftp1.Disconnect;
end;
end;
Poprve se chyba objevi vzdy u ftp1.List, opakovane pak uz i u Login nebo
List.
Pokud nekdo vite, co to zpusobuje nebo co jeste udelat, abych nemusel
restartovat celou aplikaci... Diky za kazde nakopnuti.
Roman
WinXP, Delphi2005 Prof.
Autentifikace Kerberos
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 01.10.2008 08:34:27
Ahoj,
mame aplikaci, ktera komunikuje pres internet (http protokol).
Podporovane autentifikace na proxy basic, ntlm. Nyni se objevil zakaznik
s dotazem, zda bychom umeli Kerberos. Otazka zni - ma smysl se tim
zabyvat? Jde o to, jestli to neni neco, co se vyskytuje v praxi velmi
vzacne a na implementaci k tomu neadekvatne narocne (D5). Nemate o teto
autentifikaci a moznostech jeji implementace v Delphi nejake poznatky,
zkusenosti? Nemyslim popis, co to vubec je, to jsem si vygooglil, ale
jde mi o beznost pouziti a pripadne, kudy na to v Delphi.
Diky
David Lebeda
mikrofon, webkamera, repro
[*] locke10 <locke10(zv)seznam(tec)cz> - 01.10.2008 15:37:03
Dobry den, mam otazku...
Jak mohu ve sve aplikaci detekovat, zda je k pc pripojen mikrofon,
reprobedny nebo webkamera, popripade, jak je ovladat, ziskavat obraz ,
zvuk...
Jeste dotat mimo... Jak se da ve winXP schovat aplikace ze spravce uloh?
Michal Kos
Autentifikace Kerberos
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 02.10.2008 15:09:19
Ahoj
Wed, Oct 01, 2008 at 08:34:27AM +0200, Lebeda David napsal(a):
> mame aplikaci, ktera komunikuje pres internet (http protokol).
> Podporovane autentifikace na proxy basic, ntlm. Nyni se objevil zakaznik
> s dotazem, zda bychom umeli Kerberos. Otazka zni - ma smysl se tim
> zabyvat? Jde o to, jestli to neni neco, co se vyskytuje v praxi velmi
IMHO kerberos je lepsi jak ntlm. Vsichni, co pouzivaji AD mohou
kerberos vyuzit, nebot jej interne nativne vyuzivaji Win od 2k
(AD domena).
> vzacne a na implementaci k tomu neadekvatne narocne (D5). Nemate o teto
O adekvatnosti nevim, pod delphi jsem to nevidel.
> autentifikaci a moznostech jeji implementace v Delphi nejake poznatky,
> zkusenosti? Nemyslim popis, co to vubec je, to jsem si vygooglil, ale
> jde mi o beznost pouziti a pripadne, kudy na to v Delphi.
Bohuzel ti dam akorat odkaz na neon (http://www.webdav.org/neon/)
- projekt v C, ktery resi prave i authentizaci a ma v sobe i podporu SSPI
(kerberos) pro windows. Resi ji pomoci nejakeho std. DLL z windows. Pokud
by to melo byt pro MIT kerbera (a libovolneho jineho), tak tam ta podpora
je take (to se oznacuje GSSAPI - vyzaduje nejake kerberosi DLL). Mam za to,
ze je to pouze par volani externich knihoven a neni to nic extra sloziteho.
Mam za to, ze kdyz pouzijes ten postup, ktery pouzil neon, tak ten umi jak
NTLM, tak i kerbera (win implementaci).
Bohuzel netusim presny pozadavek/zadani, takze ti nemohu rict, zda
chteji SSPI ci GSSAPI.
O necem pro Delphi nic nevim a rychlym kouknutim na googla jsem nic
nevidel (mimo par podobnych dotazu bez radne odpovedi).
Luf
SQL:MSSQL2000 - SQL server agent - RaisError
[*] Ludan <konference(zv)sales(tec)cz> - 02.10.2008 23:38:36
Zdravim,
mam cizi proceduru, kterou mam pustet v kurzoru datoveho zdroje.
Toto mam provadet pravidelne JOBem (SQL server agent)
Napsal jsem tedy svoji proceduru ktera v tomto duchu vola tu cizi
CREATE PROCEDURE spMY_PROC
......
SET (zv)MSG_GLOBAL=''
DECLARE MUJ_cursor
CURSOR FOR select .....
OPEN MUJ_cursor
FETCH NEXT FROM MUJ_cursor INTO .....
WHILE (zv)(zv)FETCH_STATUS = 0
BEGIN
exec (zv)STATUS = CIZI_PROCEDURA
(zv)PROM1 = (zv)PROM1
(zv)PROM2 = (zv)PROM2
(zv)MSG = (zv)MSG OUT
................
IF (zv)STATUS!=0
SELECT (zv)MSG_GLOBAL = (zv)MSG_GLOBAL+CHAR(13)+CHAR(10)+(zv)MSG
FETCH NEXT FROM MUJ_cursor INTO .....
END
--odesli emailem (zv)MSG_GLOBAL
.......
Cizi procedura pro urcite hodnoty obsahuje takovehle vetve :
......
SET (zv)MSG = 'TOTO JE HROZNA CHYBA'
RAISERROR((zv)MSG,16,1) RETURN 1
......
No a pokud to spustim v Query Analyzeru "exec spMY_PROC" tak to projde cely
datovy zdroj, sesumiruje to chyby a odesle email.
Pokud ale nadefinuji v SQL server agentovi JOB a s krokem "exec spMY_PROC"
tak mi to ale vyhuci na prvni chybe, nic se neodesle a .......
Jak z toho ven ?
Predem dik za nakpnuti
ikony v TJvDBTreeView
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 03.10.2008 19:00:56
Potreboval bych priradit jednotlivym polozkam v JvDBTreeView ikony podle obsahu textu. U teto komponenty je sice vlastnost Images, StateImages a IconField, ale jsem nepochopil spravne jejich vyznam. Ma predstava je takova, ze v zavislosti na konkretnim obsahu polozky (a tedy nejakeho databazoveho pole) se bude zobrazovat urcita ikona. Je to vubec mozne?
U nedatbazoveho TreeView je vlastnost ImageIndex, SelectedIndex a StateIndex ale jak na to u databazoveho?
I jsem googlil, ale nenasel jsem vhodny priklad.
Milan Dvorak
LDAP zalozeni noveho usera v AD
[*] Vasek ZARUBA <vasek.zaruba(zv)sielaff(tec)cz> - 06.10.2008 11:02:57
Ahoj,
Vyrabim si app, ktera eviduje zmeny v uzivatelskych kontech v Active
directory. Pouzivam ADSI (www.agnisoft.com ).
Clenstvi ve skupinach menim o 106, ale nedokazu zmenit heslo, ani zalozit
noveho usera.
Priznam se, ze to delam spis metodou pokus-omyl.
Moc prosim, nemate nekdo funkci samplik ci primo procedurku na zmenu hesla a
zalozeni noveho usera?
Tady je vycuc z prg.:
///////////////////////////////
procedure vrazhotam(co,dokoho:string);
begin
if length(dokoho)>0 then
begin
try
user.Put( co,dokoho);
except
......
end;
end;
........
end;
.........
CoInitialize(nil);
.......
hr := ADsOpenObject('LDAP://AD-ZC.pcr(tec)cz/'+LDAPou+',ou=Zapadni
Cechy,ou=Policie,dc=pcr,dc=cz', LDAPusr, LDAPpass, 1, IADsContainer,
Container);
if Failed(hr) then Exit;
NewObject := Container.Create('User','ActiveDirectoryUser') as IADs;
NewObject.QueryInterface(IID_IADsUser, User);
........
vrazhotam('cn', 'Franta123456');
vrazhotam('sn', 'Pokuson');
vrazhotam( 'company', 'adouzivatele1jednotka.Value');
vrazhotam( 'department', 'adouzivatele1jednotka2.Value');
vrazhotam( 'userPassword', '_123456CbA');
....... SetInfo hodi chybu, ze nelze pozadavek provest
User.SetInfo;
.......
Container._Release;
NewObject._Release;
User._Release;
CoUninitialize;
///////////////////////////////
Zmena hesla vubec neprojde (Vlastnosti hesla jsou OK a i dokazu zjistit
expiraci atd.)
usr.SetPassword('heslicko');
usr.SetInfo;
Diky
Vasek 8^)
XP D7 / D2007
PS: Doufam, ze nikoho nepohorsil LDAP retezec Policie..
Vlozeni textu do videa
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 07.10.2008 14:22:39
Ahoj,
potreboval bych ve svem programu vlozit text (jako titulky) do video
souboru. Soubor je ve formatu mpeg2.
Nevite nekdo, prosim, o nejake vhodne knihovne nebo nastroji?
Dik
Vaclav Sazima
vlastnosti tabulky vlozene do Wordu z Delphi
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 07.10.2008 18:16:54
Pomoci OleAutomation vytvarim z delphi Wordovy dokument a navic do neho potrebuji vlozit tabulku. Zkousim tam vlozit tabulku Wordovou (ne Excelovskou) - coz se mi dari. Ale uz se mi nedari nastavit u teto tabulky nejake vlastnosti, konktetne oramovani. Jdu na to "osvedcenou" metodou pres makra, ale nedari se mi prepsat VB, ktery mi makro poskytne do Delphi. Nedelal jste uz nekdo neco takoveho? Zkousel jsem i vlozeni Excelovske tabulky do Wordu, ale to se mi libilo jeste mene (sice jsem ji tam vlozil, ale prace s ni taky nebyla nic moc)? Mozna ze pripadne s timto by mel nekdo zkusenost - nebranim se ani jedomu zpusobu (i kdyz - pokud by to slo bez excelu, asi by se mi to libilo vice). Dekuji i za pripadny odkaz - sice jsem jich na spolupraci Delpi s MS Office nasel vice, ale zadny neresil prave ty vlastnosti Wordovskych tabulek.
Milan Dvorak
vlastnosti tabulky vlozene do Wordu z Delphi
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 08.10.2008 10:17:55
Delam neco podobneho v excelu a resim to tak, ze makra neprepisuji do
Delphi, ale volam makra z dokumentu.
Priklad - vyexportuji data do excelu, kde mam udelane makro s treba s
nazvem ReportActivate a pak volam v Delhi toto
f_OLE.XLAppOLE.Run( 'ReportActivate');
Treba by pomohlo toto i ve wordu - mit ve Wordu makro a to pak primo
volat z Delphi.
Martin
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Milan Dvorak
Sent: Tuesday, October 07, 2008 6:17 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: vlastnosti tabulky vlozene do Wordu z Delphi
Pomoci OleAutomation vytvarim z delphi Wordovy dokument a navic do neho
potrebuji vlozit tabulku. Zkousim tam vlozit tabulku Wordovou (ne
Excelovskou) - coz se mi dari. Ale uz se mi nedari nastavit u teto
tabulky nejake vlastnosti, konktetne oramovani. Jdu na to "osvedcenou"
metodou pres makra, ale nedari se mi prepsat VB, ktery mi makro poskytne
do Delphi. Nedelal jste uz nekdo neco takoveho? Zkousel jsem i vlozeni
Excelovske tabulky do Wordu, ale to se mi libilo jeste mene (sice jsem
ji tam vlozil, ale prace s ni taky nebyla nic moc)? Mozna ze pripadne s
timto by mel nekdo zkusenost - nebranim se ani jedomu zpusobu (i kdyz -
pokud by to slo bez excelu, asi by se mi to libilo vice). Dekuji i za
pripadny odkaz - sice jsem jich na spolupraci Delpi s MS Office nasel
vice, ale zadny neresil prave ty vlastnosti Wordovskych tabulek.
Milan Dvorak
SQL DESCENDING
[*] spurny(zv)kavlounky(tec)cz - 08.10.2008 10:19:55
Ahoj,
opet mam jeden zacatecnicky dotaz ohledne Firebirdu, lze pri CREATE
TABLE vytvorit klesajici primarni index, pokud ano, jak?
Vytvorit dalsi index pomoci CREATE INDEX jako klesajici neni problem.
Firebird 2.1, D7 pro, Win Vista
--
Ing. Antonin Spurny
"K&V" s.r.o.SQL DESCENDING
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 08.10.2008 17:40:23
Ano, takto:
create table test (id int not null);
alter table test add primary key (id) using descending index PK_test;
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Seriova komunikace v jinem vlakne
[*] Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> - 13.10.2008 10:17:55
Zdravim vsechny,
potreboval bych poradit, jak vyresit nasledujici situaci. Mam ActiveX prvek, ktery jsem si naimportoval do Delphi 6. Ten obstarava komunikaci pres seriovy port s motorkem linearniho posuvu. Funguje mi to, ale ja bych chtel, aby tato komunikace bezela v jinam nez hlavnim vlakne. Prikazy posilane motorku jsou vykonavany asynchronne, a ja je potrebuju synchronni (aby se provadeni hlavniho vlakna zastavilo do doby, nez motorek dojede). To bych chtel udelat nejak takto:
FComPort.RunCommand(20,1000); // prikaz 20, parametr 1000 mikrometru (posun se na pozici 1000 mikrometru)
WaitForSingleObject(EndEvent,INFINITE);
a tohle mi bude fungovat, jen kdyz ten AxtiveX pobezi v jinem vlakne. Pokud bezi v tom samem, tak se ceka nekonecne dlouho, protoze nemuze nastat udalost EndEvent. Muze mi nekdo poradit, jak to spravne udelat?
Zkousel jsem to (zhruba) takto:
TMSComm = class(TOleControl)...
procedure TZaberShift.Execute;
begin
fComPort:=TMSComm.Create(nil);
....
while not Terminated do
begin
// zde se testuje, zda nebyl volan prikaz
end;
fComPort.Free;
end;
ovsem hned v tom konstruktoru nastala nejaka chyba, protoze mi to napsalo: "Nebyla provedena procedure CoInitialize"
Mozna to ma nejakou ochranu proti vlaknum, nevim...
Nevite tedy nekdo se zkusenostmi, jak to paralelizovat, nebo pripadne jak jinak tu synchronizaci udelat?
Diky za nakopnuti:-)
Miloslav Pojsl
Seriova komunikace v jinem vlakne
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.10.2008 10:23:55
Puvodni zprava ze dne 13.10.2008 od Miloslav Pojsl:
> ovsem hned v tom konstruktoru nastala nejaka chyba, protoze mi to
> napsalo: "Nebyla provedena procedure CoInitialize"
> Mozna to ma nejakou ochranu proti vlaknum, nevim...
Zcela nezavisle na tom, co chces delat, kdyz to hlasi vyse uvedenou
chybu, tak na zacatku behu vlakna udelej tohle:
CoInitialize(nil)
Pripadne i se zjistenim, zda je to OK, takhle:
if not Succeeded(CoInitialize(nil)) then
vyjimka...
A na konci behu vlakna tohle:
CoUninitialize
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Seriova komunikace v jinem vlakne
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 13.10.2008 14:00:09
> Nevite tedy nekdo se zkusenostmi, jak to paralelizovat, nebo pripadne
> jak jinak tu synchronizaci udelat?
No, me pripada divne vzit asynchronni komunikaci a tu slozite
synchronizovat, kdyz muzes pouzit rovnou synchronni komunikaci se
seriakem. Viz. napriklad muj SynaSer na Synapsim webu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Seriova komunikace v jinem vlakne
[*] Ludan <konference(zv)sales(tec)cz> - 14.10.2008 14:07:40
----- Puvodni zprava -----
Od: "Miloslav Pojsl" <mpojsl(zv)seznam(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
> potreboval bych poradit, jak vyresit nasledujici situaci. Mam ActiveX prvek, ktery jsem si naimportoval do Delphi 6. Ten obstarava komunikaci pres seriovy port s motorkem linearniho posuvu. Funguje mi to, ale ja bych chtel, aby tato komunikace bezela v jinam nez hlavnim vlakne. Prikazy posilane motorku jsou vykonavany asynchronne, a ja je potrebuju synchronni (aby se provadeni hlavniho vlakna zastavilo do doby, nez motorek dojede). To bych chtel udelat nejak takto:
No a jak poznas, ze ten motorek tam dojel ?
Ludek
JCLMAPI + HTML + Priloha
[*] Vasek ZARUBA <vasek.zaruba(zv)sielaff(tec)cz> - 14.10.2008 12:29:33
Ahoj,
Pouzivam JCLMAPI na odasilani posty ve tvaru HTML. Vse OK pokud neprilozim
prilohu,
pak je telo zpravy odeslano jako priloha. Bohuzel, s internim SMTP klientem
(TSmtpCli-F. PIETTE) se mi, nevim proc, nepodarilo prejit pres proxynu i
kdyz do ted ji s uspechem pouzivam (testnul jsem Indy + dalsi, take
neprosly).
Diky za pomoc
Vesek 8^)
Aplikace DDE serverem i klientem zaroven
[*] Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> - 16.10.2008 14:23:10
Zdravim vsechny,
mam dve aplikace, ktere spolu komunikuji pres DDE. Lze v principu, aby obe byly pro sebe navzajem klientem i serverem? Tedy aby si mohli navzajem vymenovat data.
Zkousel jsem to, jednim smerem to jde a zpet ne, tak at se s tim zbytecne nemorim, jestli to v principu nejde.
Mgr. Miloslav Pojsl
Pouziti cizi DLL v D5 a D2007
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.10.2008 11:57:00
DD,
On Thursday, October 16, 2008 10:22 AM ,
Martin Dietl <dietl(zv)4use(tec)cz> wrote:
>> TDAHandle je nejaky record?
>
> TDAHandle = THandle;
>
>> Mozna se v D2007 (ci drive) proti D5 zmenily nejake
>> velikosti/alignment clenu struktur.
>
> No to by mne prave zajimalo.
> Nevim, jestli jsem se na zacatku vyjadril zcela presne - tu chybu
> vraci v runtime ta volana funkce jako navratovou hodnotu. Proste
> predaji se stejne parametry a navratova hodnota je jina.
hmm ja to bral jako, ze ta DLL fce zhavaruje.
Pokud uz nevis kudy kam tak ja bych zkusil tohle (pokud je mozne
krokovat v obou verzich Delphi):
- overit velikost (sizeof) vsech typu predanych parametru v jednech i
druhych Delphi
- projit pouzite typy parametru, zda nejsou necim podezrele. Recordy,
vyctove typy,.... Vse, co mohlo zmenit vnitrni interpretaci
- prepnout do CPU modu a prokrokovat chovani funkce v DLL instrukci po
instrukci a porovnat chovani (pokud je zdrojak k DLL a je mozne ji
krokovat z Ccka tak je to jednodussi)
D. Toman
Pouziti cizi DLL v D5 a D2007
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 16.10.2008 11:34:59
> Project Options - Compiler - Record field alignment.
... nic. Vypada to v poradku.
Pouziti cizi DLL v D5 a D2007
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 16.10.2008 10:28:55
>> Mozna se v D2007 (ci drive) proti D5 zmenily nejake
>> velikosti/alignment clenu struktur.
>
> No to by mne prave zajimalo.
Project Options - Compiler - Record field alignment.
HTH
TOndrej
Pouziti cizi DLL v D5 a D2007
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 16.10.2008 10:22:54
> TDAHandle je nejaky record?
TDAHandle = THandle;
> Mozna se v D2007 (ci drive) proti D5 zmenily nejake velikosti/alignment clenu struktur.
No to by mne prave zajimalo.
Nevim, jestli jsem se na zacatku vyjadril zcela presne - tu chybu
vraci v runtime ta volana funkce jako navratovou hodnotu. Proste
predaji se stejne parametry a navratova hodnota je jina.
M.D.
Pouziti cizi DLL v D5 a D2007
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.10.2008 09:58:53
On Thursday, October 16, 2008 9:38 AM ,
Martin Dietl <dietl(zv)4use(tec)cz> wrote:
> 2008/10/16 Dalibor Toman <dtoman(zv)fortech(tec)cz>
>>
>> jak mas deklarovany hlavicky tech externich funkci? Je mozne, ze
>> jsi
>> zapomnel na nejake klicove slovo a pod D7 to prekladas s jinymi
>> volbami kompilatoru, takze se provede nejaka optimalizace ci se
>> jinak
>> predavaji parametry fce...
>>
>
> Hlavicky jsou nadefinovane jako typy, protoze komunikaci s tou DLL
> zajistuje jedna trida:
>
> TDAStart = function(hInfo: TDAHandle; var addr: sockAddr_in;
> ThreadPriority: integer; Name: pChar; Password: pChar; UserName:
> pChar; var Info: Longint): integer; stdcall;
>
> Direktivy byly prvni, po cem jsem sel.
TDAHandle je nejaky record? Je pouzito klicove slovo packed pri jeho
deklaraci? Mozna se v D2007 (ci drive) proti D5 zmenily nejake
velikosti/alignment clenu struktur.
>
> M.D.
Pouziti cizi DLL v D5 a D2007
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 16.10.2008 09:38:51
2008/10/16 Dalibor Toman <dtoman(zv)fortech(tec)cz>
>
> jak mas deklarovany hlavicky tech externich funkci? Je mozne, ze jsi
> zapomnel na nejake klicove slovo a pod D7 to prekladas s jinymi
> volbami kompilatoru, takze se provede nejaka optimalizace ci se jinak
> predavaji parametry fce...
>
Hlavicky jsou nadefinovane jako typy, protoze komunikaci s tou DLL
zajistuje jedna trida:
TDAStart = function(hInfo: TDAHandle; var addr: sockAddr_in; ThreadPriority:
integer; Name: pChar; Password: pChar; UserName: pChar; var Info: Longint):
integer; stdcall;
Direktivy byly prvni, po cem jsem sel.
M.D.
Pouziti cizi DLL v D5 a D2007
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.10.2008 08:48:48
DD,
On Wednesday, October 15, 2008 8:18 PM ,
Martin Dietl <dietl(zv)4use(tec)cz> wrote:
> Zdravim,
>
> Mam aplikaci v D5, ktera pouziva 3rd party DLL (C++), funguje OK.
> Aplikaci zkompiluji pod D2007 a prvni volani funkce z teto DLL konci
> (nedokumentovanou) chybou, ktera se v pripade D5 nikdy neobjevila.
>
> Win XP SP 2
>
> Absolutne netusim, po cem jit. Mate nekdo nejaky tip?
jak mas deklarovany hlavicky tech externich funkci? Je mozne, ze jsi
zapomnel na nejake klicove slovo a pod D7 to prekladas s jinymi
volbami kompilatoru, takze se provede nejaka optimalizace ci se jinak
predavaji parametry fce...
D. Toman