Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Nastaveni verze programu
[*] daniel.hrna(zv)sme(tec)cz - 28.10.2001 05:43:55
FileVersion komponenta.
D.
-----Original Message-----
From: Roman �ev��k [mailto:roman(zv)coseto(tec)cz]
Sent: Tuesday, November 27, 2001 4:04 PM
To: Delphi-L(zv)Clexpert. Cz
Subject: Nastaveni verze programu
Ahoj,
potrebuji urcitemu souboru nastavit informace o verzi, atd... Myslim, ze by
to slo nejak pres resource, ale vubec nevim jak. Nemate nekdo nejaky demo
priklad ?
Dik
Roman
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
ADO, Stored. proc. a temporary table
[*] Jirka Kral jr. <admin(zv)printo(tec)cz> - 28.10.2001 07:14:45
>>Problem spociva v tom, ze mi v metode ExecProc nedojde k
>>vyslehnuti vyjimky. Pokud ve stor. proc. vynecham radek s
>>INSERTem, chodi to tak, jak ma. Vzhledem k tomu, ze vkladat do
>>te pomocne tabulky musim, me uvedena nefunkcnost stve (pokud
>>uloz. proc. krokuju, funguje to, jak ma). Jak toto napravit?
oprav ji takto
CREATE PROCEDURE USP_DELETEPROJECT
(zv)A_IDPROJECT INTEGER
AS
CREATE TABLE #SUBARRAY (IDPROJECT INTEGER)
----> INSERT INTO #SUBARRAY (idproject) VALUES ((zv)A_IDPROJECT)<------
DROP TABLE #SUBARRAY
RAISERROR ('Some bullshits.', 11, 1)
RETURN
j.==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)mujoskar(tec)cz
ICQ# 15303940 IB a post_event
[*] Richard Kejval <kejval.delphi(zv)atlas(tec)cz> - 28.10.2001 07:52:09
> Neznate prosim nekdo nejaky FIIGL jak ten post_event prubezne dostavat k
> aplikaci? Formou UDF se mi do toho moc nechce, obzvlaste kdys cecku
> neholduji a tudiz psat UDF pro linux je tak trochu nad me sily.
> za kazdy napad predem dekuji
>V.Bodecek presne toto prave minuly tyden predvadel na kurzu IB/IBX :-)
>Ovsem pres UDF.
Zdravim, me by celkem zajimalo, jak se to dela s pouzitim UDF. Mohl by to
nekdo naznacit ?
Diky za odpoved
ODBC chyba
[*] kuchar(zv)unicodesys(tec)cz - 28.10.2001 08:13:29
caute,
v programu se pres komponentu tdatabase pripojuji pomoci ODBC k tabulkam
FoxPro, nevim kde je chyba ale obcas mi delphi nahlasi nasledujici chybu
----------------------------------------------------------------------------
-------------
GENERAL SQL ERROR.[MICROSOFT][ODBC SQL SERVER DRIVER]DATETIME FIELD OVERFLOW
----------------------------------------------------------------------------
-------------
nevite v cem je problem ? v strucnosti delam v programu nasledovni veci
destroy tdatabase
create tdatabase
connect tdatabase
create ttable1
create ttable2
table1 open
table2 open
table2 batchmove // tady mi to hodi tu chybu, ne pokazdy jednou za cas
table1 close
table2 close
Ing. J�n Kuch�r, PhD.
Unicode Systems s.r.o.
Rusk� 14, T�eb�� 674 01
mobil : 0605469102
e-mail: kuchar(zv)unicodesys(tec)cz
IB a post_event
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 28.10.2001 08:25:47
From: "Richard Kejval" <kejval.delphi(zv)atlas(tec)cz>
> > Neznate prosim nekdo nejaky FIIGL jak ten post_event prubezne dostavat k
> > aplikaci? Formou UDF se mi do toho moc nechce, obzvlaste kdys cecku
> > neholduji a tudiz psat UDF pro linux je tak trochu nad me sily.
> > za kazdy napad predem dekuji
> Zdravim, me by celkem zajimalo, jak se to dela s pouzitim UDF. Mohl by to
> nekdo naznacit ?
Relativne jednoducho. Vytvoris si nejake UDF ktore maju urcite vstupne
parametre. Pri volani UDF sa vstupny parameter funkcii preda a ta ho posle
(zapise) do logu alebo externeho debuggeru.
Buhodou je samozrejme to ze UDF sa vola bez ohladu na transakciu.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
IB a post_event
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 28.10.2001 08:42:30
Hehe sorry, toto bola odpoved na inu otazku :), ale v podstate princip je
obdobny.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
> > Zdravim, me by celkem zajimalo, jak se to dela s pouzitim UDF. Mohl by
to
> > nekdo naznacit ?
>
> Relativne jednoducho. Vytvoris si nejake UDF ktore maju urcite vstupne
> parametre. Pri volani UDF sa vstupny parameter funkcii preda a ta ho posle
> (zapise) do logu alebo externeho debuggeru.
> Buhodou je samozrejme to ze UDF sa vola bez ohladu na transakci
Nastaveni verze programu
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 28.10.2001 08:55:02
Nabidka Project-Options a tam na karte Version Info
> -----Puvodni zprava-----
> Od: Roman �ev��k [mailto:roman(zv)coseto(tec)cz]
> Odeslano: 27.11.2001 16:04
> Komu: Delphi-L(zv)Clexpert. Cz
> Predmet: Nastaveni verze programu
>
>
> Ahoj,
> potrebuji urcitemu souboru nastavit informace o verzi, atd...
> Myslim, ze by
> to slo nejak pres resource, ale vubec nevim jak. Nemate nekdo
> nejaky demo
> priklad ?
>
> Dik
> Roman
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
>
> DllSurrogate Win2000/WinNT att2
[*] Male�ek Ond�ej <ondrej.malecek(zv)radom-cz(tec)cz> - 28.10.2001 09:19:48
Uz jsem to jednou zkousel, bez odezvy a mezitim jsem malinko pokrocil. Tedy
mam na PC s D5 a Win2000 COM objekt v DLL, ktery pomoci DLLSurrogate pres
klic AppID v registry hostuji ve standardnim win surrogate (dllhost.exe). Ve
Win2000 mi to bez problemu chodi, po prenosu na WinNT 4.0 server mi
vytvareni instanci konci s chybou 'Access is denied'. Asi bych to typoval na
nejake zabezpeceni, ale na obou strojich to spoustim jako admin a nenapada
me kde jeste neco nastavit. Mate s tim nekdo zkusenosti ??
Ondrej
Ako odchytit minimalizaciu okna ?
[*] Slavom�r �eke# - 28.10.2001 09:34:26
Zdravim ...
nedari sa mi odchytit minimalizaciu okna ... maximalizaciu odchytim, ale
minimalizaciu nie ... prosim poradte
Slavo
Ako odchytit minimalizaciu okna ?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.10.2001 10:08:07
> nedari sa mi odchytit minimalizaciu okna ... maximalizaciu
> odchytim, ale minimalizaciu nie ... prosim poradte
Podobne ako maximalizaciu: odchyt si spravu WM_SYSCOMMAND s parametrom
SC_MINIMIZE.
HTH
TOndrej
Lokalizace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 28.10.2001 10:58:44
On 27 Nov 2001 at 12:56, Lebeda David wrote:
> mam Zbyskuv lokalizator a takovyhle drobny problem. Je aplikace
> cela vytvorena v anglictine, ale pouzivajici Sineu (ktera je cela
> cesky). Rad bych ji proto prejel lokalizatorem do ENU (Anglicky USA).
> Ceske texty ze Sinei jsem nejak prelozil, v tom neni problem, ale
> vsechny ostatni anglicke texty, na ktere neni nutno sahnout, zustavaji
> oznacene jako neprelozene. Potreboval bych je dostat do slovniku, aby
> pri pristi lokalizaci exe jiz byly oznaceny jako lokalizovane. Jak na
> to - jde to vubec?
V Lokalizatoru (od verze 4) lze rucne oznacit vybrane texty jako prelozene. Je vsak nutne
zachovat soubory projektu prekladu. Problem ale nastava u sekce Strings, tam se pri nove
kompilaci texty casto precisluji.
Podle meho nazoru by nejvic pomohlo, kdyby Sinea byla kompletne anglicky. Stejne se to pak v
programu micha, a pri lokalizaci to dela bordel.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
TChartAxisTitle already exists
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 28.10.2001 11:11:34
Ahoj,
Diky Petre za presnou otazku. Hned jsem problem nasel a odstranil.
Runtime balicek, ktery obsahuje TChart jsem linkoval primo do exe.
Libor Filip
From: "Libor Filip" <filip(zv)agrokonzulta(tec)cz>
> EXE i DLL mam prelozene s balicky.
S jakymi presne ?
Petr Vones
1001 tipu a triku: Tajemne funkce
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 28.10.2001 11:18:56
Je to tak. :-) Akorat mi nepomohly, resp. zrejme je neumim vyuzit.
Potrebuji v ListView tuhle vec:
Pokud v prvnim sloupci je retezec '_', pak chci misto nej nakreslit
obrazek (oouze v tom sloupci), jinak vse nechat tak, jak se
zobrazuje standatne.
Zkousel jsem ruzne kombinace OwnerDraw spolecne s
OnCustomDrawItem a OnCustomDrawSubItem a v nich jeste
nastavovat ruzne DefaultDraw, ale nic neni tak jak chci: nekdy
nefunguje zobrazeni aktivni polozky, jindy je zase ten obrazek
(zatim jde pouze o elipsu) prepsany a neni zobrazeny. V
nekdeterych pripadech se mi dokonce pismo vykresluje nejakym
jinym fontem.
Jak presne to mam udelat?
Diky za pomoc
Karel Krtecek
> v tipech 882 a 884 jsou pouzity zvlastni funkce
> ListView_GetSubItemRect a ListView_GetColumnOrderArray.
> Delphi mi na nich zahlasi chybu. Kde je najdu?
Ahoj,
v unitu CommCtrl
Petr Vones
=?US ASCII?Q?OT:__graficka_karta_ALL-IN-WONDER#_RA
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 28.10.2001 11:31:36
Ahoj,
omlouvam se za OT, ale potreboval bych zjistit jestli se Delphi snaseji
s %subj%. Lepe recene NESNASEJI.
Pripadne odpovedi prosim na soukromy mail.
jarekuher(zv)volny(tec)cz
Dekuji,
preji hezky den,
Jarek Uher
Query na tabulky v ruznych adresarich
[*] <delphi(zv)zvlauto.sk> - 28.10.2001 11:43:25
Co takto:
SELECT d1.rodnecislo, d1.adresa
FROM ":a:tabulka.db" d, ":b:tabulka2.db" d1
WHERE
(d1.Typorozmer = d.Typorozmer)
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Skokosek
Sent: Wednesday, November 28, 2001 5:53 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Query na tabulky v ruznych adresarich
Ahoj,
ve sve aplikaci pouzivam paradox tabulky, umistene ve dvou ruznych
adresarich.
Pouzivam aliasy.
Potrebuju ted pomoci dotazu spojit data z tabulky "a" (alias napr. cesta1)
a "b" (alias napr. cesta 2). Obe tabulky obsahuji polozku rodnecislo. Jak
upravit
tento dotaz ?
select rodnecislo, adresa
from a, b //? jak tady ?
where a.rodnecislo=b.rodnecislo
Dik za radu
Lada D3
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
ADO, Stored. proc. a temporary table
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.10.2001 11:53:07
Ahoj,
tohle nepomohlo. Podle ceho jsi usoudil, ze by to melo byt
spravne?
Slavek
> oprav ji takto
>
> ----> INSERT INTO #SUBARRAY (idproject) VALUES ((zv)A_IDPROJECT)<------
> Bc. Jiri Kral
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
webbrowser
[*] Pepa Matlafous <Matlafous007(zv)hotmail(tec)com> - 28.10.2001 11:57:44
Zdravim,
da se nastavit zobrazeni posouvaci listy v WebBrowseru na auto? Ja v nem zobrazuji stranku ktera se vejde do okna a ten posuvnik je i presto zobrazen.
Myslim neco podobneho jako je n HTML u Frame scrolling="auto".
Dik Pepa!OT: Interbase 6.0.1 a Internal gds software consis
[*] vladimir.michl(zv)hlubocky.del(tec)cz - 28.10.2001 12:48:13
Nejaky popis na odstranovani chyb s DB je na www.firebirdsql.org, ale uz
nevim kde jsem to tam nasel (mam dojem ze nekde v sekci FAQ nebo
Documentation).
Jo v tom postupu pouzivali radkove utility gbak (backlup) a gfix (oprava
db).
On Mon, 12 Nov 2001, Jon�# Mari�n wrote:
> Dobry den,
>
> obracim se na znalce Interbase s dotazem, mam databazi
> ktera mi vykazuje tuto chybu : "Internal gds software
> consistency check (cannot find tip page (165))".
>
> Tato chyba naskakuje pri pokusu o Sweep databaze, pokusu
> o backup databaze (at jiz s garbage collection ci bez).
>
> Pokud dam z IBConsole Shutdown databaze a pak Validation s
> Validate record fragments : False
> Read Only validation : False
> Ignore checksum errors : False
> tak to vyhodi "No database validation errors were found."
>
> S parametry
> Validate record fragments : True
> Read Only validation : True
> Ignore checksum errors : False
> tak mi vyhodi "Number of index page errors : 13",
> kdyz stisknu Repair, chvilku chrousta a pak vyhodi
> "Internal gds software consistency check (cannot find
> tip page (165))"
>
> Nevite nahodou nekdo, jak toto odstranit ? Respektive
> muzete mi poradit nejaky zdroj informaci o opravach
> Interbase databazi, eventuelne popisy gds chyb ?
>
> Verze IB serveru je 6.0.1.0 a bezi na Win NT 4.0 SP5.
>
> Dekuji
>
> Marian Jonas
> ADO, Stored. proc. a temporary table
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 28.10.2001 11:55:32 -0000
S Adonisom a MSSQL7 (2000) to funguje (RAISERROR) bez problemov,
ale pre pouzivanie temporary table v stored procedure
prosim mrknut do BOL, tu je strucny vycuc:
Programming Stored Procedures.
Almost any Transact-SQL code that can be written as a batch can be used to
create a stored procedure.
Stored Procedure Rules
Rules for programming stored procedures include:
The CREATE PROCEDURE definition itself can include any number and type of
SQL statements except for the following CREATE statements, which cannot be
used anywhere within a stored procedure:
CREATE DEFAULT CREATE TRIGGER
CREATE PROCEDURE CREATE VIEW
CREATE RULE
Other database objects can be created within a stored procedure. You can
reference an object created in the same stored procedure as long as it is
created before it is referenced.
You can reference temporary tables within a stored procedure.
----------------------------------------------------------------------------
-------
If you create a private temporary table inside a stored procedure, the
temporary table exists only for the purposes of the stored procedure; it
disappears when you exit the stored procedure.
----------------------------------------------------------------------------
---------------
If you execute a stored procedure that calls another stored procedure, the
called stored procedure can access all objects created by the first stored
procedure, including temporary tables
>
>Problem spociva v tom, ze mi v metode ExecProc nedojde k
>vyslehnuti vyjimky. Pokud ve stor. proc. vynecham radek s
>INSERTem, chodi to tak, jak ma. Vzhledem k tomu, ze vkladat do
>te pomocne tabulky musim, me uvedena nefunkcnost stve (pokud
>uloz. proc. krokuju, funguje to, jak ma). Jak toto napravit?
>
>Diky za kazde info
>
>Slavek
Query na tabulky v ruznych adresarich
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 28.10.2001 13:02:46
> Subject: Query na tabulky v ruznych adresarich
> ve sve aplikaci pouzivam paradox tabulky, umistene ve dvou ruznych
> adresarich.
> Pouzivam aliasy.
> Potrebuju ted pomoci dotazu spojit data z tabulky "a" (alias napr. cesta1)
> a "b" (alias napr. cesta 2). Obe tabulky obsahuji polozku rodnecislo. Jak
> upravit
> tento dotaz ?
Tusim ze je to nejak takto (pisem z hlavy):
select
a.rodnecislo, b.adresa
from
":ALIAS1:file.db" a,
":ALIAS2:file.db" b
where
a.rodnecislo=b.rodnecislo
(Mozno tam budu/nebudu uvodzovky.)
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
TQuickRep a TPrinter - nestrankuju
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 28.10.2001 13:12:33
a co pouzit QuickRep1.NewPage ?
-----Original Message-----
Dobry den,
dnes som to konecne vyskusal na HP LJ1000w (USB). TPrinter vsetky strany
nabacha na jeden list (nestrankuje). TQuickRep vytlaci len poslednu stranku
a ked je kratsia tak je zbytok strany doplneny predchadzajucou stranou.
Sineu som neskusal...
Word a ostatne programi tlacia normalne.
Co je este mozne pouzit namiesto:
function EndPage; external gdi32 name 'EndPage';
function StartPage; external gdi32 name 'StartPage';
Asi bude chyba vo volani tychto externych funkcii.
Mam moznost to testovat - pomozte mi prosim niekto tento problem vyriesit...
Dakujem, Lauko. D5,W98
DB aplikace - objektovy pristup - jak?
[*] vlcir <vlcir(zv)seznam(tec)cz> - 28.10.2001 13:45:24
Ahoj. Chtel bych napsat databazovou aplikaci, u ktere by bylo snadne
menit napr. zpusob ovladani a zobrazovani vystupu. Takze bych chtel
mit moznost pristupovat napr. pres klasicke formulare, ale treba taky
vygenerovat rozhrani pro prezentaci pres web, nebo jakkoliv jinak.
Pro zacatek by to asi chtelo nejake objekty, nejprve tedy obecny
radek v tabulce databaze pro jednotlive ukony, z nej nejakym zpusobem
odvodit ukladani, mazani, zmenu atd. ale zase obecne, aby bylo mozno
zmenit strukturu radku tabulky bez velkych zmen kodu.
Myslim, ze bych si tim mohl do budoucna usetrit spoustu prace. Je to
zatim nastin, uvital bych nejake konkretni zkusenosti, abych se do
toho mohl pustit.
______________________________________________________________________
Jak poslat rukou psan� text na mail? P�ece faxem Panasonic!
http://www.panasonic(tec)cz/redirect.html
ulozeni nastaveni pri ukonceni
[*] Pepa Matlafous <Matlafous007(zv)hotmail(tec)com> - 28.10.2001 13:57:53
Zdravim,
nevite jak ulozit nastaveni o rozmerech aplikace, ktere uzivatel zmenil. Umim ukladat do souboru i zneho pri startu cist, ale nevim v jake promene jsou ulozeny aktualni rozmery.
To stejne bych potreboval i pro umisteni aplikace na plose, kdyz je nekam posunuta.
Dik
ulozeni nastaveni pri ukonceni
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 28.10.2001 14:07:44
Pouzij FormStorage z RXLibrary, to je to nejjednodussi reseni.
Radim
----- Original Message -----
From: "Pepa Matlafous" <Matlafous007(zv)hotmail.com>
To: "Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 28, 2001 1:57 PM
Subject: ulozeni nastaveni pri ukonceni
Zdravim,
nevite jak ulozit nastaveni o rozmerech aplikace, ktere uzivatel zmenil.
Umim ukladat do souboru i zneho pri startu cist, ale nevim v jake promene
jsou ulozeny aktualni rozmery.
To stejne bych potreboval i pro umisteni aplikace na plose, kdyz je nekam
posunuta.
Dik
MIDI
[*] <bukaj(zv)iol(tec)cz> - 28.10.2001 14:07:25
Dobry den,
potreboval bych mi v programu moznost exportovat do souboru *.MID. Nemate
nekdo nejakou komponentu na tohle, nebo alespon popis tohoto formatu?
Kuba
ulozeni nastaveni pri ukonceni
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 28.10.2001 14:12:48
Ahoj, jestli pouzivas RX komponenty, tak je tam FormStorage, kterej ti mimo jine umoznuje
ulozit i hodnoty objektu na formulari. (Treba text u editboxu atd.)
Celkem dobre se s tim pracuje.
Flakni ho na formular a dvakrat na nej klikni.
----- Original Message -----
From: Pepa Matlafous
To: Konference
Sent: Wednesday, November 28, 2001 1:57 PM
Subject: ulozeni nastaveni pri ukonceni
Zdravim,
nevite jak ulozit nastaveni o rozmerech aplikace, ktere uzivatel zmenil. Umim ukladat do souboru i zneho pri startu cist, ale nevim v jake promene jsou ulozeny aktualni rozmery.
To stejne bych potreboval i pro umisteni aplikace na plose, kdyz je nekam posunuta.
Dik
ulozeni nastaveni pri ukonceni
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.10.2001 14:19:31
> nevite jak ulozit nastaveni o rozmerech aplikace,
> ktere uzivatel zmenil. Umim ukladat do souboru i
> zneho pri startu cist, ale nevim v jake promene
> jsou ulozeny aktualni rozmery.
Mozes pouzit napr. Left, Top, Width, Height, alebo BoundsRect (TForm).
Pri starte bude asi dobre skontrolovat, ci nacitane hodnoty nie su mimo
obrazovky (ak si uzivatel medzitym zmenil rozlisenie).
HTH
TOndrej
Zachycen� kurzorov�ch kl�ves
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 28.10.2001 14:25:44
Muj problem je tento:
V child okne je zobrazen DBGrid, ve kterem se lze celkem
prirozene pohybovat klavesami sipek. Krome toho ovsem potrebuju,
aby klavesove kombinace SHIFT+sipka posouvaly child okno v
r�mci parent okna. To taky funguje bez problemu az na jednu
malickost - pri posouvani okna po obrazovce se zaroven posunuje
stejnym smerem kurzor v gridu. Coz pusobi legracne. Takze bych
potreboval v podstate docilit toho, aby posun v gridu reagoval jen na
"nesiftovane" a "nealterovane" klavesy sipek. Vite nekdo jak? Treba
nejaky "vymaz" keyboardu aby po mem zpracovani uz tu klavesu
sipka nikdo nedostal. Diky.
Z.Kalhous
IB a post_event
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 28.10.2001 14:49:12
> From: "Richard Kejval" <kejval.delphi(zv)atlas(tec)cz>
> > Zdravim, me by celkem zajimalo, jak se to dela s pouzitim UDF. Mohl by to
> > nekdo naznacit ?
>
> Odes�latel: Kaka�ka Pavol <kakacka(zv)proca(tec)cz>
> Relativne jednoducho. Vytvoris si nejake UDF ktore maju urcite vstupne
> parametre. Pri volani UDF sa vstupny parameter funkcii preda a ta ho posle
> (zapise) do logu alebo externeho debuggeru.
Ten priklad ze skoleni V.Bodecka jde jeste dal:
Funkce z UDF primo oslovi klienta, ktery si (v paralelnim threadu) tuto informaci zpracuje.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Obchodujte, nakupujte na http://www.e-byznys(tec)cz
ADO, Stored. proc. a temporary table
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.10.2001 14:58:28
Ahoj,
bohuzel pouziti ADO komponent v D6 nelze obejit.
> pre pouzivanie temporary table v stored procedure prosim mrknut do
> BOL, tu je strucny vycuc:
****Na to jsem se samozrejme dival a neni tam nic v rozporu s tim,
co jsem uvedl. Osobne si myslim, ze problem je v ADO, protoze pri
krokovani teto procedury na serveru k vyhozeni chyby dojde a jak
sam rikas, Adonis take funguje.
Slavek
> Matavovsky Peter
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
VBasic--->Pascal
[*] Peter Surovy <psurovy(zv)uevora.pt> - 28.10.2001 14:17:44 -0000
Ahoj
dufam ze to nie je OT ale potrebujem to v Delphi
prepisujem program z Visual Basic do Delphi:
Dim New Object as New TNejaky Object
sa v Delphi napise takto:
var New Object:TNejaky Object;
begin
New Object:=TNejaky Object.create;
to je zatial jasne ale ako prepisem toto:
Set premenna1(vlastnost1) = New Object.premenna(vlastnost)
a este:
Set premenna2(vlastnost2) = premenna1(vlastnost1).premenna(vlastnost)
alebo sa taketo nieco v Delphi nepouziva?
Pretoze
dalsi kod vo VB : vlastnost1.rob nieco;
v Delphi funguje : New Object.vlastnost.rob nieco;
len neviem presne ci to je to co chcel basnik vo VB povedat.
Nerobili ste s tym niekto?
Dik
Peter Surovy
DllSurrogate Win2000/WinNT
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 28.10.2001 15:17:42
Mam pocit ze jsem kdysi slysel (zacina to zajimave ze jo?) ze na nekterem
service packu NT 4.0 nefungovalo security nastaveni pro konkretni COM
objekty, ale muselo se nastavit takoveto defaultni nasteveni pro vsechny
COM objekty. Pak uz jsme DCOM opustili...
Martin Schayna
----- Original Message -----
From: "Male�ek Ond�ej" <ondrej.malecek(zv)radom-cz(tec)cz>
> Ahoj,
> pouzivam volani COM objektu umisteneho v DLL z CGI aplikace a aby to bylo
> jeste zajimavejsi potrebuji aby byla DLL hostovana v konkretnim exe.
> Pouzivam k tomu nastaveni DllSurrogate v registry. Na PC, kde vyvyjim (D5
> Win2000) mi to chodi uplne super. Po premisteni na server, kde je NT 4.0
mi
> vytvoreni instance COM objektu pomoci CoCreateInstance konci chybou
'Access
> denied'. Nastaveni pristupovych prav v dcomcnfg mam na obou PC stejne
> (povoleno uplne vsechno co jde), takze uz me vazne nenapada v cem by mohl
> byt problem. Nemate s tim nekdo zkusenosti ?? Je snad nejaky podstatny
> rozdil mezi Win2000 a WinNT v pouziti DllSurrogate ??
>
> Diky Ondrej
>
>VBasic--->Pascal
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 28.10.2001 15:22:41
----- Original Message -----
From: Peter Surovy
> to je zatial jasne ale ako prepisem toto:
>
> Set premenna1(vlastnost1) = New_Object.premenna(vlastnost)
> a este:
> Set premenna2(vlastnost2) = premenna1(vlastnost1).premenna(vlastnost)
V Delphi neni potreba uvadet Set, staci pouze priradit pomoci :=
Ve VB se tak musi uvadet kazde prirazeni do objektove
promenne/vlastnosti
Martin Schayna
ulozeni nastaveni pri ukonceni
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 28.10.2001 15:27:25
----- Original Message -----
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>> > nevite jak ulozit nastaveni o rozmerech aplikace,
> > ktere uzivatel zmenil. Umim ukladat do souboru i
> > zneho pri startu cist, ale nevim v jake promene
> > jsou ulozeny aktualni rozmery.
>
> Mozes pouzit napr. Left, Top, Width, Height, alebo BoundsRect (TForm).
> Pri starte bude asi dobre skontrolovat, ci nacitane hodnoty nie su mimo
> obrazovky (ak si uzivatel medzitym zmenil rozlisenie).
Je dobre si tyto rozmery pamatovat ruzne pro ruzna rozliseni, tak jak
to delaji napr Rx.
Byva dobrym zvykem si pamatovat jeste zda neni okno maximalizovane,
v tom pripade si precist jeho rozmery pred maximalizaci a vyresit korektne
obnoveni - co nesnasim to jsou aplikace ktere pokud zavru mazimalizovane
se pri dalsim spusteni roztahnou v normalnim rezimu pres celou obrazovku.
To take resi Rx.
Martin Schayna
VBasic--->Pascal
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.10.2001 15:35:08
> Dim New_Object as New TNejaky_Object
>
> sa v Delphi napise takto:
> var New_Object:TNejaky_Object;
> begin
> New_Object:=TNejaky_Object.create;
>
> to je zatial jasne ale ako prepisem toto:
>
> Set premenna1(vlastnost1) = New_Object.premenna(vlastnost)
>
> a este:
> Set premenna2(vlastnost2) = premenna1(vlastnost1).premenna(vlastnost)
Myslim, ze to zavisi od deklaracie tych objektov vo VB.
Ako vies, vo VB sa casto pouziva typ Variant, a k tomu su dovolene divoke
kombinacie default a indexed properties, takze sa v nom da velmi lahko
napisat kod, z ktoreho potom nie je jasne, co to robi alebo ma robit, kym
nepoznas deklaracie pouzitych 'tried'.
Z toho mala pseudokodu, co si poslal, sa da len hadat.
TOndrej
VBasic--->Pascal
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 28.10.2001 15:57:09
K nize uvedenemu se musim pripojit. Hodne zalezi na tom, o jaky object se
jedna. Pred par mesici jsem taky prepisoval nejaky kod z VB a byl to nekdy
docela horor. Mohu doporucit asi toto:
- ke "standardnim" objektum pristupovat standardne (bez ohledu na pristum v
VB), musi se ale pochopit co ve VB maji delat
- pro pristup k objektum, ktere jsou nove vytvoreny ve VB, je dobre (a casto
nutne) peclive prostudovat zdrojak techto objektu
Hodne trpelivosti preje
Martin Ben
PS: Vsechno je mozne
> -----Puvodni zprava-----
> Od: Ondrej Kelle [mailto:O.Kelle(zv)digitalpublishing.de]
> Odeslano: 28.11.2001 15:35
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> Predmet: RE: VBasic--->Pascal
>
> Myslim, ze to zavisi od deklaracie tych objektov vo VB.
> Ako vies, vo VB sa casto pouziva typ Variant, a k tomu su
> dovolene divoke
> kombinacie default a indexed properties, takze sa v nom da velmi lahko
> napisat kod, z ktoreho potom nie je jasne, co to robi alebo
> ma robit, kym
> nepoznas deklaracie pouzitych 'tried'.
>
> Z toho mala pseudokodu, co si poslal, sa da len hadat.
>
> TOndrej
> DllSurrogate Win2000/WinNT
[*] Male�ek Ond�ej <ondrej.malecek(zv)radom-cz(tec)cz> - 28.10.2001 16:23:37
Po celem dopoledni stravenem na msdn jsem dosel k podobnemu vysledku.
Stacilo v dcomcnfg povolit default pristup ke konfiguraci (nejak jsem uplne
nepochopil proc) a uz to chodi. Kdyz jsem to mel povolene pro jednotlive
objekty tak si to ze me furt delalo srandu :-(
Ondrej
> Mam pocit ze jsem kdysi slysel (zacina to zajimave ze jo?) ze na nekterem
> service packu NT 4.0 nefungovalo security nastaveni pro konkretni COM
> objekty, ale muselo se nastavit takoveto defaultni nasteveni pro vsechny
> COM objekty. Pak uz jsme DCOM opustili...
>
> Martin Schayna
>
>
> ----- Original Message -----
> From: "Male�ek Ond�ej" <ondrej.malecek(zv)radom-cz(tec)cz>
> > Ahoj,
> > pouzivam volani COM objektu umisteneho v DLL z CGI aplikace a
> aby to bylo
> > jeste zajimavejsi potrebuji aby byla DLL hostovana v konkretnim exe.
> > Pouzivam k tomu nastaveni DllSurrogate v registry. Na PC, kde
> vyvyjim (D5
> > Win2000) mi to chodi uplne super. Po premisteni na server, kde je NT 4.0
> mi
> > vytvoreni instance COM objektu pomoci CoCreateInstance konci chybou
> 'Access
> > denied'. Nastaveni pristupovych prav v dcomcnfg mam na obou PC stejne
> > (povoleno uplne vsechno co jde), takze uz me vazne nenapada v
> cem by mohl
> > byt problem. Nemate s tim nekdo zkusenosti ?? Je snad nejaky podstatny
> > rozdil mezi Win2000 a WinNT v pouziti DllSurrogate ??
> >
> > Diky Ondrej
> >
> >
>
>
VBasic--->Pascal
[*] Peter Surovy <psurovy(zv)uevora.pt> - 28.10.2001 15:38:30 -0000
Ahoj
From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>> > Set premenna1(vlastnost1) = New_Object.premenna(vlastnost)
> V Delphi neni potreba uvadet Set, staci pouze priradit pomoci :=
pouzit := by som najskor musel nejako zadefinovat
co je to vlastnost1 nieco ako:
var vlastnost1:New_Object.vlastnost :-(> Ve VB se tak musi uvadet kazde prirazeni do objektove
> promenne/vlastnosti
takze tomuto rozumiem tak ze ked chcem pracovat s vlastnostou
objektu vo VB musim ju najskor pseudovytvorit resp jej priradit
nejaky novy nazov a s tym potom robit?
Napr Set Meno=Query1.Fields
Meno.First
Ak ano tak potom ma to v Delphi nemusi trapit mam usetrenu robotu.
Ci som to zle pochopil?Dufam ze nie :-)
Mam rad usetrenu robotu :-)
Peter Surovy
TQuickRep a TPrinter - nestrankuju
[*] Lauko Stefan <laukosw(zv)naex.sk> - 28.10.2001 16:47:22
Ahoj,
report pod QuickRep je funkcny - tlaci na x tlaciarnach spravne jedna sa
vylozene o HP LJ1000w (USB).
Na tejto tlaciarni netlaci spravne ziadny program napisany v Delphi ktory
pouziva konstrukciu: (odskusane na W98, D5sp1)
Printer.BeginDoc;
...
Printer.NewPage;
...
Printer.NewPage;
...
Printer.EndDoc;
...a z tlaciarne vyjde len jeden list.
Akakolvek zmena vlastnosti tlaciarne nepomoze.
Preto som sa pytal co je este mozne pouzit namiesto spominanych funkcii,
ktore su pouzite v tele metody TPrinter.NewPage.
Lauko.
----- Original Message -----
From: Martin Macko <martinm(zv)m-pro(tec)cz>
> a co pouzit QuickRep1.NewPage ?
>
> -----Original Message-----
>
> Dobry den,
> dnes som to konecne vyskusal na HP LJ1000w (USB). TPrinter vsetky strany
> nabacha na jeden list (nestrankuje). TQuickRep vytlaci len poslednu
stranku
> a ked je kratsia tak je zbytok strany doplneny predchadzajucou stranou.
> Sineu som neskusal...
> Word a ostatne programi tlacia normalne.
>
> Co je este mozne pouzit namiesto:
>
> function EndPage; external gdi32 name 'EndPage';
> function StartPage; external gdi32 name 'StartPage';
>
> Asi bude chyba vo volani tychto externych funkcii.
> Mam moznost to testovat - pomozte mi prosim niekto tento problem
vyriesit...
> Dakujem, Lauko. D5,W98
OT: Rozliseni a profily uzivatelu (WAS: Jaky OS pr
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 28.10.2001 16:54:46
Jak se tak zda, tak neni. Nainstaloval jsem to a beha to dobre. Mam akorat
velky problem s ucty uzivatelu. Pridal jsem do systemu dalsi 2 uzivatele a
kdyz si nektery z nich zmeni rozliseni obrazovky, zmeni se to i ostatnim.
Stejny problem jsem mel i ve Win2000. Nevite nekdo co s tim? Ve Win98 to
fungovalo bez problemu...
Predem diky za nakopnuti
M.Kralik
On Tue, 27 Nov 2001, Pavel ZIDEK wrote:
> A nebude XP trosku narocny na hardware? Myslim si, ze Celereon bude trochu
> pomaly.
> Pavel
VBasic--->Pascal
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 28.10.2001 17:04:08
Ono je to opravdu slozitejsi, souhlasim s tim co posilali
kolegove prede mnou, chce to vic informaci a resit
pripad od pripadu.
Tomu co posilas ted vubec nerozumim.
To co jsem psal o "Set" ale plati, ve VB se tim uvozuji
prirazeni do objektovych promennych nebo vlastnosti
jinych objektu, ktere jsou objektoveho typu. V Delphi
to neni potreba, protoze v pripade prirazeni do promenne
se jedna pouze o prirazeni pointeru a u prirazeni do
vlastnosti objektu se vse resi setovou metodou te
vlastnosti.
Martin Schayna
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
To: <delphi-l(zv)clexpert(tec)cz>
Cc: <mschayna(zv)aktis(tec)cz>
Sent: Wednesday, November 28, 2001 4:38 PM
Subject: Re: Re: VBasic--->Pascal
> Ahoj
>
> From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
>
>
> > > Set premenna1(vlastnost1) = New_Object.premenna(vlastnost)
>
> > V Delphi neni potreba uvadet Set, staci pouze priradit pomoci :=
>
> pouzit := by som najskor musel nejako zadefinovat
> co je to vlastnost1 nieco ako:
> var vlastnost1:New_Object.vlastnost :-(
>
>
> > Ve VB se tak musi uvadet kazde prirazeni do objektove
> > promenne/vlastnosti
> takze tomuto rozumiem tak ze ked chcem pracovat s vlastnostou
> objektu vo VB musim ju najskor pseudovytvorit resp jej priradit
> nejaky novy nazov a s tym potom robit?
> Napr Set Meno=Query1.Fields
> Meno.First
> Ak ano tak potom ma to v Delphi nemusi trapit mam usetrenu robotu.
> Ci som to zle pochopil?Dufam ze nie :-)
> Mam rad usetrenu robotu :-)
> Peter Surovy
> OT: xmlcomponents - reference
[*] Jarda Jirava <listuj(zv)centrum(tec)cz> - 28.10.2001 17:11:19
Zdravim,
chtel jsem se zeptat zda tu nekdo ma zkusenosti s XMLComponents
(xmlcomponents.com), podle popisu na strankach to vypada dobre. A
snad i pouzitelne, ale radeji bych to slysel take od nekoho
jineho.
Uvadi, ze je to pro Delphi, ale maji i vlastni RAD editor a
pripojeni jak na Interbase tak i ostatni DB.
Odpovedi pripadne na soukromy mejl.
Diky
Jarda
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
-----
U�ite�n� informace pro v�no�n� pohodu
http://vanoce.centrum(tec)cz
Korektnost Application.Terminate
[*] brant(zv)dcomm(tec)cz - 28.10.2001 17:26:27
Ahoj vespolek, rad bych se ujistil, jestli je korektni tento zpusob ukonceni
programu jiz v DPR:
begin
...
Application.Initialize;
...
Application.CreateForm(TInfoTracsMain, InfoTracsMain);
Application.CreateForm(TInetProblemWnd, InetProblemWnd);
...
if Neco_je_spatne then
Application.Terminate
else Application.Run;
end.
Jde mi o to, jestli se nemusi rucne uvolnovat objekty, ktere vznikly volanim
Application.CreateForm.
Diky predem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Korektnost Application.Terminate
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.10.2001 17:33:16
From: <brant(zv)dcomm(tec)cz>
> Jde mi o to, jestli se nemusi rucne uvolnovat objekty, ktere vznikly volanim
> Application.CreateForm.
Ahoj,
nemusi, i kdyz asi lepsi reseni by bylo
if not Neco_je_spatne then
begin
Application.Initialize;
...
Application.CreateForm(TInfoTracsMain, InfoTracsMain);
Stejne tak muzes zavolat Application.Terminate v OnCreate formulare a tim
predejit rucnim zasahum do DPR souboru.
Petr Vones
Korektnost Application.Terminate
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 28.10.2001 17:34:10
> begin
> ...
> Application.Initialize;
> ...
> Application.CreateForm(TInfoTracsMain, InfoTracsMain);
> Application.CreateForm(TInetProblemWnd, InetProblemWnd);
> ...
> if Neco_je_spatne then
> Application.Terminate
> else Application.Run;
>
> end.
Co provadi ta funkce neco_je_spatne ? Neslo by to spise pouzit jako
App.Initialize
if Neco_je_spatne then
//vypis chybu
else begin
App.CreateForm...
App.CreateForm...
App.Run
end
VBasic--->Pascal
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 28.10.2001 17:48:04
Ja jsem si na vlastni kuzi vyzkousel, ze nema smysl se tim moc zabyvat. Snaz
se ze zdrojaku VB pochopit, co tim chtel basnik rici, a potom to udelel
"delfinim" zpusobem. Nema cenu se snazit napadobit VB, kdyz v Delphi to
muzes udelat lip.
Martin Ben
> -----Puvodni zprava-----
> Od: Peter Surovy [mailto:psurovy(zv)uevora.pt]
> Odeslano: 28.11.2001 16:39
> Komu: delphi-l(zv)clexpert(tec)cz
> Kopie: mschayna(zv)aktis(tec)cz
> Predmet: Re: Re: VBasic--->Pascal
>
>
> Ahoj
>
> From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
>
>
> > > Set premenna1(vlastnost1) = New_Object.premenna(vlastnost)
>
> > V Delphi neni potreba uvadet Set, staci pouze priradit pomoci :=
>
> pouzit := by som najskor musel nejako zadefinovat
> co je to vlastnost1 nieco ako:
> var vlastnost1:New_Object.vlastnost :-(
>
>
> > Ve VB se tak musi uvadet kazde prirazeni do objektove
> > promenne/vlastnosti
> takze tomuto rozumiem tak ze ked chcem pracovat s vlastnostou
> objektu vo VB musim ju najskor pseudovytvorit resp jej priradit
> nejaky novy nazov a s tym potom robit?
> Napr Set Meno=Query1.Fields
> Meno.First
> Ak ano tak potom ma to v Delphi nemusi trapit mam usetrenu robotu.
> Ci som to zle pochopil?Dufam ze nie :-)
> Mam rad usetrenu robotu :-)
> Peter Surovy
> Query na tabulky v ruznych adresarich
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 28.10.2001 17:53:14
Ahoj,
ve sve aplikaci pouzivam paradox tabulky, umistene ve dvou ruznych
adresarich.
Pouzivam aliasy.
Potrebuju ted pomoci dotazu spojit data z tabulky "a" (alias napr. cesta1)
a "b" (alias napr. cesta 2). Obe tabulky obsahuji polozku rodnecislo. Jak
upravit
tento dotaz ?
select rodnecislo, adresa
from a, b //? jak tady ?
where a.rodnecislo=b.rodnecislo
Dik za radu
Lada D3
VBasic--->Pascal - pochopene
[*] Peter Surovy <psurovy(zv)uevora.pt> - 28.10.2001 17:04:46 -0000
Ahoj;
Ospravedlnujem sa za nie prilis
zrozumitelne otazky teraz chapem toto:
Vo VB sa pomocou metody Set priraduje
do objektovych premennych alebo vlastnosti
vlastnost alebo premenna inych objektov.
Zmysel toho je setrenie casu v runtime ked procesor nemusi
danu vlastnost objektu vzdy vyhladavat od zaciatku deklaracie objektu.
Citujem:
1. na instancii myobject najdi vlastnost s nazvom 'xxx'
2. na nej najdi vlastnost s nazvom 'yyy'
3. na nej najdi vlastnost s nazvom 'zzz'
4. na nej najdi vlastnost s nazvom 'aaa'
5. na nej najdi vlastnost s nazvom 'pomoc'
6. na nej najdi metodu s nazvom 'rob_nieco'
7. ak este user nevypol stroj a nesiel domov, zavolaj tu metodu
cize ak sa napise
set bla = myobject.xxx.yyy.zzz.aaa.pomoc
potom mozem pouzivat
bla.rob_nieco
---koniec citatu
resp. ak nepouzijem set pre metodu rob_nieco nemozem ju pouzit
*************************************************
V Delphi toto nie je potreba vobec robit!!!!
protoze v pripade prirazeni do promenne
se jedna pouze o prirazeni pointeru a u prirazeni do
vlastnosti objektu se vse resi setovou metodou te
vlastnosti.
--Toto som potreboval vediet Dakujem vsetkym za spolupracu.
Peter Surovy
Korektnost Application.Terminate
[*] brant(zv)dcomm(tec)cz - 28.10.2001 18:12:16
Ta vola nejakou metodu objektu InfoTracsMain, ktera zjistuje stav systemu.
Vypis a logovani chyb je v tom objektu, proto se ten objekt musi vytvorit
nejdriv. Ve skutecnosti je to kapku slozitejsi, ale slo mi jen o to, jestli
Terminate korektne uvolnuje pamet.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> begin
> ...
> Application.Initialize;
> ...
> Application.CreateForm(TInfoTracsMain, InfoTracsMain);
> Application.CreateForm(TInetProblemWnd, InetProblemWnd);
> ...
> if Neco_je_spatne then
> Application.Terminate
> else Application.Run;
>
> end.
Co provadi ta funkce neco_je_spatne ? Neslo by to spise pouzit jako
App.Initialize
if Neco_je_spatne then
//vypis chybu
else begin
App.CreateForm...
App.CreateForm...
App.Run
end
MultiMedia
[*] Martin #d�rsk� <zdary(zv)seznam(tec)cz> - 28.10.2001 19:01:27
Ahoj, Nemuzu vyresit problem s mediaplayerem. potrebuju, aby zvukovy
vystup sel na druhou zvukovou kartu. Zkousel jsem i mediaplayer
vlozeny jako activeX. Dik za radu
S pozdravem Martin
Zdarsky
______________________________________________________________________
Bol� V�s v krku? Pastilky Tantum Verde P V�m rychle pomohou.
http://ad2.seznam(tec)cz/redir.cgi?instance=13764%26url=http://www.tantum(tec)cz
Dalsi chyba Delphi 6? (paleta komponent)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.10.2001 21:21:39
Preji vsem pekneho dne,
nejde o nic brutalniho, MS by to oznacil za vlastnost:
1) vyberte libovolnou komponentu z palety komponent se stiknutym
shiftem
2) prepnete na libovolnou jinou zalozku majici minimalne stejny
pocet komponent jako aktualni
3) nyni je vybrana (alespon u mne) komponenta na stajnem miste a
muzete ji vesele vkladat...
Slavek
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
OT: Interbase 6.0.1 a Internal gds software consis
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 29.10.2001 06:25:31
Zkuste pred gback pustit gfix s parametrem -mend.
> Nejaky popis na odstranovani chyb s DB je na www.firebirdsql.org, ale
> uz nevim kde jsem to tam nasel (mam dojem ze nekde v sekci FAQ nebo
> Documentation).
> On Mon, 12 Nov 2001, Jon�# Mari�n wrote:
> > obracim se na znalce Interbase s dotazem, mam databazi
> > ktera mi vykazuje tuto chybu : "Internal gds software
> > consistency check (cannot find tip page (165))".
Z.Kalhous
Ako ziskat 'sender' v OnCellClick
[*] <delphi(zv)zvlauto.sk> - 29.10.2001 07:18:44
Ahojte
Moj problem spociva v tom, ze v DBGrid -> OnCellClick sa "neda?" pouzit
premmena sender. Potrebujem ziskat od ktoreho objectu sa to vyvolalo.
Ako sa to da?
Vdaka.
Robo.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
Ako ziskat 'sender' v OnCellClick
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.10.2001 07:21:43
> Moj problem spociva v tom, ze v DBGrid -> OnCellClick sa "neda?"
> pouzit premmena sender. Potrebujem ziskat od ktoreho objectu sa to
> vyvolalo. Ako sa to da?
>
Koukal jsem do helpu, ze TColumn ma property Grid, ktera
ukazuje na grid, v nemz ten column je. To by mohlo byt to, co
hledas.
David Lebeda
IB a post_event
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 29.10.2001 07:54:47
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> > Odes�latel: Kaka�ka Pavol <kakacka(zv)proca(tec)cz>
> > Relativne jednoducho. Vytvoris si nejake UDF ktore maju urcite vstupne
> > parametre. Pri volani UDF sa vstupny parameter funkcii preda a ta ho
posle
> > (zapise) do logu alebo externeho debuggeru.
>
> Ten priklad ze skoleni V.Bodecka jde jeste dal:
> Funkce z UDF primo oslovi klienta, ktery si (v paralelnim threadu) tuto
informaci zpracuje.
To zaiste :) ale neni cas ani priestor mailom popisovat celu funkcnost...
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
DB aplikace - objektovy pristup - jak?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 29.10.2001 07:58:20
:-o) Mno tato problematika je tak rorziahla ze neni v ludskych silach to
riesit cez konferenciu. Doporucujem konzultacie.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: "vlcir" <vlcir(zv)seznam(tec)cz>
> Ahoj. Chtel bych napsat databazovou aplikaci, u ktere by bylo snadne
> menit napr. zpusob ovladani a zobrazovani vystupu. Takze bych chtel
> mit moznost pristupovat napr. pres klasicke formulare, ale treba taky
> vygenerovat rozhrani pro prezentaci pres web, nebo jakkoliv jinak.
>
> Pro zacatek by to asi chtelo nejake objekty, nejprve tedy obecny
> radek v tabulce databaze pro jednotlive ukony, z nej nejakym zpusobem
> odvodit ukladani, mazani, zmenu atd. ale zase obecne, aby bylo mozno
> zmenit strukturu radku tabulky bez velkych zmen kodu.
>
> Myslim, ze bych si tim mohl do budoucna usetrit spoustu prace. Je to
> zatim nastin, uvital bych nejake konkretni zkusenosti, abych se do
> toho mohl pustit.
Ako ziskat 'sender' v OnCellClick
[*] <delphi(zv)zvlauto.sk> - 29.10.2001 08:04:30
Nie tak. Dajme tomu ze je aktivne Edit1. Potom uzivatel klikne na DBGrid.
Vyvola sa udalost OnCellClick a ja chcem vediet ze to predtym bolo Edit1,
Edit2.... tlacitko..
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lebeda David
Sent: Thursday, November 29, 2001 7:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Ako ziskat 'sender' v OnCellClick
> Moj problem spociva v tom, ze v DBGrid -> OnCellClick sa "neda?"
> pouzit premmena sender. Potrebujem ziskat od ktoreho objectu sa to
> vyvolalo. Ako sa to da?
>
Koukal jsem do helpu, ze TColumn ma property Grid, ktera
ukazuje na grid, v nemz ten column je. To by mohlo byt to, co
hledas.
David Lebeda
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
Ako ziskat 'sender' v OnCellClick
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.10.2001 08:28:13
> Nie tak. Dajme tomu ze je aktivne Edit1. Potom uzivatel klikne na
> DBGrid. Vyvola sa udalost OnCellClick a ja chcem vediet ze to predtym
> bolo Edit1, Edit2.... tlacitko..
To by ale neslo pres Sender v obsluze OnCellClick ani kdyby
existoval, protoze Sender by stejne byl DBGrid. Tady asi nezbyde,
nez v nejake promenne uchovavat aktivni control (promennou plnit v
OnEnter tech controlu) a pracovat s ni. Lepsi reseni me
momentalne nenapada.
David Lebeda
>
> > Moj problem spociva v tom, ze v DBGrid -> OnCellClick sa "neda?"
> > pouzit premmena sender. Potrebujem ziskat od ktoreho objectu sa to
> > vyvolalo. Ako sa to da?
> >
>
> Koukal jsem do helpu, ze TColumn ma property Grid, ktera
> ukazuje na grid, v nemz ten column je. To by mohlo byt to, co
> hledas.
>
> David Lebeda
Komponenta RX
[*] Pepa Matlafous <Matlafous007(zv)hotmail(tec)com> - 29.10.2001 08:34:22
Zkusil jste nekdo nainstalovat Komponentu RX v. 2.60 do Delph 6? Verze 2.60 je puvodne pro Delphi 1 - 4. Anebo vite o nejake nove verzi ktera je i pro Delphi 6? Popripade odkaz, pokud ho vite.
Dik
ADO, Stored. proc. a temporary table
[*] bardon <bardon(zv)akord-soft(tec)cz> - 29.10.2001 08:39:35
Ja bych skusil dat na zacatek SET NOCOUNT ON a na konec SET NOCOUNT OFF (mi
to v podobnych pripadech pomaha, ale presne tento pripad jsem nemel - takze
za vysledek nerucim).
>Problem spociva v tom, ze mi v metode ExecProc nedojde k
>vyslehnuti vyjimky. Pokud ve stor. proc. vynecham radek s
>INSERTem, chodi to tak, jak ma. Vzhledem k tomu, ze vkladat do
>te pomocne tabulky musim, me uvedena nefunkcnost stve (pokud
>uloz. proc. krokuju, funguje to, jak ma). Jak toto napravit?
InterBase- zjistit pocet radek ktere byly updatova
[*] vlcir <vlcir(zv)seznam(tec)cz> - 29.10.2001 08:41:29
Jak zjistim v InterBase po provedeni UPDATE nebo DELETE tabulky,
kolik radek bylo zmeneno. RowsAffected mi vraci vzdy
-1.
______________________________________________________________________
Bol� V�s v krku? Pastilky Tantum Verde P V�m rychle pomohou.
http://ad2.seznam(tec)cz/redir.cgi?instance=13764%26url=http://www.tantum(tec)cz
Komponenta RX
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 29.10.2001 08:53:42
Ahoj,
uvedene komponenty pro Delphi 6 jsou ve verzi 2.75. Nevim kde se nachazeji na internetu, ale mam je na disku.
Myslim, ze byly soucasti nejakeho CHIP CD.
Zip archiv techto komponent ma 1.2MB
----- Original Message -----
From: Pepa Matlafous
To: Konference
Sent: Thursday, November 29, 2001 8:34 AM
Subject: Komponenta RX
Zkusil jste nekdo nainstalovat Komponentu RX v. 2.60 do Delph 6? Verze 2.60 je puvodne pro Delphi 1 - 4. Anebo vite o nejake nove verzi ktera je i pro Delphi 6? Popripade odkaz, pokud ho vite.
Dik
OT: Win2000 a *.chm
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 29.10.2001 09:04:05
Ahoj vsichni.
Omlouvam se za OT, ale snad mi nekdo poradi.
Kdysi davno jsem vytvoril help ve formatu *.CHM prevodem textu z Wordu.
Pod Win98 je to vporadku, ale pri spusteni pod Win2000 je v obsahu
zmrsena cestina. Rejstrik i vlastni text jsou dobre.
Nevi nekdo co s tim ?
Ani po instalaci IE 6 se nic nezmenilo.
Diky za napady.
Pavel
Komponenta RX
[*] borkovec(zv)email(tec)cz - 29.10.2001 09:14:11
Cau,
http://www.epsylontech.com
R&B
--- P�vodn� zpr�va ---
Od: "Pepa Matlafous" <Matlafous007(zv)hotmail.com>
Datum: 29.11.2001 08:53:32
Zkusil jste nekdo nainstalovat Komponentu RX v. 2.60 do Delph 6? Verze 2.60 je puvodne pro Delphi 1 - 4. Anebo vite o nejake nove verzi ktera je i pro Delphi 6? Popripade odkaz, pokud ho vite.
Dik
---
** CREATED BY EMAIL.CZ **
http://www.email(tec)cz <--- Get Your Free Email
Kontrola cisla DIC ??
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 29.10.2001 09:43:31
Zdravim.
Nedavno jsem tu videl nekde algoritmus na kontrolu cisla ICO.
Nevite nekdo nahodou o necem takovem pro DIC.
Respektive jake tam jsou pravidla?
Diky Lada
Komprese do CAB
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 29.10.2001 09:53:26
Potrebuji v programu zalohovat data do CAB souboru.
Muzete mi poradit nejakej zpusob nebo komponentu.
Dekuji
Update DB aplikace
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 29.10.2001 09:54:11
Ahoj,
potrebuji updatnout moji databazovou aplikaci u zakazniku.
Jde samozrejme o update databaze s tim, ze se maji zachovat data.
1) Je mozno smazat vsechny ulozene procedury, view atd., nechat tabulky s
daty, updatnout je, a nalamat tam nove procedury, view atd.
2) Vytvorit databazi nanovo a presypat data (pri tom je pripadne
zkonvertovat).
Druha moznost se mi zda ponekud snazsi, urcite to uz nekdo resil, tak se
pochlubte se svymi zkusenostmi.
D5;Interbase6.01;IBExpress;
Diky
Ota Maly
PaPouch elektronika
http://www.papouch.com
Kontrola cisla DIC ??
[*] Petr Poto�ek <pp1(zv)volny(tec)cz> - 29.10.2001 09:59:37
Ahoj,
DIC se sklada z trojmistneho predcisli ( coz je cislo FU, u ktereho je
platce registrovan ), nasleduje pomlcka a potom
osmi az desetimistne cislo (kterym je pro pravnicke osoby ICO a pro fyzicke
osoby rodne cislo).
Cisla financnich uradu lze najit na strankach Ministerstva financi.
Petr Potocek
----- Original Message -----
From: "L. Filip" <lfilip(zv)lekis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 29, 2001 9:43 AM
Subject: Kontrola cisla DIC ??> Zdravim.
> Nedavno jsem tu videl nekde algoritmus na kontrolu cisla ICO.
> Nevite nekdo nahodou o necem takovem pro DIC.
> Respektive jake tam jsou pravidla?
>
> Diky Lada
>
>Kontrola cisla DIC ??
[*] Tom� Hol� - notebook <notebook(zv)thcom(tec)cz> - 29.10.2001 10:17:56
ahoj,
DIC ma format bud XXX-YYYYYYYY nebo XXX-RRRRRRRRRR
kde XXX je kod financniho uradu a YYYYYYYY je ICO u prav osoby a RRRRRRRRRR
je rodne cislo u Fyzicke osoby
takze potrebujes akorat seznam Fin uradu a kontrolu na ICO a na RC
TH
Nedavno jsem tu videl nekde algoritmus na kontrolu cisla ICO.
Nevite nekdo nahodou o necem takovem pro DIC.
Respektive jake tam jsou pravidla?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
DB aplikace - objektovy pristup - jak?
[*] vlcir <vlcir(zv)seznam(tec)cz> - 29.10.2001 10:19:22
To asi jo :-). Nejsou nekde alespon nejake priklady webu nebo nejaka
literatura, jde mi spise o to, jestli nejsou nekde nejake zname
pouzivane postupy, tj. jakym smerem se vydat.> :-o) Mno tato problematika je tak rorziahla ze neni v ludskych silach to
> riesit cez konferenciu. Doporucujem konzultacie.
______________________________________________________________________
Jak poslat rukou psan� text na mail? P�ece faxem Panasonic!
http://www.panasonic(tec)cz/redirect.html
FormStorage z RXLibrary
[*] Jan Naiser <tua(zv)wo(tec)cz> - 29.10.2001 10:36:34
Preji pekny den,
pouziju-li FormStorage z RXLibrary, pak pri ulozeni maximalizovaneho formu
se mi po jeho opetovnem nacteni form sice maximalne zvetsi, ale neni
maximalizovany. Da se to nejak obejit, aby se maximalizoval nebo jsem neco
prehledl v nastaveni komponenty?
Za odpoved dekuji.
Jan Naiser.Jak psat DLL
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 29.10.2001 10:38:37
Kde bych nasel zacatecnicky navod, jak zacit psat DLL knihovny?FormStorage z RXLibrary
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 29.10.2001 10:47:38
> Preji pekny den,
>
> pouziju-li FormStorage z RXLibrary, pak pri ulozeni maximalizovaneho formu
> se mi po jeho opetovnem nacteni form sice maximalne zvetsi, ale neni
> maximalizovany. Da se to nejak obejit, aby se maximalizoval nebo jsem neco
> prehledl v nastaveni komponenty?
>
> Za odpoved dekuji.
>
> Jan Naiser.
>
Zaskrtnout WindowState
Radim
FormStorage z RXLibrary
[*] Jan Naiser <tua(zv)wo(tec)cz> - 29.10.2001 10:52:55
To samozrejme mam zaskrtnute.
Honza.
----- Original Message -----
From: "Radim Kunz" <privat(zv)casestudio.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 29, 2001 10:47 AM
Subject: Re: FormStorage z RXLibrary
> > Preji pekny den,
> >
> > pouziju-li FormStorage z RXLibrary, pak pri ulozeni maximalizovaneho
formu
> > se mi po jeho opetovnem nacteni form sice maximalne zvetsi, ale neni
> > maximalizovany. Da se to nejak obejit, aby se maximalizoval nebo jsem
neco
> > prehledl v nastaveni komponenty?
> >
> > Za odpoved dekuji.
> >
> > Jan Naiser.
> >
>
> Zaskrtnout WindowState
>
> Radim
>
>Update DB aplikace
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 29.10.2001 11:01:33
On 29 Nov 2001, at 9:54, Ota Maly wrote:
> potrebuji updatnout moji databazovou aplikaci u zakazniku.
> 1) Je mozno smazat vsechny ulozene procedury, view atd., nechat tabulky s
> daty, updatnout je, a nalamat tam nove procedury, view atd. 2)
> Vytvorit databazi nanovo a presypat data (pri tom je pripadne
> zkonvertovat).
> Druha moznost se mi zda ponekud snazsi, urcite to uz nekdo resil, tak
> se pochlubte se svymi zkusenostmi.
Myslim ze prijde na to, v cem spociva restrukturalizace, kolik je v
databazi dat a jaky zpusob se pouzije pro jejich presypani. Ja si
zatim (na trosku silene databazi s cca 200 tabulkami a stovkami
relaci) vystacim s restrukturalizaci na zive databazi s daty (zhruba
postup 1) s tim, ze zmeny jsou generovany postupne takze mi
vznikaji dilci upgrade skripty ktere postupne ladim a stosuju. Pro
jednu parcialni zmenu vetsinou staci zrusit a znovu nahrat nejvyse
nekolik procedur, pohledu a trigru. No a nez to pustim u zakaznika
na ostrou databazi, tak si to pak jeste vyzkousim vcelku, pomodlim
se a jdem na to. U druheho postupu jsem narazil na to, ze je
potreba mit rozumny nastroj na export/import dat, musi se to
peclive pripravit a muze to trvat i dost dlouho. Treba vyexportovani
100000 zaznamu ve forme insert prikazu jeste jde, horsi to je kdyz
se potom maji nahrat zpatky do DB.
Tusim ze IBExpert umi porovnat dve databaze s tim, ze vygeneruje
i sql skript kterym lze prejit od jedne k druhe. Zkouseli jsme to,
skripty byly v poradku vcetne toho ze poznal ktere SP,triggery ap
musi kdy zrusit a kdy zas obnovit, jedine co neumel je position u
atributu - nove atributy pridaval vzdy na konec radku. Coz muze byt
nekdy problem.
Z.Kalhous
Zachycen� kurzorov�ch kl�ves
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2001 11:04:21
> Odes�latel: Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz>
> potreboval v podstate docilit toho, aby posun v gridu reagoval jen na
> "nesiftovane" a "nealterovane" klavesy sipek.
Nejsem si jist,
ale kdyz v OnKeyDown dam Key:=0;
mohlo by to pomoci.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Odchyceni klavesy ??
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 29.10.2001 11:23:02
Zdravim.
V ruznych komponentach (vetsinou TEdit) odchytavam klavesovou zkratku
Ctrl+Enter (a jine). Vse funguje tak jak ma, ale po kazdem stisku
odchytavane klavesy mi pipne pocitac (neobslouzena udalost ??).
Vse odchytavam v KeyDown - kvuli rozliseni vsech stistenych klaves.
Nevite co s tim.
Diky Lada.Odchyceni klavesy ??
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 29.10.2001 11:27:45
Ahoj,
pridej odchytavani i do OnKeyPress, Key := #0;
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele L. Filip
> Odesl�no: 29. listopadu 2001 11:23
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Odchyceni klavesy ??
>
> Zdravim.
> V ruznych komponentach (vetsinou TEdit) odchytavam klavesovou zkratku
> Ctrl+Enter (a jine). Vse funguje tak jak ma, ale po kazdem stisku
> odchytavane klavesy mi pipne pocitac (neobslouzena udalost ??).
> Vse odchytavam v KeyDown - kvuli rozliseni vsech stistenych klaves.
> Nevite co s tim.
>
> Diky Lada.
>
Vynulovani sekund SQL dotazem
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 29.10.2001 11:34:19
Vazeni pratele,
potrebuji vytvorit SQL dotaz, ktery vynuluje nebo alespon vyselektuje
sekundy v datetime poli.
Dekuji Jarda
VBasic--->Pascal
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2001 11:43:27
Odes�latel: Peter Surovy <psurovy(zv)uevora.pt>
> dufam ze to nie je OT ale potrebujem to v Delphi
> prepisujem program z Visual Basic do Delphi:
Padla tady rada nazoru, vesmes s nimi souhlasim.
Prepis to do Delphi (resp. Object Pascalu) standardnim zpusobem Object Pascalu.
Bude to prehlednejsi i rychlejsi.
Co tady nepadlo:
Tvuj priklad mi tak trochu zavani necim takovym jako:
nazev_vlastnosti := 'vlastnost1';
X:= myobject.nazev_vlastnosti;
Vyse napsana konstrukce v Object Pascalu samozrejme nejde.
Je bezna (principialne, ne doslova) pro skriptovaci jazyky.
Neni to legrace, ale prislusneho efektu se da v Object Pascalu dosahnout vyvolanim metody myobject.Invoke.
myobject ovsem musi byt alespon IDispatch.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Update DB aplikace
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2001 11:44:21
> Odes�latel: Ota Maly <ota.maly(zv)volny(tec)cz>
> 1) Je mozno smazat vsechny ulozene procedury, view atd., nechat tabulky s
> daty, updatnout je, a nalamat tam nove procedury, view atd.
> 2) Vytvorit databazi nanovo a presypat data (pri tom je pripadne
> zkonvertovat).
>
> Druha moznost se mi zda ponekud snazsi, urcite to uz nekdo resil, tak se
> pochlubte se svymi zkusenostmi.
At tak ci tak, pokusil bych se vyhnout psani "presypaciho" programu v Delphi.
Napsal bych na to ulozenou proceduru.
Lze ji snadno upravovat, bez kompilace.
Navic to bude nesrovnatelne rychlejsi.
V pripade 2) by ale bylo nutno tabulky nejdriv prekopirovat do pomocnych tabulek a ty po "presypani" zrusit.
Pokud jde o podobne ukoly, vetsinou jsem je resil zpusobem 1).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Podminka v SQL dotazu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 29.10.2001 12:02:15
Dobry den,
mam SQL dotaz, ktery nyni mimo jine vrati POLE1 a POLE2, oboje char(8). Ja bych potreboval, aby se vracelo pole jedine
(VYSLEDEK), a to podle pravidla, ze kdyz POLE1 je null, pak se do VYSLEDEK ulozi POLE2, v ostatnich pripadech se do
VYSLEDEK ulozi POLE1.
Neco na zpusob exceloveho
VYSLEDEK:=kdyz(POLE1 is null; POLE2; POLE1)
Jde to na IB 6.0.1 nejak elegantne vyresit?
Pokud by to obnaselo UDF, mohl byste prosim nekdo (pripadne na soukromy mail) poslat malou ukazku, jak napsat UDF, ktera
jako parametry dostane dva texty a dokaze se "podivat", zda nektery z nich je null?
Diky, Karel Rys
Update DB aplikace
[*] Rado Benc <bego(zv)pobox.sk> - 29.10.2001 12:18:13
Nazdar,
> Jde samozrejme o update databaze s tim, ze se maji zachovat data.
> 1) Je mozno smazat vsechny ulozene procedury, view atd., nechat tabulky s
> daty, updatnout je, a nalamat tam nove procedury, view atd.
Pri nevelkej aplikacii to odhadujem na roky nevdacnej, nebazpecnej a
zdraviu skodlivej prace. Objekty v databaze su na sebe navzajom zavisle,
teda je nutne dodrzat presne poradie v akom ich budes mazat a znovu
vytvarat. Pripadna chyba moze mat nebezpecne dosledky.
> 2) Vytvorit databazi nanovo a presypat data (pri tom je pripadne
> zkonvertovat).
IMHO menej zla alternativa. Pokial je to mozne, pouzivam nasledovny postup:
Vytvorim davkovy subor (run.bat) asi takto:
REM Change this to whatever your InterBase / FireBird directory root is
CD Program Files\Borland\Interbase\Bin
REM Purge out the log
DEL f:\path\Friday.log
REM Run scripts
ECHO Generating Metadata...
isql -i f:\path\friday.sql -o f:\path\friday.log -m
ECHO Initializing structures...
isql -i F:\path\initall.sql -o F:\path\friday.log -m
REM Open the log
ECHO Log:
TYPE f:\path\friday.log
REM End
PAUSE
Tento subor spusta dva sql skripty. Prvy z nich (friday.sql) vytvara
tabulky, procedury a tak. Tento skript samozrejme nepisem rucne, ale
necham si ho vygenerovat z existujucej databazy (novej verzie) napriklad
takto:
REM Project Extract
DEL f:\path\friday.sql.txt
CD Program Files\Borland\Interbase\Bin
isql localhost:f:\data\friday.gdb -x -m -u SYSDBA -p masterkey -o
f:\path\friday.sql.txt
Databaza obsahuje aj proceduru, ktora inicializuje ciselniky, nastavenia,
apod.
Tuto proceduru spusta ten druhy skript (initall.sql).
Vysledkom je nainicializovana databaza v ktorej chybaju uz "len" userove
data. Tu nastupuje viacmenej rucna praca - zalezi na tom, ci su pouzite
trigre, apod.
HTH,
Rado
____________________________________
http://www.pobox.sk/ - spolahliva a bezpecna prevadzka
Zahadne nevytvareni TMemo
[*] brant(zv)dcomm(tec)cz - 29.10.2001 12:23:15
Ahoj vespolek, mam puvodne nevizualni tridu (TITRMessaging), jejiz kod je
ted okopirovan ke standardni tride (TCommunicateWnd), ktera je potomkem
TForm. Jedna se o resizovatelne okno s dvema objekty TMemo a tremi
tlacitky. V konstruktoru TITRMessaging mam dynamicky vytvoren objekt
TCommunicateWnd, takze pri vytvoreni promenne tridy TITRMessaging se
automaticky vytvori take promenna tridy TCommunicateWnd.
Trida TITRMessaging se pouziva ve dvou projektech, v jednom funguje bez
problemu, ale ve druhem se vetsinou NEVYTVORI ty dve Mema, takze v okne jsou
videt jen ta tri tlacitka a pri zavirani to samozrejme spadne. Vubec
netusim, kde hledat chybu. Nemate s tim nekdo zkusenost?
Diky predem za vsechny odpovedi
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Podminka v SQL dotazu
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 29.10.2001 12:44:35
Ja bych pouzil bud SP nebo union
1. Union
select pole1 as vysledek
from table
where pole1 is not null
union all
select pole2 as vysledek
from table
where pole1 is null
2. SP
create procedure ........
returns (vysledek char(8))
as
declare variable pole1 char(8);
declare variable pole2 char(8);
begin
for
select pole1, pole2
from table
into :pole1, :pole2
do begin
if pole1 is null
then vysledek = pole2
else vysledek = pole1
suspend;
end
end
> Dobry den,
>
> mam SQL dotaz, ktery nyni mimo jine vrati POLE1 a POLE2, oboje char(8). Ja bych potreboval, aby se vracelo pole jedine
> (VYSLEDEK), a to podle pravidla, ze kdyz POLE1 je null, pak se do VYSLEDEK ulozi POLE2, v ostatnich pripadech se do
> VYSLEDEK ulozi POLE1.
>
> Neco na zpusob exceloveho
> VYSLEDEK:=kdyz(POLE1 is null; POLE2; POLE1)
>
> Jde to na IB 6.0.1 nejak elegantne vyresit?
>
> Pokud by to obnaselo UDF, mohl byste prosim nekdo (pripadne na soukromy mail) poslat malou ukazku, jak napsat UDF, ktera
> jako parametry dostane dva texty a dokaze se "podivat", zda nektery z nich je null?
>
> Diky, Karel Rys
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
maximalizace
[*] Pepa Matlafous <Matlafous007(zv)hotmail(tec)com> - 29.10.2001 12:55:19
Please, jak se da udelat aby se nezobrazovalo tlacitko MAXIMALIZOVAT.
Dik
maximalizace
[*] dphi_forum(zv)proces.sk - 29.10.2001 13:08:40
Form1.BorderIcons := Form1.BorderIcons - [biMaximize];
S pozdravom
Delphi
Jak psat DLL
[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 29.10.2001 13:27:42
Marko Cantu,Mistrovstvi v Delphi, tusim, ze druha cast.
J&K
----- Original Message -----
From: "Krayzel Libor" <Libor.Krayzel(zv)czech-tv(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 29, 2001 10:38 AM
Subject: Jak psat DLL
> Kde bych nasel zacatecnicky navod, jak zacit psat DLL knihovny?
> maximalizace
[*] Pepa Matlafous <Matlafous007(zv)hotmail(tec)com> - 29.10.2001 13:32:40
A nejde aby se vubec to tlacitko nezobrazovalo?
----- Original Message -----
From: <dphi_forum(zv)proces.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 29, 2001 1:08 PM
Subject: Re: maximalizace
>
> Form1.BorderIcons := Form1.BorderIcons - [biMaximize];
>
> S pozdravom
>
> Delphi
>
> Jak psat DLL
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 29.10.2001 13:38:15
ahoj,
docela nedavno (2 tydny zpet) vyly tusim 2clanky na serveru
www.zive(tec)cz
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Jak poslat rukou psan� text na mail? P�ece faxem Panasonic!
http://www.panasonic(tec)cz/redirect.html
Ako v DBGride zobrazit hodnotu Boolean v ChceckBox
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 29.10.2001 13:47:41
Ahoj,
zkus do event TDBGrid OnDrawColumnCell napsat tento kod
TForm1.DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect; DataCol:
Integer; Column: TColumn; State: TGridDrawState)
var
CellRect,
ControlRect: TRect;
Checked: UINT;
begin
if Column.Field.DataType = ftBoolean then
begin
with ControlRect do
begin
TopLeft:= Rect.TopLeft;
Bottom:= Rect.Bottom;
Right:= Min(Rect.Bottom - Rect.Top, Column.Width);
Right:= Left + Right;
end;
if Column.Field.AsBoolean then
Checked:= DFCS_BUTTONCHECK or DFCS_CHECKED
else
Checked:= DFCS_BUTTONCHECK;
DrawFrameControl(DBGrid1.Canvas.Handle, ControlRect, DFC_BUTTON,
Checked);
CellRect.Left:= ControlRect.Right;
CellRect.Right:= Rect.Right;
CellRect.Top:= Rect.Top;
CellRect.Bottom:= Rect.Bottom;
InflateRect(CellRect, -1, -1);
Dec(CellRect.Left, 1);
DBGrid1.Canvas.FillRect(CellRect); /* tady si muzes
funkci TCanvas.TextRect vypsat jakykoliv text*/
end
else
DBGrid1.DefaltDrawColumnCell(.......)
end;
Ales
----- Original Message -----
From: "Jaroslav Popluhar" <delphi1(zv)acc.sk>
To: "Konferencia Delphi CZ" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 27, 2001 12:14 AM
Subject: Ako v DBGride zobrazit hodnotu Boolean v ChceckBoxe?> Zatial pouzivam DBCtrlGrid ale nie je to prave orechove...
> Napr. neviem menit Caption prvku DBCheckBox podla ineho stlpca,
> tak som dal Caption na '' a pridal DBText, ale nejako mi to nesedi.
>
> Jaro
>
>
> ---
> Odch�dzaj�ca spr�va neobsahuje v�rusy.
> Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
> Verzia: 6.0.295 / V�rusov� datab�za: 159 - d�tum vydania: 1. 11. 2001
>
DBGrid s FF2 tabulkou
[*] Ond�ej Sekera <sekera(zv)supreme(tec)cz> - 29.10.2001 14:22:08
Grid nez�skal po�et z�znam�, tj. je pot�eba zjistit po�et manu�ln�, obvykle
nejaky_dataset.open;
nejaky_dataset.last;
nejaky_dataset.first;
doporu�uji prov�d�t ov#em na nep��li# velk�ch datasetech
----- Original Message -----
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
To: "konference DELPHI" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 27, 2001 4:33 PM
Subject: DBGrid s FF2 tabulkou
> Zdravim,
> pouzivam FF2 tabulku (ne SQL) a v DBGridu je svisla rolovaci lista pouze
ve
> trech stavech. Uplne nahore - pro prvni zaznam, uprostred - pro vsechny
> ostatni zaznamy a uplne dole pro posledni zaznam.
> Vypada to blbe. V tabulkach Paradox to jede normalne - sirka scrollbaru
> graficky odpovida poctu vet.
>
> Kdo mi pomuze
> diky Pavel
>
> ----- KOPR software -----
> Pavel ZIDEK
> http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
>
>
>
Jak psat DLL
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.10.2001 14:25:40
> Kde bych nasel zacatecnicky navod, jak zacit psat DLL knihovny?
k tomu snad neni treba zadny vetsi navod. Jedine doporuceni je psat
vsechny exportovane funkce, tak aby je bylo mozne pouzit - tj pokud to
DLLko bude importovat i neco jineho nez Delphi program tak pripojit
direktivu 'stdcall'.
Psani a ladeni DLLek je v Delphi hracka - po nastaveni "materske" do
Run/Parameters/Host application aplikace je mozne krokovat DLL funkce
volane aplikaci...
Krome toho, ze je treba misto klicoveho slova UNIT (nebo Program)
uvest Library a v klausuli Export definovat zverejnovane funkce se
psani DLLek nijak moc nelisi od psani obyc aplikaci (pokud clovek umi
neco vic nez klikat mysi).
D. Toman
Vynulovani sekund SQL dotazem
[*] Lubo Fule <fule(zv)ekosoft.sk> - 29.10.2001 14:26:40
Napis pre aky SQL server to potrebujes. Ak je to MSSQL, tak pozri v helpe
DATEPART...
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jaroslav Bucek
> Sent: Thursday, November 29, 2001 11:34 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Vynulovani sekund SQL dotazem
>
>
> Vazeni pratele,
>
> potrebuji vytvorit SQL dotaz, ktery vynuluje nebo alespon vyselektuje
> sekundy v datetime poli.
>
> Dekuji Jarda
>
Instalacia IBO
[*] <delphi(zv)zvlauto.sk> - 29.10.2001 14:42:51
Ahojte,
Pred nedavnom som stahoval IBO z tejto adresy
http://www.ibobjects.com/ibodownload.html. Pokusal som sa ho nainstalovat,
ale stale mi hlasi chybu ze nemoze najst subor ib_parse.pas a
Ib_components.pas.
Co s tym?
Viem ze to je evaluation, ale chcel by som to vyskusat.
D5 Prof.
Vdaka.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
Update DB aplikace
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 29.10.2001 14:45:30
> At tak ci tak, pokusil bych se vyhnout psani "presypaciho"
> programu v Delphi.
Muzes vic rozepsat proc?
Ulozena procedura sice bude urcite rychlejsi, ale nejak ji musim dostat do
ty zakaznikovy databaze. Rychlost me az tak netrapi, dat tam neni moc
(dohromady max. nekolik tisic zaznamu), tabulek cca 70.
Myslel jsem spis vytvorit kompletne novou DB a pak z ty stary vytahnout data
a nasypat je do ty novy. Zadny pomocny tabulky.
Problem je, ze to musi chodit "krabicove", jeden soft na vsech DB(verzi DB
poznat dokazu).
Jake ma konkretne nevyhody/problemy system "Vysypu data do txt, lehce je
upravim a nasypu do jine DB"?
Ota
> Napsal bych na to ulozenou proceduru.
> Lze ji snadno upravovat, bez kompilace.
> Navic to bude nesrovnatelne rychlejsi.
> V pripade 2) by ale bylo nutno tabulky nejdriv prekopirovat do
> pomocnych tabulek a ty po "presypani" zrusit.
>
> Pokud jde o podobne ukoly, vetsinou jsem je resil zpusobem 1).
>
> Honza
>
Barva textu v DBGridu
[*] Commanche <komurka(zv)myto(tec)cz> - 29.10.2001 14:53:18
Zdravim,
potreboval bych obarvit text v jedne bunce DBGridu, ale jde o to, ze pouze
cast toho textu.
(napr. aby v jedne bunce byla tri slova, ale pouze jedno z nich bylo napsano
modre)
Jestli to je vubec nejak mozne.
Diky za radu.
Commanche
maximalizace
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 29.10.2001 15:03:33
V Object Inspektoru je pro kazdy formular polozka BorderIcons - tam zrus
biMaximize na False. Tot vse ... Pokud ho nechces zobrazovat vubec, pote
zmen formular na Dialog, ale tam bude jen talcitko zavrit.
> A nejde aby se vubec to tlacitko nezobrazovalo?
>
> ----- Original Message -----
> From: <dphi_forum(zv)proces.sk>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, November 29, 2001 1:08 PM
> Subject: Re: maximalizace
>
>
> >
> > Form1.BorderIcons := Form1.BorderIcons - [biMaximize];
> >
> > S pozdravom
> >
> > Delphi
> >
> >
>OT: Bug v D5
[*] Ond�ej Sekera <sekera(zv)supreme(tec)cz> - 29.10.2001 15:04:09
Nastavte si na formu WindowState na wsMaximized, okno zmensete tak na
100x100. Doprava dolu pridejte tlacitko a nastavte Anchors na
[akRight,akBottom]. Spustte - tlacitko zustane na svem miste, bez ohledu na
anchory.
DLL a breakpoints
[*] �ejka Pavel <cejka(zv)proteco(tec)cz> - 29.10.2001 15:14:02
Pri ladeni DLL pro aplikaci vytvorenou v C Builderu (spoustim ji jako
Host application) mam tento problem. Po spusteni ladeni se vsechny
breakpointy stanou neaktivni. Klient moji DLL spusti , ale ja mohu
sledovat jeji chovani pouze "zvenku ". Pokud jsem si klienta vytvoril v
Delphi (znacne zjednoduseneho), ladeni probihalo v poradku. Pri
predchazejici verzi klienta v C Builderu take ladeni probihalo dobre.
Autor klienta se vsak dusuje, ze u nej je vse v poradku.
Muzete mi nekdo poradit, kde muze byt zakopany pes.
D5, NT 4.0
Martin Koropecky
Rozdil interface - Builder x Delphi
[*] �ejka Pavel <cejka(zv)proteco(tec)cz> - 29.10.2001 15:18:04
Mam tento problem s prenosem jedne funkce z interface DLL do Delphi. DLL je
napsana v C Builderu.
Vygenerovany interface z TLB Builderu vypada pro problematickou funkci
takto:
virtual HRESULT STDMETHODCALLTYPE AddSubrange(Mosaic_tlb::tagEnumDefDecl
DefDecl/*[in]*/,
unsigned_long Flags/*[in]*/,
int StructRecId/*[in]*/,
LPSTR Name/*[in]*/, LPSTR
Type/*[in]*/,
LPSTR
AbsoluteAddress/*[in]*/,
Mosaic_tlb::tagMxSubrangeDescription Range/*[in]*/,
LPSTR InitString/*[in]*/,
LPSTR Comment/*[in]*/,
LPSTR DefFile/*[in]*/, int
DefLine/*[in]*/,
int* iId/*[out,retval]*/) =
0; // [-1]
kde tagMxSubrangeDescription je typ definovany v tomto interface. V Delphi
je tento typ vygenerov�n takto:
tagMxSubrangeDescription = packed record
Low: SYSINT;
High: SYSINT;
end;
Vygenerovany interface funkce v Delphi vypada takto:
function AddSubrange(DefDecl: tagEnumDefDecl; Flags: LongWord; StructRecId:
SYSINT;
Name: PChar; Type_: PChar; AbsoluteAddress: PChar;
Range: TGUID;
InitString: PChar; Comment: PChar; DefFile: PChar;
DefLine: SYSINT;
out iId: SYSINT): HResult; stdcall;
Delphi my zde misto typu tagMxSubrangeDescription vygeneroval TGUID, coz me
pripada jako nesmysl. Pikantni je, ze pokud tento vygenerovany zdrojak
opravim (TGUID zmenim na tagMxSubrangeDescription), vse funguje v poradku.
Nevite, jestli je toto bug D5, nebo jsem neco prehledl.
D5, NT4.0
Martin Koropecky
MySQL a findnearest
[*] Pavel VINTR <pavel_vintr(zv)rametchm(tec)cz> - 29.10.2001 15:20:34
Zdravim vsechny ucastniky konference a obracim se na vas s temito dotazy :
1. nevite, existuji-li nejake free sada komponent pro praci s MYSQL
databazi, ktere maji
komponentu odpovidajici TTable jako naslednika TDataSet, ktera ma funkci
findnearest ?
(komponenty Zeos to neumi)
2. existuje u mysql moznost, jak identifikovat jeden zaznam, aniz by byl
vytvoren primarni index ? (marne hledam funkci recno nebo neco podobneho)
3. existuje v jazyce sql prikaz, ktery by vratil prvni zaznam (u indexovane
tabulky), ktery je vetsi nebo roven nejake hodnote (pochopitelne bez
sekvencniho prohledavani)
Dekuji za odpovedi.
Pavel Vintr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
ImageIndex
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 29.10.2001 15:20:51
jak se zaridi aby v objectinspectoru bylo mozno ve vlastni komponente
vybirat imageindex pres takovy to combo jako napr u akci v actionlist
predem diky za vse
Jak psat DLL
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 29.10.2001 15:21:58
> -----Original Message-----
> From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
>
> Psani a ladeni DLLek je v Delphi hracka - po nastaveni "materske" do
> Run/Parameters/Host application aplikace je mozne krokovat DLL funkce
> volane aplikaci...
Ahoj,
kdyz uz jsi to nakousnul, me tohle proste nefunguje :(
Kdyz mam DLL, ktere dynamicky nactu pomoci LoadLibrary a zavolam v nem
najakou fci, tak to proste breakpoint klidne ignoruje. I v Delphi IDE se
breakpoint zobrazi takovou tou hnedou barvou a nazdar. Co s tim? Jak
nastavit IDE, aby to chodilo?
Ales
DLL a breakpoints
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.10.2001 15:52:20
> Pri ladeni DLL pro aplikaci vytvorenou v C Builderu (spoustim ji
jako
> Host application) mam tento problem. Po spusteni ladeni se vsechny
> breakpointy stanou neaktivni. Klient moji DLL spusti , ale ja mohu
> sledovat jeji chovani pouze "zvenku ". Pokud jsem si klienta
vytvoril v
> Delphi (znacne zjednoduseneho), ladeni probihalo v poradku. Pri
> predchazejici verzi klienta v C Builderu take ladeni probihalo
dobre.
> Autor klienta se vsak dusuje, ze u nej je vse v poradku.
>
A vola ta aplikace vubec Tvoji knihovnu? Mozna nacita jinou kopii
DLLka nekde na disku
D> Toman
TXMlDocument at runtime
[*] Radoslav Medzihradsky <rmedzihradsky(zv)cssoftware(tec)com> - 29.10.2001 15:53:24
Hi,
potreboval by som vytvorit, pouzit a uvolnit TXMlDocument v kode, lebo
nemam formular.
Nemate niekto jednoduchy priklad? XMLDocument1 :=
TXMLDocument.Create('') nestaci.
diky, Astern
Rychlost FireBird View
[*] Roland Turcan <rolo(zv)sedas.sk> - 29.10.2001 16:03:43
Ahoj!
Mam view naslodne zadane:
/************************************************/
CREATE VIEW DODPOSTY (
JEDIN,
JEDIN_MESTO,
PSC,
POSTA,
STAT)
AS
select
a.jedin,b.jedin as jedin_mesto,a.psc,a.mestoplny,a.stat from mesta a
left join mesta b on b.jedin=a.napojene
where a.napojene is not null
union all
select c.jedin,c.jedin as jedin_mesto,c.psc,c.mestoplny,c.stat from mesta c
where c.dodposta_jedin is null and c.napojene is null;
/************************************************/
ked dam prikaz:
SELECT * FROM dodposty where Posta starting 'Levice';
tak ho vykonava cca 300ms.
plan vypada:
PLAN JOIN (DODPOSTY A NATURAL,DODPOSTY B INDEX (RDB$PRIMARY117))PLAN
(DODPOSTY C INDEX (MESTA_NAPOJENE,RDB$FOREIGN122,RDB$FOREIGN21))
Ked ale skusim to iste ale mimo view:
/************************************************/
select a.jedin,b.jedin as jedin_mesto,a.psc,a.mestoplny,a.stat from mesta a
left join mesta b on b.jedin=a.napojene
where a.napojene is not null and a.mestoplny starting 'Levice'
union all
select c.jedin,c.jedin as jedin_mesto,c.psc,c.mestoplny,c.stat from mesta c
where c.dodposta_jedin is null and c.napojene is null and c.mestoplny
starting 'Levice';
/************************************************/
tak je to cca. 20ms a plan vypada takto:
PLAN JOIN (A INDEX (MESTA_MESTOPLNY),B INDEX (RDB$PRIMARY117))
PLAN (C INDEX (MESTA_NAPOJENE,MESTA_MESTOPLNY,RDB$FOREIGN122,RDB$FOREIGN21))
Ako zrychhlit ten view aby bol rychlejsi, lebo ja tak potrebujem filtrovat
prave podla Starting ...
Dakujem.
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0beta2, IBX4.63, Win2000Pro/CZ, Win98CZSE
Vynulovani sekund SQL dotazem
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 29.10.2001 16:12:46
Omlouvam se vsem, ze jsem blize nespecifikoval databazi. Navic, kdyz jsem si
po sobe precetl tu otazku, tak jsem sam nepochopil co jsem tim chtel rici.
Problem je jiz vyresen a proto, kdyby to nekomu pomohlo, uvadim jeho reseni:
Databaze byla MS SQL
1. Select, kde je sekunda <> 0
select * from TABULKA where datepart(ss, DATUM_CAS) <> 0
2. Update, ktery jsem potreboval a ktery odsekne sekundy a milisekundy z
pole datetime
update TABULKA set DATUM_CAS = cast(DATUM_CAS as smalldatetime)
Opravdu elegantni reseni, ze? :))
>
> potrebuji vytvorit SQL dotaz, ktery vynuluje nebo alespon vyselektuje
> sekundy v datetime poli.
>
Adresarovy strom ala pruskumnik
[*] <suky(zv)atlas(tec)cz> - 29.10.2001 16:17:30
Ahoj,
chtel jsem do sve aplikace pridat vyber adresare, ale v moderni podobe jak se pouziva od Windows95. Nasel jsem vsehovsudy pouze jednu jedinou komponentu, ale chova se nejak divne. Nevite jak mi pomoci? Komponenta bud free, nebo navod jak adresarovy stromecek vytvorit.
Predem vsem diky za pomoc.
Michal
Vynulovani sekund SQL dotazem
[*] "Petr Slab�" <Slaby(zv)c3(tec)cz> - 29.10.2001 16:19:19
Zkus prevest DATETIME na SMALLDATETIME. SMALLDATETIME nema vteriny resp. jsou nulove.
convert(SMALLDATETIME,GETDATE())
Petr
*********** REPLY SEPARATOR ***********
On 29.11.2001 at 11:34 Jaroslav Bucek wrote:
>Vazeni pratele,
>
>potrebuji vytvorit SQL dotaz, ktery vynuluje nebo alespon vyselektuje
>sekundy v datetime poli.
>
>Dekuji Jarda
DBGrid, multiselect, dragdrop
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 29.10.2001 16:23:22
Ahoj,
pokud mam u DBGridu zapnuty multiselect a zaroven DragMode na
dmAutomatic, tak se potom neda v gridu vybrat vice zaznamu, protoze se
hned po klinuti na zaznam zpracovava drag&drop.
Lze to nejak vyresit? Potrebuji oznacovat v gridu vice zaznamu a zaroven
je pretahovat jinam.
Ales
Tisk GroupFooteru pomoci OnNeedData
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 29.10.2001 16:29:16
Ahoj !
Poradte, prosim, jak dosahnu tisku GroupFooteru ve QuickReportu, ve
kterem tisknu pomoci OnNeedData. GroupHeader.Expresion obsahuje
promennou Skupina, tuto Skupinu plnim pokazde v NeedData.
Data obsahuji posloupnost
10
10
10
(tady by se mel tisknout)
20
(tady by se mel take tisknout)
80
(tady se tiskne)
Vytiskne az po hodnote 80, to je ale jiz pred Summary
bandem, predchozi zmeny hodnoty ignoruje.
--
S pozdravem Karel Horky
D5Ent, W2K/SP1
DBGrid, multiselect, dragdrop
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 29.10.2001 16:30:37
> pokud mam u DBGridu zapnuty multiselect a zaroven DragMode na
> dmAutomatic, tak se potom neda v gridu vybrat vice zaznamu, protoze se
> hned po klinuti na zaznam zpracovava drag&drop.
> Lze to nejak vyresit? Potrebuji oznacovat v gridu vice
> zaznamu a zaroven je pretahovat jinam.
_Zaroven_ to nepojde.
Predpokladam, ze si sa iba zle vyjadril a potrebujes mat moznost oznacit
viacero riadkov a _potom_ ich mysou tahat.
Nastav si DragMode na dmManual a zacni dragging v kode.
Myslim, ze bude stacit v OnMouseDown zavolat MyDBGrid.BeginDrag(False);
HTH
TOndrej
Update DB aplikace
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 29.10.2001 16:38:16
On 29 Nov 2001, at 14:45, Ota Maly wrote:
> > At tak ci tak, pokusil bych se vyhnout psani "presypaciho"
> > programu v Delphi.
> Muzes vic rozepsat proc?
> Ulozena procedura sice bude urcite rychlejsi, ale nejak ji musim
> dostat do ty zakaznikovy databaze. Rychlost me az tak netrapi, dat tam
> neni moc (dohromady max. nekolik tisic zaznamu)
No tak jestli je to spise takovyhle zapisnicek nez databaze tak to
opravdu jde presypat jakkoliv. Treba i programkem v Delfi.
Z.Kalhous
Update DB aplikace
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 29.10.2001 16:48:20
Ja by som sa "presypacieho" programu vobec nebal pretoze to ma niekolko
nespornych vyhod najma s moznostou dalsich uprav v buducnosti - je to
podstatne flexibilnejsie.
Otazkou je ale ci ti budu stacit "*.txt" subory - na male normalne polozky
mozno ano ale na bloby urcite nie. Neni problem pouzit binarne subory (su
mensie, rychlejsie, flexibilnejsie ale zase moze byt problem s platformami).
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
> > At tak ci tak, pokusil bych se vyhnout psani "presypaciho"
> > programu v Delphi.
>
> Muzes vic rozepsat proc?
>
> Ulozena procedura sice bude urcite rychlejsi, ale nejak ji musim dostat do
> ty zakaznikovy databaze. Rychlost me az tak netrapi, dat tam neni moc
> (dohromady max. nekolik tisic zaznamu), tabulek cca 70.
> Myslel jsem spis vytvorit kompletne novou DB a pak z ty stary vytahnout
data
> a nasypat je do ty novy. Zadny pomocny tabulky.
> Problem je, ze to musi chodit "krabicove", jeden soft na vsech DB(verzi DB
> poznat dokazu).
>
> Jake ma konkretne nevyhody/problemy system "Vysypu data do txt, lehce je
> upravim a nasypu do jine DB"?
MySQL a findnearest
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 29.10.2001 17:41:11
Neznam sice MySQL, ale nektere veci maji SQL servery spolecne:
2. zaznamy (radky tabulky) lezi ve strankach a proto neexistuje nic takoveho
jako recno, poradi stranek v databazi (at jiz skutecnych nebo virtualnich)
si spravuje server sam a muze je kdykoliv prehazet (a taky to bezne dela).
Zaznam je identifikovan svym primarnim klicem (at jiz je nebo neni
definovan) - pokud neni mozno jednoznacne urcit, na ktery zaznam se operace
aplikovat - je provedena na vsech, ktere vyhovuji podmince WHERE (TDataSet
ohlasi v tomto pripade chybu -> zada o zmenu jedne radky a ono se jich
oprav� v�c).
3. Neexistuje, nebot SQL pracuje s mnozinami, musis si tedy tento prikaz
napsat, zda bude pracovat sekvencnim prohledavanim nebo ne zavisi pouze na
indexech, ktere jsou k dispozici. Existuje ovsem klauzule "TOP xxx", ktera
omezi vracenou mnozinu na xxx zaznamu (napr. na 1).> Zdravim vsechny ucastniky konference a obracim se na vas s
> temito dotazy :
> 1. nevite, existuji-li nejake free sada komponent pro praci s MYSQL
> databazi, ktere maji
> komponentu odpovidajici TTable jako naslednika TDataSet,
> ktera ma funkci
> findnearest ?
> (komponenty Zeos to neumi)
> 2. existuje u mysql moznost, jak identifikovat jeden zaznam,
> aniz by byl
> vytvoren primarni index ? (marne hledam funkci recno nebo
> neco podobneho)
> 3. existuje v jazyce sql prikaz, ktery by vratil prvni zaznam
> (u indexovane
> tabulky), ktery je vetsi nebo roven nejake hodnote (pochopitelne bez
> sekvencniho prohledavani)
>
> Dekuji za odpovedi.
>
> Pavel Vintr
FormStorage z RXLibrary
[*] Jan Naiser <tua(zv)wo(tec)cz> - 29.10.2001 18:00:01
W2k, D5.01, Rx 2.75
Abych byl presnejsi, ono jde vpodstate o to, ze se po natazeni ulozeny
maximalizovany Form maximalizuje spravne, ale vzapeti se posune doprava, a
ikona maximalizace se zmeni na ikonu Obnovit. Jakoby si tam posleze nacpal
nejake nesmyslne Left a Top. Chova se to jaksi nestandardne, protoze pak to
jde manualne jenom do rezimu Obnovit a pote maximalizovat usy spravne.
Nez to zacnu hledat a opravovat, nevite nekdo kde presne se to da (v Rx)
najit a opravit?
Diky, Honza.
----- Original Message -----
From: "Radim Kunz" <privat(zv)casestudio.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 29, 2001 10:47 AM
Subject: Re: FormStorage z RXLibrary
> > Preji pekny den,
> >
> > pouziju-li FormStorage z RXLibrary, pak pri ulozeni maximalizovaneho
formu
> > se mi po jeho opetovnem nacteni form sice maximalne zvetsi, ale neni
> > maximalizovany. Da se to nejak obejit, aby se maximalizoval nebo jsem
neco
> > prehledl v nastaveni komponenty?
> >
> > Za odpoved dekuji.
> >
> > Jan Naiser.
> >
>
> Zaskrtnout WindowState
>
> Radim
>
>Update DB aplikace
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2001 18:17:58
> Odes�latel: Ota Maly <ota.maly(zv)volny(tec)cz>
> > At tak ci tak, pokusil bych se vyhnout psani "presypaciho"
> > programu v Delphi.
> Muzes vic rozepsat proc?
No, ja nerikam NE. Nicmene svoje duvody jsem uvedl:
-
budu rozesilat jenom skript, ne kompilovanej EXE.
-
bude to nesrovnatelne rychlejsi (to ti ale nevadi)
(i kdyz i z pascalu lze taky volat hromadne prikazy typu "insert into xxx select ...")
-
take se mi to zda snazsi a prehlednejsi nez v Pascalu.
(i kdyz i z pascalu lze taky provadet SQL prikazy, ne jenom pracovat s DataSetem)
Pokud je ale potreba s daty nejak zasadne cvicit, pak bych se stejne Pascalu nevyhnul.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================DB aplikace - objektovy pristup - jak?
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 29.10.2001 18:48:03
Teorie:
http://www.cetus-links.org
http://www.ambysoft.com
Uzitecne informace
news://forums.borland.com/ - borland.public.delphi.oodesign
Nejake implementace:
http://www.techinsite.com.au/tiOPF/
http://www.boldsoft.com/
Obzvlaste Bold je zajimavy, uz proto ze jej pry Borland bude
distribuovat v baliku Borland Enterprise Studio Pascal Edition.
Martin Schayna
----- Original Message -----
From: "vlcir" <vlcir(zv)seznam(tec)cz>
To asi jo :-). Nejsou nekde alespon nejake priklady webu nebo nejaka
literatura, jde mi spise o to, jestli nejsou nekde nejake zname
pouzivane postupy, tj. jakym smerem se vydat.
> :-o) Mno tato problematika je tak rorziahla ze neni v ludskych silach to
> riesit cez konferenciu. Doporucujem konzultacie.
Adresarovy strom ala pruskumnik
[*] brant(zv)dcomm(tec)cz - 29.10.2001 19:04:20
Ahoj, napsal jsem si na to tuto tridu a funguje bez problemu:
unit BrowseDir;
interface
uses
Windows,
ShlObj, SysUtils, FileCtrl;
type TBrowseDirectory = class(TObject)
private
{ Private declarations }
public
{ Public declarations }
function BrowseForDirectory(OwnerWnd:THandle; InitialDirectory: string; var
SelectedDirectory:string):boolean;
end;
implementation
var m_InitialDirectory:string;
function BrowseCallbackProc(Wnd: HWnd; Msg: UINT; lPar: LPARAM; lData:
LPARAM): integer; stdcall;
begin
Result := 0;
if (Msg = BFFM_INITIALIZED) and DirectoryExists(m_InitialDirectory) then
SendMessage(Wnd, BFFM_SETSELECTION, 1, LPARAM(m_InitialDirectory) );
end;
function TBrowseDirectory.BrowseForDirectory(OwnerWnd:THandle;
InitialDirectory: string; var SelectedDirectory:string):boolean;
var BrowseInfo: TBrowseInfo;
idRoot: PItemIDList;
Dir: array[0..MAX_PATH] of char;
begin
m_InitialDirectory:=InitialDirectory;
SHGetSpecialFolderLocation(OwnerWnd, CSIDL_DRIVES, idRoot);
BrowseInfo.hwndOwner:=OwnerWnd;
BrowseInfo.pidlRoot:=idRoot;
BrowseInfo.lpszTitle:='';
BrowseInfo.ulFlags:=BIF_DONTGOBELOWDOMAIN;
BrowseInfo.lpfn:=BrowseCallbackProc;
BrowseInfo.pszDisplayName:=Dir;
idRoot:=ShBrowseForFolder(BrowseInfo);
Result:=false;
if idRoot<>nil then
begin
SHGetPathFromIDList(idRoot, Dir);
SelectedDirectory:=string(Dir);
Result:=(Length(SelectedDirectory)<>0);
end;
end;
end.
-----------------------------------------------
Priklad pouziti:
procedure TSParamsForm.BrowseItracsPgmClick(Sender: TObject);
var Dir:string;
BD: TBrowseDirectory;
begin
BD:=TBrowseDirectory.Create;
if BD.BrowseForDirectory(Handle, CItracsDirBackup.Text, Dir) then
CItracsDirBackup.Text := Dir;
BD.Free;
end;
-----------------------------------------------
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Ahoj,
chtel jsem do sve aplikace pridat vyber adresare, ale v moderni podobe jak
se pouziva od Windows95. Nasel jsem vsehovsudy pouze jednu jedinou
komponentu, ale chova se nejak divne. Nevite jak mi pomoci? Komponenta bud
free, nebo navod jak adresarovy stromecek vytvorit.TImage a ScrollBar
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 29.10.2001 19:25:45
Dobry den
nevite prosim nekdo jakym zpusobem donutit TImage aby spravne zobrazoval obrazek se scrollbarem,
kdyz je plocha obrazku mensi nez obrazek. Nemohu to najit.
Delphi 5 Prof Win 2000 SP2
Jaroslav KUBA
jarda(zv)tresoft(tec)cz
ADO, Stored. proc. a temporary table
[*] Robert Kindl <rob(zv)exec(tec)cz> - 29.10.2001 20:51:27
> > pre pouzivanie temporary table v stored procedure prosim mrknut do
> > BOL, tu je strucny vycuc:
> ****Na to jsem se samozrejme dival a neni tam nic v rozporu s tim,
> co jsem uvedl. Osobne si myslim, ze problem je v ADO, protoze pri
> krokovani teto procedury na serveru k vyhozeni chyby dojde a jak
> sam rikas, Adonis take funguje.
> Slavek
Nastav v ExecuteOptions eoExecuteNoRecords
Problem je v tom, ze tvoje stored procedura vraci nekolik vysledku.
Prvnim je "Rows affected" prikazu insert a druhy je ta "exception".
Pri standardnim nastaveni AdoCommand nacte pouze prvni vysledek.
Vyse uvedenym nastavenim se vyberou rovnou vsechny.
Rob
Komponenta RX
[*] Do�ekal Radek <RDocekal(zv)CSAS(tec)cz> - 29.10.2001 21:30:41
Tady je port do D6:
http://www.oxygensoftware.com/download/rx275d6.zip
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
-----Original Message-----
From: Pepa Matlafous [mailto:Matlafous007(zv)hotmail.com]
Sent: Thursday, November 29, 2001 8:34 AM
To: Konference
Subject: Komponenta RX
Zkusil jste nekdo nainstalovat Komponentu RX v. 2.60 do Delph 6? Verze 2.60
je puvodne pro Delphi 1 - 4. Anebo vite o nejake nove verzi ktera je i pro
Delphi 6? Popripade odkaz, pokud ho vite.
Dik
Killnuti EXPLORER.EXE
[*] DELPHI <korin.delphi(zv)centrum(tec)cz> - 29.10.2001 21:52:19
Zdarek, v instalaci me aplikace potrebuji killnou explorer.exe, ale to prinasi radu potizi, protoze prakticky nelze killnout, zkousel sem nekolik zpusobu. Nemate nekdo napad? Dik za pomoc.
Korin
Kontrola cisla DIC ??
[*] vladimir.michl(zv)hlubocky.del(tec)cz - 29.10.2001 21:53:40
On Thu, 29 Nov 2001, L. Filip wrote:
> Zdravim.
> Nedavno jsem tu videl nekde algoritmus na kontrolu cisla ICO.
> Nevite nekdo nahodou o necem takovem pro DIC.
> Respektive jake tam jsou pravidla?
Da se to najit na http://www.uvis(tec)cz/cz/standardy/vestniky/vestniky.html
Nekde, kde jsou definovany datove prvky.
Vladimir Michl
TSQLConnection a komprese & omluva
[*] David Janko <djanko(zv)infoware(tec)cz> - 29.10.2001 22:28:22
Nejdrive se omlouvam ze jsem poslal odpoved na subj. "Delphi 2002" do konf.
a nikolib primo autorovi jak bylo zadano.
A nyni dotaz: lze nejak na TSQLConnection v dbExpressu nastavit aby pro
komunikaci s mysql pouzivala komprimovany protokol ? Viz -C param u mysql
clienta .... nebo to mam zahrnout do jiz zminovaneho seznamu nedostatku
D6/kylix ? ;-).
Dekuji.
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Zachyceni stisku klavesy
[*] DELPHI <korin.delphi(zv)centrum(tec)cz> - 29.10.2001 22:40:33
Zdravim,
mam aplikaci ktera bezi minimalizovana. Potrebuji udelat aby se pri zmacknuti urcite kombinace klaves moje aplikace obnovila i kdyz nema focus. Diky za radu,
cau, Korin
Rychlost FireBird View
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 29.10.2001 23:19:49
<color><param>7F00,0000,0000</param>Haj hou!
View je pomalejsi, protoze projekce na view nelze vyhodnotit dle
indexu (zadny neni), a produkt (union) je relativne velky, takze
natural scan nejaky cas trva.
Postup bez view je rychlejsi, protoze kazdy selekt je pred spojenim
znacne zuzen jen na bazi spojeni bitmap indexu.
Reseni s view ke zrychleni nepomuze, ale muzes to udelat pres
ulozenou proceduru. Ted, jen tak z hlavy, takze si to dolad :-)
create procedure rychly_vyber (filtr varchar(nevim jak dlouhy))
returns <color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>jedin, jedin_mesto,psc,mestoplny,stat<color><param>7F00,0000,0000</param><FontFamily><param>Arial CE</param>
as
begin
</color>for
<color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>select a.jedin,b.jedin as jedin_mesto,a.psc,a.mestoplny,a.stat from mesta a
left join mesta b on b.jedin=a.napojene
where a.napojene is not null and a.mestoplny starting :filtr
union all
select c.jedin,c.jedin as jedin_mesto,c.psc,c.mestoplny,c.stat from mesta c
where c.dodposta_jedin is null and c.napojene is null and c.mestoplny
starting :filtr
</color><FontFamily><param>Arial CE</param>into :<color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>jedin, :jedin_mesto, :psc, :mestoplny, :stat</color><FontFamily><param>Arial CE</param>
do
begin
suspend;
end;
end;
Hodne zdaru
<nofill>
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Instalacia IBO
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 29.10.2001 23:19:49
Haj hou!
On 29 Nov 2001, at 14:42, delphi(zv)zvlauto.sk wrote:
> Pred nedavnom som stahoval IBO z tejto adresy
> http://www.ibobjects.com/ibodownload.html. Pokusal som sa ho nainstalovat,
> ale stale mi hlasi chybu ze nemoze najst subor ib_parse.pas a
> Ib_components.pas.
> Co s tym?
> Viem ze to je evaluation, ale chcel by som to vyskusat.
IBO 4 ? V jake verzi Delphi ? Ja jsem to nainstaloval do D6 bez
nejmensich problemu. Jinak se lze zeptat v mailing listu pro IBO
nebo v newsgroup na news.atkin.com
Hodne zdaru
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
InterBase- zjistit pocet radek ktere byly updatova
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 29.10.2001 23:19:49
Haj hou!
On 29 Nov 2001, at 8:41, vlcir wrote:
> Jak zjistim v InterBase po provedeni UPDATE nebo DELETE tabulky,
> kolik radek bylo zmeneno. RowsAffected mi vraci vzdy
> -1.
Malo informaci. Jaka je verze IB a pres co k ni pristupujes
(knihovna a jeji verze) ? Kdyz jsem pred casem pouzival
RowsAffected v IBX proti IB6, tak to fungovalo bez problemu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
OT: Interbase 6.0.1 a Internal gds software consis
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 29.10.2001 23:26:39
Haj hou!
Postup pri diagnostice a oprave databazi je zde
http://www.ibphoenix.com\ibp_db_corr.html
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Killnuti EXPLORER.EXE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2001 00:27:12
From: "DELPHI" <korin.delphi(zv)centrum(tec)cz>
> Zdarek, v instalaci me aplikace potrebuji killnou explorer.exe,
Ahoj,
proc ? Takova vec nepatri mezi pekne veci a nevidim jediny rozumny duvod proc
to delat.
Petr Vones
Deaktivace sporice obrazovky
[*] Lud�k P�ral - 30.10.2001 00:36:31
Ahoj,
nevite, jak by mohl program (nejaka sluzba nebo thread) vnutit systemu v
urcity okamzik nasilne preruseni sporice (samozrejme s predchozi kontrolou,
ze sporic jede)?
Jde mi o to, ze pokud se ma uzivatel dozvedet novou zpravu, tak na to ma byt
upozornen prechodem do plneho provozu.
Ludek
Update DB aplikace
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.10.2001 00:54:07
> Odes�latel: Kaka�ka Pavol <kakacka(zv)proca(tec)cz>
> Ja by som sa "presypacieho" programu vobec nebal pretoze to ma niekolko
> nespornych vyhod najma s moznostou dalsich uprav v buducnosti - je to
> podstatne flexibilnejsie.
Prave ze SQL skript se mi zda flexibilnejsi, protoze se nemusi kompilovat.
> Otazkou je ale ci ti budu stacit "*.txt" subory - na male normalne polozky
> mozno ano ale na bloby urcite nie. Neni problem pouzit binarne subory (su
> mensie, rychlejsie, flexibilnejsie ale zase moze byt problem s platformami).
A co takhle
create table xx1 external ...
insert into xx1 select * from xx;
pak restrukturalizace
a obnoveni pomoci stored proc.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Odchyceni klavesy ??
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 30.10.2001 05:16:29
V udalosti KeyDown po spravnem vyhodnoceni kombinace klaves musis dat Key :=
#0
Pavel
> Zdravim.
> V ruznych komponentach (vetsinou TEdit) odchytavam klavesovou zkratku
> Ctrl+Enter (a jine). Vse funguje tak jak ma, ale po kazdem stisku
> odchytavane klavesy mi pipne pocitac (neobslouzena udalost ??).
> Vse odchytavam v KeyDown - kvuli rozliseni vsech stistenych klaves.
> Nevite co s tim.
>
> Diky Lada.Barva textu v DBGridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.10.2001 07:36:09
> potreboval bych obarvit text v jedne bunce DBGridu, ale jde o to, ze
> pouze cast toho textu. (napr. aby v jedne bunce byla tri slova, ale
> pouze jedno z nich bylo napsano modre) Jestli to je vubec nejak mozne.
>
Ahoj,
musis v gridu nastavit DafaultDrawing na False a v OnDrawCell se
sam postarat o vykresleni obsahu bunky. Patrne bude nutne napis
provest po jednotlivych slovech (po skupinach slov stejne barvy),
pricemz pozici, kam kreslit zjistis podle sirky jiz napsaneho textu
atd... Neni to uplne trivialni, musis si s tim zkusit vyhrat.
David Lebeda
Adresarovy strom ala pruskumnik
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 30.10.2001 07:50:12
Ahoj,
zkus se podivat na http://www.vglib.com/index.html jsou tam komponety
ExplorerRootNode,ExplorerSource,ExplorerTreeView,ExplorerListView,ExplorerLi
stBox,
ExplorerTreeCombo.
Snad Ti to pomuze.
Petr
----- Original Message -----
From: <suky(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 29, 2001 4:17 PM
Subject: Adresarovy strom ala pruskumnik
> Ahoj,
> chtel jsem do sve aplikace pridat vyber adresare, ale v moderni podobe jak
se pouziva od Windows95. Nasel jsem vsehovsudy pouze jednu jedinou
komponentu, ale chova se nejak divne. Nevite jak mi pomoci? Komponenta bud
free, nebo navod jak adresarovy stromecek vytvorit.
>
> Predem vsem diky za pomoc.
>
> Michal
>Deaktivace sporice obrazovky
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 30.10.2001 08:04:25
Cau Ludku,
Staci pohnout mysi ...
SetCursorPos(int x, int y); (GetCursorPos vraci aktualni pozici mysi)
Testovano na W2000 Pro SP2, NT4 server SP6, W95 OSR2
Cau Mira Ondrisek
P.S.
Jinak co se jeste tyka screensaveru:
v archivu jsem nasel detekci screensaveru (je to psane jako metoda, ale
udelat z toho funkci je legrace):
procedure TForm1.cmdDetectSreenSaverClick(Sender: TObject);
var pvParam:^LongBool;
begin
SystemParametersInfoA(SPI_GETSCREENSAVEACTIVE,0,pvParam,0);
if pvParam^=True then
lblStatus.Caption:='Screen saver is ACTIVE'
else
lblStatus.Caption:='Screen saver is NOT ACTIVE';
end;
Ukonceni screensaveru by asi slo takto, ale u NT asi ne:
procedure CloseScreenSaver;
var h:HWND;
begin
h:=Windows.FindWindow('WindowsScreenSaverClass',Nil);
if h<>0 then begin
Windows.PostMessage(h,Messages.WM_SysCommand,Windows.SC_Close,0);
end;
end;
Tohle testuje, zda je screensaver dostupny a pokud ano, tak ho zapne - neslo
by to pouzit i k vypnuti?
function TurnScreenSaverOn : bool;
var
b : bool;
begin
result := false;
if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE,
0,
(zv)b,
0) <> true then exit;
if not b then exit;
PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
result := true;
end;
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Lud�k P�ral
> Sent: Friday, November 30, 2001 12:37 AM
> To: Delphi konference
> Subject: Deaktivace sporice obrazovky
>
>
> Ahoj,
>
> nevite, jak by mohl program (nejaka sluzba nebo thread) vnutit systemu v
> urcity okamzik nasilne preruseni sporice (samozrejme s predchozi
> kontrolou,
> ze sporic jede)?InterBase- zjistit pocet radek ktere byly updatova
[*] vlcir <vlcir(zv)seznam(tec)cz> - 30.10.2001 08:05:11
> > Jak zjistim v InterBase po provedeni UPDATE nebo DELETE tabulky,
> > kolik radek bylo zmeneno. RowsAffected mi vraci vzdy
> > -1.
>
> Malo informaci. Jaka je verze IB a pres co k ni pristupujes
> (knihovna a jeji verze) ? Kdyz jsem pred casem pouzival
> RowsAffected v IBX proti IB6, tak to fungovalo bez problemu.
Pouzivam IB6 a komponenty z palety interbase v Delphi 5. Mam
odzkousene, ze update na databazi probehne.
______________________________________________________________________
Jak poslat rukou psan� text na mail? P�ece faxem Panasonic!
http://www.panasonic(tec)cz/redirect.html
DB aplikace - objektovy pristup - jak?
[*] vlcir <vlcir(zv)seznam(tec)cz> - 30.10.2001 08:10:37
Dik moc :-).
Dne 29.�listopad�2001, <delphi-l(zv)clexpert(tec)cz> napsal:
> Teorie:
> http://www.cetus-links.org
> http://www.ambysoft.com
>
> Uzitecne informace
> news://forums.borland.com/ - borland.public.delphi.oodesign
>
> Nejake implementace:
> http://www.techinsite.com.au/tiOPF/
> http://www.boldsoft.com/
>
> Obzvlaste Bold je zajimavy, uz proto ze jej pry Borland bude
> distribuovat v baliku Borland Enterprise Studio Pascal Edition.
>
> Martin Schayna
>
>
> ----- Original Message -----
> From: "vlcir" <vlcir(zv)seznam(tec)cz>
>
> To asi jo :-). Nejsou nekde alespon nejake priklady webu nebo nejaka
> literatura, jde mi spise o to, jestli nejsou nekde nejake zname
> pouzivane postupy, tj. jakym smerem se vydat.
>
> > :-o) Mno tato problematika je tak rorziahla ze neni v ludskych silach to
> > riesit cez konferenciu. Doporucujem konzultacie.
>
>
>
______________________________________________________________________
Bol� V�s v krku? Pastilky Tantum Verde P V�m rychle pomohou.
http://ad2.seznam(tec)cz/redir.cgi?instance=13764%26url=http://www.tantum(tec)cz
Chyba v BDE 12550
[*] Robert Sefcik <sefcik(zv)kspo.sk> - 30.10.2001 08:38:05
prosim Vas pouzivam win98 a na tom accessovsku databazu - pri aktivacii databazy mi to vyhodi chybu invalid configuration parameter pri mojom aliase / skusal som to spustat na inych pocitacoch v sieti a niekde to ide inde zasa nie (nema to ziaden suvis s verziou OS win) , skusal som upgradovat BDE (5.2) tiez to nepomohlo, skusal som to aj so zmenou ovladaca a ... nic, vie mi niekto poradit ? Vdaka - Robo
registrace aplikace a ikonky
[*] likeapear <likeapear(zv)centrum(tec)cz> - 30.10.2001 08:47:20
ahoj,
poradte mi jak zaregistrovat spoustenou aplikaci k pripone souboru (z delphi
kodu) a jak nastavit souboru s touto priponou ikonku.
dik likeapear
Instalacia IBO
[*] <delphi(zv)zvlauto.sk> - 30.10.2001 08:58:35
Delphi 5 Prof. IBO4. Instaloval to niekto v tejto konfiguracii? Ako?
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Pavel Cisar
Sent: Thursday, November 29, 2001 11:20 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Instalacia IBO
Haj hou!
On 29 Nov 2001, at 14:42, delphi(zv)zvlauto.sk wrote:
> Pred nedavnom som stahoval IBO z tejto adresy
> http://www.ibobjects.com/ibodownload.html. Pokusal som sa ho nainstalovat,
> ale stale mi hlasi chybu ze nemoze najst subor ib_parse.pas a
> Ib_components.pas.
> Co s tym?
> Viem ze to je evaluation, ale chcel by som to vyskusat.
IBO 4 ? V jake verzi Delphi ? Ja jsem to nainstaloval do D6 bez
nejmensich problemu. Jinak se lze zeptat v mailing listu pro IBO
nebo v newsgroup na news.atkin.com
Hodne zdaru
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
TImage a ScrollBar
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 09:14:55
> Dobry den
> nevite prosim nekdo jakym zpusobem donutit TImage aby spravne zobrazoval
obrazek se scrollbarem,
> kdyz je plocha obrazku mensi nez obrazek. Nemohu to najit.
>
> Delphi 5 Prof Win 2000 SP2
Mozes si ju dat do scrollboxu a AutoSize.
HTH
TOndrej
FormStorage z RXLibrary
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 30.10.2001 09:16:57
Ahoj,
mas v tom formu nastavenou Position na poDesigned ?
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: Re: FormStorage z RXLibrary
> W2k, D5.01, Rx 2.75
> Abych byl presnejsi, ono jde vpodstate o to, ze se po natazeni ulozeny
> maximalizovany Form maximalizuje spravne, ale vzapeti se
> posune doprava, a
> ikona maximalizace se zmeni na ikonu Obnovit. Jakoby si tam
> posleze nacpal
> nejake nesmyslne Left a Top. Chova se to jaksi nestandardne,
> protoze pak to
> jde manualne jenom do rezimu Obnovit a pote maximalizovat usy spravne.
> Nez to zacnu hledat a opravovat, nevite nekdo kde presne se
> to da (v Rx)
> najit a opravit?
>
> Diky, Honza.
registrace aplikace a ikonky
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 09:20:50
> poradte mi jak zaregistrovat spoustenou aplikaci k pripone
> souboru (z delphi kodu) a jak nastavit souboru s touto
> priponou ikonku.
http://community.borland.com/article/0,1410,17867,00.html
http://community.borland.com/article/0,1410,19646,00.html
HTH
TOndrej
Jake tabulky jsou v db ??
[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 30.10.2001 09:23:23
Hezky den,
rad bych se vas zeptal, jestli nekdo z nevi, jak zjistim, ktere tabulky jsou
obsazeny v urcite databazi.
Diky za odpovedi.
S pozdravem Jirka K.Jak psat DLL
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 09:24:07
> kdyz uz jsi to nakousnul, me tohle proste nefunguje :(
> Kdyz mam DLL, ktere dynamicky nactu pomoci LoadLibrary a zavolam v nem
> najakou fci, tak to proste breakpoint klidne ignoruje. I v
> Delphi IDE se
> breakpoint zobrazi takovou tou hnedou barvou a nazdar. Co s tim? Jak
> nastavit IDE, aby to chodilo?
Mas v Delphi aktivny ten DLL projekt a spustas .exe projekt cez Run\Host
Application?
Je DLL projekt skompilovany s debug info? Je target DLL ta ista (plna
cesta), ktoru .exe natahuje?
Ak si spravne spominam, moja skusenost je taka, ze breakpointy su neaktivne,
az kym hlavny program nezavola LoadLibrary (co dava zmysel), vtedy sa ale
aktivuju a funguju v pohode.
HTH
TOndrej
Tabulka ve form�tu DBase IV.
[*] Pavel P�kn� - 30.10.2001 09:41:41
Dobry den,
pouzivam BDE a potrebuji generovat tabulky ve form�tu DBase IV.
Mohl by mi nekdo poradit jestli/jak se da programove zajistit spravny format
souboru bez ohledu na nastaveni BDE ?
Diky.
Pavel Pekny
Jak psat DLL
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 30.10.2001 09:53:47
> -----Original Message-----
> From: Ondrej Kelle [mailto:O.Kelle(zv)digitalpublishing.de]
>
> Je DLL projekt skompilovany s debug info? Je target DLL ta ista (plna
> cesta), ktoru .exe natahuje?
Ahoj,
tak uz jsem to vyresil, problem byl v tom, ze DLL mela nastaveny output
directory jako '..\' (cili o uroven vyse) a host application ho volala s
plnou cestou. Potom co jsem do output dir napsal celou cestu, tak to
jede.
Ales