Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Ikonky
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 23.1.2004 16:49:44
http://www.templatemonster.com/lib_index.php
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
CREATE PROCEDURE
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 23.1.2004 16:37:39
Neznam IBX, ale mel bys tam zapnout neco jako IgnoreParams:=true; ono to asi
chce za :DODAVATEL a :POCET_ZAZNAMU dosazovat nejakou hodnotu.
Roman
> Zdravim,
>
> mam problem pri programovem vytvareni databaze Firebird,
> resp pri vytvareni Ulozene procedury.
>
> pomoci Query.ExecSQL volam SQL prikaz
>
> CREATE PROCEDURE "SAVE_PRUMER"
> (
> "DODAVATEL" INTEGER,
> "CAS" DOUBLE PRECISION,
> "POCET" INTEGER
> )
> AS
> DECLARE VARIABLE CAS_CELKEM DOUBLE PRECISION;
> DECLARE VARIABLE POCET_CELKEM INTEGER;
> DECLARE VARIABLE POCET_ZAZNAMU INTEGER;
> BEGIN
> POCET_ZAZNAMU=0;
> SELECT COUNT(*) FROM DODAVATELE WHERE ID=:DODAVATEL INTO
> :POCET_ZAZNAMU; END
>
> A delphi vyhodej Exception 'SQL ERROR=-104 Token Unknown ?'
>
> Vynechamli ten druhy radek (SELECT COUNT(*)...) je vse OK.
>
> Stejny prikaz pomoci IBOConsole projde.
>
> Kde by mohla byt chyba?
>
> K DB se pripojuji pomoci IBX, FireBird 1.5 RC8,
> SQLDialect 3, Transaction nastavena na Read Commited.
>
> Dekuji za odpovedi
>
> Pavel Poles
CREATE PROCEDURE
[*] Jaroslav Bucek <jaroslav.bucek-kd(zv)seznam(tec)cz> - 23.1.2004 16:37:38
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>> select count(id) from tabulkaXY
>
> mi vrati pocet vsech zaznamu stejne jako:
>
> select count(*) from tabulkaXY
Nevim jak FB, ale v MS-SQL je v tom rozdil ten, ze count(*) vrati pocet
vsech vet v tabulce, zatimco count(id) vrati jen pocet vet, kde "id IS NOT
NULL"
Jarda
CREATE PROCEDURE
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 23.1.2004 16:43:42
> Jinak se omlouvam, ale k puvodnimu dotazu me nic nenapada, protoze jsem
dosud nikdy nepouzil "INTO"
> ... where id=5 into 0 ... je mi lito, ale asi bych to videl tady. A co
takhle vyhodit ty predavane parametry a zkusit to jen pro zkousku s
konstatnimi udaji?
Zkousel jsem i konstantni udaje a i bez toho INTO ale stejne nic....
Spis mam pocit jestli nahodou neni problem v pouzivani IBX na
Firebird 1.5. Prohlizim-li SQL monitor tak u kritickeho Prepare
nic nevypise.
Pavel Poles
Jak psat spravne nove zpravy do konference (a neje
[*] Ivan Turcan <iturcan(zv)drake.sk> - 23.1.2004 17:01:47
inu sorry, asi ma to donutilo kuknut sa na toho outlooka :)))) som to
nasiel.... , slaka, a to mi tam tak chybalo......
Ivan
> ----- Original Message -----
> From: "Ivan Turcan" <iturcan(zv)drake.sk>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, January 23, 2004 4:48 PM
> Subject: Re: Jak psat spravne nove zpravy do konference (a nejen tam)
>
> > na margo tohoto emailu, mozes mi rposim povedat kde v MS Outlook exprese
> > toto nastavim pre emaily ? pokial viem (inu mozno sa mylim ale nikde som
> to
> > nenasiel) ale toto je len pre newsgroupy.... inu moj predpoklad je ze
> > vacsina uzivatelov co su tu pouziva postoveho klienta ako OE....
> >
> > rgds,
> >
> > Ivan
> >
> >
> > ----- Original Message -----
> > From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > To: <delphi-l(zv)clexpert(tec)cz>
> > Sent: Friday, January 23, 2004 4:09 PM
> > Subject: Jak psat spravne nove zpravy do konference (a nejen tam)
> >
> >
> > > DD,
> > >
> > >
> > > bylo nebylo:
> > > > Omlouvam se, zapomnel jsem zmenit subject....
> > >
> > > nejde ani tak o ten subjekt, ale o to, ze jsi vytvoril zpravu tak, ze
> > > jsi dal Reply na existujici zpravu v konferenci.
> > >
> > > Je zarazejici (a tohle by mel Admin kamenovat), kolik lidi netusi (ci
> > > jsou jen lini?), ze existuje moznost si v postovnim klientu jednoduse
> > > zobrazit jednotlive diskuse do stromove struktury (a videt tak zpravy,
> > > ktere spolu souvisi pekne pohromade). Kazda zprava odeslana jako Reply
> > > v sobe nese informace o zprave na kterou ma navazovat (hlavicky
> > > References a dalsi). Takze i kdyz se pak posleze zmeni subjekt, takova
> > > zprava bude stejne zarazena do vlakna uplne jine diskuse (je prakticky
> > > neviditelna - protoze nezalozi novy thread).
> > >
> > > Cili pri zakladani noveho threadu zprav je _vzdy_ nutne nechat mailer
> > > vyrobit novou zpravu a adresu prijemce holt doplnit rucne (automaticke
> > > doplnovani vkladanych adres je docela fajn vec, pripadne existuje
> > > adresar - zkuste si to nekdy). Jinak jednak prakticky znemoznuju
> > > prohlizeni zprav po threadech a pak vypadam jako ... (doplnte
> > > libovolne nelichotive oznaceni).
> > >
> > >
> > >
> > > D. Toman
> > >
> > >
> > >
> > >
> > >
> > >
> >
>
Jak psat spravne nove zpravy do konference (a neje
[*] Petr Vones <pvones(zv)vol(tec)cz> - 23.1.2004 16:45:43
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> Je zarazejici (a tohle by mel Admin kamenovat), kolik lidi netusi (ci
> jsou jen lini?), ze existuje moznost si v postovnim klientu jednoduse
> zobrazit jednotlive diskuse do stromove struktury (a videt tak zpravy,
> ktere spolu souvisi pekne pohromade). Kazda zprava odeslana jako Reply
> v sobe nese informace o zprave na kterou ma navazovat (hlavicky
> References a dalsi). Takze i kdyz se pak posleze zmeni subjekt, takova
> zprava bude stejne zarazena do vlakna uplne jine diskuse (je prakticky
> neviditelna - protoze nezalozi novy thread).
Toho jsem si uz vsiml, puvodne jsem to povazoval za chybu v OE, ale zjevne je
to problem lidi kteri neumi posilat maily. Ja osobne vetsinou diskuze mazu
cele dle takto serazeneho subjektu bez dalsiho rozbalovani, takze obcas s tim
asi zmizi i neco, co bylo timto zpusobem nesmyslne zarazeno.
Petr Vones
CREATE PROCEDURE
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 23.1.2004 16:41:40
> Ad 1) Na takovehle datazy si zakladejte vlastni thread, ja jsem puvodne
> chtel dostat odpovod na uplne jinou otazku.
Uz jsem se omluvil, omylem jsem odklik mail, aniz jsem zmenil subject.
> Ad 2) SELECT COUNT (ID) to by bylo spravne. Je to pocet rozdilnych ID v
> tabulce. COUNT (*) - nevim jestli je vubec v SQL specifikovano, rekl
> bych ze je to i clekem blbost.
Blbost to neni, zjistim tak pocet zaznamu vyhovujici dane podmince.
Specifikovano to je.
Pavel Poles
CREATE PROCEDURE
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.1.2004 16:39:40
Problem bude asi v michani nazvu sloupcu s "" a bez.
S temito nazvy ma FB pry nejaky problem.
Slavek
>
> Zdravim,
>
> mam problem pri programovem vytvareni databaze Firebird,
> resp pri vytvareni Ulozene procedury.
>
> pomoci Query.ExecSQL volam SQL prikaz
>
> CREATE PROCEDURE "SAVE_PRUMER"
> (
> "DODAVATEL" INTEGER,
> "CAS" DOUBLE PRECISION,
> "POCET" INTEGER
> )
> AS
> DECLARE VARIABLE CAS_CELKEM DOUBLE PRECISION;
> DECLARE VARIABLE POCET_CELKEM INTEGER;
> DECLARE VARIABLE POCET_ZAZNAMU INTEGER;
> BEGIN
> POCET_ZAZNAMU=0;
> SELECT COUNT(*) FROM DODAVATELE WHERE ID=:DODAVATEL INTO :POCET_ZAZNAMU;
> END
>
> A delphi vyhodej Exception 'SQL ERROR=-104 Token Unknown ?'
>
> Vynechamli ten druhy radek (SELECT COUNT(*)...) je vse OK.
>
> Stejny prikaz pomoci IBOConsole projde.
>
> Kde by mohla byt chyba?
>
> K DB se pripojuji pomoci IBX, FireBird 1.5 RC8,
> SQLDialect 3, Transaction nastavena na Read Commited.
>
> Dekuji za odpovedi
>
> Pavel Poles
>
>
>
>
Jak psat spravne nove zpravy do konference (a neje
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.1.2004 16:09:35
DD,
bylo nebylo:
> Omlouvam se, zapomnel jsem zmenit subject....
nejde ani tak o ten subjekt, ale o to, ze jsi vytvoril zpravu tak, ze
jsi dal Reply na existujici zpravu v konferenci.
Je zarazejici (a tohle by mel Admin kamenovat), kolik lidi netusi (ci
jsou jen lini?), ze existuje moznost si v postovnim klientu jednoduse
zobrazit jednotlive diskuse do stromove struktury (a videt tak zpravy,
ktere spolu souvisi pekne pohromade). Kazda zprava odeslana jako Reply
v sobe nese informace o zprave na kterou ma navazovat (hlavicky
References a dalsi). Takze i kdyz se pak posleze zmeni subjekt, takova
zprava bude stejne zarazena do vlakna uplne jine diskuse (je prakticky
neviditelna - protoze nezalozi novy thread).
Cili pri zakladani noveho threadu zprav je _vzdy_ nutne nechat mailer
vyrobit novou zpravu a adresu prijemce holt doplnit rucne (automaticke
doplnovani vkladanych adres je docela fajn vec, pripadne existuje
adresar - zkuste si to nekdy). Jinak jednak prakticky znemoznuju
prohlizeni zprav po threadech a pak vypadam jako ... (doplnte
libovolne nelichotive oznaceni).
D. Toman
CREATE PROCEDURE
[*] js-delphi(zv)quick(tec)cz - 23.1.2004 16:17:36
Benda Lukas napsal(a):
>Ad 2) SELECT COUNT (ID) to by bylo spravne. Je to pocet rozdilnych ID v
>tabulce. COUNT (*) - nevim jestli je vubec v SQL specifikovano, rekl
>bych ze je to i clekem blbost.
Ahoj.
No asi jako amater bych mel byt zticha a soupat nohama, ale myslim si toto:
select count(id) from tabulkaXY
mi vrati pocet vsech zaznamu stejne jako:
select count(*) from tabulkaXY
Pokud chci pocet rozdilnych id, tak bych to napsal takhle:
select count(id) from tabulkaXY GROUP BY id
Snad mam pravdu :)
Jinak se omlouvam, ale k puvodnimu dotazu me nic nenapada, protoze jsem dosud nikdy nepouzil "INTO"
... where id=5 into 0 ... je mi lito, ale asi bych to videl tady. A co takhle vyhodit ty predavane parametry a zkusit to jen pro zkousku s konstatnimi udaji?
Hezkej vikend!
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
zachyceni stisknuti klavesy
[*] Michal Frohr <mfrohr(zv)seznam(tec)cz> - 23.1.2004 15:43:26
zdravim,
poradil by mi nekdo, jak zachytim stisk libovolne klavesy, i kdyz muj program bude neaktivni nebo skryty?
V podstate takovy spionazni porgramek, ktery zachyti stisk klavesy kdykoliv a kdekoliv...
diky
michal frohr
ikony do tlacitek
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 23.1.2004 15:43:26
Omlouvam se, zapomnel jsem zmenit subject....
----- Original Message -----
From: "Pavel Poles" <delphi(zv)noni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 23, 2004 3:37 PM
Subject: Re: ikony do tlacitek
> Zdravim,
>
> mam problem pri programovem vytvareni databaze Firebird,
> resp pri vytvareni Ulozene procedury.
>
> pomoci Query.ExecSQL volam SQL prikaz
>
> CREATE PROCEDURE "SAVE_PRUMER"
> (
> "DODAVATEL" INTEGER,
> "CAS" DOUBLE PRECISION,
> "POCET" INTEGER
> )
> AS
> DECLARE VARIABLE CAS_CELKEM DOUBLE PRECISION;
> DECLARE VARIABLE POCET_CELKEM INTEGER;
> DECLARE VARIABLE POCET_ZAZNAMU INTEGER;
> BEGIN
> POCET_ZAZNAMU=0;
> SELECT COUNT(*) FROM DODAVATELE WHERE ID=:DODAVATEL INTO :POCET_ZAZNAMU;
> END
>
> A delphi vyhodej Exception 'SQL ERROR=-104 Token Unknown ?'
>
> Vynechamli ten druhy radek (SELECT COUNT(*)...) je vse OK.
>
> Stejny prikaz pomoci IBOConsole projde.
>
> Kde by mohla byt chyba?
>
> K DB se pripojuji pomoci IBX, FireBird 1.5 RC8,
> SQLDialect 3, Transaction nastavena na Read Commited.
>
> Dekuji za odpovedi
>
> Pavel Poles
>
>
>CREATE PROCEDURE
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 23.1.2004 15:55:33
Ad 1) Na takovehle datazy si zakladejte vlastni thread, ja jsem puvodne
chtel dostat odpovod na uplne jinou otazku.
Ad 2) SELECT COUNT (ID) to by bylo spravne. Je to pocet rozdilnych ID v
tabulce. COUNT (*) - nevim jestli je vubec v SQL specifikovano, rekl
bych ze je to i clekem blbost.
Pavel Poles napsal(a):
>Zdravim,
>
>mam problem pri programovem vytvareni databaze Firebird,
>resp pri vytvareni Ulozene procedury.
>
>pomoci Query.ExecSQL volam SQL prikaz
>
>CREATE PROCEDURE "SAVE_PRUMER"
>(
> "DODAVATEL" INTEGER,
> "CAS" DOUBLE PRECISION,
> "POCET" INTEGER
>)
>AS
>DECLARE VARIABLE CAS_CELKEM DOUBLE PRECISION;
>DECLARE VARIABLE POCET_CELKEM INTEGER;
>DECLARE VARIABLE POCET_ZAZNAMU INTEGER;
>BEGIN
> POCET_ZAZNAMU=0;
> SELECT COUNT(*) FROM DODAVATELE WHERE ID=:DODAVATEL INTO :POCET_ZAZNAMU;
>END
>
>A delphi vyhodej Exception 'SQL ERROR=-104 Token Unknown ?'
>
>Vynechamli ten druhy radek (SELECT COUNT(*)...) je vse OK.
>
>Stejny prikaz pomoci IBOConsole projde.
>
>Kde by mohla byt chyba?
>
>K DB se pripojuji pomoci IBX, FireBird 1.5 RC8,
>SQLDialect 3, Transaction nastavena na Read Commited.
>
>Dekuji za odpovedi
>
>Pavel Poles
>ikony do tlacitek
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 23.1.2004 15:49:32
V podstate ano, az na to, ze ikony pujdou asi jen tezko vydavat pod
(L)GPL, nebo MPL, resp. co by v takovem pripade znamenalo zdrojovy kod?
>Milos J. Hrach napsal(a):
>
>
>
>>Co by na tom melo byt nelegalniho?
>>
>>
>
>^^ Je to autorska prace a vztahuje se na to autorsky zakon, tzn. ochrana
>autorovo dila. Pokud to autor vyslovene nepovoli, nebo nevyda pod
>nejakou licenci, jako je treba (L)GPL, MPL apod (uz vidim, jak me zase
>par lidi spucuje, ze jsem debilni opensourcar a LINUXar a mam drzet
>hubu, nejvyse mlcky sledovat konferenci, ale nemluvit. Petre opravdu
>jsem takovet maily dostal bokem konfery, kdyz jsme se tu bavili o
>pouziti GPL komponent, proto nedavno ta narazka), tak je toto
>jednoznacne neautorizovane pouziti casti ciziho dilo... Proste je to
>kradez a autorsky zakon chrani i casti dila!!! Pokud Te programovani
>zivi, doporucuji alespon zbezne procist...
>
>CREATE PROCEDURE
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 23.1.2004 15:41:21
Zdravim,
mam problem pri programovem vytvareni databaze Firebird,
resp pri vytvareni Ulozene procedury.
pomoci Query.ExecSQL volam SQL prikaz
CREATE PROCEDURE "SAVE_PRUMER"
(
"DODAVATEL" INTEGER,
"CAS" DOUBLE PRECISION,
"POCET" INTEGER
)
AS
DECLARE VARIABLE CAS_CELKEM DOUBLE PRECISION;
DECLARE VARIABLE POCET_CELKEM INTEGER;
DECLARE VARIABLE POCET_ZAZNAMU INTEGER;
BEGIN
POCET_ZAZNAMU=0;
SELECT COUNT(*) FROM DODAVATELE WHERE ID=:DODAVATEL INTO :POCET_ZAZNAMU;
END
A delphi vyhodej Exception 'SQL ERROR=-104 Token Unknown ?'
Vynechamli ten druhy radek (SELECT COUNT(*)...) je vse OK.
Stejny prikaz pomoci IBOConsole projde.
Kde by mohla byt chyba?
K DB se pripojuji pomoci IBX, FireBird 1.5 RC8,
SQLDialect 3, Transaction nastavena na Read Commited.
Dekuji za odpovedi
Pavel Poles
ikony do tlacitek
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 23.1.2004 15:37:16
Zdravim,
mam problem pri programovem vytvareni databaze Firebird,
resp pri vytvareni Ulozene procedury.
pomoci Query.ExecSQL volam SQL prikaz
CREATE PROCEDURE "SAVE_PRUMER"
(
"DODAVATEL" INTEGER,
"CAS" DOUBLE PRECISION,
"POCET" INTEGER
)
AS
DECLARE VARIABLE CAS_CELKEM DOUBLE PRECISION;
DECLARE VARIABLE POCET_CELKEM INTEGER;
DECLARE VARIABLE POCET_ZAZNAMU INTEGER;
BEGIN
POCET_ZAZNAMU=0;
SELECT COUNT(*) FROM DODAVATELE WHERE ID=:DODAVATEL INTO :POCET_ZAZNAMU;
END
A delphi vyhodej Exception 'SQL ERROR=-104 Token Unknown ?'
Vynechamli ten druhy radek (SELECT COUNT(*)...) je vse OK.
Stejny prikaz pomoci IBOConsole projde.
Kde by mohla byt chyba?
K DB se pripojuji pomoci IBX, FireBird 1.5 RC8,
SQLDialect 3, Transaction nastavena na Read Commited.
Dekuji za odpovedi
Pavel Poles
ID procesu
[*] Petr Langer <langer(zv)xdom(tec)cz> - 23.1.2004 15:09:09
PSAPI.
pl
----- Original Message -----
From: "Milos J. Hrach" <jhrach(zv)post(tec)cz>
Subject: Re: ID procesu
> Diky, ale bohuzel mi to v DELPHI6 Profesional nefunguje a ani v
> helpu nemohu najit odkazy na nektre funkce, napr. Process32First.
> Jakou Unitu musim pouzit, aby nebyl problem. JAkub
ikony do tlacitek
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 23.1.2004 15:27:10
>tak moc nesmi, nechapu proc teda vznikaji programy ktere vyhledavaji v
>resource programech obrazky, ikony... a pak je ukladaji na disk a jsou to
>shareware verze kde se plati autorovi za registraci. Je to snad pro domaci
>pouziti, proc to teda nikde neuvadeji. Uprimne mam v tom tedy zmatek.
tak proc treba vznikaji programy na odstraneni Region zamku z DVD,
odstraneni Macrovision ochrany filmu a podobne a taky se za ne plati?
Neplatis tomu autorovi za ten ukradeny film na DVD, ale za to ze napsal
nejaky algoritmus (musel ho v necem napsat a stravil nad tim urcity cas).
Vem si ze ja pouziju ve sve aplikaci ikonky za ktere jsem zaplatil nejake
$$ a ty si je pres resource hacker vykuchas a pouzijes take. Budu mit z
toho radost? Nebo z toho bude mit radost autor puvodnich ikonek?
Pokud se jedna o zakladni ikonky ala Open, Save, a pod. doporucoval bych se
podivat na stranky MS (odkaz uz nemam), tam popisujou ktere z dilny MS
muzes pouzivat ve svych aplikacich. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
ID procesu
[*] Petr Vones <pvones(zv)vol(tec)cz> - 23.1.2004 14:43:06
From: "Milos J. Hrach" <jhrach(zv)post(tec)cz>
> Poradite mi nekdo jak pri behu programu zjistit ID konkretniho
> procesu podle jmena a pokud takovy proces bezi jak jej ukoncit?
Pomoci funkci GetPidFromProcessName a TerminateApp v JclSysInfo z JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
ikony do tlacitek
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 23.1.2004 14:29:05
No to ja nastesti delam na legalnim proffesionalu (D7), pod legalnim
windowsem s legalnim AVG a mam naistalovany pouze legalni a/nebo freewarove
programy popripade neregistrovane shareware verze. Nevedel jsem ze se to az
tak moc nesmi, nechapu proc teda vznikaji programy ktere vyhledavaji v
resource programech obrazky, ikony... a pak je ukladaji na disk a jsou to
shareware verze kde se plati autorovi za registraci. Je to snad pro domaci
pouziti, proc to teda nikde neuvadeji. Uprimne mam v tom tedy zmatek.
Radek Szurman
> Radek Szurman napsal(a):
>
> > Ja to resim resource hackerem. Jednoduse vytahnu vsechnu grafiku z
nejakeho
> > pekneho programu a ukladam do slozek, a pak jen vytahuju a popripade
> > upravuju.
> >
> > Radek
> >
> >
> >
> >>Tim nejjednodusim moznym zpusobem. Kdyz se mi nejaka ikona libi,
> >>udelam si otisk obrazovky a ikonu si znej vykousnu do
> >>samostatneho souboru.
> ^^^Panove, tim bych se radsi ani nechlubil... Jedine nejake volne ikony
> muzete "jen tak" pouzit, ale i tak musite zminit jejich autora, ale
> toto? No je to za hranou zakona, protoze kradete a jeste to verejne
> troubite do sveta. BSA (nebo snad BIS ci dokonce BSE) na Vas, delate
> ostudu programatorum... Jeste jste se urcite zapomeli pochlubit, ze
> delate na Enterprise Edition a vydelavate na programech...
>
> --
> MaReK "Penguin" Olsavsky
> ICQ#: 160 178 925
> web: http://olsavsky.tk
> !Dulezite: http://www.phax.sigut.net/nodoc.html
>
>
>ikony do tlacitek
[*] MaReK Penguin Olsavsky <orsm(zv)atlas(tec)cz> - 23.1.2004 13:59:00
Milos J. Hrach napsal(a):
> Co by na tom melo byt nelegalniho?
^^ Je to autorska prace a vztahuje se na to autorsky zakon, tzn. ochrana
autorovo dila. Pokud to autor vyslovene nepovoli, nebo nevyda pod
nejakou licenci, jako je treba (L)GPL, MPL apod (uz vidim, jak me zase
par lidi spucuje, ze jsem debilni opensourcar a LINUXar a mam drzet
hubu, nejvyse mlcky sledovat konferenci, ale nemluvit. Petre opravdu
jsem takovet maily dostal bokem konfery, kdyz jsme se tu bavili o
pouziti GPL komponent, proto nedavno ta narazka), tak je toto
jednoznacne neautorizovane pouziti casti ciziho dilo... Proste je to
kradez a autorsky zakon chrani i casti dila!!! Pokud Te programovani
zivi, doporucuji alespon zbezne procist...
--
MaReK "Penguin" Olsavsky
ICQ#: 160 178 925
web: http://olsavsky.tk
!Dulezite: http://www.phax.sigut.net/nodoc.html
ikony do tlacitek
[*] Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 23.1.2004 13:59:01
Ahoj,
ja pouzivam na kresleni ikon program, ktery me naprosto uspokojuje ve funkcich
jmenuje se AWicons Pro. Kresli se tim velice dobre a zvlada vsechno co jsem kdy potreboval.
Pravda je to placene, ale neni to tak zle.
--
S pozdravem,
Martin Radvansky
ID procesu
[*] Milos J. Hrach <jhrach(zv)post(tec)cz> - 23.1.2004 14:03:02
Diky, ale bohuzel mi to v DELPHI6 Profesional nefunguje a ani v
helpu nemohu najit odkazy na nektre funkce, napr. Process32First.
Jakou Unitu musim pouzit, aby nebyl problem. JAkub
----- PUVODNI ZPRAVA -----
Od: "Jiri Virt" <virt(zv)volny(tec)cz>
Komu: delphi-l(zv)clexpert(tec)cz
Predmet: Re: ID procesu
Datum: 23.1.2004 - 13:17:58
> function KillProcess(const ExeName: String):
> Boolean;
> var
> SnapProcHandle: THandle;
> ProcEntry: TProcessEntry32;
> NextProc: Boolean;
> begin
> Result := False;
> SnapProcHandle :=
> CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,
> 0);
> if SnapProcHandle <> THandle(-1) then
> begin
> ProcEntry.dwSize := Sizeof(ProcEntry);
> NextProc := Process32First(SnapProcHandle,
> ProcEntry);
> while NextProc do
> begin
> if
>
AnsiStrIComp(PChar(UpperCase(ExtractFileName(ProcEntry.szExeFile))),
> PChar(Uppercase(ExeName))) = 0 then
> result :=
> TerminateProcess(ProcEntry.th32ProcessID,0);
> NextProc := Process32Next(SnapProcHandle,
> ProcEntry);
> end;
> CloseHandle(SnapProcHandle);
> end;
> end;
> Jirka Virt
>
>
>
>
--
VOLNY klub: Modemisti vseho druhu, spojte se!
http://klub.volny(tec)cz
Hook na SetSystemDate ?
[*] RNDr. Milan Vorisek <vorisek(zv)igtt(tec)cz> - 23.1.2004 13:50:59
> > Mam takovou potiz: nekolikrat za hodinu mi najednou poskoci hodiny asi
> > o 4 minuty dopredu a zrejme to ma na svedomi nejaky programek.
> > Tak premyslim, jestli bych nedokazal nepsat programek, ktery by ho
> > nejak takto vystopoval.
System posila vsem aplikacim zpravu WM_TIMECHANGE
To staci odchytit.
Me to dela take, ale mene casto a vzdy o 1 minutu.
Ja bych to potreboval uplne eliminovat.
Nevi nekdo, co to zpusobuje???
Milan
ikony do tlacitek
[*] MaReK Penguin Olsavsky <orsm(zv)atlas(tec)cz> - 23.1.2004 13:46:58
Radek Szurman napsal(a):
> Ja to resim resource hackerem. Jednoduse vytahnu vsechnu grafiku z nejakeho
> pekneho programu a ukladam do slozek, a pak jen vytahuju a popripade
> upravuju.
>
> Radek
>
>
>
>>Tim nejjednodusim moznym zpusobem. Kdyz se mi nejaka ikona libi,
>>udelam si otisk obrazovky a ikonu si znej vykousnu do
>>samostatneho souboru.
^^^Panove, tim bych se radsi ani nechlubil... Jedine nejake volne ikony
muzete "jen tak" pouzit, ale i tak musite zminit jejich autora, ale
toto? No je to za hranou zakona, protoze kradete a jeste to verejne
troubite do sveta. BSA (nebo snad BIS ci dokonce BSE) na Vas, delate
ostudu programatorum... Jeste jste se urcite zapomeli pochlubit, ze
delate na Enterprise Edition a vydelavate na programech...
--
MaReK "Penguin" Olsavsky
ICQ#: 160 178 925
web: http://olsavsky.tk
!Dulezite: http://www.phax.sigut.net/nodoc.html
ikony do tlacitek
[*] Milos J. Hrach <jhrach(zv)post(tec)cz> - 23.1.2004 13:10:52
Co by na tom melo byt nelegalniho?
J.
----- PUVODNI ZPRAVA -----
Od: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
Komu: delphi-l(zv)clexpert(tec)cz
Predmet: Re: ikony do tlacitek
Datum: 23.1.2004 - 12:51:52
> Ale to zrovna neni moc legalni. Nebo jo?
>
> Zapletal Martin
> Vyvoj SW, Technik
>
> > Tim nejjednodusim moznym zpusobem. Kdyz se
> > mi nejaka ikona libi,
> > udelam si otisk obrazovky a ikonu si znej
> > vykousnu do
> > samostatneho souboru.
>
>
>
>
--
Chces kilo? Tak pripoj kamose pres VOLNY.
Vice na http://studentpartner.volny(tec)cz/ikony do tlacitek
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 23.1.2004 13:10:52
Naprosto nejlepsi ikonky ktere jsem kdy videl:
http://www.foood.net/icons/index.htm
Nekolik stovek dalsich:
http://www.darkproject.com/Icons/Icons.htm
> > > Chtel bych se zeptat jak vy v praxi resite
> > > malovani ruznych bitmap do
> > > tlacitek a ruznych menu. Zatim jsem to
> > > vsechno maloval rucne v paintu nebo
> > > corelu, ale urcite existuji nejaka
> > > pohodlnejsi a castecne hotova reseni. Jak
> > > to delate Vy? BMP z delphi jsou v dnesni dobe
> > > zastarale a nevkusne. Na netu
> > > sice existuji ruzne kolekce, ale pokud za
> > > neco stoji, tak zase nejsou v
> > > pozadovanem rozliseni. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
BDE a ORACLE! POMOC! BDE spatne generuje SQL pro O
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 23.1.2004 13:38:57
Asi nejlepsi je vytvorit vlastni Update, Insert a Delete SQL, pres
komponentu UpdateSQL.
Vlada napsal(a):
>A kde bych nejake takove nastaveni mel hledat? Nejaky napad?
>Dik!
>
>ID procesu
[*] Petr Langer <langer(zv)xdom(tec)cz> - 23.1.2004 13:26:55
Jeste bych doplnil, ze o trosicku cistsi zpusob mi prijde enumerovat vsechna
okna daneho procesu (nebo alespon hlavni, to je ale problem zjistit) a
poslat jim:
SendMessageTimeout(window, WM_CLOSE, 0, 0, SMTO_ABORTIFHUNG and SMTO_BLOCK,
1000, retRes);
a teprve pokud to nezabere, tak poslat TerminateProcess. Zalezi na duvodu
proc chces ten proces odstrelit. Pokud z duvodu ze nereaguje, tak staci
volat primo TerminateProcess. V opacnem pripade bude mit moznost uzavrit
rozdelanou praci.
Petr Langer
----- Original Message -----
From: "Jiri Virt" <virt(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 23, 2004 1:00 PM
Subject: Re: ID procesu
> function KillProcess(const ExeName: String): Boolean;
> var
> SnapProcHandle: THandle;
> ProcEntry: TProcessEntry32;
> NextProc: Boolean;
> begin
> Result := False;
> SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
> if SnapProcHandle <> THandle(-1) then
> begin
> ProcEntry.dwSize := Sizeof(ProcEntry);
> NextProc := Process32First(SnapProcHandle, ProcEntry);
> while NextProc do
> begin
> if
> AnsiStrIComp(PChar(UpperCase(ExtractFileName(ProcEntry.szExeFile))),
> PChar(Uppercase(ExeName))) = 0 then
> result := TerminateProcess(ProcEntry.th32ProcessID,0);
> NextProc := Process32Next(SnapProcHandle, ProcEntry);
> end;
> CloseHandle(SnapProcHandle);
> end;
> end;
> Jirka Virt
Udalost pri zavreni okna helpu
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 23.1.2004 13:24:54
Zdravim
V aplikaci volam help
application.HelpFile:=ExtractFilePath(Application.ExeName) + 'Test.hlp';
application.Helpjump('');
Jak zjistim, ze uzivatel zavrel okno helpu "krizkem" nebo "soubor-konec"
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
ID procesu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 23.1.2004 13:00:50
function KillProcess(const ExeName: String): Boolean;
var
SnapProcHandle: THandle;
ProcEntry: TProcessEntry32;
NextProc: Boolean;
begin
Result := False;
SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if SnapProcHandle <> THandle(-1) then
begin
ProcEntry.dwSize := Sizeof(ProcEntry);
NextProc := Process32First(SnapProcHandle, ProcEntry);
while NextProc do
begin
if
AnsiStrIComp(PChar(UpperCase(ExtractFileName(ProcEntry.szExeFile))),
PChar(Uppercase(ExeName))) = 0 then
result := TerminateProcess(ProcEntry.th32ProcessID,0);
NextProc := Process32Next(SnapProcHandle, ProcEntry);
end;
CloseHandle(SnapProcHandle);
end;
end;
Jirka Virt
ADMIN: ikony do tlacitek
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.1.2004 12:56:49
Puvodni zprava ze dne 1/23/2004:
> Ja to resim resource hackerem. Jednoduse vytahnu vsechnu grafiku z nejakeho
> pekneho programu a ukladam do slozek, a pak jen vytahuju a popripade
> upravuju.
Tak tohle tu nechci videt - nejen ze neumis quotovat, ale je v primem
rozporu s pravidly tu nabadat k poruseni zakona.
Pro vsechny: ukoncete okamzite debaty v rozporu se zakonem. V opacnem
pripade pristoupim okamzite k restrikcim.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
ikony do tlacitek
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 23.1.2004 12:46:46
Ja to resim resource hackerem. Jednoduse vytahnu vsechnu grafiku z nejakeho
pekneho programu a ukladam do slozek, a pak jen vytahuju a popripade
upravuju.
Radek
> Tim nejjednodusim moznym zpusobem. Kdyz se mi nejaka ikona libi,
> udelam si otisk obrazovky a ikonu si znej vykousnu do
> samostatneho souboru.
>
> Jakub
>
> ----- PUVODNI ZPRAVA -----
> Od: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> Predmet: ikony do tlacitek
> Datum: 23.1.2004 - 11:04:50
>
> > Chtel bych se zeptat jak vy v praxi resite
> > malovani ruznych bitmap do
> > tlacitek a ruznych menu. Zatim jsem to
> > vsechno maloval rucne v paintu nebo
> > corelu, ale urcite existuji nejaka
> > pohodlnejsi a castecne hotova reseni. Jak
> > to delate Vy? BMP z delphi jsou v dnesni dobe
> > zastarale a nevkusne. Na netu
> > sice existuji ruzne kolekce, ale pokud za
> > neco stoji, tak zase nejsou v
> > pozadovanem rozliseni.
> >
> > Zapletal Martin
> > Vyvoj SW, Technik
> >
> > inoma
> > Skacelova 18, 61200, Brno, 61200
> > telefon-fax: 541211337, 541240721
> > e-mail: zapletal(zv)inoma(tec)cz
> > http: www.inoma(tec)cz
> >
> >
> >
> >
>
> --
> REALITY.VOLNY.CZ, realitni server s komfortnim vyhledavanim,
> 50.000 nemovitosti na prodej nebo pronajem, hypotecni
> poradenstvi, atraktivni clanky a zpravy ze sveta bydleni.
> http://reality.volny(tec)cz
>
>
>
>ikony do tlacitek
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 23.1.2004 12:34:40
Ale to zrovna neni moc legalni. Nebo jo?
Zapletal Martin
Vyvoj SW, Technik
> Tim nejjednodusim moznym zpusobem. Kdyz se mi nejaka ikona libi,
> udelam si otisk obrazovky a ikonu si znej vykousnu do
> samostatneho souboru.ikony do tlacitek
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 23.1.2004 12:32:35
no image editor neumi ani tolik co paint.
Zapletal Martin
> Ne ze by se mi to zdalo jako vhodna reakce na muj prispevek, ale poresto
> vam poradim. Primo v Delphi je dodavan Image Editor, presne pro potreby
> delani komponent. No a taky pouzivam Gimp a vyrezavam obrazky odjinud.FreeReport - prednastaveni fontu
[*] Pave Gazda <pavel_gazda(zv)datasw(tec)cz> - 23.1.2004 11:10:22
Zdravim,
zkousim moznosti tisku pres FreeReport ( FastReport planuji koupit )
a pokusim se priblizit problem, ktery mam.
Definuji si report pro tisk souboru (txt, rtf) na vice stranek, vse je
vporadku.
Kdyz programove nactu ulozeny report, do komponenty TFrRichView nactu
plain text ze souboru, pak pri preview nejsou radky textu rovnomerne
rozvrzeny.
Pritom staci, abych po nacteni textu otevrel v Designeru FontDailog a
potvrdil to
co uz je nastaveno a je vse vporadku.
Nevi nekdo, jak docilit stejneho efektu, aniz bych musel uzivatele obtezovat
zobrazovanim zbytecneho dialogu ?
Diky.
Pavel
WinXP, D6-Up2
ID procesu
[*] Milos J. Hrach <jhrach(zv)post(tec)cz> - 23.1.2004 11:10:23
Ahojte.
Poradite mi nekdo jak pri behu programu zjistit ID konkretniho
procesu podle jmena a pokud takovy proces bezi jak jej ukoncit?
Diky Jakub
--
REALITY.VOLNY.CZ, realitni server s komfortnim vyhledavanim,
50.000 nemovitosti na prodej nebo pronajem, hypotecni
poradenstvi, atraktivni clanky a zpravy ze sveta bydleni.
http://reality.volny(tec)cz
uvolneni a znovuvytvoreni formulare
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 23.1.2004 11:38:30
Legitimni to asi je, pouzivam jen trochu odlisnou konstrukci
if Form1 = nil then Form1:= TForm1.Create(nil);
...
FreeAndNil(Form1); <---- usetris jeden radek :-))) jak moc je legitimni pouziti konstrukce:
************
if Form1=nil then
Application.CreateForm(TForm1, Form1);
...
Form1.Release;
Form1:=nil;
************
ono totiz jinak je pri druhem pruchodu podminkou
promenna Form1 sice nenilova, ale odkazuje
na uvolnenou pamet. Release zasle zpravu oknu
Form1 a to se uvolni samo.uvolneni a znovuvytvoreni formulare
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 23.1.2004 11:26:27
Je to spravne, od Delphi 6 (tusim) jde zavolat i:
FreeAndNil(Form1);
misto poslednich 2 radku.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Friday, January 23, 2004, 11:16:25 AM, you wrote:
pp> Ahoj,
pp> jak moc je legitimni pouziti konstrukce:
pp> ************
pp> if Form1=nil then
pp> Application.CreateForm(TForm1, Form1);
pp> ...
pp> Form1.Release;
pp> Form1:=nil;
pp> ************
pp> ono totiz jinak je pri druhem pruchodu podminkou
pp> promenna Form1 sice nenilova, ale odkazuje
pp> na uvolnenou pamet. Release zasle zpravu oknu
pp> Form1 a to se uvolni samo.
pp> dekuji
pp> peca
uvolneni a znovuvytvoreni formulare
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 23.1.2004 11:26:28
Pouzivam FreeAndNil()
Pavel
> From: petr palicka [mailto:palicka.petr(zv)seznam(tec)cz]
> jak moc je legitimni pouziti konstrukce:
> ************
> if Form1=nil then
> Application.CreateForm(TForm1, Form1);
> ...
> Form1.Release;
> Form1:=nil;
> ************
> ono totiz jinak je pri druhem pruchodu podminkou
> promenna Form1 sice nenilova, ale odkazuje
> na uvolnenou pamet. Release zasle zpravu oknu
> Form1 a to se uvolni samo.uvolneni a znovuvytvoreni formulare
[*] Svelta Jaroslav <jaroslav.svelta(zv)csw.sk> - 23.1.2004 11:36:30
Skus pouzit namiesto Form1.Release
funkciu FreeAndNil(Form1)
> Ahoj,
>
> jak moc je legitimni pouziti konstrukce:
> ************
> if Form1=nil then
> Application.CreateForm(TForm1, Form1);
> ...
> Form1.Release;
> Form1:=nil;
> ************
> ono totiz jinak je pri druhem pruchodu podminkou
> promenna Form1 sice nenilova, ale odkazuje
> na uvolnenou pamet. Release zasle zpravu oknu
> Form1 a to se uvolni samo.
uvolneni a znovuvytvoreni formulare
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 23.1.2004 11:16:25
Ahoj,
jak moc je legitimni pouziti konstrukce:
************
if Form1=nil then
Application.CreateForm(TForm1, Form1);
...
Form1.Release;
Form1:=nil;
************
ono totiz jinak je pri druhem pruchodu podminkou
promenna Form1 sice nenilova, ale odkazuje
na uvolnenou pamet. Release zasle zpravu oknu
Form1 a to se uvolni samo.
dekuji
peca
ikony do tlacitek
[*] Milos J. Hrach <jhrach(zv)post(tec)cz> - 23.1.2004 11:12:24
Tim nejjednodusim moznym zpusobem. Kdyz se mi nejaka ikona libi,
udelam si otisk obrazovky a ikonu si znej vykousnu do
samostatneho souboru.
Jakub
----- PUVODNI ZPRAVA -----
Od: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
Komu: delphi-l(zv)clexpert(tec)cz
Predmet: ikony do tlacitek
Datum: 23.1.2004 - 11:04:50
> Chtel bych se zeptat jak vy v praxi resite
> malovani ruznych bitmap do
> tlacitek a ruznych menu. Zatim jsem to
> vsechno maloval rucne v paintu nebo
> corelu, ale urcite existuji nejaka
> pohodlnejsi a castecne hotova reseni. Jak
> to delate Vy? BMP z delphi jsou v dnesni dobe
> zastarale a nevkusne. Na netu
> sice existuji ruzne kolekce, ale pokud za
> neco stoji, tak zase nejsou v
> pozadovanem rozliseni.
>
> Zapletal Martin
> Vyvoj SW, Technik
>
> inoma
> Skacelova 18, 61200, Brno, 61200
> telefon-fax: 541211337, 541240721
> e-mail: zapletal(zv)inoma(tec)cz
> http: www.inoma(tec)cz
>
>
>
>
--
REALITY.VOLNY.CZ, realitni server s komfortnim vyhledavanim,
50.000 nemovitosti na prodej nebo pronajem, hypotecni
poradenstvi, atraktivni clanky a zpravy ze sveta bydleni.
http://reality.volny(tec)cz
Delphi8 a pouzitie vlastnych assemblies....
[*] Ivan Turcan <iturcan(zv)drake.sk> - 23.1.2004 11:28:28
gac.exe som nenasiel, inu nasiel som gacutil.exe a pravdou je ze po pouziti
gacutil.exe som dostal assembly do global cache... avsak ani po tomto sa mi
dana assembly nezobrazuje v zozname assemblies v delphi 8, tzn. nie je mozne
ju pridat ako referenciu..... hmm napad v com este moze byt problem ?
vdaka,
Ivan
----- Original Message -----
From: "Milan Tomes" <delphi(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 23, 2004 6:27 AM
Subject: Re: Delphi8 a pouzitie vlastnych assemblies....> A nebude to nahodou tim, ze (stejne jako VS) jsou zobrazeny assemblies z
GAC
> ??? Potom pouzij gac.exe s prislusnymi parametry pro instalaci do GAC a
> dotycna assembly by se mela objevit v seznamu...
>
> S pozdravem
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
>
>
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ivan Turcan
> > Sent: Thursday, January 22, 2004 4:21 PM
> >
> > vie mi niekdo povedat ako mam zaregistrovat v delphi 8 vytvorene
assembly
> > tak aby bolo viditelne v zozname assemblies ktore chcem pridat ako
> > referenciu ?
>
>
>
>
Hook na SetSystemDate ?
[*] Tomas Runa <t.runa(zv)cleverbee(tec)com> - 23.1.2004 11:22:26
Zajimave, ten program jsem si stahnul, a testuji ho. Na krasnem tretim miste
se umistil Microsoft..:), a je tam nekolik "podezrelych" veci v registru.
Jinak nic.
Tomas
-----Original Message-----
From: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
Sent: Friday, January 23, 2004 10:12 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Hook na SetSystemDate ?
Tomas Runa <t.runa(zv)cleverbee.com> wrote:
> Mam takovou potiz: nekolikrat za hodinu mi najednou poskoci hodiny asi
> o 4 minuty dopredu a zrejme to ma na svedomi nejaky programek.
> Tak premyslim, jestli bych nedokazal nepsat programek, ktery by ho
> nejak takto vystopoval.
>
> Moc veci spustenych nemam, rozhodne nejsem typ, ktery si postahuje a
> pusti kopici vselijakych "share&spyware" a o to vic mne to stve.
Take nejsem ten typ i kdyz to zas neprehanim (tj. zadny personal firewall
nainstalovany nemam) ale kdyz jsem si na popud kolegy spustil programek
"SpyBot Search & Destroy" ktery spyware vyhledava, nestacil jsem se divit
kolik potvor jsem za pul roku nachytal...
Martin Schayna
ikony do tlacitek
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 23.1.2004 10:54:20
Ne ze by se mi to zdalo jako vhodna reakce na muj prispevek, ale poresto
vam poradim. Primo v Delphi je dodavan Image Editor, presne pro potreby
delani komponent. No a taky pouzivam Gimp a vyrezavam obrazky odjinud.
>Chtel bych se zeptat jak vy v praxi resite malovani ruznych bitmap do
>tlacitek a ruznych menu. Zatim jsem to vsechno maloval rucne v paintu nebo
>corelu, ale urcite existuji nejaka pohodlnejsi a castecne hotova reseni. Jak
>to delate Vy? BMP z delphi jsou v dnesni dobe zastarale a nevkusne. Na netu
>sice existuji ruzne kolekce, ale pokud za neco stoji, tak zase nejsou v
>pozadovanem rozliseni.
>
>Zapletal Martin
>Vyvoj SW, Technik
>Hook na SetSystemDate ?
[*] horky(zv)cominn(tec)cz - 23.1.2004 10:32:18
> From: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
> Sent: Friday, January 23, 2004 10:12 AM
>
> Tomas Runa <t.runa(zv)cleverbee.com> wrote:
> > Moc veci spustenych nemam, rozhodne nejsem typ, ktery si postahuje a
> > pusti kopici vselijakych "share&spyware" a o to vic mne to stve.
>
> Take nejsem ten typ i kdyz to zas neprehanim (tj. zadny
> personal firewall nainstalovany nemam) ale kdyz jsem si na popud kolegy spustil
> programek "SpyBot Search & Destroy" ktery spyware vyhledava, nestacil jsem se
> divit kolik potvor jsem za pul roku nachytal...
Take nejsem ten typ, ale kdyz doma po Dial-Up pripojeni na internet mi behem 0-3 minut (!) krachnul program SVCHOST.EXE po RPC utoku zvenci, ihned jsem si ten Personal firewall naistaloval. Od te doby je to OK.
--
S pozdravem Karel Horky, CLX, D6 SP2, FB 1.0.3, IBX 6.03, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
ikony do tlacitek
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 23.1.2004 10:32:18
Chtel bych se zeptat jak vy v praxi resite malovani ruznych bitmap do
tlacitek a ruznych menu. Zatim jsem to vsechno maloval rucne v paintu nebo
corelu, ale urcite existuji nejaka pohodlnejsi a castecne hotova reseni. Jak
to delate Vy? BMP z delphi jsou v dnesni dobe zastarale a nevkusne. Na netu
sice existuji ruzne kolekce, ale pokud za neco stoji, tak zase nejsou v
pozadovanem rozliseni.
Zapletal Martin
Vyvoj SW, Technik
inoma
Skacelova 18, 61200, Brno, 61200
telefon-fax: 541211337, 541240721
e-mail: zapletal(zv)inoma(tec)cz
http: www.inoma(tec)cz
Hook na SetSystemDate ?
[*] Tomas Runa <t.runa(zv)cleverbee(tec)com> - 23.1.2004 10:06:14
Mam VLASTNI soft (ktery mam tudiz plne pod kontrolou) a na zaklade informaci
z nej jsem dospel k nazoru, ze mi nejde pocitac "rychleji", ale ze se mi cas
meni skokove prave po tech cca 4 minutach.
-----Original Message-----
From: mstevlik(zv)gamo.sk [mailto:mstevlik(zv)gamo.sk]
Sent: Friday, January 23, 2004 9:48 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Hook na SetSystemDate ?
> Zdravim,
>
> nevite nahodou, zda jde (a pokud ano, tak jak) zachytit zmenu
systemovych
> hodin?
>
> Mam takovou potiz: nekolikrat za hodinu mi najednou poskoci hodiny asi
> o
4
> minuty dopredu a zrejme to ma na svedomi nejaky programek. Tak
premyslim,
> jestli bych nedokazal nepsat programek, ktery by ho nejak takto
vystopoval.
>
> Moc veci spustenych nemam, rozhodne nejsem typ, ktery si postahuje a
pusti
> kopici vselijakych "share&spyware" a o to vic mne to stve.
>
> Jeste dodatek, pouzivam WinXP, D7 a JB9. Ti by to ale snad delat
nemeli..:)
>
> Dik,
>
> Tomas
Nemas nahodou nejaky soft , kt. automaticky synchronizuje cas podla nejakeho
casove servera na inete?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
Hook na SetSystemDate ?
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.1.2004 10:12:15
Tomas Runa <t.runa(zv)cleverbee.com> wrote:
> Mam takovou potiz: nekolikrat za hodinu mi najednou poskoci hodiny
> asi o 4 minuty dopredu a zrejme to ma na svedomi nejaky programek.
> Tak premyslim, jestli bych nedokazal nepsat programek, ktery by ho
> nejak takto vystopoval.
>
> Moc veci spustenych nemam, rozhodne nejsem typ, ktery si postahuje a
> pusti kopici vselijakych "share&spyware" a o to vic mne to stve.
Take nejsem ten typ i kdyz to zas neprehanim (tj. zadny personal firewall
nainstalovany nemam) ale kdyz jsem si na popud kolegy spustil programek
"SpyBot Search & Destroy" ktery spyware vyhledava, nestacil jsem se
divit kolik potvor jsem za pul roku nachytal...
Martin Schayna
dbExpres, FireBird - modifi, update, delete Dotazo
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 23.1.2004 09:54:09
Krom pohledu jsem nucen obcas pouzit i dotazovaci proceduru. Na pohled
neni problem nastavit Triggers Befor Insert ... Takze z toho pohledu
takze z neho udelam Read - Wirte (i kdyz taky to nejde u vsech), ale u
dotazovatelne procedury tohle nejde. Chtel bych tedy mit moznost zvolit
SQL kod pro Select, Insert, Update, Delet (pokazde bych pridal
parametry), ale nevim jak toho dosahnout s komponentama dbExpres. Je to
vubec mozne?
Lukas "benzin" Benda
Hook na SetSystemDate ?
[*] mstevlik(zv)gamo.sk - 23.1.2004 09:48:04
> Zdravim,
>
> nevite nahodou, zda jde (a pokud ano, tak jak) zachytit zmenu
systemovych
> hodin?
>
> Mam takovou potiz: nekolikrat za hodinu mi najednou poskoci hodiny asi o
4
> minuty dopredu a zrejme to ma na svedomi nejaky programek. Tak
premyslim,
> jestli bych nedokazal nepsat programek, ktery by ho nejak takto
vystopoval.
>
> Moc veci spustenych nemam, rozhodne nejsem typ, ktery si postahuje a
pusti
> kopici vselijakych "share&spyware" a o to vic mne to stve.
>
> Jeste dodatek, pouzivam WinXP, D7 a JB9. Ti by to ale snad delat
nemeli..:)
>
> Dik,
>
> Tomas
Nemas nahodou nejaky soft , kt. automaticky synchronizuje cas podla
nejakeho casove servera na inete?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
OT: Hook na SetSystemDate ?
[*] Tomas Runa <t.runa(zv)cleverbee(tec)com> - 23.1.2004 09:39:58
Zdravim,
nevite nahodou, zda jde (a pokud ano, tak jak) zachytit zmenu systemovych
hodin?
Mam takovou potiz: nekolikrat za hodinu mi najednou poskoci hodiny asi o 4
minuty dopredu a zrejme to ma na svedomi nejaky programek. Tak premyslim,
jestli bych nedokazal nepsat programek, ktery by ho nejak takto vystopoval.
Moc veci spustenych nemam, rozhodne nejsem typ, ktery si postahuje a pusti
kopici vselijakych "share&spyware" a o to vic mne to stve.
Jeste dodatek, pouzivam WinXP, D7 a JB9. Ti by to ale snad delat nemeli..:)
Dik,
Tomas
Prepis hlavickoveho souboru dll knihovny z C do de
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.1.2004 09:29:57
On Thursday, January 22, 2004 8:59 PM [CET], Martin Radvansky
<delphiconf(zv)radvansky.net> wrote:
> Dobry den,
> muzete mi prosim nekdo poradit, jak prepsat tento fragment kodu C do
> delphi, abych mohl knihovnu pouzivat. Porad se mi nedari. Proste to
> C++ fakt nemam rad.
>
> #ifdef XPDF_STATIC_LIB
> # define LIBFUNC
> #else
> # ifdef BUILDING_XPDF_LIB
> # define LIBFUNC __declspec(dllexport)
> # else
> # define LIBFUNC __declspec(dllimport)
> # endif
> #endif
>
> typedef struct _PDFViewerHandle *PDFViewerHandle;
> typedef struct _PDFRegionHandle *PDFRegionHandle;
> typedef struct _PDFOutlineHandle *PDFOutlineHandle;
>
> LIBFUNC void pdfInitLibrary(char *configFileName);
> LIBFUNC void pdfCloseLibrary();
> LIBFUNC char *pdfLibraryVersion();
> LIBFUNC int pdfCreateViewer(PDFViewerHandle *viewerPtr, HWND wnd);
>
TYPE
PDFViewerHandle : ^_PDFViewerHandle;
PDFRegionHandle : ^_PDFRegionhandle;
PDFOutlinehandle: ^_PDFOutlineHandle;
Procedure pdfInitLibrary(configFileName: PChar);cdecl;
Procedure pdfCloseLibrary;cdecl;
Function pdfLibraryVersion : PChar;cdecl;
Function pdfCreateViewer(viewerPtr: ^PDFViewerHandle; wnd :
HWND);cdecl;
nebo tak nejak :-). Jako voditko by Ti to mohlo poslouzit. Zrejme se
budou muset nahradit potdrzitka na zacatku jmen typu (pisu to z hlavy
a jelikoz je na zacatek jmen nedavam nejsem si jist, zda je delphi
toleruje na zacatku jmen) a taky se mi nelibi pointr na pointr v
pdfCreateViewer (ale deklarovany to tak maji). Vzdycky je potreba to
poctive odladit - pripadne prokrokovat v ASM a podivat se zda sedi
velikosti stacku alokovane pro promenne s tim jak s nima zachazi C
rutina a zda sedi volaci konvence (kdo odstranuje data ze stacku atd),
zda se neco nepredava v registrech atd.
Pokud se jedna o interface k nejakemu DLLku pak je treba doplnit
importy z toho DLL.
D. Toman
Delphi8 a pouzitie vlastnych assemblies....
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 23.1.2004 06:27:45
A nebude to nahodou tim, ze (stejne jako VS) jsou zobrazeny assemblies z GAC
??? Potom pouzij gac.exe s prislusnymi parametry pro instalaci do GAC a
dotycna assembly by se mela objevit v seznamu...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ivan Turcan
> Sent: Thursday, January 22, 2004 4:21 PM
>
> vie mi niekdo povedat ako mam zaregistrovat v delphi 8 vytvorene assembly
> tak aby bolo viditelne v zozname assemblies ktore chcem pridat ako
> referenciu ?Prepis hlavickoveho souboru dll knihovny z C do de
[*] Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 22.1.2004 20:59:04
Dobry den,
muzete mi prosim nekdo poradit, jak prepsat tento fragment kodu C do
delphi, abych mohl knihovnu pouzivat. Porad se mi nedari. Proste to
C++ fakt nemam rad.
#ifdef XPDF_STATIC_LIB
# define LIBFUNC
#else
# ifdef BUILDING_XPDF_LIB
# define LIBFUNC __declspec(dllexport)
# else
# define LIBFUNC __declspec(dllimport)
# endif
#endif
typedef struct _PDFViewerHandle *PDFViewerHandle;
typedef struct _PDFRegionHandle *PDFRegionHandle;
typedef struct _PDFOutlineHandle *PDFOutlineHandle;
LIBFUNC void pdfInitLibrary(char *configFileName);
LIBFUNC void pdfCloseLibrary();
LIBFUNC char *pdfLibraryVersion();
LIBFUNC int pdfCreateViewer(PDFViewerHandle *viewerPtr, HWND wnd);
Diky
--
S pozdravem,
Martin Radvansky
delphiconf(zv)radvansky.net
Priecinok Zdielane dokumenty po sieti
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 22.1.2004 19:24:57
Zdravim.
Pomocou GetSystemPath(CSIDL_COMMON_DOCUMENTS)
zistim kde je priecinok "Zdialane dokumenty" na lokalnom
pocitaci.
************************************
OTAZKA :
Slo by zistit umiestnenie tohoto priecinka na inom pocitaci
v sieti LAN? (meno pocitaca poznam)
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)stonline.sk
ListView je desne pomaly
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.1.2004 19:00:55
From: "Andreas Bednarek" <bednarek(zv)digitus(tec)cz>
> Vypada to pekne na pohled, slova jako "lightning fast" se mi moc libi :-)
Nejen na pohled ;-)
IMHO je to jedna z nejlepsich komponent pro Delphi,
jakou kdy kdo napsal.
pf
KonfView
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 22.1.2004 18:10:50
22.1.2004 KALUS Jozef:
> nazdar,
> je niekde k stiahnutiu kompletna databaza pre konfview ?
www.pspad.com
V sekci drobnosti ke stazeni KonfView i kompletni hotove databaze
pro KonfView po jednotlivych letech.
Dale jsou tam odkazy na zdrojova data v textove podobe pro KonfView
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
ListView je desne pomaly
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 22.1.2004 18:10:49
22.1.2004 Andreas Bednarek:
>>...VirtualTreeView...
> Vypada to pekne na pohled, slova jako "lightning fast" se mi moc libi :-)
> Jen mam pochyby o tom, ze to vyuziju v komercni aplikaci, jestli jsem dobre
> pochopil licence MPL a LGPU, tak to znamena distribuovat moji aplikaci spolu
> se zdrojakem. Tak to je smula :-(
Muzes pouzit obycejne ListView ve virtualnim rezimu.
Licence jsi pochopil spatne. Pod MPL nemusis distribuovat zdroje. Jo
je vysada jen GPL
>>V techto pripadech je vhodne pouzit TListView ve virtulanim rezimu,
> vlastnost
>>OwnerData
> Zkusim se tim prokousat. Napisu si teda vlastni OnData (prip. OnDataFind,
> OnDeletion, OnInsert a dalsi). Vse ostatni bude fungovat stejne? Selection
> by mohlo, co takhle OnCompare, nebo-li jak bude fungovat custom sortovani
> pri kliknuti na sloupec. Tam vlastne pocitam jen hodnotu promenne Compare,
> podle ktere zrejme komponenta prohodi porovnavane Itemy podle potreby. Asi
> budu muset rucne seradit napred svuj interni seznam a pak dat nejake Refresh
> aby se radky spravne zobrazily...? Nebo muzu prohodit data ve svem seznamu
> primo v OnCompare na zaklade indexu predavanych v Item1, Item2? (No, dal tam
> mam jeste par nejasnosti, ale snad uz na to prijdu).
Sortovani musis zajistit na urovni dat. ListView ve virtualnim rezimu
nic tridit neumi.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Komercni aplikace a open source knihovny
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 22.1.2004 18:12:51
22.1.2004 Mgr. Zdenek Plachy:
> V souvislosti s licencemi MPL a GPL by mne zajimalo, zda se nekdy stalo, ze
> byla u produktu zmenena licence z MPL na GPL. Pokud ano, jaky by to melo
> dopad na aplikace, ktere by tento produkt pouzily.
Pokud tebou pouzite zdrojove kody pochazeji z doby, kdy platila MPL,
nema to na tvou aplikaci zadny vliv. Pokud bys ovsem pouzil novejsi
verzi zdroju, ktera uz spada pod GPL, musis se GPL licenci ridit.
Zmena licence neplati zpetne.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
design Hintu
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 22.1.2004 17:10:43
> - lze nejakym zpusobem zobrazit Hint v predem urcenem miste
> komponenty (treba TImage) nezavisle na poloze kursoru (pokud
> ano, jak)?
Application.ActivateHint(Point(X, Y));
> - lze tento Hint vizuelne zobrazit jako 'Baloon' (pokud ano,
> jak? Standartne se zobrazi Hint jako 'Rectangle').
> - lze do Hintu vlozit ikonu, treba jako je 'mtInformation' u
> MessageDlg (pokud ano, jak)?
Napis si potomka THintWindow a overridni si Paint, pripadne NCPaint.
Tuto novu triedu prirad globalnej premennej HintWindowClass.
Ak si pises vlastnu kontrolku, ktora ma mat svoj vlastny hint nezavisle od
aplikacie, potom potrebujes osetrit spravu CM_HINTSHOW a priradit svoju
triedu (potomka THintWindow) v parametri HintInfo.
HTH
TOndrej
StringGrid - banalita
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 22.1.2004 16:56:41
diky za nakopnuti.
Pro OnDrawCell je priklad na centrovani na
http://delphi.developpez.com/faq/?page=stringgrid
S pozdravem Radek Szurman
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Radek Szurman
> >
> > Cau lidi,
>
> Ahoj,
>
> > delam tabulku do faktury, pouzivam StringGrid, a hledam a
> > nevidim jestli se
> > da nekde centrovat text. Jde to vubec ?
>
> Je treba obsluhovat OnDrawCell.
>
> S pozdravem a dikem
> =====================================
> > Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
> =====================================
> > GSM: 602 652 203 | ICQ: 322015967 <
> =====================================
>
>
>
>StringGrid - banalita
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 22.1.2004 16:38:39
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Radek Szurman
>
> Cau lidi,
Ahoj,
> delam tabulku do faktury, pouzivam StringGrid, a hledam a
> nevidim jestli se
> da nekde centrovat text. Jde to vubec ?
Je treba obsluhovat OnDrawCell.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
StringGrid - banalita
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 22.1.2004 16:34:38
Cau lidi,
delam tabulku do faktury, pouzivam StringGrid, a hledam a nevidim jestli se
da nekde centrovat text. Jde to vubec ?
Dik
WXP, D7
Delphi8 a pouzitie vlastnych assemblies....
[*] Ivan Turcan <iturcan(zv)drake.sk> - 22.1.2004 16:20:37
caves,
vie mi niekdo povedat ako mam zaregistrovat v delphi 8 vytvorene assembly
tak aby bolo viditelne v zozname assemblies ktore chcem pridat ako
referenciu ?
pouzil som regasm mojeasm.dll a vypisalo mi to ze to je zaregistrovane....
avsak ani potom ho v zozname nevydim , inu v com moze byt problem ?????
vdaka
Ivan
Komercni aplikace a open source knihovny
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.1.2004 15:42:24
Haj hou!
On 22 Jan 2004 at 15:12, Andreas Bednarek wrote:
> Napada me doplnujici otazecka ohledne jine licence a to IPL, kterou by mel
> byt licencovan Firebird. Uvadi se, ze je v aplikaci nutne dat alespon odkaz
> na misto odkud lze stahnout zdrojaky. Staci teda dat do Aboutu neco jako
> Aplikace pouziva FB1.5, ke stazeni na www.firebirdsql.org ?
To plati pouze pri sireni Firebirdu (a potazmo i jineho open source),
nikoliv aplikace samotne. A ano, postaci odkaz v nejakem README nebo
jinak vhodne nazvanem dokumentu. Je rovnez vhodne distribuovat text
licence. Pokud je ovsem siren standardni balik Firebirdu, pak neni
treba delat nic, neb ted by jiz vse potrebne mel obsahovat.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Komercni aplikace a open source knihovny
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 22.1.2004 15:52:34
Trochu mimo misu, ale jake jsou open source postavene na FB ?
Nejedna se mi o admin nastroje.
Slavek
PS:Nevite nekdo nahodou o open source ucetnictvi ?
> To plati pouze pri sireni Firebirdu (a potazmo i jineho open source),
> nikoliv aplikace samotne. A ano, postaci odkaz v nejakem README nebo
> jinak vhodne nazvanem dokumentu. Je rovnez vhodne distribuovat text
> licence. Pokud je ovsem siren standardni balik Firebirdu, pak neni
> treba delat nic, neb ted by jiz vse potrebne mel obsahovat.Komercni aplikace a open source knihovny
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.1.2004 15:42:25
Haj hou!
On 22 Jan 2004 at 14:56, Mgr. Zdenek Plachy wrote:
> V souvislosti s licencemi MPL a GPL by mne zajimalo, zda se nekdy stalo, ze
> byla u produktu zmenena licence z MPL na GPL. Pokud ano, jaky by to melo
> dopad na aplikace, ktere by tento produkt pouzily.
K zmene dojit sice muze, ale ne se zpetnou platnosti, tedy nova verze
muze byt se zcela jinou licenci, ale kod uvolneny pod nejakou licenci
musi byt stale rizen danou licenci (a ani vlastnik prav to nemuze
zmenit). Uzivatele si tedy mohou vybrat: bud s prechodem na novou
verzi akceptovat novou licenci, nebo zustat u starsi verze a stare
licence.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Trigger -OMLUVA
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.1.2004 15:50:33
> Hlasim opravu toho zatracenyho triggeru G_FAKTURY_BU1600.
Omlouvam se, nedopatrenim jsem to poslal jinam, nez to melo jit.
David Lebeda
Trigger
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.1.2004 15:44:30
Hlasim opravu toho zatracenyho triggeru G_FAKTURY_BU1600.
LDavid
Komercni aplikace a open source knihovny
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 22.1.2004 15:38:19
No nevim jak casto se to stava, ale dopad je jednoduchy. Jakmile si
stahnu novou verzi produktu, musim se prizpusobit licenci teto nove
verze. Kdyz pouziju starou verzi, plati stara licence.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Thursday, January 22, 2004, 2:56:11 PM, you wrote:
MZP> V souvislosti s licencemi MPL a GPL by mne zajimalo, zda se nekdy stalo, ze
MZP> byla u produktu zmenena licence z MPL na GPL. Pokud ano, jaky by to melo
MZP> dopad na aplikace, ktere by tento produkt pouzily.
MZP> Zdenek Plachy
Komercni aplikace a open source knihovny
[*] Mgr. Zdenek Plachy <plachy(zv)plachy(tec)cz> - 22.1.2004 14:56:11
V souvislosti s licencemi MPL a GPL by mne zajimalo, zda se nekdy stalo, ze
byla u produktu zmenena licence z MPL na GPL. Pokud ano, jaky by to melo
dopad na aplikace, ktere by tento produkt pouzily.
Zdenek Plachy
Komercni aplikace a open source knihovny
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 22.1.2004 15:12:12
> To bylo nejspis v teto konferenci a bylo to GPL a ne Mozilla Public
> Licence.
No v teto konfere to sice nebylo (jsem tu chvili) jestli jsem to teda
nesmaznul, ale je to pro me zasadne pozitivni informace ohledne MPL :-)
Napada me doplnujici otazecka ohledne jine licence a to IPL, kterou by mel
byt licencovan Firebird. Uvadi se, ze je v aplikaci nutne dat alespon odkaz
na misto odkud lze stahnout zdrojaky. Staci teda dat do Aboutu neco jako
Aplikace pouziva FB1.5, ke stazeni na www.firebirdsql.org ?
A.design Hintu
[*] Motorman <motorman(zv)cmail(tec)cz> - 22.1.2004 14:56:10
Srdecne zdravim,
mel bych tri otazky.
- lze nejakym zpusobem zobrazit Hint v predem urcenem miste komponenty (treba TImage) nezavisle na poloze kursoru (pokud ano, jak)?
- lze tento Hint vizuelne zobrazit jako 'Baloon' (pokud ano, jak? Standartne se zobrazi Hint jako 'Rectangle').
- lze do Hintu vlozit ikonu, treba jako je 'mtInformation' u MessageDlg (pokud ano, jak)?
Kdysi jsem to delal ve VB, v D to neumim... Stacil by i odkaz nekam (respektive nekam v ramci programovani :).
Diky za pripadnou odpoved
Mirek, D7 PE
Komercni aplikace a open source knihovny
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 22.1.2004 14:34:07
To bylo nejspis v teto konferenci a bylo to GPL a ne Mozilla Public
Licence.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Thursday, January 22, 2004, 2:26:05 PM, you wrote:
AB> Neni Mozzila Public Licence nahodou o tom, ze se musi zverejnit i
AB> zdrojak aplikace, ktera prislusne licencovany kod linkuje do sveho
AB> exe? Nedavno jsem to videl v nejake konfere.
AB> A.
Komercni aplikace a open source knihovny
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 22.1.2004 14:26:05
> > JCL - kvuli JclMapi a JclDebug
>
> MPL (zadny problem)
>
Neni Mozzila Public Licence nahodou o tom, ze se musi zverejnit i zdrojak
aplikace, ktera prislusne licencovany kod linkuje do sveho exe? Nedavno jsem
to videl v nejake konfere.
A.Komercni aplikace a open source knihovny
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.1.2004 14:12:04
Haj hou!
On 22 Jan 2004 at 13:29, rookie1(zv)quick(tec)cz wrote:
> JCL - kvuli JclMapi a JclDebug
MPL (zadny problem)
> Synapse - kvuli HTTPSend
Tusim ze BSD. Pokud ano, tak zadny problem.
> Abbrevia ze SourceForge - pro zalohovani dat
MPL (zadny problem).
> Mohu tyto knihovny pouzit ve sve komercni aplikaci aniz bych se dopustil trestneho cinu ?
Ano.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Komercni aplikace a open source knihovny
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 22.1.2004 13:52:01
> Synapse - kvuli HTTPSend
>
> Mohu tyto knihovny pouzit ve sve komercni aplikaci aniz bych se
> dopustil trestneho cinu ?
Pokud mohu mluvit za sebe, tak Synapsi muzes pouzivat jak chces, v
cem chces.. jen nesmis zapomenout ve svem programu uvadet i muj
copyright. Tedy takove to obligatni, ze program byl napsan s pomoci
knihovny Synapse copyright...blabla.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.KonfView
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 22.1.2004 13:31:59
Total Commander, menu "Files" / "Combine files".
Nebo cokoliv jineho :)
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Thursday, January 22, 2004, 1:09:56 PM, you wrote:
KJ> ok,
KJ> ale ja by som rad jeden subor, nie 3 subory, ja len ci to niekto
KJ> nema vsetko v jednom subore :o)
KJ> joka
Komercni aplikace a open source knihovny
[*] rookie1(zv)quick(tec)cz - 22.1.2004 13:29:58
Dost se tady v konferenci debatovalo o ruznych licencich. Mam program napsany v Delphi 7, Delphi mam legalne koupene. Ve sve KOMERCNI aplikaci pouzivam komponenty IBExpress, QuickReport a TeeChart (predpokladam ze tyto komponenty mohu ve svem programu bez problemu pouzit).
Dale vyuzivam knihovny:
JCL - kvuli JclMapi a JclDebug
Synapse - kvuli HTTPSend
Abbrevia ze SourceForge - pro zalohovani dat
Mohu tyto knihovny pouzit ve sve komercni aplikaci aniz bych se dopustil trestneho cinu ?
Dik Zelenka
KonfView
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 22.1.2004 13:09:56
ok,
ale ja by som rad jeden subor, nie 3 subory, ja len ci to niekto nema
vsetko v jednom subore :o)
joka
>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz
>[mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Brant
>Sent: Thursday, January 22, 2004 11:28 AM
>To: delphi-l(zv)clexpert(tec)cz
>Subject: Re: KonfView
>
>
>Na ftp.delphi(tec)cz je Other\KonfViewTxtData a tam jsou textova
>data 2000 - 2003. Jmeno Delphi, heslo archivar.
>
>Zdravim
>
>RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
>http://web.redbox(tec)cz/petr.brant
>
>
> je niekde k stiahnutiu kompletna databaza pre konfview ?
>
>
Interbase: jak predejit vzniku velkeho rozdilu mez
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.1.2004 12:53:52
Haj hou!
On 21 Jan 2004 at 21:16, Petr Selinger wrote:
> Taky me porad mate to, ze stav je nekdy takovy:
> OIT=OAT=OST >>> NT
> Jakto ze je NT nekdy treba o 70 000 dopredu pred OIT a OAT? Zavisi to
> na tom, ze statistika je brana s pripojenymi klienty, NT se spravne precte,
> protoze to je jednoduse cislo generatoru, ktery uvadi, co se pouzije pro dalsi
> transakci a ty ostatni transakce si interbase 'drzi', dokud se napr. nekdo
> nepripoji/neodpoji/nezapise dalsi stranka,...?
Tady je zakopany pes. Pokud je rozdil OAT a NT 70 000, pak mate
problem :-) Sweep to vubec nevyresi (ten pocisti jen to co je mezi
OIT a OAT, a srovna OIT na OAT), je treba ukoncit transakci(e) ktere
drzi OAT "dole". A pripravte se na dardu v odstranovani smeti, co se
naakumulovalo za tech 70000 transakci.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Rozliseni malych a velkych pismen v IB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.1.2004 12:45:49
Haj hou!
On 21 Jan 2004 at 21:26, David Klodner wrote:
> poradi mi nekdo, jak z SQL dotazu v IB vypustit nazvy zacinajici na male x,
> a ponechat ty zaxinajici na velke X.
>
> select nazev from zbozi
> where nazev not starting with 'x'
>
> me vynecha vsechny nazvy zacinajici na x i X
Pouzij operator LIKE, ktery bere ohled na velikost pismen, tedy
select nazev from zbozi
where nazev not like 'x%'
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
spusteni aplikace s Admin pravy
[*] Pavel Sommer <psommer(zv)cpoj(tec)cz> - 22.1.2004 12:35:45
>Na pocitaci s Windows XP potrebuji pod uzivatelem s pravy Users spustit
program, ktery potrebuje prava Administrators.
>Neco jako kdyz pridate novy hardware prihlasite se jako uzivatel s pravy
Users tak Vas system vyzve k zadani Administratorskeho hesla a hardware se
nainstaluje.
>Je mozne nejak nastavit to, ze muj program provede prihlaseni aniz by
odhlasil stavajiciho uzivatele a bude pracovat s pravy Administrators.
Taky je mozne pouzit funkci LogonUser a nasledne pokud projde kontrola
ImpersonateLoggedOnUser, tak by vetsina operaci, ktere udelas, mela bezet
pod pravy naposledy takto prihlaseneho uzivatele. Neni to omezene jen na
vytvareni procesu, umoznuje to napr. operace se soubory atd. Po skonceni
vsech operaci pod prehlasenym uzivatelem je potreba se vratit k puvodne
prihlasenemu funkci RevertToSelf.
PaS.
BDE a ORACLE! POMOC! BDE spatne generuje SQL pro O
[*] Vlada <delphak(zv)centrum(tec)cz> - 22.1.2004 12:19:42
A kde bych nejake takove nastaveni mel hledat? Nejaky napad?
Dik!
----- Original Message -----
From: "Benda Lukas" <bendal(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 22, 2004 10:57 AM
Subject: Re: BDE a ORACLE! POMOC! BDE spatne generuje SQL pro ORACLE!> Teda nevim jak BDE, ale i dbExpressu by byl nejspis problem v nastaveni
> SQL dialektu (tohle by delal dialekt 3).
>
> >Ahojte, mam nasledujici problem, poradite nekdo prosim?!? BDE spatne
generuje SQL pro ORACLE.
> >
> >Na formulari mam TDatabase, TBDEClientDataSet, TDataSource a TDBGrid.
> >TBDEClientDataSet.CommandText := 'select * from m_oop_typ'
> >
> >Pokud se pokusim vymazat nebo zmenit ci pridat vetu, skoncim s oracle
chybou TABULKA NEEXISTUJE.
> >
> >V SQL monitoru vidim, ze BDE vygenerovalo SQL typu DELETE "M_OOP_TYP"
WHERE "ID"=:1
> >
> >A PROBLEMEM jsou ty uvozovky " ... ty Oracle vadi, to neskousne.
> >
> >Co s tim? Jak to mam udelat? Samozrejme si muzu napsat vlastni insert /
update / delete ... ale prece jenom se mi to zda zbytecne ...
> >
> >Nebo alespon nejak dostat do ruky to SQL predtim, nez se posle na server
....
> >
> >Dik moc za pomoc!
> >
>
>
>
>
Jednoducha DB aplikacia
[*] Roland Turcan <konf(zv)rotursoft.sk> - 22.1.2004 11:57:40
<<< 22. 1. 2004 11:55 - mstevlik(zv)gamo.sk "mstevlik(zv)gamo.sk" >>>
mgs> Hi all,
mgs> Potrebujem urobit jednoduchu DB aplikaciu (max. 3 tabulky max 1000
mgs> zaznamov v kazdej), kt. musi fungovat na klasickych komponentach v D5Prof
mgs> Viete mi poradit aky typ DB zvolit a cez co na to pristupit Data DB
mgs> potrebujem v gride sortovat, takze asi by bolo fajn, kebyze mozem napsat
mgs> Select * From Tab1 Order By Nazov
Skus si Firebird Embeded Server s Interbase Express 5.xx
--
Best regards, TRoland
http://exekutor.rotursoft.sk
KonfView
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 22.1.2004 11:27:37
Na ftp.delphi(tec)cz je Other\KonfViewTxtData a tam jsou textova data 2000 -
2003. Jmeno Delphi, heslo archivar.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
je niekde k stiahnutiu kompletna databaza pre konfview ?
OT: KonfView
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 22.1.2004 11:09:35
nazdar,
je niekde k stiahnutiu kompletna databaza pre konfview ?
dik
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows XP
--------------------------------------------
Ing. Jozef Kalus
L. Stura 17/28
018 61 BELUSA
Mob.: +421 905 459156
e-mail: equipment(zv)equipment.sk
Web: http://www.equipment.sk
BDE a ORACLE! POMOC! BDE spatne generuje SQL pro O
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 22.1.2004 10:57:34
Teda nevim jak BDE, ale i dbExpressu by byl nejspis problem v nastaveni
SQL dialektu (tohle by delal dialekt 3).
>Ahojte, mam nasledujici problem, poradite nekdo prosim?!? BDE spatne generuje SQL pro ORACLE.
>
>Na formulari mam TDatabase, TBDEClientDataSet, TDataSource a TDBGrid.
>TBDEClientDataSet.CommandText := 'select * from m_oop_typ'
>
>Pokud se pokusim vymazat nebo zmenit ci pridat vetu, skoncim s oracle chybou TABULKA NEEXISTUJE.
>
>V SQL monitoru vidim, ze BDE vygenerovalo SQL typu DELETE "M_OOP_TYP" WHERE "ID"=:1
>
>A PROBLEMEM jsou ty uvozovky " ... ty Oracle vadi, to neskousne.
>
>Co s tim? Jak to mam udelat? Samozrejme si muzu napsat vlastni insert / update / delete ... ale prece jenom se mi to zda zbytecne ...
>
>Nebo alespon nejak dostat do ruky to SQL predtim, nez se posle na server ....
>
>Dik moc za pomoc!
>ListView je desne pomaly
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 22.1.2004 10:49:32
Diky vsem za navrhy,
>Myslim, ze by mohlo pomoci pred zahajenim pridavani zavolate
>Items.BeginUpdate a po dokonceni Items.EndUpdate.
Prave ze to nepomuze, jedine pri Items.Clear, tam ano.
>...VirtualTreeView...
Vypada to pekne na pohled, slova jako "lightning fast" se mi moc libi :-)
Jen mam pochyby o tom, ze to vyuziju v komercni aplikaci, jestli jsem dobre
pochopil licence MPL a LGPU, tak to znamena distribuovat moji aplikaci spolu
se zdrojakem. Tak to je smula :-(>V techto pripadech je vhodne pouzit TListView ve virtulanim rezimu,
vlastnost
>OwnerData
Zkusim se tim prokousat. Napisu si teda vlastni OnData (prip. OnDataFind,
OnDeletion, OnInsert a dalsi). Vse ostatni bude fungovat stejne? Selection
by mohlo, co takhle OnCompare, nebo-li jak bude fungovat custom sortovani
pri kliknuti na sloupec. Tam vlastne pocitam jen hodnotu promenne Compare,
podle ktere zrejme komponenta prohodi porovnavane Itemy podle potreby. Asi
budu muset rucne seradit napred svuj interni seznam a pak dat nejake Refresh
aby se radky spravne zobrazily...? Nebo muzu prohodit data ve svem seznamu
primo v OnCompare na zaklade indexu predavanych v Item1, Item2? (No, dal tam
mam jeste par nejasnosti, ale snad uz na to prijdu).
Diky
Andreas
Advanced Create Process
[*] Petr Langer <langer(zv)xdom(tec)cz> - 22.1.2004 10:25:26
----- Original Message -----
From: <david.kopecek(zv)hacktrack.com>
Subject: Re: Advanced Create Process
>
> nemas nejaky named pipeline example pro Delphi .. asi to tak vypada ze
> budu muset udelat tcp klienta.. coz se mi moc nechce..
>
na www.torry.net nebo pomoci googlu toho najdes dost.
> PL> Jinak by jeste melo jit sledovat urcite performance counters, ale taky
by to
> PL> nebylo moc spolehlivejsi.
>
> hmm neco takoveho jsem prave kdysy skousel, a vykazovalo mi to i divne
> veci..
>
no prave. Musis vedet co sledovat a to jeste nemusi byt garantem zjisteni
(ne)funkcnosti.
Petr Langer
Ikona na plose
[*] delphi(zv)spst(tec)cz - 22.1.2004 09:49:20
Dobry den
Ma nekdo predstavu kde se uklada pozice ikony (zastupce) na plose?
Vytvorit zastupce svedu, ale umistit ho na plochu kam uznam za vhodne
nikoli.
Predem dekuji
Jirka
Advanced Create Process
[*] david.kopecek(zv)hacktrack(tec)com - 22.1.2004 10:03:24
Zdravim
PL> Ahoj,
PL> bohuzel jsem byl nucen neco takoveho delat, takze muzu rict, ze neexistuje
PL> jednoducha moznost jak zjistit, jestli aplikace zije nebo ne.
PL> Delam to tak, ze se snazim zjistovat, jestli je hlavni okno zive nebo ne
PL> (neprisel jsem na lepsi jednoduchy zpusob). K tomu slouzi tato funkce:
PL> function IsHungAppWindow (window : HWND) : BOOL; stdcall; external
PL> 'user32.dll' name 'IsHungAppWindow';
PL> da se ale pouzit i toto:
PL> SendMessageTimeout(mainHWND, WM_NULL, 0, 0, SMTO_ABORTIFHUNG And SMTO_BLOCK,
PL> 10000, retRes)
PL> Jak je videt, posila se jim handle okna. No a tady je zadrhel, ze na Win
PL> neexistuje jednoduchy postup, jak najit hlavni okno aplikace.
aha..
PL> Pro komunikaci s mastrem pouzivam Named Pipeline, ale delat to dneska,
PL> pouziju TCP.
nemas nejaky named pipeline example pro Delphi .. asi to tak vypada ze
budu muset udelat tcp klienta.. coz se mi moc nechce..
PL> Jinak by jeste melo jit sledovat urcite performance counters, ale taky by to
PL> nebylo moc spolehlivejsi.
hmm neco takoveho jsem prave kdysy skousel, a vykazovalo mi to i divne
veci..
David
>> zDravim,
>>
>> potreboval bych poradit s hlidanim vytvoreneho procesu..
>>
>> mam service ve Win2000 Server a po jejim spusteni servica spusti
>> nekolik exe souboru ktere provadeji ruzne operace.
>>
>> spousteni provadim pres CreateProcess, coz mi uz samo o sobe navrati
>> status jestli to bylo spusteno. Tak mi to navrati strukturu
>> _PROCESS_INFORMATION kde je ProcessID a , ThreadID. A muj dotaz zni
>> jak muzu jednoduse a efektivne kontrolovat jestli dany proces jede
>> neni treba zatuhly ?.. Jedina vec co me napada je PostThreadMessage
>> ale nikdy jsem to nijak nevyuzival..
>>
>> kazdopade se chci jeste zeptat co je lepsi pro komunikaci mezi
>> ovladaci konzoli a aplikaci ktera bezi na pozadi ?.. nejaky IPC$ nebo
>> pres PostThreadMessage ?
>> --
>> S pozdravem,
>> david
>> david.kopecek(zv)hacktrack.com
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
OT: PXE BOOT
[*] delphi(zv)spst(tec)cz - 22.1.2004 09:37:18
Dobry den, omlouvam se za OT, ale potrebuji poradit. Do starsich
sitovych karet (NE2000, ET32P) potrebuji PXE BOOT ROMky a dodavatel je
jiz neni schopen zajistit (snad ani neexistuji). Netusite, kde je mozne
na netu najit strukturu BOOT ROMky pripadne zda je nejaky program, ktery
umi kod pro PXE BOOT ROM generovat?
Predem dekuji Jirka
Advanced Create Process
[*] Petr Langer <langer(zv)xdom(tec)cz> - 22.1.2004 08:55:11
Ahoj,
bohuzel jsem byl nucen neco takoveho delat, takze muzu rict, ze neexistuje
jednoducha moznost jak zjistit, jestli aplikace zije nebo ne.
Delam to tak, ze se snazim zjistovat, jestli je hlavni okno zive nebo ne
(neprisel jsem na lepsi jednoduchy zpusob). K tomu slouzi tato funkce:
function IsHungAppWindow (window : HWND) : BOOL; stdcall; external
'user32.dll' name 'IsHungAppWindow';
da se ale pouzit i toto:
SendMessageTimeout(mainHWND, WM_NULL, 0, 0, SMTO_ABORTIFHUNG And SMTO_BLOCK,
10000, retRes)
Jak je videt, posila se jim handle okna. No a tady je zadrhel, ze na Win
neexistuje jednoduchy postup, jak najit hlavni okno aplikace.
Pro komunikaci s mastrem pouzivam Named Pipeline, ale delat to dneska,
pouziju TCP.
Jinak by jeste melo jit sledovat urcite performance counters, ale taky by to
nebylo moc spolehlivejsi.
HTH,
Petr Langer
----- Original Message -----
From: <david.kopecek(zv)hacktrack.com>
Subject: Advanced Create Process
> zDravim,
>
> potreboval bych poradit s hlidanim vytvoreneho procesu..
>
> mam service ve Win2000 Server a po jejim spusteni servica spusti
> nekolik exe souboru ktere provadeji ruzne operace.
>
> spousteni provadim pres CreateProcess, coz mi uz samo o sobe navrati
> status jestli to bylo spusteno. Tak mi to navrati strukturu
> _PROCESS_INFORMATION kde je ProcessID a , ThreadID. A muj dotaz zni
> jak muzu jednoduse a efektivne kontrolovat jestli dany proces jede
> neni treba zatuhly ?.. Jedina vec co me napada je PostThreadMessage
> ale nikdy jsem to nijak nevyuzival..
>
> kazdopade se chci jeste zeptat co je lepsi pro komunikaci mezi
> ovladaci konzoli a aplikaci ktera bezi na pozadi ?.. nejaky IPC$ nebo
> pres PostThreadMessage ?
> --
> S pozdravem,
> david
> david.kopecek(zv)hacktrack.com
ApplyUpdates na Oracle
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 22.1.2004 08:55:10
Ahoj,
Muzete mi prosim poradit ?
Pokud pouzivam ApplyUpdates na Informix, je vse v poradku, ale jakmile se o toto pokusim na Oracle, dojde k chybe (podle vdechl jde o apostrofy).
ApplyUpdates delam na klientovi.
Dekuju
Vasek
FireBird - porovnani databazi, rozdilovy skriptu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 22.1.2004 09:13:16
Pouzivame Database Comparer z www.clevercomponents.com k plne spokojenosti.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of petr palicka
> Sent: Thursday, January 22, 2004 8:53 AM
>
> dostal jsem za ukol rozhlednout se po netu a
> vybrat vhodny nastroj na (FireBird 1):
>
> 1/ porovnani dvou databazi
> 2/ vytvoreni rozdiloveho skriptu
> Petr Palicka aka Peca
FireBird - porovnani databazi, rozdilovy skriptu
[*] Martin Nedopil <delphi(zv)hon(tec)cz> - 22.1.2004 09:11:15
Database Comparer. Spolehlivy na 101,8 %.
Bez nej bych byl v lese.
Martin
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 22, 2004 8:53 AM
Subject: FireBird - porovnani databazi, rozdilovy skriptu
> Ahoj,
>
> dostal jsem za ukol rozhlednout se po netu a
> vybrat vhodny nastroj na (FireBird 1):
>
> 1/ porovnani dvou databazi
> 2/ vytvoreni rozdiloveho skriptu
>
> Par nastroju uz ma, ale chci se zeptat, kdo
> co pouzivate a proc zrovna to. Jak moc je to
> spolehlivy atp. Taky jak potom rozdilovy skript
> poustite (z delphi pres komponenty, isql...).
> O IBPhoenix - Download - Contributed vim,
> zajimaji me osobni zkusenosti a postrehy z praxe.
>
> dekuji
>
> Petr Palicka aka Peca
>
>
>
>Sinea
[*] m.babik(zv)mus(tec)cz - 22.1.2004 09:09:14
>Jenom drobnost - klienti maji Win9x nebo NT...?
Klienti, stejne jako ja, maji W2000 - verze 5, SP 3. Sinea je SINEA
2002 verze 5. Delphi 5 verze 5.62.
Jen jestli ty petkovy verze nejsou nejaky zacarovany? :-)
Jeste snad, i kdyz to by vliv mit nemelo, sestava se nacita z databaze,
ale popisy velikost, umisteni i obrazky jsou v poradku. M&B
ODBCe
[*] Lubomir Fule <fule(zv)humansoft.sk> - 22.1.2004 08:57:12
Ahojte, odstranil som z ODBCe par chybiciek avizovanych P. Fejfarom, takze
uzivatelom ODBCe odporucam stiahnut si poslednu verziu. V pripade problemov
pri stahovani mozem poslat E-Mail-om.
L.
BDE a ORACLE! POMOC! BDE spatne generuje SQL pro O
[*] Vlada <delphak(zv)centrum(tec)cz> - 22.1.2004 08:49:08
Ahojte, mam nasledujici problem, poradite nekdo prosim?!? BDE spatne generuje SQL pro ORACLE.
Na formulari mam TDatabase, TBDEClientDataSet, TDataSource a TDBGrid.
TBDEClientDataSet.CommandText := 'select * from m_oop_typ'
Pokud se pokusim vymazat nebo zmenit ci pridat vetu, skoncim s oracle chybou TABULKA NEEXISTUJE.
V SQL monitoru vidim, ze BDE vygenerovalo SQL typu DELETE "M_OOP_TYP" WHERE "ID"=:1
A PROBLEMEM jsou ty uvozovky " ... ty Oracle vadi, to neskousne.
Co s tim? Jak to mam udelat? Samozrejme si muzu napsat vlastni insert / update / delete ... ale prece jenom se mi to zda zbytecne ...
Nebo alespon nejak dostat do ruky to SQL predtim, nez se posle na server ....
Dik moc za pomoc!
Sinea
[*] BS Info <info(zv)borkovec(tec)com> - 22.1.2004 08:47:08
Jenom drobnost - klienti maji Win9x nebo NT...?
Stalo se nam, ze dlouha pole naborila mrizky ve Win9x - nebylo nic videt,
zatimco na NT to bylo v poradku.
roman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of m.babik(zv)mus(tec)cz
Sent: Thursday, January 22, 2004 8:23 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Sinea
>Predpokladam, ze neni pouzito vlastni plneni dat pomoci OnGetData.
Spravny predpoklad
>Zobrazena data tedy mohou byt ovlivnena jeste pomoci OnGetText. Pokud
je toto v poradku, neni duvod, aby data nebyla. Prochazi data pres unit
DB_Bridge v poradku?
Tak tohle nevim, protoze se to stava pouze u spusteni "exe", nikdy se
mi to nepovedlo navodit pri ladeni. Stava se to jen u uzivatelu. :-(
M&B
Advanced Create Process
[*] david.kopecek(zv)hacktrack(tec)com - 22.1.2004 08:11:04
zDravim,
potreboval bych poradit s hlidanim vytvoreneho procesu..
mam service ve Win2000 Server a po jejim spusteni servica spusti
nekolik exe souboru ktere provadeji ruzne operace.
spousteni provadim pres CreateProcess, coz mi uz samo o sobe navrati
status jestli to bylo spusteno. Tak mi to navrati strukturu
_PROCESS_INFORMATION kde je ProcessID a , ThreadID. A muj dotaz zni
jak muzu jednoduse a efektivne kontrolovat jestli dany proces jede
neni treba zatuhly ?.. Jedina vec co me napada je PostThreadMessage
ale nikdy jsem to nijak nevyuzival..
kazdopade se chci jeste zeptat co je lepsi pro komunikaci mezi
ovladaci konzoli a aplikaci ktera bezi na pozadi ?.. nejaky IPC$ nebo
pres PostThreadMessage ?
CreateProcess(pchar(s),
nil,
nil,
nil,
false,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
startupinfo,
ProcessInfo);
typedef struct _PROCESS_INFORMATION {
HANDLE hProcess;
HANDLE hThread;
DWORD dwProcessId;
DWORD dwThreadId;
} PROCESS_INFORMATION;
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Sinea
[*] m.babik(zv)mus(tec)cz - 22.1.2004 08:23:05
>Predpokladam, ze neni pouzito vlastni plneni dat pomoci OnGetData.
Spravny predpoklad
>Zobrazena data tedy mohou byt ovlivnena jeste pomoci OnGetText. Pokud
je toto v poradku, neni duvod, aby data nebyla. Prochazi data pres unit
DB_Bridge v poradku?
Tak tohle nevim, protoze se to stava pouze u spusteni "exe", nikdy se
mi to nepovedlo navodit pri ladeni. Stava se to jen u uzivatelu. :-(
M&B
Kylix, FileVersion
[*] mstevlik(zv)gamo.sk - 22.1.2004 08:07:03
Hi all,
Potreboval by som programovo v Kylixe zistit aku verziu ma mnou vytvorena
SO kniznica
Existuje tam nieco ako FileInfo, FileVersion ... ?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
ListView je desne pomaly
[*] Martin Cajbik <cajbik(zv)sct.sk> - 22.1.2004 08:01:02
Zdravim,
ja pouzivam ListView s velkym poctom zaznamov v OwnerData rezime, pricom mam
vlastnu pamatovu reprezentaciu zaznamov (nic zlozite, staci napr.
dvojrozmerne pole alebo pole recordov) a je to niekolkonasobne (5 - 10 x
rychlejsie). Preco je vsak ListView v standartnom rezime tak pomaly, to
neviem.
Martin Cajbik
> Preji hezky den,
>
> potreboval bych poradit s komponentou ListView v Delphi 4. Pouzivam ji pro
> zobrazeni ruznych seznamu (Style = vsReport). Pouzitelne je to tak do
4-5000
> radku, pak se pridavani novych radku (Items.Add a SubItems.Add)
neuveritelne
> zpomaluje. Zobrazeni 60000 radku trva nekolik dlouhych minut i na vykonnem
> pocitadle (neni zapnute sortovani). Nepomuze ani nastavit Visible na
False,
> coz je nutne napr. pri Items.Clear (a to radsi uz pri vice jak 10 radcich
> :-) jinak si muzete mezitim skocit na kafe :-(
>
> Nevite jestli se to da nejak vyresit? Klidne pouziju i jinou komponentu,
ale
> nevim jakou.
>
> Je to fakticky utrpne pomale.
>
> Diky
> Andreas
>
>
>StringToWideChar
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 22.1.2004 07:49:00
Zkus se podivat na StringToWideCharEx z JCL (unita JclUnicode). Je to
jednoduche a rychle :)))
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Radek Szurman
> Sent: Wednesday, January 21, 2004 3:23 PM
>
> Mate nekdo funkcni priklad kde funguje finkce StringToWideChar ?
> dik Radek Szurman
Zkusenosti Firebird
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 22.1.2004 00:26:26
cca od 10 do 25 soucasnych TCP pripojeni.
V prumyslu je pojem uzivatel ponekud zavadejici.
Radeji ma TCP spojeni i kdyz ani to prilis nerekne.
Napriklad nedrsnejsi jsou statistiky, to staci
zhruba 3 TCP aby pekne vytizili server.
Jinak mam nekolik "malych" severu, jenz nebezi
v 7x24, ale to se nepocita.
Nedelam si prilis starosti s delkou transakci, pokud
je to do 1 dne, tak je to OK o zbytek se postara SWEEP.
Je take pravda, ze mam jen minimum update.
Slavek
> Ahoj
> > Bezproblemovy chod (4000 hodin bez restartu windows).
>
> Kolko uzivatelov sucasne?
>
> Miro
>
>
>
>
Jednoducha DB aplikacia
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 21.1.2004 23:44:21
Delphi adresar demos\db
Racej si vybrat.
Jinak te vubec nechapu, pukud muzes dodat vlastni zdrojaky, proc nemuzes dodat
zdrojaky
jinych (nekradene) ?
Komponenty NEMUSIS instalovat, jen pak nepujdou zobrazit formulare, nebo je misis
vytvaret
rucne, ale preklad bude fungovat VZDY.
Proc nemuzes nakopirovat ke svim zdrojakum jednu dll (FireBird embeded) ?
Slavek
PS:Podle meho nazoru je zbytecne vytvaret neco, co jiz mas na disku.
Pokud jsi ovsem neocesal instalaci v ramci tzv. uspornych opatreni.> Takze ak vas mozem poprosit o poslanie jednofurmolarovej app, kde by bol
> klasicky TDBGrid + TDataSource + TQuery a bolo by to napojene na nejake
> dBase, Paradox, ... cez Select * From Tab1 Where ... Order By ... a tato
> jednotabulkova DB by bola prilozena, tak by som sa velmi potesil
> Poprosim posielat na sukromny mail, dik
Zkusenosti Firebird
[*] MMS <preas_w(zv)stonline.sk> - 21.1.2004 23:50:23
Ahoj
> Bezproblemovy chod (4000 hodin bez restartu windows).
Kolko uzivatelov sucasne?
Miro
Interbase: jak predejit vzniku velkeho rozdilu mez
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 21.1.2004 23:12:17
Spomaleni by nemelo byt zpusobene sweepem, ale narustajicim rozdilem.
Jednou se mi to stalo na ib5.6.
Jedine co pomuze je:
odpojit vsechny klienty a provest sweep rucne.
Klienti se nejsnaze vypinaji pomoci restartu serveru.
>
> > Pokud rollback nepouzijes, transakce zustane otevrena, ale misto rollback muzes
> > pouzit commit.
>
> Tomu nerozumim, to znamena, ze v osetreni vyjimky bych mohl zavolat
> misto rollbacku znovu commit?
Pak staci sekce finally a v ni commit.
Obecne je lepsi except nepouzivat a mit jeden exception handler (ovsem ne vzdy
realne).
>
> > ANO, jen nemusi (pokud se porad bavime o jednom prikazu) davat rollback,
> > pokud se jedna o vice prikazu, tak by mel byt rollback.
>
> Takze by melo byt v pripade osetreni deadlocku nejak takto?
>
> ResOk := false; ResCnt := 0;
> while (not ResOk) and (ResCnt < MAX_CNT) do begin
> try
> IBTransaction1.StartTransaction; // tady nebo pred cyklem?
> with IBSQL1 do begin
> SQL.Clear;
> SQL.Add('update radku, na kterem muze byt deadlock');
> ExecQuery;
> end;
> IBTransaction1.Commit;
> ResOk := true;
> except
> IBTransactionSynoptic.Rollback; // <- nemusim pouzit?
> Inc(ResCnt);
> end;
> end; // while
Ja osobne bych pouzil startTR, try, while, commitTR , except, rollbackTR, raise end.
Je to mnohem rychlejsi, ale zvysuje se pravdepodobnost deadlocku (vzhledem k
rychlosti ovsem zase
klesa).
>
> Pokud nepouziju tedy rollback v exceptu, nemel bych pak pouzit podminene
> nastartovani transakce?
> if IBTransaction1.Active then IBTransaction1.StartTransaction;
Podmineny start transakce by mel implikovat podminene ukonceni, tj.
pokud je transakce aktivni, tak bych ani nemel provadet rollback, nebo commit,
ale mel bych raisnout vyjimku (v timto pripade ji nesmim potlacit).
Pokud transakce neni aktivni, tak ji musim ukoncit (rollback, nebo commit) jinak
se dostavam v programu do nekonzistentniho stavu.
Pro IB je vyhodnejsi commit (rychlejsi).
Slavek
Interbase: jak predejit vzniku velkeho rozdilu mez
[*] Petr Selinger <delphiforum(zv)centrum(tec)cz> - 21.1.2004 21:16:07
> Neni podstatne jestli to delas rucne, nebo automaticky, ale proc to delas.
> Delas to proto abys odstranil z DB neplatne zaznamy, pokud ovsem mas
> velky rozdil (neni podstatny pocet transakci, ale pocet neplatnych radku !!!)
> mezi aktualni a platnou transakci, tak je sweep stejne k nicemu.
> Pak muzes nechat provadet sweep automaticky (tak to delam ja,
> nemam potrebu nekam chodit a mackat cudlik, kdyz to muze udelat
> automatika).
Ja jsem pro nastavit to taky automaticky. Jenom se nam stavalo, ze kdyz
byl rozdil transakci moc velky a pak probehl sweep, ktery to setrepal a
uvolnil kvantum starych radku pro garbage collection a server to zacal
odstranovat, tak to hodne vytizilo server a system se citelne zpomalil ->
coz je treba v noci, kdyz tam nejsme, nemile.
> Tak zde problem nebude, ale ta doba se mi zda naumerne kratka.
> Vezmu li 200 000 transakci denne, kazda transakce prida prumerne
> jeden radek do DB, tak mi to opravdu nesedi.
> 200 000 transakci denne je > 2 transakce za vterinu, vezmemeli v uvahu
> nerovnomerne rozdeleni, tak ve spicku jich musi byt i vice jak 10.
> To by odpovidalo velmi velkemu serveru.
Protoze s tim neustale laborujeme a davame co chvili cistou databazi, tak to
opravdu trva jenom chvilku (na cca 80MB databazi). Restore probehne v
poradku a trva trochu dele. Ve spicce vznika tak tak 5 zprav za vterinu, v
noci je to pomalejsi.
> 200 000/30 0000 = cca 1/7 dne ~ 3.5 hod, to je docela dobry stav.
> To by me nijak neznepokojovalo, spise bych byl znepokojen, pokud vim, ze ZADNY
> klient nema otevrenou zadnou transakci a me narusta rozdil.
> Delphi jsou staveny tak, ze pokud pouzivas DB Grid, tak musis mit otevrenou
> transkaci
> (pokud se nebavime o MIDAS a podobne).
Ne, zadny grid nepouzivame, obecne se provadi vetsinou jeden sql dotaz v
ramci transakce a na nej se v databazi pres triggery generuji dalsi data do
tabulek. To znamena, ze commit musim volat i v pripade jednoho sql dotazu,
aby se spustil trigger. Takze by tam zadna dlouha transakce 'viset' nemela,
spis jde o ty rollbacky, ktere se promitnou do OIT.
Taky me porad mate to, ze stav je nekdy takovy:
OIT=OAT=OST >>> NT
Jakto ze je NT nekdy treba o 70 000 dopredu pred OIT a OAT? Zavisi to
na tom, ze statistika je brana s pripojenymi klienty, NT se spravne precte,
protoze to je jednoduse cislo generatoru, ktery uvadi, co se pouzije pro dalsi
transakci a ty ostatni transakce si interbase 'drzi', dokud se napr. nekdo
nepripoji/neodpoji/nezapise dalsi stranka,...?
> Pokud se jedna o jeden prikaz, tak rollback neni treba.
> I kdyz tento kod je ponekud zvlastni, transakce je sice zahajena podminecne,ale
> ukoncena VZDY. Je tohle v poradku ?
Jasne, zahajeni by v tomto pripade melo byt nepodminene.
> Pokud rollback nepouzijes, transakce zustane otevrena, ale misto rollback muzes
> pouzit commit.
Tomu nerozumim, to znamena, ze v osetreni vyjimky bych mohl zavolat
misto rollbacku znovu commit?
> ANO, jen nemusi (pokud se porad bavime o jednom prikazu) davat rollback,
> pokud se jedna o vice prikazu, tak by mel byt rollback.
Takze by melo byt v pripade osetreni deadlocku nejak takto?
ResOk := false; ResCnt := 0;
while (not ResOk) and (ResCnt < MAX_CNT) do begin
try
IBTransaction1.StartTransaction; // tady nebo pred cyklem?
with IBSQL1 do begin
SQL.Clear;
SQL.Add('update radku, na kterem muze byt deadlock');
ExecQuery;
end;
IBTransaction1.Commit;
ResOk := true;
except
IBTransactionSynoptic.Rollback; // <- nemusim pouzit?
Inc(ResCnt);
end;
end; // while
Pokud nepouziju tedy rollback v exceptu, nemel bych pak pouzit podminene
nastartovani transakce?
if IBTransaction1.Active then IBTransaction1.StartTransaction;
Nebo je lepsi nastartovat transakci pred while cyklem a kdyz vyskoci vyjimka
a neprovede se rollback, tak volat sql query na tu stejnou nastartovanou
transakci, i kdyz ten prikaz zhavaroval na deadlocku?
> Jenom takova poznamka na zaver:
> Pokud si budes ne klientech logovat cisla transakci (pripadne vice informaci),
> muzes pak podle cisla OIT ve statistice najit klienta, ktery dela ten problem.
Diky, dobry tip.
Petr
Rozliseni malych a velkych pismen v IB
[*] David Klodner <d.klodner(zv)seznam(tec)cz> - 21.1.2004 21:26:09
Zdravim,
poradi mi nekdo, jak z SQL dotazu v IB vypustit nazvy zacinajici na male x,
a ponechat ty zaxinajici na velke X.
select nazev from zbozi
where nazev not starting with 'x'
me vynecha vsechny nazvy zacinajici na x i X
Diky
David Klodner
ListView vs. FlashFiler (was: ListView je desne po
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 21.1.2004 21:16:08
nevite nekdo, jak pouzit virtualni rezim ListView pri napojeni na
jednoduchou tabulku FlashFileru? Co dat do OnDataFind, OnDataHint a OnData?
Tusim, ze nekde by mohl byt problem s faktem, ze nelze zjistit RecNo. Ale
neni mi jasne hlavne OnData obecne.
Diky
Petr
-----Original Message-----
Subject: Re: ListView je desne pomaly
From: "Andreas Bednarek" <bednarek(zv)digitus(tec)cz>
> potreboval bych poradit s komponentou ListView v Delphi 4. Pouzivam ji pro
> zobrazeni ruznych seznamu (Style = vsReport). Pouzitelne je to tak do
4-5000
> radku, pak se pridavani novych radku (Items.Add a SubItems.Add)
neuveritelne
> zpomaluje. Zobrazeni 60000 radku trva nekolik dlouhych minut i na vykonnem
V techto pripadech je vhodne pouzit TListView ve virtulanim rezimu,
vlastnost
OwnerData. Tim se pouze nastavi pocet polozek a o data si rika az v pripade
kdy je treba je zobrazit, v udalosti OnData. Vlastni data mas pak ulozene v
nejake vhodnejsi strukture (seznam objektu apod.) Zobrazis tak bez problemu
treba i miliony polozek behem okamziku.FireBird before-image zurnal
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.1.2004 20:04:01
Haj hou!
On 21 Jan 2004 at 10:45, Benda Lukas wrote:
> Chtel bych se zeptat jestli databaze Firebird podporuje zurnalovani.
> (Popripade jestli to pouziva MS SQL v te volne siritelne verzi pro pet
> uzivatelu (ono se to jmenuje trochu jinak nez MS SQL, ale v podstate je
> to to same)).
Firebird nema BIZ, protoze pouziva multigeneracni architekturu. Kdysi
davno (v2?) mel jako *dodatecny* system zurnalovaci server, ale ten
uz neni k dispozici.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Interbase: jak predejit vzniku velkeho rozdilu mez
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.1.2004 20:04:02
Haj hou!
On 21 Jan 2004 at 12:11, Slavomir Skopalik wrote:
> malo informaci.
> 1. sweep prodite v shutdown modu (odpojeni vsichni uzivatele ?)?
> 2. jak dlouho trva ten backup ?
> 3. jak mnoho transakci se generuje za den (a rozlozeni)?
>
> Jedine co mohu radit je, odpojit vsechny klienty a postupne je pripojovat,
> dusledne se pripojovat pres tcp/ip aby bylo spojeni videt v tcpipview.
>
> Proste si nekdo otevre transakci a neda commit. Ted je jen treba hrisnika najit.
Dlouhobezici transakce nemusi mit bezpodminecne nic spolecneho s OIT,
anzto ma vliv na OAT (pokud ovsem neni OIT stejne jako OAT). Pokud
zamrzne OIT ale OAT (Oldest active transaction) se zvysuje bez
problemu, pak je na vine odvolana transakce (rollback) ve ktere bylo
provedeno prilis mnoho zmen, nebo z duvodu padu spojeni.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
kombinace znaku
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 21.1.2004 19:01:57
> potreboval bych poradit, jak naprogramovat kod, ktery by mi vypsal vsechny
kombinace urcitych znaku
> napr. mam abcd a potrebuju do vystupu dostat
>
> aaaa
> aaab
> aaac
> ....
> addd
> baaa
> ....
> dddd
>
> jak na to?
procedure TForm1.Button1Click(Sender: TObject);
const
Length = 4;
MinValue = 1;
MaxValue = 4;
var
Values: array [1..Length] of Integer;
i: Integer;
Line: String;
begin
// init
for i := Low(Values) to High(Values) do
Values[i] := MinValue;
repeat
// print
Line := '';
for i := Low(Values) to High(Values) do
Line := Line + IntToStr(Values[i]) + ' ';
ShowMessage(Line);
// increment
i := High(Values);
while i >= Low(Values) do
begin
Inc(Values[i]);
if Values[i] > MaxValue then
Values[i] := MinValue
else
Break;
Dec(i);
end;
until i < Low(Values);
end;
Erik
Jednoducha DB aplikacia
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.1.2004 18:45:51
Benda Lukas <bendal(zv)volny(tec)cz> wrote:
> mstevlik(zv)gamo.sk napsal(a):
>>
> No ADOExpres by v Delphi 5 melo byt (teda podle toho co pisou v
> prirucce), no a pripojit se muze napr na textovo databazi.
> Mozna (teda nevim jestli to v 5-tkach je) by se dal vyuzit i
> ClientDataSet, vsechno spracovavat v pameti a pak jenom pri ukonceni
> aplikace ulozit do XML, nebo CDS souboru. Tak se delavaji "kufrikove"
> aplikace.
ADOExpress v D5Prof neni, ale dal se dokoupit.
ClientDataSet v D5Prof neni.
Martin Schayna
Jednoducha DB aplikacia
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 21.1.2004 18:37:46
mstevlik(zv)gamo.sk napsal(a):
>>EE BDE se taky musi instalovat. Je mozne pouzit Firebird v Embandet
>>verzi. A nebo pouzit ADO, ktere s nejvetsi pravdepodobnosti ma kazdy
>>windows v nejake verzi nainstalovane.
>>
>>
>
>BDE tam nainstalovane isto bude
>Ako sa viem za pomoci klasickych komponent v Delphi pripojit cez ADO
>niekam?
>
No ADOExpres by v Delphi 5 melo byt (teda podle toho co pisou v
prirucce), no a pripojit se muze napr na textovo databazi.
Mozna (teda nevim jestli to v 5-tkach je) by se dal vyuzit i
ClientDataSet, vsechno spracovavat v pameti a pak jenom pri ukonceni
aplikace ulozit do XML, nebo CDS souboru. Tak se delavaji "kufrikove"
aplikace.
Lukas Benda
UDF - string (konkretne GUID)
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 21.1.2004 18:35:45
> > A v pripade ze zadam CSTRING (33) bude se mi ukladat do databaze i ta nula?
> Ahoj, musis si naalokovat i ten jeden znak navic.
A ulozi se do databaze i ta posledni nula, neba ta je ignorovana?
> Jeste bych te chtel varovat, ze jsem mel velke problemy s pouzivanim
> funkce coCreateGuid v UDF. Pri sitovem provozu to docela natvrdo
havarovalo.
Co na ni havarovalo?
No ja hodlam pouzit vytvareni GUID (pomoci standardni funkce windovs pro
GUID (32 bajtu char), nebo 16 pokud se to prepocte na cislo). Toho
hodlam pridava
jenom ve dvou tabulkach, kam nebudou casto vkladano. Jinak bude GUID
vytvoreno uz na klientova a s nim zaslano do tabulky.
Vyuziti Generatoru nepripada v uvahu z nekolik duvodu
1) Chci znat ID zaznamu jeste pred vloznim do DB, aby se mohl provest
refresh (ptani se serveru na ID zaneprazdnuje server a pritom to muze
stejne tak dobre udelat klient).
2) System pobezi ve vice kopiich serveru. Typicky Organizace - Okres -
Kraj - Ustredi. Data se budou prenaset davkove (vetsinou jednou do roka)
takze by bylo nutno neustale predelavat Generovane ID.
Sestava s vybranim polozek
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 21.1.2004 18:03:41
On 21 Jan 2004 at 11:29, Benda Lukas wrote:
> >>2) freereport a jeho komercni "bracha" FastReport - jevi se mi jako
> >>velmi pekne nastroje. Na jednoduche sestavy Ti satci freereport -
> >>sam s nimi zacinam - jako nevyhodu vidim pouze jednu - navrh tiskove
> >>sestavy se dela mimo IDE Delphi
> >>
> >>
> >
> >to je pro mne (po temer dvouletem pouzivani) novinka
> >
> >Jarek Uher
> >
> Chcete-li jich mit vic, tak na slunecnici(tec)cz napiste Report a dejte
> hledat, vypadne vam dalsi tuny reportu. btw. v delphi 7 byl pridan a
> nastaven jako defaultni report od Nevrony (tedka si nemuzu vzpomenou
> jak se jmenuje :(()
obavam se, ze si nerozumime.
Ja reagoval na posledni vetu "...navrh tiskove sestavy se dela mimo
IDE Delphi" .
Dvojklikem na TfrReport se mi otevre Designer - ale ze bych byl mimo
IDE ?
Tak se snad chovaji vsechny lepsi reporty !
Jarek Uher
Jednoducha DB aplikacia
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.1.2004 18:05:42
Puvodni zprava ze dne 21.1.2004:
> Podarilo sa mi pomocou wizarda vytvorit formular s gridom kt. sa pomocou
> TQuery pripojil k dBase suboru
> Ma to vsak zopar problemov, neviem do SQL.Text dopisat klausulu Order By,
> ako nahle ju tam doplnim tak mi to vyhodi chybu :(
Co to je "tak mi to vyhodi chybu"? Kam ti ji vyhodi? Z okna? Z
postele? Do kose? Nebo co to "vyhodilo" za chybu? Nedostatek mista na
disku? Deleni nulou? Nebo antivirus hlasi, ze prisel virus? Clovece,
nezlob se na me, ty jsi vazne na vysoke skole nebo si tu z nas delas
legraci?
Jestli chces nejakou pomoc, budes se muset asi nejak presneji
vyjadrit, ja vazne nejsem jasnovidec. Neocekavas, ze ti budu pokladat
otazky, abys mohl odpovidat jen ANO-NE, ze ne?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
SetMapMode
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 21.1.2004 17:11:37
Ahoj,
nemate nekdo priklad jak se pouziva API funkce SetMapMode?
Nasledujici priklad mi nic nedela. mapMode se zmeni, ale nic se nevykresli.
procedure TForm1.Button2Click(Sender: TObject);
begin
if SetMapMode(MvPanel1.canvas.Handle,MM_LOMETRIC) = 0 then
begin
MessageDlg('chyba', mtWarning, [mbOK], 0);
end;
MVPanel1.canvas.Brush.Style := bsSolid;
Mvpanel1.canvas.Brush.Color := clRed;
mvpanel1.canvas.
Mvpanel1.canvas.Rectangle(50,50,100,100); //Zkousel jsem menit vselijak souradnice
Label1.Caption:=inttostr(GetMapMode(Mvpanel1.canvas.Handle));
end;
Diky
Interbase: jak predejit vzniku velkeho rozdilu mez
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 21.1.2004 16:45:34
> > 1. sweep provadite v shutdown modu (odpojeni vsichni uzivatele ?)?
>
> Sweep delame za behu ostatnich klientu, neni mozne je vsechny odpojit.
> Vim ze se doporucuje udelat rucne sweep pri odpojenych klientech, ale
> jaky je rozdil? Kdy mam Sweep interval povoleny a Sweep se provede
> automaticky za normalniho behu s klienty, je to to stejne, jako bych to
> udelal rucne, nebo se to nejak lisi?
Neni podstatne jestli to delas rucne, nebo automaticky, ale proc to delas.
Delas to proto abys odstranil z DB neplatne zaznamy, pokud ovsem mas
velky rozdil (neni podstatny pocet transakci, ale pocet neplatnych radku !!!)
mezi aktualni a platnou transakci, tak je sweep stejne k nicemu.
Pak muzes nechat provadet sweep automaticky (tak to delam ja,
nemam potrebu nekam chodit a mackat cudlik, kdyz to muze udelat
automatika).
>
> > 2. jak dlouho trva ten backup ?
>
> Backup je hotovy za cca 15 vterin.
Tak zde problem nebude, ale ta doba se mi zda naumerne kratka.
Vezmu li 200 000 transakci denne, kazda transakce prida prumerne
jeden radek do DB, tak mi to opravdu nesedi.
200 000 transakci denne je > 2 transakce za vterinu, vezmemeli v uvahu
nerovnomerne rozdeleni, tak ve spicku jich musi byt i vice jak 10.
To by odpovidalo velmi velkemu serveru.
>
> > 3. jak mnoho transakci se generuje za den (a rozlozeni)?
>
> Za den je zhruba kolem 200 000 transakci, pripojenych je stabilne kolem 20ti
> klientu, kteri bezi neustale (neprovadi se odpojovani, pokud zrovna nespadne
> spojeni).
200 000/30 0000 = cca 1/7 dne ~ 3.5 hod, to je docela dobry stav.
To by me nijak neznepokojovalo, spise bych byl znepokojen, pokud vim, ze ZADNY
klient nema otevrenou zadnou transakci a me narusta rozdil.
Delphi jsou staveny tak, ze pokud pouzivas DB Grid, tak musis mit otevrenou
transkaci
(pokud se nebavime o MIDAS a podobne).
>
> Jeste mam takovy obecny dotaz k osetreni chyby pri provadeni sql prikazu.
> Mam kod, napr:
>
> try
> if not IBTransaction1.Active then IBTransaction1.StartTransaction;
> with IBSQL1 do begin
> SQL.Clear;
> SQL.Add(dotaz);
> ExecQuery;
> end;
> if IBTransaction1.Active then IBTransaction1.Commit;
> except
> if IBTransaction1.Active then IBTransaction1.Rollback;
> end;
Pokud se jedna o jeden prikaz, tak rollback neni treba.
I kdyz tento kod je ponekud zvlastni, transakce je sice zahajena podminecne,ale
ukoncena VZDY. Je tohle v poradku ?
>
> Jedna se mi predevsim o ten Rollback v exceptu. Mam ho zde vubec pouzit?
> Pokud volam Rollback, zustane mi tato transakce v OIT a pak se musi
> provadet Sweep. Pokud ho nepouziju, zustane tato transakce v neukoncenem
> stavu?
Pokud rollback nepouzijes, transakce zustane otevrena, ale misto rollback muzes
pouzit commit.
Jen mne porad mate to podminecne spousteni transakce, to tam podle toho co pises
nema co delat a jen to pred tebou maskuje chybu s neuzavrenou transakci.
Obecne se doporucuje NEDELAT kazdou operaci ve vlastni transakci, ale v ramci jedne
transakce by se melo provest vse odpovidajici.
>
> A jak se zachovat v pripade konkurentniho update na stejny radek v tabulce
> z dvou ruznych klientu v tu stejnou dobu? Kdyz vznikne deadlock, ten,
> kteremu to nahlasilo chybu ma provest Rollback a zkusit to znovu? (to
> znamena zase nastartovat transakci a zkusit Commit). Zustava i v tomto
> pripade, kdy jsem provedl Rollback a pak znovu nastartoval transakci
> a povedl se Commit tato transakce v OIT?
ANO, jen nemusi (pokud se porad bavime o jednom prikazu) davat rollback,
pokud se jedna o vice prikazu, tak by mel byt rollback.
Jenom takova poznamka na zaver:
Pokud si budes ne klientech logovat cisla transakci (pripadne vice informaci),
muzes pak podle cisla OIT ve statistice najit klienta, ktery dela ten problem.
Slavek
kombinace znaku
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 21.1.2004 16:47:35
i:=0;
while bavimeto do
begin
inc(i);
vysledek:='';
pom:=i;
while (pom>0) or (length(vysledek)<4) do
begin
cislo:=pom mod 26;
pom:=pom div 26;
vysledek:=vysledek+chr(ord('a')+cislo);
end;
writeln(vysledek);
end;
(pisu z hlavy)
>potreboval bych poradit, jak naprogramovat kod, ktery by mi vypsal vsechny
>kombinace urcitych znaku
>napr. mam abcd a potrebuju do vystupu dostat
>
>aaaa
>aaab
>aaac
>....
>addd
>baaa
>....
>dddd
>
>jak na to?
>
>diky
>mf
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
StringToWideChar
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 21.1.2004 16:39:32
Diky alokace zabrala, to jsem netusil ze to se musi.
PWOut := AllocMem(255);
pwout1:= StringToWideChar (IntToStr(1)+'-Name', PWOut, 255);
ShowMessage(pwout1);
SysFreeMem(pwout);> Joha Radek,
>
> R> Mate nekdo funkcni priklad kde funguje finkce StringToWideChar ?
>
> R> ja delam toto:
> R> StringToWideChar(inttostr(1), pwout, 255);
>
> R> a ono to pak udela toto:
> R> Access violation at adress....
>
> R> Delam neco spatne ? a co ?
>
> Asi nemas tech 255 bytu naalokovanych ?
> Zkus treba AllocMem().
> --
> vt
>
>
>
>
>
kombinace znaku
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.1.2004 16:39:32
Nasel jsem v archivu tohle (napsal Erik Salaj), ale je to bez opakovani,
urcite zvladnes upravu:
program Permut;
{$APPTYPE CONSOLE}
const n = 9;
var p: array [1..n] of Integer;
procedure Vymen(var x, y: Integer);
var temp: Integer;
begin
temp := x; x := y; y := temp;
end;
procedure Vypis;
var i: Integer;
begin
for i := 1 to n do
Write(p[i], ' ');
WriteLn;
end;
procedure Permutacie(od: Integer);
var i: Integer;
begin
if od = n then
Vypis
else
for i := od to n do
begin
Vymen(p[od], p[i]);
Permutacie(od + 1);
Vymen(p[od], p[i]);
end;
end;
procedure Init;
var i: Integer;
begin
for i := 1 to n do
p[i] := i;
end;
begin
Init;
Permutacie(1);
ReadLn;
end.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
potreboval bych poradit, jak naprogramovat kod, ktery by mi vypsal
vsechny kombinace urcitych znaku
napr. mam abcd a potrebuju do vystupu dostat
aaaa
aaab
aaac
....
addd
baaa
....
dddd
ODBCe - Visual FoxPro - Agragace (sum, count)
[*] J.Hasek <cz602778(zv)tiscali(tec)cz> - 21.1.2004 16:27:30
FUNKCNI RESENI pro pripadne zajemce, ktere mi poslal autor ODBCe L. Fule a
kteremu timto jeste jednou dekuji:
Tak som to vyskusal a funguje to takto: Musis v Environmente nastavit
property ODBCVer na ovODBC2 (default je ovODBC3). To urobis tak, ze si bud
na form das vlastny TODBCEnvironment a nan napojis ODBCDatabase alebo v run
time nastavis DefaultEnvironment.ODBCVer := ovODBC2. Okrem toho este musis
nastavi v ODBCDatabase property UseInt64 na false. Takto by to malo
fungovat.
L.
> Pri pouziti agregacni funkce
>
> SELECT sum(...)
> FROM ...
> GROUP BY ...
>
> ale dostanu chybu: Ovladac tento parametr nepodporuje
> Je zajimave, ze chyba nastava pouze u SUM a COUNT.kombinace znaku
[*] Michal Frohr <mfrohr(zv)seznam(tec)cz> - 21.1.2004 16:25:29
Zdravim,
potreboval bych poradit, jak naprogramovat kod, ktery by mi vypsal vsechny kombinace urcitych znaku
napr. mam abcd a potrebuju do vystupu dostat
aaaa
aaab
aaac
....
addd
baaa
....
dddd
jak na to?
diky
mf
Interbase: jak predejit vzniku velkeho rozdilu mez
[*] Petr Selinger <delphiforum(zv)centrum(tec)cz> - 21.1.2004 15:53:27
> 1. sweep provadite v shutdown modu (odpojeni vsichni uzivatele ?)?
Sweep delame za behu ostatnich klientu, neni mozne je vsechny odpojit.
Vim ze se doporucuje udelat rucne sweep pri odpojenych klientech, ale
jaky je rozdil? Kdy mam Sweep interval povoleny a Sweep se provede
automaticky za normalniho behu s klienty, je to to stejne, jako bych to
udelal rucne, nebo se to nejak lisi?
> 2. jak dlouho trva ten backup ?
Backup je hotovy za cca 15 vterin.
> 3. jak mnoho transakci se generuje za den (a rozlozeni)?
Za den je zhruba kolem 200 000 transakci, pripojenych je stabilne kolem 20ti
klientu, kteri bezi neustale (neprovadi se odpojovani, pokud zrovna nespadne
spojeni).
Spise me zarazi jedna vec. Pred chvili jsem sledoval statistiku a mezi OIT a
OAT je ted rozdil jedna, coz je ok. Avsak mezi OIT a Next Transaction uz je
rozdil skoro 70 000. Je to normalni?
Tady jsou hodnoty:
OIT: 1 419 149
OAT: 1 419 150
OSN: 1 419 150
NT: 1 488 029
Neni to treba z toho duvodu, ze se statistika pres gstat dela pri pripojenych
klientech a kdybych je vsechny odpojil, transakce by se srovnaly? Ten rozdil
postupne narusta.
Jeste mam takovy obecny dotaz k osetreni chyby pri provadeni sql prikazu.
Mam kod, napr:
try
if not IBTransaction1.Active then IBTransaction1.StartTransaction;
with IBSQL1 do begin
SQL.Clear;
SQL.Add(dotaz);
ExecQuery;
end;
if IBTransaction1.Active then IBTransaction1.Commit;
except
if IBTransaction1.Active then IBTransaction1.Rollback;
end;
Jedna se mi predevsim o ten Rollback v exceptu. Mam ho zde vubec pouzit?
Pokud volam Rollback, zustane mi tato transakce v OIT a pak se musi
provadet Sweep. Pokud ho nepouziju, zustane tato transakce v neukoncenem
stavu?
A jak se zachovat v pripade konkurentniho update na stejny radek v tabulce
z dvou ruznych klientu v tu stejnou dobu? Kdyz vznikne deadlock, ten,
kteremu to nahlasilo chybu ma provest Rollback a zkusit to znovu? (to
znamena zase nastartovat transakci a zkusit Commit). Zustava i v tomto
pripade, kdy jsem provedl Rollback a pak znovu nastartoval transakci
a povedl se Commit tato transakce v OIT?
Diky za jakekoliv pripominky
Petr
--------------------
Jedte na modrou!
Vyhodna zimni nabidka od Fordu. www.ford(tec)cz
http://ad2.bbmedia(tec)cz/please/redirect/124/8/1/7/?param=4168/4715_1
StringToWideChar
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 21.1.2004 15:41:25
>R> Mate nekdo funkcni priklad kde funguje finkce StringToWideChar ?
>
>R> ja delam toto:
>R> StringToWideChar(inttostr(1), pwout, 255);
>
>R> a ono to pak udela toto:
>R> Access violation at adress....
>
>R> Delam neco spatne ? a co ?
> Asi nemas tech 255 bytu naalokovanych ?
> Zkus treba AllocMem().
V tom pripade by to malo byt 510 bytov (DestSize * SizeOf(WideChar)).
Mozno by bolo jednoduchsie nadeklarovat si lokalnu premennu typu WideString
a jednoducho jej ten string priradit:
var
W: WideString;
S: string;
...
W := S;
Delphi potom alokuje a konvertuje automaticky.
HTH
TOndrej
Jednoducha DB aplikacia
[*] mstevlik(zv)gamo.sk - 21.1.2004 15:39:20
> Nevola sa ten predmet nahodou Databazy a nemas nahodou nakodovat tu
> databazu sam? Aby si nepotreboval ziadnu navyse atd...
> :-)
Nie ten predmet sa nevola Databazy
Ide skor o jednoduchy GIS software urobeny len nad cistymi delphami, aby
si to mohol profak vyskusat na skole (mame vyslovne zakazane pouzit
komponenty 3ich stran)
A InterBase nainstalovany nebude
Mozem si teda bud vymysliet vlastny format ukladania dat alebo pouzit
nejaku jednoduchu DB fungujucu len s komponentami v D5Prof
Takze ak vas mozem poprosit o poslanie jednofurmolarovej app, kde by bol
klasicky TDBGrid + TDataSource + TQuery a bolo by to napojene na nejake
dBase, Paradox, ... cez Select * From Tab1 Where ... Order By ... a tato
jednotabulkova DB by bola prilozena, tak by som sa velmi potesil
Poprosim posielat na sukromny mail, dik
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
StringToWideChar
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 21.1.2004 15:31:19
Joha Radek,
R> Mate nekdo funkcni priklad kde funguje finkce StringToWideChar ?
R> ja delam toto:
R> StringToWideChar(inttostr(1), pwout, 255);
R> a ono to pak udela toto:
R> Access violation at adress....
R> Delam neco spatne ? a co ?
Asi nemas tech 255 bytu naalokovanych ?
Zkus treba AllocMem().
--
vt
StringToWideChar
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 21.1.2004 15:22:42
Ahoj
Mate nekdo funkcni priklad kde funguje finkce StringToWideChar ?
napoveda ma toto:
function StringToWideChar(const Source: string; Dest: PWideChar; DestSize:
Integer): PWideChar;
ja delam toto:
StringToWideChar(inttostr(1), pwout, 255);
a ono to pak udela toto:
Access violation at adress....
Delam neco spatne ? a co ?
dik Radek Szurman
D7, WXP
Velikost promenne
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 21.1.2004 15:18:41
>> V Kylix 3 by to malo ist aj pre Linux.
> Hm, to vypada zajimave....
> Lze psat DataSnap klienty i jinde nez v Delphi/Kylix resp. je DataSnap
> tak otevreny aby se dala napr. napsat klientska knihovna pro
> PHP apod.?
DataSnap pre Kylix 3 nemam odskusane, je to ale uvedene vo feature matrix:
http://www.borland.com/kylix/pdf/kyl3_feamatrix.pdf
Neviem, ako je to v tomto pripade so zdrojakmi (predpokladam, ze pre Linux
bude nejaka vlastna implementacia IDispatch atd., Delphi pouziva Automation
API Windows).
Co sa tyka PHP, viem o tom velmi malo. Kedze je to skriptovacie prostredie
pre web servery, to znamena HTTP ako network transport - zo strany klienta
je uz pre Delphi/Kylix k dispozicii TWebConnection. Marshalling method je v
tomto pripade implementovany cez HTTP/1.1 POST + binarne data
(application/octetstream) obsahujuce ID vzdialeneho objektu, dispid metody a
samotne parametre. Predpokladam, ze PHP to zvlada. V takom pripade, na
strane servera si to (po velmi zbeznom citani na www.php.net) viem
predstavit implementovane ako nejake rozsirenie PHP, napr. externe moduly
napisane v Delphi/Kylix.
Nemam o tom dostatocny prehlad, ale v principe myslim, ze by to malo ist.
HTH
TOndrej
ziskani MX zaznamu
[*] david.kopecek(zv)hacktrack(tec)com - 21.1.2004 14:18:32
Dobry den,
Tuesday, January 20, 2004, 4:44:12 PM, napsal jste:
PZ> Puvodni zprava ze dne 20.1.2004:
>> nefunguje.. taky jsem to nasel.. vypsise to error v user32.dll na
>> adrese blabla...
PZ> Ono kdo vi, jestli jsi tam vubec dal adresu DNS serveru. Jenze to se
PZ> jaksi podle odpovedi "nefunguje" spatne poznava. Takhle mi odpovidaji
PZ> BFU uzivatele ucetniho software, ovsem tam to lze ocekavat, oni zase
PZ> umeji uctovat a nehrnou se do programovani...
:) ano to je mi jasne... to je bohuzel normalni.. jenze problem u me
byl v tom ze jsem videl tu error hlasku asi 5x po sobe nenasel jsem
kde je problem tak jsem na to sel zase jinym zpusobem a ten stary kod
jsem vymazal.. tudiz abych ziskal open stejny screen shot pro chybu
musel bych to vratit spet a spustit :)
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
UDF - string (konkretne GUID)
[*] Jirka <delphi-l(zv)bedna(tec)net> - 21.1.2004 14:46:37
Benda Lukas wrote:
> Vytvarim GUID o pevne delce 32 znaku, je mi jasne, ze primo v aplikaci
> musim alokovat 33 znaku i pro znak #0, ale jak je to pri vytvareni
> registrace do servru musim taky zadat CSTRING (33), nebo staci
> CSTRING(32) a ten zaverecny znak si tma prihazuje FireBird sam?
>
> A v pripade ze zadam CSTRING (33) bude se mi ukladat do databaze i ta nula?
Ahoj,
musis si naalokovat i ten jeden znak navic.
Jeste bych te chtel varovat, ze jsem mel velke problemy s pouzivanim
funkce coCreateGuid v UDF. Pri sitovem provozu to docela natvrdo havarovalo.
Preji hodne zdaru
Jirka
ListView je desne pomaly
[*] david.kopecek(zv)hacktrack(tec)com - 21.1.2004 14:20:32
Dobry den,
Wednesday, January 21, 2004, 12:21:59 PM, napsal jste:
AB> Preji hezky den,
AB> potreboval bych poradit s komponentou ListView v Delphi 4. Pouzivam ji pro
AB> zobrazeni ruznych seznamu (Style = vsReport). Pouzitelne je to tak do 4-5000
AB> radku, pak se pridavani novych radku (Items.Add a SubItems.Add) neuveritelne
AB> zpomaluje. Zobrazeni 60000 radku trva nekolik dlouhych minut i na vykonnem
AB> pocitadle (neni zapnute sortovani). Nepomuze ani nastavit Visible na False,
AB> coz je nutne napr. pri Items.Clear (a to radsi uz pri vice jak 10 radcich
AB> :-) jinak si muzete mezitim skocit na kafe :-(
AB> Nevite jestli se to da nejak vyresit? Klidne pouziju i jinou komponentu, ale
AB> nevim jakou.
AB> Je to fakticky utrpne pomale.
AB> Diky
AB> Andreas
skus si najit info o beginudate , endupdate nad komponenout listview
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Natoceny obrazok *.bmp
[*] Jaroslav Bucek <jaroslav.bucek-kd(zv)seznam(tec)cz> - 21.1.2004 14:34:36
----- Original Message -----
From: "Simec" <simec(zv)szm.sk>
Sent: Tuesday, January 20, 2004 7:36 PM
> Mam takyto problem:
>
> Z komponenty TChart vyexportujem vytvoreny graf do suboru *.bmp. Tento
bitmap chcem potom pouzit vo vystupnom reporte. Lenze ked chcem aby bol graf
nalezato (natoceny o 90 stupnov) neviem ako na to. Da sa to v komponente
TImage? Ten obrazok ma ist iba na vystup(tlaciaren) nemusi sa potom ukladat
otoceny.
>
> Dakujem!
Ahoj,
Na otoceni bitmapy o 90 a 180 stupnu mam unitu, kterou posilam na tvuj
soukromy email. Kdyby mel nekdo dalsi zajem, prosim na soukromy mail
jaroslav.bucek-kd(zv)seznam(tec)cz
Jarda
Jednoducha DB aplikacia
[*] mstevlik(zv)gamo.sk - 21.1.2004 14:08:29
> EE BDE se taky musi instalovat. Je mozne pouzit Firebird v Embandet
> verzi. A nebo pouzit ADO, ktere s nejvetsi pravdepodobnosti ma kazdy
> windows v nejake verzi nainstalovane.
BDE tam nainstalovane isto bude
Ako sa viem za pomoci klasickych komponent v Delphi pripojit cez ADO
niekam?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
Jednoducha DB aplikacia
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 21.1.2004 14:10:30
Nevola sa ten predmet nahodou Databazy a nemas nahodou nakodovat tu
databazu sam? Aby si nepotreboval ziadnu navyse atd...
:-)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of mstevlik(zv)gamo.sk
Sent: Wednesday, January 21, 2004 1:48 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Jednoducha DB aplikacia
> > Viem niekde najst nejake demo, alebo lopatisticky postup co nahadzat
na
> > formular aby som to rozklikal, stym aby som vedel napisat Select *
From
> > Tab1 Order By Nazov
> > V zivote som zatial paradox ani BDE nepouzil
>
> A proc tedy z toho mas delat semestralni praci? Co vas na te skole
> uci? A k cemu takova lopatisticka rozklikavaci semestralni prace bude?
>
> Podivej se lopatisticky na priklady k Delphi, ktere najdes na disku,
> je to vsechno o BDE.
>
> Petr Zahradnik, pocitacovy expert
No pozeral som to, ale vsetko sa to odkazovalo na InterBase, kt. k
dispozicii mat nebudem :(
Podarilo sa mi pomocou wizarda vytvorit formular s gridom kt. sa pomocou
TQuery pripojil k dBase suboru
Ma to vsak zopar problemov, neviem do SQL.Text dopisat klausulu Order
By,
ako nahle ju tam doplnim tak mi to vyhodi chybu :(
Jednoducha DB aplikacia
[*] Jiri Virt <virt(zv)volny(tec)cz> - 21.1.2004 14:10:30
jakou chybu??
normalne pisu Select * from tabulka_nazev where field1 = hodnota order
by field1
Jirka Virt
Velikost promenne
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.1.2004 13:46:25
Ondrej Kelle <o.kelle(zv)digitalpublishing.de> wrote:
> Da sa tiez pouzit (bud priamo, alebo ako inspiraciu) DataSnap, ktory
> tiez pouziva TLB na definiciu interfacov. Network transport je
> volitelny (k dispozicii su sockets, HTTP, SOAP, DCOM), da sa dopisat
> vlastny. Marshalling je cez dispinterfacy. Cele je to dost otvorene
> napisane, a su k tomu zdrojaky. V Kylix 3 by to malo ist aj pre Linux.
Hm, to vypada zajimave....
Lze psat DataSnap klienty i jinde nez v Delphi/Kylix resp. je DataSnap
tak otevreny aby se dala napr. napsat klientska knihovna pro PHP apod.?
Martin Schayna
ListView je desne pomaly
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 21.1.2004 12:52:12
Myslim, ze by mohlo pomoci pred zahajenim pridavani zavolate
Items.BeginUpdate a po dokonceni Items.EndUpdate.
Jirka Matejka
==>Wednesday, January 21, 2004 12:21 PM bednarek(zv)digitus(tec)cz wrote:
> Preji hezky den,
>
> potreboval bych poradit s komponentou ListView v Delphi 4. Pouzivam
> ji pro zobrazeni ruznych seznamu (Style = vsReport). Pouzitelne je to
> tak do 4-5000 radku, pak se pridavani novych radku (Items.Add a
> SubItems.Add) neuveritelne zpomaluje. Zobrazeni 60000 radku trva
> nekolik dlouhych minut i na vykonnem pocitadle (neni zapnute
> sortovani). Nepomuze ani nastavit Visible na False, coz je nutne
> napr. pri Items.Clear (a to radsi uz pri vice jak 10 radcich :-)
> jinak si muzete mezitim skocit na kafe :-(
>
> Nevite jestli se to da nejak vyresit? Klidne pouziju i jinou
> komponentu, ale nevim jakou.
>
> Je to fakticky utrpne pomale.
>
> Diky
> Andreas
Canvas do Bitmapy nebo resize Canvasu
[*] Macecek Marcel <marcel.macecek(zv)siemens(tec)com> - 21.1.2004 14:00:28
Nevite nahodou nekdo, jak dostanu Canvas do Bitmapy, nebo jak bych ho mohl zmensit ????
Jde o to, ze muj vykresleny Canvas by byl vetsi nez obrazovka a ja ho potrebuji zmensit na urcitou velikost bez toho, abych upravoval velikosti a souradnice jednotlivych objektu v Canvasu....
Diky
Marcel
Jednoducha DB aplikacia
[*] mstevlik(zv)gamo.sk - 21.1.2004 13:48:26
> > Viem niekde najst nejake demo, alebo lopatisticky postup co nahadzat
na
> > formular aby som to rozklikal, stym aby som vedel napisat Select *
From
> > Tab1 Order By Nazov
> > V zivote som zatial paradox ani BDE nepouzil
>
> A proc tedy z toho mas delat semestralni praci? Co vas na te skole
> uci? A k cemu takova lopatisticka rozklikavaci semestralni prace bude?
>
> Podivej se lopatisticky na priklady k Delphi, ktere najdes na disku,
> je to vsechno o BDE.
>
> Petr Zahradnik, pocitacovy expert
>
> ==========================================================
> Petr Zahradnik, Computer Laboratory
>
>
> web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
>
> ==========================================================
No pozeral som to, ale vsetko sa to odkazovalo na InterBase, kt. k
dispozicii mat nebudem :(
Podarilo sa mi pomocou wizarda vytvorit formular s gridom kt. sa pomocou
TQuery pripojil k dBase suboru
Ma to vsak zopar problemov, neviem do SQL.Text dopisat klausulu Order By,
ako nahle ju tam doplnim tak mi to vyhodi chybu :(
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
Free CORBA (Was: Velikost promenne)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.1.2004 13:54:27
Tomas Rosa <trosa(zv)seznam(tec)cz> wrote:
>> btw: nevite nahodou nekdo o nejake implementaci corby ci neceho ji
>> podobne pro delphi co je nejlepe free? Mam sice nejaky navrh a prvni
>
> odpovim si sam co jsem nasel v googlu:
> http://www.millennium-group.ru/index/lang/eng/parent_id/30/level/1
nebo zkratka: http://www.m-g.ru/corba
nebo SourceForge: http://sourceforge.net/projects/mtdorb
Vypada to sakra zajimave, ze by opravdova free implementace
CORBA v Delphi?
Pokud by s tim nekdo delal pokusy, prosim napiste sem do konference
sva zjisteni (at uz kladne nebo zaporne).
Martin Schayna
ListView je desne pomaly
[*] Petr Vones <pvones(zv)vol(tec)cz> - 21.1.2004 12:52:12
From: "Andreas Bednarek" <bednarek(zv)digitus(tec)cz>
> potreboval bych poradit s komponentou ListView v Delphi 4. Pouzivam ji pro
> zobrazeni ruznych seznamu (Style = vsReport). Pouzitelne je to tak do 4-5000
> radku, pak se pridavani novych radku (Items.Add a SubItems.Add) neuveritelne
> zpomaluje. Zobrazeni 60000 radku trva nekolik dlouhych minut i na vykonnem
V techto pripadech je vhodne pouzit TListView ve virtulanim rezimu, vlastnost
OwnerData. Tim se pouze nastavi pocet polozek a o data si rika az v pripade
kdy je treba je zobrazit, v udalosti OnData. Vlastni data mas pak ulozene v
nejake vhodnejsi strukture (seznam objektu apod.) Zobrazis tak bez problemu
treba i miliony polozek behem okamziku.
Petr Vones
UDF - string (konkretne GUID)
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 21.1.2004 13:18:21
Vytvarim GUID o pevne delce 32 znaku, je mi jasne, ze primo v aplikaci
musim alokovat 33 znaku i pro znak #0, ale jak je to pri vytvareni
registrace do servru musim taky zadat CSTRING (33), nebo staci
CSTRING(32) a ten zaverecny znak si tma prihazuje FireBird sam?
A v pripade ze zadam CSTRING (33) bude se mi ukladat do databaze i ta nula?
Lukas Benda