Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Delphi 7 versus Delphi .NET
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2002 13:56:28
Preji vsem pekneho dne,
podle zprav velkeho a mocneho Borlandu to vypada, ze v Delphi 7
nepujde delat .NET aplikace a v Delphi .NET nenapisu Win32 aplikaci
(coz nehodlam dale komentovat). Spise se chci optat, budou tyto verze
moci koexistovat na jednom pocitaci? Bude Delphi .NET jenom ubohy
prekladac jako je nyni D6 a nize (prosim, zadne falme war), nebo z
toho bude seriozni vyvojove prostredi jako je Visual Studio .NET?
Tedy budu moci plne editovat HTML, XML, ASPX, ... nejen se
zvyraznenou syntaxi, ale i s tim, ze mi na zakalde DTD, XSLT apod.
povoli urcite tagy, bude tam neco na zpusob server exploreru z
VS.NET, bude mozne navrhovat alespon zakladni databazove diagramy,
generovat dokumentace a dalsi?
Diky za odpovedi a pripadne linky, kde se dozvedet seriozni
informace.
Slavek--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Rychlost dotazu na FB
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.5.2002 13:59:22
> select * from T_vyrobky V
> left join T_VYRKAT k on V.pk=k.fk and K.idkat=0
> where K.fk is NULL
>
Neni to rychlejsi. Otevreni trva v IBExpertu 2 minuty. Plan je pritom V
natural, ostatni podle indexu. Na to, ze ve V je jen 20 000 zaznamu docela
hruza (mimochodem vysledek obsahuje 17 vet).
Dale jsem zjistil, ze kdyz v podmince joinu odstranim podminku K.IDKat=0,
vrati dotaz sice spatny vysledek, ale jiz za 4 sekundy.
> predpokladam, ze v T_VyKat je FK na T_Vyrobky a v obou techto
> tabulakch jsou definovany PK.
T_Vyrobky i T_VyrKat ma PK na poli ID.
FK tam nejsou, nejdou pouzit z jinych duvodu, ktere v tomto
zjednodusenem modelu nejsou videt, ale misto toho na T_VYRKAT je
definovany normalni ascending neunikatni index na idkat i idvyr (kazdy z
tech sloupcu ma samostatny index).
Order
> by ne tento select by nemel trvat dlouho, zde ovsem spise nez na
> indexech zalezi na poctu poli v order by, cim vice poli, tim
> pomalejsi. Pokud ovsem pouzijes order by na tabulky vyrobku (jeji
> indexove pole), pak se index nejspise pouzije.
Pavel Cisar tu nedavno vysvetloval, ze az na vyjimky se pro order by
pouziva sort a nikoli index. Ja ovsem nemluvim o order by tohoto dotazu,
ale treba o tomto:
select v.id from T_Vyrobky V
left join T_CenikPol k on V.id = k.idmat
...otevreno prakticky ihned
select v.id from T_Sklkarty V
left join T_CenikPol k on V.id = k.idmat
order by v.nazev
trva 10 sekund, a to mam na pocitaci ramdisk. Bez nej by bylo daleko hur.
Pocet zaznamu v joinu: 64 000. Na poli nazev index nebyl i byl, v obou
pripadech zadny rozdil.
Uzivatel ale nemuze pri kazdem otevreni datasetu cekat 10 sekund
se zatuhnut�m programem.
David Lebeda
> > jsem celkem neprijemne prekvapen malym vykonem Firebirdu pri dvou
> > druzich cinnosti - pouzivani joinu a pouzivani order by. Nejak
> > nerozumim tomu, proc se dotaz s tremi joiny na tabulkach s 20000
> > radky musi otevirat nekolik desitek sekund (i bez order by), ackoli
> > na vsech spojovanych polozkach je index. Ale budiz - zalozi se
> > ulozena procedura, kde joinovane tabulky dohledam rucne, to umim
> > vyresit.
> >
> > Jak ale na takovouhle situaci? Mam tabulku T_VYROBKY majici sloupec
> > ID a dalsich 40 sloupcu. Dale existuje tabulka T_KATEGORIE majici
> > sloupec ID. Jelikoz vyrobek muze byt v nekolika kategoriich nebo
> > nemusi byt v zadne, existuje i vazebni tabulka T_VYRKAT s dvema
> > sloupci: IDVYR, IDKAT. No a ted bych chtel seznam vyrobku, ktere
> > nejsou v kategorii 0.
> >
Re[2]: neco jako ShowModal pro MDI aplikaci
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.5.2002 14:00:32
Ja to riesim nasledovne:
Okno je vytvorene takto:
BorderIcons = [biSystemMenu]
FormStyle=fsNormal
-----------------------------------
Ked ho chcem modalne tak ho takto zobrazim:
Application.createform(TfrmCStaty,frmCStaty);
with frmCStaty do
begin
btnRefresh.OnClick(self);
if ShowModal=mrOK then
begin
//Nieco urob
end;
FreeAndNil(frmCStaty);
end;
-----------------------------------
Ak ho otvaram ako MDI Child:
Application.CreateForm(tfrmCStaty,frmCStaty);
with frmCStaty do
begin
BorderIcons:=[biSystemMenu,biMinimize];
windowstate:=wsMinimized;
formstyle:=fsMDIChild;
windowstate:=wsNormal;
end;
--
Best regards, TRoland
Zistenie ci je pripojenie k internetu aktivne
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.5.2002 14:03:48
Hello Delphi CZ konferencia!
Chcem dorobit:
1.Zistovanie ci je internet aktivny
2.Dostat spravu o tom, ze sa vytvorilo spojenie
Ale aby to fungovalo na Win9x aj bez potreby instalacie siete,... Aby
to fungovalo na pocitaci kde ani nesnivaju o sietach a internete.
PS: "Fungovat" myslim tym aby moja applikacia sa neodkazovala na veci
ktore tam nie su ani nebudu a fungovala ako by nic.
--
Best regards, TRoland
Zistenie ci je pripojenie k internetu aktivne
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 14:07:28
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Chcem dorobit:
>
> 1.Zistovanie ci je internet aktivny
> 2.Dostat spravu o tom, ze sa vytvorilo spojenie
>
> Ale aby to fungovalo na Win9x aj bez potreby instalacie siete,... Aby
> to fungovalo na pocitaci kde ani nesnivaju o sietach a internete.
Jak se muzes pripojit k Internetu z pocitace bez instalovaneho sitoveho
protokolu ?
Petr Vones
GDI+
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 14:11:48
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>
> nemate nekdo skusenozti s GDI+ (rychlost, pouzitelnost, moznosti sireni
> (autorska prava), ktere systemy jsou podporovany, atd...)
Co se treba podivat do dokumentace k GDI+ ? Podporovany jsou: Windows NT 4.0
SP6, Windows 2000, Windows 98 a Windows Me. Co se tyce rychlosti tak to neni
jeste uplne idealni, ale MS s tim bude muset neco udelat, protoze se GDI+
pouziva zaroven v .NETu
Petr Vones
Generovanie cisel cez SQL
[*] Martin Cajbik <cajbik(zv)sct.sk> - 22.5.2002 14:20:12
Je mozne nejako vygenerovat cez SQL (konketne MS SQL) zoznam cisel to
znamena SELECT prikaz ktory by vygeneroval postupnost
Cislo
-----
0
1
2
3
4
...
bez akejkolvek navaznosti na niektoru z tabuliek v databaze
Nieco ako
SELECT Cislo
FROM ????
WHERE Cislo >= 0
AND Cislo <= 50
Zatial to riesim cez tabulku obsahujucu zoznam cisel od 0 do 50, co je sice
funkcne ale trochu divne.
Takze ak by niekto vedel ako na to, bol by som velmi vdacny.
MarCaNT (marcant(zv)sct.sk)
Generovanie cisel cez SQL
[*] KALUS Jozef <Jozef.Kalus(zv)spordat.sk> - 22.5.2002 14:30:44
v ORACLE to ide cez LOOP v ktorom je SELECT hodnota from dual a hodnota sa
napocitava klasicky v loope, ale ci to funguje v MS SQL to vobec netusim
:o), vlastne aj toto riesenie je uz cyklus a nie samotny select :o(
joka
-----Original Message-----
From: Martin Cajbik [mailto:cajbik(zv)sct.sk]
Sent: Wednesday, May 22, 2002 2:20 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Generovanie cisel cez SQL
Je mozne nejako vygenerovat cez SQL (konketne MS SQL) zoznam cisel to
znamena SELECT prikaz ktory by vygeneroval postupnost
Cislo
-----
0
1
2
3
4
...
bez akejkolvek navaznosti na niektoru z tabuliek v databaze
Nieco ako
SELECT Cislo
FROM ????
WHERE Cislo >= 0
AND Cislo <= 50
Zatial to riesim cez tabulku obsahujucu zoznam cisel od 0 do 50, co je sice
funkcne ale trochu divne.
Takze ak by niekto vedel ako na to, bol by som velmi vdacny.
MarCaNT (marcant(zv)sct.sk)
Rychlost dotazu na FB
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 22.5.2002 14:33:14
Lebeda David dne 22 May 2002 v 13:59:
> > select * from T_vyrobky V
> > left join T_VYRKAT k on V.pk=k.fk and K.idkat=0
> > where K.fk is NULL
> >
>
> Neni to rychlejsi. Otevreni trva v IBExpertu 2 minuty. Plan je pritom
> V natural, ostatni podle indexu. Na to, ze ve V je jen 20 000 zaznamu
> docela hruza (mimochodem vysledek obsahuje 17 vet).
Ahoj,
nesledoval jsem to uplne od zacatku, tak mozna budu radit zcestne :-)
Nebylo by lepsi v tom dotazu psat where V.pk is null? Takhle ho celkem zbytecne nutis nejprve to
dohledat... Zvlaste v pripade, ze to ma vratit jen 17 vet, me ta doba zarazi...
Dale bych zkusil napsat left OUTER join... Kdysi jsem take laboroval s rychlosti a mam pocit
(nejisty...), ze to na rychlost v nekterych pripadech vliv melo, a to velky...
Karel Rys
Delphi 7 versus Delphi .NET
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 14:37:57
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> podle zprav velkeho a mocneho Borlandu to vypada, ze v Delphi 7
> nepujde delat .NET aplikace a v Delphi .NET nenapisu Win32 aplikaci
Zatim to vypada tak, ze to budou asi dva samostatne produkty - pro Win32 a
.NET
> (coz nehodlam dale komentovat). Spise se chci optat, budou tyto verze
> moci koexistovat na jednom pocitaci? Bude Delphi .NET jenom ubohy
To zatim asi nikdo nevi, protoze podle toho co se objevilo ve zprave z BorConu
bude Delphi for .NET az v Q1 2003, viz odkaz co jsem posilal uz vcera:
http://www.drbob42.com/borcon.htm
> Diky za odpovedi a pripadne linky, kde se dozvedet seriozni informace.
Obavam se, ze seriozni informace se v teto dobe nedozvis, spise jen dohady.
Petr Vones
Dlzka String a zavislost na RAM
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2002 14:47:23
Ahoj,
> Ma zmysel pouzivat takyto zapis:
> var
> s: String[10];
****V nekterych opravnenych pripadech ma, ale tech pripadu stale
ubyva.
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Zobrazovani v threadove aplikace
[*] EFG developer <developer(zv)efg(tec)cz> - 22.5.2002 15:01:56
Zdravim, v multi threadove aplikaci pouzivam urcite pametove struktury,
obsah techto struktur bych
chtel zobrazovat na formular aplikace (predevsim do treeview).
napada me:
1) udelat specialni thread, krery pouze aktualizuje data na formu
2) na form dat timer a v ontimer to aktualizovat.
co je lepsi, vhodnejsi a cistejsi? lze toto udelat jeste nejak lepe ?
S pozdravem Petr Sikola
Generovanie cisel cez SQL
[*] Jarda Jirava <listuj(zv)centrum(tec)cz> - 22.5.2002 15:08:51
Zdravim,
tohle urcite pujde treba takhle v ulozene procedure
CREATE PROCEDURE spGenCislo (
(zv)ifromNumber int,
(zv)itoNumber int,
(zv)iIncrement int = 1
)
AS
set nocount on
CREATE TABLE #TNumber (cislo int)
WHILE ((zv)ifromNumber <= (zv)itoNumber) BEGIN
INSERT INTO #TNumber (cislo) values ((zv)ifromNumber)
set (zv)ifromNumber = (zv)ifromNumber + (zv)iIncrement
END
set nocount off
select cislo from #TNumber
IF OBJECT_ID('TEMPDB..#TNumber') IS NOT NULL DROP TABLE #TNumber
GO
Pekny den
Jarda
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
--------------------
Bonus 1000 K� k �roku 3,5 % m� pro V�s Oran�ov� konto od ING. Zalo�te si Oran�ov� konto na 0800 159 159 nebo na http://user.centrum(tec)cz/redir.php?url=http://www.ing(tec)cz
Synapse TFTPSend & WinRoute 4
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 22.5.2002 15:21:14
Mam trosku problem se zprovoznenim TFTPSend ze Synapse pres proxy WinRoute
4. Jestli jsem vse dobre pochopil, je u TFTPSend nutno nastavit FWPort,
FWHost & FWMode. Zkousel jsem vsemozne kombinace, bez vysledku. Mate nekdo
pozitivnejsi zkusenosti ???
Onrej
Rychlost dotazu na FB
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.5.2002 15:21:18
> > > select * from T_vyrobky V
> > > left join T_VYRKAT k on V.pk=k.fk and K.idkat=0
> > > where K.fk is NULL
> > >
> >
> > Neni to rychlejsi. Otevreni trva v IBExpertu 2 minuty. Plan je
> > pritom V natural, ostatni podle indexu. Na to, ze ve V je jen 20 000
> > zaznamu docela hruza (mimochodem vysledek obsahuje 17 vet).
>
> Nebylo by lepsi v tom dotazu psat where V.pk is null? Takhle ho celkem
> zbytecne nutis nejprve to dohledat... Zvlaste v pripade, ze to ma
> vratit jen 17 vet, me ta doba zarazi...
>
To nejde. Potrebuji vsechny vyrobky z tabulky V, kter� nejsou v tabulce K s
IDKAT=0.
k.fk je null prave na zaznamech, ktere se nepodarilo sjoinovat, bere se az z
vysledku a nikoli z puvodni tabulky (empiricky overeno). Takze tento dotaz
dela to, co puvodni s vnorenym selectem, ale zrychleni se nekona. Je
pravda, ze ten join sam, kdyby tam nebylo to where, ma 64 000 radku, ale
to snad stale neni pocet, ktery by mel SQL serveru delat problemy.
David Lebeda
Zobrazovani v threadove aplikace
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 22.5.2002 15:31:26
No ten thread je podle me asi nejlepsi nebot to co budete mit v OnTimer bezi v hlavnim threadu aplikace tj. zastavi se beh pokud tam date napr. nejake vypocty. U threadu se vse zpracovava mimo vas hlavni thread - nepozastavi se vase aplikace po dobu zpracovani ci vykreslovani na form.
Milos
-----Original Message-----
From: EFG developer [mailto:developer(zv)efg(tec)cz]
Sent: Wednesday, May 22, 2002 3:02 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zobrazovani v threadove aplikace
Zdravim, v multi threadove aplikaci pouzivam urcite pametove struktury,
obsah techto struktur bych
chtel zobrazovat na formular aplikace (predevsim do treeview).
napada me:
1) udelat specialni thread, krery pouze aktualizuje data na formu
2) na form dat timer a v ontimer to aktualizovat.
co je lepsi, vhodnejsi a cistejsi? lze toto udelat jeste nejak lepe ?
S pozdravem Petr Sikola
OT: videokarta ATI RAGEIIC PCI
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 22.5.2002 15:32:08
Ahoj,
omlouvam se za OT, ale shanim informace o teto videokarte. Potreboval jsem rozsirit pamet ale nemam k tomu zadne informace, pouze driver (z roku 99) na diskete (nebyl tam ani udavany diagnosticky program, a v sysinfu se o ni neukaze skoro nic). Nemate nekdo k teto karte nejake (technicke) informace? Mam potize predevsim s OpenGL, DirectX funguje dobre. Na strankach ATI neni ani zminka o teto karte (zrejme je uz prilis :(( stara).
Velmi dekuji za pripadne zkusenosti ci dokumenty a prosim o zaslani na muj mail.
Jaro B.
mailto:JBenes(zv)cpoj(tec)cz
THTML - class not registered
[*] Jaroslav Weiss <jaxx(zv)seznam(tec)cz> - 22.5.2002 15:33:10
D3, W2K, IE5
Udelal jsem si malej programek na prohlizeni html stranek s
komponentou THTML. Pri spusteni na PC s Delphi jede OK, pri spusteni
na jinym PC hodi hlasku:
Exception on EOleSysError in module kuk.exe at 00030CDD.
Class not registered.
Co musim kde zaregistrovat?
Diky predem,
JW
______________________________________________________________________
Reklama:
Vylepsete svuj prohlizec Internetu na http://software.seznam(tec)cz/listicka
neco jako ShowModal pro MDI aplikaci
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 22.5.2002 15:34:35
A z ceho tak usuzujes ??? Vzdyt okno je normalne aktivni, takze reaguje na
ostatni zpravy (pokud mas nastaveno nonresizable tak to preci nevadi) ale
pri pokusu o aktivaci proste tohle zamitnes a nastavis jako aktivni napr. to
modalni okno.....
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Ahoj,
>
> to by zrejme opravdu melo fungovat, ale az do te doby, dokud nezacnes
> pouzivat takove formulare, ktere nesmeji menit svoji velikost. Pak
> narazis na operacich typu Tile ci Maximalizace.
>
> Slavek
>
> > Vytazeno z MS Platform SDK:
> >
> > Milan Tomes
Rychlost dotazu na FB
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 22.5.2002 15:36:30
To je divny, jak mas nadefinovan primarni klic na TVYRKAT ?
Podle toho co pises se jedna o klasickou cross tabulku,
tedy dva FK a PK pres tyto FK.
Pak by nemel byt problem.
Slavek
> > select * from T_vyrobky V
> > left join T_VYRKAT k on V.pk=k.fk and K.idkat=0
> > where K.fk is NULL
> >
>
> Neni to rychlejsi. Otevreni trva v IBExpertu 2 minuty. Plan je pritom V
> natural, ostatni podle indexu. Na to, ze ve V je jen 20 000 zaznamu docela
> hruza (mimochodem vysledek obsahuje 17 vet).
>
> Dale jsem zjistil, ze kdyz v podmince joinu odstranim podminku K.IDKat=0,
> vrati dotaz sice spatny vysledek, ale jiz za 4 sekundy.
THTML - class not registered
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 15:37:24
From: "Jaroslav Weiss" <jaxx(zv)seznam(tec)cz>
> Udelal jsem si malej programek na prohlizeni html stranek s komponentou
> THTML. Pri spusteni na PC s Delphi jede OK, pri spusteni na jinym PC hodi
Pokud je to ten OCX co se dodaval s Delphi tak to nepouzivej a naimportuj si
radsi IE jako ActiveX do Delphi.
Petr Vones
Delphi 7 versus Delphi .NET
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2002 15:41:35
> To zatim asi nikdo nevi, protoze podle toho co se objevilo ve zprave z
> BorConu bude Delphi for .NET az v Q1 2003, viz odkaz co jsem posilal
> uz vcera: http://www.drbob42.com/borcon.htm
*****Cetl jsem jiz vcera :-), ale je to ponekud strohe. :-(
Jeste jeden dotaz. Bude mozne Delphi, tedy spise Pascal, mozne
pouzivat v prostredi Visual Studia?
Diky za info
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Rychlost dotazu na FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 22.5.2002 15:42:03
Ahoj, Davide!
You wrote :
>> select * from T_vyrobky V
>> left join T_VYRKAT k on V.pk=k.fk and K.idkat=0
>> where K.fk is NULL
>>
LD> Neni to rychlejsi. Otevreni trva v IBExpertu 2 minuty. Plan je pritom V
LD> natural, ostatni podle indexu. Na to, ze ve V je jen 20 000 zaznamu
LD> docela hruza (mimochodem vysledek obsahuje 17 vet).
Kde jsou DDL tabulek a PLANy, generovane IB ?
[Skipped]
LD> select v.id from T_Vyrobky V
LD> left join T_CenikPol k on V.id = k.idmat
LD> ...otevreno prakticky ihned
LD> select v.id from T_Sklkarty V
LD> left join T_CenikPol k on V.id = k.idmat
LD> order by v.nazev
LD> trva 10 sekund, a to mam na pocitaci ramdisk.
Optymizator IB neumi v PLANu pouzit index pro
pole, ktere neni v SELECT.
With best regards, Alex Cherednichenko.
powered by FidoLook
www.fidolook.com
Zobrazovani v threadove aplikace
[*] EFG developer <developer(zv)efg(tec)cz> - 22.5.2002 15:45:40
predpokladam, ze by pak v tom threadu melo byt v metode execute neco
jako toto:
while not terminated do
begin
//mozna jeste: if byla zmena then
synchronize(vykreslivsechno);
sleep(100); //nebo nejake jine rozumne cislo
end;
Petr Sikola
PS: podle me, pokud to stejne cele pobezi v sznchronize, tak to je skoro
totez, jako by to delal hlavni thread aplikace -> skoro jako v tom
ontimer.
Pokud se mylim, vyvedte me prosim z omylu :)))
Dik
> No ten thread je podle me asi nejlepsi nebot to co budete mit
> v OnTimer bezi v hlavnim threadu aplikace tj. zastavi se beh
> pokud tam date napr. nejake vypocty. U threadu se vse
> zpracovava mimo vas hlavni thread - nepozastavi se vase
> aplikace po dobu zpracovani ci vykreslovani na form.
>
------
>
> Zdravim, v multi threadove aplikaci pouzivam urcite pametove
> struktury, obsah techto struktur bych chtel zobrazovat na
> formular aplikace (predevsim do treeview).
>
> napada me:
> 1) udelat specialni thread, krery pouze aktualizuje data na formu
> 2) na form dat timer a v ontimer to aktualizovat.
>
> co je lepsi, vhodnejsi a cistejsi? lze toto udelat jeste nejak lepe ?
Generovanie cisel cez SQL
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.5.2002 15:50:18
<<< 22. 5. 2002 14:38 - Martin Cajbik "cajbik(zv)sct.sk" >>>
MC> Je mozne nejako vygenerovat cez SQL (konketne MS SQL) zoznam cisel to
MC> znamena SELECT prikaz ktory by vygeneroval postupnost
MC> bez akejkolvek navaznosti na niektoru z tabuliek v databaze
Neviem ako v MSSQL ale vo IB/FB to ide cez Stored procedure
declare X integer
..
X = 0;
WHILE (x < 50) DO
BEGIN
suspend;
x = x + 1;
END
Pisem z hlavy takze je tam urcite nejaky trouble.
--
Best regards, TRoland
Delphi 7 versus Delphi .NET
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 15:50:36
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> Jeste jeden dotaz. Bude mozne Delphi, tedy spise Pascal, mozne
> pouzivat v prostredi Visual Studia?
Zkus se optat v b.p.delphi.non-technical newsech ...
Petr Vones
Zobrazovani v threadove aplikace
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 22.5.2002 15:57:29
No to asi ano :)
a co takhle dat 2 treeview na sebe a vyuzit tak takovej umelej doublebuffering (jeden naplnovat v threadu datama - ne pres synchronize ale primo - coz bynemelo vadit) a ten co je viditelnej zrovna nechat tak jak je a pak ho skryt a nastavit viditelnej ten co se prekreslil na pozadi.
Milos
-----Original Message-----
From: EFG developer [mailto:developer(zv)efg(tec)cz]
Sent: Wednesday, May 22, 2002 3:46 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Zobrazovani v threadove aplikace
predpokladam, ze by pak v tom threadu melo byt v metode execute neco
jako toto:
while not terminated do
begin
//mozna jeste: if byla zmena then
synchronize(vykreslivsechno);
sleep(100); //nebo nejake jine rozumne cislo
end;
Petr Sikola
PS: podle me, pokud to stejne cele pobezi v sznchronize, tak to je skoro
totez, jako by to delal hlavni thread aplikace -> skoro jako v tom
ontimer.
Pokud se mylim, vyvedte me prosim z omylu :)))
Dik
> No ten thread je podle me asi nejlepsi nebot to co budete mit
> v OnTimer bezi v hlavnim threadu aplikace tj. zastavi se beh
> pokud tam date napr. nejake vypocty. U threadu se vse
> zpracovava mimo vas hlavni thread - nepozastavi se vase
> aplikace po dobu zpracovani ci vykreslovani na form.
>
------
>
> Zdravim, v multi threadove aplikaci pouzivam urcite pametove
> struktury, obsah techto struktur bych chtel zobrazovat na
> formular aplikace (predevsim do treeview).
>
> napada me:
> 1) udelat specialni thread, krery pouze aktualizuje data na formu
> 2) na form dat timer a v ontimer to aktualizovat.
>
> co je lepsi, vhodnejsi a cistejsi? lze toto udelat jeste nejak lepe ?
Synapse TFTPSend & WinRoute 4
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 22.5.2002 15:57:19
> Mam trosku problem se zprovoznenim TFTPSend ze Synapse pres proxy WinRoute
> 4. Jestli jsem vse dobre pochopil, je u TFTPSend nutno nastavit FWPort,
> FWHost & FWMode. Zkousel jsem vsemozne kombinace, bez vysledku. Mate nekdo
> pozitivnejsi zkusenosti ???
kdyz dokazes zjistit co a jak se musi udelat pro to aby FTP proslo
pres winroute, pak ti povim jak to nastavit. ;-)
Winroute neznam, ale mel jsem dojem, ze je to produkt postaveny na
principu prekladu adres, takze by teoreticky nemelo byt potreba
nastavovat TFTPsend do firewall modu. Ale je potreba uzit pasivniho
modu prenosu dat. (tedy nastavit property PassiveMode na TRUE)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Muze Se Pozastavit Bezici Vlakno Samo? Jak Na To?
[*] Martinec <martin108(zv)post(tec)cz> - 22.5.2002 16:26:38
Ja jsem mel v mericim vlaknu toto:
procedure TVlakno.Execute;
begin
while not Terminated do
begin
//tady se provedlo mereni
if not Terminated then Suspend;
end;
end;
Vlakno spoustel Timer v pravidelnych intervalech:
procedure TMain.CasovacTimer(Sender: TObject);
begin
if Vlakno.Suspended then Vlakno.Resume;
end;
Martinec
-----Original Message-----
From: Jujtov e-mail [mailto:jujto(zv)stonline.sk]
Subject: Muze Se Pozastavit Bezici Vlakno Samo? Jak Na To?
----
MICHAL DAVID - zive na
http:\\chat.volny(tec)cz
ve ctvrtek 30.5. od 14:00hod
Sybase
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 22.5.2002 16:52:40
Ahoj,
mozte mi niekdo doporucit nejake overene komponenty (prinajhorsom i ODBC
driver) pre pristup k servru Sybase? Potrebujeme iba selektovat data z
jednej tabulky pre nas system, takze platit za to nechceme.
Dik.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Oprava paradox tabulky
[*] bures <bures(zv)ssakhk(tec)cz> - 22.5.2002 16:58:44
Ahoj konfenence, mam projekt ktery vyuziva paradoxove tabulky a pri jednom
padu systemu doslo k poruseni tabulky a nyni nelze otevrit a pise to error
Corupt table /index header. Exituje v bde api nejaka funkce na opravu
trakoveto tabulky... ???
Predem dekuji Vlada
Sybase
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 22.5.2002 17:26:28
Ja pouzivam ODBC so standarnym dodavanym driverom - bez problemov
|| mozte mi niekdo doporucit nejake overene komponenty
|| (prinajhorsom i ODBC
|| KasiX(zv)atlas(tec)cz
SQL 2000 a TMemo ...
[*] Slavomir Cekel <cekel(zv)noves.sk> - 22.5.2002 17:47:31
Ako ulozit obsah TMemo do SQL 2000 ??? (samozrejme aby boli zachovane
riadky)
Akeho typu musi byt polozka v databaze ?
Slavo
RichEdit98 alebo nieco lepsie
[*] <ivan.ivanov(zv)email(tec)cz> - 22.5.2002 18:03:21
Zdravim Vas,
neviete nahodou, kde mozem najst richedit98 alebo nejaky iny richedit, v ktorom neblbnu tabulatory (najlepsie free a aj do QuickReportu)?
Prehladal som uz odkazy z konferencie aj nejake stranky, na ktore som nasiel odkazy, ale nic...
Vdaka
ivan
______________________________________________________________________________
Kalend�� Email.CZ - dokonal� organizace Va�eho �asu: http://kalendar.email(tec)cz
ExpressQuantumGrid spatne zobrazeni ceskych znaku
[*] cis <cis(zv)atlas(tec)cz> - 22.5.2002 18:12:43
Hi,
pouzivam ho, a bez problemu
ales
----- Original Message -----
From: "Fait FTSOFT" <fait(zv)ftsoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 22, 2002 12:26 AM
Subject: ExpressQuantumGrid spatne zobrazeni ceskych znaku
> Nepouzivate nahodou nekdo subj? Mam problem se zobrazovani nekterych znaku
s
> hacky.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19-4-2002
OT: Zeos a PostgreSQL 7.2
[*] dphi_forum(zv)proces.sk - 22.5.2002 18:29:29
Zdravim vsetkych...
Do nedavna som zdarne pouzival ZEOS komponeny pre pristup k PostgreSQL 7.0
na roznych linuxoch (RedHat, Mandrake...)
Ale kedze nedavno vysla nova verzia RedHat 7.3 s PostgreSql 7.2 tak mi
nedalo a skusil som.
A na moje prekvapenie uz ZEOS nefunguje - ani nie tak ZEOS ako LIBPQ.DLL.
Taky isty problem ma aj Zeos Database Explorer.
Zobrazi tabulky, ale uz nezobrazi hodnoty a ani stlpce tabulky.
Hodi to takuto chybu:
> SELECT pg_attribute.attnum AS index, attname AS field, typname
> AS type, atttypmod-4 as length, NOT attnotnull AS "null",
> adsrc AS def FROM pg_attribute, pg_class, pg_type, pg_attrdef
> WHERE pg_class.oid=attrelid AND pg_type.oid=atttypid AND
> attnum>0 AND pg_class.oid=adrelid AND adnum=attnum AND
> atthasdef='t' AND lower(relname)='branchs' UNION SELECT
> pg_attribute.attnum AS index, attname AS field, typname AS
> type, atttypmod-4 as length, NOT attnotnull AS "null", '' AS
> def FROM pg_attribute, pg_class, pg_type WHERE
> pg_class.oid=attrelid AND pg_type.oid=atttypid AND attnum>0
> AND atthasdef='f' AND lower(relname)='branchs'
> OK.
>
> SELECT i.oid AS index, t1.relname AS name, t2.relname AS
> table, indisunique AS "unique", indkey AS fields FROM pg_index
> AS i, pg_class AS t1, pg_class AS t2 WHERE i.indexrelid=t1.oid
> AND i.indrelid=t2.oid AND lower(t2.relname)='branchs'
>>> ERROR: No such attribute or function 'oid'
>
> SELECT * FROM branchs
Mam dojem ze niekde na sourceforge som cital ze treba nejakym sposobom
upravit zdrojaky DLL-ky.
Kedze nemam VC++ tak chcem takymto sposobom poprosit niekoho kto to
potreboval a upravil si
tu DLL-ku, ci by mi ju nemohol poslat.
Velmi pekne dakujem. NORO.Vytvaranie komponent za behu
[*] Robert Suska <delphi(zv)korak.sk> - 22.5.2002 18:52:03
Ahojte
Ako za behu vytvorit napr. TRadioButton tak aby bol umiestneny napr. na uz
vytvorenom TPanel1 ?
Dakujem
Robo
CRC
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.5.2002 19:08:31
Puvodni zprava, kterou napsal Vaclav Votipka dne 22 May 2002:
> >To je zbytecna prace. Hashovaci funkce SHA-1 je bezpecna a je navrzena
> >pro vstupni blok dat az (2 na 64) minus 1 bitu.
> >
> Nevim, co znamena, ze je navrzena pro uvedenou delku vstupnich dat ale
> rozhodne to neznamena, ze pro data s touto delkou generuje jedinecne
> hashe.
To jsem take netvrdil.
> Pokud se nemylim, tak SHA-1 generuje cisla o delce 160 bitu. Tedy jako
Ano, je to tak.
> vysledek tohoto hashe muze vyjit cislo od 0 do (2^160)-1. Nic jineho. Kdyz
Ano, je to tak.
> vezmu blok binarnich dat o delce 20bytu, tak mam 2^160 moznosti, co v
Ano, je to tak.
> tomto bloku dat bude zapsano. Zde si dovedu predstavit, ze bude pro kazdou
> variantu na vstupu hashovaciho algoritmu existovat jedinecna hodnota na
> vystupu. Pokud ale budou na vstupu 21 bytu dlouha data, pak mezi nimi
> nutne musi existovat dvojice generujici stejny hash. Kolik takovych
Jiste, to je spravny usudek. Vis, kolik to je kombinaci 2^160? To si jako
myslis, ze se bude testovat 2^160 variant vstupu, aby se projevila kolize
hashovaci funkce?
> duplicit asi bude pri zpracovani dat o delce 200B? Nemyslim si, ze je
> moznost shody zanedbatelna (i kdyz je mala - na tom se shodneme) a proto
> jsem navrhoval vyse uvedene reseni.
Moznost kolize je zanedbatelna, to mi muzes verit. Toto neni o selskem
rozumu s pocitanim poctu bajtu zdroje dat, ale o pravdepodobnosti. Udelej
si programek s hashovaci funkci SHA-1 a projed si ty stovky tisic
souboru, co mas v pocitaci. Projed si vsechny zpravy v postovnim
programu, projed si, na co prijdes. A jestli najdes kolizi, tak mi ty dva
soubory posli. Pravdepodobnost, ze ji najdes, je, jak jsem uz napsal v
minulem mailu, 1 - 0.5^160, nebo 1 - 6,8423 x 10^-49, chces-li. Pak si
spocitej pravdepodobnost vyhry jackpotu ve sportce, ktera je proti tomu
silene moc vysoka. A mas uz predstavu, jak to doopravdy je.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Nejde Post na ADOQuery
[*] Delphin <delphin(zv)post(tec)cz> - 22.5.2002 19:17:42
ADOQuery mi vyhodilo tuto hlasku a nemuzu se hnout. Zvlastni na tom je to,
ze to tri dny fungovalo a ted to najednou prestalo.
Key column information is insufficient or incorrect. Too many rows were
affected by update
Co s tim ?
Diky
Delphin
W2000,D5 SP2,MSSQL 2000
Zistenie ci je pripojenie k internetu aktivne
[*] jir� Betun�k <viruslog(zv)volny(tec)cz> - 22.5.2002 19:29:13
Podivej se na autorovy stranky
http://www.ultimate3d.com.br/vander
kdy to tam nebylo tak mi napis jati to poslo mailem
S pozdravem KinDR
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
To: "Delphi CZ konferencia" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 22, 2002 2:03 PM
Subject: Zistenie ci je pripojenie k internetu aktivne
> Hello Delphi CZ konferencia!
>
> Chcem dorobit:
>
> 1.Zistovanie ci je internet aktivny
> 2.Dostat spravu o tom, ze sa vytvorilo spojenie
>
> Ale aby to fungovalo na Win9x aj bez potreby instalacie siete,... Aby
> to fungovalo na pocitaci kde ani nesnivaju o sietach a internete.
>
> PS: "Fungovat" myslim tym aby moja applikacia sa neodkazovala na veci
> ktore tam nie su ani nebudu a fungovala ako by nic.
>
> --
> Best regards, TRoland
>
>
Databazove aplikace - pouzit komponenty nebo DBkom
[*] PETR KOREC <pkorec(zv)ic-energo(tec)cz> - 22.5.2002 18:34:34
Dobry den
zacinam s programovanim databazovych aplikace astojim pred otazkou, zda od
zacatku pouzivat
- klasicke komponenty (grid, edit, combo), data do nich strkat a pak je po
editaci rucne ukladat
nebo se mam zajimat o
DB-komponenty - (DBgrid, DBEdit ...)
...druhy zpusob se jevi jako rychlejsi, ale nemam s nim zkusenosti - muzete
prosim poradit, zda ma toto reseni take nejake nevyhody ???
Co pouzivate vy ?
Dekuji Koro
Zistenie ci je pripojenie k internetu aktivne
[*] Robert Suska <delphi(zv)korak.sk> - 22.5.2002 19:38:57
Posielam cely unit
inac na
http://www.inspired.sk/delphi/tricks/tricks.php
je toho dost vela
Robo
****************************************************************************
***************************
interface
uses
Windows, SysUtils, Registry, WinSock, WinInet;
type
TConnectionType = (ctNone, ctProxy, ctDialup);
function ConnectedToInternet : TConnectionType;
function RasConnectionCount : Integer;
implementation
//For RasConnectionCount =======================
const
cERROR_BUFFER_TOO_SMALL = 603;
cRAS_MaxEntryName = 256;
cRAS_MaxDeviceName = 128;
cRAS_MaxDeviceType = 16;
type
ERasError = class(Exception);
HRASConn = DWord;
PRASConn = ^TRASConn;
TRASConn = record
dwSize: DWORD;
rasConn: HRASConn;
szEntryName: Array[0..cRAS_MaxEntryName] Of Char;
szDeviceType : Array[0..cRAS_MaxDeviceType] Of Char;
szDeviceName : Array [0..cRAS_MaxDeviceName] of char;
end;
TRasEnumConnections =
function (RASConn: PrasConn; { buffer to receive Connections data }
var BufSize: DWord; { size in bytes of buffer }
var Connections: DWord { number of Connections written to
buffer }
): LongInt; stdcall;
//End RasConnectionCount =======================
function ConnectedToInternet: TConnectionType;
var
Reg : TRegistry;
bUseProxy : Boolean;
UseProxy : LongWord;
begin
Result := ctNone;
Reg := TRegistry.Create;
with REG do
try
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet
settings',False) then begin
//I just try to read it, and trap an exception
if GetDataType('ProxyEnable') = rdBinary then
ReadBinaryData('ProxyEnable', UseProxy, SizeOf(LongWord) )
else begin
bUseProxy := ReadBool('ProxyEnable');
if bUseProxy then
UseProxy := 1
else
UseProxy := 0;
end;
if (UseProxy <> 0) and ( ReadString('ProxyServer') <> '' ) then
Result := ctProxy;
end;
except
//Obviously not connected through a proxy
end;
finally
Free;
end;
//We can check RasConnectionCount even if dialup networking is not
installed
//simply because it will return 0 if the DLL is not found.
if Result = ctNone then begin
if RasConnectionCount > 0 then Result := ctDialup;
end;
end;
function RasConnectionCount : Integer;
var
RasDLL : HInst;
Conns : Array[1..4] of TRasConn;
RasEnums : TRasEnumConnections;
BufSize : DWord;
NumConns : DWord;
RasResult : Longint;
begin
Result := 0;
//Load the RAS DLL
RasDLL := LoadLibrary('rasapi32.dll');
if RasDLL = 0 then exit;
try
RasEnums := GetProcAddress(RasDLL,'RasEnumConnectionsA');
if (zv)RasEnums = nil then
raise ERasError.Create('RasEnumConnectionsA not found in
rasapi32.dll');
Conns[1].dwSize := Sizeof (Conns[1]);
BufSize := SizeOf(Conns);
RasResult := RasEnums((zv)Conns, BufSize, NumConns);
If (RasResult = 0) or (Result = cERROR_BUFFER_TOO_SMALL) then Result :=
NumConns;
finally
FreeLibrary(RasDLL);
end;
end;
****************************************************************************
***********
> > Hello Delphi CZ konferencia!
> >
> > Chcem dorobit:
> >
> > 1.Zistovanie ci je internet aktivny
> > 2.Dostat spravu o tom, ze sa vytvorilo spojenie
> >
> > Ale aby to fungovalo na Win9x aj bez potreby instalacie siete,... Aby
> > to fungovalo na pocitaci kde ani nesnivaju o sietach a internete.
> >
> > PS: "Fungovat" myslim tym aby moja applikacia sa neodkazovala na veci
> > ktore tam nie su ani nebudu a fungovala ako by nic.
> >
> > --
> > Best regards, TRoland
> >
> >
Databazove aplikace - pouzit komponenty nebo DBkom
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 22.5.2002 19:40:29
Zdravim,
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> zacinam s programovanim databazovych aplikace astojim pred otazkou, zda od
> zacatku pouzivat
> - klasicke komponenty (grid, edit, combo), data do nich strkat a pak je
po
> editaci rucne ukladat
Radeji ty klasicke, ale brzy poznasd, ze potrebujes vice. Takze zacnes
patrat po free komponentach.
Ja ti mohu jen nabidnout http://www.kopr(tec)cz/delphi/index.htm
>
> nebo se mam zajimat o
> DB-komponenty - (DBgrid, DBEdit ...)
Zajimat se muzes, ale je to ztrata casu. Mozna jeste DBGrid, i kdyz ja uz
mam jiny a upraveny.
Najdes ho na stejne strance: smdbgrid011207
>
> ...druhy zpusob se jevi jako rychlejsi, ale nemam s nim zkusenosti -
muzete
> prosim poradit, zda ma toto reseni take nejake nevyhody ???
> Co pouzivate vy ?
>
> Dekuji Koro
Neni zac Pavel ZIDEK
FB a ZEOS
[*] Tom� Kup��k����J�����̿ - 22.5.2002 20:15:11
> Nastavim:
> database: emp
> host: localhost
> login: sysdba
> password: masterkey
> Zeos hlasi: Unable to complete network request to host "localhost"
> Nejsp� asi FB a Zeos nejdou dohromady...
do Database dej celou cestu k db souboru a Host nech prazdny
Re[2]: Zistenie ci je pripojenie k internetu aktiv
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.5.2002 20:41:00
> From: "Roland Turcan" <rolo(zv)sedas.sk>
>> Chcem dorobit:
>>
>> 1.Zistovanie ci je internet aktivny
>> 2.Dostat spravu o tom, ze sa vytvorilo spojenie
>>
>> Ale aby to fungovalo na Win9x aj bez potreby instalacie siete,... Aby
>> to fungovalo na pocitaci kde ani nesnivaju o sietach a internete.
<<< 22. 5. 2002 20:35 - Petr Vones "pvones(zv)mbox.vol(tec)cz" >>>
PV> Jak se muzes pripojit k Internetu z pocitace bez instalovaneho sitoveho
PV> protokolu ?
Nepochopili sme sa, aplikacia moze byt instalovana aj tam kde nie je
internet a ked deklarujem WinInet tak uz to chce mat instalovane
WinInet.dll a to tam nemusi byt instalovane.
--
Best regards, TRoland
Nejde Post na ADOQuery
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 22.5.2002 20:54:45
1) Zrejme neupdatujes jenom jeden zaznam
2) Zkusil bych update statistics na tabulku, kde provadis update (viz BOL)
3) Na tabulce je update trigger, ktery muze teoreticky byt rekurzivni a ve
vlastnostech db neni rekurzivni trigger povolen
Vic me toho zatim nenapada. Zkus napsat, jaky prikaz volas - jestli to je
UPDATE prikaz nebo editujes nejaky SELECT a pokud select, jestli treba neni
jeste join na dalsi tabulky ... Podle toho, co jsi napsal, se da tezko
soudit.
Milan
> -----Original Message-----
> From: Delphin
> ADOQuery mi vyhodilo tuto hlasku a nemuzu se hnout. Zvlastni
> na tom je to,
> ze to tri dny fungovalo a ted to najednou prestalo.
> Key column information is insufficient or incorrect. Too many
> rows were
> affected by update
Vytvaranie komponent za behu
[*] Martin Cajbik <cajbik(zv)sct.sk> - 22.5.2002 20:58:47
Staci nastavit RadioButton.Parent:= Panel1
MarCaNT (marcant(zv)sct.sk)> Ahojte
>
> Ako za behu vytvorit napr. TRadioButton tak aby bol umiestneny napr. na uz
> vytvorenom TPanel1 ?
>
> Dakujem
>
> Robo
>
>
Kill programu pro MS-DOS
[*] <korin.delphi(zv)centrum(tec)cz> - 22.5.2002 20:58:44
Dobry den,
potrebuji nasilne vypnout dos program bezici pod windows 9x.
Nevite jak na to, aniz by se zaseknul pocitac?
Dik,
Ivan Novotny, programator
--------------------
Bonus 1000 K� k �roku 3,5 % m� pro V�s Oran�ov� konto od ING. Zalo�te si Oran�ov� konto na 0800 159 159 nebo na http://user.centrum(tec)cz/redir.php?url=http://www.ing(tec)cz
Vytvaranie komponent za behu
[*] Robert Suska <delphi(zv)korak.sk> - 22.5.2002 21:05:30
Ahoj!
Dobre pohoda ale neviem ci sa toto da vyriesit. Proste moj program
neobsahuje ziadne komponenty je to iba MDI aplikacia v ktorej sa otvori
materske okno a to nacita subor asi v takomto tvare
MAINFORM_PRIMARY="TForm1"
object=Button2:TButton<FontName=MS Sans
Serif;FontColor=0;FontStyle=[];Top=202;Left=440;Height=25;Width=75;Owner=For
m1>
object=Button1:TButton<FontName=MS Sans
Serif;FontColor=0;FontStyle=[];Top=202;Left=518;Height=25;Width=75;Owner=For
m1>
cize ja ked toto dostanem tak potrebujem z toho vytvorit form napr 800x600
ako child okno a na nom Button2 a Button1 s tymito vlastostami. Ale ja v
zrojaku nemam zadfinovane ich triedy v interface casti. Da sa to spravit.
Chcem urobit dynamicke vytvaranie formu. Kto by mi chcel pomoct mozeme o tom
pohovorit aj na sukromny mail a poslal by som nejake veci co uz mam urobene
kvoli vacsiemu objasneniu problemu lebo to asi nie je jasne velmi z tohto.
Dakujem
Robo
> Staci nastavit RadioButton.Parent:= Panel1
>
> MarCaNT (marcant(zv)sct.sk)
>
> > Ahojte
> >
> > Ako za behu vytvorit napr. TRadioButton tak aby bol umiestneny napr. na
uz
> > vytvorenom TPanel1 ?
> >
> > Dakujem
> >
> > Robo
> >
> >
FB a ZEOS
[*] bleak <bleak(zv)atlas(tec)cz> - 22.5.2002 21:35:33
problem je, ze zadnou databazi v souboru nemam. Pouze bezi FireBird a chci
se na n�j p�ipojit a tu databazi vytvorit. CREATE DATABASE novadb...
Kdyz je Host bez zadani a Database taky, hlasi to chybu I/O error for file a
nasleduj adresar, ze ktereho spustim program...
V souboru interbase.log je toto:
nobody (Client) Wed May 22 21:19:45 2002 INET/INET_connect: getservbyname
failed, error code = 11004
----- Original Message -----
From: "Tom� Kup��k" <tks(zv)mail(tec)cz>
do Database dej celou cestu k db souboru a Host nech prazdny
Vytvaranie komponent za behu
[*] Harris <harri.s(zv)tiscali(tec)cz> - 22.5.2002 21:45:45
MujButton := TRadioButton.Create (ThisForm);
MujButton.Parent := Panel1;
MujButton.Left := Leva_souradnice_na_panelu;
MujButton.Top := Horni_souradnice_na_panelu;
Timto se do Panelu1.Controls pridat dalsi odkaz na tento nove vytvoreny
RadButton.
Harris.
----- Original Message -----
From: "Robert Suska" <delphi(zv)korak.sk>
To: "Delphi Konfera" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 22, 2002 6:52 PM
Subject: Vytvaranie komponent za behu
> Ahojte
>
> Ako za behu vytvorit napr. TRadioButton tak aby bol umiestneny napr. na uz
> vytvorenom TPanel1 ?
>
> Dakujem
>
> Robo
>
Transakce na FB
[*] Harris <harri.s(zv)tiscali(tec)cz> - 22.5.2002 21:50:49
Psalo se tady ze FB nepodporuji transakce, nakonec to vyvratil myslim P.
Cisar, transakce podporuji.
OK, ale co mam delat kdy je nechci? Komponenty IBX to primo vyzaduji.
Dale, existuje nejaka solidni dokumentace k FB? Na jejich serveru se totiz
pise ze dokum. je shodna s IB, ale
zjistuji ze tam jsou zrejme nejake rozdily.
Ale jsem ve FB i IB zacatecnik, takze mozna jenom neco delam blbe.
Dik.
Harris.
Muze Se Pozastavit Bezici Vlakno Samo? Jak Na To?
[*] Vlko II. <vlko_(zv)pobox.sk> - 22.5.2002 22:26:49
Jednoducho pri vytvoreni v udalosti oncreate staci napisat
FreeOnTerminate:=True;
a vlakno sa po ukonceni OnExecute samo ukonci.
22.5.2002 2:04:37, "Jujtov e-mail" <jujto(zv)stonline.sk> wrote:
>
> From: "Jujtov e-mail" <jujto(zv)stonline.sk>
>
> To: <delphi-l(zv)clexpert(tec)cz>
> Subject:Muze Se Pozastavit Bezici Vlakno Samo? Jak Na To?
> Date: Wed, 22 May 2002 02:04:37 +0200
>
>
> Diky.
Synapse TFTPSend & WinRoute 4
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.5.2002 23:42:04
Puvodni zprava, kterou napsal Gebauer Lukas dne 22 May 2002:
> kdyz dokazes zjistit co a jak se musi udelat pro to aby FTP proslo
> pres winroute, pak ti povim jak to nastavit. ;-)
>
> Winroute neznam, ale mel jsem dojem, ze je to produkt postaveny na
> principu prekladu adres, takze by teoreticky nemelo byt potreba
> nastavovat TFTPsend do firewall modu. Ale je potreba uzit pasivniho
> modu prenosu dat. (tedy nastavit property PassiveMode na TRUE)
Ano, WinRoute je postaven na NAT, tj. sleduje odeslane pakety a jejich
odpovedi. Co se tyka primo protokolu FTP, tak jej podporuje. Bez
jakehokoliv nastaveni podporuje standard, tj. port 21 ridici, port 20
datovy zpet. V pripade, ze to jede na jinych portech, je to mensi
problem, protoze pak je nutno bud provest mapovani konkretniho portu na
stanici, pripadne nebo pouzit pasivni FTP.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Rychlost dotazu na FB
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 23.5.2002 01:18:01
S join-ami su problemi hlavne na IB - zial nema poriadny otimalizator ktory
rozhodne o tom ktory index ma pouzit pre dany JOIN a dost casto nepouzije
ziadny index (a potom sa nestacime cudovat co asi robi).
ak by si napisal:
select * from T_vyrobky V
left join T_VYRKAT k on V.pk=k.fk
where K.fk is NULL
(join bez : and K.idkat=0) a existuje index na k.fk tak zrejme IB rozpozna
ze moze pozit tento index a potom dotaz bude pravdepodobne rychli.
Ale ak napises do joinu najake podmienky:
select * from T_vyrobky V
left join T_VYRKAT k on V.pk=k.fk and k.xy<value and ...
where K.fk is NULL
alebo nejaku kalkulaciu:
select * from T_vyrobky V
left join T_VYRKAT k on V.pk=k.fk*2+1
where K.fk is NULL
tak IB povie: taky index neexistuje ktory moze pouzit a nepouzije ziadny.
Pozn:
Kedze tiez programujem SQL server - viem ze optimalizacia JOINov je velmi
tazky problem. Preto som sa opustil od takychto joinov. V mojich dotazoch sa
musi vzdy specifikovat index, ktory sa ma pouzit na join a ked to nie je
specifikovany tak nepouzije ziadny.
|| >> select * from T_vyrobky V
|| >> left join T_VYRKAT k on V.pk=k.fk and K.idkat=0
|| >> where K.fk is NULL
|| >>
|| LD> Neni to rychlejsi. Otevreni trva v IBExpertu 2
|| minuty. Plan je pritom V
|| LD> natural, ostatni podle indexu. Na to, ze ve V je jen
|| 20 000 zaznamu
|| LD> docela hruza (mimochodem vysledek obsahuje 17 vet).
||
Pocet prvkov mnoziny
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 23.5.2002 05:37:31
Zdravim,
da sa zistit pocet prvkov v premennej set of TVolaco ?
Napr.
var sc: set of Char;
begin
sc:= ['A', 'B'];
ShowMessage (IntToStr (CountMembers (sc))); // chcem aby vypisalo 2
end;
Existuje nieco ako "CountMembers", alebo sa to da naimplementovat s pouzitim
mnozin?
Prip. aj nieco ako iterator, aby som si mohol povyberat jednotlive prvky?
S pozdravom
J. Popluhar
Re[2]: neco jako ShowModal pro MDI aplikaci
[*] tomsir1.edu(zv)mail.cez(tec)cz - 23.5.2002 06:32:25
toto neni reseni meho problemu ... tohle jsou jen dva zpusoby otevirani
okna ...
Roland Turcan <rolo(zv)sedas.sk>(zv)clexpert(tec)cz on 22.05.2002 14:00:32
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: Slavek Rydval <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Re[2]: neco jako ShowModal pro MDI aplikaci
Ja to riesim nasledovne:
Okno je vytvorene takto:
BorderIcons = [biSystemMenu]
FormStyle=fsNormal
-----------------------------------
Ked ho chcem modalne tak ho takto zobrazim:
Application.createform(TfrmCStaty,frmCStaty);
with frmCStaty do
begin
btnRefresh.OnClick(self);
if ShowModal=mrOK then
begin
//Nieco urob
end;
FreeAndNil(frmCStaty);
end;
-----------------------------------
Ak ho otvaram ako MDI Child:
Application.CreateForm(tfrmCStaty,frmCStaty);
with frmCStaty do
begin
BorderIcons:=[biSystemMenu,biMinimize];
windowstate:=wsMinimized;
formstyle:=fsMDIChild;
windowstate:=wsNormal;
end;
--
Best regards, TRoland
Richedit insertion error
[*] Jane�ek Michael <michael.janecek(zv)spar-cr(tec)cz> - 23.5.2002 07:15:09
Dobr� den,
Probl�m je n�sleduj�c�: v pr�b�hu jedn� procedury postupn� p�id�v�m ��dky do richeditu. Jen�e ob�as se to zvrtne a ve fin�le to vypad� tak, �e se n�jak prapodivn� zm�n� font v richeditu a vyblinkne to pr�v� Richedit insertion error.
M�m podez�en� na Win eXtra Pr�ser. M��ete mi n�kdo, pros�m, poradit?
P3, Win XP, D5 Enterprise
Michael Jane�ek
--------------------------------------------------------------
SPAR �esk� obchodn� spole�nost s r.o.
Programmer / Delphi developer
Tel. 02 / 67 155 156
Fax. 02 / 67 155 119
E-mail: michael.janecek(zv)spar-cr(tec)cz
http://www.interspar(tec)cz
Rychlost dotazu na FB - IB
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 23.5.2002 07:20:48
From: "Jan Tungli" <Jan.Tungli(zv)datapac.sk>
> a potom urobim po recordoch suspend ,
Muzes mi pls vysvetlit, co mas na mysli tim suspend?
THx, pf
Rychlost dotazu na FB - IB
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 23.5.2002 07:23:17
Najlepsi priklad : (je to priklad z prevzaty z inej konferencie)
select m.filed1, m.filed2, ..., d.field1, d.filed2
from master m, left outer join detail d on d.id = m.id
where m.field1=:parameter
Ak tento join naprogramujem vlastnorucne, ze najprv for select a master
z tabulky a potom select t detail where detail.id = master.id
a potom urobim po recordoch suspend , tak mozes aj 50x-100x zrychlit
dotaz a vysledok je ten isty.
To pisem suvislosti o debate na temu: Rychlost dotazu na FB
Rychlost dotazu na FB - IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 23.5.2002 08:00:12
> > a potom urobim po recordoch suspend ,
> Muzes mi pls vysvetlit, co mas na mysli tim suspend?
mysli tim SUSPEND v ulozene procedure. priklad:
create procedure FastSelect Returns (A, B, C)
as
declare variable id
begin
for
select id, A, B
from master M
into :id, :A, :B
do
begin
for
select C
from detail D
where D.id = :id
into :C
do
suspend;
end
end
jeto psany od boku a chyby typy a stredniky a tak...
dekuji Peca
CRC
[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 23.5.2002 08:03:47
Petr Zahradnik wrote:
>Jiste, to je spravny usudek. Vis, kolik to je kombinaci 2^160? To si jako
>myslis, ze se bude testovat 2^160 variant vstupu, aby se projevila kolize
>hashovaci funkce?
>
>
Neni treba testovat 2^160 ruznych vstupu - staci napoprve vybrat ty dva
spravne :-)
Jak uz tady kdosi podotknul, tak Murphyho zakony funguji. Pokud se budu
snazit najit dva kolizni stringy, tak se mi to taky nemusi do konce
zivota podarit. Ale kdyz na teto teorii postavim a odladim program, tak
se mi muze stat, ze prvni dva stringy, ktere tam zada zakaznik pri
prebirani programu se zrovna trefi. Nevim, jestli ho pak uspokoji
konstatovani, ze ma proste jenom neuveritelnou smulu - zrejme mi to hodi
na hlavu. Proto jsem navrhoval, aby se pro porovnavani pouzily hashe,
ale vysledek aby se overil skutecnym porovnanim puvodnich dat.
>>duplicit asi bude pri zpracovani dat o delce 200B? Nemyslim si, ze je
>>moznost shody zanedbatelna (i kdyz je mala - na tom se shodneme) a proto
>>jsem navrhoval vyse uvedene reseni.
>>
>>
>
>Moznost kolize je zanedbatelna, to mi muzes verit. Toto neni o selskem
>rozumu s pocitanim poctu bajtu zdroje dat, ale o pravdepodobnosti. Udelej
>si programek s hashovaci funkci SHA-1 a projed si ty stovky tisic
>souboru, co mas v pocitaci. Projed si vsechny zpravy v postovnim
>programu, projed si, na co prijdes. A jestli najdes kolizi, tak mi ty dva
>soubory posli. Pravdepodobnost, ze ji najdes, je, jak jsem uz napsal v
>minulem mailu, 1 - 0.5^160, nebo 1 - 6,8423 x 10^-49, chces-li. Pak si
>spocitej pravdepodobnost vyhry jackpotu ve sportce, ktera je proti tomu
>silene moc vysoka. A mas uz predstavu, jak to doopravdy je.
>
To, ze jsem jeste nevyhral ve Sportce, neznamena, ze mi zakaznik nedoda
dva kolizni stringy - i o tom je statistika :-)
eNca
Zobrazovani v threadove aplikace
[*] EFG developer <developer(zv)efg(tec)cz> - 23.5.2002 08:06:20
No to je prave ono, ja jsem chtel _dusledne_ oddelit ty thready od vcl
objektu
a nevim jak nejlepe ty data zobrazovat. Ty 2 treeview je sice pekny
napad, ale
asi to nebude to prave po cem touzim. :-)
Zatim se mi nejlepe jevi ten thread, jak jsem ho posal nize (v treeview
budou maximalne stovky polozek)
Petr Sikola
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Sula Milos
> No to asi ano :)
> a co takhle dat 2 treeview na sebe a vyuzit tak takovej
> umelej doublebuffering (jeden naplnovat v threadu datama - ne
> pres synchronize ale primo - coz bynemelo vadit) a ten co je
> viditelnej zrovna nechat tak jak je a pak ho skryt a nastavit
> viditelnej ten co se prekreslil na pozadi.
>
> From: EFG developer [mailto:developer(zv)efg(tec)cz]
> predpokladam, ze by pak v tom threadu melo byt v metode
> execute neco jako toto:
>
> while not terminated do
> begin
> //mozna jeste: if byla zmena then
> synchronize(vykreslivsechno);
> sleep(100); //nebo nejake jine rozumne cislo
> end;
>
> Petr Sikola
>
Hint window
[*] Radek Pospisil <Pospisil(zv)sprinx(tec)cz> - 23.5.2002 08:15:54
Preji vsem hezky den,
Neznate nekdo snadny zpusob jak zobrazit hint window ? Jedna se o zlute
okno bez ramecku, ktere vypada jako bublina z komixu. Zobrazuje se ve
Windows 2000 a vyse. Upozornuji ze se nejedna o klasicky maly tooltip.
Existuje na to API ?
Podstata problemu je ta, ze potrebuji zobrazit male okno na popredi, ale
tak aby nesebralo focus jinemu oknu.
Poradi nekdo ?
diky
Radek
FB - mazani tabulek
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 23.5.2002 08:46:46
Zdravim,
muj predchozi dotaz nejak nedorazil, tak to zkousim znovu :(
mam nasledujici tabulky
CREATE TABLE Studenti (
ID_Student D_ID,
FName D_Name,
SName D_Name,
ID_Trida D_ID,
ID_Ucitel D_ID,
ID_Reditel D_ID,
ID_Rocnik D_ID,
ID_Obor D_ID,
PRIMARY KEY ( ID_Student )
);
/*Tabulka uchovavajici seznam maturitnich trid*/
CREATE TABLE Tridy (
ID_Trida D_ID,
Name D_Trida,
PRIMARY KEY ( ID_Trida )
);
a dalsi ( ty nejsou podstatne ). Dale jsem si vytvoril relace s referencni
integritou
/*Relace mezi maturitni tridou a studenty*/
ALTER TABLE Studenti ADD
CONSTRAINT Student_Trida FOREIGN KEY ( ID_Trida ) REFERENCES Tridy (
ID_Trida )
ON DELETE NO ACTION
ON UPDATE CASCADE;
no a pak mam trigger pro generovani ID a SP pro praci s daty.
Muj dotaz zni co musim udelat, abych mohl smazat tabulky.
Nejprve mazu SP pak triggery, vyjimky, generatory, ale pri mazani tabulek mi
to hlasi furt nejake zavislosti i kdyz se znazim nejprve smazat relaci
ALTER TABLE Studenti DROP CONSTRAINT Student_Trida
S pozdravem Marek Eichler
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.362 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002
Nejde Post na ADOQuery
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.5.2002 08:48:35
Ahoj,
cca pred 2 dny zde byl podobny dotaz "DBGrid - needituje - Error:
Informace.........?".
Problem je, ze ackoliv je relacni tabulka slozena s radku, neexistuje zadny
zpusob jak radek oznacit ke zpracovani (rozumej identifikovat), krome jeho
obsahu (vyjimkou jsou databaze orientovane na zaznamy, napr DBase,
Paradox,..., ktere udrzuji jeste dodatecnou informaci o poradovem cisle
zaznamu v tabulce).
Tuto vlastnost neni mozno obejit ani "specialnim" driverem, pokud jsou dve
radky tabulky uplne shodne, neni mozne updateovat pouze jednu z nich. Tuto
vlastnost si muzes vyzkouset i v Enterprice Manageru SQL serveru, ani ten to
nezvladne.
Proto je dobre, do kazde tabulky prihodit primarni (rozumej jedinecny) klic.
Casto pouzivanym trikem je, ze at tabulka obsahuje "nativni" jedinecny klic
nebo ne, prida se sloupec typu autoincrement (int)(, ktery se nemusi ani na
nic jineho pouzivat). Jeho vlastnost, ze cislo v nem obsazene se v tabulce
vyskytuje pouze jednou, zajisti, ze lze rozlisit libovolne radky (zaznamy) v
tabulce bez ohledu na obsah ostatnich sloupcu
Tvuj problem vznikl pravdepodobne zduplikovanim radek tabulky pri provozu
nebo testovani.
Pokud se jedna o provozni data, dopln sloupec typu autoincrement nebo stamp,
vyhazej zduplikovane radky (a sloupec si tam uz nech).
Zdravi Pavel
> From: Delphin [mailto:delphin(zv)post(tec)cz]
> Subject: Nejde Post na ADOQuery
> ADOQuery mi vyhodilo tuto hlasku a nemuzu se hnout. Zvlastni
> na tom je to,
> ze to tri dny fungovalo a ted to najednou prestalo.
>
> Key column information is insufficient or incorrect. Too many
> rows were
> affected by update
> W2000,D5 SP2,MSSQL 2000
FB - mazani tabulek
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.5.2002 08:51:01
Nejprve ze vseho vymaz cizi klice. Vzhledem k tomu ze neni kontrolovano, ze
se nevytvori cyklicka vazba klicu muze to byt tvuj problem.
Pavel
> Subject: FB - mazani tabulek
> Zdravim,
> muj predchozi dotaz nejak nedorazil, tak to zkousim znovu :(
>
> mam nasledujici tabulky
>
> CREATE TABLE Studenti (
> ID_Student D_ID,
> FName D_Name,
> SName D_Name,
> ID_Trida D_ID,
> ID_Ucitel D_ID,
> ID_Reditel D_ID,
> ID_Rocnik D_ID,
> ID_Obor D_ID,
> PRIMARY KEY ( ID_Student )
> );
>
> /*Tabulka uchovavajici seznam maturitnich trid*/
> CREATE TABLE Tridy (
> ID_Trida D_ID,
> Name D_Trida,
> PRIMARY KEY ( ID_Trida )
> );
>
> a dalsi ( ty nejsou podstatne ). Dale jsem si vytvoril relace
> s referencni
> integritou
>
> /*Relace mezi maturitni tridou a studenty*/
> ALTER TABLE Studenti ADD
> CONSTRAINT Student_Trida FOREIGN KEY ( ID_Trida )
> REFERENCES Tridy (
> ID_Trida )
> ON DELETE NO ACTION
> ON UPDATE CASCADE;
>
> no a pak mam trigger pro generovani ID a SP pro praci s daty.
>
> Muj dotaz zni co musim udelat, abych mohl smazat tabulky.
> Nejprve mazu SP pak triggery, vyjimky, generatory, ale pri
> mazani tabulek mi
> to hlasi furt nejake zavislosti i kdyz se znazim nejprve smazat relaci
> ALTER TABLE Studenti DROP CONSTRAINT Student_Trida
>
> S pozdravem Marek Eichler
Oprava paradox tabulky
[*] Jaro <jaroslav.hanusek(zv)nou.sk> - 23.5.2002 08:51:21
no neviem, ako to je s bde, ale ked sa mi stalo nieco podobne, pomohol
import do ms.accessu a opatovny
export do paradoxu.
----- Original Message -----
From: "bures" <bures(zv)ssakhk(tec)cz>> Ahoj konfenence, mam projekt ktery vyuziva paradoxove tabulky a pri jednom
> padu systemu doslo k poruseni tabulky a nyni nelze otevrit a pise to error
> Corupt table /index header. Exituje v bde api nejaka funkce na opravu
> trakoveto tabulky... ???
>
> Predem dekuji Vlada
>
>
Rychlost dotazu na FB - IB
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.5.2002 08:52:14
Na dve tabulky to obvykle moc nepomuze (pokud je spravny navrh DB), ale
pokud se v tom selectu objevi vice jak 7 tabulek, tak IB prestane pouzivat
indexy i kdyz tam jsou.
Jedinna moznost je Ulozna Procedura a v te jeden for select
a pomoci dalsich selectu dotahnout jednotliva pole vysledneho dotazu
(na kazdou tabulku jeden select).
Hlavni je zde jistota, jak budou dotazy naplanovany i bez sloziteho ladeni.
Slavek
> mysli tim SUSPEND v ulozene procedure. priklad:
>
> create procedure FastSelect Returns (A, B, C)
> as
> declare variable id
> begin
> for
> select id, A, B
> from master M
> into :id, :A, :B
> do
> begin
> for
> select C
> from detail D
> where D.id = :id
> into :C
> do
> suspend;
> end
> end
>
> jeto psany od boku a chyby typy a stredniky a tak...
>
> dekuji Peca
Generovanie cisel cez SQL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.5.2002 08:53:27
Co ma byt vysledkem :
1. tabulka s cisly
2. pouze record set vraceny Delphi
3. pocetradek ma byt parametr
Pavel
> -----Original Message-----
> From: Roland Turcan [mailto:rolo(zv)sedas.sk]
> Sent: Wednesday, May 22, 2002 3:50 PM
> To: Martin Cajbik
> Subject: Re: Generovanie cisel cez SQL
>
>
> <<< 22. 5. 2002 14:38 - Martin Cajbik "cajbik(zv)sct.sk" >>>
> MC> Je mozne nejako vygenerovat cez SQL (konketne MS SQL)
> zoznam cisel to
> MC> znamena SELECT prikaz ktory by vygeneroval postupnost
> MC> bez akejkolvek navaznosti na niektoru z tabuliek v databaze
>
> Neviem ako v MSSQL ale vo IB/FB to ide cez Stored procedure
>
> declare X integer
> ..
>
> X = 0;
> WHILE (x < 50) DO
> BEGIN
> suspend;
> x = x + 1;
> END
>
>
> Pisem z hlavy takze je tam urcite nejaky trouble.
> --
> Best regards, TRoland
>
Hint window
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.5.2002 08:56:11
> Neznate nekdo snadny zpusob jak zobrazit hint window ? Jedna
> se o zlute
> okno bez ramecku, ktere vypada jako bublina z komixu. Zobrazuje se ve
> Windows 2000 a vyse. Upozornuji ze se nejedna o klasicky maly tooltip.
> Existuje na to API ?
Je to klasicky Tooltip (Windows common control) so stylom TTS_BALLOON.
Je to v common controls od verzie 5.80.
HTH
TOndrej
Databazove aplikace - pouzit komponenty nebo DBkom
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 23.5.2002 09:05:51
On 22 May 2002 at 18:34, PETR KOREC wrote:
> zacinam s programovanim databazovych aplikace astojim pred otazkou,
> zda od zacatku pouzivat
>
> - klasicke komponenty (grid, edit, combo), data do nich strkat a pak
> je po editaci rucne ukladat
>
> nebo se mam zajimat o
>
> DB-komponenty - (DBgrid, DBEdit ...)
Zalezi na tom, jakou aplikaci delas, a nad jakou databazi. Dbaware
komponenty byly udelane predevsim pro Paradox - tam je to jedno a
jejich pouziti je ucelne. Hacek je v tom, ze souborove databaze az na
par vyjimek vrele nedoporucuji. U jednoduchych uloh, ktere nevyzaduji
slozitejsi kontroly, zabezpeceni a zpetne vazby, a ktere museji byt
rychle hotove, se tyto komponenty daji uspesne pouzit take. Pokud ale
chces delat robustnejsi aplikaci s radou zpetnych vazeb nad SQL, pak
tyto komponenty sice urychli zakladni vyvoj, ale pak uz jen zdrzuji a
komplikuji praci, protoze musis slozite doprogramovavat vztahy, ktere
bys bez techto komponent resil daleko snadneji.
S pozdravem
Zbysek Hlinka
None
[*] Tom� Cieslar <cieslar(zv)efisyst(tec)com> - 23.5.2002 09:19:56
V Delphi jsem zat�m v�dy pou��val komponenty a jejich ud�losti. Nyn� ale pot�ebuji pou��t ud�lost p��mo od syst�mu. N�co na zp�sob p�eru�en�. Konkr�tn� kdy� m�m otev�en� port, na ten mi p�ijdou data, aby to vyvolalo ud�lost, ve kter� bych si port p�e�etl. Kter� t��dy zapouzd�uj� zpr�vy Windows a jak na n� reagovat? D�ky
Mereni systemovych prostredku
[*] Tom� Cieslar <cieslar(zv)efisyst(tec)com> - 23.5.2002 09:22:52
Pro informace o pam�ti lze pou��t t��du: TMemoryStatus.
----- Original Message -----
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
To: "Konference Delphi (el. adresa)" <delphi-l(zv)clexpert(tec)cz>; "Konference
Pandora (el. adresa)" <delphin(zv)pandora(tec)cz>
Sent: Wednesday, May 22, 2002 1:28 PM
Subject: Mereni systemovych prostredku
Ahoj vespolek, chtel bych do sveho programu zahrnout take mereni mnozstvi
systemovych prostredku (samozrejme jen W95, W98, Me) podobne jako to delaji
napr. Norton Utilities. Nemate nekdo nejakou free komponentu, zdrojak,
odkaz...?
Diky predem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Jak postavit SQL dotaz
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 23.5.2002 09:33:51
Ahoj,
muzete, prosim, nekdo pomoc s nasledujicim
dotazem. Mam tabulku STROM stromove struktury:
ID ID_RODIC NAZEV
0 null Prvni
1 0 Druha
2 1 Treti
3 1 Ctvrta
a potreboval cestu asi takto:
0 = Prvni
1 = Pvni\Druha
2 = Prvni\Druha\Treti
3 = Prvni\Druha\Ctvrta
Umim to v okamziku, kdy to mam nacteno
v TreeView, ale ted bych potreboval vratit
vyse uvedene jako vysledek selectu nebo view
a nehnat to pres zadne komponenty. Pujde to
nejak nebo je treba SP nebo nejaka pomocna
tabulka ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
Nejde Post na ADOQuery
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 23.5.2002 09:38:53
Jeste bych chtel doplnit, ze na MSSQL se da pouzit jako jedinecny
identifikator GUID, ktery je v nekterych vecech lepsi nez timestamp a
autoincremet ;-) Ale tim nehanim autoinc a timestamp.
Milan
> -----Original Message-----
> From: Lstiburek Pavel
> Pokud se jedna o provozni data, dopln sloupec typu
> autoincrement nebo stamp,
> vyhazej zduplikovane radky (a sloupec si tam uz nech).
Synapse TFTPSend & WinRoute 4
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 23.5.2002 09:41:42
> > kdyz dokazes zjistit co a jak se musi udelat pro to aby FTP proslo
> > pres winroute, pak ti povim jak to nastavit. ;-)
> >
> > Winroute neznam, ale mel jsem dojem, ze je to produkt postaveny na
> > principu prekladu adres, takze by teoreticky nemelo byt potreba
> > nastavovat TFTPsend do firewall modu. Ale je potreba uzit pasivniho
> > modu prenosu dat. (tedy nastavit property PassiveMode na TRUE)
>
> Ano, WinRoute je postaven na NAT, tj. sleduje odeslane pakety a jejich
> odpovedi. Co se tyka primo protokolu FTP, tak jej podporuje. Bez
> jakehokoliv nastaveni podporuje standard, tj. port 21 ridici, port 20
> datovy zpet. V pripade, ze to jede na jinych portech, je to mensi
> problem, protoze pak je nutno bud provest mapovani konkretniho portu na
> stanici, pripadne nebo pouzit pasivni FTP.
Dobre, jak ale dam Synapsi vedet, ze ma pouzit Winroute. Kdyz mam v
konfiguraci IP zadanou vychozi branu, tak to jede pres ni, bez WinRoute, ze.
Kdyz tam tu branu nedam, a mel by se pouzit WinRoute, tak to asi je potreba
nekde nejak nastavit, ne ?? Tedy alespon v IE se to takhle nejak nastavuje
=> pouzit/nepouzit proxy. Mozna, ze jsem jenom mimo ??
Ondrej
Jak postavit SQL dotaz
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 23.5.2002 09:48:05
a co tak spomenut aku databazu pouzivas ?
> dotazem. Mam tabulku STROM stromove struktury:
> ID ID_RODIC NAZEV
> 0 null Prvni
> 1 0 Druha
> 2 1 Treti
> 3 1 Ctvrta
>
> a potreboval cestu asi takto:
> 0 = Prvni
> 1 = Pvni\Druha
> 2 = Prvni\Druha\Treti
> 3 = Prvni\Druha\Ctvrta
Port
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.5.2002 09:54:55
Jaky port ?
Paarrelni, seriovy, game port ?
Asi serivy, tak hledej Async32 komponentu, ta ti z toho udela udalosti.
Slavek
> V Delphi jsem zat�m v�dy pou��val komponenty a jejich ud�losti. Nyn� ale
pot�ebuji pou��t ud�lost p��mo od syst�mu. N�co na zp�sob p�eru�en�.
Konkr�tn� kdy� m�m otev�en� port, na ten mi p�ijdou data, aby to vyvolalo
ud�lost, ve kter� bych si port p�e�etl. Kter� t��dy zapouzd�uj� zpr�vy
Windows a jak na n� reagovat? D�ky
> <<Soubor: ATT00001.htm>>
Databazove aplikace - pouzit komponenty nebo DBkom
[*] PETR KOREC <pkorec(zv)ic-energo(tec)cz> - 23.5.2002 08:56:11
Pavle, dik za odpoved.
Na tvoje komponenty jsem se dival a urcite je zkusim.
Ja jsem zatim pouzival AdvStringGrid a AdvEdit od TMSSoftware, ale ty nejsou
free.
Pokud nejsi v casovem pressu, rad bych se zeptal, proc si myslis, ze pouziti
DB-komponent je ztrata casu. Sam jsem dosud pouzival klasicke komponenty (t�m
mysl�m ne DB komponenty), do kterych jsem data nacital, po editaci ukladal.
Napadlo me vsak, zda to nedelam zbytecne pracne, kdyz komponenty typu DB staci
pripojit...
Nejde Post na ADOQuery
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 23.5.2002 10:00:46
Autorem puvodniho dotazu jsem byl ja. A zajimave bylo i to ze to i me
predtim fungovalo a najednou prestalo. I kdyz jsem pridal primarni klic s
autoincrement tak se tomu nejak stejne nechtelo. Potom se to dostalo i do
faze, ze neslo udelat ani SELECT. Bohuzel ted jsem nemel dost casu, tak jsem
to odlozil a nelaboruji. Kazde nove poznatky privitam.
dik Pavel
-----Original Message-----
From: Lstiburek Pavel [mailto:Lstiburek(zv)ceb(tec)cz]
Sent: Thursday, May 23, 2002 8:49 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Nejde Post na ADOQuery
Ahoj,
cca pred 2 dny zde byl podobny dotaz "DBGrid - needituje - Error:
Informace.........?".
Problem je, ze ackoliv je relacni tabulka slozena s radku, neexistuje zadny
zpusob jak radek oznacit ke zpracovani (rozumej identifikovat), krome jeho
obsahu (vyjimkou jsou databaze orientovane na zaznamy, napr DBase,
Paradox,..., ktere udrzuji jeste dodatecnou informaci o poradovem cisle
zaznamu v tabulce).
Tuto vlastnost neni mozno obejit ani "specialnim" driverem, pokud jsou dve
radky tabulky uplne shodne, neni mozne updateovat pouze jednu z nich. Tuto
vlastnost si muzes vyzkouset i v Enterprice Manageru SQL serveru, ani ten to
nezvladne.
Proto je dobre, do kazde tabulky prihodit primarni (rozumej jedinecny) klic.
Casto pouzivanym trikem je, ze at tabulka obsahuje "nativni" jedinecny klic
nebo ne, prida se sloupec typu autoincrement (int)(, ktery se nemusi ani na
nic jineho pouzivat). Jeho vlastnost, ze cislo v nem obsazene se v tabulce
vyskytuje pouze jednou, zajisti, ze lze rozlisit libovolne radky (zaznamy) v
tabulce bez ohledu na obsah ostatnich sloupcu
Tvuj problem vznikl pravdepodobne zduplikovanim radek tabulky pri provozu
nebo testovani.
Pokud se jedna o provozni data, dopln sloupec typu autoincrement nebo stamp,
vyhazej zduplikovane radky (a sloupec si tam uz nech).
Zdravi Pavel
> From: Delphin [mailto:delphin(zv)post(tec)cz]
> Subject: Nejde Post na ADOQuery
> ADOQuery mi vyhodilo tuto hlasku a nemuzu se hnout. Zvlastni
> na tom je to,
> ze to tri dny fungovalo a ted to najednou prestalo.
>
> Key column information is insufficient or incorrect. Too many
> rows were
> affected by update
> W2000,D5 SP2,MSSQL 2000
IB: Object xxx is in use
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 23.5.2002 10:01:54
Zdravim vsechny,
tento dotaz je smerovan predevsim na P. Cisare, ale pokud nekdo vi tak se
klidne pripojte do debaty.
Proc v pripade zmen struktury DB to nekdy vyhodi hlasku napr.: Object INDEX
is in use ???
Vim, ze pomaha znovu se odpojit a pripojit, nicmene je to velice nepohodlne
v pripade, ze potrebuju udelat kompletni skript pro prevod DB do novejsi
verze a ten skript se bude spoustet u zakazniku...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
nevisualni komponenta pro DB se SQL
[*] Novalis <delphi(zv)novalis.dyndns.org> - 23.5.2002 10:04:56
Dobry den,
chtel jsem se zeptat, jestli nekdo neznate nejakou nevisualni komponentu pro
Delphi (pokud bude i pro Kylix, tim lip), ktera zapouzdruje praci s
databazi, umi SQL dotazy apod, ale pracuje primo se souborem a nepripojuje
se na zadny DB server. Napr. neco jako komponenta pro MySQL, ktera ale
pracuje primo se soubory MySQL databaze ulozenymi lokalne a nemusi se
pripojovat k MySQL serveru.
Snad sem to vysvetlil tak, ze pochopite o co jde :)
Diky,
Novalis
Databazove aplikace - pouzit komponenty nebo DBkom
[*] <ivan.virag(zv)aliatel(tec)cz> - 23.5.2002 10:04:15
Zdravim.
Pokud jde o Oracle, nedoporucuji v zadnem pripade pouzivat db-komponenty. Je to strasne pomale a neda se na aplikacni urovni nejak rozumne osetrit ta funkcionalita, kterou nezajistuje sama database. Vim, o cem mluvim.
Ivan Virag
> pouzivat
> - klasicke komponenty (grid, edit, combo),
> nebo se mam zajimat o
> DB-komponenty - (DBgrid, DBEdit ...)
Object xxx is in use
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 23.5.2002 10:08:51
ahoj,
nedavno jsem psal tovy restructure scriptik.
pokud manipulujes s metadaty, je dobry po kazdem DDL
poslat commit, tim se zmena zplatni a je mozne na ni
navazat. je mozne, ze si dotrazujes nejaka data a IB
pouzije index, ktery chces potom zmenit, ale to nelze,
protoze je aktivni trnsakce, ktera ten index pouziva.
zkus posilat jednotlive kroky skriptu a az narazis na
kriticky krok (vyhodi ti to tu chybu), dej pred nej
commit work; pokud to je v konzoli, jinak commit
jakymkoliv jinym zpusobem. pak to zkus znova, az odchytas
vsecky problemovy mista.
ja to resil commit za kazdym DDL i DML v tom skriptu.
je ovsem riziko, ze pri havarii bude upgrade databaze
na pul cesty, proto _vzdy_ pred spustenim ty davky pustim
na tvrdo zalohu do fajlu s verzi db, datumem a casem v nazvu,
abych mel jistotu, ze uzivatel nezapomnel zazalohovat.
dekuji PeC(zv)
Napojenie na Informix
[*] Jozef Baranec <joba(zv)digitaldocuments.org> - 23.5.2002 10:09:51
Cau
Mozete mi poradit najlepsi sposom na napojenie sa na Informix databazy?
Mam D6 Ent
Jozo
Create CheckBoxu v panelu
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 23.5.2002 10:13:49
Zdravim vsechny,
Mam Form1 a rucne na nej dam CheckBox1 vedle Panel1 a do tohoto panelu dam
dalsi CheckBox2.
Takze CheckBox2, pokud s nim mysi pohnu, se muze pohybovat pouze v tom
Panelu1 a ne mimo nej.
Tak a ted moje otazka:
Jak toto vytvorit programove ? (Myslim ten CheckBox2 aby 'nalezel' jenom
Panelu1). Panel1 a CheckBox1 si vytvorim rucne a CheckBox2 potrebuji
programuve (predem nevim kolik jich bude a pozdeji je chci mazat pouze z
Panelu1)
Snad se to da pochopit co chci.
Dekuji Jan Sebesta
Zjisteni velikosti stahovaneho souboru
[*] martin.falta(zv)obi.de - 23.5.2002 10:17:01
This is a multi-part message in MIME format.
DDV,
ve svem programu potrebuju stahnout protokolem HTTP nejaky soubor a rad
bych uzivateli ukazal prubeh stahovani. K tomu potrebuju zjistit, jak velky
je soubor, ktery chci stahnout. Trochu jsem si hral s fci. HttpQueryInfo a
parametrem QUERY_CONTENT_LENGTH, ale nejak se mi nezadarilo. Mohl by mi
nekdo poslat kratkou ukazku, jak s touto fci. pracovat.
Predem dekuji
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.
Databazove aplikace - pouzit komponenty nebo DBkom
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 23.5.2002 10:20:40
Pomoci DB-komponent parkrat kliknes a mas na oko fungujici databazovy
program. Tak se to vzdycky predvadi na prezentacich a skolenich.
Jednoduche programky pro vlastni potrebu se daji takto delat.
Podle mne je lepsi oddelit data od jejich vizualni interpretace, a to s
ohledem na budouci "drobne" zmeny.
Josef Cerny
Oprava paradox tabulky
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 23.5.2002 10:27:02
Odinstalovat PDX, nainstalovat IB/FB. :-)
Existuje utilita na opravu tabulek TUtility (TUTIL32.exe).
Nebo rucne shodit index a udelat znovu.
Josef Cerny
> Ahoj konfenence, mam projekt ktery vyuziva paradoxove tabulky a pri jednom
> padu systemu doslo k poruseni tabulky a nyni nelze otevrit a pise to error
> Corupt table /index header. Exituje v bde api nejaka funkce na opravu
> trakoveto tabulky... ???Create CheckBoxu v panelu
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 23.5.2002 10:31:46
Zdravim,
melo by stacit nastavit u CheckBox2 vlastnost Parent na Panel1
CheckBox2.Parent := Panel1;
S pozdravem Marek Eichler
----- P�vodn� zpr�va -----
Od: "Sebesta Jan" <delcomseb(zv)volny(tec)cz>
Komu: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 23. kv�tna 2002 10:13
P�edm�t: Create CheckBoxu v panelu
> Zdravim vsechny,
>
> Mam Form1 a rucne na nej dam CheckBox1 vedle Panel1 a do tohoto panelu dam
> dalsi CheckBox2.
> Takze CheckBox2, pokud s nim mysi pohnu, se muze pohybovat pouze v tom
> Panelu1 a ne mimo nej.
>
> Tak a ted moje otazka:
> Jak toto vytvorit programove ? (Myslim ten CheckBox2 aby 'nalezel' jenom
> Panelu1). Panel1 a CheckBox1 si vytvorim rucne a CheckBox2 potrebuji
> programuve (predem nevim kolik jich bude a pozdeji je chci mazat pouze z
> Panelu1)
>
> Snad se to da pochopit co chci.
>
> Dekuji Jan Sebesta
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.362 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002
Automaticke nacteni cd :-((
[*] ji�� B�tu��k����*�Z ��%� � - 23.5.2002 10:35:21
Zdravim
Mam takovy problem ,ve svem programu pouzivam unit CDEvents pro automaticke
nacitani cd po vlozeni do cd-mechaniky .Vse mi funguje az na to ze pokud
vkladam prvni cd tak se mi vetsinou program sprajcne a nic neudela . (zhruba
tak 50 / 50)
Nevi nekdo vcem muze byt chyba .
Predem dekuji.
Kindr - amatersky programator v delphi
viruslog(zv)volny(tec)cz
None
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 23.5.2002 10:37:09
Ahoj,
jestli seriovy, tak SetCommMask a waitcommevent
Vaclav Sazima
> Tom� Cieslar wrote:
>
Konkr�tn� kdy� m�m otev�en� port, na ten mi p�ijdou data,
TTable
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 23.5.2002 10:46:28
Ahoj,
prosim Vas o radu. Mam D5 a Win 2000.
Mam tabulku, napr. ABC (TTable) ale kam a jak napsat vyber nad ni,
napr., ze jeji sloupe XY = 'A'.
Diky
Vasek
Jak postavit SQL dotaz
[*] <ivan.virag(zv)aliatel(tec)cz> - 23.5.2002 10:48:06
Co je to za databazi?
Ivan Virag
> a potreboval cestu asi takto:
> 0 = Prvni
> 1 = Pvni\Druha
> 2 = Prvni\Druha\Treti
> 3 = Prvni\Druha\Ctvrta
Object xxx is in use
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 23.5.2002 10:56:24
Ahoj, Petre!
You wrote :
[Skipped]
PP> pokud manipulujes s metadaty, je dobry po kazdem DDL
PP> poslat commit, tim se zmena zplatni a je mozne na ni
PP> navazat. je mozne, ze si dotrazujes nejaka data a IB
PP> pouzije index, ktery chces potom zmenit, ale to nelze,
PP> protoze je aktivni trnsakce, ktera ten index pouziva.
Obcas i to nepomuze.
Je to tim, ze IB kesuje metadata.
A zmeny se projevi jen po DISCONNECT a CONNECT.
With best regards, Alex Cherednichenko.
powered by FidoLook
www.fidolook.com
TTable
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 23.5.2002 10:57:16
Zdravim,
pokud to je TTable (DBF,DB ..) tak:
Table1.Filter:='X=A and Y=A';
Table1.Filtered:=True;
Jan Sebesta
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 23, 2002 10:46 AM
Subject: TTable
Ahoj,
prosim Vas o radu. Mam D5 a Win 2000.
Mam tabulku, napr. ABC (TTable) ale kam a jak napsat vyber nad ni,
napr., ze jeji sloupe XY = 'A'.
Diky
Vasek
Jak postavit SQL dotaz
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.5.2002 11:05:30
Staci SP, ale necekej zadnou zavratnou rychlost.
neco jako:
for select from strom do
begin
while(id_rodic is not null) do
select id_rodic,nazev from rodic where id=id_rodic into ...
cesta=cesta||'\'||nazev
end
suspend
end
Je to jen struktura, nazvy poli, stredniky .... si musis doplnit sam.
Slavek
Ahoj,
>
> muzete, prosim, nekdo pomoc s nasledujicim
> dotazem. Mam tabulku STROM stromove struktury:
> ID ID_RODIC NAZEV
> 0 null Prvni
> 1 0 Druha
> 2 1 Treti
> 3 1 Ctvrta
>
> a potreboval cestu asi takto:
> 0 = Prvni
> 1 = Pvni\Druha
> 2 = Prvni\Druha\Treti
> 3 = Prvni\Druha\Ctvrta
>
> Umim to v okamziku, kdy to mam nacteno
> v TreeView, ale ted bych potreboval vratit
> vyse uvedene jako vysledek selectu nebo view
> a nehnat to pres zadne komponenty. Pujde to
> nejak nebo je treba SP nebo nejaka pomocna
> tabulka ?
>
Jaka windows jsou na PC
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 23.5.2002 11:06:42
Zdravim
Poradi nekdo jak zjistit ktera Windows bezi na PC (WIn95, WIN98, WIN2000
.....)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002
Synapse TFTPSend & WinRoute 4
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 23.5.2002 11:08:38
> > Ano, WinRoute je postaven na NAT, tj. sleduje odeslane pakety a jejich
> > odpovedi. Co se tyka primo protokolu FTP, tak jej podporuje. Bez
> > jakehokoliv nastaveni podporuje standard, tj. port 21 ridici, port 20
> > datovy zpet. V pripade, ze to jede na jinych portech, je to mensi
> > problem, protoze pak je nutno bud provest mapovani konkretniho portu na
> > stanici, pripadne nebo pouzit pasivni FTP.
> Dobre, jak ale dam Synapsi vedet, ze ma pouzit Winroute. Kdyz mam v
> konfiguraci IP zadanou vychozi branu, tak to jede pres ni, bez WinRoute, ze.
> Kdyz tam tu branu nedam, a mel by se pouzit WinRoute, tak to asi je potreba
> nekde nejak nastavit, ne ?? Tedy alespon v IE se to takhle nejak nastavuje
> => pouzit/nepouzit proxy. Mozna, ze jsem jenom mimo ??
nemusis rikat nic... kdyz mas winroute, tak Winroute prave slouzi
jako brana do internet a mas to nastavene uz v konfiguraci TCP/IP v
pocitaci, ne?
V takovem pripade se v Synapsi chovej jako kdybys byl pripopojeny k
internetu primo. netreba nastavovat jakkoliv proxy a tak.
V IE mas pravdepodobne nastavenou proxy hlavne proto, ze mas nekde
HTTP proxy s cache, ne? :-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
IB: NUMERIC vs. DECIMAL
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 23.5.2002 11:11:19
Zdravim vsechny,
muzete mi, prosim, nekdo vysvetlit jaky je rozdil mezi NUMERIC a DECIMAL
typem ???
V dokumentaci jsem nalezl jediny rozdil a sice u DECIMAL je uvedeno at least
a u NUMERIC exactly, ale stejne to moc nechapu...
Diky
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Jaka windows jsou na PC
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 23.5.2002 11:18:15
no ve win 2000 je prikaz ver snad i v ostatnich windowsech. Jinak z registru(ted nevim presne kde), nebo jeste lepe pomoci WINAPI GetVersionEx
Milos
-----Original Message-----
From: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
Sent: Thursday, May 23, 2002 11:07 AM
To: Konference Delphi 2000
Subject: Jaka windows jsou na PC
Zdravim
Poradi nekdo jak zjistit ktera Windows bezi na PC (WIn95, WIN98, WIN2000
.....)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002
Jak postavit SQL dotaz
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 23.5.2002 11:20:54
To lze udelat velmi snadno
asi takto
select ID, (SELECT RESULT FROM GET_CESTA(ID)) as CESTA
from tabulka
kde GET_CESTA je rekurzivne udelana stored procedura
asi takto pozor pisi zhlavy bez syntax kontroly
create procedure GET_CESTA(ID INTEGER)
RESULT VARCHAR(1000)
as
declare variable IDR INTEGER;
declare variable pom varchar(1000);
begin
RESULT = '';
select nazev
from tabulka
where id = :ID
into :RESULT;
select ID_RODIC From tabulka
where ID = :ID
into :IDR;
If IDR is not null Then begin
select RESULT
from GET_CESTA(:IDR)
into :POM;
result = POM||'\'||RESULT;
end
suspend;
end
Snad je to dobre, pokud ti to nebude fungovat tak se ozvi. Posli mi
treba databazi a ja ti to odladim.
> Ahoj,
>
> muzete, prosim, nekdo pomoc s nasledujicim
> dotazem. Mam tabulku STROM stromove struktury:
> ID ID_RODIC NAZEV
> 0 null Prvni
> 1 0 Druha
> 2 1 Treti
> 3 1 Ctvrta
>
> a potreboval cestu asi takto:
> 0 = Prvni
> 1 = Pvni\Druha
> 2 = Prvni\Druha\Treti
> 3 = Prvni\Druha\Ctvrta
>
> Umim to v okamziku, kdy to mam nacteno
> v TreeView, ale ted bych potreboval vratit
> vyse uvedene jako vysledek selectu nebo view
> a nehnat to pres zadne komponenty. Pujde to
> nejak nebo je treba SP nebo nejaka pomocna
> tabulka ?
>
> S pozdravem a dikem
> =====================================
> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
> =====================================
> GSM: 0602 652 203
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Zjisteni velikosti stahovaneho souboru
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 23.5.2002 11:33:06
Tohle je to, co potrebujes. Ale mozna narazis na ten samy problem, co
ja:
Nektere servery nevraceji delku obsahu, pokud nejde o soubor tyou
"binary" a ani je k tomu nijak nedonutis. Takze pak mas proste smulu a
to je ten pripad, kdy i IE zobrazi (neni znamo)...
// zjisti udaj dany pomoci Query a vraci jako string
function THTTPGetThread.HttpQuery(Query: DWord): string;
var
BufLen, Index: DWord;
S: string;
QueryResult: boolean;
begin
Index := 0;
BufLen := 1024;
SetLength(S, BufLen);
QueryResult := HttpQueryInfo(FHRequest, Query, PChar(S), BufLen,
Index);
if QueryResult then
begin
SetLength(S, BufLen);
Result := S;
end else Result := '';
end; // func
// zjisti velikost souboru
procedure THTTPGetThread.QueryFileSizeAndType;
var
S: string;
begin
UpdateState(hgsQueryFileSize, FUrlFileName);
S := HttpQuery(HTTP_QUERY_CONTENT_LENGTH);
if S = '' then
begin
FFileSize:= 0;
if FReqBinaryData then
Error(esNotBinaryData, sHttpResNotBinaryData)
else FFileType := hftText
end
else begin
FFileType := hftBinary;
FFileSize := StrToInt(S);
end;
end; // proc
martin.falta(zv)obi.de wrote:
>
> DDV,
> ve svem programu potrebuju stahnout protokolem HTTP nejaky soubor a rad
> bych uzivateli ukazal prubeh stahovani. K tomu potrebuju zjistit, jak velky
> je soubor, ktery chci stahnout. Trochu jsem si hral s fci. HttpQueryInfo a
> parametrem QUERY_CONTENT_LENGTH, ale nejak se mi nezadarilo. Mohl by mi
> nekdo poslat kratkou ukazku, jak s touto fci. pracovat.
>
> Predem dekuji
>
> Martin Falta
> OBI IT
> tel.: +420 2 96576 156
> GSM: +420 603 151147
>
> ------------------------------------------------------------------------
> Name: InterScan_Disclaimer.txt
> InterScan_Disclaimer.txt Type: Plain Text (text/plain)
> Encoding: 7bit
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jak postavit SQL dotaz
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.5.2002 11:35:20
Pokud se jedna o MSSQL tak to pujde jedine ulozenou procedurou, u 2000 by to
mohla byt UDF, ale nebude to moc rychle pro kazdy radek se bude muset volat
SELECT tolikrat v ktrere urovni lezi -1.
Pokud chces poslu ti to.
Pavel
lstiburel(zv)ceb(tec)cz
> From: Pavel Malinsky [mailto:spiderland(zv)iol(tec)cz]
> Subject: Jak postavit SQL dotaz
> muzete, prosim, nekdo pomoc s nasledujicim
> dotazem. Mam tabulku STROM stromove struktury:
> ID ID_RODIC NAZEV
> 0 null Prvni
> 1 0 Druha
> 2 1 Treti
> 3 1 Ctvrta
>
> a potreboval cestu asi takto:
> 0 = Prvni
> 1 = Pvni\Druha
> 2 = Prvni\Druha\Treti
> 3 = Prvni\Druha\Ctvrta
>
> Umim to v okamziku, kdy to mam nacteno
> v TreeView, ale ted bych potreboval vratit
> vyse uvedene jako vysledek selectu nebo view
> a nehnat to pres zadne komponenty. Pujde to
> nejak nebo je treba SP nebo nejaka pomocna
> tabulka ?
>
> S pozdravem a dikem
> =====================================
> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
> =====================================
> GSM: 0602 652 203
>
>
Re[2]: Jaka windows jsou na PC
[*] Roland Turcan <rolo(zv)sedas.sk> - 23.5.2002 11:36:31
<<< 23. 5. 2002 11:34 - Sula Milos "milos.sula(zv)oku-su(tec)cz" >>>
SM> Poradi nekdo jak zjistit ktera Windows bezi na PC (WIn95, WIN98, WIN2000
SM> .....)
Pozri JclSysInfo.GetWindowsVersion a tam sa vsetko dozvies.
(www.delphi-jedi.org)
--
Best regards, TRoland
struktura souboru WIN32/PE
[*] Martin Simbartl <martin.simbartl(zv)seznam(tec)cz> - 23.5.2002 11:46:58
Dobry den,
neznate nekdo odkaz na stranky, kde je presna struktura *.exe souboru typu WIN32/PE.
Nejlepe v cestine, ale anglictina by taky nevadila. Diky.
Martin Simbartl
ICQ # 152589363
http://simbartl.hyperlinx(tec)cz
ORACLE: string a null
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 23.5.2002 12:22:18
Zdravim konferenci,
existuje nejake systemove nastaveni ORACLE8 aby automaticky neprevadel
prazdny retezec '' na hodnotu NULL ?
Martin Macko,
M-PRO s.r.o.
U M�sta Chersonu 1595/1
434 01 Most
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~
Tel. a fax:+420 35 610 72 31 a� 33
Mobil: +420 603 48 39 40
Email:martinm(zv)m-pro(tec)cz
Internet:http://www.m-pro(tec)cz
---
Avast: Odchoz� zpr�va vyhodnocena jako �ist�
Datum a �as testov�n�: 23.5.2002 12:22:17
Datum virov� datab�ze (VPS): 20.5.2002
Avast! antivirus od Alwil Software
Avast32 (VPS 20.5.2002): zprava neobsahuje virus
Ud�losti, zpr�vy syst�mu, RS232
[*] Tom� Cieslar <cieslar(zv)efisyst(tec)com> - 23.5.2002 12:28:16
V Delphi jsem zat�m v�dy pou��val komponenty a jejich ud�losti. Nyn� ale pot�ebuji pou��t ud�lost p��mo od syst�mu. N�co na zp�sob p�eru�en�. Konkr�tn� kdy� m�m otev�en� port, na ten mi p�ijdou data, aby to vyvolalo ud�lost, ve kter� bych si port p�e�etl. Kter� t��dy zapouzd�uj� zpr�vy Windows a jak na n� reagovat? D�ky
CRC
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.5.2002 12:30:09
Puvodni zprava, kterou napsal Vaclav Votipka dne 23 May 2002:
> Neni treba testovat 2^160 ruznych vstupu - staci napoprve vybrat ty dva
> spravne :-) Jak uz tady kdosi podotknul, tak Murphyho zakony funguji.
Ja tomu moc neverim :)))
> To, ze jsem jeste nevyhral ve Sportce, neznamena, ze mi zakaznik nedoda
> dva kolizni stringy - i o tom je statistika :-)
Ne, to nedoda, uz z toho duvodu, ze ty stringy nebudou natolik nahodne,
aby k tomu mohlo dojit, ale budou to zrejme nejake smysluplnejsi stringy,
kde se to nikdy nepodari.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Synapse TFTPSend & WinRoute 4
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 23.5.2002 11:33:12
V IE netreba nastavit vobec nic. WR funguje transparentne, sluzi
ako firewall a zaroben robi preklad adries -NAT. WR tiez dokaze
robit proxy, v tom pripade to samozrejme treba v IE nastavit.
P.Svorc
> Dobre, jak ale dam Synapsi vedet, ze ma pouzit Winroute. Kdyz mam v
> konfiguraci IP zadanou vychozi branu, tak to jede pres ni, bez WinRoute, ze.
> Kdyz tam tu branu nedam, a mel by se pouzit WinRoute, tak to asi je potreba
> nekde nejak nastavit, ne ?? Tedy alespon v IE se to takhle nejak nastavuje
> => pouzit/nepouzit proxy. Mozna, ze jsem jenom mimo ??
>
> Ondrej
IB: NUMERIC vs. DECIMAL
[*] Rado Benc <bego(zv)pobox.sk> - 23.5.2002 12:39:31
Milan Tome� wrote:
> muzete mi, prosim, nekdo vysvetlit jaky je rozdil mezi NUMERIC a
> DECIMAL typem ???
> V dokumentaci jsem nalezl jediny rozdil a sice u DECIMAL je uvedeno
> at least a u NUMERIC exactly, ale stejne to moc nechapu...
AFAIK je to jediny roddiel.
Ak tomu dobre rozumiem, ten rozdiel je vo vnutornej reprezentacii,
napr. NUMERIC(4, 2) je interne ukladany ako SMALLINT a DECIMAL(4, 2)
ako INTEGER. A usporene 2 bajty v pripade NUMERIC(4, 2) sa vzdy zidu. :-)
FWIW,
Rado
____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail
Databazove aplikace - pouzit komponenty nebo DBkom
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.5.2002 12:42:16
> Pokud nejsi v casovem pressu, rad bych se zeptal, proc si myslis, ze
> pouziti DB-komponent je ztrata casu.
O tomhle se vedla spousta debat, ktere najdes v archivu. Kdybys mel chut,
zkus to prolezt.
Jinak obecne nejsou snad vazne namitky (az na jednu, viz nize) k
pouzivani db-aware komponent pouze pro cteni, zejmena DBGrid bys
nahrazoval dost pracne, ja osobne pouzivam pouze dve tyto komponenty -
DBGrid a RxDBLookupCombo (vylepseny DBLookupComboBox z RxLib).
Sam jsem dosud pouzival klasicke
> komponenty (t�m mysl�m ne DB komponenty), do kterych jsem data
> nacital, po editaci ukladal. Napadlo me vsak, zda to nedelam zbytecne
> pracne, kdyz komponenty typu DB staci pripojit...
Je to pracne, ale mas vse pod kontrolou. Pro editaci povazuji tento pristup
za nezbytny, pro cteni to ma jednu nectnost: k tomu, abys data videl v
DBEditu, musi dataset po celou dobu (mnohdy zbytecne) byt otevreny,
zatimco obycejne edity Ti umozni data nacist a treba se odpojit od
databaze nebo aspon zavrit dotaz apod. - podle toho co ma smysl. Na
IB6/FB to prinasi moznost nemit otevrenou transakci apod., jelikoz dlouho
otevrene transakce serveru moc nesvedci.
David Lebeda
Databazove aplikace - pouzit komponenty nebo DBkom
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 12:49:48
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> Je to pracne, ale mas vse pod kontrolou. Pro editaci povazuji tento pristup
> za nezbytny, pro cteni to ma jednu nectnost: k tomu, abys data videl v
> DBEditu, musi dataset po celou dobu (mnohdy zbytecne) byt otevreny,
> zatimco obycejne edity Ti umozni data nacist a treba se odpojit od
> databaze nebo aspon zavrit dotaz apod. - podle toho co ma smysl. Na
A co pouzit treba TClientDataSet
Petr Vones
Ud�losti, zpr�vy syst�mu, RS232
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 12:51:45
From: "Tom� Cieslar" <cieslar(zv)efisyst.com>
> V Delphi jsem zat�m v�dy pou��val komponenty a jejich ud�losti. Nyn� ale
> pot�ebuji pou��t ud�lost p��mo od syst�mu. N�co na zp�sob p�eru�en�.
> Konkr�tn� kdy� m�m otev�en� port, na ten mi p�ijdou data, aby to vyvolalo
> ud�lost, ve kter� bych si port p�e�etl.
Podivej se na nejake komponety, popripade do MSDN kde je to cele popsano. Jako
priklad komponent muzes pouzit treba AsyncFree:
http://sourceforge.net/projects/asyncfree
> Kter� t��dy zapouzd�uj� zpr�vy Windows
Zadne.
Petr Vones
komprimace bloku pameti
[*] likeapear <likeapear(zv)centrum(tec)cz> - 23.5.2002 12:52:26
ahoj, shanim nakou jednoduchou rutinu pro zkomprimovani bloku pameti (napr.
pole bytu). jde o optimalizaci posilanych dat pres tcpip socket. ale
potrebuju k ni zdrojaky protoze na druhy strane spojeni neni delphi-aplikace
(ale java-aplikace) a musim tedy zprogramovat odpovidajici dekompresi.
likeapear
Nejde Post na ADOQuery
[*] Delphin <delphin(zv)post(tec)cz> - 23.5.2002 12:54:31
Podarilo se mi izolovat problem:
Mam jednu ADO tabulku a jedno ADO query
table.open;
query.open;
query.edit;
queryoznaceno.asboolean:=not queryoznaceno.asboolean;
query.post; // tady to vyhodi tu chybu
kdyz to table.open dam pryc, tak to funguje zcela normalne.
dotaz je select * from skupiny_detail where id=:id
skupiny_detail je view a je to select s asi 5x join
table.open otvira tabulku, na ktere se odkazuje view pomoci join
Vyresil jsem to prekopanim celeho formulare, takze uz to neni akutni, ale
zajima me to.
----- Original Message -----
From: "Lstiburek Pavel" <Lstiburek(zv)ceb(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 23, 2002 8:48 AM
Subject: RE: Nejde Post na ADOQuery
> Ahoj,
> cca pred 2 dny zde byl podobny dotaz "DBGrid - needituje - Error:
> Informace.........?".
> Problem je, ze ackoliv je relacni tabulka slozena s radku, neexistuje
zadny
> zpusob jak radek oznacit ke zpracovani (rozumej identifikovat), krome jeho
> obsahu (vyjimkou jsou databaze orientovane na zaznamy, napr DBase,
> Paradox,..., ktere udrzuji jeste dodatecnou informaci o poradovem cisle
> zaznamu v tabulce).
> Tuto vlastnost neni mozno obejit ani "specialnim" driverem, pokud jsou dve
> radky tabulky uplne shodne, neni mozne updateovat pouze jednu z nich. Tuto
> vlastnost si muzes vyzkouset i v Enterprice Manageru SQL serveru, ani ten
to
> nezvladne.
> Proto je dobre, do kazde tabulky prihodit primarni (rozumej jedinecny)
klic.
> Casto pouzivanym trikem je, ze at tabulka obsahuje "nativni" jedinecny
klic
> nebo ne, prida se sloupec typu autoincrement (int)(, ktery se nemusi ani
na
> nic jineho pouzivat). Jeho vlastnost, ze cislo v nem obsazene se v tabulce
> vyskytuje pouze jednou, zajisti, ze lze rozlisit libovolne radky (zaznamy)
v
> tabulce bez ohledu na obsah ostatnich sloupcu
>
> Tvuj problem vznikl pravdepodobne zduplikovanim radek tabulky pri provozu
> nebo testovani.
> Pokud se jedna o provozni data, dopln sloupec typu autoincrement nebo
stamp,
> vyhazej zduplikovane radky (a sloupec si tam uz nech).
>
> Zdravi Pavel
> > From: Delphin [mailto:delphin(zv)post(tec)cz]
> > Subject: Nejde Post na ADOQuery
> > ADOQuery mi vyhodilo tuto hlasku a nemuzu se hnout. Zvlastni
> > na tom je to,
> > ze to tri dny fungovalo a ted to najednou prestalo.
> >
> > Key column information is insufficient or incorrect. Too many
> > rows were
> > affected by update
>
> > W2000,D5 SP2,MSSQL 2000
>
Kill programu pro MS-DOS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 12:57:40
From: <korin.delphi(zv)centrum(tec)cz>
> potrebuji nasilne vypnout dos program bezici pod windows 9x.
> Nevite jak na to, aniz by se zaseknul pocitac?
V nejhorsim lze vzdy pouzit TerminateProcess. Bohuzel Win9x se z toho nedokazi
spolehlive vzpamatovat, takze to muze vest k nepredvidatelnemu chovani. Jine
reseni je napsat rozsireni shellu (IShellExecuteHook), ktere pred spustenim
EXE souboru jej muze analyzovat a v pripade ze se jedna o DOS 'aplikaci' tento
soubor misto spusteni napriklad smaze apod. Tim se problem vyresi ;-)
Petr Vones
Hook na otevreni souboru z internetu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 12:59:39
From: "Pavel Kral" <kral(zv)zoner.com>
> Podle tohoto se da vytvorit plugin pro IE, ale nebude
> se to zrejme tykat napr. Mozilly.
Samozrejme, protoze IE poskytuje bohate rozhrani pro vyvojare.
Petr Vones
CRC
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.5.2002 12:59:50
Petr Zahradnik dne 23 May 2002 v 12:30:
> Puvodni zprava, kterou napsal Vaclav Votipka dne 23 May 2002:
>
> > Neni treba testovat 2^160 ruznych vstupu - staci napoprve vybrat ty
> > dva spravne :-) Jak uz tady kdosi podotknul, tak Murphyho zakony
> > funguji.
>
> Ja tomu moc neverim :)))
Ja bych rekl, ze jste ten vypocet pravdepodobnosti, ze se potkaji dva stejne hashe, dost osidili.
Vezmete si tento priklad: mate 30 lidi, predpokladejme, ze jsou vsichni narozeni mezi 1.1.1980 a
31.12.1980, tj. v rozpeti je 365 dni.
Pravdepodobnost, ze vybrani dva jedinci maji stejny den narozeni, je 1/365 = 0,27397 % - to je
metoda, jakou jste pouzivali u toho hashovani.
Ted si spocitejme, jaka je pravdepodobnost, ze nekteri z tech 30 maji stejny datum narozeni.
Prvni clovek je jedinecny.
U druheho cloveka mame pravdepodobnost 364/365 = 0,997260273972, ze se narodil jindy nez 1. clovek.
U tretiho cloveka mame pravdepodobnost 363/365 = 0,994520547945, ze se narodil v jine dny nez dva
predchozi lide.
Pujdeme-li takhle dal, dostaneme pro tech 30 lidi, ze pravdepodobnost, ze se narodili _kazdy_ v
jiny den, je
365/365 * 364/365 * 363/365 * ... * 336/365.
Coz neumim spocitat nijak elegantne, ale kdyz to sjedu v Excelu, vychazi 0,293683757 - tj.
prestoze mame jen 30 lidi na 365 dni, je pravdepodobnost pres 70 %, ze se dva z nich narodili ve
stejny den (!). U te hashovaci funkce to bohuzel neumim spocitat, ale pokud se tu najde nejaky
matematik, snad to dokonci... Pokud bychom tech porovnavanych textu meli hodne (rekneme 10
milionu), mozna by ta pravdepodobnost nebyla tak nizka, jak tvrdite...
Bohuzel k vypoctu potrebujeme spocitat toto:
(2^160)*(2^160-1)*(2^160-2)*(2^160-3)* ... *(2^160-9999999)
A to cele pak vydelit cislem 2^(160*10000000)
Vysledkem by mela byt pravdepodobnost, s jakou se pro 10000000 textu vyskytne stejny vysledek
hashovaci funkce.
Karel Rys
CM_BASE + ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 13:00:03
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> potrebuji udelat novou konstantu pro zpravu mezi objekty, ale nevim co mam
Je nutne to resit zpravou ?
Petr Vones
OpenDialog1 - zakazani voleb
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 13:02:17
From: "Sebesta Jan" <delcomseb(zv)volny(tec)cz>
> jak v OpenDialog zakazu (visible False) horni listu s: oblast hledani,
> aktualni adresar, sipka, o adresar vyse, nova slozka, zobrazeni. Chci
> zobrazit OpenDialog bez te listy.
>
> A dale chci schovat pole s nazvem souboru - aby neslo zadavat prikazy (napr.
> c:\, .. atd)
Mozne by to bylo, ale takovy kod by bylo nutne revidovat pro kazdou novou
verzi Windows (a patrne i VCL). Nevim co ma byt smyslem, ale v pripade ze
chces takto pozmenit pomerne velkou cast OpenDialogu je asi lepsi jej napsat
znova.
Petr Vones
Zobrazovani JPG obrazku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 13:04:47
From: <Zdenek.Gala(zv)datis.cdrail(tec)cz>
> Zacinam delat v Delphi 5 pod Win98SE, tak moje dotazy mozna nebudou prilis
> moudre. Chtel bych udelat programek, ktery by zabrazoval postupne serii
> obrazku. Problem je v tom, ze maji ruznou velikost a jsou svisle i
> vodorovne. Jakou komponentu bych mohl pouzit? Daji se obrazky prilinkovat k
Dobre se k tomu hodi napriklad TDrawGrid
> vyslednemu exe, abych je nemusel distribuovat zvlast?
Jiste, jako resource.
Petr Vones
plug in modules
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 13:05:04
From: "Nagy Dusan" <dnagy(zv)inomacomp.sk>
> Ak ma niekto skusenosti s pisanim modularneho projektu bol
> by som rad keby ma nakopol res. odkazal na nejaky slusny popis.
http://www.obsof.com/delphi_tips/DL613.html
Petr Vones
DelphiX
[*] Peter Surovy <psurovy(zv)uevora.pt> - 23.5.2002 12:08:53
Ahoj
mam Delphi5Ent a win98ME
snazim sa pouzivat DelphiX komponenty
chcel by som sa preto spytat ake ma kto
skusenosti a poznatky.
Totiz dost casto mi to pada
aj ked to mam osetrene
konkr.
onmousedown:
if not candraw=true exit
try ..
rob s Surface.Canvas.pixelom
finally Surface.Canvas.free;
niekedy mi program pri kliknuti
na image z nicoho nic preskoci do prostredia
Delphi pseudo sa ukonci ale SurfaceCanvas
sa asi neuvolni lebo potom sa uz neda pracovat
az do najblizsieho restartu systemu :-(
s tym pixelom sa toho az tak vela nedeje
len sa preratava jeho farba
a najhorsie je ze niekedy to ide niekedy nie.
Dik
Peter Surovy
komprimace bloku pameti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 13:12:09
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> ahoj, shanim nakou jednoduchou rutinu pro zkomprimovani bloku pameti (napr.
> pole bytu). jde o optimalizaci posilanych dat pres tcpip socket. ale
> potrebuju k ni zdrojaky protoze na druhy strane spojeni neni delphi-aplikace
> (ale java-aplikace) a musim tedy zprogramovat odpovidajici dekompresi.
Pak je asi dobre zacit tim, jaky algoritmus pouziva druha strana. Soucasti
Delphi je knihovna ZLIB na instalacnim CD.
Petr Vones
ORACLE: string a null
[*] <ivan.virag(zv)aliatel(tec)cz> - 23.5.2002 13:12:04
Zdravim
Nikoliv. Predpokladalo se to v Oracle 9i, ale, alespon podle dokumentace, je to porad stejne. Oracle bere varchar2 promennou nulove delky automaticky jako null.
> existuje nejake systemove nastaveni ORACLE8 aby
> automaticky neprevadel prazdny retezec '' na hodnotu NULL ?
DelphiX
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 23.5.2002 13:13:48
Nepamatuju si, ze bych nekdy uvolnoval Canvas ... neni chyba prave v tomto ?
Vetsinou se dava Surface.Flip nebo tak neco, ale nevidel jsem, ze to nekdo
uvolnuje :-/.
Petr
Ahoj
mam Delphi5Ent a win98ME
snazim sa pouzivat DelphiX komponenty
chcel by som sa preto spytat ake ma kto
skusenosti a poznatky.
Totiz dost casto mi to pada
aj ked to mam osetrene
konkr.
onmousedown:
if not candraw=true exit
try ..
rob s Surface.Canvas.pixelom
finally Surface.Canvas.free;
niekedy mi program pri kliknuti
na image z nicoho nic preskoci do prostredia
Delphi pseudo sa ukonci ale SurfaceCanvas
sa asi neuvolni lebo potom sa uz neda pracovat
az do najblizsieho restartu systemu :-(
s tym pixelom sa toho az tak vela nedeje
len sa preratava jeho farba
a najhorsie je ze niekedy to ide niekedy nie.
Dik
Peter Surovy
CreateProcess a parametry prikazove radky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 13:17:40
From: "Milan Schembera" <milan(zv)missoftware(tec)cz>
> pouzivam ve sve aplikaci (D5) CreateProcess pro spusteni jine aplikace,
> ktere potrebuji predavat nejake parametry (typicky jako z prikazove radky,
> napr. "aplikace.exe /par1=ano /par2=ne"). Uz si tu s tim hraju dost dlouho
> na to, abych zjistil, ze proste nevim jak. CreateProcess sice aplikaci
> spusti, ale parametry ji nepreda (ta druha aplikace je taky v D5 a cte
> parametry pomoci ParamStr(1) atd.).
Napriklad takto:
uses
JclMiscel;
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec32('"notepad.exe" unit1.pas', SW_SHOWNORMAL);
end;
Petr Vones
Delphi a ORACLE
[*] Rudolf Musil <musil(zv)ro.vutbr(tec)cz> - 23.5.2002 13:20:31
Zajimalo by me zda jde tako ve spojeni nejak zabezpecit (napr. SSL)?
Dik Ruda.M
----------------------------------------------
Ahoj,
na konekt k SRBD Oracle pouzivam komponentu
Direct Oracle Access 3.3.1
pouzival jsem i starsi verze od 3.23, ktere mely chyby.
Muzu ji vrele doporucit, jelikoz pouziva velmi snadno
vesekere funkce Oracle serveru. K sireni sve aplikace,
potom jiz nepotrebujes BDE, veskere spojeni obstara
tvoje EXE aplikace, samozrejme musi byt na pocitaci
Oracle Client. Demoverzi, ktera ma omezeni pouze
v nunotsti pustenych Delphi si muzese stahnout.
http://www.allroundautomations.nl/doa.html
Patrik Plachy
plachy(zv)obis(tec)cz
DelphiX
[*] Peter Surovy <psurovy(zv)uevora.pt> - 23.5.2002 12:24:01
No cital som to na builder(tec)cz
a aj v prikladoch co ku tomu mas
sa to uvolnuje pred kazdym Flipom.
Mam skor pocit ze mne z toho
OnMouseDownu neprebehne nic
a cely program skonci to je zvlastne
----- Original Message -----
From: "Petr" <DelphiForum(zv)seznam(tec)cz>
Sent: Thursday, May 23, 2002 12:13 PM
> Nepamatuju si, ze bych nekdy uvolnoval Canvas ... neni chyba prave v tomto
?
> Vetsinou se dava Surface.Flip nebo tak neco, ale nevidel jsem, ze to nekdo
> uvolnuje :-/.
>
> Petr
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 23.5.2002 13:37:56
zdravim,
> [Skipped]
> PP> pokud manipulujes s metadaty, je dobry po kazdem DDL
> PP> poslat commit, tim se zmena zplatni a je mozne na ni
> PP> navazat. je mozne, ze si dotazujes nejaka data a IB
> PP> pouzije index, ktery chces potom zmenit, ale to nelze,
> PP> protoze je aktivni transakce, ktera ten index pouziva.
> Obcas i to nepomuze.
> Je to tim, ze IB kesuje metadata.
> A zmeny se projevi jen po DISCONNECT a CONNECT.
to je zajimavy, projevi se to i kdyz jsem jediny aktivni USER?
respektive, je-li aktivnich vice USERu, pomuze (DIS)CONNECT vzdy?
existuje nejaky spolehlivy zpusob, jak se vystrihat problemu
spojenych s tim kesovanim a upravou GDB, krom COMMIT, DISCONETC a
novy CONNECT po kazdem DDL? zatim jsem se s tim nesetkal a nerad
bych narazil az pustim aplikaci zakaznikum (ona uz sla, ale co
asi tak muzu cekat :-).
dekuji PeC(zv)
nevisualni komponenta pro DB se SQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.2002 14:03:23
Ahoj,
timhle bys naprosto zabil myslenku SQL databazi a vratil se k
souborovym. Obavam se, ze nic takoveho pro SQL DB neexistuje.
Slavek
> chtel jsem se zeptat, jestli nekdo neznate nejakou nevisualni
> komponentu pro Delphi (pokud bude i pro Kylix, tim lip), ktera
> zapouzdruje praci s databazi, umi SQL dotazy apod, ale pracuje primo
> se souborem a nepripojuje se na zadny DB server. Napr. neco jako
> komponenta pro MySQL, ktera ale pracuje primo se soubory MySQL
> databaze ulozenymi lokalne a nemusi se pripojovat k MySQL serveru.
> Snad sem to vysvetlil tak, ze pochopite o co jde :) Diky, Novalis
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Rado Benc <bego(zv)pobox.sk> - 23.5.2002 14:03:12
Petr Palicka wrote:
> existuje nejaky spolehlivy zpusob, jak se vystrihat problemu
> spojenych s tim kesovanim a upravou GDB, krom COMMIT, DISCONETC a
> novy CONNECT po kazdem DDL?
Este by som shutdownol databazu :
gfix -shut -force 0 f:\data\test.gdb -user sysdba -password masterkey
Po shutdowne moze sysdba normalne pracovat:
isql f:\data\test.gdb -user sysdba -password masterkey
Database: f:\data\test.gdb, User: sysdba
SQL> exit;
Ale normalny user nie:
isql f:\data\test.gdb -user user -password password
Statement failed, SQLCODE = -902
database F:\DATA\TEST.GDB shutdown
Use CONNECT or CREATE DATABASE to specify a database
SQL>
HTH,
Rado
____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail
Prace se Stringy
[*] Zach Tom� - 23.5.2002 14:04:16
Mam takovy jednodychy problem, ale nejak na to nemohu prijit.
Mam napr. vetu: "Jel jsem na kole do kina"
Potrebuji zjistit jestli tato veta obsahuje slovo "kole". Mozna neco delam spatne ale StrComp mi to nechce rict.
Poradite nekdo?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002
komprimace bloku pameti
[*] Martin Valach <vachix(zv)centrum.sk> - 23.5.2002 14:04:54
hladaj TLZRW1 na www.torry.net
description:
By Danny Heijl. Compresses a file with: either the LZRW1/KH or LZH
compression algorithm or the Japanese LZH compression algorithm. Visual
feedback on a Panel if so desired. Now with streams support (file, memory,
handle).
martin
CM_BASE + ???
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 23.5.2002 14:05:16
No ja vlastne nevim - potrebuji vyresit nasledujici:
Mam nevizualni objekt TDBColumn, ktery reprezentuje jeden sloupec v tabulce.
Dale mam vizualni komponentu TTypeEdit, ktera ma zabudovany spousty kontrol
na vkladana data. A ja potrebuji tyto dva objekty nejakym zpusobem propojit
tak, aby kdyz neco zapisu primo do instance objektu TDBColumn, tak aby se mi
to promitlo do vizualni komponenty, a zaroven kdyz neco zapisu do vizualni
komponenty, aby se mi promitlo do prislusne instance objektu TDBColumn.
Pro inspiraci jsem se dival na TDBEdit, kde je to delano pres
TFieldDataLink, ale nevim jak mam neco takoveho implementovat i do techto
objektu...
Zatim se motam porad dokola - naprogramuji si objekt napr.
TDBColumnDataLink, ktery bude vytvaren TypeEditem, ale jak mam definovat
propojeni TypeEdit <-> TDBColumn v designu, kdyz znam pouze jmeno tabulky a
jmeno sloupce, ktery to bude editovat, ale neznam jmeno objektu TDBRecord,
ktery je vlastnikem pole s objekty TDBColumn...
Jestli nekoho neco napada - nakopnete me prosim, protoze uz si s tim lamu
hlavu asi tak 3 dny a opravdu netusim..... :(((
Diky
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> > potrebuji udelat novou konstantu pro zpravu mezi objekty, ale
> nevim co mam
>
> Je nutne to resit zpravou ?
>
> Petr Vones
HTTPSend
[*] plupinek(zv)synthesia(tec)cz - 23.5.2002 14:14:12
Zdravim,
prosim o pomoc s navratovym kodem HTTPGetBinary ze Synapse.
Mam tento kousek kodu
...
var
Soub_HTTP : TFileStream;
Vysledek : boolean;
URL_Ini, Soub_Dily_Ini : string;
........ try
Soub_HTTP := TFileStream.Create(Soub_Dily_Ini, fmCreate );
Vysledek := HttpGetBinary(URL_Ini, Soub_HTTP);
finally
Soub_HTTP.Free;
end;
if Vysledek = true then ....
..................
Problem je nasledujici. Je-li v prenosu chyba, vraci podle predpokladu
False. Zadam-li URL, ktera existuje, funkce vrati True a vytvori se kyzeny
soubor. Je-li ale jako URL zadana nedostupna adresa, tudiz funkce nemuze
skoncit uspechem, pak vraci funkce True. Delam neco spatne, nebo jeste
musim vylovit nejake doplnkove informace?
A jeste o jednu vec bych poprosil, uz se na to nekdo ptal, ale odpoved jsem
asi prehledl - odkud se da vycist pocet prenesenych bytu?
Diky.
S pozdravem
Ing. Petr Lup�nek
datov� komunikacn� syst�my
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel. 040/6825535
mob. 0602/406235
Jak postavit SQL dotaz
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 23.5.2002 14:15:36
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ondrej Krsko
Ahoj,
> a co tak spomenut aku databazu pouzivas ?
za to se omlouvam, IB6, D5, IBO
>
> > dotazem. Mam tabulku STROM stromove struktury:
> > ID ID_RODIC NAZEV
> > 0 null Prvni
> > 1 0 Druha
> > 2 1 Treti
> > 3 1 Ctvrta
> >
> > a potreboval cestu asi takto:
> > 0 = Prvni
> > 1 = Pvni\Druha
> > 2 = Prvni\Druha\Treti
> > 3 = Prvni\Druha\Ctvrta
>
>
>
ORACLE: string a null
[*] skalsky(zv)oksystem(tec)cz - 23.5.2002 14:19:29
Logicky by prazdny string mel byt prazdny string ... NULL je preci
NEDEFINOVANA hodnota ... lec nasledujici priklady jsou dukazem presneho
opaku ... dalo by se mluvit o paradoxu ..
priklad 1) .. na ten se da zvyknout, ale priklad 2) budi pousmani
(testovano na Oracle8i DB)
promenna S je varchar2
1) s:='';
if s is null then stav:='NULL'; else stav:='NOT NULL'; end if;
.. vyhod� NULL
2) S:='';
If s = '' then stav:='ANO'; else stav:='NE'; end if;
... kupodivu STAV ma hodnotu NE - paradox :)
... samozrejme v tomto duchu se nese i delka one promenne, protoze funkce
length(s) nevyhodi nulu, ale ani jine cislo .. proste nevyhodi nic.
Milan
-----Original Message-----
From: ivan.virag(zv)aliatel(tec)cz [mailto:ivan.virag(zv)aliatel(tec)cz]
Sent: Thursday, May 23, 2002 1:12 PM
Subject: RE: ORACLE: string a null
Zdravim
Nikoliv. Predpokladalo se to v Oracle 9i, ale, alespon podle dokumentace, je
to porad stejne. Oracle bere varchar2 promennou nulove delky automaticky
jako null.
> existuje nejake systemove nastaveni ORACLE8 aby
> automaticky neprevadel prazdny retezec '' na hodnotu NULL ?
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 23.5.2002 14:19:34
Jenze jak to udelat, pokud ownerem databaze neni SYSDBA a ani nechci pri
jakemkoliv pristupu k DB uzivatele SYSDBA pouzivat ???
Tak me napada - lze uzivateli SYSDBA odejmout opravneni pro manipulaci s
nejakou DB ???
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Po shutdowne moze sysdba normalne pracovat:
>
> isql f:\data\test.gdb -user sysdba -password masterkey
> Database: f:\data\test.gdb, User: sysdba
> SQL> exit;
>
> Ale normalny user nie:
>
> isql f:\data\test.gdb -user user -password password
> Statement failed, SQLCODE = -902
>
> database F:\DATA\TEST.GDB shutdown
> Use CONNECT or CREATE DATABASE to specify a database
> SQL>
> Rado
ORACLE: string a null
[*] <ivan.virag(zv)aliatel(tec)cz> - 23.5.2002 14:32:25
Zdravim
To neni zadny paradox. Takhle zachazi Oracle s hodnotami null. Pokud je neco null, tak to neni prazdny retezec. A Oracle zkratka do stringovych promennych s nulovou delkou priradi hodnotu null. Takze po prikazu
S := '';
dosadi Oracle do promenne S hodnotu null.
Potom booleovsky vyraz (s = '') je false a (s is null) je true;
Ivan Virag
-----Original Message-----
From: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
Sent: Thursday, May 23, 2002 2:19 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: ORACLE: string a null
Logicky by prazdny string mel byt prazdny string ... NULL je preci
NEDEFINOVANA hodnota ... lec nasledujici priklady jsou dukazem presneho
opaku ... dalo by se mluvit o paradoxu ..
priklad 1) .. na ten se da zvyknout, ale priklad 2) budi pousmani
(testovano na Oracle8i DB)
promenna S je varchar2
1) s:='';
if s is null then stav:='NULL'; else stav:='NOT NULL'; end if;
.. vyhod� NULL
2) S:='';
If s = '' then stav:='ANO'; else stav:='NE'; end if;
... kupodivu STAV ma hodnotu NE - paradox :)
... samozrejme v tomto duchu se nese i delka one promenne, protoze funkce
length(s) nevyhodi nulu, ale ani jine cislo .. proste nevyhodi nic.
Milan
Jak postavit SQL dotaz
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.2002 14:34:24
Ahoj,
to sice ano, ale pokud je DB MS SQL, pak muzes jit do maximalni
hloubky 32. Proto bych to neresil rekurentne, ale prochazenim do
sirky s temporary tabulkou kterazto bude simulovat frontu.
Slavek
> To lze udelat velmi snadno
>
> asi takto
> select ID, (SELECT RESULT FROM GET_CESTA(ID)) as CESTA
> from tabulka
>
> kde GET_CESTA je rekurzivne udelana stored procedura
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
D grafika - rychle kreslenie
[*] Slavomir Cekel <cekel(zv)noves.sk> - 23.5.2002 14:41:30
Zdravim ...
ako co najrychlejsie kreslit 2D ? mam vykreslovat nejake prvky (tvary),
ktorych parametre sa budu casto menit a uzivatel by to mal ONLINE
vidiet, teda tu zmenu. Ako na to ? urcite mate niekto skusenosti s
programovanim grafickych programov, prosiiiiim naladte ma :) vdaka Slavo
btw. robim na W2000 a je to otrasne, (klasicke win su rychlejsie) ale
chcem aby to v pohode fachalo aj na W2000 ...
neco jako ShowModal pro MDI aplikaci
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.2002 14:42:05
Ahoj,
> A z ceho tak usuzujes ???
****Bohuzel z vlastni praxe.
> Vzdyt okno je normalne aktivni, takze
> reaguje na ostatni zpravy (pokud mas nastaveno nonresizable tak to
> preci nevadi) ale pri pokusu o aktivaci proste tohle zamitnes a
> nastavis jako aktivni napr. to modalni okno.....
****Mel jsem na mysli trochu neco jineho. Pokdu MDI okno nastavim
jako
* BorderStyle = bsDialog, pak jde menit velikost, navic dostanu
,,divnou`` ikonu, navic jde zvetsovat/zmensovat. A to nechci.
* BorderStyle = bsSingle a zrusim tlacitko maximalizovat, pak otevru
toto okno, otevru jine. To jine maximalizuju a napr. pomoci Ctrl+F6
se prepnu na to moje a hle, to maximalizovane okno se demaximalizuje,
coz je fuj.
Slavek
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
> > to by zrejme opravdu melo fungovat, ale az do te doby, dokud
> > nezacnes pouzivat takove formulare, ktere nesmeji menit svoji
> > velikost. Pak narazis na operacich typu Tile ci Maximalizace.
> > Slavek
> > > Vytazeno z MS Platform SDK:
> > >
> > > Milan Tomes
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Generovanie cisel cez SQL
[*] Martin Cajbik <cajbik(zv)sct.sk> - 23.5.2002 14:43:09
Ono je to trochu zlozitejsie, vysledkom ma byt join zoznamu cisel
(presnejsie vyrazu nad nim) a dat z tabulky. Cely zoznam cisel je pevny, to
znamena nie je urceny parametrom procedury a je to
obycajny zoznam 0, 1, 2...11 bez vynechanych alebo pridanych cisel. Povodne
som to robil ako zistenie aj zoznamu cisel z tabulky z datami, ale po
nahradeni vyberom z tabulky pevneho zoznamu sa to dost podstatne urychlilo
(comu sa necudujem). Dynamicke vytvaranie zoznamu do temporary tabulky je
pre mna zbytocny medzikrok, to uz je jednoduchsie a rychlejsie (aj ked nie
mozno najkrajsie) si na tento ucel vytvorit pevnu tabulku.
> Co ma byt vysledkem :
> 1. tabulka s cisly
> 2. pouze record set vraceny Delphi
> 3. pocetradek ma byt parametr
>
> Pavel
>
> > -----Original Message-----
> > From: Roland Turcan [mailto:rolo(zv)sedas.sk]
> > Sent: Wednesday, May 22, 2002 3:50 PM
> > To: Martin Cajbik
> > Subject: Re: Generovanie cisel cez SQL
> >
> >
> > <<< 22. 5. 2002 14:38 - Martin Cajbik "cajbik(zv)sct.sk" >>>
> > MC> Je mozne nejako vygenerovat cez SQL (konketne MS SQL)
> > zoznam cisel to
> > MC> znamena SELECT prikaz ktory by vygeneroval postupnost
> > MC> bez akejkolvek navaznosti na niektoru z tabuliek v databaze
> >
> > Neviem ako v MSSQL ale vo IB/FB to ide cez Stored procedure
> >
> > declare X integer
> > ..
> >
> > X = 0;
> > WHILE (x < 50) DO
> > BEGIN
> > suspend;
> > x = x + 1;
> > END
> >
> >
> > Pisem z hlavy takze je tam urcite nejaky trouble.
> > --
> > Best regards, TRoland
> >
>
>
komprimace bloku pameti
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.5.2002 14:46:18
----- Original Message -----
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> ahoj, shanim nakou jednoduchou rutinu pro zkomprimovani bloku pameti (napr.
> pole bytu). jde o optimalizaci posilanych dat pres tcpip socket. ale
> potrebuju k ni zdrojaky protoze na druhy strane spojeni neni delphi-aplikace
> (ale java-aplikace) a musim tedy zprogramovat odpovidajici dekompresi.
Presne ke stejnemu ucelu pouzivame ZLib, ale na druhe strane nemame
Javu ale Linuxovy server (samozrejme v Kylixu). ZLib ma na Linuxu
docela podporu, prislusne knihovny jsou v temer kazde distribuci.
Myslim ze i pro Javu bys neco sehnal...
Martin Schayna
nevisualni komponenta pro DB se SQL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 23.5.2002 14:49:31
> timhle bys naprosto zabil myslenku SQL databazi a vratil se k
> souborovym. Obavam se, ze nic takoveho pro SQL DB neexistuje.
to je pravda,
ale na SF jsem zahledl neco v tom stylu. je to doufam SQLLib
nebo SQLLite (nebo tak nejak nebo LiteSQL, SQLite...). je to snad nejaka
knihovna, ktera umi SQL, ale lokalne, zadnej server.
SF = http://www.sf.net (SourceForge)
pokud by to na SF nebylo, zkus google
dekuji PeC(zv)
CRC
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.5.2002 14:55:37
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> Ja bych rekl, ze jste ten vypocet pravdepodobnosti, ze se potkaji dva
stejne hashe, dost osidili.
>
......
> Bohuzel k vypoctu potrebujeme spocitat toto:
> (2^160)*(2^160-1)*(2^160-2)*(2^160-3)* ... *(2^160-9999999)
>
> A to cele pak vydelit cislem 2^(160*10000000)
>
> Vysledkem by mela byt pravdepodobnost, s jakou se pro 10000000 textu
vyskytne stejny vysledek
> hashovaci funkce.
>
Ahoj.
Proti vypoctum nic nemam, ovsem jak by si definoval pravdepodobnost pro asi
takovouhle fci :
Copy(MD5(IntToStr(DateTimeToInt(now))+GetUserIP),1,8). (Samozrejme, ze v PHP
je to trochu jinak)
V praxi to mam pouzite na www v php scriptu, a je to vice mene 8 prvnich
znaku hashe vytvoreneho z casu a IP adresy navstevnika.
Tohle cislo se generuje pro kazdy pageview takze pro kazdeho navstevnika
tolikrat kolik "stranek" generovanych scriptem si prohledne.
Cele to ukladam do logu do MySQL jako primary key. Pokud by se to neulozilo
posle mi to mail.
Jeste nikdy jsem ho nedostal a to jsem taky ten log zappomel pres rok
vycistit a bylo tam okolo 700000 zaznamu takze jsem si ho ani nestahnul :)
Kdyz jsem to puvodne psal, tak jsem mel obavu, ze ke konfliktu dojde
(predevsim proto, ze to bylo jen tech prvnich osum znaku), ale praxe mi
potvrila, ze se toho bat nemusim.
Ludek
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002