Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Problem s TThread - vyreseno
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 5.5.1999 14:29:01
Vsem, kteri se mi pokusili pomoci velice dekuji a omlouvam se, ze jsem
jim vycerpal spoustu casu. Ja pitomec napsal do deklarace threadu misto
'constructor Create()' 'procedure Create()', takze mi thread nesel
vytvorit klasicky Sound := TSound.Create(); ale vytvarel jsem ho
Sound.Create - a tim vse vzniklo.
Jeste jednou se Vam omlouvam a diky
Mira
Pipani po Esc
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.5.1999 14:32:52
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.
Mam na formulari dve komponenty, ComboBox a Button.
Formular na KeyPreview nastaveno na true a na
KeyPress udalosti mam toto
if Key=#27 then ShowMessage(' Escape... ');
A ted ten dotaz : Pokud ma focus ten ComboBox,
tak to sice tu zpravu zobrazi, ale pak to jeste
trapne pipne, pokud ma focus to tlacitko, je to
OK, vite nekdo proc ?
PS: Nakonec jsem to udelal takhle
if Key=#27 then
begin
ShowMessage(' Escape... ');
Key:=#0;
end;
ale to se mi moc nelibi.
Diky za odpovedi...
...Dobra
GExperts
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 5.5.1999 14:32:42
Dobryyy, mam to na D4 Prof a dela to taky !! Jsi si jist, ze to delaji
GExperts ? a ktery modul ?
Mira
-----P�vodn� zpr�va-----
Od: Michal Motalik <motalik(zv)zl.inext(tec)cz>
Komu: Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 5. kv�tna 1999 13:49
P�edm�t: Re: GExperts
>
>Zkousel jsem to na W95 4.00.950a s D4 C/S a taky to bezi.
>
>Mam ale lepsi bug (zatim jsem o nem ale GExpertum nepsal):
>
>- vymazat od konce po slovech jeden cely radek (podle nastaveni
klavesnice
>treba CTRL+BackSpace)
>- obnoveni posledni akce (zase podle nastaveni klavesnice treba CTRL+Z)
>
>zkouseno na vyse uvedene konfiguraci
>
>!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!
>!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>!!!!!!!!!!! Dulezite: pred zkousenim vsechno ulozit !!!!!!!!!!!!
>!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!
>!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>
>nerad bych od nekoho dostal vynadane
>
>upresneni problemiku... - Kalendar 1./52(3). tyden
[*] Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk> - 5.5.1999 14:36:24
Adk a ani ostatne Slovenske a Ceske kalendare sa neriadia europskym
cislovanim. V europe totiz 1. tyzden zacina od prveho celeho januaroveho
tyzdna. Vo firme sme mali tento problem. Takze napriklad tento tyzden je na
Slovensku 19, ale v europe to je c. 18!
Dalibor
********************************
Dalibor Zliechovec
Frequentis s.r.o.
dalibor.zliechovec(zv)frequentis.sk
+421 7 64287798
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Polak Jiri
Sent: Wednesday, May 05, 1999 12:24 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: upresneni problemiku... - Kalendar 1./52(3). tyden, etc.> -----Original Message-----
> From: Hrabi of Chmeliste [mailto:MHrabanek(zv)merlin(tec)cz]
> Sent: Wednesday, May 05, 1999 12:42 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: upresneni problemiku... - Kalendar 1./52(3). tyden, etc.
> ozkousel, jak se pak zachova ta funkce. No, docela logicky
> dobre. Tedy rok
> 1956 zvladla dobre (ale asi ne podle CSN anejakycislo) ;-).
Me se to s tou normou nejak nezda. Myslim, ze by ji ceske
stolni kalendare dodrzovaly. A do kalendare, ktery mam na stole, jsem
se podival, je tam u 1.1.1999 napsano 1. tyden.
A napadlo me podivat se taky do ADK (pro ty, co to neznaji -
je to planovaci system od Grady). A tam je to stejne -
1.1. je prvni tyden. Pochybuji, ze by ADK bylo v rozporu
s nejakou normou - je to dost rozsireny system.
A pripada mi to logicke, ze rok zacina svym prvnim tydnem.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Instala�n� programy
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 5.5.1999 14:56:13
Narazil jsem na zajimavy programek se jmenem INF-Tool, ktery krome takovych
veci jako zip, samorozbalovaci exe s moznosti rozsekat na diskety, .CAB
soubory. ALE, coz je jeho hlavni cinnost, umi vygenerovat instalacni .INF
skript a pro instalaci pouzit sluzeb Windows. Takze v konecnem baliku neni
navic 700kB jako u "nekterych" instalatoru ale asi 30. Treba takova
kompletni instalace BDE ma pak 2,5 diskety. A umi i cestinu (sice takovou
neobratnou, ale po konzultaci s autorem se to snad spravi).
Pro zajemce http://inner-smile.com
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Pipani po Esc
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.5.1999 15:26:51
> PS: Nakonec jsem to udelal takhle
> if Key=#27 then
> begin
> ShowMessage(' Escape... ');
> Key:=#0;
> end;
>
> ale to se mi moc nelibi.
Ale v podstate ti nic jineho nezbyva.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Delphi 4 pod Windows NT 4.0
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 5.5.1999 15:26:16
Uz to tu bylo, najdi to v archivu konference na www.delphi(tec)cz. Myslim, ze je neco jako
BusThrottle=on do sekce [Display] v system.ini, ale radsi se na to podivej, todle mam z hlavy, jak se to tu furt probira :-)
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: <jslavice(zv)vce(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 5. kv�tna 1999 11:45
P�edm�t: Delphi 4 pod Windows NT 4.0
> Vazeni pratele,
>
> nainstaloval jsem lokalne Delphi 4 na pocitaci pod Windows NT 4.0. Po
> instalaci mely tlacitka komponent v palete zmenene ikony komponent. Samotna
> tlacitka jsou ve spravnem poradi, funguji normalne, nicmene prace je s tim
> samozrejme nepohodlna. PC ma Pentium II, 300 MHz, videokarta S3 Virge/GX 2
> MB. Na PC je nainstalovan Service Pack 3 pro NT. Dokaze mi nekdo poradit
> jak tento problem odstranit. Jsem v Konferenci Delphi benjaminek a tak
> prosim o omluvu, pokud jiz tento problem byl zde diskutovan
>
> Josef Slavicek
>
> D�lka textu v pixelech
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 5.5.1999 15:29:18
Ahoj,
m��ete mi pros�m n�kdo poradit, jak zjist�m d�lku textu, nap�. Caption u
TToolBaru v pixelech.
D�ky moc
Va�ek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
GExperts CodeProof reader bug?
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 05.5.1999 15:31:20
Martin Kubecka wrote:
> NT 4.0 WKS US + SP4 + D4 SP3 vse ok.
>
> Mac
>
> Karel Kral wrote:
>
> > Prosim o spolupraci pri vyzkouseni chyby v %Subj.
>
> --
Tak pri prvnim zkouseni me to na D4/Sp3/Win98 fungovalo normalne, ALE
pak mi to nedalo a chtel jsem vyzkouset tu druhou chybu (s upozornenim
na ulozeni projektu) a zacaly se dit veci:
Po otevreni noveho prazdneho projektu CodeProof vubec nefungoval at jsem
delal co jsem delal, nekdy pomohlo otevrit okno konfigurace CodeProofu
nekdy zase pomohlo otevrit dalsi prazdnou Unitu... Proste chaos, zkousel
jsem prijit na podminku, kdy to bude fungovat a kdy ne, ale nechova se
to pravidelne, obcas to dela obcas ne, pak to zase najednou zacne jit...
:(((
...
Tak jsem zkousel dalsich asi 10min a jde mi to obcas reprodukovat:
1) Close All (Alt+F, L)
2) File/New Application (Alt+F, T)
3) Otevre se Unit1 ve ktere NEFUNGUJE CodeProof (viz. ;=)
4) Mysi kliknu na zadokovany Code Explorer (browser trid/promennych v
aktualne editovane unite) a pak zpatky do editoru s tou unitou => Code
Proof FUNGUJE (nekdy mys pomuze, nekdy ne)
5) Pokud 4 nepomuze, tak pomuze vytvorit novou prazdnou Unitu...
- vypada to, ze editor nejak nefunguje uplne spravne s unitami, ktere
nejsou jeste ulozeny na disku, ale to uz me nebavilo zkouset...
Dalsi efekt, nekdy zblbne Undo na CodeProofem opravena slova, na radek
se napisou nesmysly a zacne se hroutit ide... Opet jsem nerpisel na to
kdy presne, ale delalo to spise, kdyz se opravilo neco kratkeho na konci
radku a pak se dalo undo...
Tady bezpecny postup nemam, ale provedu body 1 a 2 a pak
3) Do prazdneho radku pod "unit Unit1;" napisu ;= (CodeProof nic, viz
drive)
4) ;= pomoci delete smazu
5) Klik mysi do Code Exploreru a pak zpatky do editoru na drive uvedeny
prazdny radek
6) Napisu ;=, ted uz CodeProof funguje a udela z toho :=
7) Opet smazu pomoci delete
8) Odjedu s kurzorem pomoci sipek dolu az pred koncove end.
9) Pokud ted mackam Undo (tj. Alt-Backspace nebo Ctrl+Z) tak se po
nekolika stiskech do editoru vlozi nesmysly a pripadne se objevi Error
(a nebo se to Undo zacykli...):
Access violation at address 42008ECF in module 'DFWEDIT.DLL'. Read of
address 0482C000. ...... :) Tenhle postup neni 100%, ale fungovalo mi to
nekolikrat za sebou i po restartech celych Delphi...
Zkuste, uvidite.
Borlandi to nejak nemaji dobre vychytane, nebo ze by GExperti sahali kam
nemaji? ...
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
/* If you don't have ICQ you can page me through: My Personal */
/* Communication Center: http://wwp.mirabilis.com/4111110 */
/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
</TT>
zaokrouhlen�
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 05.5.1999 15:35:36
> Nev�te pros�m jm�no funkce, kter� zaokrouhluje double typ na x
> desetinn�ch m�st ?
> Napsal jsem si ji s�m pomoc� Round ale ta to p�ev�d� na longint a p�i
> n�jak�ch ��slech vyvol�
> Exception. Docela se s t�m zdr�uji.
>
> D�ky.
Pouzivat tuhle funkci a jeste jsem se s chybou nesetkal. Muzes dat nejaky
priklad cisla, ktere vyvola chybu?
function Rounded( const x: extended; const decPlcs: integer): extended;
{zaokrouhl� ��slo x na decPlcs desetinn�ch m�st (-1�des�tky,
-2�stovky...)}
var
d: extended;
begin
d := Power( 10, decPlcs);
result := Round( x * d) / d;
end;QRDesign + FieldDisplayLabels
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 5.5.1999 15:35:18
Nevite nekdo jak/kdy pro nastavit
FieldDisplayLabels, aby se pro existujici
sestavu v souboru .qr2 pred editaci v editoru sestavy
provedlo nastaveni DisplayLabels k udajum.
Napr. SIZE=Velikost.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
IDLE?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.5.1999 15:41:54
> Pokud jsem chtel v Turbo Vision provadet ulohu na pozadi (treba
> ukazatel casu v MenuBaru), zdedil jsem si metodu TProgram.Idle.
> Jak mam totez provest v Delphi?
Podobne. Udelej si nejakou metodu a pak ji prirad do
Application.OnIdle.
Slavek
> Martin Hajciar
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
upresneni problemiku... - Kalendar 1./52(3). tyden
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 5.5.1999 16:00:20
Cauec,
>Me se to s tou normou nejak nezda. Myslim, ze by ji ceske
Kdyz jsem to videl, tak me to pripadlo docela smesny. Ale co vis, jak
je ta norma stara a na co vsechno driv normy byly...
>stolni kalendare dodrzovaly. A do kalendare, ktery mam na stole, jsem
>se podival, je tam u 1.1.1999 napsano 1. tyden.
Pro me osobne je taky logictejsi, kdyz prvni tyden zacina 1.1. Ale
necetl jsem to na aprila, tak to asi pravda bude.
Bye Ludan
upresneni problemiku... - Kalendar 1./52(3). tyden
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 5.5.1999 16:06:20
Cauec,>Adk a ani ostatne Slovenske a Ceske kalendare sa neriadia europskym
>cislovanim. V europe totiz 1. tyzden zacina od prveho celeho januaroveho
>tyzdna. Vo firme sme mali tento problem. Takze napriklad tento tyzden je na
>Slovensku 19, ale v europe to je c. 18!
Uz se necejtim jak lump, kterej si to vycucal z prstu. Normu hledam dal...
Bye Ludan
>
>Dalibor
>
>********************************
>Dalibor Zliechovec
>Frequentis s.r.o.
>dalibor.zliechovec(zv)frequentis.sk
>+421 7 64287798
>
>-----Original Message-----
>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>Polak Jiri
>Sent: Wednesday, May 05, 1999 12:24 PM
>To: 'delphi-l(zv)fwd(tec)cz'
>Subject: RE: upresneni problemiku... - Kalendar 1./52(3). tyden, etc.
>
>> -----Original Message-----
>> From: Hrabi of Chmeliste [mailto:MHrabanek(zv)merlin(tec)cz]
>> Sent: Wednesday, May 05, 1999 12:42 PM
>> To: delphi-l(zv)fwd(tec)cz
>> Subject: Re: upresneni problemiku... - Kalendar 1./52(3). tyden, etc.
>> ozkousel, jak se pak zachova ta funkce. No, docela logicky
>> dobre. Tedy rok
>> 1956 zvladla dobre (ale asi ne podle CSN anejakycislo) ;-).
>
>Me se to s tou normou nejak nezda. Myslim, ze by ji ceske
>stolni kalendare dodrzovaly. A do kalendare, ktery mam na stole, jsem
>se podival, je tam u 1.1.1999 napsano 1. tyden.
>A napadlo me podivat se taky do ADK (pro ty, co to neznaji -
>je to planovaci system od Grady). A tam je to stejne -
>1.1. je prvni tyden. Pochybuji, ze by ADK bylo v rozporu
>s nejakou normou - je to dost rozsireny system.
>
>A pripada mi to logicke, ze rok zacina svym prvnim tydnem.
>
>Jura
>----------
>Jiri Polak
>e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
>web :http://freeweb.coco(tec)cz/jpolak
>----------
>The only good bug, is a dead bug!zaokrouhlen�
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 5.5.1999 16:10:13
Tuto fci jsem tak� p�vodn� pou��val.
Nap��klad zkus zavolat :
Rounded ( 2655989.5668999,7 );
Round( x * d) ti hod� chybu, proto�e se v�sledek operace nevejde do
longint. Maj� to pops�no v helpu u Round funkce.
> -----P�vodn� zpr�va-----
> Od: Pavel Fiser [SMTP:fiser(zv)iol(tec)cz]
> Odesl�no: 5. kv�tna 1999 15:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: zaokrouhlen�
>
> > Nev�te pros�m jm�no funkce, kter� zaokrouhluje double typ na x
> > desetinn�ch m�st ?
> > Napsal jsem si ji s�m pomoc� Round ale ta to p�ev�d� na longint a
> p�i
> > n�jak�ch ��slech vyvol�
> > Exception. Docela se s t�m zdr�uji.
> >
> > D�ky.
>
> Pouzivat tuhle funkci a jeste jsem se s chybou nesetkal. Muzes dat
> nejaky
> priklad cisla, ktere vyvola chybu?
>
> function Rounded( const x: extended; const decPlcs: integer):
> extended;
> {zaokrouhl� ��slo x na decPlcs desetinn�ch m�st (-1...des�tky,
> -2...stovky...)}
> var
> d: extended;
> begin
> d := Power( 10, decPlcs);
> result := Round( x * d) / d;
> end;
>
>
> IDLE?
[*] Delphi(zv)gymhu.ipex(tec)cz - 5.5.1999 15:14:12
Zrejme zacatecnicky dotaz:
Pokud jsem chtel v Turbo Vision provadet ulohu na pozadi (treba
ukazatel casu v MenuBaru), zdedil jsem si metodu TProgram.Idle.
Jak mam totez provest v Delphi?
S pozdravem
Martin Hajciar
zaokrouhlen�
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 05.5.1999 16:25:24
Maixner Adam wrote:
>
> Tuto fci jsem tak� p�vodn� pou��val.
>
Tak jo, tak ja vam to prozradim...
function FKRound(AValue: extended; ANumDigits: integer): extended;
var tmp: extended;
begin
tmp := Int(AValue);
AValue := Frac(AValue);
Result := tmp + (Round(AValue * IntPower(10.0,ANumDigits)) /
IntPower(10.0,ANumDigits));
end {FKRound};
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://welcome.to/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)OemToChar a prevod z Latin2 do 1250
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 5.5.1999 16:28:02
Ahojky,
jak jsem zde nedavno psal, fce OemToChar nefunguje na Win98 (alespon ne na
mojich)
nemate nekdo u sebe podobnou fci, ktere by se predhodil string (nebo
dokonce i memo) v Latin2 a ona jej vratila v 1250 a nebyla zavisla na
nejakem API, kde je neco nejak v WinNT a jinak v Win98?
dik
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela
D�lka textu v pixelech
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 05.5.1999 16:33:17
Lukes V�clav wrote:
>
> Ahoj,
>
> m��ete mi pros�m n�kdo poradit, jak zjist�m d�lku textu, nap�. Caption u
> TToolBaru v pixelech.
>
0) TCanvas.TextWidth, to ale nefunguje, pokud je v tom textu nejake
#13#10.
1) DrawText s jednim z parametru DT_CALCRECT - to pak nekresli, ale
pouze spocita rozmery textu. Je do dobre, pokud text obsahuje nejake
#13#10.
2) GetTabbedTextExtent, pokud chces pouzivat nejake zarovnavani jako do
tabulky.
Z toho si asi lze vybrat, co...?
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://welcome.to/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Info o souboru
[*] Michel Rabadi <michel(zv)asex(tec)cz> - 5.5.1999 16:59:19
zdravim,
tady je API help ke strukture FILETIME a
jsou tam take uvedeny funkce pro praci s touto strukturou.
----------------------------
typedef struct _FILETIME { // ft
DWORD dwLowDateTime;
DWORD dwHighDateTime;
} FILETIME;
The FILETIME structure is a 64-bit value representing the number of
100-nanosecond intervals since January 1, 1601.
Members
dwLowDateTime
Specifies the low-order 32 bits of the file time.
dwHighDateTime
Specifies the high-order 32 bits of the file time.
See Also
CompareFileTime, DosDateTimeToFileTime, FileTimeToDosDateTime,
FileTimeToLocalFileTime, FileTimeToSystemTime, GetFileTime,
LocalFileTimeToFileTime, SetFileTime, SystemTimeToFileTime
----------------------------
michel
> -----Original Message-----
> From: jnovak(zv)anect(tec)cz [SMTP:jnovak(zv)anect(tec)cz]
> Sent: Wednesday, May 05, 1999 1:17 PM
> To: kdelphi(zv)asex(tec)cz
> Subject: Info o souboru
>
>
> Chtel bych se zeptat, potrebuji zjistit informace o souboru.
> Jako napr. datum vytvoreni, posledni pristup atd.
>
> Zjistil jsem si, ze tato funkce:
> GetFileInformationByHandle(hFile, lpFileInformation);
> mi to vsechno zjisti. Jenom ze, lpFileInformation je format:
>
> typedef struct _BY_HANDLE_FILE_INFORMATION { // bhfi
> DWORD dwFileAttributes;
> FILETIME ftCreationTime;
> FILETIME ftLastAccessTime;
> FILETIME ftLastWriteTime;
> DWORD dwVolumeSerialNumber;
> DWORD nFileSizeHigh;
> DWORD nFileSizeLow;
> DWORD nNumberOfLinks;
> DWORD nFileIndexHigh;
> DWORD nFileIndexLow;
> } BY_HANDLE_FILE_INFORMATION;
>
> Co mam vsak udelat, abych zjistil napr. ten datum a cas vytvoreni?
> Jak mam pristupovat k ftCreationTime? Ono to nabyva dvou promennych
> dwLow...
> a dwHigh.... Jak to z nich dostanu ten datum?
>
> P.S.: Ja ten smysl tech API funkci nepochopim.
>
> Dekuji Novak GExperts
[*] Karel Kral <kral(zv)purus(tec)cz> - 05.5.1999 17:22:36
Nojo, havaruje (W95). To jim napis, oni jsou myslim velice pristupni
chyby opravovat.
"Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o." wrote:
>
> Dobryyy, mam to na D4 Prof a dela to taky !! Jsi si jist, ze to delaji
> GExperts ? a ktery modul ?
>
> Mira
>
> -----P�vodn� zpr�va-----
> Od: Michal Motalik <motalik(zv)zl.inext(tec)cz>
> Komu: Delphi <delphi-l(zv)fwd(tec)cz>
> Datum: 5. kv�tna 1999 13:49
> P�edm�t: Re: GExperts
>
> >
> >Zkousel jsem to na W95 4.00.950a s D4 C/S a taky to bezi.
> >
> >Mam ale lepsi bug (zatim jsem o nem ale GExpertum nepsal):
> >
> >- vymazat od konce po slovech jeden cely radek (podle nastaveni
> klavesnice
> >treba CTRL+BackSpace)
> >- obnoveni posledni akce (zase podle nastaveni klavesnice treba CTRL+Z)
> >
> >zkouseno na vyse uvedene konfiguraci
> >
> >!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> !!!!!
> >!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> >!!!!!!!!!!! Dulezite: pred zkousenim vsechno ulozit !!!!!!!!!!!!
> >!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> !!!!!
> >!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> >
> >nerad bych od nekoho dostal vynadane
> >
> >
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Automaticke rozmistovani objektu na plose
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.5.1999 17:24:49
Tom� R��i�ka wrote:
> Shanim komponentu, ktera umi pri zmene velikosti okna automaticky
> rozmistovat objekty, ktere jsou na okne a ktera je free. Delam v CB1.
> Pokud nekdo neco takoveho mate, tak mi to prosim poslete (nebo odkaz).
Upgraduj na CB4. Tam je takova free komponenta, a jmenuje se
TForm.
:-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
copy tabulek
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 5.5.1999 17:35:47
Potrebuji data data z DM.Table1 dostat do DM.WTable1. Obe tabulky maji nyni identickou strukturu.
DM.WTable1 je nove zalozena, tudiz zcela prazdna. Tabulky maji kolem 18-ti sloupcu, jedno memo pole.
Zpracovavam to nasledujicim kodem (pochopitelne zapouzdrenym v try .. exception):
---------------
while not DM.Table1.EOF do
begin
DM.WTable1.Insert;
for i := 0 to DM.Table1.FieldCount - 1 do
DM.WTable1.Fields[i].AsString:=DM.Table1.Fields[i].AsString;
DM.WTable1.Next;
DM.Table1.Next;
Application.ProcessMessages;
end;
-------------------------
Na priblizne 3 400. vete to konci nezdarem. (vet mam prekopirovat az 12 000)
To, kde to skonci se vzdy ruzni (i na stejne tabulce)
Zkusil jsem i to, ze vzdy po 2000 vetach davam ShowMessage, aby si Wokna oddychly a nic.
Vzdy to je Access Violation na adrese 77E84CC7 v modulu user32.dll.
Jak vypsat tu chybu podrobneji?
P.S: Tabulky jsou DBF, D3 Prof, BDE 4.5, WinNT 4.0 Cz servispack 4
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela
Automaticke rozmistovani objektu na plose
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 05.5.1999 17:39:19
Zbysek Hlinka wrote:
>
> Tom� R��i�ka wrote:
>
> > Shanim komponentu, ktera umi pri zmene velikosti okna automaticky
> > rozmistovat objekty, ktere jsou na okne a ktera je free. Delam v CB1.
> > Pokud nekdo neco takoveho mate, tak mi to prosim poslete (nebo odkaz).
>
> Upgraduj na CB4. Tam je takova free komponenta, a jmenuje se
> TForm.
> :-)
>
:)))
A ono se taky da leccos naprogramovat...
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://welcome.to/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)copy tabulek
[*] Ing. Milan VALENTA <valenta(zv)telecom(tec)cz> - 5.5.1999 18:37:48
Hi,
zkus upravu uvedenou nize.
S pozdravem
Ing. Milan VALENTA
Horn� Slavkov
tel.: +420 168 6989241
e-mail: valenta(zv)telecom(tec)cz
**************************************************************
-----P�vodn� zpr�va-----
Od: Richard Valny <richard.valny(zv)oku-st(tec)cz>
Komu: 'DELPHI Distribution List (el. adresa 2)' <delphi-l(zv)fwd(tec)cz>
Datum: 5. kv�tna 1999 17:42
P�edm�t: copy tabulek
>Potrebuji data data z DM.Table1 dostat do DM.WTable1. Obe tabulky maji nyni
identickou strukturu.
>DM.WTable1 je nove zalozena, tudiz zcela prazdna. Tabulky maji kolem 18-ti
sloupcu, jedno memo pole.
>Zpracovavam to nasledujicim kodem (pochopitelne zapouzdrenym v try ..
exception):
>
>---------------
>while not DM.Table1.EOF do
> begin
> DM.WTable1.Insert;
> for i := 0 to DM.Table1.FieldCount - 1 do
> DM.WTable1.Fields[i].AsString:=DM.Table1.Fields[i].AsString;
--------> DM.WTable1.Next;
A CO TAKHLE MISTO TOHO DAT
DM.WTable1.POST;
// next bude asi taky delat post, ale mozna dela navic i nejaky bordel
> DM.Table1.Next;
> Application.ProcessMessages;
>end;
>-------------------------
>Na priblizne 3 400. vete to konci nezdarem. (vet mam prekopirovat az 12
000)
>To, kde to skonci se vzdy ruzni (i na stejne tabulce)
>Zkusil jsem i to, ze vzdy po 2000 vetach davam ShowMessage, aby si Wokna
oddychly a nic.
>
>Vzdy to je Access Violation na adrese 77E84CC7 v modulu user32.dll.
>Jak vypsat tu chybu podrobneji?
>
>
>P.S: Tabulky jsou DBF, D3 Prof, BDE 4.5, WinNT 4.0 Cz servispack 4
>
>===========mozno pouzit PGP==============
>Richard Valny richard.valny(zv)oku-st(tec)cz
>Okresni urad Strakonice tel. 0342-441 l. 216
>Smetanova 533 fax. 0342-21208
>386 22 STRAKONICE FiDoNet 2:423/35
>===========mozno pouzit PGP==============
>
>... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco d
ela
>Local SQL pro Paradox
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 5.5.1999 20:08:48
1.
Podle meho Paradox driver (.db) "not null" nepodporuje.
2.
Database Desktop stejne jako TQuery.SQL umi pouze jeden SQL prikaz.
Neni ale problem (par radku kodu) interpretovat SQL skript, ve kterem budou jednotlive prikazy oddeleny stredniky:
Nactu soubor, najdu strednik, hodim to pred strednikem do Query.SQL, Query.ExecSQL a jedu dal.
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 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Robert Walaski <walaski(zv)atlas(tec)cz>
> Komu: Delphi Konference <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Local SQL pro Paradox
> Datum: 5. kv�tna 1999 10:54
>
> Ahoj,
>
> 1. Podporuje %subj% not null pri definici tabulek? Napr.
>
> CREATE TABLE "cenik.db"
> (
> ID char(15) not null,
> Nazev char(50) not null,
> cena numeric(11,2) not null
> primary key (ID)
> )
>
> Me to nejak nefunguje.
>
> 2. Je mozne v Database Desktopu v SQL Editoru definovat vice SQL prikazu?
> Jak se od sebe oddeluji (strednik nefunguje). A jak je to v TQuery?
>
> v jednom tabulky.sql souboru by melo byt
> CREATE TABLE neco (....)
> CREATE INDEX dleNazev on "cenik.db" (nazev)
>
> Dekuji
>
> Preji pekny den.
> Robert Walaski
> ____________________________________________________________________________
> ____
> e-mail: xwalas00(zv)stud.fee.vutbr(tec)cz
> ICQ: 23157731
Nepouzivani BDE V D4
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 5.5.1999 20:14:29
Nepouzivani BDE je obecny problem, ktery se diskutoval na seminari HAES v Laznich Belohrade za ucasti Inprise a Microsoft a diskutuje se prubezne v teto konferenci.
Ma celou radu reseni (nativni komponenty InterBase, Oracle, Delphi 400, Delphi for SAP, ADO, ...).
Ja jsem ve se sve odpovedi (TClientDataSet) pokusil pouze o velmi jednoduche reseni velmi konkretniho (nedatabazoveho, nesitoveho) pozadavku.
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 931, 692 569, 0601 20 30 84
=========================================Problem s TThread
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 5.5.1999 20:34:53
> Odes�latel: Petr Kandera <pkandera(zv)tanger(tec)cz>
> Nevim, zda odpovim zcela spravne, ale pokud vytvaris thread jako suspened
> (=create(true)), pak resume musis volat zvnejsku - viz upravy. Ale staci jej
> vytvorit create(false) a po vytvoreni se hned spusti.
Velikansky omyl !!!!
Zavolam-li inherited Create(false),
muze se mi teoreticky stat, ze se thread rozbehne jeste driv, nez skonci konstruktor!!!
Ten "resume" na konci konstruktoru je absolutne OK a jinak to v podstate ani nejde.
Vlada Bodecek rika na kurzu o threadech, ze musime vzdycky predpokladat to nejhorsi.
Synchronizace threadu je dost siroka kapitola...
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 931, 692 569, 0601 20 30 84
=========================================IDLE?
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 5.5.1999 20:43:39
Muzes to sice resit v Application.OnIdle,
ale zkus se zamyslet nad tim, ze ve Win32 uz opravdu funguje multi-threading.
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 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Delphi(zv)gymhu.ipex(tec)cz
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: IDLE?
> Datum: 5. kv�tna 1999 16:14
>
> Zrejme zacatecnicky dotaz:
> Pokud jsem chtel v Turbo Vision provadet ulohu na pozadi (treba
> ukazatel casu v MenuBaru), zdedil jsem si metodu TProgram.Idle.
> Jak mam totez provest v Delphi?
> S pozdravem
> Martin Hajciar
instalator Youseful 4.0
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 5.5.1999 20:50:13
>Apropos: co mas proti Installshield-u ?
>Mas ho na CD s Delphi a lokalizovat se ho take podarilo.
>Ja ho pouzivam jiz treti rok a vyhovuje mi.
Proti installshieldu nemam nic. Asi bychom ale potrebovali Professional
verzi, ktera umi skripty. Nebo Express umi zadat behem instalace v
dialogovem okne napr. nazev SQL serveru pro nastaveni BDE?
A protoze Profi verze neni nejlevnejsi, rad bych poznal, co se obecne
pouziva.
Leos
LOCAL SHARE
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.5.1999 21:26:10
Pavel M. wrote:
> Tomu nerozumim, jak sitova cesta i na serveru ? Ono se na tom
> serveru pracovalo ? Nebo k cemu je na serveru Alias. Ja na
> serveru nemam ani BDE, nebo mluvis u necem jinem.
Jo, pracovalo. :-) Muj pocitac slouzil pro databazi jako server. Ale i
tam jsem musel mit v BDE v Aliasu zadanou sitovou cestu k datum
(napr. \\Lector\pokus\data).
>
> ----- Original Message ----- >
> >Ale potom jsem jeste zjistil, ze musi byt sitova cesta (pro Paradox)
> > k databazi v Aliasu zadana i na serveru. Jinak to blblo kupodivu i na
> > klientech. Uzili jsme si s tim 10 minut dobre legrace. :-(
> >
>
>
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Problem s TThread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 22:34:44
Jan �ebel�k wrote:
>
> > Odes�latel: Petr Kandera <pkandera(zv)tanger(tec)cz>
> > Nevim, zda odpovim zcela spravne, ale pokud vytvaris thread jako suspened
> > (=create(true)), pak resume musis volat zvnejsku - viz upravy. Ale staci jej
> > vytvorit create(false) a po vytvoreni se hned spusti.
>
> Velikansky omyl !!!!
Presne tak.
> Zavolam-li inherited Create(false),
> muze se mi teoreticky stat, ze se thread rozbehne jeste driv, nez skonci konstruktor!!!
Jiste, v tu dobu by se jiz mel rozbehnout, vzdyt tak je to i v TThread mysleno.
> Ten "resume" na konci konstruktoru je absolutne OK a jinak to v podstate ani nejde.
Jsou pripady kdy lze nastavit nektere hodnoty ci vlastnosti jeste pred volanim
inherited Create(False) v konstruktoru, pak neni volani Resume nutne.
> Vlada Bodecek rika na kurzu o threadech, ze musime vzdycky predpokladat to nejhorsi.
> Synchronizace threadu je dost siroka kapitola...
To ano :-) Ono neni ani tak problem thread rozbehnout, jako jej pak zastavit,
zvlaste pri volani metod VCL pomoci Synchronize ci za pouziti jinych zpusobu
synchronizace.
V tride TThread je navic jedna zrada, totiz v urcite situaci pri vytvareni a
ruseni threadu muze diky nevhodne navrzenemu zpusobu vytvareni "okna" pres
ktere se vola kod metody Synchronize dojit k jeho uvolneni i v pripade, ze
pocet threadu v aplikaci neni v tu chvili nulovy !
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Automaticke rozmistovani objektu na plose
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 22:35:08
Martin Bodlak wrote:
>
> Zbysek Hlinka wrote:
> >
> > Tom� R��i�ka wrote:
> >
> > > Shanim komponentu, ktera umi pri zmene velikosti okna automaticky
> > > rozmistovat objekty, ktere jsou na okne a ktera je free. Delam v CB1.
> > > Pokud nekdo neco takoveho mate, tak mi to prosim poslete (nebo odkaz).
> >
> > Upgraduj na CB4. Tam je takova free komponenta, a jmenuje se
> > TForm.
> > :-)
> >
> :)))
>
> A ono se taky da leccos naprogramovat...
Ano, zatim, ale co az editor pro zapis kodu zmizi uplne ? :-))
P.S.
Lze to "rucne" dopsat napriklad v udalosti OnResize toho formulare ....
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Delphi 4 pod Windows NT 4.0
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 22:35:28
jslavice(zv)vce(tec)cz wrote:
>
> Vazeni pratele,
>
> nainstaloval jsem lokalne Delphi 4 na pocitaci pod Windows NT 4.0. Po
> instalaci mely tlacitka komponent v palete zmenene ikony komponent. Samotna
> tlacitka jsou ve spravnem poradi, funguji normalne, nicmene prace je s tim
> samozrejme nepohodlna. PC ma Pentium II, 300 MHz, videokarta S3 Virge/GX 2
> MB. Na PC je nainstalovan Service Pack 3 pro NT. Dokaze mi nekdo poradit
> jak tento problem odstranit. Jsem v Konferenci Delphi benjaminek a tak
> prosim o omluvu, pokud jiz tento problem byl zde diskutovan
Ahoj,
A mas nainstalovany Delphi 4 Update Pack #3 ? V popisu opravenych chyb se
mimo jine pise:
" ...Work around video driver problems in STB, Diamond, and other S3-based
video cards ..."
Ke stazeni tady: http://www.borland.com/devsupport/delphi/downloads
Pred jeho pouzitim musis mit nainstalovany Update Pack #2
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Tahanie Panelu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 22:35:46
Patrik Legath wrote:
>
> Nikto sa neozval, a neverim, ze bi s tim niekto nerobil. Tak posielam este raz.
> Ako spravit nieco take, ze pri Move okna budem vediet zmnit aj HRUBKU ramu. Vid Word ked som nad toolbarmi, tak je tenky, ked som nad Plochou, tak je hruby. Pozicia sa da Zmenit cez WM_MOVING, ale ale sirka sa neda ?
Ahoj,
Podle popisu mas asi namysli "okno" s toolbarem ktery muzes umistit bud do
okna aplikace nebo mimo nej, podobne jako je to v IDE Delphi 4. Jinak pri
posouvani oken se mi posouva cele okno, zadny ramecek tam nemam.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
IDLE?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 22:36:20
Delphi(zv)gymhu.ipex(tec)cz wrote:
>
> Zrejme zacatecnicky dotaz:
> Pokud jsem chtel v Turbo Vision provadet ulohu na pozadi (treba
> ukazatel casu v MenuBaru), zdedil jsem si metodu TProgram.Idle.
> Jak mam totez provest v Delphi?
Ahoj,
To tak trochu zalezi na te uloze, mas nekolik moznosti:
1. Zapsat to do udalosti TApplicaiton.OnIdle (priklad je v helpu)
2. Pouzit TTimer
3. Napsat ulohu jako thread
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Info o souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 22:38:00
Novak Josef wrote:
>
> Chtel bych se zeptat, potrebuji zjistit informace o souboru.
> Jako napr. datum vytvoreni, posledni pristup atd.
Ahoj,
Jednotlive datumy muzes ziskat treba takhle:
function GetFileTimes(const FileName: String; var Creation, LastAccess, LastWrite: TDateTime): Boolean;
var
H: THandle;
CR, LA, LW: TFileTime;
function FileTimeToDateTime(const FT: TFileTime; var DT: TDateTime): Boolean;
var
LFT: TFileTime;
DosTime: Integer;
begin
Result :=
FileTimeToLocalFileTime(FT, LFT) and
FileTimeToDosDateTime(LFT, LongRec(DosTime).Hi, LongRec(DosTime).Lo);
DT := FileDateToDateTime(DosTime);
end;
begin
Result := False;
H := FileOpen(FileName, fmOpenRead or fmShareDenyNone);
if H <> INVALID_HANDLE_VALUE then
begin
Result :=
GetFileTime(H, (zv)CR, (zv)LA, (zv)LW) and
FileTimeToDateTime(CR, Creation) and
FileTimeToDateTime(LA, LastAccess) and
FileTimeToDateTime(LW, LastWrite);
FileClose(H);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
CR, LA, LW: TDateTime;
begin
if GetFileTimes(Application.ExeName, CR, LA, LW) then
ShowMessageFmt('Created: %s '#10'Last Access: %s '#10'Last Write: %s',
[FormatDateTime('ddddd tt', CR),
FormatDateTime('ddddd', LA),
FormatDateTime('ddddd tt', LW)])
else
ShowMessage('Error');
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
copy tabulek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 23:04:24
Richard Valny wrote:
>
> Potrebuji data data z DM.Table1 dostat do DM.WTable1. Obe tabulky maji nyni identickou strukturu.
> DM.WTable1 je nove zalozena, tudiz zcela prazdna. Tabulky maji kolem 18-ti sloupcu, jedno memo pole.
> Zpracovavam to nasledujicim kodem (pochopitelne zapouzdrenym v try .. exception):
>
> ---------------
> while not DM.Table1.EOF do
> begin
> DM.WTable1.Insert;
> for i := 0 to DM.Table1.FieldCount - 1 do
> DM.WTable1.Fields[i].AsString:=DM.Table1.Fields[i].AsString;
> DM.WTable1.Next;
> DM.Table1.Next;
> Application.ProcessMessages;
> end;
> -------------------------
> Na priblizne 3 400. vete to konci nezdarem. (vet mam prekopirovat az 12 000)
> To, kde to skonci se vzdy ruzni (i na stejne tabulce)
> Zkusil jsem i to, ze vzdy po 2000 vetach davam ShowMessage, aby si Wokna oddychly a nic.
Ahoj,
To je zajimave, zkousel jsi to pustit treba na jinem pocitaci ?
Nicmene pro kopirovani dat do tabulky by bylo asi lepsi (i rychlejsi)
pouzit komponentu TBatchMove. Pro vytvoreni zcela identicke tabulky
by bylo mozne pouzit i BDE API funkci DbiCopyTable, priklad jejiho
pouziti v Delphi najdes v BDE API helpu (bde32.hlp).
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jak zjistit jake se vytaci tel. cislo?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 23:04:11
Novak Josef wrote:
>
> Cht�l bych se zeptat, jak zjistim v kter� knihovn� je to implementovan�.
> V helpu popis t�to funkce najdu, ale kdy� ji nap�u v D4, tak j� nezn�.
> D�kuji.
Ahoj,
Ta funkce pochazi z knihovny RASAPI32.DLL od ktere ale nejsou v Delphi
hlavickove soubory. Podivej se treba na DSP na nejake RAS komponenty,
byva u nich vetsinou prilozen i prepis hlavicek.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Nastrojova lista
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1999 23:07:27
Pavel Malinsk� wrote:
>
> Ahoj,
>
> pratele, potreboval bych prosim pomoct
> s nasledujicim> Potreboval bych vybudovat podobny
> panel nastroju jako maj M$ Office 97, tzn.
> posuvny a premistitelny, pricemz kazda skupina je
> nezavisla. Odhaduji, ze to maj
> udelany pomoci neceho jako je TCoolBar.
> Jestli jste nekdo neco takoveho delal, nebo
> jste na to videl komponentu, dejte prosim vedet
> at muzu odnekud zacit.
Ahoj,
Neprozradil jsi jakou mas verzi Delphi. TCoolBar uz by mel byt v D3. V D4
mas komponentu TControlBar do ktere muzes vlozit TToolBar a pak to bude
vypadat jako panely nastroju v D4 IDE.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************podivne ADONIS
[*] Erik Salaj <erik(zv)dodo.sk> - 5.5.1999 23:52:50
> Konfigurace:
> rial ADONIS, MSSQL 7.0
>
> Zanamenal jsem podivne chovani:
> je-li v lozene procedure prikaz T-SQL SELECT ... INTO nebo
> INSERT .... SELECT tak to v Delfi haze chybu. Jinak to jede
> bezvadne.
> Vyhodil jsem ADONIS a zkusil SQLDirect a ejhle frcito jak fik. Tak
> nevim kde je chyba: ve me (tam ji nejdrive hledam) a nebo u
> ADONISU ?
Prave som to skusal na jednoduchej procedure a nemal som s tym problemy:
CREATE PROCEDURE TestProc AS
INSERT INTO TableTest(TextField) SELECT TextField FROM TableSource
Ak mozte, poslite mi detailejsie informacie, pripadne jednoduchu demo
aplikaciu na testovanie tohto problemu.
Doporucujem snad nainstalovat najnovsie ADO 2.1 z
http://www.microsoft.com/data/download.htm
a najnovsi Adonis 3.2 SP 1 z http://www.cybermagic.co.nz/winsoft .
Pre MS SQL 7 pouzit nativny provider (SQLOLEDB). Zatial viem
o jednom probleme so storovanymi procedurami na MS SQL 7 a to
pri pouziti pomocnych tabuliek (zacinajucich znakom #).
Problem sa vztahuje na nativneho OLE DB providera (s ODBC
providerom to chodi dobre) a nesuvisi s Adonisom. Dalej za urcitych
podmienok (velmi zriedkavych), moze Delphi debugger pri spusteni
aplikacie pouzivajucej ADO (nemusia to byt Adonis komponenty)
generovat vynimku. Tento problem sa prejavuje len ak sa spusta takato
aplikacie z Delphi prostredia a je zapnuty integrovany debugging.
Da sa to obist bud vypnutim integrovaneho debugera alebo odstavenim
tejto vynimky v Delphi 4.
Erik Salaj
erik(zv)dodo.sk
pocet dni mezi daty
[*] Jaro <jaro(zv)sinea(tec)cz> - 6.5.1999 02:00:02
difdat udelej integer
Jaro
-----P�vodn� zpr�va-----
Od: Zbynek Ceska <zbyces(zv)physics.muni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. kv�tna 1999 9:16
P�edm�t: pocet dni mezi daty
>
> Zdravim vsechny v konferenci a moc prosim o pomoc:
>
> Potrebuji zjistit pocet dni mezi dvemi urcitymi daty. Vydal jsem
>se touto cestou:
>
> var datum1,datum2,difdat:TDate;
> datstr1,datstr2,difstr:string;
> ...
> datstr1:='6.5.1974';datstr2:='12.3.1999';
> datum1:=StrToDate(datstr1);
> datum2:=StrToDate(datstr2);
> difdat:=datum2-datum1;
>
> { a tady jsem v koncich a nevim jak dal }
>
> Samozrejme me napadlo napsat
> difstr:=DateToStr(diffat);
> ale to asi nebude to prave. Podle meho diare by to melo vyjit
> 9076 dni. Z helpu jsem moc moudrej nebyl.
>
>Muzete mi nekdo rici, jak dal a jestli je to vubec dobra cesta ?
>Diky moc za kazdy okamzik premysleni nad timto problemkem.
>
> Zbynek Ceska
>
>
>*********************************************************************
****
> ** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces
******
> ** Plasma Physics ** High Technology Physics ** Microwave Physics
**
>*********************************************************************
****
>instalator Youseful 4.0
[*] Jaro <jaro(zv)sinea(tec)cz> - 6.5.1999 02:05:04
Jeden chytry programator na to vytvoril vlastni editor.
Jaro
-----P�vodn� zpr�va-----
Od: Karel Kral <kral(zv)purus(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. kv�tna 1999 11:47
P�edm�t: Re: instalator Youseful 4.0
>Jak se ti ho podarilo lokalizovat? To bych rad vedel!
>
>Jaro wrote:
>>
>> >Apropos: jake instalatory pouzivate a preferujete?
>> >Diky
>> >Leos
>>
>> Apropos: co mas proti Installshield-u ?
>> Mas ho na CD s Delphi a lokalizovat se ho take podarilo.
>> Ja ho pouzivam jiz treti rok a vyhovuje mi.
>> Jaro
>
>--
>______________________________________________________
>Karel Kral, informatik
>Purus, s.r.o., Cezavy 627, 664 56 Blucina
>Tel: 05/47235000, 0602/552432, Fax: 05/47231203
>E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
>______________________________________________________
>instalator Youseful 4.0
[*] Jaro <jaro(zv)sinea(tec)cz> - 6.5.1999 02:06:26
To je pravda.
Jaro
>>Apropos: co mas proti Installshield-u ?
>>Mas ho na CD s Delphi a lokalizovat se ho take podarilo.
>>Ja ho pouzivam jiz treti rok a vyhovuje mi.
>
>
>Proti installshieldu nemam nic. Asi bychom ale potrebovali
Professional
>verzi, ktera umi skripty. Nebo Express umi zadat behem instalace v
>dialogovem okne napr. nazev SQL serveru pro nastaveni BDE?
>A protoze Profi verze neni nejlevnejsi, rad bych poznal, co se obecne
>pouziva.
>
>Leos
>Service
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 06.5.1999 01:30:29 pdt
Snad jeste nejdu s krizkem po funuse. Neco takoveho jsem kdesi
nasel a nedavno to zkousel pouzit. Zdalo se mi to byt funkcni.
Protoze nejsem momentalne doma, tak ti to poslu az zitra, az se
vratim. Snad to jeste tu chvili vydrzi.
Pro ostatni: Nebudu to posilat pres konferenci, takze pokud ma
jeste nekdo zajem tak dejte vedet.
Karel Vlcek
========================
poskytovani software
GSM : +420 602 264812
mailto: Vlcekk(zv)hotmail.com
========================>From: LuborK(zv)tnet(tec)cz (Kolar Lubor)
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: <delphi-l(zv)fwd(tec)cz>
>Subject: Re: Service
>Date: Mon, 3 May 1999 15:15:16 +0200
>
>Nikdo se neozval, posilam jeste jednou :-(( Neverim tomu, ze by to nekdo
>nevedel.
>
>Ahoj,
>takovej zacatecnickej dotaz: Mam aplikaci, ktera vyuziva pouze nevizualni
>komponenty (krome formu, na kterym to je naskladany).
>Jak z toho co nejjednodusejc udelat Windows NT Service? (nejlepe pro D2).
>Velmi uvitam URL ci ukazku, jak na to.
>Dik
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
>
>
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
copy tabulek
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 6.5.1999 06:07:45
-----P�vodn� zpr�va-----
Od: Richard Valny <richard.valny(zv)oku-st(tec)cz>
P�edm�t: copy tabulek
>Potrebuji data data z DM.Table1 dostat do DM.WTable1. Obe tabulky maji nyni
identickou strukturu.
>DM.WTable1 je nove zalozena, tudiz zcela prazdna. Tabulky maji kolem 18-ti
sloupcu, jedno memo pole.
>Zpracovavam to nasledujicim kodem (pochopitelne zapouzdrenym v try ..
exception):
>
>---------------
>while not DM.Table1.EOF do
> begin
> DM.WTable1.Insert;
> for i := 0 to DM.Table1.FieldCount - 1 do
> DM.WTable1.Fields[i].AsString:=DM.Table1.Fields[i].AsString;
> DM.WTable1.Next;
> DM.Table1.Next;
> Application.ProcessMessages;
>end;
>-------------------------
>Na priblizne 3 400. vete to konci nezdarem. (vet mam prekopirovat az 12
000)
>To, kde to skonci se vzdy ruzni (i na stejne tabulce)
>Zkusil jsem i to, ze vzdy po 2000 vetach davam ShowMessage, aby si Wokna
oddychly a nic.
>
>Vzdy to je Access Violation na adrese 77E84CC7 v modulu user32.dll.
>Jak vypsat tu chybu podrobneji?
>
>
>P.S: Tabulky jsou DBF, D3 Prof, BDE 4.5, WinNT 4.0 Cz servispack 4
>
Doporucuji Novou verzi BDE (nyni asi 5.01). Starsi verze mely problemy s
vetsimi DBF tabulkami. A jak psal Petr Vones, pouzij komponentu BatchMove
nebo vyuzij primo vlastnost tabulky a cely kod nahradit jednim radkem :
DM.WTable1.BatchMove(DM.Table1, batAppend);
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
OFF: Label pro CD
[*] daniel.hrna(zv)vm.sme(tec)cz - 6.5.1999 07:14:38
Diky za vase ohlasy, prosim te Pavle posli mi tu tabulku.
PS: Kdo ma zajem mam zase SW, ktery umi po vlozeni CD/FD udelat presne
nalepku na medium s popisem souboru i s delkama, ktere se tam nachazeji.
Myslim, ze je to slusne a da se to vyuzit.
Kdo ma zajem napiste, zaslu to.
Dan
-----P�vodn� zpr�va-----
Od: Pavel Skalicky [mailto:P.Skalicky(zv)sh.cvut(tec)cz]
Odesl�no: 5. kv�tna 1999 10:11
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: OFF: Label pro CD
Mam pro tento ucel udelanou tabulku do Word 95, ktera ma "presne" rozmery
obalu CD. Staci vyplnit, vytisknout, vystrihnout, nacpat do CD a tesit se
pohledem
na pekne CD :) Kdo ma zajem, poslu.
Pavel
daniel.hrna(zv)vm.sme(tec)cz wrote:
> Omlouvam se za ne-DELPHI dotaz.
> Chci se zeptat, zda nekdo nemate nebo nevite, kde sehnat SW, ktery umi
> vytvorit labely pro obaly na CD.
> Soucasti HP vypalovacek je Easy CD Label, ale nejak mi nechodi, ikdyz je
to
> legalni SW !!!
>
> Shanim nejaky jiny, pripadne mi dejte tip na nejaky Vami odzkouseny a
> doporuceny.
> Staci aby to umelo venkovni obaly na krabicku, nemusi to umet etikety na
> CD-Rom.
> Dik a mejte se ...
>
> Daniel Hr�a - technik VT
> Severomoravsk� energetika a.s.
> RZ Vala�sk� Mezi����
> tel.: 0651-683 442, fax:0651-683 424
> mailto:Daniel.Hrna(zv)vm.sme(tec)cz
> mobil: 0603-257397
Zjisteni existence lokalni docasne tabulky na MSSQ
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 6.5.1999 07:30:31
> -----Original Message-----
> From: Robert Kindl [mailto:rob(zv)optimal(tec)cz]
> Sent: Wednesday, May 05, 1999 1:14 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Zjisteni existence lokalni docasne tabulky na MSSQL
>
>
> Kdo to vi odpovi mi na otazku:
>
> Jak zjistim jestli jiz existuje lokalni temporary tabulka na
> MSSQL 6.5 nebo
> 7.0?
Takhle by to neslo?
--nevybere nic, ale melo by to hodit chybu - doufam
SELECT * FROM #Docasna WHERE 1 = 0;
--jestlize nebyla chyba, tabulka existuje
> Priklad vytvoreni lokalni docasne tabulky:
> CREATE TABLE #Docasna (ID INT)
>
> Jak zjistit jestli jiz existuje (pochopitelne v ramci meho
> connectionu)?
> Potrebuji neco jako:
> IF EXISTS (SELECT * FROM nejakasystemovatabulka WHERE name=#Docasna)
> DROP TABLE #Docasna
Co takhle nezjistovat existenci a dat pouze ten DROP TABLE?
bud se povede nebo ne.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!SQL Dotaz...
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 6.5.1999 08:02:23
Ahoj
Muzete mi pomoct...
Mam SQL Dotaz
===========
SELECT
Z.ZEME, C.SKUPSAZ,sum(C.tis_KC) as K�, sum(tuny) as Tun
FROM
CELSTA C, ZEME1 Z
WHERE
rok=1998 AND DOV_VYV=1 AND ZMPU="PL" AND SKUPSAZ="7208"
AND Z.KODZEME=C.ZMPU GROUP BY Z.ZEME,SKUPSAZ
ORDER BY
TUN DESC
===========
Kdyz ho pouziju v SQL eploreru, vyjdou mi vysledky dobre.
Ale kdyz ho pouziji v komponente TQuery, tak to nevyjde ani priblizne....
Vyjde to az tehdy, pokud zrusim propojeni na druhou tabulku ZEME1, ktera
obsahuje nazev statu a jeho dvojmistny kod..
Vysledky pro srovnani
SQL eplorer = POLSKO 7280 165068,96 12442,63
TQUERY = POLSKO 7280 17743,08 1230,09
Pouzivam BDE 4.50 pro FOXPRO DBF tabulky. Delphi 3 C/S.
V cem je podle Vas zakopany pes?
DIK..
Dalibor
Delphi 4 pod Windows NT 4.0
[*] Roman Carda - delphi <delphi(zv)vtul(tec)cz> - 6.5.1999 07:04:57
Ahoj.
Obdobn� probl�m se mi taky vyskytnul s�Delphi 2 pod WINNT 4.0 CZ, �e
ikony v�komponent�ch se rozpadly. U� se moc nepamatuji, ale chyba byla
pravd�podobn� ve �patn�ch ovlada��ch videokarty nebo snad dokonce i v
z�kladn� desce. Docela jsem se s�t�m potr�pil, ale u� p�esn� nev�m v��em
tom bylo.
Pou��val jsem vesm�s stejn� HW a grafick� karta byla DIAMOND. Doporu�oval
bych ti zkusit sehnat jin� ovlada� pro kartu, pak vym�nit grafickou kartu
nebo ji vyzkou�et na jin� z�kladn� desce. T�mto zp�sobem jsem v��e uveden�
vy�e�il.
S�pozdravem Roman
E-mail: roman.carda(zv)vtul(tec)cz
-----P�vodn� zpr�va-----
Od: jslavice(zv)vce(tec)cz [mailto:jslavice(zv)vce(tec)cz]
Odesl�no: 5. kv�tna 1999 10:45
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Delphi 4 pod Windows NT 4.0
Vazeni pratele,
nainstaloval jsem lokalne Delphi 4 na pocitaci pod Windows NT
4.0. Po
instalaci mely tlacitka komponent v palete zmenene ikony komponent.
Samotna
tlacitka jsou ve spravnem poradi, funguji normalne, nicmene prace je
s tim
samozrejme nepohodlna. PC ma Pentium II, 300 MHz, videokarta S3
Virge/GX 2
MB. Na PC je nainstalovan Service Pack 3 pro NT. Dokaze mi nekdo
poradit
jak tento problem odstranit. Jsem v Konferenci Delphi benjaminek a
tak
prosim o omluvu, pokud jiz tento problem byl zde diskutovan
Josef Slavicek
zaokrouhlen�
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 6.5.1999 08:19:43
D�ky. Kone�n� m�m klid.
> -----P�vodn� zpr�va-----
> Od: Martin Bodlak [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 5. kv�tna 1999 16:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: zaokrouhlen�
>
>
> Maixner Adam wrote:
> >
> > Tuto fci jsem tak� p�vodn� pou��val.
> >
>
> Tak jo, tak ja vam to prozradim...
>
> function FKRound(AValue: extended; ANumDigits: integer): extended;
> var tmp: extended;
> begin
> tmp := Int(AValue);
> AValue := Frac(AValue);
> Result := tmp + (Round(AValue * IntPower(10.0,ANumDigits)) /
> IntPower(10.0,ANumDigits));
> end {FKRound};
>
> --
> Hezky den!
> ______________________________________________
> Martin Bodlak, ATLAS consulting, spol. s r. o.
> Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
> Private : http://welcome.to/bodlak, martin.bodlak(zv)iname.com
> Tel. 069-6616432 (office), 0603-490135 (private)MDI
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 6.5.1999 08:20:42
Zdravim,
delam pokusy s MDI. Jak mohu prepinat mezi jednotlivymi childy jinak, nez z
menu WINDOW?
Zkousel jsem MDIChildren[CISLO_OKNA].Show, ale nejak nemuzu zjistit tu
hodnotu CISLO.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================== export/external class v DLL (COM object)
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 6.5.1999 08:39:04
Hi,
Kedze sa nenasiel v sirokom dalekom okoli nik kto by mi odpovedal na otazku
, obratil som
sa na Charlie Calverta, jeho odpoved posielam v povodnom zneni
Ivan Turcan
Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase )
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
GAMO a.s.
Slovakia
Yes, you should be able to declare the class as a virtual abstract in
Delphi, then call a method in the DLL that returns a pointer to an
initialized instance of the class and assign it to your variable of the
type
of your virtual abstract Delphi class. Then you should be able to make the
calls from Delphi to your C++ dll.
Charlie Calvert
Borland Developer Relations
http://www.borland.com/techvoyage
http://users.aol.com/charliecal
>Hi All,
>
>Zaoberal sa niekto s %subj%
>
>Jedna sa o to ze mam jednu dll, ktora je napisana v MS-Visual C++ , tato
dll ma deklarovane exportovane triedy,
>v hlavickovom subore k tejto dll su triedy popisane napr:
>
>
>class IT_EXPORTCLASS ITSystemNameList : public ITErrorManager
>{
>public:
> ITSystemNameList();
> ITSystemNameList( const ITSystemNameList &);
> virtual ~ITSystemNameList();
> ITSystemNameList &operator=( const ITSystemNameList & ) ;
> ITBool Create();
> const ITString &NextSystemName();
> const ITString &PreviousSystemName();
> void Reset();
> ITBool IsSystemName( const ITString &);
>};
>
>
>Podla popisu by sa malo jednat o COM objekty, ktore ale nie su
registrovane !!! nenajdem ich cez ziadny COM/OLE viewer
>Pokial vsak vytvorim prg. v MS-Visual C++ a pristupujem na tieto triedy
vsetko je o.k.
>Podotykam ze nemam ziadne GUID, tie nie su zadefinovane ani nikde v
hlavickovom subore
>Ma niekto nejaku ideu ako toto nacpat do Delphi ?
>
>Ivan Turcan
GExperts
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 6.5.1999 08:42:02
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. kv�tna 1999 15:20
P�edm�t: Re: GExperts
>Dobryyy, mam to na D4 Prof a dela to taky !! Jsi si jist, ze to delaji
>GExperts ? a ktery modul ?
Mira
Nevim, ktery modul to dela, ale na sefove pocitaci bez Expertu (ale s W-NT)
to jede v pohode.Cas > Cas
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 6.5.1999 08:59:05
Chtel jsem se s Vami podelit o jednu informaci. Mozna uz to vite.
Potrebuji zjistovat datum a cas souboru a porovnavat. Zjistil jsem, ze kdyz
dostanu jako vyslednou hodnotu casu ve formatu string napr. '18:05:11', muzu
ji normalne porovnat napr. z '19:05:11'. Takze '19:05:11' > '18:05:11'.
(Nezalezi na delce stringu, pouzivam D4).
Novak Cas > Cas
[*] rdocekal(zv)csas(tec)cz - 6.5.1999 09:08:29
Lexikograficke porovnavani stringu AFAIK fungovalo uz v DOSovskym Turbo
Pascalu.
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----P�vodn� zpr�va-----
> Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> Odesl�no: 6. kv�tna 1999 8:59
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Cas > Cas
>
>
> Chtel jsem se s Vami podelit o jednu informaci. Mozna uz to vite.
> Potrebuji zjistovat datum a cas souboru a porovnavat. Zjistil
> jsem, ze kdyz
> dostanu jako vyslednou hodnotu casu ve formatu string napr.
> '18:05:11', muzu
> ji normalne porovnat napr. z '19:05:11'. Takze '19:05:11'
> > '18:05:11'.
> (Nezalezi na delce stringu, pouzivam D4).
> Novak
> OFF: Labely web
[*] daniel.hrna(zv)vm.sme(tec)cz - 6.5.1999 09:14:27
Pokud jeste nekdo shani ty labely a ja mu to jeste neposlal, mate moznost
tady, jsou tam i labely na ZIP, DAT, atd ...
Hodne stesti pri stahovani ...
http://www.ziplabel.com/flplabel/download.html
Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
Zjisteni existence lokalni docasne tabulky na MSSQ
[*] Radoslav Medzihradsk� <r.medzihradsky(zv)uvn.sk> - 6.5.1999 09:19:23
Ja pouzivam jednoducho nedokumentovanu funkciu TTable.Exists.
Pripadne by sa dalo komplikovane ist ces systemove tabulky SQL
servra (systables), podrobnosti su v prirucke Mistrovstvi v SQL
servru 6.5.
Astern
copy tabulek
[*] Radoslav Medzihradsk� <r.medzihradsky(zv)uvn.sk> - 6.5.1999 09:21:57
Nebude to tym ze si zabudol DM.WTable1.Post?
Astern
Label pro CD
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.5.1999 09:45:20
Treba tady
http://www.cd-labeler.com/support_win.htm
ale nejsem si jisty, jak psal Ludek, ze je
to free.
Dobra.
> ----------
> Od: daniel.hrna(zv)vm.sme(tec)cz[SMTP:daniel.hrna(zv)vm.sme(tec)cz]
> Odesl�no: 6. kv�tna 1999 9:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Label pro CD
>
> Muzes to teda poslat nebo nekde nechat a poslat mi odkaz ...
>
> Dik Dan
>
> -----P�vodn� zpr�va-----
> Od: Ing. Ludek Florian [mailto:ludan(zv)bluerose(tec)cz]
> Odesl�no: 5. kv�tna 1999 9:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Label pro CD
>
>
> Cauec,
>
> >Omlouvam se za ne-DELPHI dotaz.
> >Chci se zeptat, zda nekdo nemate nebo nevite, kde sehnat SW, ktery
> umi
> >vytvorit labely pro obaly na CD.
> >Soucasti HP vypalovacek je Easy CD Label, ale nejak mi nechodi, ikdyz
> je to
> >legalni SW !!!
> >
> >Shanim nejaky jiny, pripadne mi dejte tip na nejaky Vami odzkouseny a
> >doporuceny.
> >Staci aby to umelo venkovni obaly na krabicku, nemusi to umet etikety
> na
> >CD-Rom.
>
>
> Pouzivam HP CD Labeler. Je to free, hledej u Packardu, ma to asi 3,5
> MB.
>
> Umi to jak vnejsi, tak vnitrni obal a nalepku na CD.
>
> Nenajdes-li, muzu to nekde nechat.
>
> Bye Ludan
> Zjisteni existence lokalni docasne tabulky na MSSQ
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 6.5.1999 09:50:02
>> Jak zjistim jestli jiz existuje lokalni temporary tabulka na
>> MSSQL 6.5 nebo
>> 7.0?
>
>Takhle by to neslo?
>
>--nevybere nic, ale melo by to hodit chybu - doufam
>SELECT * FROM #Docasna WHERE 1 = 0;
>
>--jestlize nebyla chyba, tabulka existuje
>
>> Priklad vytvoreni lokalni docasne tabulky:
>> CREATE TABLE #Docasna (ID INT)
>>
>> Jak zjistit jestli jiz existuje (pochopitelne v ramci meho
>> connectionu)?
>> Potrebuji neco jako:
>> IF EXISTS (SELECT * FROM nejakasystemovatabulka WHERE name=#Docasna)
>> DROP TABLE #Docasna
>
>Co takhle nezjistovat existenci a dat pouze ten DROP TABLE?
>bud se povede nebo ne.
No tak jsem to nakonec vyresil, ale v zasade je to dost nepohodlne,
protoze to nemohu mit jako jeden skript:
- nejdrive poslu DROP TABLE obalene try except (vyse uvedeny priklad se
SELECT
vyjde nastejno ne-li hure (v except bych musel poslat ten drop table)
- potom poslu zbytek s CREATE TABLE
No a taky mne proste stve, ze to nejsem schopnej zjistit...
Rob
Zjisteni existence lokalni docasne tabulky na MSSQ
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 6.5.1999 09:53:42
Docasne tabulky se delaji v databazi tempdb. Zjistit jestli je uz vytvorena
muzete napr. takto:
USE tempdb
SELECT COUNT(name) FROM sysobjects WHERE name LIKE '#Docasna%' AND type =
'U'
Pokud vrati 0, tak tam zadna tabulka zacinajici na #Docasna neni. Pokud
chcete misto LIKE pouzit = , tak pozor na to , ze system doplnuje jmeno na
plnou delku znakem _ (MSSQL7.0)
Bye
Radek P. -----Original Message-----
From: Robert Kindl [mailto:rob(zv)optimal(tec)cz]
Sent: Wednesday, May 05, 1999 1:14 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Zjisteni existence lokalni docasne tabulky
na MSSQL
Kdo to vi odpovi mi na otazku:
Jak zjistim jestli jiz existuje lokalni temporary tabulka na
MSSQL 6.5 nebo
7.0?
Priklad vytvoreni lokalni docasne tabulky:
CREATE TABLE #Docasna (ID INT)
Jak zjistit jestli jiz existuje (pochopitelne v ramci meho
connectionu)?
Potrebuji neco jako:
IF EXISTS (SELECT * FROM nejakasystemovatabulka WHERE
name=#Docasna)
DROP TABLE #Docasna
Potiz je v tom, ze u normalni tabulky existenci zjistit
dokazu, ale pro
docasne jsem jaksi to neobjevil :-(
Diky
Robert Kindl
LOCAL SHARE
[*] Pavel M. <talema(zv)top(tec)cz> - 6.5.1999 10:21:39
Mam vyzkouseno, ze stabilita databazi (paradox) se
podstatne zhorsi pokud jsou data na nevyhrazenem serveru.
Doporucuji ten jeden pocitac ozelet a usetrite si spoustu problemu.
Proc nevim, je to jenom zkusenost z praxe.
Pavel M.
----- Original Message -----
> Pavel M. wrote:
>
> > Tomu nerozumim, jak sitova cesta i na serveru ? Ono se na tom
> > serveru pracovalo ? Nebo k cemu je na serveru Alias. Ja na
> > serveru nemam ani BDE, nebo mluvis u necem jinem.
>
> Jo, pracovalo. :-) Muj pocitac slouzil pro databazi jako server. Ale i
> tam jsem musel mit v BDE v Aliasu zadanou sitovou cestu k datum
> (napr. \\Lector\pokus\data).
>
copy tabulek
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 6.5.1999 10:39:28
> -----P�vodn� zpr�va-----
> Od: Radoslav Medzihradsk� [SMTP:r.medzihradsky(zv)uvn.sk]
> Odesl�no: 6. kv�tna 1999 9:22
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: copy tabulek
>
> Nebude to tym ze si zabudol DM.WTable1.Post?
Dam-li jej tam je to zcela stejne :-(
(davam jej pred DM.WTable1.Next)===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela
Web aplikace
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 6.5.1999 10:45:27
voltrr1.epr(zv)mail.cez(tec)cz wrote:>Delal jsem Web rozhrani pro databazi o turistickem ruchu (je na
>www.holiday(tec)cz/InetRIS)
Zkousel jsem se na ten site opakovane connectnout, a nepovedlo se. Bezi to
trvale?>Napr. pro zpracovani cestiny na serveru atd. - dost tedle veci ma uz v sobe
>IIS ale obcas se najde neco co se v tom da delat radostneji a lepe.
To je pravda, napr. pro konverzi CP 1250x437 aj. jsem si psal fukce v
JavaScriptu, prestoze je mam hotove v Delphi. Ale zase tolik prace to
nebylo. Par minut navic. Tady by me trapila spis rychlost interpretovani
scriptu, protoze ty funkce se musi includnout do .ASP souboru. Aby to
nebylo prilis pomale, tak se musi ty utility functions rozdrobit do hodne
INC souboru :-(>> D2 ty prvky souvisejici s TCP/IP, INETem a spol. byl takovy shit, ze jsem
>> nikdy mizernejsi SW nevidel komercne distribuovat :-((((
>Otazka nazoru - ja sem byl s D2 Desktop spokojenej 2.5 roku a ona zminovana
>aplikace je prave v D2
Podle toho, co se obcas objevi v konferenci popr. zalozeni projektu v PS na
TCP/IP ci fakt, ze existuji tyto komponenty od tretich stran by ukazovalo,
ze to jenom vec nazoru nebude. Ja osobne jsem kdysi potreboval TCP/IP, tak
jsem zkousel tenkrat novy D2 a jeho komponentu tTCP, ale s tou jsem mel tak
obrovske problemy napr. pri rozpadu spojeni apod., az me to donutilo vzit
winsock a napsat si to sam.>> >8. Mas to v .exe a i kdyz ti ho nekdo stahne na lokal (napr. $DATA
>chyba)
>> To me zajima: co je to chyba $DATA, jak ji lze vyvolat?
>Je to o tom ze pokud napises za .asp do URL :$DATA tak se ti vrati .ASP
>zdrojak
>(vcetne hesel pokud je tam mas :-)) , je to urcite popsane na
>svet.namodro(tec)cz
Urcite se na to podivam, jen jak vysetrim trochu casu. BTW, neda se to nejak
potlacit?>A posledni duvod : Proc se ucit ASP kdyz umim Delphi ?? Chce to cas ktereho
>neni nikdy dost.
Zkusenosti take ne a ty mohou leckdy ten cas dost usetrit, aneb jak se rika:
"kolik jazyku umis, tolikrat jsi pocitacem" :-))
Bye, pf
copy tabulek
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 6.5.1999 10:47:29
>
> To je zajimave, zkousel jsi to pustit treba na jinem pocitaci ?
Zkousel a je to temer stejne (lisi se to jen poctem zkopirovanych vet)
Jedna masina je VirNT (P233MMX, 128 MB RAM) a to druha Wir98 (P166MMX, 64 MB RAM)
>
> Nicmene pro kopirovani dat do tabulky by bylo asi lepsi (i rychlejsi)
> pouzit komponentu TBatchMove.
To asi ano, ale ja potrebuji dovnitr casem pridat nejake upravy poli (preklad cestiny, uprava polozek podle obsahu)
Pro vytvoreni zcela identicke tabulky
> by bylo mozne pouzit i BDE API funkci DbiCopyTable, priklad jejiho
> pouziti v Delphi najdes v BDE API helpu (bde32.hlp).
na to se podivam.
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela
Cas > Cas
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 6.5.1999 10:47:30
Ted me, ale napadlo, jestli to porovnavani stringu (cas > cas) bude stejne
fungovat v angl. Windowsech. Tam totiz treba datum je v jinem poradi.
yymmdd.
Novak
> -----P�vodn� zpr�va-----
> Od: rdocekal(zv)csas(tec)cz [SMTP:rdocekal(zv)csas(tec)cz]
> Odesl�no: 6. kv�tna 1999 9:08
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Cas > Cas
>
> Lexikograficke porovnavani stringu AFAIK fungovalo uz v DOSovskym Turbo
> Pascalu.
>
> S pozdravem
> Radek Docekal
> <rdocekal(zv)csas(tec)cz> ICQ: 9008367
>
> > -----P�vodn� zpr�va-----
> > Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> > Odesl�no: 6. kv�tna 1999 8:59
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: Cas > Cas
> >
> >
> > Chtel jsem se s Vami podelit o jednu informaci. Mozna uz to vite.
> > Potrebuji zjistovat datum a cas souboru a porovnavat. Zjistil
> > jsem, ze kdyz
> > dostanu jako vyslednou hodnotu casu ve formatu string napr.
> > '18:05:11', muzu
> > ji normalne porovnat napr. z '19:05:11'. Takze '19:05:11'
> > > '18:05:11'.
> > (Nezalezi na delce stringu, pouzivam D4).
> > Novak
> > Cas > Cas
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 6.5.1999 11:05:00
Od: Novak Josef <jnovak(zv)anect(tec)cz>
P�edm�t: RE: Cas > Cas
>Ted me, ale napadlo, jestli to porovnavani stringu (cas > cas) bude stejne
>fungovat v angl. Windowsech. Tam totiz treba datum je v jinem poradi.
>yymmdd.
> Novak
Mluvilo se o TIME ne o DATE, ale nechodilo by to, pokud by byl 12-ti
hodinov� cas + am, pm.
'1:33 pm' < '3:44 am'
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Cas > Cas
[*] rdocekal(zv)csas(tec)cz - 6.5.1999 11:10:13
To neni na obsahu stringu zavisle. Lexikograficke trideni / porovnavani
spociva v tom, ze porovnas 1. znak, kdyz je stejnej, jdes na 2. atd. Tzn.
jako napr. ve slovniku. Datum ve tvaru jinem nez yyyy.mm.dd nebude fungovat,
u casu hh:mm:ss to "nahodou" vyslo. Jinak - pro porovnavani stringu s
neanglickymi znaky nastavene lokalizace OS, slouzi AnsiCompareStr (pouze
Delphi).
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----P�vodn� zpr�va-----
> Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> Odesl�no: 6. kv�tna 1999 10:48
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Cas > Cas
>
>
> Ted me, ale napadlo, jestli to porovnavani stringu (cas >
> cas) bude stejne
> fungovat v angl. Windowsech. Tam totiz treba datum je v jinem poradi.
> yymmdd.
> Novak
>
> > -----P�vodn� zpr�va-----
> > Od: rdocekal(zv)csas(tec)cz [SMTP:rdocekal(zv)csas(tec)cz]
> > Odesl�no: 6. kv�tna 1999 9:08
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Cas > Cas
> >
> > Lexikograficke porovnavani stringu AFAIK fungovalo uz v
> DOSovskym Turbo
> > Pascalu.
> >
> > S pozdravem
> > Radek Docekal
> > <rdocekal(zv)csas(tec)cz> ICQ: 9008367
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> > > Odesl�no: 6. kv�tna 1999 8:59
> > > Komu: 'delphi-l(zv)fwd(tec)cz'
> > > P�edm�t: Cas > Cas
> > >
> > >
> > > Chtel jsem se s Vami podelit o jednu informaci. Mozna uz to vite.
> > > Potrebuji zjistovat datum a cas souboru a porovnavat. Zjistil
> > > jsem, ze kdyz
> > > dostanu jako vyslednou hodnotu casu ve formatu string napr.
> > > '18:05:11', muzu
> > > ji normalne porovnat napr. z '19:05:11'. Takze '19:05:11'
> > > > '18:05:11'.
> > > (Nezalezi na delce stringu, pouzivam D4).
> > > Novak
> > >
> copy tabulek
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 6.5.1999 11:12:31
>
>
> Doporucuji Novou verzi BDE (nyni asi 5.01). Starsi verze mely problemy s
> vetsimi DBF tabulkami. A jak psal Petr Vones, pouzij komponentu BatchMove
> nebo vyuzij primo vlastnost tabulky a cely kod nahradit jednim radkem :
> DM.WTable1.BatchMove(DM.Table1, batAppend);
Spadne to i na tom. Je to tedy silne podezrele
Snazim se tedy stahnout BDE 5 Bude mi fungovat s DELPHI 3?===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela
Label pro CD
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 6.5.1999 11:31:28
Cauec,>Muzes to teda poslat nebo nekde nechat a poslat mi odkaz ...
V konferenci uz prosel...http://www.cd-labeler.com/support_win.htm
Bye Ludan
>
>Dik Dan
>
>-----P�vodn� zpr�va-----
>Od: Ing. Ludek Florian [mailto:ludan(zv)bluerose(tec)cz]
>Odesl�no: 5. kv�tna 1999 9:51
>Komu: delphi-l(zv)fwd(tec)cz
>P�edm�t: Re: Label pro CD
>
>
>Cauec,
>
>>Omlouvam se za ne-DELPHI dotaz.
>>Chci se zeptat, zda nekdo nemate nebo nevite, kde sehnat SW, ktery umi
>>vytvorit labely pro obaly na CD.
>>Soucasti HP vypalovacek je Easy CD Label, ale nejak mi nechodi, ikdyz je
to
>>legalni SW !!!
>>
>>Shanim nejaky jiny, pripadne mi dejte tip na nejaky Vami odzkouseny a
>>doporuceny.
>>Staci aby to umelo venkovni obaly na krabicku, nemusi to umet etikety na
>>CD-Rom.
>
>
>Pouzivam HP CD Labeler. Je to free, hledej u Packardu, ma to asi 3,5 MB.
>
>Umi to jak vnejsi, tak vnitrni obal a nalepku na CD.
>
>Nenajdes-li, muzu to nekde nechat.
>
>Bye Ludan
DeleteAlias
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 6.5.1999 12:01:01
Nevite jak smazat/zmenit permanentni alias?
DbiDeleteAlias(nil,'TestData') sice smaze alias v ramci session,
ale necha ho v IDAPI.CFG.
Pochopitelne nasledny pokus o vytvoreni permanentniho aliasu
DbiAddAlias(nil, PChar('TestData'), nil, PChar(AliasPath), TRUE));
zhavaruje na DBIERR_NAMENOTUNIQUE.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
copy tabulek
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 6.5.1999 12:04:49
>Snazim se tedy stahnout BDE 5 Bude mi fungovat s DELPHI 3?
Bude, kompatibilita je smerem dolu (BDE od D3 by nechodilo s D4)
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Kontrolni soucet
[*] Jaromir Svoboda <svoboda(zv)okfas(tec)cz> - 6.5.1999 12:05:59
Zdravim,
Muze mi prosim nekdo poskytnout radu,
jak vyrobit kontrolni soucet libovolneho
binarniho souboru ?
Predem dik. J.Svoboda
http://www.okfas(tec)cz
mailto:svoboda(zv)okfas(tec)cz
No current record
[*] jdanek(zv)fnbrno(tec)cz - 6.5.1999 12:13:59
Ahojte,
mam nasledujici potize s DBGridem. Na FORMu mam umisten DbGrid a
zaroven polozku TEdit, do
ktere zadavam text a tlacitko TButton. Na stisk Buttonu pak v Tabulce DBF
nastavuji u TTable
v udalosti OnFilterRecord Filter tak, aby mi nasel zadany text v jistem
Fields v Tabulce. Vsechno to
spravne filtruje, ale posleze po kliknuti na radek v DBGridu a zmene
obsahu polozky, kdyz
chci z polozky odejit na jiny zaznam mi to zniceho nic napise hlaseni "No
current record", prestoze je
tento record v DbGridu zobrazen po filtrovani spravne. Predtim ale
nekolikrate jde tuto operaci provest bez potizi.
Potize nastavaji, kdyz filtr nekolikrate vymenim. Netusi prosim nekdo, kde
delam chybu nebo
je chyba jinde?
Diky za kazdou radu.
zdravi Jozka
jdanek(zv)fnbrno(tec)cz
Cas > Cas
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.5.1999 12:22:29
Presne tak. Stejne NEBUDE SPRAVNE porovnani
'8:40' a '11:40', protoze 8>1; Ja bych ten
cas, pripadne datum prevedl do TDateTime
a porovnal zde.
( StrToTime('8:00')<StrToTime('11:00') ,
ale '8:00' > '11:00' )
Namitku, ze prevedu '8:00' na '08:00' beru,
ale proc se drbat levou rukou za pravym uchem ?
Pro informaci, TDateTime je obycejny Extended,
ktery pred desetinou teckou uchovava datum
(ve forme poradoveho cisla) a za desetinnou
teckou je cas.> ----------
> Od: rdocekal(zv)csas(tec)cz[SMTP:rdocekal(zv)csas(tec)cz]
> Odesl�no: 6. kv�tna 1999 11:10
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Cas > Cas
>
> To neni na obsahu stringu zavisle. Lexikograficke trideni /
> porovnavani
> spociva v tom, ze porovnas 1. znak, kdyz je stejnej, jdes na 2. atd.
> Tzn.
> jako napr. ve slovniku. Datum ve tvaru jinem nez yyyy.mm.dd nebude
> fungovat,
> u casu hh:mm:ss to "nahodou" vyslo. Jinak - pro porovnavani stringu s
> neanglickymi znaky nastavene lokalizace OS, slouzi AnsiCompareStr
> (pouze
> Delphi).
>
> S pozdravem
> Radek Docekal
> <rdocekal(zv)csas(tec)cz> ICQ: 9008367
>
> > -----P�vodn� zpr�va-----
> > Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> > Odesl�no: 6. kv�tna 1999 10:48
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: RE: Cas > Cas
> >
> >
> > Ted me, ale napadlo, jestli to porovnavani stringu (cas >
> > cas) bude stejne
> > fungovat v angl. Windowsech. Tam totiz treba datum je v jinem
> poradi.
> > yymmdd.
> > Novak
> >
> > > -----P�vodn� zpr�va-----
> > > Od: rdocekal(zv)csas(tec)cz [SMTP:rdocekal(zv)csas(tec)cz]
> > > Odesl�no: 6. kv�tna 1999 9:08
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: RE: Cas > Cas
> > >
> > > Lexikograficke porovnavani stringu AFAIK fungovalo uz v
> > DOSovskym Turbo
> > > Pascalu.
> > >
> > > S pozdravem
> > > Radek Docekal
> > > <rdocekal(zv)csas(tec)cz> ICQ: 9008367
> > >
> > > > -----P�vodn� zpr�va-----
> > > > Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> > > > Odesl�no: 6. kv�tna 1999 8:59
> > > > Komu: 'delphi-l(zv)fwd(tec)cz'
> > > > P�edm�t: Cas > Cas
> > > >
> > > >
> > > > Chtel jsem se s Vami podelit o jednu informaci. Mozna uz to
> vite.
> > > > Potrebuji zjistovat datum a cas souboru a porovnavat. Zjistil
> > > > jsem, ze kdyz
> > > > dostanu jako vyslednou hodnotu casu ve formatu string napr.
> > > > '18:05:11', muzu
> > > > ji normalne porovnat napr. z '19:05:11'. Takze '19:05:11'
> > > > > '18:05:11'.
> > > > (Nezalezi na delce stringu, pouzivam D4).
> > > > Novak
> > > >
> >
> GREP pro Delphi
[*] Zdenek Bohm <bohm(zv)gacc(tec)cz> - 6.5.1999 12:40:13
Ahoj vsi (totiz vsichni),
nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve vsech zdrojacich
v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0 program GREP. Hledat
ve slozitejsim projektu definici nejake promenne, nebo funkce je na zblbnuti.
Diky Zdenek bohm(zv)gacc(tec)cz
chyba rowid
[*] TES s.r.o. <tes(zv)pce(tec)cz> - 6.5.1999 12:41:20
Vazeni pratele,
pri nasledujici konfiguraci D4 CS, SP2, BDE 5.01, Novell 5 Oracle 8.0 vznika chyba rowid pri provazani dvou tabuli pomoci mastersource a masterfield.
Pod D2 CS nebyl zadny problem. Za kazdou radu uz predem dekuji.
TES spol. s r. o.
ing. Martin Porkert
email: tes(zv)pce(tec)cz
tel: 040 36979
tel/fax: 040 36992
copy tabulek
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 6.5.1999 12:43:37
> >Snazim se tedy stahnout BDE 5 Bude mi fungovat s DELPHI 3?
>
> Bude, kompatibilita je smerem dolu (BDE od D3 by nechodilo s D4)
Vyborne. Jiz zde mam 6 MB z 12-ti MB takze jeste chvili a uvidi se.
Zjistil jsem jeste jednu vec.
Kdyz nejprve sputim tu moji konstrukci na kopirovani a pak BatchMove, tak
BatchMove projde. Nasledne spusteni moji konstrukce opet hodi chybu.
Je mozne, ze by byla spatne zalozena tabulka?
Zakladam ji takto:
---------------------------------------------------------------------------
with DM.Wtable1 do begin
Active:=false;
FieldDefs := DM.Table1.FieldDefs;
end;
i:=0;
IndexDefs.Add ('primarni',DM.Table1.Fields[i].FieldName,[ixPrimary]);
CreateTable;
end;
try
DM.WDataSource1.Enabled := true;
DM.WTable1.EnableControls;
except
ShowMessage('errorr');
end;
------------------------------------------------------------------------
----
Tabulky jsou napojeny na databazi nastavenou takto:
PATH=C:\delphi programy\DATA
LANGDRIVER='dBASE CSY cp852'
LEVEL=25
DEFAULT DRIVER=FOXPRO
ENABLE BCD=FALSE
---------------------------------------------------------------------------
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela
podivne ADONIS
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 6.5.1999 10:47:55 met
> Prave som to skusal na jednoduchej procedure a nemal som s tym problemy:
>
> CREATE PROCEDURE TestProc AS
> INSERT INTO TableTest(TextField) SELECT TextField FROM TableSource
>
> Ak mozte, poslite mi detailejsie informacie, pripadne jednoduchu demo
> aplikaciu na testovanie tohto problemu.
>
> Doporucujem snad nainstalovat najnovsie ADO 2.1 z
> http://www.microsoft.com/data/download.htm
> a najnovsi Adonis 3.2 SP 1 z http://www.cybermagic.co.nz/winsoft .
> Pre MS SQL 7 pouzit nativny provider (SQLOLEDB). Zatial viem
> o jednom probleme so storovanymi procedurami na MS SQL 7 a to
> pri pouziti pomocnych tabuliek (zacinajucich znakom #).
> Problem sa vztahuje na nativneho OLE DB providera (s ODBC
> providerom to chodi dobre) a nesuvisi s Adonisom. Dalej za urcitych
> podmienok (velmi zriedkavych), moze Delphi debugger pri spusteni
> aplikacie pouzivajucej ADO (nemusia to byt Adonis komponenty)
> generovat vynimku. Tento problem sa prejavuje len ak sa spusta takato
> aplikacie z Delphi prostredia a je zapnuty integrovany debugging.
> Da sa to obist bud vypnutim integrovaneho debugera alebo odstavenim
> tejto vynimky v Delphi 4.
>
> Erik Salaj
> erik(zv)dodo.sk
Ano, jedna se o problem s docasnymy tabulkami (#). Problem je v
tom, ze bych nerad pouzival ODBC a docasnych tabulek se z
duvodu soucasneho pristupu vice uzivatelu vzdat take nemuhu. Co
s tim ? Pockat si na novou verzi SQLOLEDB ?
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
MDI
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 6.5.1999 13:06:15
Ahoj,
napr. ActiveMDIChild ti vrati aktivni okno, pres next se dostanes na dalsi apod. Pokud ti jde primo o to oznacit napr. 3. child, tak to nevim.
Jinak mas chyby v EasyPadu, po spusteni verze 2.3 a nejaky drobny stahovany predevcirem to vyhodi hlasku: No argument for format EConvertError a konec. Dela to na kazdem pocitaci, kde jsem to zkousel. Ze ma EPadmimi problemy s otevrenim souboru, ktery ma v sobe mezery (v ceste bejt muzou, jen ne v souboru, napr. "C:\Program files\mujsoubor" projde a "C:\Program Files\Muj soubor" uz ne) pocitam vis a to, ze mi neexistujici soubor predany jako parametr nezalozi taky.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: '*** Delphi' <delphi-l(zv)fwd(tec)cz>
Odesl�no: 6. kv�tna 1999 8:20
P�edm�t: MDI
> Zdravim,
>
> delam pokusy s MDI. Jak mohu prepinat mezi jednotlivymi childy jinak, nez z
> menu WINDOW?
>
> Zkousel jsem MDIChildren[CISLO_OKNA].Show, ale nejak nemuzu zjistit tu
> hodnotu CISLO.
>
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> ==============================================Kontrolni soucet
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 6.5.1999 13:11:55
Haj hou!
Na Torry a/nebo DSP na to je nejmene jeden balik ke stazeni. Hledej vypocet CRC.
-----Original Message-----
From: Jaromir Svoboda <svoboda(zv)okfas(tec)cz>
Muze mi prosim nekdo poskytnout radu,
jak vyrobit kontrolni soucet libovolneho
binarniho souboru ?
Predem dik. J.Svoboda
Cas > Cas
[*] spr.dpcbu(zv)cssz(tec)cz (Spravce site DP C.Budejovice) - 6.5.1999 13:15:02
Na praci s datumem a casem je urcene TDateTime a konverzni procedury. Funguji spolehliv
Ing. Jind�ich Danihelka
DP �esk� Bud�jovicee
----------
From: rdocekal(zv)csas(tec)cz
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Cas > Cas
Date: 6. kv�tna 1999 11:10
To neni na obsahu stringu zavisle. Lexikograficke trideni / porovnavani
spociva v tom, ze porovnas 1. znak, kdyz je stejnej, jdes na 2. atd. Tzn.
jako napr. ve slovniku. Datum ve tvaru jinem nez yyyy.mm.dd nebude fungovat,
u casu hh:mm:ss to "nahodou" vyslo. Jinak - pro porovnavani stringu s
neanglickymi znaky nastavene lokalizace OS, slouzi AnsiCompareStr (pouze
Delphi).
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----P�vodn� zpr�va-----
> Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> Odesl�no: 6. kv�tna 1999 10:48
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Cas > Cas
>
>
> Ted me, ale napadlo, jestli to porovnavani stringu (cas >
> cas) bude stejne
> fungovat v angl. Windowsech. Tam totiz treba datum je v jinem poradi.
> yymmdd.
> Novak
>
> > -----P�vodn� zpr�va-----
> > Od: rdocekal(zv)csas(tec)cz [SMTP:rdocekal(zv)csas(tec)cz]
> > Odesl�no: 6. kv�tna 1999 9:08
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Cas > Cas
> >
> > Lexikograficke porovnavani stringu AFAIK fungovalo uz v
> DOSovskym Turbo
> > Pascalu.
> >
> > S pozdravem
> > Radek Docekal
> > <rdocekal(zv)csas(tec)cz> ICQ: 9008367
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
> > > Odesl�no: 6. kv�tna 1999 8:59
> > > Komu: 'delphi-l(zv)fwd(tec)cz'
> > > P�edm�t: Cas > Cas
> > >
> > >
> > > Chtel jsem se s Vami podelit o jednu informaci. Mozna uz to vite.
> > > Potrebuji zjistovat datum a cas souboru a porovnavat. Zjistil
> > > jsem, ze kdyz
> > > dostanu jako vyslednou hodnotu casu ve formatu string napr.
> > > '18:05:11', muzu
> > > ji normalne porovnat napr. z '19:05:11'. Takze '19:05:11'
> > > > '18:05:11'.
> > > (Nezalezi na delce stringu, pouzivam D4).
> > > Novak
> > >
>
----------
DeleteAlias
[*] Radoslav Medzihradsk� <r.medzihradsky(zv)uvn.sk> - 6.5.1999 13:31:21
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Miloslav Skacel
> Sent: Thursday, May 06, 1999 12:01 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: DeleteAlias
>
>
> Nevite jak smazat/zmenit permanentni alias?
>
> DbiDeleteAlias(nil,'TestData') sice smaze alias v ramci session,
> ale necha ho v IDAPI.CFG.
>
> Pochopitelne nasledny pokus o vytvoreni permanentniho aliasu
> DbiAddAlias(nil, PChar('TestData'), nil, PChar(AliasPath), TRUE));
> zhavaruje na DBIERR_NAMENOTUNIQUE.
>
>
> S pozdravem
> Miloslav Skacel
> skacel(zv)stereo(tec)cz
> http://www.stereo(tec)cz
>
>
>
Musis dat Session.SaveConfigFile;
Astern
copy tabulek
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 6.5.1999 13:43:21
>
>Kdyz nejprve sputim tu moji konstrukci na kopirovani a pak BatchMove, tak
>BatchMove projde. Nasledne spusteni moji konstrukce opet hodi chybu.
>
>Je mozne, ze by byla spatne zalozena tabulka?
>Zakladam ji takto:
>---------------------------------------------------------------------------
>
>with DM.Wtable1 do begin
> Active:=false;
> FieldDefs := DM.Table1.FieldDefs;
> end;
> i:=0;
> IndexDefs.Add ('primarni',DM.Table1.Fields[i].FieldName,[ixPrimary]);
Problem muze byt zde. Primarni index se nepojmenovava. Zkus tam dat prazdne
apostrofy.
> CreateTable;
> end;
>try
> DM.WDataSource1.Enabled := true;
> DM.WTable1.EnableControls;
>except
> ShowMessage('errorr');
>end;
>------------------------------------------------------------------------
>----
>Tabulky jsou napojeny na databazi nastavenou takto:
>PATH=C:\delphi programy\DATA
>LANGDRIVER='dBASE CSY cp852'
Proc nepouzijes langdriver FoxPro Czech1250, kdyz mas default driver FoxPro
>LEVEL=25
>DEFAULT DRIVER=FOXPRO
>ENABLE BCD=FALSE
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Zjisteni existence lokalni docasne tabulky na MSSQ
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 6.5.1999 13:59:30
>Docasne tabulky se delaji v databazi tempdb. Zjistit jestli je uz vytvorena
>muzete napr. takto:
>
>USE tempdb
>SELECT COUNT(name) FROM sysobjects WHERE name LIKE '#Docasna%' AND type =
>'U'
>
>Pokud vrati 0, tak tam zadna tabulka zacinajici na #Docasna neni. Pokud
>chcete misto LIKE pouzit = , tak pozor na to , ze system doplnuje jmeno na
>plnou delku znakem _ (MSSQL7.0)
To je jasne, ale problem je, ze mne zajima jestli existuje #Docasna jen pro
muj connection.
Takto zjistim jestli si nekdo (mozna ja, ale mozna nekdo jiny nebo ja na
jinem connectionu)
ma vytvoreny #Docasna.
To doplneni _ neni tak docela pravda jeste tam je na konci nejake numero,
ale
jeho vyznam se mi nepodarilo zjistit. Na druhou stranu to je jedina
diference mezi
dvema docasnymi tabulkami vytvorenymi z ruznych connectionu. Takze
mozna tudy vede cesta?
Dik Rob
Kontrolni soucet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.5.1999 14:06:21
>Zdravim,
>Muze mi prosim nekdo poskytnout radu,
>jak vyrobit kontrolni soucet libovolneho
>binarniho souboru ?
algoritmy jsou vsude k mani - nejlepsi je MD5 mel by stacit i 32 bit CRC
Zdravi
D. Toman
LockWindowUpdate...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 6.5.1999 14:20:13
ahoj
mam nasledujici problem:
v programu (SDI) pouzivam fci LockWindowUpdate(hWndForm), abych zamezil
blikani okna pri ruznych zmenach - to funguje dobre, pouze
pokud je okno aplikace maximalizovane, v opacnem pripade
kdyz zavolam LockWindowUpdate(0) zablika to, co je umisteno za oknem me
aplikace...
umi nekdo poradit ?
diky
Zdenek Fryz
GExperts
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 06.5.1999 14:33:10
S Gexpertem na WinNT mi to jede OK. Ze by to bylo tema W9x ???
Mac
Michal Motalik wrote:
> >Dobryyy, mam to na D4 Prof a dela to taky !! Jsi si jist, ze to delaji
> >GExperts ? a ktery modul ?
>
> Mira
>
> Nevim, ktery modul to dela, ale na sefove pocitaci bez Expertu (ale s W-NT)
> to jede v pohode.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Web aplikace
[*] voltrr1.epr(zv)mail.cez(tec)cz - 6.5.1999 14:52:27
> >www.holiday(tec)cz/InetRIS)
> Zkousel jsem se na ten site opakovane connectnout, a nepovedlo se. Bezi
to
> trvale?
Melo by . Asi je nekde proble,.
> Urcite se na to podivam, jen jak vysetrim trochu casu. BTW, neda se to
nejak
> potlacit?
Je na to patch a nekolik ruznejch jinej reseni.
> >neni nikdy dost.
> Zkusenosti take ne a ty mohou leckdy ten cas dost usetrit, aneb jak se
rika:
Radsi si pestuju zkusenosti pro Delphi (a modlim se aby to Inprise
nezabalil)
Radek
GREP pro Delphi
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 6.5.1999 15:57:45
V menu Search|Find in Files. Tam si zvolis, jestli to chces v ceste nebo v projektu.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Zdenek Bohm [SMTP:bohm(zv)gacc(tec)cz]
Odeslano: 6. kvitna 1999 12:40
Komu: Delphi konference
Poedmit: GREP pro Delphi
Ahoj vsi (totiz vsichni),
nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve vsech zdrojacich
v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0 program GREP. Hledat
ve slozitejsim projektu definici nejake promenne, nebo funkce je na zblbnuti.
Diky Zdenek bohm(zv)gacc(tec)cz
Error creating window
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 6.5.1999 16:05:36
Pouzivam 16 bitove Delphi a vyvijim pod WinNT.
Vsechno chodi OK, ale kdyz aplikaci dam
pod W98 nebo dokonce na W3.11, tak se mi
pri otvirani nekterych oken zobrazi
chyba Error creating window.
Aplikace je MDI, na MDI child formech
je TNotebook s 1-4 zalozkami a na nich
dost TEdit prvku.
Chyba nekdy taky vyskoci ne hned pri creatu, ale
az po zobrazeni kdyz tuknu treba na druhou
zalozku. To uz by snad melo byt vsechno vytvorene, ne?
Formy s mensim poctem editu a stranek chodi OK,
ale ty rozsahlejsi ne. MDIChildformy jsou
vzdy vytvorene, zobrazane a zrusene (pres caFree).
Pod W98 je to lepsi o neco nez pod W3.11. Napriklad
jeden form ma tlacitko ktere vytvori jiny form
(jediny pripad kdy jsou vytvorene 2 MDIchildformy)
a projde to OK pod W98, ale pod W3.11 to ten druhy
form ani nezobrazi.
Nevite nekdo aspon malou radu?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+GREP pro Delphi
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 6.5.1999 16:07:15
kterou v'zi mas na mysli. D4 to ma v sobe.... :-) .... d3 jeste taky...
starsi nevim.
(z menu - search - find in files).
(nebo normalni find a ma dve zalozky - v akt. souboru a ve vsech ;)
Mti.
...z toho plyne, ze mas D1 nebo 2 ... :-(
>Ahoj vsi (totiz vsichni),
>
>nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve vsech
zdrojacich
>v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0 program GREP.
Hledat
>ve slozitejsim projektu definici nejake promenne, nebo funkce je na
zblbnuti.
>
>Diky Zdenek bohm(zv)gacc(tec)cz
GREP pro Delphi
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 6.5.1999 16:16:37
Nejlepsi je ten z GExpert - pouzivam neustale :-)
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Zdenek Bohm <bohm(zv)gacc(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Odesl�no: 6. kv�tna 1999 12:40
P�edm�t: GREP pro Delphi
> Ahoj vsi (totiz vsichni),
>
> nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve vsech zdrojacich
> v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0 program GREP. Hledat
> ve slozitejsim projektu definici nejake promenne, nebo funkce je na zblbnuti.
>
> Diky Zdenek bohm(zv)gacc(tec)cz
copy tabulek
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 6.5.1999 16:20:21
>
> > IndexDefs.Add ('primarni',DM.Table1.Fields[i].FieldName,[ixPrimary]);
>
Dal jsem a nic
>
> Problem muze byt zde. Primarni index se nepojmenovava. Zkus tam dat
prazdne
> apostrofy.
>
> Proc nepouzijes langdriver FoxPro Czech1250, kdyz mas default driver
FoxPro
Pouzil jsem a statle stejne
Naistaloval jsem nove BDE 5.01 a je to stejne.
Vsimnul jsem si jedne veci. Kdyz bezi pridavani do databaze, tak se
nezvetsuje jeji velikost. Ta se zvetsi az najednou kdyz se to kousne. Uz
fakt nevim co s tim. Asi zacnu cele znovu :-(
Urcite je to nejaka kravina (nekde)===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela
Error creating window
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 6.5.1999 16:21:09
Doporucuju spustit RSRCMTR.EXE (Win9x), protoze se obavam nedostatku prostredku. WinNT to resi ponekud jinak, tam se daj vycerpat az za dyl.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 6. kv�tna 1999 16:05
P�edm�t: Error creating window
> Pouzivam 16 bitove Delphi a vyvijim pod WinNT.
> Vsechno chodi OK, ale kdyz aplikaci dam
> pod W98 nebo dokonce na W3.11, tak se mi
> pri otvirani nekterych oken zobrazi
> chyba Error creating window.
> Aplikace je MDI, na MDI child formech
> je TNotebook s 1-4 zalozkami a na nich
> dost TEdit prvku.
> Chyba nekdy taky vyskoci ne hned pri creatu, ale
> az po zobrazeni kdyz tuknu treba na druhou
> zalozku. To uz by snad melo byt vsechno vytvorene, ne?
>
> Formy s mensim poctem editu a stranek chodi OK,
> ale ty rozsahlejsi ne. MDIChildformy jsou
> vzdy vytvorene, zobrazane a zrusene (pres caFree).
>
> Pod W98 je to lepsi o neco nez pod W3.11. Napriklad
> jeden form ma tlacitko ktere vytvori jiny form
> (jediny pripad kdy jsou vytvorene 2 MDIchildformy)
> a projde to OK pod W98, ale pod W3.11 to ten druhy
> form ani nezobrazi.
>
> Nevite nekdo aspon malou radu?
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+GREP pro Delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.5.1999 15:58:07
Puvodni zprava, kterou napsal Zdenek Bohm dne 6 May 99,:
> nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve vsech
> zdrojacich v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0
> program GREP. Hledat ve slozitejsim projektu definici nejake promenne,
> nebo funkce je na zblbnuti.
No vsak ja to delam tim GREPem...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
copy tabulek
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 6.5.1999 17:04:02
>Vsimnul jsem si jedne veci. Kdyz bezi pridavani do databaze, tak se
>nezvetsuje jeji velikost. Ta se zvetsi az najednou kdyz se to kousne. Uz
>fakt nevim co s tim.
nastav si LocalShare=TRUE a melo by to zvetsovat plynule (a taky zpomalit)
Milos
Error creating window
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 6.5.1999 18:26:57
Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> wrote:
>Pouzivam 16 bitove Delphi a vyvijim pod WinNT.
>Vsechno chodi OK, ale kdyz aplikaci dam
>pod W98 nebo dokonce na W3.11, tak se mi
>pri otvirani nekterych oken zobrazi
>chyba Error creating window.
Rekl bych, ze presne co popisujes ma na svedomi preteceni lokalniho Heapu,
ve kterem si prvky jako tEdit a tListbox alokuji pamet. Reseni je pomoci
direktivy $M upravit jeho velikost viz help. Ja jsem po peclivem
monitorovani stacku dospel u hodne velke aplikace k hodnote
{$M $7000,$5000}
takze se muzes zkusit od toho odpichnout.
bye, pf
Zistenie behu programu
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 6.5.1999 17:39:10
> From: Majo Petrik <petrik(zv)gt12.sk>
> dakujem za to riesenie,ale slo by to aj v aplikacii,ktora
> nepouziva unit forms t.j. vobec nevytvara okno...?
podivej se na nas www.zds(tec)cz (download)
je tam free unita ONEINST, ktera
nepotrebuje temer nic :-)
a umi jeste mnohem vice...
>
>
> On Tue, 4 May 1999, Jan Fiala wrote:
>
> > >
> > >var HWND : Longint;
> > >
> > >begin
> > >
> > > Application.Initialize;
> > >
> > > //hlida, jestli je zpustena jen jedna instance programu
> > > HWND:=FindWindow('TFormHL', 'Marketing');
> >
> > > if HWND<>0 then
> >
> >
> > A pokud predchozi radek nahradis :
> > If (Hwnd <> 0) AND (FindWindow('TAppBuilder', nil) = 0)
> > tak budes moci spustit program i v prostredi Delphi (sice v Delphi
> > vicekrat - mimo nej ne), ale porad je to lepsi, nez jej zkompilovat, shodit
> > Delphi, vyzkouset, spustit Delphi ....
> >
> > > begin
> > > SetForeGroundWindow(HWND);
> >
> > > Application.Terminate;
> > > end; // if
> > >
> > > Application.Title := 'Marketing';
> > > Application.CreateForm(TFormHL, FormHL);
> > > Application.Run;
> > >end.
> > >
> >
> >
> > ===============================
> > ing. Jan Fiala fiala(zv)infos(tec)cz
> > Prog-Soft s.r.o. Plzen
> > INFOS - informacni system pro napojare
> > ===============================
> >
> >
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail:info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Dotazek - Vypocet obsahu N-uhelniku
[*] Petr Kundrata <pksoft(zv)iol(tec)cz> - 06.5.1999 18:39:43
> Robert Holovsky wrote:
>
> Cau lidicky
>
> chci se zeptat, jestli nekdo nemate source pro vypocet obsahu
> obecneho N-uhelniku, kde znam souradnice(X,Y) vsech N vrcholu?
> Ja nemuzu nikde najit nejakej vzorecek, nebo source.
Ahoj!
Mohlo by to jit takto:
obsah := 0;
for i := 0 to Strany.Count - 1 do
obsah := obsah +
(Strana[i].X2-Strana[i].X1)*
(Strana[i].Y1+Strana[i].Y2)/2;
obsah := abs(obsah);
// Je to vlastne suma integralu pres vsechny strany.
// strany na sebe musi navazovat.
Petr Kundrata
inifile - bug
[*] Jiri Binder <jiri.binder(zv)pedf.cuni(tec)cz> - 6.5.1999 18:45:02
Chvili me ted zdrzelo hledani jedne chyby, snad vysledek usetri
cas nekomu dalsimu. Pri zapisu do ini souboru prikazem
IniSoubor.WriteCokoliv('Sekce','ident ',hodnota)
se program bez mrknut� zhrouti. Pricinou je mezera na konci
identifikatoru. Chyba je trochu zakuklena protoze se neprojevi,
pokud zapisovana polozka v inisouboru jiz je a pouze se
aktualizuje.
Vzhledem k tomu, ze v TIniFile se prakticky nic nedeje a vola se
API fce pro zapis do ini souboru, tak si myslim, ze zdroj jev v
chovani API fce WritePrivateProfileString (neoveroval jsem).
Jiri Binder
Minimize tlacitko
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 6.5.1999 19:01:11
Ahoj "profici" ..
Kde mam napisat Application.Minimize , ked chcem aplikaciu minimalizovat s ktorehokolvek formulara priamo na task bar? Teraz ak kliknem na min tlacitko v pravom hornom rohu ktorehokolvek formu tak sa minimalizuje iba aktualny form a to iba nad task bar.
Samozrejme netyka sa to hlavneho formu ale o ostatnych ...
Existuje nejaka finta ?
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364
copy tabulek
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 6.5.1999 19:06:19
Ahoj,
co tak skusit namiesto Insert pouzit Append .....a nasledne post ...zatial
som nemal problemy
Totiz append prida vetu na koniec db a insert na akt.poziciu.
Ak sa mylim tak sorry ...
----- Original Message -----
From: Richard Valny <richard.valny(zv)oku-st(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 6. m�j 1999 16:20
Subject: RE: copy tabulek
> >
> > > IndexDefs.Add ('primarni',DM.Table1.Fields[i].FieldName,[ixPrimary]);
> >
> Dal jsem a nic
> >
> > Problem muze byt zde. Primarni index se nepojmenovava. Zkus tam dat
> prazdne
> > apostrofy.
> >
> > Proc nepouzijes langdriver FoxPro Czech1250, kdyz mas default driver
> FoxPro
> Pouzil jsem a statle stejne
>
> Naistaloval jsem nove BDE 5.01 a je to stejne.
>
> Vsimnul jsem si jedne veci. Kdyz bezi pridavani do databaze, tak se
> nezvetsuje jeji velikost. Ta se zvetsi az najednou kdyz se to kousne. Uz
> fakt nevim co s tim. Asi zacnu cele znovu :-(
> Urcite je to nejaka kravina (nekde)
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> ===========mozno pouzit PGP==============
>
> ... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
> dela
>
>register a Register
[*] Jiri Binder <jiri.binder(zv)pedf.cuni(tec)cz> - 6.5.1999 19:18:13
Pri registraci komponenty jsem si napsal proceduru register s
malym r a a komponenta se nechtela zaregistrovat. Jinak se vse
tvarilo normalne. Po zamene na Register jiz bylo vse OK. Ponekud
podivne.
Kdyz jsem se vyvztekal, tak jsem si vzpomel, ze jsem si s tim
pred casem jiz jednou uzil. Mam sice nejakou sklerozu, ale urcite
nepresahuje interval mezi zaplatmy Delhi, tak si myslim, ze to tam
nejaky ten patch muselo prezit.
Jiri Binder Instalator - zadarmo
[*] Jaro <jaro(zv)sinea(tec)cz> - 6.5.1999 21:49:33
Probehla tu diskuse o instalacnich programech.
Napadla me jedna moznost.
Drive jsme vytvorili vlastni instalacni program.
Pote, co jsme lokalizovali IS, jsme jej opustili.
Neumel sice instalovat BDE, ale byl velmi jednoduchy,
umel svazky disket a definice instalace se provedla
jednoduse popisem v textovem souboru.
Pokud by byl zajem o tento jednoduchy instalator, mohl bych
ho uvolnit k bezplatnemu uzivani a to vcetne zdrojovych
souboru. Necht si ho kazdy upravi dle svych potreb.
Zajemci mohou napsat na jaro(zv)sinea(tec)cz
Pokud bude zajem, pridam ho na nas web k volnemu
stazeni.
Jaro
-----P�vodn� zpr�va-----
Od: Jaro <jaro(zv)sinea(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. kv�tna 1999 2:34
P�edm�t: Re: instalator Youseful 4.0
>To je pravda.
>Jaro
>
>
>>>Apropos: co mas proti Installshield-u ?
>>>Mas ho na CD s Delphi a lokalizovat se ho take podarilo.
>>>Ja ho pouzivam jiz treti rok a vyhovuje mi.
>>
>>
>>Proti installshieldu nemam nic. Asi bychom ale potrebovali
>Professional
>>verzi, ktera umi skripty. Nebo Express umi zadat behem instalace v
>>dialogovem okne napr. nazev SQL serveru pro nastaveni BDE?
>>A protoze Profi verze neni nejlevnejsi, rad bych poznal, co se
obecne
>>pouziva.
>>
>>Leos
>>
>podivne ADONIS
[*] Erik Salaj <erik(zv)dodo.sk> - 6.5.1999 21:52:58
> Ano, jedna se o problem s docasnymy tabulkami (#). Problem je v
> tom, ze bych nerad pouzival ODBC a docasnych tabulek se z
> duvodu soucasneho pristupu vice uzivatelu vzdat take nemuhu. Co
> s tim ? Pockat si na novou verzi SQLOLEDB ?
Asi pockat na ADO 2.5, alebo mozno nejaky service pack pre MS SQL 7.
Erik Salaj
erik(zv)dodo.sk
inifile - bug
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1999 23:07:36
Jiri Binder wrote:
>
> Chvili me ted zdrzelo hledani jedne chyby, snad vysledek usetri
> cas nekomu dalsimu. Pri zapisu do ini souboru prikazem
> IniSoubor.WriteCokoliv('Sekce','ident ',hodnota)
> se program bez mrknut� zhrouti. Pricinou je mezera na konci
> identifikatoru. Chyba je trochu zakuklena protoze se neprojevi,
> pokud zapisovana polozka v inisouboru jiz je a pouze se
> aktualizuje.
> Vzhledem k tomu, ze v TIniFile se prakticky nic nedeje a vola se
> API fce pro zapis do ini souboru, tak si myslim, ze zdroj jev v
> chovani API fce WritePrivateProfileString (neoveroval jsem).
Ahoj,
Je to tak, spadne to v te API funkci, viz priklad:
procedure TForm1.Button1Click(Sender: TObject);
const
IniFileName = 'X:\Pokus.ini';
begin
Win32Check(WritePrivateProfileString('Sekce', 'Polozka ', 'Hodnota', IniFileName));
WritePrivateProfileString(nil, nil, nil, IniFileName); // flush cache
end;
Zajimave je, ze pokud se to spusti z Delphi IDE tak se ta chyba neprojevi
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
copy tabulek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1999 23:08:36
Richard Valny wrote:
> Je mozne, ze by byla spatne zalozena tabulka?
> Zakladam ji takto:
> ---------------------------------------------------------------------------
>
> with DM.Wtable1 do begin
> Active:=false;
> FieldDefs := DM.Table1.FieldDefs;
> end;
> i:=0;
> IndexDefs.Add ('primarni',DM.Table1.Fields[i].FieldName,[ixPrimary]);
> CreateTable;
> Tabulky jsou napojeny na databazi nastavenou takto:
> PATH=C:\delphi programy\DATA
> LANGDRIVER='dBASE CSY cp852'
> LEVEL=25
> DEFAULT DRIVER=FOXPRO
> ENABLE BCD=FALSE
Ahoj,
A nemuze byt problem v tom, ze FOXPRO nema zadne primarni indexy ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Minimize tlacitko
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1999 23:08:52
> "Radoslav Jalc, ProNet" wrote:
>
> Ahoj "profici" ..
>
> Kde mam napisat Application.Minimize , ked chcem aplikaciu minimalizovat s ktorehokolvek
> formulara priamo na task bar? Teraz ak kliknem na min tlacitko v pravom hornom rohu
> ktorehokolvek formu tak sa minimalizuje iba aktualny form a to iba nad task bar.
> Samozrejme netyka sa to hlavneho formu ale o ostatnych ...
>
> Existuje nejaka finta ?
Ahoj,
Muzes to udelat treba takhle:
type
TForm2 = class(TForm)
private
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
{ TForm2 }
procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
with Message do
if CmdType and $FFF0 = SC_MINIMIZE then
Application.Minimize
else
inherited;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Service
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1999 23:08:19
Kolar Lubor wrote:
>
> Ale jo, service udelat umim v pohode, akorat je to problem v tom, ze ji udelam pouze jako DPR a nefunguji mi v ni zadne eventy, nejak to jit preci musi.
> Radsi jeste jednou:
> Potrebuji predelat stavajici nevizualni aplikaci na NT Service, ale tak, aby mi vsechny eventy nevizualnich komponent zustaly aktivni.
> Petre Vonesi, nevis ani ty? ;-)
Nevim :-))
Protoze nemam NT ani k nim pristup. Dival jsem se zbezne do zdrojaku, oni tam
spousti thread ve kterem provadi zpracovani zprav, ale je to dal nejak zamotane
(jako ostatne vzdy ve VCL :-). Spis bych se klonil k nazoru, ze psat Service s
pouzitim VCL neni to nejlepsi a bude asi vyhodnejsi to psat primo.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
MDI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1999 23:10:02
Krayzel Libor wrote:
>
> Zdravim,
>
> delam pokusy s MDI. Jak mohu prepinat mezi jednotlivymi childy jinak, nez z
> menu WINDOW?
>
> Zkousel jsem MDIChildren[CISLO_OKNA].Show, ale nejak nemuzu zjistit tu
> hodnotu CISLO.
Ahoj,
To zalezi na tech oknech, proste si musis podle neceho prochazenim v seznamu
MDIChildren najit to prave (treba podle nazvu souboru u daneho TChildForm v
pripade textoveho editoru apod.).
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Nastrojova lista
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 6.5.1999 23:57:39
Prozradim, jen D3. Tot ta smula, TCoolBar neni
to prave.
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. kv�tna 1999 5:51
P�edm�t: Re: Nastrojova lista
>Pavel Malinsk� wrote:
>>
>> Ahoj,
>>
>> pratele, potreboval bych prosim pomoct
>> s nasledujicim> Potreboval bych vybudovat podobny
>> panel nastroju jako maj M$ Office 97, tzn.
>> posuvny a premistitelny, pricemz kazda skupina je
>> nezavisla. Odhaduji, ze to maj
>> udelany pomoci neceho jako je TCoolBar.
>> Jestli jste nekdo neco takoveho delal, nebo
>> jste na to videl komponentu, dejte prosim vedet
>> at muzu odnekud zacit.
>
>Ahoj,
>
>Neprozradil jsi jakou mas verzi Delphi. TCoolBar uz by mel byt v D3. V D4
>mas komponentu TControlBar do ktere muzes vlozit TToolBar a pak to bude
>vypadat jako panely nastroju v D4 IDE.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
>
Kontrolni soucet
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 7.5.1999 06:46:02
Dneska jsem narazil na zajimavou stranku:
http://www.phiberoptix.com/xacker/delphi.shtml
V seznamu hledej CRC - je tam pro D1-4, CB3-4
Mira
-----P�vodn� zpr�va-----
Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. kv�tna 1999 13:29
P�edm�t: Re: Kontrolni soucet
Haj hou!
Na Torry a/nebo DSP na to je nejmene jeden balik ke stazeni. Hledej
vypocet CRC.
-----Original Message-----
From: Jaromir Svoboda <svoboda(zv)okfas(tec)cz>
Muze mi prosim nekdo poskytnout radu,
jak vyrobit kontrolni soucet libovolneho
binarniho souboru ?
Predem dik. J.Svoboda
GREP pro Delphi
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.5.1999 07:02:56
> -----Original Message-----
> From: Zdenek Bohm [mailto:bohm(zv)gacc(tec)cz]
> Sent: Thursday, May 06, 1999 12:40 PM
> To: Delphi konference
> Subject: GREP pro Delphi
>
>
> Ahoj vsi (totiz vsichni),
>
> nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve
> vsech zdrojacich
> v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0
> program GREP. Hledat
> ve slozitejsim projektu definici nejake promenne, nebo funkce
> je na zblbnuti.
V D4 je dost dobre hledat definici nejake promenne
Code Browserem. Ctrl a click mysi na identifikator
v editoru zpusobi otevreni souboru a skok na misto
s jeho definici.
>
> Diky Zdenek bohm(zv)gacc(tec)cz
>
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!SQL Dotaz po II
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 7.5.1999 07:29:10
Tohle jsem uz tady posilal, zatim jsem to nevyresil, tak to posilma jeste
jednou.
Uplne jsem se na tom kousl. Vubec nevim co s tim...TAK PROSIM HELP
Zkousel jsem updatovat BDE, preindexovat tabulky, ale porad to dela to
same...
Mam SQL Dotaz
===========
SELECT
Z.ZEME, C.SKUPSAZ,sum(C.tis_KC) as K�, sum(tuny) as Tun
FROM
CELSTA C, ZEME Z
WHERE
rok=1998 AND DOV_VYV=1 AND ZMPU="PL" AND SKUPSAZ="7208"
AND Z.KODZEME=C.ZMPU GROUP BY Z.ZEME,SKUPSAZ
ORDER BY
TUN DESC
===========
Kdyz ho pouziju v SQL eploreru, vyjdou mi vysledky dobre.
Ale kdyz ho pouziji v komponente TQuery, tak to nevyjde ani priblizne....
Vyjde to az tehdy, pokud zrusim propojeni na druhou tabulku ZEME, ktera
obsahuje nazev statu a jeho dvojmistny kod..
Vysledky pro srovnani
SQL eplorer = POLSKO 7280 165068,96 12442,63
TQUERY = POLSKO 7280 17743,08 1230,09
Pouzivam BDE 4.50 pro FOXPRO DBF tabulky. Delphi 3 C/S.
V cem je podle Vas zakopany pes?
DIK..
Dalibor
SQL- UNION
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 7.5.1999 07:39:50
Ahoj vsem,
mam dotaz ohledne SQL.Nevite jak se daji v Delphi spojit dva dotazy (pokud
se daji)???
Ve FoxPro to slo prikazem UNION.
Diky za kazde popostrceni
Jiri Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
Dotazek - Vypocet obsahu N-uhelniku
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.5.1999 07:49:37
> -----Original Message-----
> From: Petr Kundrata [mailto:pksoft(zv)iol(tec)cz]
> Sent: Thursday, May 06, 1999 6:40 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Dotazek - Vypocet obsahu N-uhelniku
> > chci se zeptat, jestli nekdo nemate source pro vypocet obsahu
> > obecneho N-uhelniku, kde znam souradnice(X,Y) vsech N vrcholu?
> > Ja nemuzu nikde najit nejakej vzorecek, nebo source.
> Ahoj!
>
> Mohlo by to jit takto:
> obsah := 0;
> for i := 0 to Strany.Count - 1 do
> obsah := obsah +
> (Strana[i].X2-Strana[i].X1)*
> (Strana[i].Y1+Strana[i].Y2)/2;
> obsah := abs(obsah);
> // Je to vlastne suma integralu pres vsechny strany.
> // strany na sebe musi navazovat.
>
> Petr Kundrata
>
>
Cool! Je to krasa.
Jenom bych doplnil - pocital jsem si to a az potom jsem
pochopil tu poznamku, ze strany musi navazovat.
To znamena, ze pro stranu plati,
ze jeji bod 1 je bodem 2 strany predchozi.
Takze misto stran by mozna bylo lepsi evidovat si vrcholy
serazene po obvodu a pocitat vzdy i-ty a (i-1)-ty bod.
Pro ty, kteri to budou pouzivat a nebudou si vzorecek odvozovat:
pozor na znamenka plus a minus! U jedne souradnice musi byt plus,
u druhe minus. (Neni chyba, ze jsou znamenka ruzna.)
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!LOCAL SHARE
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.5.1999 07:54:05
Pavel M. wrote:
> Mam vyzkouseno, ze stabilita databazi (paradox) se
> podstatne zhorsi pokud jsou data na nevyhrazenem serveru.
> Doporucuji ten jeden pocitac ozelet a usetrite si spoustu problemu.
> Proc nevim, je to jenom zkusenost z praxe.
Kdyz uz nekdo muze vyhradit pocitac pro databazi, nemelo by mu
cinit problem nasadit i SQL databazi...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
GREP pro Delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.5.1999 07:54:05
Zdenek Bohm wrote:
> nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve vsech
> zdrojacich v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0
> program GREP. Hledat ve slozitejsim projektu definici nejake promenne,
> nebo funkce je na zblbnuti.
Ja na to pouzivam Windows Commander jeste radeji nez
zabudovanou funkci hledani pres zdrojaky.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Editovatelny Report Komponent
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 7.5.1999 08:21:40
Vytvaram editovateln� report (u��vate�om) zalozany na QuickReport 2.
Ma vyznam vytvarat tuto komponentu alebo existuje nieco slusne zadarmo?
Hlavne mi ide o to aby v jednom reporte bolo mozne pouzivat viac Query, ako napr.
master-slave atd. a aby aj uzivatel mohol zadavat Query.SQL.
Ak by ste mali nejaky napad tak prosim napiste mi.
TUNGLI Jan
tungli(zv)pvt.sk
SQL- UNION
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 7.5.1999 09:01:37
SQL servery by meli toto spojeni umoznovat. Napriklad na Informixu
prikaz UNION funguje. Ale pokud mas Paradox tak tam to nejspis
nepujde.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
Sent: Friday, May 07, 1999 7:40 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SQL- UNION
Ahoj vsem,
mam dotaz ohledne SQL.Nevite jak se daji v Delphi spojit dva dotazy
(pokud
se daji)???
Ve FoxPro to slo prikazem UNION.
Diky za kazde popostrceni
Jiri Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
Kodovacie tabulky
[*] Ing. J�n Kuch�r�����!j��G - 7.5.1999 09:25:54
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Chcem Vas poziadat, ci z Vas niekto nema, alebo nevie, kde by som mohol zohnat kodovacie tabulky pre kodovanie v kode KAMENICKYCH, LATIN a WINDOWS.
Dik
Ing. J�n Kuch�r
KIaR SjF TU Ko�ice
Park Komensk�ho 9
041 27 Ko�ice
tel. : 095 / 602 2589
e-mail : kuchar(zv)tuke.sk
mdb, .xls
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 7.5.1999 09:46:40
Halloa ALL!
Mam takovej, asi pitomej, dotaz. Daji se v Delphim pouzival soubory .xls a
.mdb? Nebo je nutne je napred zkonvertovat do jineho formatu?
Dekuju moc.
Tma
Service
[*] kelleon(zv)nnsk.sk - 7.5.1999 09:55:40
> -----Original Message-----
>
> Kolar Lubor wrote:
> >
> > Ale jo, service udelat umim v pohode, akorat je to problem
> v tom, ze ji udelam pouze jako DPR a nefunguji mi v ni zadne
> eventy, nejak to jit preci musi.
> > Radsi jeste jednou:
> > Potrebuji predelat stavajici nevizualni aplikaci na NT
> Service, ale tak, aby mi vsechny eventy nevizualnich
> komponent zustaly aktivni.
> > Petre Vonesi, nevis ani ty? ;-)
mozno by pomohlo vlozit tento kus kodu priamo do .dpr:
while True do
begin
if PeekMessage(Msg,0,0,0,PM_REMOVE) then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end
else
WaitMessage;
end;
Ondrej Kelle
kelleon(zv)nnsk.sk
Cas > Cas
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 09:56:21
Konverze data resp. casu do String (DateTimeToStr, ...) probiha na zaklade nastaveni promennych
DateSeparator: Char;
ShortDateFormat: string;
LongDateFormat: string;
TimeSeparator: Char;
TimeAMString: string;
TimePMString: string;
ShortTimeFormat: string;
LongTimeFormat: string;
atd.
v unit SysUtils.
Tyto promenne jsou inicializovany podle nastaveni Windows a lze je zmenit.
Takze to, co pises plati pouze nekdy.
Kazdopadne typ
TDateTime = type Double;
(unit System)
takze muzes klidne porovnavat promenne TDateTime primo.
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 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Novak Josef <jnovak(zv)anect(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Cas > Cas
> Datum: 6. kv�tna 1999 8:59
>
> Chtel jsem se s Vami podelit o jednu informaci. Mozna uz to vite.
> Potrebuji zjistovat datum a cas souboru a porovnavat. Zjistil jsem, ze kdyz
> dostanu jako vyslednou hodnotu casu ve formatu string napr. '18:05:11', muzu
> ji normalne porovnat napr. z '19:05:11'. Takze '19:05:11' > '18:05:11'.
> (Nezalezi na delce stringu, pouzivam D4).
> Novak DeleteAlias
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 10:01:05
Uz jsem to tady psal:
Vubec nedoporucuji pouzivat aliasy, protoze na jejich nastaveni se nemuzes spolehnout.
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 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Radoslav Medzihradsk� <r.medzihradsky(zv)uvn.sk>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: DeleteAlias
> Datum: 6. kv�tna 1999 13:31
>
>
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> > Behalf Of Miloslav Skacel
> > Sent: Thursday, May 06, 1999 12:01 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: DeleteAlias
> >
> >
> > Nevite jak smazat/zmenit permanentni alias?
> >
> > DbiDeleteAlias(nil,'TestData') sice smaze alias v ramci session,
> > ale necha ho v IDAPI.CFG.
> >
> > Pochopitelne nasledny pokus o vytvoreni permanentniho aliasu
> > DbiAddAlias(nil, PChar('TestData'), nil, PChar(AliasPath), TRUE));
> > zhavaruje na DBIERR_NAMENOTUNIQUE.
> >
> >
> > S pozdravem
> > Miloslav Skacel
> > skacel(zv)stereo(tec)cz
> > http://www.stereo(tec)cz
> >
> >
> >
>
> Musis dat Session.SaveConfigFile;
>
> Astern
Editovatelny Report Komponent
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 10:15:17
Existuje neco, co sice neni uplne zadarmo, ale pomer vykon/cena je velmi vysoky.
Sinea (http://www.sinea(tec)cz).
Skutecny pripad:
Dohoda s odberatelem byla takova, za ja udelam pouze hruby navrh sestav (select + hodit data bez ladu a skladu na papir) a odberatel mi pak na ctvereckovanem papire namaluje, jak to ma doopravdy vypadat.
Kdyz jsem za tyden prisel, dozvedel jsem se: "my uz to mame hotove"!
A meli to hotove a meli to pekne. Ja bych to pri sve trpelivosti tak pekne neudelal.
Dokonce i do toho selectu si troufli sahnout (order by a pod.)
Preju vam takove odberatele (IPS, valna hromada).
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 931, 692 569, 0601 20 30 84
=========================================
----------
Odes�latel: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
P�edm�t: Editovatelny Report Komponent
Datum: 7. kv�tna 1999 8:21
Vytvaram editovateln� report (u��vate�om) zalozany na QuickReport 2.
Ma vyznam vytvarat tuto komponentu alebo existuje nieco slusne zadarmo?
Hlavne mi ide o to aby v jednom reporte bolo mozne pouzivat viac Query, ako napr.
master-slave atd. a aby aj uzivatel mohol zadavat Query.SQL.
Ak by ste mali nejaky napad tak prosim napiste mi.
TUNGLI Jan
tungli(zv)pvt.sk
GREP pro Delphi
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 10:18:30
V Delphi4: RightClick a FindDeclaration.
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 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Zdenek Bohm <bohm(zv)gacc(tec)cz>
> Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
> P�edm�t: GREP pro Delphi
> Datum: 6. kv�tna 1999 12:40
>
> Ahoj vsi (totiz vsichni),
>
> nevite nekdo, jak se da v Delphi vyhledavat urcity retezec ve vsech zdrojacich
> v adresari. Neco takoveho, jako byl v Borland Pascalu 7.0 program GREP. Hledat
> ve slozitejsim projektu definici nejake promenne, nebo funkce je na zblbnuti.
>
> Diky Zdenek bohm(zv)gacc(tec)cz
podivne ADONIS
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 10:26:53
> > Ano, jedna se o problem s docasnymy tabulkami (#). Problem je v
> > tom, ze bych nerad pouzival ODBC a docasnych tabulek se z
> > duvodu soucasneho pristupu vice uzivatelu vzdat take nemuhu.
Mozna to reknu prilis kategoricky:
Kdo ma dobre udelany datovy model, ten docasne tabulky nepotrebuje.
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 931, 692 569, 0601 20 30 84
=========================================Kodovacie tabulky
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 7.5.1999 10:27:32
www.cestina(tec)cz
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Od: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
P�edm�t: Kodovacie tabulky
Caute
Chcem Vas poziadat, ci z Vas niekto nema, alebo nevie, kde by som mohol zohnat kodovacie tabulky pre kodovanie v kode KAMENICKYCH, LATIN a WINDOWS.
register a Register
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 10:29:15
> Pri registraci komponenty jsem si napsal proceduru register s
> malym r a a komponenta se nechtela zaregistrovat. Jinak se vse
> tvarilo normalne. Po zamene na Register jiz bylo vse OK. Ponekud
> podivne.
To je pravda, nam se to na kurzu taky stalo.
Vskutku podivne.
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 931, 692 569, 0601 20 30 84
=========================================SQL- UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 10:34:44
V Delphi to nelze.
Tedy presneni receno UNION v TQuery.SQL nelze.
Mozna to reknu prilis kategoricky.
Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
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 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jiri Virt <virt(zv)pepa(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: SQL- UNION
> Datum: 7. kv�tna 1999 7:39
>
> Ahoj vsem,
>
> mam dotaz ohledne SQL.Nevite jak se daji v Delphi spojit dva dotazy (pokud
> se daji)???
> Ve FoxPro to slo prikazem UNION.
>
>
> Diky za kazde popostrceni
>
> Jiri Virt
>
> email: virt(zv)pepa(tec)cz
>
> www.pepa(tec)cz
SQL- UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 10:43:03
> Odes�latel: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> SQL servery by meli toto spojeni umoznovat. Napriklad na Informixu
> prikaz UNION funguje. Ale pokud mas Paradox tak tam to nejspis
> nepujde.
SQL servery sice UNION umoznuji, ale zkus treba
create view vvv as select .... union select ....
Ktery server si s timto poradi?
Proto take nelze tento select napsat do Query.SQL.
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 931, 692 569, 0601 20 30 84
=========================================SQL dotaz
[*] delphi(zv)alf.dingo(tec)cz - 07.5.1999 08:53:03 gmt
Ahojte,
je to hruza, ale uz z toho blbnu.
Do SQL se teprve dostavam. Mam tento problem.
Nad lokalnimi tabulkami vykonavam SQL prikaz pomoci TQuery.
Problemy me dela prikaz INSERT kombinovany se SELECT.
Pr.
INSERT INTO "Tab1.dbf" (POL1, POL2)
SELECT CISL, 200 FROM "Tab2.dbf"
vsechny polozky jsou ciselne
Pri snaze vykonat ho pise Type mismatch in expresion
Pokud tam vkladam jen POL1 je to O.K.
Pokud pridam dalsi dela neplechu.
Diky moc
Bob
Kodovacie tabulky
[*] delphi(zv)alf.dingo(tec)cz - 07.5.1999 08:54:05 gmt
www.cestina(tec)cz
> <DIV><FONT size=3D2>Chcem Vas poziadat, ci z Vas niekto nema, alebo =
> nevie, kde by=20
> som mohol zohnat kodovacie tabulky pre kodovanie v kode KAMENICKYCH, =podivne ADONIS
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.5.1999 10:57:57
> -----Original Message-----
> From: honza(zv)haes(tec)cz [mailto:honza(zv)haes(tec)cz]
> Sent: Friday, May 07, 1999 10:27 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: podivne ADONIS
>
>
> > > Ano, jedna se o problem s docasnymy tabulkami (#). Problem je v
> > > tom, ze bych nerad pouzival ODBC a docasnych tabulek se z
> > > duvodu soucasneho pristupu vice uzivatelu vzdat take nemuhu.
>
> Mozna to reknu prilis kategoricky:
> Kdo ma dobre udelany datovy model, ten docasne tabulky nepotrebuje.
:-D))
To je dobrej nesmysl.
To je asi jako kdybys rekl, ze kdo ma spravne postavenej
program, nepotrebuje lokalni promenne ve funkcich.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Service
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.5.1999 11:06:21
>mozno by pomohlo vlozit tento kus kodu priamo do .dpr:
>
> while True do
> begin
> if PeekMessage(Msg,0,0,0,PM_REMOVE) then
> begin
> TranslateMessage(Msg);
> DispatchMessage(Msg);
> end
> else
> WaitMessage;
> end;
>
samozrejme, ze podobny kus kodu musi v Service existovat - ale ve funkci
pouzovane a registrovane jako hlavni funkce sluzby
Pokud bude neco podobneho mimo, pak jedine v dalsim threadu - pak to ale
bude chytat zpravy jen z oken, ktere vytvoril dany thread.
Zdravi
D. Toman
SQL- UNION
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.5.1999 11:16:33
> -----Original Message-----
> From: Jan �ebel�k [mailto:honza(zv)haes(tec)cz]
> Sent: Friday, May 07, 1999 10:35 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL- UNION
>
>
> V Delphi to nelze.
> Tedy presneni receno UNION v TQuery.SQL nelze.
>
> Mozna to reknu prilis kategoricky.
> Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
Mozna to reknu prilis kategoricky.
Kdo to ma v hlave aspon trochu v poradku, ten takoveto rady nepotrebuje.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!SQL- UNION
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 7.5.1999 11:28:34
Od: Jan �ebel�k <honza(zv)haes(tec)cz>
P�edm�t: Re: SQL- UNION
>V Delphi to nelze.
>Tedy presneni receno UNION v TQuery.SQL nelze.
>
>Mozna to reknu prilis kategoricky.
>Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
>
>Honza
Kategoricky ano, ale spravne ne. Zkus si treba nasledujici dotaz nad
obycejnymi DBF tabulkami :
select *
from 'd:\infos\odbyt\dodli.dbf'
where odber = 820555
union
select *
from 'd:\infos\archiv\dodli.dbf'
where odber = 820555
projde uplne bez problemu. A k tomu "dobre navrzenemu" datovemu modelu.
Podle tebe bych vse nacpat do jedne tabulky, ktera bude mit 9 milionu
zaznamu (skutecnost). Dobre navrzeny datovy model bych spise videl mit
tabulky 2. V jedne aktualni rok, ve druhe archivni data, do kterych se chodi
jen obcas a pak se vyuzije UNION. Podobne k tvemu prispevku o temporary
tabulkach. Zda se mi vyhodnejsi porizovany doklad pri porizovani dat do
temporary tabulky, kterou pak naraz zpracuji, nez to cpat do ostrych dat a v
pripade, ze si to na konci porizovani rozmyslim, tak to z ostrych dat mazat.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================>=========================================
>= 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 931, 692 569, 0601 20 30 84
>=========================================
>----------
>> Odes�latel: Jiri Virt <virt(zv)pepa(tec)cz>
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: SQL- UNION
>> Datum: 7. kv�tna 1999 7:39
>>
>> Ahoj vsem,
>>
>> mam dotaz ohledne SQL.Nevite jak se daji v Delphi spojit dva dotazy
(pokud
>> se daji)???
>> Ve FoxPro to slo prikazem UNION.
>>
>>
>> Diky za kazde popostrceni
>>
>> Jiri Virt
>>
>> email: virt(zv)pepa(tec)cz
>>
>> www.pepa(tec)cz
LOCAL SHARE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.5.1999 10:45:36
Puvodni zprava, kterou napsal Pavel M. dne 6 May 99,:
> Mam vyzkouseno, ze stabilita databazi (paradox) se
> podstatne zhorsi pokud jsou data na nevyhrazenem serveru.
> Doporucuji ten jeden pocitac ozelet a usetrite si spoustu problemu.
> Proc nevim, je to jenom zkusenost z praxe.
Tabulky Paradox ani dBase pod BDE rozhodne nejsou vhodne
pro nasazeni na siti. To si jiste overil nejeden z nas.
Pro site jsou urceny jine databaze - idealni jsou
SQL Servery nebo alespon Client/Server databaze (napriklad
FlashFiler).
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Winsock - pomozte prosim !!!
[*] istenp2.epr(zv)mail.cez(tec)cz - 7.5.1999 10:49:40
[P��loha v souboru: UMain.pas]
Zdravim.
Mohl by mi prosim nekdo z Vas vytrhnout trn z paty ?
Uz se treti den snazim dovest k plne funkcnosti prilozeny kod.
Jelikoz nejsem ve Winsock tak zbehly, prosim nejakeho zbehlejsiho cloveka o
radu.
Jedna se o maly proxy server zalozeny na pouhem preposilani requestu po
TCPIP primo pres Winsock API.
Stale se mi stava, ze pri pokusu o Receive ze serveru se mi vrati chyba
"Connection reset by peer".
Stava se to pouze u serveru, ktere maji rychle odezvy a na ktere posilam
par requestu soubezne.
Delam neco spatne ?
Puvodne jsem to mel napsane synchronne v Threadu, ale pri hledani zavady
jsem to prepsal castecne Asynchronne.
Co je v tomto pripade lepsi pouzit ? Asynchronni, Thread-synchronni, nebo
Thread-asynchronni prenos ?
Poradite mi prosim nekdo ? Uz jsem z toho docela zoufaly.
dik za kazde nakopnuti spravnym smerem
S pozdravem
Istenik Petr
(See attached file: UMain.pas)Instalator - zadarmo
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.5.1999 12:08:18
Jaro wrote:
> Pokud by byl zajem o tento jednoduchy instalator, mohl bych
> ho uvolnit k bezplatnemu uzivani a to vcetne zdrojovych
> souboru. Necht si ho kazdy upravi dle svych potreb.
> Zajemci mohou napsat na jaro(zv)sinea(tec)cz
> Pokud bude zajem, pridam ho na nas web k volnemu
> stazeni.
A co ho zkusit dat na Delphree, jestli se nekdo ujme jeho rozvoje?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
SQL- UNION
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 7.5.1999 12:38:33
To neni pravda. Union v Delphi funguje.
mam tabulku uzivatelu a skupin a pouzivam
na naplneni comboboxu select s unionem, abych
tam dostal uzivatele i skupiny. Samozrejme, ze
to jde nejdrive tam naplnit uzivatele a pak
pridat skupiny, ale takhle je to jednodussi.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Jan �ebel�k [mailto:honza(zv)haes(tec)cz]
Sent: Friday, May 07, 1999 10:35 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: SQL- UNION
V Delphi to nelze.
Tedy presneni receno UNION v TQuery.SQL nelze.
Mozna to reknu prilis kategoricky.
Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
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 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jiri Virt <virt(zv)pepa(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: SQL- UNION
> Datum: 7. kv�tna 1999 7:39
>
> Ahoj vsem,
>
> mam dotaz ohledne SQL.Nevite jak se daji v Delphi spojit dva dotazy
(pokud
> se daji)???
> Ve FoxPro to slo prikazem UNION.
>
>
> Diky za kazde popostrceni
>
> Jiri Virt
>
> email: virt(zv)pepa(tec)cz
>
> www.pepa(tec)cz
SQL- UNION
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 07.5.1999 11:51:49
Jan �ebel�k wrote:
>
> V Delphi to nelze.
> Tedy presneni receno UNION v TQuery.SQL nelze.
Tu by som si dovolil oponovat. Jedine, ze by som mal nejaku
inu verziu TQuery.
Pytajuci sa mal zrejme na mysli LocalSQL, usudzujuc podla
FoxPro. LocalSQL, myslim UNION nepodporuje. Inak je to
zavisle na databazovom servri.
>
> Mozna to reknu prilis kategoricky.
> Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
UNION pouzivam hlavne v zostavach, kde potrebujem
uzivatelovi posunut pripraveny datovy modul, aby si mohol
definovat zostavy podla vlastnej lubovole a nemusel nic
programovat. Takze si Vam dovolim oponovat aj v tomto.
S pozdravom
M.O.
>
> 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 931, 692 569, 0601 20 30 84
> =========================================
> ----------
> > Odes�latel: Jiri Virt <virt(zv)pepa(tec)cz>
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: SQL- UNION
> > Datum: 7. kv�tna 1999 7:39
> >
> > Ahoj vsem,
> >
> > mam dotaz ohledne SQL.Nevite jak se daji v Delphi spojit dva dotazy
> (pokud
> > se daji)???
> > Ve FoxPro to slo prikazem UNION.
> >
> >
> > Diky za kazde popostrceni
> >
> > Jiri Virt
> >
> > email: virt(zv)pepa(tec)cz
> >
> > www.pepa(tec)cz
DeleteAlias
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 7.5.1999 13:15:18
>Uz jsem to tady psal:
>Vubec nedoporucuji pouzivat aliasy, protoze na jejich nastaveni se nemuzes
spolehnout.
Ja to taky nedoporucuji:)
Aliasy ted pouzivam pro 'zverejneni' dat pro jine programy (3rd party).
Vytvari se dynamicky a uzivatel o nich nevi.
... ovsem hrozi konflikt v nazvech, takze je treba vybrat takovy nazev
ktery si nikdo nevybere...
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
>> > -----Original Message-----
>> > Nevite jak smazat/zmenit permanentni alias?
>> >
>> > DbiDeleteAlias(nil,'TestData') sice smaze alias v ramci session,
>> > ale necha ho v IDAPI.CFG.
>> >
>> > Pochopitelne nasledny pokus o vytvoreni permanentniho aliasu
>> > DbiAddAlias(nil, PChar('TestData'), nil, PChar(AliasPath), TRUE));
>> > zhavaruje na DBIERR_NAMENOTUNIQUE.
>> >
>>
>> Musis dat Session.SaveConfigFile;
>>
>> Astern
>
Jak do TDBGrid udelat multiline?
[*] Jan Linhart <delphi(zv)mis-net(tec)cz> - 7.5.1999 13:36:52
Zdar,
Pred casem jsem polozil tento dotaz, avsak odpoved se nenasla.
Probl�m m�m st�le a tak bych prosil v�s, kter� m�te nejak� hlubs� vedomosti
n�pomocn� ke "slozitejs�" ceste k c�li, abyste me alespon "nekopli"
spr�vn�m smerem :-)
Predem d�ky za konstruktivn� n�vrhy
.........s pozdravem
......................Honza
> Nev�te pros�m nekdo jak nejjednoduseji prij�ti k DBGridu, kter� bude umet
> multiline?
>
> Kupr�kladu vertik�ln�ho scrollu me zbavil jeden r�dek :
> SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
> //D�ky Ti Petre Vonesi
>
> Pokud neexistuje takhle jednoduch� cesta tak samozrejme budu muset j�t
> slozitejs� cestou,
> proto DIKY za jakoukoliv radu
>
> ...........s pozdravem
> ........................Honza
SQL- UNION
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 7.5.1999 13:53:18
-----P�vodn� zpr�va-----
Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 7. kv�tna 1999 12:27
P�edm�t: RE: SQL- UNION
> -----Original Message-----
> From: Jan �ebel�k [mailto:honza(zv)haes(tec)cz]
> Sent: Friday, May 07, 1999 10:35 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL- UNION
>
>
> V Delphi to nelze.
> Tedy presneni receno UNION v TQuery.SQL nelze.
>
> Mozna to reknu prilis kategoricky.
> Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
Mozna to reknu prilis kategoricky.
Kdo to ma v hlave aspon trochu v poradku, ten takoveto rady nepotrebuje.
Tak to maximalne ten, kdo si uz vytvori DB a datovy model sam.Ne pro
toho,kdo
to prevezme a ma z toho neco kloudneho udelat.
Jirka Virt
email: virt(zv)pepa(tec)cz
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!SQL- UNION
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 7.5.1999 13:57:24
-----P�vodn� zpr�va-----
Od: Jan Fiala <fiala(zv)infos(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. kv�tna 1999 12:24
P�edm�t: Re: SQL- UNION
Od: Jan �ebel�k <honza(zv)haes(tec)cz>
P�edm�t: Re: SQL- UNION
>V Delphi to nelze.
>Tedy presneni receno UNION v TQuery.SQL nelze.
>
>Mozna to reknu prilis kategoricky.
>Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
>
>Honza
Kategoricky ano, ale spravne ne. Zkus si treba nasledujici dotaz nad
obycejnymi DBF tabulkami :
select *
from 'd:\infos\odbyt\dodli.dbf'
where odber = 820555
union
select *
from 'd:\infos\archiv\dodli.dbf'
where odber = 820555
projde uplne bez problemu. A k tomu "dobre navrzenemu" datovemu modelu.
Podle tebe bych vse nacpat do jedne tabulky, ktera bude mit 9 milionu
zaznamu (skutecnost). Dobre navrzeny datovy model bych spise videl mit
tabulky 2. V jedne aktualni rok, ve druhe archivni data, do kterych se chodi
jen obcas a pak se vyuzije UNION. Podobne k tvemu prispevku o temporary
tabulkach. Zda se mi vyhodnejsi porizovany doklad pri porizovani dat do
temporary tabulky, kterou pak naraz zpracuji, nez to cpat do ostrych dat a v
pripade, ze si to na konci porizovani rozmyslim, tak to z ostrych dat mazat.
Presne tak.Slozitejsi "selekty"(vice tabulek) je lepsi si pripravit do
odkladacich tabulek
a pak doupravit.Z vlastni zkusenosti vim, ze tri jednouche "selekty"
probehnou drive nez to same v jednom vrhu.
Jirka Virt
email: virt(zv)pepa(tec)cz
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================>=========================================
>= 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 931, 692 569, 0601 20 30 84
>=========================================
>----------
>> Odes�latel: Jiri Virt <virt(zv)pepa(tec)cz>
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: SQL- UNION
>> Datum: 7. kv�tna 1999 7:39
>>
>> Ahoj vsem,
>>
>> mam dotaz ohledne SQL.Nevite jak se daji v Delphi spojit dva dotazy
(pokud
>> se daji)???
>> Ve FoxPro to slo prikazem UNION.
>>
>>
>> Diky za kazde popostrceni
>>
>> Jiri Virt
>>
>> email: virt(zv)pepa(tec)cz
>>
>> www.pepa(tec)cz
podivne ADONIS
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 13:57:10
> > Mozna to reknu prilis kategoricky:
> > Kdo ma dobre udelany datovy model, ten docasne tabulky nepotrebuje.
>
> To je dobrej nesmysl.
> To je asi jako kdybys rekl, ze kdo ma spravne postavenej
> program, nepotrebuje lokalni promenne ve funkcich.
>
> Jura
Tento argument me nepresvedcil.
Programovani procedur a funkci je neco jineho nez prace s relacni databazi.
Pokud se to navrhne opravdu relacne...
Jak zapises docasnou tabulku do ER-Diagramu?
Jakou Entitu takova tabulka reprezentuje?
Uznavam, ze je to receno az prilis kategoricky, ale "v zasade" to pravda je.
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 931, 692 569, 0601 20 30 84
=========================================