Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zjisteni hodnoty eventy z OI
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 5.12.2003 21:29:57
> Tvorim novou komponentu spolecne s jejim editorem. Na formu tohoto
> editoru mam novou (grafickou) komponentu (treba ctverecek). Uz se mi
> podarilo dosahnout
> toho, ze po otereni editoru komponety a kliknuti na ctverecek se mi
> jeho vlastnosti zobrazi v Object Inspectoru. Takze mi to docela
> komunikuje. Ctverecek ma i nejakou zverejnenou eventu (treba
> OnClick). V OI si ji muzu nastavit.
> Mam ale nasledujici problem:
> Potreboval bych v tom editoru zjistit (stringovou) hodnotu,
> kterou ma eventa OnClick
> nastavenou (lepe receno jmeno metody, ktera je prirazena teto
> udalosti). Typicky: napsat dovnitr toho ctverecku "OnClick je
> nastaveno na Ctrerecek1Click". Potrebuju tedy zjistit ten retezec
> "Ctverecek1Click".
>
procedure TForm1.Button1Click(Sender: TObject);
var proc:Procedure (Sender:TObject) of object;
begin
proc:=Button1.OnClick;
ShowMessage(MethodName((zv)proc)); //vrati 'Button1Click"
ShowMessage(Format('%p',[MethodAddress('Button1Click')])); //vrati
(zv)Button1Click
end;
Brona
Zjisteni hodnoty eventy z OI
[*] b.trpaslik(zv)centrum(tec)cz - 5.12.2003 17:27:41
Zdravim,
Tvorim novou komponentu spolecne s jejim editorem. Na formu tohoto
editoru mam novou (grafickou) komponentu (treba ctverecek). Uz se mi
podarilo dosahnout
toho, ze po otereni editoru komponety a kliknuti na ctverecek se mi
jeho vlastnosti zobrazi v Object Inspectoru. Takze mi to docela
komunikuje. Ctverecek ma i nejakou zverejnenou eventu (treba
OnClick). V OI si ji muzu nastavit.
Mam ale nasledujici problem:
Potreboval bych v tom editoru zjistit (stringovou) hodnotu, kterou ma eventa OnClick
nastavenou (lepe receno jmeno metody, ktera je prirazena teto
udalosti). Typicky: napsat dovnitr toho ctverecku "OnClick je
nastaveno na Ctrerecek1Click". Potrebuju tedy zjistit ten retezec
"Ctverecek1Click".
Diky
Marek Machalik
Nacteni E-majlove zpravy ze souboru
[*] petr-kucera(zv)volny(tec)cz - 5.12.2003 17:01:40
Dobry den,
prosim Vas, potreboval bych nacist soubor z disku jako
E-majlovou zpravu. Ten soubor by mel mit spravnou strukturu. Kdyz
jsem zkousel neco jako:
Mess:=TIdMessage.Create(nil);
Mess.LoadFromFile(MessInPath + '\' + MessFileName);
tak mi to hodilo chybovou hlasku "Project ... raised exception
class EldReadTimeout with message ..." a skoncilo. Zkousel jsem
hledat na netu a nic poradnyho jsem nenasel. Mohl by mi nekdo,
prosim, poradit, kde delam chybu?
Dekuji
S pozdravem Petr Kucera
--
Eurotel Data Nonstop - Neomezeny pristup na internet jiz od 799
Kc mesicne!
http://www.eurotel(tec)cz/site/cz/servicesAndTariffs/specialOffer.html?list=34995
poptavka vyvoj sw pro Pocket PC
[*] BS Info <info(zv)borkovec(tec)com> - 5.12.2003 16:51:38
Zkuste u nas.
www.borkovec.com
RB
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ing. Petr Sikola
Sent: Friday, December 05, 2003 3:42 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: poptavka vyvoj sw pro Pocket PC
Omlouvam se za offtopic,
Schanime nejakou firmu (nejlepe z CR, SK), nebo i jednotlivce, ktery by
byl schopen vytvorit aplikaci pro Pocket PC.
Jednalo by se o komunikaci se specialni kartou do CF slotu + komunikace
pres WLAN + nejaka lokalni DB (jen jednoducha, pravdepodobne by stacila
i souborova) + interaktivni uzivatelske rozhrani.
Konkretni zadani jeste nemame, jen se poohlizime po potencialnim
dodavateli.
Dekuji za tipy.
Petr Sikola
poptavka vyvoj sw pro Pocket PC
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 5.12.2003 16:43:38
http://www.sunnysoft(tec)cz/
Viktor Doubek <viktordoubek(zv)centrum(tec)cz> wrote:
> Specializovana firma je www.sunysoft(tec)cz
Kurzor (RichEdit)
[*] Dawson Trueman <journal(zv)quick(tec)cz> - 5.12.2003 16:35:37
Jak se da v RichEditu zmenit vzhled kurzoru? Nemyslim kurzor mysi, ale
ten textovej (to co blika a kdyz neco stisknu tak se napise pismeno a
ten kurzor uskoci :).
Chtel bych proste mit misto ty blikajici carky neco jinyho (jina barva,
jina tloustka,...)
DIK
Dawson Trueman
Dawson Trueman
ICQ: 163965907
http://journal.wz(tec)cz
http://fanwebdido.wz(tec)cz/wm/ poptavka vyvoj sw pro Pocket PC
[*] Viktor Doubek <viktordoubek(zv)centrum(tec)cz> - 5.12.2003 16:29:36
Specializovana firma je www.sunysoft(tec)cz
______________________________________________________________
> Od: "Ing. Petr Sikola" <developer(zv)efg(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Fri, 5 Dec 2003 15:41:33 +0100
> Predmet: OT: poptavka vyvoj sw pro Pocket PC
>
> Omlouvam se za offtopic,
>
> Schanime nejakou firmu (nejlepe z CR, SK), nebo i jednotlivce,
ktery by
> byl schopen vytvorit aplikaci pro Pocket PC.
> Jednalo by se o komunikaci se specialni kartou do CF slotu +
komunikace
> pres WLAN + nejaka lokalni DB (jen jednoducha, pravdepodobne by
stacila
> i souborova) + interaktivni uzivatelske rozhrani.
> Konkretni zadani jeste nemame, jen se poohlizime po potencialnim
> dodavateli.
>
> Dekuji za tipy.
>
> Petr Sikola
>
>
>
> RefreshRecord - IBClientDataSet
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 5.12.2003 16:23:36
Dobry den,
v konferenci se jiz kdosi na tento problem ptal, ale nikdo mu neodpovedel.
Pokousim se volat metodu TIBClientDataSetu RefreshRecord. Ovsem hlasi mi to:
Unable to find record. No key specified.
Pokousel jsem se hledat na internetu a nelezl jen dve stranky, ktere se
timto zabyvali. Jedna byla ruska a jedna madarska.
No, a ja rusky ani madarsky neumim.
Pokud nekdo tusite, cim by to mohlo byt. Nebo zda je vubec tato metoda
IBClientDataSetem podporovana.
Nebo budete-li mit po ruce nejake jine elegantni reseni Refreshe jednoho
radku datasetu, budu rad.
RefreshRecord se pouziva napriklad Marco Cantu s obycejnem ClientDataSetem -
tedy s nim to asi funguje. Jak je to s IBClientDatasetem ovsem netusim.
vsechny zdravim
H. Rizek
OT: poptavka vyvoj sw pro Pocket PC
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 5.12.2003 15:41:33
Omlouvam se za offtopic,
Schanime nejakou firmu (nejlepe z CR, SK), nebo i jednotlivce, ktery by
byl schopen vytvorit aplikaci pro Pocket PC.
Jednalo by se o komunikaci se specialni kartou do CF slotu + komunikace
pres WLAN + nejaka lokalni DB (jen jednoducha, pravdepodobne by stacila
i souborova) + interaktivni uzivatelske rozhrani.
Konkretni zadani jeste nemame, jen se poohlizime po potencialnim
dodavateli.
Dekuji za tipy.
Petr Sikola
DataSet do RTF
[*] mstevlik(zv)gamo.sk - 5.12.2003 14:47:29
> totez by slo delat v tom mnu inzerovanym EKRTF, a mozna i hezceji.
> za $29 je to imho super generator, ale neznam ho nez z jejich
> popisu na strankach. vsak si to prolez, url jsem uz posilal.
>
> peca
Stiahol som to a vyzera to schodne, takze som happy
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
znovu trigger a FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 5.12.2003 15:05:31
Haj hou!
On 4 Dec 2003 at 9:53, Rostislav Lekes wrote:
> jak muzu v triggeru BI,BU na FB 1.0.x otestovat povinne polozky?
> Tabulka ma 20 sloupcu a pri update potrebuju pohlidat, ze vybranych 5 z
> nich urcite dostava novou hodnotu (ale pritom muze byt stejna jako
> predchozi, USRID,STCID ....).
tohle je nejake zmatene :-)
1) Povinne polozky jsou ty, ktere maji NOT NULL.
2) V before insert je jasne, ze zadna puvodni hodnota neni. testuje
se tedy OLD.hodnota na NULL (neni zadana). Samozrejme, pokud tam z
klienta dotlacis *empty* hodnotu jako prazdny retezec, nulu apod.
misto null, bude mit trigger problem to rozpoznat od skutecneho
pozadavku na vlozeni takove hodnoty. V before update se testuje
NEW.hodnota.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
DataSet do RTF
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 5.12.2003 14:19:27
> No ma to vsak problem mam RTF na kt je 5 tabuliek a tie mam plnit 5
> datasetmi + je tam text kt. si tam dal zakaznik stym ze chce aby si ich
> mohol kedykolvek zmenit
no, nevim jak ostatni generatory, ale my pouzivame Sineu a tam
je to schudny. pro editaci RTF mam frame oprasknutej podle RTF
editoru v prikladech. zadnej zazrak, ale funguje. tisk potom
probehne tak, ze se vytiskne RTF definovany uzivatelem, potom
tabulka dat, potom text. muzes to kombinovat dle libost.
export do RTF tam je taky (i kdyz se asi kazdymu libit nebude).
totez by slo delat v tom mnu inzerovanym EKRTF, a mozna i hezceji.
za $29 je to imho super generator, ale neznam ho nez z jejich
popisu na strankach. vsak si to prolez, url jsem uz posilal.
peca
Detekce Sock2.0 ComCtrls 4.7 a ticha instalace Fir
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 5.12.2003 14:05:26
Haj hou!
On 4 Dec 2003 at 14:23, rookie1(zv)quick(tec)cz wrote:
> A dal bych potreboval nejak nainstalovat Firebird, tzn. spustim
> instalaci, na nic se mne to nebude ptat, nainstaluje FB, nastavi
> spusteni na service nebo app podle druhu Windows a spusti server -
> vlastne to same jako dela instalacka FB 1.3 ale bez dotazu a
> dialogovych oken.
Pouzij anbo se nech inspirovat oficialnim InnoSetup instalakem.
Zdrojaky jsou vCVS Firebirdu, podivej se na
http://cvs.sourceforge.net/viewcvs.py/firebird/interbase/builds_win32/
install/
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
DataSet do RTF
[*] mstevlik(zv)gamo.sk - 5.12.2003 13:31:24
> Mozna by bylo jednodusi pouzit nejaky generator sestav s exportem do
RTF.
>
> Petr Vones
No ma to vsak problem mam RTF na kt je 5 tabuliek a tie mam plnit 5
datasetmi + je tam text kt. si tam dal zakaznik stym ze chce aby si ich
mohol kedykolvek zmenit
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
DataSet do RTF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.12.2003 13:21:23
From: "Peter Turcan" <peter.turcan(zv)centrum.sk>
> Nech da XSLT subor a ty vygenerujes len XML. Potom z toho mozes spravit
> trebars aj PDF. je to jednoduchsie...
Mozna by bylo jednodusi pouzit nejaky generator sestav s exportem do RTF.
Petr Vones
DataSet do RTF
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 5.12.2003 13:15:23
mstevlik(zv)gamo.sk wrote:
>> Ja by som to riesil opacne.
>> Nech da XSLT subor a ty vygenerujes len XML. Potom z toho mozes
>> spravit trebars aj PDF. je to jednoduchsie...
>
> Problem je ako to riesit vo Win95 bez Office a zakaznik chce RTF
Pro transformaci XML pomoci XSLT nepotrebujes Office, muzes
napriklad pouzit MSXML knihovnu, ktera je zdarma do vsech
Windowsu (a casto je uz i instalovana v ramci Internet Exploreru
apod.)
Martin Schayna
ApplicationHint
[*] Jan Naiser <tua(zv)wo(tec)cz> - 5.12.2003 12:55:21
Ahoj,
> prosim o radu. Jde o vypis HINTu ve StatusBaru. V jednom okne (Form1) chci
vypisovat Hint ve StatusBar.Panesls[0] a v druhem (Form2) ve
StatusBar.Panels[2].
>
> V prvnim formu (Form1) mam toto:
>
> public
> { Public declarations }
> procedure ApplicationHint(Sender: TObject);
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Application.OnHint := ApplicationHint;
> end;
>
> procedure TForm1.ApplicationHint(Sender: TObject);
> begin
> Form1.Panels[0].Text := GetLongHint(Application.Hint);
> end;
>
> ale co dat do dalsiho formu (Form2), kdyz chci, aby se hlaska v Hintu
vypisovala ve StatusBaru v Panels[2] ???
>
> Vasek
>
> PS: Form2 volam z Form1 takto:
>
> Form2 := TForm2.Create(Self);
> Form2.ShowModal;
> Form2.Free;
ja bych napsal pro Form2 vse stejne, akorat:
procedure TForm2.ApplicationHint(Sender: TObject);
begin
Form2.Panels[2].Text := GetLongHint(Application.Hint);
end;
Zrejme si budes muset obslouzit OnHint z aktualniho okna, aby se ti po zmene
okna zpet na Form1 hinty zobrazovaly. Kdysi jsem to tak delal, ale posleze
jsem si napsal potomka StatusBar, ktery mi to dela sam. Koukni se jeste na
AutoHint ve StatusBar.
Honza.DataSet do RTF
[*] mstevlik(zv)gamo.sk - 5.12.2003 12:51:20
> Ja by som to riesil opacne.
> Nech da XSLT subor a ty vygenerujes len XML. Potom z toho mozes spravit
> trebars aj PDF. je to jednoduchsie...
>
> Peter
Problem je ako to riesit vo Win95 bez Office a zakaznik chce RTF
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
dostupne OLE DB Providers
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 5.12.2003 12:47:20
On 5 Dec 2003 at 12:29, Jakub Sramek wrote:
> potreboval bych ve sve aplikaci zjistit vsehny dostupne OLE DB
> Providery a nevim jak na to. Dik, Jakub
Najdes to v tomhle baliku, napriklad:
http://delphree.clexpert.com/pages/projects/oledb/default.htm
:-)
Jde to i pres ADO, ale to nevim jak.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
DataSet do RTF
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 5.12.2003 12:31:18
Dnes, (5. december 2003, 11:33:14), si poslal mail :
mgs> Hi all,
mgs> Riesim jeden problem
mgs> Zakaznik mi dal RTF dokument (ako template reportu), v kt. su nejake
mgs> tabulky a do nich by som mal z datasetov delphi dohadzat data
mgs> Viete mi poradit ako na to?
Ja by som to riesil opacne.
Nech da XSLT subor a ty vygenerujes len XML. Potom z toho mozes spravit
trebars aj PDF. je to jednoduchsie...
Peter
dostupne OLE DB Providers
[*] Jakub Sramek <jsramek(zv)kodys(tec)cz> - 5.12.2003 12:29:18
Ahoj,
potreboval bych ve sve aplikaci zjistit vsehny dostupne OLE DB Providery a
nevim jak na to.
Dik, Jakub
DataSet do RTF
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 5.12.2003 12:21:17
Ahoj,
my mame takovej system, ze do textu si klient
nahazi "zavinacove" znacky a ty pak nahrazujeme
udaji z db. Ale neumime to tabularne, protoze to
jsou texty, ktere se tisknou vzdy jeden pro jeden
radek tabulky.
Ty bys musel mezi kazdym radkem hodnot opakovat
kus RTF jako vypln mezi radky. Nicmene kdysi jsem
narazil na komponenty EkRTF, ktere umi z RTF vzoru
delat krasne RTF sestavy. Mrkni na to:
http://ekrtf.code.net.ru/reg.html
Peca
Refresh na ClientDatasetu
[*] Viktor Doubek <viktordoubek(zv)centrum(tec)cz> - 5.12.2003 11:09:12
Omlouvam se, nenapsal jsem konfiguraci: Delphi 7 Prof., FB 1.5, WXP
Zkousel jsem jeste nejaka dema z bdn.borland.com a vysledky jsou
nasledujici:
Na BDE to funguje naprosto krasne, pokud jsem pristupovy dataset
prepnul z Table(BDE) na SQLDataset(DBX), tak se to chovalo jako
viz.nize, po prepnuti na IBQuery(IBX) se zase pro zmenu vubec
neprovedlo ApplyUpdates. Takze jsem z toho mirne receno rozmrzely.
Opravdu se nenajde nekdo, kdo to ma vyresene?
Diky moc za odpoved(i). VK
> Pekny den vsem,
> i kdyz se to zde udajne propiralo mockrat, fulltextem se mi
> nepodarilo najit odpoved na otazku, jak je to s %Subj%.
> V mem pripade je to napojeni SQLConnection> SQLDataSet> Provider>
> ClientDataset> DBGrid. Problemem je to, ze po UpplyUpdates mi
> Refresh vrati puvodni stav tabulky, tj. bez mych zmen a
> RefreshRecord hazi chybu "Unable to find record. No key specified".
> Nevim, jak mu vnutit ten klic, zkousel jsem IndexFields, ale
> bezvysledne. Krome viditelnosti zmen od ostatnich uzivatelu
> potrebuji jsem chtel refresh na precteni hodnoty autoincrement
> fieldu vracene serverem po insertu. Mate s tim nekdo zkusenost?
> A vubec je pro tyhle ucely (DBGrid s podporou lokalniho trieni,
> vyhledavani, filtru apod.(i z vice tabulek)) ten postup vhodny?
> Diky moc za odpovedi.
> VK
DataSet do RTF
[*] mstevlik(zv)gamo.sk - 5.12.2003 11:33:14
Hi all,
Riesim jeden problem
Zakaznik mi dal RTF dokument (ako template reportu), v kt. su nejake
tabulky a do nich by som mal z datasetov delphi dohadzat data
Viete mi poradit ako na to?
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
Aplikace do popredi
[*] Jiri Hoffmayer <parsys(zv)digitus(tec)cz> - 5.12.2003 11:09:12
Zdravim,
nedavno tady byl podobny thread ('Presun aplikacie do popredia'), ale ten mi
problem nevyresil.
Mam formular a nad nim modalni dialog s EditBoxem. Kazdych 5 sekund se
snazim presunout tohle do popredi a zamerit EditBox, aby se nestalo, ze se
uzivatel dostane do nejakych systemovych menu (jede to na Win2k a WinXP),
take pri startu systemu se spousti nejake dalsi aplikace a stane se, ze
zustanou nad moji, coz je nezadouci.
Tohle jsem vzdy resil pomoci Application.BringToFront nebo
SetForegroundWindow (jak znela moje rada v predchozim threadu), ale proste
to nejede. Na WinXP se jenom zvyrazni a blika tlacitko aplikace na liste, na
W2k jsem to primo nevidel, ale proste se to nepresune do popredi. Dokonce
ani nastaveni stylu vsech formularu na fsStayOnTop nefunguje dobre, snad
jen, ze by to bylo proto, ze tuhle property nastavuji az po CreateForm(), to
proto abych to mohl snadno vypnout, s fsStayOnTop se totiz dost spatne
debuguje :-(
Nevite jak to korektne vyresit, abych spolehlive dostal svoje formulare nad
ostatni?
Diky
Jirka D4
Zpristupneni property proceduralniho typu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 5.12.2003 11:07:11
> 2) Pouzit SetSubComponent
Diky, toto pomohlo. Pro pripad, ze by to nekoho zajimalo: Jakmile je potreba
v komponente agregovat udalosti/zobrazit udalosti subkomponenty, musi se
pouzit TComponent, nestaci TPersistent.
MB
App....Hint - napoveda aplikace
[*] js-delphi(zv)quick(tec)cz - 5.12.2003 10:59:11
Omlouvam se za zmenu nazvu prispevku, ale nas IE v praci nazev vyhodnotil jako vir a odmital se se mnou bavit :) tak takhle se delaji viry... ahaaa ;o)))
Od: LUKES Vaclav <lukes(zv)ans(tec)cz>
> ale co dat do dalsiho formu (Form2), kdyz
> chci, aby se hlaska v Hintu vypisovala ve
> StatusBaru v Panels[2] ???
Ahoj!
No nevim, jestli je moje reseni idealni, ale ja to delam tak, ze vim kdy zobrazim form2
a tedy vim od kdy se mi ma hint vypisovat na tom druhym formulari a pak vim, ze muj zobrazeny form2 je showmodal, takze vim kdy se mi vrati do form1 -> znam okamzik, odkdy se ma hint zobrazovat na form1 (podobne by to slo resit pres udalost OnActive)
no a pak mam nekde v kodu:
procedure TForm1.Button1OnClick(Sender:TOBject);
begin
Application.OnHint:=Form2.ZobrazHintForm2; {Form2}
Form2.ShowModal;
Application.OnHint:=Form1.ZobrazHintForm1; {Form1}
end;
//pokud cely fromular vytvaris za behu, muzes zmenit udalost vypisovani hlasek na nejakou proceduru, ktera je uz v "Form1" - unit1.
Me to takhle funguje 100%
Moment! Jestli jde o to, ze uzivatel vidi oba formulare a Ty chces zobrazovat napovedu jednou do panels[0](v pripade, ze je aktivni form1) a podruhe do panels[2](v pripade, ze je aktivni form2), tak bych se snazil upravit kod toho zobrazeni Hintu - asi takhle:
procedure TForm1.ApplicationHint(Sender: TObject);
begin
if Form1.Active then
Form1.Panels[0].Text :=
GetLongHint(Application.Hint)
else
Form1.Panels[2].Text :=
GetLongHint(Application.Hint);
end;
Pokud by s tim Active byl problem, pak by pomohla globalni promenna - boolean, kterou budes plnit pred otevrenim/zobrazenim Form2 a po zavreni Form2.
Osobne si ale nemyslim, ze je stastne zobrazovat napovedu na form, ktery nemusi byt videt... Ja to resim zpusobem viz vyse.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
Zamezeni prenastaveni voleb v Pruzkumnikovi
[*] Petr Lupinek <plupinek(zv)synthesia(tec)cz> - 5.12.2003 09:45:06
Zdravim,
hledam moznost, jak zamezit uzivatelum (Domain Users), aby si sami mohli
povolit zakazane zobrazeni skrytych a systemovych souboru v prostredi
Windows NT4.0 SP6, IE6SP1.
Jedna se o jednorazove nastaveni, takze uvitam i reseni napr. zapisem do
registru pres Regedit.
Dekuji za radu.
S pozdravem
Ing. Petr Lupinek
datove komunikacni systemy
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel.: 466825535
mob.: +420 736 505 512
Konverzia casu na sekundy
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 5.12.2003 09:13:03
Neslo by udelat
Select (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME))) ,COUNT(*) As POCET
FROM ...
Group by (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME)))
Jirka Matejka
==>Thursday, December 04, 2003 9:34 PM ieee(zv)ynet.sk wrote:
> Dakujem. To mi pomohlo. Lenze nasledne vznikol novy problem, s ktorym
> si neviem rady. Ked zavolam
>
> Select (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME))) AS Sekundy,
> COUNT(*) As POCET Group by Sekundy
>
> vypise mi: Invalid field name Sekundy
>
> Skusil som aj ine mena, ale nic nepomohlo. Ako keby zrazu nepoznalo
> to slovo As. Pre mna je dvolezite, aby som to mohol podla tych
> vypocitanych sekund zgrupovat.
>
> Ondrej
HW akcelerace zvuk. karty
[*] Tomas Mazurek <tomas.mazurek(zv)vitkovice(tec)cz> - 5.12.2003 09:12:58
Dobry den,
lze nejak v Delphi provest programove maximalizaci, resp. minimalizaci HW
akcelerace zvuk. karty?
Dekuji predem.
Tomas Mazurek
ApplicationHint
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 5.12.2003 09:02:57
Ahoj,
prosim o radu. Jde o vypis HINTu ve StatusBaru. V jednom okne (Form1) chci vypisovat Hint ve StatusBar.Panesls[0] a v druhem (Form2) ve StatusBar.Panels[2].
V prvnim formu (Form1) mam toto:
public
{ Public declarations }
procedure ApplicationHint(Sender: TObject);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := ApplicationHint;
end;
procedure TForm1.ApplicationHint(Sender: TObject);
begin
Form1.Panels[0].Text := GetLongHint(Application.Hint);
end;
ale co dat do dalsiho formu (Form2), kdyz chci, aby se hlaska v Hintu vypisovala ve StatusBaru v Panels[2] ???
Vasek
PS: Form2 volam z Form1 takto:
Form2 := TForm2.Create(Self);
Form2.ShowModal;
Form2.Free;
float v accesse
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 5.12.2003 07:56:53
To je v poradku cislo 1.3 nema konecny zozvoj binarni soustave,
stejne cislo mas i Delphi.
Pokud se jedna o presne pocitani je nutno pouzit jiny ciselny typ,
musis pouzit Money (Access) a Currency (Delphi). Oba maji 4
desetinna mista, pokud jich potrebujes vic, tak to nevim
(hlavne na strane Delphi).
Pavel
> From: kexo [mailto:kexo(zv)ynet.sk]
> zdravim, v accessi robim taketo nieco:
>
> CREATE TABLE tabulka (ID CHAR(10), cislo SINGLE);
> nasledne spravim 2 inserty:
> INSERT INTO tabulka VALUES ('aaa', 1.5)
> INSERT INTO tabulka VALUES ('aaa', 1.3)
>
> 1.5 mi ulozi normalne, ale 1.3 mi ulozi ako 1,29999995231628...
>
> kde je problem?
> dik
> kexo
>
> (D7->ADO->Access2000)Konverzia casu na sekundy
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 5.12.2003 06:28:47
Zkus pro to grupovani pouzit stejny 'vypocet'.
Na MSSQL to take nejde jen nahradit promennou, ale celym vyrazem.
Select (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME))) AS Sekundy,
COUNT(*) As POCET
Group by (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME)))
--
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Thursday, December 4, 2003, 9:34:12 PM, bylo napsano:
O> Dakujem. To mi pomohlo. Lenze nasledne vznikol novy problem, s ktorym si
O> neviem rady. Ked zavolam
O> Select (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME))) AS Sekundy, COUNT(*) As
O> POCET Group by Sekundy
O> vypise mi: Invalid field name Sekundy
O> Skusil som aj ine mena, ale nic nepomohlo. Ako keby zrazu nepoznalo to slovo
O> As. Pre mna je dvolezite, aby som to mohol podla tych vypocitanych sekund
O> zgrupovat.
O> Ondrej
float v accesse
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 5.12.2003 06:02:45
5.12.2003 kexo:
> zdravim, v accessi robim taketo nieco:
> CREATE TABLE tabulka (ID CHAR(10), cislo SINGLE);
> nasledne spravim 2 inserty:
> INSERT INTO tabulka VALUES ('aaa', 1.5)
> INSERT INTO tabulka VALUES ('aaa', 1.3)
> 1.5 mi ulozi normalne, ale 1.3 mi ulozi ako 1,29999995231628...
> kde je problem?
Problem je v reprezentaci realneho cisla, ktere neni ukladano tak, jak
si jej napises, ale jako mantisa a exponent.
Pokud chces pouzivat cisla s pevnou desetinnou casti, podivej se na
nejake typy treba Currency, Money apod.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
float v accesse
[*] kexo <kexo(zv)ynet.sk> - 5.12.2003 02:28:31
zdravim, v accessi robim taketo nieco:
CREATE TABLE tabulka (ID CHAR(10), cislo SINGLE);
nasledne spravim 2 inserty:
INSERT INTO tabulka VALUES ('aaa', 1.5)
INSERT INTO tabulka VALUES ('aaa', 1.3)
1.5 mi ulozi normalne, ale 1.3 mi ulozi ako 1,29999995231628...
kde je problem?
dik
kexo
(D7->ADO->Access2000)Je VCL.NET opravdu .NET?
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 5.12.2003 00:06:22
On 2 Dec 2003 at 10:19, Jaromir Luhan wrote:
> Jeste bych se kratce vratil k nedavne diskusi o tom, zda je VCL.NET
> skutecne .NET. Dotazoval jsem se ruznych lidi v materske firme a
> ziskal jsem nasledujici vysvetleni, ktere snad vnese svetlo do nasich
> akademickych diskusi na toto tema. Nechci tvrdit, ze Simon umi cesky,
> preklad je muj. :-)
>
> Simon Thornhill:
> -------------------
> VCL.NET je 100% .NET - pouzij PEverify a over si to. Pouzij ILDasm a
> uvidis rizeny kod. VCL.NET pouziva systemova volani win32 stejne jako
> WinForms v .NET framework. Jediny rozdil je, ze Borland systemova
> volani ukazuje i v mistech, kde je WinForms skryva jako private -
> spust Reflector na system.windows.forms a podivej se na privates
> (External.dll). Pokud bychom udelali VCL.NET na WinForms, lide by se
> neptali na to, zda je 100% .NET, ale systemova volani win32 tam porad
> budou. Navic bychom ztratili vykon, protoze by to byl framework
> postaveny na jinem frameworku. VCL.NET je 100% .NET
> --------------------
??? To ma jako byt dukaz 100% cistoty? Pro me je zajimave, zda takto
vytvorena assembly umi spolupracovat obema smery podle specifikace s
jinou assembly, vytvorenou v necem jinem (treba v C#). Coz znamena,
ze bych nemel nijak poznat, zda byla dana assembly napsana ve VCL.NET
nebo C#. Zde nema smysl se bavit o zavislosti na OS, protoze rada
trid _je_ nutne OS zavisla. Zajimave je tedy to, zda assembly umi co
umet ma vuci jinym assembly. Das mi tuto zaruku?
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Konverzia casu na sekundy
[*] Jan Harman <harman(zv)volny(tec)cz> - 4.12.2003 22:04:14
...v Group by muzes pouzivat jen jmena "pevnych" poli. Nelze to takto udelat
(v BDE) na pocitane pole.
Nicmene netusim co tim chces ziskat. Jinak napovedu k sql mas v souboru
"localsql.hlp" dodavanou k Delphi.
Honza
----- Original Message -----
From: "Ondrej" <ieee(zv)ynet.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, December 04, 2003 9:34 PM
Subject: Re: Konverzia casu na sekundy
> Dakujem. To mi pomohlo. Lenze nasledne vznikol novy problem, s ktorym si
> neviem rady. Ked zavolam
>
> Select (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME))) AS Sekundy, COUNT(*)
As
> POCET Group by Sekundy
>
> vypise mi: Invalid field name Sekundy
>
> Skusil som aj ine mena, ale nic nepomohlo. Ako keby zrazu nepoznalo to
slovo
> As. Pre mna je dvolezite, aby som to mohol podla tych vypocitanych sekund
> zgrupovat.
>
> Ondrej
>
> ----- Original Message -----
> From: "Jan Harman" <harman(zv)volny(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, December 04, 2003 8:48 PM
> Subject: Re: Konverzia casu na sekundy
>
>
> > Spise zalezi jkou databazi pouzivas. Pokud se jedna o BDE, tak myslim ze
> tam
> > lze jen pouzit EXTRACT (SECOND FROM DateTimeField) coz extrahuje jen
> sekundy
> > (0..59). Pokud bys to chtel cele, tak to muzes vypocitat.
> >
> > Honza
> >
> >
> > ----- Original Message -----
> > From: "Ondrej" <ieee(zv)ynet.sk>
> > To: <delphi-l(zv)clexpert(tec)cz>
> > Sent: Thursday, December 04, 2003 7:36 PM
> > Subject: SQL: Konverzia casu na sekundy
> >
> >
> > > Dobry den,
> > > Mam problem s konvertovanim casu (napr. 12:23:12) na sekundy od
polnoci.
> > Ked pouzijem funkciu TIME_TO_SEC, tak mi program vypise, ze
nepodporovane
> > schopnosti. K DB sa pripajam cez BDE. Je to databaza typu DBASE.
> > >
> > > Mohli by ste mi prosim poslat link s SQL prikazmi, ktore mozem
pouzivat
> v
> > komponente TQuery?
> > >
> > > Dakujem
> > > Ondrej
> > >
> > >
> > >
> >
> >
>
>
>Konverzia casu na sekundy
[*] Ondrej <ieee(zv)ynet.sk> - 4.12.2003 21:34:12
Dakujem. To mi pomohlo. Lenze nasledne vznikol novy problem, s ktorym si
neviem rady. Ked zavolam
Select (EXTRACT(SECOND FROM CAST(CALLTIME AS TIME))) AS Sekundy, COUNT(*) As
POCET Group by Sekundy
vypise mi: Invalid field name Sekundy
Skusil som aj ine mena, ale nic nepomohlo. Ako keby zrazu nepoznalo to slovo
As. Pre mna je dvolezite, aby som to mohol podla tych vypocitanych sekund
zgrupovat.
Ondrej
----- Original Message -----
From: "Jan Harman" <harman(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, December 04, 2003 8:48 PM
Subject: Re: Konverzia casu na sekundy
> Spise zalezi jkou databazi pouzivas. Pokud se jedna o BDE, tak myslim ze
tam
> lze jen pouzit EXTRACT (SECOND FROM DateTimeField) coz extrahuje jen
sekundy
> (0..59). Pokud bys to chtel cele, tak to muzes vypocitat.
>
> Honza
>
>
> ----- Original Message -----
> From: "Ondrej" <ieee(zv)ynet.sk>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, December 04, 2003 7:36 PM
> Subject: SQL: Konverzia casu na sekundy
>
>
> > Dobry den,
> > Mam problem s konvertovanim casu (napr. 12:23:12) na sekundy od polnoci.
> Ked pouzijem funkciu TIME_TO_SEC, tak mi program vypise, ze nepodporovane
> schopnosti. K DB sa pripajam cez BDE. Je to databaza typu DBASE.
> >
> > Mohli by ste mi prosim poslat link s SQL prikazmi, ktore mozem pouzivat
v
> komponente TQuery?
> >
> > Dakujem
> > Ondrej
> >
> >
> >
>
>Konverzia casu na sekundy
[*] Jan Harman <harman(zv)volny(tec)cz> - 4.12.2003 20:48:09
Spise zalezi jkou databazi pouzivas. Pokud se jedna o BDE, tak myslim ze tam
lze jen pouzit EXTRACT (SECOND FROM DateTimeField) coz extrahuje jen sekundy
(0..59). Pokud bys to chtel cele, tak to muzes vypocitat.
Honza
----- Original Message -----
From: "Ondrej" <ieee(zv)ynet.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, December 04, 2003 7:36 PM
Subject: SQL: Konverzia casu na sekundy
> Dobry den,
> Mam problem s konvertovanim casu (napr. 12:23:12) na sekundy od polnoci.
Ked pouzijem funkciu TIME_TO_SEC, tak mi program vypise, ze nepodporovane
schopnosti. K DB sa pripajam cez BDE. Je to databaza typu DBASE.
>
> Mohli by ste mi prosim poslat link s SQL prikazmi, ktore mozem pouzivat v
komponente TQuery?
>
> Dakujem
> Ondrej
>
>
>SQL: Konverzia casu na sekundy
[*] Ondrej <ieee(zv)ynet.sk> - 4.12.2003 19:36:04
Dobry den,
Mam problem s konvertovanim casu (napr. 12:23:12) na sekundy od polnoci. Ked pouzijem funkciu TIME_TO_SEC, tak mi program vypise, ze nepodporovane schopnosti. K DB sa pripajam cez BDE. Je to databaza typu DBASE.
Mohli by ste mi prosim poslat link s SQL prikazmi, ktore mozem pouzivat v komponente TQuery?
Dakujem
Ondrej
Detekce Sock2.0 ComCtrls 4.7 a ticha instalace Fir
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.12.2003 17:45:57
From: <rookie1(zv)quick(tec)cz>
> A pak bych potreboval nejak zdetekovat jestli je treba nainstalovat ComCtrls
> update, kvuli ListView a CoolBand.
Podle verze COMCTL32 a to navic jen na Windows 95/NT4 (ktere jiz stejne nejsou
v posledni verzi Delphi oficialne podporovany).
Petr Vones
Detekce Sock2.0 ComCtrls 4.7 a ticha instalace Fir
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.12.2003 17:41:57
On Thursday, December 04, 2003 2:23 PM [CET], rookie1(zv)quick(tec)cz wrote:
> Pro svou aplikaci, chci udelat jednoduchou instalaci a potreboval
> bych jednoduse zjistit, jestli jsou instalovany WinSock 2.0 - kvuli
> Firebirdu.
>
WSAStartup vraci v WSADATA.wHighVersion nejvyssi verzi WinSock
podporovanou danou instalaci.
D. Toman
Select z viacerych databaz v IB/FB
[*] sulodk(zv)atlas(tec)cz - 4.12.2003 15:07:47
Ja nepotrebujem master/detail som sa asi zle vyjadril:
Tak este raz. Potrebujem nieco taketo:
Toto je v MSSQL:
select s.id from [DatabazaA]..[TabulkaA] s union
select s2.id from [DatabazaB]..[TabulkaB] s2
Ako to spravit v IB/FB, alebo v ktorom inom SQL servri ako MSSQL toto ide
spravit? Tzv select cez databazy?
petr palicka wrote:
> Ahoj,
>
> tohle v IB/FB zatim nefunguje. Zalezi, ale na co to
> potrebujes. Napriklad pro tisk sestav ci editaci lze
> vyuzit Master / Detail provazani datasetu.
>
> Peca
Ikonky XP
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 4.12.2003 15:23:48
Opravdu, opravdu velmi kvalitni ikonky jsou na:
http://www.foood.net/icons/index.htm
Pro pouziti v jakychkoliv aplikacich se vsak musite dohodnout s autorem,
ale musim uznat ze ikonky v nadhernych barvach do rozliseni 128x128 bodu!!!
jsem nikde jeste nenasel.
Eventuelne dporucuji jeste:
http://icons.deviantart.com/winicons/
>Nemate nekdo roztridene ikony z WinXP, OfficeXP? Proste z Windozu ::) ja
>jich tu mam grablych asi 12k a to se neda roztridit... ::( 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
---------------------------------------------------------------------------
Detekce Sock2.0 ComCtrls 4.7 a ticha instalace Fir
[*] rookie1(zv)quick(tec)cz - 4.12.2003 14:23:44
Pro svou aplikaci, chci udelat jednoduchou instalaci a potreboval bych jednoduse zjistit, jestli jsou instalovany WinSock 2.0 - kvuli Firebirdu.
A pak bych potreboval nejak zdetekovat jestli je treba nainstalovat ComCtrls update, kvuli ListView a CoolBand.
A dal bych potreboval nejak nainstalovat Firebird, tzn. spustim instalaci, na nic se mne to nebude ptat, nainstaluje FB, nastavi spusteni na service nebo app podle druhu Windows a spusti server - vlastne to same jako dela instalacka FB 1.3 ale bez dotazu a dialogovych oken.
Nevite nekdo jak na to ?
Zelenka
Cislovani radku
[*] Petr Langer <langer(zv)xdom(tec)cz> - 4.12.2003 14:07:43
----- Original Message -----
From: "Milan Lucka" <mlucka(zv)cz.foxconn.com>
Subject: Re: Cislovani radku
> a schema zlyhala :-))))))
> dotazovatel chcel zrejme nieco ine
>
V EMWAC SQL konferenci (do ktere to taky posilal) mi odpovedel, ze je to
ono. ;-)
> ale plne suhlasim, ze je treba vyuzivat informacie z internetu...skoro
vzdy
> riesime, to co uz niekto niekde vyriesil :-(((
Na to by byl dobry nejaky web s nejcastejsimi dotazy a problemy a jejich
resenim. Urcite takovych par existuje, tak by se mohly nekde shromazdit
odkazy.
> ale tiez je mozne, ze sa neustale riadime pravidlom: "ked zlyhaju vsetky
> pokusy, pouzi manual" a nevieme sa toho zbavit
>
> Milan
>
Jo, jo, vetsinou, pokud si clovek najde ta spravna klicova slova, tak to
vyhleda rychle. Bohuzel, ne vzdy to lze tak jednoduse, nebo se do tech
klicovych slov ne a ne trefit.
pl
Problem se sestavenim SQL
[*] lgcvirag(zv)iol(tec)cz - 4.12.2003 13:17:39
Zdravim.
Nejsem sice MSSQL (pracuji s databazi Oracle), ale myslim, ze by to mohlo byt takto, Ty carky jsem vydelil a dal na ne test ma nasledujici sloupec.
....
case a.ulice
when '' then ''
else ltrim(a.ulice)
end
+
case a.mesto
when '' then ''
else ','
end
+
case a.mesto
when '' then ''
else ltrim(a.mesto)
end
+
case a.psc
when '' then ''
else ','
end
+
case a.psc
when '' then ''
else ltrim(a.psc)
end
+
case a.email
when '' then ''
else ','
end
+ isnull(a.email, '')))+'''' as adresa_zadatele,
x5, ..., xn
from tabulka
left join d_adresa a on (tabulka vazba adresa)
Ivan Virag
----- Puvodni zprava -----
Predmet: OT: Problem se sestavenim SQL
> select x1,x2,x3,..,
> ''''+Rtrim(ltrim(case a.ulice
> when '' then ''
> else ltrim(a.ulice)+', '
> end +
> case a.mesto
> when '' then ''
> else ltrim(a.mesto)+', '
> end +
> case a.psc
> when '' then ''
> else ltrim(a.psc)+', '
> end
> + isnull(a.email, '')))+'''' as adresa_zadatele,
> x5, ..., xn
> from tabulka
> left join d_adresa a on (tabulka vazba adresa)
>
> Potrebju, aby mi to vyslo primo z toho selectu a nemuzu vytvaret
> procedury. F-ci, ktera mi odtrsani "," mam, ale ta pracuje
> nekolikrat s tou sectenou adresou - takze bych to vyresil, kdybych
> si umel tu sectenou adresu dat do nejake promenne.
>
> Co vy na tenhle orisek? ;o)
> Diky
> Jirka
> P.S.:Jo! Resim to na MS SQL2000
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP3; WinXPProf+SP1
> programator amater
>
>
>
>
Delphi 5 Standard wanted
[*] Smejkal Stanislav <ssmejkal(zv)farmtec(tec)cz> - 4.12.2003 13:09:39
Dobry den vsem,
nemate nekdo prebytecnou licenci na Delphi 5 Standard?
Moc diky za info
Standa
Select z viacerych databaz v IB/FB
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 4.12.2003 12:47:36
> Nie Master/Detail mi v tomto pripade nepomoze pretoze ja tie data potrebujem
> mat v roznych databazach. :-(
no vsak ja je mam ve dvou databazich. dulezite je, aby hrali
vazebni klice. potom si udelam jedno pripojeni do jedne a
druhe do druhe databaze + dva datasety a propojim to spolu.
je nutne, aby klient udrzoval referencni integritu, ale to
se da udrzet a casm se FireBird nauci i propojeni databazi
na serveru :o)
peca
arj exit code
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 4.12.2003 13:07:38
Je to v nejakem souboru doc nebo readme primo s ARJ.
"Ing. Slavomir Timko" wrote:
>
> Zdravim
>
> Chcem sa spytat, ci nahodou niekto nema zoznam a popis vystupnych
> (chybovych) kodov pre program arj32.exe.
>
> Vopred dakujem za odpovede a prepacte za off topic.
> Slavo
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Refresh na ClientDatasetu
[*] Viktor Doubek <viktordoubek(zv)centrum(tec)cz> - 4.12.2003 12:51:37
Pekny den vsem,
i kdyz se to zde udajne propiralo mockrat, fulltextem se mi
nepodarilo najit odpoved na otazku, jak je to s %Subj%.
V mem pripade je to napojeni SQLConnection> SQLDataSet> Provider>
ClientDataset> DBGrid. Problemem je to, ze po UpplyUpdates mi Refresh
vrati puvodni stav tabulky, tj. bez mych zmen a RefreshRecord hazi
chybu "Unable to find record. No key specified".
Nevim, jak mu vnutit ten klic, zkousel jsem IndexFields, ale
bezvysledne. Krome viditelnosti zmen od ostatnich uzivatelu potrebuji
jsem chtel refresh na precteni hodnoty autoincrement fieldu vracene
serverem po insertu. Mate s tim nekdo zkusenost?
A vubec je pro tyhle ucely (DBGrid s podporou lokalniho trieni,
vyhledavani, filtru apod.(i z vice tabulek)) ten postup vhodny?
Diky moc za odpovedi.
VK
---
Problem se sestavenim SQL [6x]
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 4.12.2003 12:29:34
Existuje,
vytvor tu funkci nad databazi tempdb,
bude tam existovat az do restartu serveru.
CREATE FUNCTION tempdb.user.xxxxxxxxxxxxxxxxxx
AS
Pavel
> -----Original Message-----
> From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
> Sent: Thursday, December 04, 2003 11:39 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Problem se sestavenim SQL [6x]
>
>
> Od: Milan Lucka <mlucka(zv)cz.foxconn.com>
> > co tak za behu vytvorit funkciu, pouzit ju a
> > po pouziti odstranit funkciu,
>
> Ahoj!
> To je cesta, kterou hledam, ale... neexistuji na MS SQL
> nejake docasne funkce? Neco jako docasne tabulky - ze by se
> fyzicky nezapisovaly do databaze, ale byly by v pameti
> serveru jen pro splneni mnou pozadovaneho selectu (SQL)???
> Jirka
>
>
>
> DBGRID a editace databaze
[*] horky(zv)cominn(tec)cz - 4.12.2003 12:57:37
> From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
>
> zdravim lze nejak nastavit aby pri poklepani na bunku DBGridu
> se dala
> editovat polozka databaze? nebo se to musi osetrit programove?
Rozhodne doporucuji programove, DBGrid ma udalost OnDblClick, v te
si zavolas editacni formular pro dany zaznam v tabulce.
Primou editaci v DBgridu nepouzivej, tam se spatne dela validace.
--
S pozdravem Karel Horky, CLX, D6 SP2, FB 1.0.3, IBX 6.03, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
OT: arj exit code
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 4.12.2003 12:29:34
Zdravim
Chcem sa spytat, ci nahodou niekto nema zoznam a popis vystupnych
(chybovych) kodov pre program arj32.exe.
Vopred dakujem za odpovede a prepacte za off topic.
Slavo
IDE sktyte breakpointy
[*] horky(zv)cominn(tec)cz - 4.12.2003 12:49:36
> From: Benda Lukas [mailto:bendal(zv)volny(tec)cz]
>
> Da se nejakym zpusobem vymazat primo ve zdroji smazat breakpointy?
Pomoci Ctrl+Alt+B zobrazit vsechny Breakpointy v projektu a pak smazat,
nebo muzes smazat soubor .dsk.
--
S pozdravem Karel Horky, CLX, D6 SP2, FB 1.0.3, IBX 6.03, WXP SP1
[mailto:horky(zv)cominn(tec)cz] Problem se sestavenim SQL [6x]
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 4.12.2003 12:37:35
Omlouvam se docasna funkce nejde (vysel jsem z moznosti docasne procedury).
Pavel
> Existuje,
> vytvor tu funkci nad databazi tempdb,
> bude tam existovat az do restartu serveru.
> CREATE FUNCTION tempdb.user.xxxxxxxxxxxxxxxxxx
> AS
>
> Pavel
>
> > -----Original Message-----
> > From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
> > Sent: Thursday, December 04, 2003 11:39 AM
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: Re: Problem se sestavenim SQL [6x]
> >
> >
> > Od: Milan Lucka <mlucka(zv)cz.foxconn.com>
> > > co tak za behu vytvorit funkciu, pouzit ju a
> > > po pouziti odstranit funkciu,
> >
> > Ahoj!
> > To je cesta, kterou hledam, ale... neexistuji na MS SQL
> > nejake docasne funkce? Neco jako docasne tabulky - ze by se
> > fyzicky nezapisovaly do databaze, ale byly by v pameti
> > serveru jen pro splneni mnou pozadovaneho selectu (SQL)???
> > Jirka
> >
> >
> >
> >
> Kolecko mysi v DBGridu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.12.2003 11:59:32
Matejcek Petr dne 4 Dec 2003 v 8:19:
> zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
> kurzor v DBGridu kdyz tam je scrolovaci lista?
Kdysi jsem do konference posilal unitu, kterou stacilo pridat k projektu, a rolovani pak fungovalo
ve vsech DbGridech. Pres kritiku nekterych ucastniku to mne, linemu cloveku, usetrilo dost prace :-
)
Karel Rys
Problem se sestavenim SQL [6x]
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 4.12.2003 11:51:31
docasne funkcie sa bohuzial nedaju vytvorit, tak ostava len vytvorenie
"ostrej" funkcie
Milan
> -----Original Message-----
> From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
> Sent: Thursday, December 04, 2003 11:40 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Problem se sestavenim SQL [6x]
>
>
> Od: Milan Lucka <mlucka(zv)cz.foxconn.com>
> > co tak za behu vytvorit funkciu, pouzit ju a
> > po pouziti odstranit funkciu,
>
> Ahoj!
> To je cesta, kterou hledam, ale... neexistuji na MS SQL
> nejake docasne funkce? Neco jako docasne tabulky - ze by se
> fyzicky nezapisovaly do databaze, ale byly by v pameti
> serveru jen pro splneni mnou pozadovaneho selectu (SQL)???
> Jirka
>
>
>
Problem se sestavenim SQL [6x]
[*] js-delphi(zv)quick(tec)cz - 4.12.2003 11:39:30
Od: Milan Lucka <mlucka(zv)cz.foxconn.com>
> co tak za behu vytvorit funkciu, pouzit ju a
> po pouziti odstranit funkciu,
Ahoj!
To je cesta, kterou hledam, ale... neexistuji na MS SQL nejake docasne funkce? Neco jako docasne tabulky - ze by se fyzicky nezapisovaly do databaze, ale byly by v pameti serveru jen pro splneni mnou pozadovaneho selectu (SQL)???
Jirka
Cislovani radku
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 4.12.2003 11:29:29
a schema zlyhala :-))))))
dotazovatel chcel zrejme nieco ine
ale plne suhlasim, ze je treba vyuzivat informacie z internetu...skoro vzdy
riesime, to co uz niekto niekde vyriesil :-(((
ale tiez je mozne, ze sa neustale riadime pravidlom: "ked zlyhaju vsetky
pokusy, pouzi manual" a nevieme sa toho zbavit
Milan
> Na tuto otazku znam jednoduchou odpoved: GOOGLE :-)
>
> 1. Co chci - v MS SQL udelat dotaz ktery ocisluje radky
> 2. Prelozim si to do jednoduche anglictiny: MS SQL query with
> row numbering
> 3. vlozim to do googlu a pouziju prvni odkaz :-)
>
> http://databasejournal.com/features/mssql/article.php/2244821
>
> HTH,
> Petr Langer
>
Select z viacerych databaz v IB/FB
[*] sulodk(zv)atlas(tec)cz - 4.12.2003 10:47:27
Nie Master/Detail mi v tomto pripade nepomoze pretoze ja tie data potrebujem
mat v roznych databazach. :-(
petr palicka wrote:
> Ahoj,
>
> tohle v IB/FB zatim nefunguje. Zalezi, ale na co to
> potrebujes. Napriklad pro tisk sestav ci editaci lze
> vyuzit Master / Detail provazani datasetu.
>
> Peca
Select z viacerych databaz v IB/FB
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 4.12.2003 10:37:26
Ahoj,
tohle v IB/FB zatim nefunguje. Zalezi, ale na co to
potrebujes. Napriklad pro tisk sestav ci editaci lze
vyuzit Master / Detail provazani datasetu.
Peca
Cislovani radku
[*] Petr Langer <langer(zv)xdom(tec)cz> - 4.12.2003 10:21:25
Na tuto otazku znam jednoduchou odpoved: GOOGLE :-)
1. Co chci - v MS SQL udelat dotaz ktery ocisluje radky
2. Prelozim si to do jednoduche anglictiny: MS SQL query with row numbering
3. vlozim to do googlu a pouziju prvni odkaz :-)
http://databasejournal.com/features/mssql/article.php/2244821
HTH,
Petr Langer
----- Original Message -----
From: "delphi konference" <delphi(zv)JAPOS.COM>
Subject: Cislovani radku
> Ahoj,
>
> potreboval bych ocislovat radkyv SELECTu neco jako:
>
> SELECT NevimCo, * FROM tabulka
>
> pozadovany vysledek:
>
> 1 A B C ...
> 2 A B C ...
> 3 A B C ...
>
> kde samozrejme A, B ,C jsou ruzne odpovidajici hodnoty z tabulky.
>
> Jaroslav Pospisil
cislovani radku
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 4.12.2003 10:17:24
Zdravim,
SELECT IDENTITY(int, 1,1) AS ID, * INTO #Temp FROM tabulka
SELECT * FROM #Temp
DROP TABLE #Temp
Milan
> potreboval bych v MS SQL 2000 ocislovat radky v SELECTu neco jako:
>
> SELECT NevimCo, * FROM tabulka
>
> pozadovany vysledek:
>
> 1 A B C ...
> 2 A B C ...
> 3 A B C ...
>
> kde samozrejme A, B ,C jsou ruzne odpovidajici hodnoty z tabulky.
>
> Jaroslav Pospisil
>
>
Select z viacerych databaz v IB/FB
[*] sulodk(zv)atlas(tec)cz - 4.12.2003 10:03:23
Zdravim,
Chcem sa opytat ci sa da a ak ano tak ako docielit nasledovny select:
toto funguje v MS-SQL:
select A.ID, B.NAZOV from [DatabazaA]..[TabulkaA] as A,
[DatabazaB]..[TabulkaB] as B where B.ID=A.ID
S pozdravom Peter Sulek.OT: cislovani radku
[*] delphi(zv)japos(tec)com - 4.12.2003 10:01:22
Ahoj,
potreboval bych v MS SQL 2000 ocislovat radky v SELECTu neco jako:
SELECT NevimCo, * FROM tabulka
pozadovany vysledek:
1 A B C ...
2 A B C ...
3 A B C ...
kde samozrejme A, B ,C jsou ruzne odpovidajici hodnoty z tabulky.
Jaroslav Pospisil
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Rostislav Lekes
Sent: Thursday, December 04, 2003 9:53 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: znovu trigger a FB
Cau,
jeste mam jeden dotaz:
jak muzu v triggeru BI,BU na FB 1.0.x otestovat povinne polozky? Tabulka ma
20 sloupcu a pri update potrebuju pohlidat, ze vybranych 5 z nich urcite
dostava novou hodnotu (ale pritom muze byt stejna jako predchozi,
USRID,STCID ....).
Diky,Rosta
Problem se sestavenim SQL [5x]
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 4.12.2003 09:59:22
Zdravim,
co tak za behu vytvorit funkciu, pouzit ju a po pouziti odstranit funkciu,
napriklad takto:
('Adr1' az 'Adr4' nahradit konkretnymi poliami v tabulke a doplnit cast
FROM....WHERE atd)
CREATE FUNCTION GetString ((zv)string varchar(50))
RETURNS varchar(50)
AS
BEGIN
DECLARE (zv)s AS varchar(50)
SET (zv)s = (zv)string
SET (zv)s = LTRIM(RTRIM(ISNULL((zv)s,'')))
IF ((zv)s<>'') SET (zv)s=(zv)s+', '
RETURN (zv)s
END
GO
CREATE FUNCTION TruncateString ((zv)string varchar(50))
RETURNS varchar(50)
AS
BEGIN
DECLARE (zv)s AS varchar(50)
SET (zv)s = (zv)string
IF (SUBSTRING((zv)s, LEN((zv)s), 1)=',') SET (zv)s=SUBSTRING((zv)s, 1, LEN((zv)s)-1)
RETURN (zv)s
END
GO
SELECT
[dbo].TruncateString([dbo].GetString('Adr1')+[dbo].GetString('Adr2')+[dbo].G
etString('Adr3')+[dbo].GetString('Adr4'))
GO
IF EXISTS (SELECT * FROM sysobjects WHERE name = 'GetString')
DROP FUNCTION GetString
GO
IF EXISTS (SELECT * FROM sysobjects WHERE name = 'TruncateString')
DROP FUNCTION TruncateString
GO
Milan
znovu trigger a FB
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 4.12.2003 09:53:22
Cau,
jeste mam jeden dotaz:
jak muzu v triggeru BI,BU na FB 1.0.x otestovat povinne polozky? Tabulka ma
20 sloupcu a pri update potrebuju pohlidat, ze vybranych 5 z nich urcite
dostava novou hodnotu (ale pritom muze byt stejna jako predchozi,
USRID,STCID ....).
Diky,Rosta
Problem se sestavenim SQL [5x]
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 4.12.2003 09:51:21
Poslu vzorovy skript na soukromou adresu, ale nevim na kterou.
V zahlavi je js-delphi(zv)quick(tec)cz a na konci mailu bylo jiri.sokol(zv)seznam(tec)cz. Tak to poslu radeji na obe.
-----Original Message-----
From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
Sent: Thursday, December 04, 2003 8:27 AM
No... zkousel jsem to, ale absolutne si neumim poradit se syntaxi... :( Nemuzes to napsat aspon po ten jeden case - myslim cely select??? prosim vcetne declarace promenne. Pro psani SQL tady mam "Query Analyzer".
Jeste jednou diky za ochotu mi pomoct!
Jirka
P.S.:Ja uz to mam hotovy a dostavam z toho co potrebuju, ale v tom selectu, u toho sloupce kde ma byt vysledna adresa, mam ono resene spojeni "x" sloupcu z d_adresa 4x! (kvuli odstraneni te potencionalni carky na zacatku retezce) Ten select je pres celou obrazovku a vzhledem k tomu, ze neco delam 4x, tak to nepovazuju za spravne a tak bych se to rad naucil lip - pokud to vubec touto cestou lip pujde...
Kolecko mysi v DBGridu
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 4.12.2003 08:53:16
JEDI je knihovna, obdoba RX. Podivej se na
http://jvcl.sourceforge.net/
je tam spousta skvelych veci a mimo jine i to, co potrebujes. Pouzivam to a funguje to.
V.
-----Original Message-----
From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
Sent: Thursday, December 04, 2003 8:39 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Kolecko mysi v DBGridu
Co je JEDI... ???
LUKES Vaclav napsal(a):
>Reseno v JEDI...
>V.
>
>
>zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
>kurzor v DBGridu kdyz tam je scrolovaci lista?
>
>
>
>Problem se sestavenim SQL [6x]
[*] js-delphi(zv)quick(tec)cz - 4.12.2003 08:51:08
Od: Lstiburek Pavel <lstiburek(zv)ceb(tec)cz>
> A coz takhle pouzit funkci ISNULL ?
> Nebylo by to nejjednodusi reseni ?
Souhlasim! Nicmene porad budu neco opakovat 4x - byt to bude elegantneji napsane... Ale ano, IsNull to rozhodne zprehledni... Ale co s tou optimalizaci?
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
Kolecko mysi v DBGridu
[*] Lukas Barton <barton(zv)labsys(tec)cz> - 4.12.2003 08:51:08
Nedavno jsem to resil:
interface
Type
TUserDBGrid = class(TDBGrid)
protected
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint):
Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint):
Boolean; override;
published
property OnMouseWheelDown;
property OnMouseWheelUp;
end;
var
DBGrid1: TUserDBGrid;
implementation
function TUserDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint):
Boolean;
begin
Result := False;
if Assigned(OnMouseWheelDown) then
OnMouseWheelDown(Self, Shift, MousePos, Result);
if not Result then begin
if Datalink.Active then begin
Result := Datalink.DataSet.MoveBy(1) <> 0;
end;
end;
end;
function TUserDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint):
Boolean;
begin
Result := False;
if Assigned(OnMouseWheelUp) then
OnMouseWheelUp(Self, Shift, MousePos, Result);
if not Result then begin
if Datalink.Active then begin
Result := Datalink.DataSet.MoveBy(-1) <> 0;
end;
end;
end;
nekde v kodu:
DBGrid1 := TUserDBGrid.Create(Form1);
A priradit samozrejme vlastnosti (datasource, parent apod.)
Lukas Barton
barton(zv)labsys(tec)cz
-----Original Message-----
From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
Sent: Thursday, December 04, 2003 8:19 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Kolecko mysi v DBGridu
zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
kurzor v DBGridu kdyz tam je scrolovaci lista?
IDE sktyte breakpointy
[*] Tomas Kupcik <tkupcik(zv)qgir(tec)cz> - 4.12.2003 09:03:17
Ctrl + Alt + B
Dne Thu, 4 Dec 2003 08:59:17 +0100 napsal/-a Benda Lukas <bendal(zv)volny(tec)cz>
zpravu nasledujiciho zneni:
> Da se nejakym zpusobem vymazat primo ve zdroji smazat breakpointy?
IDE sktyte breakpointy
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 4.12.2003 08:59:17
Da se nejakym zpusobem vymazat primo ve zdroji smazat breakpointy?
Mam totiz nasledujici problem: IDE si pamatuje, ze na urcitem radku je
breakpoint, zastavuje se na nem pravidlene, ale tento breakpoint mi
nezobrazuje. Proste se to chova jako by tam breakpoint byl, ale ja ho
tam nevidim a nemuzu ho odstranit. Takze hodlam-li ladit nejakou funkci
ve ktere je ciklus a padne mi tam onen "skryty" break point, nic neodladim.
Lukas Benda
Stored procedure - navratova hodnota
[*] Michal Kolisek <michal.kolisek(zv)asei(tec)cz> - 4.12.2003 08:55:16
Dobre dopoledne,
mam ulozenou proceduru na Oracle8, tahle procedura ma pouze vstupni
parametry a jeji prubeh se da vypsat treba v konzoli plSql pomoci prikazu
SET SERVEROUTPUT ON, pres vlastni prikaz DBMS_OUTPUT.PUT_LINE. Kdyz
proceduru spustim pod delphi, potreboval bych tenhle vystup presmerovat, aby
byl videt (pri spusteni pod Delphi procedura nevypisuje nic). Da se Oraclu
vnutit nejaky standardni vystup, nebo odchytit vysledek
(DBMS_OUTPUT.GET_LINE) nekam ?
M.Kolisek, Delphi 5 ent., Ora8
Kolecko mysi v DBGridu
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 4.12.2003 08:39:07
Co je JEDI... ???
LUKES Vaclav napsal(a):
>Reseno v JEDI...
>V.
>
>
>zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
>kurzor v DBGridu kdyz tam je scrolovaci lista?
>
>
>
>
Kolecko mysi v DBGridu
[*] Lukas Barton <barton(zv)labsys(tec)cz> - 4.12.2003 08:37:02
Nedavno jsem to resil:
interface
Type
TUserDBGrid = class(TDBGrid)
protected
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint):
Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint):
Boolean; override;
published
property OnMouseWheelDown;
property OnMouseWheelUp;
end;
var
DBGrid1: TUserDBGrid;
implementation
function TUserDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint):
Boolean;
begin
Result := False;
if Assigned(OnMouseWheelDown) then
OnMouseWheelDown(Self, Shift, MousePos, Result);
if not Result then begin
if Datalink.Active then begin
Result := Datalink.DataSet.MoveBy(1) <> 0;
end;
end;
end;
function TUserDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint):
Boolean;
begin
Result := False;
if Assigned(OnMouseWheelUp) then
OnMouseWheelUp(Self, Shift, MousePos, Result);
if not Result then begin
if Datalink.Active then begin
Result := Datalink.DataSet.MoveBy(-1) <> 0;
end;
end;
end;
nekde v kodu:
DBGrid1 := TUserDBGrid.Create(Form1);
A priradit samozrejme vlastnosti (datasource, parent apod.)
Lukas Barton
barton(zv)labsys(tec)cz
-----Original Message-----
From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
Sent: Thursday, December 04, 2003 8:19 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Kolecko mysi v DBGridu
zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
kurzor v DBGridu kdyz tam je scrolovaci lista?
Kolecko mysi v DBGridu
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 4.12.2003 08:33:01
Reseno v JEDI...
V.
-----Original Message-----
From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
Sent: Thursday, December 04, 2003 8:19 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Kolecko mysi v DBGridu
zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
kurzor v DBGridu kdyz tam je scrolovaci lista?
Problem se sestavenim SQL
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 4.12.2003 08:29:01
A coz takhle pouzit funkci ISNULL ?
Nebylo by to nejjednodusi reseni ?
Pavel
> From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
> Opet se omlouvam za OT, ale fakt potrebuju poradit.
> Mam docela slozity select, ktery mi vraci x sloupcu. V jednom
> sloupci potrebuju sloucit xx sloupcu z jedne tabulky. Jde o
> to, ze ve vysledku chci mit jeden sloupec, ve kterym bude
> cela adresa - slozena z:
> ulice
> mesta
> psc
> email
> tyto jednotlive polozky musi byt mezi sebou oddeleny ","
> Vsechny sloupce muzou byt NULL.
>
> Tak a ted problem. At delam co delam, dostanu se do bodu, ze
> bud na zacatku nebo na konci tehle slozene adresy dostanu onu
> ",". Chtel bych se ji zbavit.
> Lze nejak primo v selectu nastavit nejakou promennou, se
> kterou bych potom pracoval? Lze se z jednoho vysledneho
> sloupce odkazat na sloupec predchozi?
> mam:
> select x1,x2,x3,..,
> ''''+Rtrim(ltrim(case a.ulice
> when '' then ''
> else ltrim(a.ulice)+', '
> end +
> case a.mesto
> when '' then ''
> else ltrim(a.mesto)+', '
> end +
> case a.psc
> when '' then ''
> else ltrim(a.psc)+', '
> end
> + isnull(a.email, '')))+'''' as adresa_zadatele,
> x5, ..., xn
> from tabulka
> left join d_adresa a on (tabulka vazba adresa)
>
> Potrebju, aby mi to vyslo primo z toho selectu a nemuzu
> vytvaret procedury. F-ci, ktera mi odtrsani "," mam, ale ta
> pracuje nekolikrat s tou sectenou adresou - takze bych to
> vyresil, kdybych si umel tu sectenou adresu dat do nejake promenne.
>
> Problem se sestavenim SQL [5x]
[*] js-delphi(zv)quick(tec)cz - 4.12.2003 08:27:01
Od: Vlastimil Bardon <bardon(zv)akord-soft(tec)cz>
> Na UDF nemusis byt spravce databaze, staci,
> kdyz Ti to spravce povoli.
Nelze... je to dodvatel systemu, ktery by tohoto mohl pouzit pri reklamacich (nedumejme nad logikou tohoto tvrzeni - my s nim nejsme spokojeni). Ci-li bud select nebo nic... :(
> Jina idea? No jiste, da se to udelat i slozite.
>
> ADRESA =
> IsNull( MESTO,'') +
> CASE WHEN MESTO IS NULL THEN
> IsNull( ULICE, '' )
> ELSE
> ', ' + ULICE
> END +
> ... atd ...
No... zkousel jsem to, ale absolutne si neumim poradit se syntaxi... :( Nemuzes to napsat aspon po ten jeden case - myslim cely select??? prosim vcetne declarace promenne. Pro psani SQL tady mam "Query Analyzer".
Jeste jednou diky za ochotu mi pomoct!
Jirka
P.S.:Ja uz to mam hotovy a dostavam z toho co potrebuju, ale v tom selectu, u toho sloupce kde ma byt vysledna adresa, mam ono resene spojeni "x" sloupcu z d_adresa 4x! (kvuli odstraneni te potencionalni carky na zacatku retezce) Ten select je pres celou obrazovku a vzhledem k tomu, ze neco delam 4x, tak to nepovazuju za spravne a tak bych se to rad naucil lip - pokud to vubec touto cestou lip pujde...
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
Kolecko mysi v DBGridu
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 4.12.2003 08:19:00
zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
kurzor v DBGridu kdyz tam je scrolovaci lista?DBGRID a editace databaze
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 4.12.2003 08:17:00
zdravim lze nejak nastavit aby pri poklepani na bunku DBGridu se dala
editovat polozka databaze? nebo se to musi osetrit programove? pripadne
jak ?
diky PM
Jak sejmout a posilat obrazovku
[*] Jiri Virt <virt(zv)volny(tec)cz> - 4.12.2003 08:02:59
Ahoj,
nevite nekdo , jak se dela sejmuti a odesilani obrazovky.Neco jako
VNC,CarbonCopy nebo pcAnywhere??
Zkousel jsem zjistovat zmeny barev pixelu a tzto zmenz posilat ... ale
prochazeni obrazovky ne straasne dlouhy ...
Diky
Jirka Virt
Ikonky XP
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 4.12.2003 08:00:58
S adresy www.martinkasman.sk/kom/ikony.zip si mozes stiahnut program s
galeriou ikoniek. Je ich tu cez 5000 usporiadanych do jednotlivych sekcii a
samozrejme medzi nimi aj WinXP ikonky. Zial program nie je zdarma a bez
registracie je do galerie len obmedzeny pristup. Registracia stoji 200,-
Sk/KC.
Pekny den praje www.MartinKasman.sk
----- Original Message -----
From: "Bronislav Klucka" <bronislav.klucka(zv)pro2-soft.com>> Nemate nekdo roztridene ikony z WinXP, OfficeXP? Proste z Windozu ::) ja
> jich tu mam grablych asi 12k a to se neda roztridit... ::(
Problem se sestavenim SQL [3x]
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 4.12.2003 07:30:51
Na UDF nemusis byt spravce databaze, staci, kdyz Ti to spravce povoli.
Jina idea? No jiste, da se to udelat i slozite.
ADRESA =
IsNull( MESTO,'') +
CASE WHEN MESTO IS NULL THEN
IsNull( ULICE, '' )
ELSE
', ' + ULICE
END +
CASE WHEN MESTO IS NULL AND ULICE IS NULL THEN
IsNull( TELEFON, '')
ELSE
', '+TELEFON
END +
CASE WHEN MESTO IS NULL AND ULICE IS NULL AND TELEFON IS NULL THEN
IsNull( FAX, '')
ELSE
', '+FAX
END
... atd ...
-----Original Message-----
From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
Sent: Wednesday, December 03, 2003 4:42 PM
Vlastimil Bardon:
-----------------
Dekuju, tohle by urcite slo pouzit, ale ja nejsem spravcem databaze a jedine co muzu udelat je select :(((
Takze tudy cesta nevede...
Nejaka jina idea? Diky za napady.
Problem se sestavenim SQL
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 4.12.2003 06:52:49
> potrebuju sloucit xx sloupcu z jedne tabulky. Jde o to, ze ve vysledku
> chci mit jeden sloupec, ve kterym bude cela adresa - slozena z: ulice
> mesta psc email tyto jednotlive polozky musi byt mezi sebou oddeleny
> "," Vsechny sloupce muzou byt NULL.
Ahoj,
mne pripada ponekud kostrbate se to snazit resit v selectu. Proc to pospojovani
neresis az v aplikaci? At uz normalni funkci nebo claculated fieldem? Rozhodne tam
budes mit vice moznosti nez v selectu.
David Lebeda
Ikonky XP
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 4.12.2003 03:08:35
Nemate nekdo roztridene ikony z WinXP, OfficeXP? Proste z Windozu ::) ja
jich tu mam grablych asi 12k a to se neda roztridit... ::(
Brona
osetreni kliknuti na polozku v kontexovem menu
[*] Michal Augustyn <michal-augustyn(zv)post(tec)cz> - 3.12.2003 21:16:13
Zdar!
Programuju COM objekt, ktery je umisten v DLL a slouzi k tomu, aby se mi
pridaly do kontextoveho menu v pruzkumnikovi nejake dalsi polozky. Kdyz
vytvarim obycejne polozky, tzn. pouze urcity text na ktery se klikne, tak
kliknuti na moji polozku osetrim pomoci metody "InvokeCommand", coz je
metoda rozhrani IContextmenu a tedy i meho COM objektu. Problem ale nastane,
kdyz do kontextoveho menu pridam polozku, ktera slouzi pouze k rozbaleni
dalsiho submenu. To submenu si vytvorim pomoci "CreatePopupMenu" a polozky
do nej nahazim pomoci "InsertMenu". Ja pak ale nevim, jak mam osetrit
kliknuti na polozky umistene v tomto submenu. S tim bych potreboval poradit,
jak reagovat na kliknuti na polozky umistene v submenu.
Moc diky za rady!
Michal Augustyn
IB:gfix
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.12.2003 20:38:10
Haj hou!
On 3 Dec 2003 at 20:16, Ludek Paral wrote:
> pouzivam pred validaci databaze odpojeni vsech klientu pomoci "gfix -shut".
> Samozrejme predtim klienty "premlouvam k odpojeni". Jedna se mi o to, zda
> musim pred validaci povolit prihlasovani pomoci "gfix -online", jelikoz se
> mi zas nejaky neodbytny klient muze prihlasit a ja nebudu moci udelat tu
> validaci.Pri testech jsem zatim musel databazi povolit, vypada to na
> podminku i pro IBValidService...
zalezi na nastroji ze ktereho se validace dela. Databaze ktera je
down by mela dovolit jedno pripojeni uzivatele SYSDBA, takze pres
gfix by to melo jit i bez -online. nektere admin nastroje ale delaji
vice pripojeni v ramci session, takze to neprojde.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
IB:gfix
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 3.12.2003 20:16:03
Ahoj,
pouzivam pred validaci databaze odpojeni vsech klientu pomoci "gfix -shut".
Samozrejme predtim klienty "premlouvam k odpojeni". Jedna se mi o to, zda
musim pred validaci povolit prihlasovani pomoci "gfix -online", jelikoz se
mi zas nejaky neodbytny klient muze prihlasit a ja nebudu moci udelat tu
validaci.Pri testech jsem zatim musel databazi povolit, vypada to na
podminku i pro IBValidService...
Ludek Paral
lupasoft
Sadova 2
352 01 As
Czech Rep.
mobil :00420/728.167118
email :ludek.paral(zv)atlas(tec)cz
ICQ :178625461
Zpristupneni property proceduralniho typu
[*] delphin(zv)post(tec)cz - 3.12.2003 19:07:58
Nevim, jestli jsem to pochopil spravne, ale mozna pomuze:
1) Zaregistrovat i ten objekt TCanEditProps, napriklad pomoci
RegisterNoIcon.
2) Pouzit SetSubComponent
----- Original Message -----
From: "Martin Burle" <mburle2(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 11:23 AM
Subject: Zpristupneni property proceduralniho typu
> Ahoj, mam v komponente spoustu vlastnosti, a aby v tom byl trochu poradek,
> rozhodl jsem se soustredit souvisejici do jedne agregovane (snad to rikam
> spravne) property. Udelal jsem si objekt, ktery drzi nejake property,
vcetne
> jedne proceduralniho typu:
>
> TCanEditProps = class(TPersistent)
> private
> FcanEditProc: T FcanEditProc;
> ...
> published
> property CanEditProc: TCanEditProc read FcanEditProc write
> FcanEditProc;
> end;
>
> V komponente jsem pridal novou property
>
> property CanEditProps: TcanEditprops ....
>
> a funguje to spravne, jen nejak nemuzu prijit na to, jak dosahnout toho,
aby
> byla v property editoru dostupna i ta procedurani property v eventech.
Pokud
> tu proceduralni property dam primo do hlavni komponenty, je to OK.
>
> Diky za kazde nakopnuti,
>
> MB
>
>
>pdf dokument
[*] Sedlak Zdenek <konf(zv)seus(tec)cz> - 3.12.2003 18:29:56
Zkus se podivat na
http://www.sedtech.com/isedquickpdf/
maji celkem zajimave moznosti, muzes si stahnout dcu k sobe a vyzkouset.
Potrebujes aktivacni kod, ktery na zkousku (1mesic) poslou mailem.
Je to celkem dobre, na veci, kdy chces do PDF neco pridat, sifrovat,
nastavit vlastnosti apod. Umi vytvorit i novy dokument.
I na webu maji popis vsech funkci a priklady...
A cena za plnou verzi neni spatna, 65$.
zdenda
----- Original Message -----
From: "Petr Vetesnik" <wetty(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 8:31 AM
Subject: Re: pdf dokument
> Prave mne napadlo, existuje nejaka komponenta, pomoci ktere bych mohl z
> Delphi vytvorit pdf?
>
> diky Wetty
>
>
>
>
>
Problem se sestavenim SQL [4x]
[*] js-delphi(zv)quick(tec)cz - 3.12.2003 17:05:50
> Od: "Lubor Martinsky, SDC" <l.martinsky(zv)softdec(tec)cz>
> A takhle ? :
>
> CASE SUBSTRING ( RETEZEC S CARKAMI, STARTPOS=1,ENDPOS=1 )
> WHEN "," THEN RIGHT( RETEZEC S CARKAMI, LEN(RETEZEC S
> CARKAMI)-1 )
> ELSE
> .......... a takhle vyndat i tu posledni carku ? :-)
Presne! Tohle jsem psal, ze bych snad taky svedl, ale ted jsi se dostal tam kde ja. Kam a jak ulozit ten "RETEZEC S CARKAMI", abych to nemusel u jednoho sloupce spojovat a pocitat ten "RETEZEC S CARKAMI" x-krat?
CASE SUBSTRING ( RETEZEC S CARKAMI [1x], STARTPOS=1,ENDPOS=1 )
WHEN "," THEN RIGHT( RETEZEC S CARKAMI[2x], LEN(RETEZEC S CARKAMI[3x])-1 )
ELSE RETEZEC S CARKAMI [4x]
END
A ted se podivej, kolik radku ma to moje sestaveni toho "RETEZEC S CARKAMI" a pak si to dej misto kazdeho "RETEZEC S CARKAMI" do navrhovaneho reseni.
JE PRAVDA, ze je to vysledek, ktery potrebuju a asi ho budu muset pouzit, ale o nejakem optimalizovanem reseni nelze mluvit... Delat neco 4x!! Brrr ;o)))
Diky za napad - vazim si Tveho casu, ktery jsi mi venoval, ale nenapada Te jeste neco jak to optimalizovat?
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
Zpristupneni property proceduralniho typu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.12.2003 17:01:49
> ne, ze bych tomu zcela rozumel, co's napsal, ale mas ji v published sekci
> definice typu?
Ano,
Tohle je objekt, kteri "drzi" pribuzne property a sam je jednou z properties
"vetsiho" objektu ci komponenty (potomka datasetu). V puvodni zprave jsem
vynechal deklaraci toho proceduralniho typu, takze ted podrobneji:
type
TcanEditProc = procedure(var blablabla; var blabla atd.) oj object;
TCanEditProps = class(TPersistent)
private
FcanEditProc: T FcanEditProc;
...
published
property nejakyString: String ....
property CanEditProc: TCanEditProc read FcanEditProc write
FcanEditProc;
end;
//hlavni objekt
TmujDataSet = class(TdataSet)
private
FcanEditProps: TcanEditProps;
....
published
property CanEditProps: TcanEditProps read FcanEditProps write
FcanEditProps;
V property editoru vidim agregovanou property CanEditProps, po rozkliknuti
vsechny jeji property jako je nejakyString, krome CanEditproc, ktera ma
pochopitelne byt mezi Eventy (tam bych cekal take CanEditProps s +). Pomocny
CanEditprops se samozrejme vytvari a rusi v hlavnim objektu.
Kdyz to ale napisu bez pomocneho objektu, tj takto nejak:
TmujDataSet = class(TdataSet)
private
FcanEditProc: TcanEditProc;
....
published
property CanEditProc: TCanEditProc read FcanEditProc write FcanEditProc,
tak je novy event na svem miste...
MB
>
> Brona
>
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Martin Burle
> > Sent: Wednesday, December 03, 2003 11:23 AM
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: Zpristupneni property proceduralniho typu
> >
> >
> > Ahoj, mam v komponente spoustu vlastnosti, a aby v tom byl trochu
poradek,
> > rozhodl jsem se soustredit souvisejici do jedne agregovane (snad to
rikam
> > spravne) property. Udelal jsem si objekt, ktery drzi nejake
> > property, vcetne
> > jedne proceduralniho typu:
> >
> > TCanEditProps = class(TPersistent)
> > private
> > FcanEditProc: T FcanEditProc;
> > ...
> > published
> > property CanEditProc: TCanEditProc read FcanEditProc write
> > FcanEditProc;
> > end;
> >
> > V komponente jsem pridal novou property
> >
> > property CanEditProps: TcanEditprops ....
> >
> > a funguje to spravne, jen nejak nemuzu prijit na to, jak
> > dosahnout toho, aby
> > byla v property editoru dostupna i ta procedurani property v
> > eventech. Pokud
> > tu proceduralni property dam primo do hlavni komponenty, je to OK.
> >
> > Diky za kazde nakopnuti,
> >
> > MB
> >
> >
> >
>
>
>Problem se sestavenim SQL [3x]
[*] js-delphi(zv)quick(tec)cz - 3.12.2003 16:41:47
Vlastimil Bardon:
-----------------
> 1) Udelal bych na to UDF, s tim se pak lepe pracuje
> 2) V UDF pak mohu napsat kod v transact SQL a to je snazsi a prehlednejsi, treba neco takoveho:
Ahoj!
Dekuju, tohle by urcite slo pouzit, ale ja nejsem spravcem databaze a jedine co muzu udelat je select :(((
Takze tudy cesta nevede...
Nejaka jina idea? Diky za napady.
Jirka
P.S.:Jeste jednou pripominam, ze to potrebuju vymyslet nad MS SQL2000
Problem se sestavenim SQL
[*] Lubor Martinsky, SDC <l.martinsky(zv)softdec(tec)cz> - 3.12.2003 16:41:48
A takhle ? :
CASE SUBSTRING ( RETEZEC S CARKAMI, STARTPOS=1,ENDPOS=1 )
WHEN "," THEN RIGHT( RETEZEC S CARKAMI, LEN(RETEZEC S
CARKAMI)-1 )
ELSE
.......... a takhle vyndat i tu posledni carku ? :-)
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 3:43 PM
Subject: Re2x: Problem se sestavenim SQL
> Od: "Lubor Martinsky, SDC" <l.martinsky(zv)softdec(tec)cz>
>
> > Sel bych na to ne pres odstranovani tech ","
> > ale pres odstraneni tech NULL
> > Zkousel jsi rtrim(ltrim(CAST( NULL pole
> > prevod na CHAR() ))) +"," ... atd.?
> > Nemam tu ted prostredi tak, nemohu vyzkouset.
>
> Ahoj.
> Odstraneni tech NULL tam prave mam, jenomze... Kdyz vsechny sloupce budou
NULL, tak vysledek bude spravne "". Kdyz ale bude alespon jeden "not NULL" a
zaroven bude email "NULL", dostanu se do vysledku "neco," a to nechci!! Chci
dostat "neco".
> Ruznym kombinovanim dostanu bud, ze mi ta carka bude chybet nebo bude
jedna navic na zacatku nebo na konci. Fakt si myslim, ze to jinak neudelam.
Pomohlo by mi si tu sectenou adresu ulozit do nejake promenne a pak uz to
umim... nebo by mi pomohlo se nejak odkazat v selectu na predchozi sloupec a
zase uz bych se k pozadovanemu vysledku umel dostal... Jenomze to prave
neumim...
> Tak jak dal?
> Diky za napady
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP3; WinXPProf+SP1
> programator amater
>
>
>Problem se sestavenim SQL
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 3.12.2003 16:31:47
1) Udelal bych na to UDF, s tim se pak lepe pracuje
2) V UDF pak mohu napsat kod v transact SQL a to je snazsi a prehlednejsi, treba neco takoveho:
SELECT (zv)Result = NULL
if (zv)Adresa1 IS NOT NULL
SELECT (zv)Result = (zv)Adresa1
if (zv)Adresa2 IS NOT NULL
SELECT (zv)Result = CASE When (zv)Result Is NULL THEN (zv)Adresa2 ELSE ', '+ (zv)Adresa2 END
if (zv)Adresa3 IS NOT NULL
SELECT (zv)Result = CASE When (zv)Result Is NULL THEN (zv)Adresa3 ELSE ', '+ (zv)Adresa3 END
no a pak pouziju
select x1, x2, x3, moje_funkce( a.ulice, a.mesto, a.psc, aemail)
from ...
-----Original Message-----
From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
Sent: Wednesday, December 03, 2003 2:58 PM
select x1,x2,x3,..,
''''+Rtrim(ltrim(case a.ulice
when '' then ''
else ltrim(a.ulice)+', '
end +
case a.mesto
when '' then ''
else ltrim(a.mesto)+', '
end +
case a.psc
when '' then ''
else ltrim(a.psc)+', '
end
+ isnull(a.email, '')))+'''' as adresa_zadatele,
x5, ..., xn
from tabulka
left join d_adresa a on (tabulka vazba adresa)
Potrebju, aby mi to vyslo primo z toho selectu a nemuzu vytvaret procedury. F-ci, ktera mi odtrsani "," mam, ale ta pracuje nekolikrat s tou sectenou adresou - takze bych to vyresil, kdybych si umel tu sectenou adresu dat do nejake promenne.Dockovani
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 3.12.2003 15:47:43
Ahoj,
mam problem s dokovanim. Vytvarim aplikaci u ktere potrebuji pri skonceni ulozit informace o dockovani a pri naslednem spusteni vytvorit a zadockovat okna tak jak byli.
Potreboval bych poradit, jak menit rozmery zadokovaneho okna. Znam dockovaci zonu (ctverec do ktereho se na formulari nadokuje), ale dockovat lze jen vlevo v pravo nahoru atd.
Mozna by muj problem vyresila i metoda dockmanager.savetostream ale nemuzu prijit na to jak s ni uspesne pracovat.
Predem dekuji za jakoukoli radu ci odkaz na nejaky priklad s dockovanim..
Petr
____________________________________________________________
Eurotel Data Nonstop - neomezeny pristup na internet za 649,- (s DPH 681,45) Kc mesicne! http://ad2.seznam(tec)cz/redir.cgi?instance=67071%26url=http://www.eurotel(tec)cz/site/cz/servicesAndTariffs/specialOffer.html?list=34995
FireBird a trigger
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.12.2003 15:47:44
Haj hou!
On 3 Dec 2003 at 14:57, Rostislav Lekes wrote:
> Tady o to presne jde. Oni se rucne k datum obcas potrebuji dostat a zakazat
> uplne to proste nejde, i kdyz by to bylo nejlepsi. Protoze nelze predem ani
> definovat, kam presne muzou a kam ne, nelze jim ani udelat prislusny ucet.
> Ale protoze zname operace, ktere se jim musi zakazat, napadlo nas resit to
> triggrem.
Ok, chapu. problem je v tom, ze nevite co povolit, ale vite co
zakazat. SQL security schema s opacnym pristupem se vam tedy moc
nehodi. Souhlasim, ze je vhodne to udelat pres before trigger s
vyjimkou. nejjednodussi postup je ale stejne pres vytvoreni
samostatneho uctu (nebo role) pro takove pouziti. Prava sice
pridelite vsechny, ale v triggerech si otestujete pres current_user
nebo current_tole kdo je na drate a pripadne vyvolate vyjimku.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Zpristupneni property proceduralniho typu
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 3.12.2003 15:27:41
ne, ze bych tomu zcela rozumel, co's napsal, ale mas ji v published sekci
definice typu?
Brona
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Martin Burle
> Sent: Wednesday, December 03, 2003 11:23 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Zpristupneni property proceduralniho typu
>
>
> Ahoj, mam v komponente spoustu vlastnosti, a aby v tom byl trochu poradek,
> rozhodl jsem se soustredit souvisejici do jedne agregovane (snad to rikam
> spravne) property. Udelal jsem si objekt, ktery drzi nejake
> property, vcetne
> jedne proceduralniho typu:
>
> TCanEditProps = class(TPersistent)
> private
> FcanEditProc: T FcanEditProc;
> ...
> published
> property CanEditProc: TCanEditProc read FcanEditProc write
> FcanEditProc;
> end;
>
> V komponente jsem pridal novou property
>
> property CanEditProps: TcanEditprops ....
>
> a funguje to spravne, jen nejak nemuzu prijit na to, jak
> dosahnout toho, aby
> byla v property editoru dostupna i ta procedurani property v
> eventech. Pokud
> tu proceduralni property dam primo do hlavni komponenty, je to OK.
>
> Diky za kazde nakopnuti,
>
> MB
>
>
>FireBird a trigger
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.12.2003 15:27:41
Haj hou!
On 3 Dec 2003 at 14:19, BRCKO Peter wrote:
> > 2) Pokud se nikdo nepovolany nemuze prihlasit jako SYSDBA, lze
> > pristupova opravneni resit standardne, a neni treba vymyslet
> > komplikace s triggery.
>
> Takto ale nezabranim vynimocnej situacii, ktora moze nastat, ked niekto
> so znalostou DB a pravami aplikacneho uzivatela sa dostane lubovolnym
> nastrojom na DB a moze poskodit minimalne koexistentnost dat
> (cast alebo cela aplikacna logika je na Clientovi).
Pro definici odlisnych opravneni v aplikaci a v "jinem nastroji" jsou
dva standardni scenare:
1) uzivatel nezna uzivatelsky ucet kterym s k db prihlasuje aplikace,
ale pouziva nejaky jiny, ktery ma prislusne omezena opravneni.
2) uzivatel sice zna a pouziva ucet ktery pouziva aplikace, ale nezna
roli, kterou aplikace pouziva. V takovem pripade pridelim prava
aplikacni roli a nikoliv primo uzivatelskemu uctu.
IMO jednodussi je metoda 1.
Samozrejme se predpoklada, ze uzivatel nemuze pouzit ucet SYSDBA.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Re2x: Problem se sestavenim SQL
[*] js-delphi(zv)quick(tec)cz - 3.12.2003 15:43:43
Od: "Lubor Martinsky, SDC" <l.martinsky(zv)softdec(tec)cz>
> Sel bych na to ne pres odstranovani tech ","
> ale pres odstraneni tech NULL
> Zkousel jsi rtrim(ltrim(CAST( NULL pole
> prevod na CHAR() ))) +"," ... atd.?
> Nemam tu ted prostredi tak, nemohu vyzkouset.
Ahoj.
Odstraneni tech NULL tam prave mam, jenomze... Kdyz vsechny sloupce budou NULL, tak vysledek bude spravne "". Kdyz ale bude alespon jeden "not NULL" a zaroven bude email "NULL", dostanu se do vysledku "neco," a to nechci!! Chci dostat "neco".
Ruznym kombinovanim dostanu bud, ze mi ta carka bude chybet nebo bude jedna navic na zacatku nebo na konci. Fakt si myslim, ze to jinak neudelam. Pomohlo by mi si tu sectenou adresu ulozit do nejake promenne a pak uz to umim... nebo by mi pomohlo se nejak odkazat v selectu na predchozi sloupec a zase uz bych se k pozadovanemu vysledku umel dostal... Jenomze to prave neumim...
Tak jak dal?
Diky za napady
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
Seznam.cz
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 3.12.2003 15:35:42
> postovni sluzby seznam(tec)cz. Tato sluzba ma neustale potize s dorucovanim
U nas maily FWD ze seznamu nevezme nase AV brana - "Mailformed MIME File"
... a dela to pouze u mailu ze SEZNAM.CZ :-( Ostatni posta prichazi
naprosto v poho. Psal jsem na seznam a tam mi rekli, ze chyba musi byt nekde
u nas ... no nevim ...
S pozdravem
Frantisek Bohac
Zpristupneni property proceduralniho typu
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 3.12.2003 15:31:42
jeste jsem zapomel, mas definovano:
type
TCanEditProc=procedur OF OBJECT;
???
Brona
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Martin Burle
> Sent: Wednesday, December 03, 2003 11:23 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Zpristupneni property proceduralniho typu
>
>
> Ahoj, mam v komponente spoustu vlastnosti, a aby v tom byl trochu poradek,
> rozhodl jsem se soustredit souvisejici do jedne agregovane (snad to rikam
> spravne) property. Udelal jsem si objekt, ktery drzi nejake
> property, vcetne
> jedne proceduralniho typu:
>
> TCanEditProps = class(TPersistent)
> private
> FcanEditProc: T FcanEditProc;
> ...
> published
> property CanEditProc: TCanEditProc read FcanEditProc write
> FcanEditProc;
> end;
>
> V komponente jsem pridal novou property
>
> property CanEditProps: TcanEditprops ....
>
> a funguje to spravne, jen nejak nemuzu prijit na to, jak
> dosahnout toho, aby
> byla v property editoru dostupna i ta procedurani property v
> eventech. Pokud
> tu proceduralni property dam primo do hlavni komponenty, je to OK.
>
> Diky za kazde nakopnuti,
>
> MB
>
>
>Problem se sestavenim SQL
[*] Lubor Martinsky, SDC <l.martinsky(zv)softdec(tec)cz> - 3.12.2003 15:25:41
Sel bych na to ne pres odstranovani tech "," ale pres odstraneni tech NULL
Zkousel jsi rtrim(ltrim(CAST( NULL pole prevod na CHAR() ))) +"," ... atd.?
Nemam tu ted prostredi tak, nemohu vyzkouset.
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 2:57 PM
Subject: OT: Problem se sestavenim SQL
> Ahoj.
> Opet se omlouvam za OT, ale fakt potrebuju poradit.
> Mam docela slozity select, ktery mi vraci x sloupcu. V jednom sloupci
potrebuju sloucit xx sloupcu z jedne tabulky. Jde o to, ze ve vysledku chci
mit jeden sloupec, ve kterym bude cela adresa - slozena z:
> ulice
> mesta
> psc
> email
> tyto jednotlive polozky musi byt mezi sebou oddeleny ","
> Vsechny sloupce muzou byt NULL.
>
> Tak a ted problem. At delam co delam, dostanu se do bodu, ze bud na
zacatku nebo na konci tehle slozene adresy dostanu onu ",". Chtel bych se ji
zbavit.
> Lze nejak primo v selectu nastavit nejakou promennou, se kterou bych potom
pracoval? Lze se z jednoho vysledneho sloupce odkazat na sloupec predchozi?
> mam:
> select x1,x2,x3,..,
> ''''+Rtrim(ltrim(case a.ulice
> when '' then ''
> else ltrim(a.ulice)+', '
> end +
> case a.mesto
> when '' then ''
> else ltrim(a.mesto)+', '
> end +
> case a.psc
> when '' then ''
> else ltrim(a.psc)+', '
> end
> + isnull(a.email, '')))+'''' as adresa_zadatele,
> x5, ..., xn
> from tabulka
> left join d_adresa a on (tabulka vazba adresa)
>
> Potrebju, aby mi to vyslo primo z toho selectu a nemuzu vytvaret
procedury. F-ci, ktera mi odtrsani "," mam, ale ta pracuje nekolikrat s tou
sectenou adresou - takze bych to vyresil, kdybych si umel tu sectenou adresu
dat do nejake promenne.
>
> Co vy na tenhle orisek? ;o)
> Diky
> Jirka
> P.S.:Jo! Resim to na MS SQL2000
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP3; WinXPProf+SP1
> programator amater
>
>
>FireBird a trigger
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 3.12.2003 14:57:39
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 2:03 PM
Subject: Re: FireBird a trigger
> Haj hou!
> 1) Pracovat s produkcni databazi standardne jako SYSDBA je prasarna,
> a uz z principu vylucuje nejake zabezpeceni. A vubec nezalezi na tom,
> ze jako SYSDBA se prihlasuje program.
Jasne ze je to prasarna a ted delame na predelavkach. Konecny stav by mel
byt takovy, ze appserver bude mit sveho usera, ktery bude mit pravo pouze
spoustet ulozene procedury, bez primeho pristupu k datum. SYSDBA budeme
eliminovat (zmena hesla a zakaz pouzit k programovemu pristupu).
> Pokud je duvodem snaha vyhnout se nastavovani prav, pak zalozte
> specialniho "aplikacniho" uzivatele a vytvorte pod nim databazi. Tak
> se stane vlastnikem vsech objektu a dat, a nemusite nic nastavovat.
>
> 2) Pokud se nikdo nepovolany nemuze prihlasit jako SYSDBA, lze
> pristupova opravneni resit standardne, a neni treba vymyslet
> komplikace s triggery.
Tady o to presne jde. Oni se rucne k datum obcas potrebuji dostat a zakazat
uplne to proste nejde, i kdyz by to bylo nejlepsi. Protoze nelze predem ani
definovat, kam presne muzou a kam ne, nelze jim ani udelat prislusny ucet.
Ale protoze zname operace, ktere se jim musi zakazat, napadlo nas resit to
triggrem. Oni muzou v konkretni tabulce udelat UPDATE, ale ne jakykoliv.
Proto jsem napsal tento dotaz, nechtel jsem resit bezpecnost FB. Stejne tak
dobre vim, ze se ten trigger nauci vypinat :), takze z toho duvodu jim mozna
specialni ucet vytvorime.
> 3) Pokud potrebujete rozlisovat realne uzivatele schovane za jednim
> db uzivatelem (napr. skrze middleware), pouzijte sql role.
To nepotrebujeme, resp.je mame rozlisene na appserveru a to nam staci.
Rosta
Mouse-click
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 3.12.2003 14:47:38
> Ako odchytit kliknutie mysou (MouseDown, MouseUp, MouseClick) skor
> ako bude tato sprava dorucena ku komponente, na ktoru bolo kliknute?
>
> Napr. Potebujem vedet skor, ze bolo kliknute na TLabel ako bude
> vyvolana obsluha TLabel.OnClick. Ako na to?
Najjednoduchsie pomocou Application.OnMessage.
HTH
TOndrej
OT: Problem se sestavenim SQL
[*] js-delphi(zv)quick(tec)cz - 3.12.2003 14:57:39
Ahoj.
Opet se omlouvam za OT, ale fakt potrebuju poradit.
Mam docela slozity select, ktery mi vraci x sloupcu. V jednom sloupci potrebuju sloucit xx sloupcu z jedne tabulky. Jde o to, ze ve vysledku chci mit jeden sloupec, ve kterym bude cela adresa - slozena z:
ulice
mesta
psc
email
tyto jednotlive polozky musi byt mezi sebou oddeleny ","
Vsechny sloupce muzou byt NULL.
Tak a ted problem. At delam co delam, dostanu se do bodu, ze bud na zacatku nebo na konci tehle slozene adresy dostanu onu ",". Chtel bych se ji zbavit.
Lze nejak primo v selectu nastavit nejakou promennou, se kterou bych potom pracoval? Lze se z jednoho vysledneho sloupce odkazat na sloupec predchozi?
mam:
select x1,x2,x3,..,
''''+Rtrim(ltrim(case a.ulice
when '' then ''
else ltrim(a.ulice)+', '
end +
case a.mesto
when '' then ''
else ltrim(a.mesto)+', '
end +
case a.psc
when '' then ''
else ltrim(a.psc)+', '
end
+ isnull(a.email, '')))+'''' as adresa_zadatele,
x5, ..., xn
from tabulka
left join d_adresa a on (tabulka vazba adresa)
Potrebju, aby mi to vyslo primo z toho selectu a nemuzu vytvaret procedury. F-ci, ktera mi odtrsani "," mam, ale ta pracuje nekolikrat s tou sectenou adresou - takze bych to vyresil, kdybych si umel tu sectenou adresu dat do nejake promenne.
Co vy na tenhle orisek? ;o)
Diky
Jirka
P.S.:Jo! Resim to na MS SQL2000
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
FireBird a trigger
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 3.12.2003 14:45:37
FireBird neznam, ale na MS SQL existuji tyto moznosti (a cekal bych, ze FireBird bude mit nejako analogie)
1) Nepovolis NIKOMU update te tabulky, ale udelas si proceduru na tento update a das prava uzivatelum na tuto proceduru. Uzivatelum nereknes ktera procedura to meni a pokud nejsou presprilis sikovni, tak na to neprijdou a proto tabulku nezmeni
2) Existuji tzv Aplikacni role. Aplikace se sice prihlasi k DB jako konkretni uzivatel, ale pak se prepne do aplikacni role (ke ktere nebude znat heslo nikdo jiny, nez Ty). Pravo na update tabulky das jen te aplikacni roli a nikoli konkretnimu uzivateli. Pak je uzivatel bez sance cokoli zmenit jinou cestou, nez pomoci aplikace. (Pritom server pri chodu aplikace stale vi, s kym ma tu cest)
-----Original Message-----
From: Rostislav Lekes [mailto:rlekes(zv)atlas(tec)cz]
Sent: Wednesday, December 03, 2003 1:36 PM
> To se da udelat jinak, nedas uzivateli prava na update te tabulky.
.... ale stejne me nepomuze, protoze applikacni server muze
vytvorit x connect do FB pod stejnym userem a pak bych se v tom nevyznal:)
Seznam.cz
[*] Jiri Virt <virt(zv)volny(tec)cz> - 3.12.2003 13:51:33
na seznam uz nekolika lidem nekolikrat posilam soubory s fotkama ... prd ..
nekomu dojde . nekomu se to ytrati .. nekomu dojde jen cast souboru ..
peknej gulash ...
Jirka
Seznam.cz
[*] Jaromir Luhan <konference(zv)lionet(tec)cz> - 3.12.2003 13:53:34
No patrali jsme ruzne, ale nevypada to. Ostatni velke mailhosty funguji v
pohode. Rekl bych spis, ze nas nekdo zaradil na nejaky spamlist, o kterem
jeste nevime. Diky.
J. Luhan
Borland CZ
----- Original Message -----
From: "Milan Schembera" <milan(zv)missoftware(tec)cz>> Nemate jenom spatne nastaveny reverzni DNS ? Podobny problem byste meli i
na
> email(tec)cz ...
>Seznam.cz
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.12.2003 13:47:33
Puvodni zprava ze dne 3.12.2003:
> Omlouvam se za OT. Pisi za technickou podporu nasi firmy vsem uzivatelum
> postovni sluzby seznam(tec)cz. Tato sluzba ma neustale potize s dorucovanim
> posty z domen borland.* (a posledni dobou nejen z nich!). Pokud se nas tedy
> chcete neco zeptat a hlavne chcete dostat i nasi odpoved, zkuste pouzit
> jinou schranku. Nejsme schopni s kazdou odpovedi chodit do internetove
> kavarny nebo k sousedum, abychom ji dorucili z jine adresy. Navic se o
> nedoruceni zpravy dozvidame se zpozdenim 24 a vice hodin.
:-) Tato sluzba ma problemy i s dorucovanim teto konference, zrovna v
patek mi prislo pres 5 tisic chybovych zprav a opakovane rozesilani
prispevku a vraceni chyb zahlcovalo postovni server, takze jsem musel
nekolik desitek lidi ze seznam(tec)cz, od kterych mi to chodilo, vyradit.
Je to nejaky slendrian a nejsem schopen se s administratory seznam(tec)cz
domluvit, resp. po mnoha neuspesnych pokusech jsem jiz rezignoval...
Je mi uzivatelu seznam(tec)cz lito, ale kdyz uz mi zacne chodit tolik
chybovych mailu, ze se ani neda poradne browsovat, tak to uz mi pak
nic jineho nezbyva...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Mouse-click
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 3.12.2003 13:47:33
Hello delphi-l,
Ako odchytit kliknutie mysou (MouseDown, MouseUp, MouseClick) skor
ako bude tato sprava dorucena ku komponente, na ktoru bolo kliknute?
Napr. Potebujem vedet skor, ze bolo kliknute na TLabel ako bude
vyvolana obsluha TLabel.OnClick. Ako na to?
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
FireBird a trigger
[*] BRCKO Peter <peter.brcko(zv)assetsoft.sk> - 3.12.2003 14:19:36
> 2) Pokud se nikdo nepovolany nemuze prihlasit jako SYSDBA, lze
> pristupova opravneni resit standardne, a neni treba vymyslet
> komplikace s triggery.
Takto ale nezabranim vynimocnej situacii, ktora moze nastat, ked niekto
so znalostou DB a pravami aplikacneho uzivatela sa dostane lubovolnym
nastrojom na DB a moze poskodit minimalne koexistentnost dat
(cast alebo cela aplikacna logika je na Clientovi).
Asi mal dotazovatel s podobnymi zasahmi skusenosti, ked sa zamyslal nad
tymto problemom.
Pri DB s obrovkym poctom tranzakcii / s by jeden dotaz navyse mohol zbytocne natahovat
odozvy ale pre aplikacie, kde ide aj o takyto stupen bezpecnosti by som to doporucoval.
Peter Brcko.
FireBird a trigger
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.12.2003 14:03:35
Haj hou!
On 3 Dec 2003 at 13:35, Rostislav Lekes wrote:
> > To se da udelat jinak, nedas uzivateli prava na update te tabulky.
>
> :)))) Jasne, to by bylo idealni. Moje chyba, asi jsem spatne popsal problem.
> Upresnim to.
> na firebird pristupuje v beznem provozu pouze aplikacni server jako sysdba.
> Clienti se na db vubec nedostanou.
> Jde o to, aby nasi obchodaci a zrucnejsi uzivatele-zakaznici, kteri maji
> fyzicky pristup k serveru, nemohli bez kontroly provadet nejake prasarny.
1) Pracovat s produkcni databazi standardne jako SYSDBA je prasarna,
a uz z principu vylucuje nejake zabezpeceni. A vubec nezalezi na tom,
ze jako SYSDBA se prihlasuje program.
Pokud je duvodem snaha vyhnout se nastavovani prav, pak zalozte
specialniho "aplikacniho" uzivatele a vytvorte pod nim databazi. Tak
se stane vlastnikem vsech objektu a dat, a nemusite nic nastavovat.
2) Pokud se nikdo nepovolany nemuze prihlasit jako SYSDBA, lze
pristupova opravneni resit standardne, a neni treba vymyslet
komplikace s triggery.
3) Pokud potrebujete rozlisovat realne uzivatele schovane za jednim
db uzivatelem (napr. skrze middleware), pouzijte sql role.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Net framework a Java
[*] Jiri Virt <virt(zv)volny(tec)cz> - 3.12.2003 13:17:25
Myslim, ze ve Win bude Win32 doost dlouho, protoze API32 neni jenom o
vyvoji v C nebo Delphi.
Jirka
> Caves,
>
> napadla ma teraz jedna otazocka.... ako to bude napr. s Javou na windowse
ked windows nebude podporovat win32 ?
> Mam to chapat tak ze ked nahodov pre nieco budem chciet vyuzit Javu tak
interne bude pod windows java fungovat takto:
Presun aplikacie do popredia
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 3.12.2003 12:15:19
Mam aplikaciu minimalizovanu do systray pomocou komponenty cooltray. Pokial
na nu dvakrat kliknem, tak sa okno obnovi ale pokial sa medzi tym spustil
iny program, tak bude moju aplikaciu prekryvat. Ako ju teda mam nasledne
presunut do popredia?
Funkcia FormStyle:=fsStayOnTop mi nevyhovuje.
Vdaka za kazdu radu
FireBird a trigger
[*] Radek KALA <kala(zv)betacontrol(tec)cz> - 3.12.2003 12:45:22
To se da udelat jinak, nedas uzivateli prava na update te tabulky.
> Ahoj,
> nevim sice na co to potrebujes, ale slo by to tak ze by jsi v te
> procedure vlozil urcity zaznam do tabulky a v tom trigru kontroloval
> jestli tam je. Kdyz tam nebude tak hodit Exception.
>
> Jeste budes muset ale vyresit problem s viceuzivatelkym pristupem :-)
>
> Jirka
>
> Rostislav Lekes wrote:
> > Cau,
> > mam problem s triggerem before update:
> > potrebuju, aby zavolal vyjimku a neprovedl update, kdyz tento update
> > nebude z programu, ale nejak pokoutne :), treba z IBExperta. Da se
> > to nejak vyresit? Napadaji me dve moznosti, ale ani jednu nevim, jak
> > zprovoznit. 1) Zjistit v triggeru stupen (level) vnoreni. Tzn., ze
> > by update mohli provadet jen stored procedury. Kdyz bude level >1
> > (0) tak by se volala vyjimka. Ale nevim, jestli firebird (1.0.x)
> > neco takoveho umi. 2) Zjistit, jestli se v update aktualizuji
> > vsechny predepsane fieldy, ale to taky nevim jak udelat. if
> > old.xxx<>new.xxx pro vsechny tyto fieldy me nepomuze, protoze
> > nektere povinne fieldy muzou mit novou hodnotu stejnou jako starou.
> >
> > Tak co s tim, vite nekdo? Diky.
>
>
>
>
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
FireBird a trigger
[*] Jirka <delphi-l(zv)bedna(tec)net> - 3.12.2003 12:17:19
Ahoj,
nevim sice na co to potrebujes, ale slo by to tak ze by jsi v te
procedure vlozil urcity zaznam do tabulky a v tom trigru kontroloval
jestli tam je. Kdyz tam nebude tak hodit Exception.
Jeste budes muset ale vyresit problem s viceuzivatelkym pristupem :-)
Jirka
Rostislav Lekes wrote:
> Cau,
> mam problem s triggerem before update:
> potrebuju, aby zavolal vyjimku a neprovedl update, kdyz tento update nebude
> z programu, ale nejak pokoutne :), treba z IBExperta.
> Da se to nejak vyresit? Napadaji me dve moznosti, ale ani jednu nevim, jak
> zprovoznit.
> 1) Zjistit v triggeru stupen (level) vnoreni. Tzn., ze by update mohli
> provadet jen stored procedury. Kdyz bude level >1 (0) tak by se volala
> vyjimka. Ale nevim, jestli firebird (1.0.x) neco takoveho umi.
> 2) Zjistit, jestli se v update aktualizuji vsechny predepsane fieldy, ale to
> taky nevim jak udelat. if old.xxx<>new.xxx pro vsechny tyto fieldy me
> nepomuze, protoze nektere povinne fieldy muzou mit novou hodnotu stejnou
> jako starou.
>
> Tak co s tim, vite nekdo? Diky.
pdf dokument
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.12.2003 12:09:19
From: "Vaclav Halik" <spravasd(zv)suz.cvut(tec)cz>
> Ono, editovat PDF neumi ani Acrobat (myslim Acrobat, ne Acrobat
> Reader). V podstate jedine co muzes v Acrobatu delat je ze muzes
> editovat text a to jen ty pismenka co uz tam sou. (Tzn. mas pres A4
> text HALO tak mic jineho nez pismenka H,A,L,O tam nepridas).
> No a pak muzes spojovat dokumenty a manipulovat se strankami,
> jinak nic. Ani obrazky nezmenis.
PDF format jako takovy jsou vlastne objekty v textove forme, ktere maji i
jistotu dedicnost vlastnosti. Staci si napsat knihovnu ktera je schopna
parsovat PDF do nejakych vlastnich objektu, ty pak zpracovat a znovu dokument
sestavit. V dokumentaci k PDF formatu je to popsane vcelku dobre.
Extrahovat z PDF obrazky by nemusel byt az takovy problem, pokud ten dokument
ovsem neni sifrovany.
Petr Vones
FireBird a trigger
[*] BRCKO Peter <peter.brcko(zv)assetsoft.sk> - 3.12.2003 11:57:18
> mam problem s triggerem before update:
> potrebuju, aby zavolal vyjimku a neprovedl update, kdyz tento
> update nebude
> z programu, ale nejak pokoutne :), treba z IBExperta.
Da sa to vyriesit vseobecne na lubovolnej databaze.
Urcite pri plnom pristupe do databazy je tato "OCHRANA"
jednoducho prelomena ale v opacno pripade je to O.K.
Na FB to nemam vyskusane, takze iba ako napad.
( V Oracle su tzv PACKAGE, ktore maju jednu vybornu vlastnost
a to, ze hodnoty premennych v nich definovane su jednoznacne pre kazdeho
uzivatela. Potom staci tuto premennu nastavit, kontrolovat v triggroch
a na zaklade nej rozhodovat o povoleni zapisu do tabulky/tabuliek. Podstatne
je ze ich Oracle inicializuje - podla ich definicie - pre kazdu session zvlast.
Staci nastavit defaultne nedovoleny zapis a povolit to programovo.)
Potrebujes jednoznacne pomoc od FB. Idelane je odchytit connect do DB.
Nadefinujes tabulku v ktorej bude primarnym klucom jenoznacny udaj pre kazdy
connect, t.j. asi session a kontrolovanu premennu nadobudajucu dve hodnoty
Y/N. Kazdy BI, BU, BD trigger na tabulke moze kontrolovat povolenie
zapisu. Pri Connecte zapises do DB jeden zaznam s default hodnotou N.
Z aplikacie (popripade aj pri rucnom / scriptom spracovani) tuto hodnotu
nastavis na Y. To je vsetko.
P.S. Toto riesenie ma jednu nevyhodu a to cistenie tejto tabulky pre neaktivne sessny.
Ale to by nemalo byt prekazkou. Napr. uzavierky by to mohli cistit.
A mozno existuje vo FB podobne jednoduche riesenie ako v Oracle,
no na to su potrebne hlbsie vedomosti o FB ako moje.
Peter Brcko.
pdf dokument
[*] Ivan Turcan <iturcan(zv)drake.sk> - 3.12.2003 11:55:17
----- Original Message -----
From: "Vaclav Halik" <spravasd(zv)suz.cvut(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 11:37 AM
Subject: Re: pdf dokument
> Zdravim,
>
> > takych je kopec, len problem s kazdov ze uz ten dokument nevedia
> > upravit...... tzn. su vcelku naprd...
>
> proc cekas ze .PDF pujde upravovat? Ten format na to nebyl nikdy
> navrzen. PDF byl navrzen proto aby se dal snadno sirit vystup z
> programu jako je QuarkXPress a PageMaker, coz sou drahe softy
> a byla potreba aby si treba zakaznik mohl prohlednout to co mu
> reklamka/grafik navrhnul. Nikdo nepocita s tim ze PDF pude editovat.
>
> Ono, editovat PDF neumi ani Acrobat (myslim Acrobat, ne Acrobat
> Reader). V podstate jedine co muzes v Acrobatu delat je ze muzes
> editovat text a to jen ty pismenka co uz tam sou. (Tzn. mas pres A4
> text HALO tak mic jineho nez pismenka H,A,L,O tam nepridas).
> No a pak muzes spojovat dokumenty a manipulovat se strankami,
> jinak nic. Ani obrazky nezmenis.
>
> Tak proc cekas ze nejaka komponenta v Delphi to bude umnet, kdyz
> to neumi a software od Adobe?
>
> S pozdravem Vaclav Halik
nikdo , to by som netvrdil...
su hotove programy ktore ti prevedu PDFko do RTF.... ja ale potrebujem
komponentu do delphi..
v principe potrebujem z pdfka vycucnut vsetky obrazky..... a to je
jednoduchsie ked to najprv prevediem do niecoho ineho , teda napr. rtf...
inu ak ma niekdo iny napad, sem s nim
ivan
SQL - neriesitelny problem - Vyriesene
[*] Stanislav PETR <stanislav.petr(zv)glux(tec)cz> - 3.12.2003 11:15:13
Dne st 3. prosince 2003 10:27 jste napsal(a):
> Dakujem. Uz to funguje. Naviedli ste ma velmi dobre.
> Treba dat:
>
> Select x."TIME" from "abc.dbf" x
Nemelo by to bejt podle specifikace SQL92 spravne:
SELECT `x`.`time` FROM `abc.dbf` ???
--
Stanislav PETR
Network specialist
ATTOSERVIS s.r.o.
tel.: 602 620 026
OT: Nabidka zamestnani
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 3.12.2003 11:47:16
Prijmeme programatora na plny uvazek pro pracoviste v Usti nad Orlici.
Jedna se o praci na zdravotnickem SW pro OS Win, D5, SQL FireBird.
Vice na www.medisoft(tec)cz nebo 465 557 161 popr. na osobni mail
NE DO KONFERENCE!!!
pdf dokument
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.12.2003 11:43:16
Puvodni zprava ze dne 3.12.2003:
> proc cekas ze .PDF pujde upravovat? Ten format na to nebyl nikdy
Behem nejake snad rozumne doby bude k dispozici knihovna pro Delphi,
ktera umozni nacitat PDF, menit ho a znovu ukladat jako PDF. Ale
nechci zde delat nejakou reklamu, tak pripadne info mailem.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Porizeni MS VS .NET Prof 2003
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 3.12.2003 11:41:16
> Jedna se mi o, ze mam MS C# .NET 2002 a ted nevim, jestli mam poridit za
tu vyhodnou cenu to MS VS .NET Prof 2003.
> Ja jsem moc nepatral co je jeho obsahem, ale vim, ze mnozi z Vas ho jiz
maji a tak byste mi snad mohli poradit. Vim, ze obsahuje C++, C#, Javu,
Basic - ale v pripade, ze bych chtel programovat "jen" v C#, tak k cemu mam
zbyvajici jazyky?
> Je to jedina zmena oproti tomu memu C# .NET 2002 (myslim ty jazyky
navic)??? Nebo tato nabidka obsahuje jeste neco??.
napr. CF (Compact Framework), ak chces programovat PocketPC,
najdes vyhradne v MS VS .NET
Erik
pdf dokument
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 3.12.2003 11:37:15
Zdravim,
> takych je kopec, len problem s kazdov ze uz ten dokument nevedia
> upravit...... tzn. su vcelku naprd...
proc cekas ze .PDF pujde upravovat? Ten format na to nebyl nikdy
navrzen. PDF byl navrzen proto aby se dal snadno sirit vystup z
programu jako je QuarkXPress a PageMaker, coz sou drahe softy
a byla potreba aby si treba zakaznik mohl prohlednout to co mu
reklamka/grafik navrhnul. Nikdo nepocita s tim ze PDF pude editovat.
Ono, editovat PDF neumi ani Acrobat (myslim Acrobat, ne Acrobat
Reader). V podstate jedine co muzes v Acrobatu delat je ze muzes
editovat text a to jen ty pismenka co uz tam sou. (Tzn. mas pres A4
text HALO tak mic jineho nez pismenka H,A,L,O tam nepridas).
No a pak muzes spojovat dokumenty a manipulovat se strankami,
jinak nic. Ani obrazky nezmenis.
Tak proc cekas ze nejaka komponenta v Delphi to bude umnet, kdyz
to neumi a software od Adobe?
S pozdravem Vaclav Halik
>
> Ivan
builder s pouziti DLL
[*] p.sestak(zv)corag.sk - 3.12.2003 11:29:14
>Potreboval bych nejaky postup (priklad) jak napsat a hlavne prelozit
>aplikaci, ktera pouziva funkce z DLL, k te DLL mame hlvickove soubory.
>Nekde jsem nasel, ze se musi pouzit nejaky programek co prevede DLL na
>LIB ale zda to je ta prava cesta netusim...
Ano existuje na to programcek, bohuzial si nepamatam, ako sa vola - muslim
ze je to bin\implib.exe.
Ale da sa to robit aj dynamicky a na to nepotrebujes ziadnu libku,
len si podla tej hlavicky nadeklaruj smerniky na exportovane funkcie
a potom uz len LoadLibrary a GetProcAddress...
Zpristupneni property proceduralniho typu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.12.2003 11:23:14
Ahoj, mam v komponente spoustu vlastnosti, a aby v tom byl trochu poradek,
rozhodl jsem se soustredit souvisejici do jedne agregovane (snad to rikam
spravne) property. Udelal jsem si objekt, ktery drzi nejake property, vcetne
jedne proceduralniho typu:
TCanEditProps = class(TPersistent)
private
FcanEditProc: T FcanEditProc;
...
published
property CanEditProc: TCanEditProc read FcanEditProc write
FcanEditProc;
end;
V komponente jsem pridal novou property
property CanEditProps: TcanEditprops ....
a funguje to spravne, jen nejak nemuzu prijit na to, jak dosahnout toho, aby
byla v property editoru dostupna i ta procedurani property v eventech. Pokud
tu proceduralni property dam primo do hlavni komponenty, je to OK.
Diky za kazde nakopnuti,
MB
FireBird a trigger
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 3.12.2003 11:15:13
Cau,
mam problem s triggerem before update:
potrebuju, aby zavolal vyjimku a neprovedl update, kdyz tento update nebude
z programu, ale nejak pokoutne :), treba z IBExperta.
Da se to nejak vyresit? Napadaji me dve moznosti, ale ani jednu nevim, jak
zprovoznit.
1) Zjistit v triggeru stupen (level) vnoreni. Tzn., ze by update mohli
provadet jen stored procedury. Kdyz bude level >1 (0) tak by se volala
vyjimka. Ale nevim, jestli firebird (1.0.x) neco takoveho umi.
2) Zjistit, jestli se v update aktualizuji vsechny predepsane fieldy, ale to
taky nevim jak udelat. if old.xxx<>new.xxx pro vsechny tyto fieldy me
nepomuze, protoze nektere povinne fieldy muzou mit novou hodnotu stejnou
jako starou.
Tak co s tim, vite nekdo? Diky.
Rostislav Lekes
OT: Porizeni MS VS .NET Prof 2003
[*] js-delphi(zv)quick(tec)cz - 3.12.2003 11:01:12
Ahoj!
Omlouvam se silny offtopic, ale konec casove omezene nabidky se blizi a tak zacinam vahat.
Mam D6Prof, ale dle nekolika debat, ktere se tady vedli o .NET jsem se rozhodl, ze bych byl nerad, aby mi zase ujel vlak jako kdysi. /Muzu vam rict, ze se ho snazim dohnat co to jde, ale je to poradna fuska... ;o) /
Jedna se mi o, ze mam MS C# .NET 2002 a ted nevim, jestli mam poridit za tu vyhodnou cenu to MS VS .NET Prof 2003.
Ja jsem moc nepatral co je jeho obsahem, ale vim, ze mnozi z Vas ho jiz maji a tak byste mi snad mohli poradit. Vim, ze obsahuje C++, C#, Javu, Basic - ale v pripade, ze bych chtel programovat "jen" v C#, tak k cemu mam zbyvajici jazyky?
Je to jedina zmena oproti tomu memu C# .NET 2002 (myslim ty jazyky navic)??? Nebo tato nabidka obsahuje jeste neco??. Tedy krom FrameWorku 1.1, ale ten se da stahnout zdarma a usetrim na vanoce 12.000,-Kc. ;)
Diky za info a omlouvam se za OT k .NET v konferenci o Delphi
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1
programator amater
SQL - neriesitelny problem
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 3.12.2003 10:29:10
A tohle nejde ?
SELECT time "cas" FROM abc
V.
-----Original Message-----
From: Ondrej [mailto:ieee(zv)ynet.sk]
Sent: Wednesday, December 03, 2003 9:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: SQL - neriesitelny problem
Dobry den
Potrebujem v komponente Query zavolat "Select TIME from abc.dbf", kde TIME je nazov stlpca (atribut). Lenze to nefunguje, lebo TIME je vyhradene slovo. Stale dostavam chybu: Invalid use of keyword. Token: [TIME]
K databaze pristupujem cez BDE. V BDE Administratore som nastavil
Type: Standard
Default driver: Paradox
Neviete mi prosim poradit, ako ho do toho selectu napisat?
Vdaka
PS:
Skusal som uz:
"Time", "time", "ti""me", 'TIME', 'time', `time`, [time], [TI][ME],
aj
select tbl.TIME from abc.dbf tbl
a pod.SQL - neriesitelny problem - Vyriesene
[*] Ondrej <ieee(zv)ynet.sk> - 3.12.2003 10:27:10
Dakujem. Uz to funguje. Naviedli ste ma velmi dobre.
Treba dat:
Select x."TIME" from "abc.dbf" x
Ondrej
----- Original Message -----
From: "Ondrej" <ieee(zv)ynet.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 10:19 AM
Subject: Re: SQL - neriesitelny problem
> To: Jiri Virt
>
> vsetko toto som uz skusal uvozdovky na to vobec nezaberaju. vadi mu tam to
> slovo TIME. Uz sa s tym trapim druhy den a snazilo sa mi uz pomoct
niekolko
> programatorov. V databaze to pole nemozem zmenit, lebo databazu som ja
> nenavrhoval, len potrebujem do nej pristupovat.
>
> Dakujem Vam za snahu
>
>
> ----- Original Message -----
> From: "Jiri Virt" <virt(zv)volny(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Wednesday, December 03, 2003 10:03 AM
> Subject: Re: SQL - neriesitelny problem
>
>
> > jeste jednou ... chybi uvozovky
> >
> >
> > Select x.TIME from "abc.dbf" x
> >
> >
> > Jirka Virt
> >
> >
>
>SQL - neriesitelny problem
[*] Jiri Virt <virt(zv)volny(tec)cz> - 3.12.2003 10:23:09
no .. udelal sem si tabulku s tim Tvym TIME a tohle me teda maka na 100%
Select t."time" from test t
Jirka
SQL - neriesitelny problem
[*] Ondrej <ieee(zv)ynet.sk> - 3.12.2003 10:19:09
To: Jiri Virt
vsetko toto som uz skusal uvozdovky na to vobec nezaberaju. vadi mu tam to
slovo TIME. Uz sa s tym trapim druhy den a snazilo sa mi uz pomoct niekolko
programatorov. V databaze to pole nemozem zmenit, lebo databazu som ja
nenavrhoval, len potrebujem do nej pristupovat.
Dakujem Vam za snahu
----- Original Message -----
From: "Jiri Virt" <virt(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 10:03 AM
Subject: Re: SQL - neriesitelny problem
> jeste jednou ... chybi uvozovky
>
>
> Select x.TIME from "abc.dbf" x
>
>
> Jirka Virt
>
>SQL - neriesitelny problem
[*] Jiri Virt <virt(zv)volny(tec)cz> - 3.12.2003 09:59:07
Select x."TIME" from abc.dbf x
Jirka Virt
SQL - neriesitelny problem
[*] Jiri Virt <virt(zv)volny(tec)cz> - 3.12.2003 10:03:07
jeste jednou ... chybi uvozovky
Select x.TIME from "abc.dbf" x
Jirka Virt
SQL - neriesitelny problem
[*] Ondrej <ieee(zv)ynet.sk> - 3.12.2003 09:57:07
Dobry den
Potrebujem v komponente Query zavolat "Select TIME from abc.dbf", kde TIME je nazov stlpca (atribut). Lenze to nefunguje, lebo TIME je vyhradene slovo. Stale dostavam chybu: Invalid use of keyword. Token: [TIME]
K databaze pristupujem cez BDE. V BDE Administratore som nastavil
Type: Standard
Default driver: Paradox
Neviete mi prosim poradit, ako ho do toho selectu napisat?
Vdaka
PS:
Skusal som uz:
"Time", "time", "ti""me", 'TIME', 'time', `time`, [time], [TI][ME],
aj
select tbl.TIME from abc.dbf tbl
a pod.
pdf dokument
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 3.12.2003 08:47:02
Spousta,
mame dobre zkusenosti s knihovnou IlLib.
(nabizi ji napr. Petr Zahradnik, Computer Laboratory)
Pavel
> -----Original Message-----
> From: Petr Vetesnik [mailto:wetty(zv)quick(tec)cz]
> Sent: Wednesday, December 03, 2003 8:31 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: pdf dokument
>
>
> Prave mne napadlo, existuje nejaka komponenta, pomoci ktere
> bych mohl z
> Delphi vytvorit pdf?
>
> diky Wetty
>
>
>
>
> pdf dokument
[*] Ivan Turcan <iturcan(zv)drake.sk> - 3.12.2003 08:45:02
takych je kopec, len problem s kazdov ze uz ten dokument nevedia
upravit...... tzn. su vcelku naprd...
Ivan
----- Original Message -----
From: "Petr Vetesnik" <wetty(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 8:31 AM
Subject: Re: pdf dokument
> Prave mne napadlo, existuje nejaka komponenta, pomoci ktere bych mohl z
> Delphi vytvorit pdf?
>
> diky Wetty
>
>
>
>
pdf dokument
[*] Petr Vetesnik <wetty(zv)quick(tec)cz> - 3.12.2003 08:31:01
Prave mne napadlo, existuje nejaka komponenta, pomoci ktere bych mohl z
Delphi vytvorit pdf?
diky Wetty
ShellCtrls nastaveni filtru pro zobrazeni souboru
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 3.12.2003 08:04:59
Benda Lukas wrote:
>Muzu se zeptat jak v komponente ShellListView mohu nastavit filtr pro
>zobrazeni souboru. Napr. *.txt?
>
Tak po dlouhem badani jsem an to prisel. Staci obslouzit udalost
OnAddFolder komponenty ShellListView, AFolder je pridavany adresar (z
pohledu komponenty mezi adresarem a souborem neni rozdil). A v pripade,
ze AFolder.PathName nema pozadovanou priponu, tak vratit CanAdd := False.
Jeste jak zjistit prave vybrany soubor:
ShellListView1.SelectedFolder.PathName (skoro, kazda property co
TShellListView ma obsahuje GetPathName, ale vraci jmena cest jako
TTreeNode, nebo TListView a podobne hlouposti.)
Lukas Benda
pdf dokument
[*] Ivan Turcan <iturcan(zv)drake.sk> - 3.12.2003 07:52:58
ja to ale potrebujem vramci mojeho programu a nutnost mat na stroji acrobat
nie je ziaduca. tzn. potrebujem komponentu alebo kniznicu ktora mi otvori
PDFko a exportne mi ho do ineho formatu ako napr. HTML,RTF a pod....
Ivan
----- Original Message -----
From: "Rumcajs" <konfera(zv)rumcajs.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 03, 2003 6:24 AM
Subject: Re: pdf dokument
> Pokud mas Adobe Acrobat (ne Reader), muzes v nem PDF vyexportovat jako
> RTF, ale obrazky ti to z toho nevytahne.... Nrjsem si jisty, ale melo by
> to jit klasickym Copy -> Paste
>
> Lukas "Rumcajs" Weiss
>
> Ivan Turcan napsal(a):
>
> >caves,
> >
> >nemate niekdo nejake komponenty ktore dokazu otvorit PDF dokument a
ulozit PDF v inom formate, napr worde ? Potrebujem vyexportovat obrazky z
PDF dokumentu....
> >
> >vdaka,
> >
> > Ivan
> >
> >
> >
> >
>
>
>
>
Nazev disku
[*] delphi.info(zv)centrum(tec)cz - 3.12.2003 07:50:58
dekuju
:)
______________________________________________________________
> Od: "Jiri Virt" <virt(zv)volny(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Tue, 2 Dec 2003 08:15:16 +0100
> Predmet: Re: Nazev disku
>
> function GetDriveName(Disk:char):string;
> var
> MaximumComponentLength : DWORD;
> FileSystemFlags : DWORD;
> VolumeName : string;
> begin
> SetLength(VolumeName, 64);
> GetVolumeInformation(PChar(Disk+':\'),PChar(VolumeName),Length
(VolumeName),n
> il,MaximumComponentLength,FileSystemFlags,nil,0);
> result := VolumeName;
> end;
>
>
> Jirka Virt
>
>
> tabulka do wordu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 3.12.2003 07:34:56
1.12.2003 Bohac Frantisek:
> Preji hezky den,
> ----- Original Message -----
> From: "Jan Fiala" <jan.fiala(zv)wo(tec)cz>>> V podstate jde o to, zaregistrovat format schranky
>> RegisterClipboardFormat('HTML Format');
>> a doplnit pred HTML kod hlavicku, ktera je popsana v MSDN.
> dekuji za informaci :-)
> zkousel jsem pouzit tuhle fci:
>Je chyba v tom, ze nedefinuji: neco z
> nasledujiciho?
> Version:
> StartHTML:
> EndHTML:
> StartFragment:
> EndFragment:
> StartSelection:
> EndSelection:
Ty informace jsou potrebne. Zkus si vlozit do schranky neco treba z IE
a nacist si obsah ve formatu HTML. Pak uvidis, co tam patri.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Blob a ORACLE
[*] Lukas Barton <barton(zv)labsys(tec)cz> - 3.12.2003 07:34:56
Zdravim Vas,
Pracuji v D4 C/S a pouzivam databazi ORACLE.
Procital jsem archiv teto konverzace prosel jsem spoustu webovych stranek
ale stele mi neni jasna jedna vec:
Pres SQL si vytvorim nejakou tabulku, napr.:
CREATE TABLE myBLOB
(
Cislo SMALLINT,
Prijmeni CHAR(50),
Jmeno CHAR(50),
Email CHAR(100),
DOC BLOB
)
na formulari pouziju komponenty TTable, TDataSource, TDatabase, TDBGrid.
Vzajemne to propojim, provedu Table1.Open a ono ejhle chyba "Invalid Field
Type". Pritom pro databazi vytvorenou v BDE mi DBGrid sloupec DOC zobrazi a
hodnota je (BLOB). Tak jsem nahradil TTable TQuery a provedl jsem
SELECT * FROM myBLOB
Ta sama chyba. "Invalid Field Type"
Tak jsem dotaz zuzil na:
SELECT Cislo, Jmeno, Prijmeni, Email FROM myBLOB
Vsechno se krasne zobrazi ale pomoci tohoto kodu .....
----------------------------------------------------------------------------
-------
To save a file to BLOB:
blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'),
bmWrite);
try
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create('c:\your_name.doc', fmOpenRead
orfmShareDenyWrite);
try
blob.CopyFrom(fs, fs.Size)
finally
fs.Free
end;
finally
blob.Free
end;
To load from BLOB:
blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'),
bmRead);
try
blob.Seek(0, soFromBeginning);
with TFileStream.Create('c:\your_name.doc', fmCreate) do
try
CopyFrom(blob, blob.Size)
finally
Free
end;
finally
blob.Free
end;
----------------------------------------------------------------------------
-------------
..... se samozrejme nemam sanci dostat pres Query k sloupci DOC protoze ho v
Query nemam (protoze jsem mussel vybrat sloupce, ktere nejsou BLOB).
Nevim kde delam chybu nebo my unika nejaka zakladni pointa, kterou jsem
nepostrehl, nevsiml si ji. Prosim pomozte.
Lukas Barton.
barton(zv)labsys(tec)cz
ICQ#: 116948331
Data z konference 11/2003
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 3.12.2003 07:10:54
Diky Jirimu Haskovi si muzete na http://www.pspad.com
v sekci Drobnosti / Konfview stahnout data za 11/2003
--
Jan Fiala
MailTo:jan.fiala(zv)wo(tec)cz
ICQ: 23032692
pdf dokument
[*] Rumcajs <konfera(zv)rumcajs(tec)com> - 3.12.2003 06:24:50
Pokud mas Adobe Acrobat (ne Reader), muzes v nem PDF vyexportovat jako
RTF, ale obrazky ti to z toho nevytahne.... Nrjsem si jisty, ale melo by
to jit klasickym Copy -> Paste
Lukas "Rumcajs" Weiss
Ivan Turcan napsal(a):
>caves,
>
>nemate niekdo nejake komponenty ktore dokazu otvorit PDF dokument a ulozit PDF v inom formate, napr worde ? Potrebujem vyexportovat obrazky z PDF dokumentu....
>
>vdaka,
>
> Ivan
>
>
>
>
Ochrana aplikace - dotaz (FACTORY serial?)
[*] Matej K <matej.k11(zv)seznam(tec)cz> - 2.12.2003 23:54:26
Ahoj
prave shanim stejnou vec. Umim zjistit cislo logickeho disku, ale ostatni veci ne a ne
vygooglovat...az na 1 hruzny priklad asm :-/
Pekne prosim, nemumite nekdo zjistit tovarni cislo HDD nebo radice a vyrobni cislo CPU?
Matej K. D7, WinXP
PS: Nasledujici kod funguje pouze do okamziku zformatovani.
var
SerialNum : dword;
a, b : dword;
Buffer : array [0..255] of char;
begin
if GetVolumeInformation
('c:\'), Buffer, SizeOf(Buffer), (zv)SerialNum, a, b,nil, 0)
then ShowMessage(IntToStr(SerialNum))
end;
PS2: Tento prispevek jsem napsal pred vikendem. Prave jsem se vratil a zjistil, ze misto odeslani
prispevku do konfery jsem byl vyrazen a prestaly me chodit maily :-( Chronologie konfery je koukam
mimo provoz, tak jsem z toho ponekud mrzuty... Prominte me opakovani se, pokud vubec prvni mail
dosel kam mel. Diky za pochopeni a pripadne napsani jak zjistit ty cisla...
>
> Myslim si, ze cislo HDD vo vela pripadoch staci. Zaujimalo by ma, ako
>zistit cislo HDD na ktorom bol program spusteny. Nie je problem zistit cislo
>HDD lokalnej stanice, nazov stroja kde bol program spusteny ale ako zistit
>cislo HDD cez siet ? Samozrejme musi to byt nezavisle riesenie na operacnom
>systeme. OS iba z rodiny Windows. Pripadne ako je mozne zistit MAC adresu
>sietovej karty toho stroja odkial bol program spusteny.
>
>Vlado
>
>
>
>
>
dbgrid a vynimky
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 2.12.2003 17:29:56
Cely vtip je v reakci na udalost OnSetText prislusneho fieldu, napriklad ja
mam v DBGridu zobrazene datum (v ruznych formatech, nastavuji pomoci
OnGetText) a editaci mam osetrenou takto:
LBTable.FieldByName('PoziceKonDatCas').OnSetText:= OnSetTextDTFields; --
tabulka musi byt otevrena
... a pak ta kontrola:
procedure TLogBookWnd2.OnSetTextDTFields(Sender: TField; const Text:
String);
var D: TDateTime;
OldDT: TDateTime;
begin
try
OldDT:= Sender.AsDateTime;
D:= StrToDateTime(Text);
Sender.AsDateTime:= D;
if not CheckDepDateArrDate(LBTable, false) then
begin
Application.MessageBox(PChar('Cas odjezdu musi predchazet casu prijezdu!
Zadejte prosim znovu.'),'Upozorneni',MB_ICONEXCLAMATION);
Sender.AsDateTime:= OldDT;
end;
except
Application.MessageBox(PChar('Datum ma nespravny
format.'),'Upozorneni',MB_ICONSTOP);
end;
end;
Vysledkem je to, ze se v pripade vlozeni chybne hodnoty objevi tve vlastni
chybove hlaseni a muzes si i jinak delat co chces.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
mam DBGRID napojeny na dataset. Ak dam do policka nejaku blbu
hodnotu , tak
vyvola vynimku. Chcel som dat osetrenie vynimky ale neviem kde.
Ziaden kod
predsa tam nieje, este nie je ani post ani nic.