Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Font ve StatusBaru
[*] Bradac Marek <Marek.Bradac(zv)z3.preciosa(tec)cz> - 16.12.1999 11:53:13
Zdravim,
chtel bych se zeptat, pres veskere usili se mi nepodarilo najit jak zmenit
barvu fontu v nasledujicim
Mam jeden TStatusBar, ktery ma 3 casti TStatusPanel. A chtel bych zmenit
barvu fontu pouze jedne items z toho statusbaru, nasel jsem samozrejme
metodu pro zmenu pro cely TStatusBar, ale to nechci. Podle helpu jsem zadnou
metodu nenasel takze to standardne asi nejde, neporadili byste kde najit
nejakou upravenou komponentu statusbaru, kde by tohle bylo mozne ?
Predem dik
S pozdravem
Marek Bradac
+--------------------------------------------------------------------+
LAN Administrator - Preciosa a.s. - zavod 03
Sklarska 1
463 13 Liberec 24
Czech Republic
Tel : +420485214328, +420603241957
Fax : +420485149076
+-[ mailto:marek.bradac(zv)z3.preciosa(tec)cz ]--[ http://www.preciosa(tec)cz ]-+
Probl�my p�i pou��v�n� BCD v BDE (
[*] Robert Kindl <rob(zv)exec(tec)cz> - 16.12.1999 11:56:17
> Uz jsem se jednou ptal ale zatim mi nikdo neodpovedel a protoze
> jde pro nasi firmu o velky problem tak to posilam jeste jednou:
Mozna malo pozorne sledujes konferenci, nebot jsem ti jiz odpovidal.
Proto jeste jednou:
> Probl�my p�i pou��v�n� BCD v BDE (SQL Linku)
> Prost�ed�: Delphi - BDE - SQL Link - InterBase (Enable BCD=true).
> 1.probl�m: Definice pole typu Numeric(9,6). InterBase vrac� ��slo na
spr�vn�
> po�et desetinn�ch m�st, BDE maxim�ln� na 4 desetinn� m�sta.
> 2. probl�m: Definice pole typu Numeric(15,2), intern� hodnota pole
> "0.699984". InterBase vrac� spr�vn� zaokrouhlenou hodnotu "0.70", BDE
> �patnou o��znutou hodnotu "0.69".
> Dotaz: Kde hledat chybu? Jak ji odstranit nebo zda je ji� odstran�na v
> n�jak� nov�j�� verzi?
ad 1.
BDE alias ma parametr EnableBCD
- pokud je TRUE pak se pro reprezentaci fieldu v Delphi pouziva typ
TBCDField a ten pouziva numericky typ currency.
Tento umi "pr�v�" 4 desetinn� m�sta a nikdy jinak.
- pokud je FALSE pak se pouzije TFloatField a ten pak pouziva
typ double jehoz presnost je cca 15 platnych mist.
Bohuzel trpi zaokrouhlavacimi chybami pri vypoctech
(to je ostatne zcela normalni vlastnost vsech "real" cisel).
univerzalni reseni s BDE neexistuje (tj. aby nektere fieldy byly BCD
a nektere Float) musis si vybrat.
ad 2.
toto se mi projevuje (s SQL linkem na MSSQL) pokud
mam nastaveno EnableBCD na false
pokud nastavim EnableBCD na true tak to nedela,
ale objevi se problem ad 1.
Bohuzel jsi (jako vetsina zdejsich ucastniku)
opomenul napsat jakou verzi BDE mas,
ale vim, ze v BDE 5.10 se problem ad 2.
stale objevuje.
Problem ad 1. je "as designed" tj.
principialne je to zcela OK.
Problem se muze jeste dale komplikovat takze se ptej klidne dale.
Rob
Probl�my p�i pou��v�n� BCD v BDE (
[*] Tomas Kouba <tomas(zv)neo(tec)cz> - 16.12.1999 12:06:01
Zdravim,
ano, z toho vychazi i datovy typ currency, ktery ma sice 4 desetina mista,
ale pri vypoctech se s nim zachazi jako s celociselnou hodnotou (posun
desetinne tecky). Je pro tyto vypocty nejvhodnejsi. Nedochazi k
zaokrouhlovani nekde na 125 deset. miste a je to velmi rychle.
------------------------------
Tomas Kouba
mailto:tomas(zv)neo(tec)cz
> Pokud ti to pomuze, tak v nekterych aplikacich se uchovavaji financni
> hodnoty jako cela cisla, kde jednotka je halir.
>
> > Dotaz: Kde hledat chybu? Jak ji odstranit nebo zda je ji�
> odstranena v
> > nejake novejsi verzi? Problem totiz vede k tomu, ze kdyz mam v
> > databazi
> > udaje jako mnozstvi a cena/MJ a cena se snizi o nejakou
> nizkou marzi,
> > pak
> > cenacelkem se od mnozstvi*cena/MJ diky orezavaci chybe lisi u
> > nekterych
> > polozek i o 8 - 10 % coz u ekonomickeho software neni zanedbatelna
> > chyba!!!
> >
>Jakou databazi doporucite?
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 16.12.1999 12:35:14
WinBase je plnohodnotny SQL server.
Podporuje Triggery, Procedury na serveu, replikace, role, sequence.
Da se udelat dvoufazovy commit, journaly, sifrovani data souboru.
Datove typy jsou jako u jinych SQL (bloby, varchary, ceske trideni).
Existuje pro Windows (W95 - W2000) a pro free Unixy (Linux, Free BSD). Pro
Unixy je zdarma 5 - user, dalsi se musi dokupovat a cena je stejna jako pro
Win ( + 5 user za cca 7.000,- kc). Pro Win existuje Personal (1.800,- kc) a
WinbaseServer (5 user - 20.000,- kc). Na personal se mohou udajne napojit 2
sitovi klienti (nezkousel jsem), pocet localnich klientu neni omezen.
Pristupovat z Delphi se da pres BDE ->ODBC nebo pres nativni komponenty
(existuje jich vic) je testuji WDE od Ivana Turcana, jsou na adrese
http://www.software602(tec)cz/wde. Jsou pouzitelne a rychlejsi nez ODBC (bohuzel
jsou za penize). OLE DB provider mozna bude, na dotaz mi autori odepsali, ze
o tom uvazuji a ze to nebude drive nez nova verze Winbase (asi to bude
soucasti).
Jestli te zajima nejaka konkretni vlastnost WinBase tak napis co presne
chces vedet.
----- Original Message -----
From: "Tomas Peroutka" <tperoutka(zv)drusoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 16, 1999 7:17 AM
Subject: Re: Jakou databazi doporucite?
Ahoj,
Pavel Chaloupka se tady zminil o Winbase602. Mate s ni nejake
zkusenosti? Jestli ano, tak bych uvital, kdyby o ni nekdo neco
blizsiho napsal.
Dekuji
Tomas Peroutka
tperoutka(zv)drusoft(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
trideni was: D5 - ano ci ne ?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 16.12.1999 12:39:32
> > Tak s tim ja bych tedy velmi silne nesouhlasil! To ze technologie
> > client/server
> > ma sve koreny uz v pocitacovem davnoveku, jeste neznamena, ze je
nevhodna
> > i pro interaktivni zpusob prace.
>
> To jsem ani netvrdil. Pouze jsem podtrhl principialni rozdil mezi davkovym
a
> interaktivnim stylem prace, ktere vyzaduji odlisne strategie pri
> implementaci. Skutecnost, ze SQL C/S databaze maji koreny prave v dobe
> prevazne davkoveho zpracovani dat se prirozene odrazi v jejich zakladnich
> charakteristikach. Pokud clovek "splyva s proudem" (tedy prirozenosti SQL
> C/S), je svaden k volbe ne zcela vhodnych postupu, a v opacnem pripade je
> postaven pred radu zasadnich (prevazne vykonostnich) problemu. To je
nesvar,
> ktery jsem vypozoroval u rady aplikaci vytvarenych v posledni dobe (a
> psanych v Delphi obvzlaste). Koncepce "plochych" databazi (xBase,Paradox)
> dovoluje velkou interaktivitu prace s daty bez vyraznych problemu.
Aplikace
> techto postupu na SQL C/S databazi (typyckym prikladem a nejcastejsi
chybou
> je pouziti TTable) vede ke spatnym vysledkum. Nicmene uzivatele vyzaduji
> funkce jako prubezne vyhledavani v seznamu, trideni dle libovolneho udaje,
> grupovani seznamu atd. a to vse s odezvou v radu nekolika vterin a bez
> ohledu na velikost zakladni baze dat. Rada vyvojaru po neuspechu
klasickych
> prostredku (dobre zvladnutych z prace nad xBase/Paradox) voli automaticky
> reseni z druhe strany (vse na server). Vysledkem je, ze znacne slevuji z
> interaktivity, coz ale naprosto neni nutne. Jde o to najit jen vhodne
> reseni. Bohuzel, tato reseni nelze nalezt v baliku "zdedenych" zkusenosti
> jak z "plochych" databazi, tak z klasickeho SQL C/S. A to je to, o cem v
> podstate celou dobu pisu.
Velmi dobre.
Vzdyt jake je ocekavani typickeho Paradoxisty pri prechodu na SQL server?
Ze to pofrci jako vitr...
A vysledek? Pravy opak. Je to radove pomalejsi, nebot
SQL vyzaduje jiny zpusob prace.
Nejidealnejsi je pro nej aplikace zcela bez gridu.
Tj. jen zadej podminky ja ti vratim vysledek - to je SQL dotazovani
ve sve prave podobe.
Bohuzel doba dnes jiz pokrocila a uzivatelum to ani zdaleka nestaci
a nezajima je, ze browsovani 1mil. zaznamu v gridu nahoru a dolu
je akce zcela nevhodna pro SQL server.
Vsak take nejcastejsi meritko vykonu aplikace je
a) prvotni otevreni okna - to se da jeste pochopit
b) skok na konec - to uz je uzivatelsky uplny nesmysl
No a ted je na programatorech aby hledali nejake reseni, ktere
bohuzel neni jednoduche a hlavne neexistuje jen jedno univerzalni,
dokonale reseni...
> 3) Provest transformaci na klientovi.
>
> Z vyse uvedeneho vyplyva, ze (v prevazne vetsine pripadu) nejmene narocne
na
> cas a zdroje serveru je reseni c.3
>
> BDE se snazi prave toto reseni poskytnout. Bohuzel to nedela zcela
optimalne
> a dusledne, a navic je prakticky nemozne mit plnou kontrolu nad jeho
> fungovanim. Pokud ovsem nekdo investuje cas a usili do vytvoreni vlastni
> podpory, ziska velkou (konkurencni) vyhodu v podobe maximalne efektivnich
a
> zaroven vysoce interaktivnich aplikaci.
BDE se snazi roubovat SQL na puvodni Paradox reseni.
Dusledkem je, ze to vypada jako by chtelo dosahnout
neceho uplne jineho.
> Bohuzel, neni to jednoduche. Jiz radu let se snazim navrhnout a
> implementovat nejvhodnejsi postupy pro tuto strategii (a rekl bych ze s
> vyraznymi uspechy). Pokud nekoho tyto postupy zajimaji, rad se o ne
podelim.
Rozhodne. Najit nekoho kdo ma z timhle zkusenosti a je ochoten
o tom diskutovat je snad jen sen...
Rob
DB-aware komponenty (Was: D5 - ano ci ne ?)
[*] Robert Kindl <rob(zv)exec(tec)cz> - 16.12.1999 12:46:10
> > Tohle je ale spis dano obecnym pristupem k datum v Delphi
> > prostrednictvim DataSetu a DB-aware komponent. Nevyresilo by to
> > pouziti CachedUpdates ? Podobny mechanismus ma tusim i ADO (mozna ted
> > placam, v databazich se zase tak nevyznam :-) pomoci metod
> > TCustomADODataSet.UpdateBatch a spol.
>
> Zalezi na situaci. Pokud bych chtel napriklad kesovat vice na sobe
> nezavislych vet, pak chyba pri ukladani byt jen jedine vety mi zrusi
> vsechno - tedy stylem vsechno, nebo nic. Protoze prakticky totez,
> co se deje nad jednou vetou, se deje davkove nad vice vetami
> (zacatek a konec transakce je kolem baliku). Predstav si
> rozzureneho uzivatele, kdyz mu povolis kesovani na nevhodnem
> miste a on prijde diky jedne vete zmenene nekym jinym o vsechny
> upravy ve 20 vetach. Nez tohle sverovat kesujicim komponentam,
> to si radeji obslouzim sam a odchytim prave jen tu vetu, kde dojde
> k chybe a ostatni v klidu ulozim. Tolik k BDE.
Nesmysl.
Rizeni s cached updates ma plne pod kontrolou a je na tobe
kolik transakci (nebo zadnou) rozjedes.
Cached updates totiz znamenaji odchyceni si to sam
(viz. ma odpoved na jiny tvuj mail).
A pokud udelas neco nevhodneho tak je to preci tvoje chyba
a nelze tim prece argumentovat v neprospech nejakeho reseni.
Rob
MSDE a pocet uzivatelu - zkusenosti
[*] delphi(zv)dingo(tec)cz - 16.12.1999 12:07:42 gmt
> Ahoj,
> Urcite, testovali jsme 10 klientu
> Pokud se jedna spise jen o cteni, tak bych se vubec nebal jeste =
> vetsiho cisla nez 12.
Tak uvidime, jak to zvladne. Pustim se do toho a praxe ukaze :o)
Bob
Jak schovat MDI wokno ? - vyreseno
[*] bures <bures(zv)ssakhk(tec)cz> - 16.12.1999 13:17:28
Mockrate dekuji za tuto odpoved, ktera mi pomohala a to zly mdi wokno schovala :)
Vlada
----- Original Message -----
From: Michal HAMPL
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, December 16, 1999 9:38 AM
Subject: RE: Jak schovat MDI wokno ? A co takhle skusit toto:
procedure TMdiForm1.Button1OnClick(Sender: TObject);
begin
ShowWindow(Handle, SW HIDE);
end;
procedure TMdiForm1.Button2OnClick(Sender: TObject);
begin
ShowWindow(Handle, SW SHOW);
end;
-----Original Message-----
From: bures [mailto:bures(zv)ssakhk(tec)cz]
Sent: Wednesday, December 15, 1999 1:05 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Jak schovat MDI wokno ? Ahoj lidi
Mam tu takovy maly a zrejmene nepodstatny promlem. Kdyz mam nejaky form jako FsMdiChild tak
nelze uplne schovat pouze se minimalizuje...
Neni mozne aby se ten form schoval uplne ???
me napadlo pouze toto :
schovat :
form3.FormStyle := FsNormal;
form3.Hide;
ukazat:
form3.FormStyle := FsMdiChild;
form3.Show;
Ale toto reseni se mi vubec nelibi ... nelze to udelat nejakym jinym zpusobem ?
Predem dekuji za odpovedi Vlada
Kylix
[*] Tomas Kouba <tomas(zv)neo(tec)cz> - 16.12.1999 13:30:29
Zdravim a preji pekny den,
zajimal by me Vas nazor na projekt Kylix. Pro programovani v D to ma podle
meho podstatny vyznam. V pripade, ze se pisi programy, ktere casto obchazeji
VCL knihovnu a volaji sluzby Win32, budou mit tyto programy velke problemy
pri prevodu pod Linux, kde by se tyto volani museli nahradit prislusnymi
volanimi (prevdepodobne) KDE.
Podle vyjadreni Inprise by mela byt pod Linux prevedena temer cela VCL
knihovna (to bych delat nechtel), ale programy, ktere ji obchazeji budou
pevne privazany k MS Windows, coz bude znamenat prinejmensim
konkurencne-marketingovou nevyhodu.
Ma na to nekdo nejaky nazor?
------------------------------
Tomas Kouba
mailto:tomas(zv)neo(tec)cz
trideni was: D5 - ano ci ne ?
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.12.1999 13:31:03
> -----P�vodn� zpr�va-----
> Od: Pavel Cisar [mailto:pcisar(zv)aktis(tec)cz]
>
> > Predevsim to do znacne miry zavisi na charakteru ulohy,
> > na objemech dat a velikosti jejich segregace. Technologie
> SQL je zalozena
> > na mnozinovych principech. Ja mohu interaktivne a velmi intenzivne
> pracovat
> > s podmnozinou dat.
>
> Naprosto souhlasim a nikdy jsem netvrdil opak. Jde samozrejme
> o segregaci
> dat. Bohuzel jsi opomel i druhou cast problemu, a tou je
> transformace dat.
Tak tohle neni moc fer.
Pavle, Tys to odmazal a Jarovi tvrdis, ze neco opomel.
Kopiruji sem tedy Jarovo odmazane:
> "Ja mohu interaktivne a velmi intenzivne pracovat
> s podmnozinou dat. Napr. z nekolikalete historie zaznamu me zajima
aktualni
> mesic
> a pouze nektere polozky. To byva maly zlomek dat. Tento zlomek dat
> presouvam na klienta a tam ho mohu dale zpracovat.
Ale myslim, ze se uz zaciname dohadovat o blbinach ale ze v zasade
vsichni chapeme o co jde.
> 2) ...odeslat segregovanou mnozinu na server k transformaci. Tezko
> realizovatelne jen prostredky SQL serveru. Muze to na prvni
> pohled vypadat
> jako naprosta pitomost, ale jsou i pripady kdy je to vhodne
> reseni (napr.
> pri komplikovane transformaci jako napr. u map, zvuku apod.
> jde vsak typycky
> o spec. server, ne SQL)
proc rozlisujes podle typu serveru? Nechapu to kriterium.
Podle ceho je urceno, ze klient by mel umet tridit data sam a nemusi
umet zpracovavat zvuk?.
Transformace dat (rikejme tak cinnostem, ktere jinym zpusobem zobrazuji
stejna data, jestli jsem Te spravne pochopil, ale asi to neni dobry pojem)
neni zadna datova manipulace. Je to jenom urcite formatovani zobrazeni.
To si muze klient delat jak ho napadne (pokud mu to klientska cast aplikace
dovoli) a je plne v jeho rezii, v tom jsme, myslim, vsichni zajedno.
Jenomze od zacatku nebyla rec pouze o techto transformacich dat
ale obecne o trideni. Trideni provadene za ucelem urceni vyberu dat,
ktera se budou vracet na klienta, neni transformace dat. Je to soucast
vyberu dat, tedy prikazu SELECT. A kdyz pouzijes ORDER BY v selectu,
pouzivas ho nejen proto, abys zobrazil data v pohodlne forme, ale take
proto,
ze tim ten vyber urcujes. Cim drive je ve vysledku dotazu uveden urcity
zaznam,
tim vetsi je pravdepodobnost, ze se skutecne dostane na klienta.
> [odmaz popisu tri strategii]
> Bohuzel, neni to jednoduche. Jiz radu let se snazim navrhnout a
> implementovat nejvhodnejsi postupy pro tuto strategii (a rekl
> bych ze s
> vyraznymi uspechy). Pokud nekoho tyto postupy zajimaji, rad
> se o ne podelim.
Zajima me to. Jestli jsem to dobre pochopil a mluvils zde o databazich,
snazis se
1) provest vyber dat a jeho nacachovani na klientovi
2) operace nad cachovanymi daty slouzici k variabilnimu zobrazeni
(trideni, filtry, atd.)
Neco podobneho mame (ne v Delphi). Interaktivni datove ulohy aplikace
maji svou cache a univerzalni metody pro prace s daty. Aplikace jsou MDI,
kazda uloha je jeden MDIChild. A nad ulohou jsou obecne funkce pro praci
s touto cache:
Vyber - klient vyplni nejake udaje, sestavi se SQL dotaz a naplni se cache
Setridit - setridi data v cache
Filtr - Filtr nad Cache
Tisk - tisk aktualni cache
Export
Najit
Najit dalsi
Potom v kazde uloze staci nadefinovat zakladni SELECT a nakreslit zobrazeni
dat
a je tam implementovana siroka moznost uzivatelske interakce. Takhle nejak
to
mas na mysli?
Snazil jsem se o neco podobneho i v Delphi, jenomze jsem se na to vykaslal,
protoze jsem postupne narazel na dost problemu. Nejsou sice neresitelne,
ale jejich obchazeni bylo dost neprijemne. Je to uz dost dlouha doba,
tak nejsem schopen byt konkretnejsi, ale stejne by mne Tve vysledky
zajimaly.
Jura
Ovaldani hlasitosti
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 16.12.1999 13:55:40
Pokud jsi si prostudoval help k�teto funkci, tak jsi se musel dozvedet, ze
druhym parametrem nastavujes hlasitost jak v�pravem tak i levem kanale.
A pro kazdy kanal je vyhrazen WORD. Tedy parametr tvori dva WORDY - DWORD.
Ty jsi ale plnil pouze dolni word tedy levy kanal a pravy word jsi nechal na
nule, tj. hlasitost praveho kanalu=0. Tim se ti take nastavil balanc doleva.
Jestlize ho chces mit uprostred musis nastavit hlasitost na pravem kanale
stejnou jako na levem.
Z�tveho mailu je zrejme, ze pouzivas komponentu TTrackBar s�nastavenim Min=0
a Max=255.
Proto musis napsat volani funkce takto :
WaveOutSetVolume(0,trackbar1.position+256*trackbar1.position+65536*trackbar1
.position+16777216*trackbar1.position);
Pavel.
Ahoj radi bychom se zeptali jak se pouziva WinApi�WaveOutSetVolume.
Vzdy kdyz tuto funkci pouzijem
hlasitost se�pohybuje tak jako potrebujem, ale balanc se�nam hned
nastavi uplne do leva.
pro ovaldani pouzivame toto:
�
WaveOutSetVolume(0,trackbar1.position + 256 * (trackbar1.position));
�
predem dekujeme� za pomoc
�
Vlada a�Cody
�Nalezeni MDIChild okna
[*] Ren� Otisk - 16.12.1999 14:23:42
Hi,
Nevite, jestli existuje nejaka API fce, ktera by mi vratila pozadovane MDI Child window (Handle). EnumWindow a FindWindow neumeji hledat MDI Child window. Uff to je nejak moc Window najednou.
Dekuji
Sroub
Zrychleni aplikace
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 16.12.1999 14:26:38
Pomale je toto>
Obr.Canvas.Pixels[x,y]
preto treba k pixlom obrazku pristupovat inym sposobom
ked sa ti to nechce aspon to nerob zbytocne dvakrat>
if Obr.Canvas.Pixels[i+i1,j+j1]=$00000000 then d1 := true;
if Obr.Canvas.Pixels[i+i1,j+j1]=$00ffffff then d3 := true;
ak pouzijes len jeden riadok budes to mat takmer o polovicu
rychlejsie
na rychly pristup k pixlom obrazku existuje
TFastIMG
gordy <gfody(zv)jps.net>
http://www.jps.net/gfody
olej
> -----Original Message-----
> From: CHMEL Karel, Mgr.
> Sent: 16. december 1999 7:56
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Zrychleni aplikace
>
> Zkus doplnit ukonceni obou fro cyklu v okamziku,
> kdy uz jsou d1 i d3 nastaveny na true. Dalsi
> probihani cyklu uz nic noveho neprinese.
>
> Karel
>
> -----P�vodn� zpr�va-----
> Od: Infra Red [mailto:nezadal(zv)volny(tec)cz]
> Odesl�no: 16. prosince 1999 0:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Zrychleni aplikace
>
>
> Ahoj,
> v ramci diplomove prace zjistuji pomoci metody "box dimension" fraktalni
> dimenzi obrazu.
> Obrazem je cernobila bitmapa a velikosti cca 17000x4000 pixelu. Vypocet
> trva
> cca 10 hodin.
> na P 200, 32 MB RAM. Prikladam smycku, ve ktere to travi vetsinu casu.
> Nepomohl by mi nekdo jak aplikaci zrychlit ?
> Dekuji za kazdy napad.
> Martin Nezadal
>
> j := 0;
> repeat
> i := 0;
> repeat
> Application.ProcessMessages;
> d1 := false; d3 := false;
> for j1 := 0 to n-1 do begin
> for i1 := 0 to n-1 do begin
> if Obr.Canvas.Pixels[i+i1,j+j1]=$00000000 then d1 := true;
> if Obr.Canvas.Pixels[i+i1,j+j1]=$00ffffff then d3 := true;
> end;
> end;
> if (d1 = true) and (d3 = false)then Inc(Data[poradi,1]);
> if (d1 = false)and (d3 = true) then Inc(Data[poradi,3]);
> if (d1 = true) and (d3 = true) then Inc(Data[poradi,2]);
> Inc(i,n);
> until i > A.X-1;
> Inc(j,n);
> until j > A.Y-1;
>
>
> Obr je TBitmap
> A je TPoint - pravy dolni roh obrazku
omezeni TStringList a TMemo
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 16.12.1999 14:45:16
Ahoj
Richard Valny wrote:
>
> Ahojky,
> proc je TStringList omezen velikosti a TMemo nikoli? (pochopitelne oboji ve WinNT, ve Win9x je omezeno oboji)
> Co puzit pripadne misto TStringListu aby to neztratilo rychlost? (pouzivam je jako objecty v TCheckListBoxu)
Jestli jsi delal jeste v BP 7, tak tam byly objekty TCollection a
TStringCollection. Nekdo to prepsal pro 32 bitu a myslim, ze omezeni
velikosti to nema. Pro pouziti v TCheckListBoxu by to treba slo
upravit.
Pokud to chces, ozvi se. Je to free a se zdrojakem.
Vaclav Sazima
trideni was: D5 - ano ci ne ?
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 16.12.1999 15:22:15
Haj hou!
From: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
>Tak tohle neni moc fer.
>Pavle, Tys to odmazal a Jarovi tvrdis, ze neco opomel.
Eh, sorry. Nebyl v tom zadny zly umysl.
>> 2) ...odeslat segregovanou mnozinu na server k transformaci. Tezko
>> realizovatelne jen prostredky SQL serveru. Muze to na prvni
>> pohled vypadat
>> jako naprosta pitomost, ale jsou i pripady kdy je to vhodne
>> reseni (napr.
>> pri komplikovane transformaci jako napr. u map, zvuku apod.
>> jde vsak typycky
>> o spec. server, ne SQL)
>
>proc rozlisujes podle typu serveru? Nechapu to kriterium.
>Podle ceho je urceno, ze klient by mel umet tridit data sam a nemusi
>umet zpracovavat zvuk?.
Klidne muze, jen jsem hledal vhodny priklad, kdy nemusi byt optimalni tyto
transformace delat na klientovi a vyplati se je poslat na server, napr. kdyz
je transformace komplikovana, vyuziva spec. HW ktery na klientovi neni apod.
>Transformace dat (rikejme tak cinnostem, ktere jinym zpusobem zobrazuji
>stejna data, jestli jsem Te spravne pochopil, ale asi to neni dobry pojem)
>neni zadna datova manipulace. Je to jenom urcite formatovani zobrazeni.
>To si muze klient delat jak ho napadne (pokud mu to klientska cast aplikace
>dovoli) a je plne v jeho rezii, v tom jsme, myslim, vsichni zajedno.
Ja si dovolim oponovat, ze transformace neni JEN zmena zobrazeni. Jde o
jakoukoliv manipulaci s daty (preusporadani, vyhledavani, zmena formatu) bez
podstatne zmeny samotnych dat a *predevsim* bez zmeny mnoziny dat (relace
je ta sama, jen jeji vnitrni struktura je jina). Typyckym prikladem je
napriklad serazeni dat v mnozine. V konecnem dusledku, zmena zobrazeni vubec
nemusi vyzadovat transformaci samotnych dat (pouzije se jen jiny algorytmus
pro zobrazeni).
>Jenomze od zacatku nebyla rec pouze o techto transformacich dat
>ale obecne o trideni. Trideni provadene za ucelem urceni vyberu dat,
>ktera se budou vracet na klienta, neni transformace dat. Je to soucast
>vyberu dat, tedy prikazu SELECT. A kdyz pouzijes ORDER BY v selectu,
>pouzivas ho nejen proto, abys zobrazil data v pohodlne forme, ale take
>proto, ze tim ten vyber urcujes. Cim drive je ve vysledku dotazu uveden
urcity
>zaznam, tim vetsi je pravdepodobnost, ze se skutecne dostane na klienta.
Tak tady jsi bud vedle jak ta jedle, nebo mi neco zasadniho naprosto unika
:o) ORDER BY je pouze prikaz serazeni FINALNIHO vystupu, tedy az PO vsech
vyberech a na samotnem vyberu se nijak nepodili. Kdyz nad tim tak premyslim,
tak mam pocit ze jsi myslel spise GROUP BY. Coz ovsem neni trideni a
samozrejme urcuje finalni vyber. O tom tu ale rec nebyla.
>Zajima me to. Jestli jsem to dobre pochopil a mluvils zde o databazich,
>snazis se
>1) provest vyber dat a jeho nacachovani na klientovi
>2) operace nad cachovanymi daty slouzici k variabilnimu zobrazeni
> (trideni, filtry, atd.)
Presne tak. Cela tahle koncepce neni ani nova, ani nijak vyrazne skvela :o)
Lze ji ale podstatne vylepsit.
V jadru je problem asi takovy:
a) Data jsou prilis velka. I kdyz se neprenesou vsechna hned (jako u BDE),
problem to neresi, jen odlozi. Navic jsou klienske zdroje nadmerne
zatezovany.
b) Pri zmene dat je nutne synchronizovat data na klientovi s daty v databazi
coz neni ani jednoduche ani efektivni.
Jak to vyresit ?
a) Data jsou prilis velka.
Je nutne najit postup, ktery vyrazne redukuje mnozstvi dat na klientovi
(rezie na prenos a rezie na uchovavani na klientovi). Mnozstvi dat je dano
plochou tvorenou poctem radek x poctem sloupcu. Cilem tedy je, aby tato
plocha byla co nejmensi.
To lze dvema zpusoby:
1) Omezit resultset horizontalne (mene radek). To je nejjednodussi a
nejcasteji pouzivana metoda. Bohuzel, relacni databaze uz z principu nejsou
schopne predem urcit velikost vysledne mnoziny. Je zde tedy riziko, ze
mnozina bude i tak prilis velka. Protoze je rozhodujici "plocha" dat, ma
velikost jednotlivych radku znacny vliv na efektivitu teto metody. Jeji
ucinnost je tedy velmi promenliva nejen mezi tabulkami a dotazy, ale i v
case (objem dat v databazi ma vliv na pocet vybranych radku pri konstatnich
vyberovych podminkach). Jak videt, tato metoda sama o sobe neni uspokojivym
resenim.
2) Omezit resultset vertikalne (mene sloupcu). Idealnim resenim je prenaset
pouze jeden sloupec -> primarni klic. S jeho pomoci pak lze velmi (ale
opravdu velmi) tychle ziskat v pripade skutecne potreby ze serveru vsechny
udeja v radku. Nutno podotknout, ze vetsinou ne vsechny udaje z vybrane
mnoziny jsou pro uzivatele podstatne a jsou mu nakonec zobrazovany, at uz je
na vine spatne formulovana podminka nebo jiny duvod. PK je konstantni delky
a nebyva vetsinou prilis dlouhy. Je tedy mozne mit ve vybrane mnozine i
velke mnozstvi radek pri malem celkovem mnozstvi dat (napr. pri PK dlouhem
16 byte a 10,000 radek je to pouhych 156 kB). Vzhledem k tomu, ze rozumna
maximalni velikost resultsetu (z pohledu ovladatelnosti uzivatelem) je mezi
1,000-5,000, je zde vice nez velka rezerva (viz bod 1) a casy prenosu CELE
teto mnoziny jsou zanedbatelne.
Jak je videt, ma druha metoda velky vychozi potencial (stabilni vyvojovou
funkci -> da se dobre predpovidat chovani, okamzita znalost velikosti
mnoziny, minimalni naroky na zdroje site, klienta i serveru -> vybrat z
databaze jeden sloupec je rychlejsi nez cele radky). Ma ale rovnez sva
uskali. Tato uskali se daji resit postupy znamymi z techniky mapovani
objektu do databazi (nemusi ale jit primo o O-R mapping, jen vyuziti
urcitych postupu). To by vydalo na trochu delsi psani, ale budu o tom mluvit
na seminari v Belohrade, takze tam to muzeme i detailneji prodiskutovat.
Snad to jako zakladni nadhoz zatim staci. Na pripadne konkretni dotazy
samozrejme odpovim a upresnim, jen tady ted nechci psat zadnou knihu :o)
Zatim hodne zdaru
Ovaldani hlasitosti
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 16.12.1999 15:27:41
> Bures napsal
> Ahoj radi bychom se zeptali jak se pouziva WinApi WaveOutSetVolume.
> Vzdy kdyz tuto funkci pouzijem hlasitost se pohybuje tak jako potrebujem,
> ale balanc se nam hned nastavi uplne do leva.pro ovaldani pouzivame toto:
>
>WaveOutSetVolume(0,trackbar1.position + 256 * (trackbar1.position));
volume(pos+65536*pos)
Daniel
dwVolume
New volume setting. The low-order word contains the left-channel volume setting, and the high-order word contains the right-channel
setting. A value of 0xFFFF represents full volume, and a value of 0x0000 is silence.
If a device does not support both left and right volume control, the low-order word of dwVolume specifies the volume level, and the
high-order word is ignored.Nalezeni MDIChild okna
[*] bures <bures(zv)ssakhk(tec)cz> - 16.12.1999 15:30:44
Ahoj pokud mas to wokno ve svm projektu tak staci form2.handle
pokud mimo projekt tak ti asi nepomuzu
Vlada
----- Original Message -----
From: Ren� Otisk
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, December 16, 1999 2:23 PM
Subject: Nalezeni MDIChild okna
Hi,
Nevite, jestli existuje nejaka API fce, ktera by mi vratila pozadovane MDI Child window (Handle). EnumWindow a FindWindow neumeji hledat MDI Child window. Uff to je nejak moc Window najednou.
Dekuji
Sroub
DB-aware komponenty (Was: D5 - ano ci ne ?)
[*] Robert Kindl <rob(zv)exec(tec)cz> - 16.12.1999 15:35:11
> > > > Bud mluvis o necem jinem (nepletes si to s TTable?),
> > > > nebo jsi asi nikdy DBEdit nepouzil a meles
> > > > uplne nesmysly ktere jsi jen slysel.
> > > > V kazdem pripade tady nerozsiruj HLOUPOSTI!!!!!
> > > > Sorry, ale to co jsi tu napsal o DBEditu
> > > > opravdu neni ani trochu pravda.
> > > > Rob
> > > Mohl bys nam vsem tedy zjevit pravdu o DBEdit, prosim?
> > > Pred tim vsak uvedu par veci:
> > > Konfigurace: TDatabase pripojena na MS SQL Server, databaze pubs,
> > > TQuery:
> > SLQ = select * from authors, RequestLive:=true, Navigator. DBEdit
> > napojeny na au_lname. > ... > Pri pouziti TTable dostanes obdobne
> > vysledky > Zbysek Hlinka
> >
> > Nic z toho neni vlastnosti DBEdit, ale chovani TQuery.
> > Jak jsi spravne rekl pri pouziti TTable dostanes obdobne vysledky, ale
> > ne stejne, protoze TTable se chova jinak. Tim je dokazano, ze za to
> > DBEdit nemuze :-)
> Zbysek Hlinka
> Uaaaa! :-) DBEdit je primo napojen na DataSet a tedy pracuje s
> jeho vlastnostmi. Jestlize ho napojim na TQuery, pak nutne musim
> pocitat s chovanim TQuery, protoze TQuery nejde odpojit. A za
> tohle DBEdit muze. Dalsi viz nize.
To je opravdu zajimave :-)
Takze pokud pojedu autobusem, ktery jezdi na naftu
a tudiz smrdi, tak pak budes prohlasovat, ze
jezdim na naftu a smrdim?
Co kdyz obcas jezdim na kole (ano i to se stava)?
Prectes-li si prvni vetu tak jsem se te hned v prvnim mailu
ptal nepletes-li si chovani DBEdit s TTable.
Proc jsi nerekl hned, ze hazis chovani TQuery(TTable) na TDBEdit?
Ten za to nemuze a proto vznikla cela tato neplodna diskuse...
> > Cele to zavisi na tom jak s TQuery zachazis.
> > Ale neni zadny problem udelat aplikaci pouzivajici DBEdit a nemajici
> > prakticky zadny z uvedenych problemu. Takhle jsou, ale naprogramovany
> > maximalne dema k Delphi! Zadny normalni programator se s tim
> > nespokoji. A v zadnem pripade neni pravdou, ze uvedene problemy
> > implikuje pouziti DBEditu. Je to vlastnost LIVE
> > QUERY!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>
> Bez live query by pouziti DBEdit k editaci nemelo smysl, a tim
> padem ani tato debata. :-)
DBEdit k editaci mohu pouzit i bez live query:
1. zapnu cached updates
2. nasypu data do nejake TMemoryTable a edituji tuto
Toto je to kolo, na kterem DBEdit muze jet a nebude zrat ani naftu
ani nebude smrdet.
> > ad 2. Volani Edit (Insert) je relativne prirozena
> > vlastnost Editacni radky. Jak by jsi asi chtel aby to fungovalo (pokud
> > chces dovolit editaci az po explicitnim stisku nejakeho tlacitka tak
> > od toho mas property AutoEdit u DataSource). Post DBEdit nevola nikdy!
>
> Zde jsem se nepresne vyjadril - Post nevola DBEdit jako takovy,
> ale vola ho otevreny DataSet, pokus se hnes na dalsi vetu (a
> nemas zapnute kesovani). Tedy chovani je stejne, jako kdybys
> editoval primo nad DBGridem.
To je rozhodne pravda.
Pokud pustis uzivatele na live query pomoci DBEditu a DBNavigatoru
je to stejne jako kdyby jsi mu dal pro editaci DBGrid.
Oboji je ale spatne reseni, ktere nikdo soudny na opravdovou aplikaci
nemuze pouzit.
Argumentovat moznosti zneuziti (spatneho pouziti) proti necemu
je nesmysl. To by jsi nemohl pouzivat nic, nebot
prakticky vse se da zneuzit...
> > ad 4. Staci zapnout CachedUpdates a mas plnou kontrolu nad
> > tim co se pri updatovani dat odehrava.
>
> Coz neni pravda, protoze v nekterych pripadech (pokud upravy na
> sobe zaviseji) mas sice lepsi, v pripadech kdy zmeny na sobe
> nezavisi tak dokonce horsi, ale urcite ne _plnou_ kontrolu.
> Kazdopadne ve veci DBEdit se nic k lepsimu nemeni.
> CachedUpdates pomaha v urcitych situacich, ale vydavat ho div ne
> za vselek je dost nebezpecne!
Nekdo je schopen se utopit na lzici vody a nekdo se neutopi
pri preplavani kanalu LaManche. Neni tedy mozne rici,
ze voda je nebezpecna. Jak pro koho a jak ji pouzivas.
Ja pouzivam JEN cached updates a nebyt jedne chyby BDE,
kterou Borland ne a ne opravit, tak bych mohl prohlasit,
ze mi zcela postacuji na to abych tim ukladal do databaze co
chci ja a ne to co chce BDE.
> Shrnu tedy jinymi slovy, proc povazuji DBEdit za nevhodny pro
> Pokud pouziji postup z tveho ad 1, pak namisto DBEditu nacpu
> data do obycejnych editu, tam je zpracuji, a pak pod plnou
> kontrolou (protoze o plne kontrole lze hovorit az zde) vyresim
> ulozeni zmen. Pokud dojde k chybe, stale si ponechavam plnou
> kontrolu (jak to jen jde) nad osetrenim te chyby, aniz bych ztratil
> porizena data. Pokud budu pracovat nad DBEditem (a treba ve
> spojeni s BDE), pak v pripade chyby o data prijdu, protoze dataset
> mi vrati chybu a porizena data proste nedovoli ulozit. A protoze
> DBEdit neumi uchovat data v pripade, ze bych dataset zavrel, je mi
> k nicemu. Jiste, mohu data vytahnout ven do pomocnych
> promenny, ale tohle mohu udelat uz na zacatku, dataset v klidu
> zavrit a usetrit si tak zbytecne starosti. Jestlize se ti DBEdit libi, je
> to samozrejme tvoje vec. Ja zde uvadim duvody, proc se mi nelibi a
> proc jeho pouziti nad uvedenou sestavou povazuji za
> problematicke. Nemluve o tom, ze za dalsi nerozum povazuji
> udrzovani otevreneho datasetu nad jednou vetou, jen proto, ze tam
> cosi stouram (a mezitim mohu jit na obed, vyridit 10 telefonu a
> kdovico jeste). Otevreny dataset mi v pripade editace k nicemu
> nepomaha, spolu s pouzitim DBEditu spise naopak.
No dobre,
i takhle se da pracovat, to ti neberu.
Ale puvodni diskuse vznikla tak, ze jsi rekl
DBEdit je spatny a pak jsi vyjmenoval nekolik
podle tebe spatnych vlastnosti, ktere DBEdit zpusobuje.
Ale nezda se ti, ze jsi se vyjadril VELMI nepresne,
kdyz cely problem je v nevhodnem pouzivani
TQuery a BDE a s DBEditem nema nic spolecneho?
> Kdyz to uzavru, tak cela debata je vlastne o stylu prace nad
> databazemi s narazkami na chovani tech ci onech komponent.
Presne tak, z tohoto hlediska je tato diskuse OK.
Z hlediska DBEditu je to vsak o koze a o voze.
Kdyby jsi alespon rekl, ze vsechny DB-aware komponenty
maji problem, nebo ze je spatna koncepce prace,
ale ty jsi se tvaril jako kdyby ho mel jen DBEdit...
Rob
trideni was: D5 - ano ci ne ?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 16.12.1999 15:56:14
> > [odmaz popisu tri strategii]
> > Bohuzel, neni to jednoduche. Jiz radu let se snazim navrhnout a
> > implementovat nejvhodnejsi postupy pro tuto strategii (a rekl
> > bych ze s
> > vyraznymi uspechy). Pokud nekoho tyto postupy zajimaji, rad
> > se o ne podelim.
> Zajima me to. Jestli jsem to dobre pochopil a mluvils zde o databazich,
> snazis se
> 1) provest vyber dat a jeho nacachovani na klientovi
> 2) operace nad cachovanymi daty slouzici k variabilnimu zobrazeni
> (trideni, filtry, atd.)
> Neco podobneho mame (ne v Delphi). Interaktivni datove ulohy aplikace
> maji svou cache a univerzalni metody pro prace s daty. Aplikace jsou MDI,
> kazda uloha je jeden MDIChild. A nad ulohou jsou obecne funkce pro praci
> s touto cache:
Presne tak MDI a MDIChild, ale v Delphi nad MSSQL pres BDE.
> Vyber - klient vyplni nejake udaje, sestavi se SQL dotaz a naplni se
cache
klient urcuje, ktere sloupce chce videt, podle toho se modifikuje
SELECT fields a FROM table
> Setridit - setridi data v cache
klient modifikuje ORDER BY - tridi server
> Filtr - Filtr nad Cache
klient modifikuje WHERE - filtruje server
> Tisk - tisk aktualni cache
> Export
tiskne/exportuje se co je nacteno (cache)
> Najit
> Najit dalsi
toto je v zasade podobne filtrovani - takze hledani dela zase server
> Potom v kazde uloze staci nadefinovat zakladni SELECT a nakreslit
zobrazeni
> dat
> a je tam implementovana siroka moznost uzivatelske interakce. Takhle nejak
> to
> mas na mysli?
> Jura
Ja ano.
Rob
Language Drivers of Table and Index do not match -
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 16.12.1999 16:10:38
Zdravim :)
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Sent: Wednesday, December 15, 1999 11:37 PM
Subject: Re: Language Drivers of Table and Index do not match
> > Pri pokuse otvorit tabulky (vytvorene v D4, DBF, dBase SLO cp852) v D5
> > mi hadze chybu "Language Drivers of Table and Index do not match".
> > Pozrel som sa na tabulky Database Desktopom - v strukture tabulky mi
> > vyhodil, ze mam driver "ASCII Ansi", co je znacne odlisne od nastaveneho
> > D4.
> ze jsi ji treba jednou oteviral pres DBASE driver a po druhe pres FOXPRO ?
nieeeeee
> Melo by to jit odstranit reindexaci. Tady je nastroj "Table Interrogator"
> http://www.borland.com/devsupport/bde/utilities.html
Dakujem za linku, program som pouzil, avsak chyba bola uplne niekde inde...
Bolo potrebne nastavit v BDE Administrator -> Configuration ->
Drivers -> Native -> dBase -> Langdriver na dBASE SLO cp852. Po tomto
nastaveni vsetko beha ako namydleny blesk...
Huh, to mi ale odlahlo
Ondrej
------
Ondrej Jaura
Datalock a.s.
jaura(zv)datalock.sk
------ :)
Seriove cislo
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.12.1999 16:15:01
Ad 1 - Nejsem si jist, zda spravne chapu dotaz.
Ten "hotovy progam" je Tvuj a Ty jej chces sirit
jako shareware s tim, ze az jej nekdo bude chtit
zakoupit, posles mu jen nejake cislo, ktere
on vyplni do nejakeho okna a tim se program
stane registrovanym ? Treba neco jako WinZ-i-p ?
Ad 2 - Nevim, nepouzivam InterBase
Dobra.
----------
1)
poradte mi, prosim, ako a kde mam v hotovom programe spravit kontrolu na
seriove
cislo, nieco ako shareware verziu (napr: na obmedzenie tlace).
2)
ako v InterBase nadefinujem uzivatelov s roznymi pravami
Jakou databazi doporucite?
[*] Tomas Peroutka <tperoutka(zv)drusoft(tec)cz> - 16.12.1999 16:21:46
Cau,
dekuji za vycet vlastnosi, to mi zatim staci. Zajimalo by me, jak
si stoji WinBase v porovnani treba s InterBase nebo MS SQL Serverem.
Jsou tam nejake zasadni rozdily?
Pozn. Nechci tady zacit nejakou sahodlouhou debatu o detailech, mam
na mysli nejakou zasadni vec (jako treba, nestabilita apod).
Taky bych rad znal nazor na pomer cena/vykon tohoto produktu.
A nakonec, aby toho nebylo malo - pokud existuje vic nativnich komponent,
mohu znat jejich adresy?
Predem dik
Tomas Peroutka
tperoutka(zv)drusoft(tec)cz
Prevencia pred a oprava poskodenia databazovych su
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 16.12.1999 16:24:38
Zdravim :)
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Sent: Wednesday, December 15, 1999 11:32 PM
Subject: Re: Prevencia pred a oprava poskodenia databazovych suborov
> Pro Paradox tabulky existuji TUtility, ktere ti umozni nektere opravy
> > Ako su nachylne dBase a Paradox tabulky na napr. vypadok prudu, nahodne
> > vypnutie pocitaca (ja som ho nevypol, to same :), atd. ?
> Pak je tu jeste Access, ktery je alespon podle nekterych reakci zde na tom
A na chudinku dBase sa nedostalo? :)))
V aplikacii pouzivam dBase tabulky. Vacsina (=vsetky :) opravnych
nastrojov na stranke http://www.borland.com/devsupport/bde/utilities.html je
pre Paradox.
Clanok http://www.itecuk.com/delmag/paradox.htm vyzera zaujimavo, ale je
o Paradoxe.
Viac ma zaujima schopnost programu "spamatat" sa a opravit chyby
vlastnymi silami, ako pouzitim dalsich programov; v tabulkach dBase.
Za zachranne vesty vopred dakujem
Ondrej
------
Ondrej Jaura
Datalock a.s.
jaura(zv)datalock.sk
------ :)
Mal� zku�enost s inacessible value
[*] SMID Oldrich, Ing. <SMIDO(zv)tpro(tec)cz> - 16.12.1999 16:44:42
Mil� Delph�ni,
Takov�to v�c se mi stala.
Delphi 5, po �erstv�m p�ekladu najednou p�i debbugrov�n� se mi
znep��stupnily prom�nn�, m�sto hodnoty: inacessible value.
Vypnul jsem Delphi, zapnul a ejhle, nem��e na��st soubor se symboly. Uvoln�m
pro jistotu v�t�� m�sto na disku (symbol file m� 6MB), p�elo��m znova a
stejn� chyba. Co nakonec pomohlo ? Defragmentovat disk ...
Ale V�m se to ur�it� st�t nem��e, Vy si sv� disky udr�ujete v lep��m
po��dku.
S pozdravem
Olda �m�d
Ing Old�ich �m�d
Topol Pro s.r.o. http://www.tpro(tec)cz
250 01 Brand�s nad Labem P.O.Box �. 4
tel.: 0202 800 168, fax: 0202 800 166, mobil: 0603 219 272
e-mail: smido(zv)tpro(tec)cz
vytvaranie tried
[*] Michal Hlav�� - 16.12.1999 16:55:18
Zdravim
chcem sa spytat, ze ked mam vytvorenu triedu napr. TMyGrid =
class(TStrignGrid). Vytvaram ho:
myGrid = TmyGrid.Create; No ono vsetko je ok. Ako vlozim do Eventu
OnMouseDown nejaku proceduru, ktoru si napisem vo class-e TForm.
Vdaka, Miso
CreateProcess
[*] Lubos <bruce(zv)pobox.sk> - 16.12.1999 17:14:11
Caute Delfinci!
Mam takyto problemik.
Potrebujem pouzit CreateProcess, odkukal som tu v konferencii co a ako,
ale
mi to nefunguje. Pouzivam CB4.0 a mozno je to tym.
Vie mi niekto poradit ako to treba pouzit v CB?
Posielam kod ktory pouzivam.
Vdaka.
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
LPSTARTUPINFO StartupInfo;
PROCESS_INFORMATION *ProcessInfo;
try
{
if(CreateProcess("notepad.exe", NULL, NULL, NULL, true,
NORMAL_PRIORITY_CLASS,
NULL, NULL, StartupInfo, ProcessInfo)!=0)
MessageBox(NULL,"chyba!!","",MB_OK);
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
QuickReport
[*] Ale� Kle�ka - 16.12.1999 17:18:51
Nazdar panove,
mam dost nechutny problem s quickreportem a chtel bych se zeptat, jestli
to uz nekdo neresil.
Mame programek ve kterem je nekolik quickreportu. U kolegyne na PC se
stalo, ze se pri zavirani preview objevilo 'access violation'; ta sama akce
u kolegy zpusobila 'application error' a na mem pocitacito to klaplo bez
problemu.
Je to lehce schiza, ale tim to nekonci. Jiny quickreport ( zakomponovany do
te same aplikace ) zkouseny na techto pocitacich se choval zase uplne jinak
( myslim tim - na kterem padl a na kterem ne ). Uz nevime co s tim, protoze
nejak nemuzeme najit souvislosti. Uvazovali jsme, ze by problem mohl byt v
konfiguraci jednotlivych PC, ale na to je to moc nepravidelne.
D4 C/S, NT4, QuickReporty jsou navazane na DOA komponenty
Diky predem za jakoukoli ideu
Alesh Kleczka
Existuje archiv konference na CD ?
[*] Tom�s Vesel������ �+?n( ��?r� - 16.12.1999 17:31:22
Koukni se sem
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
a tam je i odkaz na ftp, kde je cela konference - cca 30MB
-----Original Message-----
From: Petr Dedecek <petrd(zv)atlas(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 15. prosince 1999 12:58
Subject: Existuje archiv konference na CD ?>Ahoj,
>kdysi jsem tu zahledl programek na prohlizeni archivu konference. Problem
byl, ze jsem z Outlooku Express nebyl schopen exportovat zpravy do txt
souboru pro nacteni do tohoto programu a navic nemam archiv kompletni. Je
mozno nekde sehnat kompletni archiv konference na CD i s prohlizecim
programem ?
>Dik.
>
>Petr
>
QuickReport
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 16.12.1999 18:41:00
From: Ale� Kle�ka <aklecka(zv)merlin(tec)cz>
> Nazdar panove,
> mam dost nechutny problem s quickreportem a chtel bych se zeptat,
jestli
> to uz nekdo neresil.
>
> Mame programek ve kterem je nekolik quickreportu. U kolegyne na PC se
> stalo, ze se pri zavirani preview objevilo 'access violation'; ta sama
akce
> u kolegy zpusobila 'application error' a na mem pocitacito to klaplo bez
> problemu.
> Je to lehce schiza, ale tim to nekonci. Jiny quickreport ( zakomponovany
do
> te same aplikace ) zkouseny na techto pocitacich se choval zase uplne
jinak
> ( myslim tim - na kterem padl a na kterem ne ). Uz nevime co s tim,
protoze
> nejak nemuzeme najit souvislosti. Uvazovali jsme, ze by problem mohl byt v
> konfiguraci jednotlivych PC, ale na to je to moc nepravidelne.
>
> D4 C/S, NT4, QuickReporty jsou navazane na DOA komponenty
>
S QuickReportem mam problem taky (hlavne s tim v D3). Mel sem v nem asi 8
jpegu a preview se
generoval moc dlouho. Protoze QuickReport si dela tempy na disk, muze chyba
byt treba i v malem
miste na disku, ale taky muzes chybu zpusobovat sam pri spatnem plneni
procedurou OnNeedData.
Nejlepsi by bylo ( jak se to chystam udelat i ja) prejit na jiny generator
tiskovych sestav nebo tisknout
pomoci TPrinter
M. Jirman
Form Stay on top
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 16.12.1999 18:48:19
Presne tohle jsem mel na mysli , funguje to bezvadne.
Diky
Mirek
----- Original Message -----
From: Miroslav Mare� <sm(zv)sct(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, December 15, 1999 8:12 AM
Subject: Re: Form Stay on top
| Nazdarek,
|
| ja to resim takhle:
|
| if FormStyle = fsStayOnTop then
| begin
| SetWindowLong(Handle, GWL_HWNDPARENT, 0);
| SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
| SWP_NOMOVE or SWP_NOSIZE);
| end;
|
| Davam to do udalosti OnActivate formulare.
|
| Mirek
|
| ----- Original Message -----
| From: Mirek Junek <mjunek(zv)uo.fairnet(tec)cz>
| To: <delphi-l(zv)fwd(tec)cz>
| Sent: Wednesday, December 15, 1999 12:07 AM
| Subject: Re: Form Stay on top
|
|
| > To jsem udelal, ale ostatni aplikace mi ho prekryji (neni to hlavni form
| > aplikace)
| >
| > Mirek
|
|problem s Trunc
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 16.12.1999 10:05:39 -0800
Hi all,
dalsi problem se zaokrouhlenim je zde:
var I, K: Integer;
R: Real;
begin
// tohle vyjde spatne
K:=217;
R := frac(K/10);
I := Trunc(R*10); {Nelze vzdy pouzit Round}
// kdezto tohle vyjde spravne
R := R*10;
I := Trunc(R) {Vysledek je OK, ale opravdu vzdy???}
end;
Heretic-X, SOFTWARE specialist,<hx.mutant(tec)cz>Seriove cislo
[*] Robert Fujak <fujak(zv)px.psg.sk> - 16.12.1999 19:11:05
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 16, 1999 4:15 PM
Subject: RE: Seriove cislo
> Ad 1 - Nejsem si jist, zda spravne chapu dotaz.
> Ten "hotovy progam" je Tvuj a Ty jej chces sirit
> jako shareware s tim, ze az jej nekdo bude chtit
> zakoupit, posles mu jen nejake cislo, ktere
> on vyplni do nejakeho okna a tim se program
> stane registrovanym ? Treba neco jako WinZ-i-p ?
>
> Ad 2 - Nevim, nepouzivam InterBase
>
Ano, mas pravdu nieco ako WinZip.
Ak mi vies poradit tak Ti vopred dakujem. Ak treba pre tento ucel prerobit
celu aplikaciu, tak to "nie je problem" :-O.
Robo
generatory tiskovych sestav
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 16.12.1999 19:45:33
Ahoj,
Chtel bych se zeptat, ktery generator tiskovych sestav zvladne asi
8 (max 12) JPEGu ktere (zatim) zobrazuji do TImage. Zkousel jsem
pouze QuickRep., ale ten me nepresvedcil (hlavne rychlosti) o moznem
pouziti.
Za odpoved predem diky.QuickReport
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 16.12.1999 20:39:41
From: Ale Kle ka <aklecka(zv)merlin(tec)cz>
To: "forum Delphi" <delphi-l(zv)fwd(tec)cz>
Subject: QuickReport
Date sent: Thu, 16 Dec 1999 17:18:51 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> Mame programek ve kterem je nekolik quickreportu. U kolegyne na PC se
> stalo, ze se pri zavirani preview objevilo 'access violation'; ta sama akce
> u kolegy zpusobila 'application error' a na mem pocitacito to klaplo bez
> problemu.
> Je to lehce schiza, ale tim to nekonci. Jiny quickreport ( zakomponovany do
> te same aplikace ) zkouseny na techto pocitacich se choval zase uplne jinak
> ( myslim tim - na kterem padl a na kterem ne ). Uz nevime co s tim, protoze
> nejak nemuzeme najit souvislosti. Uvazovali jsme, ze by problem mohl byt v
> konfiguraci jednotlivych PC, ale na to je to moc nepravidelne.
Ahoj,
je to poplatne pro QR 2 (delphi 3), ktery
pouzivam bezne.
Duvodu pro Access Violation QR je mnoho.
Obecne se mi to stava, kdyz uvolnim neco, co
se jeste pouziva QR-em.
Tak napri. pokud pouziji standardni dialog
volanim TQuickRep.Preview, pak se tento
dialog rozhodne nechova jako modalni. Tento
dialog se pak nesmi uvolnit pokud si ho uzivatel
prohlizi. Az uzivatel sam zavre dialog, teprve
potom mohu volat TFromWithQReport.Free;
Typnul bych to prave na toto....
Petr Motlicek
Prevencia pred a oprava poskodenia databazovych su
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 16.12.1999 21:01:46
<color><param>7F00,0000,0000</param>> Zamerne som napr. poskodil index=
ovy subor pre dBase (NDX) a to mali
> Delphi riadne problemy... Pri jednom z experimentov sa mi podarilo zhodi=
t i
> Database Desktop (nooo, ze by to bolo az tak zabavne sa zas neda povedat=
-
> predstava takto konciaceho mojho programu - nic prijemneho).
>
> Existuju postupy (jeden uz bol ohladne znovuvytvorenia dBase indexov=
ych
> suborov poslany), komponenty, BDE API funkcie na riesenie tychto nepekny=
ch
> problemov?</color>Ahoj,
nektere "lehke problemy" lze resit pakovanim tabulek (coz
vlastne zahrnuje i znovuvytvoreni indexu).
Bezne :-((( opravujeme PARADOX tabulky. Pokud mozno, tak
ke kazde aplikaci s PARDOX-em "pribalujeme" vlastni opravny
nastroj, zalozeny na UTILITY.DLL. <color><param>0100,0100,0100</param>Dobrym studijnim materialem a zaroven =
nastrojem pro opravu
PARADOXU je <FontFamily><param>Times New Roman</param>Pdxrbld 3.00 - Paradox tables re=
pair utility =A9 Copyright 1996..1999 by
Roman Krejci-RKS,
Pujmanove 1552,
140 00 Prague 4,
Czech Republic
http://www.rksolution(tec)cz, EMail INFO(zv)rksolution(tec)cz
<FontFamily><param>Arial</param>Jsou k tomu zdrojaky (je tam dokonce i pro=
cedura, ktera zjisti,
zda zadane heslo je spravne pro danou tabulku).
Kdyz jsme meli "tvrde zdecimovanou" PARADOX tabulku, tak
jsme na to sli rovnou binarne, tedy odhadovaly, zacatek
zaznamu (dat), vyplnovali prislusne bajty v hlavicce, abychom
si ji mohli zobrazit v DB Desktopu, kde uz jsme potom pridali
indexy apod....
Co se tyce DBASE, tak s ni nikdy nebyli velke problemy.
Pokud uz byl poskozeny indexy, tak jsme je proste znovu
vytvorili. Ovsem, kdybych "tvrde zdecimovanou" DBASE
tabulku, tak bych zase vyuzil svych znalosti formatu (dobre
znam III plus), a delal bych to zase "binarne".
Petr Motlicek</color>
generatory tiskovych sestav
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 16.12.1999 21:17:36
Ty obrazky jsou v databazi nebo jako externi soubory?
A jak jsou velke?
Po pridani Jpeg do uses to zvladne Sinea.
Vaclav Krmela
>Chtel bych se zeptat, ktery generator tiskovych sestav zvladne asi
>8 (max 12) JPEGu ktere (zatim) zobrazuji do TImage. Zkousel jsem
>pouze QuickRep., ale ten me nepresvedcil (hlavne rychlosti) o moznem
>pouziti.
QuickReport
[*] Zdenek Moravec <zmo(zv)telecom(tec)cz> - 16.12.1999 21:52:50
Zdravim !
Alesh Klecka wrote:
> Mame programek ve kterem je nekolik quickreportu. U kolegyne na PC se
>stalo, ze se pri zavirani preview objevilo 'access violation'; ta sama akce
>u kolegy zpusobila 'application error' a na mem pocitacito to klaplo bez
>problemu.
Mel jsem presne stejne problemy. Pak jsem si ale vsiml, ze po ukonceni
preview Quick reportu se znovu vola Activate Formu, odkud se Report spousti.
Zkus si zkontrolovat, jestli se to nejak nemuze tlouct (dvoji inicializace
apod.).
Jinou moznosti, kde je chyba je zastarala verze Quick Reportu. Mozne je
stahnout si posledni verzi z prislusne webove stranky (myslim ze
www.qusoft.com nebo nejak tak).
S pozdravem Zd.Moravec
zmo(zv)telecom(tec)cz
Zrychleni aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.1999 23:16:52
Infra Red wrote:
> v ramci diplomove prace zjistuji pomoci metody "box dimension" fraktalni
> dimenzi obrazu.
> Obrazem je cernobila bitmapa a velikosti cca 17000x4000 pixelu. Vypocet trva
> cca 10 hodin.
> na P 200, 32 MB RAM. Prikladam smycku, ve ktere to travi vetsinu casu.
> Nepomohl by mi nekdo jak aplikaci zrychlit ?
Ahoj,
No potes, 8.5M. Za prve z toho odstran Application.ProcessMessages. Potom,
jak uz se tu psalo, zpracovani dat z bitmapy bod po bodu pomoci metod
TCanvasu neni zrovna to nejefektivnejsi. Nejrychlejsiho zpracovani by jsi
dosahl primym pristupem k datum bitmapy. Jelikoz se ale jedna o pomerne
velky soubor, tak by bylo dobre rozebrat hlavicku BMP formatu tak, aby
si presne vedel kde zacina oblast dat, soubor namapoval do pameti a pak
s nim jiz muzes dobre pracovat. Pouzitim assembleru by jsi dosahl asi
nejlepsiho vysledku, ale i mirne "optimalizovany" kod v ObjectPascalu
na tom nebude vyrazne hure (plati pro 32bit prekladac). Petr Vones, amatersky programator
Font ve StatusBaru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.1999 23:16:30
Bradac Marek wrote:
> chtel bych se zeptat, pres veskere usili se mi nepodarilo najit jak zmenit
> barvu fontu v nasledujicim
> Mam jeden TStatusBar, ktery ma 3 casti TStatusPanel. A chtel bych zmenit
> barvu fontu pouze jedne items z toho statusbaru, nasel jsem samozrejme
> metodu pro zmenu pro cely TStatusBar, ale to nechci. Podle helpu jsem zadnou
> metodu nenasel takze to standardne asi nejde, neporadili byste kde najit
> nejakou upravenou komponentu statusbaru, kde by tohle bylo mozne ?
Ahoj,
Jednotlive casti TStatusBaru (panely) umoznuji vlastni vykreslovani.
U daneho panelu si v IO nastav Style na psOwnerDraw a pak v udalosti
OnDrawPanel mas moznost si danou oblast vykreslit sam:
procedure TMainForm.StatusBarDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar do
begin
Canvas.Brush.Color := Color;
Canvas.FillRect(Rect);
Canvas.Font.Color := clRed;
Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Panel.Text);
end;
end; Petr Vones, amatersky programator
Ovaldani hlasitosti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.1999 23:16:21
Koukal Pavel wrote:
> Pokud jsi si prostudoval help k teto funkci, tak jsi se musel dozvedet, ze
> druhym parametrem nastavujes hlasitost jak v pravem tak i levem kanale.
> A pro kazdy kanal je vyhrazen WORD. Tedy parametr tvori dva WORDY - DWORD.
> Proto musis napsat volani funkce takto :
> WaveOutSetVolume(0,trackbar1.position+256*trackbar1.position+65536*trackbar1
> .position+16777216*trackbar1.position);
Ahoj,
Prehlednejsi zapis je s pouzitim "makra" MAKELONG, napriklad:
waveOutSetVolume(0, MAKELONG($FFFF, $FFFF)); Petr Vones, amatersky programator
omezeni TStringList a TMemo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.1999 23:16:04
Richard Valny wrote:
> proc je TStringList omezen velikosti a TMemo nikoli? (pochopitelne oboji
> ve WinNT, ve Win9x je omezeno oboji)
Ahoj,
To je nesmysl, TStringList (ve 32bit Delphi) neni teoreticky nicim omezen.
Viz priklad:
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
S: String;
I: Integer;
begin
S := StringOfChar('0', 300);
SL := TStringList.Create;
try
for I := 1 to 100000 do
SL.Add(S);
SL.SaveToFile('BigText.txt');
finally
SL.Free;
end;
end;
Otazkou vsak zustava, jestli je vzdy nejvhodnejsi pri praci s velkymi
soubory. U TMemo je omezeni na cca 32k (ve Win9x). Petr Vones, amatersky programator
Pristup k datum, Delphree a vubec was: D5 - ano ci
[*] Erik Salaj <winsoft(zv)napri.sk> - 16.12.1999 23:44:29
> Ale hrusky s jablky ma vyznam porovnavat. Muzes tridit ovoce
> podle hmotnosti, podle energetickeho obsahu, podle mnozstvi vitaminu...
> Staci nadefinovat potrebnou relaci.
Ale vtedy triedis typ ovocie a nie hrusky s jablkami.
> > napr. aky vyznam ma leq(5, 'abcd')? Tento vyraz ale prelozis
>
> Treba takovy, ze chces mit ve vyslednem poli nejdrive integery a potom
> stringy.
Tak to je velmi zaujimave triedenie ;-). Nenapadlo Ta, ze vlastne triedis
podla dvoch kriterii, prvym je typ (bud cele cislo alebo string) a druhym
hodnota? Z tohto pohladu uz ale netriedis hrusky s jablkami ale triedis
vlastne taketo recordy (akesi HruskoJablka ;-):
type
MojeHuskoJablko = record
Typ: (CeleCislo, Retazec);
case Hodnota of
CeleCislo: Integer;
Retazec: String;
end;
A teraz vsimol si si rozdiel medzi Tvojim riesenim s Variantami a triedenim
takychto rekordov? Ak nie tak si vsimni, ze u Variantov nemas typovu
kontrolu, preto ked sa tam vyskytne nejaka hodnota ineho typu povedzme
Double, tak sa o tom dozvies bud pri behu aplikacie, ze to zakrici chybu
alebo spadne alebo narobi ine problemy. U triedenia s typom
MojeHruskoJablko sa Ti to nemoze stat, pretoze kompilator Ti hned
zakrici chybu ak by si tam chcel dat Double cize VYLUCI TAKETO
CHYBY.
> Zkus si predstavit, ze mas pole objektu
> TAuto a TMotorka (zdedenych z TDopravniProstredek). Potom asi ma smysl
> na TDopravniProstredek nadefinovat tridici funkci, dodelat na n�j leqSPZ,
> leqColor, a leqObjemMotoru. Taky mas moznost nadefinovat leqTyp, ktery
> ti oddeli jednotlive dopravni prostredky
> (Auto = Auto, Motorka = Motorka, Motorka < Auto);
Ano je to zase obmedzene na nieco typu TObject (alebo jeho potomok),
ale uz zaznamy s tym neutriedim, vsak? Takze dalsi workaround,
ale velmi daleko od poriadneho riesenia.
> Nikdo netvrdil, ze to je perfektni reseni,
> netvrdim, ze ja jsem s nim spokojen a jsem si vedom omezeni variantu.
> Ale v jednom prispevku jsi rekl, ze:
> > "... Ale to, ze nie je mozne
> > specifikovat obecne triedenie a takisto to, ze nie je mozne
> > napisat genericke triedenie (t.j. pracujuce s obecnym typom)
> > to su uz dost vazne problemy, ktore v Delphi (ale nie len
> > v Delphi, plati to samozrejme aj pre mnoho dalsich jazykov)
> > nie je mozne jednoducho obist."
> Tim jsem Ti dokazal, ze to mozne je. A neni to jediny mozny model.
To si teda veris. Dokazal si ... . Ukazal si, ze je mozne napisat triedenie
pre Varianty. Teda tymto algoritmom utriedime Varianty, nic menej
a nic viac. Ine udaje s tym utriedis, ak sa Ti ich podari nejak zakodovat
do Variantu (ale vtedy to uz nebude povodny typ, ale uz to bude typ
variant, vsak?). Takze NEPLATI, ze s tym Tvojim triedenim utriedis
LUBOVOLNY TYP, pretoze s nim utriedis IBA TYP VARIANT.
S Tvojim triedenim ak si si este nevsimol dokonca neutriedis ani typ
Integer ;-).
> Jednotlive vytky, ktere se na toto reseni snesly, jsou opravnene
> a daly by se do jiste miry vetsinou obejit. Napsal jsem nejjednodussi
> reseni, ktere mne nejdrive napadlo, abych ukazal, ze je mozne
> specifikovat obecne trideni. A k vytce o typove kontrole - myslel
> jsem, ze Ti jde mimo jine o nemoznost porovnani ruznych datovych typu.
Typova kontrola v ziadnom pripade nie je o porovnavani roznych datovych
typov ;-).
Erik Salaj
trideni was: D5 - ano ci ne ?
[*] Erik Salaj <winsoft(zv)napri.sk> - 17.12.1999 00:02:22
> Tady jeste poznamku, vcera jsem to chtel napsat, ale zapomnel jsem na to.
> Kdyby soucasny moderni trend byl co nejvice odlehcovat serverum a prenaset
> vsechnu praci na klienty, jak Pavel tvrdi, asi by nebyla potreba
> skalovatelnosti
> vykonu, vytvareni farem serveru ci serverovych clusteru (a nevim jake
jeste
> mozne terminy). A to jsou hlavni prezentovane prednosti novych technologii
Vykon tu nemusi byt jedinym dovodom, existuju aj ine prinosy, napr.
spolahlivost.
> (vim predevsim o MS - i kdyz v jejich provedeni jsem trochu rozpacity).
> A dalsi duraz (mozna budu vypadat jako agent Microsoftu :-) klade
Microsoft
> na zlepsovani vykonu MS SQL Serveru. Kdekoliv je slysim, nezapomenou
> zduraznit, kolik transakci zvladne dvoutisicovka za vterinu. To cislo si
> nepamatuju,
> ale v praxi je v soucasnosti nedosazitelne. Svedci to podle meho o tom, ze
> prikladaji centralnimu zpracovani velky vyznam.
Tvoje vysvetlenie je sice jednoduche ale zaroven nespravne ;-) Strategiou
Microsofu je DNA (Distributed Networking Architecture). To je presny
opak centralneho spracovania.
Erik Salaj
Internet pripojeni, odpojeni, DUN
[*] Jmisek <jmisekdelphi(zv)seznam(tec)cz> - 17.12.1999 02:19:43
Dik, RAS mam, ale ja potrebuju rovnou sputit originalni win vytaceni.
----- Original Message -----
From: Jmisek
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, December 14, 1999 10:45 PM
Subject: Internet pripojeni, odpojeni, DUN
Cau vsichni v delphi
Predem se omlouvam jestli je toto tema offtopic, ale nejsem v konferenci dlouho.
mam takovou neznalost
1) Nevedel by nekdo jak je mozne vylistovat v programu pripojeni k internetu nastavene ve win, respektive zjistit jaka pripojeni jsou vytvorena. ( vim ze jsou v
souborech s priponou .DUN ale to az po tom co se kopiruji, jinak jsem nasel neco v registru win, ale nedava mi to ani hlavu ani patu)
2) Nevite jak toto pripojeni spustit ...tedy pripojit se k internetu (mimo rundll32 .DUN soubor) ( s tim aby se win pred vytocenim neptaly na informace o pripojeni)
3) Nevite jak toto pripojeni zavrit, respektive se odpojit od internetu ( zase bez otazek windows)
Predem dik a cau
.
CreateProcess
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 17.12.1999 06:37:27
Ahoj,
nebude to tim, ze nemas strukturu StartupInfo naplnenou korektnimi daty?
Pokud ji neinicializujes, jsou tam nesmysly a CreateProcess to nemuze
prenest pres srdce.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi
**************************************************> Potrebujem pouzit CreateProcess, odkukal som tu v konferencii co a
> ako,
> ale
> mi to nefunguje. Pouzivam CB4.0 a mozno je to tym.
> Vie mi niekto poradit ako to treba pouzit v CB?
> Posielam kod ktory pouzivam.
> Vdaka.
>
> WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
> {
> LPSTARTUPINFO StartupInfo;
> PROCESS_INFORMATION *ProcessInfo;
>
> try
> {
> if(CreateProcess("notepad.exe", NULL, NULL, NULL, true,
> NORMAL_PRIORITY_CLASS,
> NULL, NULL, StartupInfo, ProcessInfo)!=0)
> MessageBox(NULL,"chyba!!","",MB_OK);
> }
> catch (Exception &exception)
> {
> Application->ShowException(&exception);
> }
> return 0;
> }
> Nastaveni aplikace pri startu 2
[*] lumir.delphi(zv)post(tec)cz - 17.12.1999 06:51:34
Ahoj vsichni,
moc Vam dekuji za namety ale mozna bych to mel rozepsat podrobneji. V mem pripade se snazim nastavit aplikaci z udaju, ktere mam v *.ini souboru aplikace. Udaje jsou ruzneho charakteru a ty, ktere se tykaji nastaveni vzhledu okna delaji problemy, protoze pri FormCreate ani FormActivate okno neni asi jeste viditelne nebo pripravene pro zmeny a ja nevim kterou dalsi udalost mam pouzit. Napadlo me pouze velice nepekne reseni jako napr. pockat treba 3 sec. a pak aplikaci nastavit z *.ini ale to se mi vubec nelibi.
Mam Delphi 3 Client/Server suite a MS W98 Second edition.
Diky za kazdou pomoc. Lumir. Najit informace na internetu je snadne:
*** http://NAJDI.TO
DB-aware komponenty (Was: D5 - ano ci ne ?)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.12.1999 07:35:38
Robert Kindl wrote:
> To je opravdu zajimave :-)
> Takze pokud pojedu autobusem, ktery jezdi na naftu
> a tudiz smrdi, tak pak budes prohlasovat, ze
> jezdim na naftu a smrdim?
> Co kdyz obcas jezdim na kole (ano i to se stava)?
>
> Prectes-li si prvni vetu tak jsem se te hned v prvnim mailu
> ptal nepletes-li si chovani DBEdit s TTable.
> Proc jsi nerekl hned, ze hazis chovani TQuery(TTable) na TDBEdit? Ten
> za to nemuze a proto vznikla cela tato neplodna diskuse...
DBEdit muze za to, ze vyzaduje pripojeny a otevreny DataSet. Od
toho se vsechno odviji. Pokud pojedes ne autobusem ale svym
autem, ktere bude smrdet, je prohlaseni ze "smrdis ty" spravne,
protoze ty to auto ovladas a provozujes. :-)
> DBEdit k editaci mohu pouzit i bez live query:
> 1. zapnu cached updates
> 2. nasypu data do nejake TMemoryTable a edituji tuto
OK. Pak jsou dve moznosti. Budto si vytvoris TMemoryTable na
klientovi, pak jsi vlastne prakticky ve stejne situaci jako kdyz
natahnes data do nejakeho pole a editujes ho jinymi
komponentami. Nebo si vytvoris TemporaryTable na serveru, pak
bych videl vyhodu leda v pripade, ze potrebujes udrzovat v jednom
"zatahu" nejake vazby. Pokud bys takto editoval jeden nebo vice
nezavislych zaznamu, vidim tu problem zbytecne komunikace po
siti.
> > DBEdit se nic k lepsimu nemeni. CachedUpdates pomaha v urcitych
> > situacich, ale vydavat ho div ne za vselek je dost nebezpecne!
>
> Nekdo je schopen se utopit na lzici vody a nekdo se neutopi
> pri preplavani kanalu LaManche. Neni tedy mozne rici,
> ze voda je nebezpecna. Jak pro koho a jak ji pouzivas.
> Ja pouzivam JEN cached updates a nebyt jedne chyby BDE,
> kterou Borland ne a ne opravit, tak bych mohl prohlasit,
> ze mi zcela postacuji na to abych tim ukladal do databaze co
> chci ja a ne to co chce BDE.
Co se tyce chyb BDE, dost zalezi na pouzite databazi. Vuci MS
SQL 7 jich znam celou radu.
> No dobre,
> i takhle se da pracovat, to ti neberu.
> Ale puvodni diskuse vznikla tak, ze jsi rekl
> DBEdit je spatny a pak jsi vyjmenoval nekolik
> podle tebe spatnych vlastnosti, ktere DBEdit zpusobuje.
Mno, presne jsem rekl 9.12. toto: "zejmena kdyz nekdo chce
pouzivat trebas DBEdit (brrrr, jeho pouziti prinasi vic problemu nez
pohodli)". :-) Jak sis to prelozil, je tvoje vec, ja se domnivam, ze
jsem se vyjadril dostatecne jasne.
> Ale nezda se ti, ze jsi se vyjadril VELMI nepresne,
> kdyz cely problem je v nevhodnem pouzivani
> TQuery a BDE a s DBEditem nema nic spolecneho?
Ja DBEditu vytykam zejmena to, ze striktne vyzaduje pripojeny a
hlavne otevreny dataset. Tato vlastnost se mi nelibi. Pracovat nad
otevrenym datasetem, ktery lezi na strane serveru, povazuji za
vhodne pouze v nekterych pripadech (i v pripade temporary, s
vyjimkou udrzovani vazeb, ktere jsou "uvnitr" prave porizovanych
dat; zde zalezi na charakteru aplikace i navrhu, ale nemyslim si,
ze by toto byl vetsinovy pripad). Pracovat takto na strane klienta mi
prijde zbytecne, protoze ulozeni dat (i typove) v pameti si mohu
vyresit mnoha jinymi zpusoby, a casto lepe.
> > Kdyz to uzavru, tak cela debata je vlastne o stylu prace nad
> > databazemi s narazkami na chovani tech ci onech komponent.
>
> Presne tak, z tohoto hlediska je tato diskuse OK.
> Z hlediska DBEditu je to vsak o koze a o voze.
> Kdyby jsi alespon rekl, ze vsechny DB-aware komponenty
> maji problem, nebo ze je spatna koncepce prace,
> ale ty jsi se tvaril jako kdyby ho mel jen DBEdit...
:-)) Uplne stejny nazor mam i na ostatni DB-aware komponenty.
DBEdit jsem pouzil jako zastupny priklad. Doufam, ze ti to
vyplynulo z meho zduraznovani otevreneho datasetu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nastaveni aplikace pri startu 2
[*] Ren� Otisk - 17.12.1999 07:51:16
Hi,
Mozna by ti pomohla RXLib. Tam je komponenta TFormStorage a TFormPlacement.
U nich si muzes vybrat jestli to chces do ini souboru nebo do registru.
Jenom do nich umistis vlastnosti komponent, ktere chces uchovat a trada. Je
to z RxLib 2.60 jak pro D3 tak pripadne pro D1.
Sroub
> Ahoj vsichni,
>
> moc Vam dekuji za namety ale mozna bych to mel rozepsat podrobneji. V mem
pripade se snazim nastavit aplikaci z udaju, ktere mam v *.ini souboru
aplikace. Udaje jsou ruzneho charakteru a ty, ktere se tykaji nastaveni
vzhledu okna delaji problemy, protoze pri FormCreate ani FormActivate okno
neni asi jeste viditelne nebo pripravene pro zmeny a ja nevim kterou dalsi
udalost mam pouzit. Napadlo me pouze velice nepekne reseni jako napr. pockat
treba 3 sec. a pak aplikaci nastavit z *.ini ale to se mi vubec nelibi.
> Mam Delphi 3 Client/Server suite a MS W98 Second edition.
>
> Diky za kazdou pomoc. Lumir.
>
> Najit informace na internetu je snadne:
> *** http://NAJDI.TO
trideni was: D5 - ano ci ne ?
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 17.12.1999 08:32:41
> -----P�vodn� zpr�va-----
> Od: Pavel Cisar [mailto:pcisar(zv)aktis(tec)cz]
> Odesl�no: 16. prosince 1999 15:22
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: trideni was: D5 - ano ci ne ?
>
>
> >Transformace dat (rikejme tak cinnostem, ktere jinym
> zpusobem zobrazuji
> >stejna data, jestli jsem Te spravne pochopil, ale asi to
> neni dobry pojem)
> >neni zadna datova manipulace. Je to jenom urcite formatovani
> zobrazeni.
> >To si muze klient delat jak ho napadne (pokud mu to
> klientska cast aplikace
> >dovoli) a je plne v jeho rezii, v tom jsme, myslim, vsichni zajedno.
>
> Ja si dovolim oponovat, ze transformace neni JEN zmena
> zobrazeni. Jde o
> jakoukoliv manipulaci s daty (preusporadani, vyhledavani,
> zmena formatu) bez
To je prave jenom zmena zobrazeni. Mluvime o mnozine. V ni nezalezi na
poradi
zaznamu, trideni nijak mnozinu dat nemeni, zmeni jenom jeji zobrazeni.
Zmena formatu taky neni modifikace dat. I kdyz zmenime format jejich
ulozeni,
data samotna se nezmeni. Je to podle mne jen zobrazeni. Mozna jsme kazdy
o te transformaci mluvili z jineho pohledu, ja jsem mel na mysli vyznam dat
a Tys
byl blize k fyzicke realizaci. To by myslim tak sedelo na obe strany.
> >vyberu dat, tedy prikazu SELECT. A kdyz pouzijes ORDER BY v selectu,
> >pouzivas ho nejen proto, abys zobrazil data v pohodlne
> forme, ale take
> >proto, ze tim ten vyber urcujes. Cim drive je ve vysledku
> dotazu uveden
> urcity
> >zaznam, tim vetsi je pravdepodobnost, ze se skutecne dostane
> na klienta.
>
> Tak tady jsi bud vedle jak ta jedle, nebo mi neco zasadniho
> naprosto unika
> :o) ORDER BY je pouze prikaz serazeni FINALNIHO vystupu, tedy
> az PO vsech
> vyberech a na samotnem vyberu se nijak nepodili. Kdyz nad tim
> tak premyslim,
> tak mam pocit ze jsi myslel spise GROUP BY. Coz ovsem neni trideni a
> samozrejme urcuje finalni vyber. O tom tu ale rec nebyla.
Ne, samozrejme mas pravdu ohledne vlastnosti ORDER BY, jenomze
pouze v pripade, ze na klienta preneses CELY vysledek dotazu.
Ovsem kdyz je vysledek dlouhy, neni nutne prenaset cela data,
ale postupne se prenasi a zobrazuji napr. po 20 zaznamech.
Nebo kdyz nacitani dat na klienta trva dlouho, uzivatel to stopne.
Potom data, ktera jsou ve vysledku uvedena drive, maji vetsi
pravdepodobnost,
ze se dostanou az na klienta. Takze ORDER BY ma vliv na vyber dat, ktera
se na klienta nakonec dostanou.
> 1) Omezit resultset horizontalne (mene radek). To je nejjednodussi a
> nejcasteji pouzivana metoda.
O tohle se asi snazi vsichni (kdo nemasti okno s gridem nad TTable :-)
> 2) Omezit resultset vertikalne (mene sloupcu). Idealnim
> resenim je prenaset
> pouze jeden sloupec -> primarni klic. S jeho pomoci pak lze velmi (ale
> opravdu velmi) tychle ziskat v pripade skutecne potreby ze
> serveru vsechny
> udeja v radku. Nutno podotknout, ze vetsinou ne vsechny udaje
> z vybrane
> mnoziny jsou pro uzivatele podstatne a jsou mu nakonec
> zobrazovany, at uz je
> na vine spatne formulovana podminka nebo jiny duvod. PK je
> konstantni delky
> a nebyva vetsinou prilis dlouhy. Je tedy mozne mit ve vybrane
> mnozine i
> velke mnozstvi radek pri malem celkovem mnozstvi dat (napr.
> pri PK dlouhem
> 16 byte a 10,000 radek je to pouhych 156 kB). Vzhledem k
> tomu, ze rozumna
> maximalni velikost resultsetu (z pohledu ovladatelnosti
> uzivatelem) je mezi
> 1,000-5,000, je zde vice nez velka rezerva (viz bod 1) a casy
> prenosu CELE
> teto mnoziny jsou zanedbatelne.
Je to zajimava myslenka. Otazkou je, jakym zpusobem se budou dotahovat
data pro pozadovane PK. Docela bych z toho mel obavy.
Pokud by to mely byt jednotlive selecty, byla by asi celkem velka rezie pri
komunikaci
se serverem, pokud bych udelal jeden SELECT s vyctem nekolika hodnot
PK v klauzuli WHERE, mohlo by se taky stat, ze se vysledku hned tak
nedockam,
protoze se dotaz bude zpracovavat sekvencne.
Dale je otazkou, jakym zpusobem jsou data prezentovana na klientovi.
Pokud by klient v danem okamziku zobrazoval pouze jeden zaznam,
pri posunu by nacital ze sve cache (nebyl-li by zde zaznam, dotahl by se ze
serveru)
byla by asi idealni varianta, ze pro jeden PK dotahne zaznam jeden select.
Zvlaste pro pomale a nespolehlive site. Ale nemusi to byt zase pravda vzdy.
Treba pro vytacene spojeni. Tam by asi bylo lepsi rychle nahrnout co nejvice
dat
a rychle se odpojit.
Rekl bych, ze to neni doporucitelne obecne, rozhodne je to zajimava metoda.
> urcitych postupu). To by vydalo na trochu delsi psani, ale
> budu o tom mluvit
> na seminari v Belohrade, takze tam to muzeme i detailneji
> prodiskutovat.
Tam asi beze mne. Jak jsem uz nekolikrat psal, neprogramuji bezne v Delphi,
konferenci sleduju spise ze zajmu a proto ze je Delphi muj oblibenec
mezi vyvojovymi produkty (i kdyz myslim, ze ma velke nedostatky v podpore
databazi
oproti jinym produktum). Ale pracovne jsem vazan na jine platforme a vetsinu
casu musim venovat praci :-((
Jura
Predaj vlastneho software
[*] Bohumil Micka <bmicka(zv)writeme(tec)com> - 17.12.1999 08:40:51
Ak to nie je prilis off topic, moze mi niekto poradit, co vsetko je potrebne vyhotovit,
v pripade, ze programator predava vlastny program zakaznikovi na Slovensku,
v Cechach, alebo niekde inde vo svete?
Je mozne cely predaj uskutocnit prostrednictvom internetu?
Ake dokumenty je potrebne vyhotovit?
Podla informacii ktore mam, moze takyto predaj uskutocnit aj
fyzicka osoba s tym, ze plati len 2% do nejakeho fondu.
Dakujem,
Bohumil Micka
Pristup k datum, Delphree a vubec was: D5 - ano ci
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 17.12.1999 09:06:04
> -----P�vodn� zpr�va-----
> Od: Erik Salaj [mailto:winsoft(zv)napri.sk]
> Odesl�no: 16. prosince 1999 23:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Pristup k datum, Delphree a vubec was: D5 - ano ci ne ?
>
>
> > Ale hrusky s jablky ma vyznam porovnavat. Muzes tridit ovoce
> > podle hmotnosti, podle energetickeho obsahu, podle mnozstvi
> vitaminu...
> > Staci nadefinovat potrebnou relaci.
>
> Ale vtedy triedis typ ovocie a nie hrusky s jablkami.
Stejne jako chces tridit obecny datovy typ, ne?
A obecny datovy typ znamena, ze chces prijimat cokoliv, neohanej
se tedy neexistenci typove kontroly, kdyz ji nechces.
> To si teda veris. Dokazal si ... . Ukazal si, ze je mozne
> napisat triedenie
> pre Varianty. Teda tymto algoritmom utriedime Varianty, nic menej
> a nic viac. Ine udaje s tym utriedis, ak sa Ti ich podari
> nejak zakodovat
> do Variantu (ale vtedy to uz nebude povodny typ, ale uz to bude typ
> variant, vsak?). Takze NEPLATI, ze s tym Tvojim triedenim utriedis
> LUBOVOLNY TYP, pretoze s nim utriedis IBA TYP VARIANT.
coz je jakykoliv typ.
> S Tvojim triedenim ak si si este nevsimol dokonca neutriedis ani typ
> Integer ;-).
Zkus se podivat do helpu co je Variant.
Mozna by bylo dobre jeste zjistit, co dela funkce VarType.
Hodne z Tvych argumentu bys vubec nemusel psat a
uchranil by ses tak ostudy :-)
A jine Tve argumenty mne nebavi porad dokola potvrzovat.
Uz jsem nekolikrat psal, ze to nepovazuju za dobre reseni,
ze je to pouze mozne reseni, tak bys me tim nemusel
neustale bombardovat.
Pripada mi, ze ta debata nema zadny smysl a mota se porad dokola.
Uz k tomuto tematu nehodlam reagovat a doufam, ze mne
nikdo nevyprovokuje :-)
Jura
Off: Pomoc s v�po�tem nadmo�sk� v�ky
[*] kchodl(zv)atlas(tec)cz - 17.12.1999 09:32:23
Ahoj,
chte�l bych udelat jednoduchou aplikaci, ktera vypocte z teploty a tlaku okolni atmosfery nadmorskou vysku, ALE potrebuju ten vzorec na vypocet nebo alespon nejaky link ap. Neni tady nejaky matematik ci fyzik?
Predem dik
Progr-Amather -Kchodl-� 1989-1999
ICQ:31825631
CreateProcess
[*] Lubos <bruce(zv)pobox.sk> - 17.12.1999 09:40:23
> nebude to tim, ze nemas strukturu StartupInfo naplnenou korektnimi daty?
> Pokud ji neinicializujes, jsou tam nesmysly a CreateProcess to nemuze
> prenest pres srdce.
Ano bolo to v tom. Vdaka.
Posielam fumkcnu ukazku pre ostatnych Builderistov.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
LPSTARTUPINFO StartupInfo;
PROCESS_INFORMATION *ProcessInfo;
StartupInfo->cb = sizeof(StartupInfo);
StartupInfo->lpReserved=NULL;
StartupInfo->lpDesktop=NULL;
StartupInfo->lpTitle=NULL;
StartupInfo->dwX=0;
StartupInfo->dwY=0;
StartupInfo->dwFlags=STARTF_USESTDHANDLES;
StartupInfo->wShowWindow=SW_SHOWDEFAULT;
StartupInfo->cbReserved2=0;
StartupInfo->lpReserved2=NULL;
try
{
CreateProcess(NULL, "notepad.exe", NULL, NULL,
true,CREATE_SEPARATE_WOW_VDM,
NULL, NULL, StartupInfo, ProcessInfo) ;
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
Debug breakpoint
[*] Ren� Otisk - 17.12.1999 10:45:01
Hi,
To je zpusobene tim, ze mas breakpoint na miste, kde nema byt (podle
nastaveni ti to i pri kompilaci zahlasi, ze ho nemas na spravnem miste
kodu). Nebo to mas na radku kde je jen except nebo end...
Priklad: Slozity prikaz pres 7 radku, ale jen na jednom ti compilator vezme
breakpoint (vetsinou posledni).
Sroub
> Ahooj
>
> Nestretol sa niekdo s tym, ze ked si definuje breakpoint,
> hadze pri kompilacii namiesto odfajknutia X, aj ked program cez
> prikaz prechadza? Proste breakpoint nefunguje nikde.
> Zeby nejake nastavenie? (Ziadne som vsak zatial nenasiel)
>
> Je to zaujimava vec, ktora sa neda odstranit ani preinstalovanim
>
> Cu
>
> Werki
>Obrovske soubory *.lck pro PDOX tabulky
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 17.12.1999 10:46:49
Ahoj,
casem bys jeste dostal exception "LCK file has grown too large" :-)
tohle se stava , kdyz jsou splnena nektere z techto podminek
1. EXE soubor je ve stejnem adresari jako data, nebo je jedno podadresarem
druheho
2. Local share = true (doporucuji rozhodne ponechat)
3. Priv dir neni nastaveno, nebo je nastaveno spatne
4. !!! Mas zaroven otevrenou tabulku (napr. tTable) a zaroven na ni delas
dotazy. Pak Pdox neumi uvolnin zaznam v LCK souboru a ten proto roste a
roste ...
Reseni:
1.Data umisti tak, aby nebyly nad nebo pod adresarem s exe souborem, ani ve
stejnem adresari
2.Vytvor si adresar PRIV, napr. jako podadresar adresare s EXE souborem
3.Nastav v programu PRIV dir, napr.
Session.PrivateDir := ExtractFilePath (Application.ExeName) + '\PRIV';
Jinak se zde vytvari dojem, ze Pdox je na siti naprosto nepouzitelny.
Myslim, ze pri malem sitovem provozu pouzitelny je, ale da to trochu prace
ho co nejvic zabezpecit proti zbourani tabulek. Local share na true a UPS je
podminkou Jo, a neni dobre mit data na W9x a pristupovat na ne z W3.11
(obracene to kupodivu jde). U zakaznika se vyplati mit program, ktery v
pripade nutnosti projde nastavene disky a smaze .LCK a .NET soubory, ktere
tam mohou zustat, kdyz se program pracujici s daty neukonci korektne.
V nekterych aplikacich je skutecnost, ze tabulky jsou v samostatnych
souborech, velkou vyhodou a s jednosouborovymi databazemi by se delali
velice pracne.
Hodne zdaru
Mirek Junek
Debug breakpoint
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 17.12.1999 10:51:47
Ja mam D4 a jak ladim komponenty, dela to to same. Po nainstalovani
komponenty breakpoint nefunguje. Staci ale ve zdrojaku udelat treba nekde
mezeru a ulozit to jako novou verzi a pak uz breakpoint FUNGUJE
Pavel
> Ahooj
>
> Nestretol sa niekdo s tym, ze ked si definuje breakpoint,
> hadze pri kompilacii namiesto odfajknutia X, aj ked program cez
> prikaz prechadza? Proste breakpoint nefunguje nikde.
> Zeby nejake nastavenie? (Ziadne som vsak zatial nenasiel)
>
> Je to zaujimava vec, ktora sa neda odstranit ani preinstalovanim
>
> Cu
>
> Werki
>
>Record/Key deleted
[*] DURDINA Michal <durdina(zv)asset.sk> - 17.12.1999 10:57:13
M�m tabu�ku v InterBase 5.1:
CREATE TABLE TEST (
ID INTEGER NOT NULL,
DUMMY CHAR,
B SMALLINT DEFAULT 0,
PRIMARY KEY (ID)
)
a trigger na generovanie ID:
CREATE TRIGGER TR_TEST FOR TEST
BEFORE INSERT
AS BEGIN
NEW.ID = GEN_ID(ULOHY_GEN, 1);
END;
a pri pou��van� SQL Explorer alebo Delphi sa vyskytne probl�m pri vkladan�
d�t, ke� sa po vyplnen� polo�iek ID, DUMMY aj B a po POSTe vypluje hl�ka
Record/Key deleted a tabu�ka ostane v EDIT m�de. Zauj�mav� je na tom aj to,
�e ak d�te Cancel, zad�van� riadok sa zru��, ale po Refresh sa zobrazia
riadky, na ktor�ch to vyhodilo chybu. Teda hl�ku vyhod� BDE a� po ulo�en�
z�znamu do tabu�ky InterBasom.
Probl�m sa nevyskytne,
ak sa nepou�ije DEFAULT
ak sa nepou�ije TRIGGER
�o je zle? Mne to tu nikto nevie poveda�. Amat�ri :)
Mi�o �urdina
ADMIN: Check this
[*] Ren� Otisk - 17.12.1999 11:02:19
Hi,
Zajimal by mne jejich nazor. Ale soukrome si myslim, ze jsou asi fakt obed
nekoho jineho (v opacnem pripade moje blbounka ovecka Esheep je
yntelygentnejsi).
Sroub
> Zdar,
> stejne jako vy ostatni jsem dostal dneska mail, ze se mi nekdo pokousi
> poslat neco zavirovaneho... Nastesti to mailserver smazal uz
> cestou, takze
> ke me dorazili prazdne emaily...
>
> Krome toho, ze ty maily byly zavirovane, byly poslane tou
> nejprimitivnejsi
> spammerskou metodou (pres Bcc:) - clovek, ktery ma poctive
> umysly, toto
> nedela...
>
> Proto navrhuji, aby ...
>
> dalimil.chmura(zv)rtscs(tec)cz
> matko(zv)proces(tec)cz
>
> ... byli vyrazeni z konference pro nevhodne (chce se mi rict
> "stupidni")
> chovani a pro ohrozeni celeho systemu (poslat zavirovanou
> postu 800 lidem,
> to uz chce fakt hrosi kuzi nebo prazdnou hlavu).
ne, Ti dva jsou spis obeti toho mailu.
Podle me by to pro ne spis chtelo osvetu nez restrikci.
Myslim si, ze Tvuj navrh a s nim spojena publicita
je pro ne dostatecna lekce.
Jura
ADMIN: Check this
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 17.12.1999 11:05:21
> > Zdar,
> > stejne jako vy ostatni jsem dostal dneska mail, ze se mi nekdo pokousi
> > poslat neco zavirovaneho...
> > Krome toho, ze ty maily byly zavirovane, byly poslane tou
> > nejprimitivnejsi
> > spammerskou metodou (pres Bcc:) - clovek, ktery ma poctive
> > umysly, toto
> > nedela...
Omlouvam se Petrovi Zahradnikovi, ale mozna by bylo jeste vhodne, kdyby si
prislusni lide precetli informace k tomuhle viru viz a samozrejme pouzili
nejaky antivirovy software:
http://www.symantec.com/avcenter/venc/data/vbs.freelink.html
kde se lze docist co ten vir dela, jak funguje a jak infikuje system. Osobne
si myslim, ze jejich umysl nebylo poslat ten vir do konference, spis to bylo
tim, ze ten vir se sam posila na vsechny adresy v Outlooku automaticky...
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
Registry
[*] Tibor Galik <tgalik(zv)vsz.sk> - 17.12.1999 11:10:00
Ahoj,
chcel by som poradit:
chcem si uchovat cast registrov vo file. Potom v registroch nieco urobit a nakoniec vratit povodne nastavenie regidtrov
var
BRegistry : TRegistry;
begin
BRegistry := TRegistry.Create;
BRegistry.RootKey := HKEY_LOCAL_MACHINE;
BRegistry.saveKey('\software\borland\database engine\settings', 'pokus'); //saveujem si registre
.
.
.
BRegistry.DeleteKey('\software\borland\database engine\settings', 'pokus'); //vymazem si registre
.
.
.
a tu to chcem vratit, ale nic mi do registrov nenapise, neda mi to posledne nastavenie.
BRegistry.loadKey('\software\borland\database engine\settings', 'pokus');
kde robim chybu ?
dakujem
tg
S pozdravom/Regards
Tibor Galik
tgalik(zv)vsz.sk
Check this
[*] Michal �viga <info(zv)cd-amper(tec)cz> - 17.12.1999 11:13:02
Zrejme mate zavirovany pocitac a ten posila mejly na vsechny strany s virem,
udelejte s tim neco.
Michal �viga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 65 15 052 mobil: 0602/ 207 557
http://www.dama(tec)cz - Internetovy casopis pro zeny
======ICQ: 57557677 =======================
----- P�vodn� zpr�va -----
Od: Martin Ocenas <matko(zv)proces.sk>
Komu: <matko(zv)proces.sk>
Odesl�no: 17. prosince 1999 8:28
P�edm�t: Check this
> Have fun with these links.
> Bye.
Debug breakpoint
[*] Pavel �im��ek - 17.12.1999 11:17:03
A mas v Project Options ==> Compiler ==> Debugging
zatrhnuto Debug Information
Pavel
-----P�vodn� zpr�va-----
Od: Werki <delphi(zv)minv.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. prosince 1999 10:33
P�edm�t: Debug breakpoint
>Ahooj
>
>Nestretol sa niekdo s tym, ze ked si definuje breakpoint,
>hadze pri kompilacii namiesto odfajknutia X, aj ked program cez
>prikaz prechadza? Proste breakpoint nefunguje nikde.
>Zeby nejake nastavenie? (Ziadne som vsak zatial nenasiel)
>
>Je to zaujimava vec, ktora sa neda odstranit ani preinstalovanim
>
>Cu
>
>Werki
>
>Jak vypnout IB v NT
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 17.12.1999 11:34:03
Potrebuju z duvodu upgrade vypnout (shutdown) IB na NT, ale neb nemam ikonu
v taksbaru nevim jak na to. Odstrelit to ze zpravce uloh nejde.
Muzete mi nekdo pomoc ?
Diky
Pavel
pristup na sietovy disk NW
[*] Miroslav BARICA <barica(zv)mail.matador.sk> - 17.12.1999 12:01:22
robim chybu ja, alebo taketo priradenie v delphi ozaj nefunguje?
--------
AssignFile( EMailLogFile, '//ASR_1/SYS:SYSTEM\MERCURY\MERC.LOG');
Reset( EMailLogFile);
CloseFile( EMailLogFile);
--------
ked urcim cestu k fajlu, samozrejme to ide AssignFile( EMailLogFile,
'X:SYSTEM\MERCURY\MERC.LOG');
trosku ma to prekvapilo, ale aspon je zivot zaujimavejsi ;)
Jakou databazi doporucite?
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 17.12.1999 12:45:13
U Winbase neni zadna zasadni vec, ktera by znemoznovala jeji pouziti
(alespon co ja vim). Jsou tam nektere drobnosti, ale to je spis vec zvyku a
nazoru (mne treba vytaci, ze nejde nastavit velikost tabulatoru v IDE
editoru WinBase :-)).
Nativni komponenty existuji min od 3 autoru. Ja znam pouze WDE od I.
Turcana. Na nekterem Chip CD byly tak� nejake (url firmy, ktera tvrdila, ze
je autorem, ale nechodilo) a pak jsem cetl na OnLine foru www.software602(tec)cz
nejakou nabidku. Ja mam ted jednu aplikaci, ktera je v ostrem provozu a
pouzivam BDE->ODBC a jde to taky.
----- Original Message -----
From: "Tomas Peroutka" <tperoutka(zv)drusoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 16, 1999 4:21 PM
Subject: Re: Jakou databazi doporucite?> Cau,
> dekuji za vycet vlastnosi, to mi zatim staci. Zajimalo by me, jak
> si stoji WinBase v porovnani treba s InterBase nebo MS SQL Serverem.
> Jsou tam nejake zasadni rozdily?
> Pozn. Nechci tady zacit nejakou sahodlouhou debatu o detailech, mam
> na mysli nejakou zasadni vec (jako treba, nestabilita apod).
> Taky bych rad znal nazor na pomer cena/vykon tohoto produktu.
> A nakonec, aby toho nebylo malo - pokud existuje vic nativnich komponent,
> mohu znat jejich adresy?
> Predem dik
>
> Tomas Peroutka
> tperoutka(zv)drusoft(tec)cz
Jakou databazi doporucite?
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 17.12.1999 13:01:05
Pokud je mi znamo, tak Winbase nedokaze vygenerovat databazi
z SQL skriptu. Musi se to delat pres IDE.
Coz je podle me dost podstatna nevyhoda.
Radim Kunz
>U Winbase neni zadna zasadni vec, ktera by znemoznovala jeji pouziti
>(alespon co ja vim). Jsou tam nektere drobnosti, ale to je spis vec zvyku a
>nazoru (mne treba vytaci, ze nejde nastavit velikost tabulatoru v IDE
>editoru WinBase :-)).
>Nativni komponenty existuji min od 3 autoru. Ja znam pouze WDE od I.
>Turcana. Na nekterem Chip CD byly tak� nejake (url firmy, ktera tvrdila, ze
>je autorem, ale nechodilo) a pak jsem cetl na OnLine foru www.software602(tec)cz
>nejakou nabidku. Ja mam ted jednu aplikaci, ktera je v ostrem provozu a
>pouzivam BDE->ODBC a jde to taky.
>
omezeni TStringList a TMemo
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 17.12.1999 13:27:19
V BP7 jsem nedelal, ten jsem preskocil protoze v te dobe jsem lamal PC FAND.
Za zdroj bych byl zauzlovan.
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=========================================
>>> Vaclav Sazima <sazima(zv)comp(tec)cz> 16.12.99 14:45 >>>
Ahoj
Richard Valny wrote:
>
> Ahojky,
> proc je TStringList omezen velikosti a TMemo nikoli? (pochopitelne oboji ve WinNT, ve Win9x je omezeno oboji)
> Co puzit pripadne misto TStringListu aby to neztratilo rychlost? (pouzivam je jako objecty v TCheckListBoxu)
Jestli jsi delal jeste v BP 7, tak tam byly objekty TCollection a
TStringCollection. Nekdo to prepsal pro 32 bitu a myslim, ze omezeni
velikosti to nema. Pro pouziti v TCheckListBoxu by to treba slo
upravit.
Pokud to chces, ozvi se. Je to free a se zdrojakem.
Vaclav Sazima
Poukazky A-V
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 17.12.1999 13:29:56
Kdysi tady nekdo psal, ze tiskne poukazky A-V. Jaky font pouzivate? Je nutna nejaka certifikace posty? Staci vyplnit poukazku na tiskarne fonty z Windows nebo musim mit nejake specialni fonty primo v tiskarne? Poradite nekdo? Diky.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pristup na sietovy disk NW
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 17.12.1999 13:32:46
> robim chybu ja, alebo taketo priradenie v delphi ozaj nefunguje?
> --------
> AssignFile( EMailLogFile, '//ASR_1/SYS:SYSTEM\MERCURY\MERC.LOG');
> Reset( EMailLogFile);
> CloseFile( EMailLogFile);
> --------
> ked urcim cestu k fajlu, samozrejme to ide AssignFile( EMailLogFile,
> 'X:SYSTEM\MERCURY\MERC.LOG'); trosku ma to prekvapilo, ale aspon je
> zivot zaujimavejsi ;)
Zkuste:
AssignFile( EMailLogFile,
'\\ASR_1\SYS\SYSTEM\MERCURY\MERC.LOG');
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
Jak vypnout IB v NT
[*] Milan Hora <ivar(zv)ivar(tec)cz> - 17.12.1999 13:54:49
Spust si services, najdi InterBase Server a dej Stop.
Milan
-----Original Message-----
From: Pavel Medek <Pavel.Medek(zv)talema(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 17. prosince 1999 12:39
Subject: Jak vypnout IB v NT
>Potrebuju z duvodu upgrade vypnout (shutdown) IB na NT, ale neb nemam ikonu
>v taksbaru nevim jak na to. Odstrelit to ze zpravce uloh nejde.
>Muzete mi nekdo pomoc ?
>
>Diky
>
>Pavel
>
>
Jakou databazi doporucite?
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 17.12.1999 13:54:24
>Pokud je mi znamo, tak Winbase nedokaze vygenerovat databazi
>z SQL skriptu. Musi se to delat pres IDE.
>Coz je podle me dost podstatna nevyhoda.
To ale nie je pravda, WinBase obsahuje funkcie na import a export dat , casti
aplikacie
alebo celej aplikacie. Je mozne vytvorit txt subor ktory bude obsahovat SQL
skript (definicie
tabuliek, procedur,...) a tento pouzit napr. na vytvorenie DB. Tiez je mozne
tabulky exportovat a importovat do formatov (TXT,DBF). Tieto funkcie su
zabudovane aj v komponentach WDE
Ivan Turcan
E-Mail: iturcan(zv)gamo.sk
WDE Homepage: www.software602(tec)cz/wde
TPaintBox - TCanvas
[*] kchodl(zv)atlas(tec)cz - 17.12.1999 13:57:20
Ahoj,
na formu mam komponentu TPaintBox a tlacitko. Kdyz zmacknu tlacitko provedu:
PaintBox.Canvas.Color:=clBlack;
JENZE se vubec nic nestane? :(
Dik
Progr-Amather -Kchodl-� 1989-1999
ICQ: 31825631
Jak vypnout IB v NT
[*] DURDINA Michal <durdina(zv)asset.sk> - 17.12.1999 14:05:02
Pusti si Service z Control Panelu a tam stopni InterBase Guardian. Ten by
mal stopnut aj InterBase Server.
Mi�o �urdina
> -----Original Message-----
> From: Pavel Medek [SMTP:Pavel.Medek(zv)talema(tec)cz]
> Sent: 17. december 1999 12:34
> To: delphi-l(zv)fwd(tec)cz
> Subject: Jak vypnout IB v NT
>
> Potrebuju z duvodu upgrade vypnout (shutdown) IB na NT, ale neb nemam
> ikonu
> v taksbaru nevim jak na to. Odstrelit to ze zpravce uloh nejde.
> Muzete mi nekdo pomoc ?
>
> Diky
>
> Pavel
> pristup na sietovy disk NW
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 17.12.1999 14:08:12
No mozna by mohly fungovat UNC format, tj.:
\\ASR_1\SYS\SYSTEM\MERCURY\MERC.LOG
ale nikdy jsem to neskousel a protoze tady
nemame Novell tak to ani nemohu zkusit (;-)...>robim chybu ja, alebo taketo priradenie v delphi ozaj nefunguje?
>--------
> AssignFile( EMailLogFile, '//ASR_1/SYS:SYSTEM\MERCURY\MERC.LOG');
> Reset( EMailLogFile);
>
> CloseFile( EMailLogFile);
>--------
>ked urcim cestu k fajlu, samozrejme to ide AssignFile( EMailLogFile,
>'X:SYSTEM\MERCURY\MERC.LOG');
>trosku ma to prekvapilo, ale aspon je zivot zaujimavejsi ;)Poukazky A-V
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 17.12.1999 14:10:45
> Kdysi tady nekdo psal, ze tiskne poukazky A-V. Jaky font pouzivate? Je
> nutna nejaka certifikace posty? Staci vyplnit poukazku na tiskarne
> fonty z Windows nebo musim mit nejake specialni fonty primo v
> tiskarne?
No, ja jsem primo nic takoveho nedelal, ale kolega delal vystupy pro
postu, myslim, ze to zrovna byly poukazky. A mel problem v tom, ze od
posty dostal primo pozadavek na pouzity font, ktery musel byt OCR-B. To
je specialni bezpatkovy font, ktery ma navic zvlast rozlisene O a 0, a
je navic vhodny pro ocr software. Doporucuji se primo informovat na
poste, resp. zkusit Internet.
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
Poukazky A-V
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 17.12.1999 14:11:29
Posta na tvorbu AV slozenek vydala asi 50ti strankovy navod, kde jsou vypsany veskera specifika. Jinak font je OCRB10N. Pro schvaleni se musi poslat 50 vytisku slozenek do vypocetniho strediska posty(v navody jsou vsechny strediska vypsana). Kdyby jsi chtel dalsi podrobnosti ozvi se soukrome na mares(zv)sct(tec)cz
Mirek
----- Original Message -----
From: Jaroslav Nadhera
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, December 17, 1999 1:29 PM
Subject: Poukazky A-V
Kdysi tady nekdo psal, ze tiskne poukazky A-V. Jaky font pouzivate? Je nutna nejaka certifikace posty? Staci vyplnit poukazku na tiskarne fonty z Windows nebo musim mit nejake specialni fonty primo v tiskarne? Poradite nekdo? Diky.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pristup na sietovy disk NW
[*] Jan Votava - DJsoft <djsoft(zv)top(tec)cz> - 17.12.1999 14:35:04
----- Original Message -----
From: Miroslav BARICA <barica(zv)mail.matador.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 17, 1999 12:01 PM
Subject: pristup na sietovy disk NW
> robim chybu ja, alebo taketo priradenie v delphi ozaj nefunguje?
> --------
> AssignFile( EMailLogFile, '//ASR_1/SYS:SYSTEM\MERCURY\MERC.LOG');
A nepomohlo by '\\ASR_1\SYS\SYSTEM\...' ?
S pozdravem
Jan Votava
Acces Violation
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 17.12.1999 14:51:17
Ahoj,
potreboval bych trochu poradit, kde mam zacit hledat. Mam napsanou aplikaci
v D2 a ta mi nepravidelne (obvykle po kompilaci, na opakovene spusteni jiz
zridka kdy) vykazuje Acces Violation po pruchodu OnDestroy hlavniho
formulare (tj. az za END). Program se normalne ukonci bez jakychkoliv
problemu a teprve pak se hlaska objevi (a stahne s sebou nekdy cele IDE).
Kde bych mel hledat pricinu problemu?
Diky za jakoukoliv radu
Jaro B.Registry
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 17.12.1999 15:35:08
prohledni si archiv konference, uz se to tu resilo
M.
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 17, 1999 11:10 AM
Subject: Registry
sipky nerespektuji TabStop
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 17.12.1999 15:44:47
Zdravicko
Mam problemek. Mam na formulari dynamicky generovany
panely (TabStop:=False) a tlacitka (TabStop:=True). Pokud
je pohybuji pomoci klavesy TAB tak je to OK. Pokud pouziji
sipky, tak se zastavuji i na panelech. Eventem OnKeyDown
klavesy sipek nechodi. Na podobny problem odpovidal
Petr Vones: "Druha moznost, pokud nechces odvozovat novou
komponentu je predefinovat zpravu CM_DIALOGKEY primo
na formulari a v ni odchytavat klavesy pokud ma zrovna
TScrollBox focus."
Popis zpravy CM_DIALOGKEY jsem v helpu nenasel, muze
mi nekdo napovedet, jak by to melo byt reseno ?
Diky
Daniel Rott
Pridelenie Event
[*] Michal Hlav�� - 17.12.1999 15:49:39
Zdravim,
I've problem. Nadefinoval som si vlastny TXYGrid. V Nom je Procedure
TXGrid.KeyPress(....) override;
Potom vo forme som si vytvoril procedure TForm1.MouseDown1(Sender:Tobject;
.....);
Po vytvoreni TXYGridu v Evente OnCreateForm mam toto Grid.OnKeyDown :=
MouseDown1;
Vsetko prebehne ok az na to ze pri stlaceni klavesy sa neurobi nic s
procedury MouseDown1;
Co s tym ?!?!?!?!??!
Dik moc, Miso
pristup na sietovy disk NW
[*] Michal Hlav�� - 17.12.1999 15:59:34
Zdravim, toto je odskusane na NW4.2, D3, W95 a ide to na 100%.
procedure TForm1.Button1Click(Sender: TObject);
var f :textfile;
s : String;
begin
AssignFile(f,'\\usmev\data\_pub\mifi.txt'); Reset(f);
While not Eof(f)do begin Readln(f,s); memo1.lines.add(s) end;
CloseFile(f);
end;
S pozdravom,
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
-----P�vodn� zpr�va-----
>robim chybu ja, alebo taketo priradenie v delphi ozaj nefunguje?
>--------
> AssignFile( EMailLogFile, '//ASR_1/SYS:SYSTEM\MERCURY\MERC.LOG');
> Reset( EMailLogFile);
>
> CloseFile( EMailLogFile);
>--------
>
>ked urcim cestu k fajlu, samozrejme to ide AssignFile( EMailLogFile,
>'X:SYSTEM\MERCURY\MERC.LOG');
>trosku ma to prekvapilo, ale aspon je zivot zaujimavejsi ;)
>
>Poukazky A-V
[*] Michal �viga <info(zv)cd-amper(tec)cz> - 17.12.1999 16:02:33
Posilal jsem asi 2000 katalogu na dobirku a nez jsem od nich dostal
parametry, co vse musim udelat tak to byl horor, ale o specialnim vyplnovani
slozenek nebyla rec, kdyz to preci vyplnim v ruce tak to take zadny font
neni.
Takze jsem vse vytiskl v Arialu a hotovo. Zadna stiznost.
Michal �viga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 65 15 052 mobil: 0602/ 207 557
http://www.dama(tec)cz - Internetovy casopis pro zeny
======ICQ: 57557677 =======================
----- P�vodn� zpr�va -----
Od: Miroslav Mare�
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 17. prosince 1999 14:11
P�edm�t: Re: Poukazky A-V
Posta na tvorbu AV slozenek vydala asi 50ti strankovy navod, kde jsou
vypsany veskera specifika. Jinak font je OCRB10N. Pro schvaleni se musi
poslat 50 vytisku slozenek do vypocetniho strediska posty(v navody jsou
vsechny strediska vypsana). Kdyby jsi chtel dalsi podrobnosti ozvi se
soukrome na mares(zv)sct(tec)cz
Mirek
----- Original Message -----
From: Jaroslav Nadhera
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, December 17, 1999 1:29 PM
Subject: Poukazky A-V
Kdysi tady nekdo psal, ze tiskne poukazky A-V. Jaky font pouzivate? Je nutna
nejaka certifikace posty? Staci vyplnit poukazku na tiskarne fonty z Windows
nebo musim mit nejake specialni fonty primo v tiskarne? Poradite nekdo?
Diky.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Poukazky A-V
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.12.1999 16:08:50
Puvodni zprava, kterou napsal Jaroslav Nadhera dne 17 Dec 99,:
> Kdysi tady nekdo psal, ze tiskne poukazky A-V. Jaky font pouzivate? Je =
> nutna nejaka certifikace posty? Staci vyplnit poukazku na tiskarne fonty =
> z Windows nebo musim mit nejake specialni fonty primo v tiskarne? =
> Poradite nekdo? Diky.
Treba ja to delam. Neni to slozite, musis mit font OCR-B 10 bodu,
ktery ja napr. nasel nekde mezi pismy v Corelu. Pak musis navstivit
postu, kde s nimi uzavres smlouvu na podavani slozenek A-V. Mas dve
moznosti, bud si nechas slozenky predtisknout a nebo si je bude
cele tisknout sam (to delam ja vcetne kompletniho kodoveho radku).
Dostanes manual, kde jsou presne specifikace, co do ktereho
okenka nacpat, jak to musi byt kvalitni, jakym pismem. Take dostanes
takovy slide s natiskem policek, kterym si pak prekontrolujes
pozice znaku a tolerance, kdyz to ucis svuj program a tiskarnu...
Nakonec odneses nejaky testovaci balik do vypocetniho strediska
(ted nevim, jestli 20 nebo 50 kousku), oni to projedou strojem
a reknou ti, jestli to mas dobre nebo spatne. To take reknou do
Posty DOS (v Praze ta pobocka, co se tim zabyva) a dostanes od nich
cislo, ktere tam take tisknes. No a to je vse. Pak jiz jen nakoupis
dany typ A-V slozenek (jsou bud samostatne nebo spolu s pruvodkami
na balik nebo s papirem apod.). A tisknes...
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
Poukazky A-V
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.12.1999 16:20:07
Puvodni zprava, kterou napsal Michal �viga dne 17 Dec 99,:
> Posilal jsem asi 2000 katalogu na dobirku a nez jsem od nich dostal
> parametry, co vse musim udelat tak to byl horor, ale o specialnim vyplnovani
> slozenek nebyla rec, kdyz to preci vyplnim v ruce tak to take zadny font
> neni.
> Takze jsem vse vytiskl v Arialu a hotovo. Zadna stiznost.
Tak sis nechal predtisknout od nich jiz cast tech slozenek,
pak se to jiz jen dovyplnuje, coz nemusis delat fontem OCR-B.
Nicmene zpracovani takovych poukazek je mnohem pomalejsi
nez tech, co projedou strojem komplet automaticky, protoze
maji plne kodovany ten radek dole...
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
SQL 7 a String
[*] Va�ek Nov�k - 17.12.1999 16:38:07
Ahoj,
mame problem po prevodu SQL 6.5 na 7.0, prechodu D3 na D5
pri soucasnem prechodu z BDE na ADO.
Ptame se na obsah fieldu Zkratka Char(3)
if ADOQuery1Zkratka.AsString = 'AB' then DRIVE BYLO TRUE
( totez i pri :
if ADOQuery1.FieldByName('Zkratka').AsString = 'AB' then )
Po zminenem prechodu je ve fieldu Zkratka obsah 'AB ', cili mezera navic a
odpoved je false.
Ptam-li se SQL dotazem, je to true, at se zeptam na 'AB' nebo 'AB '.
Je mozne ze upgrade databaze na 7.0 doplnil string o mezery na deklarovanou delku, nebo
ze D5 ci ADO spatne interpretuje tento field.
Nebo blbnu.
Diky a ahoj
Vasek
sipky nerespektuji TabStop
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 17.12.1999 17:08:39
From: Daniel Rott <roxton(zv)atlas(tec)cz>
Subject: sipky nerespektuji TabStop
> Eventem OnKeyDown
> klavesy sipek nechodi. Na podobny problem odpovidal
> Petr Vones: "Druha moznost, pokud nechces odvozovat novou
> komponentu je predefinovat zpravu CM_DIALOGKEY primo
> na formulari a v ni odchytavat klavesy pokud ma zrovna
> TScrollBox focus."
>
> Popis zpravy CM_DIALOGKEY jsem v helpu nenasel, muze
> mi nekdo napovedet, jak by to melo byt reseno ?
>
> Diky
> Daniel Rott
Treba takto. Do private sekce formu deklaruj:
procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
a implementace bude vypadat treba takto:
procedure TForm1.CMDialogKey(var Message: TCMDialogKey);
var Shift: TShiftState;
begin
Shift := KeyDataToShiftState(Message.KeyData);
if Shift = [ssShift, ssCtrl] then
case Message.CharCode of
vk_Left : PosunVlevo;
vk_Right: PosunVpravo;
vk_Up : PosunNahoru;
vk_Down : PosunDolu;
end;
inherited;
end;
Vaclav Krmela
SQL 7 a String
[*] Tom� Br�dle������i�^����? - 17.12.1999 17:10:35
Zdravim,
to je tim, ze BDE automaticky orezavalo koncove mezery i u typu typu
char(x).
To ADO u typu Char(x) nedela, doporucuji pouzit Varchar(x), u ktereho dojde
k oriznuti.
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Va�ek Nov�k <milesoft(zv)mi.cesnet(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 17. prosince 1999 16:46
P�edm�t: SQL 7 a String
Ahoj,
mame problem po prevodu SQL 6.5 na 7.0, prechodu D3 na D5
pri soucasnem prechodu z BDE na ADO.
Ptame se na obsah fieldu Zkratka Char(3)
if ADOQuery1Zkratka.AsString = 'AB' then DRIVE BYLO TRUE
( totez i pri :
if ADOQuery1.FieldByName('Zkratka').AsString = 'AB' then )
Po zminenem prechodu je ve fieldu Zkratka obsah 'AB ', cili mezera navic a
odpoved je false.
Ptam-li se SQL dotazem, je to true, at se zeptam na 'AB' nebo 'AB '.
Je mozne ze upgrade databaze na 7.0 doplnil string o mezery na deklarovanou
delku, nebo
ze D5 ci ADO spatne interpretuje tento field.
Nebo blbnu.
Diky a ahoj
Vasek
Combobox
[*] Vladimir Ponechal <Vladimir_Ponechal(zv)tesco-europe(tec)com> - 17.12.1999 17:29:04
Preji hezky den,
Chtel jsem se zeptat na komponentu combobox. Kliknu na combobox a vyberu
nejakou hodnotu, ta mi tam zustane, i kdyz dam treba combobox1.text := '';
Jak si muzu primo za behu programu vybrat svoji hodnotu v comboboxu? Treba
kdyz chci aby hodnota v poly comboboxu byla prazdna.
_________________________________________________
Vladimir Ponechal
_________________________________________________
generatory tiskovych sestav
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 17.12.1999 17:31:58
From: Vaclav Krmela <krmela(zv)pecomp(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 16, 1999 9:17 PM
Subject: Re: generatory tiskovych sestav
> Ty obrazky jsou v databazi nebo jako externi soubory?
> A jak jsou velke?
Po problemech s ulozenim jpegu do databaze (bmp slo, ale jpeg ani pres Blob)
sem ulozil do baze pouze cestu, takze je mam zatim externe.
jpegy maji prumerne 50kB a rozmery max 1000x1000 pri nejvyssi hloubce barev
> Po pridani Jpeg do uses to zvladne Sinea.
>
> Vaclav Krmela
>
Jakou databazi doporucite?
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 17.12.1999 18:20:56
>
>>Pokud je mi znamo, tak Winbase nedokaze vygenerovat databazi
>>z SQL skriptu. Musi se to delat pres IDE.
>>Coz je podle me dost podstatna nevyhoda.
>
>
>To ale nie je pravda, WinBase obsahuje funkcie na import a export dat , casti
>aplikacie
>alebo celej aplikacie. Je mozne vytvorit txt subor ktory bude obsahovat SQL
>skript (definicie
>tabuliek, procedur,...) a tento pouzit napr. na vytvorenie DB. Tiez je mozne
>tabulky exportovat a importovat do formatov (TXT,DBF). Tieto funkcie su
>zabudovane aj v komponentach WDE
A je mozne vytvorit databazove schema se skriptu generovaneho
nejakym CASE ?
Radim Kunz
>Ivan Turcan
>
>E-Mail: iturcan(zv)gamo.sk
>WDE Homepage: www.software602(tec)cz/wde
>
>Tymova spoluprace
[*] Jirka Virt <virt(zv)volny(tec)cz> - 17.12.1999 19:45:39
Ahoj,
nemate nekdo dobry tip na program pro tymovou spravu projektu ??
Jsme tri s D5 Pro ,kazdy v jinem meste a mame jeden projekt.Kazdy v nem dela nejake upravy a pak bychom si je radi vsichni zakualizovali.
Predem diky za odpovedi
Jirka Virt
email: virt(zv)volny(tec)cz
ulozene procedury a upgrade na MSSQL7
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 17.12.1999 20:24:58
Jestli se nepletu, tak je todle bug SQL7 resp. toho upgrade - je potreba
rekompilovat ulozene procedury. Aspon mam pocit, ze jsem to uz nekde cetl
;-)
Mac
----- Original Message -----
From: <pemasoft(zv)atlas(tec)cz>> Po upgradu serveru MS SQL 6.5 na verzi 7.0 s SP1 v nasem programu nechodi
ulozene procedury.
>
> Kdyz ji zavolam rucne procedura se spusti ale v programu to hlasi 'can not
find store procedure .....'.
>
> Nevite co s tim mam udelat ????
>Databaze a sireni + par drobnosti IV
[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 17.12.1999 21:07:58
Zdravim !!!
Mno, pise mi to stale tu chybu jakou jsem zde uz psal a pritom to v BDE Adminu ten alias mam. Napadlo me, jestli bych nemohl otevrit celou tu databazi az za behu a nepouzivat nastaveni BDE. Jak by se to potom delalo ? Predem dik a cau Martin.
/======================\
/ pesek.martin(zv)mymail(tec)cz \
/-------------------------------------------------\
<---<([ Martin Pesek ] [ Gamemaker ])>--->
\-------------------------------------------------/
\ www.mujweb(tec)cz/www/gusman /
\======================/Minimalizace hlavniho formu
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 17.12.1999 22:50:32
W98CZ;D5 Pro;PII 266;64MB;
Ahoj,
nemel byste, prosim, nekdo napad, jak
donutit hlavni okno aplikace (Application.MainForm),
aby pri minimalizaci nechalo na pokoji ostatni okna
aplikace a ty naopak donutit k tomu, aby se
minimalizovaly jednotlive NA listu a ne NAD listu.
V podstate je osamostatnit ??
Diky za kazdy napad
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
Pristup k datum, Delphree a vubec was: D5 - ano ci
[*] Erik Salaj <winsoft(zv)napri.sk> - 17.12.1999 23:34:04
> > Ale vtedy triedis typ ovocie a nie hrusky s jablkami.
>
> Stejne jako chces tridit obecny datovy typ, ne?
> A obecny datovy typ znamena, ze chces prijimat cokoliv, neohanej
> se tedy neexistenci typove kontroly, kdyz ji nechces.
No uz som konecne pochopil, co si to vlastne nepochopil. Ked som
spominal, ze chcem triedenie pracujuce s obecnym typom, tak som
rozhodne nemyslel triedenie pre nejaky jeden "vseuniverzalny datovy
typ"!!! Taky sa totiz neda ani definovat nie to este pouzit pri triedeni.
Ani typ Variant nie je "obecny typ" v takom zmysle, pretoze Variant
je presne typu Variant (ak si myslis, ze v Delphi helpe je napisane
nieco ine, tak bud zle vidis alebo je tam chyba).
Ja som chcel triedenie, ktore specifikujem iba raz pre rozlicne typy s tym,
ze pouzijem parameter ako typ (tzv. parametricky alebo genericky typ).
Tu je este raz presne to, co som uviedol v povodnom maile:
"ze nie je mozne napisat genericke triedenie (t.j. pracujuce s obecnym
typom)"
Myslim, ze som jasne uviedol "GENERICKE TRIEDENIE". Ak tento pojem
pocujes prvy krat, resp. nebolo Ti zrejme co tym myslim, mohol si sa ma na
to
najprv opytat a az potom sa zapojit do diskusie, pretoze inak nema vyznam
sa bavit "ja o voze a ty o koze". Genericke triedenie by mohlo vyzerat napr.
takto:
procedure Tried<Typ>(Pole: array of <Typ>)
begin
// tu je kod, napr.
if Pole[i] > Pole[j] then
Vymen(Pole[i], Pole[j]);
end;
pricom <Typ> je parameter, ktory sa dosadi az tesne pred pouzitim.
Potom takto napisane triedenie mozem pouzit pre lubovolny typ
aky potrebujem (to bolo myslene tym "obecny typ"),
napr. pre typ Integer:
var MojeIntegerPole: array [..] of Integer;
Tried<Integer>(MojeIntegerPole);
alebo pre typ Double:
var MojeDoublePole: array [..] of Double;
Tried<Double>(MojeDoublePole);
Vsimni si, ze tam funguje typova kontrola, povedzme
Tried<Integer>(MojeDoublePole);
neprelozim, pretoze Tried<Integer> vyzaduje typ Integer a kompilator
preto zahlasi chybu - nespravny typ parametra, ocakava sa pole Integer.
Delphi cosi take ale nepodporuje a preto musim bud pouzit Variant
ci smernik (a pretypovat ho) alebo naprogramovat triedenie (to iste)
dva krat, raz pre typ Integer a raz pre typ Double. Zbytocne to musim
napisat dvakrat, hoci obidva procedury vyzeraju uplne rovnako (obsahuju
uplne rovnake prikazy).
procedure TriedInteger(Pole: array of Integer);
begin
// tu je kod, napr.
if Pole[i] > Pole[j] then
Vymen(Pole[i], Pole[j]);
end;
procedure TriedDouble(Pole: array of Double);
begin
// tu je kod, napr.
if Pole[i] > Pole[j] then
Vymen(Pole[i], Pole[j]);
end;
Lisia sa len typom, ktory je preto vyhodne abstrahovat (parametrizovat)
a usetrit spustu zbytocneho pisania (ale ma to aj cely rad dalsich vyhod).
Takze o to mi islo. Snad Ti to uz dojde, uz to primitivnejsie asi nedokazem
vysvetlit. A nabuduce sa najprv opytaj, ked zadaniu nerozumies a az potom
zacni ulohu riesit.
Erik Salaj
Spravna cestina ve Win
[*] lumir.delphi(zv)post(tec)cz - 18.12.1999 00:34:35
Ahoj,
mam nasledujici problem, mam Win98 Second edition v anglicke verzi a zobrazuje mi samozrejme spatne cestinu v ceskych aplikacich a jejich komponentach. Novy Win nechci, protoze jsem registrovanym vlastnikem a upgrade na celou ceskou verzi taky ne, protoze tento system vyuziva i osoba nemluvici cesky. Rad bych se dozvedel jestli mi bude stacit napr. zkopirovat z ceskych oken pouze font nebo pripadne i cely adresar \"Windows/fonts\". Nevim to jiste ale podle tvaru systemoveho pisma bych typoval, ze to budou fonty jako \"FixedSys\", \"MsSansSerif\", \"System\" nebo \"Terminal\". Jestli z Vas nekdo vi, ktery font nebo fonty pro zobrazeni vetsiny systemovych zprav a stitku mi mohou pomoci napiste mi je.
Za vsechny odpovedi predem moc dekuji. Lumir.
Najit informace na internetu je snadne:
*** http://NAJDI.TO
generatory tiskovych sestav
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 18.12.1999 01:22:09
From: p. Jirman <jim.design(zv)iol(tec)cz>
> Po problemech s ulozenim jpegu do databaze (bmp slo, ale jpeg ani pres
Blob)
> sem ulozil do baze pouze cestu, takze je mam zatim externe.
>
> jpegy maji prumerne 50kB a rozmery max 1000x1000 pri nejvyssi hloubce
barev
>
V generatoru Sinea se to udela takto:
- V projektu musi byt alespon jednou pouzit v uses unit Jpeg
- Do predlohy tiskove sestavy do oddilu tela sestavy se vlozi
Graficky prvek - Obrazek
- Do nazvu souboru obrazku se vlozi text "#Polozka_Cesta",
tedy # nasledovany nazvem polozky s cestou.
Misto nazvu polozky je mozne pouzit i jeji poradove cislo.
- Pokud by polozka Polozka_Cesta neobsahovala kompletni cestu,
musela by se zalozit polozka kalkulovana s uplnou cestou.
To je vse. Takto by to melo fungovat nekdy od verze 3.39d
v D1, D3, D4 i D5.
Vaclav Krmela
Zobrazovani aplikace v taskbaru
[*] Jmisek <jmisekdelphi(zv)seznam(tec)cz> - 18.12.1999 02:05:40
Cau vsichni
mam takovou otazku
mam aplikaci ktera bezi jako neustale jako sluzba, mam udelanou ikonku
v systrayi a chtel bych aby aplikace nebyla v taskbaru
dik a cus
Tymova spoluprace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.12.1999 07:46:02
Ahoj,
v soucasne dpbe existuji pro Windows asi dva vyraznejsi produkty,
o kterych ma cenu se zminit. Borland dodava se svymi Delphi 5
Enterprise TeamSource (do Prof lze dokoupit), ktery pracuje jako
paralelni spravce verzi a od Microsoftu je Visual SourceSafe, ktery
funguje jako seriovy model (mnou preferovany). Borlandi
TeamSource jsem popsal v recezni na Delovi v softwarovych
novinach 12/99. Hlavni zaver je (muj subjektivni), ze se chova jako
nevyspely skolni projekt.SourceSafe uz je celkem vyspely produkt
(puvodne jej MS zakoupila). Oba lze pouzit na sitich MS, ale po
Internetu mas asi smulu. Kazdopadne oba maji sve mouchy. Pro
Unix jsou take dva hlavni produkty, ale s nimi zatim nemam
zkusenosti. Jen vim, ze jedou i po Internetu a maji klienty i pro
Windows.
Slavek
> Ahoj,
> nemate nekdo dobry tip na program pro tymovou spravu projektu ??
> Jsme tri s D5 Pro ,kazdy v jinem meste a mame jeden projekt.Kazdy v nem
> dela nejake upravy a pak bychom si je radi vsichni zakualizovali.
>
> Predem diky za odpovedi
> Jirka Virt
> email: virt(zv)volny(tec)cz
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
Check this (antivir)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.12.1999 07:50:20
Ahoj,
firma Alwil nebyka na Invexu a diky tomu si mohla dovolit prodavat
sveho Avasta! za 499 Kc vcetne DPH pro domaciho uzivatele, tedy
na pocitac, ktery nepouzivas pro vydelcnou cinnost. Aktualizace je
kazdy mesic, tzn., ze dostavas mesicne do schranky nove CD.
Pozor, tato akce trva pouze do konce roku a nakupovat musis
pouze u alwilu nebo postou. Adresa je www.alwil.com, postovni
adresa: Prubezna 76, Praha 10.
Slavek
> Cus
>
> Jak tady tak pozoruju tu akci s tema virama, rad bych se zeptal jakej by
> jste doporucovali freeware antivir (pripadne i ne freeware). Dlouho jsem
> si nescanoval pocitac a zacinam mit vycitky svedomi :)
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
generatory tiskovych sestav
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 18.12.1999 08:12:25
> V generatoru Sinea se to udela takto:
>
> - V projektu musi byt alespon jednou pouzit v uses unit Jpeg
> - Do predlohy tiskove sestavy do oddilu tela sestavy se vlozi
> Graficky prvek - Obrazek
> - Do nazvu souboru obrazku se vlozi text "#Polozka_Cesta",
> tedy # nasledovany nazvem polozky s cestou.
> Misto nazvu polozky je mozne pouzit i jeji poradove cislo.
> - Pokud by polozka Polozka_Cesta neobsahovala kompletni cestu,
> musela by se zalozit polozka kalkulovana s uplnou cestou.
>
> To je vse. Takto by to melo fungovat nekdy od verze 3.39d
> v D1, D3, D4 i D5.
>
Oprava:
Takto, jak je to popsano to funguje od D3 vyse.
V D1 funguje popsany mechanismus predavani odkazu na
externi obrazove soubory. Neni ale podporovan format JPG.
V D1 lze pouzit pouze formaty BMP a WMF, mozna i ICO.
Vaclav Krmela
Pridelenie Event
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.12.1999 08:14:46
Michal Hlav�� wrote:
> Zdravim,
> I've problem. Nadefinoval som si vlastny TXYGrid. V Nom je Procedure
> TXGrid.KeyPress(....) override;
>
> Potom vo forme som si vytvoril procedure
> TForm1.MouseDown1(Sender:Tobject; .....);
>
> Po vytvoreni TXYGridu v Evente OnCreateForm mam toto Grid.OnKeyDown :=
> MouseDown1;
>
> Vsetko prebehne ok az na to ze pri stlaceni klavesy sa neurobi nic s
> procedury MouseDown1;
To je s podivem, ze ti to vubec chodi. OnKeyDown a
OnMouseDown jsou uplne jineho typu, maji jine parametry. Ale
muzes si vytvorit KeyDown1 a uvnitr ni teprve volat MouseDown1.
Nesmis vsak zapomenout vyplnit spravne prislusne parametry,
pokud je k necemu pouzivas.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zajimavost pri vytizeni procesoru
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.12.1999 08:49:03
Ahoj,
zkousel jsem vytizenost CPU:
Function GetCPULoad:longint;
var reg:Tregistry;
b:longint;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_DYN_DATA;
reg.OpenKey('\PerfStats\StatData',false);
reg.ReadBinaryData('KERNEL\CPUUSAGE',b,sizeof(b));
reg.CloseKey;
reg.Free;
result:=b;
end;
a to se chova docela zajimave. Kdyz spustim jen program, vraci
pouze 100. Pokud k tomu spustim i Sledovani systemu, jiz to vraci
i jina cislo. Cim to nuze byt? (D4/Prof, Win95 OSR2)
Diky za pripadne odpovedi
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
Debug breakpoint
[*] Werki <delphi(zv)minv.sk> - 18.12.1999 08:58:08
Ahooj
Nestretol sa niekdo s tym, ze ked si definuje breakpoint,
hadze pri kompilacii namiesto odfajknutia X, aj ked program cez
prikaz prechadza? Proste breakpoint nefunguje nikde.
Zeby nejake nastavenie? (Ziadne som vsak zatial nenasiel)
Je to zaujimava vec, ktora sa neda odstranit ani preinstalovanim
Cu
Werki
Debug breakpoint
[*] Werki <delphi(zv)minv.sk> - 18.12.1999 10:05:50
> Ahooj
>
> Nestretol sa niekdo s tym, ze ked si definuje breakpoint,
> hadze pri kompilacii namiesto odfajknutia X, aj ked program cez
> prikaz prechadza? Proste breakpoint nefunguje nikde.
> Zeby nejake nastavenie? (Ziadne som vsak zatial nenasiel)
>
> Je to zaujimava vec, ktora sa neda odstranit ani preinstalovanim
>
> Cu
>
> Werki
Takze odstranil som to len uplnum preinstalovanim...fyzickym zlikvidovanim
delphy odvsadial
rucne (nie cez win uninstall) a opatovnym preinstalovanim.
Zaujimave je, ze nepomohlo ani uplne ocheckovanie komplet prepinacov v
delphy s kolegom.
S prianim nex sa to nikomu z Vas nestane
Werki
Zajimavost pri vytizeni procesoru
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 18.12.1999 10:34:06
> zkousel jsem vytizenost CPU:
>
> Function GetCPULoad:longint;
> var reg:Tregistry;
> b:longint;
> begin
> reg:=Tregistry.create;
> reg.RootKey:=HKEY_DYN_DATA;
> reg.OpenKey('\PerfStats\StatData',false);
> reg.ReadBinaryData('KERNEL\CPUUSAGE',b,sizeof(b));
> reg.CloseKey;
> reg.Free;
> result:=b;
> end;
>
> a to se chova docela zajimave. Kdyz spustim jen program, vraci
> pouze 100. Pokud k tomu spustim i Sledovani systemu, jiz to vraci
> i jina cislo. Cim to nuze byt? (D4/Prof, Win95 OSR2)
>
> Diky za pripadne odpovedi
> Slavek
>
Nejspis to bude tim, ze uvedena funkce GetCPULoad
nesleduje system, ale pouze cte obsah registru.
Nekdo ale musi system sledovat. A to dela program Sledovani
systemu. Tento program namerene hodnoty do registru zapisuje.
Pak je teprve mozne je precist.
Vaclav Krmela
Debug breakpoint
[*] Werki <delphi(zv)minv.sk> - 18.12.1999 12:25:08
> A mas v Project Options ==> Compiler ==> Debugging
> zatrhnuto Debug Information
> Pavel
Yasne. Mal som vsetko zapnute, jeden jediny buttonik so showmessage a
tiez to hodilo X. Je mozne ze to malo cosi s nejakou komponentou, aj ked som
uz nejaky mesiac ziadnu novu neinstaloval ani neprekodoval. Proste it have
happened...dont ask me
why and how.
>From Rene Otisk
> To je zpusobene tim, ze mas breakpoint na miste, kde nema byt (podle
> nastaveni ti to i pri kompilaci zahlasi, ze ho nemas na spravnem miste
> kodu).
To ye yasne :) Pisal som ze to robi vsade to iste. Zase taky blby nie som
*smile*
Later
Werki
Combobox
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 18.12.1999 15:21:58
ahoj,
zmen si ComboBox1.Style na csDropDown;
----- Original Message -----
From: Vladimir Ponechal <Vladimir_Ponechal(zv)tesco-europe.com>
To: Delphi konference (E-mail) <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 17, 1999 5:29 PM
Subject: Combobox
> Preji hezky den,
>
> Chtel jsem se zeptat na komponentu combobox. Kliknu na combobox a vyberu
> nejakou hodnotu, ta mi tam zustane, i kdyz dam treba combobox1.text := '';
> Jak si muzu primo za behu programu vybrat svoji hodnotu v comboboxu? Treba
> kdyz chci aby hodnota v poly comboboxu byla prazdna.
>
> _________________________________________________
>
> Vladimir Ponechal
> _________________________________________________
>
>
>property TTable.Datasource
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 18.12.1999 15:37:33
Vazeni,
mam jeden zdanlive trivialni problem (D3). V aplikaci potrebuji z objektu
TTable zjistit objekt Datasource. Existuje property TTable.Datasource, ktera
se podle helpu muze jen cist, coz je pravda a obsahuje, pokud je v objektu
TDatasource nastavena jako Dataset prislusna Table, property Datasource s
vyse uvedenym objektem TDatasource, coz mi jaksi nefunguje. Nezalezi na tom,
zda je tabulka otevrena ci zavrena, ani zda k tabulce pristupuji pres alias,
primo pres adresar nebo pres TDatabaze. Vite nekdo, jak z toho ven?
RT electronic
Petr Ma��k
P�tipesk�ho 17
16900 Praha 6
tel. 02-20510562
rtepema(zv)mbox.vol(tec)cz
Check this (antivir)
[*] Jmisek <jmisekdelphi(zv)seznam(tec)cz> - 18.12.1999 16:10:37
Cus
Jak tady tak pozoruju tu akci s tema virama, rad bych se zeptal jakej by
jste doporucovali freeware antivir (pripadne i ne freeware). Dlouho jsem
si nescanoval pocitac a zacinam mit vycitky svedomi :)
----- Original Message -----
From: Michal �viga <info(zv)cd-amper(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 17, 1999 11:13 AM
Subject: Re: Check this
> Zrejme mate zavirovany pocitac a ten posila mejly na vsechny strany s
virem,
> udelejte s tim neco.
>
> Michal �viga (Sviga)
> =============================[PROTON]====
> CROSS MEDIA SERVIS - CD KATALOG AMPER
> http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
> tel.,fax: +420 2 65 15 052 mobil: 0602/ 207 557
> http://www.dama(tec)cz - Internetovy casopis pro zeny
> ======ICQ: 57557677 =======================
> ----- P�vodn� zpr�va -----
> Od: Martin Ocenas <matko(zv)proces.sk>
> Komu: <matko(zv)proces.sk>
> Odesl�no: 17. prosince 1999 8:28
> P�edm�t: Check this
>
>
> > Have fun with these links.
> > Bye.
>
>Zajimavost pri vytizeni procesoru
[*] Jirka Virt <virt(zv)volny(tec)cz> - 18.12.1999 17:51:56
Ahoj,
taky jsem se stim setkal, ,ale vetsinou jen, kdyz jsem sledovani CPU dal do
Nabidky Po spusteni.Kdyz jsem ho spustil samostane a po ustaleni Windowsu
tak uz meril celkem dobre.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, December 18, 1999 8:49 AM
Subject: Zajimavost pri vytizeni procesoru
> Ahoj,
>
> zkousel jsem vytizenost CPU:
>
> Function GetCPULoad:longint;
> var reg:Tregistry;
> b:longint;
> begin
> reg:=Tregistry.create;
> reg.RootKey:=HKEY_DYN_DATA;
> reg.OpenKey('\PerfStats\StatData',false);
> reg.ReadBinaryData('KERNEL\CPUUSAGE',b,sizeof(b));
> reg.CloseKey;
> reg.Free;
> result:=b;
> end;
>
> a to se chova docela zajimave. Kdyz spustim jen program, vraci
> pouze 100. Pokud k tomu spustim i Sledovani systemu, jiz to vraci
> i jina cislo. Cim to nuze byt? (D4/Prof, Win95 OSR2)
>
> Diky za pripadne odpovedi
>
> Slavek
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
>
>Zajimavost pri vytizeni procesoru
[*] Jirka Virt <virt(zv)volny(tec)cz> - 18.12.1999 17:53:58
Ale to by nemelo vadit, vzdyt to z registru jenom ctu, ne??
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Vaclav Krmela <krmela(zv)pecomp(tec)cz>
To: Delphi forum <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, December 18, 1999 10:34 AM
Subject: Re: Zajimavost pri vytizeni procesoru
>
> Nejspis to bude tim, ze uvedena funkce GetCPULoad
> nesleduje system, ale pouze cte obsah registru.
> Nekdo ale musi system sledovat. A to dela program Sledovani
> systemu. Tento program namerene hodnoty do registru zapisuje.
> Pak je teprve mozne je precist.
>
> Vaclav Krmela
>
>
>
>
>Tymova spoluprace
[*] Jirka Virt <virt(zv)volny(tec)cz> - 18.12.1999 18:01:22
Ahoj,
zapomel jsem - aktualizaci provadime po ZIP diketach, takze sit
nepouzivame.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, December 18, 1999 7:46 AM
Subject: Re: Tymova spoluprace
> Ahoj,
>
> v soucasne dpbe existuji pro Windows asi dva vyraznejsi produkty,
> o kterych ma cenu se zminit. Borland dodava se svymi Delphi 5
> Enterprise TeamSource (do Prof lze dokoupit), ktery pracuje jako
> paralelni spravce verzi a od Microsoftu je Visual SourceSafe, ktery
> funguje jako seriovy model (mnou preferovany). Borlandi
> TeamSource jsem popsal v recezni na Delovi v softwarovych
> novinach 12/99. Hlavni zaver je (muj subjektivni), ze se chova jako
> nevyspely skolni projekt.SourceSafe uz je celkem vyspely produkt
> (puvodne jej MS zakoupila). Oba lze pouzit na sitich MS, ale po
> Internetu mas asi smulu. Kazdopadne oba maji sve mouchy. Pro
> Unix jsou take dva hlavni produkty, ale s nimi zatim nemam
> zkusenosti. Jen vim, ze jedou i po Internetu a maji klienty i pro
> Windows.
>
> Slavek
>
zmeneni fontu u hintu
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 18.12.1999 22:52:08
Zdravim,
chtel bych se zeptat, jak docilim zmeneni fontu hintu.
Z helpu jsem vycetl, ze existuje screen.HintFont:=TFont,
ale i kdyz mu zadam promenou typu TFont nic se nedeje.
Za odpoved predem diky.
M. Jirman
Indexy v RichEdit
[*] Martin Ve�e�a - 18.12.1999 23:10:48
Nevi nekdo jak RichEditu v D5 vnutit horni a dolni index uprostred
normalniho textu? Vim ze kdyz nacitam data z rtf souboru tak se dolni a
horni indexy zobrazi a jdou editovat, ale nevim jak je zapnout a zase
vypnout.
dik.Spravna cestina ve Win
[*] lumir.delphi(zv)post(tec)cz - 19.12.1999 01:17:26
Ahoj,
mam nasledujici problem, mam Win98 Second edition v nglicke verzi a zobrazuje mi samozrejme spatne cestinu v ceskych aplikacich a jejich komponentach. Novy Win nechci, protoze jsem registrovanym vlastnikem a upgrade na celou ceskou verzi taky ne, protoze tento system vyuziva i osoba nemluvici cesky. Rad bych se dozvedel jestli mi bude stacit napr. nainstalovat z ceskych oken pouze font nebo pripadne vsechny fonty. Nevim to jiste ale podle tvaru systemoveho pisma bych typoval, ze to budou fonty jako \'FixedSys\', \'MsSansSerif\', \'System\' nebo \'Terminal\'. Jestli z Vas nekdo vi, ktery font nebo fonty pro zobrazeni vsech systemovych zprav a stitku mi mohou pomoci napiste mi je.
Pro doplneni informaci uvadim, ze jsem si s tim pomerne dlouho hral a nektere dulezite fonty se mi povedlo pocestit ale jiste standartni fonty v aplikacich zustaly nezmeneny. Jsou to napr. polozky v menu aplikace, nazvy souboru v souborovem okne pruzkumniku nebo WinComanderu coz zpusobuje, ze neprectu a nespustim ceske soubory a adresare.
Za vsechny odpovedi predem moc dekuji. Lumir.
Vas partner v oblasti internetovych sluzeb - Globe Internet:
*** http://GLOBE.CZ
Start W95 nebo W311
[*] bohous m <bohous_m(zv)seznam(tec)cz> - 19.12.1999 11:53:22
Dobry den...
Omlouvam se, ze vas asi obtezuju s "jednoduchym"
problemem, ale jsem programator zacatecnik a nevim si s nim rady.
Jako cast rocnikoveho projektu mam udelat program,
ktery rozezna operacni system na W3.x nebo na W95 a vys,
a podle toho spusti bud 16-bitov� program
nebo 32-bitovy program.
Doslo mi, ze tento program asi bude muset byt napsan
v DELPHI 1, aby sel spustit i na W3.x
Ale nevim si rady, jak spravne rozeznat system
(pripadne vyloucit i WIN 3.x s WIN32s)....
Pomuze prosim nekdo? Predem velmi dekuji za
jakoukoliv odpoved nebo pomoc.
Diky moc a jeste jednou se omlouvam za vas pripadne promarneny cas.
Petr Moskit, student
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
COM, Interface, Typelibrary, atp.
[*] Tom� Br�dle������i�^����? - 19.12.1999 11:48:17
Zdravim vsechny,
mam nekolik drobnych dotazu obecnejsiho razu.
1) Chci definovat obecny interface, ktery by potom implementovali ruzne
Ax Library. Kdyz vytvorim Ax Library, tak mi automaticky vygeneruje
TypeLibrary, ktera obsahuje nazev ty Ax Library a nelze mi vnutit jinou.
Jak tedy udelat, aby v Ax Library sly pouzit vlastni predem nadefinovane
interface objektu (mimo TypeLib projektu AxLib)?
2) Jde definovat interface i mimo TypeLib, popr. jake jsou
vyhody/nevyhody, jak se pouzivaji, a kde je to vyhodne, jestli a jak se pak
daji zaclenit do (pouzivat v) TypeLib?
Hledani souboru na siti...
[*] katerina.zankova(zv)post(tec)cz - 19.12.1999 11:50:43
Dobry den panove,
mela bych velkou prosbu. U nas v podniku nastal
problem. Potrebujeme vytvorit program, ktery
projede celou lokalni sit (Microsoft) a nalezne
pozadovane soubory. S timto problemem jsem
se jeste za svoji praxi nesetkala, a proto vubec
netusim, jakym smerem se vydat.
Jde o to, ze se musi zadat napriklad
pepa.doc a program musi projit pocitac po pocitaci
a zkontrolovat jestli tam ten soubor neni
(pripadne se snazit ignorovat zaheslovane
slozky - bud je nabourat ( ;-) ) nebo ignorovat-
hlavne nesmi dojit k dotazu na heslo (mame tu
skoro 490 pocitacu).
Prosila bych nekoho, zdali by me mohl pomoci nebo
alespon mohl nakopnout spravnym smerem.
Delphi 4 standart
Predem diky - Katerina Zankova
Informaticka nezavisle spol. Carter
Pro kazdeho e-mailova schranka zdarma na:
*** http://POST.CZ
Sledujte zpravodajstvi, TV-program, pocasi, kursy, ...:
*** http://PRESS.CZ
Start W95 nebo W311
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 19.12.1999 14:33:51
Ahoj,
mrkni na fci API GetVersion.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
----- Original Message -----
From: bohous m <bohous_m(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, December 19, 1999 10:53 AM
Subject: Start W95 nebo W311
> Dobry den...
>
> Omlouvam se, ze vas asi obtezuju s "jednoduchym"
> problemem, ale jsem programator zacatecnik a nevim si s nim rady.
>
> Jako cast rocnikoveho projektu mam udelat program,
> ktery rozezna operacni system na W3.x nebo na W95 a vys,
> a podle toho spusti bud 16-bitov� program
> nebo 32-bitovy program.
>
> Doslo mi, ze tento program asi bude muset byt napsan
> v DELPHI 1, aby sel spustit i na W3.x
>
> Ale nevim si rady, jak spravne rozeznat system
> (pripadne vyloucit i WIN 3.x s WIN32s)....
>
> Pomuze prosim nekdo? Predem velmi dekuji za
> jakoukoliv odpoved nebo pomoc.
>
> Diky moc a jeste jednou se omlouvam za vas pripadne promarneny cas.
>
> Petr Moskit, student
>
>
> -- http://email.seznam(tec)cz
> -- email zdarma na cely zivot
>
>Minimalizace do SysTraye pri startu
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 19.12.1999 17:27:31
Ahoj
Problem s minimalizaci aplikace do SysTraye uz jsem zvladnul :-)
Ted mam problem, jak minimalizovat aplikaci hned pri stratu, aby
uzivatele neotravovala a rovnou se objevila v SysTrayi.
Muzete me nekdo nakopnout jak to udelat? Pokud dam tu minimalizaci
treba do OnCreate formulare, tak se sice ikonka spravne objevi v
SysTray, ale za chvili se zase obnovi.
Jednoduchou aplikaci s minimalizaci do SysTraye, najdete na adrese:
http://atrey.karlin.mff.cuni(tec)cz/~bla/delphi.shtml
Poradte tedy prosim, jak to tam dodelat.
Diky
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - trideni was: D5 - ano ci ne ?
[*] Jaro <jaro(zv)sinea(tec)cz> - 19.12.1999 09:28:37 -0800
> From: Jaro <jaro(zv)sinea(tec)cz>
> > Tak s tim ja bych tedy velmi silne nesouhlasil! To ze technologie
> > client/server
> > ma sve koreny uz v pocitacovem davnoveku, jeste neznamena, ze je
nevhodna
> > i pro interaktivni zpusob prace.
>
> To jsem ani netvrdil. Pouze jsem podtrhl principialni rozdil mezi davkovym
a
> interaktivnim stylem prace, ktere vyzaduji odlisne strategie pri
> implementaci. Skutecnost, ze SQL C/S databaze maji koreny prave v dobe
> prevazne davkoveho zpracovani dat se prirozene odrazi v jejich zakladnich
> charakteristikach. Pokud clovek "splyva s proudem" (tedy prirozenosti SQL
> C/S), je svaden k volbe ne zcela vhodnych postupu, a v opacnem pripade je
> postaven pred radu zasadnich (prevazne vykonostnich) problemu. To je
nesvar,
> ktery jsem vypozoroval u rady aplikaci vytvarenych v posledni dobe (a
> psanych v Delphi obvzlaste).
Muj problem to urcite neni!
> Koncepce "plochych" databazi (xBase,Paradox)
> dovoluje velkou interaktivitu prace s daty bez vyraznych problemu.
Aplikace
> techto postupu na SQL C/S databazi (typyckym prikladem a nejcastejsi
chybou
> je pouziti TTable) vede ke spatnym vysledkum.
To jiste ano. Ja to vsak takto blbe nedelam a myslim, ze ostatni vyvojari
take
ne. To je problem nekterych zacatecniku, kterym se nedari oprostit se od
x-base
nahlizeni na data. Nelze to ale interpretovat, jako obecny problem.
> Z vyse uvedeneho vyplyva, ze (v prevazne vetsine pripadu) nejmene narocne
na cas a zdroje serveru je reseni c.3
S tim lze obecne souhlasit
>
> BDE se snazi prave toto reseni poskytnout. Bohuzel to nedela zcela
optimalne
> a dusledne, a navic je prakticky nemozne mit plnou kontrolu nad jeho
> fungovanim. Pokud ovsem nekdo investuje cas a usili do vytvoreni vlastni
> podpory, ziska velkou (konkurencni) vyhodu v podobe maximalne efektivnich
a zaroven vysoce interaktivnich aplikaci.
> Bohuzel, neni to jednoduche. Jiz radu let se snazim navrhnout a
> implementovat nejvhodnejsi postupy pro tuto strategii (a rekl bych ze s
> vyraznymi uspechy).
V D5 existuji nove objekty pro primy pristup k IB. Ty jsou k tomuto reseni
podstatne blize nez klasicke BDE. Napriklad muzes provest CLOSE + zmenu
ORDER BY a potom OPEN, aniz by se objekty datasetu znovu obracely na server.
V BDE bylo snad jedinou moznosti pouziti CacheUpdates.
Jaro
>
> Hodne zdaru vsem
>
> Pavel Cisar <pcisar(zv)atlas(tec)cz>
> Delphree.org CEO
> http://delphree.clexpert.com
> Nexus project coordinator
> http://delphree.clexpert.com/pages/projects/nexus/default.htm
>
>
Start W95 nebo W311
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.12.1999 18:46:20
bohous m wrote:
> Jako cast rocnikoveho projektu mam udelat program,
> ktery rozezna operacni system na W3.x nebo na W95 a vys,
> a podle toho spusti bud 16-bitov� program
> nebo 32-bitovy program.
>
> Doslo mi, ze tento program asi bude muset byt napsan
> v DELPHI 1, aby sel spustit i na W3.x
>
> Ale nevim si rady, jak spravne rozeznat system
> (pripadne vyloucit i WIN 3.x s WIN32s)....
Zkusil bych zacit s WinAPI funkci GetVersion.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
zmeneni fontu u hintu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.12.1999 20:29:38
Ahoj,
a Screen.Font.Assign (TvujFont);
jsi zkousel?
Slavek
> chtel bych se zeptat, jak docilim zmeneni fontu hintu.
> Z helpu jsem vycetl, ze existuje screen.HintFont:=3DTFont,
> ale i kdyz mu zadam promenou typu TFont nic se nedeje.
> M. Jirman
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
Zajimavost pri vytizeni procesoru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 21:09:55
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> zkousel jsem vytizenost CPU:
> a to se chova docela zajimave. Kdyz spustim jen program, vraci
> pouze 100. Pokud k tomu spustim i Sledovani systemu, jiz to vraci
> i jina cislo. Cim to nuze byt? (D4/Prof, Win95 OSR2)
Ahoj,
Jak uz to byva, vec je ponekud slozitejsi. Nejdrive totiz musis sledovani
aktivovat. Kompletni popis najdes na MSDN:
http://support.microsoft.com/support/kb/articles/Q174/6/31.ASP?LNG=ENG&SA=PER
Petr Vones, amatersky programator
Pridelenie Event
[*] Michal Hlav�� - 19.12.1999 21:24:41
Sorry, takto je to spravne
Zdravim,
I've problem. Nadefinoval som si vlastny TXYGrid. V Nom je Procedure
TXGrid.KeyDown(....) override;
Potom vo forme som si vytvoril procedure
TForm1.KeyDown1(Sender:Tobject; .....);
Po vytvoreni TXYGridu v Evente OnCreateForm mam toto Grid.OnKeyDown :=
KeyDown1;
Vsetko prebehne ok az na to ze pri stlaceni klavesy sa neurobi nic s
procedury KeyDown1; Miso
-----P�vodn� zpr�va-----
Michal Hlav�� wrote:
> Zdravim,
> I've problem. Nadefinoval som si vlastny TXYGrid. V Nom je Procedure
> TXGrid.KeyPress(....) override;
>
> Potom vo forme som si vytvoril procedure
> TForm1.MouseDown1(Sender:Tobject; .....);
>
> Po vytvoreni TXYGridu v Evente OnCreateForm mam toto Grid.OnKeyDown :=
> MouseDown1;
>
> Vsetko prebehne ok az na to ze pri stlaceni klavesy sa neurobi nic s
> procedury MouseDown1;
To je s podivem, ze ti to vubec chodi. OnKeyDown a
OnMouseDown jsou uplne jineho typu, maji jine parametry. Ale
muzes si vytvorit KeyDown1 a uvnitr ni teprve volat MouseDown1.
Nesmis vsak zapomenout vyplnit spravne prislusne parametry,
pokud je k necemu pouzivas.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zrychleni aplikace
[*] Infra Red <nezadal(zv)volny(tec)cz> - 19.12.1999 22:06:28
Dekuji vsem za podnetne navrhy,
diky nimz se mi podarilo zrychlit cyklus o cca 400%. Nyni kod vypada takhle
:
begin
j := 0;
repeat
i := 0;
repeat
Application.ProcessMessages;
{Zkousel jsem odstranit, zadne zrychleni se nedostavilo, pokud to bezelo
jako jedina aplikace}
d1 := false; d3 := false;
for j1 := 0 to n-1 do begin
for i1 := 0 to n-1 do begin
if Obr.Canvas.Pixels[i+i1,j+j1]=$00ffffff then d3 := true
else if ((i+i1) <= A.X-1) and ((j+j1) <= A.Y-1) then d1 := true;
{toto zrychlilo o 100%, jsem hlupak, ze jsem si toho drive nevsiml}
If (d3 = true) and (d1 = true) then break
end;
If (d3 = true) and (d1 = true) then break
{preruseni cyklu pomohlo taky asi tak o 100%, ale to dost zavisi, jak je
obrazek moc fraktalni, cim vice, tim rychlejsi}.
end;
if (d1 = true) and (d3 = false)then Inc(Data[poradi,1]);
if (d1 = false)and (d3 = true) then Inc(Data[poradi,3]);
if (d1 = true) and (d3 = true) then Inc(Data[poradi,2]);
Inc(i,n);
until i > A.X-1;
Inc(j,n);
Jeste by to chtelo nacist celou tu bitmapu do pameti, ale v programovani
jsem zacatecnik
a samouk a praci s pameti jsem v zadne knizce, co mam, nenasel.
Mohl by mi nekdo vysvetlit, co to znamena "namapovat do pameti" nebo alespon
doporucit nejaky zdroj ?
Diky
Martin Nezadal
SQL databaze
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 19.12.1999 22:29:02
Hello Zbysek!
Saturday, November 27, 1999 Zbysek Hlinka wrote to Ren� Otisk:
>> Mam takovy lajcky Hurvinkovsky dotaz. Potrebuji asi prejit na nejakou
>> SQL databazi (MSDE, MSSQL ) a chtel bych vedet, zda muzu
> Pokud polezes na data pres BDE komponenty, je treba jeste
> (zpravidla) na kazdou stanici nainstalovat SQL klienty. Dale se
Mam podobny problem. Mam chodivu aplikaciu v D3 standard s tabulkami
.DB v sieti peer-to-peer. Zakaznik si zmyslel, ze sa tabulky maju
prestahovat
na servera s MS SQL 6.5. Mal som za to, ze staci predefinovat alias
a aplikacia bude nadalej fungovat bez rekompilacie.
Objavuju sa tu vselijake mudre reci o suborovych a serverovych databazach,
ale este nikto nepopisal prakticke problemy a hlavne ich riesenie. Pritom
podobny dotaz tu je najmenej raz mesacne.
Najprv som skusil nainstalovat klienta MS SQL z instalaciek servera.
Skoncilo to nejakou chybou, uz si nepamatam akou. Nejde to ani odinstalovat,
tiez to zhasne na nejakej chybe. Pocitac je v ostrej prevadzke 24h a kazdy
restart vyzaduje odstavit vyrobu, o reinstalacii windows ani nehovorim.
Tak som chcel nastavit ODBC alias, ale hopla! Na tom stroji v Ovladacich
paneloch ziadne 'zdroje dat ODBC' nie su! Ako to tam dostanem?
Doteraz som hovoril o pocitaci zakaznika. U mna 'ODBC' v ovladacich paneloch
su. Nainstaloval som si MS SQL 7.0 z MSDN, (Mam W95 tu samu prvu verziu).
Ktovie preco to pri instalacii chcelo, aby som mal novsiu verziu MSIE (!),
doteraz som k plnej spokojnosti pouzival 3.0, tak som to preplacol ver. 5 (s
naslednym pol dnom rekonfigurovania, lebo v 5-ke uz funguju skripty a to je
velice nebezpecne nechavat zapnute. Este stale neviem, ako pri preview
spam-mailu zabranit, aby sa mi otvaralo okno s explorerom, ale o to tu teraz
nejde, aspon ze tie skripty som povypinal). Server sa mi rozbehol
(pochopitelne v desktop edition, ale na jeden stroj v sieti som si hodil aj
NT 4.0 server SP5 a MS SQL vidim aj tam), da sa mi definovat ODBC alias,
dokonca Delphi vidi aj tabulky, ale na prvom 'locate' mi program zmrzne a
pomoze jedine restart windows. Jo, a tabulky musim definovat rucne, lebo pri
pokuse kopirovat ich z .DB pomocou 'Enterprise manageru' to v poslednej faze
zatuhne.
> Pokud si chces tyto starosti usetrit, jdi na databazi pres ADO nebo
> OLE DB. Na stare W95 je vsak jeste treba doinstalovat minimalne
> DCOM95. U NT 4 musi byt nejaky cerstvy servis pack.
Co konkretne obnasa 'pres ADO' (OLE DB) ? Ze namiesto TQuery pouzijem
nejaku inu komponentu, co nie je standardne v Delphi?
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Nalezeni MDIChild okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:39:53
From: Ren� Otisk <otisk(zv)misel(tec)cz>
> Nevite, jestli existuje nejaka API fce, ktera by mi vratila pozadovane MDI Child window
> (Handle). EnumWindow a FindWindow neumeji hledat MDI Child window. Uff to je nejak moc
> Window najednou.
Ahoj,
Pouzij EnumChildWindows, jako hWndParent dej handle "neviditelneho" MDI klient
okna, ve VCL je to TForm.ClientHandle
Petr Vones, amatersky programator
Zajimavost pri vytizeni procesoru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:40:20
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> zkousel jsem vytizenost CPU:
Ahoj,
Tady pak najdes i priklad (Examples\PerfMon95Example.dpr)
http://www.volweb(tec)cz/pvones/download/PvComponents.zip
Petr Vones, amatersky programator
Indexy v RichEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:40:15
From: Martin Ve�e�a <tramp(zv)volny(tec)cz>
> Nevi nekdo jak RichEditu v D5 vnutit horni a dolni index uprostred
> normalniho textu? Vim ze kdyz nacitam data z rtf souboru tak se dolni a
> horni indexy zobrazi a jdou editovat, ale nevim jak je zapnout a zase
> vypnout.
Ahoj,
horni/dolni index umi RichEdit 2.0 a vyssi(riched20.dll). Stahni si z DSP
komponentu RichEdit98 (riched98.zip), tam uz mas tyto nove vlastnosti pridane.
Petr Vones, amatersky programator
Hledani souboru na siti...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:40:33
From: <katerina.zankova(zv)post(tec)cz>
> mela bych velkou prosbu. U nas v podniku nastal
> problem. Potrebujeme vytvorit program, ktery
> projede celou lokalni sit (Microsoft) a nalezne
> pozadovane soubory. S timto problemem jsem
> Jde o to, ze se musi zadat napriklad
> pepa.doc a program musi projit pocitac po pocitaci
> a zkontrolovat jestli tam ten soubor neni
> (pripadne se snazit ignorovat zaheslovane
> slozky - bud je nabourat ( ;-) ) nebo ignorovat-
> hlavne nesmi dojit k dotazu na heslo (mame tu
> skoro 490 pocitacu).
Ahoj,
To je pekna uloha ;-) Pri tom mnozstvi pocitacu to nebude zrovna nejrychlejsi.
Tady najdes priklad jak prochazet stromem sitovych slozek (neni ale bohuzel z
tech nejprehlednejsich). Dole klikni na "Download now", ta stranka bude patrne
jinak prazdna, trochu jim to zlobi.
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=13346
Petr Vones, amatersky programator
Pristup k datum, Delphree a vubec was: D5 - ano ci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:40:52
From: Erik Salaj <winsoft(zv)napri.sk>
> Delphi cosi take ale nepodporuje a preto musim bud pouzit Variant
> ci smernik (a pretypovat ho) alebo naprogramovat triedenie (to iste)
> dva krat, raz pre typ Integer a raz pre typ Double. Zbytocne to musim
> napisat dvakrat, hoci obidva procedury vyzeraju uplne rovnako (obsahuju
> uplne rovnake prikazy).
>
> procedure TriedInteger(Pole: array of Integer);
> begin
> // tu je kod, napr.
> if Pole[i] > Pole[j] then
> Vymen(Pole[i], Pole[j]);
> end;
>
> procedure TriedDouble(Pole: array of Double);
> begin
> // tu je kod, napr.
> if Pole[i] > Pole[j] then
> Vymen(Pole[i], Pole[j]);
> end;
Ahoj,
V tomto pripade je asi vyhodnejsi pouzit pretezovani, takze deklarace by pak
vypadala takhle:
procedure Tried(Pole: array of Integer); overload;
procedure Tried(Pole: array of Double); overload;
Samozrejme implementaci jednotlivych procedur budes muset napsat zvlast, ale
to snad neni tak vycerpavajici. V nouzi si muzes napsat rozsireni IDE, ktere
by ti na zaklade nejake sablony generovalo zdrojovy kod pro podobne pripady.
Tezko lze totiz udelat "univerzalni" funkci. I kdyby se zavedlo nejake dalsi
rozsireni ObjectPascalu o obecne porovnavani, ktere by pak kompilator podle
danych typu prelozil, jsou situace ktere nejsou uplne jednoznacne. Treba pri
trideni retezcu lze porovnavat jen jako ASCII, bez rozliseni malych a velkych
pismen, trideni podle narodnich abeced atd.
Petr Vones, amatersky programator
property TTable.Datasource
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:40:09
From: Petr Ma��k <rtepema(zv)mbox.vol(tec)cz>
> mam jeden zdanlive trivialni problem (D3). V aplikaci potrebuji z objektu
> TTable zjistit objekt Datasource. Existuje property TTable.Datasource, ktera
Ahoj,
A k cemu to potrebujes ? Na TTable muze byt napojeno vice datasourcu, takze lze
tezko zjistit jeden. TDataSet obsahuje metody AddDataSource a RemoveDataSource,
ktere udrzuji aktualni seznam datasourcu pripojenych na dataset. Jak uz to ve
VCL byva, tento seznam neni dostupny, je v sekci private.
Petr Vones, amatersky programator
Acces Violation
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:41:07
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> potreboval bych trochu poradit, kde mam zacit hledat. Mam napsanou aplikaci
> v D2 a ta mi nepravidelne (obvykle po kompilaci, na opakovene spusteni jiz
> zridka kdy) vykazuje Acces Violation po pruchodu OnDestroy hlavniho
> formulare (tj. az za END). Program se normalne ukonci bez jakychkoliv
> problemu a teprve pak se hlaska objevi (a stahne s sebou nekdy cele IDE).
Ahoj,
Prvni mozna pricina je pouzivani nejakych dalsich komponent (napriklad Rx atd).
Patrne se nekde odkazujes na neplatny objekt. Pak jeste uvadis, ze pouzivas D2.
Jedna se o prvni verzi 2.00 nebo o update 2.01 ? V te prvni bylo totiz nekolik
problemu, ktere se vyresili prave tim updatem.
Petr Vones, amatersky programator
zmeneni fontu u hintu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:41:01
From: p. Jirman <jim.design(zv)iol(tec)cz>
> chtel bych se zeptat, jak docilim zmeneni fontu hintu.
> Z helpu jsem vycetl, ze existuje screen.HintFont:=TFont,
> ale i kdyz mu zadam promenou typu TFont nic se nedeje.
Ahoj,
Ve VCL maji chybu. Nez ji opravi, lze to prozatim obejit takhle:
procedure TForm1.ChangeHintFont1Execute(Sender: TObject);
begin
with FontDialog1 do
begin
Font := Screen.HintFont;
if Execute then
begin
Application.ShowHint := False;
Screen.HintFont := Font;
Application.ShowHint := True;
end;
end;
end;
Petr Vones, amatersky programator
generatory tiskovych sestav
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.12.1999 23:45:26
From: p. Jirman <jim.design(zv)iol(tec)cz>
> Po problemech s ulozenim jpegu do databaze (bmp slo, ale jpeg ani pres Blob)
> sem ulozil do baze pouze cestu, takze je mam zatim externe.
Ahoj,
Ukladat JPEGy do databaze by nemel byt problem. Musis je akorat vzdy komprimovat
a dekomprimovat, jinak je ulozis jako obecny BLOB. Nelze pouzit "vestavenou"
podporu pro graficka pole z VCL. Priklad najdes tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/database/Xbase/FishFactJpeg%20example.zip
Petr Vones, amatersky programator
Zrychleni aplikace
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 20.12.1999 07:18:27
From: Infra Red <nezadal(zv)volny(tec)cz>> Dekuji vsem za podnetne navrhy,
> diky nimz se mi podarilo zrychlit cyklus o cca 400%.
>
Ja jsem predpokl�dal zrychleni podstatne vetsi,
nejmene jeste o cely jeden rad.
>
> Jeste by to chtelo nacist celou tu bitmapu do pameti, ale v programovani
> jsem zacatecnik
> a samouk a praci s pameti jsem v zadne knizce, co mam, nenasel.
> Mohl by mi nekdo vysvetlit, co to znamena "namapovat do pameti" nebo
alespon
> doporucit nejaky zdroj ?
Mel jsem takovouto predstavu:
Rozhodne nenacitat obrazek do nejake bitmapy. Z puvodniho objemu dat
8.5 MB se to takto mnohon�sobn� nafoukne.
Jedno z moznych reseni je vytvorit TMemoryStream a obrazovy
soubor nacist do tohoto Streamu. K datum je potom mozne
pristupovat pres ukazatel Memory.
Konkretni realizace je zavisla na zodpovezeni nekterych otazek
- je obrazek vzdy jenom cernobily ?
- v jakych rozmezich se pohybuje velikost obrazku, nebo je stala ?
- jakych hodnot nabyva n ? Pro nektere hodnoty n lze vytvorit
velmi efektivni algoritmy s pouzitim bitovych operaci, pak by se dalo
predpokladat dalsi radove zrychleni.
Vaclav Krmela
Acces Violation
[*] Ren� Otisk - 20.12.1999 08:25:04
Hi,
Co volas v OnDestroy? Neuvolnujes treba objekt, ktery uz uvolneny je?
Sroub
> potreboval bych trochu poradit, kde mam zacit hledat. Mam napsanou
aplikaci
> v D2 a ta mi nepravidelne (obvykle po kompilaci, na opakovene spusteni jiz
> zridka kdy) vykazuje Acces Violation po pruchodu OnDestroy hlavniho
> formulare (tj. az za END). Program se normalne ukonci bez jakychkoliv
> problemu a teprve pak se hlaska objevi (a stahne s sebou nekdy cele IDE).
> Kde bych mel hledat pricinu problemu?
Registry
[*] Tibor Galik <tgalik(zv)vsz.sk> - 20.12.1999 09:04:12
Diky,
v archive som hladal, ale ani jeded prispevok neriesil moj problem. Boli tam prevody na textovy subor *.reg.
Ja potrebujem pracovat so suborom, ktory vytvara SaveKey (cize zalohovanie registrov, nastavenie registrov pre moju aplikaciu, po ukonceni aplikacie vratenie povodnych registrov).
Ak som vsak nieco prehliadal, nasmeruj ma prosim. Nasiel som prispevky z 10-teho mesiaca, ale neriesi to moj problem. Prispevky zo 6-teho mesiaca sa tocia okolo LoadKey (toto hladam alebo RestoreKey) ale nenasiel som tam odpoved.
S pozdravom/Regards
Tibor Galik
tgalik(zv)vsz.sk
>>> Miroslav (A�ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> 12/17 3:35 odp. >>>
>prohledni si archiv konference, uz se to tu resilo
>M.
----- Original Message -----
>From: Tibor Galik <tgalik(zv)vsz.sk>
>To: <delphi-l(zv)fwd(tec)cz>
>Sent: Friday, December 17, 1999 11:10 AM
>Subject: Registry
Jakou databazi doporucite?
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 20.12.1999 09:10:47
>>>Pokud je mi znamo, tak Winbase nedokaze vygenerovat databazi
>>>z SQL skriptu. Musi se to delat pres IDE.
>>>Coz je podle me dost podstatna nevyhoda.
>>
>>
>>To ale nie je pravda, WinBase obsahuje funkcie na import a export dat , casti
>>aplikacie
>>alebo celej aplikacie. Je mozne vytvorit txt subor ktory bude obsahovat SQL
>>skript (definicie
>>tabuliek, procedur,...) a tento pouzit napr. na vytvorenie DB. Tiez je mozne
>>tabulky exportovat a importovat do formatov (TXT,DBF). Tieto funkcie su
>>zabudovane aj v komponentach WDE
>
>
>A je mozne vytvorit databazove schema se skriptu generovaneho
>nejakym CASE ?
To zavisi od toho ktoreho case nastroja, ak bol programovany inteligentne tak
by to malo ist. Napriklad ak chcete pouzit PowerDesigner staci si vytvorit
definicny subor (obyc. txt. subor) a tento potom pouzit. PowerDesigner potom
dokaze vytvorit
skript ktory sa da spustit do WinBase.
Ivan Turcan
Viacjazycna aplikacia.
[*] Cmorejova(zv)rms.sk - 20.12.1999 09:40:29
Dobry den !
Potrebovala by som urobit aplikaciu v D4, ktora by fungovala vo
viacerych jazykoch. Nemam s tym nejake skusennosti,
budem teda vdacna za kazdu radu.
Dakujem
Cmorejova Registrace Type Library
[*] Pavel �im��ek - 20.12.1999 09:48:53
Ahoj vsem!
Vytvoril jsem ActiveX Type Library,
nadefinoval jsem rozhrani objektu, tridu a metody,
zkompiloval jsem to vsechno a pokusil se zaregistrovat.
Registraci jsem zkousel jak z Delphi tak pres regsvr32.exe
a oba zpusoby byly uspesne ale bohuzel kdyz jsem zavolal
vytvoreni objektu v programu tak to skoncilo s hlaskou trida neni
zaregistrovana. Nevite nekdo kde delam chybu.
Jeste pokud dam Import Type Library tak se sice naimportuje
ale jakmile onen dialog zavru a znova otevru tak tam v seznamu
naimportovanych knihoven neni.
Dily za kazdou radu
Pavel
Seriove cislo
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.12.1999 10:11:54
Ahoj,
mas vice moznosti:
1a. Na Chip CD (3 i 4/1999) je na to komponenta RegLock
(nevim presne kolik stoji, ale neni to zase takova castka
Jsou to dve komponenty z nich jedna generuje licencni kody
a druha oberuje registrovanost programu (nevim presne, kam
se zapisuji)
1b. Podivas se na DSP, Torry, ... po nejake jine, podobne
2. Napises si nejake vlastni know-how
3. Na toto tema prave ted pripravuji vlastni komponentu,
ktera na zaklade jmena programu, jmena uzivatele a cisla
licence vygeneruje licencni kod. Tyto udaje muze zapisovat
bud do registru, do nejakeho ini souboru nebo do binarniho
souboru (udaje se ukladaji zasifrovane). Tato komponenta
Ti umozni jak program zaregistrovat nebo zjisit zda je jiz
registrovany tak generovat licencni kody.
Pote, co zjists, ze je program registrovan povolis nejaka
tlacitka a polozky menu.
Dobra.
> ----- Original Message -----
> > Ad 1 - Nejsem si jist, zda spravne chapu dotaz.
> > Ten "hotovy progam" je Tvuj a Ty jej chces sirit
> > jako shareware s tim, ze az jej nekdo bude chtit
> > zakoupit, posles mu jen nejake cislo, ktere
> > on vyplni do nejakeho okna a tim se program
> > stane registrovanym ? Treba neco jako WinZ-i-p ?
> >
>
> Ano, mas pravdu nieco ako WinZip.
> Ak mi vies poradit tak Ti vopred dakujem. Ak treba pre tento ucel prerobit
> celu aplikaciu, tak to "nie je problem" :-O.
> Pomoc s v�po�tem nadmo�sk� v�ky
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 20.12.1999 10:13:03
Viz matematicko-fyzikalni tabulky. Je tam vzorec i tabulky. Viktor
----- Original Message -----
From: <kchodl(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 17, 1999 9:32 AM
Subject: Off: Pomoc s v�po�tem nadmo�sk� v�ky
Ahoj,
chte�l bych udelat jednoduchou aplikaci, ktera vypocte z teploty a tlaku
okolni atmosfery nadmorskou vysku, ALE potrebuju ten vzorec na vypocet nebo
alespon nejaky link ap. Neni tady nejaky matematik ci fyzik?
Predem dik
Progr-Amather -Kchodl-� 1989-1999
ICQ:31825631
Pristup k datum, Delphree a vubec was: D5 - ano ci
[*] Robert Kindl <rob(zv)exec(tec)cz> - 20.12.1999 10:29:32
> > > Ale vtedy triedis typ ovocie a nie hrusky s jablkami.
> > Stejne jako chces tridit obecny datovy typ, ne?
> > A obecny datovy typ znamena, ze chces prijimat cokoliv, neohanej
> > se tedy neexistenci typove kontroly, kdyz ji nechces.
> Ja som chcel triedenie, ktore specifikujem iba raz pre rozlicne typy s
tym,
> ze pouzijem parameter ako typ (tzv. parametricky alebo genericky typ).
> Tu je este raz presne to, co som uviedol v povodnom maile:
> "ze nie je mozne napisat genericke triedenie (t.j. pracujuce s obecnym
> typom)"
> Myslim, ze som jasne uviedol "GENERICKE TRIEDENIE". Ak tento pojem
> pocujes prvy krat, resp. nebolo Ti zrejme co tym myslim, mohol si sa ma na
> to
> najprv opytat a az potom sa zapojit do diskusie, pretoze inak nema vyznam
> sa bavit "ja o voze a ty o koze". Genericke triedenie by mohlo vyzerat
napr.
> takto:
>
> procedure Tried<Typ>(Pole: array of <Typ>)
> begin
> // tu je kod, napr.
> if Pole[i] > Pole[j] then
> Vymen(Pole[i], Pole[j]);
> end;
>
> pricom <Typ> je parameter, ktory sa dosadi az tesne pred pouzitim.
> Lisia sa len typom, ktory je preto vyhodne abstrahovat (parametrizovat)
> a usetrit spustu zbytocneho pisania (ale ma to aj cely rad dalsich vyhod).
Je naprosto jasne po cem volas. Po jazyku vyssi urovne nez je pascal.
Ale mohl by jsi mne naznacit jak pomoci tveho slavneho generickeho
trideni setridis napr. podle dvou udaju (slavne hrusky podle velikosti
pred slavnymi jablky podle velikosti).
Napr.
type
HruskaJabko = record
Typ: (hruska,jablko);
Velikost: integer;
end;
var
MojeHruskyAJablka: array [...] of HruskaJablko
begin
TriedHruskaJablko(MojeHruskyAJablka);
end.
Prece mi nerikej, ze ocekavas, ze po tak zapsanem programu
bude nejaky prekladac nebo interpretr vedet co ma delat.
Nebo to budes tridit na dvakrat? Neni to neefektivni!
Vzdyt nemuze vedet JAK MA TRIDIT!
Nevi jak je definovano poradi!!!
Ty jsi totiz ve svem prikladu s integer a double
predpokladal, ze kompilator jaksi implicitne zna porovnavaci
operaci pro integer a double.
Ale jiz pro retezce, jak psal Petr Vones,
to nestaci. (resp. je zde dalsi parametr trideni).
Asi reknes, ze pro retezce bude volani vypadat
TriedString(MojeRetezce,AnsiCompareText) nebo
TriedString(MojeRetezce,CompareString) atd.
Ale to je presne implementace kde je parametrem
porovnavaci funkce!
Pokud trideni doplnis jeste parametricke prohozeni
dvou zaznamu tak je presne to co v Delphi naprogramovat
lze bez problemu (vim az na tu typovou kontrolu).
Ale podle mne je mnohem uzitecnejsi mit moznost
ULOZIT DATA JINAK nez jen do array [..] of
nez mit typovou kontrolou, ale napred
naplnit nejake pole a pak to z nej zase vybirat.
Navic jestli si vzpominas kdyz jsem ti psal,
ze neni trideni jako trideni, ze existuji
SPECIALNI algoritmy napr. pro trideni
dat ve streamu (MergeSort).
Ja vim ty reknes, ze by to melo by tak, ze
se mergesort pouzije tehdy kdyz je to potreba napr.
TriedFileOfByte(FileOfByte1,FileOfByte2,CompareByte) ho automaticky pouzije,
ale zapomelo se predepsat kam se ma dat vysledek,
kdyz nemuze byt v jednom ze souboru.
A navic jak jsi si jiste vsiml tady se o zadny array [1..2] of FileOfByte
nejedna nebot ja nechci porovnat soubory, ale jejich obsahy!
Taktez jsem psal, ze QuickSort neni stabilni v pripade
stejnych zaznamu. Pokud to budu vyzadova tak musim
to genericke trideni jeste dale parametrizovat.
Nebo existuje alogritmus RadixSort
se slozitosti n*myslim delka slova.
Pokud se mi bude hodit tak ho urcite pouziji radeji
nez n*log n, nebo nedej boze n^2!
Podle mne ale program nemuze nikdy automaticky
dopredu rozhodnout jaky algoritmus je vyhodnejsi,
pritom programator to muze vedet.
Takze dalsi parametr "Pouzij specificky algoritmus".
Vim, ze reknes, ze to je vec optimalizace, ale
parametr tam byt musi abych mohl optimalizovat!
Genericke trideni tak jak jsi ho tady nadefinoval
je blbost. Mozna v nejake chytre knize neco
takoveho najdes. Ale to je cira teorie! V praxi
to nikde neexistuje a neni to pouzitelne, nebot
problem neni tak jednoduchy, aby se dal
naskatulkovat jedinym volanim
TriedCokolivAAbyToByloOptimalneRychleAPresneTakJakSiObsluhaMysliAnebCteniMys
lenekVPraxi.
Proste jak jsem take jiz napsal:
Chces neco co nemuzes dostat, spatne pritom
argumentujes a jeste cely problem hazis na Delphi :-)
Rob
PS. Myslim, ze bychom se meli soustredit na reseni
problemu, ktere nas programatory opravdu trapi a ne
tady teoretizovat nad nerealnymi nesmysly
(ja vim, ze v tom je muze byt pokrok,
ale nic se nema prehanet).
Registry
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 20.12.1999 10:30:28
u� si to moc nepamatuju ale problem pri LoadKey byl v tom ze to funguje jen
pro klice HKEY_LOCAL_MACHINE a HKEY_USERS (viz. Win32.hlp)
M.
Zrychleni aplikace
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 20.12.1999 10:36:17
jen tak na okraj:
> If (d3 = true) and (d1 = true) then break
neni to takhle prehlednejsi?
If d3 and d1 then break
if d1 and not d3 then Inc(Data[poradi,1]);
if not d1 and d3 then Inc(Data[poradi,3]);
if d1 and d3 then Inc(Data[poradi,2]);
a takhle je to zase o neco rychlejsi
if d1 and not d3 then Inc(Data[poradi,1])
else
if not d1 and d3 then Inc(Data[poradi,3])
else
if d1 and d3 then Inc(Data[poradi,2]);
-- Jan Tomsa (Tomy) tomsa(zv)notia(tec)cz
-- Notia Informacni Systemy s.r.o., V Olsinach 709/45, 100 00 Praha
-- TEL +42-02-67313764 FAX +42-02-67313752 http://www.notia(tec)cz
TPaintBox - TCanvas
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 20.12.1999 10:39:05
>Ahoj,
>na formu mam komponentu TPaintBox a tlacitko. Kdyz zmacknu tlacitko
provedu:
>PaintBox.Canvas.Color:=clBlack;
>JENZE se vubec nic nestane? :(
TCanvas nema vlastnost Color (alespon ne v D3),
co treba udelat toto :
PaintBox.Canvas.Brush.Color:=clBlack;
PaintBox.Canvas.FillRect(PaintBox.ClientRect);
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.