Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
odli?n� ikona programu a z�stupce
[*] Milink Otakar <otam(zv)TDAT.CZ> - 17.5.2001 16:22:22
Pomoci Image Editoru vytvorte jeden ICO soubor,
ktery bude obsahovat jak ikonu 32x32 tak i 16x16
(pri editaci ikony je tam tlacitko new)
a tuto ikonu priradte projektu. Windows pak budou
samy pouzivat tu "spravnou"...
s pozdravem Otakar Milink
>
> ahoj,
> chci se zeptat, jestli je n�jak mo�n� ud�lat n�sleduj�c�:
> mam 2 ikony - 16x16 a 32x32, chci, aby program normalne
> pouzival tu 16x16, ale jakmile vytvorim zastupce na plose,
> tak aby se pouzila ta 32x32. Lze to?
> Zmena obrazu
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 17.5.2001 17:11:20
Prave to budu resit jako semestralni praci - ale strucne:
1) obraz se rozseka na X*X regionu (treba 8*8) a v nich se spocita
intenzita barvy (teda prevede se no na sedivou barvu (pokud to neni) a
spocte se prumerna svetlost (0..255) ze vsech pixelu v regionu
2) tato informace se ulozi jako soucasny stav (tedy 64 cisel (bajtu))
3) opakuje se krok 1 pro novy obraz
4) porovna se danych 64 cisel -> rekneme ze dame treba 10% toleranci na sum
5) potom vime, ze se treba 14 cisel shoduje a 50 se zmenulo -> obraz je
jiny !!!!
6) jdeme na krok 2
Je treba stanovit rozhodovaci hranice pro body 4) a 5) a pak take vhodne
zvolit jemnost obrazu. Pokud chceme sledovat krecka ktery zabira 5% obrazu,
je to skoro problem. Pokud chceme sledovat cloveka ktery zabira 20-50%
obrazu, je to vpohode.
V pripade potreby - muj soukromy mail: Tomas.Rosa(zv)pinknet(tec)cz
>mam kameru ze ktere bych potreboval sejmout obraz v pripade zmeny.(nekdo
>projde atd.).
>Nejde mi o program, ale o nejake vhodne reseni, algoritmus, apod.
>Nemate s tim nekdo zkusenosti.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Kill DLL
[*] Zden�k Sv�en - 17.5.2001 17:42:22
A jak to udelas, kdyz konci cela aplikace, tzn. zavres okno hlavniho
formulare?
Jak maji ty akce jit po sobe. Zkousel jsem:
OnClose (hlavni form) : FreeLibrary
tim se vyvola finalization v DLL a tam : DLLForm.Release;
Vzdycky to v lepsim pripade zmrzne a pomuze jen Ctrl-F2 (Reset). V tom
horsim musim shodit cely W98.
Mozna muze bejt bota jeste v tom, ze ten DLLForm je MDIchild hlavniho formu
a provadim tam akci (kterou mam odsud z konference), ze do Application a
Screen DLL prirazuju promenny z exe.> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Bohdan Voska
> Sent: Thursday, May 17, 2001 4:00 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Kill DLL
>
>
> Ja to resim pres zpravy. Poslu na ondestroy formulare zpravu formulari,
> ktery dll zakladal, ze formular skoncil a tam potom po odchyceni zpravy
> provedu freelibrary.
>
>
> Bohdan Voska
> bohdan(zv)softok(tec)cz
>
>
> ----- Original Message -----
> From: "Zden�k Sv��en" <delphiforum(zv)atlas(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, May 17, 2001 2:55 PM
> Subject: RE: Kill DLL
>
>
> > Tak ani Release nepomohl. Bude to nekde jinde.
> >
>
>ClietSocket,ServerSocket
[*] Vobornik Petr <vobornik(zv)apel(tec)cz> - 17.5.2001 16:04:39 -0000
Ahoj,
mam nekolik otazek ke komunikaci pomoci komponent ClietSocket,ServerSocket v
D3.
1.Navazu komunikaci a pote poslu dotaz serveru (SendText), ten posle
odpoved. Pokud odpojim sitovy kabel jeste pred vyslanim odpovedi serveru,
tak jak zjistim, ze data nedosla. SendText nic nevraci a ja nevim jak to
zjistit.
2.Jak osetrit mrtva pripojeni na serveru, myslim tim jak zjisti, ze dane
spojeni s klientem neni aktivni.
3. Jak odchytit dialog s chybovou hlasku na serveru "Asynchronous socket
error 10054".Jde mi o to, ze nechci aby se mi tento systemovy dialog
zobrazoval.
Diky moc Petr
Kill DLL
[*] Zden�k Sv�en - 17.5.2001 18:31:17
Asi jsem uplne neschopnej, ale porad mi to nejde. A pritom chci tak
jednoduchou vec.
Pouze potrebuju, abych z hlavniho formulare (MDIForm) otevrel NEMODALNI,
MDIChild formular v DLL. To DLL potrebuju nahrat do pameti az za behu pomoci
LoadLibrary.
Nemate nekdo potrebnou zkusenost nebo potrebny ilustrativni priklad?
Zdenek
OT: Manual
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.5.2001 19:06:13
Puvodni zprava, kterou napsal Petr Palicka dne 17 May 2001,:
> > Ja to delam v Microsoft Publisheru, to je soucast Office 2000
>
> tak ten jsme zahodily, na dokumentace to bylo nepouzitelny
Tak jste to asi neumelY... a kdyz prinasis takovou prazdnou
informaci, tak by bylo vhodne aspon vysvetlit duvody, proc
je to nepouzitelne, resp. pro vas nepouzitelne.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Dlzka zaznamu v IB6
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 17.5.2001 20:32:53
Zdravim.
Je podla vas zaznam cca. 500 bytes dlhy a uvazujem ze sa do tabulky budu
ukladat 500tis. a viac zaznamov? Skusal som zistit, ze keby som presunul do
druhej tabulky niektore polozky, lebo nie su az take dolezite, ziskal by som
asi 50% usporu, lebo ci to stoji za to aby som potom mal vacsiu reziu okolo
ziskavania udajov z dvoch tabuliek ?
Pri tabulke s pol milionom mi najzlozitejsia operacia trvala cca. 1minutu a
kolko by som ziskal keby som este navyse zmenil na hodnoty dozadovane
foreign keyom na primary key priradenej tabulky a nie cez VarChar(8), lebo
ja robim zoskupovanie pomocou Select .... group by Stlpec1,Stlpec2,Stlpec3 a
vsetky su Typu Varchar(8) a obsahovat mozu len udaje ulozene v inych
tabulkach?
dakujem za kazdu radu.
Roland.rekurzivita v tabulke
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 17.5.2001 20:46:12
Zdravim
Ako dam vypisat v IB6 napr. zoznam vsetkych podriadenych zakaziek, tabulka
vypada nasledovane:
CREATE TABLE ZAKAZKY (
JEDIN INTEGER NOT NULL,
NAPOJENE INTEGER,
CISLO D_ZAKAZKA NOT NULL collate WIN1250,
NAZOV VARCHAR(30) character set WIN1250 NOT NULL collate WIN1250,
ZACREAL D_DATUM NOT NULL,
KONREAL D_DATUM,
VYRAD BOOLEAN);
ALTER TABLE ZAKAZKY ADD CONSTRAINT PK_ZAKAZKY PRIMARY KEY (JEDIN);
ALTER TABLE ZAKAZKY ADD CONSTRAINT FK_ZAKAZKY_NAPOJENE FOREIGN KEY
(NAPOJENE) REFERENCES ZAKAZKY (JEDIN) ON DELETE CASCADE ON UPDATE CASCADE;
Proste mi ide ako o vypisani obsahu adresara vcetne vsetkych vnorenych
suborov a adresarov, ale nezaujima ma ich hierarchia.
Dakujem.
Roland.
Manual
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 17.5.2001 21:26:01
Aniz bych si cinil jakekoliv naroky na spravnejsi spravnost,
dovolil bych si to uvest na pravou miru.
Pan Cermak ma na mysli typograficky system TeX [cti: TeCH],
coz je system, ktery pouziva znackovaci jazyk pro popis
publikace. Zminovany LaTeX je nadstavbou tohoto
systemu, ktery definuje makra a styly pro tvorbu
clanku, knih (atp.). Tento system je jednak
neobycejne komplexni, druhak velmi jednoduchy
na zvladnuti zakladu. Jako dobry start
doporucuji: http://www.cstug(tec)cz. Tam se da sehnat
jak distribuce (TeX-Live 5, ktery disponuje user friendly
instalaci vc. cestiny), tak literatura.
Hodne zdaru. Za sebe musim rict, ze co jsem poznal (La)TeX,
Microsoft Word uz neznam a nechci s nim nic mit.
Ondrej Krajicek
PS: Dulezite je, ze se nejedna o wordprocessor, ale
o typesetting system. Nejde tedy o WYSIWYG (GUI) aplikaci,
ale o WYSIWYM system (What You See Is What You Meant).
Zdrojovy soubor v TeXu je treba vytvorit v nejakem
textovem editoru a pote jej prelozit TeXem.
CERMAK wrote:
>
> Ahoj
>
> Pro pripravu profesionalnich publikaci se v prostredi univerzit pouziva
> system Latex. Manual se v ni da vytvorit pomoci jakehosi jazyka pro popis
> formularu. Tusim ze je zdarma nebo zdarma pro nekomercni ucely. Je
> prenositelny mezi Windows a Linux. Chce to trochu cviku, ale jinak je
> vyborny.
>
> Jaromir Cermak
>
> -----Original Message-----
> From: Ing. Jozef Baranec [mailto:joba(zv)digitaldocuments.org]
> Sent: Thursday, May 17, 2001 11:21 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Manual
>
> Skus PageMaker od Adobe
>
> > Potrebuji vytvorit manual ve forme male brozury.
> > Existuji nejake prostredky, ktere by mi v tom pomohly.
> >
> > Pokousim se to delat ve Wordu, ale je s tim strasna prace.
> > Stranky se musi prehazovat. A to nemluve o budouci nejake zmene.
> >
> > Za jakekoliv namety moc dekuji.
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
--
---------------------------------------------------------------------
Ondrej [Krajicek at ics.muni(tec)cz] OK-) fi: xkrajic(zv)fi.muni(tec)cz
.Omnia ad maiorem Informaticae gloriam
-->>> The Nexus Framework <<<-- sourceforge.net/projects/nexusproject
.Of course we can, moreover we must, it is our holiest duty
---------------------------------------------------------------------
Zachovani dat i po ukonceni aplikace
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 17.5.2001 22:09:36
Mohu vam zaslat unitku, kde je potomek TRegistry a umi takoveto veci vcetne
jednoducheho kryptovani ukladanych informaci (vyvojova verze)...
Zdenek
----- Original Message -----
From: "Ale# Kresta" <ales.kresta(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 16, 2001 9:04 PM
Subject: Zachovani dat i po ukonceni aplikace
> Dobry den,
> chtel bych se zeptat zda jdou nejak jednoduse ulozit vlastnosti
> zakladnich objektu.. Mam na mysli zda neexistuje nejaka funkce nebo
> procedura, ktera by mi ulozila do souboru vsechny parametry objektu a
dalsi
> ktera by je potom nacetla a nastavila dany objekt na tyto vlastnosti.
> Napriklad TLabel bych pred ukoncenim aplikace ulozil, po opetovnem
spusteni
> nahral vlastnosti a tento TLabel by mel stejny font,vysku,sirku,barvu
> .......
> Predem dekuji za odpoved
>Jak udelat viceradkovy DBEdit ?
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 17.5.2001 22:18:42
Kdyz jsem pouzival DBMemo, tak jsem mel problemy, ze mi to psalo blob object
a nejaky error. Uz nevim presne jaky, ale mel jsem nejake problemy s blobem.
Ahoj,
ja sice s DBMemo nemam zadne zkusenosti, ale co to znamena,
ze to moc nechodilo? Bez konkretnejsiho popisu problemu se neda
nic poradit.
David Lebeda
Intervaly
[*] Erik Salaj <winsoft(zv)stonline.sk> - 17.5.2001 23:30:08
> // urcime prekryti
> if I2.L < 0 then
> begin
> Result := (K1 <= (I2.Z + I2.L)) or (Z1 <= I2.Z);
> end
> else
> begin
> Result := (K1 <= I2.Z) or (Z1 <= (I2.Z + I2.L));
> end;
> end;
Nemas to dobre, napr. intervaly (1, 10) a (20, 30) sa neprekryvaju.
Intervaly (D1, H1), (D2, H2) sa prekryvaju vtedy, ked D1 < H2
a zaroven D2 < H1:
Result := (D1< H2) and (D2 < H1);
Ak namiesto hornej hranice H je zadana dlzka L (nezaporna), tak
H1 = D1 + L1
H2 = D2 + L2
Odtial
Result := (D1< D2 + L2) and (D2 < D1 + L1);
Erik
odli?n� ikona programu a z�stupce
[*] Hurricane <hurricane(zv)quick(tec)cz> - 18.5.2001 00:05:05
Zdravim
To prece nejde. Vice velikosti (16, 20, 32, 48, 64) je v jedne ikone kvuli
spravnemu zpobrazeni na monitoru. Kdyz si nechas zobrazit male ikony,
pouzije se 16. KDyz mas normalni, tak se automatick yvybere 32. Kdyz mas
velke ikony, tak si windowsy vytahnou 48. Atd. Kdyz chces mit jinou ikonu
pro exeac a jinou pro jeho zastupce, tak musis mit dve ikony. Ale vic ti
neporadim, jelikoz windows jsou napsany tak, ze pro zastupce se bere ikona s
indexem 0. Nevim o zadnem zpusobu, jak to ovlivnit. Jedine si toho zastupce
vytvorit programove (urcite na to bude komponenta) a pri radit mi IconIndex
1 nebo jine cislo.
Hurricane
----- Original Message -----
chci se zeptat, jestli je n�jak mo�n� ud�lat n�sleduj�c�:
mam 2 ikony - 16x16 a 32x32, chci, aby program normalne pouzival tu 16x16,
ale jakmile vytvorim zastupce na plose, tak aby se pouzila ta 32x32. Lze to?
OT: Manual
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 18.5.2001 06:49:01
> Tak jste to asi neumelY... a kdyz prinasis takovou prazdnou
> informaci, tak by bylo vhodne aspon vysvetlit duvody, proc
> je to nepouzitelne, resp. pro vas nepouzitelne.
omlouvam se, ale chtel jsem tim rict (a nerekl), ze publisher je spis na
informacni letaky nez knihy. alespon tak jsem ho pochopil. pokus udelat
v tom 80-ti strankovou dokumentaci skoncil neuspesne. mozna ze jsme
neschopny my a publisher je skvely nastroj. ale neprisel jsem napriklad
na to, jak na A4 vytisknout dokumentaci tak, aby to slo poskladat na
sebe a v pulce prelozit. to jsem od toho ocekaval a kvuli tomu jsem to
instaloval. vse ostatni co se tyka psani, formatovani a tisku potrebneho
pro dokumentaci umi word a nevidim duvod zabirat si publisherem dalsi
misto na disku.
kdyz jsme u toho psani dokumentaci ve wordu, mozna by neskodilo zkusit
totez v necem mene nakladnem. 602, StarOffice.
btw, za to Y se stydim.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Help Context
[*] Ren� Spi��k - 18.5.2001 06:54:46
Zdravim,
vytvoril jsem si Help jako kompilovane HTML (*.chm) a ted bych to
potreboval nejak spojit s programem tim zpusobem, ze se bude otevirat
urcita cast helpu podle toho, kde napovedu vyvolam. V programu si
nastavim vzdy HelpContext na odpovidajici ID, keter mam urcene v
projektu te napovedy, ale jak to sesynchronizovat? Asi je treba to nejak
zakomponovat primo do sestaveni toho souboru napovedy, ale nevim jak.
Pomuze nekdo?
Diky ============================================================
Ren� Spi#�k (Raptor)
telefon : +420 656 706203 mobil: +420 0605 876 088
e-mail : xraptor(zv)email(tec)cz, raptor(zv)amenit(tec)cz
WWW : http://go.to/paradise77
ICQ# : 36212494
============================================================OT Manual
[*] Radek.Holecek(zv)up.mpsv(tec)cz - 18.5.2001 07:04:14
Omlouvam se za prispevek k OT.
Z vice mailu:
> Potrebuji vytvorit manual ve forme male brozury.
> Existuji nejake prostredky, ktere by mi v tom pomohly.
>Ja to delam v Microsoft Publisheru, to je soucast Office 2000
>vse ostatni co se tyka psani, formatovani a tisku potrebneho
>pro dokumentaci umi word a nevidim duvod zabirat si publisherem dalsi
>misto na disku.
Neznam MS Publisher, takze nemuzu soudit, ale mam Word, ve kterem
jsem kdysi obdobny problem resil. Vim ze ve Wordu (a doufam, ze i v jinych
programem) lze tisknou jen pozadovane stranky.
Myslim si, ze by stalo za uvahu, vytvorit si program, ktery podle zadanych
kriterii vytvori "ciselnou radu stranek", ktere se v tomto poradi vytisknou
ve Wordu. Pak uz to opravdu staci slozit ...
Ja jsem si sice program nedelal, ale generoval jsem radu makrem.
Pokud bude mit nekdo zajem, zkusim se podivat, zda-li ho jeste nekde
nenajdu.
S pozdravem
Radek Holecek
Interbase
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.5.2001 07:18:15
Ahoj nevite nekdo proc mi IB 6 po urcite dobe behu (tak mesic) vzdy spadne ?
v logu mam toto:
www (Client) Thu May 17 22:27:04 2001
INET/inet_error: connect errno = 111
www (Client) Thu May 17 22:27:04 2001
/opt/interbase/bin/ibguard: guardian starting bin/ibserver
www (Server) Thu May 17 22:37:02 2001
INET/inet_error: read errno = 104
www (Server) Thu May 17 22:43:36 2001
INET/inet_error: read errno = 104
www (Server) Thu May 17 22:51:17 2001
INET/inet_error: read errno = 104
www (Server) Thu May 17 23:09:47 2001
gds__free: pool corrupted
www (Server) Thu May 17 23:09:52 2001
gds__free: attempt to release bad block
Jak udelat viceradkovy DBEdit ?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 18.5.2001 07:43:35
> Kdyz jsem pouzival DBMemo, tak jsem mel problemy, ze mi to psalo blob
> object a nejaky error. Uz nevim presne jaky, ale mel jsem nejake
> problemy s blobem.
>
Jestli mas jako typ v databazi blob, tak ti neporadim. Prave jsem
ale zkousel oprit DBMemo o sloupec typu varchar (char) a tam
neni problem.
David Lebeda
Reset na CD
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 18.5.2001 08:18:56
> Po zmene na hodnotu ReadOnly {0} jako v priklade uz jde otevirat soubory z
> CD
> nebo treba sdilet. Problem nastava pokud potrebujete pouzivat nekolik
> souboru zaroven
> nektere pomoci Reset v ReadOnly modu a nektre v ReadWrite. Pak nezbyva nez
> skutecne
> pouzit fileOpen a k tomu prislusne operace.
Nastaveni FileMode by melo fungovat pri kazdem otevreni souboru.
Pokud chci otevrit soubor pouze pro cteni, nastavim ReadOnly,
pokud chci otevrit jiny soubor i pro zapis, nastavim ReadWrite.
pavel.gazda(zv)seznam(tec)cz
TButton a OnKeyPress
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 18.5.2001 08:19:37
Zdravim,
potrebuji v TButton odchytit v udalosti OnKeyPress odchytit stisk klaves
Sipka vlevo/vpravo/nahoru a dolu.
Odchytit lze skoro cokoliv, ale sipky ne. jak se to dela.
Diky Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Zachovani dat i po ukonceni aplikace
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 18.5.2001 08:21:54
> Mohu vam zaslat unitku, kde je potomek TRegistry a umi takoveto veci
vcetne
> jednoducheho kryptovani ukladanych informaci (vyvojova verze)...
>
> Zdenek
>
> > Dobry den,
> > chtel bych se zeptat zda jdou nejak jednoduse ulozit vlastnosti
> > zakladnich objektu.. Mam na mysli zda neexistuje nejaka funkce nebo
> > procedura, ktera by mi ulozila do souboru vsechny parametry objektu a
> dalsi
> > ktera by je potom nacetla a nastavila dany objekt na tyto vlastnosti.
> > Napriklad TLabel bych pred ukoncenim aplikace ulozil, po opetovnem
> spusteni
> > nahral vlastnosti a tento TLabel by mel stejny font,vysku,sirku,barvu
> > .......
> > Predem dekuji za odpoved
> >
Myslim si, ze pro uvedene vlastnosti byl vymyslen soubor *.ini
pavel.gazda(zv)seznam(tec)cz
Jak udelat viceradkovy DBEdit ?
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 18.5.2001 08:57:36
Mozna mi bude stacit varchar. Diky. Pouziji teda DBMemo.
Zdravi
Filip
-----Original Message-----
From: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Friday, May 18, 2001 7:44 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Jak udelat viceradkovy DBEdit ?> Kdyz jsem pouzival DBMemo, tak jsem mel problemy, ze mi to psalo blob
> object a nejaky error. Uz nevim presne jaky, ale mel jsem nejake
> problemy s blobem.
>
Jestli mas jako typ v databazi blob, tak ti neporadim. Prave jsem
ale zkousel oprit DBMemo o sloupec typu varchar (char) a tam
neni problem.
David Lebeda
NMFTP.List
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.5.2001 09:05:19
Zdravim,
chtel jsem se jenom zeptat, pokud nekdo pouzivate komponentu NMFTP a metodu
List, jestli se vam to taky s..e (D5Prof)? V D4 to fungovalo bez problemu,
ale ted to nekdy jede, nekdy ne :-( Nevite nekdo, jestli by pomohl update?
Opravdu se mi to nechce predelavat na jinou komponentu...
Petr
Desktop databaze
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.5.2001 09:11:16
Zdravim,
jakou desktop databazi - z hlediska ovladani z Delphi bez BDE - byste mi
poradili?
Ja vim tak o DB, Paradox a MDB.
Potrebuju pouzit nejakou db, nemam rad BDE a nechce se mi kvuli tomu
instalovat InterBase ;-)
Petr
Desktop databaze
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 18.5.2001 09:19:44
> jakou desktop databazi - z hlediska ovladani z Delphi bez BDE - byste
> mi poradili? Ja vim tak o DB, Paradox a MDB. Potrebuju pouzit nejakou
> db, nemam rad BDE a nechce se mi kvuli tomu instalovat InterBase ;-)
>
My v t�chto p��padech pu��v�me FlashFiler.
David Lebeda
Desktop databaze
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 18.5.2001 09:20:49
Preco nie IB??? Je velmi mala (+/- 4MB po instalacii, ak sa nemylim),
vykonna a hlavne SQL! a pristup k nej tiez velmi jednoduchy.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
> jakou desktop databazi - z hlediska ovladani z Delphi bez BDE - byste mi
> poradili?
> Ja vim tak o DB, Paradox a MDB.
> Potrebuju pouzit nejakou db, nemam rad BDE a nechce se mi kvuli tomu
> instalovat InterBase ;-)
Dlzka zaznamu v IB6
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 18.5.2001 09:24:52
Haj hou!
On 17 May 2001,, Roland Turcan (RoTurSoft) wrote:
> Zdravim.
>
> Je podla vas zaznam cca. 500 bytes dlhy a uvazujem ze sa do tabulky budu
> ukladat 500tis. a viac zaznamov? Skusal som zistit, ze keby som presunul do
> druhej tabulky niektore polozky, lebo nie su az take dolezite, ziskal by som
> asi 50% usporu, lebo ci to stoji za to aby som potom mal vacsiu reziu okolo
> ziskavania udajov z dvoch tabuliek ?
Pokud jde o vliv fyz. ulozeni dat na rychlost dotazu, pak lepsi
vykon ziskate kdyz:
1) Je vic vet na strance. To lze dosahnout jak zkracenim radky jak
navrhujete, tak zvetsenim velikosti stranky. Doporucuji velikost
stranky 4Kb. Nutno brat take v potaz, ze IB uklada retezce
komprimovane.
2) Hledani podle indexu je vyhodnejsi, pokud se vice indexovych
zaznamu vejde na jednu stranku. Kratsi indexovy vyraz tedy vede k
lepsim vysledkum. I zde je nutne vzit v uvahu velikost stranky.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Dlzka zaznamu v IB6
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 18.5.2001 09:27:49
Ako to myslis 500 bytes dlhy? Myslim tym vseky fieldy spolu v 1 zazname
alebo iba jeden field (tabulka s jednym fieldom)???
Co je to za zaznam nejaky popisok alebo ID, ...? Vyhladavas podla toho?
Co je to 1 minuta?? - na akom stroji ;-) ?
Hmm, pochybujem ze Ti niekto dokaze povedat co je lepsie ak to nepospises
presnejsie. Ale ak je to tak dolezite asi by to stalo za to porovnat
nemyslis? Tiez zalezi na tom k comu ten zaznam sluzi.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
> Je podla vas zaznam cca. 500 bytes dlhy a uvazujem ze sa do tabulky budu
> ukladat 500tis. a viac zaznamov? Skusal som zistit, ze keby som presunul
do
> druhej tabulky niektore polozky, lebo nie su az take dolezite, ziskal by
som
> asi 50% usporu, lebo ci to stoji za to aby som potom mal vacsiu reziu
okolo
> ziskavania udajov z dvoch tabuliek ?
> Pri tabulke s pol milionom mi najzlozitejsia operacia trvala cca. 1minutu
a
> kolko by som ziskal keby som este navyse zmenil na hodnoty dozadovane
> foreign keyom na primary key priradenej tabulky a nie cez VarChar(8), lebo
> ja robim zoskupovanie pomocou Select .... group by Stlpec1,Stlpec2,Stlpec3
a
> vsetky su Typu Varchar(8) a obsahovat mozu len udaje ulozene v inych
> tabulkach?
Interbase
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 18.5.2001 09:27:06
Haj hou!
On 18 May 2001,, Sula Milos wrote:
> Ahoj nevite nekdo proc mi IB 6 po urcite dobe behu (tak mesic) vzdy spadne ?
> v logu mam toto:
Jaka verze severu: Classic nebo SuperServer ? Jak je ta verze
stara (IB6 je siroky pojem, je jich hodne) ? Pouzivate UDF ?
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.ListView Drag&Drop
[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 18.5.2001 09:37:13
Zdravim,
pri tahani (Drag) polozky z ListView sa mi vykresluje cela polozka, co
mi obcas sposobuje problem s grafikou. Potrebujem, aby sa zobrazil len
drag kurzor. Zda sa mi, ze niekde sa to da vypnut, ale nieviem najst
kde.
Roman
--
mailto:roman(zv)ttc-telecom.sk
"Zatuhnuti" CTRL
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.5.2001 09:39:00
No, to je problem, ktery u nas trapi nekolik pocitacu. Aleduju to uz
dlouho a podle mne je to Hw problem. Ve vetsine pripadu pomohlo snizit
"Keyboard clock" v BIOSu (pokud tam tu polozku mas) a problem byl
odstranen.
"Zden�k Brej#a" wrote:
>
> Zdravim,
>
> deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
> (nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
> (pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
> uvolni !?
>
> Co to muze zpusobovat ? (nebo aspon jak automatizovane zjistit tuto situaci
> a provest napravu)
>
> prede dekuji za nakopnuti
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Zachovani dat i po ukonceni aplikace
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 18.5.2001 09:47:09
----- Original Message -----
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> > > chtel bych se zeptat zda jdou nejak jednoduse ulozit vlastnosti
> > > zakladnich objektu.. Mam na mysli zda neexistuje nejaka funkce nebo
> > > procedura, ktera by mi
....
>
> Myslim si, ze pro uvedene vlastnosti byl vymyslen soubor *.ini
>
> pavel.gazda(zv)seznam(tec)cz
Ahoj.
Je treba si ale dat pozor na to kam soubor ukladas. Tedy pokud chces aby
aplikcae korektne pracovala i pod W2000 na NTFS.
Bohuzel mnoho aplikaci si ini soubor vytvari ve svem adresari (Program
files\....) nebo v systemovem (WINNT...) a to potom na W200Oprof prihlasenem
do domeny nefacha anzto uzivatel je tam typu "User" tedy se zakazanym
zapisem do adresaru WINNT,PF a All User, a take do registru HKLM a HKCR.
Hodne aplikaci na tohle kasle (programator se obvykle prihlasuje s "lepsimi
pravy") a pak jsou potize.
JInak je tohle omezeni moc sikovna obrana proti ruznym e-mailovym cervikum,
kteri povetsinou modifikuji nebo pridavaji neco prave do vyse uvedenych
adresaru nebo registru.
btw: Vi nekdo KAM se maji korektne ukladat v takovehle situaci (uzivatel s
omezenym opravnenim) nejaka spolecna nastaveni, aby je pak videli i ostatni
useri ?
Ludek
Desktop databaze
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 18.5.2001 09:49:34
----- Original Message -----
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> Ja vim tak o DB, Paradox a MDB.
> Potrebuju pouzit nejakou db, nemam rad BDE a nechce se mi kvuli tomu
> instalovat InterBase ;-)
Ahoj.
Zkus treba free komponenty KaDAO (najdes na torry) a format Acces2000. Mne
se to zda celkem OK a ted se s tim zrovna neco chystam psat.
Ludek
Problem s pameti
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 18.5.2001 09:52:24
Ahoj
Problem je pri navrhu a ne za behu. To mam trasovat Delphi IDE?
Jaromir Cermak
-----Original Message-----
From: Pavol Kaka�ka [mailto:paka(zv)aktis(tec)cz]
Hmm to vyzera na zle uvolnovanie objektov. Budes musiet pouzit MemProof. Uz
som tu pisal aj postup jak sa s tym pracuje tak hladaj v archive.
S pozdravom
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
> Mam dojem ze se to uz rozebiralo, ale nevim s jakym vysledkem. Mam delphi
5
> na Win 98. Mam projekt s nekolika formular, ktere spotrebuji celkem dost
> pameti a systemovych prostredku. Problem je v tom ze pri otevreni techto
> formularu v navrhu se vycerpa jiste mnozstvi pameti a po zavreni zalozky a
> formulare se ji uvolni mene. Nekolikanasobne opakovanivede k vycerpani
vsech
> zdroju a havarii Windows. Nevite nekdo co s tim.dBASE III+ pro Delphi 1
[*] Roman Kunovsk� <delphi-konference(zv)bcpraha(tec)com> - 18.5.2001 10:06:27
Potrebuji sehnat nejakou volnou komponentu,ktera umi cist dBASE III+ (bez BDE) pro Delphi 1
Zna nekdo neco takoveho?
Dik
Roman
Problem s pameti
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 18.5.2001 10:06:05
Sorry, tak tam bude problem v balickoch ak ich pouzivas, respektive v
komponentach.
V Delphi inak plati jeden taky trik kedy sa da uvolnit pamet: menu
Components/Install packages v dialogu odskrtni nejaky balicek, ktory nema
zavislosti zavislosti a daj CANCEL. V konfiguracii balickov sa nic nezmeni
ale Delph pamet uvolni.
Najlepsie je ale prejst na NT resp W2000. ;-)
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
>Problem je pri navrhu a ne za behu. To mam trasovat Delphi IDE?
Desktop databaze
[*] V�t Kr�ka����+?#�$g�^#�3 - 18.5.2001 10:18:26
zkus tohle http://tdbf.casdb.com/
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Da�a Petr
Sent: Friday, May 18, 2001 9:11 AM
To: Konference Delphi (el. adresa)
Subject: Desktop databaze
Zdravim,
jakou desktop databazi - z hlediska ovladani z Delphi bez BDE - byste mi
poradili?
Ja vim tak o DB, Paradox a MDB.
Potrebuju pouzit nejakou db, nemam rad BDE a nechce se mi kvuli tomu
instalovat InterBase ;-)
Petr
Desktop databaze
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 18.5.2001 10:18:32
na uplny primitiva by mohlo staci TDBF
nedavno to byla na CHIP-CD (kvetn 2001).
umi to nativni pristup k DBF.
moc jsem si stim nehral, ale pouzil jsem to pro import PSC do IB, abych
nemusel natahovat BDE do aplikace postaveny na IBX.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/"field BETWEEN ... AND ..." nepouziva index
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 18.5.2001 10:30:38
Mnohokrat dekuji a preji hezky den.
Moc mi to pomohlo. :)
-----Original Message-----
From: Pavel Cisar [mailto:pcb(zv)atlas(tec)cz]
Sent: Tuesday, May 15, 2001 8:48 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: "field BETWEEN ... AND ..." nepouziva index
Haj hou!
Pouziti indexu pro optimalizaci dotazu se ridi nekolika pravidly:
1) Pokud indexni vyraz (seznam polozek) je shodny s jednou
stranou casti where vyrazu, pak se index pouzije.
2) Pokud se leva cast indexniho vyrazu shoduje s jednou stranou
casti where vyrazu, pak se index pouzije.
3) Pokud casti where vyrazu odpovida jina cast indexniho vyrazu
(napr. konec indexu), pak index neni pouzit. To je vcelu dost
logicke.
4) Pokud existuje vice indexu vyhovujicich pravidlu 1) a 2), pak
optimalizator obcas odvede spatnou praci a vybere mene vhodny
index (viz nize)
4) Pokud ma index prilis nizkou selektivitu (viz. prikaz UPDATE
STATISTICS), pak neni pouzit. Tady je prave vada soucasneho
optimalizatoru, ktery v pripade existence dvou indexu pri vypadku
prvniho nepouzije dalsi mozny, nebo vybere index s horsimi
vlastnostmi pro vyber.
Obecna pravidla pro tvorbu indexu urcenych k optimalizaci dotazu:
1) Nevytvarejte prekryvajici se indexy (tedy indexy pres stejna pole,
obvzlaste pokud se shoduji leve casti indexnich vyrazu).
2) Vyhnete se slozenym indexum, pokud to jde. Index pres jedno
pole je vyhodnejsi.
3) Nevytvarejte indexy na polozky s nizkou kardinalitou (maly pocet
diskretnich hodnot ve velkem poctu zaznamu). Prikladem je napr.
index pres polozku pohlavi.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Interbase -tabulka uzivatelskych uctu
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 18.5.2001 10:34:21
Ahoj,
docela by se mi hodilo pridavat uzivatele primo do Interbase 6.0 z programu.
Myslim si, ze ucty jsou v nejake systemove tabulce.
Nevite ktera to je a zda lze pod uzivatelem SYSDBA do ni volne pridavat zaznamy? (tzn. bez zakladani v IBConsole)
Dik
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================Dlzka zaznamu v IB6
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 18.5.2001 10:37:42
Group by je hodne "nakladna: operace, zlaste pokud mate provadet ten group
pres velky pocet zaznamu a velky pocet slopcu.
Zde se mi osvedcilo pouziti ulozne procedury a rozdeleni komplikovaneho dotazu
do vice jednoduchych (optimalizator v IB5.6 si neporadil s vice jak 6 tabulkama,
u dalsich jiz nedokazal pouzit index).
Slavek
> Pri tabulke s pol milionom mi najzlozitejsia operacia trvala cca. 1minutu a
> kolko by som ziskal keby som este navyse zmenil na hodnoty dozadovane
> foreign keyom na primary key priradenej tabulky a nie cez VarChar(8), lebo
> ja robim zoskupovanie pomocou Select .... group by Stlpec1,Stlpec2,Stlpec3 a
> vsetky su Typu Varchar(8) a obsahovat mozu len udaje ulozene v inych
> tabulkach?
>
> dakujem za kazdu radu.
>
> Roland.Desktop databaze
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 18.5.2001 10:44:25
Pokud mas D5Ent, tak muzes na mensi veci pouzit MIDAS, nebo si pockej na D6
a tam ma neco byt (D6 ale pry nejdou kopirovat a navic pry budou vyzadovat CD
obcas pri spusteni, takze bych byl asi opatrny, platit kazdy 2 mesice 140KKc
je trochu moc).
Slavek
> Zdravim,
> jakou desktop databazi - z hlediska ovladani z Delphi bez BDE - byste mi
> poradili?
> Ja vim tak o DB, Paradox a MDB.
> Potrebuju pouzit nejakou db, nemam rad BDE a nechce se mi kvuli tomu
> instalovat InterBase ;-)
>
> Petr
Nastaveni barvy u potomku TControl
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 18.5.2001 10:48:38
Ahoj,
potrebuji nastavovat property Color u ruznych potomku TControl v reakci na
event OnEnter, OnExit. Narazil jsem na problem, ze property Color je u
TControl protected a publikuje se az u koncovych trid (treba TEdit, TMemo
apod.).
Zatim to resim asi takto
procedure HighLight(Sender : TObject; Barva : Tcolor);
begin
if Sender is TEdit then (Sender as TEdit).Color := Barva;
if Sender is TRichEdit then (Sender as TRichEdit).Color := Barva;
if Sender is TMemo then (Sender as TMemo).Color := Barva;
...
a tak dal pro vsechny typy
...
end;
To se mi zda ponekud neprakticke a neelegantni. Umi to nekdo zaridit
chytreji (samozrejme bez zasahu do VCL) ?
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Interbase -tabulka uzivatelskych uctu
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 18.5.2001 10:51:06
je to v isc4.gdb, tam je to tabulka users.
jedinny problem je v passwordu, ale kdysi tady v konferenci
byla procedura, ktera jej umela kryptovat.
Mazat a updatovat to lze urcite, ja jsem si isc4.gdb trosku
rozsiril. tady je vypis skriptu (takto lze realizovat vice adminu uzivatelu):
/* User privileges for INTERBASE 4.0, 5.0*/
/* Slavomir Skopalik (c) 1999 */
/* This script alter the security database */
/* 1. Add column Usr_Privileges on table usr
2. Add trigger for sensitivity privileges setup
Usr_Privileges defines access level for maintenance security database.
Restriction:
Nobody cannot change:
User_Name
Self Admin only:
UID
GID
Level:
0 - No access
1 - change self password only
2 - change self data First_name,Middle_name,Last_name,Full_name
3 - as 2 + change First_name,Middle_name,Last_name,Full_name of any user
4 - as 3 + insert,delete any users
5 - Admin
6 - SYSDBA - non delatable user
Cross:
Col Self Other
----------------------------------------------------------------
USER_NAME No No
PASSWD Level 1 Level 5
UID Level 5 Level 4
GID Level 5 Level 4
First_Name Level 2 Level 3
MIDDLE_NAME Level 2 Level 3
LAST_NAME Level 2 Level 3
Usr_Privileges No <= + Grant Option
Grants:
Level Privileges note
--------------------------------------------------------------------------
0 none Grant not supported
1 UPDATE Grant not supported
2 UPDATE Grant not supported
3 UPDATE
3+Grant UPDATE WITH GRANT OPTION
4+Grant UPDATE,INSERT,DELETE WITH GRANT OPTION
5+Grant ALL WITH GRANT OPTION
6+Grant ALL WITH GRANT OPTION
*/
/* Linux IB */
/*
connect "serverkgb:/usr/interbase/isc4.gdb" USER "sysdba" PASSWORD "masterkey";
*/
/* Windows IB */
connect "C:\Program Files\InterBase Corp\InterBase\Isc4.gdb" USER "sysdba" PASSWORD "masterkey";
alter table users ADD Usr_Privileges smallint default 0 Not Null;
UPDATE users set Usr_Privileges=128+6 WHERE USER_NAME='SYSDBA';
Create exception EInsuficiendPrivileges "Insuficient Privilegies for this operation";
Create exception ESelfDelete "Cannot DELETE YourSelf";
set term ^;
CREATE PROCEDURE CHECKIT (s1 VARCHAR(250),s2 VARCHAR(250))AS
BEGIN
IF(s1=s2)THEN exit;
IF(s1 is null and s2 is null)THEN exit;
EXCEPTION EInsuficiendPrivileges;
END^
CREATE TRIGGER UsersUpdate FOR USERS BEFORE UPDATE POSITION 0 AS
DECLARE VARIABLE o smallint; /* Grant Option */
DECLARE VARIABLE p smallint; /* User Privileges */
DECLARE VARIABLE gp smallint; /* Grantor privileges */
BEGIN
EXECUTE PROCEDURE CHECKIT(new.USER_NAME,old.USER_NAME); /* Nobody cannot change User_Name */
SELECT Usr_Privileges FROM users WHERE USER_NAME=USER INTO :gp;
o=0; p=old.Usr_Privileges;
IF (p>128) THEN p=p-128;
IF (gp>128) THEN BEGIN gp=gp-128; o=1;END /*Extract Grant Option*/
IF (new.USER_NAME=USER) THEN BEGIN /*Self modify*/
IF (p<1) THEN EXCEPTION EInsuficiendPrivileges;
EXECUTE PROCEDURE CHECKIT(new.Usr_Privileges,old.Usr_Privileges); /* cannot change self privileges by yourself */
IF (p<2) THEN BEGIN
EXECUTE PROCEDURE CHECKIT(new.First_Name,old.First_Name);
EXECUTE PROCEDURE CHECKIT(new.MIDDLE_NAME,old.MIDDLE_NAME);
EXECUTE PROCEDURE CHECKIT(new.LAST_NAME,old.LAST_NAME);
END
IF (p<5) THEN BEGIN
EXECUTE PROCEDURE CHECKIT(new.UID,old.UID);
EXECUTE PROCEDURE CHECKIT(new.GID,old.GID);
END
END
IF(new.USER_NAME<>USER)THEN BEGIN /* Modify any user */
IF (gp<3)THEN EXCEPTION EInsuficiendPrivileges; /* Low level for modify */
IF (p>gp) THEN EXCEPTION EInsuficiendPrivileges; /*cannot modify user with upper privilege level */
IF (o=0) THEN EXECUTE PROCEDURE CHECKIT(new.Usr_Privileges,old.Usr_Privileges); /*without Grant optins, cannot assign rigts */
IF (gp<new.Usr_Privileges) THEN EXCEPTION EInsuficiendPrivileges;
IF (gp<4)THEN BEGIN
EXECUTE PROCEDURE CHECKIT(new.PASSWD,old.PASSWD);
EXECUTE PROCEDURE CHECKIT(new.UID,old.UID);
EXECUTE PROCEDURE CHECKIT(new.GID,old.GID);
END
END
END ^
CREATE TRIGGER UsersInsert FOR USERS BEFORE INSERT POSITION 0 AS
DECLARE VARIABLE o smallint; /* Grant Option */
DECLARE VARIABLE p smallint; /* User Privileges */
DECLARE VARIABLE gp smallint; /* Grantor privileges */
BEGIN
SELECT Usr_Privileges FROM users WHERE USER_NAME=USER INTO :gp;
o=0; p=new.Usr_Privileges;
IF (p>128) THEN p=p-128;
IF (gp>128) THEN BEGIN gp=gp-128; o=1;END /*Extract Grant Option*/
IF (gp<4 OR o=0)THEN EXCEPTION EInsuficiendPrivileges; /* Lower level for insert new user */
IF (gp<p) THEN EXCEPTION EInsuficiendPrivileges;
IF (p>5) THEN EXCEPTION EInsuficiendPrivileges;
END ^
CREATE TRIGGER UsersDelete FOR USERS BEFORE DELETE POSITION 0 AS
DECLARE VARIABLE p smallint; /* User Privileges */
DECLARE VARIABLE gp smallint; /* Grantor privileges */
BEGIN
IF (old.USER_NAME=USER) THEN EXCEPTION ESelfDelete;
SELECT Usr_Privileges FROM users WHERE USER_NAME=USER INTO :gp;
p=old.Usr_Privileges;
IF (p>128) THEN p=p-128;
IF (gp>128) THEN gp=gp-128; /*Extract Grant Option*/
IF (gp<p) THEN EXCEPTION EInsuficiendPrivileges;
END ^
set term ;^
GRANT EXECUTE ON PROCEDURE CHECKIT TO PUBLIC;> Ahoj,
> docela by se mi hodilo pridavat uzivatele primo do Interbase 6.0 z programu.
> Myslim si, ze ucty jsou v nejake systemove tabulce.
> Nevite ktera to je a zda lze pod uzivatelem SYSDBA do ni volne pridavat zaznamy? (tzn. bez zakladani v IBConsole)
>
> Dik
Problem s pameti
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 18.5.2001 11:24:36
Ahoj
Opravdu to pomohlo. Nevi nekdo jak to udelat inteligentneji? Tzn nejak
vnutit aby se pamet uvolnila po uzavreni souboru s formularem automaticky? Jaromir Cermak
-----Original Message-----
From: Pavol Kaka�ka [mailto:paka(zv)aktis(tec)cz]
Sent: Friday, May 18, 2001 10:06 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Problem s pameti
Sorry, tak tam bude problem v balickoch ak ich pouzivas, respektive v
komponentach.
V Delphi inak plati jeden taky trik kedy sa da uvolnit pamet: menu
Components/Install packages v dialogu odskrtni nejaky balicek, ktory nema
zavislosti zavislosti a daj CANCEL. V konfiguracii balickov sa nic nezmeni
ale Delph pamet uvolni.
Najlepsie je ale prejst na NT resp W2000. ;-)Problem s pameti
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 18.5.2001 11:38:50
Ja neviem, ale moc by som na to nespoliehal, ak je problem skutocne taky ze
pamet narasta a nasrasta a narasta a neuvolnuje sa cela tak by som zistoval
preco tomu tak je - systemom to asi nebude a naviac to riesenie s
uvolnovanim balickov je docasne lebo postupom casu moze dochadzat k dalsim a
vecsim problemom. (Teda ak som to spravne vsetko pochopil :) )
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
----- Original Message -----
From: "CERMAK" <CERMAK(zv)procom(tec)cz>
Opravdu to pomohlo. Nevi nekdo jak to udelat inteligentneji? Tzn nejak
vnutit aby se pamet uvolnila po uzavreni souboru s formularem automaticky?
Nastaveni barvy u potomku TControl
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 18.5.2001 11:39:59
Jde to. ale neni to zrovna ciste.
potrebujete se nejprve ujistit, ze implementace Color
property je vsude stejne, ze se jedna skutecne pouze o zverejneni.
potom je to snadne.
Napisete si potomka TControl a ten bude mit zverejnenou property
color, nic vic.
pak staci tohle:
if Sender is TControl then THackColorControl(Sender).Color;
Pozor, nemusi to vzdy fungovat korektne, pokud si nekdo vytvoril vlastni
implementaci color, tak to asi zpusobi zmatky.
Slavek
> Ahoj,
>
> potrebuji nastavovat property Color u ruznych potomku TControl v reakci na
> event OnEnter, OnExit. Narazil jsem na problem, ze property Color je u
> TControl protected a publikuje se az u koncovych trid (treba TEdit, TMemo
> apod.).
>
> Zatim to resim asi takto
>
> procedure HighLight(Sender : TObject; Barva : Tcolor);
> begin
> if Sender is TEdit then (Sender as TEdit).Color := Barva;
> if Sender is TRichEdit then (Sender as TRichEdit).Color := Barva;
> if Sender is TMemo then (Sender as TMemo).Color := Barva;
> ...
> a tak dal pro vsechny typy
> ...
> end;Interbase
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.5.2001 11:53:36
Je to superserver, jinak to je verze 6.0.0.624 pro linux. A UDF zadny
program co tu mame nepouziva, ale je tam zprovoznene.
Jaka verze severu: Classic nebo SuperServer ? Jak je ta verze
stara (IB6 je siroky pojem, je jich hodne) ? Pouzivate UDF ?
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Interbase
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 18.5.2001 12:09:24
Tak presne z techto duvodu jsme superserver vyhodili a pouzivame
clasic
> Je to superserver, jinak to je verze 6.0.0.624 pro linux. A UDF zadny
> program co tu mame nepouziva, ale je tam zprovoznene.
>
> Jaka verze severu: Classic nebo SuperServer ? Jak je ta verze
> stara (IB6 je siroky pojem, je jich hodne) ? Pouzivate UDF ?
>
> Hodne zdaru
>
> Pavel Cisar <pcisar(zv)borland(tec)cz>
> Borland s.r.o.
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
Problem s pameti
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 18.5.2001 12:03:07
Jake pouzivas komponenty krome standartnich, dodavanych s Delphi ? Mas
nejake vlastni komponenty ? Mne se podobny problem objevil prave pri spatne
alokaci/dealokaci vlastnich komponent. Nejake zapomenute Free apod.
Marian Jonas
>Problem je pri navrhu a ne za behu. To mam trasovat Delphi IDE?
>
> Jaromir Cermak Desktop databaze
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.5.2001 15:35:45
>Preco nie IB??? Je velmi mala (+/- 4MB po instalacii, ak sa nemylim),
>vykonna a hlavne SQL! a pristup k nej tiez velmi jednoduchy.
>
No jo, ale kdyz budu chtit prenest tu db na jiny comp, tak tam budu muset
taky instalovat IB, coz nechci.
Uvazoval jsem o mdb databazi a o komponentach KADAO (tech zakladnich, free)
- nemate s tim nekdo zkusenosti?
Petr
Kill DLL
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 18.5.2001 15:45:40
Zkus to takhle
const WM_Konecdll= wm_user+200;
v dll:
ondestroy formulare
postmessage(exeForm.Handle,WM_Konecdll,0,0);
v exe :
implementation
procedure Konecdll(var Message: TWMChar);message WM_Konecdll;
interface
freelibrary(LibHandle);
Bohdan Voska
bohdan(zv)softok(tec)cz
----- Original Message -----
From: "Zden�k Sv��en" <delphiforum(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 17, 2001 6:31 PM
Subject: RE: Kill DLL
> Asi jsem uplne neschopnej, ale porad mi to nejde. A pritom chci tak
> jednoduchou vec.
> Pouze potrebuju, abych z hlavniho formulare (MDIForm) otevrel NEMODALNI,
> MDIChild formular v DLL. To DLL potrebuju nahrat do pameti az za behu
pomoci
> LoadLibrary.
> Nemate nekdo potrebnou zkusenost nebo potrebny ilustrativni priklad?
>
> Zdenek
>
>
Interbase -tabulka uzivatelskych uctu
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 18.5.2001 14:55:15
Podivej se do databaze ISC4.GDB do tabulky USERS, sem staci dohodit novy
radek a uz to bezi. Problemem mohou byt hesla. Postup zadavani noveho
uzivatele by snad sel vykuchat ze zdrojaku IB Console.
Marian Jonas
>Ahoj,
>docela by se mi hodilo pridavat uzivatele primo do Interbase
>6.0 z programu.
>Myslim si, ze ucty jsou v nejake systemove tabulce.
>Nevite ktera to je a zda lze pod uzivatelem SYSDBA do ni volne
>pridavat zaznamy? (tzn. bez zakladani v IBConsole)
>
>Dik
>
>=========================================
>Richard Valny richard.valny(zv)oku-st(tec)cz
>Okresni urad Strakonice tel. 0342-441 l. 216
>Smetanova 533 fax. 0342-323 746
>386 22 STRAKONICE
>=========================================
>Interbase
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 18.5.2001 16:05:47
Haj hou!
> Je to superserver, jinak to je verze 6.0.0.624 pro linux. A UDF zadny
> program co tu mame nepouziva, ale je tam zprovoznene.
Toz si poridte novou verzi IB 6.0.1 nebo Firebird 0.9.4. Tahle verze
SS ma problemy se spravou ameti pri pouziti UDF. Nebo pouzijte
Classic, ale SS je lepsi pokud zrovna nemate vice procesoru v
masine.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Desktop databaze
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.5.2001 16:05:01
>> jakou desktop databazi - z hlediska ovladani z Delphi bez BDE - byste
>> mi poradili? Ja vim tak o DB, Paradox a MDB. Potrebuju pouzit nejakou
>> db, nemam rad BDE a nechce se mi kvuli tomu instalovat InterBase ;-)
>>
>
>My v t�chto p��padech pu��v�me FlashFiler.
No jo, ale ta neni FREE ...
Petr
Nastaveni barvy u potomku TControl
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 18.5.2001 17:10:38
On 18 May 2001, at 11:39, Slavomir Skopalik wrote:
> Jde to. ale neni to zrovna ciste.
> potrebujete se nejprve ujistit, ze implementace Color
> property je vsude stejne, ze se jedna skutecne pouze o zverejneni.
> potom je to snadne. Napisete si potomka TControl a ten bude mit
> zverejnenou property color, nic vic.
> pak staci tohle:
> if Sender is TControl then THackColorControl(Sender).Color;
Nebo takto:
var
PropInfo: PPropInfo;
...
PropInfo := GetPropInfo(Sender.ClassInfo, 'Color');
if PropInfo <> nil then SetOrdProp(Sender, PropInfo, ColorValue);
> > potrebuji nastavovat property Color u ruznych potomku TControl v
> > reakci na event OnEnter, OnExit. Narazil jsem na problem, ze
> > property Color je u TControl protected a publikuje se az u koncovych
> > trid (treba TEdit, TMemo apod.).
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi, Novell and connected users
[*] <martin.duffek(zv)sk.pwcglobal(tec)com> - 18.5.2001 17:46:27
Caute,
Momentalne pracujem na jednom takom programiku v Delphi, ktory si eviduje uzivatelov v sieti. Som v stadiu, ked do databazy zapisem Connection
reference a
connection handle. Vsetko je OK az dovtedy, ked sa pokusam zistit ci je dany uzivatel (s danym handle a refference) stale aktivny.
Myslim, ze nemam spravny grif. Neviete niekto ako na to ?
Pouzivam k tomu unity CalWin32, netwin32,clxwin32 (support.novell.com) a funkcie nwccopenconnbyref,nwccgetallconninfo.
Diky za kazdy dobry napad.
----------------------------------------------------------------
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of, or
taking of any action in reliance upon, this information by persons or
entities other than the intended recipient is prohibited. If you received
this in error, please contact the sender and delete the material from any
computer.OT: Manual
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.5.2001 19:36:08
Puvodni zprava, kterou napsal Petr Palicka dne 18 May 2001,:
> > Tak jste to asi neumelY... a kdyz prinasis takovou prazdnou
> > informaci, tak by bylo vhodne aspon vysvetlit duvody, proc
> > je to nepouzitelne, resp. pro vas nepouzitelne.
>
> omlouvam se, ale chtel jsem tim rict (a nerekl), ze publisher je spis na
> informacni letaky nez knihy. alespon tak jsem ho pochopil. pokus udelat
No, nemohu s tim souhlasit. Tedy ne ze bych v tom psal knihy, ale
na bulletiny A5, ktere delam, je to pro me naprosto dostacujici.
> v tom 80-ti strankovou dokumentaci skoncil neuspesne. mozna ze jsme
No 80 stran A5 delanych jako prehnuta A4, to je 20 papiru A4,
to uz vypada docela blbe, kdyz se to prehne, musi se to aspon
seriznout. Ale v Publisheru to jde.
> neschopny my a publisher je skvely nastroj. ale neprisel jsem napriklad
> na to, jak na A4 vytisknout dokumentaci tak, aby to slo poskladat na
> sebe a v pulce prelozit. to jsem od toho ocekaval a kvuli tomu jsem to
Ja mam anglicke Office, takze: File - Page Setup, tam nastavit
Layout na Special Fold (radio button druhy shora), pod tim pak
v combo boxu Special Fold nastavit Book Fold. Orientation
samozrejme Landscape. Vpravo v Preview je to pak videt, jak to
bude vypadat. Pri tisku to pak Publisher samozrejme tiskne tak,
aby to vyslo presne tak, jak chces...
> btw, za to Y se stydim.
No jo, neni to takova tragedie, jsou i horsi veci :)
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================inline
[*] Bejvlov� Martina <M.Bejvlova(zv)cra(tec)cz> - 18.5.2001 19:56:01
M�m takov� probl�m. Nev�te n�kdo, jestli je n�jak� mo�nost p�epsat do D.
tuto ��st progr�mku ze sta�i�k�ho TP55?
M�la jsem n�kolik teori�, ale ani jedna mi nefunguje, tak�e jestli si n�kdo
mysl� �e v�, pros�m pora�te. (nejsem si toti� jist�,jestli to v�bec jde. )
D�ky Martina
Procedure ieinit(ioport,myaddr,setting:integer);
begin
inline ($9A/$00/$04/$00/$D0);
end; { call D000:0400 }
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.4.2001
vycentrovani textu ve statusbaru
[*] Milan ��ek - 18.5.2001 21:32:52
ahoj,
pouzivam nasledujici kod, ke zmodreni textu v casti statusbaru. Pokud ale
pouzivam vlastni vykreslovani, nefunguje zarovnavani. Nevite nekdo, jak ten
text vycentrovat? Zkousel jsem nato jit matematicky, ale nedari se
Canvas.TextRect(Rect,Rect.Left+((Panel.Width-(Rect.Right-Rect.Left)) div
2),Rect.Top,Panel.Text);
Diky za radu.
procedure TMainForm.StatusBarDrawPanel(StatusBar: TStatusBar; Panel:
TStatusPanel; const Rect: TRect);
begin
if (Panel.Index=1) or (Panel.Index=3) then
with StatusBar do
begin
Canvas.Brush.Color:=Color; Canvas.FillRect(Rect);
Canvas.Font.Color:=clBlue;
Canvas.TextRect(Rect,Rect.Left,Rect.Top,Panel.Text);
end;
end;
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
vycentrovani textu ve statusbaru
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 18.5.2001 22:15:38
Canvas.TextRect(Rect,Rect.Left+(Panel.Width-TextWidth(Panel.Text)) div
2),Rect.Top,Panel.Text);
Jan Skopovy
> ahoj,
> pouzivam nasledujici kod, ke zmodreni textu v casti statusbaru. Pokud ale
> pouzivam vlastni vykreslovani, nefunguje zarovnavani. Nevite nekdo, jak
ten
> text vycentrovat? Zkousel jsem nato jit matematicky, ale nedari se
>
> Canvas.TextRect(Rect,Rect.Left+((Panel.Width-(Rect.Right-Rect.Left)) div
> 2),Rect.Top,Panel.Text);
>
TButton a OnKeyPress
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 18.5.2001 22:16:54
Musis pouzivat OnKeyDown nebo OnKeyUp.
Jan Skopovy
> potrebuji v TButton odchytit v udalosti OnKeyPress odchytit stisk klaves
> Sipka vlevo/vpravo/nahoru a dolu.
> Odchytit lze skoro cokoliv, ale sipky ne. jak se to dela.
pohyb bez blikani
[*] activer <activer(zv)seznam(tec)cz> - 18.5.2001 22:33:17
Pomuze mi nekdo udelat "jezdici tlacitko", aby se posunovalo podle timeru po 1 bodu ale nepoblikavalo pritom?
diky
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.244 / Virov� b�ze: 119 - datum vyd�n�: 2.4.2001
vycentrovani textu ve statusbaru
[*] Milan ��ek - 19.5.2001 00:11:29
> Canvas.TextRect(Rect,Rect.Left+(Panel.Width-TextWidth(Panel.Text)) div
> 2),Rect.Top,Panel.Text);
>
> Jan Skopovy
>
> > ahoj,
> > pouzivam nasledujici kod, ke zmodreni textu v casti statusbaru. Pokud
ale
> > pouzivam vlastni vykreslovani, nefunguje zarovnavani. Nevite nekdo, jak
> ten
> > text vycentrovat?
ahoj,
bohuzel to neni porad to pravy, stale to utika :((
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Interbase -tabulka uzivatelskych uctu
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 19.5.2001 01:56:05
----- Original Message -----
From: "Richard Valny" <Richard.Valny(zv)oku-st(tec)cz>
>docela by se mi hodilo pridavat uzivatele primo do Interbase 6.0 z
programu.
Ahoj.
TIBSecurityService na zalozce Interbase Admin (IB6, IBX, D5prof).
Ludek
dBASE III+ pro Delphi 1
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.5.2001 06:52:23
Z webu si muzes stahnout TDBF kmponentu. Je free se zdroji. Je
kompatibiln� s TDataset (nepotrebuje BDE), pod Delphi1 by snad
rozchodit sla :-(
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.5.2001 Roman Kunovsk�:
> Potrebuji sehnat nejakou volnou komponentu,ktera umi cist dBASE III+ (bez BDE) pro Delphi 1
> Zna nekdo neco takoveho?
> Dik
> Roman
OT: Manual
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 19.5.2001 07:16:19
Ahoj,
> bude vypadat. Pri tisku to pak Publisher samozrejme tiskne tak,
> aby to vyslo presne tak, jak chces...
Umi ten MS Publisher vytvaret primo PDF soubory, tj. bez PS a distilleru ?
S korektni cestinou?
Ona ta cestina neni u PDF tak samozrejma, jak by se mohlo zdat :-((
Diky,
Leos
OT: Manual
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.5.2001 10:17:43
Puvodni zprava, kterou napsal Leos Urban dne 19 May 2001,:
> Umi ten MS Publisher vytvaret primo PDF soubory, tj. bez PS a distilleru ?
> S korektni cestinou?
> Ona ta cestina neni u PDF tak samozrejma, jak by se mohlo zdat :-((
Publisher je od Microsoftu, ne od Adobe, takze primo do PDF neexportuje,
potrebujes Distiller. Pres Distiller samozrejme cestina bez problemu,
ja mam Acrobat 4.05 CE. Ja to netisknu primo z Publisheru, ale nejdrive
to prave prevedu do PDF, protoze na me postscriptove barevne tiskarne
vypadaji pismena mnohem lepe, kdyz jdou z PDF nez primo z Publisheru,
nevim proc, ale je to tak.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================vycentrovani textu ve statusbaru
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 19.5.2001 12:57:21
On 18 May 2001, at 21:32, Milan #ݿek wrote:
> pouzivam nasledujici kod, ke zmodreni textu v casti statusbaru. Pokud
> ale pouzivam vlastni vykreslovani, nefunguje zarovnavani. Nevite
> nekdo, jak ten text vycentrovat? Zkousel jsem nato jit matematicky,
> ale nedari se
>
> procedure TMainForm.StatusBarDrawPanel(StatusBar: TStatusBar; Panel:
> TStatusPanel; const Rect: TRect); begin
> if (Panel.Index=1) or (Panel.Index=3) then
> with StatusBar do
> begin
> Canvas.Brush.Color:=Color; Canvas.FillRect(Rect);
> Canvas.Font.Color:=clBlue;
//> Canvas.TextRect(Rect,Rect.Left,Rect.Top,Panel.Text);
Windows.DrawText(Canvas.Handle, PChar(Panel.Text),
Length(Panel.Text), Rect, DT_CENTER or DT_VCENTER)
> end;
> end;
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zmena obrazu
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 19.5.2001 15:13:33
Hello Dalibor!
> mam kameru ze ktere bych potreboval sejmout obraz
> v pripade zmeny.(nekdo projde atd.).
Uplne najjednoduchsie, najlacnejsie a najrychlejsie je umiestnit vedla
kamery pohybovy senzor za 250 Kc, LEDku z neho na nejaky volny pin serioveho
portu.
Ked mas dost casu na programovanie a dostatocne silny procesor, mozes pre
dany region pocitat rozdielovy obraz (absolutnu hodnotu rozdielu pre kazdy
pixel) a ked sucet pixelov toho rozdielu dosiahne urcity prah (t.j. cely
obraz prechadzas, len ked je zmien malo), pustis 'zaznam'. Keby sa ukazalo,
ze ten procesor nie je az taky silny, mozes si ulohu zjednodusit tym, ze
v tom cykle na pixely das napr. 'step 7'..
Ina moznost je porovnanie Fourrierovych koeficientov, najlepsie pocitanych
'harwarovo'.
Bye
V.Mlich http://www.rar(tec)cz
telef. +420-67-7986163
mobil +420-603-454069
Ulozeni bitmapy do databaze
[*] Kokosek <skokosek(zv)seznam(tec)cz> - 19.5.2001 15:48:47
Ahoj
poradi mi nekdo, jakulozit obrazek ze souboru (napr. C:\image.bmp)
do databaze Paradox. Prosim o kratky priklad.
Dik Lada
DOS a Win
[*] Jaroslav Holub <netera.cl(zv)iol(tec)cz> - 19.5.2001 16:32:07
Nevite nahodou nekdo, jak zjisti set promenna z DOSu.
Predem dekuji Netera.IDE odmita pripojit ikonu k EXE filu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 19.5.2001 20:30:56
DD,
netusi nekdo, co mohlo zpusobit, ze najednou IDE prestalo vkladat do vysledneho EXE ikonu (MAINICON) ??
Cudlik 'Load icon' v nastaveni properties projektu je najednou neaktivni.
D5, Win2000
Zdravi
D. Toman
Richedit CopyToClipboard
[*] Milan ��ek - 19.5.2001 21:08:19
ahoj,
pro zkopirovani obsau z RichEditu do Clipboardu pouzivam:
with RichEdit do
begin
SelectAll; CopyToClipboard; ...
chci se zeptat, jestli je nejaka jina moznost, ktera by se navenek nilterak
vizu�ln� projevovala (SelectAll).
Diky
PS: Diky Zbysku za ten center ve statusBaru :)
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Prav� polo�ka v MainMenu
[*] Milan ��ek - 19.5.2001 21:20:32
ahoj,
vytvarim polozku Help v hornim menu vpravo. Kdyz kliknu na tuto polozku,
otevre se nabidka, ale doprava. To znamena, ze se zobrazi vpravo vedle okna.
Da se nejak udelat, aby se jen vyvolane menu u teto polozky vykreslovalo
doleva?
var MI: TMenuItemInfo; Buffer: array[0..79] of Char;
begin
ZeroMemory((zv)MI,Sizeof(MI));
MI.cbSize:=44; // Win95
MI.fMask:=MIIM_TYPE;
MI.dwTypeData:=Buffer;
MI.cch:=SizeOf(Buffer);
if GetMenuItemInfo(MainMenu1.Handle,Help1.MenuIndex,True,MI) then
begin
MI.fType:=MI.fType or MFT_RIGHTJUSTIFY;
if SetMenuItemInfo(MainMenu1.Handle,Help1.MenuIndex,True,MI) then
DrawMenuBar(MainMenu1.WindowHandle);
end;
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
IDE odmita pripojit ikonu k EXE filu
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 19.5.2001 23:06:06
Ahoj,
zkontroluj zda jsi nesmaznul z projektoveho souboru direktivu {$R *.RES}.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Dalibor Toman
> Sent: Saturday, May 19, 2001 8:31 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: IDE odmita pripojit ikonu k EXE filu
>
>
> DD,
>
> netusi nekdo, co mohlo zpusobit, ze najednou IDE prestalo vkladat
> do vysledneho EXE ikonu (MAINICON) ??
> Cudlik 'Load icon' v nastaveni properties projektu je najednou neaktivni.
>
> D5, Win2000
>
> Zdravi
> D. Toman
>
> Prehravanie MP3
[*] rumanovci(zv)bb.telecom.sk - ay 2001 22:14:21
Dokaze mi niekto poradit nieco na prehravanie MP3 v Delphi 4, okrem ELSounds, ktore nedokazem prinutit k spolupraci?
Peter Ruman
DOS a Win
[*] rumanovci(zv)bb.telecom.sk - ay 2001 23:15:59
Ked sa pozries do helpu MS, konkretne do suboru ?DELPHI?\BORLAND SHARED\MSHELP\Win32.hlp a v 'Register' napises 'Environment Variables', najdes funkcie WinApi pre zistovanie a nastavovanie premennych DOSu.
Ruman Peter
> Nevite nahodou nekdo, jak zjisti set promenna z DOSu.
>
> Predem dekuji Netera.
Richedit CopyToClipboard
[*] rumanovci(zv)bb.telecom.sk - ay 2001 23:15:53
Jedna moznost na zamedzenie prejavovania sa urcite je a to je vratit naspat stav pred SelectAll. To znamena ulozit si niekde hodnoty SelStart a SelLength a potom ich nastavit naspat. Ak sa to nerobi na pomalom stroji a textu nie je velke kvantum, tak to prebliknutie pri SelectAll by nemalo byt ani vidno. U mna to vidno nebolo...
Ruman Peter
> ahoj,
> pro zkopirovani obsau z RichEditu do Clipboardu pouzivam:
>
> with RichEdit do
> begin
> SelectAll; CopyToClipboard; ...
>
> chci se zeptat, jestli je nejaka jina moznost, ktera by se navenek nilterak
> vizu�ln� projevovala (SelectAll).
>
> Diky
Interbase -tabulka uzivatelskych uctu
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 20.5.2001 00:30:36
> >docela by se mi hodilo pridavat uzivatele primo do Interbase 6.0
> TIBSecurityService na zalozce Interbase Admin (IB6, IBX, D5prof).
nebo TIB_Connection.AlterUser v IBObjects
Leos
Kde sehnat DELPHI 1.0/2.0? Pomozte!!
[*] Ondra <kurkami(zv)volny(tec)cz> - 20.5.2001 07:05:14
Ahoj Delfini,
mam 386ku (SX 33Mhz) a Windows 3.1 a rad bych se zacal ucit programovat
v Delphi. Nemate nekdo Delphi 1 nebo nevite kde by se dala sehnat? Fungovalo
by mi to vubec?
Diky za vsechny odpovedi
Ondrej
Richedit CopyToClipboard
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 20.5.2001 08:24:56
Hello All!
> Jedna moznost na zamedzenie prejavovania sa
> urcite je a to je vratit naspat stav pred SelectAll.
> To znamena ulozit si niekde hodnoty SelStart
> a SelLength a potom ich nastavit naspat.
Minule som riesil podobny problem s TMemo. Vzdy pribuda len na konci,
niekedy slovo k poslednemu riadku, inokedy zacne dalsi riadok. Okrem toho
pri dosiahnuti limitu bolo treba zrusit najstarsi (prvy) riadok. Okno som
mal male, len na posledne 2 riadky.
Ale ten lump D5 mi skoro stale ukazoval posledny riadok uplne prazdny! Takze
v okienku pre 2 riadky bolo vidno len jeden. Navyse po zmazani prveho riadku
sa zobrazil zaciatok. Nakoniec som to vyriesil tak, ze po vsetkych updatoch
som este pridal a vzapati zrusil znak do posledneho riadku. Na P75 to ale
bolo dost poznat, zvlast, ked sa vyskytol zhluk niekolko updatov za sekundu.
Bye
V.Mlich http://www.rar(tec)cz
Prehravanie MP3
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 20.5.2001 10:17:17
Zkus hledat knihovnu FMOD.DLL a jeji hlavicky. Mam ji (kdyztak poslu) a umi
od WAVu z disku, z pameti pres MP3 az po 3D zvuk na SBLive. Fakt super!!!
Je to pouze na prehrani, nejaky WinAmp z toho neudelas.
>Dokaze mi niekto poradit nieco na prehravanie MP3 v Delphi 4, okrem
>ELSounds, ktore nedokazem prinutit k spolupraci?
> S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
SQL
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 20.5.2001 11:17:05
Nekdy je dobre pouzit execSQL,nekdy Open.
Aldik amater v D5 Ent. (ale snazivej)
----- Original Message -----
From: Jaroslav Bayer
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, May 14, 2001 11:36 PM
Subject: SQL
Programuji jednoduche databazove aplikace v DELPHI 5. Drive jsem se snazil vse naprogramovat bez SQL, ale neslo to, a proto jsem se uchylil k teto metode. Muj problem spociva v tom, ze po nacteni tabulky napr. do DBGrid pomoci prikazu "SELECT * FROM nazev tabulky" nejsem schopen tuto tabulku odstranit prikazem "DROP TABLE nazev tabulky". Chyba neni v napojeni QUERY nebo jinych komponent - ani v readonly tabulce. Po restartovani programu ji lze vymazat, ale po zobrazeni, se problem opakuje.
Dekuje za pomoc Jaroslav Bayer.Kde sehnat DELPHI 1.0/2.0? Pomozte!!
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 20.5.2001 11:24:31
> mam 386ku (SX 33Mhz) a Windows 3.1 a rad bych se zacal ucit
programovat
> v Delphi. Nemate nekdo Delphi 1 nebo nevite kde by se dala sehnat?
Fungovalo
Delphi 1 (Delphi 2 neni pro Win3.1) by Ti asi fungovalo, pokud mas dost
pameti (6MB).
Popis a pozadavky verze D1:
http://www.borland.com/delphi/del1/
Pokud se tyka sehnani, tak predpokladam, ze kdyz koupis D5 STD (cca 5kKc)
a predem se domluvis s ceskym Borlandem, tak Ti daji licenci (a cedecko) k
D1.
Nevim, jestli jsi tohle chtel slyset, ale radsi predpokladejme ze ano,
jinak by sis zde mohl udelat (opravnene) problemy s adminem ;-)
Ovsem ja na Tvem miste bych nejdrive koupil nejake starsi Pentium
s aspon 32MB pameti a Win95 a pak koupil D5 STD.
To uz bude mnohem bliz dnesni realite a pro Tve prvni rozhodovani
by mohla pomoci i 60-denni trial verze D5Ent (300,-).
Leos
IDE odmita pripojit ikonu k EXE filu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.5.2001 12:04:51
>
> zkontroluj zda jsi nesmaznul z projektoveho souboru direktivu {$R *.RES}.
>
Diky! Bylo to ono.
Pouzivam podmineny preklad ke generovani ruznych verzi projektu - v *.dpr jsou nektere unity obaleny {$IFDEF .
Pokud pridam ci odeberu unity do/z projektu IDE pomrsi celou deklaraci USES v *.dpr. Pri tom nejak doslo i ke ztrate {$R *.RES}
Jeste jednou diky
D. Toman
inline
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 20.5.2001 12:47:24
Tak toto prepsat nelze, ne ze nesel napsat ten call, ale
podle adresy se jedna asi o cast nejakeho biosu.
Co to melo delat ? Treba by se to dalo vyresit jinak.
Assembler neni v D5 problem, problemem prepisu
z TP obecne (a z D1)je slutecnost, ze je to naprogramovano
v 16B modu a vetsinou je to kompatibilni s MS DOSem.
Slavek
> Mam takovy problem. Nevite nikdo, jestli je nijaka mo?nost poepsat do D.
> tuto east programku ze staoiekeho TP55?
> Mila jsem nikolik teorii, ale ani jedna mi nefunguje, tak?e jestli si nikdo
> mysli ?e vi, prosim poraite. (nejsem si toti? jista,jestli to vubec jde. )
> Diky Martina
>
> Procedure ieinit(ioport,myaddr,setting:integer);
> begin
> inline ($9A/$00/$04/$00/$D0);
> end; { call D000:0400 }Zachovani dat i po ukonceni aplikace
[*] Miroslav Evj�k <evjak(zv)atlas(tec)cz> - 20.5.2001 12:51:29
Ahoj,
> chtel bych se zeptat zda jdou nejak jednoduse ulozit vlastnosti
> zakladnich objektu.. Mam na mysli zda neexistuje nejaka funkce nebo
> procedura, ktera by mi ulozila do souboru vsechny parametry
> objektu a dalsi
> ktera by je potom nacetla a nastavila dany objekt na tyto vlastnosti.
RxLibrary 2.75 -> RxTools -> TFormStorage.
Umi ulozit a obnovit Properties objektu do registry nebo INI file.
Mirecek
evjak(zv)atlas(tec)cz
Array a spotreba pameti
[*] martin_delphi(zv)terminal.sk - 20.5.2001 20:53:27
Zdravim,
potrebujem v programe pouzit vecsie mnozstvo array, radovo 2.000. Pouzitie je
potrebne iba pre urcite vypocty. Ako narocne je pouzitie takeho mnozstva na
pamet?
velkost by mala byt od 10 do 80 znakov na zaznam
Martin
Kde sehnat DELPHI 1.0/2.0? Pomozte!!
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 20.5.2001 23:18:14
----- Original Message -----
From: "Leos Urban" <Leos.Urban(zv)iol(tec)cz>
Subject: Re: Kde sehnat DELPHI 1.0/2.0? Pomozte!!> Pokud se tyka sehnani, tak predpokladam, ze kdyz koupis D5 STD (cca 5kKc)
> a predem se domluvis s ceskym Borlandem, tak Ti daji licenci (a cedecko) k
> D1.
> Nevim, jestli jsi tohle chtel slyset, ale radsi predpokladejme ze ano,
> jinak by sis zde mohl udelat (opravnene) problemy s adminem ;-)
Ahoj.
Pokud se nemylim tak D1 je uz free. Jinak Instalace D1 je stoprocentne na
instalacnim CD s Delphi3 a Delphi4.
Take jsem ji videl na nejakem CD CHIPU nebo COMPUTERU (myslim).
Ludek
IB6.0.1.6: Backup/Restore
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 21.5.2001 00:55:27
On 16 May 2001,, Dusan Fojtik wrote:
>
> >....
> > Kdyz zazalohuji databazi utilitou gbak(probehne to bez problemu), pak
kdyz
> > chci potom tuto zazalohovano databazi obnovit, tak mi obnovovani spadne
na
> > teto chybe:
> >
> > ,,Arithmetic exception, numeric overflow, or string truncation"
> >
> > Nevite nekdo co s tim ?
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Je na nekterem poli s jinym CHARSETem definovana DEFAULT
> hodnota ? Pokud ano, pak je to znama chyba
>
> http://sourceforge.net/tracker/index.php?func=detail&aid=212177&g
> roup_id=9028&atid=109028
>
Zdravim
Vi tady v teto konferenci nekdo jak lze tedy korektne zazalohovat (a
samozrejme po te ze zalohy obnovit) data Intebase provozovane na platforme
Windows ?
Moje dosavadni poznatky :
Utilita gbak : nepouzitelna (viz vyse) leda bychom se vratili k cestine bez
hacku a carek.
IBConsole (1.0.0326) : dtto: obnova konci stejnou hlaskou
IBExpert Trial (1.2.0.6) : totez (evidentne nejak pouziva GBAK)
IBE: Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.
arithmetic exception, numeric overflow, or string truncation.
IBE: Restore completed
Vlastni pokusy s IBX IBBackupService a IBRestoreService :
Zazalohuje a obnovi bez 'reci' v obnovene databazi vsak chybi VSECHCNY
PRIMARY KEY A TRIGERY, DALE VSECHNY DEFAULT DEFINICE U DOMAINS (viz nize)
Zda se mi, ze cely proces zalohovani nejak pada na definicich DEFAULT bez
zavislost na znakove sade.
gbak se pouze pres znakovou sadu nedostane.
Na ukazku pridavam vypis "orezanych" domen po procesu [Source] -> Backup ->
Restore ->[Target] (vse pomoci IBX)
DOMAIN declaration difference:
[Source]: CREATE DOMAIN "D_BOOLEAN" AS SMALLINT DEFAULT 0 NOT NULL CHECK
(Value=0 or Value=1);
[Target]: CREATE DOMAIN "D_BOOLEAN" AS SMALLINT DEFAULT 0 NOT NULL;
DOMAIN declaration difference:
[Source]: CREATE DOMAIN "D_DEN" AS SMALLINT DEFAULT 12 CHECK ((Value > 0)
and (Value < 32));
[Target]: CREATE DOMAIN "D_DEN" AS SMALLINT DEFAULT 12;
DOMAIN declaration difference:
[Source]: CREATE DOMAIN "D_GUID" AS CHAR(32) CHARACTER SET ASCII NOT NULL
CHECK (STRLEN(VALUE) = 32);
[Target]: CREATE DOMAIN "D_GUID" AS CHAR(32) CHARACTER SET ASCII NOT NULL;
DOMAIN declaration difference:
[Source]: CREATE DOMAIN "D_MES" AS SMALLINT DEFAULT 12 CHECK ((Value > 0 )
and (Value < 13));
[Target]: CREATE DOMAIN "D_MES" AS SMALLINT DEFAULT 12;
DOMAIN declaration difference:
[Source]: CREATE DOMAIN "D_PRIVATE" AS SMALLINT DEFAULT 0 NOT NULL CHECK
(VALUE<5 /* 1 volne 2 jen cist 3 jen grupa 4 jen uzivatel */);
[Target]: CREATE DOMAIN "D_PRIVATE" AS SMALLINT DEFAULT 0 NOT NULL;
DOMAIN declaration difference:
[Source]: CREATE DOMAIN "D_ROK" AS INTEGER DEFAULT 1990 CHECK ((Value >
1989) AND (Value < 2050));
[Target]: CREATE DOMAIN "D_ROK" AS INTEGER DEFAULT 1990;
DOMAIN declaration difference:
[Source]: CREATE DOMAIN "D_SECINFO" AS SMALLINT DEFAULT 0 NOT NULL CHECK
(VALUE < 11);
[Target]: CREATE DOMAIN "D_SECINFO" AS SMALLINT DEFAULT 0 NOT NULL;
Pokud nekdo vi jak tedy zalohovat databazi poradte mi prosim. Zatim to resim
scriptem ktery v noci vypina server a zalohuje fyzicky soubor.
A ja zalohuji verze metadat.
Nebyl s tim zatim nastesti zadny problem, ale ve chvili, kdy bude potrba
updatovat IB na verzi s jinym file formatem nastane nepredstavitelne
martyrium s updatem.
Ludek
Desktop databaze
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 21.5.2001 07:05:05
> >My v t�chto p��padech pu��v�me FlashFiler.
>
> No jo, ale ta neni FREE ...
Ahoj,
nemam uz puvodni dotaz, ale nevzpominam si, ze by tam byl
pozadavek na to, aby slo o freeware. Pokud jo, tak se omlouvam.
David Lebeda
inline
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 21.5.2001 07:16:23
no podle me tato cast kodu vola rutinu na adrese D000:0400 s parametry ktere
jsou vlozeny do te procedury. Ale jelikoz TP55 neznam tak se domnivam ze
pujde nejspise o nejakou inicializaci portu. Chce si to sehnat nejakou
dokumentaci kde si presne zjistite co na teto adrese zacina za rutinu.
M�m takov� probl�m. Nev�te n�kdo, jestli je n�jak� mo�nost p�epsat do D.
tuto ��st progr�mku ze sta�i�k�ho TP55?
M�la jsem n�kolik teori�, ale ani jedna mi nefunguje, tak�e jestli si n�kdo
mysl� �e v�, pros�m pora�te. (nejsem si toti� jist�,jestli to v�bec jde. )
D�ky Martina
Procedure ieinit(ioport,myaddr,setting:integer);
begin
inline ($9A/$00/$04/$00/$D0);
end; { call D000:0400 }Interbase
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 21.5.2001 07:18:58
ja si myslel ze rozdil mezi tou nasi a 6.0.1 je jen v security patch.
Haj hou!
> Je to superserver, jinak to je verze 6.0.0.624 pro linux. A UDF zadny
> program co tu mame nepouziva, ale je tam zprovoznene.
Toz si poridte novou verzi IB 6.0.1 nebo Firebird 0.9.4. Tahle verze
SS ma problemy se spravou ameti pri pouziti UDF. Nebo pouzijte
Classic, ale SS je lepsi pokud zrovna nemate vice procesoru v
masine.inline
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 21.5.2001 07:40:54
Procedure ieinit(ioport,myaddr,setting:integer);
begin
inline ($9A/$00/$04/$00/$D0);
end; { call D000:0400 }
Problem bude nejspis v adresaci pameti. Instrukce CALL se da jiste napsat.
pavel.gazda(zv)seznam(tec)cz
BDE - full dbase expressions not suported.
[*] kinekus <kinekus(zv)nextra.sk> - 21.5.2001 07:45:07
Zdravim vsetkych v konfe,
prosim o radu. Chcel som napojit komponentu TABLE na databazu s indexom CDX.
BDE vypisuje tuto informaciu:
Full dBase expressions not suported. Znamena to, ze potrebujem este nieco
doinstalovat k BDE ? A kde to zozeniem alebo kupim ?
Dakujem za akukolvek informaciu.
Milan F�bik
IB6.0.1.6: Backup/Restore
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.5.2001 08:12:33
docel jsi me postrasil.
minuly tyden jsem napsal zalohovani a imho to funguje.
na ztratu triggeru, primary keys atp se tedy jeste podivam.
jinac ja to vykuchal ze zdrojaku IBConsole takto:
procedure TFDM.Backup(Soubor: TFileName);
begin
if IBTransaction1.Active then IBTransaction1.Commit;
if IBDatabase1.Connected then IBDatabase1.Close;
try
Screen.Cursor:=crSQLWait;
IBBackupService1.BackupFile.Text:=Soubor;
IBBackupService1.Attach;
if IBBackupService1.Active then
begin
IBBackupService1.ServiceStart;
while IBBackupService1.IsServiceRunning do
Application.ProcessMessages;
end;
finally
if IBBackupService1.Active then IBBackupService1.Detach;
Screen.Cursor:=crDefault;
end;
if NOT IBDatabase1.Connected then IBDatabase1.Open;
if NOT IBTransaction1.Active then IBTransaction1.StartTransaction;
ShowMessage('Z�lohov�n� dokon�eno.');
end;
procedure TFDM.Restore(Soubor: TFileName);
begin
if IBTransaction1.Active then IBTransaction1.Commit;
if IBDatabase1.Connected then IBDatabase1.Close;
if FileExists(Soubor) then
try
Screen.Cursor:=crSQLWait;
IBRestoreService1.BackupFile.Text:=Soubor;
IBRestoreService1.Attach;
if IBRestoreService1.Active then
begin
IBRestoreService1.ServiceStart;
while IBRestoreService1.IsServiceRunning do
Application.ProcessMessages;
end;
finally
if IBRestoreService1.Active then IBRestoreService1.Detach;
Screen.Cursor:=crDefault;
end;
if NOT IBDatabase1.Connected then IBDatabase1.Open;
if NOT IBTransaction1.Active then IBTransaction1.StartTransaction;
ShowMessage('Obnoven� dokon�eno.');
end;
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/system tray
[*] likeapear <likeapear(zv)centrum(tec)cz> - 21.5.2001 08:25:36
je na to dobra komponenta v ruskym baliku rx-komponent
http://www.rxlib.com). jmenuje se RXTrayIcon.
nebo taky zhruba timto zpusobem (na konci zpravy), ale s RXTrayIcon je to
elegantnejsi, navic je opensource-freeware.
likeapear
const
wmm_TrayMessage = WM_USER + 1111;
type
TFrm_Main = class(TForm)
Img_Icon: TImage;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FNotifyStruc: PNotifyIconData;
procedure TrayMessage(var Msg: TMessage); message wmm_TrayMessage;
procedure MinimizeMessage(var Msg: TMessage); message WM_SYSCOMMAND;
public
end;
var
Frm_Main: TFrm_Main;
implementation
uses Def;
{$R *.DFM}
// -------------------------------------------------------------------------
----
procedure TFrm_Main.FormCreate(Sender: TObject);
begin
New(FNotifyStruc);
FNotifyStruc^.cbSize:=SizeOf(FNotifyStruc^);
FNotifyStruc^.Wnd:=Handle;
FNotifyStruc^.uID:=1;
FNotifyStruc^.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
FNotifyStruc^.uCallbackMessage:=wmm_TrayMessage; {User defined message}
FNotifyStruc^.hIcon:=Img_Icon.Picture.Icon.Handle;
FNotifyStruc^.szTip:='Titulek';
Shell_NotifyIcon(NIM_ADD,FNotifyStruc);
end;
// -------------------------------------------------------------------------
----
procedure TFrm_Main.TrayMessage(var Msg: TMessage);
begin
if (Msg.LParam = WM_LBUTTONDOWN) then
if not Visible then
begin
Visible:=True;
ShowWindow(Application.Handle,SW_SHOW);
end;{if ... begin}
end;
file://---------------------------------------------------------------------
---------
procedure TFrm_Main.MinimizeMessage(var Msg: TMessage);
begin
inherited;
if Msg.WParam = SC_MINIMIZE then
begin
Visible:=False;
Shell_NotifyIcon(NIM_ADD,FNotifyStruc);
ShowWindow(Application.Handle,SW_HIDE);
end;
end;
file://---------------------------------------------------------------------
---------
procedure TFrm_Main.FormDestroy(Sender: TObject);
begin
if (FNotifyStruc <> nil) then
begin
Shell_NotifyIcon(NIM_DELETE,FNotifyStruc);
Dispose(FNotifyStruc);
end;{if ... begin}
end;
file://---------------------------------------------------------------------
---------
end.
----- Original Message -----
From: "Petr Kucera" <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 21, 2001 9:10 AM
Subject: system tray
> Nevite nahodou nekdo, jak se da umistit ikona
> do praveho spodniho rohu obrazovky (jmenuje se
> to SystemTray, je tam taky prepinani klavesnice
> a hodiny), a jak se da nastavit reakce te ikony na
> kliknuti/dvojkliknuti pravym/levym tlacitkem?
>
>
system tray
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 21.5.2001 08:42:33
v rxlib je konponenta rxtrayicon .. ma jiz vsechno inplementovany
----- Original Message -----
From: Petr Kucera <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 21, 2001 9:10 AM
Subject: system tray
> Nevite nahodou nekdo, jak se da umistit ikona
> do praveho spodniho rohu obrazovky (jmenuje se
> to SystemTray, je tam taky prepinani klavesnice
> a hodiny), a jak se da nastavit reakce te ikony na
> kliknuti/dvojkliknuti pravym/levym tlacitkem?
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.250 / Virova baze: 123 - datum vydani: 18.04.2001
IB6.0.1.6: Backup/Restore
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.5.2001 08:51:57
Haj hou!
On 21 May 2001,, Lud k ZITA wrote:
> Zdravim
> Vi tady v teto konferenci nekdo jak lze tedy korektne zazalohovat (a
> samozrejme po te ze zalohy obnovit) data Intebase provozovane na platforme
> Windows ?
>
> Moje dosavadni poznatky :
>
> Utilita gbak : nepouzitelna (viz vyse) leda bychom se vratili k cestine bez
> hacku a carek.
>
> IBConsole (1.0.0326) : dtto: obnova konci stejnou hlaskou
>
> IBExpert Trial (1.2.0.6) : totez (evidentne nejak pouziva GBAK)
> IBE: Arithmetic overflow or division by zero has occurred.
> arithmetic exception, numeric overflow, or string truncation.
> arithmetic exception, numeric overflow, or string truncation.
> IBE: Restore completed
>
> Vlastni pokusy s IBX IBBackupService a IBRestoreService :
> Zazalohuje a obnovi bez 'reci' v obnovene databazi vsak chybi VSECHCNY
> PRIMARY KEY A TRIGERY, DALE VSECHNY DEFAULT DEFINICE U DOMAINS (viz nize)
>
> Zda se mi, ze cely proces zalohovani nejak pada na definicich DEFAULT bez
> zavislost na znakove sade.
> gbak se pouze pres znakovou sadu nedostane.
Pratele, kolikrat je nutne opakovat, ze je to znama chyba ? proste
to korektne nejde, a dokud to nebude opravene, tak proste
nedefinujte DEFAULT u polozek s jinou znakovou sadou.
je to problem v GBAK a protoze GBAK je pouzivan i v novem
Backup/Restore Service (bezi jako sluzba na pozadi), tak proste
zadna obnova nikdy a nijak a z zadneho nastroje nebude fungovat.
Na naprave se pracuje a mela by se co nejdrive objevit ve Firebirdu
(pokud uz neni, proverim). Kdy se objevi v InterBase se da jen
tezko odhadnout.
S pozdravem
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.BDE - full dbase expressions not suported.
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.5.2001 08:53:36
Zkus zmenit typ tabulky na FoxPro.
Pokud index obsahuje funkce z FpxPro, napr. Index On Left(Retez,2) +
Str(Cislo,12,2) Tag klic, tak se obavam, ye tyto indexy budou v BDE
nepouzitelne. Vyresit se to castecne da pristupem pres ODBC.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
21.5.2001 kinekus:
> prosim o radu. Chcel som napojit komponentu TABLE na databazu s indexom CDX.
> BDE vypisuje tuto informaciu:
> Full dBase expressions not suported. Znamena to, ze potrebujem este nieco
> doinstalovat k BDE ? A kde to zozeniem alebo kupim ?
system tray
[*] Petr Kucera <kucera(zv)vri(tec)cz> - 21.5.2001 08:10:42
Nevite nahodou nekdo, jak se da umistit ikona
do praveho spodniho rohu obrazovky (jmenuje se
to SystemTray, je tam taky prepinani klavesnice
a hodiny), a jak se da nastavit reakce te ikony na
kliknuti/dvojkliknuti pravym/levym tlacitkem?system tray
[*] mbartone(zv)synthesia(tec)cz - 21.5.2001 09:28:52
Ahoj,
ja pouzivam komponentu z RXLib RxTrayIcon.
Milan
> Nevite nahodou nekdo, jak se da umistit ikona
> do praveho spodniho rohu obrazovky (jmenuje se
> to SystemTray, je tam taky prepinani klavesnice
IB6.0.1.6: Backup/Restore
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.5.2001 09:58:52
zdravim,
takze jsem to jeste jednou zkusil, a s tema procedurama co jsem posilal
minule to funguje. teda alespon tiggery a klice se mi jevi jako v
poradku.
pouzito IBX 4.52
jak jsem drive psal, psal jsem podle zdrojaku IBConsole (verzi zdrojaku
nevim).
jediny "neduh", ktery jsem pozoroval je, ze behem zalohovani i obnoveni
se lze hrabat v menu aplikace. takze jsem "Application.ProcessMessages"
nahradil sleep(1000). jednak je to subjektivne rychlejsi, druhak user
nemuze do menu (stejne mam behem operace odpojenou databazi a akorat by
moh neco sprasit).
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/system tray
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 21.5.2001 10:02:00
> Nevite nahodou nekdo, jak se da umistit ikona
> do praveho spodniho rohu obrazovky (jmenuje se
> to SystemTray, je tam taky prepinani klavesnice
> a hodiny), a jak se da nastavit reakce te ikony na
> kliknuti/dvojkliknuti pravym/levym tlacitkem?
Je na to API funkce Shell_NotifyIcon a struktura NOTIFYICONDATA.
Zbytek uz sam.
Josef Cerny
Array a spotreba pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.5.2001 10:05:45
On 20 May 2001, at 20:53, martin_delphi(zv)terminal.sk wrote:
> potrebujem v programe pouzit vecsie mnozstvo array, radovo 2.000.
> Pouzitie je potrebne iba pre urcite vypocty. Ako narocne je pouzitie
> takeho mnozstva na pamet?
>
> velkost by mala byt od 10 do 80 znakov na zaznam
Takovehle drobty bych povazoval za pametove bezvyznamne, i
kdyby to bylo naprogramovano neefektivne. Zcela bezne pracuji s
mnohem vetsimi poli.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
pohyb bez blikani
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 21.5.2001 10:05:33
Mozna by stacilo udelat obsluhu zpravy WM_ERASEBKGND:
procedure TMovedPanel.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
if (csDesigning in ComponentState) then
inherited
else
Message.Result:=1;
end;
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> Pomuze mi nekdo udelat "jezdici tlacitko", aby se posunovalo podle timeru po 1
bodu ale
> nepoblikavalo pritom?
> diky
DOS a Win
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 21.5.2001 10:10:41
Konkretne se jedna o GetEnvironmentVariable a GetEnvironmentString
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Nevite nahodou nekdo, jak zjisti set promenna z DOSu.
> Predem dekuji Netera.Zmena obrazu
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 21.5.2001 10:23:22
Ahoj,
tohle tema se tady uz drive probiralo, koukni se do archivu.
Strucne zavery:
1) vubec to neni jednoducha zalezitost
(pohyblive pozadi, ruzna a menici se uroven osvetleni,
pocasi, konstelace hvezd atd.)
2) rozhodne je NUTNE mit VELMI kvalitni kameru na snimani
(ne nejaky webcam za 3000Kc)
3) jsou na to uz hotova a FUNKCNI kompletni reseni
### Viliam Mlich napsal dne 19 May 01, v 15:13 :
> > mam kameru ze ktere bych potreboval sejmout obraz
> > v pripade zmeny.(nekdo projde atd.).
>
> Uplne najjednoduchsie, najlacnejsie a najrychlejsie je umiestnit vedla
> kamery pohybovy senzor za 250 Kc, LEDku z neho na nejaky volny pin
> serioveho portu.
>
> Ked mas dost casu na programovanie a dostatocne silny procesor, mozes pre
> dany region pocitat rozdielovy obraz (absolutnu hodnotu rozdielu pre kazdy
> pixel) a ked sucet pixelov toho rozdielu dosiahne urcity prah (t.j. cely
> obraz prechadzas, len ked je zmien malo), pustis 'zaznam'. Keby sa
> ukazalo, ze ten procesor nie je az taky silny, mozes si ulohu zjednodusit
> tym, ze v tom cykle na pixely das napr. 'step 7'..
>
> Ina moznost je porovnanie Fourrierovych koeficientov, najlepsie pocitanych
> 'harwarovo'.
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Firebird
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 21.5.2001 11:46:58
Ahoj,
tusite nekdo, alespon odhadem, jak je to s nejakym releasem Firebirdu pro
Windows? Zahledl jsem posledni production verzi tusim 29.12., ale vubec
nevim, jak moc pouzitelna verze to je.
Jak je to vlastne s celym projektem?
Dotaz asi spise primo na P.Cisare, ale myslim, ze to bude zajimat i ostatni.
Diky
Ota Maly
IB6.0.1.6: Backup/Restore
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 21.5.2001 12:04:48
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>> zdravim,
> takze jsem to jeste jednou zkusil, a s tema procedurama co jsem posilal
> minule to funguje. teda alespon tiggery a klice se mi jevi jako v
> poradku.
>
> pouzito IBX 4.52
> jak jsem drive psal, psal jsem podle zdrojaku IBConsole (verzi zdrojaku
> nevim).
>
> jediny "neduh", ktery jsem pozoroval je, ze behem zalohovani i obnoveni
> se lze hrabat v menu aplikace. takze jsem "Application.ProcessMessages"
> nahradil sleep(1000). jednak je to subjektivne rychlejsi, druhak user
> nemuze do menu (stejne mam behem operace odpojenou databazi a akorat by
> moh neco sprasit).
Ahoj.
Tak jsem to zkusil a vysledky jsou lepsi.
Ja jsem tam nemel tu smycku while IsServiceRunning a asi jsem daval Detach
moc brzo nebo naopak pozde.
Jeset jsem to musel cele oblozit Sleep, protoze to v realu na
dvouprocesorove masine vubex nejelo a vytvorilo to jnejaky zmrseny soubor.
Asi to nejak nestacilo zaregistrovat spusteni a prebehlo to podminku
IsServiceRunnig.
Ted to vypada takto priserne :
while TIBBackupService do
.....
Attach;
if Active then
begin
Sleep(1000);
ServiceStart;
Sleep(1000);
while IsServiceRunning do
Sleep(1000);
Sleep(1000);
end;
if Active then Detach;
....
Vysledke je to, ze to zcela bezpecna zazalohuje alespon metadata (Options :=
Options + [MetadataOnly];)
Obnova i daty ovsem konci stejne jako u gbaku t.j. vyjimkou :
Message:
arithmetic exception, numeric overflow, or string truncation.
arithmetic exception, numeric overflow, or string truncation.
Asi budu mit chybu nekde v datech, ovsem jakou.
Pravdepodobne se tim prerusi proces obnovy a nedojede to az do konce.
Tim by se mozna vysvetlovala ztrata trigeru a PK
Jen mi neni jasne, proc zmizi sekce CHECK z DOMAINS:
Napriklad :
Pred zalohou :
CREATE DOMAIN "D_ROK" AS INTEGER DEFAULT 1990 CHECK ((Value > 1989) AND
(Value < 2050));
Po obnove:
CREATE DOMAIN "D_ROK" AS INTEGER DEFAULT 1990;
To opravdu nechapu.
Da se vubec nejak zjistit co by to mohlo byt ?.
Vsechny moznosti kontroly (Sweep,Validation,Transaction recovery) jsem jiz
zkusil.
Ludek ZITA
IB6.0.1.6: Backup/Restore,Vyreseno
[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 21.5.2001 12:35:34
Nazdar
Konecne jsem ten problem zalohovani vyresil.Cely problem spocival v tom,
ze jsem mel drive vytvorenou databazi s defaultni znakovou sadou WIN1250
a nadefinovane domeny nasledujicim stylem, kuprikladu:
CREATE DOMAIN VC3 AS VARCHAR(3) COLLATE PXW_CSY;
Po takovemto vytvoreni domeny, lze kazdy atribut, ktery ma tuto domenu
prirazenou, modifikovat(vkladani, update) naprosto bez chyb. Vse funguje
tak jak ma az na obnovovani zazalohovane databaze.
No a ja jsem si blahove myslel, ze v definici domen, uz nemusim definovat
znakovou sadu, kdyz ma uz ji ma dabatabaze prece nastavenou treba na
kodovani WIN1250.
No a prave tady v tom byl ten zakopany pes. Stacilo znovu nadefinovat
vsechny domeny(ty ktere obsahuji text) s nastavenou znakovou sadou na
WIN1250, napriklad takto:
CREATE DOMAIN VC3 AS VARCHAR(3) CHARACTER SET WIN1250 COLLATE PXW_CSY;
Po teto zmene uz zalohovani a obnovovani databaze probiha bez problemu a
vse se provede tak, jak ma.
Bohuzel tento postup neresi znamou chybu, kdyz je u atributu s
jinym kodovanim (napriklad WIN1250) nastavena defaultni textova hodnota.
S pozdravem
Dusan Fojtik
>
> Pokud nekdo vi jak tedy zalohovat databazi poradte mi prosim. Zatim to resim
> scriptem ktery v noci vypina server a zalohuje fyzicky soubor.
> A ja zalohuji verze metadat.
> Nebyl s tim zatim nastesti zadny problem, ale ve chvili, kdy bude potrba
> updatovat IB na verzi s jinym file formatem nastane nepredstavitelne
> martyrium s updatem.
>
> Ludek
>
> IB6.0.1.6: Backup/Restore
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 21.5.2001 13:00:49
TO: Pavel Cisar
Ahoj.
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Pratele, kolikrat je nutne opakovat, ze je to znama chyba ?
Pardon, ja jsem se puvodne domnival ze je to POUZE chyba GBAKU.
Nemusis na mne hned kvuli tomu kricet :)
>
> ................................................... tak proste
> zadna obnova nikdy a nijak a z zadneho nastroje nebude fungovat.
>
> Na naprave se pracuje a mela by se co nejdrive objevit ve Firebirdu
> (pokud uz neni, proverim). Kdy se objevi v InterBase se da jen
> tezko odhadnout.
>
Predpokladam ze to NIKDY A NIJAK Z ZADNEHO NASTROJE jsi myslel jen do doby
odstraneni tohoto BUGu, protoze databaze bez moznosti definovat default pole
nebo bez moznosti zalohovat je celkem k nicemu.
Jeste se Te naprimo zeptam, na Tvuj nazor zda je lepsi nasazovat na
Windowsech u zakazniku Interbasi nebo Firebird.
Take by a asi i ostatnim urcite pomohly nejake Tve osobni soudy o tom kam a
kudy se obe vetve budou ubirat.
Co by obnaselo prejit z Interbase 6.0.1 na FireBird ?
Predem dik
Ludek
TIniFile - vlozeni ENTER a koment��e
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 21.5.2001 13:23:34
ahoj,
chci se zeptat, jak se d� do ini souboru zapsat napr. komentar zacinajici ';...'. Podobny system bude asi s vlozenim ENTRu #13#10.
Muzu si sice cely INI pripravit, a on pak jiz zachovava vse, ale pokud ho uzivatel smaze, po novem vytvoreni je to dost chaos.
Diky
S pozdravem Milan Cizek, D5 Ent
_________________________________________________________________________________
Mezinarodni hudebni festival Prazske jaro http://www.festival(tec)cz
Vstupenky: Hellichova 18, Praha 1, tel.: 5731 0414, sit Ticketpro, EchoLine 14051
Scripty na Interbase 2
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 21.5.2001 13:27:40
Tak jsem tu opet, potrboval jsem poustet scripty primo z programu,
na to mi bylo vysvetleno, ze si to mam udelat sam, tak jsem si
udelal a mam dalsi problem, pokud poustim SQL dotaz pres
TIBQuery, tak on prvni co udela, je, ze predela vsechny : na ?
a pak to vyhodi chybu, ze nevi co s tim otaznikem.
Jak mam teda pomoci TIBSQL vytvo5it proceduru. To snad ani
nejde.
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
Scripty na Interbase 2
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 21.5.2001 13:53:00
Tak na to jsem uz prisel dekuji, moc ale vzapeti jsem prisel na
dalsi problem vyhodi to
XSQLDA index out of range a vubec netusim proc.
> nastav property paramcheck na false. to zajisti, ze parser
nebude hledat
> parametry a nahrazovat ":jmeno" za "?", ale rovnout to predhodi
> serverovi.
>
> > Jak mam teda pomoci TIBSQL vytvo5it proceduru. To snad ani
> > nejde.
> 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
Scripty na Interbase 2
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.5.2001 13:59:40
> Jak mam teda pomoci TIBSQL vytvo5it proceduru. To snad ani
> nejde.
nastav property paramcheck na false. to zajisti, ze parser nebude hledat
parametry a nahrazovat ":jmeno" za "?", ale rovnout to predhodi
serverovi.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/TIniFile - vlozeni ENTER a koment��e
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 21.5.2001 14:07:36
Dobr� den,
21. kv�tna 2001, 13:23:34, napsal jste:
M#> ahoj,
M#> chci se zeptat, jak se d� do ini souboru zapsat napr. komentar zacinajici ';...'. Podobny system bude asi s vlozenim ENTRu #13#10.
M#> Muzu si sice cely INI pripravit, a on pak jiz zachovava vse, ale pokud ho uzivatel smaze, po novem vytvoreni je to dost chaos.
A co takhle pokud ini nefunguje nejprve provest neco jako tohle...
var ini : TStrings;
begin
ini := TStringList.Create;
ini.add('[main]');
ini.add(';komentar');
ini.add('polozka1=hodnota1');
....
ini.savetofile('jmeno.ini');
ini.free;
end;
kdyz tohle ulozis a nasledne otevres jako inifile, uz ti to chaos
neudela...
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
Scripty na Interbase 2
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 21.5.2001 14:10:59
From: Radek KALA <Kala(zv)Atlas(tec)cz>
Sent: Monday, May 21, 2001 1:27 PM
> pokud poustim SQL dotaz pres TIBQuery, tak on prvni co udela, je, ze
> predela vsechny : na ? a pak to vyhodi chybu, ze nevi co s tim otaznikem.
Ahoj,
musis nastavit property ParamCheck:=False;
Pavol Stolc
pstolc(zv)sc.sknet.sk
nahrada za TabSet
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 21.5.2001 14:18:30
Ahoj,
shanim komponentu typu TabSet, ktera ale podporuje vice radku a polozky
zobrazuje ponekud "inteligentneji". Chci ji vyuzit v aplikaci, ktera je
obdobou taskbaru ale k prepinani jednotlivych uloh pouziva prave TabSet -
ten z Delphi mi vsak prilis nevyhovuje. Nevite nekdo o necem pouzitelnem pro
tento ucel?
Diky
Mike
OT: Informix + ROM
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 21.5.2001 14:36:33
Zdravim programatory!
Muj problem je sice trosku OT, ale informix potrebuji pro praci s Delphi.
Driv jsem pouzival na upravu databazi (i zivych), Store Procedure a SQL super software "Realation Object Manager 2.1", ale s novou verzi Informixu (7) mi prestal fungovat. Nevite nekdo jak z toho ven, nebo kde se da sehnat nova verze? Na Inetu jsem neuspesny. :-(
Diky.
M&B
None
[*] Dano <delphid(zv)atlas(tec)cz> - 21.5.2001 14:43:59
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Zdravim Vas,
Potreboval by som poradit s nasledovnym problemom:
Mam MDIForm a nan by som potreboval umiestnit obrazok (co problem nie je :o)..)...avsak po vytvoreni okna MDIChild je obrazok az nad nim ...
Otazka znie : ako dostat obrazok na MDIForm tak aby obrazok neprekryval MDIChild ????
Cas v DBEditu ...
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 21.5.2001 15:00:08
Zdravim,
mam problemek -
v DBEditu mam kratky cas (napr. 14:25), vyplnim, ulozim do db a jakmile
potom dostane tenhle DBEdit focus a ja chci nejaky udaj opravit, zobrazi se
mi tam 31.12. 1899 14:25:00. Kdyz na nem neni kursor, vse je ok :((. Nevite
nekdo co je spatne ? DisplayFormat toho pole je t (jako kratky cas).
Dik za kazdou radu
Pavel Skalicky
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
None
[*] Zden�k Sv�en - 21.5.2001 15:20:40
>Otazka znie : ako dostat obrazok na MDIForm tak aby obrazok neprekryval
MDIChild ????
Ahoj,
v knize Delphi 4 od M.Cantu se tohle resilo a na nasledujici adrese si muzes
stahnout zdrojak, ve kterym se dozvis vsechno podstatne.
www.grada(tec)cz/prilohy/delphi/part2.zip
Prislusny priklad najdes v kapitole 10, priklad s nazvem MDIMulti.
Mnoho zdaru.
Zden�k Sv��en
Scripty na Interbase 2
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.5.2001 15:26:40
a co je v tom sql? musi tam byt jenom jediny dotaz.
takze podud mas script (vice dotazu za sebou), musis jej
rozkouskovat a poustet kazdy samostatne.
pokud to jsou jednoduchy dotazy, no problemo,
ale pokud tam mas nejaky procedury, triggery,
zkratka kdyz se nemuzes spolehnout na jediny
oddelovac (strednik treba), je pracnejsi.
mozna lepe se zkusit nejprve podivat po komponente
TIBScript nebo necem podobnem. teprve, az kdyz nic
nenajdes to zkusit napsat vlastnimi silami.
konkretne na http://www.torry.net jsem nasel tyto komponenty,
ktere by se ti mohly hodit (me nakonec mozna taky):
gasql.zip = ga SQLP Parser
kqparser.zip = nejakej SQL parser
pribsqlscript.zip = Component to execute more than one SQL statement for
IBX components
sqlscr.zip = SQL script is a set of SQL sentences. Now it is possible to
execute
SQL script on the server by using SQLScript component. For example,
for database installation or moving data between databases.
pokud se nepletu, vse free + zdroje.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Method pointers
[*] Pavel K�ehula <pavel.krehula(zv)nlm(tec)cz> - 21.5.2001 15:28:03
Zdravim,
narazil jsem na pro me velice neprijemnou vec v D5, UPD1
mam priklad:
type
TProc = procedure ( a: pointer ) of object;
TProcs = record
Name: string[10];
Proc: TProc;
end;
TProcsArray = array of TProcs;
TForm1 = class(TForm)
private
F_Array: TProcsArray;
public
constructor Create( AOwner: TComponent ); override;
procedure A( a: pointer );
procedure B( a: pointer );
end;
var
Form1: TForm1;
procedure TForm1.A(a: pointer);
begin
// neco
end;
procedure TForm1.B(a: pointer);
begin
// neco jineho
end;
constructor TForm1.Create(AOwner: TComponent);
begin
inherited;
SetLength( F_Array, 2);
F_Array[0].Name := 'A';
F_Array[0].Proc := A;
F_Array[1].Name := 'B';
F_Array[1].Proc := B;
end;
po vykonani toho konstruktoru je v obou prvcich pole .proc stejna hodnota, tudis oba ukazuji na stejnou metodu!
Nevite nekdo, kde je chyba?
Diky.
--
S pozdravem
Pavel Krehula
================================================
NewLink, s.r.o. pavel.krehula(zv)nlm(tec)cz
Hradni 4 tel. +420 501 456059
Boskovice
680 01
================================================Zmena IP
[*] Michaela Frantalova <Zemek(zv)gymhu.ipex(tec)cz> - 21.5.2001 14:59:31
Dobry den ve spolek,
nevite nekdo, jak bych mohl zmenit IP adresu
odesilatele (tj. moji adresu) u protokolu HTTP.
IP adresa prijemce by byla porad stejna, pouze aby to chodilo od
nekoho jineho.
S pozdravem Pavel Zemek
ICQ: 117259108
IB6.0.1.6: Backup/Restore
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.5.2001 16:06:26
Haj hou!
On 21 May 2001,, Lud k ZITA wrote:
> Predpokladam ze to NIKDY A NIJAK Z ZADNEHO NASTROJE jsi myslel jen do doby
> odstraneni tohoto BUGu, protoze databaze bez moznosti definovat default pole
> nebo bez moznosti zalohovat je celkem k nicemu.
Presne tak. Vsechny na prvni pohled ruzne cesticky pro
zalohovani/obnovu nakonec konci v GBAKu. Tahle chyba ma ve FB
dost vysokou prioritu, ale zatim opravena AFAIK nebyla. Zkusim
zatlacit, aby byla opravena ve FB 1.0
> Jeste se Te naprimo zeptam, na Tvuj nazor zda je lepsi nasazovat na
> Windowsech u zakazniku Interbasi nebo Firebird.
Prijde na to :) Jako zamestnanec Borlandu MUSIM rict ze
InterBase. Osobne ale IB nepouzivam, uz jenom pro to, ze nemam
na licence :)
> Take by a asi i ostatnim urcite pomohly nejake Tve osobni soudy o tom kam a
> kudy se obe vetve budou ubirat.
Urcite se odkloni. Prepirad z IB do FB bude tezke, protoze jednak
FB jede rychleji a druhak je otazkou, zda a co bude Borland
zverejnovat. Obracene je to take otazkou, protoze necgat se
vyuzivat se nikomu okolo FB nezamlova. Nehlede na to, ze Firebird
2 by mel byt uz preveden do C++ (prace uz probihaji a je to na
dobre ceste).
> Co by obnaselo prejit z Interbase 6.0.1 na FireBird ?
V tuto chvili nic moc. Obe databaze jsou co se tyce API totozne a
i v budoucnu bude FB udrzovat shodu s API IB az kam to pujde
(bude se pridavat, ale nebude se nic rusit. Pokud Borland neco
prida, pak je otazka zda se to ve FB objevi).
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Tape backup API a Delphi
[*] voltrr1.epr(zv)mail.cez(tec)cz - 21.5.2001 15:07:14
Zdravim,
nemate nekdo definici struktury TAPE_GET_MEDIA_PARAMETERS a tech zbylejch
pro tape api do Delphi 5 ??
Dikec
Radek
Zobrazeni animovaneho kurzoru (*.ani)
[*] Karel Klimes <klimes(zv)metra(tec)cz> - 21.5.2001 16:35:37
Ahoj,
jak lze vseobecne zobrazit animovany kurzor? Dloubal jsem se trochu ve
formatu *.ani, ale bez nejakeho navodu je to na nic :((. Par veci jsem sice
objevil (delka souboru, pocet snimku, casy snimku,...), ale osatani jsou
pro mne jenom bity bajtu, ktere jsou bajty wordu, jenz jsou wordy
double-wordu atd... :). Rekneme, ze bych chtel docilit neceho podobneho,
tak jak to dela explorer, pokud zobrazim vlastnosti souboru *.ani. Vlevo
nahore, v okne vlastnosti souboru, bude tento kurzor "dymanicky" zobrazen.MSDE a Internet
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 21.5.2001 16:35:06
Opravdu se s tim nikdo nesetkal??
Mam nasledujici problem: Na pocitaci je nainstalovano MSDE a vytacene
pripojeni na Internet. Pokud bezi SQL server neni mozne se pripojit
jakymkoliv zpusobem an Internet - Outlook express i Explorer vubec
nepozadaji o vytaceni cisla a musi se natvrdo odstrelit. Kdyz se SQL server
ukonci Internet bezi dobre. Nevite nekdo cim to muze byt?
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Zmena IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.5.2001 17:29:39
> Dobry den ve spolek,
>
> nevite nekdo, jak bych mohl zmenit IP adresu
> odesilatele (tj. moji adresu) u protokolu HTTP.
> IP adresa prijemce by byla porad stejna, pouze aby to chodilo od
> nekoho jineho.
>
Chces zmenit zdrojovou adresu paketu tak, aby byla jina nez IP stroje, ktery
navazuje HTTP spojeni??
To nejde:
1) musel bys nekde dole menit pakety pripravene k odeslani Pripadne bys
musel posilat RAW packety - ale pak by sis musel cele TCP spojeni uridit sam
(za predpokladu, ze ta nova IP vede zese na stejny stroj). Windows RAW
TCP/IP sockety moc nepodporuji - musel bys pouzivat napriklad Linux.
2) pokud by se Ti tu adresu podarilo zmenit, stejne to k nicemu nebude -
odpovedi od serveru si nenajdou cestu zpet k Tvemu pocitaci - routery ji
pozenou tam kam jim routovaci tabulky veli posilat tu zmenenou adresu. CIli
nedojde ani k navazani TCP spojeni se serverem
D> Toman
TMainMenu
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 21.5.2001 18:02:29
Zdravim,
Mel bych dve otazky k Tmainmenu:
1) Jak docilim flat stylu u vyskakujicich menu? Tohle by me zajimalo i
pro popup menu. Napsal jsem si totiz vlastni vykreslovani a ten 3d
border tam docela rusi - vypada to divne.
2) Jak programove otevru polozku z menu, tak, jako kdyby na ni kliknul
uzivatel (tj. Rozbaleni polozky.)
Diky, Ales
Cas v DBEditu ...
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 21.5.2001 18:23:37
Ahoj,
zkus se podivat na editmask na fieldu.
Bohdan Voska
bohdan(zv)softok(tec)cz
----- Original Message -----
From: "Pavel Skalicky" <P.Skalicky(zv)sh.cvut(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 21, 2001 3:00 PM
Subject: Cas v DBEditu ...> Zdravim,
> mam problemek -
> v DBEditu mam kratky cas (napr. 14:25), vyplnim, ulozim do db a jakmile
> potom dostane tenhle DBEdit focus a ja chci nejaky udaj opravit, zobrazi
se
> mi tam 31.12. 1899 14:25:00. Kdyz na nem neni kursor, vse je ok :((.
Nevite
> nekdo co je spatne ? DisplayFormat toho pole je t (jako kratky cas).
>
Prehravanie MP3
[*] JIM Design <jim.design(zv)iol(tec)cz> - 21.5.2001 19:44:33
Ahoj
kdyz budes dobre hledat na www.mp3.com najdes tam MP3Ext ktery rozsiri
system na prehravani mp3 v klasickych windofilnich prehravacich, po
jednoduchem nainstalovani to pak muzes prehravat v TMediaplayer.
M.Jirman
-----Original Message-----
Behalf Of rumanovci(zv)bb.telecom.sk
Dokaze mi niekto poradit nieco na prehravanie MP3 v Delphi 4, okrem
ELSounds, ktore nedokazem prinutit k spolupraci?
Peter Ruman
mierka pri prehravani videa
[*] Ing. Stefunko Julius <Stefunko(zv)vuje.sk> - 21.5.2001 12:55:44 met-1mest
V D3 prehravam video pomocou MediaPlayer a zobrazujem do panelu
(myslim ze nie je podstatne).
Ako mozem zistit skutocny rozmer videa?
A ako ho donutit, aby prehraval v mierke (napr. polovicny rozmer)?
vdaka za pomoc.
Stefunko
DOS a Win
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 21.5.2001 20:03:12
Ahoj,
zapis: SetEnvironmentVariable
cteni: GetEnvironmentVariable
S pozdravem
Petr E#ner
petr.esner(zv)atlas(tec)cz
ICQ# 105826792
Zachyceni obsahu obrazovky DOS programu
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 21.5.2001 20:06:37
Ahoj,
odpovidam pozdeji, byl jsem chvili mimo:
Tento problem jsem uspesne resil pomoci Pipes. Princip je v tom, ze vytvoris
rouru (pipe, pres CreatePipe) a nechas DOSovsky program psat do ni misto do
jeji konzoly. V takovem pripade nemusis vubec cist nejake okno, vystup
aplikace ti prijde pekne jako stream. Ja to mam vyreseno takto - vyhazel
jsem testovani na chyby:
-globalni promenne:
----
var
hTempFile: Cardinal;
hWriteFile: Cardinal;
----
-mam procedury:
----
procedure InitializeConsoleUtils;
var
mSecurity: TSecurityAttributes;
begin
ZeroMemory((zv)mSecurity, sizeof(TSecurityAttributes));
mSecurity.nLength := sizeof(mSecurity);
mSecurity.bInheritHandle := true;
CreatePipe(hTempFile, hWriteFile, (zv)mSecurity, 0);
with TConsoleReaderThread.Create(true) do //zdrojak k threadu viz dale
begin
Pipe := hTempFile;
FreeOnTerminate := true;
Priority := tpLower;
Resume;
end;
end;
procedure FinalizeConsoleUtils;
begin
if hTempFile <> INVALID_HANDLE_VALUE then
begin
CloseHandle(hTempFile);
hTempFile := INVALID_HANDLE_VALUE;
end;
end;
----
...a volam je v prislusne Initialization/Finalization sekci te unity (v
initialization jeste nastavim hTempFile na INVALID_HANDLE_VALUE). Proces,
jehoz vystup chci zachytit, vytvorim pomoci CreateProcess, v parametru
StartupInfo nastavim:
----
mStartupInfo.dwFlags := STARTF_USESTDHANDLES or ARTF_USESHOWWINDOW;
mStartupInfo.hStdOutput := GetProcessSpawnStdOutput; //viz. dale
mStartupInfo.hStdError := GetProcessSpawnStdOutput;
mStartupInfo.wShowWindow := SW_SHOWMINIMIZED;
----
function GetProcessSpawnStdOutput: Cardinal;
begin
DuplicateHandle(GetCurrentProcess, hWriteFile, GetCurrentProcess,
(zv)result, 0, true, DUPLICATE_SAME_ACCESS);
end;
----
A nakonec to cteni z roury, ktere je realizovano threadem (tohle je
.Execute metoda):
-----
SetLength(mBuffer, $400);
REPEAT
if not ReadFile(
Pipe,
mBuffer[1],
Length(mBuffer),
mBytesRead,
nil) then break;
if mBytesRead <> 0 then
...
until false;
//tady vis, ze proces skoncil
-----
Vse. Jen si musis ohlidat, aby tva aplikace neskoncila drive, nez ta
DOSovska, zamrzla by (ta DOSovska, nemela by kam psat).
S pozdravem
Petr E#ner
petr.esner(zv)atlas(tec)cz
ICQ# 105826792
PS: Omlouvam se za ponekud delsi prispevek, nekdy je nejlepsi neco
vysvetlit kusem kodu...
> > > API funkci ReadConsoleOutput a dalsi z group console
> >
> > Ano to funguje. Pouzivam rutinu zhruba vypadajici jako ta dole (detekce
> chyb
> > jem vyhazel). Narazil jsem pri tom na dalsi problemy:
> > - aby to fungovalo GUI aplikace musi mit prirazenou konzolu - tedy
musim
> ji
> > vytvorit pomoci AllocConsole. To ale zpusobi, ze se objevi DOS box okno,
> ve
> > kterem spoustena aplikace probehne. Po ukonceni teto aplikace zustava v
> > nekterych pripadech (mam tu dva programy - po jednom okno nezustava
viset,
> > po druhem ano) okno viset (nezmizi ani po FreeConsole). To vede k tomu,
ze
> > se postupne pri opakovanem spousteni objevuji dalsi a dalsi DOS okna
:-(.
> > Pokousel jsem se to resit tim, ze ihned po vytvoreni DOS okna jej
schovam
> > (ShowWindow(SW_HIDE) ) a po uzavreni konzoly jej odstrelim
> (DestroyWindow).
> > Vetsinou to zabere, ale okno vzdy blikne. Moznym resenim by take bylo
> > alokovat konzoly pri startu GUI aplikace a neustale ji nevytvaret, ale
to
> > se mi moc nelibi (navic ten kod co pisu je soucasti DLLka)
> >
> > Resenim by pravdepodobne bylo napsat konzolovou aplikaci jako wrapper.
> > Spustim wrapper (se schovanym oknem) a ten teprve spusti DOS aplikaci.
Ale
> > radeji bych to vyresil bez nej.
> >
> > Optimalni by bylo, kdybych se dostal ke screen buferu cizi konzole
> (konzole
> > vytvorena pro DOS aplikaci mimo mou GUI aplikaci). Ale netusim jak to
> udelat
> > (nejak zavolat GetSTDHandle() v kontextu te aplikace. Dalsim problemem
je
> > jak se dostat k tomu bufferu vcas (tj. po dobehnuti aplikace ale jeste
> pred
> > uzavrenim konzole)Richedit CopyToClipboard
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 21.5.2001 20:06:50
Ahoj,
tomu bliknuti pri kombinaci SelectAll/zpet na SelStart/SelLength se da
zamezit, pokud vypnes prekreslovani okna:
var
mLocked: Boolean;
mSelStart, mSelLength: Integer;
...
with RichEdit do
begin
bLocked := LockWindowUpdate(Handle);
mSelStart := SelStart;
mSelLength := SelLength;
SelectAll;
CopyToClipboard;
SelStart := mSelStart;
SelLength := mSelLength;
if bLocked then
LockWindowUpdate(0);
end;
Pak se nemusis starat o rychlost pocitace.
S pozdravem
Petr E#ner
petr.esner(zv)atlas(tec)cz
ICQ# 105826792
> Jedna moznost na zamedzenie prejavovania sa urcite je a to je vratit
naspat stav pred SelectAll. To znamena ulozit si niekde hodnoty SelStart a
SelLength a potom ich nastavit naspat. Ak sa to nerobi na pomalom stroji a
textu nie je velke kvantum, tak to prebliknutie pri SelectAll by nemalo byt
ani vidno. U mna to vidno nebolo...
> Ruman Peter
TIniFile - vlozeni ENTER a koment��e
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 21.5.2001 20:30:43
Ahoj,
tezko, jedine snad kontrolovat rucne, treba overit komentare pri ulozeni
souboru:
mIniFile.UpdateFile;
with TStringList.Create do
begin
try
LoadFromFile(mIniFile.FileName);
//pridat treba pred sekci "[OPTIONS]" komentar ";sekce Options
if IndexOf('[OPTIONS]') <> -1 then
Insert(IndexOf('[OPTIONS]'), ';sekce Options');
except
//nejde to nacist, tak tam bude holt bordel, no :-(
end;
Free;
end;
> ahoj,
> chci se zeptat, jak se d� do ini souboru zapsat napr. komentar zacinajici
';...'. Podobny system bude asi s vlozenim ENTRu #13#10.
> Muzu si sice cely INI pripravit, a on pak jiz zachovava vse, ale pokud ho
uzivatel smaze, po novem vytvoreni je to dost chaos.
Zmena IP
[*] Hurricane <hurricane(zv)quick(tec)cz> - 21.5.2001 21:51:47
Zdravim
IMHO to neni mozne. IP adresa neni nejak promenna, kterou si muzes menit jak
chces. Ta se ti prideli pri pripojeni do netu. At uz po modemu nebo bezdratu
nebo jakkoliv jinak. Privideri nabizeji bud dynamicky pridelovanou IP adresu
(valna vetsina dialupu (u volnyho si muzes zaplatit pevnou)). U vyssich
druhu pripojeni to zavisi na podminkach konkretni smlouvy. Jina moznost je,
ze mas pevnou IP adresuz. Pak se ti po pripojeni prideli vzdy stejna. Ale ze
by sis ji mohl kdykoliv zmenit podle me nejde.
Hurricane
----- Original Message -----
> nevite nekdo, jak bych mohl zmenit IP adresu
> odesilatele (tj. moji adresu) u protokolu HTTP.
> IP adresa prijemce by byla porad stejna, pouze aby to chodilo od
> nekoho jineho.Prehravanie MP3
[*] rumanovci(zv)bb.telecom.sk - ay 2001 21:41:41
Dakujem za pomoc, kniznicu by som uz mal, len mi k nej chyba popis alebo nejaky interface. Ak by si mal aspon jej popis, mohol by som Ta poprosit o jeho zaslanie? Alebo adresu, kde by som mohol vyhladat jej popis? Vopred vdaka.
Peter Ruman
> Zkus hledat knihovnu FMOD.DLL a jeji hlavicky. Mam ji (kdyztak poslu) a umi
> od WAVu z disku, z pameti pres MP3 az po 3D zvuk na SBLive. Fakt super!!!
> Je to pouze na prehrani, nejaky WinAmp z toho neudelas.
>
> >Dokaze mi niekto poradit nieco na prehravanie MP3 v Delphi 4, okrem
> >ELSounds, ktore nedokazem prinutit k spolupraci?
Ulozeni bitmapy do databaze
[*] Jaroslav Bayer <jaroslav.bayer(zv)quick(tec)cz> - 21.5.2001 23:45:52
Melo by stacit v Database Desktopu u tabulky pouzit pole Type G - graphic a ve vyvojovem prostredi komponentu DBImage napojenou jako jakakoli jina k databazi.
----- Original Message -----
From: Kokosek
To: delphi-l(zv)clexpert(tec)cz
Sent: Saturday, May 19, 2001 3:48 PM
Subject: Ulozeni bitmapy do databaze
Ahoj
poradi mi nekdo, jakulozit obrazek ze souboru (napr. C:\image.bmp)
do databaze Paradox. Prosim o kratky priklad.
Dik Lada
Cas v DBEditu ...
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 21.5.2001 23:54:01
> zkus se podivat na editmask na fieldu.
To jsem zkousel a sice to tam nenacpe to cely dlouhy datum+cas, ale zase to
pro zmenu misto minut hodi 00 (takze zadano 13:30 - dam do dbeditu kursor a
najednou je tam 13:00)
maskedit je nastaven dle prednastaveneho kratkeho casu (tj. !90:00;1;_)
Nejaky jiny napad ? Uz mi dochazi inspirace
Pavel Skalicky
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
SQL
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 22.5.2001 06:47:07
Hi lidi,
chtel bych se s vama poradit. Pouzivam Interbase 6.01 a potreboval bych
drobnost. Delam program pro dokumentaci a potrebuju zrychlit (jestli to
vubec jde) nacitani z DataSetu.
V SelectSQL davam treba
select * from ZastresDoc("COM", "21.5.2001")
kde ZastresDoc je ulozena selectova procedura. OK procedura projede v
pohode, ALE pro vytahnuti vsech zaznamu, at delam co delam, trva asi 4
vteriny, nez se "prepne" do sekvencniho stavu (vzdy kdyz dojdu na konec
datasetu, nebo kdyz mu dam rovnou nacist vse pomoci FetchAll). Vemte si ze
musim cekat 4 vteriny na to nez se "vzpamatuje" a potom nejakou tu vterinu,
nez vsechno naskladam do stromove struktury (cca 1-2 vteriny).
Nevite nekdo jak odstranit ty 4 vteriny ?
Podminky :
- Potrebuju DataSet, protoze musim prechazet zaznamy nekolikrat a na
preskacku (coz mi Query neumozni).
- Musim znat pocet zaznamu.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- P�vodn� zpr�va -----
Od: Jaroslav Bayer <jaroslav.bayer(zv)quick(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: st�eda, 16. kv�tna 2001 22:46
P�edm�t: Re: SQL
> Dekuji za radu, ale nevim, jak ji odstranit, protoze jsem jiz drive
zkousel
> query vypnout, zobrazit jinou tabulku a podobne veci - jednou otevrena
> tabulka je nevymazatelna do restartu programu - i v pripade, ze se jiz
> zobrazuje jina tabulka.
> ----- Original Message -----
> From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Tuesday, May 15, 2001 10:30 AM
> Subject: Re: SQL
>
>
> > On 14 May 2001, at 23:36, Jaroslav Bayer wrote:
> >
> > > Muj problem spociva v tom, ze po nacteni
> > > tabulky napr. do DBGrid pomoci prikazu "SELECT * FROM nazev tabulky"
> > > nejsem schopen tuto tabulku odstranit prikazem "DROP TABLE nazev
> > > tabulky". Chyba neni v napojeni QUERY nebo jinych komponent - ani v
> > > readonly tabulce.
> >
> > Tvoje chyba je v tom, ze pri DROP nesmi byt tabulka otevrena.
> > Standardni komponenty maji tu nestastnou vlastnost, ze behem
> > zobrazovani udrzuji permanentne otevreny dataset i v databazi, coz
> > brani smazani tabulky.
> >
> >
> > S pozdravem
> >
> > Zbysek Hlinka
> >
> > http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> > Phones: 02/795 29 56; GSM: 0603 551 282
> > Krystofova 1016, 149 00 Praha 4
> > CZ
> >
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.255 / Virov� b�ze: 128 - datum vyd�n�: 17.05.01
Datum v DBGridu
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 22.5.2001 06:55:10
hello, muj problem je, jak donutit DBGrid aby u prazdn�ch (nevyplnenych)
datumu vypsal prazdnou bunku namisto 31.12.1899.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
Cas v DBEditu ...
[*] Michal.Michal <delphi-konference(zv)bcpraha(tec)com> - 22.5.2001 07:19:18
Ahoj,
Vim, ze je to mimo, ale kdyz vidim ze to tu mate pouzite tak se
zeptam. Co prosim vas znamena, kdyz v masce u MaskEditu napisi jako
prvni znak !. Dik.
Michal
----- Original Message -----
From: "Pavel Skalicky" <P.Skalicky(zv)sh.cvut(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 21, 2001 11:54 PM
Subject: Re: Cas v DBEditu ...> > zkus se podivat na editmask na fieldu.
>
> To jsem zkousel a sice to tam nenacpe to cely dlouhy datum+cas, ale
zase to
> pro zmenu misto minut hodi 00 (takze zadano 13:30 - dam do dbeditu
kursor a
> najednou je tam 13:00)
> maskedit je nastaven dle prednastaveneho kratkeho casu (tj.
!90:00;1;_)
>
> Nejaky jiny napad ? Uz mi dochazi inspirace
>
>
> Pavel Skalicky
> e-mail - P.Skalicky(zv)seznam(tec)cz
> www - http://pts.kvalitne(tec)cz
> mobil - 0604 844 698
> ICQ - 38169741
>
>
Kopirovani adresare vcetne podadresaru
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 22.5.2001 07:23:23
Potreboval bych nakopnout jak v aplikaci zkopirovat adresar vcetne
podadresaru nekam jinam.
V prubehu kopirovani bych chtel jednotlive kopirovane soubory mit pod
kontrolou, tzn. napriklad kontrolovat atribut faReadOnly a podle toho se
zaridit.
Jiri Fait
Informacni systemy
ICQ: 113357332
Email: fait(zv)jakl(tec)cz , ftsoft(zv)iol(tec)cz
OT: nemate nekdo pascalacky zdrojaky na ctverckovy
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.5.2001 07:44:17
prosim, prosim,
nemate nekdo zdrojaky na klasicky ctvereckovy dungeon? nejlepe v pascalu
nebo v delphi. a jeste lepe BEZ podpory 3D karet, direct draw, openGL a
podobnych opicaren. jde mi hlavne o obecne reseni, chtel bych to
portovat na PalmOS, takze se bez toho budu muset stejne obejit. staci i
url, kde takovy veci rostou. ja zatim narazil akorat na samy doom-like
engines a podobny srandy nejlepe jeste postaveny prave na D3D nebo
OpenGL. to zrovna nepotrebuju. ma to motorolu 68k na 20MHz, takze
zadnyho kvaka urcite kouzlit nechci.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Licence na Interbase a Firebird
[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 22.5.2001 08:09:53
Nazdar
Jak je to vlastne s licencemi na pouzivani Interbase a Firebird serveru ?
S pozdravem
Dusan Fojtik