Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Velikost formu
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 19.3.1999 17:47:00
-----P�vodn� zpr�va-----
Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. b�ezna 1999 6:46
P�edm�t: Velikost formu
|Ahoj,
| mam malinky problemek, zrejme jsem neco prehledl...
| Mam jednoduchy form s par tlacitkym, editacnimi poli, checkboxy
|atp., BorderStyle je nastaven jako bsSingle. Pokud ho spustim na pocitaci,
|kde jsou anglicka Windows95 s Plus! themem (fonty jsou velke), tak se mi
|zmenila velikost formu, smrsknul se, a nektera tlacitka se stala razem
|nedostupna, coz je nezadouci. Jak lze tomuto stavu zamezit? Diky za kazdou
|radu
|
|Jaro B.
Na formu nastavit property Scaled na false, rozmer formu se pak neprepocitava na pr pri zmene malych fontu za velke.|kurzor
[*] Lubos <bruce(zv)pobox.sk> - 19.3.1999 17:56:39
Caute Delfinci !
mam dalsi asi primitivny problemik.
Chcel by som si nastavit v TRichEdit textovy kurzor tak aby vyzeral ako
ked
je stlacene vo worde insert, teda "stvordek".
Da sa to nejako jednoducho alebo to treba programom nastavit ?
vdaka.
/LH
TImageList
[*] Petr Vaclavek <pvac5561(zv)ss1000.ms.mff.cuni(tec)cz> - 19.3.1999 18:20:50
Dobry den, mam 2 dotazy ohledne TImageListu:
1) Ve sve aplikaci mam ImageList a v nem nekolik obrazku, ktere
jsem tam dodal v prostredi Delphi (tedy ne za behu).
Kdyz to prelozim a spustim na svem pocitaci je to OK, kdyz to
prenesu na jiny pocitac, ikonky z toho ImageListu nekam zmiznou.
Nejsou ani v prelozene aplikaci ani ve zdrojacich, ktere jsem
na ten pocitac zkopcil.
Muze mi to nekdo osvetlit.
Vlastne tam mam 2 ImageListy - v jednom jsou ikonky pro
TreeView, v druhem pro ToolBar.
2) V jine aplikaci mam opet ImageList, jehoz ikonky pouzivam
v ToolBaru. Kdyz si je prohlizim ve zdrojacich, jsou OK, po
prelozeni a spusteni jsou uplne zmrsene (jsou z nich primo
karikatury tech puvodnich).
Diky za veskere rady...
Petr Vaclavek
funkcia POST
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 19.3.1999 18:44:15
Ahoj.
Aha tak znak "+" se tedy musi kodovat. Parametr tedy dej '%2B420....'. Pokud
Ti nepude predat nejaky znak zadavej ho v notaci %XX, kde XX je hex hodnota
znaku.
Jeste jsem Ti zapomnel dat vysveleni k minulemu problemu. Prametry a_send_x
(y) (resp a_send.x (y)) jsou pozice kurzoru na IMG pri odklepnuti formulare
pokud je IMG definovano jako tlacitko. Syntaxe imgName_x imgName_y
eL..
-----P�vodn� zpr�va-----
Od: IKO <iko(zv)kamarad(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. b�ezna 1999 19:44
P�edm�t: RE: funkcia POST
Uz som myslel, ze mi to pojde. Ale nejak mi tak komponenta
HTTP filtruje z POST parametrov znak + (plus) a potom mi to
nerozozna cislo telefonu (+421). Da sa to nejak spravit? Alebo aku
komponentu mam pouzit? Potrebujem aj priklad na funkciu POST.
IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO
Balicky, komponenty ...
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 19.3.1999 19:09:06
Dobreho dne.
Pomozte prosim zacatecnikovi. Jak zachazet se stazenymi balicky,
komponentami a pod. Jak nejlepe postupovat, do jakych adresaru a pod.
Ja jsem si udalal v adresar Program Files\Borland\DelphiLib\ a tam sazim
jednotlive podadresare komponent , balicku apod. Nekdy je to OK. Nekdy to
nejde zkompilovat, nekdy to nainstaluju a po restartu je to pryc. Jak potom
takovou sadu komponent odinstalovat (nejlepe celou najednou, po jednotlivych
kouscich je to jasne)
Diky za Vase rady a zkusenosti.
eL..
P.S. Produkt = Delphi 4 STANDART
HDD factory serial + model number, atd.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.3.1999 23:28:39
Puvodni zprava, kterou napsal Bohuslav Svancara dne 19 Mar 99,:
> >kopie je nutna, i kdyz mas ten original v trezoru. Mimochodem, jeste se
> >nikdo z ucastniku nevyjadril k tomu autorskemu zakonu, protoze ja tam
> >opravdu vidim na vlastni oci, ze si mohu vytvorit zalozni kopii. A ja si
> >chci vytvaret zalozni kopie.
>
> Moje zcela laicke vyjadreni k autorskemu zakonu: zakon tedy zrejme
> nepamatuje na vsechno. Jako vyrobce software si tedy podle neho, Petre,
Zadny zakon samozrejme nepamatuje na vsechno. Ale tohle je jedna z veci,
ktera je naprosto v poradku a jsem rad, ze tam je.
> nesmim svuj program chranit ani hardwareovym klicem, kdyz si nemuzu =
> udelat jeho kopii pro pripad ztraty? A prosim te - mohu si podle
Tohle neni pravda. Prave tim hardwarovym klicem bys to chranit mohl,
protoze klic neni software. Samozrejme, ze klic lze take poskodit,
ale diskety jsou snaze poskoditelne. Magnetickym polem i samospadem.
Proste disketa je znacne nespolehliva uz sama o sobe, take se lehce
poskrabe, mas-li zaprasenou mechaniku apod.
Proc se tak branis kopii software pro zalozni ucely? Prosimte, fakt
si uvedom, ze je to dneska nutnost. Diskety jsou opravdu dost
nespolehlive medium, nikdy nevis, zda to za rok jeste prectes.
Autori vetsinou setri a kopiruji na obycejne nejlevnejsi noname
diskety a navic nepouzivaji duplikatory, ktere certifikuji medium,
ale cpou to tam na bezne mechanice. Mechaniky maji samozrejme ruzne
tolerance a proto uz pri vetsim mnozstvi distribucnich disket
nastavaji nekompatibility. Neni vubec nic spatneho, pokud si zakaznik
udela zalozni kopii. Ano, ja to uznavam, ze je to pro Tebe jako
autora slozitejsi, protoze tim padem bys nemel pouzivat nekopirovatelne
diskety, pripadne je naucit se okopirovat, nicmene nez jsi zacal
podle autorskeho zakona vyrabet autorska dila, mohl sis jej take
precist a vedel jsi, do ceho jdes. Pokud na jedne strane vyzadujes
od svych zakazniku dodrzovani autorskeho zakona, ale na druhe
strane jej sam porusujes, tak je to opravdu vysmech tem zakaznikum.
Proc by ho tedy oni meli take dodrzovat, kdyz jim vlastne upiras
jedno z mala, a navic jedno z nejdulezitejsich prav? Pokud nekdo sam
zakon porusuje, nemuze na ostatnich chtit, aby jej dodrzovali. Mozna
se Ti zda zakon nedokonaly, ale je to zakon. Na druhe strane muzes
sam byt v pozici zakaznika a muze Ti to prijit vhod.
> autorskeho = zakona udelat i kopii obrazu od Marolda a kopii sochy od
> Knizaka? Mohu si = zalozit firmu, ktera bude delat bezpecnostni kopie
> umeleckych del pro lidi, = kteri to neumeji?
Kopii obrazu nebo sochy asi tezko udelas sam, nicmene dela se to.
Ano, dela se to zcela bezne. Pokud mas nejaky obraz nebo treba
sochu, muzes si nechat udelat kopii, kterou si vystavis doma
a pak se nebojis, ze prijdes o miliony, kdyz Te nekdo vykrade,
protoze original mas v trezoru... Muzes delat zalozni kopie
libovolneho dila, samozrejme. Proc bys nemohl?
> >Pokud mam v software nekolik stovek tisic,
> >mam nekolik desitek programu, proste nemohu v pripade problemu (treba
> >vyhoreni mistnosti) jednotlive kontaktovat kazdou firmu nejen z CR, ale
> >take z USA, Kanady, Nemecka, Spanelska... Kdybych mel cekat, nez mi z
> >celeho sveta dojdou nahradni nekopirovatelne diskety, tak minimalne 14
> >dni na nic nesahnu.
>
> Jsi velmi narocny, profesionalni a ne moc typicky uzivatel. Dokonce bych =
> si dovolil rici, ze extremni uzivatel. V dobrem slova smyslu. Musis si =
Ja to vim, ale mam stejna prava jako vsichni ostatni.
> dobre vybirat, jaky software nakupujes, od koho a za jakych podminek. U =
Kdepak, nemusel bych. Ale delam to - mnohdy to delam. Jestlize
neco potrebuji delat, potrebuji k tomu program, protoze si rad
usetrim cas a necham praci pocitaci, od toho je mam... Takze
si ho koupim. Pochopitelne, ze davam pozor na vsechno mozne.
Treba se divam, jestli software pobezi na mem hardware, jestli
pobezi pod mym operacnim systemem, ale take pod tim, ktery si
poridim treba za 1/2 roku, overuji si technickou podporu, zda
se mam kam obratit v pripade problemu, moznosti budoucich
upgradu a lepsich verzi... je toho hodne a delam to samozrejme
proto, ze jsem profesional a jiz vim, co mam koupit, kolik za to
zaplatit (aby se to vyplatilo) apod. Ale proc by totez nemohl
udelat uplne obycejny zakaznik, ktery si pocitac koupil vcera
odpoledne? Na to ma pravo - ma pravo pouzivat plne produkt,
ktery si zakoupil, resp. uzavrel s autorem smlouvu, ze jej
bude pouzivat tak a tak. Takovy zakaznik se dokonce muze
obratit na profika, aby mu v tom poradil. Ja si zase sam nepujdu
koupit akcie na burzu, dokonce ani autum nerozumim, takze se
vzdy velmi dobre poradim s lidmi, kteri jsou na to dobri.
> typickeho ceskeho zakaznika jsou na pocitaci tak 2-4 legalne nabyte
Ano, ale ja trvam na tom, ze i takovy zakaznik ma za sve penize
dostat 100% kvalitu. Stejne jako kdyz si koupi rohlik, ze nebude
gumovy, a kdyz si koupi noviny, ze nebudou rozmazana pismenka.
Ten zakaznik uzavira smlouvu, prodavas mu pravo uziti dila. Takze
proc by mel dilo uzivat mene nez ja? Vzdyt zaplati uplne stejne
penize jako ja...
> programy. = Ceske. Kdyz jim ukradnou pocitac, daji to lehce dohromady. U
No jo, ale na to nemuzes spolehat. Cas kazdeho je drahy, to je jedno,
zda vydelava za hodinu 50 korun, 100 korun nebo 1.000 korun. Pokud by
ten clovek mel 4 programy, takze by musel 4x volat a shanet autora,
rekneme, ze by to trvalo celkem 5 hodin, pak je to pro nej proste
5 hodin uplne zbytecne ztraceneho casu. Mohl si treba hrat se svymi
detmi... Nelze spolehat, ze normalni clovek to da lehce dohromady...
> typickeho = zakaznika se nedelaji ani zalohy dat, ktere jsou pro firmu
> zivotne dulezite. Kdyz jim ukradnou pocitac nebo zhavaruje disk, maji
> skutecne spoustu problemu. Problem s mym programem je ten mensi.
Ano, to je pravda, ze hodne lidi nezalohuje, ale moji zakaznici
zalohuji, protoze jim to vysvetluji. Je to na nich, samozrejme.
Jenze pak s nekopirovatelnou disketou maji jeste o problem navic.
Prenasis svuj problem (ochrana autorskych prav) na zakaznika.
> Zatelefonuji mi, ja je polituji, a ihned jim to po telefonu nainstaluji a
> rozchodim. Trva to tak dva tri telefonni impulsy. Nove instalacni diskety
> jim poslu potom. Chovam se k = nim slusne - jsou to moji obchodni pratele.
Ano, ale to je ta jednodussi situace. Jak rikam - nemusis byt
k dosazeni, mohou Te shanet pul dne nebo dva dny, mohou treba
ztratit kontakt apod.
> Ty moje instalacni diskety jsou totiz instalacni vlastne jen pri prvni
> instalaci. Pak uz muzou fungovat = jen jako ten klicek k programu.
> Odemkmnout a zamknout. Behem par sekund. = Nedela se nova instalace. A
> odemykat umim i po telefonu bez disket.
Jenze tady je problem v tom, ze Ty jsi jim prodal pravo uziti dila,
jenze tam je navic hacek. Museji Te kontaktovat v pripade problemu,
ktery by mohli vyresit sami. Uz to je pro ne obtezujici. Uz jen to,
ze proste musi zvednout mikrotelefon...
> K Tvym dalsim uvaham musim rici jen to, ze jsou extremni. Tentokrat jiz
> nikoli v dobrem slova smyslu. Pokud chces i zaruku, ze firma, ktera Ti
> prodala program nezkrachuje nebo autor = nezemre, tak chces opravdu hodne.
Tak toto je prave problem, ktery maji Tvi zakaznici. Ja po Tobe nechci,
abys neumrel a nezkrachoval. Ja chci jedine - uzivat dilo, za coz jsem
zaplatil. Uzivat ho i v pripade, ze umres nebo zkrachujes. Mam na to
pravo! Pokud bude pouzivat nekopirovatelnou disketu a ja si nemohu
udelat zalozni kopii, a soucasne se znicenim diskety (poruchou na diskete,
vyhoreni, poskozeni) umres, pak jsem nahrany a mam smulu. Blbec jsem Ti
naletel a zaplatil si pravo, ktere neni naplneno, protoze dilo nemohu
uzivat. Naopak pokud mam zalozni disketu, je mi jedno, jestli zijes
nebo nezijes, zda jsi na Bahamach apod. Proste jedu dal, nepotrebuji Te.
Pokud bys mohl zarucit 24 hodin denne support a svou nesmrtelnost
(pripadne nahradu jinym clenem Tveho vyvojoveho tymu), pak by bylo
mozno nekopirovatelne diskety tolerovat. V opacnem pripade je nakup
software od Tebe velmi riskantni podnik, protoze nemam moznost se
proti tomuto nejak ochranit.
> Moje programy si nekupuj - takove zaruky Ti = opravdu nemuzu dat. Jen mi
Ja asi Tve programy nepotrebuji, nevim, co delas. Ale kdybych potreboval,
klidne bych si od Tebe program koupil, pokud mi zarucis, ze jej budu
moci pouzivat i po Tve smrti tak, jak jsem zakoupil. Nejde vubec
o zaruku na Tebe, holt nebude upgrade, ale chci pouzivat to, za co
jsem zaplatil. Nebudu tak hloupy a nebudu si platit upgrade dopredu,
ale co jsem koupil, chci pouzivat, i kdyz se Ti neco stane nebo
nebudes k dosazeni. A takove zaruky ja osobne zakaznikovi mohu dat.
Protoze kdyz ma nekdo muj software, mohu s klidem vlezt pod auto,
pokud v nem neni chyba, muze ho pouzivat i beze me.
> rekni, ktera banka Ti da zaruku, ze nezkrachuje a = Tvoje miliony nebudou
> v haji? Ktery stat Ti zaruci, ze neudela menovou reformu = a Tvoje miliony
Tohle je uplne jina otazka a nema zadnou souvislost s vyse uvedenym.
> budou v haji? Jak Ti mam zarucit, ze muj program bude = fungovat po 10
> letech nepouzivani, kdyz si mezitim ctyrikrat vymenis pocitac za = jiny a
> nestaras se o to, jestli Ti v nem bude ten stary program fungovat?
Pokud delas program v roce 1999, pocitam s tim, ze jeho doba pouziti
(podle urceni) bude i v roce 2000. Nemohu po Tobe chtit, aby fungoval
ve stejne podobe i na verzi Windows vyvinute v roce 2010. Ale pokud
zachovam stejne podminky, musi fungovat - budiz, na starem pocitaci
a pod starym OS. Jenze disketa muze shoret a nebo ztratit data. Takze
takovou chci zaruku. A je opravnena. Nebo ne?
> Tento svet neni dokonaly. Nic Te nazajisti proti vsem rizikum. Zadny =
> zakon a zadna pojistovna. Nektera rizika, ktera zivot prinasi jsou holt
> rizika v pravem slova smyslu. Pokud nastanou, budou znamenat ztratu bez
> nahrady. Znamena to, ze si nemam porizovat zadne programy, zadne pocitace,
> zadna auta, zadne domy, zadne manzelky... kdyz existuji rizika, ze ty =
> investice ztratim?
Nechci toho zase az tolik moc, ja chci jen, abys dodrzel autorsky
zakon, o ktery se sam opiras, a umoznil mi poridit si zalozni
kopii instalacnich disket. Uz proto, ze riziko poskozeni diskety
je mnohem vetsi, nez menova reforma.
> Pomoci extremnich prikladu, jako je vyhoreni kancelare, pad meteoritu a =
> prilet mimozemstanu mohu napadnout cokoli na svete. Podnikam uz 9 let a =
Jezismarja! Vyhoreni kancelare? To se muze stat! To neni jako pad
meteoritu! A take si uvedom, jak malo jsou spolehlive diskety.
Ja drive pouzival stovky disket a kolik myslis, ze jich po treba
5 letech jeste funguje?
> zatim se to nestalo. A pokud se neco stalo, vyresili jsme to s mymi =
> zakazniky k oboustranne spokojenosti. To ma podle mne vahu. Praxi =
> overeny postup. (Prax=ED ov=EC=F8en=FD postup. Do pytle, pro=E8 =
> vlastn=EC nem=F9=BEeme ps=E1t =E8esky? To si to neum=EDme v=B9ichni =
> nastavit?) Extremni pripady jsou v praxi malo caste. Nastesti a =
> nanestesti. Ja jsem napriklad jeste nevyhorel a nevyhral jsem prvni cenu =
> ve Sportce. Az vyhorim nebo vyhraju, zmeni to od zakladu cely muj zivot. =
> Docela se na to tesim.
Hm, tak ja mam par zakazniku, kterym se uz leccos stalo. At uz jsou
to vykradene kancelare, vyhoreni, poskozeni instalacnich disket,
poskozeni datovych disket nebo neco podobneho. Takze Ty mas bud tech
zakazniku 10 a nebo o tom nevis. Ze zrovna ti lide nemeli problem
s Tvym softwarem, to neznamena, ze nemeli jiny problem. Znam spoustu
zakazniku, kteri byli 100x radi, ze meli zalohu nekde doma schovanou...
A kdyby to byl i byt jen jeden jediny zakaznik a usetril by jen
5 minut casu, pak je to velmi dobre!
> Ale zpet k ochrane programu: Mam ted v hlave napad na jeden programek. =
> Jde o doplnek k existujicimu dosovskemu programu jine (ceske) firmy. =
> Bude zprijemnovat praci s tim programem. Zadne seriove cislo nebo jmeno =
> majitele se na obrazovce nemuze objevovat - zabiralo by to misto a =
> vadilo by to. Nic nebude tisknout. Myslim, ze by se ho po 999,- K=E8 =
> mohlo prodat tak 500 kus=F9. To mi pripada jako docela slusny vydelek. =
> Jestli ho neochranim, proda se tak 50 kusu. To ovsem nestoji za namahu. =
> (Oni se ti uzivatele hodne mezi sebou znaji a rozkopirovali by si to.) =
> Co mi poradite?
Tihle lide by porusili zakon. Kdyz udelas nekopirovatelnou disketu,
porusujes ho Ty. Takze kde je rozdil?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 19.3.1999 14:47:27 -0800
-----Original Message-----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
>Hezkyyy... :-))) Vis o tom, ze ke kradenym autum se take dodavaji
>klicky? A dokonce i doklady o legalni licenci auta. Jsem ochoten
>toto strpet u majetku, jehoz porizovaci hodnota je v nasobku
>statisicu korun. Ale u jizdniho kola nizsi kategorie by me tato
>technologie silne drazdila. O kolobezkach nemluve vubec.
>
>Ty prodavas jednu licenci sveho programu za statisice?
Ne. Za 10000,-. Ale prodal jsem jich dost na to, aby to v souctu bylo dost
penez. Kdybych program nemel chraneny, byl by ten soucet mnohokrat mensi. A
ja bych uz davno makal ve stanku pro nejakeho Vietnamce. To vim nabeton.
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 19.3.1999 15:03:39 -0800
Puvodni zprava, kterou napsal Petr Zahradnik:
>Jenze kdyz na tohle pouzijes nekopirovatelnou disketu, tak to prinasi
>mnohem vice neprijemnosti nez uzitku. Za prve je to nemoznost porizeni
>kopie (vidis, uz k tomu Mercedesu mas dva klicky se dvema imobilizery,
>dva ovladace alarmu a nekolik klicu k mechanickemu zabezpecovadlu...).
>A kopie je nutna, i kdyz mas ten original v trezoru. Mimochodem, jeste
>se nikdo z ucastniku nevyjadril k tomu autorskemu zakonu, protoze ja tam
>opravdu vidim na vlastni oci, ze si mohu vytvorit zalozni kopii. A ja si
>chci vytvaret zalozni kopie.
Moje zcela laicke vyjadreni k autorskemu zakonu: zakon tedy zrejme
nepamatuje na vsechno. Jako vyrobce software si tedy podle neho, Petre,
nesmim svuj program chranit ani hardwareovym klicem, kdyz si nemuzu udelat
jeho kopii pro pripad ztraty? A prosim te - mohu si podle autorskeho zakona
udelat i kopii obrazu od Marolda a kopii sochy od Knizaka? Mohu si zalozit
firmu, ktera bude delat bezpecnostni kopie umeleckych del pro lidi, kteri to
neumeji?
>Pokud mam v software nekolik stovek tisic,
>mam nekolik desitek programu, proste nemohu v pripade problemu (treba
>vyhoreni mistnosti) jednotlive kontaktovat kazdou firmu nejen z CR, ale
>take z USA, Kanady, Nemecka, Spanelska...
>Kdybych mel cekat, nez mi z celeho sveta
>dojdou nahradni nekopirovatelne diskety, tak minimalne 14 dni na nic
>nesahnu.
Jsi velmi narocny, profesionalni a ne moc typicky uzivatel. Dokonce bych si
dovolil rici, ze extremni uzivatel. V dobrem slova smyslu. Musis si dobre
vybirat, jaky software nakupujes, od koho a za jakych podminek. U typickeho
ceskeho zakaznika jsou na pocitaci tak 2-4 legalne nabyte programy. Ceske.
Kdyz jim ukradnou pocitac, daji to lehce dohromady. U typickeho zakaznika se
nedelaji ani zalohy dat, ktere jsou pro firmu zivotne dulezite. Kdyz jim
ukradnou pocitac nebo zhavaruje disk, maji skutecne spoustu problemu.
Problem s mym programem je ten mensi. Zatelefonuji mi, ja je polituji, a
ihned jim to po telefonu nainstaluji a rozchodim. Trva to tak dva tri
telefonni impulsy. Nove instalacni diskety jim poslu potom. Chovam se k nim
slusne - jsou to moji obchodni pratele. Ty moje instalacni diskety jsou
totiz instalacni vlastne jen pri prvni instalaci. Pak uz muzou fungovat jen
jako ten klicek k programu. Odemkmnout a zamknout. Behem par sekund. Nedela
se nova instalace. A odemykat umim i po telefonu bez disket.
K Tvym dalsim uvaham musim rici jen to, ze jsou extremni. Tentokrat jiz
nikoli v dobrem slova smyslu. Pokud chces i
zaruku, ze firma, ktera Ti prodala program nezkrachuje nebo autor nezemre,
tak chces opravdu hodne. Moje programy si nekupuj - takove zaruky Ti opravdu
nemuzu dat. Jen mi rekni, ktera banka Ti da zaruku, ze nezkrachuje a Tvoje
miliony nebudou v haji? Ktery stat Ti zaruci, ze neudela menovou reformu a
Tvoje miliony budou v haji? Jak Ti mam zarucit, ze muj program bude fungovat
po 10 letech nepouzivani, kdyz si mezitim ctyrikrat vymenis pocitac za jiny
a nestaras se o to, jestli Ti v nem bude ten stary program fungovat?
Tento svet neni dokonaly. Nic Te nazajisti proti vsem rizikum. Zadny zakon a
zadna pojistovna. Nektera rizika, ktera zivot prinasi jsou holt rizika v
pravem slova smyslu. Pokud nastanou, budou znamenat ztratu bez nahrady.
Znamena to, ze si nemam porizovat zadne programy, zadne pocitace, zadna
auta, zadne domy, zadne manzelky... kdyz existuji rizika, ze ty investice
ztratim?
Pomoci extremnich prikladu, jako je vyhoreni kancelare, pad meteoritu a prilet mimozemstanu mohu napadnout cokoli na svete. Podnikam uz 9 let a zatim se to nestalo. A pokud se neco stalo, vyresili jsme to s mymi zakazniky k oboustranne spokojenosti. To ma podle mne vahu. Praxi overeny postup. (Prax� ov��en� postup. Do pytle, pro� vlastn� nem��eme ps�t �esky? To si to neum�me v�ichni nastavit?) Extremni pripady jsou v praxi malo caste. Nastesti a nanestesti. Ja jsem napriklad jeste nevyhorel a nevyhral jsem prvni cenu ve Sportce. Az vyhorim nebo vyhraju, zmeni to od zakladu cely muj zivot. Docela se na to tesim.
Ale zpet k ochrane programu: Mam ted v hlave napad na jeden programek. Jde o doplnek k existujicimu dosovskemu programu jine (ceske) firmy. Bude zprijemnovat praci s tim programem. Zadne seriove cislo nebo jmeno majitele se na obrazovce nemuze objevovat - zabiralo by to misto a vadilo by to. Nic nebude tisknout. Myslim, ze by se ho po 999,- K� mohlo prodat tak 500 kus�. To mi pripada jako docela slusny vydelek. Jestli ho neochranim, proda se tak 50 kusu. To ovsem nestoji za namahu. (Oni se ti uzivatele hodne mezi sebou znaji a rozkopirovali by si to.) Co mi poradite?
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
TImageList
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 20.3.1999 00:23:09
>Dobry den, mam 2 dotazy ohledne TImageListu:
>
>1) Ve sve aplikaci mam ImageList a v nem nekolik obrazku, ktere
>jsem tam dodal v prostredi Delphi (tedy ne za behu).
>Kdyz to prelozim a spustim na svem pocitaci je to OK, kdyz to
>prenesu na jiny pocitac, ikonky z toho ImageListu nekam zmiznou.
>Nejsou ani v prelozene aplikaci ani ve zdrojacich, ktere jsem
>na ten pocitac zkopcil.
>Muze mi to nekdo osvetlit.
>Vlastne tam mam 2 ImageListy - v jednom jsou ikonky pro
>TreeView, v druhem pro ToolBar.
Pri instalaci inovuj knihovnu ComCtl32.DLL.
>2) V jine aplikaci mam opet ImageList, jehoz ikonky pouzivam
>v ToolBaru. Kdyz si je prohlizim ve zdrojacich, jsou OK, po
>prelozeni a spusteni jsou uplne zmrsene (jsou z nich primo
>karikatury tech puvodnich).
Nevim, ovsem typoval bych to na problem s verzi ComCtl32.DLL v dobe
vytvoreni projektu a nyni.
eL..Modifikace databaze
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 20.3.1999 07:14:31
Ahoj,
vysvetli mi nekdo, prosim, proc to sebou po nekolika cyklech praskne?
(Couldn't perform edit because another user changed the record)
with Table1 do
begin
Open;
while not eof do
begin
Edit;
FieldByName ('Stopaz').AsString := '00:00:00';
{ post; to nepomuze}
next; {tady to spadne}
end;
close
end;
database je MS Access pres ODBC, BDE verze 4.5, Delphi 3 prof.
Tabulka ma cca 10000 recordu.
Stopaz je pole typu text delky 8.
Localni databaze, jiny user zcela vyloucen.
Dekuji, Vaclav Sazima
HDD factory serial + model number, atd.
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 20.3.1999 07:25:13
>Ale zpet k ochrane programu: Mam ted v hlave napad na jeden programek.
Jde o doplnek >k existujicimu dosovskemu programu jine (ceske) firmy. Bude
zprijemnovat praci s tim >programem. Zadne seriove cislo nebo jmeno majitele
se na obrazovce nemuze objevovat >- zabiralo by to misto a vadilo by to. Nic
nebude tisknout. Myslim, ze by se ho po 999,- K� >mohlo prodat tak 500 kus�.
To mi pripada jako docela slusny vydelek. Jestli ho >neochranim, proda se
tak 50 kusu. To ovsem nestoji za namahu. (Oni se ti uzivatele hodne >mezi
sebou znaji a rozkopirovali by si to.) Co mi poradite?
Tezka rada. Napsat program, ktery prinese vyssi hodnotu a bude stat
10000,- a bude chraneny hardwarovym klicem (u programu za 1000,- je ochrana
HW klicem nesmysl).
Pak jsi za vodou.
Nebo alespon dodavat licencni cislo, aktivacni klic a to vazat na nazev
firmy. Ovsem pokud tam opravdu nemuze nikde byt text "Tento produkt je
licensovan pro: SLEVARNY a.s." pak Ti to nepomuze.
Metoda Paint pro CheckBox a RadioButton
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.3.1999 08:14:09
Martin Fr�hlich wrote:
> > > Potreboval bych vytvorit komponenty odvozene od TCheckBox a
> > > TRadioButton, ktere by meli moznost stinovaneho textu a HotTracking
> > > (kdyz jsem nad ni mysi zmeni text barvu). Nevim ale, jak jednoduse
> > > zmenit vykreslovani komponent. CheckBox ani RadioButton nemaji metodu
> > > Paint, kterou bych mohl predefinovat, a nenasel jsem ani, kde se
> > > vykresluji. Bylo by to pro Delphi 3 Profesional.
> [...]
> Trochu nazornejsi priklad by mi pomohl vic.
Priklad, ktery pouzivam na skoleni. TCheckBox a TRadioButton by
mely mit obdobne reseni, akorat budes muset namalovat (nebo
vlozit z resourcu) i obrazky pro zaskrtavani.
unit XButton;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TColorButton = class(TButton)
private
FCanvas:TCanvas;
IsFocused: Boolean;
procedure CNDrawItem(var Message: TWMDrawItem);
message CN_DRAWITEM;
procedure DrawItem(const DrawItemStruct: TDrawItemStruct);
procedure DrawButtonText(TextBounds: TRect;
State: TButtonState);
protected
procedure CreateParams(var Params: TCreateParams);
override;
procedure SetButtonStyle(ADefault: Boolean);
override;
public
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
published
property Color;
end;
procedure Register;
implementation
// Nutn� registrace komponenty do bal��ku
procedure Register;
begin
RegisterComponents('Skoleni', [TColorButton]);
end;
// T��da TButton nem� v sob� t��du pro malov�n�
// (zde TCanvas), proto�e TButton vyu��v� syst�mov�ch
// prost�edk� samotn�ch Windows
constructor TColorButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCanvas := TCanvas.Create;
end;
// V�echny alokovan� pam�ti je t�eba uvolnit
destructor TColorButton.Destroy;
begin
inherited Destroy;
FCanvas.Free;
end;
// Je t�eba komponent� ��ct, �e ji budeme malovat sami
procedure TColorButton.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do Style := Style or BS_OWNERDRAW;
end;
// Proto�e pot�ebujeme odst�nit komponentu od malov�n�
// zaji�t�n�ho Windows, je t�eba tuto metodu zcela p�epsat
// Tato metoda slou�� k rozli�en�, zda je tla��tko
// "focused" nebo ne
procedure TColorButton.SetButtonStyle(ADefault: Boolean);
begin
if ADefault <> IsFocused then
begin
IsFocused := ADefault;
Refresh;
end;
end;
// Tato metoda odchyt� zpr�vu, �e se m� komponenta
// vykreslit
procedure TColorButton.CNDrawItem(var Message: TWMDrawItem);
begin
DrawItem(Message.DrawItemStruct^);
end;
// Kreslen� tla��tka
procedure TColorButton.DrawItem(const DrawItemStruct:
TDrawItemStruct);
var
IsDown, IsDefault: Boolean;
State: TButtonState;
R: TRect;
begin
// Kam m� FCanvas malovat
FCanvas.Handle := DrawItemStruct.hDC;
// V jak�m obd�ln�ku bude malovat
R := ClientRect;
// Zji�t�n� stavu kl�vesy - stisknut�, ...
with DrawItemStruct do
begin
IsDown := itemState and ODS_SELECTED <> 0;
IsDefault := itemState and ODS_FOCUS <> 0;
if not Enabled then State := bsDisabled
else if IsDown then State := bsDown
else State := bsUp;
end;
// Nastaven� parametr� pro malov�n�
FCanvas.Brush.Color:=Color;
FCanvas.Brush.Style := bsSolid;
// Malov�n� z�kladn� v�pln�
FCanvas.FillRect(R);
// Malov�n� tlust�ho r�me�ku, je-li tla��tko vybr�no
if IsFocused or IsDefault then
begin
FCanvas.Pen.Color := clWindowFrame;
FCanvas.Pen.Width := 1;
FCanvas.Brush.Style := bsClear;
FCanvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);
// Zmen�en� prostoru pro dal�� malov�n�
InflateRect(R, -1, -1);
end;
// Malov�n� r�me�ku stisknut�ho tla��tka
if IsDown then
begin
FCanvas.Pen.Color := clBtnShadow;
FCanvas.Pen.Width := 1;
FCanvas.Brush.Color := Color;
FCanvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);
InflateRect(R, -1, -1);
end
else
// Ostatn� p��pady r�me�ku
begin
FCanvas.Pen.Color:=clBtnHighlight;
FCanvas.Pen.Width := 1;
FCanvas.MoveTo(R.Left,R.Bottom-1);
FCanvas.LineTo(R.Left,R.Top);
FCanvas.LineTo(R.Right-1,R.Top);
FCanvas.Pen.Color:=clWindowFrame;
FCanvas.MoveTo(R.Left,R.Bottom-1);
FCanvas.LineTo(R.Right-1,R.Bottom-1);
FCanvas.LineTo(R.Right-1,R.Top);
FCanvas.Pen.Color := clBtnShadow;
FCanvas.MoveTo(R.Left+1,R.Bottom-2);
FCanvas.LineTo(R.Right-2,R.Bottom-2);
FCanvas.LineTo(R.Right-2,R.Top+1);
end;
if IsFocused then
begin
R := ClientRect;
InflateRect(R, -1, -1);
end;
FCanvas.Font := Self.Font;
// Posunut� textu vpravo dol�, je-li tla��tko stisknuto
if IsDown then OffsetRect(R, 1, 1);
DrawButtonText(R,State);
// Namalov�n� te�kovan�ho obd�ln�ku u vybran�ho tla��tka
if IsFocused and IsDefault then
begin
R := ClientRect;
InflateRect(R, -4, -4);
FCanvas.Pen.Color := clWindowFrame;
FCanvas.Brush.Color := Color;
DrawFocusRect(FCanvas.Handle, R);
end;
FCanvas.Handle := 0;
end;
// Namalov�n� textu v tla��tku
// Zde je p��padn� mo�no o�et�it i zalamov�n� dlouh�ho
// textu v tla��tku
procedure TColorButton.DrawButtonText(TextBounds: TRect;
State: TButtonState);
begin
with FCanvas do
begin
Brush.Style := bsClear;
if State = bsDisabled then
begin
// U "disabled" tla��tka malov�n� st�nu textu ...
OffsetRect(TextBounds, 1, 1);
Font.Color := clBtnHighlight;
DrawText(Handle, PChar(Caption), Length(Caption),
TextBounds,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
OffsetRect(TextBounds, -1, -1);
// ... a vlastn�ho textu
Font.Color := clBtnShadow;
DrawText(Handle, PChar(Caption), Length(Caption),
TextBounds,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end else
DrawText(Handle, PChar(Caption), Length(Caption),
TextBounds,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;
end;
end.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nahravani textovych souboru
[*] Jindriska Kubatova <kubatova(zv)nym.pvt(tec)cz> - 20.3.1999 14:48:14
Prosim o radu:
Potrebuji nahrat textovy soubor (pevne delky polozek) do tabulky
(temporalni tabulka Informixu na vzdalenem serveru). Kdyz ctu a zapisuji
jednu vetu po druhe, nacteni trva neumerne dlouho.
Zkusila jsem to obejit a nacist soubor do paradoxove tabulky na lokalnim
pocitaci, ale i to
mi pripada prilis dlouhe.
Pokousela jsem se provest nacteni pomoci BatchMove, ale koncim na tom,
ze neumim vytvorit alias
pro textove soubory.
Kdyz alias na textovy soubor nevytvorim, ale udelam si Table typu
ttAscii
(Table1.TableTyp=ttASCII), textovy soubor se mi castecne nacte, ale
naplni se mi jen prvni
polozka cilove tabulky, ostatni se nenaplni. Nevim kde definovat popis
textoveho souboru.
Ma nekdo zkusenosti s takovou situaci, eventualne zna nekdo jiny zpusob
?
Dekuji
Jolana Kotatkova
e_mail: Jolana.Kotatkova(zv)pvt(tec)cz
---------------------------------------------------
Jindriska Kubatova
PVT Kolinska 20 288 18 Nymburk
kubatova(zv)nym.pvt(tec)cz
---------------------------------------------------
HDD factory serial + model number, atd.
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 20.3.1999 14:27:37
A co kdybych k nekopirovatelne diskete dodaval program, ktery dokaze
vytvorit prave jednu bezpecnostni kopii ?Comctl32
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 20.3.1999 15:07:58
Petr Zahradnik wrote:
> programu. Ten musi nejprve zjistit, zda verze nove knihovny je
> opravdu novejsi nez te stare. Potom musi zvysit pocet pouziti
> teto knihovny v registru. Potom, je-li to na W95, provede
> vymenu DLL s restartem (Windows to sami umi). Je-li to na WNT,
> pak se dela vymena DLL primo za chodu v pameti (to zase umi NT).
Kdyz uz jsme u toho, domnival jsem se, ze ten soubor je totozny jak pro NT
tak W9x. Ovsem po instalaci comctl32.dll z NT do W98 uz W98 nenabehly (az po
vraceni puvodniho souboru). Lze nejak rozeznat pro jake Wokna ten soubor je?
Nebo je potreba sirit v instalacnim programu dve verze a zjistovat cilove
prostredi???
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Nahravani textovych souboru
[*] Peter Rus <peterrus(zv)intesys(tec)cz> - 20.3.1999 15:18:06
Zdravim,
je to sice jen hloupost, ale co treba nacist vetsi pocet vet a ten pak
nasazet do tabulky pod transakci? Ta by mela potlacit potvrzovani pripsani
kazdeho zaznamu => zkraceni casu.
Mej se, prijemny den,
Peter
Jindriska Kubatova wrote:
> Prosim o radu:
>
> Potrebuji nahrat textovy soubor (pevne delky polozek) do tabulky
> (temporalni tabulka Informixu na vzdalenem serveru). Kdyz ctu a zapisuji
> jednu vetu po druhe, nacteni trva neumerne dlouho.
> Zkusila jsem to obejit a nacist soubor do paradoxove tabulky na lokalnim
> pocitaci, ale i to
> mi pripada prilis dlouhe.
> Pokousela jsem se provest nacteni pomoci BatchMove, ale koncim na tom,
> ze neumim vytvorit alias
> pro textove soubory.
> Kdyz alias na textovy soubor nevytvorim, ale udelam si Table typu
> ttAscii
> (Table1.TableTyp=ttASCII), textovy soubor se mi castecne nacte, ale
> naplni se mi jen prvni
> polozka cilove tabulky, ostatni se nenaplni. Nevim kde definovat popis
> textoveho souboru.
>
> Ma nekdo zkusenosti s takovou situaci, eventualne zna nekdo jiny zpusob
> ?
>
> Dekuji
>
> Jolana Kotatkova
> e_mail: Jolana.Kotatkova(zv)pvt(tec)cz
>
> ---------------------------------------------------
> Jindriska Kubatova
> PVT Kolinska 20 288 18 Nymburk
> kubatova(zv)nym.pvt(tec)cz
> ---------------------------------------------------
HDD factory serial + model number, atd.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.1999 15:20:05
Puvodni zprava, kterou napsal Petr Kro�a ml. dne 20 Mar 99,:
> A co kdybych k nekopirovatelne diskete dodaval program, ktery dokaze
> vytvorit prave jednu bezpecnostni kopii ?
Ano, takovy software znam. Disketa umi sama sebe zkopirovat.
Ostatni nevyhody zustavaji, ale aspon se to da zazalohovat.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
HDD factory serial + model number, atd.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.1999 15:40:12
Puvodni zprava, kterou napsal Bohuslav Svancara dne 20 Mar 99,:
> Prima. Diky za konzultaci. Vsechno je v nejlepsim poradku. Disketa totiz
> taky neni software. Nekopirovatelna disketa je hardwarovy klic.
Klic aspon bude chodit, disketa se da velmi snadno poskodit, mnohem
jednoduseji nez disketa. Kdyz vyhoris, je take problem, samozrejme.
> Jen jeste male vysvetleni:
> - Kdyz prodavam software, podepisujeme smlouvu. Tam je napsane, ze
> program je chraneny nekopirovatelnou disketou, ze uzivatel je povinen
> ochranit ji pred znicenim nebo odcizenim, jak maji s programem zachazet,
> aby jim fungoval a za jakych okolnosti jim prestane fungovat. Mozna to
> neni podle zakona, ale delame to tak. - Kopii diskety si mohou udelat,
> krome jedineho souboru, ve kterem jsou ty poskozene sektory.
Takovouto smlouvu nemusis vubec podepisovat, protoze je to uplne na nic.
Jednoduse je neplatna, pokud je to smlouva podle autorskeho zakona.
Kdyby doslo na lamani chleba, tak nic.
> Pokud bych jim dodal dve diskety, jednu nekopirovatelnou, fungujici jako
> hardwareovy klic (ktery se ale pouziva jen pri instalaci a pak uz neni
> potreba) a druhou s programem, bude to podle Tebe v poradku?
Idealni by bylo tohle reseni - hardwarovy klic pro instalaci, ktery
by byl schovany v trezoru, takze by sel ochranit. Je fakt, ze take
bezne klice jsou na prd, kdyz je problem - vsak maji take nevyhody.
Kdyby kazdy mel 20 programu s hardwarovymi klici, tak se z toho asi
pujde obesit.
> Odbocka:
> Nekopirovatelne diskety jsem zacal pouzivat v dobach, kdy hardwarove klice
> byla velka neznama. Byly jen zahranicni, drahe a nedostupne. Diskety se
> osvedcily, tak uz jsem u nich zustal. Byla jedna vyjimka, nejaka firma v
> Jihlave. Te jsem dal hardwarovy klic. A namet na dalsi rozhorcenou
> diskusi: kdyz se muj program provozuje v siti, chranim jej pomoci vazby na
> cislo sitove karty. Zakaznik to vi, kdyz meni kartu nebo mu odejde, tak
> zatelefonuje. Taky to funguje. Konec odbocky.
Pokud to Tvi zakaznici kupuji a akceptuji, tak to delej. Me by se
vubec nelibilo Ti obcas volat... I kdyz muze to byt bezva si pokecat
ve 3 rano, kdyz treba upgraduji pocitac...
> >Tihle lide by porusili zakon. Kdyz udelas nekopirovatelnou disketu,
> >porusujes ho Ty. Takze kde je rozdil?
>
> Pokud bych jej porusoval - coz podle vyse uvedeneho nedelam - rozdil by
> byl nasledujici: - Kdyz oni porusi zakon, nic se jim nestane, oni vydelaji
> a ja prodelam. - Kdyz ja porusim zakon, nic se mi nestane, oni vydelaji a
> ja vydelam taky.
Jenze porusujes zakon.
> Kdyz budu zakon dodrzovat, oni jej budou stejne porusovat. Ja zkrachuji a
> oni ode mne jiz nedostanou zadny super extra spica genialni soft. Mozna,
> ze je to pak nauci dodrzovat zakon, ale ja ten pokus nehodlam podstoupit.
Ano, tohle je velmi spravna a tradicni argumentace, kterou jsem ocekaval.
Neco jako "Kdyz tamten krade, ja budu take krast" - to je samozrejme
typicke pro nas narod, takto se chovame, proto to stoji za h***o. Nediv
se, ze se ostatnich takto chovaji k Tobe, kdyz se tak chovas Ty k nim.
> Timto jsem vkrocil na velmi tenky led, ktery se pode mnou prolomi pri
> prvni Tvoji odpovedi. To je mi jasne. Z hlediska prava se to neda obhajit.
> Z hlediska prava bych to mel zabalit, jit kopat kanaly, a cekat, az
> lidstvo pochopi, ze ma dodrzovat zakony. Co myslis, jak dlouho budu cekat?
> Budeme resit otazku, jestli mam dodrzovat zakon v podminkach, kdy jej
> ostatni nedodrzuji a tim se udrzet pri zivote? Zalozime si na to
> konferenci? Nerad bych. Diky za shovivavost.
Vis, ja tady nejsem soudce. Ja se snazim zakony dodrzovat. Nejen ty
bezne, ale take autorsky zakon. Vsechen software, ktery mam a pouzivam,
mam legalne koupeny a zaplatil jsem za nej. Presto mi obcas nejaka
firma za ty prachy ztezuje zivot tim, ze tam dava blbe ochrany, ktere
mi vadi. Kdyz si od firmy F kupuji software, tak je mi uplne jedno,
jestli ma firma F problemy s kradenym softwarem, ale pije mi krev,
kdyz me jako platiciho zakaznika jeji ochranne mechanismy obtezuji.
Ja jsem si zaplatil a chci to pouzivat - ted hned a porad. Zadne
volani po kazde preinstalaci. V software mam ulozeno nekolik stovek
tisic korun. Kdybych ho kradl, a ze moznosti jsou vsude, mohl bych
jezdit kazdy rok na Kanarske ostrovy a jeste si koupit poradny
duplikator a ty kradene programy prodavat. Mohl bych mit mnohem
lepsi hardwarove vybaveni... A mohl bych Ti pak kazdy mesic volat
a ptat se Te na novy instalacni klic, protoze bych mel mnohem vice
casu, nemusel bych vydelavat na kupovany soft.
Jestli mas kopat kanaly? Ja mam nekolik desitek programu od mnoha
firem. Od ceskych i zahranicnich. V soucasne dobe nemam ani jeden
hardwarovy klic a jen jednu nekopirovatelnou disketu. To znamena,
ze ostatni firmy maji jine ochranne systemy. A nekopou kanaly...
> Jinak Ti gratuluji k Tvym zakaznikum. Ja jim taky vysvetluji, ze maji
> zalohovat, a stejne to nedelaji. Asi to delam spatne. Jak to delas?
:-)))
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
elementarny problem s C/S
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 20.3.1999 15:43:53
Jaro wrote:
> Ja zase radeji vsechny udaje danoveho dokladu ukladam do tohoto
> dokladu - tedy vcetne nazvu a adresy firmy okopirovane z ciselniku
> firem a dalsich udaju okopirovanych z jinych ciselniku jako ucet,
> zpusob uhrady, konst. symbol. a pod.
> Duvodu je hned nekolik.
Jakym zpusobem pak delas napr. prehledy za jednoho zakaznika, ktery zmenil
treba adresu? Pokud je to vazane jen pres text, vlozeny z ciselniku, tak
mi to taky nepripada nejvyhodnejsi :-(
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
HDD factory serial + model number, atd.
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 20.3.1999 16:32:51
-----P�vodn� zpr�va-----
Od: Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. b�ezna 1999 15:41
P�edm�t: Re: HDD factory serial + model number, atd.>>>A co kdybych k nekopirovatelne diskete dodaval program, ktery dokaze
>>>vytvorit prave jednu bezpecnostni kopii ?
>
>>Zkus se hloubeji zamyslet, a zjistis, ze je to problem. Nebo Ti nerozumim.
>>Zkus to rozvest.
No, nad tim se nemusim moc zamyslet, zkratka me to jen napadlo. Jeste v dobe
dosu jsem taky aktivne vyvijel veskere mozne ochrany, vcetne
nezkopirovatelnych disket. No a problem v tom nevidim. Pokud umis sam tu
disketu vyrobit, tak logicky mas i kod, ktery muzes pouzit na jeji
zkopirovani, napr. instalacnim programem.Comctl32
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.1999 16:35:03
Puvodni zprava, kterou napsal Martin Kubecka dne 20 Mar 99,:
> Kdyz uz jsme u toho, domnival jsem se, ze ten soubor je totozny jak pro NT
> tak W9x. Ovsem po instalaci comctl32.dll z NT do W98 uz W98 nenabehly (az
> po vraceni puvodniho souboru). Lze nejak rozeznat pro jake Wokna ten
> soubor je? Nebo je potreba sirit v instalacnim programu dve verze a
> zjistovat cilove prostredi???
Najde se obcas knihovna, ktera je odlisna pro Win95 a WinNT.
Tohle jsou tzv. core knihovny a instaluji se podle zvlastniho
popisu Microsoftu. Napriklad se nikdy neodinstalovavaji.
Samozrejme pokud jsou odlisne, je potreba zjistit verzi,
to instalatory umi.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
HDD factory serial + model number, atd.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.1999 16:47:42
Puvodni zprava, kterou napsal Bohuslav Svancara dne 20 Mar 99,:
> >A co kdybych k nekopirovatelne diskete dodaval program, ktery dokaze
> >vytvorit prave jednu bezpecnostni kopii ?
>
> Zkus se hloubeji zamyslet, a zjistis, ze je to problem. Nebo Ti nerozumim.
> Zkus to rozvest.
Jsou dve hlavni moznosti, jak chranit disketu proti kopirovani.
V prvnim pripade nestandardne naformatujes, hodis tam nekam
nejaky jiny sektor. Tohle jde opakovat instalacnim programem.
Druhy pripad znamena fyzicke poskozeni casti diskety napriklad
spendlikem + nasledna analyza teto diskety. Tohle samozrejme
vyzaduje mechanicky zasah...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Zjisteni barvy pixelu
[*] Ondrej Salplachta <o.salplachta(zv)iol(tec)cz> - 20.3.1999 16:48:31
Dobry den,
chtel bych se zeptat, jestli nekdo nevite, jak se da zjistit barva pixelu na urcitych souradnicich na obrazovce.
Dekuji
Ondrej Salplachta
o.salplachta(zv)iol(tec)cz
HDD factory serial + model number, atd.
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 20.3.1999 16:56:16
Nekopirovatelne diskety , nekopirovatelne diskety ... MAM NEKOPIROVATELNY
HDD :-)) (teda - necitelny :-( )
Nechcete toho uz nechat ?!!
Mti.Filter on DATE
[*] Brcko <Peter.Laurinc(zv)ibaware.sk> - 20.3.1999 17:18:38
Asi som to nepochopil. Filter je typu string. Ako tam mozem narvat TDateTime.
Skusim trochu inak.
Mam tabulku tHits. V nej je field DATUM typu Date. Mam dve premenne typu TDateTime Od, Do.
tHits.Filter := ?
-----Original Message-----
From: Marek Soukup <marek(zv)comberg.com>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 19. marec 1999 17:07
Subject: Re: Filter on DATE
Ahoj,
co treba
NazevDatPolozky < DoDatumu and NazevDatPolozky > OdDatumu
a OdDatumu a DoDatumu jsou TDateTime kam narves hodnotu tech datumu.
Marek
Brcko wrote:
Mam vytvorenu PDOX tabulku, v nej polozku DATUM typu DATE. Pristupujem na nu pomocou std. TTable. Potrebujem nastavit filter on TTable od - do tj. od nejakeho datumu do nejakeho datumu. Ako treba nastavit property Filter v TTable? Vdaka za pomoc
Filter on DATE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.1999 17:43:05
Puvodni zprava, kterou napsal Brcko dne 20 Mar 99,:
> Asi som to nepochopil. Filter je typu string. Ako tam mozem narvat =
> TDateTime.
Ach jo. A Delphi mas? Ja ze jsem tam napsal tohle:
VYRIZENO > 20.1.1999
a chodi to. Mozna to zavisi jeste na formatu nastaveni data na
tom kterem pocitaci, to z hlavy nevim. Ale mnohdy staci vyzkouset,
jesti to nahodou nejde...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Elegancia nadovsetko
[*] Brcko <Peter.Laurinc(zv)ibaware.sk> - 20.3.1999 18:04:16
Popis situacie:
Medz x a y kazdych z minut urob toto.
kde x, y: TDateTime cas x<y
z: integer
Moze niekto hodit tip ako to spravit co najelegantnejsie
A mimichodom zhanam nejake piskvorky pod D2
Vdaka
HDD factory serial + model number, atd.
[*] OceaniC <pleticha(zv)kol1.kolej.ujep(tec)cz> - 20.3.1999 19:31:00
Ahojky,
nejak bokem pozorujituto debatu a jak se stavalo zajimavejsi,
tak jsem se vratil na zatek a jeste jednou pozorne sve precetl,
a dostal jsem takovy maly napadicek:
- co kdyby se nekontroloval jen jeden disk,
nebo pokud je to aplikace sitova
- kontrola HW indentifikacniho cisla (FF:FF:FF:FF) ???
OceaniC
20084514
P.S.:Tim nechci rozvirit dalsi vlnu...
-----P�vodn� zpr�va-----
Od: Martin Tichacek <martin_t(zv)mrp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. b�ezna 1999 17:46
P�edm�t: Re: HDD factory serial + model number, atd.>Nekopirovatelne diskety , nekopirovatelne diskety ... MAM NEKOPIROVATELNY
>HDD :-)) (teda - necitelny :-( )
>
>Nechcete toho uz nechat ?!!
>
> Mti.Problem s pipanim
[*] Petr Vaclavek <pvac5561(zv)ss1000.ms.mff.cuni(tec)cz> - 20.3.1999 19:34:14
Dobry den....
Mam TTreeView a tam odchytavam nejake klavesy jako treba
ENTER a mam problemek...
Mam nasledujici kod, ktery zpusobuje, ze pri zmacknuti klavesy
Enter se dana polozka rozbali (pokud je zabalena).
if ((Shift = []) and (Key = VK_RETURN)) then
TreeView.Selected.Expand (false)
Vsechno je OK, akorat ze to pipne a to mi tam strasne vadi.
Obdobny problem mam v RichEditu - vadi mi tam, ze kdyz jedu kurzorem
porad nahoru (dolu) az na konec a drzim jej dale, tak to pipa...
Predem diky za rady....
Petr
-----------------------------------------
mail: bla(zv)atrey.karlin.mff.cuni(tec)cz
http://atrey.karlin.mff.cuni(tec)cz/~bla
-----------------------------------------
HDD factory serial + model number, atd.
[*] OceaniC <pleticha(zv)kol1.kolej.ujep(tec)cz> - 20.3.1999 20:50:36
nejak jsem se upsal ...
ta 2 detekce se tyka sitove karty....
OceaniC
20084514
-----P�vodn� zpr�va-----
Od: OceaniC <pleticha(zv)kol1.kolej.ujep(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. b�ezna 1999 20:18
P�edm�t: Re: HDD factory serial + model number, atd.>Ahojky,
>
>nejak bokem pozorujituto debatu a jak se stavalo zajimavejsi,
>tak jsem se vratil na zatek a jeste jednou pozorne sve precetl,
>a dostal jsem takovy maly napadicek:
>
>- co kdyby se nekontroloval jen jeden disk,
> nebo pokud je to aplikace sitova
>- kontrola HW indentifikacniho cisla (FF:FF:FF:FF) ???
>
>OceaniC
>20084514
>
>P.S.:Tim nechci rozvirit dalsi vlnu...
>
>
>-----P�vodn� zpr�va-----
>Od: Martin Tichacek <martin_t(zv)mrp(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 20. b�ezna 1999 17:46
>P�edm�t: Re: HDD factory serial + model number, atd.
>
>>Nekopirovatelne diskety , nekopirovatelne diskety ... MAM NEKOPIROVATELNY
>>HDD :-)) (teda - necitelny :-( )
>>
>>Nechcete toho uz nechat ?!!
>>
>> Mti.Jak pouzivat TQuery + TUpdateSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.3.1999 21:08:08
Preji pekneho dne,
mam dotaz ohledne dvou komponent.
TQuery:
=======
Pokud chci vytvorit tabulku a k ni indexy, tak pouziji nasledujici
SQL prikaz:
create table XXYY
(
A integer,
B integer,
primary key (A)
);
create index XXYY_B on XXYY (B);
Pokud to ovsem dam do vlastnosti SQL komponenty TQuery, pak
mi to spadne s vyjimkou, ze pouzivam spatny token (jak je to
cesky?). Pokud to rozdelim do dvou komponent, je vse ok.
Znamena to tedy, ze nesmim v jednom TQuery pouzit vice SQL
prikazu? (pokud ne, tak je to smutne)
Jak vy pouzivate TQuery? Neekonomicky me napada mit
datamodule a v nem x instanci TQuery. Nebo existuje nejake lepsi
uloziste SQL dotazu, odkud se daji sosat a prirazovat do vlastnosti
SQL? Mozna to nebude efektvni volat neustale Prepare(), ale...
TUpdateSQL:
===========
Nejak jsem nepochodil s napovedou k dane komponente, proto se
chci optat, k cemu slouzi?
Diky tomu, ze musim ke kazde tabulce definovat Insert, Delete a
Update, nasel jsem toto a rekl jsem si, ze bude dobre mit to
vsechno v jedne komponente a pak volat podle jednoho parametru
prislusny prikaz. Ale nejak jsem neneasel vlastnost
DatabaseName. Jak se to tedy spravne pouziva?
Diky za kazdou odpoved
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Jak pouzivat TQuery + TUpdateSQL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.1999 21:28:24
Puvodni zprava, kterou napsal Slavek Rydval dne 20 Mar 99,:
> cesky?). Pokud to rozdelim do dvou komponent, je vse ok.
> Znamena to tedy, ze nesmim v jednom TQuery pouzit vice SQL
> prikazu? (pokud ne, tak je to smutne)
Ano, presne tak, TQuery umi zpracovat najednou jen jeden dotaz.
To neni zadna tragedie.
> Jak vy pouzivate TQuery? Neekonomicky me napada mit
> datamodule a v nem x instanci TQuery. Nebo existuje nejake lepsi
Co? Prece to neznamena, ze budes mit 50x TQuery...
> uloziste SQL dotazu, odkud se daji sosat a prirazovat do vlastnosti
> SQL? Mozna to nebude efektvni volat neustale Prepare(), ale...
Proste si to ulozis treba do konstanty pole nebo primo do
programu a pak to postupne vzdy naplnis do SQL toho TQuery
a spustis...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Jak pouzivat TQuery + TUpdateSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.3.1999 22:04:58
> > Jak vy pouzivate TQuery? Neekonomicky me napada mit
> > datamodule a v nem x instanci TQuery. Nebo existuje nejake lepsi
>
> Co? Prece to neznamena, ze budes mit 50x TQuery...
>
> > uloziste SQL dotazu, odkud se daji sosat a prirazovat do vlastnosti SQL?
> > Mozna to nebude efektvni volat neustale Prepare(), ale...
>
> Proste si to ulozis treba do konstanty pole nebo primo do
> programu a pak to postupne vzdy naplnis do SQL toho TQuery
> a spustis...
To me take napadlo, ale pak bych stejne mel pole, ktere by
zabiralo nejake to misto (sice mene, nez 50 TQuery), ale na
druhou stranu, TQuery se lepe udrzuje, nez napr. pole retezcu
nebo dokonce TStringu.
Je mi jasne, ze k 200 SQL dotazum mit 200 TQuery je pitomost.
K tem konstantam bude asi dobre napsat jednoduchy generator
onech konstant, kde bych mel v nejakem textovem souboru
napsano hafo SQL prikazu a po zmene je prevest do onoho pole.
No a nakonec vse slinkoval.
Mozna moc basnim...
Slavek
> S pozdravem
> Petr Zahradnik, pocitacovy expert
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Jak pouzivat TQuery + TUpdateSQL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.1999 22:44:59
Puvodni zprava, kterou napsal Slavek Rydval dne 20 Mar 99,:
> > Proste si to ulozis treba do konstanty pole nebo primo do
> > programu a pak to postupne vzdy naplnis do SQL toho TQuery
> > a spustis...
> To me take napadlo, ale pak bych stejne mel pole, ktere by
> zabiralo nejake to misto (sice mene, nez 50 TQuery), ale na
Rozhodne 50 SQL dotazu zabere mensi misto nez 50 TQuery,
notabene kdyz v tech TQuery musi vsechny ty dotazy take byt.
> druhou stranu, TQuery se lepe udrzuje, nez napr. pole retezcu
> nebo dokonce TStringu.
Dotaz nemusi byt v TString, protoze dotaz se da napsat na jeden
delsi radek, takze proste jako jeden retezec.
> Je mi jasne, ze k 200 SQL dotazum mit 200 TQuery je pitomost.
> K tem konstantam bude asi dobre napsat jednoduchy generator
> onech konstant, kde bych mel v nejakem textovem souboru
> napsano hafo SQL prikazu a po zmene je prevest do onoho pole.
> No a nakonec vse slinkoval.
Pokud kazdy dotaz je na neco jineho, pak to stejne volas
z ruznych casti programu, takze vetsinou se to nedava do
konstant, ale primo se to generuje programem. Pokud to je
fakt sada 200 prikazu na generovani tabulky, tak na to
bud pustis primo ISQL bez libovolneho programu, no a nebo
si napises jeden prikaz na jeden radek a jednoduse pomoci
ReadLn to nactes a vzdy vygenerujes.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Velikost vysledneho exace
[*] lukas(zv)oknet(tec)cz (Vana Lukas) - 20.3.1999 23:10:14
Velikost programu - to je vubec dost zajimava vec. Co vlastne zpusobi
zapnuti volby project->options->packages ... build with runtime packages? A
jak se da v Delphi bezpecne zmensovat velikost vysledneho exe?
Diky za odpoved,
Lukas Vana
----- P�vodn� zpr�va -----
Od: Bob
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 18. �ervna 1999 9:54
P�edm�t: RE: Velikost vysledneho exace
Podle me to vypada, ze mas u toho druhyho programku zapnuty pouzivani
baliku.
Jinak nevim, proc by ten prvni mel tak malo.
Bob
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele Petr
Sadovsky
Odesl�no: 18. �ervna 1999 9:28
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Velikost vysledneho exace
Ahojte,
zjistil jsem ted zajimavou vec.
Jeden muj programek s nasledujici pasazi uses (uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, GlobProm, StdCtrls, ExtCtrls,VkladOpr,
Vyber, TextEdit, QReport, QuickRpt, Menus, Setup,IniFiles,RXShell,
ComCtrls;), ktery obsahuje jeste 5 dalsich formu, ma po kompilaci 85kB.
Druhy ma takoveto uses (uses SysUtils, Classes, Controls, Forms, Dialogs,
Grids,DBGrids, Db, uDbf, StdCtrls, ZapisU ; - kde uDbf ma 30,5kB a ZapisU ma
8,66kB), a obsahuje jeste jeden form a vysledny kod ma 549kB.uDbf.dcu ma v
uses (uses SysUtils, Classes, Db, DsgnIntf, TypInfo;).
Tento druhy programek je velmi jednoduchy pracuje s jednou tabulkou bez BDE
tzv. na primo a proto mne prekvapila jeho velikost vuci prvnimu, ktery
obsahuje 5 formu quickreport, napojeni na data pres BDE.V project->options
mam stejne nastaveni pro oba (krome ikony a verze:-))).
Poradte mi prosim, kde je chyba? (je to delano na D4C/S) Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 20.3.1999 14:31:47 -0800
Puvodni zprava, kterou napsal Petr Zahradnik dne 19 Mar 99,:
>Prave tim hardwarovym klicem bys to chranit mohl,
>protoze klic neni software.
Prima. Diky za konzultaci. Vsechno je v nejlepsim poradku. Disketa totiz
taky neni software. Nekopirovatelna disketa je hardwarovy klic.
Jen jeste male vysvetleni:
- Kdyz prodavam software, podepisujeme smlouvu. Tam je napsane, ze
program je chraneny nekopirovatelnou disketou, ze uzivatel je povinen
ochranit
ji pred znicenim nebo odcizenim, jak maji s programem zachazet, aby jim
fungoval a za jakych okolnosti jim prestane fungovat. Mozna to neni podle
zakona, ale delame to tak.
- Kopii diskety si mohou udelat, krome jedineho souboru, ve kterem jsou ty
poskozene sektory.
Pokud bych jim dodal dve diskety, jednu nekopirovatelnou, fungujici jako
hardwareovy klic (ktery se ale pouziva jen pri instalaci a pak uz neni
potreba) a druhou s programem, bude to podle Tebe v poradku?
Odbocka:
Nekopirovatelne diskety jsem zacal pouzivat v dobach, kdy hardwarove klice
byla velka neznama. Byly jen zahranicni, drahe a nedostupne. Diskety se
osvedcily, tak uz jsem u nich zustal. Byla jedna vyjimka, nejaka firma v
Jihlave. Te jsem dal hardwarovy klic. A namet na dalsi rozhorcenou diskusi:
kdyz se muj program provozuje v siti, chranim jej pomoci vazby na cislo
sitove karty. Zakaznik to vi, kdyz meni kartu nebo mu odejde, tak
zatelefonuje. Taky to funguje.
Konec odbocky.
>Tihle lide by porusili zakon. Kdyz udelas nekopirovatelnou disketu,
>porusujes ho Ty. Takze kde je rozdil?
Pokud bych jej porusoval - coz podle vyse uvedeneho nedelam - rozdil by byl
nasledujici:
- Kdyz oni porusi zakon, nic se jim nestane, oni vydelaji a ja prodelam.
- Kdyz ja porusim zakon, nic se mi nestane, oni vydelaji a ja vydelam taky.
Kdyz budu zakon dodrzovat, oni jej budou stejne porusovat. Ja zkrachuji a
oni ode mne jiz nedostanou zadny super extra spica genialni soft. Mozna, ze
je to pak nauci dodrzovat zakon, ale ja ten pokus nehodlam podstoupit.
Timto jsem vkrocil na velmi tenky led, ktery se pode mnou prolomi pri prvni
Tvoji odpovedi. To je mi jasne. Z hlediska prava se to neda obhajit. Z
hlediska prava bych to mel zabalit, jit kopat kanaly, a cekat, az lidstvo
pochopi, ze ma dodrzovat zakony. Co myslis, jak dlouho budu cekat? Budeme
resit otazku, jestli mam dodrzovat zakon v podminkach, kdy jej ostatni
nedodrzuji a tim se udrzet pri zivote? Zalozime si na to konferenci? Nerad
bych. Diky za shovivavost.
Jinak Ti gratuluji k Tvym zakaznikum. Ja jim taky vysvetluji, ze maji
zalohovat, a stejne to nedelaji. Asi to delam spatne. Jak to delas?
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 20.3.1999 15:04:54 -0800
-----Original Message-----
From: Petr Kro�a ml. <pkroca(zv)compact(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 20. b�ezna 1999 5:30
Subject: Re: HDD factory serial + model number, atd.>A co kdybych k nekopirovatelne diskete dodaval program, ktery dokaze
>vytvorit prave jednu bezpecnostni kopii ?
>
Zkus se hloubeji zamyslet, a zjistis, ze je to problem. Nebo Ti nerozumim.
Zkus to rozvest.
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
HDD ID ? ANO vs NIE ?
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 20.3.1999 20:59:39 -0800
-----Original Message-----
From: Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk>
Subject: HDD ID ? ANO vs NIE ?
>Suhlasim ... ale, aj tak ;-) ono to je fakt povazlive. Vsetko zalezi na
peniazoch a navratnosti. Najspravnejsie je
>pouzivat hw kluce, ale co ak to
zakaznik nezaplati. :-( Robil som z FAST klucmi aj zo SENTINELom. Je to fakt
>ucelove, ale aj dost drahe pre pouzitie v jednoduchych resp. malo
zaplatenych aplikaciach.
Na penezich zavisi vsechno.
>Ja by som to zhrnul asi tak :
>Pouzitie HDD ID ochrany a podobnych ma svoje uplatnenie v aplikaciach,
ktore su stale pod kontrolou vyvojara. >;-)
Spravny postreh.
>Este by ma zaujimalo toto: Co keby sa prikompiloval VxD ku execku a iba pri
spusteni sa nakopiroval do
>Windows adr. a po ukonceni zmazal. Mate niekto
lepsi napad ??? Vdaka za kazdu odpoved ...
Myslim, ze ve Windows adresari uz je takovy bordel, ze se tam jeden soubor
navic klidne vejde. Ale usetrim Ti praci: soubor PORT.VXD nemusi byt v
adresari Windows. Muze byt v adresari spolecne s programem, ktery jej
pouziva.
Zkusel jsem Tvuj program. Po zmene deklarace cbBytesReturned na longint
funguje i pod Delphi 3. Dava stejne vysledky i pod Dosem. Zkouseno na 4
pocitacich.
Jak jsi daleko s verzi pro WinNT?
Muzes mi, prosim, objasnit co to je to seriove cislo HDD a cislo radice?
To jsou jednoznacna cisla jako maji sitove karty?
Daji se nejak zkontrolovat informace, ktere program poskytuje?
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
Pentium 3 ID uz drobet OffT (WAS: HDD factory ser
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 20.3.1999 21:01:17 -0800
-----Original Message-----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 16. b�ezna 1999 0:23
Subject: Pentium 3 ID uz drobet OffT (WAS: HDD factory serial + model
number, atd.)>
> >PS Az budemem mit vsichni PIII pak se objevi jeste programy
>zavisle na
> >identifikacnim cisle CPU :)
>
>No, to by bylo :-)
>Ale to ID pujde vypnout, takze hlaska
>"Zakazniku, zapni ID, nebo se ukoncim..." :-)))))))))))
>nebo
>"Zakazniku, ty mas novej procesor, kup si program znovu"
>:-)))))))))
Ti chlapi nevymysleli identifikaci CPU jen tak z pleziru. Zkouseji jen
napravovat hodne starou chybu kvuli obchodovani na Internetu.
Az bude v pocitaci jeho jednoznacna identifikace, bude tam neco, co se ted
tu s vetsim, tu s mensim uspechem, tu dokonaleji onde mene dokonale
simuluje. Hardwarovymi klici, nekopirovatelnymi disketami, seriovym cislem
programu, ctenim cisla diskoveho radice, atd. V dobach ZX Spectra existoval
program, ke kteremu jsi dostal
jakesi sklicko. Tim sklickem jsi se podival na obrazec na monitoru a uvidel
kod, ktery jsi vytukal na klavesnici, aby program fungoval.
Kdyby to bylo v pocitacich odjakziva, svet kolem nas by dnes vypadal jinak.
Softwarovym firmam by nevznikaly milardove ztraty a mohly by delat lepsi
programy. Nebo mozna taky ne. Mozna ze to k necemu je, ze miliony
nelegalnich uzivatelu testuji programy. Ja nevim. Urcite by vypadala jinak
distribuce programu a komunikace mezi uzivateli a vyrobci. Mozna by ten
Internet (InstallNet?) vznikl mnohem drive. Asi by vypadala jinak i lidska
moralka. (Napr. si myslim, ze by neexistoval nikdo, kdo by tvrdil, ze kdyz
program potrebuje jen dvakrat do roka, tak ma pravo si ho nelegalne
nakopirovat.) Vznikly by jine obchodni strategie. Usetrila by se spousta
energie vkladana do vymysleni ochran programu a psani prispevku, jako je
tento. Melo by to zpetny vliv i na hardware a jeho vyvoj. Rekl bych, ze by
se na svete prodalo mene pocitacu, kdyz by se do nich musel software kupovat
a ne krast. Ale mozna ze ne. Mozna, ze by byl hardware lacinejsi, aby ho
lidi mohli koupit a zbylo jim i na software. Mozna, ze.... Proste - hodne
veci by bylo jinak.
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
Jak pouzivat TQuery + TUpdateSQL
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.3.1999 10:21:03
To bude tim, ze TQuery bylo stvoreno pro trochu jine ucely, tj.
zejmena pro dotazy typu SELECT, INSERT, UPDATE, kdy pouziti vice
takovych prikazu za sebou nema smysl. To, co chces delat ty, bych ja
asi vlozil do StrodProcedure a spustil pomoci objektu TStored
Procedure. Tam muzes mit za sebou takovych prikazu mnoho a pojede to
take rychleji. Muzes take vytvorit jednoduchy skript a spustit jej z
ISQL.
TUpdateSQL: nepotrebuje DatabaseName, protoze se napoji na konkretni
TQuery pomoci vlastnosti UpdateObject a zjisti si to tam.
Jaro
----------------------
Preji pekneho dne,
mam dotaz ohledne dvou komponent.
TQuery:
=======
Pokud chci vytvorit tabulku a k ni indexy, tak pouziji nasledujici
SQL prikaz:
create table XXYY
(
A integer,
B integer,
primary key (A)
);
create index XXYY_B on XXYY (B);
Pokud to ovsem dam do vlastnosti SQL komponenty TQuery, pak
mi to spadne s vyjimkou, ze pouzivam spatny token (jak je to
cesky?). Pokud to rozdelim do dvou komponent, je vse ok.
Znamena to tedy, ze nesmim v jednom TQuery pouzit vice SQL
prikazu? (pokud ne, tak je to smutne)
Jak vy pouzivate TQuery? Neekonomicky me napada mit
datamodule a v nem x instanci TQuery. Nebo existuje nejake lepsi
uloziste SQL dotazu, odkud se daji sosat a prirazovat do vlastnosti
SQL? Mozna to nebude efektvni volat neustale Prepare(), ale...
TUpdateSQL:
===========
Nejak jsem nepochodil s napovedou k dane komponente, proto se
chci optat, k cemu slouzi?
Diky tomu, ze musim ke kazde tabulce definovat Insert, Delete a
Update, nasel jsem toto a rekl jsem si, ze bude dobre mit to
vsechno v jedne komponente a pak volat podle jednoho parametru
prislusny prikaz. Ale nejak jsem neneasel vlastnost
DatabaseName. Jak se to tedy spravne pouziva?
Diky za kazdou odpoved
Slavek
----------------------------------------------------------------------
------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------
------
elementarny problem s C/S
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.3.1999 10:27:20
Zjistim si jeho ICO a uz mam jedinecnost. Moznosti je vsak vice.
Pri zadavani noveho zakaznika se ICO a DIC kontroluje, protoze pak se
jedna o stejny
subjekt. Jina muze byt fakturacni adresa, pobocka a pod. Ty jsou
rozliseny jinym Id.
Moznosti reseni je vice. Tohle mi problem rozhodne nedela.
Odpoved tedy je, ze to bud udelam slozenym SELECT(em) nebo pokud jde o
rychlost,
tak pouziji FOR SELECT.
Jaro
>
>Jakym zpusobem pak delas napr. prehledy za jednoho zakaznika, ktery
zmenil
>treba adresu? Pokud je to vazane jen pres text, vlozeny z ciselniku,
tak
>mi to taky nepripada nejvyhodnejsi :-(
>
>Mac
>
>--
>==============================================================
>= Ing. Martin Kubecka - Amenit s.r.o. =
>= Na Valech - budova Dytron, 741 01 Novy Jicin =
>= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
>= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
>= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
>==============================================================
>
>Jak pouzivat TQuery + TUpdateSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.3.1999 10:57:13
> asi vlozil do StrodProcedure a spustil pomoci objektu TStored
> Procedure.
****No jo, ale ja to nebeham na SQL serveru, ale
na lokalnich tabulkach... :-(
Slavek
> Jaro
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
elementarny problem s C/S
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.3.1999 11:12:01
Jaro wrote:
> Zjistim si jeho ICO a uz mam jedinecnost. Moznosti je vsak vice.
> Pri zadavani noveho zakaznika se ICO a DIC kontroluje, protoze pak se
> jedna o stejny
> subjekt.
Jasne, neuvedomil jsem si, ze vkladas i ICO.
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Comctl32
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.3.1999 11:18:38
Petr Zahradnik wrote:
> > Kdyz uz jsme u toho, domnival jsem se, ze ten soubor je totozny jak pro NT
> > tak W9x. Ovsem po instalaci comctl32.dll z NT do W98 uz W98 nenabehly (az
> > po vraceni puvodniho souboru). Lze nejak rozeznat pro jake Wokna ten
> > soubor je? Nebo je potreba sirit v instalacnim programu dve verze a
> > zjistovat cilove prostredi???
>
> Najde se obcas knihovna, ktera je odlisna pro Win95 a WinNT.
> Tohle jsou tzv. core knihovny a instaluji se podle zvlastniho
> popisu Microsoftu. Napriklad se nikdy neodinstalovavaji.
> Samozrejme pokud jsou odlisne, je potreba zjistit verzi,
> to instalatory umi.
Tim obcas myslis to, ze comctl32.dll je vzdycky jina pro W9x a NT, nebo jen
nekdy je jina??? Kdyz budu mit dve comctl32.dll tak jak poznam, ktera je pro NT
a ktera pro W9x, to mi nejde do hlavy.
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Jak pouzivat TQuery + TUpdateSQL
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.3.1999 11:25:52
Petr Zahradnik wrote:
> Puvodni zprava, kterou napsal Slavek Rydval dne 20 Mar 99,:
>
> > cesky?). Pokud to rozdelim do dvou komponent, je vse ok.
> > Znamena to tedy, ze nesmim v jednom TQuery pouzit vice SQL
> > prikazu? (pokud ne, tak je to smutne)
>
> Ano, presne tak, TQuery umi zpracovat najednou jen jeden dotaz.
> To neni zadna tragedie.
Je to vec nazoru, ja to treba za tragedii povazuju ;-)
Nekde na DSP jsem zahlidnul TQuery, ktera umela vice SQL dotazu najednou.
Zkus pohledat...
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Comctl32
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.3.1999 13:08:41
Puvodni zprava, kterou napsal Martin Kubecka dne 21 Mar 99,:
> > Najde se obcas knihovna, ktera je odlisna pro Win95 a WinNT.
> > Tohle jsou tzv. core knihovny a instaluji se podle zvlastniho
> > popisu Microsoftu. Napriklad se nikdy neodinstalovavaji.
> > Samozrejme pokud jsou odlisne, je potreba zjistit verzi,
> > to instalatory umi.
>
> Tim obcas myslis to, ze comctl32.dll je vzdycky jina pro W9x a NT, nebo
> jen nekdy je jina??? Kdyz budu mit dve comctl32.dll tak jak poznam, ktera
> je pro NT a ktera pro W9x, to mi nejde do hlavy.
Tim "obcas" myslim, ze vseobecne se cas od casu najdou knihovny DLL,
ktere jsou odlisne pro Win95 a WinNT. Prikladem je napr. CTL3D32.DLL,
ktera je ruzna.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Comctl32
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.3.1999 14:22:22
Petr Zahradnik wrote:
> > Tim obcas myslis to, ze comctl32.dll je vzdycky jina pro W9x a NT, nebo
> > jen nekdy je jina??? Kdyz budu mit dve comctl32.dll tak jak poznam, ktera
> > je pro NT a ktera pro W9x, to mi nejde do hlavy.
>
> Tim "obcas" myslim, ze vseobecne se cas od casu najdou knihovny DLL,
> ktere jsou odlisne pro Win95 a WinNT. Prikladem je napr. CTL3D32.DLL,
> ktera je ruzna.
Aha, a nevite teda nekdo jak je to s tou Comctl32.dll ???
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Nahravani textovych souboru
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.3.1999 14:24:23
To neni hloupost, to je dobry postup. Dej to do smycky treba po
stovce zaznamu a vzdy nastartuj novou transakci, tim se vypne
autocommit po kazdem zaznamu a znacne se to zrychli.
Schematicky nejak takto:
while not Eof do begin
Database1.StartTransaction
try
for i := 1 to 100 do begin
if Eof then begin
Database1.Commit
Exit;
end;
nacist vetu
insert
Database1.Commit
except
Database1.RoolBack
Exit;
end;
end;
Jaro
---------------
>Zdravim,
>
>je to sice jen hloupost, ale co treba nacist vetsi pocet vet a ten
pak
>nasazet do tabulky pod transakci? Ta by mela potlacit potvrzovani
pripsani
>kazdeho zaznamu => zkraceni casu.
>
>Mej se, prijemny den,
>
>Peter
>
>Jindriska Kubatova wrote:
>
>> Prosim o radu:
>>
>> Potrebuji nahrat textovy soubor (pevne delky polozek) do tabulky
>> (temporalni tabulka Informixu na vzdalenem serveru). Kdyz ctu a
zapisuji
>> jednu vetu po druhe, nacteni trva neumerne dlouho.
>> Zkusila jsem to obejit a nacist soubor do paradoxove tabulky na
lokalnim
>> pocitaci, ale i to
>> mi pripada prilis dlouhe.
>> Pokousela jsem se provest nacteni pomoci BatchMove, ale koncim na
tom,
>> ze neumim vytvorit alias
>> pro textove soubory.
>> Kdyz alias na textovy soubor nevytvorim, ale udelam si Table typu
>> ttAscii
>> (Table1.TableTyp=ttASCII), textovy soubor se mi castecne nacte, ale
>> naplni se mi jen prvni
>> polozka cilove tabulky, ostatni se nenaplni. Nevim kde definovat
popis
>> textoveho souboru.
>>
>> Ma nekdo zkusenosti s takovou situaci, eventualne zna nekdo jiny
zpusob
>> ?
>>
>> Dekuji
>>
>> Jolana Kotatkova
>> e_mail: Jolana.Kotatkova(zv)pvt(tec)cz
>>
>> ---------------------------------------------------
>> Jindriska Kubatova
>> PVT Kolinska 20 288 18 Nymburk
>> kubatova(zv)nym.pvt(tec)cz
>> ---------------------------------------------------
>
Nahravani textovych souboru
[*] Peter Rus <peterrus(zv)intesys(tec)cz> - 21.3.1999 14:37:15
Zdravim Jaro,
:-))) Ja vim :-))), taky jsi me to naucil ty, ze? :-))) Diky!!
Peter
Jaro wrote:
> To neni hloupost, to je dobry postup. Dej to do smycky treba po
> stovce zaznamu a vzdy nastartuj novou transakci, tim se vypne
> autocommit po kazdem zaznamu a znacne se to zrychli.Off - Struktura hlavicky JPEG
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 21.3.1999 15:19:13
Ahoj, omlouvam se za offtopic.
Nemate, prosim vas, nekdo popis struktury hlavicky obrazku JPEG. Potrebuji
ze souboru obrazku zjistit jeho sirku a vysku. Tato informace je vsak v
kazdem typu souboru JPEG (jiny pocet barev atd..) na jinem miste. Potreboval
bych proto popis formatu, abych mohl data nacitat inteligentne a ne tak, ze
si podle nejakeho sporneho znaku zjistim, zda je to ten ci onen format a pak
se nastavim na urcitou pozici v souboru.
Diky
PK
Comctl32
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.3.1999 15:28:55
Puvodni zprava, kterou napsal Martin Kubecka dne 21 Mar 99,:
> > Tim "obcas" myslim, ze vseobecne se cas od casu najdou knihovny DLL,
> > ktere jsou odlisne pro Win95 a WinNT. Prikladem je napr. CTL3D32.DLL,
> > ktera je ruzna.
>
> Aha, a nevite teda nekdo jak je to s tou Comctl32.dll ???
No, ja jsem to nejak zvlast nestudoval, ale myslim, ze je stejna verze
pro Win95 i pro WinNT, ze je potreba jen kontrolovat cislo verze, coz
delaji instalacni programy automaticky. Ale vim, ze byl konflikt s tim,
ze k Delphi 3 byla dodana nejaka verze, ktera pak nechodila na NT, kde
byl myslim IE4. Tak nejak to bylo... Podivej se na microsoft.com, kde
jsou core dll popsane a mely by tam byt jejich aktualni verze.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Nahravani textovych souboru
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.3.1999 16:45:06
OPRAVA
Koukam, ze jsem to ale napsal blbe.
Ten Commit patri az za end // for,
a ten end mi tam vypadnul uplne
A jeste tam zajiste musi byt zajisten
posun po tom textovem souboru.
Tohle ber jako namet.
Jaro
>
>while not Eof do begin
>Database1.StartTransaction
>try
> for i := 1 to 100 do begin
> if Eof then begin
> Database1.Commit
> Exit;
> end;
> nacist vetu
> insert
> end; // ---- konec for
> Database1.Commit
>except
> Database1.RoolBack
> Exit;
end; // ---- try
>end; // ---- while
>
>Jaro
>---------------
>
>>Zdravim,
>>
>>je to sice jen hloupost, ale co treba nacist vetsi pocet vet a ten
>pak
>>nasazet do tabulky pod transakci? Ta by mela potlacit potvrzovani
>pripsani
>>kazdeho zaznamu => zkraceni casu.
>>
>>Mej se, prijemny den,
>>
>>Peter
>>
>>Jindriska Kubatova wrote:
>>
>>> Prosim o radu:
>>>
>>> Potrebuji nahrat textovy soubor (pevne delky polozek) do tabulky
>>> (temporalni tabulka Informixu na vzdalenem serveru). Kdyz ctu a
>zapisuji
>>> jednu vetu po druhe, nacteni trva neumerne dlouho.
>>> Zkusila jsem to obejit a nacist soubor do paradoxove tabulky na
>lokalnim
>>> pocitaci, ale i to
>>> mi pripada prilis dlouhe.
>>> Pokousela jsem se provest nacteni pomoci BatchMove, ale koncim na
>tom,
>>> ze neumim vytvorit alias
>>> pro textove soubory.
>>> Kdyz alias na textovy soubor nevytvorim, ale udelam si Table typu
>>> ttAscii
>>> (Table1.TableTyp=ttASCII), textovy soubor se mi castecne nacte,
ale
>>> naplni se mi jen prvni
>>> polozka cilove tabulky, ostatni se nenaplni. Nevim kde definovat
>popis
>>> textoveho souboru.
>>>
>>> Ma nekdo zkusenosti s takovou situaci, eventualne zna nekdo jiny
>zpusob
>>> ?
>>>
>>> Dekuji
>>>
>>> Jolana Kotatkova
>>> e_mail: Jolana.Kotatkova(zv)pvt(tec)cz
>>>
>>> ---------------------------------------------------
>>> Jindriska Kubatova
>>> PVT Kolinska 20 288 18 Nymburk
>>> kubatova(zv)nym.pvt(tec)cz
>>> ---------------------------------------------------
>>
>
>Jak pouzivat TQuery + TUpdateSQL
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.3.1999 16:51:04
Aha .... zase o duvod vic proc prejit na C/S.
Ale vazne. V tom pripade me nenapada nic chytrejsiho nez udelat
vzdy pro jeden prikaz Open, Close, vymenit SQL.Text a znovu Open ...
a tak dal az do vitezneho konce.
Jaro.
> asi vlozil do StrodProcedure a spustil pomoci objektu TStored
> Procedure.
****No jo, ale ja to nebeham na SQL serveru, ale
na lokalnich tabulkach... :-(
Slavek
> Jaro
----------------------------------------------------------------------
------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------
------
Local SQL Join
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.3.1999 16:54:25
UFF ... Opravdu "buh s tebou" ... jak napsal Hynek.
Na cem to delas? Na tabulkach nebo na serveru?
Na vetsich tabulich ti tohle pojede priserne pomalu.
Ta odezva mozna neni zadna, protoze to
pracuje a pracuje a pracuje a ....
JOIN "kombinuje tabulky" a z tech kombinaci teprve vybira.
Spocitej si to obrovske mnozstvi operaci, ktere musi probehnout.
Pokud nemas server, abys mohl pouzit ulozenou proceduru, tak to radeji
dotahni jednotlivymi SELECT pro kazdou tabulku s WHERE id =
Je mnohem mnohem rychlejsi 4x dotahnut z tabulky jediny zaznam nez
provadet takoveto zdlouhave kombinace. Uvedom si, co vsechno se musi
nakombinovat, kdyz kazda tabulka bude mit pouhych 1000 zaznamu.
1000 x 1000 x 1000 x 1000 ... a z toho vzejde nakonec par radku.
Napis na cem to delas a ja mozna budu vedet, jak ti poradit.
Jaro
---------------
> Zdravim vsetkych,
>
> vie mi niektory z Vas poradit, co robim zle ?
>
> Mam niekolko tabuliek, ktore su poprepajane cez jednoduche integer
polia. Potrebujem zobrazit vyslednu tabulku tak, aby bolo vidno hlavnu
tabulku spolu s udajmi z tych pomocnych. Pridanie lookup poli som
zrusil, pretoze prezeranie vyslednej tabulky bolo strasne pomale.
Nahradil som to tymto :
>
> SELECT HNIM.*, Pracov.Meno,PRACOV.Priezvisko, HimMiest.Nazov,
UTV.Popis as C_Utvar,
>
> DOD.Nazov as C_Dodavatel, VYR.Nazov as C_Vyrobca
>
> from HNIM
>
> join Pracov on (Pracov.ID = HNIM.ZodpOsoba)
>
> join HimMiest on (HimMiest.ID = HNIM.ID_MIEST)
>
> join HimTab as UTV on (UTV.ID = HNIM.Utvar)
>
> join Adresar as DOD on (DOD.ID = HNIM.Dodavatel)
>
> join Adresar as VYR on (VYR.ID = HNIM.Vyrobca)
>
> where TypHIM='N'
>
> order by InvCislo
>
>
> Tu je ale problem. Ak je cast where taka, ze prejde len malo
riadkov, je vsetko O.K. Ak ale zmenim podmienku tak, ze by mal byt
vysledok napr. 3000 riadkov, neukaze sa mi vobec nic, a pritom
nezahlasi ziadnu chybu.
> Podobne ak tam dam napr. este jeden join pre dalsie polia, tiez
nedostanem ziadny vysledok.
>
> Viete o tom ktosi cosi ? Ma local SQL nejake obmedzenia pre JOIN ? V
helpe je toho uboho malo ...
Ja nevim, zkusil bych treba ty joiny preformulovat do klauzule
WHERE:
select ...
WHERE
(Pracov.ID = HNIM.ZodpOsoba)
AND (HimMiest.ID = HNIM.ID_MIEST)
AND (UTV.ID = HNIM.Utvar)
AND (DOD.ID = HNIM.Dodavatel)
AND (VYR.ID = HNIM.Vyrobca)
AND TypHIM='N'
treba to pak pojede ...
Jinak buh s tebou ...
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Comctl32
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.3.1999 17:50:16
Petr Zahradnik wrote:
> > Aha, a nevite teda nekdo jak je to s tou Comctl32.dll ???
>
> No, ja jsem to nejak zvlast nestudoval, ale myslim, ze je stejna verze
> pro Win95 i pro WinNT, ze je potreba jen kontrolovat cislo verze, coz
> delaji instalacni programy automaticky.
Ja prave hodil do W98 (US) verzi z NT (SP4 US) a W98 uz nenabehly, takze tam
asi nejaka zrada bude :-(
> byl myslim IE4. Tak nejak to bylo... Podivej se na microsoft.com, kde
> jsou core dll popsane a mely by tam byt jejich aktualni verze.
Jo diky. Ted na to nemam cas (resp. prioritu ma neco jineho), takze kdyby
nekdo vedel neco blizsiho tak dejte vedet (usetril bych trosku casu ;-)
Diky
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
HDD factory serial + model number, atd.
[*] Mirun <forcom(zv)telecom(tec)cz> - 21.3.1999 18:35:41
(byl jsem pryc, takze odpovidam az po prodleve...)
-----P�vodn� zpr�va-----
Od: Petr Fejfar <callnet(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. b�ezna 1999 11:56
P�edm�t: Re: HDD factory serial + model number, atd.>Hi,
>
>Mirun <forcom(zv)telecom(tec)cz> wrote:
>
>> Chlapi, ja se Vam divim. Kdyz uz chcete delat takovyhle prasarny, tak
>> nechapu, proc si chcete informace o zjistenych udajich ukladat (notabene
>do
>> INI). Odstranit tuto ochranu trva asi 2 minuty. (odstraneni libovolne
>> ochrany trva jen o trochu dele - pokud teda dotycny soft stoji za to).
>
>No jen jestli si trochu nefandis. On clovek ma tendenci posuzovat se podle
>toho, co si mysli, ze by dokazal, zatimco druzi jej posuzuji podle toho, co
>uz dokazal :-))
Jo.
>
>Chtel bych videt, jak by byly ty 2 minuty jen o malo delsi, kdyz bych napr.
>to seriove cislo HDD pouzil jako klic k desifrovani zkompresovanych
>plug-inu, ktere bych pripojil na konec .exe a nastrkal do nich vybrane
>funkce aplikace :-))
>
>bye, pf
>
Vtip je v tom, ze bych nehledal tve pluginy a jine zbesilosti, ale misto kde
zjistujes cislo HDD
:-)))
Mirun
Local SQL Join
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 21.3.1999 19:19:10
No nie som bohvieaky odbornik na databazy, ale mam pocit, ze si to presvihol
...>Na cem to delas? Na tabulkach nebo na serveru?
Na Paradoxe
>Na vetsich tabulich ti tohle pojede priserne pomalu.
>Ta odezva mozna neni zadna, protoze to
Nie je pravda, v hlavnej tabulke mam 20.000 riadkov a v tych joinovych asi
po 200 riadkov. Ak mam v dotaze asi 5x join, zmasti mi cely vyber (teda
joinovanych 20.000 riadkov) asi tak za 5 sekund. Moj problem bol v tom, ze
po pridani dalsieho joinu to nevratilo vobec nic, odozva bola okamzita.
Samozrejme vsetky joiny a vsetky podmienky sa daju robit cez indexy.
>pracuje a pracuje a pracuje a ....
>JOIN "kombinuje tabulky" a z tech kombinaci teprve vybira.
>Spocitej si to obrovske mnozstvi operaci, ktere musi probehnout.
>Pokud nemas server, abys mohl pouzit ulozenou proceduru, tak to radeji
>dotahni jednotlivymi SELECT pro kazdou tabulku s WHERE id =
>Je mnohem mnohem rychlejsi 4x dotahnut z tabulky jediny zaznam nez
>provadet takoveto zdlouhave kombinace. Uvedom si, co vsechno se musi
>nakombinovat, kdyz kazda tabulka bude mit pouhych 1000 zaznamu.
>1000 x 1000 x 1000 x 1000 ... a z toho vzejde nakonec par radku.
No tu si hadam myslel cosi ako select * from TableA, TableB. Toto je totiz
karteziansky sucin dvoch tabuliek, teda join o ktorom hovoris ty. Pokial mam
ale
select * from TableA
join on TableB where TableA.ID=TableN.ID, tak toto nie je ten isty join,
podla mna to rozhodne nekombinuje tak ako vravis. Ide o join 1:1 Preco by mi
to inac vratilo 20.000 zapisov ya 5 sekund, ked tych kombinacii by som tam
mal miliardy ? Ak sa nad tym zamyslim, ani nejaky SQL server to nema prave
jednoduche, ak by chcel urobit cosi take, urcite by sa pri tom riadne
zapotil. Naco by potom ten join bol ?
Na druhej strane som kdesi v helpoch cital, ze pokial mas vo where podmienky
tak, ako to vravis ty, BDE to samo pri analyze zisti a ak sa to da previest
na join, tak to spravi join, hoci to mas napisane cez podmienky ... ak tomu
neveris, najdem to vo svojich dokumentoch ... A na potvrdenie tohto som si
skusil RX library, tam je komponenta DBProgress. Ak ju pripojis na takyto
SQL dotaz,
ak mame dotaz
select * from HNIM
join ...
join ...
where ...
zistis, ze ti to najprv vypise vyber cez where, a pobezi to az po celkovo
vybrany pocet riadkov, a potom ti prebehne nejaky cyklus tolkokrat, kolko
joinov tam mas. Teda tu asi postupne pripaja k vybranym riadkom, ktorych uz
nemusi byt tak vela vsetky najoinovane stlpce.
A dalsia vec co ma prekvapila je, ze som to samozrejme skusil prepisat
vsetko cez where. A dostal som presne ten isty vysledok. Ak bolo vo vhere
asi 5 alebo 6 podmienok, islo to velmi rychlo a dobre, ale po pridani dalsej
to okamzite vratilo prazdnu mnozinu.
Dalsi problem bol v tom, ze tam mam vo where TypHIM='N', kde typHim je typ
Char, 1 byte. Ak som tam dal TypHIM='N', islo to O.K., ale ked som zmenil
TypHIM='D', neslo to, resp. vratilo prazdnu mnozinu. Pritom TypHIM nikde
inde v Query pouzita nebola, len TypHIM='D' mal vratit asi tak 10x viac
riadkov ...
Povodne som to urobil preto, lebo som potreboval zobrazit jednu velku
tabulku s poliami branymi z dalsich tabuliek. Tie som povodne dal cez lookup
polia, ktore cerpali z TQuery. Ak som to cele zobrazil v DBGride, velmi
pomaly prekreslovalo obrazovku, hoci na vsetko mam indexy. Preto som urobil
join. Ten ale nesiel pre vacsi pocet tabuliek. Teraz mi to uz chodi,
vyriesil som to tak, ze som TQuery pre vsetky lookup polia prerobil na
TTable, a teraz to ide bleskovo.
>Napis na cem to delas a ja mozna budu vedet, jak ti poradit.
Poprosil by som ta o jednu vec : mas predstavu ako funguju lookup polia ?
Preco mi trva lookup do Query ovela dlhsie ako do TTable ? Ako vseobecne
riesis problem, ked treba spojit vacsi pocet tabuliek a vysledok zobrazit ?
Spojis to do jedneho Query, alebo pouzivas Lookup fields ?
Ahoj,
Peter.HDD factory serial + model number, atd.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.3.1999 20:56:25
Puvodni zprava, kterou napsal Bohuslav Svancara dne 21 Mar 99,:
> Ja o voze, ty o koze.
Ano, mas naprostou pravdu, protoze my uzivatele, kteri chceme program
pouzivat, jsme hovada, zatimco Ty jako autor jsi chudak, ktereho
vsichni okradaji. Ja o tom zcela jiste nemam ani potuchy, protoze
jsem v zivote neudelal zadny program, pripadne jeden ano, a ten mi
hned kazdy ukradl, takze se zivim tim kopanim.
> Z toho, ze me opakovane obvinujes, ze nedodrzuji zakon, ackoli jsem ti na
> tvych vlastnich argumentech dokazal opak, usuzuji, ze mas nejaky problem.
> Zda se, ze nejsi schopen uznat, ze by ten druhy taky mohl mit pravdu.
No jiste ze ano, mas naprostou pravdu. Kdyz krade Venca a Lojza, tak
Ty zase muzes porusovat zakon v jinem odstavci. A ja jsem zakomplexovany
silenec, odhalil jsi me, bojim se nekopirovatelnych disket, hardwarovych
klicu, slunicka i mesicku.
A dal uz trochu vazneji:
> 1. I US zakon povoluje kopirovani pro archivni ucely a pro ochranu pred
> znicenim.
>
> 2. Rada US firem nabizi reseni pro ochranu softwaru pomoci hardwarovych
> klicu, nekopirovatelnych disket a dokonce i nekopirovatelnych CD-ROM.
> Existuje i ciste softwarove reseni. Po tvem vykladu je mi jasne, ze je to
> asi pro ty chudaky, co nemaji jinou ochranu a obavaji se, ze by bez
> ochrany sve prace museli jit kopat kanaly. Jsem na jejich strane.
Ja Ti nediktuji, na ci strane mas stat, neberu Ti Tve nazory, zatimco
Ty ses lehce nstval a misto argumentovani obvinujes. Me je prece uplne
jedno, co Ty pouzivas za ochranu, protoze zatim zadny Tvuj software
nepouzivam. A asi ani pouzivat nebudu. Mas pravo svobodne vyjadrit svuj
nazor a ja mam stejna prava. Navic mam dokonce pravo si zazalohovat
software, za ktery jsem zaplatil. Coz se samozrejme nekterym firmam
moc nelibi, ale to je mi jedno. Kdyz jsem na strane zakaznika, pak si
hajim sva prava jako zakaznik a vubec me nezajima, jestli autor ma
problemy. Bud ten program nekoupim, nebo za to opravdu stoji a pak to
treba preziju.
> 3. Pri instalaci chraneneho softwaru si ti lide dopisuji, telefonuji,
> faxuji nebo e-mailuji. Predstav si! Oni zvedaji telefonni sluchatka, coz
> je tobe tolik proti mysli! Proste se chovaji jako lide, komunikuji spolu a
> spolupracuji ke vzajemnemu prospechu.
Ja mesicne protelefonuji vic penez, nez prumerny kopac vydela, denne
napisi kvanta mailu. Takze v tom to nebude. Bude to zrejme v principu.
Ja totiz nechci v pripade havarie disku telefonovat 35x do USA
a shanet klice nebo nove instalacni diskety, a cekat 14 dni, nez
prijdou. To uz jsem napsal.
> Mozna je to civilizacnim vyvojem. Mozna, ze civilizovany nekradouci
> uzivatel dokaze uznat, ze existuji i zlodeji a ze vyrobce softwaru se
> proti nim musi branit, i kdyz jej osobne to taky bude ponekud obtezovat.
Kdepak, je to uplne obracene. Civilizovany uzivatel dnes jednoduse
chape, ze programatoru je mnoho, konkurence je velika. Takze pokud
me jako uzivatele program obtezuje, a existuje nahrada, pak si misto
upgrade priste koupim ten jiny, ktery me obtezovat nebude. Jako autor
chapu zcela a naprosto pocit, ze Ti nekdo krade program, ale take
jako uzivatel s mnohasettisicovymi investicemi do software chapu,
co to znamena, kdyz me program obtezuje. Jsou uzivatele, kteri si to
libit nechaji, ale pak take ti, kteri si to libit nenechaji. Protoze
mi vadil prisutp autoservisu, kdyz jsem mel Favorita, tak jsem ho
jednosuse prodal a koupil si zahranicni vozidlo, ktere sice bylo
nekolikrat drazsi, zato servis funguje mnohem kvalitneji. Protoze
jako zakaznik si nenecham nadelat na hlavu, ale beru to, co je pro
me jednodussi a lepsi, kdyz si za to platim. Jo a ted nejen ze je
lepsi servis, ale mam take airbagy, ABS, TCS, klimatizaci a okenka
se mi stahuji, kdyz se dotknu cudliku... nemusim kroutit klickou...
Stejne je to i se softwarem. Vyberu si ten, ktery je LEPSI.
> Mozna, ze si uvedomuje, ze je to konec koncu i v jeho zajmu. Mozna, ze
> kulturni clovek nevidi jen sebe a nekrici: JA JSEM TEN SPRAVEDLIVY! JA
> NEKRADU! JA PLATIM! A VY MATE PROBLEMY S TEMI, CO NEJSOU JAKO JA? CO JE MI
> PO TOM!!! JA MAM SVA PRAVA!!! Jejich pristup se mi zda civilizovany. Ano,
> maji take sva prava, ale rekl bych, ze je umeji pouzivat. Asi je jejich
V okamziku, kdy preneses sve problemy na zakaznika, jeste neznamena,
ze zakaznik, ktery to bude tolerovat, je civilizovanejsi nez ten,
kteremu se to nelibi. Tohle je naprosto scestna argumentace. To se
Ti opravdu jen zda, protoze je to pro Tebe lepsi.
> spolecensky vyvoj dovedl k tomu, ze nekde uvnitr vedi, ze tzv. "gramaticky
> vyklad" zakona, ktery se nyni praktikuje u nas, a jak je videt, zapustil
> jiz hluboke koreny, je sice mozny, ale vysledky jsou zalostne. Rekl bych,
Jo, a me zase vyvoj dovedl k tomu, ze kdyz neco koupim, chci to take
pouzivat. Jsem asi necivilizovany, sorry!
> ze kvuli takove hovadine, jako ze budou muset pockat do pondeli rano na
> hot line, kdyz je v patek v noci zasahne vyssi moc, by se nedovolavali
> svych zakonnych prav. Predstava, ze potrebuji okamzite, a pokud mozno
Co by jeste ti zakaznici nechteli, ze? Dobre jim tak! Nemaji vlastne
v nedeli vubec nic delat. Jo, to je naprosto spravny pristup
k zakaznikovi. Ano, ano!
Jako muj znamy... dobre mu tak, co je komu do toho, ze on vstava
po poledni a dela do 6 rano, tedy pres noc. Rozhodl se v noci instalovat
novou 100 MB sit, vymenovat sitove karty za nove. Jeden pocitac ma
Win98 a chybela mu jedna instalacni disketa, kde zrovna byl ten
jeden soubor pro Win98. Takze by si to rad stahl na Internetu, tam
to samozrejme je, jenomze on lehce setril a ma pripojeni do Internetu
u STANDu, ktery nema 24 hodinovou hotline. A jaksi to nefungovalo.
Takze nainstaloval prdlajs a musel cekat do druheho dne odpoledne,
kdy vstal, pripojil se na Internet, stahl treti instalacku a pak to
teprve nainstaloval... Jo, jo, dobre mu tak, nema delat v noci,
vzdyt vlastne ztratil jen nekolik hodin. Ja jsem mu rikal do telefonu,
kdyz jsem s nim kolem 3:00 rano mluvil, ze mam pripojeni u providera,
kde sice platim nekolikrat vic nez on, ale zase tam maji 24 hodinovou
hotline... A rozhodne si priplatim za software, ktery me nebude
obtezovat. Nebudu se muset svych prav doprosovat, ale dostanu je
vsechny automaticky, tak jako u seriozni firmy. A ostatni klidne mohou
rikat, ze nejsem civilizovany.
> paralelne, na vsech svych pocitacich pouzivat veskere sve programove
> vybaveni okamzite potom, co dokonci ve sve do zakladu vyhorele kancelari v
> den pracovniho klidu ve 3 hod rano jejich generalni upgrade, je proste
> smesna. Ano, podle zakona mas pravo toto pozadovat. Je to sice naprosta
Hrozne moc se mi libi, jak v pozici dodavatele rikas, ze ja jako
zakaznik mam zaplatit plnou cenu, ale nemam pozadovat vsechna sva
prava. Chtel bych byti Tvym zakaznikem. Preci jen si asi neco koupim...
> hovadina, ale u soudu s tim uspejes. Pres to ta hovadina zustava stale
> hovadinou. Zadny uzivatel nebo ani to nejvetsi programatorske eso neprijde
> zas az o tak velke penize, kdyz nebude moci pres vikend pouzivat svoje
> programove vybaveni a bude muset pockat do pondelniho rana.
Jiste, ze mas pravdu. To je spravny argument na zakaznika! Jen mu
to rekni jeste pred tim, nez zaplati, protoze pak urcite koupi.
Vsak kdyz jedu do Nemecka a auto tam chcipne, take tech par dni
pockam, kdyby nahodou cely vikend nefungoval mobilni telefon
nebo treba platebni karta nefungovala cely vikendu... Vzdyt
o nic nejde, vikend sem, vikend tam, hlavne ze si autor usetril
praci...
> Ja taky nekradu a taky mam v software hodne penez. Ale nehodlam se nechat
> okradat. A nepozaduji, aby se kvuli mne nechali okradat ostatni. A nez
> zacnu vykrikovat silacke vety o svych pravech, zvednu telefon a zkusim se
> se svym obchodnim partnerem domluvit.
Jenze Ty nejsi muj partner, ja od Tebe nic nemam. Neni na cem se
domlouvat. Rikame tu jen sve nazory, je to diskuse.
> Diskusi s Tebou timto koncim. S puvodnim tematem uz nema nic spolecneho.
Dobra. To jsi mohl rici hned, ze mas genialni ochranny system
a nezajimaji Te pripominky nikoho jineho, co kdyby snad mel
nekdo opacny nazor, nebo snad dokonce chtel dostat za sve penize
plnohodnotny produkt...
> Poslouzila mi, abych si ujasnil a uvedomil:
> 1. Ze neporusuji autorsky zakon.
Jiste :-)
> 2. Ze jsem se za 9 let sveho podnikani setkal zatim jen s lidmi, se
> kterymi jsem se dokazal domluvit na vzajemne spolupraci. Je to
I ja jsem se za 9 let sveho podnikani setkal s lidmi, se kterymi
jsem se dokazal domluvit. Ale naslo se par takovych, se kterymi
take domluva nebyla mozna. Treba nezaplatili fakturu za praci,
kterou jsem udelal. Proto mame zakony... Obcas se mi rozbilo
neco, co jsem si koupil, v zarucni lhute. Tak jsem, sorry, omlouvam
se, vyuzil zakona a nechal to opravit nebo vymenit.
> povznasejici pocit. 3. Ze existuji lide, se kterymi se domluvit nelze, coz
> ale neni nijak nova nebo objevna myslenka. 4. Ze lze pochopit Martina
> Fronka.
Rekni to rovnou a spravne - existuji lide, kteri maji zcela opacny
nazor nez Ty, a stoji si za nim, prestoze jim vyhrozujes Martinem
Fronkem :-))) Takze pak debatu ukoncis, protoze vedle sebe nesneses
opacny nazor. No, na tom neni nic tak divneho, to je bezny jev.
Ja se prece za to na Tebe nezlobim...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
HDD factory serial + model number, atd.
[*] Ing. Marian Winkler <ag.art(zv)iol(tec)cz> - 21.3.1999 22:00:42
Panove, nezlobte se, ze se Vam pletu do debaty,
ale mozna to k necemu bude.
Tema jste rozvedli dokonale, ale co takhle zkusit
neco uz hotoveho.
Komponenta REGAPP
Popis:
Tato komponenta spolupracuje s InstallShield Expres
a d�v� moznost zjistit instalacn� info jako uzivatel, firma
a s�riov� c�slo. D�v� moznost kontroly nad sharewarem,
jako jsou registrace a heslov�n�.
Zdroj: FMI CD-ROM ... Svet DELPHI.(Ale mozna jsem trochu mimo misu a navic - nemam to
odzkouseno) Marian Winkler
ag.art(zv)iol(tec)cz
HDD factory serial + model number, atd.
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.3.1999 22:50:53
> ze kvuli takove hovadine, jako ze budou muset pockat do pondeli rano
na
> hot line, kdyz je v patek v noci zasahne vyssi moc, by se
nedovolavali
> svych zakonnych prav. Predstava, ze potrebuji okamzite, a pokud
mozno
-----
A ja zase vyhodil jedno ucetnictvi z okna jen proto,
ze jsem se nemohl dovolat na vecne obsazeny hot-line.
Koupil jsem jiny. Na trhu jich je dost
-----
> ... hovadinou. Zadny uzivatel nebo ani to nejvetsi programatorske
eso neprijde
> zas az o tak velke penize, kdyz nebude moci pres vikend pouzivat
svoje
> programove vybaveni a bude muset pockat do pondelniho rana.
----
Ja napr. kontroluji ucetnictvi jenom pres vikend .. a jeste spoustu
jinych veci
delam mimo normalni pracovni dobu, protoze v pracovni dobu jsem mezi
zakazniky. Ja mam trochu jinou pracovni dobu a hot-line v pracovni
dobe mi je
na dve veci. Ale dobre v tomto pripade to urcite preziju, pokud to
nebude casto
a jestlize to ucetnictvi je jinak dobre, tak ho asi i koupim. Neni to
tedy tak zasadni
argument v takovemto pripade.
Ty ale pises "zadny uzivatel" .... neprijde .. zaz az tak .... ????
HA, HA
Tvoje predstava o tom, ze kazdy muze pockat do pondeli rano mi pripada
trochu legracni.
1. V pondeli rano to bude beznadejne obsazene, protoze vsichni kdoz
cekali,
ted volaji.
2. Predstav si, ze te z auto-havarky odvezou do nemocnice a doktor ti
rekne, at pockas
do pondeli rano, protoze jim padla sit a bez toho ti nemohou
udelat rentgen,
ultrazvuk ani se podivat na tvuj nalez do pocitace. No protoze
prece az v pondeli
rano zavolaji na hot-line, aby jim dodavatel rekl, co maji delat.
Ale ty muzes byt docela v klidu, protoze mrazaky jeste nejsou
napojeny
na pocitace, tak kdyz nahodou umres, tak bude o tebe postarano.
Pohrebaci muzou
prijet klidne az v pondeli rano.
3. Jen doufam, ze ta atomova elektrarna nebude na HW klic a nebudou ji
ridit
na hot-line.
----
> .... okradat. A nepozaduji, aby se kvuli mne nechali okradat
ostatni. A nez
> zacnu vykrikovat silacke vety o svych pravech, zvednu telefon a
zkusim se
> se svym obchodnim partnerem domluvit.
----
To funguje samozrejme vzdycky dobre a je to moc bezva .... pokud ovsem
zrovna nebezi
o cas a neni stale obsazeno.
Jaro
HDD factory serial + model number, atd.
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 21.3.1999 23:54:21
Hi,
Mirun <forcom(zv)telecom(tec)cz> wrote:
> Vtip je v tom, ze bych nehledal tve pluginy a jine zbesilosti, ale misto
kde
> zjistujes cislo HDD :-)))
Otazkou je, jak bys prisel na to, ze ho vubec potrebujes a jakym zpusobem ho
mas pouzit, tj. konkretne bys musel prijit na to, ze jsou tam nejake
plug-ins, ze jsou zkompresovany a zasifrovany a ze jako klic slouzi machine
digest, jehoz jednu slozku by mohlo tvorit napr. seriove cislo HDD (ve
skutecnosti ho nepouzivam, protoze ho neumim spolehlive zjistit a prestoze
jsem poskytl podklad k tomu IDE Info, tak bych si ho netroufl pouzit).
Ted jeste budu trochu premyslet, jake jsou moznosti monitorovat vnejsi
chovani aplikace a jestli odsud nevede nejaka cesta, jak ochranu prolomit
:-)))
Bye, pf
HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 21.3.1999 18:39:12 -0800
-----Original Message-----
From: Petr Kro�a ml. <pkroca(zv)compact(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 20. b�ezna 1999 7:33
Subject: Re: HDD factory serial + model number, atd.>
>No, nad tim se nemusim moc zamyslet, zkratka me to jen napadlo. Jeste v
dobe
>dosu jsem taky aktivne vyvijel veskere mozne ochrany, vcetne
>nezkopirovatelnych disket. No a problem v tom nevidim. Pokud umis sam tu
>disketu vyrobit, tak logicky mas i kod, ktery muzes pouzit na jeji
>zkopirovani, napr. instalacnim programem.
Mas pravdu. Sam jsem se mel zamyslet. Slo by to.
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 21.3.1999 19:34:27 -0800
-----Original Message-----
From: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 20. b�ezna 1999 6:44
Subject: Re: HDD factory serial + model number, atd.
>>>Prave tim hardwarovym klicem bys to chranit mohl,
>>>protoze klic neni software.
>
>> Prima. Diky za konzultaci. Vsechno je v nejlepsim poradku. Disketa totiz
>> taky neni software. Nekopirovatelna disketa je hardwarovy klic.
>
>Klic aspon bude chodit, disketa se da velmi snadno poskodit, mnohem
>jednoduseji nez disketa. Kdyz vyhoris, je take problem, samozrejme.
Ja o voze, ty o koze.
Z toho, ze me opakovane obvinujes, ze nedodrzuji zakon, ackoli jsem ti na
tvych vlastnich argumentech dokazal opak, usuzuji, ze mas nejaky problem.
Zda se, ze nejsi schopen uznat, ze by ten druhy taky mohl mit pravdu.
Zadal jsem dotaz do AltaVisty a zjistil, ze:
1. I US zakon povoluje kopirovani pro archivni ucely a pro ochranu pred
znicenim.
2. Rada US firem nabizi reseni pro ochranu softwaru pomoci hardwarovych
klicu, nekopirovatelnych disket a dokonce i nekopirovatelnych CD-ROM.
Existuje i ciste softwarove reseni. Po tvem vykladu je mi jasne, ze je to
asi pro ty chudaky, co nemaji jinou ochranu a obavaji se, ze by bez ochrany
sve prace museli jit kopat kanaly. Jsem na jejich strane.
3. Pri instalaci chraneneho softwaru si ti lide dopisuji, telefonuji, faxuji
nebo e-mailuji. Predstav si! Oni zvedaji telefonni sluchatka, coz je tobe
tolik proti mysli! Proste se
chovaji jako lide, komunikuji spolu a spolupracuji ke vzajemnemu prospechu.
Mozna je to civilizacnim vyvojem. Mozna, ze civilizovany nekradouci uzivatel
dokaze uznat, ze existuji i zlodeji a ze vyrobce softwaru se proti nim musi
branit, i kdyz jej osobne to taky bude ponekud obtezovat. Mozna, ze si
uvedomuje, ze
je to konec koncu i v jeho zajmu.
Mozna, ze kulturni clovek nevidi jen sebe a nekrici: JA JSEM TEN
SPRAVEDLIVY! JA
NEKRADU! JA PLATIM! A VY MATE PROBLEMY S TEMI, CO NEJSOU JAKO JA? CO JE MI
PO TOM!!! JA MAM SVA PRAVA!!! Jejich pristup se mi zda civilizovany. Ano,
maji take sva prava, ale rekl bych, ze je umeji pouzivat. Asi je jejich
spolecensky vyvoj dovedl k tomu, ze nekde uvnitr vedi, ze tzv. "gramaticky
vyklad" zakona, ktery se nyni praktikuje u nas, a jak je videt,
zapustil jiz hluboke koreny, je sice mozny, ale vysledky jsou zalostne. Rekl
bych, ze kvuli takove hovadine, jako ze budou muset pockat do pondeli rano
na hot line, kdyz je v patek v noci zasahne vyssi moc, by se nedovolavali
svych zakonnych prav. Predstava, ze potrebuji okamzite, a pokud mozno
paralelne,
na vsech svych pocitacich pouzivat veskere sve programove vybaveni okamzite
potom, co
dokonci ve sve do zakladu vyhorele kancelari v den pracovniho klidu ve 3
hod rano jejich generalni upgrade, je proste smesna. Ano, podle zakona mas
pravo
toto pozadovat. Je to sice naprosta hovadina, ale u soudu s tim uspejes.
Pres to ta hovadina zustava stale hovadinou. Zadny uzivatel nebo ani to
nejvetsi programatorske eso neprijde zas az o tak velke penize, kdyz nebude
moci pres vikend pouzivat svoje programove vybaveni a bude muset pockat do
pondelniho rana.
Ja taky nekradu a taky mam v software hodne penez. Ale nehodlam se nechat
okradat. A nepozaduji, aby se kvuli mne nechali okradat ostatni. A nez zacnu
vykrikovat silacke vety o svych pravech, zvednu
telefon a zkusim se se svym obchodnim partnerem domluvit.
Diskusi s Tebou timto koncim. S puvodnim tematem uz nema nic spolecneho.
Poslouzila mi, abych si ujasnil a uvedomil:
1. Ze neporusuji autorsky zakon.
2. Ze jsem se za 9 let sveho podnikani setkal zatim jen s lidmi, se kterymi
jsem se dokazal domluvit na vzajemne spolupraci. Je to povznasejici pocit.
3. Ze existuji lide, se kterymi se domluvit nelze, coz ale neni nijak nova
nebo objevna myslenka.
4. Ze lze pochopit Martina Fronka.
S pozdravem
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 21.3.1999 19:34:48 -0800
-----Original Message-----
From: OceaniC <pleticha(zv)kol1.kolej.ujep(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 20. b�ezna 1999 11:53
Subject: Re: HDD factory serial + model number, atd.>ta 2 detekce se tyka sitove karty....
Ano. Pokud je v pocitaci sitova karta, tak to funguje.
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
Zjisteni barvy pixelu
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 22.3.1999 06:53:40
Ahoj,
nevim, jestli to Delphi nejak zapouzdruje, ale v API je funkce
GetPixel(HandleDC, X, Y), ktera vraci RGB pixelu na souradnicich [X,Y].
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Ondrej Salplachta [SMTP:o.salplachta(zv)iol(tec)cz]
> Odesl�no: 20. b�ezna 1999 16:49
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Zjisteni barvy pixelu
>
> Dobry den,
> chtel bych se zeptat, jestli nekdo nevite, jak se da zjistit barva
> pixelu na urcitych souradnicich na obrazovce.
> Dekuji
> �
> Ondrej Salplachta
> o.salplachta(zv)iol(tec)cz <mailto:o.salplachta(zv)iol(tec)cz>Off - Struktura hlavicky JPEG
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 22.3.1999 07:01:41
Ten format nevim, ale na jednom lonskem CD v Chipu (tipuju tak cerven)
byl program s nazvem asi tak "1000 formatu" nebo tak nejak podobne a tam
byl popis vseho mozneho. JPEG se tam urcite najde taky.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************> -----P�vodn� zpr�va-----
> Od: Petr Kro�a ml. [SMTP:pkroca(zv)compact(tec)cz]
> Odesl�no: 21. b�ezna 1999 15:19
> Komu: Delphi KONFERENCE
> P�edm�t: Off - Struktura hlavicky JPEG
>
> Ahoj, omlouvam se za offtopic.
> Nemate, prosim vas, nekdo popis struktury hlavicky obrazku JPEG.
> Potrebuji
> ze souboru obrazku zjistit jeho sirku a vysku. Tato informace je vsak
> v
> kazdem typu souboru JPEG (jiny pocet barev atd..) na jinem miste.
> Potreboval
> bych proto popis formatu, abych mohl data nacitat inteligentne a ne
> tak, ze
> si podle nejakeho sporneho znaku zjistim, zda je to ten ci onen format
> a pak
> se nastavim na urcitou pozici v souboru.
>
> Diky
> PK
HDD factory serial + model number, atd.
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 22.3.1999 08:05:07
Jaro napsal(a) toto:
> Ty ale pises "zadny uzivatel" .... neprijde .. zaz az tak .... ????
> HA, HA
> Tvoje predstava o tom, ze kazdy muze pockat do pondeli rano mi pripada
> trochu legracni.
>
> 2. Predstav si, ze te z auto-havarky odvezou do nemocnice a doktor ti
> rekne, at pockas
> do pondeli rano, protoze jim padla sit a bez toho ti nemohou
> udelat rentgen,
> ultrazvuk ani se podivat na tvuj nalez do pocitace. No protoze
> prece az v pondeli
> rano zavolaji na hot-line, aby jim dodavatel rekl, co maji delat.
> Ale ty muzes byt docela v klidu, protoze mrazaky jeste nejsou
> napojeny
> na pocitace, tak kdyz nahodou umres, tak bude o tebe postarano.
> Pohrebaci muzou
> prijet klidne az v pondeli rano.
>
Toto je trochu prehnane. I kdyz v nemocnici padne sit (v nemocnici
delam, a opravdu se to semtam stane), doktori se zastavit nemuzou, a
pracuji dale. Sice zuri, ze pak musi do pocitace vsechno dopisovat zpetne,
ze musi nekde hledat psaci stroj, ze si o vysledky musi telefonovat, ale
rozhodne se nemuze stat vyse uvedene. A co se tak pohybuju i po jinych
nemocnicich, zjistuju, ze je to vsude tak. Vsichni cekaji tak 10 min.,
jestli sit nenaskoci, a kdyz ne, vytahnou psaci stroj ;)))))
A co se hot-line tyce... nemam s zadnou dobre zkusenosti. Vzdycky kdyz
jsem potreboval neco vedet, tak jsem se dozvedel velky kulovy (a to i
kdyz jsem mel problem s celkem drahym softem (23 tis. Kc), ktery po
nainstalovani upgradu zacal blbnout, a z podpory prisla odpoved stylu "nam
to funguje" a ani naznak toho, ze by to chteli nejak resit). Takze hotline
bych jako nejakou velkou vyhodu nebral.
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
Filter on DATE
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.3.1999 08:07:26
> -----Original Message-----
> From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
> Sent: Saturday, March 20, 1999 5:43 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Filter on DATE
>
>
> Puvodni zprava, kterou napsal Brcko dne 20 Mar 99,:
>
> > Asi som to nepochopil. Filter je typu string. Ako tam mozem narvat =
> > TDateTime.
>
> Ach jo. A Delphi mas? Ja ze jsem tam napsal tohle:
>
> VYRIZENO > 20.1.1999
>
> a chodi to. Mozna to zavisi jeste na formatu nastaveni data na
> tom kterem pocitaci, to z hlavy nevim. Ale mnohdy staci vyzkouset,
> jesti to nahodou nejde...
>
No jo, to ja jsem taky neco vyzkousel a jede mi to.
Konkretne IS NULL. Filter to vezme a chodi to, neni mi ale jasne,
jakym zpusobem se ma filter nastavovat. V helpu jsem zadny popis nenasel,
neni ani jasne, jakym zpusobem a co to vyhodnocuje.
Nejdriv jsem myslel, ze to pouziva pascalskou syntaxi,
ale to IS NULL me vyvedlo z bludu.
Nevite nekdo, jestli Filter vyhodnocuje Delphi, BDE, nebo databaze?
Pripadne jake mohu pouzivat funkce? Pro datum treba pouzivam
nejradeji nejakou funkci Date(Year, Month, Day), jinak jsem velmi
neduverivy. Samozrejme to mohu vyzkouset, ale to neni presne to prave
orechove.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Off - Struktura hlavicky JPEG
[*] David Hrbac <hrbac.david(zv)usa(tec)net> - 22.3.1999 08:08:45
viz http://www.wotsit.org/
David Hrbac
-----P�vodn� zpr�va-----
Od: Petr Kro�a ml. <pkroca(zv)compact(tec)cz>
Komu: Delphi KONFERENCE <delphi-l(zv)fwd(tec)cz>
Datum: 21. b�ezna 1999 15:30
P�edm�t: Off - Struktura hlavicky JPEG
>Ahoj, omlouvam se za offtopic.
>Nemate, prosim vas, nekdo popis struktury hlavicky obrazku JPEG. Potrebuji
>ze souboru obrazku zjistit jeho sirku a vysku. Tato informace je vsak v
>kazdem typu souboru JPEG (jiny pocet barev atd..) na jinem miste.
Potreboval
>bych proto popis formatu, abych mohl data nacitat inteligentne a ne tak, ze
>si podle nejakeho sporneho znaku zjistim, zda je to ten ci onen format a
pak
>se nastavim na urcitou pozici v souboru.
>
>Diky
>PK
>
PATH k souboru
[*] lukas.kubasek(zv)post(tec)cz - 22.3.1999 08:17:17
Potrebuji nejakou funkci na zjisteni cesty k souboru EXE, ktery je spusteny. Kdyz spustim EXE p��mo, da se pouzit ExtractFileName (nebo jak se ta funkce jmenuje).
Kdyz ale spustim soubor "dalkov�" (nap�. p�es DOSovs� .BAT z jin�ho adresare), vyse zminena funkce nefunguje.
Uvitam cokoliv. Predem dekuji.
Odpovezte prosim na: mouser33(zv)atlas(tec)cz
Pozice kurzoru
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 22.3.1999 08:37:39
Ahoj
zjisteni pozice "kurzoru" v RichEditu se provede:
.
.
var
p: TPoint;
begin
SendMessage(RichEdit.handle,EM_POSFROMCHAR ,wParam((zv)p),RichEdit.SelStart);
.
.
>mam na formu TRichEdit, pisu v nem a chci na pozici kurzoru zobrazit
>ListView (viz editor Delphi Ctrl+J)
sam jsem resil podobny problem, ale ve mrizce, na stisk klavesove zkratky se
zobrazi form s listboxem
a v nem nejake informace. Aby nedochazelo k deaktivaci formu s mrizkou, tak
jsem ve formu s listboxem
osetril zpravu WM_ACTIVATE:
procedure WMActivate (var Message: TWMActivate); message WM_ACTIVATE;
.
.
procedure TForm2.WMActivate (var Message: TWMActivate);
begin
if Message.Active <> WA_INACTIVE then
TForm(Owner).Perform (WM_NCACTIVATE, 1, 0);
inherited;
end;
toto funguje za predpokladu, ze Form2 je vytvoren :
Form2:=TForm2.Create(Form1);
Form2.Show;
Zdenek Fryz
elementarny problem s C/S
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.3.1999 08:43:11
> -----Original Message-----
> From: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
> Sent: Sunday, March 21, 1999 11:12 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: elementarny problem s C/S
>
>
> Jaro wrote:
>
> > Zjistim si jeho ICO a uz mam jedinecnost. Moznosti je vsak vice.
> > Pri zadavani noveho zakaznika se ICO a DIC kontroluje,
> protoze pak se
> > jedna o stejny
> > subjekt.
>
> Jasne, neuvedomil jsem si, ze vkladas i ICO.
>
Ale vkladas ho opakovane, uzivatel ho muze menit. => chyby
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Memo polozka z Table v udalosti Table FilterRecord
[*] jdanek(zv)fnbrno(tec)cz - 22.3.1999 09:58:15
Ahojte,
Pracuji s D3 a s databazi typu Table1.DBF. Mam tam Memo polozku PolMemo.
Nastavuji-li Filter pro databazi Table1.dbf v udalosti Table1FilterRecord,
nedovoluje mi to pouzit v teto udalosti prave Memo polozku PolMemo.
Da se to nejak obejit pripadne udelat jinym zpusobem ci to nelze takto
vubec s polozkou z databaze typu Memo delat?
takto to mam a nejde mi to:
procedure DmData.Table1FilterRecord(DataSet: TDataSet;var Accept: Boolean);
var AllStr : String;
begin
AllStr:=DmData.Table1.FieldByName('PolMemo').AsString;
Accept:=Pos(FindStr,AllStr) > 0; (* Hledam SubString *)
end;
var FindStr : String; je globalni string, ve kterem je prirazen hledany
retezec
Prosim o radu. Diky za kazdou odpoved.
Jozka
jdanek(zv)fnbrno(tec)cz
Jak pouzivat TQuery + TUpdateSQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.3.1999 09:00:52
> -----Original Message-----
> From: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Sent: Sunday, March 21, 1999 4:51 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Jak pouzivat TQuery + TUpdateSQL
>
>
> Aha .... zase o duvod vic proc prejit na C/S.
> Ale vazne. V tom pripade me nenapada nic chytrejsiho nez udelat
> vzdy pro jeden prikaz Open, Close, vymenit SQL.Text a znovu Open ...
> a tak dal az do vitezneho konce.
> Jaro.
Open a Close ???
Snad Execute, ne?
Pokud si vzpominam, na zacatku byla rec o CREATE TABLE, tak na co Open? :-/
A nedela problemy vice prikazu SQL pouze, kdyz se snazim pouzit Open?
Ocekaval bych, ze pro Execute bude TQuery umet i vice prikazu. Nevim to ale,
nezkousel jsem.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!HDD factory serial + model number, atd.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.3.1999 09:05:06
>Pokud to Tvi zakaznici kupuji a akceptuji, tak to delej. Me by
se
>vubec nelibilo Ti obcas volat... I kdyz muze to byt bezva si
pokecat
>ve 3 rano, kdyz treba upgraduji pocitac...
Petre, prosim Te, uz toho nech, porad mluvis o autorskem
zakonu, o tom, ze kdyz se disketa znici... Kdyz se Ti
znici HW klic, taky nebudes rano ve tri nikam volat. Kdyz
Ti shori instalacni CD (treba s Delphi) a Ty zrovna ted,
ted hned budes chtit naistalovat IS Expres (protoze na to
mas pravo), taky se ve tri rano nikam nedovolas. (mozna do US,
treba tam jeste nekoho chytis, ale stejne Ti nepomuzou :-)
//Tady bude namitka - nemusim nikam volat, protoze mam CD
zalohovane (-ale v bance a tam se ve tri rano taky nedostanes)
Takze pokud Ti s timto CD shori i HW klic, je to stejne,
jako kdyz Ti shori nekopirovatelna disketa.
Navic, nekopirovatelna disketa neporusuje autorsky zakon !!!
V zakone se jedna o program - a disketu lze tezko povazovat
za program, ze ? (treba 3 1/2" programova mechanika :-)))
(�15 pis. 2,4,5 a 6 (s tim souvisi i �13 pis. 2)) Takze
disketu povazuj za HW klic a je to uplne stejne.
Dale si myslim si, ze kdyby si zakaznik pozadal o dve
diskety, ze by je dostal.
Dobra.PATH k souboru
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.3.1999 09:27:39
Puvodni zprava, kterou napsal lukas.kubasek(zv)post(tec)cz dne 22 Mar 99,:
> Potrebuji nejakou funkci na zjisteni cesty k souboru EXE, ktery je
> spusteny. Kdyz spustim EXE p��mo, da se pouzit ExtractFileName (nebo jak
> se ta funkce jmenuje). Kdyz ale spustim soubor "dalkov�" (nap�. p�es
ExtractFileName nic nezjistuje.
> DOSovs� .BAT z jin�ho adresare), vyse zminena funkce nefunguje.
Tak zkus treba Application.ExeName.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Filter on DATE
[*] Marek Soukup <marek(zv)comberg(tec)com> - 22.3.1999 09:46:14
Ahoj,
nevim to teda na sto procent, ale spolehnul bych se na standard SQL v tom
filtru.
Marek Soukup
Polak Jiri wrote:
> > -----Original Message-----
> > From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
> > Sent: Saturday, March 20, 1999 5:43 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Filter on DATE
> >
> >
> > Puvodni zprava, kterou napsal Brcko dne 20 Mar 99,:
> >
> > > Asi som to nepochopil. Filter je typu string. Ako tam mozem narvat =
> > > TDateTime.
> >
> > Ach jo. A Delphi mas? Ja ze jsem tam napsal tohle:
> >
> > VYRIZENO > 20.1.1999
> >
> > a chodi to. Mozna to zavisi jeste na formatu nastaveni data na
> > tom kterem pocitaci, to z hlavy nevim. Ale mnohdy staci vyzkouset,
> > jesti to nahodou nejde...
> >
>
> No jo, to ja jsem taky neco vyzkousel a jede mi to.
> Konkretne IS NULL. Filter to vezme a chodi to, neni mi ale jasne,
> jakym zpusobem se ma filter nastavovat. V helpu jsem zadny popis nenasel,
> neni ani jasne, jakym zpusobem a co to vyhodnocuje.
> Nejdriv jsem myslel, ze to pouziva pascalskou syntaxi,
> ale to IS NULL me vyvedlo z bludu.
> Nevite nekdo, jestli Filter vyhodnocuje Delphi, BDE, nebo databaze?
> Pripadne jake mohu pouzivat funkce? Pro datum treba pouzivam
> nejradeji nejakou funkci Date(Year, Month, Day), jinak jsem velmi
> neduverivy. Samozrejme to mohu vyzkouset, ale to neni presne to prave
> orechove.
>
> Jiri Polak
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web :http://freeweb.coco(tec)cz/jpolak
> ----------
> The only good bug, is a dead bug!HDD factory serial + model number, atd.
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.3.1999 10:05:24
> -----Original Message-----
> From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: Monday, March 22, 1999 9:05 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: HDD factory serial + model number, atd.
>
>
> >Pokud to Tvi zakaznici kupuji a akceptuji, tak to delej. Me by
> se
> >vubec nelibilo Ti obcas volat... I kdyz muze to byt bezva si
> pokecat
> >ve 3 rano, kdyz treba upgraduji pocitac...
>
> Petre, prosim Te, uz toho nech, porad mluvis o autorskem
> zakonu, o tom, ze kdyz se disketa znici... Kdyz se Ti
> znici HW klic, taky nebudes rano ve tri nikam volat. Kdyz
> Ti shori instalacni CD (treba s Delphi) a Ty zrovna ted,
> ted hned budes chtit naistalovat IS Expres (protoze na to
> mas pravo), taky se ve tri rano nikam nedovolas. (mozna do US,
> treba tam jeste nekoho chytis, ale stejne Ti nepomuzou :-)
> //Tady bude namitka - nemusim nikam volat, protoze mam CD
> zalohovane (-ale v bance a tam se ve tri rano taky nedostanes)
> Takze pokud Ti s timto CD shori i HW klic, je to stejne,
> jako kdyz Ti shori nekopirovatelna disketa.
To je pekne srovnani. Uz jsem za svuj zivot znicil asi 200
CD-cek, kdezto vsechny diskety, ktere jsem kdy mel, jsou OK.
Nebo to bylo naopak? No zkratka neco v tom smyslu :-)
> Navic, nekopirovatelna disketa neporusuje autorsky zakon !!!
> V zakone se jedna o program - a disketu lze tezko povazovat
> za program, ze ? (treba 3 1/2" programova mechanika :-)))
> (�15 pis. 2,4,5 a 6 (s tim souvisi i �13 pis. 2)) Takze
> disketu povazuj za HW klic a je to uplne stejne.
Samozrejme zabranovat kopirovat disketu nemusis, to umi snad
jen Majka co spadla z oblakov. Kopirovanim diskety asi vsichni
az na Tebe mysli kopirovani jejiho obsahu - tedy program a data.
Disketa neni HW klic, to je pouze nosic informace. Po instalaci
muzes disketu odlozit, kdezto klic musis mit zapojen pri pouzivani
programu (nebo to delas jinak?). Pokud bys vyzadoval vlozenou
disketu pri behu programu, zvysujes riziko jejiho poskozeni.
A v kombinaci s nekopirovatelnosti .... :-o
Koupil jsem si jednou program. Vyzadoval, aby pri behu bylo v mechanice
vlozeno CD. Kdyz jsem to zjistil (samozrejme az po instalaci),
byl jsem dost otravenej, protoze vzdycky musim vyndat hudebni CD,
vlozit instalacni a po dobu prace s programeme nemuzu poslouchat hudbu.
Kdyz se objevila nova verze, zajimal jsem se o jeji omezeni.
Je stejne. Kdyz jsem kontaktoval vyrobce s tim, ze toto omezeni nechci,
at mi, treba za priplatek, prodaji verzi, ktera to omezeni nema,
byl jsem odmitnut s tim, ze takovou verzi dostavaji pouze smluvni
testeri. A pritom ani nevyvratili muj argument, ze v dobe, kdy
vypaleni kopie CD nestoji ani 10% ceny programu, je takovato ochrana
nesmysl.
Jaky byl vysledek? Novou verzi jsem si nekoupil, ale mam ji kradenou,
a muzu ji pouzivat i s hudbou. Jsem spatnej?
Souhlasim s Petrem, ze nekopirovatelne diskety jsou zverstvo (doufam,
ze mne nekdo napadne, ze jsem vulgarni). Dal si myslim, ze zadny
SW by nemel omezovat legalni uzivatele ani jinym zpusobem - viz predchozi
priklad. A nakonec si myslim, ze penize venovane na vyvoj preventivni
ochrany proti piratum jsou vyhozene oknem.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!RxRichEdit.Print ...co s tim?
[*] Jan Linhart <delphi(zv)mis-net(tec)cz> - 22.3.1999 10:12:41
Zdar,
Nezkouseli jste nekdo tisknout z RX-kovyho RichEditu ?
Je v tom neco pokazene.... nepodarilo se nekomu vypor�dat se s touto
chybou?
Predem diky za z�chranu
..........Honza
stisk klavesy primitivne
[*] Zbynek Ceska <zbyces(zv)physics.muni(tec)cz> - 22.3.1999 10:16:49
Poetrboval bych pomoci s nasledujici blockem v programu v D4.:
if MessageDlg('Jsi pripraven ?',mtWarning,mbYesNoCancel,1)=mrYes then
begin;
polohaY:=0;konec:=false;
repeat
polohaY:=polohaY+1;
polohaX:=0;
repeat
polohaX:=polohaX+1;
Form27.Image2.Left:=polohaX*8;Form27.Image2.Top:=polohaY*8;
Form27.Image2.Refresh;
Form27.Image1.Refresh;
Form27.Show;
if KeyPressed then konec:=true; {###### SPORNE MISTO !!!!! ######}
until (polohaX=92)or(konec);
until (polohaY=65)or(konec);
end;
Ja vim, ze prikaz KeyPressed neexistuje tak, jak existoval v Pascalu, ale
muzete mi nekdo nejak jednoduse poradit, aniz bych se musel patlat v
nejakych eventsech. A kdyz to musi byt s events, muzete mi nekdo poradit,
jak to udelat a treba mi to i primo do toho programku napsat. Ja vim, ze
uz to tu bylo, ale ja tomu nejak nerozumim.
Diky moc za kazde slovo, ktere aspon trochu pomuze.
Zbynek Ceska.*************************************************************************
** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
** Plasma Physics ** High Technology Physics ** Microwave Physics **
*************************************************************************HDD factory serial + model number, atd.
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 22.3.1999 10:25:03
Konecne neco k Delphi :-). Pridam dnesi info z DSP update:
http://SunSITE.ICM.edu.pl/delphi/ftp/tools/sacstr02.zip (279,428 bytes)
SACSLite - utility that protects Delphi 3/4 programs from
illegal copying. SACSLite does not use a call of some checking
routine, instead it uses encryption to protect Delphi
executables. ( ver. 0.2, no src. ) ( FREEWARE ) by Oleg
Soubatchev
Taky mozna mimo misu a taky nemam odzkouseno ;-)
Mac
"Ing. Marian Winkler" wrote:
> Komponenta REGAPP
> Popis:
> Tato komponenta spolupracuje s InstallShield Expres
> a d�v� moznost zjistit instalacn� info jako uzivatel, firma
> a s�riov� c�slo. D�v� moznost kontroly nad sharewarem,
> jako jsou registrace a heslov�n�.
>
> Zdroj: FMI CD-ROM ... Svet DELPHI.
>
> (Ale mozna jsem trochu mimo misu a navic - nemam to
> odzkouseno)
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
RxRichEdit.Print ...co s tim?
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 22.3.1999 10:31:46
:-) No zrovna mam stejny problem. Vypada to, ze RxRichEdit z RxLib 2.60
pouziva riched20.dll - tzn. umi obrazky, indexy, podtrhavani apod.
srandicky. Z QuickReportu to tiskne ok. Bohuzel QR je pro tisk techto
poli dost nesikovny (pomaly atd)., takze na to pouzivame Sinea sestavy.
Ty s timto maji ovsem pri tisku taky problem, ale uz jsem dal echo
Jarovi a podle poslednich informaci to snad nebude takovy problem a
podari se to rozchodit. Necham se prekvapit (kazdopadne - TOMU ja rikam
technicka podpora!!!). Diky chlapi...a drzim palce.
Mac
Jan Linhart wrote:
> Nezkouseli jste nekdo tisknout z RX-kovyho RichEditu ?
> Je v tom neco pokazene.... nepodarilo se nekomu vypor�dat se s touto
> chybou?
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
HDD factory serial + model number, atd.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.3.1999 10:48:30
>Samozrejme zabranovat kopirovat disketu nemusis, to umi snad
>jen Majka co spadla z oblakov. Kopirovanim diskety asi vsichni
>az na Tebe mysli kopirovani jejiho obsahu - tedy program a
data.
>Disketa neni HW klic, to je pouze nosic informace. Po instalaci
>muzes disketu odlozit, kdezto klic musis mit zapojen pri
pouzivani
>programu (nebo to delas jinak?). Pokud bys vyzadoval vlozenou
>disketu pri behu programu, zvysujes riziko jejiho poskozeni.
>A v kombinaci s nekopirovatelnosti .... :-o
Bohuzel, to jsi to nepochopil... Program muzes dodavat
napr. na CDRom, a disketu nepouzijes, jako nosic dat,
ale jako HW klic. Vyhoda takoveho klice je, ze le levny,
snadno vymenitelny (staci zmacknout to tlacitko na kejsu
a vyjede ven :-) A k te poznamce s Majkou, skoro mam
chut Ti poslat jeden program, jednu disketu a zkus udelat
jinou, kterou ten program uzna, jsem na Tebe zvedavej...
S tim, ze nektere programy vyzaduji instalacni CD v mechanice,
to se mi taky nelibi a omezuje to praci uzivatele, a souhlasim
s Tebou. Nekopirovatelna disketa (pro Tebe-HW klic v podobe
diskety) takoveto omezeni mit nemusi a muze se pozadovat
napr. jen pri stratu programu a debata, co tu ted (uz zcela
nesmyslne) vedeme se tyka toho, co kdyz se ta disketa znici,
co pak... No totez, jako kdyz se Ti znici std. HW klic.
>Jaky byl vysledek? Novou verzi jsem si nekoupil, ale mam ji
kradenou,
>a muzu ji pouzivat i s hudbou. Jsem spatnej?
Podle me ano. Ne Ty, jako clovek, osobne si myslim, ze
vubec spatnej nejsi, ale to kradeni ano. Znam cloveka,
ktery mel stejny problem, program koupil a potom si ho
nechal cracknout, aby toto omezeni nemel.
>Souhlasim s Petrem, ze nekopirovatelne diskety jsou zverstvo
(doufam,
>ze mne nekdo napadne, ze jsem vulgarni).
Ja sice zatim zadne programy neprodavam, takze me piratsvvi
zatim netrapi, ale rekl bych, ze krast je mnohem, mnohem
vetsi zverstvo.
> >Dal si myslim, ze zadny SW by nemel omezovat legalni uzivatele
>ani jinym zpusobem - viz predchozi priklad.
Divej se na to tak, ze kdyz chces penize
z banky, musis zadavat PIN (v pripade vyberu z karty), musis
strkat klicky do auta, do zamku u bytu-to te preci taky omezuje,
ne ? Ale taky souhlasim, ze by to nemelo obtezovat toho, kdo
si program koupim, ale toho, kdo ho chce ukradnout.
Dobra.stisk klavesy primitivne
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.3.1999 11:02:56
A co zkusit nastavit na formu KeyPreview = True a v OnKeyPress
si nastavit Konec na True. Pak ti radek z KeyPress uplne vypadne a chodit by
to melo stejne. Pouze Konec musis nadefinovat v ramci objektu formu napr. do
sekce Private.>
>Poetrboval bych pomoci s nasledujici blockem v programu v D4.:
>
>if MessageDlg('Jsi pripraven ?',mtWarning,mbYesNoCancel,1)=mrYes then
>begin;
> polohaY:=0;konec:=false;
> repeat
> polohaY:=polohaY+1;
> polohaX:=0;
> repeat
> polohaX:=polohaX+1;
> Form27.Image2.Left:=polohaX*8;Form27.Image2.Top:=polohaY*8;
> Form27.Image2.Refresh;
> Form27.Image1.Refresh;
> Form27.Show;
> if KeyPressed then konec:=true; {###### SPORNE MISTO !!!!! ######}
> until (polohaX=92)or(konec);
> until (polohaY=65)or(konec);
>end;
>
>Ja vim, ze prikaz KeyPressed neexistuje tak, jak existoval v Pascalu, ale
>muzete mi nekdo nejak jednoduse poradit, aniz bych se musel patlat v
>nejakych eventsech. A kdyz to musi byt s events, muzete mi nekdo poradit,
>jak to udelat a treba mi to i primo do toho programku napsat. Ja vim, ze
>uz to tu bylo, ale ja tomu nejak nerozumim.
>
> Diky moc za kazde slovo, ktere aspon trochu pomuze.
>
> Zbynek Ceska.
>
>*************************************************************************
> ** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
> ** Plasma Physics ** High Technology Physics ** Microwave Physics **
>*************************************************************************id procesu
[*] V. Nikel <vladimir.nikel(zv)vitkovice(tec)cz> - 22.3.1999 10:15:12
Dobry den,
nevite nekdo jak by se dalo zjistit handle libovolneho procesu,
pokud znam handle nektereho z jeho oken?
Diky
VN
HDD factory serial + model number, atd.
[*] Marek Soukup <marek(zv)comberg(tec)com> - 22.3.1999 11:17:41
Ahoj,
cracknout de vsechno, je to otazka casu a penez. Se zasifrovanim je to stejny.
Otazkou je stoji to za to ? A moje otazka, je tenhle problem vazne problem
souvisejici s Delphi ? Nechcete to presunout do konference Zivot, vesmir a vubec
?
Marek Soukup
Petr Fejfar wrote:
> Hi,
>
> Mirun <forcom(zv)telecom(tec)cz> wrote:
>
> > Vtip je v tom, ze bych nehledal tve pluginy a jine zbesilosti, ale misto
> kde
> > zjistujes cislo HDD :-)))
>
> Otazkou je, jak bys prisel na to, ze ho vubec potrebujes a jakym zpusobem ho
> mas pouzit, tj. konkretne bys musel prijit na to, ze jsou tam nejake
> plug-ins, ze jsou zkompresovany a zasifrovany a ze jako klic slouzi machine
> digest, jehoz jednu slozku by mohlo tvorit napr. seriove cislo HDD (ve
> skutecnosti ho nepouzivam, protoze ho neumim spolehlive zjistit a prestoze
> jsem poskytl podklad k tomu IDE Info, tak bych si ho netroufl pouzit).
>
> Ted jeste budu trochu premyslet, jake jsou moznosti monitorovat vnejsi
> chovani aplikace a jestli odsud nevede nejaka cesta, jak ochranu prolomit
> :-)))
>
> Bye, pf
M.F. and HDD factory serial + model number, atd.
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 22.3.1999 11:27:53
-----Puvodni zprava-----
Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
Odeslano: 21. boezna 1999 20:56
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: HDD factory serial + model number, atd.
<lidi pisou>
... 4. Ze lze pochopit Martina Fronka.
Rekni to rovnou a spravne - existuji lide, kteri maji zcela opacny
nazor nez Ty, a stoji si za nim, prestoze jim vyhrozujes Martinem
Fronkem :-)))
[Viktor] A kde vlastne je? Uz se dlouho neukazal! Bez nej to nejak nema stavu, tahle konference. Kde jsi, o pane?RxRichEdit.Print ...co s tim?
[*] Libor Valka <valka(zv)brno.cas(tec)cz> - 22.3.1999 11:31:32
Ahoj,
mozna by bylo dobre, kdybys uvedl, s jakou chybou...
Libor
valka(zv)brno.cas(tec)cz
valka(zv)ipm(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele Jan
> Linhart
> Odesl�no: 22. b�ezna 1999 10:13
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RxRichEdit.Print ...co s tim?
>
> Zdar,
>
> Nezkouseli jste nekdo tisknout z RX-kovyho RichEditu ?
> Je v tom neco pokazene.... nepodarilo se nekomu vypor�dat se s touto
> chybou?
>
> Predem diky za z�chranu
>
> ..........Honza
>stisk klavesy primitivne
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 22.3.1999 11:43:29
Takze:
1. do definice formulare Form27 si pridej do sekce public KP:Boolean;
2. Pri aktivnim Form27 udelej v Inspektoru doubleclick na udalost
OnKeyDown a do vygenerovane metody napis KP:=True;
3. Tebou uvedenou cast procedury nazyvejme Posun
4. Na zacatku Posunu napis:
Form27.ActiveControl := nil;
Form27.KP := false;
Identifikator Konec nebudes potrebovat.
5. Podminky na konci budou:
until (polohaX=92)or(Form27.KP);
until (polohaY=65)or(Form27.KP);
6. Tebou uvedenou problemovou radku vymaz a misto ni napis:
Application.ProcessMessages;
Tot vse.
Ne, ze by to neslo spoustou jinych cest .......Jak zn�m amat�ra Petra
...... :-)
Mira
-----P�vodn� zpr�va-----
Od: Zbynek Ceska <zbyces(zv)physics.muni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 10:30
P�edm�t: stisk klavesy primitivne
>
>Poetrboval bych pomoci s nasledujici blockem v programu v D4.:
>
>if MessageDlg('Jsi pripraven ?',mtWarning,mbYesNoCancel,1)=mrYes then
>begin;
> polohaY:=0;konec:=false;
> repeat
> polohaY:=polohaY+1;
> polohaX:=0;
> repeat
> polohaX:=polohaX+1;
> Form27.Image2.Left:=polohaX*8;Form27.Image2.Top:=polohaY*8;
> Form27.Image2.Refresh;
> Form27.Image1.Refresh;
> Form27.Show;
> if KeyPressed then konec:=true; {###### SPORNE MISTO !!!!! ######}
> until (polohaX=92)or(konec);
> until (polohaY=65)or(konec);
>end;
>
>Ja vim, ze prikaz KeyPressed neexistuje tak, jak existoval v Pascalu,
ale
>muzete mi nekdo nejak jednoduse poradit, aniz bych se musel patlat v
>nejakych eventsech. A kdyz to musi byt s events, muzete mi nekdo
poradit,
>jak to udelat a treba mi to i primo do toho programku napsat. Ja vim,
ze
>uz to tu bylo, ale ja tomu nejak nerozumim.
>
> Diky moc za kazde slovo, ktere aspon trochu pomuze.
>
> Zbynek Ceska.
>
>***********************************************************************
**
> ** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
> ** Plasma Physics ** High Technology Physics ** Microwave Physics **
>***********************************************************************
**
>
>
HDD factory serial + model number, atd.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.3.1999 11:47:20
Puvodni zprava, kterou napsal Mal� Dobromil dne 22 Mar 99,:
> Divej se na to tak, ze kdyz chces penize
> z banky, musis zadavat PIN (v pripade vyberu z karty), musis
> strkat klicky do auta, do zamku u bytu-to te preci taky omezuje,
Jenze to je jina parketa - to je ochrana pro me, chrani me
investice. Nekopirovatelna disketa chrani autorovy investice,
ne moje. Kdyz si budu chtit zjednodusit praci s autem, tak
ho nebudu zamykat - dam si ho otevrene do garaze a vrata
budu mit na dalkove ovladani - to je slusny komfort. Mimochodem,
centralni zamykani, imobilizer v klici... Na dvere od bytu lze
dat treba bezdotykovy snimac meho TOUCH-MEMORY. Jenze tohle
vsechno je vule majitele auta, bytu... pokud nechci, nebude,
mam-li na lepsi reseni. Stejne je to s chranenou disketou
- pokud nechci, nebude - mam-li na lepsi reseni (koupim si
jiny software, treba drazsi)...
> ne ? Ale taky souhlasim, ze by to nemelo obtezovat toho, kdo
> si program koupim, ale toho, kdo ho chce ukradnout.
A prave o tom to vsechno je, o nicem jinem...
Dalsi vec je, ze pokud nekdo opravdu chce, pak je to pro nej
legrace. Jak ukrast auto, tak vykrast auto, tak vykrast
byt a nebo software chraneny nekopirovatelnou disketou
ci hardwarovym klicem.
Asi toho nechame...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Nahravani textovych souboru
[*] Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 22.3.1999 11:51:16
Kdyz se jednorazove laduje do Informixu vetsi mnozstvi dat,
je dobre na tu akci vypnout na databance logovani (zurnal). Tim se to
vyrazne urychli.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/7755345
038/7512861
stisk klavesy primitivne
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.3.1999 11:59:54
No, odchyt si na tom formu udalost OnKeyDown a v jeji
procedure nastav nejakou promennou (nejlepe boolean)
na hodnotu true. Tuto potom testuj v tom Tvem cyklu.
Priklad :
TMujFom=class(Form)..bla bla bla...
private
Klavesa : boolean;
...bla bla bla...
end;
procedure TMujForm.FormKeyDown(Sender....bla)
begin
if not Klavesa then Klavesa:=true;
end;
Dale nasleduje upraveny puvodni dopis...
> Poetrboval bych pomoci s nasledujici blockem v programu v D4.:
>
> if MessageDlg('Jsi pripraven ?',mtWarning,mbYesNoCancel,1)=mrYes then
> begin;
> polohaY:=0;konec:=false;
> repeat
> polohaY:=polohaY+1;
> polohaX:=0;
> repeat
> polohaX:=polohaX+1;
> Form27.Image2.Left:=polohaX*8;Form27.Image2.Top:=polohaY*8;
> Form27.Image2.Refresh;
> Form27.Image1.Refresh;
> Form27.Show;
> if Klavesa (***tady) then konec:=true; {###### SPORNE MISTO !!!!!
> ######}
> until (polohaX=92)or(konec);
> until (polohaY=65)or(konec);
> end;
(***Dale pak pripadne nastavit zase Klavesu na false)
Dobra.
Jak na ODBC
[*] petrhalamicek(zv)email(tec)cz - 22.3.1999 12:10:08
Zdrav�m v�echny.
Lidi nev�m, jak bych mohl propojit Microsoft Acces p�es ODBC s aplikaci v
Delphi. Vcelku je pro m� ODBC �pan�lsk� ves. Nev�te,kde by se dalo
dozv�d�t n�co o ODBC.
Mockr�t d�ky
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Nastaveni_BDE
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 22.3.1999 12:11:32
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Mam dotaz ohledne programoveho nastavovani BDE. Potrebuji nastavit promennou \SYSTEM\INIT\;LOCAL SHARE a \SYSTEM\INIT\;MAXFILEHANDLES. Kdyz pouziju nize uvedene rutinky, tak se to tvari jako ze se to nastavilo, ale po spusteni BDE Administrator z Ovladacich panelu, jsou tam puvodni hodnoty.
Nevite nekdo jak tyto promenne nastavit trvale?
Diky za odpoved.
Milan Fiedler
procedure SetConfigParameter(Param: string; Value: string);
var
hCur: hDBICur;
rslt: DBIResult;
Config: CFGDesc;
Path, Option: string;
Found: boolean;
Temp: array[0..255] of char;
begin
hCur := nil;
Found := False;
try
if Pos(';', Param) = 0 then
raise EDatabaseError.Create('Invalid parameter passed to function. There must ' +
'be a semi-colon delimited sting passed');
Path := Copy(Param, 0, Pos(';', Param) - 1);
Option := Copy(Param, Pos(';', Param) + 1, Length(Param) - Pos(';', Param));
Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPERSISTENT, StrPCopy(Temp, Path), hCur));
repeat
rslt := DbiGetNextRecord(hCur, dbiNOLOCK, (zv)Config, nil);
if rslt = DBIERR NONE then
begin
if StrPas(Config.szNodeName) = Option then
begin
StrPCopy(Config.szValue, Value);
Check(DbiModifyRecord(hCur, (zv)Config, FALSE));
Found := True;
break;
end;
end
else
if rslt <> DBIERR EOF then
Check(rslt);
until rslt <> DBIERR NONE;
if Found = False then
raise EDatabaseError.Create(Param + ' entry was not found in configuration file');
finally
if hCur <> nil then
Check(DbiCloseCursor(hCur));
end;
end; function GetConfigParameter(Param: string; Count: pword): string;
var
hCur: hDBICur;
rslt: DBIResult;
Config: CFGDesc;
Path, Option: string;
Temp: array[0..255] of char;
begin
Result := ''; hCur := nil;
if Count <> nil then
Count^ := 0;
try
if Pos(';', Param) = 0 then
raise EDatabaseError.Create('Invalid parameter passed to function. There must ' +
'be a semi-colon delimited sting passed');
Path := Copy(Param, 0, Pos(';', Param) - 1);
Option := Copy(Param, Pos(';', Param) + 1, Length(Param) - Pos(';', Param));
Check(DbiOpenCfgInfoList(nil, dbiREADONLY, cfgPERSISTENT, StrPCopy(Temp, Path), hCur));
Check(DbiSetToBegin(hCur));
repeat
rslt := DbiGetNextRecord(hCur, dbiNOLOCK, (zv)Config, nil);
if rslt = DBIERR NONE then
begin
Result := Result + Config.szNodeName + ' - ' + Config.szValue + #13 + #10;
if Count <> nil then
Inc(Count^);
end
else
if rslt <> DBIERR EOF then
Check(rslt);
until rslt <> DBIERR NONE;
finally
if hCur <> nil then
Check(DbiCloseCursor(hCur));
end;
end;HDD factory serial + model number, atd.
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.3.1999 12:21:09
> -----Original Message-----
> From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: Monday, March 22, 1999 10:49 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: HDD factory serial + model number, atd.
> Divej se na to tak, ze kdyz chces penize
> z banky, musis zadavat PIN (v pripade vyberu z karty), musis
> strkat klicky do auta, do zamku u bytu-to te preci taky omezuje,
> ne ? Ale taky souhlasim, ze by to nemelo obtezovat toho, kdo
> si program koupim, ale toho, kdo ho chce ukradnout.
To je neco jineho. HW klicem chrani vyrobce sebe,
PINem, klickama od auta atd chrani sve klienty.
Klientovi za odmenu, ze si musi pamatovat PIN a dbat na klicky
od auta davas vyssi pravdepodobnost, ze nebude okraden.
Naopak tim, ze ho nutis do pocitace strkat HW klic,
nijak nezlepsis bezpecnost, jenom mu otravujes zivot
a nic za to nedostane. Navic v pripade, ze ten klic selze,
mu dokonce znemoznis cinnost. Nemluve o tom, ze si za to
ten klient zaplati penize navic.
A v pripade pouzivani diskety jako HW klice je pravdepodobnost selhani
daleko vetsi nez pravdepodobnost selhani skutecneho klice,
a ze nemoznosti kopirovani toho klice klientovi vezmes moznost
zalohovat SW - protoze disketovy HW klic nic jineho neni.
Takze pisu to stejne co minule, a snad jsem Te i tentokrat pochopil,
a ne ze ne.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Konstanty v DLL
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 22.3.1999 12:22:51
Cauec,
jednoduchy dotaz. Da se dostat k hodnotam konstant umistenych v DLL ?
Vim, ze se v DLL pouzivaji, ale neznam jejich hodnotu. Jedna se o stavove
priznaky, takze je nelze
nijak odhadnout nebo vypocitat.
Bye Ludan
HDD factory serial + model number, atd.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.3.1999 12:27:29
>> Divej se na to tak, ze kdyz chces penize
>> z banky, musis zadavat PIN (v pripade vyberu z karty), musis
>> strkat klicky do auta, do zamku u bytu-to te preci taky
omezuje,
>
>Jenze to je jina parketa - to je ochrana pro me, chrani me
>investice. Nekopirovatelna disketa chrani autorovy investice,
>ne moje.
Chranis tim i svoje investice, protoze pokud v nejakem programu
povedes nejakou databazi, budes jiste rad, ze treba za rok, kdyz
technologie postoupi o dalsi kroky vpred, bude i Tvuj program
(ktery jsi si koupil), drzet krok -a to jedine diky tomu, ze jeho
autor nezkrachoval. Asi nikdo by si nepral, aby firma, ktera mi
dnes proda program, hned druhy den vyhlasila bankrot. >Asi toho nechame...
Ano, nechame toho.
Dobra.RxRichEdit.Print ...co s tim?
[*] Jan Linhart <delphi(zv)mis-net(tec)cz> - 22.3.1999 12:27:52
Zdar,
Je to chyba fat�ln�, stac� jen a jen zkusit si na n�kym formulari dovolit
si k ty komponente RxRichEdit.Print.... :-)
...probl�m je v tom, ze okopirovali tuto proc. od RichEditu a samozrejme
zapomeli, ze ty jejich hovadinky, jakejma si to obohatili se nebudou
korektne pocitat... :-(
No a ta struktura se me zd� natolik ukrutna, ze nez bych se v tom mrdniku
vyznal a pochopil, bylo by jaro pryc.
..........Honza
----------
> Odes�latel: Libor Valka <valka(zv)brno.cas(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: RxRichEdit.Print ...co s tim?
> Datum: 22. b�ezna 1999 11:31
>
> Ahoj,
> mozna by bylo dobre, kdybys uvedl, s jakou chybou...
>
> Libor
> > Zdar,
> >
> > Nezkouseli jste nekdo tisknout z RX-kovyho RichEditu ?
> > Je v tom neco pokazene.... nepodarilo se nekomu vypor�dat se s touto
> > chybou?
> >
> > Predem diky za z�chranu
> >
> > ..........Honza
> >DLL pod WinNT
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 22.3.1999 12:27:52
Cauec,
Vytvorim si primitivni app pod W98, ktera vyuziva DLL.
Deklarace funkci je std: function XY: neco; stdcall; external 'MojeDLL';
Kdyz takovou aplikaci spustim pod W95/98, vse je OK.
Jakmile to zkusim pod WinNT Wks, tak rve, ze nemuze nalezt knihovnu
MojeDLL.DLL v adresarich XY
a pak vyjmenuje kde co, vcetne adresare, kde ta knihovna 100% je.
Tak nevim. Je neco spatne ve volani DLL, nebo se musi nekde v NT extra
nastavit pristupova prava ?
Bye Ludan
HDD factory serial + model number, atd.
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 22.3.1999 12:34:42
-----P�vodn� zpr�va-----
Od: Marek Soukup <marek(zv)comberg.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 11:29
P�edm�t: Re: HDD factory serial + model number, atd.>cracknout de vsechno, je to otazka casu a penez. Se zasifrovanim je to
stejny.
>Otazkou je stoji to za to ?
Souhlasim, ale o to tady prece nejde. Je to moje reakce na cloveka, ktery
tvrdil, ze v case nemalo delsim nez 2 minuty crackne _zejmena cokoli_. Tak
jsem mu poslal priklad ochrany, ktera neni na strane tvurce prilis pracna
(pokud ma rutiny na kompresi a sifrovani) a cas potrebny k jejimu prolomeni
je IMHO vyrazne vetsi nez 2 minuty, takze pravdepodobne nestoji za to se o
to pokouset a takovou ochranu je vhodne pouzivat.> A moje otazka, je tenhle problem vazne problem
>souvisejici s Delphi ? Nechcete to presunout do konference Zivot, vesmir a
vubec
Vzhledem k tomu, ze tato ochrana, komprese a sifrovani jsou napsany v Delphi
(s uzitim in-line assembleru), tak ano :-))) Jinak bych rekl, ze souvisi s
Delphi stejne, jako zhruba 75% vsech prispevku v teto konferenci za dobu
nekolika poslednich mesicu, co konferenci sleduji.
Vzhledem k tomu, ze v konferenci existuji lide, kteri jsou stoupenci ochrany
SW, naznacil jsem urcity zpusob reseni takove ochrany. Tem ostatnim se
omlouvam, ze jsem si to dovolil ;-) A protoze nemam zadny zajem diskuzi v
tomto smeru rozvijet, tak uz na tema ochrany SW do konference prispivat
nebudu.
Bye, pf
Nastaveni_BDE
[*] Marek Soukup <marek(zv)comberg(tec)com> - 22.3.1999 12:37:05
Helou,
mam takovej dojem, ze kdyz se cokoliv nastavi v BDE musi se to ulozit
pres Session.SaveConfigFile, protoze jinak to funguje jenom do ty doby
nez pustim znovu BDE co z se nekdy taky hodi.
Marek Soukup
Milan Fiedler wrote:
> Mam dotaz ohledne programoveho nastavovani BDE. Potrebuji nastavit
> promennou \SYSTEM\INIT\;LOCAL SHARE a \SYSTEM\INIT\;MAXFILEHANDLES.
> Kdyz pouziju nize uvedene rutinky, tak se to tvari jako ze se to
> nastavilo, ale po spusteni BDE Administrator z Ovladacich panelu, jsou
> tam puvodni hodnoty. Nevite nekdo jak tyto promenne nastavit
> trvale? Diky za odpoved. Milan Fiedler
> procedure SetConfigParameter(Param: string; Value: string);
> var
> hCur: hDBICur;
> rslt: DBIResult;
> Config: CFGDesc;
> Path, Option: string;
> Found: boolean;
> Temp: array[0..255] of char; begin
> hCur := nil;
> Found := False;
> try
> if Pos(';', Param) = 0 then
> raise EDatabaseError.Create('Invalid parameter passed to
> function. There must ' +
> 'be a semi-colon delimited sting passed');
> Path := Copy(Param, 0, Pos(';', Param) - 1);
> Option := Copy(Param, Pos(';', Param) + 1, Length(Param) -
> Pos(';', Param));
> Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPERSISTENT,
> StrPCopy(Temp, Path), hCur));
> repeat
> rslt := DbiGetNextRecord(hCur, dbiNOLOCK, (zv)Config, nil);
> if rslt = DBIERR_NONE then
> begin
> if StrPas(Config.szNodeName) = Option then
> begin
> StrPCopy(Config.szValue, Value);
> Check(DbiModifyRecord(hCur, (zv)Config, FALSE));
> Found := True;
> break;
> end;
> end
> else
> if rslt <> DBIERR_EOF then
> Check(rslt);
> until rslt <> DBIERR_NONE;
> if Found = False then
> raise EDatabaseError.Create(Param + ' entry was not found in
> configuration file'); finally
> if hCur <> nil then
> Check(DbiCloseCursor(hCur));
> end;
> end;
> function GetConfigParameter(Param: string; Count: pword): string;
> var
> hCur: hDBICur;
> rslt: DBIResult;
> Config: CFGDesc;
> Path, Option: string;
> Temp: array[0..255] of char; begin
> Result := ''; hCur := nil;
> if Count <> nil then
> Count^ := 0;
> try
> if Pos(';', Param) = 0 then
> raise EDatabaseError.Create('Invalid parameter passed to
> function. There must ' +
> 'be a semi-colon delimited sting passed');
> Path := Copy(Param, 0, Pos(';', Param) - 1);
> Option := Copy(Param, Pos(';', Param) + 1, Length(Param) -
> Pos(';', Param));
> Check(DbiOpenCfgInfoList(nil, dbiREADONLY, cfgPERSISTENT,
> StrPCopy(Temp, Path), hCur));
> Check(DbiSetToBegin(hCur));
> repeat
> rslt := DbiGetNextRecord(hCur, dbiNOLOCK, (zv)Config, nil);
> if rslt = DBIERR_NONE then
> begin
> Result := Result + Config.szNodeName + ' - ' + Config.szValue
> + #13 + #10;
> if Count <> nil then
> Inc(Count^);
> end
> else
> if rslt <> DBIERR_EOF then
> Check(rslt);
> until rslt <> DBIERR_NONE;
> finally
> if hCur <> nil then
> Check(DbiCloseCursor(hCur));
> end;
> end;QReport a export
[*] tomas.mazurek(zv)vitkovice(tec)cz - 22.3.1999 11:44:56
Dobry den,
potreboval bych vyresit nasledujici problem. Uzivatel si preje
tiskove sestavy. Zaroven si vsak preje tyto sestavy posilat ve forme
souboru el. postou. Lze tento problem uspokojive vyresit v D3 s
QuickReportem? Narazil jsem na nekolik problemu:
a) v helpu ke QR avizuji moznost exportu do textoveho souboru. Ani
jeden ze zpusobu popsanych v helpu vsak nevedl ke vzniku text.
souboru.
b) lze udelat primitivni aplikaci jakoby prohlizec QR sestav?
Samozrejme nechci aby pro proste prohlizeni souboru *.QRP musel mit
kazdy nainstalovano BDE.
Pokud jiz nekdo resil vyse uvedene a je ochoten poradit...
Dik
Tomas
DLL pod WinNT
[*] Martin Koran <komar(zv)komar(tec)cz> - 22.3.1999 13:08:07
Ahoj,
> Deklarace funkci je std: function XY: neco; stdcall; external 'MojeDLL';
zkus
function XY: neco; stdcall; external 'MojeDLL.DLL';
============================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (602) 42 33 72
http://wwww.komar(tec)cz
mailto:info(zv)komar(tec)cz
Komponenta Options
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.3.1999 13:09:11
Zdravim,
shanim komponentu (pokud tedy existuje), pomoci ktere by se dal vytvorit
takovy dialog OPTIONS, jaky pouziva Netscape Navigator 4.
Poradite nekdo?
Diky.==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================
Jak na ODBC
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.3.1999 13:10:38
> Lidi nev�m, jak bych mohl propojit Microsoft Acces p es ODBC s aplikaci v
> Delphi. Vcelku je pro m ODBC pan lsk� ves. Nev�te,kde by se dalo dozv d
> t n co o ODBC.
****Podivej se na mou stranku (viz signatura), je tam par odkazu
na anglicke texty ohledne ODBC.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Prolomeni hesla MS Word 95
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 22.3.1999 13:14:20
Dobri lide, odpustte mi tento off topic.
Potreboval bych se dostat do dokumentu porizenem
v MS Word 95 (6.0) s pouzitim hesla. Muzete mi neco
poradit, neco jineho, nez abych si na vzpomnel na to heslo ?
Dekuji
-----------
Ing. Martin Dupal
address: Hodolanska 35
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
Pozice kurzoru
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.3.1999 13:32:51
> zjisteni pozice "kurzoru" v RichEditu se provede:
> .
> .
> var
> p: TPoint;
> begin
> SendMessage(RichEdit.handle,EM_POSFROMCHAR
> ,wParam((zv)p),RichEdit.SelStart);
OK, ale jak tu pozici predam tomu listboxu?Nastaveni_BDE
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 22.3.1999 13:41:26
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
diky za radu, ale to ukladani pres Session.SaveConfigFile mi nejak nefunguje. Nedelam nekde chybu, nebo nejde to jinak.
diky
Milan Fiedler
Helou,
mam takovej dojem, ze kdyz se cokoliv nastavi v BDE musi se to ulozit pres Session.SaveConfigFile, protoze jinak to funguje jenom do ty doby nez pustim znovu BDE co z se nekdy taky hodi.
Marek Soukup
Milan Fiedler wrote:
Mam dotaz ohledne programoveho nastavovani BDE. Potrebuji nastavit promennou \SYSTEM\INIT\;LOCAL SHARE a \SYSTEM\INIT\;MAXFILEHANDLES. Kdyz pouziju nize uvedene rutinky, tak se to tvari jako ze se to nastavilo, ale po spusteni BDE Administrator z Ovladacich panelu, jsou tam puvodni hodnoty. Nevite nekdo jak tyto promenne nastavit trvale? Diky za odpoved. Milan Fiedler
procedure SetConfigParameter(Param: string; Value: string);
var
hCur: hDBICur;
rslt: DBIResult;
Config: CFGDesc;
Path, Option: string;
Found: boolean;
Temp: array[0..255] of char; begin
hCur := nil;
Found := False;
try
if Pos(';', Param) = 0 then
raise EDatabaseError.Create('Invalid parameter passed to function. There must ' +
'be a semi-colon delimited sting passed');
Path := Copy(Param, 0, Pos(';', Param) - 1);
Option := Copy(Param, Pos(';', Param) + 1, Length(Param) - Pos(';', Param));
Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPERSISTENT, StrPCopy(Temp, Path), hCur));
repeat
rslt := DbiGetNextRecord(hCur, dbiNOLOCK, (zv)Config, nil);
if rslt = DBIERR NONE then
begin
if StrPas(Config.szNodeName) = Option then
begin
StrPCopy(Config.szValue, Value);
Check(DbiModifyRecord(hCur, (zv)Config, FALSE));
Found := True;
break;
end;
end
else
if rslt <> DBIERR EOF then
Check(rslt);
until rslt <> DBIERR NONE;
if Found = False then
raise EDatabaseError.Create(Param + ' entry was not found in configuration file'); finally
if hCur <> nil then
Check(DbiCloseCursor(hCur));
end;
end;
function GetConfigParameter(Param: string; Count: pword): string;
var
hCur: hDBICur;
rslt: DBIResult;
Config: CFGDesc;
Path, Option: string;
Temp: array[0..255] of char; begin
Result := ''; hCur := nil;
if Count <> nil then
Count^ := 0;
try
if Pos(';', Param) = 0 then
raise EDatabaseError.Create('Invalid parameter passed to function. There must ' +
'be a semi-colon delimited sting passed');
Path := Copy(Param, 0, Pos(';', Param) - 1);
Option := Copy(Param, Pos(';', Param) + 1, Length(Param) - Pos(';', Param));
Check(DbiOpenCfgInfoList(nil, dbiREADONLY, cfgPERSISTENT, StrPCopy(Temp, Path), hCur));
Check(DbiSetToBegin(hCur));
repeat
rslt := DbiGetNextRecord(hCur, dbiNOLOCK, (zv)Config, nil);
if rslt = DBIERR NONE then
begin
Result := Result + Config.szNodeName + ' - ' + Config.szValue + #13 + #10;
if Count <> nil then
Inc(Count^);
end
else
if rslt <> DBIERR EOF then
Check(rslt);
until rslt <> DBIERR NONE;
finally
if hCur <> nil then
Check(DbiCloseCursor(hCur));
end;
end; Local SQL Join
[*] Jaro <jaro(zv)sinea(tec)cz> - 22.3.1999 13:48:25
>Nie je pravda, v hlavnej tabulke mam 20.000 riadkov a v tych
joinovych asi
>po 200 riadkov. Ak mam v dotaze asi 5x join, zmasti mi cely vyber
(teda
>joinovanych 20.000 riadkov) asi tak za 5 sekund. Moj problem bol v
tom, ze
>po pridani dalsieho joinu to nevratilo vobec nic, odozva bola
okamzita.
>Samozrejme vsetky joiny a vsetky podmienky sa daju robit cez indexy.
---
Vsak 200 radku v tech dalsich tabulkach neni nic moc. To jeste bude
chodit dobre.
---
>mal miliardy ? Ak sa nad tym zamyslim, ani nejaky SQL server to nema
prave
>jednoduche, ak by chcel urobit cosi take, urcite by sa pri tom riadne
>zapotil. Naco by potom ten join bol ?
----
Na ty tabulky o 200 radcich. Ale vazne, ja to uvadel pro nazornost.
Samozrejme je to trochu slozitejsi.
Nezatracuji pouziti join-u, ale pri kombinaci vice velkych tabulek se
dost zpomali.
Pak je lepsi napr. FOR SELECT - jde to rychle i na obrovskych
tabulkach.
Myslel jsem, ze mas vetsi tabulky, kdyz jsi psal, ze to nechodi.
Dej tam treba 200.000,- zaznamu a na vsechny tabulky a pak mi napis,
jaka byla odezva.
-----
>Na druhej strane som kdesi v helpoch cital, ze pokial mas vo where
podmienky
>tak, ako to vravis ty, BDE to samo pri analyze zisti a ak sa to da
previest
>na join, tak to spravi join, hoci to mas napisane cez podmienky ...
ak tomu
>neveris, najdem to vo svojich dokumentoch ... A na potvrdenie tohto
som si
>skusil RX library, tam je komponenta DBProgress. Ak ju pripojis na
takyto
>SQL dotaz,
---
Ale verim, vsak BDE taky prave proto pracuje mnohdy dost neefektivne a
v radech pripadu moc pomalu.
Rozhdne je lepsi zavolat proceduru. To ovsem BDE nemuze resit, tak to
resi jak muze.
>
HDD factory serial + model number, atd.
[*] Mirun <forcom(zv)telecom(tec)cz> - 22.3.1999 14:24:35
-----P�vodn� zpr�va-----
Od: Petr Fejfar <callnet(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 11:22
P�edm�t: Re: HDD factory serial + model number, atd.>Hi,
>
>
>Mirun <forcom(zv)telecom(tec)cz> wrote:
>
>> Vtip je v tom, ze bych nehledal tve pluginy a jine zbesilosti, ale misto
>kde
>> zjistujes cislo HDD :-)))
>
>
>Otazkou je, jak bys prisel na to, ze ho vubec potrebujes a jakym zpusobem
ho
>mas pouzit, tj. konkretne bys musel prijit na to, ze jsou tam nejake
>plug-ins, ze jsou zkompresovany a zasifrovany a ze jako klic slouzi machine
>digest, jehoz jednu slozku by mohlo tvorit napr. seriove cislo HDD (ve
>skutecnosti ho nepouzivam, protoze ho neumim spolehlive zjistit a prestoze
>jsem poskytl podklad k tomu IDE Info, tak bych si ho netroufl pouzit).
>
>Ted jeste budu trochu premyslet, jake jsou moznosti monitorovat vnejsi
>chovani aplikace a jestli odsud nevede nejaka cesta, jak ochranu prolomit
>:-)))
>
>Bye, pf
>
Na to bych prave prisel analyzou programu. Jako zachytny bod se bere moment,
kdy oznamis uzivateli, ze je instalace nelegalni, pak se postupuje zpet.
Abych usetril nekolik mejlu:
1. Uzivateli nemusis nic oznamovat, muzes skoncit potichu
- lze odchytit zpravy Windows, souvisejici s ukoncenim programu, pak
postupovat jako vyse
2. Muzes natvrdo bez kontroly skocit do pameti tam, kde by mel byt
dekodovany blok (pokud byl zadan nespravny klic, chovani aplikace je
nepredvidatelne)
- je to docela zbesilost, protoze nikdy nevis, co bude vysledkem dekodovani
(vzdycky vznikne nejaka sekvence instrukci CPU - (pri trose stesti treba
zapis bloku pameti na nahodne misto na disku :-)))
- vetsinou (na 99%) dojde vzapeti k chybe pristupu do pameti, coz lze
odchytit, a postupovat zpet obvyklym zpusobem.
Monitorovat aplikaci zvnejsku lze na 100% - podpora ladeni je uz na urovni
CPU, hookov�n� j�dra Windows... Uz z tohoto duvodu je slozitejsi vymyslet
ochrany na PC nez tomu bylo na ZX Spectru.
Problem ochran je prave v tom, ze nezalezi na tom, jak "silny" je dany
algoritmus, ale na tom, ze vzdycky existuje slabe misto, (vetsinou naprosto
trivialni) ktere staci odchytit. Spravne "crackly" program je uplne stejny
jako original, zmeni se pouze mala cast programu, ktera zjistuje potrebny
kod. Pak se vsechny "plug-iny" a "dekomprese" provedou spravne, a ani
nepotrebuju vedet, co a jak to delaji. A najit tento kriticky usek lze
VZDYCKY, stejne jako lze vzdycky ukrast COKOLIV. Je to jen ruzne obtizne.
Mirun
DLL pod WinNT
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 22.3.1999 14:34:42
Ahoj,
tohle je chyba, se kterou jsem se taky radne vyvztekal. Reseni je
jednoduche: dopis do deklarace 'MojeDLL.DLL' (neboli pridej tam
priponu). To bude chodit uz vsude.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Ing. Ludek Florian [SMTP:ludan(zv)bluerose(tec)cz]
> Odesl�no: 22. b�ezna 1999 12:28
> Komu: Konference Delphi
> P�edm�t: DLL pod WinNT
>
> Cauec,
>
> Vytvorim si primitivni app pod W98, ktera vyuziva DLL.
>
> Deklarace funkci je std: function XY: neco; stdcall; external
> 'MojeDLL';
>
> Kdyz takovou aplikaci spustim pod W95/98, vse je OK.
>
> Jakmile to zkusim pod WinNT Wks, tak rve, ze nemuze nalezt knihovnu
> MojeDLL.DLL v adresarich XY
> a pak vyjmenuje kde co, vcetne adresare, kde ta knihovna 100% je.
>
> Tak nevim. Je neco spatne ve volani DLL, nebo se musi nekde v NT extra
> nastavit pristupova prava ?
>
> Bye Ludan
> Prolomeni hesla MS Word 95
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 22.3.1999 14:38:38
Ahoj,
myslim, ze na Inetu by se melo neco nechat najit, aspon kdysi jsem tam
neco takoveho nasel, ale kde, to uz bohuzel nevim. Tim spis, ze jsem na
to tehdy prisel nahodou, kdyz jsem hledal neco o sifrovani. Pamatuji si,
ze ten program na to sel "hrubou silou", tj. zkousel vsechna mozna
hesla, takze cas pro nalezeni hesla silne zavisel na jeho delce.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Martin Dupal [SMTP:mdupal(zv)vision(tec)cz]
> Odesl�no: 22. b�ezna 1999 13:14
> Komu: Delphi konference
> P�edm�t: Prolomeni hesla MS Word 95
>
> Dobri lide, odpustte mi tento off topic.
>
> Potreboval bych se dostat do dokumentu porizenem
> v MS Word 95 (6.0) s pouzitim hesla. Muzete mi neco
> poradit, neco jineho, nez abych si na vzpomnel na to heslo ?
>
> Dekuji
> -----------
>
> Ing. Martin Dupal
> address: Hodolanska 35
> 77200 Olomouc
> Czech Republic
> tel.: +420/68/5313130
> fax.: +420/68/5313132
> http://www.vision(tec)cz
> mailto:mdupal(zv)vision(tec)cz
>
> HDD factory serial + model number, atd.
[*] Mirun <forcom(zv)telecom(tec)cz> - 22.3.1999 14:47:10
-----P�vodn� zpr�va-----
Od: Petr Fejfar <callnet(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 13:20
P�edm�t: Re: HDD factory serial + model number, atd.
-----P�vodn� zpr�va-----
Od: Marek Soukup <marek(zv)comberg.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 11:29
P�edm�t: Re: HDD factory serial + model number, atd.>cracknout de vsechno, je to otazka casu a penez. Se zasifrovanim je to
stejny.
>Otazkou je stoji to za to ?
>Souhlasim, ale o to tady prece nejde. Je to moje reakce na cloveka, ktery
>tvrdil, ze v case nemalo delsim nez 2 minuty crackne _zejmena cokoli_. Tak
>jsem mu poslal priklad ochrany, ktera neni na strane tvurce prilis pracna
>(pokud ma rutiny na kompresi a sifrovani) a cas potrebny k jejimu prolomeni
>je IMHO vyrazne vetsi nez 2 minuty, takze pravdepodobne nestoji za to se o
>to pokouset a takovou ochranu je vhodne pouzivat.
Abych, rekl pravdu, tak me prekvapuje, ze jsi uvedene "o neco vice nez 2
minuty" vzal tak doslova - abych Ti tedy udelal radost : tento udaj byl
znacne podohodnoceny.
(mne slo hlavne o to, ukazat, ze vyvijeni ochrany je vec zbytecna - nehlede
k tomu, ze cca. 50% uvedene doby spotrebuji Windows ke startu...)
> A moje otazka, je tenhle problem vazne problem
>souvisejici s Delphi ? Nechcete to presunout do konference Zivot, vesmir a
vubec
>Vzhledem k tomu, ze tato ochrana, komprese a sifrovani jsou napsany v
Delphi
>(s uzitim in-line assembleru), tak ano :-))) Jinak bych rekl, ze souvisi s
>Delphi stejne, jako zhruba 75% vsech prispevku v teto konferenci za dobu
>nekolika poslednich mesicu, co konferenci sleduji.
Mam dojem, ze vzhledem k tomu, ze vetsina lidi v teto konferenci jsou
programatori, tak sem tento topic patri, stejne jako kdysi diskuze na tema
ceny programu, platby ze/do zahranici atd. Kde jinde by se o tom melo
diskutovat ?
>Vzhledem k tomu, ze v konferenci existuji lide, kteri jsou stoupenci
ochrany
>SW, naznacil jsem urcity zpusob reseni takove ochrany. Tem ostatnim se
>omlouvam, ze jsem si to dovolil ;-) A protoze nemam zadny zajem diskuzi v
>tomto smeru rozvijet, tak uz na tema ochrany SW do konference prispivat
>nebudu.
>Bye, pf
Close na preview Quickreportu
[*] jdanek(zv)fnbrno(tec)cz - 22.3.1999 16:06:43
Ahojte,
Uz jsem to tady jednou mel a nikdo mi neodpovedel, proto
posilam zazipovany priklad vizdale.
Nemohu zavrit v modalnim okne ani pres button, ani pres
ikonu [X] modalni Form, kdyz v nem otevru Preview QuickReportu.
Pracuji v D3. Prosim, podivejte se mi na to nekdo, co delam
chybne. Nevim si s tim doposu d rady.
Diky vsem za radu.
Jozka
jdanek(zv)fnbrno(tec)cz
(See attached file: Qrtest.zip)VYTVORENI ZASTUPCE (*.lnk soubor)
[*] Jiri Vrabec Java -5 rocnok <xvrabe00(zv)kapr.fme.vutbr(tec)cz> - 22.3.1999 15:34:25
Mam dotaz : Skousel sem podobny program a nejak fungoval prapodivne, jednoduse
nesel krokovat. Skocolo to jen na radek deklarace Psl,ppf a Hres a pak uz nic.
Nevite co to je za postup programovani ze nelze krokovat, fachci to a v pripade
ze date brakpoint tak to skrachuje ??
A jeste jeden dotaz : nevite kde zjistit jake sou vsechny spravy ve Win.. s
popisem toho kdy sou volany a jake jsou jejich cisla ??
Dik J.
>
> Treba takto:
>
> function CreateLink(pszPathLink, pszPathObj, pszWorkDir,
> pszArguments, pszIconPath: PChar; IconIndex: Integer): Boolean;
> var
> Psl: IShellLink;
> Ppf: IPersistFile;
> HRes: HResult;
>
> begin
> Result := False;
>
> HRes := OleInitialize(nil);
> HRes := CoCreateInstance(CLSID_ShellLink, nil,
> CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl);
> if HRes <> 0 then Exit;
>
> Psl.SetPath(pszPathObj);
> Psl.SetWorkingDirectory(pszWorkDir);
> Psl.SetIconLocation(pszIconPath, IconIndex);
> Psl.SetArguments(pszArguments);
>
> HRes := psl.QueryInterface(IID_IPersistFile, Ppf);
> if HRes <> 0 then Exit;
> HRes := Ppf.Save(PWideChar(WideString(pszPathLink)), True);
> if HRes <> 0 then Exit;
>
> Result := True;
> end;
>
> Jarda
> sikora(zv)kam(tec)czu(tec)cz
>
> > Zdravim
> > potreboval bych API funkci pro vytvoreni ZASTUPCE z daneho souboru
> > (zrejme nejaka fce, kde bude jako vstup hlavni soubor X:\XXX.exe , a
> > cilovy sobor X:\XXX.lnk)
> >
> > Diik
> >
> > ==============
> > Karel Pechanec
> > ka.pecha(zv)pvtnet(tec)cz
> > tel:0602-950 525
> > ==============
> >
> >
>
> Barevne zvyrazneni
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 22.3.1999 15:34:01
Potreboval bych poradit jak nejlepe vyresit problem
se seznamem (texty), kde bych chtel v zavislosti na
urcite podmince zyraznit nektere radky jinou barvou.
Je lepsi na to pouzit listboc nebo stringgrid
(je tam omezeni na pocet radku)?
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+ Menu a coolbary
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 22.3.1999 15:59:32
Delfini, co mate zkusenosti s D4. Jdou tam udelat menu+coolbary stejne,
jako je to napr. v D4 IDE (vc. zobrazovani pri pretahovani, moznost
pretahnout nejakej toolbar z listy do plovouciho okna apod.)? Demo
DockEx mne neuchvatilo.
Dik
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
destruktor
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 22.3.1999 16:03:33
Hi all,
tenhle destruktor se neprovadi za nekterych okolnosti spravne a aplikace
pada. Vidite nekdo nejaky mozny problem?
------------------------------------------------
destructor TFileSearch.Destroy;
begin
FFileSearchThread.Terminate;
while not FFileSearchThread.Terminated do
Application.ProcessMessages;
FFileSearchThread.Free;
inherited Destroy;
end;
------------------------------------------------
Heretic
Prolomeni hesla MS Word 95
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 22.3.1999 16:08:57
>Potreboval bych se dostat do dokumentu porizenem
>v MS Word 95 (6.0) s pouzitim hesla. Muzete mi neco
>poradit, neco jineho, nez abych si na vzpomnel na to heslo ?
Jiste, poslu Ti to na soukromy mail hned, jak se dostanu domu. Ma to asi 18
KB...
Je to delany primo pro Word6, u novejsich to nechodi.
Bye Ludan
DLL pod WinNT
[*] Mirun <forcom(zv)telecom(tec)cz> - 22.3.1999 16:09:42
-----P�vodn� zpr�va-----
Od: Petr Brant <p.brant(zv)samo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 14:48
P�edm�t: RE: DLL pod WinNT
>Ahoj,
>tohle je chyba, se kterou jsem se taky radne vyvztekal. Reseni je
>jednoduche: dopis do deklarace 'MojeDLL.DLL' (neboli pridej tam
>priponu). To bude chodit uz vsude.
To neni chyba, je to ucel.
Windows maji v registru HLM\CurrentControlSet\Control\Session
Manager\KnownDlls
informaci o Dllkach. Kazda zde registrovana knihovna ma nazev a filename.
Pokud zadas dll bez pripony, windows se domnivaji, ze maji hledat dle nazvu
a hledaji v tomto registru jeji nazev. Protoze ho nenajdou, dojde k chybe.
Vyznam je v tom, ze kdys si napises knihovnu "MyDllVersion1.dll",
zaregistujes ji zde pod nazvem "MyDll", budes ji ze sveho programu volat
"MyDll", a muzes ji zde snadno preregistrovat na svou novou knihovnu
"MyDllVersion2.dll", a nemusis nic menit jinde. Windows ji budou hledat dle
nazvu, a sami si zjisti nazev fajlu.
Mirun
>Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
>Visual Basic
> -----P�vodn� zpr�va-----
> Od: Ing. Ludek Florian [SMTP:ludan(zv)bluerose(tec)cz]
> Odesl�no: 22. b�ezna 1999 12:28
> Komu: Konference Delphi
> P�edm�t: DLL pod WinNT
>
> Cauec,
>
> Vytvorim si primitivni app pod W98, ktera vyuziva DLL.
>
> Deklarace funkci je std: function XY: neco; stdcall; external
> 'MojeDLL';
>
> Kdyz takovou aplikaci spustim pod W95/98, vse je OK.
>
> Jakmile to zkusim pod WinNT Wks, tak rve, ze nemuze nalezt knihovnu
> MojeDLL.DLL v adresarich XY
> a pak vyjmenuje kde co, vcetne adresare, kde ta knihovna 100% je.
>
> Tak nevim. Je neco spatne ve volani DLL, nebo se musi nekde v NT extra
> nastavit pristupova prava ?
>
> Bye Ludan
>
DCOM, provadeni serveru selhalo !
[*] APEL, Petr Vobornik <vobornik(zv)apel(tec)cz> - 22.3.1999 16:14:59
Ahoj.
Zkousel jsem predelat priklad z Delphi3\....\DEMOS\OLEAUTO\AUTOSERV z
aplikace COM na DCOM. Funkci Create jsem nahradil CreateRemote. Pokud zadam
jmeno vlastniho pocitace vse je OK, ale pokud zadam jmeno vzdaleneho,
aplikace zahlasi "Provadeni serveru selhalo".
Mam na obou pocitacich nainstalovan DCOM95 v. 1.2. Nastaveni je
nasledujici:
* Vychozi uroven overeni ........ neni
* Vychozi uroven zosobneni ......... zosobnit
* Povolit vzdalene pripojeni ....... Nastaveno
Ve vlastnostech MemoAppObject nastaveno:
* Spoustet aplikaci na tomto pocitaci
* Nastavena pristupova prava pro vzdaleny pocitac
Dale mam nastaveno:
* Povoleno sdileni souboru a tiskaren
* Jako primarni protokol site je IPX/SPX
* Provozuji sit Microsoft s NT serverem
Na obou pocitacich jsem provedl registraci pomoci MemoEdit /regserver.
Aplikaci MemoEdit mam umistnenou v adresari SYSTEM.
Vyykousel jsem ruzna nastaveni DCOM95, ale bezuspesne.
Prosim o jakykoliv napad.
Predem diky. Petr
DCOM, provadeni serveru selhalo !
[*] APEL, Petr Vobornik <vobornik(zv)apel(tec)cz> - 22.3.1999 16:17:59
Ahoj.
Zkousel jsem predelat priklad z Delphi3\....\DEMOS\OLEAUTO\AUTOSERV z
aplikace COM na DCOM. Funkci Create jsem nahradil CreateRemote. Pokud zadam
jmeno vlastniho pocitace vse je OK, ale pokud zadam jmeno vzdaleneho,
aplikace zahlasi "Provadeni serveru selhalo".
Mam na obou pocitacich nainstalovan DCOM95 v. 1.2. Nastaveni je
nasledujici:
* Vychozi uroven overeni ........ neni
* Vychozi uroven zosobneni ......... zosobnit
* Povolit vzdalene pripojeni ....... Nastaveno
Ve vlastnostech MemoAppObject nastaveno:
* Spoustet aplikaci na tomto pocitaci
* Nastavena pristupova prava pro vzdaleny pocitac
Dale mam nastaveno:
* Povoleno sdileni souboru a tiskaren
* Jako primarni protokol site je IPX/SPX
* Provozuji sit Microsoft s NT serverem
Na obou pocitacich jsem provedl registraci pomoci MemoEdit /regserver.
Aplikaci MemoEdit mam umistnenou v adresari SYSTEM.
Vyykousel jsem ruzna nastaveni DCOM95, ale bezuspesne.
Prosim o jakykoliv napad.
Predem diky. Petr
DCOM, provadeni serveru selhalo !
[*] APEL, Petr Vobornik <vobornik(zv)apel(tec)cz> - 22.3.1999 16:19:59
Ahoj.
Zkousel jsem predelat priklad z Delphi3\....\DEMOS\OLEAUTO\AUTOSERV z
aplikace COM na DCOM. Funkci Create jsem nahradil CreateRemote. Pokud zadam
jmeno vlastniho pocitace vse je OK, ale pokud zadam jmeno vzdaleneho,
aplikace zahlasi "Provadeni serveru selhalo".
Mam na obou pocitacich nainstalovan DCOM95 v. 1.2. Nastaveni je
nasledujici:
* Vychozi uroven overeni ........ neni
* Vychozi uroven zosobneni ......... zosobnit
* Povolit vzdalene pripojeni ....... Nastaveno
Ve vlastnostech MemoAppObject nastaveno:
* Spoustet aplikaci na tomto pocitaci
* Nastavena pristupova prava pro vzdaleny pocitac
Dale mam nastaveno:
* Povoleno sdileni souboru a tiskaren
* Jako primarni protokol site je IPX/SPX
* Provozuji sit Microsoft s NT serverem
Na obou pocitacich jsem provedl registraci pomoci MemoEdit /regserver.
Aplikaci MemoEdit mam umistnenou v adresari SYSTEM.
Vyykousel jsem ruzna nastaveni DCOM95, ale bezuspesne.
Prosim o jakykoliv napad.
Predem diky. Petr
Otvorenie dvierok na CD mech.
[*] hrenovcik(zv)ns.basl.sk - 22.3.1999 16:23:06
Cavte !
Moze mi niekto poradit,ako otvorit cez API dvierka na CD mechanike.
Diky.Corba
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 22.3.1999 16:33:13
On Thu, 18 Mar 1999, [ISO-8859-2] Lukes V�clav wrote:
>
>
> Ahoj,
>
> nev�te pros�m n�kdo, kde z�skat informace ke Corb� - vo co go, pou�it� a
> pod. ?
>
> Va�ek
>
>
> PS: P�i na�ich "excelentn�ch" link�ch nelze n�jak v�razn� hledat na netu.
>
Ahoj, nezkoumal jsem to, neb do toho nevidim, ale treba to pomuze...
http://www.kaposnet.hu/books/corba14/index.htm
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
RxRichEdit.Print ...co s tim?
[*] Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz> - 22.3.1999 15:44:10 met
Take jsem to zkousel a kdyz se da RxRichEdit.Print chce zacit
tisknou 100, 500 .... atd stranek. Program se musi zrusit, jinak by
to asi chtelo puvodne jednu stranku tisknout milionkrat.
Tez bych rad vedel co s tim.
Jarda
sikora(zv)kam(tec)czu(tec)cz
> :-) No zrovna mam stejny problem. Vypada to, ze RxRichEdit z RxLib 2.60
> pouziva riched20.dll - tzn. umi obrazky, indexy, podtrhavani apod.
> srandicky. Z QuickReportu to tiskne ok. Bohuzel QR je pro tisk techto
> poli dost nesikovny (pomaly atd)., takze na to pouzivame Sinea sestavy.
> Ty s timto maji ovsem pri tisku taky problem, ale uz jsem dal echo
> Jarovi a podle poslednich informaci to snad nebude takovy problem a
> podari se to rozchodit. Necham se prekvapit (kazdopadne - TOMU ja rikam
> technicka podpora!!!). Diky chlapi...a drzim palce.
>
> Mac
>
> Jan Linhart wrote:
>
> > Nezkouseli jste nekdo tisknout z RX-kovyho RichEditu ?
> > Je v tom neco pokazene.... nepodarilo se nekomu vypor�dat se s touto
> > chybou?
>
> --
> ==============================================================
> = Ing. Martin Kubecka - Amenit s.r.o. =
> = Na Valech - budova Dytron, 741 01 Novy Jicin =
> = telefon/fax: +420 656 706203 mobil: +420 603 265926 =
> = http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
> = ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
> ==============================================================
>
>
Prolomeni hesla MS Word 95
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 22.3.1999 17:15:01
Toz neco najdes i tady:
http://www.elcomsoft.com/prs.html
http://www.accessdata.com/home.html
tam jsou mozna i dalsi linky...
jo a mraky odkazu na bezpecnost apod. najdes
http://neworder.box.sk
Cau
Mac
Martin Dupal wrote:
> Dobri lide, odpustte mi tento off topic.
>
> Potreboval bych se dostat do dokumentu porizenem
> v MS Word 95 (6.0) s pouzitim hesla. Muzete mi neco
> poradit, neco jineho, nez abych si na vzpomnel na to heslo ?
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
funkcia POST
[*] Richard Willmann <sales(zv)nocomment.sk> - 22.3.1999 17:23:55
Niektore znaky treba kodovat metodou URLEncode/Decode (alebo tak sa to
nejako vola). Podorbnejsi opis najdes v RFC o HTTP protokole.
rw
IKO wrote:
> Uz som myslel, ze mi to pojde. Ale nejak mi tak komponenta
> HTTP filtruje z POST parametrov znak + (plus) a potom mi to
> nerozozna cislo telefonu (+421). Da sa to nejak spravit? Alebo aku
> komponentu mam pouzit? Potrebujem aj priklad na funkciu POST.
>
> IKO
> ikino(zv)pobox.sk
> http://freeweb.coco(tec)cz/IKO
Problem s pipanim
[*] Lubo Fule <fule(zv)sct.sk> - 22.3.1999 18:14:03
Predpokladam, ze to odchytavas na OnKeyPress. Pridaj na koniec, (resp. pred
vyskocenim z metody) prislusnej metody:
Key := #0;
myslim, ze to prestane pipat.
L.
P.S.: Samozrejme, ze Key nastavis na #0 iba vtedy, ked Ti pride znak, ktory
chces odchytit, teda v Tvojom pripade RETURN.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Petr Vaclavek
> Sent: Saturday, March 20, 1999 7:34 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Problem s pipanim
>
>
> Dobry den....
>
> Mam TTreeView a tam odchytavam nejake klavesy jako treba
> ENTER a mam problemek...
>
> Mam nasledujici kod, ktery zpusobuje, ze pri zmacknuti klavesy
> Enter se dana polozka rozbali (pokud je zabalena).
>
> if ((Shift = []) and (Key = VK_RETURN)) then
> TreeView.Selected.Expand (false)
>
> Vsechno je OK, akorat ze to pipne a to mi tam strasne vadi.
>
> Obdobny problem mam v RichEditu - vadi mi tam, ze kdyz jedu kurzorem
> porad nahoru (dolu) az na konec a drzim jej dale, tak to pipa...
>
> Predem diky za rady....
>
> Petr
>
>
> -----------------------------------------
> mail: bla(zv)atrey.karlin.mff.cuni(tec)cz
> http://atrey.karlin.mff.cuni(tec)cz/~bla
> -----------------------------------------
>
>
Otvorenie dvierok na CD mech.
[*] Jan Rychtar <hojan(zv)sin.cvut(tec)cz> - 22.3.1999 18:21:04
Zkus
mciSendString('Set cdaudio door open', nil, 0, hinstance);
fce je v unite mmsystem.
>Cavte !
>
> Moze mi niekto poradit,ako otvorit cez API dvierka na CD mechanike.
>
>Diky.QuickReport a neviditelne buttony
[*] Lubo Fule <fule(zv)sct.sk> - 22.3.1999 18:43:11
Aj ja mam taky problem.
L.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> suvak(zv)pbko.sk
> Sent: Friday, March 19, 1999 1:34 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: QuickReport a neviditelne buttony
>
>
>
> Ahojte,
>
> v aplikacii pouzivam QuickReport s preview pred tlacou.
> Na niektorych pocitacoch, kde som aplikaciu nainstaloval
> vsak tlacitka na hornej liste v preview nie su viditelne, hoci
> su funkcne.
> (ide o buttony Print, Printer setup, zoom to fit atd.)
> Stava sa to na pocitacoch s W95 aj W98. Ja pouzivam
> Delphi C/S 4.0 SP 3. Nestretol sa s tym niekto?
>
> Dakujem,
> Peter
>
> =============================================================
> Ing. Peter Suvak, veduci oddelenia spravy systemov
> Priemyselna banka, a.s. Kosice
> Sturova 27
> 040 01 Kosice
>
> tel: 095 / 6804 282
> fax: 095 / 6804 510
> mobil: 0903 610 901
> e-mail: suvak(zv)pbko.sk
> =============================================================
>
>
Close na preview Quickreportu
[*] Mirun <forcom(zv)telecom(tec)cz> - 22.3.1999 19:28:59
-----P�vodn� zpr�va-----
Od: jdanek(zv)fnbrno(tec)cz <jdanek(zv)fnbrno(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 16:33
P�edm�t: Close na preview Quickreportu
>Ahojte,
>
>Uz jsem to tady jednou mel a nikdo mi neodpovedel, proto
>posilam zazipovany priklad vizdale.
>Nemohu zavrit v modalnim okne ani pres button, ani pres
>ikonu [X] modalni Form, kdyz v nem otevru Preview QuickReportu.
>Pracuji v D3. Prosim, podivejte se mi na to nekdo, co delam
>chybne. Nevim si s tim doposu d rady.
>Diky vsem za radu.
Priste az ti nikdo neodpovi, tak posli celej zkompilovanej program, nebo
nejlepe zazipovanej obsah HDD (to se tak v konferencich dela)
Ted k tvemu problemu:
Vymaz si event OnActivate z tveho Preview formu.
>
> Jozka
> jdanek(zv)fnbrno(tec)cz
>
>(See attached file: Qrtest.zip)
>ImageList
[*] Petr Vaclavek <pvac5561(zv)ss1000.ms.mff.cuni(tec)cz> - 22.3.1999 20:05:29
> Nemuzu nacist obrazek do componenty IMAGE z Imagelistu. Potreboval bych nejaky prikaz ktery to dokaze.
>
> Diky...
>
ImageList.GetBitmap Cislo_obrazku, Image.Picture.Bitmap);
Snad je to to, co potrebujes...
Petr
elementarny problem s C/S
[*] Jaro <jaro(zv)sinea(tec)cz> - 22.3.1999 20:10:29
>Ale vkladas ho opakovane, uzivatel ho muze menit. => chyby
Zadne chyby. Co by tak mohl menit v uzavrenem danovem dokladu.
Naopak muze "neco" zmenit v ciselniku, ale tech uzavrenych dokladu se
to nedotkne.
Jaro
>
>
>Jura
>----------
>Jiri Polak
>e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
>web :http://freeweb.coco(tec)cz/jpolak
>----------
>The only good bug, is a dead bug!
>Registracia Komponenty
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 22.3.1999 20:17:11
>Mam vytvorenu komponentu a chcem ju zaregistrovat. V procedure register
ahoj
Vypada to ze si puvodne registroval do SAMPLES
Odstran ji z balicku , prekompiluj ho ,/DELPHI CLOSE/
a pak zkus tu komponetu opet pridat , melo by to chodit
S pozdravem Heinisch Jiri
PARADOX - SAMBA
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 22.3.1999 20:23:16
To je zajimave
tohle jsem posilal 17.3 1999 19.50
z konference mi to prislo s datem 17.3. 1999 20.55
a ted opet s datem 22.3.1999 15.34
Vi nekdo proc
-----P�vodn� zpr�va-----
Od: Jiri Heinisch <HeiJu(zv)sol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 15:34
P�edm�t: Re: PARADOX - SAMBA
>Ahoj
>
>Jen technicka poznamka , osobne bych prvne testoval parametr Key a pak
>teprve testovat objekty
>
>
>Melo by to byt rychlejsi.
>
>Zdravim Jiri Heinisch
>
>
>
>>FormKeyPress(TObject Sender, var Key: char);
>>begin
>> if not ((Sender is TButton) or (Sender is TBitBtn) or (Sender is
>> TMeno) or (Sender is TRichEdit)) then
>> if (Key = VK_RETURN)
>> begin
>> Key := 0;
>> SelectNext(ActiveControl, TRUE, TRUE);
>> end;
>>end;
>HDD factory serial + model number, atd.
[*] Jaro <jaro(zv)sinea(tec)cz> - 22.3.1999 20:35:54
Toto je trochu prehnane. I kdyz v nemocnici padne sit (v nemocnici
delam, a opravdu se to semtam stane), doktori se zastavit nemuzou, a
pracuji dale. Sice zuri, ze pak musi do pocitace vsechno dopisovat
zpetne,
ze musi nekde hledat psaci stroj, ze si o vysledky musi telefonovat,
ale
rozhodne se nemuze stat vyse uvedene. A co se tak pohybuju i po jinych
nemocnicich, zjistuju, ze je to vsude tak. Vsichni cekaji tak 10 min.,
jestli sit nenaskoci, a kdyz ne, vytahnou psaci stroj ;)))))
1. Opravdu jsem to uvedl jako silne prehnany priklad. Samozrejme te
nenechaji umrit. Jen jsem chtel, aby sis uvedomil, ze existuje mnoho
nepretrzitych provozu - nejenom nemocnice. Kdyz tam delas, tak to
znas.
2. Kdyz vytahnes psaci stroj, tak si na nem urcite neprectes v
databazi ulozeny chorobobis, krevni obraz, vysledky laborek, ani si
neprohlidnes snimek z tomografu, ci spravu poslanou obvodakem po
internetu.
3. Ty nemocnice, ktere jedou na "komplexni zdravotnicky informacni
system" musi mit informacni system vcetne centralni databaze zajisten
jinak. Rozhodne ne na hot-line. Tam jde opravdu o zivoty, protoze se
musi
odkladat i operace.
3. Ale i jinde, kde jsou jen dilci programy, jsem byl svedkem prusvihu
hranicicich s kriminalem. Kdyz transfuzni program pomichal krevni
konzervy a vytiskl blbe stitky, tak museli radeji vsechnu odebranou
krev vylit, protoze nevedeli, ktera je ci. Nikdo nechtel ani domyslet,
co by se mohlo stat, kby si toho sestra nevsimla
4. Informacni system, kde se stejne musi pouzivat psaci stroje je
podle me jen na obtiz. Takle ja si informacni system nepredstavuji.
Znam ale nemocnice, kde to slape jako hodiny.
----
A co se hot-line tyce... nemam s zadnou dobre zkusenosti. Vzdycky kdyz
jsem potreboval neco vedet, tak jsem se dozvedel velky kulovy (a to i
kdyz jsem mel problem s celkem drahym softem (23 tis. Kc), ktery po
nainstalovani upgradu zacal blbnout, a z podpory prisla odpoved stylu
"nam
to funguje" a ani naznak toho, ze by to chteli nejak resit). Takze
hotline
bych jako nejakou velkou vyhodu nebral.
----
V tom se shodneme.
Jaro
BDE, local table, TQuery & read-only pri ORDER BY
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 22.3.1999 20:55:20
Zdravicko...
Mozna se to tu uz resilo, ale na delphi(tec)cz jsem v archivu nic nenasel.
Takze se ptam:
Kdyz pouziju pro pristup na lokalni tabulku pres BDE TQuery, v jehoz SQL
dotazu mam trideni podle nejake polozky (klauzule ORDER BY), tabulka se
mi nekompromisne zamkne do read-only modu. Jak 100hoven? Uz me to pekne
stve. :-(
Jelikoz mam pouze D4 Professional a potrebuji, aby k tabulkam
pristupovalo vice uzivatelu, nemohu ani pouzit InterBase (u verze
Professional je pouze pro lokalni pouziti).
Budu vdecen za jakekoli konstruktivni nakopnuti, za kterezto take predem
dekuji.
F.HDD factory serial + model number, atd.
[*] Jaro <jaro(zv)sinea(tec)cz> - 22.3.1999 20:56:33
>Disketa neni HW klic, to je pouze nosic informace. Po instalaci
>muzes disketu odlozit, kdezto klic musis mit zapojen pri pouzivani
>programu (nebo to delas jinak?). Pokud bys vyzadoval vlozenou
>disketu pri behu programu, zvysujes riziko jejiho poskozeni.
>A v kombinaci s nekopirovatelnosti .... :-o
----
Takto presne to pred mnoha lety delal SGP system s Baltazarem.
A reknu vam vickrat bych nic takoveho nekoupil ani za nic.
Nakonec od toho ustoupili. Vedeli proc. Legrace byla, kdyz to
prestalo disketu cist. Program byl nepouzitelnej a oni chteli
600 Kc za novou disketu, protoze tu ochranu jim pry delala jina firma.
Pro srovnani: ten program stal 1000,- kc a disketa stala vic nez
polovinu.
----
>Jaky byl vysledek? Novou verzi jsem si nekoupil, ale mam ji kradenou,
>a muzu ji pouzivat i s hudbou. Jsem spatnej?
---
Neptej se nas. Zeptej se autora toho programu. Nebo se zeptej
prodavace az mu ukradnes neco v obchode, jestli si o tobe mysli zda
jsi dobrej nebo spatnej. Je v tom rozdil? Myslim ze ne.
---
>Souhlasim s Petrem, ze nekopirovatelne diskety jsou zverstvo (doufam,
>ze mne nekdo napadne, ze jsem vulgarni). Dal si myslim, ze zadny
>SW by nemel omezovat legalni uzivatele ani jinym zpusobem - viz
predchozi
>priklad. A nakonec si myslim, ze penize venovane na vyvoj preventivni
>ochrany proti piratum jsou vyhozene oknem.
----
S tim taky souhlasim.
Disketa jako HW klic? Fuj, ze to jeste dnes muze nekdo koupit.
Jaro
Jak pouzivat TQuery + TUpdateSQL
[*] Jaro <jaro(zv)sinea(tec)cz> - 22.3.1999 20:58:40
No jasne mas pravdu.
Jaro
>
>Open a Close ???
>Snad Execute, ne?
>Pokud si vzpominam, na zacatku byla rec o CREATE TABLE, tak na co
Open? :-/
>A nedela problemy vice prikazu SQL pouze, kdyz se snazim pouzit Open?
>Ocekaval bych, ze pro Execute bude TQuery umet i vice prikazu. Nevim
to ale,
>nezkousel jsem.
>
>Jura
>----------
>Jiri Polak
>e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
>web :http://freeweb.coco(tec)cz/jpolak
>----------
>The only good bug, is a dead bug!
>RxDBGrid a problemy ...
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 22.3.1999 21:28:23
Helou ...
Taky neprijemny problem sa vyskytol >:-(
Ked "picnem" na formular RxDBGrid + DBDateEdit (samozrejme aj TTable, TDatasource) a spolu to "previazem" , tak pohyb po RxDBGride sa nesprava ku mne spravodlivo.
T.j. ak bez RxDBDateEdit tlacim sipku dole a drzim ju, tak pohyb kurzora je pekne plynuly..Ale ked tam "picnem" ten DBDateEdit tak sa mi kurzor posunie o jeden zaznam a viac ani za svateho. Musim sipku pustit a znova stlacit a znova stl..trochu otravne...da sa nejako tomu predist ???
Vdaka
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364
Jeste jednou KeyPressed (was PARADOX - SAMBA)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.3.1999 21:46:03
> A este nieco
> chcel som pouzit nasledujuce od Slavka Rydvala:
>
> Potreboval bych premapovat ENTER klavesu na TAB.
> Z klavesy Enter delam Tab nasledovne (jen pro ,,vhodne``
> komponenty):
> ...
> Vysledok bol, ze ignoroval ktora komponenta to poslala a vzdy isiel dalej,
> t.j. aj pri Memo, co vsak nie je vhodne. Na forme som dal KeyPreview=True
> V com moze byt problem? Delphi 3. Pri watch Sender=[].
****Problem je vzdycky mezi klavesnici a zidli, v tomto pripade ve me. :-)
Ja jsem puvodne vzal kus kodu z C++ Buildera 3.0 a prepsal jsem je do
Delphi, ale koukam, ze to neni az tak spravne napsane...
Take jsem se podival na toho sendera a nic... takze oprava:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = chr (VK_RETURN)) then
begin
if not ((ActiveControl is TMemo) or (ActiveControl is TRichEdit))
then
begin
Key := #0;
SelectNext(ActiveControl, TRUE, TRUE);
end;
end;
end;
Tlacitka osetrovat nemusis, berou si enter drive, nez se nadejes.
Pokud chces odchytit i to, musis to udelat jeste jinak.
At slouzi...
Slavek
> D. Jan Macej
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Ulozenie dat do EXE ...
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 22.3.1999 21:53:07
Debatovalo sa tu o ulozeni cohokolvek do EXEcka...narazil som na podobnu komponentu, ktora by to mala zvladat. Ze vraj funguje pre Delphi 1, 2, 3 4 ... poslal som to na ftp.svitap(tec)cz do adresara upload : fstorage.zip
Tu je kratky pokec :
TFileStorage (English): }
{ This component is intended for storing data (any, taken }
{ from a file specified by the developer) in a body of .exe }
{ file. Access to a file (being in a body of .exe project), }
{ realized through the "Data: Pointer".
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364
Close na preview Quickreportu
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 22.3.1999 21:05:06 -0000
>Ted k tvemu problemu:
>Vymaz si event OnActivate z tveho Preview formu.
To ti ale stejne nebude chodit :-(
Musis v UNIT1:
do uses pridat Unit3
udalost OnClick prepsat na:
QuickR.QuickRep1.Preview;
UNIT2:
vyhodit udalost OnActivate
UNIT3:
udalost OnPreview prepsat na
QuickOut.QRPreview1.QRPrinter:=TQRPrinter(Sender);
QuickOut.Show;
Pozice kurzoru
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.3.1999 22:06:03
> > zjisteni pozice "kurzoru" v RichEditu se provede:
> > .
> > .
> > var
> > p: TPoint;
> > begin
> > SendMessage(RichEdit.handle,EM_POSFROMCHAR
> > ,wParam((zv)p),RichEdit.SelStart);
>
> OK, ale jak tu pozici predam tomu listboxu?
ListBox1.Left := p.X;
ListBox1.Top := p.Y;
?
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Otvorenie dvierok na CD mech. & Zavreni
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 22.3.1999 22:17:58
Cauec
>Zkus
>
> mciSendString('Set cdaudio door open', nil, 0, hinstance);
>
>fce je v unite mmsystem.
>
>>Cavte !
>>
>> Moze mi niekto poradit,ako otvorit cez API dvierka na CD mechanike.
>>
>>Diky.
To open the CD-ROM:
----------------------------------------------------------------------------
----
mciSendString('Set cdaudio door open wait', nil, 0, handle);
----------------------------------------------------------------------------
----
To close the CD-ROM:
----------------------------------------------------------------------------
----
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Konstanty v DLL
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 22.3.1999 13:17:38 -0800
-----Original Message-----
From: Ing. Ludek Florian <ludan(zv)bluerose(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Date: 22. b�ezna 1999 3:32
Subject: Konstanty v DLL
>Cauec,
>
>jednoduchy dotaz. Da se dostat k hodnotam konstant umistenych v DLL ?
>
>Vim, ze se v DLL pouzivaji, ale neznam jejich hodnotu. Jedna se o stavove
>priznaky, takze je nelze
>nijak odhadnout nebo vypocitat.
>
>Bye Ludan
>
Do DLL se na hodnoty dostanes jen pres funkce a procedury.
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
Close na preview Quickreportu
[*] Mirun <forcom(zv)telecom(tec)cz> - 23.3.1999 00:02:50
-----P�vodn� zpr�va-----
Od: Marian Jonas <jonas(zv)ji(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. b�ezna 1999 21:14
P�edm�t: Re: Close na preview Quickreportu
>>Ted k tvemu problemu:
>>Vymaz si event OnActivate z tveho Preview formu.
>
>To ti ale stejne nebude chodit :-(
>
>Musis v UNIT1:
>do uses pridat Unit3
>
>udalost OnClick prepsat na:
>QuickR.QuickRep1.Preview;
>
>UNIT2:
>vyhodit udalost OnActivate
>
>UNIT3:
>udalost OnPreview prepsat na
>QuickOut.QRPreview1.QRPrinter:=TQRPrinter(Sender);
>QuickOut.Show;
>
>
Sorry, neprohlizel jsem zbytek. Jeste ti tedy pridam na udobreni zdarma
nekolik bonusovych tipu
- pokud chces tisknout i tu stranku kterou jsi prilozil, nastav si u
QuickR.PrintIfEmpty na True
- pokud chces tisknout casto, a nechces aby ti program po nejake dobe padal
na OutOfResources udelej jeste tyto zmeny (on stejne bude, ale pozdeji):
---- QuickOut:
procedure TQuickOut.FormDestroy(Sender: TObject);
begin
QRPreview1.QRPrinter.Free;
QRPreview1.QRPrinter := nil;
end;
procedure TQuickOut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
---- QuickR:
procedure TQuickR.QuickRep1Preview(Sender: TObject);
begin
with TQuickOut.Create(Application.MainForm) do
begin
QRPreview1.QRPrinter := TQRPrinter(Sender);
Show;
end;
end;
V Project/options si vyndej QuickOut z AutoCreate
PS: Oni totiz v QuSoftu radi vytvarej slozite struktury ale z
nepochopitelnych duvodu nepouzivaj Free, takze kazdej tisk sezere 1 handle
printeru a 30-50Kb pameti + primerenej pocet pointeru. Projed si to v
MemProofu a uvidis ty rozdily...
Mirun
DLL pod WinNT
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 23.3.1999 00:24:39
Cauec,
>>tohle je chyba, se kterou jsem se taky radne vyvztekal. Reseni je
>>jednoduche: dopis do deklarace 'MojeDLL.DLL' (neboli pridej tam
>>priponu). To bude chodit uz vsude.
>
>To neni chyba, je to ucel.
>Windows maji v registru HLM\CurrentControlSet\Control\Session
>Manager\KnownDlls
>informaci o Dllkach. Kazda zde registrovana knihovna ma nazev a filename.
>Pokud zadas dll bez pripony, windows se domnivaji, ze maji hledat dle nazvu
>a hledaji v tomto registru jeji nazev. Protoze ho nenajdou, dojde k chybe.
>Vyznam je v tom, ze kdys si napises knihovnu "MyDllVersion1.dll",
>zaregistujes ji zde pod nazvem "MyDll", budes ji ze sveho programu volat
>"MyDll", a muzes ji zde snadno preregistrovat na svou novou knihovnu
>"MyDllVersion2.dll", a nemusis nic menit jinde. Windows ji budou hledat dle
>nazvu, a sami si zjisti nazev fajlu.
Tak jsem zkusil vymazat z deklarace .DLL a nastavit v registrech WinNT nazev
knihovny.
Ale pak to opet nechodilo. Ani po resetu.>> Vytvorim si primitivni app pod W98, ktera vyuziva DLL.
>>
>> Deklarace funkci je std: function XY: neco; stdcall; external
>> 'MojeDLL';
>>
>> Kdyz takovou aplikaci spustim pod W95/98, vse je OK.
>>
>> Jakmile to zkusim pod WinNT Wks, tak rve, ze nemuze nalezt knihovnu
>> MojeDLL.DLL v adresarich XY
>> a pak vyjmenuje kde co, vcetne adresare, kde ta knihovna 100% je.
>>
>> Tak nevim. Je neco spatne ve volani DLL, nebo se musi nekde v NT extra
>> nastavit pristupova prava ?
>>
>> Bye Ludan
>>
>Filter on DATE
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 23.3.1999 00:27:42
>-----P�vodn� zpr�va-----
>Od: Brcko <Peter.Laurinc(zv)ibaware.sk>>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 20. b�ezna 1999 17:48
>P�edm�t: Re: Filter on DATE
>
>Asi som to nepochopil. Filter je typu string. Ako tam mozem narvat
TDateTime.
>
>Skusim trochu inak.
>
>Mam tabulku tHits. V nej je field DATUM typu Date. Mam dve premenne typu
TDateTime Od, Do.
>
>
>tHits.Filter := ?
Var DatumOd,DatumDo : TDateTime; // promenna Do nemuze existovat !!!!!
tHits.Filter :='((DATUM>'+chr(39)+DateToStr(DatumOd)+chr(39)+') AND
(DATUM<'+chr(39)+DateToStr(DatumDo)+chr(39)+'))';