Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
SQL a promenna_zacatecnik
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 2.5.2004 05:10:19
: procedure TForm1.btnVlozClick(Sender: TObject);
: var a,b: string;
: begin
: a := editJmeno.Text;
: b := 'Novak';
:
: IBQuery1.SQL.Clear;
:
: IBQuery1.SQL.Add('INSERT INTO pokus (jmeno, prijmeni, vek )');
: IBQuery1.SQL.Add('VALUES (:jmeno, :prijmeni, :vek )');
:
: IBQuery1.Params[0].AsString := a;
: IBQuery1.Params[1].AsString := b;
: IBQuery1.Params[2].AsSmallInt := 22;
:
: IBQuery1.ExecSQL;
:
: end;
:
: Pokud je v promenne b jako prijmeni 'Novak', vse je v poradku, ale pokud
: pouziju cestinu a dam tam 'Novaka',
: je problem..
Zdravim,
zdrojak je v poriadku, najskor bude chyba na strane DB servera (interbase ci
firebird?) -- skontrolujte si ci sa k DB pripajate s kodovanim, ktore podporuje
cestinu (napr. win1250), taktiez ci mate nastavene kodovanie tabulky podporujuce
cestinu, pripadne ci mate spravny CHARACTER SET v definciach stlpcov tabulky, do
ktorej sa snazite vkladat diakritiku.
ps: btw. presne znenie vratenej chybovej hlasky by vcelku pomohlo ;)
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
SQL a promenna_zacatecnik
[*] Ladislav Novak <lada.xt(zv)volny(tec)cz> - 1.5.2004 20:37:37
Zdravim vsechny a mam tu opet jeden zacatecnicky problemek, tak me
prosim nebijte...
vkladam pomoci SQL do tabulky data z promennych a narazil jsem na tento
problem..
muj priklad:
procedure TForm1.btnVlozClick(Sender: TObject);
var a,b: string;
begin
a := editJmeno.Text;
b := 'Novak';
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('INSERT INTO pokus (jmeno, prijmeni, vek )');
IBQuery1.SQL.Add('VALUES (:jmeno, :prijmeni, :vek )');
IBQuery1.Params[0].AsString := a;
IBQuery1.Params[1].AsString := b;
IBQuery1.Params[2].AsSmallInt := 22;
IBQuery1.ExecSQL;
end;
Pokud je v promenne b jako prijmeni 'Novak', vse je v poradku, ale pokud
pouziju cestinu a dam tam 'Novaka',
je problem..
Poradi nekdo jak na to?
Dekuji moc,
Lada
Simple MAPI - odesilani zpravy bez potvrzovaciho o
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 1.5.2004 20:15:35
Petr Brant wrote:
> Jo, da se. Zobraz si v OE dialog Moznosti/Zabezpeceni/ a zakaz
> "Upozornit, pokud se jina aplikace pokusi odeslat zpravu mym jmenem"
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant>
>
>> posilam e-mail do Outlook Expres pomoci funkce MapiSendMail.
>> V parametrech funkce NEuvadim "Mapi_Dialog", aby se nezobrazovalo
>> okno Outlook Expresu pro odesilani posty. Presto Outlook Expres
>> zobrazi male okynko pro potvrzeni odeslani e-mailu.(Program se
>> pokousi odeslat e-mail vasim jmenem. Chcete tuto zpravu odeslat?
>> Odeslat/Neodeslat) Da se nejak tohoto okynka zbavit?
Mel bych dotaz, jestli by nekdo nevedel, jak to udelat ve velkem Outlooku
(2003)?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
IIS + Delphi
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 5.5.2004 07:46:58
Jeste bych upresnil, ze se jedna o IIS 5.0. Opravdu nevim co s tim.
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
> -----Original Message-----
> From: Jan Netrval
> Sent: Tuesday, May 04, 2004 12:53 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: IIS + Delphi
>
> Mam takovy problemek. Nezkousel jste nekdo z Delphi vytvaret a editovat
> objekty v IIS (napr. VirtualDirectory).
>
>
>
> Pouzivam neco takoveho:
>
>
>
> obj := ADsHlp.GetObject('IIS://localhost/w3svc/1/root/xxx);
>
>
>
> A po provedeni tohoto radku at udelam co udelam, tak program spadne.
>
> Ing. Jan Netrval
> PilsCom, s.r.o. www.pilscom(tec)cz
> Houskova 16
> 326 00 Plzen (Pilsen) Czech Republic
> Tel.: +420 377 441 306
> GSM: +420 603 851 391
> E-mail: jnetrval(zv)pilscom(tec)cz
>
>
>
> Prechod z IB6.0 na FB1.5
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 5.5.2004 01:26:30
> 1. muzu pouzit stavajici *.gdb soubor nebo musim DB vytvorit
> znovu v nejakem FB administratoru?
Doporucuji Backup restore s volbou transportable.
>
> 2. ze starsich prispevku jsem vycetl, ze z komponent, ktere
> jsou zdarma vyuziva vetsina lidi IBX, ja pouzivam D5 prof.
> Muzu sem nejak IBX komponenty dostat? Nebo funguji az od D6?
Me fungovali i v D5.
>
> 3. pokud nemohu v D5 pouzit IBX komponenty, ktere jine se
> nabizi (zdarma)? Muzu pripadne pouzit komponenty ze zalozky Interbase?
ANO, podivej se na www.ibphoenix.com
Slavek
Prechod z IB6.0 na FB1.5
[*] David Klodner <d.klodner(zv)sofico(tec)cz> - 5.5.2004 00:52:23
Zdravim,
prechazim z IB6.0 na FB1.5,
uz se to tady probiralo nekolikrat, ale odpovedi na sve otazky jsem
nenasel:
1. muzu pouzit stavajici *.gdb soubor nebo musim DB vytvorit znovu v
nejakem FB administratoru?
2. ze starsich prispevku jsem vycetl, ze z komponent, ktere jsou zdarma
vyuziva vetsina lidi IBX, ja pouzivam D5 prof. Muzu sem nejak IBX
komponenty dostat? Nebo funguji az od D6?
3. pokud nemohu v D5 pouzit IBX komponenty, ktere jine se nabizi
(zdarma)? Muzu pripadne pouzit komponenty ze zalozky Interbase?
Diky za pomoc
S pozdravem
David Klodner
D5Prof, WinXP
ADMIN: Outlook Express
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.5.2004 00:12:18
Puvodni zprava ze dne 5.5.2004:
> Kdykoli se pokousim zpravu otevrit pomoci Outlook Express, zacne
> mi to vykladat neco o tom, ze nelze spustit knihovna MSOE.DLL. Co
> se s tim da delat? Diky
> Katka
To tu nema co delat - prosim nereagovat.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Outlook Express
[*] katka_r(zv)post(tec)cz - 5.5.2004 00:02:16
Kdykoli se pokousim zpravu otevrit pomoci Outlook Express, zacne
mi to vykladat neco o tom, ze nelze spustit knihovna MSOE.DLL. Co
se s tim da delat? Diky
Katka
Toolbar pro IE
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 4.5.2004 18:35:55
Ales Radikovsky wrote:
> Snazim se vytvorit Toolbar pro IE. Vysel jsem z prikladu z
> euromind.com, ale stale resim nejake "drobne" problemy. Naposledy s
> tim, ze bud diky liste nefunguji klavesove zkratky (treba Ctrl-N) a
> nebo naopak, ze sice funguji, ale na toolbaru v novem okne nejdou
> mackat tlacitka.
Sice ti neporadim s toolbarem, ale mam jednu cerstvou zkusenost pri reseni
obdobnych
"drobnych" problemu s WYSIWYG editorem na bazi DHTML tamtez.
Stravili jsme nad tim skoro tyden a stejne jsme s nekterymi "drobnostmi"
nehnuli. Takze nezbylo, nez to nastudovat v SDK a napsat to cele znovu a
spravne.
Ted nam to funguje bez "drobnych" problemu a preprogramovat to nam nakonec
zabralo jeden den.
HTH, pf
Toolbar pro IE
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 4.5.2004 18:19:53
Ahoj.
Snazim se vytvorit Toolbar pro IE. Vysel jsem z prikladu z euromind.com,
ale stale resim nejake "drobne" problemy. Naposledy s tim, ze bud diky
liste nefunguji klavesove zkratky (treba Ctrl-N) a nebo naopak, ze sice
funguji, ale na toolbaru v novem okne nejdou mackat tlacitka.
Nemate nekdo FUNGUJICI kostru toolbaru nebo nevite jak tohle vyresit?
Ales
Firebird - zmena kodovania
[*] Martin Matous <matrix(zv)inmail(tec)cz> - 4.5.2004 18:15:52
Dobry den,
pri vytvarani databaze(FB1.5final) som pouzil kodovanie ISO 8859-2.
Vychadzal som z toho, ze databaza bude bezat bud pod linuxom alebo Win.
V sucasnosti je databaza na linuxe(ISO8859-2) a klienti pristupuju z
windows (WIN1250).Pouzivam komponenty FibPlus.
Obcas mi vsak aplikacia havaruje s chybou:
"Arithmetic overflow or division by zero has occurred.arithmetic exception, numeric overflow, or string truncation.
Cannot transliterate character between character sets."
Potom co sa snazim ulozit makcen,dlzen a pod . - ALE NIE VZDY.
Mozno je to "bug" v prevodnych tabulkach Latin2-Win1250, mozno chyba
komponent, a mozno vo mne ;)
Prosim o pomoc:
1. Ake kodovanie sa ma pouzivat pre SK/CZ na linuxovom serveri?
(urcite sa mi zda lepsie ISO8859-2 ako m$ win1250, alebo je to
jedno?ecixtuje nejake pravidlo pre SK resp. CZ data)
2. Da sa zmenit (existuje na to nejaky program?alebo skript?) kodovanie uz
existujucej databazy, v ktorej su uz data v kodovani iso8859-2 na
kodovanie Win1250 - bezbolestne ? t.j. aby to prekodovalo existujuce
data na nove kodovanie...
Dakujem.
Martin
----------
* www.inMail(tec)cz - Vase emailova adresa na cely zivot ZDARMA
* www(tec)czechia.com - profesionalni webhosting a registrace domen za vyhodne ceny
* Zoner Media Explorer 6 - Poznejte kouzlo digitalni fotografie! (http://www.zoner(tec)cz/zme6)Debugovani COM knihovny ...
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.5.2004 16:45:45
Petr Reichl <meap-conf(zv)meap(tec)cz> wrote:
> Podarilo se mi docilit toho, ze se mi IDE zastavi pri nahrani DLL,
> nicmene se tecky nezobrazi a tudiz Debugovani nefunguje ...
Jeste jednou si prosim prectete ten postup. Bod 4) se _musi_
opakovat pri kazdem spousteni host aplikace, je to opruz
ale je to tak.
1) Ctrl+Alt+M, prave tlacitko "Add Module...", pridat DLL do seznamu
2) prave tlacitko "Break On Load" nastavit na DLL
3) spustit host aplikaci F9 a pockat az se IDE zastavi pri loadnuti DLL
4) znovu Ctrl+Alt+M, prave tlacitko "Reload Symbol Table" a
vyhledat DLL
5) v IDE se objevi tecky a DLL je mozne ladit
Martin Schayna
Debugovani COM knihovny ...
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 4.5.2004 16:33:44
> V projektu COM knihovny mam v Run\Parameters nastavenou cestu binarce
> toho demo projektu. Pokud spustit COM, nabehne demo projekt,
> ale Delphi mi neumozni debugovat. Proste se to na brakepointu nezastavi
...
>
> Nevite nekdo cim by to mohlo byt? Jinak mam zapnute vsechny debug
> informace ...
Skus zapnut aj "Include remote debug symbols" v Linker Options (a nasledne
Build) a ak mas v projekte tej COM DLL zadanu Output directory, tak by to
mala byt plna absolutna cesta.
HTH
TOndrej
Debugovani COM knihovny ...
[*] Petr Reichl <meap-conf(zv)meap(tec)cz> - 4.5.2004 16:29:43
Tak uz to chodi ...
Nemel jsem zapnuty v Project Options\Linker
Include TD32 debug info a Include remote debug symbols.
Ted uz to funguje, takze jeste jednou diky za radu ...
> Zdravim vsechny ...
>
> Mam mensi problem s debugovanim COM knihovny. Vytvoril jsem si pro ucely
> debugovani dalsi program, ktery importuje Type Library dane knihovny a
> vola urcitou metodu ...
>
> V projektu COM knihovny mam v Run\Parameters nastavenou cestu binarce
> toho demo projektu. Pokud spustit COM, nabehne demo projekt, ale Delphi
> mi neumozni debugovat. Proste se to na brakepointu nezastavi ...
>
> Nevite nekdo cim by to mohlo byt? Jinak mam zapnute vsechny debug
> informace ...
>
> Dekuji za radu,
>
> Petr
>
> Zjisteni datumu aplikace
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 4.5.2004 16:23:42
> pridej cestu k unite: Delphi\Source\ToolsApi (aspon u D5).
Od D6 to uz neplati, designtime kod musi byt oddeleny od runtime:
http://community.borland.com/article/0,1410,27717,00.html
HTH
TOndrej
Debugovani COM knihovny ...
[*] Petr Reichl <meap-conf(zv)meap(tec)cz> - 4.5.2004 16:21:41
Podarilo se mi docilit toho, ze se mi IDE zastavi pri nahrani DLL,
nicmene se tecky nezobrazi a tudiz Debugovani nefunguje ...
Nemate nahodou nejaky odkaz na jine zpusoby jak to zprovoznit? Google mi
v tomhle moc nepomohl ...
> Petr Reichl <meap-conf(zv)meap(tec)cz> wrote:
>
>>V projektu COM knihovny mam v Run\Parameters nastavenou cestu binarce
>>toho demo projektu. Pokud spustit COM, nabehne demo projekt, ale
>>Delphi mi neumozni debugovat. Proste se to na brakepointu nezastavi
>
>
> Predpokladam ze mate WinXP a D5(?) a ladit in-process COM server (DLL).
> Vyzkousejte tento postup:
> 1) Ctrl+Alt+M, prave tlacitko "Add Module...", pridat DLL do seznamu
> 2) prave tlacitko "Break On Load" nastavit na DLL
> 3) spustit host aplikaci F9 a pockat az se IDE zastavi pri loadnuti DLL
> 4) znovu Ctrl+Alt+M, prave tlacitko "Reload Symbol Table" a vyhledat DLL
> 5) v IDE se objevi tecky a DLL je mozne ladit
>
> Na Win2000 lze ladit DLL bez teto opicarny.
> Nevim jak to funguje na jinych Delphi, na D7 teprve budeme prechazet.
> Existuji navody kterak to rozchodit i jinym zpusobem, ale me nic jineho
> nefungovalo.
>
> Martin Schayna
>
>
> Zjisteni datumu aplikace
[*] Ing. Ludek Florian <ludek.florian(zv)bluerose(tec)cz> - 4.5.2004 16:17:40
Cauec,
pridej cestu k unite: Delphi\Source\ToolsApi (aspon u D5).
Bye Ludan
Subject: Re: Zjisteni datumu aplikace
> diky, zkousel jsem tedy ten pas pridat do projektu, ale nezna unitu
ToolsApi
>
> > > diky, koukam ze jsi autor, teda balicek se mi podarilo
> > > nainstalovat, ale navod jak s tim pracovat tam neni,
> > > jakou metodu volat pro ulozeni/precteni?
> >
> > Ak to mas nainstalovane v IDE, pise to aktualny cas do PE hlavicky
> cieloveho
> > spustitelneho suboru automaticky po kazdej uspesnej kompilacii projektu
v
> > IDE.
> > Hodnotu, ktora je v PE headri zapisana, to ukazuje v dialogu
> > Project\Information pod "Compile stamp".
> >
> > Ak to chces robit z vlastneho programu, priklad najdes v tom zdrojaku:
na
> > citanie funkcia LinkerTimeStamp, na zapis procedura
UpdateLinkerTimeStamp.
> >
> > HTH
> > TOndrej
> >
> >
> >
>
>
Debugovani COM knihovny ...
[*] Petr Reichl <meap-conf(zv)meap(tec)cz> - 4.5.2004 16:13:39
Dekuji za radu ... problem je v tom, ze se me IDE nezastavi pri loudnuti
DLL.
DLL se ovsem v seznamu objevi, ale neni tam jeji umisteni ...
P.S.: Ano, mam Delphi 5 a WinXP ...
> Petr Reichl <meap-conf(zv)meap(tec)cz> wrote:
>
>>V projektu COM knihovny mam v Run\Parameters nastavenou cestu binarce
>>toho demo projektu. Pokud spustit COM, nabehne demo projekt, ale
>>Delphi mi neumozni debugovat. Proste se to na brakepointu nezastavi
>
>
> Predpokladam ze mate WinXP a D5(?) a ladit in-process COM server (DLL).
> Vyzkousejte tento postup:
> 1) Ctrl+Alt+M, prave tlacitko "Add Module...", pridat DLL do seznamu
> 2) prave tlacitko "Break On Load" nastavit na DLL
> 3) spustit host aplikaci F9 a pockat az se IDE zastavi pri loadnuti DLL
> 4) znovu Ctrl+Alt+M, prave tlacitko "Reload Symbol Table" a vyhledat DLL
> 5) v IDE se objevi tecky a DLL je mozne ladit
>
> Na Win2000 lze ladit DLL bez teto opicarny.
> Nevim jak to funguje na jinych Delphi, na D7 teprve budeme prechazet.
> Existuji navody kterak to rozchodit i jinym zpusobem, ale me nic jineho
> nefungovalo.
>
> Martin Schayna
>
>
> OT: KFW a neuslale pripojovani
[*] Sebesta Jan <sebesta(zv)cube(tec)cz> - 4.5.2004 16:03:38
Zdravim vsechny,
Omlouvam se za OT, ale jiz nevim kam se obratit.
Jiz cca 14 dni resim problem, s kterym mi zatim nikdo neporadil a tak se
obracim na Vas vsechny.
- mam Win2K, SP4, Kerio FireWall 5.1.10 + AVG7, Proxy server na portu 3128 +
lokalni PC
- z hruzou jsem zjistil toto:
Pokud zadam do prikazove radky na lokalnim PC "\\192.168.1.99\" tak se mi to
zaznamena v pozadavku na KFW (Stav - Pocitace / Uzivatele - jmeno pocitace -
Doba necinnosti se vynuluje nebo se tam uzivatel objevi pok je jeste volna
licence).
Pokud ale zadam do prikazove radky "\\server\" (coz je PC s IP 192.168.1.99)
tak mi KWF to zaznamena
KWF by to nemelo zaznamenat ani v prvem ani v druhem pripade.
KWF mam legalne koupene, ale na podpore mi zatim nic neporadili.
Takze prvnich 10 pc po spusteni mi obsadi 10 licenci v KWF a dokud je
nevipnu tak tam "vysi" az do vypnuti. Protoze behem prace na techto PC se
cca kazdych 5 min opakuje pozadavek. KWF to vyhodnoti jako pozadavek na
HTTP Proxy.
Vir ani nic jineho to neni.
Pokud Vas nekoho neco napadne - prosim sem s tim. Jiz jsem zoufali ... mi
kamaradi - odbornici na site taktez.
Nesetkal jste se nekdo s podobnym problemem? Nevite co s tim?
Dekuji
Jan Sebesta
Zjisteni datumu aplikace
[*] tondrej(zv)t-online.de - 4.5.2004 15:43:36
> diky, zkousel jsem tedy ten pas pridat do projektu, ale nezna unitu
> ToolsApi ..
To nemas pridat do projektu, ale nainstalovat do IDE v ramci design package.
V tom prispevku na CodeCentral je to myslim popisane.
HTH
TOndrej
Debugovani COM knihovny ...
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.5.2004 15:39:35
Petr Reichl <meap-conf(zv)meap(tec)cz> wrote:
> V projektu COM knihovny mam v Run\Parameters nastavenou cestu binarce
> toho demo projektu. Pokud spustit COM, nabehne demo projekt, ale
> Delphi mi neumozni debugovat. Proste se to na brakepointu nezastavi
Predpokladam ze mate WinXP a D5(?) a ladit in-process COM server (DLL).
Vyzkousejte tento postup:
1) Ctrl+Alt+M, prave tlacitko "Add Module...", pridat DLL do seznamu
2) prave tlacitko "Break On Load" nastavit na DLL
3) spustit host aplikaci F9 a pockat az se IDE zastavi pri loadnuti DLL
4) znovu Ctrl+Alt+M, prave tlacitko "Reload Symbol Table" a vyhledat DLL
5) v IDE se objevi tecky a DLL je mozne ladit
Na Win2000 lze ladit DLL bez teto opicarny.
Nevim jak to funguje na jinych Delphi, na D7 teprve budeme prechazet.
Existuji navody kterak to rozchodit i jinym zpusobem, ale me nic jineho
nefungovalo.
Martin Schayna
IBDataSet a naroky na pamet
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.5.2004 15:29:33
Lebeda David dne 4 May 2004 v 13:19:
> > Hm, na to pouzivam tIbQuery - to si ale nejspis taky dela cache, ze?
> > U toho tIbDataSetu se mi hodilo, ze mohu zaznamy prochazet a obcas
> > nejaky upravit.
>
> ohledne Query - ano, i tady se data cachuji. Nicmene i u IBDatasetu se
> cachovani mozna neprovadi v pripade, ze je nastaveny jako jednosmerny
> (property se jmenuje nejak jako Unidirectional) - ted si nejsem jist.
> Nevim ale, zda by to nemelo vliv na pouzitelnost dbgridu v tomto
> rezimu.
Ahoj,
diky, vyzkousim - kdyby stacilo zapnout Unidirectional, bylo by to super. Napojeni na DbGrid tam
neni - prochazi to procedura, uzivatel vidi jen vysledek - kolik zaznamu bylo zmeneno, detaily je
nezajimaji.
> K TIBSQL:
>
> 1) S touto komponentou nefunguji db-aware komponenty.
Nevadi, nejsou napojeny
> 2) Data bys musel upravovat v jine komponente, resp. jine instanci -
> zalezi na Tobe. Brani tomu neco?
Asi spis lenost :-) U IbDataSetu sice taky existuje dva ci vice SQL dotazu, ale porad je to jedna
komponenta, prijde mi to lepsi nez mit jednu komponentu na prochazeni a druhou na zmeny udaju;
prinejmensim je s tim trosku vic prace, kdyz se zmeni struktura tabulky.
Diky,
Karel Rys
Zjisteni datumu aplikace
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 4.5.2004 15:21:32
diky, zkousel jsem tedy ten pas pridat do projektu, ale nezna unitu ToolsApi
..
----- Puvodni zprava -----
Od: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odeslano: 4. kvetna 2004 14:37
Predmet: Re: Zjisteni datumu aplikace
> > diky, koukam ze jsi autor, teda balicek se mi podarilo
> > nainstalovat, ale navod jak s tim pracovat tam neni,
> > jakou metodu volat pro ulozeni/precteni?
>
> Ak to mas nainstalovane v IDE, pise to aktualny cas do PE hlavicky
cieloveho
> spustitelneho suboru automaticky po kazdej uspesnej kompilacii projektu v
> IDE.
> Hodnotu, ktora je v PE headri zapisana, to ukazuje v dialogu
> Project\Information pod "Compile stamp".
>
> Ak to chces robit z vlastneho programu, priklad najdes v tom zdrojaku: na
> citanie funkcia LinkerTimeStamp, na zapis procedura UpdateLinkerTimeStamp.
>
> HTH
> TOndrej
>
>
>Debugovani COM knihovny ...
[*] Petr Reichl <meap-conf(zv)meap(tec)cz> - 4.5.2004 14:59:29
Zdravim vsechny ...
Mam mensi problem s debugovanim COM knihovny. Vytvoril jsem si pro ucely
debugovani dalsi program, ktery importuje Type Library dane knihovny a
vola urcitou metodu ...
V projektu COM knihovny mam v Run\Parameters nastavenou cestu binarce
toho demo projektu. Pokud spustit COM, nabehne demo projekt, ale Delphi
mi neumozni debugovat. Proste se to na brakepointu nezastavi ...
Nevite nekdo cim by to mohlo byt? Jinak mam zapnute vsechny debug
informace ...
Dekuji za radu,
Petr
Zjisteni datumu aplikace
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 4.5.2004 14:37:27
> diky, koukam ze jsi autor, teda balicek se mi podarilo
> nainstalovat, ale navod jak s tim pracovat tam neni,
> jakou metodu volat pro ulozeni/precteni?
Ak to mas nainstalovane v IDE, pise to aktualny cas do PE hlavicky cieloveho
spustitelneho suboru automaticky po kazdej uspesnej kompilacii projektu v
IDE.
Hodnotu, ktora je v PE headri zapisana, to ukazuje v dialogu
Project\Information pod "Compile stamp".
Ak to chces robit z vlastneho programu, priklad najdes v tom zdrojaku: na
citanie funkcia LinkerTimeStamp, na zapis procedura UpdateLinkerTimeStamp.
HTH
TOndrej
Zjisteni datumu aplikace
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 4.5.2004 14:13:25
diky, koukam ze jsi autor, teda balicek se mi podarilo nainstalovat, ale
navod jak s tim pracovat tam neni, jakou metodu volat pro ulozeni/precteni?
"Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
Odeslano: 28. dubna 2004 17:14
> > jak zjistit datum kompilace aplikace?
> > Verzi uz vim jak, chci jeste to datum dat do about..
>
> Priamo v PE headri je na to vymedzene miesto, delphi ho vsak nevyplna.
> Tu je IDE wizard, ktory ho tam po uspesnej kompilacii doplni:
> http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=19823
> Najdes tam aj priklad, ako tu hodnotu potom precitat.
>
> HTH
> TOndrej
>
IBDataSet a naroky na pamet
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 4.5.2004 13:19:21
> Hm, na to pouzivam tIbQuery - to si ale nejspis taky dela cache, ze? U
> toho tIbDataSetu se mi hodilo, ze mohu zaznamy prochazet a obcas
> nejaky upravit.
Ahoj,
ohledne Query - ano, i tady se data cachuji. Nicmene i u IBDatasetu se cachovani
mozna neprovadi v pripade, ze je nastaveny jako jednosmerny (property se jmenuje
nejak jako Unidirectional) - ted si nejsem jist. Nevim ale, zda by to nemelo vliv na
pouzitelnost dbgridu v tomto rezimu.
K TIBSQL:
1) S touto komponentou nefunguji db-aware komponenty.
2) Data bys musel upravovat v jine komponente, resp. jine instanci - zalezi na Tobe.
Brani tomu neco?
David Lebeda
FTP pres SSL
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 4.5.2004 13:07:20
> potreboval bych stahovat soubory z FTP nejak zabezpecene, nejlepe pres
> SSL. Poradi mi prosim nekdo, jake komponenty pro to pouzit?
Synapse. ;-) SSL pro FTP protokol podporuje...
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Prechod z jedne barvy do jine ve FillRect
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 30.6.2004 23:36:27
Zdravim,
nemate nekdo procedurku, ktera by vybarvila obdelnik na obrazovce tak,
aby nalevo byla jedna zadana barva a napravo druha a prechod mezi
barvami byl plynuly? Rad bych pouzil zapis na Canvas (ne komponentu),
neco jako rozsireny FillRect, protoze obdelnik vykresluju na DBGrid do
jednoho sloupce pro kazdy radek (je to neco jako graf).
Diky za rady.
Karel, D5, WinXP
Screenshot obrazovky bez formulare
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 30.6.2004 23:02:23
Zdar,
Potreboval bych udelat screenshot obrazovky, ale s tim, ze zadam okna, ktera
tam nechci :)
Brona
SUM zapornych a kladnych cisel (FireBird)
[*] bleak <bleak(zv)mvesely(tec)com> - 30.6.2004 22:40:21
zkusil jsem tohle:
select ucet,
(select sum(castka) from platby t2 where castka < 0 and t1.ucet=t2.ucet AND
doklad='992') as zaporna,
(select sum(castka) from platby t3 where castka >= 0 and t1.ucet=t3.ucet AND
doklad='992') as kladna from platby t1
group by ucet
SQL dotaz nedobehne ani po 10 minutach. V tabulce je cca 600 000 zaznamu
index pro pole ucet a doklad.
Jak by se dal dotaz vylepsit?
na tento dotaz
select ucet, sum(castka) from platby where castka> 0 and doklad='992'
group by ucet
mam vysledek okamzite
bleak
vlakna a metoda synchronize
[*] Lukas Jakubu <jerry.jacobi(zv)wo(tec)cz> - 30.6.2004 21:30:12
Dobry den,
lze nejakym zpusobem pouzit vlakno, jehoz kod je ulozen v jine unite,
kdyz bych zaroven rad pouzil metodu synchronize pro vypsani informace na
status bar formulare hlavni (puvodni) unity?
Abych mohl vlakno vubec vytvorit a spustit tak musim unitu s kodem
vlakna pridat do uses v hlavni unite. Pokud ale chci zapsat neco na
status bar formulare hlavni unity, pak bych musel pridat puvodni unitu
do uses i v unite vlakna coz vede k circular reference:-(
Diky za napady
S pozdravem
Lukas Jakubu
--
**********************
* Lukas Jakubu *
* jerry.jacobi(zv)wo(tec)cz *
**********************
Problem s nastavenim rozsirenych vlastnosti tisku
[*] Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 30.6.2004 21:16:10
Jeste pro upresneni,
pokud pouziju nastaveni papiru nalezato tak to tiskarna provede,
ale pocet kopii nebo meritko tisku ani za nic, proste to nereaguje.
Da se nejak zjistit, ze tiskarna tyto nastaveni nepodporuje,
mozna bych chapal meritko, ale pocet kopii?
Jeste mozna tedy jinak.
Co vlastne potrebuji.
Potrebuji dostat na stranku tiskovou 63 radku a rekneme urcity pocet
znaku, tak aby nebyly velke mezery mezi radky, jeste to musi byt font
se stejnou sirkou vsech znaku. To by znamenalo tedy vysku znaku
znamit, ale nevim jak na to.
(Jedna se mi o to nasimulovat tisk starych DOS tiskovych sestav pro
jehlickovou tiskarnu na GDI tiskarne)
Diky za pripadne napady.
--
S pozdravem,
Martin Radvansky
Snimac obrazovky
[*] Petr Vetesnik <wetty(zv)quick(tec)cz> - 30.6.2004 20:24:04
A co takhle balik primo od MS
HTML Help Workshop
http://msdn.microsoft.com/library/en-us/htmlhelp/html/hwMicrosoftHTMLHelpDownloads.asp
wetty
>
> > nepoznate niekto nejaky free snimac obrazovky s moznostou automatickeho
> > ukladania do suborov, urcenia snimanej oblasti a pod.
>
>
>
QuickReport 4 vs PDF a RTF
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 30.6.2004 19:44:01
Zapletal Martin <zapletal(zv)inoma(tec)cz> wrote:
> Chtel bzch se zeptat zda nekdo z Vas pouziva QR 4. Jde mi konkretne o
> export do PDF a RTF. V PDF mne zajima jak je to s prevodem ceske
> kodove stranky a u RTF bych potreboval vedet, zda je jiz opraveno
> prolinani jednotlivich poli. Nebo nekdo vite o miste kde stahnout
> trial verzi QR4? Na QuSoft jsem nic nenasel.
To by me take zajimalo. Stale pouzivame (masivne pritesane) QR3.6
Pouziva tady nekdo QR4?
Martin Schayna
instalace FireBird 1.5 na Win95
[*] delphi(zv)mjsoft(tec)cz - 30.6.2004 18:05:52
No tak jsem na to nakonec prisel. Je to jak pises. Stacilo vzit z Win98
knihovnu MSVCRT.DLL a uz to slape.
Karel
> Co musis udelat nevim a asi si to budes muset zjistit sam.
> Problem co popisujes je z nejvetsi pravdepodobnosti zpusoben
> spatnou (cti starou) verzi dll knihoven. Takze si postupne
> stahovat novejsi verze dll knihoven treba z win98 a tim si
> doplnit instalci.
>
> Slavek
>
> > lze provozovat kombinaci viz %subj%? Nejprve me to pri
> > instalaci hlasilo ze nemam WinSock2. Ten jsem si sehnal a
> > nainstaloval. Firebird se nainstaluje, ale po spusteni meho
> > programu to hlasi dalsi chybu "Soubor MSVCP60.dll je propojen
> > na chybejici export MSVCRT.DLL:__lc_collate_cp". Co vsechno
> > se musi udelat pro zprovozneni.instalace FireBird 1.5 na Win95
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 30.6.2004 17:45:49
Co musis udelat nevim a asi si to budes muset zjistit sam.
Problem co popisujes je z nejvetsi pravdepodobnosti zpusoben
spatnou (cti starou) verzi dll knihoven.
Takze si postupne stahovat novejsi verze dll knihoven treba
z win98 a tim si doplnit instalci.
Slavek
> lze provozovat kombinaci viz %subj%? Nejprve me to pri
> instalaci hlasilo ze nemam WinSock2. Ten jsem si sehnal a
> nainstaloval. Firebird se nainstaluje, ale po spusteni meho
> programu to hlasi dalsi chybu "Soubor MSVCP60.dll je propojen
> na chybejici export MSVCRT.DLL:__lc_collate_cp". Co vsechno
> se musi udelat pro zprovozneni.
> Pruhlednost komponenty
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 30.6.2004 17:39:48
no, presne bych potreboval 2 veci:
1/ blend na libovolnou komponentu, napr 1 button na formulari, aby mel alpha
kanal
2/ pak alpha kanal jenom na formular. Hodim si na formular TImage, ktery
bude transparentni, udelam si alpha kanal na formular a budu mit
plnohodnotnu (bez alphy) obrazek na pruhlednem formulari.. Vim, ze to jde
(videl jsem to:)) ale nevim jak :(
Brona
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pavol Stugel, NETGraphics
> Sent: Wednesday, June 30, 2004 8:48 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Pruhlednost komponenty
>
>
> chces pisat vlastne komponenty alebo chces aby vsetko co ma delphi bolo
> alpha blendovane?
> tak to prve sa da pouzitim roznych kniznic :napr. free: www.g32.org,
> graph64.netgraphics.sk,
> ale nie je to zrovna najednoduhsie, najlepsie by bolo napisat na co to
> vlastne chces ... menu?
>
> tak to druhe nejde ...;)
>
> palo
>
>Problem s nastavenim rozsirenych vlastnosti tisku
[*] Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 30.6.2004 16:49:43
Dobry den,
mel bych jeden problemek.
Rad bych ve sve aplikavi vyuzil pri tisku pres PRINTER
nastavil zvetsoveni a zmensovani vystupu na tiskarnu.
Nasel jsem tedy v API moznost pres DEVICEMODE.
Zde je ukazka kodu.
with Printer do begin
GetPrinter(ADevice,ADriver,APort,DeviceHandle);
if DeviceHandle <>0 then begin
DevMode:=GlobalLock(DeviceHandle);
with DevMode^ do begin
dmFields:=dmFields or DM_SCALE;
dmScale:=10; //10% puvodni velikosti
end;
SetPrinter(ADevice,ADriver,APort,DeviceHandle);
GlobalUnlock(DeviceHandle);
end;
Title := gsPrintFile;
//Copies:=liKopie;
BeginDoc;
.
Vlastni tisk TextOut .....
.
EndDoc;
end;
Uvedeny kod nevyvola vyjimku, ale take se neprovede zvetseni ci
zmenseni tiskoveho vystupu. Pravdepodobne jsem na neco zapomnel, ale
nevim na co.
Prosel jsaem vsemozne priklady a vsude je to stejne. Netusi nekdo co s
tim?
Pokud nahradim DM_SCALE DM_COPIES, tak se to taky neprojevi na poctu
kopii.
Dekuji za kazdy napad
--
S pozdravem,
Martin Radvansky
vlakna a zapis/cteni ze souboru
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 30.6.2004 16:45:42
Ahoj,
na praci se soubory pouzij nejlepe TFileStream a v Create nastav Mode na
fmWrite (nebo fmOpenReadWrite) or fmShareDenyWrite, pak je ale potreba
soubory neustale otvirat a zavirat, i kdyz pouze pro cteni by mohl byt
otevren stale.
druha moznost je pro main i vlakno pouzit stejnou instanci tsoubor a
jeji metody pro zapis osetrit kritickou sekci.
Vaclav Sazima
Lukas Jakubu wrote:
> Jakym
> zpusobem tedy zabranit "dvojitemu zapisu" do souboru?
>
> Diky za napady
> S pozdravem
vlakna a zapis/cteni ze souboru
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 30.6.2004 16:35:40
Ahoj,
jestli te dobre chapu, tak vyuzivas kriticke sekce tim zpusobem ze v tride tsoubor maz jednu polozku typu TCriticalSection, kterou vytvaris v constructoru. To ale tak uplne nejde, protoze potom kazda instance teto tridy ma vlastni kritickou sekci a tudiz nedojde ke kolizi.
Kritickou sekci musis udelat bud jako globalni promenou, ktera se vytvori pri inicializaci unity a nebo muzes pouzit mutexy nebo semaphory, ktere maji metodu ktera vytvori dany synchronizacni objekt podle jmena a pokud uz v systemu existuje pak jej vrati. Tim bys docilil toho, ze vsechny objekty budou pracovat s tim samym mutexem.
Petr
vlakna a zapis/cteni ze souboru
[*] Lukas Jakubu <jerry.jacobi(zv)wo(tec)cz> - 30.6.2004 14:57:29
dobry den,
ve sve aplikaci (mailovy klient) mam dve vlakna a nekolik datovych
souboru. Jedno vlakno pouze zapisuje stazene zpravy, druhe muze cist i
zapisovat. Dale mam napsanu tridu pro praci se soubory. Rad bych se
zeptal, jakym zpusobem by bylo nejvhodnejsi resit konflikty typu - prvni
vlakno zapisuje do souboru a druhe do nej potrebuje zapisovat take. Vim
ze existuji kriticke sekce ale nemuzu prijit na to, jak je v tomto
pripade pouzit. Pokud v hlavni unite (main.pas) vytvorim vlakno (jehoz
kod je v unite vlakno.pas) a v obou unitach (tj. vlakno.pas i main.pas)
vytvorim instanci tridy tsoubor (unita pro praci se soubory), pak nelze
zarucit ze obe vlakna nebudou najednou zapisovat do tehoz souboru. Jakym
zpusobem tedy zabranit "dvojitemu zapisu" do souboru?
Diky za napady
S pozdravem
--
**********************
* Lukas Jakubu *
* jerry.jacobi(zv)wo(tec)cz *
**********************
RDSConnection
[*] Marek Cizek <mcizek(zv)anect(tec)cz> - 30.6.2004 13:53:22
Ahoj *.*
mam problem, pro pripojeni k MSSQL databazi
pouzivam RDSConnection a ADODataSety.
po ukonceni aplikace se ale zmeny z datasetu
neulozi zpet do databaze, ADODataSety
nemaji ApplyUpdates. Nevite, jak na to ?
Dik,
Marek
Jaky druh vystupu
[*] Dusek Karel <dusek(zv)mudk(tec)cz> - 30.6.2004 13:17:19
Prosim o radu, jakym zpusobem delat vystup z programu. Potrebuji soubor do ktereho bych doplnoval data a sel by vytisknout a poslat napr. jako priloha emailu. Zkousel jsem pracovat s Wordem pres OLE, ale nepodarilo se mi vytvarit tabulku. Dale jsem se pokusil vytvorit vystup v RichEditu ale setkal jsem se se stejnym problemem jak vytvorit tabulku. Prosim a jakoukoliv radu.
D6,W2000
Predem dekuji
Karel
---
avast!/SMTP2000 Antivirus: Outbound message clean.
Virus Database (VPS): 29.6.2004
Tested on: 30.6.2004 13:14:00 +0200
avast! - copyright (c) 2000-2004 ALWIL Software.
Klavesove zkratky tlacitek
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 30.6.2004 13:07:14
> Ja to resim pres OnUpdate - mohlo by to vypadat asi takhle:
> with TAction(Sender) do
> Enabled := PageControl.ActivePage.Name = Category
>
> pak staci do vlastnosti akce Category uvest jmeno
> odpovidajici zalozky a je
> to
Nejsem si uplne jisty, jestli to je to prave orechove. Toto sice disabluje
akci, ale i disablovana akce obcas sezere prirazeny shortcut - na pravidlo
jsem neprisel, mozna to zalezi na poradi akci v ActionListu (D5 Enterprise).
Proto pouzivam dynamicke meneni shortcutu, enable/disable akci pouzivam pro
jejich fyzicke znedostupneni (fuj, to je hnusne slovo :-)).
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Klavesove zkratky tlacitek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 12:20:31
> Ok to je ono jen bych jeste potreboval nejak rozlisit tlacitka na
> ruznych zalozkach PageControl
> rekneme ze tlacitka na zalozce 1 pouzivaji zkratky F1-F12 a jina
> tlacitka na zalozce 2 na stejnem formulari maji pouzivat take zkratky
> F1-F12 ale potom spoustet neco jineho
> proste to nejak odlisit podle toho ktera zalozka je aktivni ale nenasel
> jsem u TActionList polozku enable ta je az u jednotlivych akci ale to se
> mi zda dost krkolomne :-(
>
Ja to resim pres OnUpdate - mohlo by to vypadat asi takhle:
with TAction(Sender) do
Enabled := PageControl.ActivePage.Name = Category
pak staci do vlastnosti akce Category uvest jmeno odpovidajici zalozky a je
to
Zdenek Brejsa - HJ-SOFT
Podepisovani pdf
[*] Sula Milos <milos.sula(zv)musumperk(tec)cz> - 30.6.2004 12:06:29
Ahoj,
Muzete mi poradit jak by se dal podepsat pdf dokument (pro vice lidi) a
jakou komponentu pouzit aby bylo jasne, ze kdyz se dokument vyskytne na
internetu, kdo ho pustil do obehu ? Pripadne jestli existuje nejaka
komponenta pomoci ktere by se dali na konce stranek v pdfku vlozit jmena
pro ktereho cloveka byl tento pdf urcen.
Milos
Klavesove zkratky tlacitek
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 30.6.2004 11:52:26
> Ok to je ono jen bych jeste potreboval nejak rozlisit tlacitka na
> ruznych zalozkach PageControl
> rekneme ze tlacitka na zalozce 1 pouzivaji zkratky F1-F12 a jina
> tlacitka na zalozce 2 na stejnem formulari maji pouzivat take zkratky
> F1-F12 ale potom spoustet neco jineho
> proste to nejak odlisit podle toho ktera zalozka je aktivni
> ale nenasel
> jsem u TActionList polozku enable ta je az u jednotlivych
> akci ale to se
> mi zda dost krkolomne :-(
Asi to jednoduse neobejdes. Ja to resim takto:
Ve FormCreate si odlozim klavesove zkratky do tagu akce
procedure TF_ProjTEF.CopyShorcutsToTag;
var
i : integer;
begin
for i := 0 to alProj.ActionCount - 1 do
begin
(alProj.Actions[i] as TAction).Tag := (alProj.Actions[i] as
TAction).ShortCut;
end;
end;
Akce pro kazdou zalozku zarad do jine kategorie a pri prepnuti na zalozku
(ja to delam v OnChange pagecontrolu) zkopiruj u vsech akci dane kategorie
shortcuty z tagu zpatky. U ostatnich akci shortcuty vynuluj.
procedure TF_ProjTEF.RestoreShortCuts(Ctg : string);
var
i : integer;
begin
for i := 0 to alProj.ActionCount - 1 do
begin
if (alProj.Actions[i] as TAction).Category = Ctg then
begin
(alProj.Actions[i] as TAction).ShortCut := (alProj.Actions[i] as
TAction).Tag;
end;
end;
end;
procedure TF_ProjTEF.ClearShortCuts(Ctg : string);
var
i : integer;
begin
for i := 0 to alProj.ActionCount - 1 do
begin
if (alProj.Actions[i] as TAction).Category = Ctg then
begin
(alProj.Actions[i] as TAction).ShortCut := 0;
end;
end;
end;
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Klavesove zkratky tlacitek
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 30.6.2004 11:38:24
Ok to je ono jen bych jeste potreboval nejak rozlisit tlacitka na
ruznych zalozkach PageControl
rekneme ze tlacitka na zalozce 1 pouzivaji zkratky F1-F12 a jina
tlacitka na zalozce 2 na stejnem formulari maji pouzivat take zkratky
F1-F12 ale potom spoustet neco jineho
proste to nejak odlisit podle toho ktera zalozka je aktivni ale nenasel
jsem u TActionList polozku enable ta je az u jednotlivych akci ale to se
mi zda dost krkolomne :-(
diky PM
Zdenek Brejsa napsal(a):
>>jo property action tam je ale nedava mi nic na vyber a kdyz do ni neco
>>napisu tak to vyhodi chybu
>>jak se nadefinuje akce aby se mi dostala do vyberu toho tlacitka?
>>
>>
>>
>musis pridat na formular nevizualni komponentu TActionList, do ni pridat
>potrebne akce a pak do te property action jednu z nich vybrat.
>
>Zdenek Brejsa - HJ-SOFT
>
>
>
>
>Formatovanie xml dokumentu
[*] Jozef Strnadik <strnadik(zv)mbox.mrp.sk> - 30.6.2004 10:58:20
Zdravim,
pre vytvaranie xml dokumentu pouzivam objekt TXMLDocument. Ulozeny xml
dokument vsak nie je "pekne" sformatovany ale pozostava z niekolkych dlhych
riadkov.
Ked sa pokusim takyto dokument sformatovat fukciou FormatXMLData je vysledok
v poriadku avsak len v pripade, ze dokument neobsahuje znaky s diakritikou.
(Pouzivam kodovanie win-1250.)
Poradi niekto?
D6 Pro, SP 2
---
S pozdravom
Jozef Strnadik
Tabsheet bez zalozek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 10:42:16
> Milan Tomes
>
> P.S.: Mas nejaky specialni duvod pro pouzivani TNotebook ???
uz ne, ale v D4 PageControl neschovaval v designu ouska a prekryvajici
panely jsou neprakticky pri navrhu. Takze, pokud nebylo treba dedit, jsem
pouzival TNotebook. Tot vse ;-)Tabsheet bez zalozek
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 30.6.2004 10:24:14
Omlouvam se - ted jsem si uvedomil:
a) pouzivame komponentu TdxPageControl
b) pouzivali jsme TPageControl a ne TNotebook
S pozdravem
Milan Tomes
P.S.: Mas nejaky specialni duvod pro pouzivani TNotebook ???
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zdenek Brejsa
> Sent: Wednesday, June 30, 2004 9:52 AM
>
> > Tak to by me tedy opravdu zajimalo proc. Ja mam takoveto formulare 2 a
> > pouzivam je jako predky bez nejmensich problemu.
> >
> hmm ... taky nevim, ale schvalne jsem si to znovu zkusil a porad to pri
> pokusu dedit hlasi "Error creating form: Cannot inherit 'Form1'.
> Constains a
> component 'Notebook1' that does not support inheritance."Tabsheet bez zalozek
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 30.6.2004 10:20:08
> > Property TabVisible urcuje, jestli je videt ousko, ne
> jestli je viditelny
> > TabSheet. TabSheet v runtime zobrazis bud pomoci
> PageControl.ActivePage :=
> > TabSheet1 (TabSheet2..n) nebo pomoci
> PageControl.ActivePageIndex := 0
> > (1..n-1).
>
> >Ja si ouska nechavam v designu viditelna, lip se mi zalozky
> > prepinaji, a skryvam je az ve FormCreate, ale to je vec zvyku.
>
> To ma ale za nasledek jiny design pri navrhu a v runtime - o ty ouska
> prubude dole volne misto
To vadi jen pokud ten PageControl nemuze v runtime menit velikost. To
pouzivam jen u univerzalnich dialogu, kdy pri FormCreate nastavuji i
velikost formu, a tam to osetrim.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Tabsheet bez zalozek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 09:52:04
> Tak to by me tedy opravdu zajimalo proc. Ja mam takoveto formulare 2 a
> pouzivam je jako predky bez nejmensich problemu.
>
hmm ... taky nevim, ale schvalne jsem si to znovu zkusil a porad to pri
pokusu dedit hlasi "Error creating form: Cannot inherit 'Form1'. Constains a
component 'Notebook1' that does not support inheritance."
Zdenek Brejsa - HJ-SOFT
Tabsheet bez zalozek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 10:02:06
> > Asi jsem to spatne napsal TabVisible samozrejme znam a pouzivam
> > potreboval jsem, aby obsah byl videt (pomoci TabVisible si necham
> > zobrazenu jen jednu zalozku ) a chci nezobrazovat pouze to
> > ousko nahore
>
> Property TabVisible urcuje, jestli je videt ousko, ne jestli je viditelny
> TabSheet. TabSheet v runtime zobrazis bud pomoci PageControl.ActivePage :=
> TabSheet1 (TabSheet2..n) nebo pomoci PageControl.ActivePageIndex := 0
> (1..n-1).
>Ja si ouska nechavam v designu viditelna, lip se mi zalozky
> prepinaji, a skryvam je az ve FormCreate, ale to je vec zvyku.
To ma ale za nasledek jiny design pri navrhu a v runtime - o ty ouska
prubude dole volne misto
Request live a Oracle
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 30.6.2004 09:47:56
Asi ne, trideni tam neni, mala a velka pismena by nemela hrat roli, vtip je
v tom, ze stejny select ze stejne tabulky se otevre bez potizi, dokud jej
nechci otevrit na zapis s reguestlive na true, ale proc je to tak, to fakt
nevim.
Dalik.
> neni problem s nazvem tabulky (pripadne sloupcu) - mala velka pismena ?
> neni v tom selectu i nejake trideni ?
> nejaka podminka (napriklad na MSSQL nefunguje neco IN (xxx,yyy,aaa) ...
>> > nevite nekdo prosim vas, proc kdyz nastavim v SQL komponente
> > RequestLive na TRUE a otevru jej prikazem Query1.open nebo
> > treba i v navrhu formulare nastavenim Active na TRUE, nabehne
> > chyba ORA 00942 tabulka nebo pohled neexistuje?
> > Pritom pokud je RequestLive = FALSE, dotaz probehne v
> > poradku. Jedna se pritom jenom o dotaz typu SELECT * from
> > TABULKA, dotazy otevirane pomoci QUERY1.EXECSQL jako update,
> > delete atd. funguji, takze pristupovymi pravy to asi nebude.
> > Pripojuji se pres nativni ovladac BDE ORACLE, verze delphi je
> > 5 Enterprise, verze Oracle je 8 personal. Pritom v SQL
> > exploreru muzu udaje v tabulce bez problemu menit. Ze bych
> > potreboval nejakou zaplatu? A ted nevim jestli na BDE nebo na hlavu.
> >
> > Diky za radu
> > Dalibor Faltynek
> > Orgrez, a. s.
> > tel: +420 541 613 312, 291
> > fax:+420 541 613 299
> > e-mail: dalibor.faltynek(zv)orgrez(tec)cz
> >
>
>Tabsheet bez zalozek
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 30.6.2004 09:52:01
> Asi jsem to spatne napsal TabVisible samozrejme znam a pouzivam
> potreboval jsem, aby obsah byl videt (pomoci TabVisible si necham
> zobrazenu jen jednu zalozku ) a chci nezobrazovat pouze to
> ousko nahore
Property TabVisible urcuje, jestli je videt ousko, ne jestli je viditelny
TabSheet. TabSheet v runtime zobrazis bud pomoci PageControl.ActivePage :=
TabSheet1 (TabSheet2..n) nebo pomoci PageControl.ActivePageIndex := 0
(1..n-1). Ja si ouska nechavam v designu viditelna, lip se mi zalozky
prepinaji, a skryvam je az ve FormCreate, ale to je vec zvyku.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Tabsheet bez zalozek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 09:31:52
> nebo jeste uplne jinak potrebuju mit na formulari nekolik stranek
> (ale vzdy zobrazenou jen jednu ) a prepinat je podle behu programu
> rekneme treba ze bych mel na hlavnim formulari najaka tlacitka a stejny
> pocet panelu a pri s tisku tlacitka se zobrazi prislusny panel a
> ostatni budou skryty
> no a ty panely by byly umisteny tak aby se vsechny zobrazovaly na
> stejnem miste
takhle TabSheet (PageControl) pouzivam a nemam problem ...
na formular dam panel s tlacitky (Align = Bottom) PageControl (Align =
Client)
na PageControl (styl tlacitek na Flat) nekolik TabSheet s TabVisble na
False. Prepinam se mezi nimi pres PageControl.ActivePage jak v designu, tak
pres tlacitka v runtime ... Kde je problem ?
Zdenek Brejsa - HJ-SOFT
Tabsheet bez zalozek
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 30.6.2004 09:39:55
Tak to by me tedy opravdu zajimalo proc. Ja mam takoveto formulare 2 a
pouzivam je jako predky bez nejmensich problemu.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zdenek Brejsa
> Sent: Wednesday, June 30, 2004 9:36 AM
> >
> > Ja to tak mam taky a pouzivam na to komponentu notebook
> >
> Ale pozor, formular na kterem je notebook, se neda dedit.Klavesove zkratky tlacitek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 09:37:54
> jo property action tam je ale nedava mi nic na vyber a kdyz do ni neco
> napisu tak to vyhodi chybu
> jak se nadefinuje akce aby se mi dostala do vyberu toho tlacitka?
>
musis pridat na formular nevizualni komponentu TActionList, do ni pridat
potrebne akce a pak do te property action jednu z nich vybrat.
Zdenek Brejsa - HJ-SOFT
Tabsheet bez zalozek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 09:35:53
>
> Ja to tak mam taky a pouzivam na to komponentu notebook
>
Ale pozor, formular na kterem je notebook, se neda dedit.
>
> >Ted tomu asi nerozumim: kdyz nechci videt ousko nastavim TabVisible na
> >False, kdyz chci ukazat stranku nastavim PageControl.ActivePage
(nezavisle
> >na TabVisible)Tabsheet bez zalozek
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 30.6.2004 09:07:50
Ja to tak mam taky a pouzivam na to komponentu notebook
"Matejcek Petr"
<konference(zv)crhov Komu: delphi-l(zv)clexpert(tec)cz
.komfi(tec)cz> Kopie:
Odeslal: Predmet: Re: Tabsheet bez zalozek
delphi-l-owner(zv)cl
expert(tec)cz
30.06.2004 08:59
Odpovezte prosim
uzivateli
delphi-l
zkuste si dat do TabSheet.TabHeight = 1 no a ja bych potreboval jeste
min jenze 0 neudela to ze ousko se skryje ale da tam default
nebo jeste uplne jinak potrebuju mit na formulari nekolik stranek
(ale vzdy zobrazenou jen jednu ) a prepinat je podle behu programu
rekneme treba ze bych mel na hlavnim formulari najaka tlacitka a stejny
pocet panelu a pri s tisku tlacitka se zobrazi prislusny panel a
ostatni budou skryty
no a ty panely by byly umisteny tak aby se vsechny zobrazovaly na
stejnem miste
tj funkcni by to bylo user nic nepozna ale me se s tim bude blbe
pracovat protoze budu mit vsechny panely na sobe a budu si je muset
posouvat a hledat ten pravy
tak jsem si myslel ze pouziju TabSheet a skryju ty ouska a ono to nejde
nebo je na to nejaka lepsi komponenta?
PM
Zdenek Brejsa napsal(a):
>Ted tomu asi nerozumim: kdyz nechci videt ousko nastavim TabVisible na
>False, kdyz chci ukazat stranku nastavim PageControl.ActivePage (nezavisle
>na TabVisible)
>
>
>
>
>
>
Tabsheet bez zalozek
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 30.6.2004 08:59:48
zkuste si dat do TabSheet.TabHeight = 1 no a ja bych potreboval jeste
min jenze 0 neudela to ze ousko se skryje ale da tam default
nebo jeste uplne jinak potrebuju mit na formulari nekolik stranek
(ale vzdy zobrazenou jen jednu ) a prepinat je podle behu programu
rekneme treba ze bych mel na hlavnim formulari najaka tlacitka a stejny
pocet panelu a pri s tisku tlacitka se zobrazi prislusny panel a
ostatni budou skryty
no a ty panely by byly umisteny tak aby se vsechny zobrazovaly na
stejnem miste
tj funkcni by to bylo user nic nepozna ale me se s tim bude blbe
pracovat protoze budu mit vsechny panely na sobe a budu si je muset
posouvat a hledat ten pravy
tak jsem si myslel ze pouziju TabSheet a skryju ty ouska a ono to nejde
nebo je na to nejaka lepsi komponenta?
PM
Zdenek Brejsa napsal(a):
>Ted tomu asi nerozumim: kdyz nechci videt ousko nastavim TabVisible na
>False, kdyz chci ukazat stranku nastavim PageControl.ActivePage (nezavisle
>na TabVisible)
>
>
>
>
>
>
>TDBLookUpComboBox
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 30.6.2004 08:55:47
Pomuze zmenit Style z csDropDown na csDropDownList ?
Vasek
-----Original Message-----
From: In g. Zdenek Reznicek [mailto:reznicek(zv)pce(tec)cz]
Sent: Tuesday, June 29, 2004 8:20 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: TDBLookUpComboBox
Zdravim,
mam problem s pouzitim komponenty TDBLookUpComboBox. Jde o to, ze se mi
nerozbali roleta na pozadovanzch treba 7 radku, ikdyz mam nastavenu property
DropDownRows=7. Roleta ma stale pouze jediny radek se sipkami nahoru a dolu.
Co mam nastavit, aby se to spravne rozbalilo ? Jedna se o D6. Ve starsich
verzich se mi to nestavalo.
Dik Zdenek
Pruhlednost komponenty
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 30.6.2004 08:47:46
chces pisat vlastne komponenty alebo chces aby vsetko co ma delphi bolo
alpha blendovane?
tak to prve sa da pouzitim roznych kniznic :napr. free: www.g32.org,
graph64.netgraphics.sk,
ale nie je to zrovna najednoduhsie, najlepsie by bolo napisat na co to
vlastne chces ... menu?
tak to druhe nejde ...;)
palo
TDBLookUpComboBox
[*] js-delphi(zv)quick(tec)cz - 30.6.2004 08:43:45
Ahoj.
Protoze Ti zatim nikdo neodpovedel, tak Te zkusim naklepnout ja. Nemam ted Delphi pred sebou, takze to bude jen teoreticke...
1) tusim, ze TDBLookUpBox ma nejakou property, ktera se musi zmenit - kdyz se podivas do Object inspectora, tak takovych, co by tohle mohlo ovlinit tam moc nebude
2) pokud si vzpominam, je potreba, aby byly pristupne data, takze asi bude potreba tvuj daset fetch-nout - napr. pokud mas napoujeny ten DBLookUpBox na IBQuery, tak udelas IBQuery.FetchAll, nevim jestli treba neexistuje nejaka podobna procedura i u toho DBLookUpBox-u. Nebo muzes udelat IBQuery.Last; IBQuery.First - coz udela totez - prenese data z databaze do pameti...
Snad to pomohlo a jestli kecam, tak se urcite nekdo ozve, coz Ti ve vysledku taky pomuze ;o)
Ahoj
Jirka
P.S.:Jeste mas jednu moznost - "cimrmanovsky ukrok stranou" - obyc. combobox a ten si obslouzit sam - me to vyhovuje vic...
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
----- Puvodni zprava -----
Odesilatel: "In g. Zdenek Reznicek" <reznicek(zv)pce(tec)cz>
Datum: Utery, 29.cervna 2004 - 8:20 odp.
Predmet: TDBLookUpComboBox
> Zdravim,
> mam problem s pouzitim komponenty TDBLookUpComboBox. Jde o to, ze
> se mi
> nerozbali roleta na pozadovanzch treba 7 radku, ikdyz mam
> nastavenu property
> DropDownRows=7. Roleta ma stale pouze jediny radek se sipkami
> nahoru a dolu.
> Co mam nastavit, aby se to spravne rozbalilo ? Jedna se o D6. Ve
> starsichverzich se mi to nestavalo.
>
> Dik Zdenek
>
>
>
>
>Klavesove zkratky tlacitek
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 30.6.2004 08:41:45
jo property action tam je ale nedava mi nic na vyber a kdyz do ni neco
napisu tak to vyhodi chybu
jak se nadefinuje akce aby se mi dostala do vyberu toho tlacitka?
doky PM
horky(zv)cominn(tec)cz napsal(a):
>Podivej se u tlacitka na property Action.
>Nadefinujes si akce, ke kterym priradis klavesovou zkratku, hint, ikonu, ....
>a tuto akci pak priradis k tlacitku, menu item, popup menu.
>V konferenci to bylo jiz vicekrat a vsichni si pochvalovali :-)
>
>
>
>--
>S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
>[mailto:horky(zv)cominn(tec)cz]
>
>
>
>QuickReport 4 vs PDF a RTF
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 30.6.2004 08:31:43
Chtel bzch se zeptat zda nekdo z Vas pouziva QR 4. Jde mi konkretne o export
do PDF a RTF. V PDF mne zajima jak je to s prevodem ceske kodove stranky a u
RTF bych potreboval vedet, zda je jiz opraveno prolinani jednotlivich poli.
Nebo nekdo vite o miste kde stahnout trial verzi QR4? Na QuSoft jsem nic
nenasel.
Zapletal Martin
Klavesove zkratky tlacitek
[*] horky(zv)cominn(tec)cz - 30.6.2004 08:11:41
> From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
> Sent: Tuesday, June 29, 2004 8:36 PM
> potreboval bych ovladat tlacitka stiskem jedne klavesy
> napr F1, F2,
> ESC .. (ne pouziti ALT + podtrzeny znak ).
Podivej se u tlacitka na property Action.
Nadefinujes si akce, ke kterym priradis klavesovou zkratku, hint, ikonu, ....
a tuto akci pak priradis k tlacitku, menu item, popup menu.
V konferenci to bylo jiz vicekrat a vsichni si pochvalovali :-)
> dale bych rad zarovnal text tlacitka doleva ne na stred
To si budes muset stahnout nebo vyrobit nejakou komponentu. Mrkni se na Torry.net, v sekci Buttons je toho dost, i free a se zdroji, takze se muzes poucit, jak to delaji jinde. Muj favorit je LBButtons.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Tabsheet bez zalozek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 08:01:39
Ted tomu asi nerozumim: kdyz nechci videt ousko nastavim TabVisible na
False, kdyz chci ukazat stranku nastavim PageControl.ActivePage (nezavisle
na TabVisible)> Asi jsem to spatne napsal TabVisible samozrejme znam a pouzivam
> potreboval jsem, aby obsah byl videt (pomoci TabVisible si necham
> zobrazenu jen jednu zalozku ) a chci nezobrazovat pouze to ousko nahore
>
> Zdenek Brejsa napsal(a):
>
> >Jestli mas aspon D6, pak staci nastavit TabVisible na False v designu. Od
D6
> >se skryji zalozky uz pro navrh a tedy vidis celou plochu. A kdyz nastavis
> >styl tlacitek na Flat, tak zmizi i oramovani.
> >
> >Zdenek Brejsa - HJ-SOFT
SUM zapornych a kladnych cisel (FireBird)
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.6.2004 07:51:38
ahoj,
pokud se jedna o FB 1.5, tak pouzij cond.
v pripade FB 1.0 bys moh zkusit jeste poddotaz.
peca
Tabsheet bez zalozek
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 30.6.2004 07:47:37
Asi jsem to spatne napsal TabVisible samozrejme znam a pouzivam
potreboval jsem, aby obsah byl videt (pomoci TabVisible si necham
zobrazenu jen jednu zalozku ) a chci nezobrazovat pouze to ousko nahore
Zdenek Brejsa napsal(a):
>Jestli mas aspon D6, pak staci nastavit TabVisible na False v designu. Od D6
>se skryji zalozky uz pro navrh a tedy vidis celou plochu. A kdyz nastavis
>styl tlacitek na Flat, tak zmizi i oramovani.
>
>Zdenek Brejsa - HJ-SOFT
>
>
>
>
>grid a uchovani barvy bunky pri scrollu
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 30.6.2004 07:39:36
No, WirtualDrawTree to opravdu umi, ale na takovou pomerne jednoduchou vec
je to az moc slozita komponenta a nepodarilo se mi udelat tak malou bunku
jak bych chtel(4x4). Skusim to s tim ukladanim treba do pole, ale mam
strach, ze to zpomaly cely cyklus. No uvidim.
Martin
>OnDrawCell se vola pomerne casto - vzdy, kdyz je treba bunku
> prekreslit, coz je i tehdy, kdyz je bunka necim prekryta a pak se
> odkryje. Proto asi budes muset mit nekde ulozeno, co ma byt v te ktere
> bunce za barvu (stav). Jinak to grid pri nejblizsi vhodne prilezitosti
> prekresli tim, co je v OnDrawCell nebo standardnim vzhledem. Ze bys
> nekam neco namaloval a ono tam bylo "na veky veku"...nevim nevim,
> tomu moc neverim.Tabsheet bez zalozek
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 30.6.2004 07:07:30
> napr. ve FormCreate v cyklu nastavit pro kazdy tabsheet TabVisible na
false.
>
> for i := 0 to PageControl1.PageCount - 1 do
> begin
> PageControl1.Pages[i].TabVisible := false;
> end;
>
> Zdravim
>
> Jiri Foldyna
> > pouzivam TabSheet ale potreboval bych po spusteni
> > programu zalozky
> > skryt a prepinat se jen pomoci mych tlacitek nekde bokem
> > poradil by pls nekdo jak ?
Jestli mas aspon D6, pak staci nastavit TabVisible na False v designu. Od D6
se skryji zalozky uz pro navrh a tedy vidis celou plochu. A kdyz nastavis
styl tlacitek na Flat, tak zmizi i oramovani.
Zdenek Brejsa - HJ-SOFT
SUM zapornych a kladnych cisel (FireBird)
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 30.6.2004 06:43:24
Zkus tohle - bohuzel to neumi vratit v jednom zaznamu, ale ve dvou:
select sum(cena) as cena from etssprace where cena < 1000
union all
select sum(cena) as cena from etssprace where cena >= 1000
V prvnim zaznamu je suma vsech zaznamu s cenou < 1000 a v druhem zaznamu je
cena >= 1000
HTH
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of bleak
> Sent: Tuesday, June 29, 2004 6:58 PM
>
> dekuji za odpoved, zapomnel jsem napsat, ze bych to chtel
> relizovat jen SQL
> dotazem, ne ulozenou procedurou.SUM zapornych a kladnych cisel (FireBird)
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 30.6.2004 06:49:27
Tak jeste jinak - tohle funguje rychle a vraci to v jednom radku:
select (select sum(cena) from etssprace where cena < 1000) as cena_1000,
(select sum(cena) from etssprace where cena >= 1000) as cena_1000000 from
rdb$database
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Milan Tomes
> Sent: Wednesday, June 30, 2004 6:43 AM
>
> Zkus tohle - bohuzel to neumi vratit v jednom zaznamu, ale ve dvou:
>
> select sum(cena) as cena from etssprace where cena < 1000
> union all
> select sum(cena) as cena from etssprace where cena >= 1000
Tabsheet bez zalozek
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 29.6.2004 22:30:47
Ahoj,
napr. ve FormCreate v cyklu nastavit pro kazdy tabsheet TabVisible na false.
for i := 0 to PageControl1.PageCount - 1 do
begin
PageControl1.Pages[i].TabVisible := false;
end;
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> pouzivam TabSheet ale potreboval bych po spusteni
> programu zalozky
> skryt a prepinat se jen pomoci mych tlacitek nekde bokem
> poradil by pls nekdo jak ?
SUM zapornych a kladnych cisel (FireBird)
[*] Zdenek Janis <zdenek.janis(zv)brajan(tec)cz> - 29.6.2004 21:56:43
A neumi FB neco takoveho:
select
(select sum(cislo) from tbl where cislo < 0) as zaporna,
(select sum(cislo) from tbl where cislo >= 0) as kladna;
zaporna | kladna
---------+--------
-12 | 14
(1 radka)
Odzkouseno na PostgreSQL.
bleak napsal(a):
> jen SQL
> dotazem, ne ulozenou procedurou.
--
S pozdravem
Zdenek Janis
-----------------------------
Tento e-mail neobsahuje VIRY,
jelikoz nepochazi z prostredi
systemu M$ Windows!!!
Pruhlednost komponenty
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 29.6.2004 20:34:13
Zdar, jak udelat AplhaBlend komponenty? Ne formulare...
Brona
Tabsheet bez zalozek
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 29.6.2004 20:34:12
DD,
pouzivam TabSheet ale potreboval bych po spusteni programu zalozky
skryt a prepinat se jen pomoci mych tlacitek nekde bokem
poradil by pls nekdo jak ?
diky PM
Klavesove zkratky tlacitek
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 29.6.2004 20:36:14
dd,
potreboval bych ovladat tlacitka stiskem jedne klavesy napr F1, F2,
ESC .. (ne pouziti ALT + podtrzeny znak ).
je to mozne ? kde se to konfiguruje ?
dale bych rad zarovnal text tlacitka doleva ne na stred a take se mi to
nepodarilo nikde najit
poradi nekdo ?
diky PM
Pruhlednost casti formulare
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 29.6.2004 20:32:11
zdar, potreboval bych (bud a nebo)
1/ Udelat pruhlednou cast formulare (obdelnik)
2/ Nastavit AlphaBlend jenom formulari (ne prvkum na nem!)
pruhlednosti myslim Alpha, nikoliv transparency :), potrebuji na pruhlednou
cast klikat
Diky
Brona
TDBLookUpComboBox
[*] In g. Zdenek Reznicek <reznicek(zv)pce(tec)cz> - 29.6.2004 20:20:09
Zdravim,
mam problem s pouzitim komponenty TDBLookUpComboBox. Jde o to, ze se mi
nerozbali roleta na pozadovanzch treba 7 radku, ikdyz mam nastavenu property
DropDownRows=7. Roleta ma stale pouze jediny radek se sipkami nahoru a dolu.
Co mam nastavit, aby se to spravne rozbalilo ? Jedna se o D6. Ve starsich
verzich se mi to nestavalo.
Dik Zdenek
MMQ - Microsoft Message Queuing Service
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 29.6.2004 18:43:58
Vsechny zdravim,
Mate s timto "nastrojem" nekdo nejake prakticke zkusenosti? Je opravdu spolehlivy?
Neexistuje jine hotove reseni "jisteneho" (logovaneho) on-line provozu?
Jde mi o vytvoreni kasy, ktera by mohla nejakou dobu jit i off-line a pri opetovnem navazani spojeni by se uskutecnene prodeje vyridili (zapsali na server).
Jak toto resite? Pokud to resite..
Dekuji za pripadne odpovedi
JR
SUM zapornych a kladnych cisel (FireBird)
[*] bleak <bleak(zv)mvesely(tec)com> - 29.6.2004 18:58:03
dekuji za odpoved, zapomnel jsem napsat, ze bych to chtel relizovat jen SQL
dotazem, ne ulozenou procedurou.
Ale asi vyuziji vas navrh.
bleak
----- Original Message -----
From: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 29, 2004 5:49 PM
Subject: Re: SUM zapornych a kladnych cisel (FireBird)> > CREATE PROCEDURE SOUCTY
> > RETURNS (
> > KLADNA INTEGER,
> > ZAPORNA INTEGER
> > )
> > AS
> > DECLARE VARIABLE POMOCNA INTEGER;
> > BEGIN
> > KLADNA = 0;
> > ZAPORNA = 0;
> > FOR SELECT CISLO FROM TABULKA INTO :POMOCNA
> > DO
> > IF (:POMOCNA<0) THEN
> > BEGIN
> > ZAPORNA = ZAPORNA + :POMOCNA;
> > END ELSE BEGIN
> > KLADNA = KLADNA + :POMOCNA;
> > END
> >
> > SUSPEND;
> > END
> >
> > Pisu to rovnou sem, tak doufam, ze tam neni chyba :) Rosta.
>
> Myslim, ze v tom selecte si zabudol podmienku WHERE CISLO IS NOT NULL.
>
> HTH
> TOndrej
>
>SUM zapornych a kladnych cisel (FireBird)
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 29.6.2004 18:56:02
----- Original Message -----
From: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 29, 2004 5:49 PM
Subject: Re: SUM zapornych a kladnych cisel (FireBird)> > CREATE PROCEDURE SOUCTY
> > RETURNS (
> > KLADNA INTEGER,
> > ZAPORNA INTEGER
> > )
> > AS
> > DECLARE VARIABLE POMOCNA INTEGER;
> > BEGIN
> > KLADNA = 0;
> > ZAPORNA = 0;
> > FOR SELECT CISLO FROM TABULKA INTO :POMOCNA
> > DO
> > IF (:POMOCNA<0) THEN
> > BEGIN
> > ZAPORNA = ZAPORNA + :POMOCNA;
> > END ELSE BEGIN
> > KLADNA = KLADNA + :POMOCNA;
> > END
> >
> > SUSPEND;
> > END
> >
> > Pisu to rovnou sem, tak doufam, ze tam neni chyba :) Rosta.
>
> Myslim, ze v tom selecte si zabudol podmienku WHERE CISLO IS NOT NULL.
>
> HTH
> TOndrej
Anebo jsem predpokladal field not null ? :))))
Jasne, mas pravdu, ale tohle je jenom nakopnuti ...
Rosta
SUM zapornych a kladnych cisel (FireBird)
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.6.2004 17:49:53
> CREATE PROCEDURE SOUCTY
> RETURNS (
> KLADNA INTEGER,
> ZAPORNA INTEGER
> )
> AS
> DECLARE VARIABLE POMOCNA INTEGER;
> BEGIN
> KLADNA = 0;
> ZAPORNA = 0;
> FOR SELECT CISLO FROM TABULKA INTO :POMOCNA
> DO
> IF (:POMOCNA<0) THEN
> BEGIN
> ZAPORNA = ZAPORNA + :POMOCNA;
> END ELSE BEGIN
> KLADNA = KLADNA + :POMOCNA;
> END
>
> SUSPEND;
> END
>
> Pisu to rovnou sem, tak doufam, ze tam neni chyba :) Rosta.
Myslim, ze v tom selecte si zabudol podmienku WHERE CISLO IS NOT NULL.
HTH
TOndrej
SUM zapornych a kladnych cisel (FireBird)
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 29.6.2004 17:35:52
CREATE PROCEDURE SOUCTY
RETURNS (
KLADNA INTEGER,
ZAPORNA INTEGER
)
AS
DECLARE VARIABLE POMOCNA INTEGER;
BEGIN
KLADNA = 0;
ZAPORNA = 0;
FOR SELECT CISLO FROM TABULKA INTO :POMOCNA
DO
IF (:POMOCNA<0) THEN
BEGIN
ZAPORNA = ZAPORNA + :POMOCNA;
END ELSE BEGIN
KLADNA = KLADNA + :POMOCNA;
END
SUSPEND;
END
Pisu to rovnou sem, tak doufam, ze tam neni chyba :) Rosta.
----- Original Message -----
From: "bleak" <bleak(zv)mvesely.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 29, 2004 5:01 PM
Subject: OT: SUM zapornych a kladnych cisel (FireBird)> zdravim,
> potrebuji udelat jednim SQL dotazem soucet cisel z jednoho sloupce tabulky
> do vysledku s dvema sloupci, tak aby v jednom byla secteny kladna a v
druhem
> zaporna cisla. Zkousel jsem laborovat s LEFT JOIN ale dotaz trval tak
> dlouho, ze jsem to stopnul.
> Prosim o tipy jak to resit... Jde to vubec?
>
> bleak
>
>
>
>
>IB/FB - zmena typu sloupce, na ktery se dokazuje p
[*] Marek Spisak <spishark(zv)post(tec)cz> - 29.6.2004 17:19:49
js-delphi(zv)quick(tec)cz wrote:
>Ahoj panove!
>Mam databazi, ktera je na ruznych mistech CR a vyvoj aplikace jde stale vpred. To zpusobuje nekdy rozdily v databazove strukture, coz resime jakymsi patchem, ktery uvede starou databazi do soucasneho chteneho stavu.
>Obcas potrebuji zmenit typ sloupce (pridat vice znaku do VarChar atd) a mam vyzkouseno, ze to nejde jinak, nez pridat do tabulky dalsi sloupec, ten naplnit daty, puvodni sloupec dropnout a ted mam problem - pokud mam nejake procedury, ktere tento sloupec pouziva.
>Existuje nejaky zpusob, jak ten sloupec dropnout aniz bych pred tim musel dropnout tu proceduru? Ono je to potom strasne zdlouhave - kdyz mam treba takove 3 procedury, ktere dany sloupec vyzaduji...
>Diky za odpoved
>Jirka
>
>
>
Zdravim,
dalo by se to resit treba tak, ze se zavola ALTER PROCEDURE s prazdnym
telem, provede se zmena typu a potom zase alter s telem vcetne zmeneneho
sloupce.
Marek
instalace FireBird 1.5 na Win95
[*] delphi(zv)mjsoft(tec)cz - 29.6.2004 17:07:47
Zdravim,
lze provozovat kombinaci viz %subj%? Nejprve me to pri instalaci
hlasilo ze nemam WinSock2. Ten jsem si sehnal a nainstaloval. Firebird
se nainstaluje, ale po spusteni meho programu to hlasi dalsi chybu
"Soubor MSVCP60.dll je propojen na chybejici export
MSVCRT.DLL:__lc_collate_cp". Co vsechno se musi udelat pro zprovozneni.
Diky predem
Karel Vomacka
OT: SUM zapornych a kladnych cisel (FireBird)
[*] bleak <bleak(zv)mvesely(tec)com> - 29.6.2004 17:01:46
zdravim,
potrebuji udelat jednim SQL dotazem soucet cisel z jednoho sloupce tabulky
do vysledku s dvema sloupci, tak aby v jednom byla secteny kladna a v druhem
zaporna cisla. Zkousel jsem laborovat s LEFT JOIN ale dotaz trval tak
dlouho, ze jsem to stopnul.
Prosim o tipy jak to resit... Jde to vubec?
bleak
IB/FB - zmena typu sloupce, na ktery se dokazuje p
[*] js-delphi(zv)quick(tec)cz - 29.6.2004 16:27:42
Ahoj panove!
Mam databazi, ktera je na ruznych mistech CR a vyvoj aplikace jde stale vpred. To zpusobuje nekdy rozdily v databazove strukture, coz resime jakymsi patchem, ktery uvede starou databazi do soucasneho chteneho stavu.
Obcas potrebuji zmenit typ sloupce (pridat vice znaku do VarChar atd) a mam vyzkouseno, ze to nejde jinak, nez pridat do tabulky dalsi sloupec, ten naplnit daty, puvodni sloupec dropnout a ted mam problem - pokud mam nejake procedury, ktere tento sloupec pouziva.
Existuje nejaky zpusob, jak ten sloupec dropnout aniz bych pred tim musel dropnout tu proceduru? Ono je to potom strasne zdlouhave - kdyz mam treba takove 3 procedury, ktere dany sloupec vyzaduji...
Diky za odpoved
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
grid a uchovani barvy bunky pri scrollu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 29.6.2004 16:05:35
Ahoj,
jestlize pouzivas nejaky drawgrid, nemel by byt problem si stav
(jeden byte az integer) ulozit nekam do jeho bunky a pri malovani se jim
ridit.
pokud by to byl byte (at si klidne nezavisle pole [x, y] of byte, kdyz
ne primo do gridu), tak je to 100 000 B = necelych 100KB pameti. to by
imho slo i na strojich s par megama RAMky.
peca
grid a uchovani barvy bunky pri scrollu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.6.2004 15:59:34
> A to prave nechci, nedokazu si predstavit ukladani treba 100 000
> polozek.
> > Uloz si nekam vysledek volani funkce a potom si zavolej refresh
> komponenty -
Ahoj,
OnDrawCell se vola pomerne casto - vzdy, kdyz je treba bunku
prekreslit, coz je i tehdy, kdyz je bunka necim prekryta a pak se
odkryje. Proto asi budes muset mit nekde ulozeno, co ma byt v te ktere
bunce za barvu (stav). Jinak to grid pri nejblizsi vhodne prilezitosti
prekresli tim, co je v OnDrawCell nebo standardnim vzhledem. Ze bys
nekam neco namaloval a ono tam bylo "na veky veku"...nevim nevim,
tomu moc neverim.
David Lebeda
grid a uchovani barvy bunky pri scrollu
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 29.6.2004 15:29:28
A to prave nechci, nedokazu si predstavit ukladani treba 100 000 polozek. A
to nikdy predem nevim kolik toho bude. Jak to ma udelany treba FlashGet?
Martin
> Uloz si nekam vysledek volani funkce a potom si zavolej refresh
komponenty -
> delam to taky tak a funguje to velice svizne i pro tabulku 50 x 300.
> Po volani te funkce a ulozeni vysledku zavolej:
>
> dgSklad.Repaint;Miznutie "DataSet"
[*] Hutyra Slavomir <hutyra(zv)promys.sk> - 29.6.2004 15:29:27
Mam D6. Pouzivam preddefinovane formulare v ktorych su aj componenty
DataSource. Tieto dedim a v zdedenich formularov miznene vlastnost
"DataSet". Ak mam unit otvoreny v editacnom okne nic snim nemusim robit a
sam sa vymaze. Ak nemam unit otvoreny tak je vsetko OK.
Riesil som to priradenim tejto hodnoty pri vytvoreni formulara, ale pri
ladeni tlacovych prehladoch potrebujem mat dataset zadany aj pri ladeni. Diky za odpoved
Jak zjistit aktivni port protokolu TCP?
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 29.6.2004 15:27:26
Dobry den,
mam vytvoreny program, ktery nasloucha na portu 8090 na pocitaci
(TIdTCPServer). Jde otestovat, zda je port zivy jinou metodou, nez pouzit
TIdTCPClient.Connect a nasledne dostat vyjimku, pokud dany program na
pocitaci nebezi?
Je nejake reseni bez toho, abych poutil try-finally-end? Nejaka fce, ktera
mi otestuje zvoleny port? Melo by to jit s pomoci zaslani packetu SYN a
ne/prijetim packetu SYN ACK, ale nevim jak na to...
Predem dekuji za rady a preji hezky den.
S pozdravem
Frantisek Bohac
grid a uchovani barvy bunky pri scrollu
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 29.6.2004 15:09:24
Uloz si nekam vysledek volani funkce a potom si zavolej refresh komponenty -
delam to taky tak a funguje to velice svizne i pro tabulku 50 x 300.
Po volani te funkce a ulozeni vysledku zavolej:
dgSklad.Repaint; Lukas
> no jo, ale ty to asi nacitas jednorazove a vsechny hodnoty znas a pak to
> funguje. ale ja potrebuji pri vytvoreni formu udelat prazdne bunky(na to
> pouziju OnDrawCell). Potom spustim nejakou funkci a potrebuji na zaklade
> vysledku funkce obarvit prislusnou bunku, odpovidajici poradi cyklu. napr
> 1=cells[0,0] cervena, 2=cells[0,1] zelena atd. takze prvni obarvim OK,
dalsi
> ok, ale uz nevim jak na tom byla ta prvni. Tak ted nevim co delam spatne.
Uz
> jsem z toho srnka.
>grid a uchovani barvy bunky pri scrollu
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 29.6.2004 15:01:22
no jo, ale ty to asi nacitas jednorazove a vsechny hodnoty znas a pak to
funguje. ale ja potrebuji pri vytvoreni formu udelat prazdne bunky(na to
pouziju OnDrawCell). Potom spustim nejakou funkci a potrebuji na zaklade
vysledku funkce obarvit prislusnou bunku, odpovidajici poradi cyklu. napr
1=cells[0,0] cervena, 2=cells[0,1] zelena atd. takze prvni obarvim OK, dalsi
ok, ale uz nevim jak na tom byla ta prvni. Tak ted nevim co delam spatne. Uz
jsem z toho srnka.
Martin
> procedure TfrSklad.dgSkladDrawCell(Sender: TObject; ACol, ARow: Integer;
> Rect: TRect; State: TGridDrawState);
> var i:integer;
> begin
> with Sender as TDrawGrid do
> begin
> if rezervace[ACol,ARow].stav=1 then
> Canvas.Brush.Color := clYellow
> else if rezervace[ACol,ARow].stav=2 then
> Canvas.Brush.Color := clBlue
> else if rezervace[ACol,ARow].stav =3 then
> Canvas.Brush.Color := clRed
> else if rezervace[ACol,ARow].stav =4 then
> Canvas.Brush.Color := clGreen
> else
> Canvas.Brush.Color := clWhite;
> Canvas.FillRect(Rect);
> end;
> end;problem s pristupem na stranky elektlabs - was: Fi
[*] OndraG <gebakonf(zv)centrum(tec)cz> - 29.6.2004 13:41:14
Nasel jsem to na
http://www.elektlabs(tec)cz:81/firebird/pswd_udf/pswd_udf.html(tec)cz
OndraG
>
> > http://elekt/firebird/pswd_udf/pswd_udf.html(tec)cz
> > http://www.dbsvet(tec)cz/view.php?cisloclanku=2004041701
>
> Ahoj.
> Omlouvam se za OT, ale mate nekdo taky problemy s vyse uvedenyma adresama
nebo jenom ja? V tom prvnim je zrejme preklep, tak jsem zkusil jit pres ten
clanek na db_svetu, ale ani z nej se na stranky elekt labs NELZE dostat -
nejcasteji mi to hlasi, ze z duvovdu malych pristupovych prav ci co.
Firebird - vytvoreni uzivatele s diakritikou pro p
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 29.6.2004 13:45:15
Ahoj,
ja to musel zadat takto:
http://www.elektlabs(tec)cz:81/firebird/pswd_udf/pswd_udf.html(tec)cz
kazdopadne diky :o)
Peca
Slavomir Skopalik napsal(a):
> Chybicka se vloudi, tady je spravny link viditelny i z venku:
> http://www.elektlabs(tec)cz/firebird/pswd_udf/pswd_udf.html(tec)cz
Firebird - vytvoreni uzivatele s diakritikou pro p
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 29.6.2004 13:39:13
Chybicka se vloudi, tady je spravny link viditelny i z venku:
http://www.elektlabs(tec)cz/firebird/pswd_udf/pswd_udf.html(tec)cz
Slavek
> http://elekt/firebird/pswd_udf/pswd_udf.html(tec)cz
OT: problem s pristupem na stranky elektlabs - was
[*] js-delphi(zv)quick(tec)cz - 29.6.2004 13:27:07
Odesilatel: Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz>
> http://elekt/firebird/pswd_udf/pswd_udf.html(tec)cz
> http://www.dbsvet(tec)cz/view.php?cisloclanku=2004041701
Ahoj.
Omlouvam se za OT, ale mate nekdo taky problemy s vyse uvedenyma adresama nebo jenom ja? V tom prvnim je zrejme preklep, tak jsem zkusil jit pres ten clanek na db_svetu, ale ani z nej se na stranky elekt labs NELZE dostat - nejcasteji mi to hlasi, ze z duvovdu malych pristupovych prav ci co.
Snazil jsem se psat primo na soukro mail Slavka Skopalika, ale to se mi taky vratilo jako nedorucitelne, tak se obracim na Vas, zda jste treba nekdo uvedene stranky nenavstivil a nestahl jste si nekdo jejich obsah.
Diky, Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Jak ma vypadat kompatibilita programu s Oracle eBu
[*] little_bobes(zv)centrum(tec)cz - 29.6.2004 12:53:04
Zdravim,
byl jsem dotazan, zda je muj program v Delphi + FB 1.5 kompatibilni s Oracle
eBusiness.
Co musi splnovat program, aby byl s Oracle eBussines kompatibilni?
Diky za odpovedy
Bob
(D4 c/s, FB 1.5)Request live a Oracle
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 29.6.2004 12:35:02
nevim jestli uz nekdo odpovidal a ja nemuzu odpovidat do diskuze tak
zkusim poradit primo:
neni problem s nazvem tabulky (pripadne sloupcu) - mala velka pismena ?
neni v tom selectu i nejake trideni ?
nejaka podminka (napriklad na MSSQL nefunguje neco IN (xxx,yyy,aaa) ...
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Faltynek
> Sent: Monday, June 28, 2004 2:44 PM
> To: KonferenceDELPHI(zv)m-pro(tec)cz
> Subject: Request live a Oracle
>
> Ahoj programatori,
> nevite nekdo prosim vas, proc kdyz nastavim v SQL komponente
> RequestLive na TRUE a otevru jej prikazem Query1.open nebo
> treba i v navrhu formulare nastavenim Active na TRUE, nabehne
> chyba ORA 00942 tabulka nebo pohled neexistuje?
> Pritom pokud je RequestLive = FALSE, dotaz probehne v
> poradku. Jedna se pritom jenom o dotaz typu SELECT * from
> TABULKA, dotazy otevirane pomoci QUERY1.EXECSQL jako update,
> delete atd. funguji, takze pristupovymi pravy to asi nebude.
> Pripojuji se pres nativni ovladac BDE ORACLE, verze delphi je
> 5 Enterprise, verze Oracle je 8 personal. Pritom v SQL
> exploreru muzu udaje v tabulce bez problemu menit. Ze bych
> potreboval nejakou zaplatu? A ted nevim jestli na BDE nebo na hlavu.
>
> Diky za radu
> Dalibor Faltynek
> Orgrez, a. s.
> tel: +420 541 613 312, 291
> fax:+420 541 613 299
> e-mail: dalibor.faltynek(zv)orgrez(tec)cz
>
Firebird - vytvoreni uzivatele s diakritikou pro p
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 29.6.2004 11:58:59
http://elekt/firebird/pswd_udf/pswd_udf.html(tec)cz
http://www.dbsvet(tec)cz/view.php?cisloclanku=2004041701
Jinak bych ti doporucoval ODSTRANIT cestinu z loginu, tam nema co delat.
Duvody jsi uvedl sam, pridal bych dalsi:
1. ne kazdy komp ma ceskou klavesnici
2. prihlaseni anglicana asi bude pro nej neresitelny problem
3. Problemy s prevodem mezi kodovymi strankami.
Slavek
> vytvarim program (drive v Delphi, nyni v PHP, ale to je
> nepodstatne) pouzivajici FB 1.5, do ktereho se musi uzivatel
> prihlasovat jmenem a heslem. Na zaklade jmena (seznam jmen
> mam ve sve tabulce) ma pote povolene urcite funkce. Doposud
> jsem vsechny uzivatele prihlasoval k databazi jako jednoho
> uzivatele (zatim si totiz data pouze prohlizeli). Nyni uz ale
> uzivatele budou moci do databaze zapisovat a jelikoz pri
> zapisu pouzivam v triggerech promenou USER, potrebuji, aby se
> mi primo k databazi prihlasovali pod svymi loginy. Proto
> potrebuji tyto uzivatele vlozit i do bezpecnostni databaze.
> Narazim ale na ceske znaky ve jmenech i heslech. Kdyz totiz
> spustim prikaz gsec, narazim na to, ze prostredi Windows
> (napr. anglicke), resp. prikazova radka, znici cestinu.
>
> Poradite mi nekdo, jak lze jinak pridat nove uzivatele, abych
> nemusel pouzivat prikazovou radku at uz pomoci Delphi, tak
> treba i pomoci PHP.Hledam komponentu pro SOAP do D5
[*] Petr Vones <konference(zv)petrvones(tec)net> - 29.6.2004 11:44:58
From: "Jiri DAVID" <j_david(zv)telemarketing(tec)cz>
> nevi nekdo o komponente pro SOAP do Delphi 5, pripadne odkaz, kde je
> problematika SOAP vysvetlena. V archivu konference jsem nasel pouze, ze
> Delphi to podporuje az od verze 6.
Jde o klienta nebo server ? Ona ta podpora v Delphi 6 taky neni zadna slava.
Moznosti jsou:
IndySOAP (zdarma) http://www.indyproject.org/SOAP/
RemObjects (komercni) http://www.remobjects.com/
V pripade ze je webservice napsana v .NETu a vraci napriklad jeho Dataset je
situace jeste slozitejsi. Pokud je to mozne tak bych doporucil pro webservice
pouzit nejaky .NETovy nastroj.
Petr Vones
Firebird - vytvoreni uzivatele s diakritikou pro p
[*] horky(zv)cominn(tec)cz - 29.6.2004 11:38:56
> From: little_bobes(zv)centrum(tec)cz [mailto:little_bobes(zv)centrum(tec)cz]
> Sent: Tuesday, June 29, 2004 11:09 AM
> vytvarim program (drive v Delphi, nyni v PHP, ale to je nepodstatne)
> pouzivajici FB 1.5, do ktereho se musi uzivatel prihlasovat
> jmenem a heslem.
> Proto potrebuji tyto uzivatele vlozit i do bezpecnostni databaze.
> Poradite mi nekdo, jak lze jinak pridat nove uzivatele, abych nemusel
> pouzivat prikazovou radku at uz pomoci Delphi, tak treba i pomoci PHP.
Na FB 1.0.3 uspesne pouzivam pro vkladani uzivatelu komponenty ze zalozky Interbase Admin:
IBSS: TIBSecurityService;
Takto pridam noveho usera:
IBSS.UserName := aJmeno;
IBSS.Password := aHeslo;
IBSS.FirstName := aPopis1;
IBSS.MiddleName := aPopis2;
IBSS.LastName := aPopis3;
IBSS.AddUser;
Na jmena s diakritikou jsem to ale nepouzil, takze vyzkousej sam.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz] Problemy s QRImage
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 29.6.2004 11:16:53
Jaromir Cermak <cermak(zv)procom(tec)cz> wrote:
> Nekdy se ale stava, ze se bud nevytiskne vubec,
> nebo se misto ni vytiskne cerny flek. Nevite nekdo cim to? Mohlo by
> to souviset s prechodem na win XP?
Bohuzel, nejsi v tom sam.
Tento problem mame s QR take, a to jak s normalni tak s databazovou verzi
QRImage, pri tisku se bud vykresli spravne nebo je misto ni cerna plocha.
Kdyz se tisk sestavy opakuje, je vysledek jiny. Chyba se stava nekdy zridka,
nekdy jde o kazdy druhy obrazek v sestave, nekdy pomuze kdyz se tisk provadi
na jinem pocitaci (stejny OS, stejnym driver tiskarny), nekdy ani to
nepomuze.
Nahodilost bez moznosti ladeni je pekne otravna.
Netusite nekdo?
Martin Schayna
Firebird - vytvoreni uzivatele s diakritikou pro p
[*] little_bobes(zv)centrum(tec)cz - 29.6.2004 11:08:52
Zdravim,
vytvarim program (drive v Delphi, nyni v PHP, ale to je nepodstatne)
pouzivajici FB 1.5, do ktereho se musi uzivatel prihlasovat jmenem a heslem.
Na zaklade jmena (seznam jmen mam ve sve tabulce) ma pote povolene urcite
funkce.
Doposud jsem vsechny uzivatele prihlasoval k databazi jako jednoho uzivatele
(zatim si totiz data pouze prohlizeli).
Nyni uz ale uzivatele budou moci do databaze zapisovat a jelikoz pri zapisu
pouzivam v triggerech promenou USER, potrebuji, aby se mi primo k databazi
prihlasovali pod svymi loginy.
Proto potrebuji tyto uzivatele vlozit i do bezpecnostni databaze.
Narazim ale na ceske znaky ve jmenech i heslech.
Kdyz totiz spustim prikaz gsec, narazim na to, ze prostredi Windows (napr.
anglicke), resp. prikazova radka, znici cestinu.
Poradite mi nekdo, jak lze jinak pridat nove uzivatele, abych nemusel
pouzivat prikazovou radku at uz pomoci Delphi, tak treba i pomoci PHP.
Diky Bob
(D4 c/s, FB1.5)grid a uchovani barvy bunky pri scrollu
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 29.6.2004 11:00:51
Me to v Delphi 7 Pro funguje.
Kreslim na grid v OnDrawCell eventu asi takto:
procedure TfrSklad.dgSkladDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i:integer;
begin
with Sender as TDrawGrid do
begin
if rezervace[ACol,ARow].stav=1 then
Canvas.Brush.Color := clYellow
else if rezervace[ACol,ARow].stav=2 then
Canvas.Brush.Color := clBlue
else if rezervace[ACol,ARow].stav =3 then
Canvas.Brush.Color := clRed
else if rezervace[ACol,ARow].stav =4 then
Canvas.Brush.Color := clGreen
else
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect);
end;
end;> Podle nejakeho stavu akce menim barvu bunky v gridu. Pokud je ale bunek
vic
> a musi se scrolovat tak vse co se na zacatku zmenilo, zmizi. Nevite jak
> jednoduse tyto zmeny pamatovat? Probiha to v celkem casove narocne operaci
a
> zapisovani nekam a opetovne cteni by strasne cely proces zpomalilo. nemate
> nekdo nejaky napad? Hral jsem si i s kreslenim primo na canvas, ale tam je
> to pri scrolu stejne. velikost bunky musi byt 4x4 nebo 5x5. Take by to
melo
> byt co nejmensi. Existuje par komponent co to zvladnou, ale cim jednodusi
> tim lepsi. Pred casem jsem to zde castecne resil, a byl mi doporucen
> WirtualDrawTree ale to je pro tento ucel zbytecne slozite reseni.
>
> Zapletal Martin
grid a uchovani barvy bunky pri scrollu
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 29.6.2004 10:54:49
Podle nejakeho stavu akce menim barvu bunky v gridu. Pokud je ale bunek vic
a musi se scrolovat tak vse co se na zacatku zmenilo, zmizi. Nevite jak
jednoduse tyto zmeny pamatovat? Probiha to v celkem casove narocne operaci a
zapisovani nekam a opetovne cteni by strasne cely proces zpomalilo. nemate
nekdo nejaky napad? Hral jsem si i s kreslenim primo na canvas, ale tam je
to pri scrolu stejne. velikost bunky musi byt 4x4 nebo 5x5. Take by to melo
byt co nejmensi. Existuje par komponent co to zvladnou, ale cim jednodusi
tim lepsi. Pred casem jsem to zde castecne resil, a byl mi doporucen
WirtualDrawTree ale to je pro tento ucel zbytecne slozite reseni.
Zapletal Martin
Hledam komponentu pro SOAP do D5
[*] Jiri DAVID <j_david(zv)telemarketing(tec)cz> - 29.6.2004 09:16:40
Dobry den,
nevi nekdo o komponente pro SOAP do Delphi 5, pripadne odkaz, kde je
problematika SOAP vysvetlena. V archivu konference jsem nasel pouze, ze
Delphi to podporuje az od verze 6.
Predem diky
Jirka
combobox
[*] Marek Spisak <spishark(zv)post(tec)cz> - 29.6.2004 08:50:37
prgx(zv)email(tec)cz wrote:
>Ahoj. Poradte mi vhodnou komponentu - combobox, ktera umi (podobne jako ms access) zobrazovat v rozbalenem seznamu dva i vice sloupcu (napr. id,nazev...). Diky, prgx (delphi 5 e
>
napr.: TRxDBLookupCombo component z RX Lib
Marek
Description
Data aware combo box with look up.
The TRxDBLookupCombo visual interface component provides your end-users
with the ability to select a value for a field from a drop-down list of
values that is populated from a second lookup table.
If TRxDBLookupCombo is linked to a lookup field component, it
automatically reads the relationship between the field value and the
lookup values in the lookup dataset from the field component. The
relationship between field values and the corresponding values in the
lookup dataset can also be explicitly set using the properties of the
lookup combo box when the combo box is not linked toa lookup field
component.
This component provides the following:
? You can select any number of fields to be displayed in the
drop-down list.
==========================================================
? End-users can incrementally search through the lookup list by
directly typing into the combo control while the lookup list is
displayed. This is a great advantage when using lookup tables that
contain hundreds of even thousands of records.
? You can perform a lookup on a Query or QBE result. It even
incrementally searches on the query result.
? The component does not have to be bound, or assigned, to a table's
field (DataField and DataSource properties) which gives you greater
flexibility in using this LookupCombo for general tasks where a source
table is not involved.
If DataSource and DataField properties is set, when a user selects a
list item, the corresponding field value is changed in the underlying
dataset.
If IgnoreCase property is True (default), the incrementally search
through the lookup list is processed without regard to case in the
dataset's data.
If IndexSwitch property is True (default) and TTable component is linked
to the LookupSource, the incrementally search will use available indices
of lookup table.
The DisplayEmpty property allows you specify the text value to display
when no item is selected from the lookup list. If DisplayEmpty set to
the non-empty string, this value will be show in the drop-down list
additionaly to the lookup items.
Use DropDownAlign property to specify how the drop-down list is aligned
relative to its edit box.
Use an OnGetImage event to specify graphical picture to display in each
item of lookup list accordingly to the contents of lookup source.
Write an OnChange event handler to take specific action immediately
after the user selects an item from the list and the Value property changed.
synapse a UDP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.6.2004 08:30:34
> Ahoj, mam mensi problem se Synapsi. Chci nabirat data z UDP, ale nejak
> nemuzu. Soket otviram takto...
>
> sock:= TUDPBlockSocket.Create;
> sock.OnStatus:=MySockOnStatus;
> sock.OnReadFilter:=MySockReadFilter;
> sock.CreateSocket;
> sock.Bind('192.168.0.77', '7373');
>
> no a kdyz uz se mi to povede, vidim (na Keriu) ze mi tam data tecou,
> ale do MySockOnStatus ani MySockReadFilter mi to nespadne.
>
> Vi nekdo kde udelali soudruzi z NDR chybu?
Ten soudruh jsi v tomto pripade ty. ;-) Chyba je v tom, ze ti uniklo,
ze Synapse je synchronni knihovna, tedy ze zadny event na oznamovani
prichopzich dat nema! ostatne i v dokumentaci je psano, ze treba
event OnStatus slouzi na monitorovnai komunikace... ne na vlastni
komunikaci!
kazdopadne je to napsane i ve FAQ... viz.
http://www.synapse.ararat(tec)cz/wiki/index.php?page=FAQ a otazka: "Where
Is The Event For Reading Data?"
Pokud chces prijimat UDP packety a nevis, kdy packety prijdou (tedy
UDP server), podivej se treba na demo SNMP agenta. Ta mas krasny
priklad, jak se to dela.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.combobox
[*] prgx(zv)email(tec)cz - 28.6.2004 23:13:53
Ahoj. Poradte mi vhodnou komponentu - combobox, ktera umi (podobne jako ms access) zobrazovat v rozbalenem seznamu dva i vice sloupcu (napr. id,nazev...). Diky, prgx (delphi 5 e)
Jak zjistit barvu z obrazku?
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 28.6.2004 20:23:39
Ahoj,
fce Pixels vraci normalne TColor, cili muzes testovat zda je rovno clRed, clBlue apod. nebo muzes vyuzit tyto funkce, ktere ti vrati hodnoty RGB v rozmezi 0-255:
GetRValue(Color);
GetGValue(Color);
GetBValue(Color);
Ales
> -----Original Message-----
> From: Michael Janecek [mailto:mjanecek(zv)astapra(tec)cz]
>
> Mam nasledujici dotaz: Pomoci bmp.Canvas.Pixels[x,y]
> zjistim barvu na
> obrazku, jak ale urcim, jestli je to seda, modra, nebo jaka?
> Vraci mi to
> totiz hodnoty od 0 po 16000000.Jak zjistit barvu z obrazku?
[*] Michael Janecek <mjanecek(zv)astapra(tec)cz> - 28.6.2004 20:11:38
Zdravim,
Mam nasledujici dotaz: Pomoci bmp.Canvas.Pixels[x,y] zjistim barvu na
obrazku, jak ale urcim, jestli je to seda, modra, nebo jaka? Vraci mi to
totiz hodnoty od 0 po 16000000.
Poradi nekdo?
M.Field index out of range
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 28.6.2004 19:21:33
Uz to jede.
> Patrne jsou fieldy Query chybne napojene na sloupce gridu. Podivej se take
> na OnShow ci OnActivate formu, jestli se tam nedeje nejaka nedobrota. Zkus
> misto TQuery vytvorit TTable a over si, ze se grid zobrazuje dobre. Mohlo
by
> take pomoct misto Select * napsat select ... a vycet potrebnych sloupcu.
To jsem prave vsechno kontroloval a bylo to v poradku, nakonec byla chyba v
tom, ze puvodni autor v programu nastavoval property TTable.IndexName na
jmeno neexistujiciho sloupce! (nechapu, bylo to prolezle celym programem na
mnoha mistech a nedochazi mi, jaky to melo mit vyznam - sortovani je
vyresene pomoci ORDER BY nebo samo o sobe, takze otaznik).
Tak snad uz to je v poradku, diky za namety.
Andreas
Stream z IB
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 28.6.2004 19:05:31
Jeste me napada jina metoda: Musi byt ty data vcelku ? Nedaly by se rozsekat
do mensich bloku a tahat je postupne ?
Nevim, co to je za data, ale predpokladam treba muziku. Byly by dve tabulky,
jedna seznam skladeb, druha vlastni data. Ta druha by mela odkaz na tu
skladbu, poradove cislo a blob. Ten blob by mel velikost bloku streamu....
Tomas
> no jo, ale to by ten app. server tahal tie data k sebe v celku (200MB)
> a potom ich streamoval ku klientovy - klient je odlahceny ale app. server
> tie data vystracha od IB aj tak v celku :o( a zaplni si pamat pri
> viacerych konektnutych klientoch.
> ako som napisal, asi je jedina schodna cesta urobit si na to UDF a klienta
> k tomu prisposobit.
Field index out of range
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.6.2004 17:33:23
Patrne jsou fieldy Query chybne napojene na sloupce gridu. Podivej se take
na OnShow ci OnActivate formu, jestli se tam nedeje nejaka nedobrota. Zkus
misto TQuery vytvorit TTable a over si, ze se grid zobrazuje dobre. Mohlo by
take pomoct misto Select * napsat select ... a vycet potrebnych sloupcu.
Patrne je problem ve strukture tabulky.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant>
> nemohu prijit na to co mi zpusobuje hlasku %SUBJ%. Pracuji s Paradoxovou
> tabulkou v Dephi 4 (jedna se o starsi projekt).
>
> Upresnim:
> 1. v Query1 proveden SQL dotaz 'select * from TABLE1 where FIELD1 = n'
> 2. Nasledne je otevren formular (ShowModal) na nemz je DBGrid napojeny na
> Query1
>
> Vznikne vyse zminena vyjimka a ve zpracovani programu nejde pokracovat, po
> F9 se hlaseni o chybe opakuje stale na ShowModal.
>
> Zdrojova tabulka se zda byt konzistentni (kontrolovano utilitou DBRepair),
> v
> DBGrid nejsou definovany zadne sloupce, ktere by v tabulce (resp. Query1)
> neexistovaly. Podle me by melo byt vse v poradku...
Field index out of range
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 28.6.2004 17:03:21
Ahoj konference,
nemohu prijit na to co mi zpusobuje hlasku %SUBJ%. Pracuji s Paradoxovou
tabulkou v Dephi 4 (jedna se o starsi projekt).
Upresnim:
1. v Query1 proveden SQL dotaz 'select * from TABLE1 where FIELD1 = n'
2. Nasledne je otevren formular (ShowModal) na nemz je DBGrid napojeny na
Query1
Vznikne vyse zminena vyjimka a ve zpracovani programu nejde pokracovat, po
F9 se hlaseni o chybe opakuje stale na ShowModal.
Zdrojova tabulka se zda byt konzistentni (kontrolovano utilitou DBRepair), v
DBGrid nejsou definovany zadne sloupce, ktere by v tabulce (resp. Query1)
neexistovaly. Podle me by melo byt vse v poradku...
Poradite prosim?
Diky
Andreas D4
fastreport a stitky (cenovky)
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 28.6.2004 16:39:19
Chtel bych vytisknout na jeden list reportu vice cen.. Vytisknout stitky na
oznaceni zbozi a nevim presne jak na to. Pokud mate nejaky typ, sem s nim..
:)
JR
Stream z IB
[*] p.sestak(zv)corag.sk - 28.6.2004 14:57:12
Tomas Bradle wrote:
> no pak uz jedine napsat aplikacni server.
no jo, ale to by ten app. server tahal tie data k sebe v celku (200MB)
a potom ich streamoval ku klientovy - klient je odlahceny ale app. server
tie data vystracha od IB aj tak v celku :o( a zaplni si pamat pri
viacerych konektnutych klientoch.
ako som napisal, asi je jedina schodna cesta urobit si na to UDF a klienta
k tomu prisposobit.
P.
Stream z IB
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 28.6.2004 14:49:08
no pak uz jedine napsat aplikacni server.
Tomas
> Ano, zrejme najlepsia cesta je urobit si nejaky UDF...
> S tymi chunks som to tusim uz skusal aj pod IB ale mam taky pocit, ze to
> natiahlo cely blob
> na klienta do buffra a get chunk mi vratil blok prave z tohoto buffra,
> ktory je uz na klientovy :o(
> Pavol Sestak
OT: Nabidka zamestnani
[*] Marek Spisak <spishark(zv)post(tec)cz> - 28.6.2004 13:45:02
Zdravim,
omlouvam se za OT. Pracovni agentura Manmark se na mne obratila se
zadosti o zverejneni inzeratu sveho klienta v konferenci. Jedna se o
polskou firmu, ktera se zabyva tvorbou systemu v oblasti financnich
produktu. Zadaji SS nebo VS, znalost Delphi, orientaci v SQL a relacnich
databazich. Naplni prace by tvorilo programovani aplikaci v Delphi, data
na MS SQL 2000. Soucasti naplne by byla i sprava a administrace DB
serveru. Pracoviste by bylo Bielsko-Biala v Polsku (blizko Ceskeho
Tesina). Vhodne pro Sev. Moravu a Slezsko. Nabizeji 3.500 PLZ nastupni
plat (cca 25.000 Kc) + bonusy. Komunikace Anglicky nebo Polsky. Pokud by
byl zajem, prosim, ne do konference, ale na soukromy email.
Dekuji a jeste jednou se omlouvam za OT.
Marek
Ukladanie suborov do DB FB
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 28.6.2004 12:50:54
>
> myslel som napr ze ak bude priemerna dlzka 1MB pri 40.000
> dokumentoch to bude dost velka databaza ale aj to ze keby
To by nemel byt problem.> napr ukladalo v jednom okamihu napr. 20 uzivatelov subor
> naraz ci by to neropbilo nejake problemy a pod.
Zalezi jestli ten samy, nebo jiny.
Jinak bych v tom nevidel problem.
Celkem jednoduche, doporucuji si to zkusit a uvidis.
Slavek
Citanie prave prijatej sms z mobilu
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 28.6.2004 12:50:52
Urobil som nejake upravy. Uz sa ta udalost aj mne spusta len pri nejakej
realnej udalosti. Pri volani mi tiez zobrazi RING a v dalsich
vysielanych datach aj nejake info o hovore. V pripade sms vsak neurobi
vobec nic. Na to aby zobrazoval RING mu nemusim pri pripojeni posielat
ziadny AT prikaz. V pripade sms mam nieco poslat? Stiahol som si zoznam
AT prikazov pre telefony Siemens - z neho vsak len viem zoznam prikazov,
ale neviem ako a kedy mam ktory pouzivat.> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>
> hm, ale to je nejake divne ... pouzivam tu samou komponentu a ta
udalost
> se
> spusti opravdu jen kdyz prijde sms, nebo prichozi volani ...
> nastuduj si AT prikazy ... ja pouzivam modul siemens TC35i a bez
problemu.
> Zkus si prijata data postupne zobrazovat napr. do Memo a uvidis co ti
ten
> telefon posila ... napr. kdyz zavolam na modul a mam standardni
nastaveni,
> pri prichozim volani se mi spusti udalost a zobrazi se mi +RING
>
Citanie prave prijatej sms z mobilu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 28.6.2004 12:10:48
hm, ale to je nejake divne ... pouzivam tu samou komponentu a ta udalost se
spusti opravdu jen kdyz prijde sms, nebo prichozi volani ...
nastuduj si AT prikazy ... ja pouzivam modul siemens TC35i a bez problemu.
Zkus si prijata data postupne zobrazovat napr. do Memo a uvidis co ti ten
telefon posila ... napr. kdyz zavolam na modul a mam standardni nastaveni,
pri prichozim volani se mi spusti udalost a zobrazi se mi +RING
Radek
"Peter Ondras" <peter.ondras(zv)pse.sk>(zv)clexpert(tec)cz on 28.06.2004 11:40:44
Odpovezte prosim - delphi-l(zv)clexpert(tec)cz
Odeslano kym: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
Predmet: Citanie prave prijatej sms z mobilu
Ako mozem nacitat prave prijatu sms z mobilu? Pouzivam komponentu
TCommPortDriver a v nej udalost OnReceiveData, ale neviem co mam
vyhladavat ked pride textovka. Neviem si to sam odkrokovat, pretoze ta
udalost sa spusta 2x za sekundu aj ked nic telefon neprijme. Prijate
data si dokazem prekonvertovat do stringu a aj sms viem pomocou pdu2txt
previest do textoveho formatu. Potrebujem vediet len co mam nacitavat
(napr. telefon mi asi posle nejaky retazec znakov [napr. +sms])Citanie prave prijatej sms z mobilu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.6.2004 12:06:47
Peter Ondras wrote:
> pdu2txt previest do textoveho formatu. Potrebujem vediet len co mam
> nacitavat (napr. telefon mi asi posle nejaky retazec znakov [napr.
> +sms])
To zalezi na tom, co je to za telefon a s jakou hodnotou CNMI ho provozujes
a co to vlastne prijal (zpravu, delivery report apod.):
a) telefon ti neposle vubec nic
b) telefon posle info, ze neco prijal a do jake pameti
b) telefon ti posle primo data, ktera prijal
podrobnosti viz GSM 7.05
HTH, pf
Problemy s QRImage
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 28.6.2004 11:54:45
Ahoj vsichni
D7 Ent
Mam programek, ktwery neustale ocuchava data a v okamziku, kdy objevy novy zaznam vytiskne sestavu. Na sestave se objevi opis zaznamu a podle nastavenych hodnot nejake bitmapy. Vse funguj takto v OnCreate formulare se natahne bitmapa (.bmp) do QRImage a podle priznaku v datech se zviditelni. Nekdy se ale stava, ze se bud nevytiskne vubec, nebo se misto ni vytiskne cerny flek. Nevite nekdo cim to? Mohlo by to souviset s prechodem na win XP?
Jaromir Cermak
Citanie prave prijatej sms z mobilu
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 28.6.2004 11:40:44
Ako mozem nacitat prave prijatu sms z mobilu? Pouzivam komponentu
TCommPortDriver a v nej udalost OnReceiveData, ale neviem co mam
vyhladavat ked pride textovka. Neviem si to sam odkrokovat, pretoze ta
udalost sa spusta 2x za sekundu aj ked nic telefon neprijme. Prijate
data si dokazem prekonvertovat do stringu a aj sms viem pomocou pdu2txt
previest do textoveho formatu. Potrebujem vediet len co mam nacitavat
(napr. telefon mi asi posle nejaky retazec znakov [napr. +sms])Ukladanie suborov do DB FB
[*] miro_mr <mms(zv)szm.sk> - 28.6.2004 11:26:42
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
> Problemy ?
> Snad jedine to, ze DB zabere vice mista, nez jednotlive soubory.
myslel som napr ze ak bude priemerna dlzka 1MB pri 40.000 dokumentoch to
bude dost velka databaza ale aj to ze keby napr ukladalo v jednom okamihu
napr. 20 uzivatelov subor naraz ci by to neropbilo nejake problemy a pod.
Miro
Stream z IB
[*] p.sestak(zv)corag.sk - 28.6.2004 10:30:37
Ano, zrejme najlepsia cesta je urobit si nejaky UDF...
S tymi chunks som to tusim uz skusal aj pod IB ale mam taky pocit, ze to
natiahlo cely blob
na klienta do buffra a get chunk mi vratil blok prave z tohoto buffra,
ktory je uz na klientovy :o(
Pavol Sestak
ICQ : 20989081
Ukladanie suborov do DB FB
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 28.6.2004 10:22:36
Pro toto jsou BOLOBy, u IBX se s nima manipuluje jako se Streamem.
Problemy ?
Snad jedine to, ze DB zabere vice mista, nez jednotlive soubory.
Slavek
> Zdravim
> Uvazujeme, ze vyuzijeme databazu Firebird na ukladanie
> suborov (aplikacia v D7, IBO). Jedna sa asi o 40.000 suborov
> roznej dlzky vo formatoch WAV, TIF, DOC a XLS. V dostupnej
> literature sme nenarazili na zmienku, ze by sa to nebolo
> mozne alebo vhodne. Chcem sa preto opytat ci ma niekto
> skusenosti s ukladanim dokumentov do databazy FB a hlavne ci
> to neprinesie nejake technicke problemy. Pripadne ake
> problemy mozno ocakavat?ANN: Synaser release 13
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 28.6.2004 10:16:32
Na vedomost se dava, ze vysel novy SynaSer. (opensource knihovna pro
komunikaci se seriovymi porty)
Novinky:
- opravena chyba se ztracenou udalosti o prichodu novych dat ke cteni
na velmi rychlych seriovych portech.
- opravena chyba, kdy aplikace mohla spadnout v pripade hibernace ci
uspani pocitace.
- pridano mnoho novych komunikacich metod, napriklad pro praci se
streamy.
- Pod windows je mozne si nechat zjistit seznam existujicich
seriovych portu v systemu.
- zcela novy styl dokumentace! ;-)
Kdo Synaser nechce, necht mne ignoruje. Kdo jej chce, at nasleduje
URL v mem podpisu. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Stream z IB
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 28.6.2004 10:04:31
> No, nevim jak v IB, ale v MSSQL7 v kombinaci s ASP pres ADO
> byla funkce GETCHUNK nebo tak nejak. (sorry, ale uz je to
> davno).
> Spocivala v tom, ze se ten blob tahal po blocich treba 4kB
> velkych.
To sa myslim da napisat aj pre Interbase ako UDF.
HTH
TOndrej
Stream z IB
[*] p.sestak(zv)corag.sk - 28.6.2004 09:38:28
Zdravim,
mam technicku otazku okolo streamovania z/do IB.
Pouzival som IB API funkcie k prehravaniu velkych multimedialnych suborov
(MP3)
a potreboval som pouzit stream - naco tahat 200 MB dat naraz ku klientovy,
ked to mozem streamovat,
ale nic take som v APIguide nenasiel. Takze len naraz stiahnut BLOB do
nejateho TEMP buffra a ten prehravat,
ale to je ptre mna neprijatelne.
Ak mate niekto skusenosti so streamovanim z IB prosim o nakopnutie.
Pavol Sestak
ICQ : 20989081
Stream z IB
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 28.6.2004 09:58:29
No, nevim jak v IB, ale v MSSQL7 v kombinaci s ASP pres ADO byla funkce
GETCHUNK nebo tak nejak. (sorry, ale uz je to davno). Spocivala v tom, ze se
ten blob tahal po blocich treba 4kB velkych.
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: <p.sestak(zv)corag.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 28, 2004 9:38 AM
Subject: Stream z IB
> Zdravim,
> mam technicku otazku okolo streamovania z/do IB.
> Pouzival som IB API funkcie k prehravaniu velkych multimedialnych suborov
> (MP3)
> a potreboval som pouzit stream - naco tahat 200 MB dat naraz ku klientovy,
> ked to mozem streamovat,
> ale nic take som v APIguide nenasiel. Takze len naraz stiahnut BLOB do
> nejateho TEMP buffra a ten prehravat,
> ale to je ptre mna neprijatelne.
> Ak mate niekto skusenosti so streamovanim z IB prosim o nakopnutie.
>
> Pavol Sestak
> ICQ : 20989081
>
>onclick v dbgridu z dblclick nekde jinde
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 28.6.2004 09:28:24
Ahoj,
mam nejaky formular. Kdyz na nem poklepu (dblclick) a
pri zpracovani zobrazim nejaky jiny form s dbgridem, tak
se mi v tom dbgridu odela click v miste kde se nachazi mys.
Rozhodne to dela pokud se trefim do zahlavi gridu, kde si
podle klinknuti tridim a dela mi to neplechu :/
Uvitam jakoukoli radu, kterak zabranit te nasledne
udalosti v DBGridu. Napada me nejaky semafor, kdy si
OnClick "rucne" povolim az pozdeji, ale prijde mi to
pracne, neciste a zaludne reseni...
dekuji
Peca
Ukladanie suborov do DB FB
[*] mms(zv)szm.sk - 28.6.2004 09:08:22
Zdravim
Uvazujeme, ze vyuzijeme databazu Firebird na ukladanie suborov (aplikacia v
D7, IBO). Jedna sa asi o 40.000 suborov roznej dlzky vo formatoch WAV, TIF,
DOC a XLS.
V dostupnej literature sme nenarazili na zmienku, ze by sa to nebolo mozne
alebo vhodne.
Chcem sa preto opytat ci ma niekto skusenosti s ukladanim dokumentov do
databazy FB a hlavne ci to neprinesie nejake technicke problemy. Pripadne
ake problemy mozno ocakavat?
Dakujem
Miro
Request live a Oracle
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 28.6.2004 08:20:18
Ahoj programatori,
nevite nekdo prosim vas, proc kdyz nastavim v SQL komponente RequestLive na
TRUE a otevru jej prikazem Query1.open nebo treba i v navrhu formulare
nastavenim Active na TRUE, nabehne chyba ORA 00942 tabulka nebo pohled
neexistuje?
Pritom pokud je RequestLive = FALSE, dotaz probehne v poradku. Jedna se
pritom jenom o dotaz typu SELECT * from TABULKA, dotazy otevirane pomoci
QUERY1.EXECSQL jako update, delete atd. funguji, takze pristupovymi pravy to
asi nebude.
Pripojuji se pres nativni ovladac BDE ORACLE, verze delphi je 5 Enterprise,
verze Oracle je 8 personal. Pritom v SQL exploreru muzu udaje v tabulce bez
problemu menit. Ze bych potreboval nejakou zaplatu? A ted nevim jestli na
BDE nebo na hlavu.
Diky za radu
Dalibor Faltynek
Orgrez, a. s.
tel: +420 541 613 312, 291
fax:+420 541 613 299
e-mail: dalibor.faltynek(zv)orgrez(tec)cz
puvodni hodnota property po jeji zmene v runtime
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 28.6.2004 07:40:15
Ahoj,
hodnoty jsou pokud vim ulozeny v dfm, ale pouze ty ktere se zmenili v navrhu oproti default hodnotam.
Petr
Odosielanie mailu z aplikacie
[*] Petr Vones <konference(zv)petrvones(tec)net> - 26.6.2004 14:30:11
From: "Martin Cajbik" <cajbik(zv)sct.sk>
> ako co najjednoduchsie odoslat mail z aplikacie, potrebujem iba predplnit
> text emailu, predmet a adresu v standartnom mail klientovi. Samotne
Pouzij tridu TJclEmail z JCL: http://sourceforge.net/projects/jcl
Petr Vones
OT Nabidka zamestnani
[*] Jansta Kvetoslav <kvetoslav.jansta(zv)lcs(tec)cz> - 25.6.2004 16:34:31
Zdravim,
LCS International, a.s. hleda programatora Delphi pro produkt LCS Helios IQ,
blize viz. :
http://www.jobs(tec)cz/www/firmy.nsf/obory/A7EAFE76B6D8345AC1256B4A00352BF5?OpenDocument
[odpovedi na mailto:radka.dousova(zv)lcs(tec)cz]
K.Jansta
Kvetoslav Jansta
programator LCS Helios IQ
LCS International, a.s.
Zeleny pruh 1560/99
140 02 Praha 4
tel:. +420 244 104 111, fax: +420 244 104 444
hotline : +420 244 104 155
http://www.lcs(tec)cz
reboot pod w9x z konzolovej apl.
[*] Robert Suska <robert.suska(zv)fnusa(tec)cz> - 25.6.2004 15:52:16
ahojte!
moj problem je v tomto kode
program Project1;
{$APPTYPE CONSOLE}
uses
Windows;
begin
ExitWindowsEx(EWX_REBOOT, 0);
end.
je to velmi jednoducha konzolova aplikacia. ale problem je ze pod w98 tento
kod nejako nechce fungovat. Ked kod ktory som uviedol hore spustim zobrazi
sa hlasenie typu: "Pred ukoncenim systemu windows musite ukoncit tento
program. Klepnutim...... atd" Dalej ked do f() ExitWindowsEx pridam
parameter or EWX_FORCE tak sa aplikacia zobrazi, obrazovka blikne a nic sa
nestane. Ale uz ten genialny vyplod nezobrazi.... Dalej ked vyhodim toto
{$APPTYPE CONSOLE} tak vsetko funguje ako ma. Pc sa normalne rebootne a som
spokojny len problem je ze to mysi byt konzola. Vie mi niekto poradit ako
mam dosiahnut toho aby sa mi podarilo aj pod w9x rebootnut wokna z
konzolovej apl? Pod w2k a xp to funguje bez problemov. Samozrejme ze tam mam
kod typu
SetPrivilege('SE_SHUTDOWN_NAME', True);
tpResult := OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHd);
if tpResult then
begin
tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if tpResult then
Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg,
cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);
dakujem za nakopnutie... uz neviem ako dalej...
S pozdravom,
Robo
Kam zmizel archiv konference ?
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 25.6.2004 15:24:10
Jeden je na www.delphil.szm.sk a druhy na http://www.delphi(tec)cz/hledani.asp.
Pekny den praje www.MartinKasman.sk
----- Original Message -----
From: "Lenka Donatova" <lenkad(zv)nemocnice-vs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 25, 2004 2:58 PM
Subject: Kam zmizel archiv konference ?> Chci se zeptat kde se na nyni na webu najit archiv teto konference ?
>
>
> Lenka Donatova
>
> Kam zmizel archiv konference ?
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 25.6.2004 15:16:08
> Chci se zeptat kde se na nyni na webu najit archiv teto konference ?
Odkaz sice nefunguje ale
www.delphi(tec)cz/hledani.asp mi funguje
Pavel Poles
Kam zmizel archiv konference ?
[*] Lenka Donatova <lenkad(zv)nemocnice-vs(tec)cz> - 25.6.2004 14:58:06
Chci se zeptat kde se na nyni na webu najit archiv teto konference ?
Lenka Donatova
puvodni hodnota property po jeji zmene v runtime
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 25.6.2004 14:44:04
Ahoj,
docela by se mi hodilo zjistit, jakouze to mela
nejaka property hodnotu nastavenou v navrhu po te,
co jsem si ji za behu zmenil.
Priklad: mam DBGrid, u ktereho zmenim nastaveni
visible u sloupcu. Ted bych chtel vratit originalni
nastaveni, ale nechci kvuli tomu nicit a znovu
vytvaret formular.
Lze to nejak?
dekuji
Peca