Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Delphi 6 versus Delphi 5 (pro porovnani)
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 23.10.2001 11:40:13
> chtel bych se asi hloupe pozeptat, jaky je rozdil mezi D5 a D6 napriklad v
> IDE (odhlednu od technologii, ktere jsou v D6 nove, napr. na internet -
Prehledny (lec avsak anglicky) souhrn okopirovany od Borlandu
jsem ulozil sem:
http://www.uschovna(tec)cz/vydej.php3/Uschovna3bd53989b539b
Kokes
NMHTTP a cache
[*] Chytil <chytil4(zv)kn.vutbr(tec)cz> - 23.10.2001 11:42:46
Mate, prosim, nekdo napad, jak zabranit NMHTTP v nacteni stranky z cache?
Uz jsem zkousel napsat do hlavicky vsechno mozne, ale stale mi nacita
stranku z cache a ne ze serveru.
Odkazuji se pomoci NMHTTP.GET('server/stranka?parametr1')
a pri dalsim pokusu NMHTTP.GET('server/stranka?parametry2') mi vrati puvodni
stranku. Nemate nekdo napad, co s tim?
Server vraci v hlavicce:
...
Cache-Control: no-cache, must-revalidate
Expires: Sun, 14 Oct 2001 23:12:49 MET DST
Pragma: no-cache
...
... a presto se priste stranka zase nacte z cache...
Diik. T.
D5Ent
W98SE
Brutalni ukoneni formulare
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.10.2001 11:43:38
> > Misto Free zkuste pouzit Release.
> Odes�latel: Kakacka Pavol <kakacka(zv)proca(tec)cz>
> K comu by to bolo dobre? Release iba cez POSTmessage zavola Free!
To zalezi na tom, jak je to napsano.
Free znici formular okamzite.
Nejake navazne akce, ktere s existenci formulare pocitaji, mohou pak zpusobit ten "Access violation".
Reakce na message poslanou pres PostMessage se provede teprve az "aplikace bude v klidu", az "bude uklizeno".
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Brutalni ukoneni formulare
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.10.2001 11:46:40
Kdy to tak ctu, tak bych napsal asi takto:
1. formular nenicit primo, ani FREE, ani Release
2. nastavit mu jen priznak (vlastni metoda terminate)
3. Po dobehnuti vypoctu si zavolat release, nikdy nepouzivat na form Free (alespon ne sam na sebe)
4. vypocet by si mel testovat priznak ukonceni
5.Thread je samozrejme elegantnejsi, ale take o poznani slozitejsi (ne na napsani, ale na zkusenosti)
Slavek
> K comu by to bolo dobre? Release iba cez POSTmessage zavola Free!
>
> Kakacka Pavol
> KasiX(zv)atlas(tec)cz
>
> IB ForcedWrites
[*] Lauko Stefan <laukosw(zv)naex.sk> - 23.10.2001 12:02:26
Ahoj all,
po vytvoreni databazy chcem nastavit vlastnost ForcedWrites na Enabled. Ked
je databaza na lokalnom PC (client/server) tak to funguje. Ked je databaza
na inom PC - nefunguje. Ako mam dosiahnut funkcnost?
Alebo som nieco prehliadol v dokumentacii...
Pouzivam Firebird WI-T0.9.4.41.
Asi takto sa to snazim urobit:
procedure TGlobals.CreateDB(ServerName,DatabaseName);
begin
...
IBDatabase1.CreateDatabase;
IBDatabase1.Connected:=False;
try
SetForcedWrites(ServerName,DatabaseName);
{ nastane chyba: system nemoze najst zadanu cestu...}
{Subor aj cesta tam ale je, neviem ci berie do uvahy ServerName}
finally
IBDatabase1.Connected:=True;
end;
end;
procedure TGlobals.SetForcedWrites(S1,S2:String);
begin
with IBConfigService1 do
begin
ServerName := S1;
LoginPrompt := False;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
DatabaseName := S2;
Active := True;
try
SetAsyncMode(False);
while IsServiceRunning do Sleep(5);
finally
Active := False;
end;
end;
end;
Vopred dakujem za pomoc.
Lauko
Odchytavanie cinnosti
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.10.2001 12:04:33
> Ako sa da programovo odchytit cinnost vybranej IP adresy? Tzn. ze
mnozstvo
> dat (v kb) , ktore idu z alebo do daneho pocitaca aby sa
spocitavali. Daju
> sa takto odchytit osobytne len data ktore idu z PC alebo ktore idu
do PC z
> danou IP adresou?
> Popripade z ktoreho pocitaca (z ktorej IP adresy) boli udaje
vyslane?
> Ale asi by som chcel privela co?
Pokud jde o Windowsi pak je problem. Neexistuje zpusob jak cist
informace o ojecnych TCP/IP paketech jdoucich na dany stroj jinak nez
pouzit nejaky driver, ktery se napichne mezi sitovku a dalsi vrstvy
(na Win2000 je mozne za urcitych okolnosti pouzit jednodussi filter
driver).
Resit se to da - existuji drivery dostupne zdarma (i se zdrojakem),
ktere jsou vyuzivane ruznymi packet sniffery. Cili pouzit tento driver
napsat aplikaci, ktera jej bude pouzivat (dostane packlet , vyhodnoti
jej).
D> Toman
NMHTTP a cache
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 23.10.2001 12:24:15
Ahoj,
Vypada to, ze tuhle stranku vrati tvoje proxy. Ja v takovem pripade
pridavam do url jeste jeden parametr &app=2343455323, coz je nejake
random cislo, ktere musi byt pri kazdem pozadavku na stranku jine. Pak
by to melo fungovat normalne.
Ales
-----Original Message-----
From: Chytil [mailto:chytil4(zv)kn.vutbr(tec)cz]
Mate, prosim, nekdo napad, jak zabranit NMHTTP v nacteni stranky z
cache?
Uz jsem zkousel napsat do hlavicky vsechno mozne, ale stale mi nacita
stranku z cache a ne ze serveru.
Odkazuji se pomoci NMHTTP.GET('server/stranka?parametr1')
a pri dalsim pokusu NMHTTP.GET('server/stranka?parametry2') mi vrati
puvodni stranku. Nemate nekdo napad, co s tim?
Server vraci v hlavicce:
...
Cache-Control: no-cache, must-revalidate
Expires: Sun, 14 Oct 2001 23:12:49 MET DST
Pragma: no-cache
...
... a presto se priste stranka zase nacte z cache...Odchytavanie cinnosti
[*] <delphi(zv)zvlauto.sk> - 23.10.2001 12:31:57
Myslim Win, ale chcem odchytavat vsetko, to znamena aj tie data co idu z
Linuxu, resp. do linuxu, ved to ide po tej istej kabelazi.
Moja predstava je asi taka, ze program by bol rezidentny a odchytaval by
nejake konkretne IP adresy a tie by kontroloval.
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of David Janko
Sent: Tuesday, October 23, 2001 11:14 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Odchytavanie cinnosti
Dne �t 23. ��jen 2001 09:38 jste napsal(a):
> Ako sa da programovo odchytit cinnost vybranej IP adresy? Tzn. ze mnozstvo
> dat (v kb) , ktore idu z alebo do daneho pocitaca aby sa spocitavali. Daju
> sa takto odchytit osobytne len data ktore idu z PC alebo ktore idu do PC z
> danou IP adresou?
> Popripade z ktoreho pocitaca (z ktorej IP adresy) boli udaje vyslane?
> Ale asi by som chcel privela co?
>
> Vdaka za kazdy napad.
Nenapsali jste jestli jde o linux nebo win - jestli o linux, tak bych mohl
trochu poradit, ale vy asi myslite win - jestli ne, tak se ozvete ...
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Odchytavanie cinnosti
[*] <delphi(zv)zvlauto.sk> - 23.10.2001 12:40:43
Aby som upresnil, ide mi o to aby ta aplikacia fungovala pod Win2000.
Ostatne win ma nezaujimaju(zatial)
Ake drivery existuju, kde ich stiahnem? Nieco blizsie....
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Dalibor Toman
Sent: Tuesday, October 23, 2001 12:05 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Odchytavanie cinnosti
> Ako sa da programovo odchytit cinnost vybranej IP adresy? Tzn. ze
mnozstvo
> dat (v kb) , ktore idu z alebo do daneho pocitaca aby sa
spocitavali. Daju
> sa takto odchytit osobytne len data ktore idu z PC alebo ktore idu
do PC z
> danou IP adresou?
> Popripade z ktoreho pocitaca (z ktorej IP adresy) boli udaje
vyslane?
> Ale asi by som chcel privela co?
Pokud jde o Windowsi pak je problem. Neexistuje zpusob jak cist
informace o ojecnych TCP/IP paketech jdoucich na dany stroj jinak nez
pouzit nejaky driver, ktery se napichne mezi sitovku a dalsi vrstvy
(na Win2000 je mozne za urcitych okolnosti pouzit jednodussi filter
driver).
Resit se to da - existuji drivery dostupne zdarma (i se zdrojakem),
ktere jsou vyuzivane ruznymi packet sniffery. Cili pouzit tento driver
napsat aplikaci, ktera jej bude pouzivat (dostane packlet , vyhodnoti
jej).
D> Toman
Zacatek skupiny v Sinea
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 23.10.2001 13:08:05
Dne 22.��jen�2001, <delphi-l(zv)clexpert(tec)cz> napsal:
> > Takze dojde i k prehazeni radku? Tj. nejdriv se vytisknout vsechny
> > "M" pak "P" atd. nebo kdyz dam dalsi radek "M", tak bude dalsi
> > skupina podle "M"?
>
> O zadnem prehazeni radku jsem nepsal.
> Sinea neprovedi zadne prehazovani radku.
> Radky jsou zpracovavany jednopruchodove tak,
> jak prichazi z DataSource.
No, ale z toho vypisu to nebylo poznat :-)
> > Mozna bych, mohl dat hodnotu "text" ze zahlavi skupiny jako novou
> > polozku ke kazdemu radku z teto skupiny a radky udavajici zahlavi
> > odfiltrovat. Pak bych do zahlavi v sestave napsal tuto hodnotu
> > "text".
>
> Toto je spravny postup.
> Nevim, proc davas zahlavi skupin na samostatne radky,
> ktere potom jako radky vubec nechces tisknout.
Ja je chcu tisknout, ale v jiny barve... a nechtel jsem tam sam davat
ty sumare, kdyz to muze udelat Sinea... ale jak to tak sleduju, tak
bude asi jednodussi pouzit paintbox :-)
Roman
______________________________________________________________________
Vyberte Vas "Nejoblibenejsi automobil roku 2002 v CR"
a hlasujte na adrese http://www.autoroku(tec)cz. Hlavni vyhra 600 000 Kc!!!Chybejici nastaveni Code Completion v Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.10.2001 13:12:47
Ahoj,
pokud vam take vadi, ze Code Completion v Delphi 6 automaticky vklada zavorky
nebo by jste chteli mit jine barvy jednotlivych polozek, tak tady najdete
jednoduchy nastroj kterym to lze nastavit:
Utility To Enable Missing Delphi 6 Code Completion Feature
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16787
Petr Vones
Interbase6 & float field
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.10.2001 13:22:44
Problem muze byt zpusoben pri "normalizaci cisla", jelikoz se cisla
normalizuji v FPU od <0.5 do 1), je divne, ze se to stalo, stou 0.5 mate pravdu,
ale ja si to nedovedu jinak vysvetlit.
V delphi se to ulozi spravne (presnych 0.5), otazkou je jak se k tomu chova FB.
Slavek
Domnivam se, ze cislo 0.5 ma konecny dvojkovy rozvoj a to 2 na -1 (1/2). Tj.
toto cislo by se melo zobrazovat i ve float presne. Nekonecny rozvoj ma
napr. cislo 0.1.
Se zbytkem vysvetleni prace s cisly float plne souhlasim.
Pavel
Zmena aktivniho prvku
[*] Roman Kunovsk� <delphi-konference(zv)bcpraha(tec)com> - 23.10.2001 13:24:39
Bohuzel to nefunguje pro vsechny zpravy (resp. jen pro ty, ktere jsou
poslany do fronty viz. poznamka). Takze WM_SETFOCUS nebo WM_KILLFOCUS jsou
zasilany zrejme primo (SendMessage). Potrebuji tedy jine reseni
(existuje-li)
R.
Note: OnMessage only receives messages that are posted to the message queue,
not those sent directly with the Windows API SendMessage function.> Musis oprogramovat event Application.OnMessage, ten zachytava vsetky
spravy
> posielane vsetkym oknam aplikacie.
>
> L.
>
Flash Filer 2 DEMO
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 23.10.2001 13:35:48
Ahoj,
nevite zda existuje nejaka DEMO/TRIAL/FREE verze databasze Flash Filer 2.
Rad bych si ji prohledl a vyzkousel co to umi a jak se s ni pracuje.
Diky.
Jaroslav Sipek
e-mail:jaroslav.sipek(zv)idea(tec)cz
Zmena aktivniho prvku
[*] Lubo Fule <fule(zv)ekosoft.sk> - 23.10.2001 13:36:28
To je pravda, nevsimol som si to v helpe. Potom by to mozno slo urobit
pomocou hook vhodnej funkcie (pozri WIN API SetWindowsHookEx).
L.
> Bohuzel to nefunguje pro vsechny zpravy (resp. jen pro ty, ktere jsou
> poslany do fronty viz. poznamka). Takze WM_SETFOCUS nebo WM_KILLFOCUS jsou
> zasilany zrejme primo (SendMessage). Potrebuji tedy jine reseni
> (existuje-li)
Dlha odozva Windows NT pri pristupe na okolite poc
[*] Lubor Martinsky,\(SDC\) <l.martinsky(zv)softdec(tec)cz> - 23.10.2001 13:40:45
1. Pokud je server NT nastaven defaultne, ma automaticky vyladen vykon se
zvyraznenim background tasku.
(Lze zmenit v Control panel/System)
2. Pokud mate koax. - je prohledavani ze serveru vzhledem k vyse uvedenemu
opravdu pomalejsi
( prejit na 10/100 TP ?)
3. Pokud nepotrebujete protokol s routovanim, naopak bych pouzival vyhradne
MS Netbeui. Je to v
malych sitich nejrychlejsi protokol.
( Pozor, pokud pouzivate jakoukoliv sluzbu v rezimu TCP/IP - napr. SQL
server atp.)
Hodne zdaru
lubor M.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Peter Vlkovic
Sent: Tuesday, October 23, 2001 9:55 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: Dlha odozva Windows NT pri pristupe na okolite pocitace
Ahoj,
sorry za OT, ale uz som skusal vselico a dost ma to znervoznuje.
Mame lokalnu siet (koax - asi 10 pocitacov).
Na jednom pocitaci, (server Windows NT 4.0) je pri pristupe
k okolitym pocitacom strasne dlha odozva.
Na PC s nainstalovanymi Windows 95 (98) a tiez u Windows 2000
taketo problemy nie su.
Nestretol ste sa niekto s podobnym problemom?
Kde by mohla byt chyba.
Vdaka.
Vlkovic
Odchytenie Ukoncenia aplikacie
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 23.10.2001 13:41:57
Potrebujem dat MessageBox pri ukonceni aplikacie.
Mam odchytene Alt+F4 alebo cez hlavne menu Exit, ale
neviem to odchytit ked stlacim X v pravom hornom rohu alebo cez Windows
toolbar ked kliknem pravim tlacitkom na Zavriet.
dik za radu
jozo
TStringGrid + zarovnani
[*] =?Default?Q?Jan_Sebel=EDk?= <honza(zv)haes(tec)cz> - 23.10.2001 13:47:14
> > jak zarovnat v TStringGridu text v bunce doprava? Dik
> Odes�latel: Jaroslav Uher <moravia(zv)mbox.vol(tec)cz>
> X := StringGrid.Canvas.TextWidth(Value);
> StringGrid.Canvas.TextOut(Rect.Right -4 - X, Rect.Top + 2,
Ja nechci delat chytryho, kdyz zrovna tohle neni moje parketa,
ale neni tam neco jako SetTextAlign?
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Nacitani casu do klasickeho editu
[*] �EZN��EK David - 23.10.2001 13:50:00
Cau *.*
Zkuste me nekdo nakopnout...
Nacitam z databaze (Access) polozku Datetime a potrebuji zobrazit cas
samostatne.
Zobrazuji ji v editu s nastavenou maskou.
Jenze pri prevodu casu na string mi samozrejme urizne minuty a zobrazi
pouze cele hodiny.
Edit1.Text := TimeToStr(Table.Field('NECO').AsDateTime);
Problem je v tom, ze nechci pouzivat zadne jine komponenty. Jde vubec
nejakym zpusobem
zobrazit cas v Editu ?? Nebo nema nekdo nejaky napad jak to obejit ???
Predem dik.
............... Reznicek David ...............
............... reznicek(zv)jakl(tec)cz ............
mailto:reznicek(zv)jakl(tec)cz
............... www.gag.virt(tec)cz ...............
_____
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG ( www.grisoft(tec)cz
<http://www.grisoft(tec)cz> ).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Delphi 6 versus Delphi 5 (pro porovnani)
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.10.2001 13:58:16
> Odes�latel: David Janko <djanko(zv)infoware(tec)cz>
> Je tam zcela nova (a pro treba naprosto fundamentalni) lib CLX ktera mi
> umoznuje psat aplikace, ktere spustim v linuxu (pro me tedy konkretne spise
> naopak). Pro nekoho nic zajmaveho, pro me (skoro) borland zacal znovu
> existovat ......
Kdyz jsem do konference ohlasoval seminar "Delphi 2002"
a zadal o prispevky m.j. na tema
Delphi/Kylix, VCL/CLX, Windows/Linux,
mel jsem na mysli mimo jine prave Tebe, Davide...
S pozdravem
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Problem s kurzorovymi sipkami
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 23.10.2001 13:58:19
Ahoj,
Udelal jsem si komponentu, ktera je potomkem TCustomControl. Vsechno
funguje, akorat nemuzu odchytnout stisk klavesy VK_UP/VK_DOWN. Pri
stisku kurzorovych klaves mi neprijde zprava WM_KEYDOWN. Proc?
Kdyz dam predka komponenty napr. TCustomGrid tak zprava normalne prijde.
Pritom TCustomGrid je potomkem TCustomControl...
V cem je problem?
Ales
Problem s kurzorovymi sipkami
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 23.10.2001 14:18:39
> From: Ales Vasicek
>
> Udelal jsem si komponentu, ktera je potomkem TCustomControl. Vsechno
> funguje, akorat nemuzu odchytnout stisk klavesy VK_UP/VK_DOWN. Pri
> stisku kurzorovych klaves mi neprijde zprava WM_KEYDOWN. Proc?
Zkus do sve komponenty pridat private proceduru
procedure CMWantSpecialKey(var Msg: TCMWantSpecialKey);
message CM_WANTSPECIALKEY;
procedure TMyControl.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
Msg.Result := DLGC_WANTARROWS;
end;
Vaclav Krmela
Prepinani mezi kodem a programem pri ladeni
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.10.2001 14:19:05
Mam pocit, ze pokud mas nastaveno "minimize on run", pak to funguje jak
pozadujes. Nevyhoda je ze minimalizovani a obnovovani oken Delphi
trochu dele trva.
Martin Schayna
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>> trochu mi zacina vadit, ze pri krokovani se mi automaticky neprepne okno
> se zdrojakem na program, kdyz se chce nejaky vstup od uzivatele. Neda se
> to nekde nastavit?
>
parametry a la MS
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 23.10.2001 14:22:54
> existuje nejaky soubor funkci v D5 nebo nejaka funkce pro praci s
> parametry napr. '1,2,,,,"AS,AL,AP",,3,,,"Times Roman",,,,0,0' setkal jsem
> se s tim pri nacitani tzv. nestandardnich ini souboru kde jsou hruzna
> zverstva s retezci v uvozovkach (vnorene parove uvozovku aj.). Umim dostat
> z retezce n-ty parametr (i prazdny), ale pokud je to uzavreno v retezcich
> napr. ve stylu 1,,,2,"c:\Program Files\EQC\EQD.EXE -n -p -r1000 "%1"
> -rew:1,3,4,5,,,2 "param:"%2" -sav"",,,2,2 tak nedokazu poznat, co je ci
> oddelovac a spravne to vyriznout. Nebo se to dela nejak jinak?
To neni zadna MS vymyslenost, to je naprosto normalni 'Comma delimited' format.
A uz i moje staricke Delphi 3 maji skvele udelatko. vezmi si nejaky TStringList, a
takovyto dlohy zbesily retezec prirad do property 'CommaText'. A hle, najednou
mas vsechny parametry roztridene tak, ze co parametr, to jeden string ve
stringlistu. ;-)
Funguje to dokonce i presne naopak, ja tento zpusob s oblibou pouzivam na
ukladani malych Stringlistu do ini souboru. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Problem s kurzorovymi sipkami
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 23.10.2001 14:24:04
Ahoj,
To je presne ono, akorat bych to potreboval jeste trochu vyplesit: pokud
ted zmacknu TAB tak moje komponenta neztrati focus. A to bych
potreboval. Pokud do ni user "najede" pres TAB, mel by mit moznost z ni
zase stejnym zpusobem "vyjet".
Ales
> -----Original Message-----
> From: Vaclav Krmela [mailto:krmela(zv)ustinadorlici(tec)cz]
>
> Zkus do sve komponenty pridat private proceduru
>
> procedure CMWantSpecialKey(var Msg: TCMWantSpecialKey);
> message CM_WANTSPECIALKEY;
>
> procedure TMyControl.WMGetDlgCode(var Msg: TWMGetDlgCode); begin
> Msg.Result := DLGC_WANTARROWS;
> end;Problem s kurzorovymi sipkami
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.10.2001 14:33:11
> Udelal jsem si komponentu, ktera je potomkem TCustomControl. Vsechno
> funguje, akorat nemuzu odchytnout stisk klavesy VK_UP/VK_DOWN. Pri
> stisku kurzorovych klaves mi neprijde zprava WM_KEYDOWN. Proc?
>
> Kdyz dam predka komponenty napr. TCustomGrid tak zprava
> normalne prijde.
> Pritom TCustomGrid je potomkem TCustomControl...
>
> V cem je problem?
Riesenie je v tom, ze osetris spravu WM_GETDLGCODE, podobne ako to robi
TCustomGrid:
procedure TCustomGrid.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
Msg.Result := DLGC_WANTARROWS;
...
end;
Windows posiela WM_GETDLGCODE oknu, ktore ma prave input focus, vzdy pri
stlaceni urcitych klaves, ktore normalne Windows spracovava sam (napr.
kurzorove sipky, tab apod.). Okno by tu malo vratit hodnotu podla toho, o
ktore klavesy ma zaujem. Windows mu potom podla toho posle dane WM_KEYDOWN,
WM_KEYUP atd spravy.
Podrobne je to popisane vo win32.hlp.
'Use the Source, Luke' :-)
HTH
TOndrej
Zmena aktivniho prvku
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.10.2001 14:36:03
Windows posiela WM_SETFOCUS/WM_KILLFOCUS priamo oknu, ktore ziskalo/stratilo
focus. TWinControl tieto spravy propaguje do eventov OnEnter/OnExit.
Nie je mi jasne, preco potrebujes priamo spravu Windows. V pripade potomkov
TWinControl skutocne staci napisat event handler pre OnEnter/OnExit. Ak sa
vsak jedna o ne-Delphi okna, ku ktorym mas iba window handle, potom jednym
moznym riesenim je subclassing pomocou SetWindowLong s parametrom
GWL_WNDPROC.
HTH
TOndrej
DBLookupComboBox a zmena
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.10.2001 14:42:03
Ahoj,
mam DBLookupComboBox a potrebuji poznat, ze doslo ke zmene
zobrazovaneho obsahu. Povesil jsem se tedy na OnChange
DataFieldu. Funguje to dobre, az na jednu vyjimku - pokud zmenim
hodnotu v DBLookupComboBoxu programove, tj. prirazenim
DBLCombo.KeyValue := neco;
obsah se zmeni, ale nenastane zadna udalost. Mam vubec sanci
detekovat dakoveto situace? O co jde: Na formulari mam
DBLookupComboBox a jeho obsah chci opsat vedle do Labelu. Pri
zmene v combu se zmeni i Label. Obsah comba muze menit jak
uzivatel, tak i program.
Diky.
David Lebeda
Brutalni ukoneni formulare
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 23.10.2001 14:56:29
> Reakce na message poslanou pres PostMessage se provede teprve az "aplikace
bude v klidu", az "bude uklizeno".
Toto je pravda iba vseobecne a ciastocne ja som to myslel k tomu prikladu o
ktorom bola povodne rec. Release neriesi tazatelov problem pretoze ak bude
nahodou mat v tych procedurach Application.ProcessMessages alebo iny
PostMessage() bude volat toto externe tak mu je absolutne jedno ci zavola
Release alebo Free pretoze potom mu to zuchne na Acces Violation tak ci tak,
ked dojde k spracovaniu message CM_RELEASE (pretoze pokracovanie vykonavania
proceduralnej rekurzivy bude bezat dalej) !!!
Kakacka Pavol
KasiX(zv)atlas(tec)cz
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> > > Misto Free zkuste pouzit Release.
>
> > Odes�latel: Kakacka Pavol <kakacka(zv)proca(tec)cz>
> > K comu by to bolo dobre? Release iba cez POSTmessage zavola Free!
> To zalezi na tom, jak je to napsano.
>
> Free znici formular okamzite.
> Nejake navazne akce, ktere s existenci formulare pocitaji, mohou pak
zpusobit ten "Access violation".
>
> Reakce na message poslanou pres PostMessage se provede teprve az "aplikace
bude v klidu", az "bude uklizeno".
>
> Honza
Interbase - delete of multiple rows
[*] RobFox <robfox(zv)volny(tec)cz> - 23.10.2001 14:59:06
Hi all,
v triggeru mam delete typu
delete from T
where
T.F1 in
( select T1.F1 from T1
where T1.F2 = 222)
and T.F2 in
( select T2.F2 from T2
where T2.F1 = 111
and T2.F2 <> 111)
T, T1, T2 je stejna tabulka. Problem je v tom, ze SQL server evidentne pousti "select" specifikovany ve where neustale dokud je co mazat. Pokud tedy 100 000
zaznamu vyhovuje podminkam pak se vyber zaznamu pousti teoreticky az 100 000. Navic se mazani nedefinovatelne (resp. dle fyzickeho orderu zaznamu) ovlivnuje
a tak pocet smazanych zaznamu je <= poctu zaznamu danem selectem se stejnymi podminkami.
Je tomu tak spravne ? Ma se to tak chovat ? Jak to vyresit ?
BTW Na MSSQL se nejprve jednou vyberou zaznamy a pak se najednou smazou.
(Firebird 1.0.0.338)
S pozdravem
RobFox
Odchytenie Ukoncenia aplikacie
[*] <delphi(zv)zvlauto.sk> - 23.10.2001 15:01:36
Na forme je udalost OnClose odchyt to tam.
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ing. Jozef Baranec
Sent: Tuesday, October 23, 2001 1:42 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Odchytenie Ukoncenia aplikacie
Potrebujem dat MessageBox pri ukonceni aplikacie.
Mam odchytene Alt+F4 alebo cez hlavne menu Exit, ale
neviem to odchytit ked stlacim X v pravom hornom rohu alebo cez Windows
toolbar ked kliknem pravim tlacitkom na Zavriet.
dik za radu
jozo
Nacitani casu do klasickeho editu
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 23.10.2001 15:08:33
[P��loha v souboru: winmail.dat]
> P�edm�t: Nacitani casu do klasickeho editu
> Nacitam z databaze (Access) polozku Datetime a potrebuji zobrazit cas
> samostatne.
> Zobrazuji ji v editu s nastavenou maskou.
>
> Jenze pri prevodu casu na string mi samozrejme urizne minuty a zobrazi
> pouze cele hodiny.
> Edit1.Text := TimeToStr(Table.Field('NECO').AsDateTime);
>
> Problem je v tom, ze nechci pouzivat zadne jine komponenty. Jde vubec
> nejakym zpusobem
> zobrazit cas v Editu ?? Nebo nema nekdo nejaky napad jak to
> obejit ???
Ahoj,
nebylo by lepsi pro formatovani pouzit spise FormatDateTime nez TimeToStr ?
Viz help.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Odchytenie Ukoncenia aplikacie
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2001 15:20:54
A co to udelat v obsluye udalosti OnCloseQuery formu ???
Napr:
procedure Form1CloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := false;
if MessageDlg('Opravdu chcete ukoncit aplikaci ?', mtConfirmation, [mbYes,
mbNo], 0) = mrYes then
CanClose := true;
end;
Pak nemusis odchytavat stisk menu popr. Alt+F4 ale v obsluze zavolat akorat
Close formulare.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Potrebujem dat MessageBox pri ukonceni aplikacie.
> Mam odchytene Alt+F4 alebo cez hlavne menu Exit, ale
> neviem to odchytit ked stlacim X v pravom hornom rohu alebo cez Windows
> toolbar ked kliknem pravim tlacitkom na Zavriet.
>
> dik za radu
>
> jozo
>delphi index v TTable
[*] Chvojka Karel <chvojka(zv)nem.pce(tec)cz> - 23.10.2001 15:20:04
Ahoj. Nevite nekdo, jaky je rozdil v pouzivani INDEXu v DELPHI 1.06 a vDELPHI 5.0. Pracuji s nimi uplne stejne, ale kdyz chci ulozit oindexovanou tabulku, tak mi delphi oznami ze "BDE err index is read only". Ale kdyz mam tabulku bez indexu tak to funguje !!!
Dokonce jsem skusil pouzit tabulky s celejma cestama(bez aliasu), ale nepomohlo to !!!
Bude nekdo ta hodny a poradimi ?Odchytenie Ukoncenia aplikacie
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 23.10.2001 15:42:32
To viem, ale to je procedura, do ktorej dam co sa ma stat, ked sa form
zatvara a to uz je pre mna neskoro. Uplne by mi vyhovovalo, keby tam bolo
nieco ako OnBeforeClose
> Na forme je udalost OnClose odchyt to tam.
>
> Robo.
>
> Potrebujem dat MessageBox pri ukonceni aplikacie.
> Mam odchytene Alt+F4 alebo cez hlavne menu Exit, ale
> neviem to odchytit ked stlacim X v pravom hornom rohu alebo cez Windows
> toolbar ked kliknem pravim tlacitkom na Zavriet.
>
> dik za radu
>
> jozo
>
>
>Pridanie vlastnosti
[*] Roland Turcan <rolo(zv)sedas.sk> - 23.10.2001 16:02:31
Ahoj.
Mam zdedeneho potomka zo Sinea Gridu, ale by som potreboval k TColumn-om
priradat este nejake vlastosti. Je to mozne nejako ?
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
Flash Filer 2 DEMO
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.10.2001 19:48:25
Puvodni zprava, kterou napsal Jaroslav Sipek dne 23 Oct 2001:
> nevite zda existuje nejaka DEMO/TRIAL/FREE verze databasze Flash Filer
2.
> Rad bych si ji prohledl a vyzkousel co to umi a jak se s ni pracuje.
No jiste, ze existuje trial FlashFiler 2.0, najdes ji tady:
http://www.turbopower.com/trialrun/
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
TStringGrid + zarovnani
[*] novos(zv)email(tec)cz - 23.10.2001 19:59:06
zdravim
idealni je TStringAlignGrid, umi to co potrebujes a spoustu dalsich
veci
http://www.hoerstemeier.com/
Sovi
On 22 Oct 2001, at 17:51, Martin Bab�k wrote:
> Zdravim,
> jak zarovnat v TStringGridu text v bunce doprava? Dik
>
>
>
> M&B
>
>
DBLookupComboBox a zmena
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 23.10.2001 21:42:47
----- Original Message -----
From: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> mam DBLookupComboBox a potrebuji poznat, ze doslo ke zmene
> zobrazovaneho obsahu. Povesil jsem se tedy na OnChange
> DataFieldu. Funguje to dobre, az na jednu vyjimku - pokud zmenim
> hodnotu v DBLookupComboBoxu programove, tj. prirazenim
>
> DBLCombo.KeyValue := neco;
mozno to vypada priblble ale takto mi to funguje, za programovym priradenim
zavolaj:
DBLComboOnChange(DBLCombo);
Pavol Stolc
pstolc(zv)sc.sknet.sk
Ulozeni obrazku pres SQL
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 23.10.2001 21:51:49
Dobry den,
Jak lze vlozit "obrazek" / "blok dat" do tabulky pomoci SQL?
Prosim aspon o nejaky priklad k libovolnemu SQL serveru. Ja delam s
PostgreSQL na Linuxu, tam je sice moznost lo_inport, ale to funguje pokud je
soubor s daty primo na tom serveru, jenze ja pristupuji pres ODBC z windowsi
masiny. Lze to vubec resit pres ODBC?
Dekuji
Zdenek Janish
Pridanie vlastnosti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.10.2001 22:05:34
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Mam zdedeneho potomka zo Sinea Gridu, ale by som potreboval k TColumn-om
> priradat este nejake vlastosti. Je to mozne nejako ?
Ahoj,
predpokladam ze se jedna o potomka TDBGridu. Odvodis si nove potomky od
TColumn a TDBGridColumns, do TColumn pridas co potrebujes. Pak si odvodis
novou tridu od toho gridu, a v ni prepises metodu TCustomDBGrid.CreateColumns:
function TYourDBGrid.CreateColumns: TDBGridColumns;
begin
Result := TYourDBGridColumns.Create(Self, TYourColumn);
end;
V TYourColumn nezapomen upravit metodu Assign aby pracovala i novymi
vlastnostmi ktere jsi tam pridal.
Petr Vones
ISAPI/NSAPI Run Parameters pre MS Personal Web Ser
[*] Marek Agh <magh(zv)mail.risoul(tec)com.mx> - 23.10.2001 15:17:43 -0500
Zdravim,
neviete ako pod D4 nastavit menu Run / Parameters / Local, ked robim s
ISAPI/NSAPI dll WWW serverom pod Windows 98 na Microsoft Personal Web
Serveri 4.0? (aby som mohol krokovat a debugovat)
Marek Agh
Volani funkce z 16-bitove knihovny
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 23.10.2001 23:01:35
Lze nejak (primerene jednoduse) volat funkci z 16 bitove dll knihovny za
pomoci Delphi 5 ? Potrebuji ve sve 32-bitove aplikaci opakovane poustet
jednu funkci s nekolika parametry z knihovny, ktera existuje pouze v
16-bitove podobe (nejlepe aby to fungovalo pod Win9x i Win2000).
Tomas
Volani funkce z 16-bitove knihovny
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.10.2001 23:40:26
From: "Tomas Grepl" <delphi(zv)kapsw(tec)cz>
> Lze nejak (primerene jednoduse) volat funkci z 16 bitove dll knihovny za
> pomoci Delphi 5 ? Potrebuji ve sve 32-bitove aplikaci opakovane poustet
> jednu funkci s nekolika parametry z knihovny, ktera existuje pouze v
> 16-bitove podobe (nejlepe aby to fungovalo pod Win9x i Win2000).
Ahoj,
pokud ti muzu radit:
1. Nedelej to, zahod vse 16ti bitove
2. Precti si http://www.thedelphimagazine.com/samples/thunk/thunk95.htm a
potom prejdi k bodu 1.
Petr Vones
ISAPI/NSAPI Run Parameters pre MS Personal Web Ser
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.10.2001 23:41:30
From: "Marek Agh" <magh(zv)mail.risoul.com.mx>
> neviete ako pod D4 nastavit menu Run / Parameters / Local, ked robim s
> ISAPI/NSAPI dll WWW serverom pod Windows 98 na Microsoft Personal Web
> Serveri 4.0? (aby som mohol krokovat a debugovat)
Ahoj,
How to debug ISAPI dll's on Windows 98 with Personal Web Server
http://community.borland.com/article/0,1410,19611,00.html
Petr Vones
Zobrazeni animovanych ikon u uzlu TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 00:04:26
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
> muzete mi prosim nekdo poradit, proc mi nasledujici kod nefunguje ? Jak ma
> byt nastaven TreeView ?
Ahoj,
jak presne nefunguje ? Pokud tam das Seznam.Invalidate tak to funguje ?
Petr Vones
Jak zjistit RAM na PC?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 00:07:15
From: <plupinek(zv)synthesia(tec)cz>
> jakym zpusobem lze zjistit na jinem PC (zadanem pomoci \\JMENO) velikost
> RAM nebo jine parametry (treba vetev registru na vzd. PC)?
Ahoj,
pomoci TRegistry.RegistryConnect, ovsem na tom pocitaci musi byt nainstalovana
Microsoft Remote Registry service
Petr Vones
Quaternion - jak na to!
[*] Robert Holovsk� <r.holovsky(zv)volny(tec)cz> - 24.10.2001 00:08:17
Ahoj Delphini,
potrebuji vytvorit v Delphi takovou prohlizecku formatu DGN(Microstation
files), celkem jsem uz pokrocil,
ale narazil jsem na problem s vykresy 3D. V techto souborech je otoceni 3D
prvku ulozeno v tzv. compressed formatu zvanem
QUATERNIONS. Znamena to ze rotacni matice je misto 3x3 ulozena v 2x2.
Bohuzel vsak nevim jakym zpusobem to na
ortho-normal transformacni matici prevest.
Pro priklad uvadim vypis pri listovani v programu EDG, ktery je soucasti
instalace Microstationu:
Quaternion:
-2147483647, 0,
0, 0
A vysledna matice ma byt
TMatrix:
1, 0, 0
0,1,1.
Prosim neresil jste tento problem nekdo? Predem dekuji za jakykoliv postup,
ktery me dovede ke zdarnemu konci. Uz se s tim trapim docela dlouho.
Diky
Robert H.
Delphi 4 Proffesional, Win98
P.S. na internetu jsem sice nasel hjistou knihovnu obsahujici ruzne
matematicke vzorce na ruzne vypocty a transformace matic. Ale nedospel jsem
tim k zadnemu spravnemu vysledku. viz priklad vyse.
Zde jeste uvadim odkaz na specifikaci formatu.
http://gdal.velocet.ca/projects/dgn/dgn.html
(pro toto je zajimava cast 'Rotation angle (2D) and quaternion (3D)')
Diky
Nacitani casu do klasickeho editu
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 24.10.2001 06:26:42
Co to udelat treba takto :
Edit1.Text := FormatDateTime('hh:mm:ss', Table.Field('NECO'.AsDateTime);
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
Cau *.*
Zkuste me nekdo nakopnout...
Nacitam z databaze (Access) polozku Datetime a potrebuji zobrazit cas
samostatne.
Zobrazuji ji v editu s nastavenou maskou.
Jenze pri prevodu casu na string mi samozrejme urizne minuty a zobrazi
pouze cele hodiny.
Edit1.Text := TimeToStr(Table.Field('NECO').AsDateTime);
Problem je v tom, ze nechci pouzivat zadne jine komponenty. Jde vubec
nejakym zpusobem
zobrazit cas v Editu ?? Nebo nema nekdo nejaky napad jak to obejit ??? Interbase - delete of multiple rows
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 24.10.2001 06:49:15
> v triggeru mam delete typu
>
> delete from T
> where
> T.F1 in
> ( select T1.F1 from T1
> where T1.F2 = 222)
> and T.F2 in
> ( select T2.F2 from T2
> where T2.F1 = 111
> and T2.F2 <> 111)
>
> T, T1, T2 je stejna tabulka. Problem je v tom, ze SQL server evidentne
> pousti "select" specifikovany ve where neustale dokud je co mazat.
> Pokud tedy 100 000 zaznamu vyhovuje podminkam pak se vyber zaznamu
> pousti teoreticky az 100 000. Navic se mazani nedefinovatelne (resp.
> dle fyzickeho orderu zaznamu) ovlivnuje a tak pocet smazanych zaznamu
> je <= poctu zaznamu danem selectem se stejnymi podminkami. Je tomu tak
> spravne ? Ma se to tak chovat ? Jak to vyresit ? BTW Na MSSQL se
> nejprve jednou vyberou zaznamy a pak se najednou smazou.
Je to jeden z rozdilu IB versus MSSQL. Pokud vim, nejen pri
delete, ale i pri update se trigger vola pro kazdy radek zvlast. Na
oplatku mas k dispozici promenne new a old.
David Lebeda
DBLookupCombo a zmena - vyreseno
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 24.10.2001 07:15:18
Nevim, jak jsem to vcera testoval, ale dnes nemam problem.
Stacilo nahradit DBLookupComboBox jeho obdobou z RxLib -
RxDBLookupCombo a pouzivat jeho OnChange. Funguje bez
problemu.
David Lebeda
Interbase - delete of multiple rows
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.10.2001 07:21:37
no jasne, tak todle jsem zjistil taky.
napisto asi (= dolad si to ;) takhle:
<pre>
for
select
T.F1, T.F2
from
tab T
left join tab T1 on T.F1 = T1.F1 and T1.F2 = 222
left join tab T2 on T.F2 = T2.F2 and T2.F1 = 111 and T2.F2 <> 111
where
T1.F1 is not null and T2.F2 is not null
into
:lokalni_F1, :lokalni_F2
do
delete from tab
where F1 = :lokalni_F1 and F2 = :lokalni_F2
</pre>
koukam, ze ta podminka je trochu krkolomna, ale zkus to dat nejak
dohromady. doufam, ze jsem to moc nepomotal, jde hlavne o princip. ja
takovymto prepisem dosahl mnohanasobneho zrychleni.
> Hi all,
> v triggeru mam delete typu
>
> delete from T
> where
> T.F1 in
> ( select T1.F1 from T1
> where T1.F2 = 222)
> and T.F2 in
> ( select T2.F2 from T2
> where T2.F1 = 111
> and T2.F2 <> 111)
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
InterBase server: cannot perform network request t
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 24.10.2001 08:23:55
Dobry den,
prosim o radu, zacinam byt celkem zoufaly... Ve firme mame na stroji s
Windows 2000 nainstalovany IB server. V logu se obcas vyskytne
Terminated abnormally (-1). K tomu, aby se dalo s databazi dal pracovat,
je pak treba zpravidla provest Sweep, jinak se klientum zobrazi Cannot
perform network request to... Neni to problem na siti, protoze totez se
mi stalo uz nekolikrat doma na PC. Netusite nekdo, v cem by mohl byt
problem? Pocitac je na UPS, zadnou jinou zatez nema...
Diky za kazdou radu,
Karel Rys
Nacitani casu do klasickeho editu
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 24.10.2001 08:57:39
Me funguje toto, Neco.Udaj je typu TDateTime:
Naplnit pred editaci, edit je typu TMaskEdit:
edCas.EditMask := '00:00;1; '; //v editu chci HH:MM
edCas.Text := Copy(TimeToStr(Neco.Udaj),1,5);
Po editaci to ukladam zpet:
Neco.Udaj := StrToDateTime(DateToStr(edDatum.Date)+' '+edCas.Text+':00');
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
IB6.0.1, IBX 4.42, W2K/SP1, D5Ent.
===== Puvodni zprava =====
Napsal �EZN##EK David, <mailto:reznicek(zv)jakl(tec)cz>
> Nacitam z databaze (Access) polozku Datetime a potrebuji zobrazit cas
> samostatne.
> Zobrazuji ji v editu s nastavenou maskou.
> Edit1.Text := TimeToStr(Table.Field('NECO').AsDateTime);Prekreslovani komponenty a jeji blikani
[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 24.10.2001 09:09:33
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
DDV,
v soucasne dobe resim nasledujici problem:
mam vlastni komponentu odvozenou od TGraphicControl.
Do jejiho canvasu provadim v metode Paint prekreslovani.
Problem je v tom, ze kdykoliv se zavola procedura Paint,
tak cela komponenta neprijemne blika.
Nevite nekdo co s tim? Budu vdecny za pripadne odpovedi.
S pozdravem Jirka Kratochvil.
PS. Archiv konference jsem prohledaval, nasel jsem narazky na to, ze
se to tu jiz resilo, ale bohuzel jsem nanasel kde.
-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBO9ZpKmH3x0A/dynEEQL0rgCgrdvlqohKiXxv89bfpEqZ5SlfHpkAn0KR
qPcR4kMvgtiBzDMlgd6LGwhJ
=0c0u
-----END PGP SIGNATURE-----
Interbase - delete of multiple rows
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.10.2001 09:24:04
Ahoj,
Interbasi neznam prilis dokonale, ale neni to tim, ze v MS SQL je
volan trigger na vsechny radky najednou (a necha se rict, zda
triggery volat rekursivne), ktezto na IB pro kazdy radek zvlast?
Slavek
> spravne ? Ma se to tak chovat ? Jak to vyresit ? BTW Na MSSQL se
> nejprve jednou vyberou zaznamy a pak se najednou smazou.
>
> (Firebird 1.0.0.338)
> RobFox
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Interbase - delete of multiple rows
[*] RobFox <robfox(zv)volny(tec)cz> - 24.10.2001 09:27:29
>Je to jeden z rozdilu IB versus MSSQL. Pokud vim, nejen pri
>delete, ale i pri update se trigger vola pro kazdy radek zvlast. Na
>oplatku mas k dispozici promenne new a old.
>
>David Lebeda
Ano, to vim, ale to s tim nesouvisi. Ten trigger je na jine tabulce nez ve ktere mazu a navic ten delete nefunguje ani mimo trigger.
Nova verzia ODBCe
[*] Lubo Fule <fule(zv)ekosoft.sk> - 24.10.2001 09:38:55
Na http://www.ekosoft.sk/~fule/ODBCe.zip je k dispozicii nova verzia ODBCe,
ktora je uz aj pre D6 (nie pre Personal, lebo vyzaduje TDataset).
L.
InterBase server: cannot perform network request t
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 24.10.2001 09:55:16
Zkus misto primeho oznaceni treba \\Server pouzit IP adresu.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Dobry den,
>
> prosim o radu, zacinam byt celkem zoufaly... Ve firme mame na stroji s
> Windows 2000 nainstalovany IB server. V logu se obcas vyskytne
> Terminated abnormally (-1). K tomu, aby se dalo s databazi dal pracovat,
> je pak treba zpravidla provest Sweep, jinak se klientum zobrazi Cannot
> perform network request to... Neni to problem na siti, protoze totez se
> mi stalo uz nekolikrat doma na PC. Netusite nekdo, v cem by mohl byt
> problem? Pocitac je na UPS, zadnou jinou zatez nema...
>
> Diky za kazdou radu,
InterBase server: cannot perform network request t
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 24.10.2001 10:08:56
To jsem neuvedl - pripojuji se pres TCP/IP; v souboru HOSTS kazde Win-
stanice mam ke jmenu "interbase" prirazenu IP adresu.
Karel Rys
Petr dne 24 Oct 2001 v 9:55:
> Zkus misto primeho oznaceni treba \\Server pouzit IP adresu.
>
> > prosim o radu, zacinam byt celkem zoufaly... Ve firme mame na stroji
> > s Windows 2000 nainstalovany IB server. V logu se obcas vyskytne
> > Terminated abnormally (-1). K tomu, aby se dalo s databazi dal
> > pracovat, je pak treba zpravidla provest Sweep, jinak se klientum
> > zobrazi Cannot perform network request to... Neni to problem na
> > siti, protoze totez se mi stalo uz nekolikrat doma na PC. Netusite
> > nekdo, v cem by mohl byt problem? Pocitac je na UPS, zadnou jinou
> > zatez nema... InterBase server: cannot perform network request t
[*] Jan Diblik <jan.diblik(zv)lfmotol.cuni(tec)cz> - 24.10.2001 10:28:30
Me se totez stavalo s jednim SQL dotazem, ktery proste shodil
Interbase server. Ten se sice automaticky restartoval, ale pripojit
se k nemu uz neslo. Resil jsem to prepsanim toho dotazu. Ten
puvodni byl join pres view a tabulku a to zrejme Interbase v
nekterych pripadech nesvedci.
Jan Diblik
> Dobry den,
>
> prosim o radu, zacinam byt celkem zoufaly... Ve firme mame na stroji s
> Windows 2000 nainstalovany IB server. V logu se obcas vyskytne
> Terminated abnormally (-1). K tomu, aby se dalo s databazi dal pracovat,
> je pak treba zpravidla provest Sweep, jinak se klientum zobrazi Cannot
> perform network request to... Neni to problem na siti, protoze totez se
> mi stalo uz nekolikrat doma na PC. Netusite nekdo, v cem by mohl byt
> problem? Pocitac je na UPS, zadnou jinou zatez nema...
>
> Diky za kazdou radu,
>
> Karel Rys
>
TStringGrid + zarovnani
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 24.10.2001 10:32:04
Nize uvedene jsem si upravil na zarovnani na stred:
procedure THlavni.TestGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
const
CenterColl: array[0..4] of boolean = (false,false,true,true,true);
var
Value: string;
X: integer;
begin
if CenterColl[ACol] and (ARow>0) then
begin
Value :=Trim(TestGrid.Cells[ACol, ARow]);
TestGrid.Canvas.FillRect(Rect);
X:=TestGrid.ColWidths[ACol]-TestGrid.Canvas.TextWidth(Value);
TestGrid.Canvas.TextOut(Rect.Left+Trunc(X/2), Rect.Top + 2,Value);
end;
end;
Martin Ben
-----Puvodni zprava-----
Od: Jaroslav Uher [mailto:moravia(zv)mbox.vol(tec)cz]
Odesl�no: 23.10.2001 11:07
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Re: TStringGrid + zarovnani
Ahoj,
On 22 Oct 2001, at 17:51, Martin Bab�k wrote:
> Zdravim,
> jak zarovnat v TStringGridu text v bunce doprava? Dik
zkus toto, sloupce 1 a 2 budou zarovnany doprava
procedure Txx.StringGridDrawCell(Sender: TObject; ACol, ARow:
Integer;
Rect: TRect; State: TGridDrawState);
var
Value : string;
X : Integer;
begin
if (ACol in [1, 2]) then
begin
Value :=3D Trim(StringGrid.Cells[ACol, ARow]);
{ clear the cell}
StringGrid.Canvas.FillRect(Rect);
{ and draw one to Right }
X :=3D StringGrid.Canvas.TextWidth(Value);
StringGrid.Canvas.TextOut(Rect.Right -4 - X, Rect.Top + 2,
Value);
end;
end;
Jarek Uher
TClientDataSet - Hladanie
[*] Miroslav Hro��o <hrossik(zv)nrsys.sk> - 24.10.2001 10:33:04
Zdravim,
Potreboval by som poradit ako urobit vyhladavanie nad ClietntDataSet - om
potrebujem na zaklade nejakej uzivatelom definovanej podmienky
(napr. pole XX (integer) je ine ako 100 ..resp. "XX <> 100" ) prehladavat
zaznam smerom od zaciatku po koniec alebo od konca po zaciatok
a samozrejme od aktualnej pozicie po koniec alebo po zaciatok.
Potreboval by som nieco ako ma ADONis - TADODataSet.Tam existuje funkcia
ADOFindNext a ADOFindPrevious kde je mozne priamo zadat podmienku hladania.
W2000,Delphi 5 Enterprise, MSSQL7, ADO Expres.
Miro.TStringGrid + zarovnani
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 24.10.2001 11:14:20
Ahoj,
On 23 Oct 2001, at 13:47, Jan Sebel�k wrote:
> > > jak zarovnat v TStringGridu text v bunce doprava? Dik
> > Odes�latel: Jaroslav Uher <moravia(zv)mbox.vol(tec)cz>
> > X := StringGrid.Canvas.TextWidth(Value);
> > StringGrid.Canvas.TextOut(Rect.Right -4 - X, Rect.Top + 2,
> Ja nechci delat chytryho, kdyz zrovna tohle neni moje parketa,
> ale neni tam neco jako SetTextAlign?
obavam se, ze neni. Mozna spatne hledam, ale v mych D5 u
TStringGridu BOHUZEL..
Jarek Uher
TStringGrid + zarovnani
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.10.2001 11:33:28
> > > > jak zarovnat v TStringGridu text v bunce doprava? Dik
> > > Odes�latel: Jaroslav Uher <moravia(zv)mbox.vol(tec)cz>
> > > X := StringGrid.Canvas.TextWidth(Value);
> > > StringGrid.Canvas.TextOut(Rect.Right -4 - X, Rect.Top + 2,
> > Ja nechci delat chytryho, kdyz zrovna tohle neni moje parketa,
> > ale neni tam neco jako SetTextAlign?
> obavam se, ze neni. Mozna spatne hledam, ale v mych D5 u
> TStringGridu BOHUZEL..
no, ja mam ten pocit, ze to neni ani tak property gridu, jako spis
nejaky flag, ktery urci zarovnani textu vypsaneho na canvas. nejsem si
moc jisty, jestli se to tyka prave TextOut.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
TStringGrid + zarovnani
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 24.10.2001 11:50:36
Koukam, ze se diskuze solidne rozjela, coz jsem ani neocekaval, problem jsem vyresil driv nez prisla prvni odpoved, ale mel jsem tu trosku fofr, tak jsem nestihl napsat.
Takze pokud by nekoho zajimalo, dle me celkem obstojne univerzalni reseni, zarovnani vpravo vlevo na stred (barvu upravuji tesne pred timhle), tak staci do procedury DrawCell pridat:
var my_Rect:TRect;
with TStringGrid(Sender) do
begin
canvas.FillRect(Rect);
my_Rect := Rect;
InflateRect(my_Rect, -2,-2);
DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, my_Rect, DT_right);
end;
pro zarovnani na stred misto DT_right, DT_center
M&B
>>> petr.palicka(zv)atlas(tec)cz 10/24 11:33 >>>
> > > > jak zarovnat v TStringGridu text v bunce doprava? Dik
> > > Odes�latel: Jaroslav Uher <moravia(zv)mbox.vol(tec)cz>
> > > X := StringGrid.Canvas.TextWidth(Value);
> > > StringGrid.Canvas.TextOut(Rect.Right -4 - X, Rect.Top + 2,
> > Ja nechci delat chytryho, kdyz zrovna tohle neni moje parketa,
> > ale neni tam neco jako SetTextAlign?
> obavam se, ze neni. Mozna spatne hledam, ale v mych D5 u
> TStringGridu BOHUZEL..
>no, ja mam ten pocit, ze to neni ani tak property gridu, jako spis
>nejaky flag, ktery urci zarovnani textu vypsaneho na canvas. nejsem si
>moc jisty, jestli se to tyka prave TextOut.
TStringGrid + zarovnani
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.10.2001 12:02:38
> Nize uvedene jsem si upravil na zarovnani na stred:
>
> TestGrid.Canvas.TextOut(Rect.Left+Trunc(X/2), Rect.Top
> + 2,Value);
Mozes tiez jednoducho pouzit DrawText API s nastavenym flagom na zarovnanie,
napr:
DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, (zv)Rect, DT_EXPAND_TABS
or DT_TOP or DT_CENTER);
DrawText podporuje aj dalsie flagy, napr. multiline, wordbreak, ellipses
atd.
HTH
TOndrej
kylix patchs
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 24.10.2001 12:20:14
Ahoj,
borland udelal 2 updaty (public beta) kylixu 1:
>
The first one is a Kylix 1 Debugger Update that addresses fork and exec
issues with 2.4 kernels and other things.
(konecne)
The second one is a Kylix 1 MySQL dbExpress driver update that supports
MySQL 3.23
http://codecentral.borland.com/codecentral/ccweb.exe/prodcat?prodid=9&catid=
5
a navic
Also, the MySQL dbExpress driver source code has been checked into FreeCLX,
as an example of how to write dbExpress drivers.
Radek
Ukonceni programu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 24.10.2001 12:29:51
Reaguj na message WM_QueryEndSession a WM_EndSession
Martin Schayna
----- Original Message -----
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 22, 2001 12:16 PM
Subject: Ukonceni programu
> Zdravim,
> muj program "sedi" v tray a kdyz klepnu na ikonku tak se obnovi a zobrazi.
> Pri stisku [X] close se misto ukonceni minimalizuje zpet do tray. Ale kdyz
> koncim
> Windows 2000, tak bych potreboval, aby zjistil, ze ho ukoncuji Windows a
> misto
> minimalizace do tray se ukoncil (jinak blokuje ukonceni W2000).
>
> Nevite nekdo, jak na to?
>
> R. Plzak
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.285 / Virov� b�ze: 151 - datum vyd�n�: 5.10.2001
>
>CAnvas.Recangle
[*] dovvokoo(zv)zvvz(tec)cz - 24.10.2001 12:33:35
Pros�m o radu. Vykresl�m n�co na formul߰ a chci pomoc� my#i vybrat ��st pro
zv�t#en�. #�st chci vybrat do obd�ln�ku (OnMouseMove) tak, abych st�le vid�l
co je pod n�m - jde o klasick� zv�t#en� obrazu a pak n�sledn� vykreslen� v
jin�m m���tku.
D�k.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.277 / Virov� b�ze: 146 - datum vyd�n�: 5.9.2001
tlacitka na hlavnim panelu
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 24.10.2001 12:41:56
Ahoj!
nevim, neni tohle vlastnost W98 CZ, kdyz bezi zobrazeni
stavu klavesnice na panelu (internat)?
Osirela prazdna tlacitka...### ing. V�t Jur�sek napsal dne 23 Oct 01, v 0:06 :
> Mam stejny problem, ale doted jsem neprisel na to proc to dela.
> Zjistil jsem, ze v 90 procentech to dela, kdyz se aplikace spousti v
> DELPHI. Kdyz se spusti samostatny exe soubor (mimo delphi), tak to
> tlacitko tam z 90 procent neni. dalsi jev, na ktery jsem prisel, ze mi to
> nedela prazdna tlacitka ani v delphi, kdyz aplikaci nenutim prejit do full
> screenu, ale necham ji pracovat pouze v okne VJ
>
>
>
>
> > Mam problem s DelphiX. Kdyz mam aplikaci ve fullscreenu, tak mi potom na
> > hlavnim panelu zustavaji tlacitka, ktera po odmacknuti zmizi. Neda se
> > tomu nejak zamezit? Nebo na to neni nejaky programek?
> >
> >
> > Kuba
> >
> >
> >
>
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director ICQ# 135770414
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Pridanie vlastnosti
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.10.2001 13:00:10
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Sent: Tuesday, October 23, 2001 10:05 PM
> predpokladam ze se jedna o potomka TDBGridu. Odvodis si nove potomky od
> TColumn a TDBGridColumns, do TColumn pridas co potrebujes. Pak si odvodis
> novou tridu od toho gridu, a v ni prepises metodu
TCustomDBGrid.CreateColumns:
>
> function TYourDBGrid.CreateColumns: TDBGridColumns;
> begin
> Result := TYourDBGridColumns.Create(Self, TYourColumn);
> end;
>
> V TYourColumn nezapomen upravit metodu Assign aby pracovala i novymi
> vlastnostmi ktere jsi tam pridal.
Odvodil som si moj TColumn nasledovne:
TOrderSets = (osASC,osDESC);
TCollateOption=(coPXW_CSY,coWin1250);
TRTSColumn= class (TColumn)
private
FOrderBy: string;
FCollateBy: TCollateOption;
FOrder: TOrderSets;
published
property OrderBy:string read FOrderBy Write FOrderBy;
property CollateBy:TCollateOption read FCollateBy Write FCollateBy;
property Order:TOrderSets read FOrder Write FOrder;
end;
ale vobec nechapem preco mam menit aj TDBGridColumns. Pomoz mi prosim lebo
som z toho jelen. Este keby sa dalo dorobit aby v titulku gridu zobrazovala
sipka podla Order.
Moj grid je odvodeny:
TCustomGrid>TDBGridSinea>TMojGrid
Velmi pekne dakujem.
S pozdravom
Roland Turcan - amatersky programator (zufalec)
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
kylix patchs
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 24.10.2001 13:00:11
----- Original Message -----
From: "Radek Cervinka" <radek.cervinka(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 24, 2001 12:20 PM
Subject: kylix patchs
> Ahoj,
> borland udelal 2 updaty (public beta) kylixu 1:
> >
> The first one is a Kylix 1 Debugger Update that addresses fork and exec
> issues with 2.4 kernels and other things.
> (konecne)
> The second one is a Kylix 1 MySQL dbExpress driver update that supports
> MySQL 3.23
>
http://codecentral.borland.com/codecentral/ccweb.exe/prodcat?prodid=9&catid=
> 5
>
> a navic
> Also, the MySQL dbExpress driver source code has been checked into
FreeCLX,
> as an example of how to write dbExpress drivers.
> Radek
Jen jestli to je tak akutni. Americky Borland uz prodava Kylix 2.
Radim
algoritmus na I�O
[*] Str�n�k Franti�ek - 24.10.2001 13:02:02
M��ete mi n�kdo pros�m V�s poslat kus zdroj�ku (funkci) na kontrolu I#O
?
d�kuji
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
kylix patchs
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.10.2001 13:21:13
> Jen jestli to je tak akutni. Americky Borland uz prodava Kylix 2.
opravdu? ja mel za to, ze ho teprve ohlasili, jako ze se na nem dela a
brzy bude.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Odchytenie Ukoncenia aplikacie
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.10.2001 13:21:20
> > Na forme je udalost OnClose odchyt to tam.
> To viem, ale to je procedura, do ktorej dam co sa ma stat, ked sa form
> zatvara a to uz je pre mna neskoro. Uplne by mi vyhovovalo, keby tam bolo
> nieco ako OnBeforeClose
Neni pozde,
staci nastavit Action:=caNone
nebo zavolat Abort.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================algoritmus na =?ISO-8859-2?Q?I=C8O?=
[*] Jarda Jirava <listuj(zv)centrum(tec)cz> - 24.10.2001 13:26:31
Pokud nevadi ze je to ve VBScriptu
tak tady je funkce
function IsICO(ICO)
dim Generic, I
IsICO = false
Generic = 0
' I#O mus� m�t 8 znak�
if len(Trim(ICO)) <> 8 then exit function
' Zkontrolovat checksum
for I = 1 to 7
Generic = Generic + cInt(Mid(ICO, I, 1)) * (9 -
I)
next
Generic = Generic - int(Generic / 11) * 11
if Generic = 0 then
Generic = 1
elseif Generic = 1 then
Generic = 0
elseif Generic = 10 then
Generic = 1
else
Generic = 11 - Generic
end if
if Generic = 10 then Generic = 0
if int(Right(ICO, 1)) = int(Generic) then IsICO = true
end function
*************** Str�n�k Franti#ek
M��ete mi n�kdo pros�m V�s poslat kus zdroj�ku (funkci) na
kontrolu I#O
***************
Jarda
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
-----
Pos�lejte SMS z www.posliSMS(tec)cz
Volani funkce z 16-bitove knihovny
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.10.2001 13:31:55
> From: "Tomas Grepl" <delphi(zv)kapsw(tec)cz>
> > Lze nejak (primerene jednoduse) volat funkci z 16 bitove dll knihovny za
> > pomoci Delphi 5 ? Potrebuji ve sve 32-bitove aplikaci opakovane poustet
> > jednu funkci s nekolika parametry z knihovny, ktera existuje pouze v
> > 16-bitove podobe (nejlepe aby to fungovalo pod Win9x i Win2000).
> Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> pokud ti muzu radit:
> 1. Nedelej to, zahod vse 16ti bitove
Principialne to nejak jde, David Muzatko to spolu s jinymi (dulezitejsimi) vecmi skoli na kurzu Win32API.
Preposilam mu otazku.
Jinak ale souhlas s Petrem ...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
kylix patchs
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 24.10.2001 13:38:51
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 24, 2001 1:21 PM
Subject: RE: kylix patchs
> Jen jestli to je tak akutni. Americky Borland uz prodava Kylix 2.
opravdu? ja mel za to, ze ho teprve ohlasili, jako ze se na nem dela a
brzy bude.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
-----
Ale uz si ho muzes objednat. Je tam pre-order, ceny uz jsou stanoveny.
Radim
Zobrazeni animovanych ikon u uzlu TreeView
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 24.10.2001 13:40:57
Ahoj, nevim presne kam mam dat ten Seznam.Invalidate. Nefunguje to tak, ze
to proste nedela nic. Zadna animace. Je to stejne, jako by tam nic nebylo.
Zdravim a dekuji.
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Wednesday, October 24, 2001 12:04 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Zobrazeni animovanych ikon u uzlu TreeView
Ahoj,
jak presne nefunguje ? Pokud tam das Seznam.Invalidate tak to funguje ?
Petr Vones
Pridanie vlastnosti
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.10.2001 13:57:25
> ale vobec nechapem preco mam menit aj TDBGridColumns.
Podla mna staci pouzit existujuce TDBGridColumns, dolezite je, aby si do
konstruktora predal svoju novu triedu odvodenu z TColumn:
function TRTSDBGrid.CreateColumns: TDBGridColumns;
begin
Result := TDBGridColumns.Create(Self, TRTSColumn);
end;
BTW, zabudol si na TRTSColumn.Assign (alebo AssignTo), ako Ta uz upozornoval
Petr. Bez toho Ti nebude spravne fungovat streaming do .dfm, ani editacia v
design time (column editor, object inspector atd.)
HTH
TOndrej
Dve tabulky v SQL
[*] <kuchar(zv)unicodesys(tec)cz> - 24.10.2001 14:04:17
Caute,
mam nasledujici problem, jsou dve tabulky v SQL
---------------------------------------
tab1 ma sloupce A,B,C,D,XY,XX
tab2 ma sloupce A.B,C,D
---------------------------------------
tab2 potrebuji nejakym zpusobem pomoci SQL prikazu a ne pomoci delphi
rozsirit o sloupce XY,XX z tabulky 1, pricem nazev sloupcu nevim a nevim ani
typ dat v sloupci, takze otazka
zni jestli se da nejakym zpusobem SQL rict aby pridal ty dva slopce se
stejnym nazvem a se stejnym typem dat, moje predstava je nejak asi takhle,
ale nevim jak dal :
-------------------------------------------------------------
ALTER TABLE tab2 ALTER COLUMN ( SELECT....
DIK
algoritmus na I�O
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.10.2001 14:10:18
function ValidateICO(sICO: string): Boolean;
resourcestring Text='Nespr�vne IEO!';
var i, k: Integer;
begin
Result := Length(sICO) = 8;
try
StrToInt(sICO);
k := 0;
for i := 2 to 8 do begin
k := k + StrToInt(sICO[9-i]) * i;
end;
k := 11 - k mod 11;
if (Copy(IntToStr(k), Length(IntToStr(k)), 1) <> Copy(sICO, 8, 1)) then
Result := False;
except
on e: EConvertError do
Result := False;
end; // try/except
if not result then
MessageDlg(Text, mtInformation, [mbOK], 0);
end; { ValidateICO }
S pozdravom
Roland Turcan
Dve tabulky v SQL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.10.2001 14:25:43
> tab2 potrebuji nejakym zpusobem pomoci SQL prikazu a ne pomoci delphi
> rozsirit o sloupce XY,XX z tabulky 1, pricem nazev sloupcu
> nevim a nevim ani typ dat v sloupci, takze otazka
se obavam, ze asi ne. jaky koliv alter, ktery jsem videl, vyzadoval
konkretni definici sloupce, zadne pocitani pomoci selectu. leda by slo
na serveru spustit libovolny string jako dotaz a sestavit ten string v
procedure pomoci prostredku to serveru. o jaky server se jedna? u IB/FB
mas imho smulu.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
kylix patchs
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 24.10.2001 14:26:47
pokud jsem dobre cetl tak open edition bude az pozdeji (ve 4 Q/2001)
takze pro me je to zatim akutni :)
Radek
>> Jen jestli to je tak akutni. Americky Borland uz prodava Kylix 2.
>opravdu? ja mel za to, ze ho teprve ohlasili, jako ze se na nem dela a
>brzy bude.
>
>Ale uz si ho muzes objednat. Je tam pre-order, ceny uz jsou stanoveny.
Odchytenie Ukoncenia aplikacie
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 24.10.2001 14:37:56
Ahoj!
Procedura pro osetreni udalosti OnClose ma nasledne parametry
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
podivej se do helpu na mozne hodnoty Action
Action := caFree nebo Action := caNone.
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ing. Jozef Baranec
> Sent: Tuesday, October 23, 2001 3:43 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Odchytenie Ukoncenia aplikacie
>
>
> To viem, ale to je procedura, do ktorej dam co sa ma stat, ked sa form
> zatvara a to uz je pre mna neskoro. Uplne by mi vyhovovalo,
> keby tam bolo
> nieco ako OnBeforeClose
>
>
> > Na forme je udalost OnClose odchyt to tam.
> >
> > Robo.
> >
> >
> > Potrebujem dat MessageBox pri ukonceni aplikacie.
> > Mam odchytene Alt+F4 alebo cez hlavne menu Exit, ale
> > neviem to odchytit ked stlacim X v pravom hornom rohu alebo
> cez Windows
> > toolbar ked kliknem pravim tlacitkom na Zavriet.
> >
> > dik za radu
> >
> > jozo
> >
> >
> >
> >
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Dve tabulky v SQL
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 24.10.2001 14:39:13
Jedna-li se o MSSQL pak jedine pomoci dynamicky vyrobeneho SQL prikazu,
ktery se nasledne spusti pres sp_executesql nebo pres EXEC().
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> Caute,
>
> mam nasledujici problem, jsou dve tabulky v SQL
> ---------------------------------------
> tab1 ma sloupce A,B,C,D,XY,XX
> tab2 ma sloupce A.B,C,D
> ---------------------------------------
> tab2 potrebuji nejakym zpusobem pomoci SQL prikazu a ne pomoci delphi
> rozsirit o sloupce XY,XX z tabulky 1, pricem nazev sloupcu nevim
> a nevim ani
> typ dat v sloupci, takze otazka
> zni jestli se da nejakym zpusobem SQL rict aby pridal ty dva slopce se
> stejnym nazvem a se stejnym typem dat, moje predstava je nejak asi takhle,
> ale nevim jak dal :
> -------------------------------------------------------------
> ALTER TABLE tab2 ALTER COLUMN ( SELECT....instalace FB1 pomoci InnoSetup
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.10.2001 14:45:20
ahoj,
snazim se sestavit InnoSetup instalacni skript pro instalaci FireBird 1
beta 2.
nejakej skriptik jsem si stahnul pro IB6 a neco lustim z instalacniho
logu od wise.
nemate to nekdo uz vychytany? nerad bych delal hotovou vec a jeste v tom
napraskal chyby.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Zobrazeni animovanych ikon u uzlu TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 15:01:05
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
> Ahoj, nevim presne kam mam dat ten Seznam.Invalidate. Nefunguje to tak, ze
> to proste nedela nic. Zadna animace. Je to stejne, jako by tam nic nebylo.
Ahoj,
napriklad na konec toho kodu, tim vyloucis pripadnou moznost ze je nekde dalsi
chyba. Sice to bude pri prekreslovani znacne preblikavat, ale alespon poznas
kde je problem.
Petr Vones
FB UDF a timestam
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 24.10.2001 15:18:24
Chtel bych se zeptat, nezkousel nekdo zpracovavat v UDF datum (timestamp) ?
Mne se nepodarilo zjistit jaky typ (struktura) tomu odpovidav cecku (delphi).
Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Mobil: 0602 795 874
Fax: 068 535 23 64
e-mail:skopalik(zv)hlubocky.del(tec)cz
http://hlubocky.del(tec)cz
Rozpoznani ukonceni windowsu.
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 24.10.2001 15:27:17
Zdravim,
mam programek spusteny jako sluzbu s ikonkou v trayi.
Kdyz klepnu na ikonku, tak se zobrazi hlavni form programku.
Kdyz mu dam close tak, se zase schova a zustane bezet na pozadi.
Ale kdyz konci Windows, tak bych potreboval aby skutecne provedl
close a skoncil. Aby nejak poznal, ze ho ukoncuji Windowsy.
Nemate nekdo napad, jak to udelat?
S uctou
Robert Plzak
ICQ: 71733706
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.285 / Virov� b�ze: 151 - datum vyd�n�: 5.10.2001
Algoritmus na �. bank. ��tu
[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 24.10.2001 15:34:23
Pripojil bych se k dotazu na validaci ICO s dotazem na validaci cisla
bankovniho uctu.
Dekuji, Filip.Pridanie vlastnosti
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.10.2001 15:36:22
----- Original Message -----
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
Sent: Wednesday, October 24, 2001 1:57 PM
> BTW, zabudol si na TRTSColumn.Assign (alebo AssignTo), ako Ta uz
upozornoval
> Petr. Bez toho Ti nebude spravne fungovat streaming do .dfm, ani editacia
v
> design time (column editor, object inspector atd.)
>
ja som tot priral, ale mi to nefunguje.
procedure TRTSColumn.Assign(Source: TPersistent);
begin
Self.Assign(TColumn.Create(nil));
end;
function TDbGridRTS.CreateColumns: TDBGridColumns;
begin
Result := TDBGridColumns.Create(Self, TRTSColumn);
end;
Pomozte please.
S pozdravom
Roland Turcan
Agregovane pole v Query
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 24.10.2001 15:36:14
Zdar,
mam data natahla z SQL Serveru do Query. Na ni se aplikuji ruzne filtry.
Potrebuju na formulari zobrazovat soucet nejakeho sloupce podle daneho
filtru. Zkousel jsem udelat aggregated field, ale pri spusteni hlasi, ze to
nemuzu udelat. Jak na to?
Ozon
Agregovane pole v Query
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 24.10.2001 15:40:27
Na jakem SQL stroji, co to hlasi, jak mas sestaveny dotaz a jake mas cislo
bot?
Sroub
> Zdar,
> mam data natahla z SQL Serveru do Query. Na ni se aplikuji ruzne filtry.
> Potrebuju na formulari zobrazovat soucet nejakeho sloupce podle daneho
> filtru. Zkousel jsem udelat aggregated field, ale pri spusteni hlasi, ze
to
> nemuzu udelat. Jak na to?
>
> Ozon
Algoritmus na =?iso-8859-2?q?=E8=2E_bank=2E_=FA=E8
[*] iturcan(zv)gamo.sk - 24.10.2001 15:41:31
10 cislic: ABCDEFGHIJ (ak je menej, dopln nulami na zaciatku)
A*6 + B*3 + C*7 + D*9 + E*10 + F*5 + G*8 + H*4 + I*2 + J musi byt
delitelne 11.
vola sa to abo kontrola.
Napr. rodne cislo by malo byt delitelne jedenastimi. (aspon tie
mladsie ako 20 rokov tak funguju)
Ivan Turcan
Development Specialist
Phone: +421 905 500958
Email: iturcan(zv)gamo.sk
"Filip Hochman"
<filip.hochman(zv)a To: <delphi-l(zv)clexpert(tec)cz>
tlas(tec)cz> cc:
Sent by: Subject: Algoritmus na �. bank. ��tu
delphi-l-owner(zv)c
lexpert(tec)cz
24.10.2001 15:34
Please respond
to delphi-l
Pripojil bych se k dotazu na validaci ICO s dotazem na validaci cisla
bankovniho uctu.
Dekuji, Filip.Dve tabulky v SQL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 24.10.2001 15:46:25
Pokud jses v prostedi MS-SQL (to znam), tak je mozne napsat si proceduru:
1. z view INFORAMATION_SCHEMA.Columns si nalezni pro:
table_name = "tab1"
Max(ordinal_position)
2. z view INFORAMATION_SCHEMA.Columns si nalezni pro:
table_name = "tab1"
ordinal_position >= Max( ordinal_position) -2
sloupce o ktere pujde:
z
data_type = typ sloupce (lze i domain_name)
charakter_maximum_Length
numeric_precision = pocet platnych cislic
numeric_scale = pocet desetinn�ch mist
is_nulable = povolena null hodnota.
3. z takto z�skanych udaju si zkonstruuj ALTER TABLE prikaz jako retezec.
4. spust je pres EXEC()
Nevim presne k cemu to potrebujes, ale menit za chodu databazove schema je
docela dobrodruzna zalezitost.> mam nasledujici problem, jsou dve tabulky v SQL
> ---------------------------------------
> tab1 ma sloupce A,B,C,D,XY,XX
> tab2 ma sloupce A.B,C,D
> ---------------------------------------
> tab2 potrebuji nejakym zpusobem pomoci SQL prikazu a ne pomoci delphi
> rozsirit o sloupce XY,XX z tabulky 1, pricem nazev sloupcu
> nevim a nevim ani
> typ dat v sloupci, takze otazka
> zni jestli se da nejakym zpusobem SQL rict aby pridal ty dva slopce se
> stejnym nazvem a se stejnym typem dat, moje predstava je
> nejak asi takhle,
> ale nevim jak dal :
> -------------------------------------------------------------
> ALTER TABLE tab2 ALTER COLUMN ( SELECT....
>
>
> DIK
>
> RichEdit.add
[*] daniel.hrna(zv)sme(tec)cz - 24.10.2001 15:46:52
Ve Windows 2000 mi program spatne zarovnava v RichEditu text. Pokud je nekde
ve Stringu "�" (e s hackem), oststn� text za nim je ve fontu SimCar, pro me
chaoticky prohozene. Nahrazovali jsme funkce ADD formou TEXT, ale dela to
porad.
Urcite uz to nekdo resil:
Pr:
RichEdit.Clear;
RichEdit.add('ahoj n�kdo jde ...');
RichEdit.add('tady uz to bude spatne, za tim predchozim e-s_hackem je chaos
...');
Jak to vyresit, poradte.
Pokud muzu poprosit tak nejak nazorneji, nejsem profik ... :-)
Dan
Dve tabulky v SQL
[*] <kuchar(zv)unicodesys(tec)cz> - 24.10.2001 15:53:41
jedna se o MSSQL 7 ale jak to mam slozit, ktere prikazy jsou na to a jak je
spravne poskladat
> Jedna-li se o MSSQL pak jedine pomoci dynamicky vyrobeneho SQL prikazu,
> ktery se nasledne spusti pres sp_executesql nebo pres EXEC().
>
> > Caute,
> >
> > mam nasledujici problem, jsou dve tabulky v SQL
> > ---------------------------------------
> > tab1 ma sloupce A,B,C,D,XY,XX
> > tab2 ma sloupce A.B,C,D
> > ---------------------------------------
> > tab2 potrebuji nejakym zpusobem pomoci SQL prikazu a ne pomoci delphi
> > rozsirit o sloupce XY,XX z tabulky 1, pricem nazev sloupcu nevim
> > a nevim ani
> > typ dat v sloupci, takze otazka
> > zni jestli se da nejakym zpusobem SQL rict aby pridal ty dva slopce se
> > stejnym nazvem a se stejnym typem dat, moje predstava je nejak asi
takhle,
> > ale nevim jak dal :
> > -------------------------------------------------------------
> > ALTER TABLE tab2 ALTER COLUMN ( SELECT....
>
>Algoritmus na �. bank. ��tu
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 24.10.2001 15:57:19
jednoduche pokud mate format uctu predcisli-ucet klienta
1.predcisli musi mit 2-6 znaku a musi byt modulo 11 (nebo nemusi byt
uvedeno vubec)
2. cislo klienta musi mit delku 2 az 10 znaku a je modulo 11
pak je mozne take rozlozit cislo uctu a predcisli na dalsi informace
jako je pobocka, druh organizace ale to je pokud se nemylim specificke
pro kazdou banku a nemusi to dodrzovat nejaky standartni format.
-----Original Message-----
From: Filip Hochman [mailto:filip.hochman(zv)atlas(tec)cz]
Sent: Wednesday, October 24, 2001 3:34 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Algoritmus na �. bank. ��tu
Pripojil bych se k dotazu na validaci ICO s dotazem na validaci cisla
bankovniho uctu.
Dekuji, Filip.Algoritmus na �. bank. ��tu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 24.10.2001 16:13:46
Ahoj, bohuzel se mylis:
predcisli je nepovinn� tj. muze mit i 0 znaku,
dalsi informace jsou naprosto specificke pro banku a velmi casto neplati ani
uvnitr jedne banky (napr. ucty je mozno bez precislovani prevadet mezi
pobockami,....).
cislo uctu neni modulu 11, ale dvojkovy doplnek cisla je modulo 11. Dtto
plati i pro predcisli. Obe je nutno zprava doplnit nulami na plnou delku.
> jednoduche pokud mate format uctu predcisli-ucet klienta
>
> 1.predcisli musi mit 2-6 znaku a musi byt modulo 11 (nebo nemusi byt
> uvedeno vubec)
> 2. cislo klienta musi mit delku 2 az 10 znaku a je modulo 11
>
> pak je mozne take rozlozit cislo uctu a predcisli na dalsi informace
> jako je pobocka, druh organizace ale to je pokud se nemylim specificke
> pro kazdou banku a nemusi to dodrzovat nejaky standartni format.
>
> -----Original Message-----
> From: Filip Hochman [mailto:filip.hochman(zv)atlas(tec)cz]
> Sent: Wednesday, October 24, 2001 3:34 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Algoritmus na �. bank. ��tu
>
>
> Pripojil bych se k dotazu na validaci ICO s dotazem na validaci cisla
> bankovniho uctu.
> Dekuji, Filip.
> Algoritmus na �. bank. ��tu
[*] skalsky(zv)oksystem(tec)cz - 24.10.2001 16:15:05
s tim cislem banky bych mirne poopravil... jaxi tam neni zahrnuta ta
validace !
... coz by pak samozrejme nevychazelo na to modulo :(
Uvazujeme-li, ze cislo uctu se sklada z xxxxxx-xxxxxxxxxx (6 predcisli - 10
cislo uctu), pak
predcisli = 0 nebo <2;6> znaku ... od predu se doplnuji nulama na delku 6
cislo uctu = <2;10> znaku ... od predu se doplnuji nulama na delku 10
... a ted ta validace >
Vahy >
pozice od zadu >
k1=1;
k2=2;
k3=4;
k4=8;
k5=5;
k6=10;
k7=9;
k8=7;
k9=3;
k10=6;
priklad> cislo uctu > 300790243 ...
3*k1=3
4*k2=8
2*k3=8
9*k5=45
7*k6=70
3*k9=9
-------- Suma > 143 ... 143 mod 11 = 0 ... cislo OK
pro predcisli beres akorat prvnich 6 vah
S pozdravem Milan
Milan P. Skalsk�
odd�len� technick�ho rozvoje
OKsystem s.r.o.
Na Pankr�ci 125
140 21, Praha 4
---
http://www.oksystem(tec)cz
MailTo:Skalsky(zv)oksystem(tec)cz
Tlf +420 2 44021217
-----Original Message-----
From: Sula Milos [mailto:milos.sula(zv)oku-su(tec)cz]
Sent: Wednesday, October 24, 2001 3:57 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Algoritmus na �. bank. ��tu
jednoduche pokud mate format uctu predcisli-ucet klienta
1.predcisli musi mit 2-6 znaku a musi byt modulo 11 (nebo nemusi byt
uvedeno vubec)
2. cislo klienta musi mit delku 2 az 10 znaku a je modulo 11
pak je mozne take rozlozit cislo uctu a predcisli na dalsi informace
jako je pobocka, druh organizace ale to je pokud se nemylim specificke
pro kazdou banku a nemusi to dodrzovat nejaky standartni format.Proc nefunguje SetWindowsHookEx v Microsoftich apl
[*] Jan Novak <megamax(zv)seznam(tec)cz> - 24.10.2001 16:18:56
Ahoj,
pozivam fci
SetWindowsHookEx(WH_KEYBOARD,Addr(KeyboardProc),HInstance,0);
pro hookovani klavesnice kvuli klavesovym zkratkam, ktere musi fungovat i v
jinych aplikacich. V vetsine novych aplikacich, jako Word2000, Excel,
IExplorer 6.0 to vsak nefunguje, pritom konkretne u IExploreru 5.5 to jeste
fungovalo. Nevite cim to je a jak na to? Potreboval bych globalne scanovat
klavesnici na klavesove zkratky.
diky
Pavel Novak
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.277 / Virov� b�ze: 146 - datum vyd�n�: 5.9.2001
Algoritmus na �. bank. ��tu
[*] Jan Dite <jan.dite(zv)atlas(tec)cz> - 24.10.2001 16:18:01
Je to trosku slozitejsi.
CNB (nebo kdo) definuje 16 mistne cislo uctu, ktere se da rozdelit na dve
casti - 6 a 10 mist.
Kontroluje se zvlast prvni a druha cast. Kontrola te druhe je popsana
spravne, prvni cast se kontroluje podobne, jen vahy (pro ABCDEF) jsou 10,
5, 8, 4, 2, 1.
Casti cisla uctu mohou byt oddeleny pomlckou, obe se pro validaci doplnuji
zleva nulami.
j.d.
ps: da se jit jeste vic do hloubky, viz
www.cnb(tec)cz/_platebni_styk/pdf/struktura_cisel_uctu.pdf
----------------------------
10 cislic: ABCDEFGHIJ (ak je menej, dopln nulami na zaciatku)
A*6 + B*3 + C*7 + D*9 + E*10 + F*5 + G*8 + H*4 + I*2 + J musi byt
delitelne 11.
vola sa to abo kontrola.
Algoritmus na �. bank. ��tu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 24.10.2001 16:32:55
Hi,
tady je prikladek
http://www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=164
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> -----Original Message-----
> From: Filip Hochman [mailto:filip.hochman(zv)atlas(tec)cz]
> Subject: Algoritmus na �. bank. ��tu
>
> Pripojil bych se k dotazu na validaci ICO s dotazem na validaci cisla
> bankovniho uctu.
> Dekuji, Filip.FB - CURSOR, ...WHERE IN (SELECT..., "New" in trig
[*] Miroslav Slav�k <slavik(zv)ticketpro(tec)cz> - 24.10.2001 16:50:39
Ahoj,
mam nekolik problemu s FB(nejspis i IB).
1. Jak deklarovat a pak pouzit cursor napr. v triggeru.
2. Jak funguje nasledujici prikaz?
-------------
delete from .. where X in (select ...)
-----------
moje predstava je, ze je vybrana mnozina pro kterou plati X in (select...) a
na ni je alikovano delete. (bohuzel to tak nefunguje)
3. Jak zjistim uvnitr BU triggeru, ktera pole jsou updatovana?
Diky za kazdou radu.
Mira
Ing. Miroslav Slav�k
TICKETPRO, a.s.
Salv�torsk� 10
110 01 Praha 1
mail: slavik(zv)ticketpro(tec)cz
tel: +420 2 24814020
Pridanie vlastnosti
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.10.2001 16:53:01
> procedure TRTSColumn.Assign(Source: TPersistent);
> begin
> Self.Assign(TColumn.Create(nil));
> end;
>
> Pomozte please.
procedure TRTSColumn.Assign(Source: TPersistent);
begin
if Source is TRTSColumn then
begin
FOrderBy := TRTSColumn(Source).FOrderBy;
FCollateBy := TRTSColumn(Source).FCollateBy;
FOrder := TRTSColumn(Source).FOrder;
// atakdalej, skratka aby vysledkom bolo, ze tato instancia prebrala
hodnoty svojich vlastnosti od Source
end
else
inherited Assign(Source); // toto moze/malo by sposobit Exception, (ak
to nie je inak osetrene v predkoch, nestudoval som tie zdrojaky)
end;
HTH
TOndrej
Proc nefunguje SetWindowsHookEx v Microsoftich apl
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 17:00:08
From: "Jan Novak" <megamax(zv)seznam(tec)cz>
> pro hookovani klavesnice kvuli klavesovym zkratkam, ktere musi fungovat i v
> jinych aplikacich. V vetsine novych aplikacich, jako Word2000, Excel,
> IExplorer 6.0 to vsak nefunguje, pritom konkretne u IExploreru 5.5 to jeste
Ahoj,
muzes jeste zkusit WH_KEYBOARD_LL, ale nebylo by lepsi ty klavesove zkratky
zaregistrovat pres RegisterHotKey ?
Petr Vones
tlacitka na hlavnim panelu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 17:30:24
From: "Martin Macko" <martinm(zv)m-pro(tec)cz>
> Obcas to dela taky ScreenSaver - tlacitko na liste zustane viset a po
> zmacknuti zmizi ...
Ahoj,
tohle je s nejvetsi pravdepodobnosti chyba ve Win98, WH_SHELL hook.
Petr Vones
tlacitka na hlavnim panelu
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 24.10.2001 17:30:57
Obcas to dela taky ScreenSaver - tlacitko na liste zustane viset a po
zmacknuti zmizi ...
-----Original Message-----
Behalf Of Zdenek Drvota
Ahoj!
nevim, neni tohle vlastnost W98 CZ, kdyz bezi zobrazeni
stavu klavesnice na panelu (internat)?
Osirela prazdna tlacitka...
Vyslovnost
[*] Ale� Kresta <ales.kresta(zv)seznam(tec)cz> - 24.10.2001 20:06:36
Dobry den,
chtel bych se zeptat zda neexistuje nejaka komponenta nebo program, ktera by dokazala precis(s anglickou vyslovnosti) zadany text.
Predem diky za odpoved
events formu
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 24.10.2001 20:36:02
nemohu prijit na vyjimku pri zmene umisteni formu tj. kdy posunu form mysi
treba o kus do leva.
Diky za radu.Vyslovnost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 20:38:30
From: "Ale# Kresta" <ales.kresta(zv)seznam(tec)cz>
> chtel bych se zeptat zda neexistuje nejaka komponenta nebo program, ktera by
> dokazala precis(s anglickou vyslovnosti) zadany text.
Ahoj,
Using Speech Technology with your Delphi Apps:
http://www.undu.com/Articles/990120b.html
Petr Vones
RichEdit.add
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 20:43:20
From: <daniel.hrna(zv)sme(tec)cz>
> Ve Windows 2000 mi program spatne zarovnava v RichEditu text. Pokud je nekde
> ve Stringu "�" (e s hackem), oststn� text za nim je ve fontu SimCar, pro me
> chaoticky prohozene. Nahrazovali jsme funkce ADD formou TEXT, ale dela to
Ahoj,
a jaky pouzivas font ? Neni to tim, ze ten font nema Central European script ?
Petr Vones
Kylix 2 Trial Was:kylix patchs
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 23:47:18
From: "Radek Cervinka" <radek.cervinka(zv)centrum(tec)cz>
> pokud jsem dobre cetl tak open edition bude az pozdeji (ve 4 Q/2001)
> takze pro me je to zatim akutni :)
Ahoj,
ale muzes si stahnout alespon trial verzi:
http://www.borland.com/kylix/tryitnow.html
Petr Vones
events formu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.2001 23:50:25
From: "3D-imenision" <3dimension(zv)seznam(tec)cz>
> nemohu prijit na vyjimku pri zmene umisteni formu tj. kdy posunu form mysi
> treba o kus do leva.
Ahoj,
Vyjimku ?
Petr Vones
RTF
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 25.10.2001 00:18:21
Zdravim delfiny!
Shanim popis formatu RTF pokud mozno v cestine (staci v anglictine).
Dale potrebuji poradit: co znamena "NAHRADNI ZNAK" ve formatu RTF, ktere
nahrazuji UNIKODE znaky. Jak a kde tyto znaky mam nadefinovat ?
Predem diky za odpovedi. :-)
Martin Pavera
RTF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.2001 00:22:39
From: "Martin Pavera" <martin.pavera(zv)cmail(tec)cz>
> Shanim popis formatu RTF pokud mozno v cestine (staci v anglictine).
Ahoj,
tady je: http://support.microsoft.com/support/kb/articles/Q86/9/99.ASP
Petr Vones
jako ComboBox
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 25.10.2001 05:49:55
Zdravim,
potrebuji vytvorit neco jako ComboBox, ale pouze tu roletku, co se vysune z
Editu. Ta roletka se musi umet rozbalit pres objekt (v podstate kdekoliv na
plose) - neco jako PopupMenu, ktere se nakresli na plose dle souradnic - to
pisu kvuli vysvetleni.
V podstate potrebuji neco jako Code Insight - coz je napoveda, co mam prave
psat v programu dle promenych.
Diky za pomoc
Pavel ZIDEK
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
jako ComboBox
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 25.10.2001 06:22:50
Ja toto resim primitivne tak, ze si na formu dam TListBox, ktery je
neviditelny a v pripade potreby si ho nastavim na urcitou souradnici,
naplnim a zobrazim.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Zdravim,
> potrebuji vytvorit neco jako ComboBox, ale pouze tu roletku, co se vysune
z
> Editu. Ta roletka se musi umet rozbalit pres objekt (v podstate kdekoliv
na
> plose) - neco jako PopupMenu, ktere se nakresli na plose dle souradnic -
to
> pisu kvuli vysvetleni.
> V podstate potrebuji neco jako Code Insight - coz je napoveda, co mam
prave
> psat v programu dle promenych.
>
> Diky za pomoc
> Pavel ZIDEK
Rozpoznani ukonceni windowsu.
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 25.10.2001 06:25:49
Resi se to pomoci zprav WM_QUERYENDSESSION a WM_ENDSESSION. Ozvi se pripadne
na soukromy mail (pjsoft(zv)volny(tec)cz) .
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Zdravim,
> mam programek spusteny jako sluzbu s ikonkou v trayi.
> Kdyz klepnu na ikonku, tak se zobrazi hlavni form programku.
> Kdyz mu dam close tak, se zase schova a zustane bezet na pozadi.
> Ale kdyz konci Windows, tak bych potreboval aby skutecne provedl
> close a skoncil. Aby nejak poznal, ze ho ukoncuji Windowsy.
>
> Nemate nekdo napad, jak to udelat?
>
> S uctou
>
> Robert Plzak
>
> ICQ: 71733706
FB - CURSOR, ...WHERE IN (SELECT..., "New" in trig
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 25.10.2001 06:49:03
On 24 Oct 2001, at 16:50, Miroslav Slav�k wrote:
> 3. Jak zjistim uvnitr BU triggeru, ktera pole jsou updatovana?
IF (OLD.pole != NEW.pole)
Z.Kalhous
Algoritmus na �. bank. ��tu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 25.10.2001 07:25:11
Tady je vynatek ze specifikace formatu KB-GPC:
7. #�sla ��t� v edi�n�m form�tu jsou zabezpe�ena podle t�chto
pravidel:
- kontroln� ��slic� se samostatn� chr�n� 1.��st a samostatn� 2.
��st ��sla ��tu,
- kontrola se po��t� modulo 11 p�i vah�ch tvo�en�ch ��selnou
�adou 2n , resp. zbytkem 2n po vyd�len� modulo 11:
-|||||||||||||||T|||T|||T|||T|||T|||T|||T|T|||T|||T|||T|||T|||T|||T|||T|||T|||T|
||?
-
2n -215-214-213-212-211-210- -29 -28 -27 -26 -25 -24 -23 -22 -21 -20 -
+|||||||||||||||+|||||||+|||+|||+|||+|||+|+|||+|||+|||+|||+|||+|||+|||+|||+|||+|
||+
-��slo ��tu - 1. ��st --- 2.
-
+|||||||||||||||+|||T|||T|||T|||T|||T|||+|+|||T|||T|||T|||T|||T|||T|||T|||T|||T|
||+
-v�ha - 10- 5 - 8 - 4 - 2 - 1 - - 6 - 3 - 7 - 9 - 10- 5 - 8 - 4 - 2 -
1 -
L|||||||||||||||+|||+|||+|||+|||+|||+|||+|+|||+|||+|||+|||+|||+|||+|||+|||+|||+|
||-
- ��sla ��t�, kde by kontroln� ��slice nabyla hodnoty "10", se
nepou��vaj�,
- kontrola obou ��st� ��sla ��tu se po��t� shodn�m algoritmem.
P��klad kontroly CDV modulo 11 ��sla ��tu 158-3214151:
-|||||||||||||||T|||T|||T|||T|||T|||T|||T|T|||T|||T|||T|||T|||T|||T|||T|||T|||T|
||?
-edi�n� form�t - - - - 1 - 5 - 8 --- - - - 3 - 2 - 1 - 4 - 1 - 5 -
1 -
+|||||||||||||||+|||+|||+|||+|||+|||+|||+T+|||+|||+|||+|||+|||+|||+|||+|||+|||+|
||+
-v�hy - 10- 5 - 8 - 4 - 2 - 1 - 6 - 3 - 7 - 9 - 10- 5 - 8 - 4 - 2 -
1 -
+|||||||||||||||+|||+|||+|||+|||+|||+||||+||||+|||+|||+|||+|||+|||+|||+|||+|||+|
||+
-sou�iny - - - - 4 - 10- 8 - - - - 27- 20- 5 - 32- 4 - 10-
1-
L|||||||||||||||+|||+|||+|||+|||+|||+||||+||||+|||+|||+|||+|||+|||+|||+|||+|||+|
||-
Kontrola prob�h� zvl�## za ka�dou ��st ��sla ��tu takto:
1. ��st ��sla ��tu: 4 + 10 + 8 = 22
22 : 11(modulo) = 2, zbytek 0
2. ��st ��sla ��tu: 27 + 20 + 5 + 32 + 4 + 10 + 1 = 99
99 : 11(modulo) = 9, zbytek 0
Kontrola CDV je v po��dku (zbytky po d�len� jsou rovny nule).
Je ��douc� prov�d�t p�edb��nou kontrolu spr�vnosti CDV modulo 11
��sel ��t� uv�d�n�ch v KM s p��kazy k z��tov�n�, vytv߰en�ch
klienty KB.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> jednoduche pokud mate format uctu predcisli-ucet klienta
>
> 1.predcisli musi mit 2-6 znaku a musi byt modulo 11 (nebo nemusi byt
> uvedeno vubec)
> 2. cislo klienta musi mit delku 2 az 10 znaku a je modulo 11
>
> pak je mozne take rozlozit cislo uctu a predcisli na dalsi informace
> jako je pobocka, druh organizace ale to je pokud se nemylim specificke
> pro kazdou banku a nemusi to dodrzovat nejaky standartni format.Prekreslovani komponenty a jeji blikani
[*] David Kraina <DKx(zv)seznam(tec)cz> - 25.10.2001 07:32:33
> v soucasne dobe resim nasledujici problem:
> mam vlastni komponentu odvozenou od TGraphicControl.
> Do jejiho canvasu provadim v metode Paint prekreslovani.
> Problem je v tom, ze kdykoliv se zavola procedura Paint,
> tak cela komponenta neprijemne blika.
Resilo se to se mnou (nejspis) a tak zkus napsat do k�du prikaz
DoubleBuffered:=True;
______________________________________________________________________
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
Propojen� DLL se st�vaj�c�m p�ipojen�
[*] Horcicka Petr <Petr.Horcicka(zv)mafra(tec)cz> - 25.10.2001 07:46:10
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj
Snazim se vyresit problem s DLL a databazi.
Mam aplikaci a potrebuji jeji jednotlive formulare rozdelit na DLL knihovny
ale tak aby pokud je zavolam pouzival formular stavajici pripojeni k
databazi tj. aby cela aplikace pouzivala pouze jeden connect.
Pouzivam Oracle a Delphi 6.
Pokud nekdo poradite budu moc rad.
Moc dik Petr Horcicka.
Phorcicka(zv)seznam(tec)cz
PS: kr�tk� prikladek by pomohl
events formu
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 25.10.2001 08:03:18
From: "3D-imenision" <3dimension(zv)seznam(tec)cz>
> nemohu prijit na vyjimku pri zmene umisteni formu tj. kdy posunu form mysi
> treba o kus do leva.
> Diky za radu.
Miesto "vyjimku" asi myslis ktory event ze? Tak to musis reagovat na message
WM_WINDOWPOSCHANGING.
(Jej pouzitie najdes ako priklad v unite forms)
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
onIDLE formu
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 25.10.2001 08:06:59
Ahoj,
nevite nekdo jak se chova onidle formu. Stalo se mi, ze se vyvolalo pouze
jednou a pak nic (aplikace byla minimalizovana). Neni lepsi pro periodicke
zjistovani stavu "neceho" pouzit timer? Nebo se to resi jinak a lepe?
Diky
Ka.Zapis memo do suboru
[*] Fabik Milan <kinekus(zv)nextra.sk> - 25.10.2001 08:19:52
Zdravim, prosim o 5 sekundovu radu
v subore mam taketo riadky
string1
string2
string3
Potrebuje ale
string1
string2
memo.list
string3
Neviem to. Ako na to ?
Dakujem Fabik
P.S. Sorry za neprofesionalny dotaz.Aplikace pro "ruskymi" windows
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 25.10.2001 08:23:59
Mate nekdo prakticke zkusenosti s provozem app v Delphi 5 vytvarene pod Win
2000 CZ, pod ruskymi Win (9x,2000). Nejedna se mi o lokalizaci, ale o to,
jestli nejsou znamy nejake problemy s provozem app, ktera je anglicky pod
vyse zminenymi win.
Dik
Ondrej
Propojen� DLL se st�vaj�c�m p�ipojen� m na datab�z
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 25.10.2001 08:31:53
On 25 Oct 2001 at 7:46, Horcicka Petr wrote:
> Ahoj
> Snazim se vyresit problem s DLL a databazi.
> Mam aplikaci a potrebuji jeji jednotlive formulare rozdelit na DLL
> knihovny ale tak aby pokud je zavolam pouzival formular stavajici
> pripojeni k databazi tj. aby cela aplikace pouzivala pouze jeden
> connect. Pouzivam Oracle a Delphi 6.
Zkus z toho udelat COM objekty a databazove pripojeni udelej take tak. Pak ho budes moct
snadno sdilet.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Algoritmus na �. bank. ��tu
[*] Roland Turcan <rolo(zv)sedas.sk> - 25.10.2001 08:40:56
Ahojte.
Predcislie je nepovinne, kontrola modulo 11 bez zvysku
a ucet sa kontroluje takto:
function SpravneCisloUctu(CisloUctu:String):Boolean;
resourcestring Chyba='Chyba pri prevode e�sla �etu.';
var CisloU:real;
Vysledok:Integer;
Ucet:string[11];
SiedmyZnak:string[1];
begin
Result:=False;
if CisloUctu='' then begin Result:=true; Exit; end;
try
CisloU:=StrToFloat(CisloUctu);
except
MessageDlg(Chyba, mtError, [mbOK], 0);
Exit;
end;
Ucet:='0000000000';
Ucet:=Copy(Ucet,1,10-Length(FloatToStr(CisloU)))+FloatToStr(CisloU);
CisloU:=StrToFloat(Ucet[1])*6+
StrToFloat(Ucet[2])*3+
StrToFloat(Ucet[3])*7+
StrToFloat(Ucet[4])*9+
StrToFloat(Ucet[5])*10+
StrToFloat(Ucet[6])*5+
StrToFloat(Ucet[8])*4+
StrToFloat(Ucet[9])*2+
StrToFloat(Ucet[10]);
Vysledok:=(Round(CisloU)) mod 11;
Case Vysledok of
0 : SiedmyZnak := '0';
1 : SiedmyZnak := '4';
2 : SiedmyZnak := '8';
3 : SiedmyZnak := '1';
4 : SiedmyZnak := '5';
5 : SiedmyZnak := '9';
6 : SiedmyZnak := '2';
7 : SiedmyZnak := '6';
8 : SiedmyZnak := '8';
9 : SiedmyZnak := '3';
10: SiedmyZnak := '7';
end;
if Ucet[7]=SiedmyZnak then Result:=True;
end;
onIDLE formu
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 25.10.2001 08:42:55
From: "Ka.Kewasa" <kewasa(zv)quick(tec)cz>
> nevite nekdo jak se chova onidle formu. Stalo se mi, ze se vyvolalo pouze
> jednou a pak nic (aplikace byla minimalizovana). Neni lepsi pro periodicke
> zjistovani stavu "neceho" pouzit timer? Nebo se to resi jinak a lepe?
Timer bohate staci.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
jako ComboBox
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 25.10.2001 08:46:58
Delam to taky podobne, jenom TListBox vyrobim dynamicky. Problem je ale v
tom, ze kdyz je tento TListBox nekde na kraji - v zavislosti na p[ozici
curzoru-, tak vzniknou na Formu Rolovaci listy.
Proto potrebuji aby tento "ListBox" se umel prepisovat podobne jako
PopupMenu - kdekoliv na plose.
Umi to nekdo
Pavel
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> Ja toto resim primitivne tak, ze si na formu dam TListBox, ktery je
> neviditelny a v pripade potreby si ho nastavim na urcitou souradnici,
> naplnim a zobrazim.
>
> > Zdravim,
> > potrebuji vytvorit neco jako ComboBox, ale pouze tu roletku, co se
vysune
> z
> > Editu. Ta roletka se musi umet rozbalit pres objekt (v podstate kdekoliv
> na
> > plose) - neco jako PopupMenu, ktere se nakresli na plose dle souradnic -
> to
> > pisu kvuli vysvetleni.
> > V podstate potrebuji neco jako Code Insight - coz je napoveda, co mam
> prave
> > psat v programu dle promenych.
> >
> > Diky za pomoc
> > Pavel ZIDEK
>jako ComboBox
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 25.10.2001 08:58:48
Dobry den,
asi takhle:
1) udelat si formular kde mam ten list box (pres cely) nebo cokoliv chci
2) v tom formulari nadeklarovat toto:
private
procedure WMActivate (var message : tWMActivate); message WM_ACTIVATE;
procedure TForm.WMActivate (var message : tWMActivate);
begin
inherited;
if (Message.Active=WA_INACTIVE) then ModalResult:=mrCancel;
end;
3) zavolat ten formular kdyz je treba, upravit mu pozici atd.jako ComboBox
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 25.10.2001 09:09:14
A to je problem dat tam par podminek ????
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Delam to taky podobne, jenom TListBox vyrobim dynamicky. Problem je ale v
> tom, ze kdyz je tento TListBox nekde na kraji - v zavislosti na p[ozici
> curzoru-, tak vzniknou na Formu Rolovaci listy.
> Proto potrebuji aby tento "ListBox" se umel prepisovat podobne jako
> PopupMenu - kdekoliv na plose.
> Umi to nekdo
> Pavel
FB - CURSOR, ...WHERE IN (SELECT..., "New" in trig
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 25.10.2001 09:17:02
Tak jednoduche to zas neni,
toto plati POUZE pro pole not null.
je treba neco takoveho:
IF( old.pole=new.pole OR (old.pole is null and new.pole is null))THEN pole se nezmenila.
Slavek
> -----P�vodn� zpr�va-----
> Od: Kalhous Zdenek [SMTP:zdenek.kalhous(zv)comarr(tec)cz]
> Odesl�no: 25. ��jna 2001 6:49
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: FB - CURSOR, ...WHERE IN (SELECT..., "New" in trigger
>
> On 24 Oct 2001, at 16:50, Miroslav Slav�k wrote:
> > 3. Jak zjistim uvnitr BU triggeru, ktera pole jsou updatovana?
> IF (OLD.pole != NEW.pole)
> Z.Kalhous
jako ComboBox
[*] Ondrej Michal <Mion(zv)strom(tec)cz> - 25.10.2001 09:22:55
Pokud jde jen o rolovaci listy formu, ty jdou ale snadno zakazat zmenou
vlastnosti formu.
Mion
> -----Original Message-----
> From: Pavel ZIDEK [SMTP:delphi(zv)kopr(tec)cz]
> Sent: Thursday, October 25, 2001 8:47 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: jako ComboBox
>
> Delam to taky podobne, jenom TListBox vyrobim dynamicky. Problem je ale v
> tom, ze kdyz je tento TListBox nekde na kraji - v zavislosti na p[ozici
> curzoru-, tak vzniknou na Formu Rolovaci listy.
> Proto potrebuji aby tento "ListBox" se umel prepisovat podobne jako
> PopupMenu - kdekoliv na plose.
> Umi to nekdo
> Pavel
>
> TDateTimePicker
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 25.10.2001 09:23:35
Ahoj,
pouzivam komponentu TDateTimePicker v modu pro zobrazeni casu
(Kind=dtkTime). Potreboval bych ale aby zobrazovany cas byl ve formatu bez
vterin (hh:mm). Nevite nekdo jak na to?
Diky. Jara.
svehla(zv)spelza(tec)cz
FB - CURSOR, ...WHERE IN (SELECT..., "New" in trig
[*] Miroslav Slav�k <slavik(zv)ticketpro(tec)cz> - 25.10.2001 09:24:48
Ahoj,
>> 3. Jak zjistim uvnitr BU triggeru, ktera pole jsou updatovana?
>IF (OLD.pole != NEW.pole)
>Z.Kalhous
To jsem samozrejme zkousel, ale naprosto to nefunguje. Tobe ano?
Mira
Ing. Miroslav Slav�k
TICKETPRO, a.s.
Salv�torsk� 10
110 01 Praha 1
mail: slavik(zv)ticketpro(tec)cz
tel: +420 2 24814020
InterBase server: cannot perform network request t
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 25.10.2001 09:28:26
Haj hou!
On 24 Oct 2001, at 8:23, Karel Rys wrote:
> prosim o radu, zacinam byt celkem zoufaly... Ve firme mame na stroji s
> Windows 2000 nainstalovany IB server. V logu se obcas vyskytne
> Terminated abnormally (-1). K tomu, aby se dalo s databazi dal pracovat,
> je pak treba zpravidla provest Sweep, jinak se klientum zobrazi Cannot
> perform network request to... Neni to problem na siti, protoze totez se
> mi stalo uz nekolikrat doma na PC. Netusite nekdo, v cem by mohl byt
> problem? Pocitac je na UPS, zadnou jinou zatez nema...
Jaka verze Interbase ? IB bezne na W2000 funguje bez problemu.
Abnormalni ukonceni serveru ukazuje nejspise na chybu v IB (resp.
pouziti konstruktu na klientovi ktera IB posle do kopru). Jake
operace klienti provadeji ?
S pozdrabem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
jako ComboBox
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 25.10.2001 09:33:05
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
> Delam to taky podobne, jenom TListBox vyrobim dynamicky. Problem je ale v
> tom, ze kdyz je tento TListBox nekde na kraji - v zavislosti na p[ozici
> curzoru-, tak vzniknou na Formu Rolovaci listy.
> Proto potrebuji aby tento "ListBox" se umel prepisovat podobne jako
> PopupMenu - kdekoliv na plose.
> Umi to nekdo
> Pavel
Mozes ten TListBox podlozit formom ktory nebude mat titulok.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
jako ComboBox
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.10.2001 09:52:55
> Delam to taky podobne, jenom TListBox vyrobim dynamicky.
> Problem je ale v
> tom, ze kdyz je tento TListBox nekde na kraji - v zavislosti
> na p[ozici
> curzoru-, tak vzniknou na Formu Rolovaci listy.
> Proto potrebuji aby tento "ListBox" se umel prepisovat podobne jako
> PopupMenu - kdekoliv na plose.
> Umi to nekdo
Malo by stacit, ak jeho parent bude desktop: ParentWindow :=
GetDesktopWindow;
Bude potom potrebovat WS_EX_TOOLWINDOW extended style, aby neukazoval button
na taskbare: overridni si CreateParams.
Mal by si asi tiez osetrit dalsie veci, ako napr. schovanie listboxu pri
prepnuti do inej aplikacie: Application.HookMainWindow(MyMessageHook); a
osetrit WM_ACTIVATEAPP.
HTH
TOndrej
TDateTimePicker
[*] VALIK <valentapat(zv)volny(tec)cz> - 25.10.2001 09:53:32
Zkrat mu sirku.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
----- Original Message -----
From: SPELZA s.r.o. <spelza(zv)spelza(tec)cz>
To: Konference Delphi <Delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, October 25, 2001 9:23 AM
Subject: TDateTimePicker
> Ahoj,
> pouzivam komponentu TDateTimePicker v modu pro zobrazeni casu
> (Kind=dtkTime). Potreboval bych ale aby zobrazovany cas byl ve formatu bez
> vterin (hh:mm). Nevite nekdo jak na to?
>
> Diky. Jara.
> svehla(zv)spelza(tec)cz
>
>
>
Zapis memo do suboru
[*] Lubo Fule <fule(zv)ekosoft.sk> - 25.10.2001 10:38:46
Ak som to spravne pochopil, ide Ti o toto:
with TStringList.Create do
try
LoadFromFile('meno_suboru.txt');
Insert(str.Count-1, memo.Lines.Text);
SaveToFile('meno_suboru.txt');
finally
Free;
end;
L.
> v subore mam taketo riadky
>
> string1
> string2
> string3
>
> Potrebuje ale
>
> string1
> string2
> memo.list
> string3
OT: 1001 t&t pro Delphi - doprovodne CD
[*] Jaroslav Pospisil <delphi(zv)japos(tec)com> - 25.10.2001 10:39:21
I kdyz je to mimo ducha konference...
Narazka na druhy dil byla samozrejme jenom nadsazka, abych jenom vice
podtrhl jak vasi praci ocenuji. Na pokracovani Hvezdnych valek jsme take
cekali vice jak 20 let a o pokracovani Duny nemluve (jeste ze mel Frank
Herbert syna).
Takze treba az bude Delphi release 12, treba dozraje ten pravy cas...
S pozdravem
Jarda Pospisil
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of L.Svoboda
Sent: Sunday, October 21, 2001 12:13 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OT: 1001 t&t pro Delphi - doprovodne CD
Omlouvam se za jeste jeden OT.
Ve ctvrtek vecer jsme se sesli vsichni ctyri autori v jedne utulne hospudce
v Praze.
Vybiral ji Petr Vones a ma za to nasi pochvalu za dobry vkus!
Takze jsme si knizku v soukromi pokrtili, ale o tom jsem vlastne nechtel
psat.
Za tenhle mail, ktery jsme si vsichni onen zminovany vecer cetli,
mate nase tisicere diky! Diky takovehlemu oceneni ma nase
prace najednou uplne jiny smysl. Jeste jednou diky.
Mozna to zni ponekud pateticky, ale je to fakt.
Jestli nekdo z ucastniku teto konference nekdy vydaval nejakou publikaci,
tak vi, o cem je rec. O penezich tahle vec opravdu neni.
Co se tyka druheho dilu...
Zadnou takovouhle akci neplanujeme. Ne, ze by nebyl zajem,
ale uprimne receno, nevime, co bychom do toho druheho dilu psali.
Verte neverte, ale byl docela problem, dat dohromady tuhle sadu tipu.
Ono se to nezda, kdyz mate v penezence 1001 korun, tak to neni nic moc.
Ale napsat 1001 alespon trochu smysluplnych prikladu - dalo nam to zabrat.
Pokud bude o knihu na trhu zajem, tak je ale mozny nasledujici postup,
a to ten, ze se bude delat dotisk - rekneme druhe, doplnene vydani.
Urcite se v knize najdou nejake chyby nebo preklepy, zname to vsichni.
Takze v dotisku se toto opravi a pridaji se nejake dalsi tipy.
Kdo z vas ma doma treba knizku 1001 T&T pro Internet v druhem vydani,
tak ten vi, o cem mluvim. Je tam bez ohledu na nazev tech prikladu o neco
vic.
Ale nic vic nemohu slibit. Pokud by nekdo prisel se seznamem tipu pro druhy
dil, tak myslim neni problem to v redakcni rade prosadit a ten druhy dil
vydat.
Ale jak jsem psal, my jsme ted docela vycerpali zasoby.
Preji vsem hezky den
L.Svoboda
----- Original Message -----
From: Jaroslav Pospisil <delphi(zv)japos.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 15, 2001 10:04 PM
Subject: RE: OT: 1001 t&t pro Delphi - doprovodne CD
> Myslim si, ze takto napsana kniha ma pro skutecneho programatora cenu
zlata
> a je uplne jedno zda je s CD nebo ne.
> (Muj OCR s tim nema zadny problem.) Dulezite je, ze nekdo dokazal sebrat
to,
> co si kazdy programator za cas nastrada v poznamkovych souborech i na
> popsanych papirech a ma tu velkorysost, ze to za smesny peniz da vsem.
>
> Jste frajeri a spousta vyvojaru nejen v Delphi dostala svou bibli.
>
> Kdy vyjde druhy dil?
>
> Jarda Pospisil
> JAPOS
TAnimate
[*] Zden�k Sv�en - 25.10.2001 10:44:49
Zdravim,
umistil jsem si na form komponentou TAnimate. Povetsinou je schovana (Visibl
e=false). Kdyz nastavim:
Active:=True;
Visible:=True;
tak se komponenta objevi, ale chvili trva, nez se ta animace rozebehne.
Nevite nekdo jak odstranit to zpozdeni behu animace?
Diky.
Z.S.InterBase server: cannot perform network request t
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.10.2001 10:57:16
> On 24 Oct 2001, at 8:23, Karel Rys wrote:
>
> > prosim o radu, zacinam byt celkem zoufaly... Ve firme mame na stroji
> > s Windows 2000 nainstalovany IB server. V logu se obcas vyskytne
> > Terminated abnormally (-1). K tomu, aby se dalo s databazi dal
> > pracovat, je pak treba zpravidla provest Sweep, jinak se klientum
> > zobrazi Cannot perform network request to... Neni to problem na
> > siti, protoze totez se mi stalo uz nekolikrat doma na PC. Netusite
> > nekdo, v cem by mohl byt problem? Pocitac je na UPS, zadnou jinou
> > zatez nema...
>
> Jaka verze Interbase ? IB bezne na W2000 funguje bez problemu.
> Abnormalni ukonceni serveru ukazuje nejspise na chybu v IB (resp.
> pouziti konstruktu na klientovi ktera IB posle do kopru). Jake operace
> klienti provadeji ?
> Pavel Cisar
IBserver 6.0.1, IBX z hlavy nevim verzi, ale je to ta posledni
aktualizace, ktera se dala stahnout; zlobilo to ovsem i s tou starsi.
Zatim se mi bohuzel nepodarilo vysledovat, co konkretne server shodi.
Obvykle jeden den v aplikaci normalne pracuji a ukonci ji; druhy den
rano program nejde spustit s uvedenou hlaskou.
Na klientech jsou pouzivany IBQuery, IBDataSet, IBSQL, IBDatabase,
IBTransaction, IBTable (minimalne). Databaze obsahuje asi 90 tabulek
dost "huste" provazanych pomoci foreign key, asi 10 trigeru a zadnou
ulozenou proceduru (uz se tesim na kritiku ostatnich za spatny navrh
datoveho modelu, ale takhle to pro nase ucely opravdu vyhovuje...).
Pouzivaji se SELECT, UPDATE, INSERT, DELETE, pri normalni praci v teto
databazi nedochazi ke zmene struktury tabulek.
Z hlediska serveru je narocnejsi export dat - pri nem je vytvorena nova
pomocna databaze, v ni podle potreby nejake tabulky (jejich pole a
primarni index je pomoci tIBTable prevzata z te hlavni databaze), ty
jsou naplneny. Nakonec je tato pomocna databaze opet zrusena.
Kazde rano pomoci tIBBackupService probiha zaloha databaze. Chyba se
ovsem objevovala, i kdyz jsme nezalohovali.
Skoro bych rekl, ze po padu serveru bych se k nemu mnohdy mohl pripojit,
ale aplikace na zacatku pouziva jeste tIBDatabaseInfo pro zjisteni poctu
pripojenych uzivatelu, a na tom se ta chyba projevila vzdycky; kdyz jsem
pocet uzivatelu nezjistoval, casto jsem se pripojil uspesne - ne vsak
vzdy. Dalsi pripojeni byva mozne az po provedeni Sweep. Kontrola
databaze zadne chyby nenasla.
Karel Rys
TDateTimePicker
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.10.2001 11:02:21
> pouzivam komponentu TDateTimePicker v modu pro zobrazeni casu
> (Kind=dtkTime). Potreboval bych ale aby zobrazovany cas byl
> ve formatu bez vterin (hh:mm). Nevite nekdo jak na to?
Nestaci mu nastavit Format?
TOndrej
OT: automaticke ulozeni prilohy v MSO
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 25.10.2001 11:11:14
ahoj,
predem se omlouvam za OT, nevite nekdo, jak v MSOutlooku2k vytvorit
pravidlo, ktere by testovalo prichozi emaily, a pokud zprava obsahuje
prilohu s urcitou priponou (nebo vice pripon), tak aby ji automaticky
ulozil do daneho adresare. Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Jake bude pocasi? http://pocasi.seznam(tec)cz
Zapis memo do suboru
[*] David Kraina <DKx(zv)seznam(tec)cz> - 25.10.2001 11:14:39
> v subore mam taketo riadky
> string1
> string2
> string3
> Potrebuje ale
> string1
> string2
> memo.list
> string3
Dost blbe polozena otazka, tak nejspis blbe odpovim. Zapis to
zpusobem
string1
string2
#(znak-tady je memo)cyklus,ktery zapise memo(treba for...)
#(ukoncunjici znak)
string3
No a pak pri nacitani budes testovat prvni znak,zda neni # atd.
______________________________________________________________________
Vyberte Vas "Nejoblibenejsi automobil roku 2002 v CR"
a hlasujte na adrese http://www.autoroku(tec)cz. Hlavni vyhra 600 000 Kc!!!