Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Chyba v Delphi ??? TToolBar
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 19.1.1998 08:45:10
Ahoj,
zkousel jsem presne totez a zadna chyba se mi nevygenerovala (Delphi 3.0
na NT4.0).
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
> Odesl�no: 16. ledna 1998 14:32
> Komu: DELPHI Distribution List
> P�edm�t: Chyba v Delphi ??? TToolBar
>
> Kdyz mam TToolBar a na nem tlacitko v jejimz OnClick se vola Close a v
> OnClose formu mam Action = caFree, tj. je to autodestrukcni formular
> po
> stisku tohoto tlacitka, tak jakmile po zavreni okna v jinem formu
> nekam
> kliknu tak to nahlasi "Access violation : Read of address ...." a tak
> furt
> dokola ze nezbejva nez aplikaci odstrelit.
>
> Automaticky generovane hodnoty
[*] Martin Dupal <vision(zv)visionsw(tec)cz> - 19.1.1998 09:31:01
Vodnansky David wrote:
> potreboval bych vyresit nasledujici problem ve spolupraci Delphi a
> Interbase (ale stejne se chova i Oracle):
>
> mam 2 tabulky, propojene referencni integritou. Do master tabulky
> zapisu zaznam, kteremu se automaticky vygeneruje primarni klic
> (before insert trigger s generatorem). Zavolam metodu Post a
> nasledne potrebuju zacit vytvaret do podrizene tabulky zaznamy a
> samozrejme bych potreboval znat hodnotu primarniho klice masteru.
>
> A v tom je prave problem - Delphi tuhle hodnotu odmita ziskat,
> dostanu ji v podstate jenom primym dotazem na jinou polozku tabulky
> napriklad:
>
> select id from tabulka where nazev='to co jsem tam predtim vlozil'
Tento problem jsem resil na serveru Sybase SQL Anywhere, kde je
promenna "(zv)(zv)identity" obsahujici posledni prirazenou autoinkremntacni
hodnotu (samozrejme pro kazdeho usera zvlast). Takze stacilo nastavit
patricny field jako DEFAULT AUTOINCREMENT a po insertu si napr. ulozenou
procedurou precist hodnotu zminene promenne. Nebo lepe v triggeru
AFTER INSERT prenest hodnotu promenne (zv)(zv)identity do nejake temporary
tabulky, kde je pak mozne udrzovat posledni autoinkrement pro kazdou
tabulku zvlast.
Domnivam se, ze jine SQL servery budou mit ekvivalent zminene promenne.
Zadna elegance to sice neni, ale ucel sveti prostredky.
Martin
+----------------------------------+
| Ing. Martin Dupal |
| adresa: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: ++420/68/5313130 |
| fax.: ++420/68/5313132 |
| http://www.visionsw(tec)cz |
| mailto:vision(zv)visionsw(tec)cz |
+----------------------------------+Jeste jednou k "mrkani"
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 19.1.1998 09:39:42
Toto je definice funkce Invalidate, ktera vola API funkci
na zneplatneni oblasti, treti parametr urcuje zda se vymaze pozadi nebo ne pri prekreslovani oblasti.
procedure TWinControl.Invalidate;
begin
if HandleAllocated then
InvalidateRect(FHandle, nil, not (csOpaque in ControlStyle));
end;
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: prosys(zv)grendel(tec)cz
----------
> Odes�latel: binderj(zv)dec59.ruk.cuni(tec)cz
> Komu: delphi(zv)io.pinknet(tec)cz
> P�edm�t: Jeste jednou k "mrkani"
> Datum: 15. ledna 1998 21:24
>
> Pred casem zde probehla diskuze na tema, jal zajistit aby
> nase vystupy vyvedene na canvasu pri prekreslovani nemrkaly.
> Objevily se tu uzitecne postupy, ktere zrejme pomohly vyresit
> problem, ktery diskuzi inicioval. Presto tu (myslim) nebylo vyjasneno
> proc k mrknuti - prekresleni canvasu pozadim vetsinou nevitane barvy-
> pred zavolanim metody paint objeku vlastne dochazi.
>
> Kdyz jsem nyni lovil posledni "posledni" chybu v mem poslednim
> produktu, zjistil jsem ze chyba se mi objevovala jen nekdy z toho
> duvodu, ze se jinak chova prekresleni pri volani invalidate a jinak
> kdyz ke stejnemu ucelu pouziju Invalidaterect. V prvem pripade
> dochazelo k popsanemu mrkani (nikoli barvou pozadi komponenty, ale
> barvou pozadi canvasu formulare (ma to nejakou logiku? muze to byt k
> necemu dobre?) v druhem pripade to je bez mrkani tak jak sem si
> predstavoval.
>
> Nemam nyni cas to overit a vyzkouset jeste v dalsich situacich kde
> jsem musel dosud strpet mrkani, ale zda se mi, ze by vymena volani
> invaildate za volani incalidaterect na kreslenou plochu mohla vest k
> cili
> Omlouvam se, ze tu dlouze pisu o starem tematu, ale mozna muze byt
> toto pozorovani pro nekoho uzitecne.
> ]Zdravi Jiri Binder
>
Automaticky generovane hodnoty
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 19.1.1998 10:13:23
Problem uz je vyreseny, viz moje predchozi zprava. Nicmene mam pocit, ze
zadna obdobna promenna se v Oracle ani Interbase, ktere pouzivam
nevyskytuje. Urcite ne pro kazdeho uzivatele zvlast.
Mimochodem, jak se zachova zminena promenna, pokud uzivatel ma aktivnich
vice spojeni najednou ? Napr. mam pustene 3 aplikace, v jedne vlozim
vetu, v druhe se podivam na naposled prirazenou hodnotu a dostanu co ?
Hodnotu pro aplikaci, nebo pro uzivatele ? Pokud to druhe, tak je to
podle me skoro nepouzitelne.
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Martin Dupal [SMTP:vision(zv)visionsw(tec)cz]
> Odesl�no: 19. ledna 1998 9:31
> Komu: DELPHI Distribution List
> P�edm�t: Re: Automaticky generovane hodnoty
>
> Tento problem jsem resil na serveru Sybase SQL Anywhere, kde je
> promenna "(zv)(zv)identity" obsahujici posledni prirazenou autoinkremntacni
> hodnotu (samozrejme pro kazdeho usera zvlast). Takze stacilo nastavit
> patricny field jako DEFAULT AUTOINCREMENT a po insertu si napr.
> ulozenou
> procedurou precist hodnotu zminene promenne. Nebo lepe v triggeru
> AFTER INSERT prenest hodnotu promenne (zv)(zv)identity do nejake temporary
> tabulky, kde je pak mozne udrzovat posledni autoinkrement pro kazdou
> tabulku zvlast.
>
> Domnivam se, ze jine SQL servery budou mit ekvivalent zminene
> promenne.
> Zadna elegance to sice neni, ale ucel sveti prostredky.
>
> Martin
>
> +----------------------------------+
> | Ing. Martin Dupal |
> | adresa: Geislerova 6 |
> | Olomouc 2, 772 00 |
> | Czech republic |
> | tel.: ++420/68/5313130 |
> | fax.: ++420/68/5313132 |
> | http://www.visionsw(tec)cz |
> | mailto:vision(zv)visionsw(tec)cz |
> +----------------------------------+Win NTW SP 3 a fonty
[*] Marian Klaco <klaco(zv)mtf.stuba.sk> - 19.1.1998 12:02:59
Cau,
> po nainstalovani Service Packu 3 do Win NTW 4.0 Eng SP1 mam problem s
> ceskymi fonty v Delphi. Napr. font Courier New CE prestal psat cesky a > kdyz
> si zobrazim seznam fontu pro editor Delphi, objevi se v seznamu > dvakrat.
> Pritom ale ve slozce fonts ve Windows je font Courier New. Co se s tim > da
> delat?
Mal som preve pred chvilou podobny problem. Po naistalovani Windows NT a
servispacku 3 mi zacali blbnut fonty nielen pod delphi ale aj pod MS
Office CZ.
Skusal som to vyriesit dodatocnym doinstalovanim fontov CE do systemu,
ale ten ofis stale nechodil.
Potom somskusal nastavit ako system default International Slovak
nastavenie.
Toto ni uplne rozhasilo fonty v celom systeme.
Preto som este raz pustil na to service pack 3 a po restartovani
pocitaca bolo vsetko v poriadku.
Aj v Delphi aj ofise.
Dufam, ze to na ilustraciu stacilo a ze ti to pomoze.
--
Ing. Maros Klaco
mail: mailto:klaco(zv)mtf.stuba.sk
STU MtF Trnava
Katedra Aplikovanej Informatiky a Automatizacie
Hajdoczyho 1
Trnava 917 24
Tel.: 0805/27455
Fax : 0805/27454
TNotebook
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 19.1.1998 14:00:39
> From: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
> To: "Delphi Konference (el. adresa)" <delphi(zv)io.pinknet(tec)cz>
> Subject: TNotebook
> Date: Fri, 16 Jan 1998 13:23:10 +0100
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Narazil jsem na jeden takovy zajimavy problem. Potrebuju na formulari
> pouzit vicestrankovou komponentu na jejichz strankach chci vytvaret
> dynamicky dalsi komponenty. Nechci pouzivat TPageControl protoze tam
> nechci mit ty usi a i kdyz nastavim v TTabsheet TabVisible:=false tak
> porad je tam zbytek 3D. Proto chci pouzit TNotebook z palety Win 3.1 ale
> u neho zase nevim jak zjistit pri dynamickem vytvareni komponent co
> dosadit u komponenty do DynamickaKomponenta.Parent. Zatim jsem to obesel
> tim ze za DynamickaKomponenta.Parent dosazuji Parent komponenty, ktera
> byla na prislusne strane notebooku vytvorena v dobe navrhu, ale je to
> takove divne a navic ne vzdy budu mit na prislusne strance takovou
> komponentu.
>
> S pozdravem
> Zdenek Petruj
>
>
A co takhle dosadit tam formular na kterem je. Pokud se teda ptas na
tohle.
Pavel
Rozmery aktivni plochy desktopu
[*] Petr Kolar <petrkolar(zv)melzer(tec)cz> - 19.1.1998 16:46:44
Ahoj Michale,
zkousel jsem to a funguje to spravne - az na pripad,
kdy je TaskBar umisten nahore nebo vlevo. V tom
pripade je nutne jeste nastavit Left a Top formulare.
Moc jsem to zatim nehledal - pokud to nekdo vi at
poradi.
S pozdravem
Petr
Petr Kol��
mailto:petrkolar(zv)melzer(tec)cz
http://www.melzer(tec)cz
-----P�vodn� zpr�va-----
Od: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
Odesl�no: 16. ledna 1998 23:42
Komu: DELPHI Distribution List
P�edm�t: Re: Rozmery aktivni plochy desktopu
>Pred casem jsem se ptal jak zjistit velikost aktivni plochy desktopu.
>Na zaklade odpovedi Zdenka Petruje jsem dospel zatim k castecnemu
>reseni. Moje reseni neni az tak dlouhe, tak jej posilam do konference.
Tak sem se na to podival a dospel sem k uplnemu reseni:
X := GetSystemMetrics(SM_CXFULLSCREEN);
Y:= GetSystemMetrics(SM_CYFULLSCREEN)+GetSystemMetrics(SM_CYCAPTION);
Vyzkouseno pod NT i 95 a reguje i na AutoHide TaskBar.
McLEI
begin 600 WINMAIL.DAT
M>)\^(B4/`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`N $```$````0`````P``, (````+``\.``````(!_P\!````2P``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````$1%3%!(22!$:7-T<FEB=71I;VX(zv)3&ES
M= !33510`&1E;'!H:4!I;RYP:6YK;F5T+F-Z```>``(P`0````4```!33510
M`````!X``S !````%0```&1E;'!H:4!I;RYP:6YK;F5T+F-Z``````,`%0P!
M`````P#^#P8````>``$P`0```!L````G1$5,4$A)($1I<W1R:6)U=&EO;B!,
M:7-T)P```(zv)$+, $````:````4TU44#I$14Q02$E 24\N4$E.2TY%5"Y#6(zv)``
M``,``#D`````"P! .(zv)$````>`/9?`0```!D```!$14Q02$D(zv)1&ES=')I8G5T
M:6]N($QI<W0``````(zv)'W7P$```!+`````````($K'Z2^HQ 9G6X`W0$/5 (`
M````1$5,4$A)($1I<W1R:6)U=&EO;B!,:7-T`%--5% `9&5L<&AI0&EO+G!I
M;FMN970N8WH```,`_5\!`````P#_7P`````"`?8/`0````0````````"F5L!
M!( !`"0```!213H(zv)4F]Z;65R>2!A:W1I=FYI('!L;V-H>2!D97-K=&]P=0`]
M#0$%(zv) ,`#(zv)```,X'`0`3`! `+(zv)`L``$`5 $!(( #``X```#.!P$`$P`0`"D`
M,P`!`%8!`0F `0`A````-#<S0S%".3DX0SDP1#$Q,4$P-#DP,# P0S!#.#$T
M-S0`W08!`Y &`& '```A````"P`"``$````+`",```````,`)(zv)``````"P`I
M```````#`"X```````,`-(zv)``````0 `Y`% .3''Q)+T!'(zv)!P``$````D````
M4D4Z(%)O>FUE<GD(zv)86MT:79N:2!P;&]C:'D(zv)9&5S:W1O<'4``(zv)%Q``$````6
M`````;TD\7$!F1L\2)",$=&(zv)20``P,(zv)4= ``'(zv)`># $````#````35,``!X`
M'PP!````%(zv)```%=/4DM'4D]54"]604-,058O4&5T<(zv)````,`!A#4(zv),4L`P`'
M$ `#```>``(zv)0`0```&4```!!2$]*34E#2$%,12Q:2T]54T5,2E-%351/0495
M3D=52D543U-04D%63D4M05I.05!225!!1"Q+1%E*151!4TM"05)534E35$5.
M3D%(3U)%3D5"3U9,159/5E1/35!225!!1$5*``````(!"1 !````.P0``#<$
M``!=!(zv)``3%I&=0_G(zv)YD#``H`<F-P9S$R-7<!0P$P`?<(zv)`J0#XP(`8P)H"L!S
M970R,SC5```J`N%A!X (zv)!Q,"(zv)/$'$R!#10*#`% "\A 78# (zv)5&%H`W$"(zv)S+Q
M#Z=P<G$4<1 _$4\2469]"H (R" ["6\.,#6S`H *(zv)75C`% +`V,`0<4+8&X.
M$# R.0NF%J =$^!J!= -X!6 ;&4LYPJB"H0*(zv)'IK"& 5L ,(zv)`FH5L&T(zv)=&\(zv)
M8<(zv)(zv)9G4;,'5J%I >(zv):)S%1!A=FX6D"T>H#1Z(!9(zv)(!40!2!A9,8L"N,*(zv)&MD
M>1X(zv)%I"1$\!S:T(*P75M! "^= GP($$3X EP($!E!N $('8<P'9O+B!6/QYQ
M'F <]""$%I ?(6YU?G0?T1\(zv)(H$(zv)02* '[!IC05 3 %Q'J%4;W >P%D%L&UU
M"V )<"X<]$W$;V,>)WIA= =P(S$::!S 9!(1( !P;VN\=60><A_0(6 C<6D>
MH.YT)&4%L"# :2(zv)%'/(zv)J(zv).<M8 7P*D!Z9!^A'E <]-<M82[/+R-0%<!R'/0P
M,D0(zv)2P;P7"=E`% G[&8X'/4GL" `P ,0'H!<.G P01W )\% !X!LXGH$D"YC
M>AK!`4 GL"\!0!T$&M(R06(zv)"0' ZZ"\O=S7(zv)+C./'/42HIAS,3<LN114,38X
M&G!L:3,V-($#8"*08U4%0"TZXE QD3DCP&0W"Y Q8"J >A40,5)V87\ZXQSV
M.G0T(zv)PLQ.G0"`&DP+3$T- % .(zv)`Q. XP`4 ,T#[S8B!/9'HZ#(-B$Z <=":Q
M"X!W`R-0!) (zv)6U--5%"(.DTN06= <V(zv)V(zv)/9V)8 V(zv)5T<]4 B!Y Q0WYN,L!
M=CD(zv)(^ IP2!1,9 Y.3(zv)(zv)%> Z-!1P#T/F,2 GH$!G1$5,4%Q(24(zv)P(G$%$&(E
M(zv)&G?`B FL")Q0]<[,C(zv))(zv)"XP1S%(zv).K! 9U)E.(zv)?Q>N4'(zv)'(A(zv)&%K*5 ?P"M
M^PM0*(!H(8!$<4R )T ,<)\]#SX9.(zv)0+MAT#/E )<?P(zv)8R'(zv)'E$>,Q6P(' !
MD/<>$4QP*2!J(G$FD2X0.(zv)"?'< B(zv)$QO374H!3Y.'K#]*3!K"V E$01P*D N
M$"P(zv)Y"!:`0!N:QZP,#(?$O\>,RL`'X >`2DT4I!103J1]Q_0)Z (zv)]3X)<!6P
M`P`CX/\H<!\A6D0C,501("$!D%*0\F0)`'5H'-!;\Q\(zv)'%"_*D `D M(zv)6!)8
M\ ((zv)9(zv)20_0GP8R?V'/H3P%*04;4(zv)4?\>(zv)2I +" \(zv) ,(zv)'K!8-1Y"?5*0=0M0
M68-:1$!(zv)'0E8X" Z/2!'%< &L"*!3&U-,$$-X',H0A!?`$-81E5,3%-#8%)%
M14XI&* =`UEK9!]E)5EEJ2MG#V(zv)30V!!4%1)3V8W'/16GGD=M$3P8,('L%0(zv)
M*T!\.34>H0EP'P-;81ZP0?$E(zv)&](:241(=5>FR\OP7!E36-,14D<^A?!`(zv)!R
MP `#`! 0``````,`$1 ``````P" $/____] ``<P<%WFPO DO0% ``(zv)P<%WF
MPO DO0$+`!^ "" &``````# ````````1(zv)`````#A0````````,`(X (( 8`
M`````, ```````!&`````%*%``#P#(zv)``'(zv)`D(zv) (zv)(zv)!(zv)``````P ```````$8`
M````5(4```$````$````."XP``,`)8 (( 8``````, ```````!&``````&%
M````````"P`N(zv) (zv)(zv)!(zv)``````P ```````$8`````#H4````````#`"^ "" &
M``````# ````````1(zv)`````0A0````````,`,( (( 8``````, ```````!&
M`````!&%`````````P`S(zv) (zv)(zv)!(zv)``````P ```````$8`````&(4````````>
M`$. "" &``````# ````````1(zv)`````VA0```0````$`````````'(zv)!$(zv) (zv)(zv)
M!(zv)``````P ```````$8`````-X4```$````!`````````!X`18 (( 8`````
M`, ```````!&`````#B%```!`````0`````````>`#T``0````4```!213H(zv)
.``````,`#33]-P``^LV%
`
end
screen saver
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 19.1.1998 17:20:01
> M�m jedbu prosbu. Ned�vno jsem dostal za ukol udelat pro jedni firmu screen saver.
> A nemuzu nikde poradne zjistit jak to provest. V napovede pro API se pise o nejakych
> funkcich ScreenSaverProc atd. Ale nikde nemohu najit jak s temito funkcemi zachazet
> v Delphi a vubec nejakou strukturu setrice v Delphi. V souborech nejcastejsich otazek
> dodavanem s Delphi se nekdo ptal a odpoved znela asi takto. Musite vytvorit formular,
> ten maximalizovat, obarvit nacerno a zrusit okraje a dalsi si domyslete.
> Takze prosim jestli nekdo ma neco a setrici, nejlepe nejaky zdrojovy text jiz fungujiciho
> setrice.
> Pro uplnost programuju v Delphi 1, nebot jsem odpurce WIN95
> predem dekuji.
Jednodu�e to jde takto:
Vyrob si aplikaci s jedin�m oknem a onMouseMove nebo onKeyDown ji zavri ...
Aplikace se spou�t� s parametrem /c pri konfiguraci
a /s pri spousteni ScreeSaveru viz. ParamStr(1)
Jinak Aplikace musi mit uvnitr nazev takvyto SCRNSAV: nazev screensaveru
no a pak uz ji jen hodit do adresare system a je to
Pavel
----------------------------------------
Pavel Drtil - Newsoft - mailto://xdrtil00(zv)stud.fee.vutbr(tec)cz
Domazelice c.7
PSC: 751 15
e-mail:
xdrtil00(zv)stud.fee.vutbr(tec)cz - doporucen
drtil(zv)norek.list.skm.vutbr(tec)cz
xdrtil00(zv)sts.dcse.fee.vutbr(tec)cz
xdrtil00(zv)dame.fee.vutbr(tec)cz - jiz nepouzivat
Equalizer
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 19.1.1998 19:30:58
> >Caute
> >Potreboval by som, zdrojovy kod pre graficky equalizer, to je ta somarina,
> > ktora lieta podla hluku, ked viete dajte mi vediet.
> Ja mam spravenu graficku komponentu equalizeru, ale sama neanalyzuje zvuk,
> ako vstup sa pouzivaju hodnoty pre jednotlive stlpce, vyzera to celkom
> pekne.
>
> btw. skus si konecne naprogramovat aj nieco sam...
Ja si taky myslim, ze napsat nejaky FFTcko (fast fourier transformation) neni zas az takovej problem a spojit ho s tou komponentou a je to ...
----------------------------------------
Pavel Drtil - Newsoft - mailto://xdrtil00(zv)stud.fee.vutbr(tec)cz
Domazelice c.7
PSC: 751 15
e-mail:
xdrtil00(zv)stud.fee.vutbr(tec)cz - doporucen
drtil(zv)norek.list.skm.vutbr(tec)cz
xdrtil00(zv)sts.dcse.fee.vutbr(tec)cz
xdrtil00(zv)dame.fee.vutbr(tec)cz - jiz nepouzivat
Automaticky generovane hodnoty
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.1.1998 20:17:58
Vodnansky David wrote:
> takhle jsem to delal taky az do ted, ale neprislo mi to dvakrat
> elegantni, nicmene uz mam reseni:
>
> je treba zapomenout na triggery, generovani primarnich klicu vlozit
> do ulozene procedury a tu pak v metode BeforePost prislusneho
> datasetu zavolat.
Jenze to zas neresi muj problem, kdy mi totez musi chodit jak na SQL
Serveru, tak i na rozcvicovacim Paradoxu. :-(
-----
> > Qry.SQL.Add('insert into Tabulka(bla,bla,bla) values(ble,ble,ble)');
> > Qry.ExecSQL;
> > A pak se dotazes na index, napr.
> > select Max(id) from Tabulka [where nazev='...' - pokud to bezi
> > sitove]
> > Ma to jednu vyhodu, pokud neni Tabulka otevrena, nemusis
> > natahovat kvuli vkladani zadna data.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Zadavanie language driveru v Paradoxe.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.1.1998 20:17:58
Homola Peter wrote:
> Nevie niekto ako by sa dalo "runtime " v D3 zadavat LD
> paradoxovskej tabulky ( napr. BDE API )? Osobne by som to potreboval
> menit uz v existujucej tabulke, ale nevadi ak by to niekto vedel
> zadavat iba pri CreateTable (konkretne LD character set 'czechw').
Prohledni si funkci DbiDoRestructure a jeji parametr
pTblDesc.pfldOptParams. Viz take podadresar Doc\bde.int.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Zadavanie language driveru v Paradoxe.
[*] Richard Vdovjak <vdovjak(zv)usa(tec)net> - 19.1.1998 20:41:14
Mna by v tejto suvislosti zaujimala este jedna vec,
da sa nejakym sposobom nastavit aby mala jedna
tabulka viac jaz. driverov (podla stpcov napr. pri aplikacii typu
slovnik raz potrebujem nase triedenie, raz innostrane :)
Zrejme by to slo dekompoziciou tab, ale nie vzdy je to to prave orechove.
Richard Vdovjak
---------------------------------------------
mailto: vdovjak(zv)usa.net or richo(zv)frru.utcru.sk
homepage: http://www.utcru.sk/~richo/
ICQ UIN: 3283282
MemoryTable bez BDE ?
[*] Jan Linhart <honzal(zv)login(tec)cz> - 20.1.1998 16:44:20
Zdar,
Nutne pot�ebuju MemoryTable, treba takovou, jaka je v RX-kach, ovsem nemuzu
ji poskytnout BDE, coz ta RX-kova vyzaduje.
Nepotkali jste ji nekde nebo neco podobnyho?
Predem diky
..........Honza
Automaticky generovane hodnoty
[*] Martin Dupal <vision(zv)visionsw(tec)cz> - 20.1.1998 09:43:09
David Vodnansky wrote:
> Mimochodem, jak se zachova zminena promenna, pokud uzivatel ma
> aktivnich vice spojeni najednou ? Napr. mam pustene 3 aplikace,
> v jedne vlozim vetu, v druhe se podivam na naposled prirazenou
> hodnotu a dostanu co ? Hodnotu pro aplikaci, nebo pro uzivatele ?
> Pokud to druhe, tak je to podle me skoro nepouzitelne.
S Oraclem ani s Interbasi nemam bohuzel dostatecne zkusenosti,
takze nemohu pomoci.
Jinak se zminenou globalni promennou je to tak, ze pro kazde PRIPOJENI
je zalozena nova instance teto promenne. To znamena, ze kdyz jsem
napsal, ze existuje pro kazdeho usera zvlast, tak to bylo matouci.
Server totiz chape pripojeni dvou uzivatelu (i stejneho jmena) jako
dva zcela samostatne pripojene uzivatele s rozdilnym ID apod. Kolize
mezi dvema connecty tedy nemuze nastat.
+----------------------------------+
| Ing. Martin Dupal |
| adresa: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: ++420/68/5313130 |
| fax.: ++420/68/5313132 |
| http://www.visionsw(tec)cz |
| mailto:vision(zv)visionsw(tec)cz |
+----------------------------------+Delphi a WinBase 602
[*] V�t�zslav Gazda������u��n�?��? - 20.1.1998 09:47:06
Zkousel uz nekdo toto spojeni ? Pokud ano, potreboval bych poradit jak
zacit. Mam nainstalovany SQL server WinBase 602 na svem lokalnim pocitaci
pod Windows 95. Ve WinBase jsem si vytvoril novou aplikaci a v te jsem
vytvoril jednu tabulku a naplnil daty. V BDE jsem si vytvoril novy DSN pro
tuto aplikaci. V Delphi jsem napojil TTable na tento DSN, po prihlaseni se
spustil SQL server, a ve vlastnosti TableName se mi zobrazila moje tabulka.
V pripojenem DBGridu se spravne zobrazily vsechny sloupce z tabulky. Toto
vse funguje, ale data se neobjevi a pri pokusu vlozit novy zaznam se objevi
hlaska, ze tabulka neexistuje. Musim snad jeste neco nastavit ve WinBase,
BDE nebo v mem DSN ?
Diky za vsechny rady
Vita
Razeni dle cs abecedy v dBASE pro Windows
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 20.1.1998 12:44:39
Vazeni kolegove,
dovoluji si prijit s dotazem, ktery se netyka primo Delphi. Mam
problemy s razenim dle ceske abecedy v dBASE 5.0 pro Windows. Pri
provozu po ceskymi Windows 95 neni razeni spravne, zatimco pri
provozu pod Windows 3.1 je to OK. Podivam-li se pomoci konfiguracniho
programu IDAPI na jazykovy ovladac, je v pripade ceskych Windows 95
uveden Langdriver CSY cp852, v pripade Windows 3.1 je to
Langdriver Cz dBASE 852. Nevite, prosim, nekdo, co provest, aby bylo
mozno spravne cesky radit ci indexovat v dBASE 5.0 i v prostredi
ceskych Windows 95?
Predem diky za laskavost.
-------------------------------------------------------
Ing.Jan Plisek,
Stredni prumyslova skola elektrotechnicka a Vyssi
odborna skola
Karla IV. 13 Phone: +42 40 51 68 21
531 69 Pardubice Fax: +42 40 51 70 37
Czech Republic Email: plisek(zv)spse(tec)cz
-------------------------------------------------------
Automaticky generovane hodnoty
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 20.1.1998 13:58:43
Jen pro informaci: promenna (zv)IDENTITY existuje take na MS SQL Serveru
6.5.
Nejaky pokec jak tyto problemy resit jsou na strankach www.kallista.com
(tusim).
Martin Kubecka
Martin Dupal wrote:
> Jinak se zminenou globalni promennou je to tak, ze pro kazde PRIPOJENI
> je zalozena nova instance teto promenne.Delphi a WinBase 602
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.1.1998 22:41:32
=?iso-8859-2?B?Vu107HpzbGF2IE wrote:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Eh?
> Zkousel uz nekdo toto spojeni ? Pokud ano, potreboval bych poradit
> jak zacit. Mam nainstalovany SQL server WinBase 602 na svem lokalnim
> pocitaci pod Windows 95. Ve WinBase jsem si vytvoril novou aplikaci
> a v te jsem vytvoril jednu tabulku a naplnil daty. V BDE jsem si
> vytvoril novy DSN pro tuto aplikaci. V Delphi jsem napojil TTable na
A zkousel jsi to pres ODBC?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
MemoryTable bez BDE ?
[*] Jan Linhart <honzal(zv)login(tec)cz> - 21.1.1998 12:29:39
Zdar,
Prosim vsechny, kdoz maji nejakou tu MemoryTable, aby me ji poslali a ja si
to preberu.
Odhaduju, ze by se me asi nejvice sikla ta od Petra Vonese.
Predem diky za TMemoryTable !
honzal(zv)login(tec)cz
..............Honza
PS: Doufam, ze si moc nevymejslim, ale neco na me leze a tak prosim co
nejrychleji
> > Zdar,
> >
> > Nutne pot�ebuju MemoryTable, treba takovou, jaka je v RX-kach, ovsem
nemuzu
> > ji poskytnout BDE, coz ta RX-kova vyzaduje.
> > Nepotkali jste ji nekde nebo neco podobnyho?Delphi a WinBase 602 (2)
[*] V�t�zslav Gazda������u��n�?��? - 21.1.1998 09:37:53
>A zkousel jsi to pres ODBC?
ODBC mam nakofigurovany takto:
V ODBC Administratoru mam ODBC driver WinBase602 a jeden systemovy DSN pro
moji databazi. Potom jsem ten novy driver a DSN pridal do BDE. Bez BDE bych
asi nemohl pouzivat databazove komponenty z Delphi. Nebo ano ? Jak se to da
udelat jenom pres ODBC ?
Diky Vita
Automaticky generovane hodnoty
[*] V�t�zslav Gazda������u��n�?��? - 21.1.1998 09:43:42
Omlouvam se, ze odskakuji od tematu, ale potreboval bych vedet jestli jde MS
SQL Server 6.5 provozovat pod Windows 95.
Diky Vita
a jeste jednou se omlouvam
Delphi a WinBase 602 (2)
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 21.1.1998 09:57:10
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> asi nemohl pouzivat databazove komponenty z Delphi. Nebo ano ? Jak se
> to da
> udelat jenom pres ODBC ?
[T.B.]
To ne, ale sw602 nabizi komponenty na primou konektivitu z winbase do
delphi (asi bez BDE)...
Jinak z moji komunikace vyplynulo, ze aby behalo ODBC, musi byt cesta k
winbase v PATH...
Tomas
> Diky Vita
> Automaticky generovane hodnoty
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 21.1.1998 09:59:01
Podle veskerych nasich patrani...: NE!
Tomas
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 21. ledna 1998 9:44
> Komu: DELPHI Distribution List
> P�edm�t: FW: Automaticky generovane hodnoty
>
> onem Omlouvam se, ze odskakuji od tematu, ale potreboval bych vedet
> jestli jde MS
> SQL Server 6.5 provozovat pod Windows 95.
>
> Diky Vita
> a jeste jednou se omlouvam
Delphi a WinBase 602 (3)
[*] V�t�zslav Gazda������u��n�?��? - 21.1.1998 10:37:10
>To ne, ale sw602 nabizi komponenty na primou konektivitu z winbase do
delphi (asi bez BDE)...
>Jinak z moji komunikace vyplynulo, ze aby behalo ODBC, musi byt cesta k
winbase v PATH...
Cestu k WinBase mam v PATH, toto jsem uz zjistil, protoze se mi pri
prihlaseni k databazi nespustil ani SQL Server. Ale to uz mi funguje. Muj
problem je nedke dale, protoze se mi v TTable zobrazi spravne vsechny
sloupce, ale nezobrazi se zaznamy a po vlozeni noveho zaznamu ohlasi chybu,
ze tabulka neexistuje. Jakto, ze neexistuje kdyz se v TTable zobrazila jeji
struktura. A ve WinBase mi zobrazi i vsechny jeji zaznamy ? V Database
Exploreru zobrazi taky vsechno spravne opet krome zaznamu a hlasi stejnou
chybu pri vlozeni noveho zaznamu nebo pri spusteni nejakeho SQL dotazu.
Mam jenom Trial verzi, u ktere ty komponenty nejsou. Nechci investovat do
neceho co mi zatim nechce fungovat.
Diky Vita
Record/Key deleted
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 21.1.1998 10:43:25
Ahoj,
dotaz opet tematicky podobny tem z minuleho tydne o automatickem
generovani hodnot .
prostredi Interbase+Delphi 3, tabulka ma v triggeru Before Insert
vlozeno vygenerovani primarniho klice (pres generator). Uz jsem se
smiril s tim, ze tu hodnotu do Delphi nedostanu, ovsem zda, ze Delphi se
s tim smirit odmita - po vlozeni zaznamu (bez onoho primarniho klice -
ma nastaven Required na false) dostanu hlasku uvedenou v subj., tabulka
(Query) zustane v editacnim rezimu nicmene zaznam se korektne ulozi.
Pokud zavolam metodu Cancel, tabulka se prepne zpatky do prohlizeni, ale
zaznam v databazi zustane.
Zvlastni je, ze tohle mi puvodni verze databaze nedelala, u mych kolegu
se tahle hlaska na stejne databazi obcas objevila. Minuly tyden jsem
udelal nejake zmeny v datovem schematu a od te doby to dela vsem a
porad.
Co s tim ?
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
Automaticky generovane hodnoty
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 21.1.1998 14:45:49
Nelze. Pouze pod NT 4.0 Server nebo Workstation.
Martin Kubecka
V�t�zslav Gazda wrote:
>
> Omlouvam se, ze odskakuji od tematu, ale potreboval bych vedet jestli jde MS
> SQL Server 6.5 provozovat pod Windows 95.
>
> Diky Vita
> a jeste jednou se omlouvam
Delphi a WinBase 602 (3)
[*] NN Slovakia <it(zv)nnsk.sk> - 21.1.1998 17:07:39
napad: TQuery namiesto TTable ?
Ondrej Kelle
it(zv)nnsk.sk
----------
> From: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
> To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Subject: Delphi a WinBase 602 (3)
> Date: 21. janu�r 1998 10:37
>
> >To ne, ale sw602 nabizi komponenty na primou konektivitu z winbase do
> delphi (asi bez BDE)...
>
> >Jinak z moji komunikace vyplynulo, ze aby behalo ODBC, musi byt cesta k
> winbase v PATH...
>
>
>
> Cestu k WinBase mam v PATH, toto jsem uz zjistil, protoze se mi pri
> prihlaseni k databazi nespustil ani SQL Server. Ale to uz mi funguje. Muj
> problem je nedke dale, protoze se mi v TTable zobrazi spravne vsechny
> sloupce, ale nezobrazi se zaznamy a po vlozeni noveho zaznamu ohlasi chybu,
> ze tabulka neexistuje. Jakto, ze neexistuje kdyz se v TTable zobrazila jeji
> struktura. A ve WinBase mi zobrazi i vsechny jeji zaznamy ? V Database
> Exploreru zobrazi taky vsechno spravne opet krome zaznamu a hlasi stejnou
> chybu pri vlozeni noveho zaznamu nebo pri spusteni nejakeho SQL dotazu.
>
> Mam jenom Trial verzi, u ktere ty komponenty nejsou. Nechci investovat do
> neceho co mi zatim nechce fungovat.
>
> Diky Vita
>
> Delphi a WinBase 602 (3)
[*] V�t�zslav Gazda������u��n�?��? - 21.1.1998 20:10:19
-----P�vodn� zpr�va-----
Od: NN Slovakia <it(zv)nnsk.sk>
Komu: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Datum: 21. ledna 1998 17:30
P�edm�t: Re: Delphi a WinBase 602 (3)>napad: TQuery namiesto TTable ?
TQuery jsem somozrejmne zkousel taky a opet stejna chyba. Myslim ze ten
problem bude v BDE, protoze jsem to zkousel pouzit v MS Access, ktery to
dela jenom pres ODBC a funguje to.
Vita
Delphi a WinBase 602 (2)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.1.1998 20:53:14
=?iso-8859-2?B?Vu107HpzbGF2IE wrote:
> >A zkousel jsi to pres ODBC?
>
> ODBC mam nakofigurovany takto:
>
> V ODBC Administratoru mam ODBC driver WinBase602 a jeden systemovy
> DSN pro moji databazi. Potom jsem ten novy driver a DSN pridal do
> BDE. Bez BDE bych asi nemohl pouzivat databazove komponenty z
> Delphi. Nebo ano ? Jak se to da udelat jenom pres ODBC ?
S WinBase602 jsem nikdy nedelal, ale zkousel jsem pripojit Sybase
Anywhere. Musel jsem si s nastavenim v ODBC trochu pohrat, nez jsem
vychmatl tu spravnou konstelaci. V BDE Administratoru to uz bylo
jednoduche - v podstate tak, jak to pises, a k tomu drajvu jsem
vytvoril alias.
Jestli lze pristoupit primo k ODBC, to nevim, nikdy jsem to
nezkousel ani nehledal.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Automaticky generovane hodnoty
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.1.1998 20:53:14
Martin Kubecka wrote:
> Nelze. Pouze pod NT 4.0 Server nebo Workstation.
> V�t�zslav Gazda wrote:
> >
> > Omlouvam se, ze odskakuji od tematu, ale potreboval bych vedet jestli jde MS
> > SQL Server 6.5 provozovat pod Windows 95.
Ve W95 a NT Workstation lze provovozovat klienta, na NT Server lze
provozovat i servera. Predpokladem je pripojeni W95 k NT Serveru.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Dynamicke zmena velkosti zobrazovanej plochy TImag
[*] Juraj Chlebec <chlebec(zv)sun.uniag.sk> - 22.1.1998 07:52:51
Ahoj,
S Delphi pracujem len kratko. Ma niekto nejake elegantne riesenie problemu
typu:
Form, na nom Image (Align: alClient), maximalizujem Form. Ked teraz zacnem
kreslit na Image.Canvas (kde som mal predtym nieco nakreslene), kresli sa
len na plochu rovnajucu sa povodnej velkosti okna. Je mozne dynamicky
zvecsit tuto kresliacu plochu , bez toho aby som zlikvidoval image a znovu
ho vytvaral? Na iny sposob som neprisiel ...
Vdaka
Juro
--
/\/'^'\/\
\( O O )/
O======================oOOO===(_)===OOOo=========================O
University of Agriculture Voice: (0042) 087-601/195
Nitra, Slovakia 7.15 - 16.00
____ __ _ _ __ chlebec(zv)sun.uniag.sk
(_ || ||\ || |_(_ .oooO http://sun.uniag.sk/~chlebec/
__)||_||_|||_| __) ( ) Oooo. Commodore 64 is alive !
O========================\ (=====( )===========================O
\_) ) /
(_/ Prace s pointrem
[*] SIPEK Stanislav, Ing. <SIPEK(zv)fbm.vutbr(tec)cz> - 22.1.1998 08:13:45
Preji pekny den
Prosim, muzete mi nekdo poradit s nasledujicim problemem? Mam program
napsany v BP 7.0 pracujici v realnem rezimu a potrebuji ho prevest do
Delphi a nevim si rady s nasledujicim kouskem kodu.
var
pg : array[1..maxpage] of pointer;
pt : pointer;
I,J : integer;
s,o : word;
.
{ alokace pameti }
for I:=1 to maxpage do
getmem (pg[i], pagesize);
.
pt := pg[i]; { adresa zacatku stranky }
s := seg(pt^);
o := ofs(pt^);
pt := ptr (s,o + nejaka_spoctena_hodnota); { posun na urcitou vetu }
V Delphi nejsou funkce seg a ofs podporovany. Muzete mi poradit, jak ten
posun v pameti provest? Ten program provadi nejake silene vypocty,
nejsem jeho autorem a vzhledem k jeho slozitosti bych v nem nerad neco
menil. Jedinym problemem je tato prace s pointry.
Diky moc za kazdou radu.
Standa
-------------------------------------------
Ing. Stanislav Sipek
VUT FP Brno
tel.: 05/4114 2680
E-Mail: SIPEK(zv)fbm.vutbr(tec)cz
-------------------------------------------
Record/Key deleted
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 22.1.1998 08:23:37
DDV,
> O reseni pomoci ulozene procedury vim a uz ho taky prakticky pouzivam.
> Nicmene ho naprosto nepokladam za idealni, protoze prenasi znacnou
> odpovednost za generovani na klienta, coz se mi vubec nelibi.
Proc? Zavolam si proceduru, dostanu pracovni klic a zavolam jinou
proceduru, ktere predam data a ten pracovni klic, nebo muzu delat
update.
> A ta druha rada sice vypada zajimave, ale nefunguje. Chybova hlaska
> zustala uplne stejna. Souhlasim s tim, ze problem je pri obnovovani
> hodnot v tabulce, jenomze reseni me nenapada. Query refresh neumi,
> tabulky tam cpat nechci a zobrazovat ty data za soucasneho vkladani
> proste potrebuju.
Co se tyka Record/key deleted, ta chyba je jinde, omlouvam se. ze
jsem to spletl. Poud v tabulce pouzivate domenu, ktera ma definovany
default, napriklad pro cas, tak je to ten problem. Kdyz jsem udelal
tabulku stejne struktury, jako byla ta, kde jsem dostaval hlasku
record/key deleted, akorat s tim, ze zadny sloupec nepouzival domenu,
ktera by mela definovany default hodnotu a ten cas (ci jinou
hodnodtu, kterou drive urcovalo Default domeny) jsem tam daval
triggerem before insert (stejne jako generovani serialu), tak to bylo
OK.
Pekny den!+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Pozadi
[*] Cash Reform s.r.o. <info(zv)cashreform(tec)cz> - 22.1.1998 09:02:05
Ahojky,
mam takovy problem:
lze nejak zjistit, jake pozadi je schovane pod formularem.
Pozadim myslim obrazek, ktery formularem prekryji, tj.
background + pripadne formulare ostatnich aplikaci.
Doufam, ze jsem to popsal tak nejak pochopitelne.
Diky za odpoved.
Karel Hudan
Prace s pointrem
[*] FULE Lubomir <FULE(zv)RASAX.SK> - 22.1.1998 09:49:14
Napriklad pretypovanim pointra na pchar a potom ho mozes normalne
inkrementovat:
var p:pointer;
begin
inc(pchar(p),nejaka_spoctena_hodnota);
{alebo}
p:=pchar(p)+nejaka_spoctena_hodnota;
end;
S pozdravom Lubo.
>-----P�vodn� zpr�va-----
>Od: SIPEK Stanislav, Ing. [SMTP:SIPEK(zv)fbm.vutbr(tec)cz]
>Odesl�no: 22. janu�r 1998 8:14
>Komu: 'Konference DELPHI'
>P�edm�t: Prace s pointrem
>
>Preji pekny den
>
>Prosim, muzete mi nekdo poradit s nasledujicim problemem? Mam program
>napsany v BP 7.0 pracujici v realnem rezimu a potrebuji ho prevest do
>Delphi a nevim si rady s nasledujicim kouskem kodu.
>
>var
> pg : array[1..maxpage] of pointer;
> pt : pointer;
> I,J : integer;
> s,o : word;
> .
>
> { alokace pameti }
> for I:=1 to maxpage do
> getmem (pg[i], pagesize);
> .
> pt := pg[i]; { adresa zacatku stranky }
> s := seg(pt^);
> o := ofs(pt^);
> pt := ptr (s,o + nejaka_spoctena_hodnota); { posun na urcitou vetu }
>
>V Delphi nejsou funkce seg a ofs podporovany. Muzete mi poradit, jak ten
>posun v pameti provest? Ten program provadi nejake silene vypocty,
>nejsem jeho autorem a vzhledem k jeho slozitosti bych v nem nerad neco
>menil. Jedinym problemem je tato prace s pointry.
>
>Diky moc za kazdou radu.
> Standa
>
>
>-------------------------------------------
>Ing. Stanislav Sipek
>VUT FP Brno
>tel.: 05/4114 2680
>E-Mail: SIPEK(zv)fbm.vutbr(tec)cz
>-------------------------------------------
Moznosti kopirovani souboru
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 22.1.1998 10:02:12
Jaka je nejosvedcenejsi metoda kopirovani souboru? (V Lloyd's Help File-u jsem nasel
priklady pomoci TFileStream, TMemoryStream, cteni a zapisy memory bloku, nebo i s collbackovskou funkci pro progress barr)
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: prosys(zv)grendel(tec)cz
Dynamicke zmena velkosti zobrazovanej plochy TImag
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 22.1.1998 11:15:43
> From: Juraj Chlebec <chlebec(zv)sun.uniag.sk>
> Subject: Dynamicke zmena velkosti zobrazovanej plochy TImage
> To: delphi(zv)io.pinknet(tec)cz
> Date: Thu, 22 Jan 1998 07:52:51 +0100 (MET)
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Ahoj,
>
> S Delphi pracujem len kratko. Ma niekto nejake elegantne riesenie problemu
> typu:
> Form, na nom Image (Align: alClient), maximalizujem Form. Ked teraz zacnem
> kreslit na Image.Canvas (kde som mal predtym nieco nakreslene), kresli sa
> len na plochu rovnajucu sa povodnej velkosti okna. Je mozne dynamicky
> zvecsit tuto kresliacu plochu , bez toho aby som zlikvidoval image a znovu
> ho vytvaral? Na iny sposob som neprisiel ...
> Vdaka
> Juro
> --
Abych rekl pravdu tak jsem to napoprve moc nepochopil ale vyzkousel
jsem si to a je to tak jak rikas. Zkusil jsem poexperimentovat z
vlastnostmi Strech a AutoSize. Pokud nastavis Stretch na True tak se
plocha natahne vzdy podle velikosti okna (je-li align alClient).
Ovsem to co je nakreselne se ti deformuje. A co se tyce souradnic tak
zustanou stejne. Sice se zvetsi sirka a vyska Image, ale v pravem
dolnim rohu bude stejne jako pred zvetsenim.
Nevim jestli ti to pomuze. Kdyz tak bych zkusil TPaintBox. Ale tam se
zase nezachovava co uz bylo nakresleno. Mozna by pomohlo zminit se na
co to vlastne chces. Trochu to konkretizuj.
Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Zadost o pomoc - local SQL
[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 22.1.1998 11:45:33
Vazeni,
obracim se na vas s zadosti o radu.
Jako zacinajici programator v DELPHI 2.0 mam tento problem:
Pokud zpristupnim PARADOX tabulku pomoci TQUERY, mohu pridavat a menit zaznamy
pouze pokud mam nastavenu properties REQUESTLIVE na true a nemam v SQL
klauzuli ORDER BY.
Pokud pouziji ORDER BY POLE2 , musim mit pole POLE2 jako sekundarni index s nastavenou vlastnosti
CASE SENSITIVE.
Prosim o radu, jak pomoci SQL vytvorit klic s nastavenou vlastnosti CASE SENSITIVE
(v Database Desktopu to rucne zmenit umim,
pomoci TTable take: table1.AddIndex('','Pole2',[ixCaseInsensitive]) ;)
Tabulku vytvarim takto:
........
with query1 do
begin
sql.clear;
sql.add('Create table "POKUS.DB"');
sql.add('( Pole1 autoinc ,');
sql.add(' Pole2 char(30),');
sql.add('grafika blob(1,5) ,');
sql.add('text blob(1,1),');
sql.add('primary key (Pole1))');
execsql;
SQL.clear;
sql.add('create index Pole2 on "POKUS.DB" (Pole2 ) ');
execsql;
end;
Dekuji vsem za radu
Milan Valenta
milan.valenta(zv)usa.net
tel. +42 168/6989241, +42 168/688003
Transakce v Interbasi
[*] ing.Da�a Ale� - 22.1.1998 12:12:13
V�en�
pot�ebuji vy�e�it probl�m s transakcemi.
M�m x tabulek v Interbasi. Chci p�id�vat z�znam do jedn� tabulky,
spust�m StartTransaction a vytvo��m nov� z�znam. Te� nutn� pot�ebuji
vlo�it nebo opravit z�znam v tabulce 2, kter� tam z�stane natrvalo.
Provedu Insert, Post do pat�i�n� tabulky. To je v�e p�kn� a� do doby kdy
provedu p�eru�en� zad�v�n� a RollBack datab�ze. V�e se vr�t� do p�vodn�ho
stavu i tabulka 2.
Douf�m, �e je to srozumiteln�.
ing. Ale� Da�a
e-mail: adasoft(zv)svit.com
Transakce v Interbasi
[*] Urx Lubom�r <Lubos.Urx(zv)mius(tec)cz> - 22.1.1998 12:36:21
Mam za to, ze takto je to v poradku.
--------------------------------
Lubomir Urx
MIUS Teplice, v.o.s.
lubos.urx(zv)mius(tec)cz
> ----------
> Od: ing.Da�a Ale�[SMTP:adasoft(zv)svit.com]
> Odesl�no: 22. ledna 1998 12:12
> Komu: DELPHI(zv)pinknet(tec)cz
> P�edm�t: Transakce v Interbasi
>
> V�en�
>
> pot�ebuji vy�e�it probl�m s transakcemi.
>
> M�m x tabulek v Interbasi. Chci p�id�vat z�znam do jedn� tabulky,
> spust�m StartTransaction a vytvo��m nov� z�znam. Te� nutn� pot�ebuji
> vlo�it nebo opravit z�znam v tabulce 2, kter� tam z�stane natrvalo.
>
> Provedu Insert, Post do pat�i�n� tabulky. To je v�e p�kn� a� do doby
> kdy
> provedu p�eru�en� zad�v�n� a RollBack datab�ze. V�e se vr�t� do
> p�vodn�ho
> stavu i tabulka 2.
>
> Douf�m, �e je to srozumiteln�.
>
>
> ing. Ale� Da�a
>
> e-mail: adasoft(zv)svit.com
> Automaticky generovane hodnoty
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 22.1.1998 12:57:01
Server jde tusim spustit i na NT 4.0 WKS a dokonce i bez sitove karty.
> Ve W95 a NT Workstation lze provovozovat klienta, na NT Server lze
> provozovat i servera. Predpokladem je pripojeni W95 k NT Serveru.Interbase Windows SQL u InterBase serveru
[*] Zdenek PRANTL <prantl(zv)ptc.pvt(tec)cz> - 22.1.1998 13:15:04
Zdravim,
mam jeden dotaz, ktery nesouvisi primo s programovanim, ale je to k aplikaci
"Interbase Windows SQL" dodavane
s InterBase servrem (mam v.4.2.1 z Delphi 3 prof ). Jde o interaktivni zadavani
SQL prikazu.
Potrebuji tady udelat update jedne polozky tabulky v zavislosti na jine
tabulce.
Asi takto SET TABULKA1.POLOZKA=TABULKA2.POLOZKA WHERE nejaka_podminka.
A nemuzu se dobrat toho, aby se SQL prikaz provedl.
Na prikaz UPDATE TABULKA1 SET POLOZKA=TABULKA2.POLOZKA to hlasi,ze nezna
TABULKA2,
Mate s tim nekdo zkusenosti ? Nechci na to pachat program, je to jednorazova
akce.
Zdenek Prantl
prantl(zv)ptc.pvt(tec)cz
Prace s pointrem
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 22.1.1998 13:16:53
> pt := pg[i]; { adresa zacatku stranky }
> s := seg(pt^);
> o := ofs(pt^);
> pt := ptr (s,o + nejaka_spoctena_hodnota); { posun na urcitou vetu }
podle me asi takto: (sorry ze to nemohu overit)
pt := ptr(integer(pg[i])+ nejaka_spoctena_hodnota);
McLEI
Transakce v Interbasi
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 22.1.1998 13:22:53
[P��loha v souboru: Pavel Cisar.vcf]
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
1.) Nepouzivej cestinu
2.) Update ktery ma byt v separatni transakci musi byt v separantnim sejsnu (TSession)
-----P�vodn� zpr�va-----
Od: ing.Da�a Ale� <adasoft(zv)svit.com>
Komu: DELPHI(zv)pinknet(tec)cz <DELPHI(zv)pinknet(tec)cz>
Datum: 22. ledna 1998 11:25
P�edm�t: Transakce v Interbasi
V�en�
pot�ebuji vy�e�it probl�m s transakcemi.
M�m x tabulek v Interbasi. Chci p�id�vat z�znam do jedn� tabulky,
spust�m StartTransaction a vytvo��m nov� z�znam. Te� nutn� pot�ebuji
vlo�it nebo opravit z�znam v tabulce 2, kter� tam z�stane natrvalo.
Provedu Insert, Post do pat�i�n� tabulky. To je v�e p�kn� a� do doby kdy
provedu p�eru�en� zad�v�n� a RollBack datab�ze. V�e se vr�t� do p�vodn�ho
stavu i tabulka 2.
Douf�m, �e je to srozumiteln�.
ing. Ale� Da�a
e-mail: adasoft(zv)svit.com
Moznosti kopirovani souboru
[*] Jiri Malek <jirim(zv)cs.vabo(tec)cz> - 22.1.1998 13:22:30
Nejlepsi je pouzit API funkci. Jmenuje se priblizne CopyFile, (je i MoveFile
atd.) a je popsana v HELPech.
-j-
-----Original Message-----
From: Jiri Szopa <prosys(zv)grendel(tec)cz>
To: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Date: 22. ledna 1998 10:22
Subject: Moznosti kopirovani souboru
>Jaka je nejosvedcenejsi metoda kopirovani souboru? (V Lloyd's Help File-u
jsem nasel
>priklady pomoci TFileStream, TMemoryStream, cteni a zapisy memory bloku,
nebo i s collbackovskou funkci pro progress barr)
> -------------------------------------------
>Ing. Jiri Szopa
>tel.: +420 659 713393
>fax.: +420 659 713392
>email: prosys(zv)grendel(tec)cz
>
>
>Interbase Windows SQL u InterBase serveru
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 22.1.1998 13:41:58
Tady je jeden priklad :
update tabulka1
set sloupec1=(select sloupec from tabulka2
where (tabulka1.klic=tabulka2.klic);
Je to ono, nebo potrebujes neco uplne jineho ?
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Zdenek PRANTL [SMTP:prantl(zv)ptc.pvt(tec)cz]
> Odesl�no: 22. ledna 1998 13:15
> Komu: 'DELPHI Distribution List'
> P�edm�t: Interbase Windows SQL u InterBase serveru
>
> Zdravim,
> mam jeden dotaz, ktery nesouvisi primo s programovanim, ale je to k
> aplikaci
> "Interbase Windows SQL" dodavane
> s InterBase servrem (mam v.4.2.1 z Delphi 3 prof ). Jde o interaktivni
> zadavani
> SQL prikazu.
> Potrebuji tady udelat update jedne polozky tabulky v zavislosti na
> jine
> tabulce.
> Asi takto SET TABULKA1.POLOZKA=TABULKA2.POLOZKA WHERE nejaka_podminka.
> A nemuzu se dobrat toho, aby se SQL prikaz provedl.
> Na prikaz UPDATE TABULKA1 SET POLOZKA=TABULKA2.POLOZKA to hlasi,ze
> nezna
> TABULKA2,
> Mate s tim nekdo zkusenosti ? Nechci na to pachat program, je to
> jednorazova
> akce.
>
> Zdenek Prantl
>
> prantl(zv)ptc.pvt(tec)cz
Interbase Windows SQL u InterBase serveru
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 22.1.1998 13:44:03
Zkusenost nikoliv z Interbase...: zkuste...
update tabulka1 set polozka = (select polozka from tabulka2 where...)
Tomas
> -----P�vodn� zpr�va-----
> Od: Zdenek PRANTL [SMTP:prantl(zv)ptc.pvt(tec)cz]
> Odesl�no: 22. ledna 1998 13:15
> Komu: 'DELPHI Distribution List'
> P�edm�t: Interbase Windows SQL u InterBase serveru
>
> Zdravim,
> mam jeden dotaz, ktery nesouvisi primo s programovanim, ale je to k
> aplikaci
> "Interbase Windows SQL" dodavane
> s InterBase servrem (mam v.4.2.1 z Delphi 3 prof ). Jde o interaktivni
> zadavani
> SQL prikazu.
> Potrebuji tady udelat update jedne polozky tabulky v zavislosti na
> jine
> tabulce.
> Asi takto SET TABULKA1.POLOZKA=TABULKA2.POLOZKA WHERE nejaka_podminka.
> A nemuzu se dobrat toho, aby se SQL prikaz provedl.
> Na prikaz UPDATE TABULKA1 SET POLOZKA=TABULKA2.POLOZKA to hlasi,ze
> nezna
> TABULKA2,
> Mate s tim nekdo zkusenosti ? Nechci na to pachat program, je to
> jednorazova
> akce.
>
> Zdenek Prantl
>
> prantl(zv)ptc.pvt(tec)cz
Porty
[*] MERLIN(zv)mail.spsuh.hiedu(tec)cz - 22.1.1998 14:48:58
Dobry den preji,
je v D2 a v D3 nejaka rutina pro ovladani portu (paralelni,seriovy),
mam dojem, ze to de pres asm
dik za rady a napady Merlin
Interbase Windows SQL u InterBase serveru
[*] Ond�ej Sotona <sotona(zv)p66x01.hrk.pvt(tec)cz> - 22.1.1998 15:16:44
UPDATE SET...
WHERE ID = (SELECT ID FROM Tabulka2 ...)
nebo
WHERE ID IN (SELECT ID FROM Tabulka2 ...)
Ondxej Sotona
PVT a. s., OZ Pardubice
sotona(zv)pce.pvt(tec)cz
Interbase Windows SQL u InterBase serveru
[*] Zdenek PRANTL <prantl(zv)ptc.pvt(tec)cz> - 22.1.1998 17:16:04
> -----Original Message-----
> From: Vodnansky David [SMTP:Vodnansky(zv)allianz(tec)cz]
> Tady je jeden priklad :
>
> update tabulka1
> set sloupec1=(select sloupec from tabulka2
> where (tabulka1.klic=tabulka2.klic);
>
> Je to ono, nebo potrebujes neco uplne jineho ?
>
Stopa je to dobra, pustim se po ni, zbytek odladim. Dik.
Zdenek
Dynamicke zmena velkosti zobrazovanej plochy TImag
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.1998 20:43:57
Juraj Chlebec wrote:
>
> Ahoj,
>
> S Delphi pracujem len kratko. Ma niekto nejake elegantne riesenie problemu
> typu:
> Form, na nom Image (Align: alClient), maximalizujem Form. Ked teraz zacnem
> kreslit na Image.Canvas (kde som mal predtym nieco nakreslene), kresli sa
> len na plochu rovnajucu sa povodnej velkosti okna. Je mozne dynamicky
> zvecsit tuto kresliacu plochu , bez toho aby som zlikvidoval image a znovu
> ho vytvaral? Na iny sposob som neprisiel ...
> Vdaka
Zkusil jsem to, nevim jestli je to presne co potrebujes. Na prazdny Form1 jsem
dal Image1 a u nej nastavil:
Align = alClient
AutoSize = False
Stretch = False
a tady trochu kodu pro dve udalosti:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then Image1.Canvas.LineTo(X,Y); // at to neco kresli....
end;
procedure TForm1.FormResize(Sender: TObject);
begin
with Image1.Picture.Bitmap do
begin
Width := Self.ClientWidth;
Height := Self.ClientHeight;
end;
end;
Petr Vones, amatersky programator
P.S.
Ten obrazek ve tve zprave je vazne dobrej :-)
Porty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.1998 20:53:13
MERLIN(zv)mail.spsuh.hiedu(tec)cz wrote:
>
> Dobry den preji,
> je v D2 a v D3 nejaka rutina pro ovladani portu (paralelni,seriovy),
> mam dojem, ze to de pres asm
> dik za rady a napady Merlin
>
Nedavno se to tady tusim probiralo. Ve Win32 nemuzes pristupovat bezpecne
(u NT vubec) primo k portum. Seriova komunikace se dela prostrednictvim
otevreni portu funkci CreateFile. Existuje na to plno komponent treba na DSP.
U paralelniho portu uprime receno nevim, patrne existuje moznost nejake
"standartni" komunikace kterou pouzivaji treba Windows pri "Propojeni kabelem".
Zde bych byl rad kdyby se k tomu vyjadril nekdo kdo tomu vice rozumi, take by
mne to zajimalo.
Ve Windows 95 se muzes sice pokouset pritupovat primo pomoci asm intrukci, ale
nema to nijak spolehlive vysledky, odzkouseno :-). Jedina korektni moznost je
napsani Vxd driveru. To ale neni nikterkak jednoduche, ale nekde jsem videl
komponentu TVicPort, ktera neco na ten zpusob obsahovala.
Petr Vones, amatersky programator
Priame scanovanie do TDBImage.
[*] Homola Peter <PeterH(zv)zv.spas.sk> - 23.1.1998 08:34:22
Nazdar Delphisti.
Nezaoberal sa niekto z Vas v D3 priamym scanovanim obrazkov do objektu
TDBimage (pouzivam TWAIN rozhranie). Bohuzial mam poruke len
komponentu, ktora funguje len v IDE.
Diky za kazdu pomoc.
**********************
HOMOLA Peter, informatik pre EO OZ Zvolen
Slovensk� poistovna a.s., Zvolen
N�m.SNP 98/2 960 47
* 0855/320 140 kl.162
fax: 0855/224 50 fax.server: 0855/222 73
* mailto:PeterH(zv)zv.spas.sk
**********************-bit resource editor
[*] Martin Dupal <vision(zv)visionsw(tec)cz> - 23.1.1998 08:35:25
Potreboval bych nastroj na upravu (zmena a zpetne ulozeni)
stringove tabulky v 32 bitove knihovne DLL.
Resource editor LCC, ktery tu byl zminen nedokazal knihovnu
DLL ani otevrit a Resource Workshop 4.5 ji zase neumi ulozit
zpet do formatu 32bit compatible.
Neznate nekdo, prosim, nejaky jiny sikovny resourcer ?
Dik, Martin
+----------------------------------+
| Ing. Martin Dupal |
| adresa: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: ++420/68/5313130 |
| fax.: ++420/68/5313132 |
| http://www.visionsw(tec)cz |
| mailto:vision(zv)visionsw(tec)cz |
+----------------------------------+Spolupr�ce Delphi 3 a WinBase
[*] �rka Kolbov� <kolbova(zv)eskon(tec)cz> - 23.1.1998 08:59:58
V Delphi 2 jsme se napojily p�es ODBC na WinBase bez probl�m�. Po p�echodu na Delphi 3 nastaly n�sleduj�c� probl�my:
- lze se p�ipojit na datab�zi, lze tvo�it tabulky p�es TQuery
- nelze otev��t tabulku p�es TTable v Delphi, v DBDesktopu tak� ne, ale ve WinBasi ano
Pora�te.screen saver
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 23.1.1998 11:18:19
> Jen tak ze zajmu jsem si zkusil udelat screen saver podle tveho navodu,
> ale zcela jsem neuspel.
>
> > Vyrob si aplikaci s jedinym oknem
> > Aplikace se spousti s parametrem /c pri konfiguraci
> Toto mi funguje celkem dobre pod Win95 i NT 4.0.
> Jen pod NT 4.0 je v 1. parametru za /c jeste dvojtecka a nejake cislo. Co znamena ?
o tom cisle nevim 3.11ky ani 95ky to tam nedavali ani za /s ani /c
> > /s pri spousteni ScreeSaveru viz. ParamStr(1)
> Okno mi jen blikne a hned se uzavre.
nerozumim, ktery okno Ti blikne to co jsi napsal?
u normalniho .SCR by se Ti spustil ScreenSaver
(nehybej hned mysi...)
> > Aplikace musi mit uvnitr nazev takvyto SCRNSAV: nazev screensaveru
> Kde mam nazev zadat - Application.Title, ... ?
No to je trosku problem, ale jen pokud chces delat 3.11kovej ScreenSaver v Delphi1 jsem neprisel na misto kam bych ten text SCRNSAVE : Nazev vlozil a tak jsem to natvrdo pepsal
v editoru. Delphi1 mi tam totiz vzdy generoval napr. Project1.exe - a to jsem prepsal takto mi sice nedavalo moznost vymyslet si dlouhy nazev, ale chodilo to.
U 95ek je Ti to stejne jedno protoze, kdyz se nenajde tento SCRNSAVE tak to vezme nazev
souboru a tam muzes napsat cokoliv.
> Dale jsem zjistil, ze screen saver se vola z dialogu s parametrem /p zrejme
> pro vykreslovani do naleho okenka v dialogu.
ano - u 32-bitovych ScreenSaveru se spousti jeste s parametrem /p to je preview
v dialogu Obrazovka - vlastnosti
u 16-bitovych se pouze zobrazi ikona
> Jako druhy parametr je predavano
> nejake cislo. Co to cislo znamena - je to nejaky handle, ukazatel, ... ???
handle to bude urcite - otazka je ceho (jakeho typu) - netusim zeptam se, ale nevim
> Muze byt vzbec pro Win95 a NT 4.0 screen saver stejny ?
myslim si, ze neni duvod proc by museli byt jiny
doufam, ze nejakou kompat. zachovali
----------------------------------------
Pavel Drtil - Newsoft - mailto://xdrtil00(zv)stud.fee.vutbr(tec)cz
Domazelice c.7
PSC: 751 15
e-mail:
xdrtil00(zv)stud.fee.vutbr(tec)cz - doporucen
drtil(zv)norek.list.skm.vutbr(tec)cz
xdrtil00(zv)sts.dcse.fee.vutbr(tec)cz
xdrtil00(zv)dame.fee.vutbr(tec)cz - jiz nepouzivat
GlobalAllock
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 23.1.1998 12:54:41
Mam tento problem: potrebuji z nekolika modulu (EXE i DLL) sdilet nejaka data.
Dosel jsem k tomu, ze spravnou cestou bude pouzit globalne alokovanou pamet
pomoci GlobalAllock. Nikde jsem nenasel zadny priklad, tak jsem zkousel s tim
experimentovat sam a zatim neuspesne.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Spolupr�ce Delphi 3 a WinBase
[*] V�t�zslav Gazda������u��n�?��? - 23.1.1998 13:00:30
P�ed �asem jsem zde uvedl podobny problem (viz. predchozi temata). Nikdo ho
nedokazal vyresit, tak jsem WinBase zahodil. Celkem me udivuje ze vam to
behalo pod Delphi 2, protoze me to nebehalo ani tam.
Vita
Porty
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 23.1.1998 13:17:13
Mas-li zajem o seriovou komunikaci pod D1, D2 nebo D3, zkus
se kouknout na http://web.pinknet(tec)cz/koutek/. Stahni si PortoBello.Zip a
budes-li mit
zajem o spolupraci, tak se ozvi.
Martin
-bit resource editor
[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 23.1.1998 13:34:47
Takovy nastroj bych take potreboval, ale nemam.
Zkus ale kontaktovat RNDr. Krmelu, nebo Ing. Skerika ze
SINEA software (e-mail najdes na WWW.SINEA.CZ),
mozna te neco poradi, mozna pomuzou, mozna take nic.
(mne neporadili)
Oni sami lokalizovali DLL knihovny z InstallShieldu, tak by neco mohli mit.
S pozdravem Ing. Milan Valenta
milan.valenta(zv)usa.net
Puvodni zprava:
----------
> Odes�latel: Martin Dupal <vision(zv)visionsw(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> P�edm�t: 32-bit resource editor
> Datum: 23. ledna 1998 8:35
>
> Potreboval bych nastroj na upravu (zmena a zpetne ulozeni)
> stringove tabulky v 32 bitove knihovne DLL.
> Resource editor LCC, ktery tu byl zminen nedokazal knihovnu
> DLL ani otevrit a Resource Workshop 4.5 ji zase neumi ulozit
> zpet do formatu 32bit compatible.
> Neznate nekdo, prosim, nejaky jiny sikovny resourcer ?
>
> Dik, Martin
>
> +----------------------------------+
> | Ing. Martin Dupal |
> | adresa: Geislerova 6 |
> | Olomouc 2, 772 00 |
> | Czech republic |
> | tel.: ++420/68/5313130 |
> | fax.: ++420/68/5313132 |
> | http://www.visionsw(tec)cz |
> | mailto:vision(zv)visionsw(tec)cz |
> +----------------------------------+GlobalAllock
[*] Nykl, Pavel <nykl(zv)satoya(tec)cz> - 23.1.1998 13:38:14
Jde pres FileMapping.
-----Original Message-----
From: Petr Slovak <petr(zv)trilog(tec)cz>
To: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Date: 23. ledna 1998 13:13
Subject: GlobalAllock
Mam tento problem: potrebuji z nekolika modulu (EXE i DLL) sdilet nejaka
data.
Dosel jsem k tomu, ze spravnou cestou bude pouzit globalne alokovanou pamet
pomoci GlobalAllock. Nikde jsem nenasel zadny priklad, tak jsem zkousel s
tim
experimentovat sam a zatim neuspesne.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Oracle trigger
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 23.1.1998 13:39:37
Ahoj vespolek,
mam dotaz, ktery se sice Delphi moc netyka, ale potuluje se tady tolik
zkusenych databazovych harcovniku, ze mi snad nekdo poradi. Cely dotaz
se tyka Oracle 7 a trochu taky Delphi :-)
V triggeru after update delam historii oprav tabulky, asi takhle:
CREATE TRIGGER SPISADM.TUA_PISEMNOST AFTER UPDATE
ON SPISADM.PISEMNOST
FOR EACH ROW
begin
if (:new.vec<>:old.vec) then
insert into spisadm.opravy (atribut,stara_hodnota,nova_hodnota)
values ('VEC',:old.vec,:new.vec);
end if;
end;
Proste porovnam starou a novou hodnotu a pokud se lisi, zapisu radek do
tabulky historie. Tohle mi krasne fungovalo, ale po par upravach
datoveho modelu na me najednou zacaly padat chybove hlasky :
Table SPISADM.PISEMNOST i mutating trigger/function
SPISADM.TUA_PISEMNOST may not see it.
Zaboha nemuzu prijit na pricinu, nemate nekdo napad ?
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
Zadavanie language driveru v Paradoxe.
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - an 1998 13:39:04 -0700
Hi,
vse, co se tyce aliasu BDE jde modifikovat, mazat a vytvaret
pres objekt TSession, ktery obsahuje metody pro manipulaci
s BDE. V tvem pripade to bude asi metoda ModifyAlias, syntaxi
najdes v helpu.
Co se tyce Paradoxu pod Delphi, je to trosku komplikovanejsi.
Nejenze po vymazech vet je dobre delat Pack, ale je rovnez
vhodne po zapisech do tabulek provadet flush BDE pameti na
disk, jinak se zmeny v tabulkach zapisuji az pri skonceni
programu. Nejvetsi legrace na tom je, ze ani Pack, ani Flush
v objektu TTable nenajdes, takze si musis pomoct sam.
Pokud mas zajem, muzu ti poslat unitu, ve ktere jsou tyto
dve funkce implementovany, ale nejdriv v pondeli, jelikoz
ji mam doma.
Cau
Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
____________________________ Oddelovac odpovedi ________________________________
Re: Zadavanie language driveru v Paradoxe.
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 19.1.1998 10:17
Ahoj delphisti.
Nevie niekto ako by sa dalo "runtime " v D3 zadavat LD paradoxovskej
tabulky ( napr. BDE API )? Osobne by som to potreboval menit uz v
existujucej tabulke, ale nevadi ak by to niekto vedel zadavat iba pri
CreateTable (konkretne LD character set 'czechw').
? Treba v paradox tabulke na fyzicke vymazanie robit PACK tabulky (ako
vo FoxPro) alebo sa tieto zaznamy hned fyzicky zmazu po DELETE zaznamu ?
Diky za kazdu radu.
**********************
HOMOLA Peter, informatik pre EO OZ Zvolen
Slovenska poistovna a.s., Zvolen
Nam.SNP 98/2 960 47
* 0855/320 140 kl.162
fax: 0855/224 50 fax.server: 0855/222 73
* mailto:PeterH(zv)zv.spas.sk
**********************GlobalAllock
[*] V�t�zslav Gazda������u��n�?��? - 23.1.1998 13:48:43
>Mam tento problem: potrebuji z nekolika modulu (EXE i DLL) sdilet nejaka
data. >Dosel jsem k tomu, ze spravnou cestou bude pouzit globalne alokovanou
pamet >pomoci GlobalAllock. Nikde jsem nenasel zadny priklad, tak jsem
zkousel s tim >experimentovat sam a zatim neuspesne.
Pod Windows 95 jiz nelze pouzivat GloablAlloc pro sdilenou pamet pro vice
procesu. K tomu pouzij fuknce pro mapovani souboru (pozn. nazev napovida ze
se jedna o funkce pro praci se soubory, ale umoznuji vytvoreni sdilene
pameti): CreateFileMapping, OpenFileMapping, DuplicateHandle, MapViewOfFile
atd.
Vita
Oracle trigger
[*] Jiri Soudny <jsoudny(zv)comp(tec)cz> - 23.1.1998 16:02:48
Tohle by Ti nepomohlo?
ORA-04091 table name is mutating, trigger/function may not see it
Cause: A trigger or a user-defined PL/SQL function that is referenced in the statement
attempted to query or modify a table that was in the middle of being modified by the statement that fired the trigger.
Action: Rewrite the trigger or function so it does not read the table.
Copyright (C) 1995, Oracle Corporation
----------
From: Vodnansky David
Sent: 23. ledna 1998 13:39
To: 'DELPHI Distribution List'
Subject: Oracle trigger
Ahoj vespolek,
mam dotaz, ktery se sice Delphi moc netyka, ale potuluje se tady tolik
zkusenych databazovych harcovniku, ze mi snad nekdo poradi. Cely dotaz
se tyka Oracle 7 a trochu taky Delphi :-)
V triggeru after update delam historii oprav tabulky, asi takhle:
CREATE TRIGGER SPISADM.TUA_PISEMNOST AFTER UPDATE
ON SPISADM.PISEMNOST
FOR EACH ROW
begin
if (:new.vec<>:old.vec) then
insert into spisadm.opravy (atribut,stara_hodnota,nova_hodnota)
values ('VEC',:old.vec,:new.vec);
end if;
end;
Proste porovnam starou a novou hodnotu a pokud se lisi, zapisu radek do
tabulky historie. Tohle mi krasne fungovalo, ale po par upravach
datoveho modelu na me najednou zacaly padat chybove hlasky :
Table SPISADM.PISEMNOST i mutating trigger/function
SPISADM.TUA_PISEMNOST may not see it.
Zaboha nemuzu prijit na pricinu, nemate nekdo napad ?
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
Oracle trigger
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 23.1.1998 16:41:25
Moc ne, ale uz jsem to nasel metodou pokus-omyl. Mohla za to referencni
integrita mezi tabulkou a jeji historii. Proc, to nevim ? Prislusny
constraint jsem smazal a ted zkoumam, jak to udelat jinak.
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: jsoudny(zv)comp(tec)cz [SMTP:jsoudny(zv)comp(tec)cz]
> Odesl�no: 23. ledna 1998 16:03
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: Oracle trigger
>
> Tohle by Ti nepomohlo?
>
> ORA-04091 table name is mutating, trigger/function may not see it
>
> Cause: A trigger or a user-defined PL/SQL function that is
> referenced in the statement
> attempted to query or modify a table that was in the middle of being
> modified by the statement that fired the trigger.
> Action: Rewrite the trigger or function so it does not read the
> table.
>
> Copyright (C) 1995, Oracle Corporation
>
> ----------
> From: Vodnansky David
> Sent: 23. ledna 1998 13:39
> To: 'DELPHI Distribution List'
> Subject: Oracle trigger
>
> Ahoj vespolek,
>
> mam dotaz, ktery se sice Delphi moc netyka, ale potuluje se tady
> tolik
> zkusenych databazovych harcovniku, ze mi snad nekdo poradi. Cely
> dotaz
> se tyka Oracle 7 a trochu taky Delphi :-)
>
> V triggeru after update delam historii oprav tabulky, asi
> takhle:
>
> CREATE TRIGGER SPISADM.TUA_PISEMNOST AFTER UPDATE
> ON SPISADM.PISEMNOST
> FOR EACH ROW
> begin
> if (:new.vec<>:old.vec) then
> insert into spisadm.opravy
> (atribut,stara_hodnota,nova_hodnota)
> values ('VEC',:old.vec,:new.vec);
> end if;
> end;
>
> Proste porovnam starou a novou hodnotu a pokud se lisi, zapisu
> radek do
> tabulky historie. Tohle mi krasne fungovalo, ale po par upravach
> datoveho modelu na me najednou zacaly padat chybove hlasky :
>
> Table SPISADM.PISEMNOST i mutating trigger/function
> SPISADM.TUA_PISEMNOST may not see it.
>
> Zaboha nemuzu prijit na pricinu, nemate nekdo napad ?
>
> -----------------------------------------------------
> David Vodnansky - database analyst
> Allianz pojistovna a.s.
> tel. +420-2-24405215 fax.24405555
> <mailto: vodnansky(zv)allianz(tec)cz>
> -----------------------------------------------------
>
> Zadavanie language driveru v Paradoxe.
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 23.1.1998 16:48:39
> Co se tyce Paradoxu pod Delphi, je to trosku komplikovanejsi.
> Nejenze po vymazech vet je dobre delat Pack, ale je rovnez
> vhodne po zapisech do tabulek provadet flush BDE pameti na
> disk, jinak se zmeny v tabulkach zapisuji az pri skonceni
> programu.
>
> Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
>
Hodne pracuji s tabulkami Paradoxu a pouze jednou se mi stalo,
ze se data neulozily na disk. Ale i to stacilo.
Kdyz o tom ted premislim, tak vzdycky, krome tohoto pripadu, byly
data ulozeny na serveru Novell. Mozna by pomohlo v IDAPI nastavit
localShare=True
Musim to hned vyzkouset.
Zdenek
---------------------------------------------------------
Zdenek (Hroch) Sraier
E-mail:sraierzd(zv)czn(tec)cz HTTP://users(tec)czn(tec)cz/~sraierzd/
potapecske stranky
HTTP://www.byll(tec)cz/scuba/
---------------------------------------------------------
ScreenSaver
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 24.1.1998 01:23:55
konfigurace ScreenSaveru se vola s /c
spusteni /s
a preview s /p
----------
> Odes�latel: TucekR(zv)p15.monet(tec)cz
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: ScreenSaver
> Datum: 23. �nora 1998 18:19
>
> Nevite jakym parametrem se vola konfigurace screensaveru ?Zadavanie language driveru v Paradoxe.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.1.1998 10:52:03
Stingl.Pavel/2300/ETI(zv)eti1.cc wrote:
> Co se tyce Paradoxu pod Delphi, je to trosku komplikovanejsi.
> Nejenze po vymazech vet je dobre delat Pack, ale je rovnez
> vhodne po zapisech do tabulek provadet flush BDE pameti na
> disk, jinak se zmeny v tabulkach zapisuji az pri skonceni
> programu. Nejvetsi legrace na tom je, ze ani Pack, ani Flush v
Re: Flush: Zkus v BDE Administratoru zadat LOCAL SHARE = true.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
BIOS
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 24.1.1998 11:44:04
> zkousel nekdo zjistovat z aplikace cislo a verzi BISOu? Jde to vubec? Je nejaky namet?
procedure __RomBios;external 'KERNEL';
function GetBiosDate:String;
var P:Pointer;
begin
P:=Ptr(Ofs(__RomBios),$FFF5);
Result:='MMxDDxYY';
Move(P^,Result[1],8);
end;
----------------------------------------
Pavel Drtil - Newsoft - mailto://xdrtil00(zv)stud.fee.vutbr(tec)cz
Domazelice c.7
PSC: 751 15
e-mail:
xdrtil00(zv)stud.fee.vutbr(tec)cz - doporucen
drtil(zv)norek.list.skm.vutbr(tec)cz
xdrtil00(zv)sts.dcse.fee.vutbr(tec)cz
xdrtil00(zv)dame.fee.vutbr(tec)cz - jiz nepouzivat
BIOS
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 25.1.1998 10:30:18
> Dekuji za namet, ale mam jeste jeden souvisejici dotaz.
> Z ceho lze cerpat (z jake literatury, internet ...) pri reseni takovychto problemu.
to je tezke, zkus API Help atd.
> Na zaklade rady jsem se dival do Kernel32.dll (pres QuicView) a videl, ze tam je spousta funkci.
> Bohuzel _RomBios jsem tam nenasel.
To jsi se dival spatne mel jsi se divat do krnl386.exe tam to je
> A pokud bych se rozhodl nekdy v budoucnu pri reseni nejakeho problemu
> (jako napr. zjisteni verze BIOSu) vyuzivat nektere z funkci v
> kernel32.dll obsazenych, tak bez nejakeho popisu se neobejdu
> (nevim co hledat, protoze neni uveden popis k cemu je ta, ktera funkce urcena
> a neni uveden ani seznam parametru). Potrebuji se totiz v problemu zorientovat,
> protoze kod zde uvedeny je urcen pro 16 bit. aplikace a ja to chci realizovat
> v 32 bit. aplikaci.
Tohle Ti bude chodit ai v 32bit. aplikaci.
jinak je to snad jasny
P:=Ptr(Ofs(__RomBios),$FFF5);
__RomBios je pointer do ROM Biosu
P je pointer a ukazuje nyni na konec ROM Biosu kde byva vzdy uveden datum
Result:='MMxDDxYY';
vyhrazeni si prostoru pro datum - vysledek fce
Move(P^,Result[1],8);
presun 8 znaku mm.dd.yyyy do onoho vyhrazeneho prostoru
> Snad je zrejme o co mi jde. Chci vedet, jake jsou studijni materialy pro reseni obdobnych problemu.
s literaturou je to spatny, musis zkouset vselijaky helpy - je jich strasna spousta
a je tam spousta zajimavych veci
procedure __RomBios;external 'KERNEL';
function GetBiosDate:String;
var P:Pointer;
begin
P:=Ptr(Ofs(__RomBios),$FFF5);
Result:='MMxDDxYY';
Move(P^,Result[1],8);
end;
----------------------------------------
Pavel Drtil - Newsoft - mailto://xdrtil00(zv)stud.fee.vutbr(tec)cz
Domazelice c.7
PSC: 751 15
e-mail:
xdrtil00(zv)stud.fee.vutbr(tec)cz - doporucen
drtil(zv)norek.list.skm.vutbr(tec)cz
xdrtil00(zv)sts.dcse.fee.vutbr(tec)cz
xdrtil00(zv)dame.fee.vutbr(tec)cz - jiz nepouzivat
Pracovni plocha
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 25.1.1998 20:43:02
> jinak poloha zastupcu je samozrejme ulozena v souborech *.LNK
no tak ja si myslim ze to zas az tak samozrejme neni....
myslim si, ze to v lnk neni
----------------------------------------
Pavel Drtil - Newsoft - mailto://xdrtil00(zv)stud.fee.vutbr(tec)cz
Domazelice c.7
PSC: 751 15
e-mail:
xdrtil00(zv)stud.fee.vutbr(tec)cz - doporucen
drtil(zv)norek.list.skm.vutbr(tec)cz
xdrtil00(zv)sts.dcse.fee.vutbr(tec)cz
xdrtil00(zv)dame.fee.vutbr(tec)cz - jiz nepouzivat
Funkce jako parametru
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 25.1.1998 22:59:30
Dobry den vazeni,
pri sve praci jsem narazil na problem.
Resim jeden pomerne slozity tisk a potrebuji
rekurzivne volat funkci, jejimz jednim parametrem
bude jina funkce, ALE JEJI JMENO MUSIM PREDAVAT JAKO STRING.
Existuje nejaka moznost, jak by se dala volat funkce podle
sveho jmena ???
Tyhle funkcni parametry mi vzdycky delali problemy.
Diky za radu
---------------------------------------------------------
Zdenek (Hroch) Sraier
E-mail:sraierzd(zv)czn(tec)cz HTTP://users(tec)czn(tec)cz/~sraierzd/
potapecske stranky
HTTP://www.byll(tec)cz/scuba/
---------------------------------------------------------
Funkce jako parametru
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.1.1998 03:01:34
> pri sve praci jsem narazil na problem.
> Resim jeden pomerne slozity tisk a potrebuji
> rekurzivne volat funkci, jejimz jednim parametrem
> bude jina funkce, ALE JEJI JMENO MUSIM PREDAVAT JAKO STRING.
> Existuje nejaka moznost, jak by se dala volat funkce podle
> sveho jmena ???
> Tyhle funkcni parametry mi vzdycky delali problemy.
Myslim, ze leda tak, ze bys nekde mel pole, kde by byly ukazatele
na ty funkce spolu s nazvem a tam by sis to vzdy vyhledal...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Zadavanie language driveru v Paradoxe.
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - an 1998 07:49:30 -0700
Panove,
posilam vam dve procedurky pracujici s BDE, delaji
1) FlushBDEMem - nuceny zapis PDX tabulky na disk
2) PackPDXTable - pakovani PDX tabulky (je nutne ji mit
otevrenou EXCLUSIVE
Pouzivam je dost casto, a jsem navysost spokojen (az na to,
ze Oracle je Oracle :))
************************************************************
unit BDEUtils;
interface
uses BDE, DBTables, SysUtils;
procedure PackPDXTable(Tbl: TTable);
procedure FlushBDEMem(Tbl: TTable);
implementation
procedure FlushBDEMem(Tbl: TTable);
begin
Tbl.DisableControls;
Tbl.Open;
Check(dbiSaveChanges(Tbl.Handle));
Tbl.EnableControls;
end;
procedure PackPDXTable(Tbl: TTable);
var
hDb: hDbiDb;
TblDesc: CRTblDesc;
Dir: String;
begin
SetLength(Dir, dbiMaxNameLen + 1);
Check(DbiGetDirectory(Tbl.DBHandle, False, PChar(Dir)));
SetLength(Dir, StrLen(PChar(Dir)));
try
FillChar(TblDesc, sizeof(CRTblDesc), #0);
Tbl.DisableControls;
Tbl.Close;
Check(DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil, 0,
nil, nil, hDb));
Check(DbiSetDirectory(hDb, PChar(Dir)));
StrPCopy(TblDesc.szTblName, Tbl.TableName);
StrCopy(TblDesc.szTblType, szParadox);
TblDesc.bPack:= True;
Check(DbiDoRestructure(hDb, 1, (zv)TblDesc, nil, nil, nil, False));
finally
Check(DbiCloseDatabase(hDb));
Tbl.EnableControls;
Tbl.Open;
Check(DbiSaveChanges(Tbl.Handle));
end;
end;
end.
**********************************************************
Preju hodne zabavy
Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
____________________________ Oddelovac odpovedi ________________________________
Vec: Re : Zadavanie language driveru v Paradoxe.
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 24.1.1998 11:05
Stingl.Pavel/2300/ETI(zv)eti1.cc wrote:
> Co se tyce Paradoxu pod Delphi, je to trosku komplikovanejsi.
> Nejenze po vymazech vet je dobre delat Pack, ale je rovnez
> vhodne po zapisech do tabulek provadet flush BDE pameti na
> disk, jinak se zmeny v tabulkach zapisuji az pri skonceni
> programu. Nejvetsi legrace na tom je, ze ani Pack, ani Flush v
Re: Flush: Zkus v BDE Administratoru zadat LOCAL SHARE = true.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
BDE Flush
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 26.1.1998 10:01:05
Ohledne spatneho ukladani dat do tabulek jsme zatim vypozorovali (tj
softwarova lihen fy Eskon) nasledujici:
Local Share = true ... je sice dobre, ale problem to neresi
DbiSaveChanges ... je velmi dobre, ale problem to rovnez neresi
DbiUseIdleTime ... v D3 uz neni, a tudiz to na ni nelze vsechno svest.
Post ... no to uz vubec ne !
Tedy chyba se vyskytuje v D1 i v D3 (v D2 tedy asi taky).
Chyba se (zatim) nikdy neobjevila na Novell Netware.
Chyba se nikdy neobjevila u dBF tabulek. To bude asi tim, ze je
nepouzivame.
Existuje nejaky podstatny rozdil v zpusobu a rychlosti ukladani dat na disk
v NT a Novellu?
Martin pocestenej DBCONSTS.PAS
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 26.1.1998 10:17:47
Nemate nekdo subj. (D3) ? Ne, ze by byl tak dlouhej, ale proc delat neco, co
uz treba existuje...
Diky.
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz>Funkce jako parametru
[*] Radim Kunz <orgware(zv)ova.inec(tec)cz> - 26.1.1998 11:49:14
> Dobry den vazeni,
>
> pri sve praci jsem narazil na problem.
> Resim jeden pomerne slozity tisk a potrebuji
> rekurzivne volat funkci, jejimz jednim parametrem
> bude jina funkce, ALE JEJI JMENO MUSIM PREDAVAT JAKO STRING.
> Existuje nejaka moznost, jak by se dala volat funkce podle
> sveho jmena ???
> Tyhle funkcni parametry mi vzdycky delali problemy.
>
> Diky za radu
>
Pokud chces volat funkci, a znas ji JENOM JEJI NAZEV JAKO STRING, tj.
ne jeji pointr, tak to uz nejsou funkcni parametry. Tady budes muset
pouzit nejaky parser.
Pokud jsem to ovsem dobre pochopil.
Radim
Radim.Kunz(zv)bigfoot.com
Jiranek ma pravdu.Paradox - tabulky a jejich poskozovani
[*] tomas.mazurek(zv)vitkovice(tec)cz - 26.1.1998 12:46:32
Dobry den,
Vede se zde diskuze o databazi Paradox a jeho zpusobu ukladani dat.
Pripojim par svych osobnich zkusenosti...
S Paradoxem pro DOS delam od roku 1990 a jiz tehdy byly soucasti
Paradoxu i tzv. TUTILITY, tj. externi EXE program pro kontrolu a
obnovu poskozenych DB tabulek. Takze to neni nic noveho a firme
Borland je problem znam cca 10 let.
V DOSu byly nejcastejsi pricinou poskozeni tabulek vypadky el.
proudu. K poskozeni dochazelo a dochazi nezavisle na tom, zdali jsou
data na lokalnim PC ci zdali jsou ulozena na file serveru.
Samozrejme vetsi pravdepodobnost je u sitovych aplikaci.
S prechodem na platformu Windows se problemy s tabulkami nijak
nesnizily, ci spise naopak. Nejcitlivejsi je W3.1 a 3.11. Mohu
potvrdit zkusenosti fy ESKON, ze problemu na Novell Netware je radove
velmi malo ve srovnani s LanManagerem ci NT (LanManager je DOSovsky
sitovy SW od Microsoftu, neco jako predchudce NT).
Mam pocit, ze pri jakemkoliv padu programu si clovek nemuze byt
jisty, zdali jsou data O.K. Tak napr. jsme zjistili, ze ovladac
EMS386 se nesnasi s EXE programy Delphi 1.0. Pri konfliktu se program
a cela Windows3.1(1) odporouci a je treba resetovat PC. A kontrolovat
data.
Nektere alespon dilci problemy se obcas ztrati s prechodem na nove
BDE. Myslim tedy, ze je vhodne pouzivat aktualni verze 2.52 a 4.51
pro 16 a 32 bitu...
Mam pocit, ze tento problem je vlastni pouze Paradoxu. Alespon ja
nevim o obdobnych problemech s formatem DBF.
Jinak ja nabizim aplikace pro kontrolu a obnovu poskozenych DB. Jak
pro 16 tak pro 32 bitu... Samozrejme, ze je to ex-post. Co se ale da
jineho delat... Mam pocit, ze cesky a americky Borland to moc
nepali...
Budu rad, kdyz se tento problem jeste vice otevre v nasi
konferenci...
Tomas Mazurek, Vitkovice a.s."Index is out of Date"
[*] Pavel Rechberg <rec10um(zv)fpf.slu(tec)cz> - 26.1.1998 12:52:57 -0500 (est)
Zdravim vsechny!
Pri bezne praci s paradox 5 tabulkami v Delphi 1.0 se mi nekolikrat
stalo, a zda se ze bez jakekoliv priciny, ze mi po pokusu o otevreni
tabulky bylo sdeleno toto: "Index is out of Date". Prosim Vas vsechny o
radu, co stim, jak to osetrit, pripadne jak programove rekonstruovat
indexy. Dekuji za vsechny rady.
Pavel Rechberg StringList a Button
[*] roman.palarcik(zv)spt(tec)cz - 26.1.98 12:55:35
Zdravim vsechny,
vznikl mi takovy drobny problem. Mam na jednom formulari TStringList a
nekolik TButtons. V TStringList je zakazana editace (Options -
..Editing = False). Button maji klavesove zkratky (podtrzene pismeno).
Editaci TStringListu mam osetrenou programove. Jestlize ted mam focus
na StringListu a neco tam pisu a zmacknu pritom pismeno, ktere ma
klavesovou zkratku na nektere tlacitko, tak se vyvola udalost toho
tlacitka, coz je dost divne. Upozornuji, ze jen pri stisku pismena (ne
pres alt). Pokud je editace v StringListu povolena, tak je vse v
poradku. Zkusil jsem v udalosti OnKeyPress a OnKeyDown StringListu
nastavit Key=0 (resp. #0), ale nepomaha to. Nevite cim by mohlo byt
toto chovani zpusobeno. Nemuzu tak mit klavesove zkratky na tlacitcich,
prip. jinde, a pritom aby mi to dobre fungovalo.
Da se to lehce podle tohoto popisu nasimulovat.
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
TRich Edit a WordWrap
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 26.1.1998 12:59:49
Jakmile v TRichEdit zakazu WordWrap, RichEdit se mi odmeni tim, ze zmizi
formatovani (typ fontu, bold,...). Pritom jsem nikde nenasel zminku o
tom, ze by to melo takhle blbnout.
Ma nekdo zkusenosti s TRichEditem a poradi ?
Zdravim
D. Toman
GlobalAllock
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 26.1.1998 13:06:31
> >Mam tento problem: potrebuji z nekolika modulu (EXE i DLL) sdilet nejaka
> data. >Dosel jsem k tomu, ze spravnou cestou bude pouzit globalne alokovanou
> pamet >pomoci GlobalAllock. Nikde jsem nenasel zadny priklad, tak jsem zkousel
> s tim >experimentovat sam a zatim neuspesne.
>
> Pod Windows 95 jiz nelze pouzivat GloablAlloc pro sdilenou pamet pro vice
> procesu. K tomu pouzij fuknce pro mapovani souboru (pozn. nazev napovida ze se
> jedna o funkce pro praci se soubory, ale umoznuji vytvoreni sdilene pameti):
> CreateFileMapping, OpenFileMapping, DuplicateHandle, MapViewOfFile atd.
>
Ja vlastne ani nepotrebuju sdilet s vice procesu. Staci mi sdilet v ramci
jednoho EXE a z nej volanych DLL (tzn. v ramci jednoho procesu). K tomu by mel
podle helpu stacit GlobalAllock. Uz jsem udelal urcity pokrok. Prenesu takhle
buffer (Array of Char), ale pri sdileni objektu mam problem. Spis pujde o
nejakou prehlednutou moji blbost, ale nize uvedeny priklad mi funguje tak, ze v
DLL se v MessageBoxech objevi uplne jine nesmyslne hodnoty, nez bych cekal.
Pogram:
-------
Type
TMyObj=Class(TObject)
ParamStr:String;
ParamInt:Integer;
End;
procedure TForm1.Button1Click(Sender: TObject);
Type TDllProc=Procedure(AHandle:THandle);
Var LSize:Integer;
LPointer:Pointer;
LDllProc:TDllProc;
LibHandle:THandle;
LHandle:THandle;
LMyObj:TMyObj;
begin
LMyObj:=TMyObj.Create;
LMyObj.ParamStr:='Tohle je test';
LMyObj.ParamInt:=123456;
LSize:=SizeOf(TMyObj);
LHandle:=GlobalAlloc(GMEM_MOVEABLE,LSize);
LPointer:=GlobalLock(LHandle);
CopyMemory(LPointer,LMyObj,LSize);
LibHandle:=LoadLibrary('MYDLL.DLL');
(zv)LDllProc :=GetProcAddress(LibHandle,'TestProc');
LDllProc(LHandle);
GlobalUnlock(LHandle);
FreeLibrary(LibHandle);
LMyObj.Free;
end;
Dll:
----
Type
TMyObj=Class(TObject)
ParamStr:String;
ParamInt:Integer
End;
Procedure TestProc(AHandle:THandle);
Var LPointer:Pointer;
LMyObj:TMyObj;
Begin
LPointer:=GlobalLock(AHandle);
MessageDlg(TMyObj(LPointer).ParamStr+#13+IntToStr(TMyObj(LPointer).ParamInt),
mtInformation,[mbOk],0);
GlobalUnlock(AHandle);
End;
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
16 bitove DLL v D3.
[*] Homola Peter <PeterH(zv)zv.spas.sk> - 26.1.1998 14:29:55
Cau delphisti.
Je mozne volat v D3 ext.funkcie zo 16 bitovych DLL. Ak ano, tak prosim
Vas ako (moje vedomosti som uz bohuzial vycerpal).
Diky za kazdu radu.
**********************
HOMOLA Peter, informatik pre EO OZ Zvolen
Slovensk� poistovna a.s., Zvolen
N�m.SNP 98/2 960 47
* 0855/320 140 kl.162
fax: 0855/224 50 fax.server: 0855/222 73
* mailto:PeterH(zv)zv.spas.sk
**********************Pridani fieldu do tabulky
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 26.1.1998 16:20:54
Mam tabulku (Paradox 5). Potrebuji zmenit jeji strukturu - pridat novy field
do tabulky. Objekt TTable ma metody AddIndex, DeleteIndex - tim muzu v pohode
pridavat, mazat, resp. menit indexy tabulky. Nevim ale jak pridat field.
V tabulce uz jsou naplnene data. Je tam i field autoincrement a na tuto
tabulku jsou navazany jine tabulky, takze neprichazi v uvahu moznost vytvoreni
nove tabulky a prekopirovani obsahu.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
DOS drivery a Windows95 problem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.1.1998 01:05:03
Ahoj,
Tento problem se netyka primo Delphi, ale spise programovani pod Win95 obecne.
Mam jedno pomerne stare zarizeni ktere komunikuje pres IEC625 kartu. Puvodni
program bezel pod DOSem a skladal ze z nekolika EXE souboru ktere se ruzne
spousteli z jednoho hlavniho programu. Tato karta ma ovladac IEC.SYS zapsany
v CONFIG.SYS. Potrebuji aby to bezelo pod Win, prepsal jsem "hlavni program"
a z neho stale volam nektere DOS aplikace (neni k nim zdrojak :-( ).
Potiz je, ze dochazi k castym vypadkum v komunikaci s kartou, navic je
to zavisle skorem na vsem (typ pocitace, nainstalovane soucasti Windows,
nainstalovana sitova karta a sitove protokoly).
Prvni co jsme udelal, ze jsem vypnul 32bitove diskove ovladace, coz trochu
pomohlo ale ne moc. Karta vyuziva IRQ2, adresu 2B0H a DMA1, tedy zadny
konflikt s ostatnim hardwarem. Take jsem zkousel menit priority pri spousteni
v CreateProcess, ale tam to asi nema u DOS aplikaci vyznam.
Nevite jakym zpusobem zachazi win95 s tim to je v CONFIG.SYS v
DEVICE=xxx , bezi to s nejakou vyssi prioritou jako VxD, nebo lze
aspon neco takoveho nastavit? Tez by mozna pomohlo aby se nemenila
priorita DOS aplikace, pokud delsi dobu neprichazi nic z klavesnice.
Vim ze to lze nastavit ve Vlastnostech te aplikace, ale lze to vypnout
uplne?
Dekuji za jakoukoliv pomoc.
Petr Vones.dsp-update 26 Jan 98 ( Mon )
[*] owner-dsp-update(zv)sunsite.icm.edu.pl - 27.1.1998 01:33:43
Reply-to: Robert M. Czerwinski <rmczerw(zv)icm.edu.pl>
=======================================================
dsp-update : new files at Delphi Super Page ( DSP in short )
created by Robert M. Czerwinski
=======================================================
Hi,
Following files are available for immediate download from DSP
home ( http://sunsite.icm.edu.pl/delphi/ ) location. If you
are using any of DSP mirror sites for downloading wait day or two
before visiting them.
Some files could be marked as LINK. These files are stored in
author's home pages, and they should also be available for immediate
download.
============================================================
***** F I L E S *****
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/TProt32.zip (153,601 bytes)
The TProtect component "protects" .db by responding to database
exceptions generated when opening the table or changing the
active index. It tests the table and if any damage is found.
Uses TUTIL & proprietary repair methods, fixes .VAL files! (
ver. 2.2, Order form included, Delphi 3 versions available at WEB
Site. http://www.acsi.bc.ca or http://home.istar.ca/~ambersys/ )
( SHAREWARE d2.0x ) by Amber Computer Systems Inc.
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/accomp.zip (118,016 bytes)
Component collection for normal and data aware editing (Great for
SQL apps). ( ver. 2.1, no src. ) ( FREEWARE d3.0x ) by Andrea
Carli
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/adods.zip (22,331 bytes)
TADODataSet - component for accessing data in MS Access, MS SQL
Server and other databases through ADO 1.5 (ActiveX Data
Objects). Fast access without BDE. ( ver. 1.00 Final ) (
SHAREWARE d3.0x ) by Erik Salaj
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/advimage.zip (96,253 bytes)
TAdvImage component with test program and accompanying units
which can read GIF, BMP, JPEG at very hight speed!.New property
and methode added like StretchRatio,Center,resize... ( ver.
0.93, Before using the GIF and JPEG format in any commercial
application be sure you know the legal issues for this format! )
( FREEWARE d3.0x ) by Janick Fortin
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/aexcel.zip (81,161 bytes)
T(Adv)Excel is <B>the</B> Excel 4/5/7/8 DDE driver + data
transfer component. Orders of magnitude faster than OLE
automation or any other known mechanism. Top reliability +
performance.<BR><B>New: Fast write-cache.</B> ( ver. 2.6, Online
help and code for <B>extremely high</B> data transfer rates
(1000+ items in less than 150 <B>milli</B>seconds on 486) are
available. ) ( FREEWARE d1.0x & d2.0x & d3.0x & c++b ) by Stefan
Hoffmeister
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/akabout2.zip (61,743 bytes)
This is a cool about box component whit full scr. Whit this
component you may put in your aplications a cool About Box and
make your aplication more beutiful. Put a new lock in your
software. ( ver. 2.0, *FREE TO USE* But see the register.wri
please. ) ( FREEWARE d1.0x & d2.0x & d3.0x ) by Karlos Jorge
Pinto
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/aklabel2.zip (22,826 bytes)
This is a 3D text component whit full scr. Whit this component
you may put in your aplications a new style of write. Whit
Recessed and Raised options. Put a new lock in your software. (
ver. 2.0, *FREE TO USE* But see the register.wri please. ) (
FREEWARE d1.0x & d2.0x & d3.0x ) by Karlos Jorge Pinto
http://SunSITE.ICM.edu.pl/delphi/ftp/d10share/art_tips.zip (136,189 bytes)
Tips system. Here tips can be added, removed, hidden etc by user
in Run-time. Can be saved and loaded in stream/file/registry/ini
files. Tips editor, events for each button, full design time
preview. ( ver. 1.05 ) ( SHAREWARE d1.0x & d2.0x & d3.0x & c++b
) by Artem A. Berman
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/artist.zip (659,790 bytes)
Delphi look alike EndUser QReport Editor. Even your
EndUsers can create their own reports. Runtime loader. NEW
DataModule and Copy,Cut,Paste between Delphi<->Artist. Etiket
selection. Windows NT/95 ( ver. 2.0.0.10S, registration $50 with
loader source and $150 with full source ) ( SHAREWARE d3.0x ) by
Andre Mens
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/artload.zip (101,245 bytes)
QReport Artist Loader. With QReport Artist the delphi look
alike EndUser Report writer. Load your reports at runtime with
this loader. Parameter support for TQuery. Windows 95/NT
support. BandExpressions. ( ver. 2.0.0.10S, registration only
with QReport Artist ) ( SHAREWARE d2.0x & d3.0x ) by Andre Mens
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/asmetr.zip (7,746 bytes)
The ASMetr this Scale of measurement of a type "speedmetr" ( ver.
1.3 ) ( FREEWARE d2.0x & d3.0x ) by Andrey Abakumov
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/bboard.zip (42,006 bytes)
Simulates a electronic billboard ( ver. 1.0, no src., condition
of usage: postcardware (for noncommercial usage) ) ( FREEWARE
d3.0x ) by Eduardo Manso Neto
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/bindex.zip (10,181 bytes)
B-tree index unit, perfect for sorting or indexing. For 10000
records compare Shell sort (n * n) /2 (100 min) with this 1.12
min. ( ver. 1.01 ) ( FREEWARE d1.0x ) by Mik Tran
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/bkpwdgen.zip (19,507 bytes)
Pwssword geneartor component for Delphi 3. This component can
generate a fairly random string of characters suitable for
passwords. Its properties allows you to decide length of
password and what type of characters to include. ( ver. 1.0.0, no
src. ) ( FREEWARE d3.0x ) by Bjorn Kvisli
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/bkstrgrd.zip (43,247 bytes)
Descendant of TStringGrid. Sort rows. Save strings to file, and
load strings from file. Encryption. Convenient validation of
user input. ( ver. 1.0.0, no src., Drop me an email if you like
it. (kvisli(zv)gol.com). ) ( FREEWARE d3.0x ) by Bjorn Kvisli
http://SunSITE.ICM.edu.pl/delphi/ftp/tools/bsbatch1.zip (203,312 bytes)
BSBATCH is a useful utility for database users. Pack or
Restructure your Dbase or Paradox tables individually, in
batches, interactively, or automatically via command line
parameters. Generates a log file ( ver. 1.0, Single User Licence
USD 20.00 Distribution Licence (Clients of ......) USD 65.00 ) (
SHAREWARE ) by Business Software
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/bspktbl.zip (2,760 bytes)
BSPKTBL is a TTABLE replacement with additional functions to
PACK (permanently remove deleted records) and REGENERATE INDEXES
for DBASE and PARADOX tables. ( ver. 1.0, Source Only (*.PAS
file) with installation and usage instructions. ) ( FREEWARE
d1.0x & d2.0x & d3.0x ) by Business Software
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/bssgrid.zip (2,672 bytes)
BSSGRID is a simple, but very effective TSTRINGGRID descendant
that can display each cell in the grid with either a raised, or
lowered, 3-D appearance; in addition to the usual 'flat'
appearance. ( ver. 2.0, Source Only (*.PAS file) with
installation and usage instructions. ) ( FREEWARE d1.0x & d2.0x
& d3.0x ) by Business Software
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/catchit.zip (190,165 bytes)
A very unique component, which lets you trap messages of other
controls and redirect them to events. Everything is completely
visual. ( ver. 1.21 ) ( SHAREWARE d3.0x ) by Srinivasa Bhaskar
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/charmap.zip (5,175 bytes)
The CharMap component is a "MS-Word Insert|Symbol" char map.
Just drop it in your form, change the font, use the SelectedChar
property and you will have a char map in your application. (
ver. 1.0, no src., free for non-comercial use, no src., src.
available by request. ) ( FREEWARE d3.0x ) by L&S Software
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/cm20.zip (128,721 bytes)
Standart windows memo control that can "color code" the text it
holds. No RTF required. "We tried to make it very simple and
easy to use so novice users can "plug & play" it into their
application without any painful reading of manuals." ( ver. 2.0,
no src., source for $16 ) ( FREEWARE d2.0x & d3.0x ) by Baltic
Solutions
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/com32v14.zip (129,610 bytes)
The TCOMM_32 component is designed to add RS232 / COM port
functionality. It is suitable for passing strings to an RS232
Controller and receiving the responses. Ideal for weigh scale
controllers N/C controllers, Bar Code Readers etc. ( ver. 1.4,
Available directly from Amber see http://www.acsi.bc.ca or
http://home.istar.ca/~ambersys ) ( SHAREWARE d3.0x & c++b ) by
Amber Computer Systems Inc.
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/coolctls.zip (98,260 bytes)
CoolControls provides you with the way to create advanced Delphi
controls. There are several controls available so far:
TCoolListBox, TCoolComboBoxBox, TCoolForm, TMDICoolForm. ( ver.
1.01, In order for everything to work in the proper way
coolctls.zip should be unzipped with WinZip 6.2 (6.3) or some
archiver that supports long file names! ) ( SHAREWARE d2.0x &
d3.0x & c++b ) by Artem A. Berman
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/cpgrid.zip (1,961 bytes)
TcpStringGrid and TcpDrawGrid are TStringGrid and TDrawGrid
with 4 new events : OnMouseEnter, OnMouseLeave,
OnMouseEnterCell and OnMouseLeaveCell. The two last ones allow
to know on which cell the mouse is entering (or leaving). (
FREEWARE d3.0x ) by Christian Poisson
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/daods.zip (36,382 bytes)
DAO Database Collection - two Delphi 3 components (TDAODataSet
and TDAODatabase) for accessing data in MS Access, dBase, FoxPro
and ODBC databases through DAO 3.5. Fast access without BDE. (
ver. 2.00 Beta 1 ) ( SHAREWARE d3.0x ) by Erik Salaj
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/datum.zip (840,806 bytes)
Sorry, because this library is only available for the german
calendar and holidays, there is no english description. In diesem
Archiv finden Sie eine Feiertagberechnung in Form einer 16-,
32-Bit DLL sowie entsprechender Komponenten. ( ver. 1, no src.,
Fragen, Anregungen und die kommerzielle Nutzung der Bibliotheken
k�nnen Sie mit dem Autor Christian Hartnick per Email
ch.hartnick(zv)t-online.de kl�ren - die private Nutzung ist frei. )
( FREEWARE d1.0x & d3.0x ) by Christian Hartnick
http://SunSITE.ICM.edu.pl/delphi/ftp/tools/deldoc.zip (1,329,952 bytes)
DelphiDoc generates crosslinked HTML reference documents
directly and automatically from Delphi source code. Modeled after
Sun's javadoc utility, DelphiDoc brings true source code
documentation capability to Delphi programmers. ( ver. 1.0,
$29.95 US from Soletta. See www.soletta.com for more
information. ) ( SHAREWARE d3.0x ) by Ross Judson
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/drwatch.zip (6,048 bytes)
TDragWatch component capsulates the WM_DROPFILES handling. You
can attach it to any visible control, such as buttons, lists or
memos and TDragWatch will launch an event each time the user
drops files onto the attached control. ( ver. 1.0, Parts of the
source were written by Brad Stowers. ) ( FREEWARE d2.0x & d3.0x
) by Sven Kuenzler
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/dsdialog.zip (365,128 bytes)
Want to extend the functionality of a Common dialog? Drop one of
the included components on ANY form at design time, add any other
components and code you want: at the run time your form will
become a common dialog with all your controls and code plu ( ver.
1.22, Source code: $20 ) ( SHAREWARE d3.0x ) by Dmitry
Streblechenko
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/dtpack97.zip (31,525 bytes)
Set of Date components: DateTime field with drop down calendar
like '97 (database version too), tDateFromTo. In this new
version, you'll find tCalendar97 and a property editor for all
Date fields. ( ver. 4.0, see DtPack97.txt ) ( FREEWARE d1.0x &
d2.0x & d3.0x & c++b ) by BOURMAD Mehdi
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/extform.zip (5,627 bytes)
TExtForm replaces Delphi's TForm: Gradient caption bar, OnDrop
event for file dropping and minimum/maximum form size. Currently
beta version. ( ver. 0.1, This release is currently in a early
beta stadium. You are invited to improve this class. ) (
FREEWARE d2.0x ) by Thomas Fischer
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/fileseek.zip (3,369 bytes)
A file scanner that returns the following from the found file:
Filename, Filetime and Filesize ( ver. 1.0, no src., I could
Delphi 1 or 3 it!! ) ( FREEWARE d2.0x ) by Todd Frankson
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/floader.zip (40,165 bytes)
With this expert you load files with a single keystroke that are
<b>not</b> on the library path. Additionally you may
<i>visually</i> edit the Delphi 3 library path without restarting
Delphi. ( ver. 3.0, no src., Some interesting, unique low-level
techniques are applied, see FLOADER.TXT for more. ) ( FREEWARE
d3.0x ) by Stefan Hoffmeister
LINK: ftp://ftp.hyperact.com/pub/products/wapevl10.zip
Framework for developing Web server applications using Delphi 2,
Delphi 3 or C++ Builder. Features : Runs on any NT Web server,
Automatic Session Management, Live debugging, ASP-compatible
HTML templates with Server-side scripts (VBS & JS), Rmt. ( ver.
1.04, WebApp is available in two versions: Standard version for
$199. Pro version (with source code and SMTP component) for
$495. ) ( SHAREWARE d2.0x & d3.0x & c++b ) by HyperAct
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/guidexp.zip (8,598 bytes)
GUID Expert will allow you easily to create the new descriptions
of interfaces and globally unique identifier (GUID) not leaving
Delphi IDE. ( ver. 1.0, with source, Sergey Orlic XDK requires )
( FREEWARE d3.0x ) by Andre Belokon, Grani Ltd.
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/htmldemo.zip (245,667 bytes)
A component can display html text and form. Greatly reduce size
of DFM 90% by using only one of this control, and save hundreds
of Tlabel, Tedit, Tcheckbox and also a dinosaur Tnoteboox + Ttab.
Support extended syntax. Also print it. ( ver. 1.02, Try more
tip, code and free components ) ( FREEWARE d1.0x & d3.0x ) by
Mik Tran
LINK: http://members.aol.com/BabeFreak/files/MaMagD2D.zip
MacroOrganizer for Delphi This tool gives you the possibility to
use the power of macros in your Delphi IDE. More then stupid Code
Templates. (german version) ( ver. 1.0 ) ( SHAREWARE d2.0x ) by
Carsten Paasch
LINK: http://members.aol.com/BabeFreak/files/MaMagD2E.zip
MacroOrganizer for Delphi This tool gives you the possibility to
use the power of macros in your Delphi IDE. More then stupid
Code Templates. (english version) ( ver. 1.0 ) ( SHAREWARE
d2.0x ) by Carsten Paasch
LINK: http://members.aol.com/BabeFreak/files/MaMagD3D.zip
MacroOrganizer for Delphi This tool gives you the possibility to
use the power of macros in your Delphi IDE. More then stupid
Code Templates. (german version) ( ver. 1.0 ) ( SHAREWARE d3.0x
) by Carsten Paasch
LINK: http://members.aol.com/BabeFreak/files/MaMagD3E.zip
MacroOrganizer for Delphi This tool gives you the possibility
to use the power of macros in your Delphi IDE. More then stupid
Code Templates. (english version) ( ver. 1.0 ) ( SHAREWARE
d3.0x ) by Carsten Paasch
LINK: http://members.aol.com/baxbex/files/TMacroCompo.zip
Simple MacroComponent to record, play, save and load Keyboard
or Keyboard/Mouse Events. Macros maybe very usefull to explain
operations in your programs. ( ver. 0.9 ) ( SHAREWARE d3.0x ) by
Carsten Paasch
LINK: http://members.aol.com/baxbex/files/sysfocus.zip
Same like GetFocus but Systemwide ( ver. 1.0 ) ( FREEWARE d2.0x
& d3.0x ) by Carsten Paasch
LINK: http://members.aol.com/baxbex/files/tbanking.zip
Interface to the german Homebanking Software Online- banking 1.0
( ver. 1.0 ) ( SHAREWARE d3.0x ) by Carsten Paasch
LINK: http://www.cyrenesoft.com/shareware/delphi/dmanna.exe
Manna provides your application with an "Object Inspector" like
dialog so your users can change whatever properties over
whichever controls you choose. Supporting classes are included
so you can stream out the users changes to the registry ( ver.
1.0, $75.00 Full Source ) ( SHAREWARE d3.0x ) by Cyrenesoft
LINK: http://www.eq-soft.se/delphistuff/timeline.zip
TTimeline is a timeline component with the ability to store and
display items containing images and text and arbritary amounts
of user data. Beta version might contain limitations and
bugs.This version contains *LOTS* of updates and new properties (
ver. 1.5, no src., This beta version is free for non-commercial
use. ) ( FREEWARE d3.0x ) by Peter Th�rnqvist
LINK: http://www.intrnet.net/~jacima/cbuilder/cimacomp.zip
Two components for Borland C++ Builder to prepare your software
for shareware distribution. Choose from three types of
expiration: Certain number of days, Certain number of
executions, or expiration on a given date. Lock & Unlock
application. ( ver. 1, ver. 1.0 99 US$ Source NOT Available Trial
(must have IDE running) Does Not Expire ) ( SHAREWARE c++b ) by
Cima Software
LINK: http://www.rsd.pp.ru/cgi-bin/link.pl?source=DSP&target=http://www.rsd.pp.ru/downloads/aob_ps.exe
The set of components (9 components) allows creating comfort
applications. The most exciting components are AutoOutLookBar
(VCL variant of the Microsoft OutLookBar) and
AutoPropertiesStore (can store ANY property) ( ver. 1.2, no
src. ) ( FREEWARE d2.0x & d3.0x & c++b ) by RSD Software
LINK: http://www.rsd.pp.ru/cgi-bin/link.pl?source=DSP&target=http://www.rsd.pp.ru/downloads/dblistv.exe
A TDBListView component is a data-aware List View with all the
capabilities of an ordinary Win32 List View control and plus
custom draw, multiple select, check boxes and other features. A
TDBListViewEdit and TDBLookupListView also included ( ver. 1.6 )
( SHAREWARE d2.0x & d3.0x & c++b ) by RSD Software
LINK: http://www3.mistral.co.uk/helmstone/tglobe/TGsw210.zip
TGLOBE GIS component displays a realtime interactive 3D globe of
the earth with an accuracy of a 1500th of a second of Arc or
about 1 inch. ( ver. 2.10 Production, Check the TGlobe Web site
http://www3.mistral.co.uk/helmstone/tglobe ) ( SHAREWARE d1.0x &
d2.0x & d3.0x ) by Graham Knight
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/image02b.zip (57,776 bytes)
Image processing component: Save-load Bmp and JPeg format.
Contrast, HSL and RGB variation with real time PREVIEW, filters
3x3, grayscale, negative, rotate (any angle), flip H&V,
selection copy, cut, paste (in a rect), undo and zoom. ( ver.
0.2b, no src., Freeware for non-commercial use. ) ( FREEWARE
d3.0x ) by Fabrizio Di Vittorio
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/ipgrid.zip (5,220 bytes)
Simple implementation of a DbGrid that can show bitmaps and
memos directly in the grid, like InfoPower's DbGrid. It also
includes a small editor (for the bitmap it's only a viewer).
Remember that it's a 0.01 version . The code has some comments.
( ver. 0.01, Well it's free (not public domain), but as usual I
dont give ANY warranties about it, so if your dog bites you -
don't blame me!. But it will be nice, if you improve it or has a
good idea - let me know! ) ( FREEWARE d3.0x ) by Bruno Jessen
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/lexi102.zip (13,161 bytes)
This module contains the component TScanner. It contains the
complete lexical analysis of an ascii file. This is a necessary
basis to realize a parser for any language. The analysis of an
ascii file produces a stream of token. ( ver. 1.02 ) ( FREEWARE
d2.0x & d3.0x ) by Frank Plagge
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/mdlgres.zip (28,839 bytes)
If an app. just needs several entry screens. mdlgres uses
Windows Res file and saves 170K Delphi runtime of Forms,
graphics.. ( ver. 1.01 ) ( FREEWARE d1.0x & d3.0x ) by Mik Tran
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/mlang3.exe (461,571 bytes)
This is a component that makes it easy to <B
STYLE="background:#FFFF00">localize Delphi 2/ 3
applications</B>. Now with a project manager for changes across
all units, spell-checker and more. See the website for more
details, screen shots etc. ( ver. 3.20, Registration is $89,
registered users get source code and all future versions. ) (
SHAREWARE d2.0x & d3.0x & c++b ) by Peter Tiemann
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/mwpaspar.zip (11,174 bytes)
A Pascal Parser. As a demo there is a class browser, which shows
dynamic parsing of classes and their elements. ( ver. 1.8 ) (
FREEWARE d2.0x & d3.0x ) by Martin Waldenburg
http://SunSITE.ICM.edu.pl/delphi/ftp/docs/netinst.zip (24,436 bytes)
Networks & Delphi is a Word for Windows 6.0 document in zipped
format. This Document addresses many BDE issues & installation,
network installation etc. Net file installation, lck files and
data loss due to index corruption, or unsaved data etc ( ver. 2,
Copyright by Amber Computer Systems Inc. No commercial
distribution without the permission of the author. ) ( SHAREWARE
) by Amber Computer Systems Inc.
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/noshape.zip (88,854 bytes)
A button which takes the shape of the embedded bitmap. I used it
a lot in multimedia applications. ( ver. 1.01 ) ( FREEWARE
d1.0x & d3.0x ) by Michael Tran
http://SunSITE.ICM.edu.pl/delphi/ftp/d20free/pageprnt.zip (106,507 bytes)
TPagePrinter is the successor to TLinePrinter. TPagePrinter
supports print preview, embedded graphics, and lots more. Best
of all, it's free and includes all source code and a help file!
( ver. 2.0 ) ( FREEWARE d2.0x & d3.0x & c++b ) by Bill Menees
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/parsers2.zip (57,357 bytes)
TFunctionParser and TComplexParser parse mathematical
functions and evaluate them. About 80 real and 30 complex
predefined functions and operations available! Constants,
functions and variables can be defined by the user in unlimited
( ver. 5.1, Handle nested constructions like g(h(sin(x)+y)-pi);
Price: 20 US$ non-commercial use, 100 US$ commercial use. The
source is not for sale. ) ( SHAREWARE d2.0x ) by Marianne H.
Goeltl-Schuberth
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/parsers3.zip (56,044 bytes)
TFunctionParser and TComplexParser parse mathematical
functions and evaluate them. About 80 real and 30 complex
predefined functions and operations available! Constants,
functions and variables can be defined by the user in unlimited
( ver. 5.1, Handle nested constructions like g(h(sin(x)+y)-pi);
Price: 20 US$ non-commercial use, 100 US$ commercial use. The
source is not for sale. ) ( SHAREWARE d3.0x ) by Marianne H.
Goeltl-Schuberth
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/pat09.zip (46,737 bytes)
Pattern String Engine is intended for lexical analysis of
strings. Is based on technology "pattern matching". Allows to
find all possible variants of comparison of string with a
pattern (exhausting search). ( ver. 0.9, SHAREWARE, 25 US$ w/o
source, 40 US$ with source ) ( SHAREWARE d3.0x ) by Andre
Belokon, Grani Ltd.
http://SunSITE.ICM.edu.pl/delphi/ftp/d10free/pdate.zip (107,679 bytes)
Date field with dd/mm/yyyy format, with up/down buttons and
option to display day. ( ver. 1.01 ) ( FREEWARE d1.0x & d3.0x )
by Mik Tran
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/pgraphic.zip (1,110,842 bytes)
Fast Pixels and Bits properties; PaletteEntries property;
palette optimization; dithering; uses threads; canvas;
selection; rotate; stretch; print; preview open-, save dialogs;
filters; png, jpg, bmp...; transparent controls; wallpaper; VCL;
no D ( ver. 1.0 beta 2, DM 84 (ca. US$ 50) ) ( SHAREWARE d2.0x &
d3.0x ) by Peter Beyersdorf
http://SunSITE.ICM.edu.pl/delphi/ftp/d10share/plussped.zip (195,541 bytes)
PlusSpinEdit is a spin edit comp. useful for entering and
displaying real values in fixed point format. Also useful as an
enhanced spin edit for integer values. Package includes demo
and fully working comp. with message box at startup. ( ver. v3.0,
Source code sent upon registration (US$15). Online registration
available. ) ( SHAREWARE d1.0x & d2.0x & d3.0x ) by
Electro-Concept Mauricie
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/prodelph.zip (182,556 bytes)
ProDelphi 2.0 is 1) a source code profiler.It measures the
execution speed of prodedures and so alows to optize the code.
ProDelphi 2.0 is 2) a debugging tool. It lists the call stack at
the time of exception, even the program runs without ID! ( ver.
2.0, The Shareware version can measure or track until 20
procedures and can be used for an unlimited time. A registered
version is availlable for $50.- or DM75.- and can measure and
track until 10000 procedures. It has also two additional
features. ) ( SHAREWARE d2.0x & d3.0x ) by Helmuth J. H. Adolph
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/sbardem.zip (149,540 bytes)
ShortcutBar for Delphi is a full implementation of the Outlook
Bar as used in MS Outlook. ( ver. 1.1, This version of
ShortcutBar for Delphi is for evaluation purposes only,
registration costs $39 and entitles the user to free updates and
unlimited email support. ) ( SHAREWARE d3.0x ) by Adrian Youlden
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/shlbrws2.zip (92,096 bytes)
ShellBrowser is a Delphi component, which provides an easy
interface to the windows 95/NT shell. For every object it can
show the explorer context menu, the properties page, the correct
icon, etc. Add typical Win95 functions to your exisiting app (
ver. 1.0 beta 3, Shareware $25 ) ( SHAREWARE d2.0x ) by Joachim
Marder
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/shlbrws3.zip (40,731 bytes)
ShellBrowser is a Delphi component, which provides an easy
interface to the windows 95/NT shell. For every object it can
show the explorer context menu, the properties page, the correct
icon, etc. Add typical Win95 functions to your exisiting app (
ver. 1.0 beta 3, Shareware $25 ) ( SHAREWARE d3.0x ) by Joachim
Marder
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/sicomp31.zip (21,266 bytes)
Set of DELPHI components: TsiLabel,TsiLine,
TsiFormStorage(allow to store/restore form state,size and
position in Registry) and TsiLang (allow to develope
multilanguage interface for Your application). ( ver. 3.0.2, no
src., It is freeware, but source costs $20. Please, contact by
E-mail. ) ( FREEWARE d3.0x ) by Shitikov Igor
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/siexp11.zip (24,246 bytes)
This is expert that allows You develope multilanguage
application. This is beta version, to get release version
contact ishitikov(zv)bigfoot.com. Full version costs 100 USD. ( ver.
1.1 beta, Registered version costs 100 USD. ) ( SHAREWARE d3.0x
) by Shitikov Igor
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/skreg01.zip (23,730 bytes)
TSKReg is a Delphi component that can handle most if not all the
details for the registering of your shareware app. You only need
to set a few properties and go. Eases the task of generating a
valid registration code, ini and registry manipulation ( ver.
1.0, Shareware $25 With Source $50 ) ( SHAREWARE d3.0x ) by
Robert Jones
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/socks.zip (13,385 bytes)
Classes for use WinSock in Console applications. ( ver. 1.0, Free
) ( FREEWARE d3.0x ) by Andrij Korud
http://SunSITE.ICM.edu.pl/delphi/ftp/d10share/splashms.zip (27,521 bytes)
Splash Message Component.....Displays a run-time message back to
the user, with an optional progress bar. Also, can act like a
modal window, but can interupt processing, such as reports.
Demo Program included. ( ver. 2, with src. ) ( SHAREWARE d1.0x &
d2.0x & d3.0x ) by Ned M. Hojnacki
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/sqldir.zip (211,457 bytes)
SQLDirect - Delphi components for access to Centura SQLBase
Server(ver. 6, 7) and Oracle Server using 32-bit native call
interface. No distributing and configuring BDE and ODBC. Support
all data-aware components ( ver. 0.7.5, no src. ) ( FREEWARE
d3.0x ) by Yuri Sheino
http://SunSITE.ICM.edu.pl/delphi/ftp/c10free/staticon.zip (20,042 bytes)
The TStatusIcon component is a descendant of TComponent, which
can display an icon in the Window NT 4 and Windows 95 Taskbar
notification area. ( ver. 1.02 ) ( FREEWARE c++b ) by Eddie
Carpenter
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/subc32.zip (252,970 bytes)
Completely customize, modify, and/or add to other vendors
applications with this control. Break the 32-bit process
barriers, TSubclass32 allows you to subclass windows in Win32
that belong to other applications! ( ver. 1.4, $40 standard (no
source), or $60 full registration (with source). Register
online: http://www.shareit.com/programs/100915.htm ) (
SHAREWARE d2.0x & d3.0x ) by Jiries Elaraj
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/tcomm_32.zip (125,352 bytes)
The TCOMM_32 component is designed to add RS232 / COM port
functionality. It is suitable for passing strings to an RS232
Controller and receiving the responses. Ideal for weigh scale
controllers N/C controllers, Bar Code Readers etc. ( ver. 1.4,
Available directly from Amber see http://www.acsi.bc.ca or
http://home.istar.ca/~ambersys ) ( SHAREWARE d2.0x ) by Amber
Computer Systems Inc.
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/treb32.zip (179,894 bytes)
TRebuild - Table Test & Rebuild component. The TRebuild
component tests Paradox database tables, and if any damage is
found, automatically repairs the damaged table. TReb can repair
.VAL feles, uses TUTIL as well as proprietary techniques ( ver.
2.2, Available from http://www.acsi.bc.ca/ or
http://home.istar.ca/~ambersys/ ) ( SHAREWARE d2.0x ) by Amber
Computer Systems Inc.
http://SunSITE.ICM.edu.pl/delphi/ftp/c10free/tzlib.zip (38,977 bytes)
Hi! The TZlib class is a C++Builder wrapper for the 'zlib'
compression library. TZlib can be used to compress or
decompress any of the descendants of TStream such as TFileStream
or TBlobStream. ( ver. beta, This is Freeware. See the TZlib.txt
file for details. ) ( FREEWARE c++b ) by Richard W. Frost
http://SunSITE.ICM.edu.pl/delphi/ftp/d30free/vidle.zip (5,136 bytes)
A descendant of TTimer with added functionality for watching
user activity. Useful for reminders like "no user activity since
5 hours". Demo included. ( ver. V1.01 ) ( FREEWARE d3.0x ) by
Verisoft AG
http://SunSITE.ICM.edu.pl/delphi/ftp/d30share/vrtgrid.zip (136,347 bytes)
Vertical Grid Component trial version that can be bound or
unbound, display data from a table and/or display unbound data
like the Object Inspector. Simple, Combo, Lookups, or Custom Edit
behaviour (Ellipsis) ( ver. Verion 1.04, Registration is $29 and
include source ) ( SHAREWARE d3.0x ) by Hendrik T Steyn
http://SunSITE.ICM.edu.pl/delphi/ftp/d20share/xysys.zip (25,635 bytes)
TXYSystem provides a plot surface with floating-point
coordinate system, aspect ratio management and many graph &
math functions ( ver. 1.2, Free for non-comm. use, src. available
as exchanging components ) ( SHAREWARE d2.0x & d3.0x ) by
Giuseppe Lo Presti
Pridani fieldu do tabulky
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 27.1.1998 07:16:36
SQL a ALTER TABLE ...
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz>
-----Original Message-----
From: Petr Slovak <petr(zv)trilog(tec)cz>
To: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Date: 26. ledna 1998 17:16
Subject: Pridani fieldu do tabulky
Mam tabulku (Paradox 5). Potrebuji zmenit jeji strukturu - pridat novy field
do tabulky. Objekt TTable ma metody AddIndex, DeleteIndex - tim muzu v
pohode
pridavat, mazat, resp. menit indexy tabulky. Nevim ale jak pridat field.
V tabulce uz jsou naplnene data. Je tam i field autoincrement a na tuto
tabulku jsou navazany jine tabulky, takze neprichazi v uvahu moznost
vytvoreni
nove tabulky a prekopirovani obsahu.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Pridani fieldu do tabulky
[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 27.1.1998 07:50:48
Moc zkusenosti s Delphi jeste nemam, ale tento problem jsem jiz resil.
V TTable jsem nenasel nic, co by mi umoznilo pridat pole do tabulky
na miste (jestli to nekdo vi, at to napise)
Zkus ale pouzit TQUERY, treba takto:
with DataModule1.Query1 do
begin
Active := False;
SQL.Clear;
SQL.Add('ALTER TABLE "TABULKA.DB"');
SQL.Add('ADD Pole1 CHARACTER(20)');
execsql;
SQL.clear;
end;
atd, atd......
Asi by sis mel zajistit otevreni v exclusiv modu, osetrit vyjimky apod.
Zdravi te
Ing. Milan Valenta, Horni Slavkov
E-mail: milan.valenta(zv)usa.net
tel. 0168/6989241, 0168/688003
---------------Puvodni zprava: ----------
> Odes�latel: Petr Slovak <petr(zv)trilog(tec)cz>
> Komu: delphi(zv)io.pinknet(tec)cz
> P�edm�t: Pridani fieldu do tabulky
> Datum: 26. ledna 1998 17:20
>
> Mam tabulku (Paradox 5). Potrebuji zmenit jeji strukturu - pridat novy field
> do tabulky. Objekt TTable ma metody AddIndex, DeleteIndex - tim muzu v pohode
> pridavat, mazat, resp. menit indexy tabulky. Nevim ale jak pridat field.
> V tabulce uz jsou naplnene data. Je tam i field autoincrement a na tuto
> tabulku jsou navazany jine tabulky, takze neprichazi v uvahu moznost vytvoreni
> nove tabulky a prekopirovani obsahu.
> ----------------------------------------------------
> Petr Slovak
> Trilog, s.r.o.
> Http: http://www.trilog(tec)cz/
> E-mail: petr(zv)trilog(tec)cz
> Telefon: (+420) 2 / 205 131 06, linka 220, 271
> Mobil: (+420) 603 / 501 642
> Adresa: Vanickova 5/1, Praha 6, 160 00
> ----------------------------------------------------
GlobalAllock
[*] V�t�zslav Gazda������u��n�?��? - 27.1.1998 08:38:20
Myslim, ze delas chybu na radku kde zjistujes velikost potrebnou pro
alokovani pameti:
LSize:=SizeOf(TMyObj); Vrati vzdy 4 bajty (tj. velikost typu pointer)
Nahrad to timto radkem:
LSize:=TMyObj.InstanceSize; Vrati velikost potrebnou pro alokovani pameti
Vita
GlobalAllock
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 27.1.1998 08:47:50
> -----P�vodn� zpr�va-----
> Od: Petr Slovak [SMTP:petr(zv)trilog(tec)cz]
> buffer (Array of Char), ale pri sdileni objektu mam problem. Spis
> pujde o
[T.B.]
U objektu jde o adresovani virtualnich metoda a tak... Ber to tak, ze
TObject z EXace a TObject z DLL jsou ulozeny uplne jinde a ze kdyz v DLL
uzivas objekt z EXace, tak jeho tabulka virtalnich metod ukazuje nekam
do toho EXace, tzn. z pohledu toho DLL uplne do luftu...
Wokna jsou objektovej op. system :)) ale to neznamena, ze se tam daj
sdilet objekty... :)))
Na praci s objektama takhle napric bych doporucil prozkoumat COM/DCOM
technologie...
Tomas
---------------------------------------
Tomas Burger
MIUS v.o.s.
mailto:Tomas.Burger(zv)mius(tec)cz
http://www.teplice-city(tec)cz/
http://staff.mius(tec)cz/~tomasb/
icq:3908757
---------------------------------------
"Index is out of Date"
[*] Petr Kristan <epos(zv)pce.fairnet(tec)cz> - 27.1.1998 09:38:22
> Zdravim vsechny!
>
> Pri bezne praci s paradox 5 tabulkami v Delphi 1.0 se mi nekolikrat
> stalo, a zda se ze bez jakekoliv priciny, ze mi po pokusu o otevreni
> tabulky bylo sdeleno toto: "Index is out of Date". Prosim Vas vsechny o
> radu, co stim, jak to osetrit, pripadne jak programove rekonstruovat
> indexy. Dekuji za vsechny rady.
> Pavel Rechberg
Asi memate nastaveny sekundarni indexy jako maintained.
A maitained mohou byt myslim jen kdyz jsou na tabulce primarni
indexy.
Petr
--
EPOS PRO s.r.o., Bozeny Nemcove 23 24, 530 02 Pardubice
tel./fax: (040)6335223-4, e-mail: epos(zv)pce.fairnet(tec)cz
Pridani fieldu do tabulky
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 27.1.1998 10:14:36
Petr Slovak wrote:
> Mam tabulku (Paradox 5). Potrebuji zmenit jeji strukturu - pridat
> novy field
> do tabulky. Objekt TTable ma metody AddIndex, DeleteIndex - tim muzu
Query.SQL.Clear;
Query.SQL.Add('alter table tabulka add blaf integer');
Query.ExecSQL;
Query musi byt takto samozrejme pripojeno k databazi.
Viz Local SQL Help.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Paradox - tabulky a jejich poskozovani
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 27.1.1998 10:14:37
tomas.mazurek(zv)vitkovice(tec)cz wrote:
[...]
> Jinak ja nabizim aplikace pro kontrolu a obnovu poskozenych DB. Jak
> pro 16 tak pro 32 bitu... Samozrejme, ze je to ex-post. Co se ale da
> jineho delat... Mam pocit, ze cesky a americky Borland to moc
> nepali...
Bodejt by palil, kdyz Paradox uz drahnou dobu Borlandum nepatri.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Service-pack 3 pro WinNT
[*] Martin Dupal <vision(zv)visionsw(tec)cz> - 27.1.1998 11:11:43
Jiz jednou tady byl dotaz na to, jak odstranit potize s
cestinou v Delphi po nainstalovani Service packu 3 do WinNT4CZ.
Mohu pozadat znovu o odpoved ?
Martin
+----------------------------------+
| Ing. Martin Dupal |
| adresa: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: ++420/68/5313130 |
| fax.: ++420/68/5313132 |
| http://www.visionsw(tec)cz |
| mailto:vision(zv)visionsw(tec)cz |
+----------------------------------+keyboard (fwd)
[*] Liane BBS <bbs(zv)edulib(tec)cz> - 27.1.1998 11:38:51
*** Forwarded file follows ***
Posted By: Aldar (posledni mohykan) on 'CZprogram'
Title: Re: keyboard
Date: Tue Jan 27 00:04:49 1998
> Kdysi jsem podobny problem resil a pro me' potreby to bylo uspokojive.
> Napsal jsem k tomu i clanek, ale protoze je delsi, tak jsem ho nedal sem,
> ale jen na mou stranku (http://atrey.karlin.mff.cuni(tec)cz/~rk). Je tam i
> priklad v pascalu.
Je to dobre udelane, prehledne, ale chybi tomu pri obsluze klavesnice mala
drobnost (umistit na konec preruseni klavesnice):
asm
in al,61h { zjisti hodn na portu (8255A-5 Port B) }
mov ah,al
or al,80h { nastav povoleni cinnosti klavesnice }
{ "keyboard acknowledge" = 1 }
out 61h,al { zapis to }
mov al,ah
out 61h,al { obnov puv. hodnotu }
end;
Zajisti ti to, ze nezahltis buffer klavesnice a ta ti pak prestane reagovat...
(jinak: dosahnes toho, ze pak pri behu programu treba dochazi k neocekavanemu
zatuhavani klaves)
> vecne nespokojeny rk
> -----------------------------------------------------------------------------
> Where do foxes give Good night?
Aldar
SOS ! Vypocet Velikonoc ?
[*] SBD Stavba� - OT� <stavbar(zv)comp(tec)cz> - 27.1.1998 11:53:01
[P��loha v souboru: vcard.vcf]
Toto je v�ced�ln� zpr�va ve tvaru MIME.
Pokud nekdo vite, jak vypocitat datum Velikonocniho pondeli
v zadanem roce, napiste mi prosim recept na adresu
STAVBAR(zv)COMP.CZ (nejsem prihlasen do konference)
Dekuju, Honza
Service-pack 3 pro WinNT
[*] Marian Klaco <klaco(zv)mtf.stuba.sk> - 27.1.1998 12:56:55
Treba nastavit international na Slovak (Czech) a nastavit ho ako default
v systeme. po restartovani pocitaca je treba potom cez to prehnat servis
pak 3. Potom by mala chodit diakritika nielen v delphi ale aj v MS
office atd.
Martin Dupal wrote:
>
> Jiz jednou tady byl dotaz na to, jak odstranit potize s
> cestinou v Delphi po nainstalovani Service packu 3 do WinNT4CZ.
> Mohu pozadat znovu o odpoved ?
>
> Martin
>
> +----------------------------------+
> | Ing. Martin Dupal |
> | adresa: Geislerova 6 |
> | Olomouc 2, 772 00 |
> | Czech republic |
> | tel.: ++420/68/5313130 |
> | fax.: ++420/68/5313132 |
> | http://www.visionsw(tec)cz |
> | mailto:vision(zv)visionsw(tec)cz |
> +----------------------------------+
--
Ing. Marian Klaco
mail: mailto:klaco(zv)mtf.stuba.sk
STU MtF Trnava
Katedra Aplikovanej Informatiky a Automatizacie
Hajdoczyho 1
Trnava 917 24
Tel.: 0805/27455
Fax : 0805/27454
Paradox - BDE
[*] tomas.mazurek(zv)vitkovice(tec)cz - 27.1.1998 13:19:03
Dobry den,
samozrejme, ze SW balik Paradox for Windows koupil od Borlandu Corel,
lec problem poskozovani tabulek je problem databazoveho jadra BDE a
to je problem Borlandu. Co ja vim i podle licencnich podminek one
smlouvy mezi Borlandem a Corelem, za dalsi vyvoj jadra BDE stale
odpovida firma Borland. Blizsi by rekl asi Jirka Burian od ceskeho
Borlandu, kdyby se ovsem z konference neodhlasil...
Tolik na upresneni...
Tomas
SOS ! Vypocet Velikonoc ?
[*] Pavel Kral <kral(zv)afx(tec)cz> - 27.1.1998 13:26:55
Me taky, prosim.
diky Pavel
-----Original Message-----
From: SBD Stavba� - OT� <stavbar(zv)comp(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 27. ledna 1998 12:06
Subject: SOS ! Vypocet Velikonoc ?>Pokud nekdo vite, jak vypocitat datum Velikonocniho pondeli
>v zadanem roce, napiste mi prosim recept na adresu
>STAVBAR(zv)COMP.CZ (nejsem prihlasen do konference)
>
>Dekuju, Honza
"Index is out of Date"
[*] Vit Malecek <malecek(zv)melzer(tec)cz> - 27.1.1998 13:28:44
Sam jsem se s timto problemem nekolikrat setkal. Zpocatku jsem take nechapal, ale potom se ukazalo, ze BDE nekecalo. Slo velmi zhruba o toto. Pod jednim aliasem jsem plnil datovy soubor daty (index se pochopitelne aktualizoval). Potom jsem "becem" provadel kopirovani modifikovanzch souboru do jineho aliasu. Pri pokusu o otevreni tabulky v tomto cilovem aliasu se objevila zminovana hlaska. Problem byl v tom, ze chyby byla v davkovem souboru. Indexy se nekopirovaly a potom skutecne index byl ponekud starsi nez odpovidajici data. Nevim zda jde v tvem pripade o tento pripad, ale proverit by se to melo. Pokud index. soubor zrusis (vymazez), problem zmizi. Ovsem pak je treba znovu vystavet index, ze?!
Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech Republic
e-mail: malecek(zv)melzer(tec)cz
tlf./phone number : +420-(0)508-330301, +420-(0)508-330302, privat : +420-(0)508-27141
fax number : +420-(0)508-330302
-----P�vodn� zpr�va-----
Od: Pavel Rechberg [SMTP:rec10um(zv)fpf.slu(tec)cz]
Odesl�no: 26. ledna 1998 18:53
Komu: DELPHI Distribution List
P�edm�t: "Index is out of Date"
Zdravim vsechny!
Pri bezne praci s paradox 5 tabulkami v Delphi 1.0 se mi nekolikrat
stalo, a zda se ze bez jakekoliv priciny, ze mi po pokusu o otevreni
tabulky bylo sdeleno toto: "Index is out of Date". Prosim Vas vsechny o
radu, co stim, jak to osetrit, pripadne jak programove rekonstruovat
indexy. Dekuji za vsechny rady.
Pavel Rechberg Moznosti kopirovani souboru
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 27.1.1998 14:17:06
Nejosvedcenejsi je vzdycky to kratke a jednoduche.
V adresari Delphi\Demos\Doc\Filmanex je unit Fmxutils, ktery obsahuje
proceduru CopyFile a jine uzitecne veci.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Jiri Szopa wrote:
>
> Jaka je nejosvedcenejsi metoda kopirovani souboru? (V Lloyd's Help File-u jsem nasel
> priklady pomoci TFileStream, TMemoryStream, cteni a zapisy memory bloku, nebo i s collbackovskou funkci pro progress barr)
> -------------------------------------------
> Ing. Jiri Szopa
> tel.: +420 659 713393
> fax.: +420 659 713392
> email: prosys(zv)grendel(tec)cz
DBGrid a scrollbar
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 27.1.1998 14:39:02
Nevim jestli to probehlo touhle konferenci a nebo jsem to videl nekde
jinde, ale nemuzu tu radu nikde znovu najit. Nevite nekdo jak v DBGridu
jednoduse odstranit vertikalni scrollbar??????
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
GlobalAllock
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 27.1.1998 15:08:41
> U objektu jde o adresovani virtualnich metoda a tak... Ber to tak, ze
> TObject z EXace a TObject z DLL jsou ulozeny uplne jinde a ze kdyz v DLL
> uzivas objekt z EXace, tak jeho tabulka virtalnich metod ukazuje nekam
> do toho EXace, tzn. z pohledu toho DLL uplne do luftu...
> Wokna jsou objektovej op. system :)) ale to neznamena, ze se tam daj
> sdilet objekty... :)))
> Na praci s objektama takhle napric bych doporucil prozkoumat COM/DCOM
> technologie...
>
Diky. Samozrejme mas pravdu. Tohle me proste vubec nenapadlo. Nahradil jsem
objekty recordem (protoze mi slo jen o prenos hodnot a ne metod) a vsechno
krasne chodilo. Druha chyba v mem prikladu byla (jak spravne upozornil Vita)
ta, ze jsem spatne urcoval velikost. V LSize jsem mel samozrejme vzdy 4,
protoze jsem se snazil zjistit velikost pointeru a ne velikost objektu.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Scrollbar on the form
[*] Richard Vdovjak <richo(zv)utcru.sk> - 27.1.1998 15:26:40
Pekny den.
Nerobil nahodou niekto vlastnu obsluhu scrollbarov, kt. su na forme?
Ak ano, hodte mi do posty nejaky maly priklad, pls.
(nechce sa mi moc hrabat v zdrojakoch z unitu forms, najma
ak to uz niekto riesil :)
vdaka
Richard Vdovjak
-----------------------------------------------------------------
mailto: richo(zv)utcru.sk or vdovjak(zv)usa.net
homepage: http://www.utcru.sk/~richo/
ICQ: 3283282
Scrollbar on the form
[*] Jiri Binder <binderj(zv)dec59.ruk.cuni(tec)cz> - 27.1.1998 15:26:39
> From: "Richard Vdovjak" <richo(zv)utcru.sk>
> Nerobil nahodou niekto vlastnu obsluhu scrollbarov, kt. su na forme?
> Ak ano, hodte mi do posty nejaky maly priklad, pls.
Myslim ze muze poslouzit napr. unit HEXDUMP
z dema RESXPLOR, ktere je soucasti D3 (D2??)
Jiri Binder
StringList a Button
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 27.1.1998 15:43:20
> Zdravim vsechny,
> vznikl mi takovy drobny problem. Mam na jednom formulari TStringList a
> nekolik TButtons. V TStringList je zakazana editace (Options -
> ..Editing = False). Button maji klavesove zkratky (podtrzene pismeno).
> Editaci TStringListu mam osetrenou programove. Jestlize ted mam focus
> na StringListu a neco tam pisu a zmacknu pritom pismeno, ktere ma
> klavesovou zkratku na nektere tlacitko, tak se vyvola udalost toho
> tlacitka, coz je dost divne. Upozornuji, ze jen pri stisku pismena (ne
> pres alt). Pokud je editace v StringListu povolena, tak je vse v
> poradku. Zkusil jsem v udalosti OnKeyPress a OnKeyDown StringListu
> nastavit Key=0 (resp. #0), ale nepomaha to. Nevite cim by mohlo byt
> toto chovani zpusobeno. Nemuzu tak mit klavesove zkratky na tlacitcich,
> prip. jinde, a pritom aby mi to dobre fungovalo.
> Da se to lehce podle tohoto popisu nasimulovat.
TStringList je nevizualni objekt. Takze predpokladam, ze ve formulari jsi mel
vlozenou nejakou jinou komponentu - nejspis TStringGrid? Zkousel jsem to tak,
jak jsi popisoval - umistil jsem do formulare TStringGrid a nejake buttony s
klavesovymi zkratkami. Opravdu se to chova, jak jsi popisoval. Tak jsem
experimentoval dale a dosel jsem az k formulari, ve kterem jsem mel jen
buttony a nic vic. Stisknuti klavesy bez altu vyvolalo click na tlacitku. Ona
je to vlastne standardni vec Windows - kdyz stisknes klavesu a ve formulari
neni editovatelna komponenta, tak se to bere tak, jako by byla stisknuta
klavesa+alt (otazkou je, jestli je to dobre nebo spatne, ale je to tak). Chyba
Delphi je ale v tom, ze tuto udalost neodchyti v udalosti OnKeyPress. OnKeyDown
je ale vyvolana a tedy muzes vse osetrit (mozna??? - nezkousel jsem) na teto
urovni.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Service-pack 3 pro WinNT
[*] Ivo Liska <lisak(zv)mendelu(tec)cz> - 27.1.1998 15:46:49
>Treba nastavit international na Slovak (Czech) a nastavit ho ako default
>v systeme. po restartovani pocitaca je treba potom cez to prehnat servis
>pak 3. Potom by mala chodit diakritika nielen v delphi ale aj v MS
>office atd.
Toto jsem provedl 2x a bohuzel problem s fonty pretrvava.
Ivo Liska
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ivo Liska Dept. of Informatics
WebMaster of Pef MZLU Mendel University of Agriculture & Forestry
Zemedelska 1, Brno 61300
mailto:lisak(zv)mendelu(tec)cz Czech Republic, Central Europe
StringList a Button
[*] roman.palarcik(zv)spt(tec)cz - 27.1.98 16:08:04
>> Zdravim vsechny,
>> vznikl mi takovy drobny problem. Mam na jednom formulari TStringList a
>> nekolik TButtons. V TStringList je zakazana editace (Options -
>> ..Editing = False). Button maji klavesove zkratky (podtrzene pismeno).
>> Editaci TStringListu mam osetrenou programove. Jestlize ted mam focus
>> na StringListu a neco tam pisu a zmacknu pritom pismeno, ktere ma
>> klavesovou zkratku na nektere tlacitko, tak se vyvola udalost toho
>> tlacitka, coz je dost divne. Upozornuji, ze jen pri stisku pismena (ne
>> pres alt). Pokud je editace v StringListu povolena, tak je vse v
>> poradku. Zkusil jsem v udalosti OnKeyPress a OnKeyDown StringListu
>> nastavit Key=0 (resp. #0), ale nepomaha to. Nevite cim by mohlo byt
>> toto chovani zpusobeno. Nemuzu tak mit klavesove zkratky na tlacitcich,
>> prip. jinde, a pritom aby mi to dobre fungovalo.
>> Da se to lehce podle tohoto popisu nasimulovat.
>TStringList je nevizualni objekt. Takze predpokladam, ze ve formulari jsi mel
>vlozenou nejakou jinou komponentu - nejspis TStringGrid? Zkousel jsem to tak,
>jak jsi popisoval - umistil jsem do formulare TStringGrid a nejake buttony s
>klavesovymi zkratkami. Opravdu se to chova, jak jsi popisoval. Tak jsem
>experimentoval dale a dosel jsem az k formulari, ve kterem jsem mel jen
>buttony a nic vic. Stisknuti klavesy bez altu vyvolalo click na tlacitku. Ona
>je to vlastne standardni vec Windows - kdyz stisknes klavesu a ve formulari
>neni editovatelna komponenta, tak se to bere tak, jako by byla stisknuta
>klavesa+alt (otazkou je, jestli je to dobre nebo spatne, ale je to
tak). Chyba
>Delphi je ale v tom, ze tuto udalost neodchyti v udalosti OnKeyPress.
OnKeyDown
>je ale vyvolana a tedy muzes vse osetrit (mozna??? - nezkousel jsem) na teto
>urovni.
>----------------------------------------------------
>Petr Slovak
>Trilog, s.r.o.
>Http: http://www.trilog(tec)cz/
>E-mail: petr(zv)trilog(tec)cz
>Telefon: (+420) 2 / 205 131 06, linka 220, 271
>Mobil: (+420) 603 / 501 642
>Adresa: Vanickova 5/1, Praha 6, 160 00
>----------------------------------------------------
Omlouvam se, spravne melo byt v nadpisu a vsude v textu skutecne
TStringGrid, nechapu jak jsem se mohl splest. Jinak diky za vyzkouseni,
aspon vim ze nedelam nekde chybu. S tim standardnim chovanim windows je
to asi pravda, ale je to dost blbe, protoze jsem to zkousel osetrit v
OnKeyPress i OnKeyDown, kde jsem nuloval Key, ale stejne to nepomohlo.
Jeste by mozna slo dat ve formulari KeyPreview=True a osetrit ty
udalosti tam, ale nevim nevim... (musim vyzkouset)
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
Delphi GUI -> Python
[*] Petr Snajdr <snajdr(zv)pvt(tec)net> - 27.1.1998 16:40:31
Dobry den,
rad bych se zeptal zda nekdo mate zkusenosti s provazanim
aplikace v jazyce Python s GUI, ktere je vytvarene v Delphi
viz. http://www.hps1.demon.co.uk/users/andy/pyvb/index.htm
Spojeni techto dvou veci mi prijde naprosto idelani,ale
nejsen si jist jak dobre je implementovano nebo pripadne
jak je nejlepe implmentovat sam.
--
S pozdravem
Petr Snajdr
SOS ! Vypocet Velikonoc ?
[*] Padev�t Michal <Michal.Padevet(zv)mfcr(tec)cz> - 28.1.1998 07:12:37
I me by to zajimalo.
>----------
>Od: Pavel Kral[SMTP:kral(zv)afx(tec)cz]
>Odesl�no: 27.I 1998 13:26
>Komu: DELPHI Distribution List
>P�edm�t: Re: SOS ! Vypocet Velikonoc ?
>
>Mne taky, prosim.
>
>diky Pavel
>
>-----Original Message-----
>From: SBD Stavba� - OT� <stavbar(zv)comp(tec)cz>
>To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
>Date: 27. ledna 1998 12:06
>Subject: SOS ! Vypocet Velikonoc ?
>
>>Pokud nekdo vite, jak vypocitat datum Velikonocniho pondeli
>>v zadanem roce, napiste mi prosim recept na adresu
>>STAVBAR(zv)COMP.CZ (nejsem prihlasen do konference)
>>
>>Dekuju, Honza
>
>"Index is out of Date"
[*] Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz> - 28.1.1998 07:25:14
Zdravim,
> > Zdravim vsechny!
> >
> > Pri bezne praci s paradox 5 tabulkami v Delphi 1.0 se mi nekolikrat
> > stalo, a zda se ze bez jakekoliv priciny, ze mi po pokusu o otevreni
> > tabulky bylo sdeleno toto: "Index is out of Date". Prosim Vas vsechny o
>
> Asi memate nastaveny sekundarni indexy jako maintained.
> A maitained mohou byt myslim jen kdyz jsou na tabulce primarni
> indexy.
Me se to stalo na tabulce, ktera mela pouze primarni index! Nakonec
se mi to povedlo po nekolika pokusech obnovit tak, ze jsem smazal
prislusny .px soubor, v Database desktopu jsem udelal
restruktualizaci tabulky, znovu zadal pole pro primarni index (key
fields), udelal save, a tim se mi znovu vytvoril prislusny .px a vse
bylo ok.
Proc k te chybe doslo ale nevim. Tabulka byla na sitovem disku
(Novell)
Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
Spravce informacniho systemu
Jesenicka nemocnice
Lipovska 103, 790 32 Jesenik
----------------------------
PGP podporovano a vitano
Vypocet velikonoc
[*] roman.palarcik(zv)spt(tec)cz - 28.1.98 07:43:22
[P��loha v souboru: WINMAIL.DAT]
Ahoj,
nedelam sice ve Foxpro, ale myslim ze by to mohlo byt asi takhle.
Upozornuju, ze jsem to ale nezkousel, takze za to nerucim. Az to nekde
vyzkousi, tak se ozvete. Mozna bude treba upravit formatovani funkce StrToDate.
function Velikonoce(year: Integer): TDate;
var
a, b, c, d, e: Integer;
east: TDate;
begin
if year<100 then
year:=year+1900;
a:=year mod 19;
b:=year mod 4;
c:=year mod 7;
d:=(19*a+24) mod 30;
e:=(5+2*b+4*c+6*d) mod 7+(d+22);
if e<=31
east:=StrToDate(IntToStr(e)+'/3/'+IntToStr(year));
else begin
if e-31>=26 then
e:=e-31
else
e:=19;
east:=StrToDate(IntToStr(e)+'/4/'+IntToStr(year));
end;
Result:=east;
end;
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
----------
Od: Tomas.Burger(zv)mius(tec)cz; Tomas.Burger(zv)mius(tec)cz
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: FW: Vypocet velikonoc
Datum: 28. leden 1998 8:04
Muj mailbox obsahuje jen serii dotazu a jednu (tuto) odpoved - bohuzel
ve foxpro...
Takze to chce nejakeho foxkare, ktery to k obecnemu prospechu preklopi
do delphi a postne to sem v nejakem lidskem programovacim jazyku... :)
Tomas
ps. Je to bohuzel zrovna to obdobi, ktery jsem jeste nenaimportoval do
archivu na http://delphi.mius(tec)cz/ :(
> -----P�vodn� zpr�va-----
> Od: V�t Maleeek [SMTP:malecek(zv)melzer(tec)cz]
> Odesl�no: 5. z��� 1997 12:53
> Komu: 'Konference Delphi'
> P�edm�t: Vypocet velikonoc
>
> Bohuzel jsem donedavna pouzival foxpro, proto mam vypocet velikonoc ve
> Foxpro. Ale i to muze jiste pomoci. Az to prevedes do Delphi, muzes mi
> to poslat zpet. Neni treba spechat, budu to potrebovat az posleze.
>
> * funkce vraci datum velikonocni nedele
> (c)1992 *
> * - funkce se vola s 1 parametrem napr.takto: *
> * ? dteast(1972)
> *
> * - vyznam: *
> * nazev v vyznam
> *
> * parametru prikladu parametru *
> * ------------------------------------------------------------
> *
> * year 1972 rok zkoumaneho data velikonoc *
>
> * *
> * - funkce se vola s parametrem cislo roku typu numeric, je-li
> *
> * cislo < 100, predpoklada se dvacate stoleti *
> * - funkce vraci datum velikonocni nedele typu date, podporuje
> *
> * nastaveni zobrazeni datumu v okamziku volani *
>
> *****************************************************************
>
> parameters year
> private a, b, c, d, e, east, typdat, stol, echo
> if m.year < 100
> year = m.year + 1900
> endif
> stol = sys(2001,'century')
> set century on
> a = mod(m.year,19)
> b = mod(m.year,4)
> c = mod(m.year,7)
> d = mod(19*m.a + 24,30)
> e = mod(5 + 2*m.b + 4*m.c + 6*m.d,7) + m.d + 22
> typdat = sys(2001,'date')
> set date american
> if m.e <= 31
> east = ctod('03/' + str(m.e,2) + '/' + str(m.year,4))
> else
> e = iif(m.e - 31 >= 26,19,m.e - 31)
> east = ctod('04/' + str(m.e,2) + '/' + str(m.year,4))
> endif
> set date &typdat
> set century &stol
> return m.east
>
> Vit Malecek, Czech Republic
> Phone number: 0508 27141, 0508 330 301, 0508 330 303
> malecek(zv)melzer(tec)cz
>SMTP
[*] Ji�� Lebru�ka - 28.1.1998 07:47:32
Pokousim se napsat jednoduchy rozesilac zprav SMS a k tomu bych potreboval
vyuzit komponentu SMTP z D3. Bohuzel, zrejme mam neco spatne nastavene.
Pokud se tim jiz nekdo zabyval, poslete mi, prosim kousek zdrojaku.
Dekuji J. Lebru�ka
e-mail: lebruska(zv)ujep(tec)cz
SMS: jiri.lebruska(zv)sms.paegas(tec)cz
SNMP
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 28.1.1998 07:52:26
Nevite nekdo o komponente(free), navodu ci jine rade, jak napsat
aplikaci v D2 nebo D3, ktera by se prostrednictvim SNMP divala do MIB
UPS a plivala by potrebe informace? Popis MIB od nasi UPS mam.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Paradox - BDE
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 28.1.1998 07:53:53
> odpovida firma Borland. Blizsi by rekl asi Jirka Burian od ceskeho
> Borlandu, kdyby se ovsem z konference neodhlasil...
[T.B.]
A neskoncil u Borlandu... :(
Tomas
SMTP
[*] Nykl, Pavel <nykl(zv)satoya(tec)cz> - 28.1.1998 07:54:30
Specifikuj problem. Zdrojaky na obsluhu takovehle komponenty mohou byt dost
komplikovane.
Doporucuji se podivat do prikladu v demos\internet\simpmail
-----------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O.Box 44,169 00 Praha 69,Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
-----------------------------------------------------------------
-----Original Message-----
From: Ji�� Lebru�ka <lebruska(zv)ujep(tec)cz>
To: Konference <delphi(zv)io.pinknet(tec)cz>
Date: 28. ledna 1998 7:57
Subject: SMTP
>Pokousim se napsat jednoduchy rozesilac zprav SMS a k tomu bych potreboval
>vyuzit komponentu SMTP z D3. Bohuzel, zrejme mam neco spatne nastavene.
>Pokud se tim jiz nekdo zabyval, poslete mi, prosim kousek zdrojaku.
>
>Dekuji J. Lebru�ka
>e-mail: lebruska(zv)ujep(tec)cz
>SMS: jiri.lebruska(zv)sms.paegas(tec)cz
>Vypocet velikonoc
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 28.1.1998 08:04:40
Muj mailbox obsahuje jen serii dotazu a jednu (tuto) odpoved - bohuzel
ve foxpro...
Takze to chce nejakeho foxkare, ktery to k obecnemu prospechu preklopi
do delphi a postne to sem v nejakem lidskem programovacim jazyku... :)
Tomas
ps. Je to bohuzel zrovna to obdobi, ktery jsem jeste nenaimportoval do
archivu na http://delphi.mius(tec)cz/ :(
> -----P�vodn� zpr�va-----
> Od: V�t Maleeek [SMTP:malecek(zv)melzer(tec)cz]
> Odesl�no: 5. z��� 1997 12:53
> Komu: 'Konference Delphi'
> P�edm�t: Vypocet velikonoc
>
> Bohuzel jsem donedavna pouzival foxpro, proto mam vypocet velikonoc ve
> Foxpro. Ale i to muze jiste pomoci. Az to prevedes do Delphi, muzes mi
> to poslat zpet. Neni treba spechat, budu to potrebovat az posleze.
>
> * funkce vraci datum velikonocni nedele
> (c)1992 *
> * - funkce se vola s 1 parametrem napr.takto: *
> * ? dteast(1972)
> *
> * - vyznam: *
> * nazev v vyznam
> *
> * parametru prikladu parametru *
> * ------------------------------------------------------------
> *
> * year 1972 rok zkoumaneho data velikonoc *
>
> *_______________________________________________________________*
> * - funkce se vola s parametrem cislo roku typu numeric, je-li
> *
> * cislo < 100, predpoklada se dvacate stoleti *
> * - funkce vraci datum velikonocni nedele typu date, podporuje
> *
> * nastaveni zobrazeni datumu v okamziku volani *
>
> *****************************************************************
>
> parameters year
> private a, b, c, d, e, east, typdat, stol, echo
> if m.year < 100
> year = m.year + 1900
> endif
> stol = sys(2001,'century')
> set century on
> a = mod(m.year,19)
> b = mod(m.year,4)
> c = mod(m.year,7)
> d = mod(19*m.a + 24,30)
> e = mod(5 + 2*m.b + 4*m.c + 6*m.d,7) + m.d + 22
> typdat = sys(2001,'date')
> set date american
> if m.e <= 31
> east = ctod('03/' + str(m.e,2) + '/' + str(m.year,4))
> else
> e = iif(m.e - 31 >= 26,19,m.e - 31)
> east = ctod('04/' + str(m.e,2) + '/' + str(m.year,4))
> endif
> set date &typdat
> set century &stol
> return m.east
>
> Vit Malecek, Czech Republic
> Phone number: 0508 27141, 0508 330 301, 0508 330 303
> malecek(zv)melzer(tec)cz
> SOS ! Vypocet Velikonoc ?
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 28.1.1998 08:26:24
Velikonocni pondeli je prvni pondeli po prvnim jarnim uplnku. Uplnek
se opakuje kazdach 28 dni. Takze staci vzit kalendar, podivat se na
jakekoliv datum uplnku a uz si muzu dopredu odpocitat Velikonoce
v libovolnem roce.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
>
> I me by to zajimalo.
>
> >----------
> >Od: Pavel Kral[SMTP:kral(zv)afx(tec)cz]
> >Odesl�no: 27.I 1998 13:26
> >Komu: DELPHI Distribution List
> >P�edm�t: Re: SOS ! Vypocet Velikonoc ?
> >
> >Mne taky, prosim.
> >
> >diky Pavel
> >
> >-----Original Message-----
> >From: SBD Stavba� - OT� <stavbar(zv)comp(tec)cz>
> >To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> >Date: 27. ledna 1998 12:06
> >Subject: SOS ! Vypocet Velikonoc ?
> >
> >
> >>Pokud nekdo vite, jak vypocitat datum Velikonocniho pondeli
> >>v zadanem roce, napiste mi prosim recept na adresu
> >>STAVBAR(zv)COMP.CZ (nejsem prihlasen do konference)
> >>
> >>Dekuju, Honza
> >
> >SOS ! Vypocet Velikonoc ?
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 28.1.1998 08:48:07
> Pokud nekdo vite, jak vypocitat datum Velikonocniho pondeli
> v zadanem roce, napiste mi prosim recept na adresu
> STAVBAR(zv)COMP.CZ (nejsem prihlasen do konference)
Gaussuv vzorec.
Tom
Vypocet velikonoc
[*] zzntabor(zv)mbox.vol(tec)cz - 28.1.1998 09:10:40
Burger Tom� wrote:
>
> Muj mailbox obsahuje jen serii dotazu a jednu (tuto) odpoved - bohuzel
> ve foxpro...
> Takze to chce nejakeho foxkare, ktery to k obecnemu prospechu preklopi
> do delphi a postne to sem v nejakem lidskem programovacim jazyku... :)
> Tomas
Ano je to pekna funce, ale na predelani do delphi nemam chut.
Jen pro poradek. Vite jak se vubec pocita velikonocni nedele?
Jestli si dobre vzpominam tak je to prvni nedele po prvnim jarnim
uplnku, tj. napr letos:vezmu v kalendari 21/3, najdu uplnek-nedele 12/4
a pak budou velikonoce tj. nedele 12/4.
(1997: 21/3...uplnek-pondeli 24/3...velikonoce-nedele 30/3
1996: 21/3...uplnek-ctvrtek 4/4....velikonoce-nedele 7/4)
Ondra
-------------------------------
Ondrej Cilek, spravce site
zzntabor(zv)mbox.vol(tec)cz
-------------------------------
SOS ! Vypocet Velikonoc ?
[*] zzntabor(zv)mbox.vol(tec)cz - 28.1.1998 09:13:44
Tomas Holan wrote:
>
> > Pokud nekdo vite, jak vypocitat datum Velikonocniho pondeli
> > v zadanem roce, napiste mi prosim recept na adresu
> > STAVBAR(zv)COMP.CZ (nejsem prihlasen do konference)
>
> Gaussuv vzorec.
> Tom
Jestli si dobre vzpominam tak je to prvni nedele po prvnim jarnim
uplnku, tj. napr letos:vezmu v kalendari 21/3, najdu uplnek-nedele 12/4
a pak budou velikonoce tj. nedele 12/4.
(1997: 21/3...uplnek-pondeli 24/3...velikonoce-nedele 30/3
1996: 21/3...uplnek-ctvrtek 4/4....velikonoce-nedele 7/4)
Ondra
-------------------------------
Ondrej Cilek, spravce site
zzntabor(zv)mbox.vol(tec)cz
-------------------------------
"Index is out of Date"
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - an 1998 09:45:31 -0700
Mozna jsem trosku mimo misu, ale mam takovy dojem ze:
a) Maintained index jde nastavit pouze u DBASE a FOXPRO tabulek
b) Pri chybe index out of date pomuze pack tabulek.
Veskere informace zde podane jsou bez zaruky, ale za pokus
to stoji, myslim.
Jinak, neberte si to osobne (nevim, co vas vede k pouziti souborovych
databazi), od dob, kdy se s Delphi od verze Professional distribuuje
lokalni Interbase, pouzivam ji, a problemy s Paradoxem a DBASE zustaly
jen neprijemnou vzpominkou. Pokud mohu doporucit, prejdete na nejakou
SQL databazi.
S pozdravy a pranim vseho dobreho
Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
____________________________ Oddelovac odpovedi ________________________________
Re: "Index is out of Date"
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 28.1.1998 0:17
> Zdravim vsechny!
>
> Pri bezne praci s paradox 5 tabulkami v Delphi 1.0 se mi nekolikrat
> stalo, a zda se ze bez jakekoliv priciny, ze mi po pokusu o otevreni
> tabulky bylo sdeleno toto: "Index is out of Date". Prosim Vas vsechny o
> radu, co stim, jak to osetrit, pripadne jak programove rekonstruovat
> indexy. Dekuji za vsechny rady.
> Pavel Rechberg
Asi memate nastaveny sekundarni indexy jako maintained.
A maitained mohou byt myslim jen kdyz jsou na tabulce primarni
indexy.
Petr
--
EPOS PRO s.r.o., Bozeny Nemcove 23 24, 530 02 Pardubice
tel./fax: (040)6335223-4, e-mail: epos(zv)pce.fairnet(tec)cz
"Index is out of Date"
[*] Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz> - 28.1.1998 11:37:24
> Jinak, neberte si to osobne (nevim, co vas vede k pouziti souborovych
> databazi), od dob, kdy se s Delphi od verze Professional distribuuje
> lokalni Interbase, pouzivam ji, a problemy s Paradoxem a DBASE zustaly
> jen neprijemnou vzpominkou. Pokud mohu doporucit, prejdete na nejakou
> SQL databazi.
>
Jo, rad bych, ale kdyz potrebuju udelat sem tam program pouze pro
vnitrni potrebu, vetsinou jednorazovy, tak je podle me zbytecne
investovat ne zrovna malo penez do verze professional a vystacim si s
verzi standard, ktera je podstatne levnejsi. Samozrejme neobsahuje
Interbase.
A druhy duvod je, ze potrebuju zpracovavat databaze vytvorene jinym
programem, do ktereho nemam sanci zasahovat.
Samozrejme kdybych mel delat programy na zakazku, tak si koupim
Professional, nebo C/S a vykaslu se na paradox.
Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
Spravce informacniho systemu
Jesenicka nemocnice
Lipovska 103, 790 32 Jesenik
----------------------------
PGP podporovano a vitano
Vypocet velikonoc
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 28.1.1998 11:50:04
----------
Prepsal jsem to z narychle foxky a vyskousel na 97,98,99 snad to bude dobre i na jine roky:
function EasterSunday(year: Integer): TDateTime;
var
a,b,c,d,f,g : Real;
e: Integer;
ods, ds : Char;
osdf, sdf : string;
begin
ods := DateSeparator;
osdf := ShortDateFormat;
ds:='.';
sdf:='MM.dd.yyyy';
DateSeparator:=ds;
ShortDateFormat:=sdf;
if year < 100 then year := year + 1900;
a := year mod 19;
b := year mod 4;
c := year mod 7;
f := 19*a + 24;
d := f - (Int(f/30) * 30);
g := (5 + 2*b + 4*c + 6*d);
e := Trunc((g - (Int(g/7) * 7)) + d + 22);
if e <= 31 then
Result := StrToDateTime('03.' + IntToStr(e) + '.' + IntToStr(year)+ ' 00:00:00')
else
begin
if e - 31 >= 26 then e:=19 else e:= e - 31;
Result := StrToDateTime('04.' + IntToStr(e) + '.' + IntToStr(year)+ ' 00:00:00')
end;
DateSeparator:=ods;
ShortDateFormat:=osdf;
end;
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: prosys(zv)grendel(tec)cz
SNMP
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 28.1.1998 14:02:12
>Nevite nekdo o komponente(free), navodu ci jine rade, jak napsat
>aplikaci v D2 nebo D3, ktera by se prostrednictvim SNMP divala do MIB
>UPS a plivala by potrebe informace? Popis MIB od nasi UPS mam.
Smarja, je-li nekde link na komponentu komunikujic pomoci SNMP tak sem
snim.
(jinak protokol je popsan v RFC ale po prvnim cteni jsem jaksi
nepochopil oc bezi ....:-)
BDE flush problem - konecne reseni?
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 28.1.1998 14:15:23
[P��loha v souboru: Instalation notes on NET.zip]
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Docela nahodou jsem si stahnul ZIP jehoz obsahem je zajimavy dokument jedne
kanadske firmy,
tykajici se problemu s databazovymi tabulkami. Ukazuje se tam, jak ve WinNT
nastavit (zrusit)
opozdene zapisovani na disk.
Je tam toho vic, takze si to prectete. Doufam, ze zmlknou ti, kteri si
mysli, ze na poryti zahradky
je nejlepsi pracovni nastroj poradny SQL bagr. Ryc to zvladne taky, panove.
Martin
nedopil(zv)geocities(tec)cz
jsem doma na: http://www.geocities.com/Athens/Olympus/5260
Vypocet velikonoc
[*] Unites <unites(zv)telecom(tec)cz> - 28.1.1998 15:48:47
Zdravim
Protoze jsem troch Foxkar tak prelozit tenhle program do Pascalu nebyl
problem. vysledek meho usili predkladam, je sice v turbo pascalu, ale po
prepsani do delphi funguje taky (jde hlan� o tu funkci ne?).
program velikonoce;
function vel(rok:integer):string;
var s,dat,r:string;
e:integer;
begin
if rok<100 then rok:=rok+1900;
e:=((5+2*(rok mod 4)+4*(rok mod 7)+6*((19*(rok mod 19)+24) mod 30))
mod 7)+((19*(rok mod 19)+24) mod 30)+22;
str(rok:4,r);
if e<=31 then begin
str(e:2,dat);
s:='03/'+dat+'/'+r;
end else begin
if (e-31)>=26 then e:=19 else e:=e-31;
str(e:2,dat);
s:='04/'+dat+'/'+r;
end;
vel:=s;
end;
begin
writeln(vel(1998));
end.
Hlavne mi vsichni nedekujte, a nesnazte se pochopit ten vzorec, nejde to!
Martin Frohlich
----------
Odes�latel: Burger Tom� <Tomas.Burger(zv)mius(tec)cz>
Komu: delphi(zv)pinknet. cz (el. adresa) <delphi(zv)pinknet(tec)cz>
P�edm�t: FW: Vypocet velikonoc
Datum: 28. ledna 1998 8:04
Muj mailbox obsahuje jen serii dotazu a jednu (tuto) odpoved - bohuzel
ve foxpro...
Takze to chce nejakeho foxkare, ktery to k obecnemu prospechu preklopi
do delphi a postne to sem v nejakem lidskem programovacim jazyku... :)
Tomas
ps. Je to bohuzel zrovna to obdobi, ktery jsem jeste nenaimportoval do
archivu na http://delphi.mius(tec)cz/ :(
> -----P�vodn� zpr�va-----
> Od: V�t Maleeek [SMTP:malecek(zv)melzer(tec)cz]
> Odesl�no: 5. z��� 1997 12:53
> Komu: 'Konference Delphi'
> P�edm�t: Vypocet velikonoc
>
> Bohuzel jsem donedavna pouzival foxpro, proto mam vypocet velikonoc ve
> Foxpro. Ale i to muze jiste pomoci. Az to prevedes do Delphi, muzes mi
> to poslat zpet. Neni treba spechat, budu to potrebovat az posleze.
>
> * funkce vraci datum velikonocni nedele
> (c)1992 *
> * - funkce se vola s 1 parametrem napr.takto: *
> * ? dteast(1972)
> *
> * - vyznam: *
> * nazev v vyznam
> *
> * parametru prikladu parametru *
> * ------------------------------------------------------------
> *
> * year 1972 rok zkoumaneho data velikonoc *
>
> *_______________________________________________________________*
> * - funkce se vola s parametrem cislo roku typu numeric, je-li
> *
> * cislo < 100, predpoklada se dvacate stoleti *
> * - funkce vraci datum velikonocni nedele typu date, podporuje
> *
> * nastaveni zobrazeni datumu v okamziku volani *
>
> *****************************************************************
>
> parameters year
> private a, b, c, d, e, east, typdat, stol, echo
> if m.year < 100
> year = m.year + 1900
> endif
> stol = sys(2001,'century')
> set century on
> a = mod(m.year,19)
> b = mod(m.year,4)
> c = mod(m.year,7)
> d = mod(19*m.a + 24,30)
> e = mod(5 + 2*m.b + 4*m.c + 6*m.d,7) + m.d + 22
> typdat = sys(2001,'date')
> set date american
> if m.e <= 31
> east = ctod('03/' + str(m.e,2) + '/' + str(m.year,4))
> else
> e = iif(m.e - 31 >= 26,19,m.e - 31)
> east = ctod('04/' + str(m.e,2) + '/' + str(m.year,4))
> endif
> set date &typdat
> set century &stol
> return m.east
>
> Vit Malecek, Czech Republic
> Phone number: 0508 27141, 0508 330 301, 0508 330 303
> malecek(zv)melzer(tec)cz
>
----------
Interbase - substring
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 28.1.1998 16:01:54
Ahoj,
nema cirou nahodou Interbase nejakou funkci na ziskani substringu ?
Manual i help o tom taktne mlci, ale mam pocit, ze tam neco takoveho
bylo ... ?
Jake jsou vubec mozne operace s retezci v Interbase SQL ?
-----------------------------------------------------
David Vodnansky - database analyst
Allianz pojistovna a.s.
tel. +420-2-24405215 fax.24405555
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
Interbase - substring
[*] Urx Lubom�r <Lubos.Urx(zv)mius(tec)cz> - 28.1.1998 16:59:58
Substring sice popisuji v helpu, ale moje prakticke pokusy
uvizly na mrtvem bode.
Operace se stringy jsem resil pomoci UDF.
--------------------------------
Lubomir Urx
MIUS Teplice, v.o.s.
lubos.urx(zv)mius(tec)cz
> ----------
> Od: Vodnansky David[SMTP:Vodnansky(zv)allianz(tec)cz]
> Odesl�no: 28. ledna 1998 16:01
> Komu: 'DELPHI Distribution List'
> P�edm�t: Interbase - substring
>
> Ahoj,
>
> nema cirou nahodou Interbase nejakou funkci na ziskani substringu ?
> Manual i help o tom taktne mlci, ale mam pocit, ze tam neco takoveho
> bylo ... ?
>
> Jake jsou vubec mozne operace s retezci v Interbase SQL ?
>
> -----------------------------------------------------
> David Vodnansky - database analyst
> Allianz pojistovna a.s.
> tel. +420-2-24405215 fax.24405555
> <mailto: vodnansky(zv)allianz(tec)cz>
> -----------------------------------------------------
>
> Delphi GUI -> Python
[*] Pavel Koutny <koutny(zv)netlab.sk> - 29.1.1998 12:26:46
Na DSP som videl k tomu nejake komponenty...
-----Original Message-----
From: Petr Snajdr <snajdr(zv)pvt.net>
To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Date: 27. janu�r 1998 18:23
Subject: Delphi GUI -> Python
>Dobry den,
> rad bych se zeptal zda nekdo mate zkusenosti s provazanim
>aplikace v jazyce Python s GUI, ktere je vytvarene v Delphi
>viz. http://www.hps1.demon.co.uk/users/andy/pyvb/index.htm
>
>Spojeni techto dvou veci mi prijde naprosto idelani,ale
>nejsen si jist jak dobre je implementovano nebo pripadne
>jak je nejlepe implmentovat sam.
>
>
>--
>
>S pozdravem
> Petr Snajdr
Decimal separator
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 29.1.1998 13:57:29
DDV,
nevite jak v D2 zjistit, zda oddelovacem des. mist je tecka nebo
carka?
Diky za napady, pomerne to specha.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Decimal separator
[*] Richard Vdovjak <vdovjak(zv)usa(tec)net> - 29.1.1998 14:42:49
>nevite jak v D2 zjistit, zda oddelovacem des. mist je tecka nebo
>carka?
>Diky za napady, pomerne to specha.
v D3 je unite SysUtils
declarovanych niekolko premennych a medzi nimi
aj:
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char; //***********
var CurrencyDecimals: Byte;
....
snad to bude aj v D2 (nemam po ruke).
Richard Vdovjak.
--------------------------------------------
mailto: vdovjak(zv)usa.net or richo(zv)frru.utcru.sk
homepage: http://www.utcru.sk/~richo/
ICQ UIN: 3283282
Decimal separator
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 29.1.1998 14:55:53
> From: "Ales Zeleny" <zelenya(zv)mlp(tec)cz>
> Organization: Municipal Library of Prague
> To: delphi(zv)pinknet(tec)cz
> Date: Thu, 29 Jan 1998 13:57:29 +0100
> Subject: Decimal separator
> Priority: normal
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> DDV,
> nevite jak v D2 zjistit, zda oddelovacem des. mist je tecka nebo
> carka?
>
> Diky za napady, pomerne to specha.
>
A kde to chces zjistit? Protoze si myslim ze standartne je to tecka.
Specifikuj to blize.
Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Decimal separator
[*] Nykl, Pavel <nykl(zv)satoya(tec)cz> - 29.1.1998 14:55:18
Hledal jsem v registracni databazi a v sekci Control panel je jen souhrna
polozka Locale. Zadnou polozku souvisejici s decimal separatorem jsem tam
nenasel.
-----------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O.Box 44,169 00 Praha 69,Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
-----------------------------------------------------------------
-----Original Message-----
From: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
To: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Date: 29. ledna 1998 14:39
Subject: Re: Decimal separator
>> From: "Ales Zeleny" <zelenya(zv)mlp(tec)cz>
>> Organization: Municipal Library of Prague
>> To: delphi(zv)pinknet(tec)cz
>> Date: Thu, 29 Jan 1998 13:57:29 +0100
>> Subject: Decimal separator
>> Priority: normal
>> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
>
>> DDV,
>> nevite jak v D2 zjistit, zda oddelovacem des. mist je tecka nebo
>> carka?
>>
>> Diky za napady, pomerne to specha.
>>
>
>
>A kde to chces zjistit? Protoze si myslim ze standartne je to tecka.
>Specifikuj to blize.
>Pavel
>
>-----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
>-----------------------------------------------------------
>HELP! Komponenta TUpdateSQL a local SQL ( Paradox)
[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 29.1.1998 15:02:17
Vazeni,
pri programovani v delphi 2.0 jsem narazil na nasledujici problem:
pri pouziti komponent TQUERY a TUPDATESQL ve spojeni s lokalni
databazi PARADOX se pri aktualizaci nebo vlozeni zaznamu,
ktery obsahuje pole typu BLOB (memo text nebo grafika), objevuje
chybove hlaseni EDatabaseError
"Field 'MEMOtext' is of an unsupported type".
Popis:
PARADOX TABLE:
vytvorena: sql.add('Create table "AAA.DB"');
sql.add('( Klic autoinc ,');
sql.add('Pole1 Numeric(10.3),');
sql.add('MEMOtext blob(1,1) ,');
sql.add('MEMOObrazek blob(1,5),');
sql.add('primary key (klic))');
TQUERY.SQL: select * from "AAA.DB" ORDER BY POLE1
TUPDATESQL.MODIFYSQL:
UPDATE "AAA.DB" set
Pole1 = :Pole1,
MEMOtext = :MEMOtext,
MEMOObrazek = :MEMOObrazek
where
Klic = :OLD_Klic
TUPDATESQL.INSERTSQL:
insert into "AAA.DB"
( Pole1, MEMOtext, MEMOObrazek)
values
( :Pole1, :MEMOtext, :MEMOObrazek)
Pokud mate nekdo zkusenosti s timto problemem, poradte, prosim.
( z duvodu trideni pomoci ORDER BY v SQL
musim mit napojenu komponentu
TUPDATESQL, abych mohl zaznamy pridavat a aktualizovat - nebo snad ne???
Bez komponenty TUPDATESQL oprava a vkladani funguji, ale nemohu mit
v SQL ORDER BY)
Diky,
Ing. Milan VALENTA,
Horni Slavkov,
e-mail: milan.valenta(zv)usa.net
Decimal separator
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 29.1.1998 15:17:23
> A kde to chces zjistit? Protoze si myslim ze standartne je to tecka.
> Specifikuj to blize.
V Control panel International settings se nastavuje oddelovac des.
mist. Konkretne jde o pouziti ve funkci pri prevodu StrToFloat().
Potrebuji vedet, zda do str mam davat tecku nebo carku a kdyz to v
CPL ma nastavovatko, tak jsem si rikla, ze by mela byt tez fce ve
Win, ktera rekne, zda des. oddel je tecka ci carka.
Diky za odpoved.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Decimal separator
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 29.1.1998 15:22:34
> >nevite jak v D2 zjistit, zda oddelovacem des. mist je tecka nebo
> >carka?
>
> >Diky za napady, pomerne to specha.
>
>
> v D3 je unite SysUtils
> declarovanych niekolko premennych a medzi nimi
> aj:
> var NegCurrFormat: Byte;
> var ThousandSeparator: Char;
> var DecimalSeparator: Char; //***********
> var CurrencyDecimals: Byte;
Diky !!!!!!!!!!!!!!!!!!!+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Decimal separator
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 29.1.1998 15:28:33
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database
Engine\Settings\SYSTEM\FORMATS\NUMBER\DECIMALSEPARATOR
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz>
>> From: "Ales Zeleny" <zelenya(zv)mlp(tec)cz>
>> Organization: Municipal Library of Prague
>> To: delphi(zv)pinknet(tec)cz
>> Date: Thu, 29 Jan 1998 13:57:29 +0100
>> Subject: Decimal separator
>> Priority: normal
>> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
>
>> DDV,
>> nevite jak v D2 zjistit, zda oddelovacem des. mist je tecka nebo
>> carka?
>>
>> Diky za napady, pomerne to specha.
>>
>
>
>A kde to chces zjistit? Protoze si myslim ze standartne je to tecka.
>Specifikuj to blize.
>Pavel
>
>-----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
>-----------------------------------------------------------
>Decimal separator
[*] Roman Fara <fara(zv)c3(tec)cz> - 29.1.1998 15:34:58
SysUtils - DecimalSeparator
Roman Fara
Simicek Pavel wrote:
> > From: "Ales Zeleny" <zelenya(zv)mlp(tec)cz>
> > Organization: Municipal Library of Prague
> > To: delphi(zv)pinknet(tec)cz
> > Date: Thu, 29 Jan 1998 13:57:29 +0100
> > Subject: Decimal separator
> > Priority: normal
> > Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
>
> > DDV,
> > nevite jak v D2 zjistit, zda oddelovacem des. mist je tecka nebo
> > carka?
> >
> > Diky za napady, pomerne to specha.
> >
>
> A kde to chces zjistit? Protoze si myslim ze standartne je to tecka.
> Specifikuj to blize.
> Pavel
>
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------
TImageList problem
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 29.1.1998 16:21:54
Chci pro svou komponentu odvozenou od TGraphic control pouzit 8 bitove
obrazky z TImageList. Mam ale problem pri ukladani obrazku a naslednem
kresleni pomoci TImageList.Draw v modu Truecolor nebo Hicolor je vse v
poradku ale v modu 256 barev TImageList nezachovava paletu barev
jednotlivych obrazku. Nevite nekdo co s tim nebo neznate nejaky jiny
kontejner na obrazky kde by byli obrazky uchovavany jako DIB tedy
nezavisle na zarizeni.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
Decimal separator
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 29.1.1998 16:47:20
>> A kde to chces zjistit? Protoze si myslim ze standartne je to tecka.
>> Specifikuj to blize.
>V Control panel International settings se nastavuje oddelovac des.
>mist. Konkretne jde o pouziti ve funkci pri prevodu StrToFloat().
>Potrebuji vedet, zda do str mam davat tecku nebo carku a kdyz to v
>CPL ma nastavovatko, tak jsem si rikla, ze by mela byt tez fce ve
>Win, ktera rekne, zda des. oddel je tecka ci carka.
Existuje globalni promenna DecimalSeparator (a taky ThousandSeparator) -
viz Napoveda k FloatToStrF. Tuto promennou lze nejen cist ale i menit.
Mela by obsahovat znak, ktery je v konkretnim prostredi Windows pouzit
jako oddelovac
Neni zac
D. Toman
Decimal separator
[*] FULE Lubomir <FULE(zv)RASAX.SK> - 29.1.1998 17:36:26
Pouzi namiesto StrToFloat() proceduru Val(), ta vzdy pouziva tecku bez
ohladu na
International settings.
S pozdravom Lubo.>
>V Control panel International settings se nastavuje oddelovac des.
>mist. Konkretne jde o pouziti ve funkci pri prevodu StrToFloat().
>
>Potrebuji vedet, zda do str mam davat tecku nebo carku a kdyz to v
>CPL ma nastavovatko, tak jsem si rikla, ze by mela byt tez fce ve
>Win, ktera rekne, zda des. oddel je tecka ci carka.
>
>Diky za odpoved.
>
>+------------------------+ +---------------------------+
>|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
>|Mestska knihovna v Praze| |Municipal Library of Prague|
>|Marianske nam. 1 | |Marianske nam. 1 |
>|115 72 | |115 72 |
>| | | |
>|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
>|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
>|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
>+------------------------+ +---------------------------+
>
>Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
>
>Multitasking means that applications can crash simultaneously.Decimal separator
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 29.1.1998 18:08:41
> From: "Ales Zeleny" <zelenya(zv)mlp(tec)cz>
> Organization: Municipal Library of Prague
> To: delphi(zv)io.pinknet(tec)cz
> Date: Thu, 29 Jan 1998 15:17:23 +0100
> Subject: Re: Decimal separator
> Priority: normal
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> > A kde to chces zjistit? Protoze si myslim ze standartne je to tecka.
> > Specifikuj to blize.
>
> V Control panel International settings se nastavuje oddelovac des.
> mist. Konkretne jde o pouziti ve funkci pri prevodu StrToFloat().
>
> Potrebuji vedet, zda do str mam davat tecku nebo carku a kdyz to v
> CPL ma nastavovatko, tak jsem si rikla, ze by mela byt tez fce ve
> Win, ktera rekne, zda des. oddel je tecka ci carka.
>
> Diky za odpoved.
>
>
Tak tu funkci teda nevim.
A delalo ti to nejake problemy kdyz si nastavil jako oddelovac carku
a pak do retezce zadal tecku? Ja jenom jestli to uz nemaji osetrene
uvnitr?
Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
HELP! Komponenta TUpdateSQL a local SQL ( Paradox)
[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 30.1.1998 07:12:08
Vazeni,
pri programovani v delphi 2.0 jsem narazil na nasledujici problem:
pri pouziti komponent TQUERY a TUPDATESQL ve spojeni s lokalni
databazi PARADOX se pri aktualizaci nebo vlozeni zaznamu,
ktery obsahuje pole typu BLOB (memo text nebo grafika), objevuje
chybove hlaseni EDatabaseError
"Field 'MEMOtext' is of an unsupported type".
Popis:
PARADOX TABLE:
vytvorena: sql.add('Create table "AAA.DB"');
sql.add('( Klic autoinc ,');
sql.add('Pole1 Numeric(10.3),');
sql.add('MEMOtext blob(1,1) ,');
sql.add('MEMOObrazek blob(1,5),');
sql.add('primary key (klic))');
TQUERY.SQL: select * from "AAA.DB" ORDER BY POLE1
TUPDATESQL.MODIFYSQL:
UPDATE "AAA.DB" set
Pole1 = :Pole1,
MEMOtext = :MEMOtext,
MEMOObrazek = :MEMOObrazek
where
Klic = :OLD_Klic
TUPDATESQL.INSERTSQL:
insert into "AAA.DB"
( Pole1, MEMOtext, MEMOObrazek)
values
( :Pole1, :MEMOtext, :MEMOObrazek)
Pokud mate nekdo zkusenosti s timto problemem, poradte, prosim.
( z duvodu trideni pomoci ORDER BY v SQL
musim mit napojenu komponentu
TUPDATESQL, abych mohl zaznamy pridavat a aktualizovat - nebo snad ne???
Bez komponenty TUPDATESQL oprava a vkladani funguji, ale nemohu mit
v SQL ORDER BY)
Diky,
Ing. Milan VALENTA,
Horni Slavkov,
e-mail: milan.valenta(zv)usa.net
----------
Decimal separator
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 30.1.1998 07:50:42
> Tak tu funkci teda nevim.
> A delalo ti to nejake problemy kdyz si nastavil jako oddelovac carku
> a pak do retezce zadal tecku? Ja jenom jestli to uz nemaji osetrene
> uvnitr?
V D2 nemaji.
Diky vsem, problem jsem pres Sysutils DecimalSeparator vyresil.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.DBGrid Columns editor
[*] Jozef Strn�dik <strnadik(zv)mrp.sk> - 30.1.1998 11:28:53
Ahojte vsetci,
prosim o radu, modifikujem komponent TDBGrid a potrebujem previest zasah do
DBGrid Columns editoru, neviem vsak najst jeho zdrojaky. Pomoze mi niekto ?
strnadik(zv)mrp.sk
driver na soubory FoxPro
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 30.1.1998 13:19:04
Na webu www.borland(tec)cz le�� v novink�ch popis:
FoxPro nativn� ovlada� pro k�dov�n� Kamenick�ch (ozna�en� 895 ve FoxPro) a
k�dov�n� Windows 1250 je nyn� k dispozici pro Delphi 3. Nov� driver umo��uje
pracovat v Delphi 3 s komprimovan�mi indexov�mi soubory (.cdx) a t��d�n� p�esn�
odpov�d� t��d�n� pou��van�mu ve FoxPro. Tento ovlada� bude sou��st� nov� verze
Borland Database Engine 4.5. Zat�m neexistuj� instala�n� programy pro tuto
verzi, proto Borland s.r.o. zat�m poskytuje tento ovlada� a jeho instalaci
pouze v r�mci placen� technick� podpory pro Delphi. Z�kazn�ci, kte�� ji� maj�
sjedn�nu technickou podporu, obdr�� tento ovlada� na vy��d�n� zdarma.
Vzhledem k tomu, �e nevlastn�m technickou podporu, ale tady na s�ti mi bydl�
prastar� Foxkov� datab�ze, kter� bych se r�d zbavil, r�d bych jej n�kde sehnal.
Nem�te to n�kdo nebo nev�te kde to le��?=======================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDo 2:423/35
=======================================driver na soubory FoxPro
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 30.1.1998 14:44:08
Vcera jsem stahnul Update na BDE 4.51 primo z www.borland(tec)cz. To
nepomuze???
Martin Kubecka
Richard Valny wrote:
>Tento ovlada� bude sou��st� nov� verze
> Borland Database Engine 4.5. Zat�m neexistuj� instala�n� programy pro tuto
> verzi, proto Borland s.r.o. zat�m poskytuje tento ovlada� a jeho instalaci
> pouze v r�mci placen� technick� podpory pro Delphi.Update na BDE 4.51 (was Re: driver na soubory FoxP
[*] Zdenek PRANTL <prantl(zv)ptc.pvt(tec)cz> - 30.1.1998 15:47:36
> Vcera jsem stahnul Update na BDE 4.51 primo z www.borland(tec)cz. To
> nepomuze???
Chtel bych si jej take stahnout, ale nejak jej tam nemohu nalezt. Prosim o link.
Dik.
Zdenek Prantl