Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Jak je to s prodejem orig. Delphi z druhe ruky
[*] L. ZITA <konference(zv)sales(tec)cz> - 4.10.2000 02:49:38
Behalf Of Da�a Petr
> Zdravim,
> posilam pro zajimavost odpoved na me dotazy ohledne prodeje/koupe Delphi z
> druhe ruky. Dejte si pozor, at nedopadnete jako ja (vyhodil jsem zbytecne
> 2200,- Kc) :-( V podstate mam D3Std nelegalne, takze uz abych zacal setrit
> na D5.
> (Odpoved je z Inprise(tec)cz)
>
> Petr
>
>
> >Zdravim,
> >uvazujete spravne. Nemuzete prodat neco, co legalne nevlastnite.
> >
> >Od Borland CZ si muzete koupit Delphi 5 Standard za
> >4.850,- Kc
> >
> >Licence na stare Standardy normalne neprodavame,
> >ale muzeme vam ji dodat za stejnou cenu 4.850,- Kc (coz
> >je pro vas jiste nevyhodne)
> >
> >Pokud budete priste kupovat software, musite si
> >dat vetsi pozor, pokud ten, kdo vam jej prodava je
> >skutecne autor, pripadne ma svoleni autora k prodeji.
>
Velmi zajimave na tom je na tom tohle :
Kdyz jsem s Delphi zacinal (a rozhodaval se pro nej) prodejce (APRO) mi
radil
abych koupil D4std a pripadne uprgradnul na Prof. Pak ovsem zarazili upgrade
z std na Prof a tak jsem se docela nastval.
Na muj dotaz, co mam delat mi odpovedeli "No tak prodejte tu D4std a kupte
si D5prof".
Takze po precteni tohodle mejlu se citim jak peknej podvodnik, protoze jak
rekli, tak jsem udelal...
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
mesta CR
[*] L. ZITA <konference(zv)sales(tec)cz> - 4.10.2000 02:49:34
Behalf Of sw maurice
> Omlouvam se za OT,
> ale nutne schanim seznam ceskych mest /ne vesnic, nejaky rozumny/
> v nejakem prectenischopnem formatu, idelani by bylo, kdyby byly
> mesta i rozdelena podle kraju a kdyby u kazde mesta byly uvedeny
> souradnice /neni podminkou/, tak mate u me pivo :-)
>
> Diky za odpovedi, preji prijemny den
Na http://www.cpost(tec)cz v sekci online najdes ke stazeni seznam PSC a dalsi.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Komponent pro malov�n� do BMP
[*] Petr Jel�nek <pjmodos(zv)yo(tec)cz> - 4.10.2000 03:13:33
A co treba JanDrawImage - ke stazeni na DSP, nebo snad i tady:
http://members.xoom.com/JanVee/freeware.htm?
V helpu je toto:
TjanDrawImage is a TImage descendant. It comes with mating components and a
full featured demo painting application. Features: 100+ painting styles
including art brushes, integrated 50+ Effects viewer like Rotate, Plasma
etc.; TjanPaintFX with 100+ bitmap transformations; TjanColorList and
TjanColorGrid with 100+ colors and color name hints; TjanScrollBar with
integrated position label. Create a painting program with minimal coding. My
millennium gift for the Delphi users community.
Je to pro Delphi 5, free i se zdrojema.
Zdravi
Petr Jelinek - amatersky programator
Homepage: http://pjmodos.fbi(tec)cz, http://pjmodos.yo(tec)cz
Komponenty pro Delphi: http://lunasoft.hyperlink(tec)cz/index5.htm
Vyhledavani: http://www.barevnylist(tec)cz/visitor.php?ref=pjmodos
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, October 02, 2000 1:59 PM
Subject: OT: Komponent pro malov�n� do BMP
> Ahoj,
>
> nemate, prosim, nekdo komponent pro prime malovani do bitmapy? Videl jsem
> takovy kdysi pro D1 (bylo to male a free jen nevim jak se to jmenovalo),
> malovalo se specialnimi metodami (line, circle, polyline, trace aj.,v
> modech blur, sharpen, smugle, +volba barev) do BMP (bitmapa sla natahnout
i
> jako podklad) a bylo mozne po kazdem kroku vyvolat metodu napr pro
> nakresleni do panelu a videt tak prubeh kresleni. Puvodne to bylo pouzito
> jako 2D malovatko pro grafy a jednoducha schemata ale s OPAKOVANYM
> prekreslenim. Bohuzel, nevim, jak se to jmenovalo, ale ted bych to moc
> potreboval. Nevite, prosim nekdo kde to najdu, nebo pokud to nekdo mate,
> mohli byste mi to poskytnout???? Prosim na muj e-mail.
> Diky
> Jaro B.Kuriozita cili spekovka
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.10.2000 06:54:39
Cyklus FOR, ve kterem nepouzijes "i" vypada po optimalizaci trochu jinak nez
cyklus, ve kterem je to "i" pouzito. I kyz by to asi nemel byt zdroj techto
problemu.
Jan Fiala
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>> Ahoj,
>
> mel bych tu jednu zajimavost/podivnost.
>
> Toto pocitalo nesmysly:
> for i := 1 to n do
> begin
> Sr.P := L1.GetBod (Poz + Krok); { spocte bod na usecce }
> Sr.K := ...
> ...
> Sr.P := L1.GetBod (Poz + 2 * Krok);
> Sr.K := ...
> ...
> end;
>
> A po teto uprave to slape jako hodinky:
> for i := 1 to n do
> begin
> Sr.P := L1.GetBod (Poz + i div i * Krok);
> Sr.K := ...
> ...
> Sr.P := L1.GetBod (Poz + 2 * i div i * Krok);
> Sr.K := ...
> ...
> end;
>
> Rozumite tomu nekdo?
> Ze by zacinalo platit: 1*X je nekdy rovno X ???
>
> Mirek
> mirnov(zv)atlas(tec)cz
>
>
>zapisovani a cteni formatu Excel
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 4.10.2000 07:07:33
Ta hlaska o mozne ztrate dat je spatna. Nevim jak to chces otvirat, ale
pokud to delas ze sveho programu,
tak potlaceni hlaseni o ulozeni zmen je snadne staci to zavrit
ExcelApplication1.ActiveWorkbook.Saved[0]:=true;
a je po legraci. Pokud to ovsem chces otvirat excelem tak to nevim.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of David
Lebeda
Sent: Tuesday, October 03, 2000 2:26 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: zapisovani a cteni formatu Excel
> To ze se te pta Excel jestli mas ulozit zmeny i kdyz jsi nic nezmenil
> delaji prave ty vzorce. Oni se totiz pokazde prepocitaji a tak si
> excel nahodi zmenu.
To jo, vzorce za to zjevne muzou... ale uvedene chovani presto
povazuji za chybu nebo aspon nezadouci. Kdyz si totiz nejaky
soubor se vzorci zalozim primo v Excelu, tak se me uz priste
nepta, jestli to chci ulozit.
Kdyz jsem se po techto komponentach shanel, slo mi o to,
udelat nejaky cenik s moznosti exportu do Excelu. Zakaznikum by
se ale urcite nelibilo, kdyby pri kazdem spusteni Excel vyhodil
hlasku o mozne ztrate nekterych formatu a na konci se ptal, zda
chteji ukoncit zmeny.
David
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> David Lebeda Sent: Tuesday, October 03, 2000 9:41 AM To:
> delphi-l(zv)fwd(tec)cz Subject: RE: zapisovani a cteni formatu Excel
>
>
> > Ak nechces pouzivat OLE na excel skus pozriet
> >
> > http://www.axolot.com/components/xlsreadwrite.htm
> >
> > je to fakt dobre, mam to ofic. kupene a funguju SKVELE
> >
> > Vela uspechov
> > PT
>
> Ahoj,
>
> ja jsem zkousel demo a mel jsem problemy, ktere jsem popisoval
> nekdy v druhe polovine srpna:
>
> 1) Ve formatu Excel97 mi to ignorovalo nastaveny charset, takze
> diakritika byla poskozena.
>
> 2) Temito komponentami vytvoreny soubor jsem otevrel v Excelu,
> beze zmeny zavrel, a presto se me to ptalo vzdy, zda chci ulozit
> zmeny (vzdy, kdyz soubor obsahoval vzorce). Vsemozna nastaveni
> properties toto neodstranila.
>
> 3) Pri otevreni souboru Excelu vzdy vznikla hlaska Nektere ciselne
> formaty mohou byt ztraceny (soubor se ale jinak zdal v poradku).
>
> Parkrat jsme si poslali mail s autory, ale pak prestali reagovat, aniz
> by se cokoli vyresilo.
>
> Nesetkal ses s necim podobnym? Muzes mi prosim poslat nejaky
> soubor, vytvoreny temito komponentami, abych ho mohl zkusit
> otevrit u sebe? (lebeda(zv)comarr(tec)cz)
>
> Diky.
>
> David
>
Kuriozita cili spekovka
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 4.10.2000 07:18:12
Je to dost podezrele jen napis co je zac Poz a Krok a co zere GetBod.
Vubec posli radsi celou strukturu a definici objektu.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Miroslav Novosad
Sent: Tuesday, October 03, 2000 8:29 PM
To: Delphi forum
Subject: Kuriozita cili spekovka
Ahoj,
mel bych tu jednu zajimavost/podivnost.
Toto pocitalo nesmysly:
for i := 1 to n do
begin
Sr.P := L1.GetBod (Poz + Krok); { spocte bod na usecce }
Sr.K := ...
...
Sr.P := L1.GetBod (Poz + 2 * Krok);
Sr.K := ...
...
end;
A po teto uprave to slape jako hodinky:
for i := 1 to n do
begin
Sr.P := L1.GetBod (Poz + i div i * Krok);
Sr.K := ...
...
Sr.P := L1.GetBod (Poz + 2 * i div i * Krok);
Sr.K := ...
...
end;
Rozumite tomu nekdo?
Ze by zacinalo platit: 1*X je nekdy rovno X ???
Mirek
mirnov(zv)atlas(tec)cz
Kuriozita cili spekovka
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.10.2000 07:37:23
> mel bych tu jednu zajimavost/podivnost.
>
> Toto pocitalo nesmysly:
> for i := 1 to n do
> begin
> Sr.P := L1.GetBod (Poz + Krok); { spocte bod na usecce }
> Sr.K := ...
> ...
> Sr.P := L1.GetBod (Poz + 2 * Krok);
> Sr.K := ...
> ...
> end;
>
> A po teto uprave to slape jako hodinky:
> for i := 1 to n do
> begin
> Sr.P := L1.GetBod (Poz + i div i * Krok);
> Sr.K := ...
> ...
> Sr.P := L1.GetBod (Poz + 2 * i div i * Krok);
> Sr.K := ...
> ...
> end;
>
> Rozumite tomu nekdo?
> Ze by zacinalo platit: 1*X je nekdy rovno X ???
Mozna by se podarilo najit pricinu, kdybys napsal, jakeho typu
jsou jednotlive promenne a co konkretne znamena, ze to pocita
nesmysly.
David
Spojenie cez Internet na DCOM server.
[*] Miroslav Hro��o�����,�(�j�Z��3 - 4.10.2000 07:43:10
Nazdar,
Potreboval by som poradit.
Vyvyjam program pomocou technologie COM/DCOM a potreboval by som vediet ako je najlepsie sa pripojit na DCOM server zo vzdialeneho pocitaca, ktory je pripojeny na internet (priamo, alebo cez modem). DCOM server sa moze nachadzat aj za Firewallom a Proxy Serverom.
Zaujimalo by ma najme to, ci je lepsie sa pripojovat na DCOM server priamo cez DCOM, alebo vyuzit na to ini sposob ako je napr. : SOCET, HTTP, FTP, ... .
Poradte mi prosim Vas ake vyhody a nevyhody su spojene s danymi typmi spojenia cez Internet.
Miroslav Hrosso.
E-maily v D5
[*] Miroslav Dran��k <DMiroslav(zv)seznam(tec)cz> - 04.10.2000 07:46:12
Ahoj, zkousel jsem posilat mail pres nmsmtp. doma mi to funguje, ale v praci nejsem schopen odeslat jediny mail (po fabricky siti - LAN).
Nevite nekdo, co delam blbe???
diky
Mirek Drancak
Transakcni log 2
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.10.2000 08:36:07
Ahoj,
zkousim jeste jednou...opravdu nikdo nevite o nejake moznosti, jak
prohlednout transakcni log na MSSQL7 serveru? Nebo nejakou
jinou cestu, jak se podivat do historie cinnosti.
To je prece vec, ktera by mela byt pomerne potrebna a prislo
by mi jako zvlastni, ze to nejde.
Nebo to opravdu nejde?
David
IB 6 a heslo s mezerami
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 4.10.2000 08:45:09
Pri zmene heslae pro uzivatele SYSDBA z masterkey na vlastni se mi podarilo
zadat 3 mezery. Po teto akci skoncila zmena chybovou hlaskou a heslo nebylo
ani masterkey ani 3 mezery => prihlaseni pod timto uzivatelem jiz nebylo
mozne. Takto se mi to chova vicemene pro jakehokoliv uzivatele, pokud heslo
obsahuje nejakou mezeru. Mam nejakou divnou verzi IB, nebo je to normalni ?
Ondrej Malecek
koupim
[*] Cermak(zv)pds.olc.cdrail(tec)cz - 4.10.2000 08:51:44
koupim "Delphi Desktop 2.0 UPG from Delphi Desktop 1.0 C" samozrejme s
licenci.
dekuji. Pepa.pristup k objektu pres Handle
[*] nosoblat(zv)email(tec)cz - 4.10.2000 08:59:09
Cau,
jiste ze to bylo pass. Byly tam ****, ale to normalne funguje, ale tady to
neslo a vratilo to prazdny text.
--- puvodni text od delphi-l(zv)fwd(tec)cz:
> From: <nosoblat(zv)email(tec)cz>
> > existuje prosim nejaky postup jak pristoupit k objektu pres jeho handle.
> Jedna
> > se mi konkretne o objekt TEdit z jineho okna. Kdyz se pokusim cist jeho
> text
> > pres API funkci funguje to, ale narazil jsem na jeden Edit, na ktery
to
> nefungovalo
> > a nevratilo mi to nic. Program od Borlandu na sledovani oken WS32 (nevim
>
> Ahoj,
>
> a nebyl ten edit v password rezimu ?
>
> Petr Vones, amatersky programator
>
>
---
Bonus Email - cesta k v�d�lku
http://bonus.email(tec)cz
OLE Excel zoufale pomaly?
[*] Karel Kral <kral(zv)purus(tec)cz> - 04.10.2000 08:59:56
Velmi ti dekuji za napad, vkladani dat po celych radcich to neuveritelne
urychlilo.
Vkladat cela data najednou nemuzu, je toho moc.
Jeste chci pripomenou mnohem pohodlnejsi vypocet rozsahu, na ktery jsem
prisel nahodou ve VBA helpu:
misto:
CellsRange:= XlSheet.Range['A1:AZ1'];
tohle je mnohem pohodlnejsi, nemusis se zabyvat vypoctem jmena sloupce
treba 'AZ1':
with XLSheet do
CellsRange:= Range[Cells.Item[1, 10], Cells.Item[1, 50]];
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
E-maily v D5
[*] Karel Kral <kral(zv)purus(tec)cz> - 04.10.2000 09:02:37
Mam podobne zkusenosti s NetMasters. Opakovane lze pouze doporucit
zahodit Netmasters a pouzit WinShoes
http://www.pbe.com/downloads/winshoes/winshoes7037.exe. Jestli chces,
poslu ti priklady.
Miroslav Dran��k wrote:
>
> Ahoj, zkousel jsem posilat mail pres nmsmtp. doma mi to funguje, ale v praci nejsem schopen odeslat jediny mail (po fabricky siti - LAN).
> Nevite nekdo, co delam blbe???
> diky
>
> Mirek Drancak
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
IB6 a licence
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.10.2000 09:19:36
Ahoj,
mozna to tu uz bylo vysvetleno, ale nedokazal jsem to najit. Mame
stazenou IB6.01. Pri pokusu o instalaci byly problemy s licencnim
souborem. Podle navodu v archivu jsem stahl novy licencni soubor,
platny do 31.8.2001.
Proc jsou ale stale potreba nejake casove omezene licencni
soubory? A kdy se da cekat jejich zruseni?
David
tabulka v pam�ti
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 4.10.2000 09:20:22
A nebyl by lepsi udelat na to nejaky objekt?
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Milan ��ek
Sent: Tuesday, October 03, 2000 2:51 PM
To: Delphi konference
Subject: tabulka v pam�ti
ahoj,
potrebuju sehnat nasledujici (pokud mozno komponentu - nevisual):
chtel bych vytvorit tabulku v pameti, bez potreby mit nainstalovane BDE a
jine drivery. Sehnal jsem kbmMemTable, ale pro me potreby je az zbytecne
slozita, a je tam tolik fci, ze se v tom skoro vubec nevyznam...
jediny co potrebuju, aby ta komponenta umela je:
- vytvorit tabulku (dle definovanych sloupcu)
- zapsat do ni nejake radky
- setridit, podle nekolika sloupcu soucasne...
- z tabulky precist...
Tot vse. Nemate nekdo neco podobneho ve sve sbirce?
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
RxRichEdit
[*] Petr J�nsk� - 4.10.2000 09:40:20
W98, D5P, rxlib 2.75,
Mam problem s rxRichEditem.
Mam dokument RTF a chci ho zobrazit a vytisknout pomoci rxrichedit
1) Nezobrazi se mi ramecky tabulek(pouze text v tabulkach), obrazky ano.
Nejsou rozliseny stranky.
2) printdialog ma disablovan tisk stranek od do a vse se vytiskne za sebou a
bez ramecku tabulek
Poradi nekdo?
Diky PJ
IB 6 a heslo s mezerami
[*] pcb(zv)atlas(tec)cz - 4.10.2000 09:52:12
Haj hou!
On 4 Oct 2000,, Ond ej Male ek wrote:
> Pri zmene heslae pro uzivatele SYSDBA z masterkey na vlastni se mi podarilo
> zadat 3 mezery. Po teto akci skoncila zmena chybovou hlaskou a heslo nebylo
> ani masterkey ani 3 mezery => prihlaseni pod timto uzivatelem jiz nebylo
> mozne. Takto se mi to chova vicemene pro jakehokoliv uzivatele, pokud heslo
> obsahuje nejakou mezeru. Mam nejakou divnou verzi IB, nebo je to normalni ?
Obavam se, ze je to normalni.
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.mesta CR
[*] Tom� Vlad�k������V��?���o�� - 4.10.2000 10:00:01
Na adrese www.mpsv(tec)cz tez najdete pravidelni aktualizovana data registru
UIR-ADR.> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> sw maurice
> Sent: ��dn�
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: mesta CR
>
>
> Omlouvam se za OT,
> ale nutne schanim seznam ceskych mest /ne vesnic, nejaky rozumny/
> v nejakem prectenischopnem formatu, idelani by bylo, kdyby byly
> mesta i rozdelena podle kraju a kdyby u kazde mesta byly uvedeny
> souradnice /neni podminkou/, tak mate u me pivo :-)
>
> Diky za odpovedi, preji prijemny den
>
> Roman
>
V�tejte na instala�n�m CD Registru �zemn� identifikace UIR-ADR Ministerstva pr�ce a soci�ln�ch v�c�!
Nainstalov�n�m registru z�sk�te celost�tn� ��seln�ky:
- okres�,
- obc�,
- pra�sk�ch obvod�,
- m�stsk�ch ��st�/m�stsk�ch obvod�,
- ��st� obce,
- ulic a ve�ejn�ch prostranstv�,
- stavebn�ch objekt�,
- adresn�ch m�st,
- dod�vac�ch po�t.
CD obsahuje celorepublikov� data registru UIR-ADR ve 4 datab�zov�ch form�tech:
- dBase III Plus s memo souborem (DBF soubory ve form�tu �. 131),
- FoxPro s memo souborem (DBF soubory ve form�tu �. 245),
- Oracle (DMP soubor ve form�tu Oracle 7.3)
- MS SQL Server (datab�zov� soubory ve form�tu MS SQL Server 7.0).
Pro demonstra�n� ��ely obsahuje nav�c i data jen z okres� D���n, Praha a Opava.
CD obsahuje i programy pro prohl�en� nainstalovan�ch dat v�etn� periodick� aktualizace t�chto dat zm�nov�mi soubory. Zm�nov� soubory jsou generov�ny 1x t�dn� a lze si je stahovat z Web serveru Ministerstva pr�ce a soci�ln�ch v�c� z adresy www.mpsv(tec)cz.
Prohl�ec� programy jsou dod�v�ny pro data ve form�tech FoxPro, MS SQL Server a Oracle. Pro data ve form�tu dBase prohl�ec� program dod�v�n nen�.
Na adrese www.mpsv(tec)cz t� najdete pravideln� aktualizovan� data registru UIR-ADR, kter� si m��ete pomoc� zabudovan�ho prohl�e�e prohl�dnout. Datab�zi registru UIR-ADR kv�li velk�mu objemu dat z WEB serveru st�hnout nelze, lze ji v�ak obdr�et ve form� tohoto CD na MPSV u ing. Eli�kov�, tel. 02/2192 2661, e-mail eliaskovao(zv)mpsv(tec)cz. CD UIR-ADR je poskytov�no zdarma.
Stav dat na CD:
-------------
Struktura: 3.0
Aktu�ln� verze: 180
Posledn� aktualizace: 16.3.2000
Zm�ny v datech evidov�ny od verze: 126
Po�adovan� prost�ed�:
---------------------
PC 486/Pentium,
RAM 32-64 MB,
Disk 500 MB a� 1000 MB podle form�tu dat (pro demo data jen 50 MB),
OS MS Windows 95/98/2000/NT4.0 SP4 (pro form�ty dBase a FoxPro sta�� MS DOS 3.1).
Pro instalaci dat ve form�tu Oracle mus�te vlastnit RDBMS Oracle 7.3 nebo vy���.
Pro data ve form�tu MS SQL Server pot�ebujete vlastn� RDBMS jen v p��pad�, chcete-li je instalovat na MS SQL Server 7.0 nebo vy���. V opa�n�m p��pad� pro n� m��ete pou��t runtime MSDE (Microsoft Data Engine) verze 1.0 dod�van� tomto CD.
Pro data ve form�tu FoxPro je datab�zov� runtime sou��st� prohl�ec�ho programu.
Pro data ve form�tu dBase datab�zov� runtime dod�v�n nen�.
Licen�n� podm�nky a odpov�dnost za �kody:
----------------------------------------
Data registru UIR-ADR z tohoto CD lze bez omezen� ���it d�le, nikoliv v�ak za �platu.
Programov� vybaven� z tohoto CD nelze ���it a sm� se pou��vat jen pro pr�ci s registrem UIR-ADR.
Ministerstvo pr�ce a soci�ln�ch v�c� neru�� za �kody a ztr�ty zp�soben� pou�it�m programov�ho vybaven� z tohoto CD.
N�vod k instalaci:
-----------------
Z�kladn� instalace:
prov�d� se pomoc� programov�ho pr�vodce instalac�, kter� se spou�t� automaticky p�i vlo�en� CD do mechaniky.
P�i z�kladn� instalaci se nainstaluj�:
- data ve form�tu FoxPro (voliteln� celorepublikov� data nebo jen demo data),
- prohl�ec� program s u�ivatelskou p��ru�kou,
- dokument s podrobn�m popisem dat.
Obecn� instalace:
pro data v ostatn�ch form�tech nebo pro nestandardn� instalaci dat ve form�tu FoxPro je pot�eba instalaci prov�st ru�n�. P�epn�te se do ko�enov�ho adres��e na tomto CD a pokra�ujte podle pokyn� uveden�ch v souboru INSTALL.TXT v tomto adres��i.
Kontaktn� adresy:
----------------
S dotazy ohledn� provozu UIR-ADR, s upozorn�n�m na p��padn� chyby v adres�ch a s podn�ty na zlep�en� registru se obracejte na spr�vce datab�ze na MPSV ing. Eli�kovou, tel. 02/2192 2661, e-mail eliaskovao(zv)mpsv(tec)cz.
S dotazy na dod�van� programov� vybaven� pro UIR-ADR se obracejte na pracovn�ky firmy OKsystem ing. Ku�eru nebo ing. Zindulku, tel. 02/66712643, e-mail kucera(zv)oksystem(tec)cz nebo zindulka(zv)oksystem(tec)cz.
Aktu�ln� informace o projektu UIR-ADR m��ete naj�t tak� na internetov�ch str�nk�ch firmy OKsystem - www.oksystem(tec)cz.
OLE Excel zoufale pomaly?
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 4.10.2000 10:10:13
Musim priznat, ze celou debatu na toto tema jsem nesledoval, ale ja osobne
na
toto pouzivam ADOExpress. Protoze to potrebuji i na pocitacich,
kde neni Excel. Nejspis mi to poradil nekdo z teto konference spolu se
strankou:
http://community.borland.com/article/1,1410,20066,00.html
kde se o tom pise. Nemeril jsem to, ale prislo mi to o dost rychlejsi nez
pres OLE. Clovek ale musi mit ADOExpress.
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Karel Kral
> > Sent: Tuesday, October 03, 2000 6:34 PM
> > To: Konference Delphi
> > Subject: OLE Excel zoufale pomaly?
> >
> >
> > Dobry den,
> > zajimaly by mne vase zkusenosti s rychlosti exportu dat pomoci OLE do
> > Excelu.
> >
> > Mam tabulku o 30 sloupcich a 200 radcich, kterou exportuji. Exportuji po
> > radcich, rychlost je asi 6 radku za vterinu, coz se mi pro vetsi objemy
> > dat zda dost zoufale (Celeron 400, 128MB).
> >
Delka retezce
[*] rommet(zv)post(tec)cz - 4.10.2000 10:18:58
Ahoj delphici,
potreboval bych u komponenty DBGrid udelat vec jaka je v excelu (prizpusobit sirku sloupce podle dat v polich).
Jednoduseji receno zjistit maximalni delku retezce v poli, prevest na pixely a je to.. no a ja potrebuji ten prevod na pixely.
Nebo zna nekdo lepsi zpusob diky
PS: nasledne bych to pak vyuzil pri tisku
Diky
Kde najdete hospodu podle piva?
*** http://NAJDI.TO
Kuriozita cili spekovka
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.10.2000 10:28:12
Zkus poslat vice kodu, chyba bude v necem jinem.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Miroslav Novosad [mailto:mirnov(zv)atlas(tec)cz]
Sent: Tuesday, October 03, 2000 8:29 PM
To: Delphi forum
Subject: Kuriozita cili spekovka
Ahoj,
mel bych tu jednu zajimavost/podivnost.
Toto pocitalo nesmysly:
for i := 1 to n do
begin
Sr.P := L1.GetBod (Poz + Krok); { spocte bod na usecce }
Sr.K := ...
...
Sr.P := L1.GetBod (Poz + 2 * Krok);
Sr.K := ...
...
end;
A po teto uprave to slape jako hodinky:
for i := 1 to n do
begin
Sr.P := L1.GetBod (Poz + i div i * Krok);
Sr.K := ...
...
Sr.P := L1.GetBod (Poz + 2 * i div i * Krok);
Sr.K := ...
...
end;
Rozumite tomu nekdo?
Ze by zacinalo platit: 1*X je nekdy rovno X ???
Mirek
mirnov(zv)atlas(tec)cz
OT: DBF do Acces-prosim poradte
[*] Martin <geoplan(zv)pp.sinet.sk> - 4.10.2000 10:29:50
potrebujem dosta� data z dbf Foxky do databazy Acces. Najradsej by som ich iba prepojil. Mam ale problem s diaktritikou.
V accese ma blbe znaky. Ako by sa to dalo vyriesit ?
prosim poradte
ListBox a barva vyselektene polozky
[*] Lauko Stefan <lauko(zv)salamon.sk> - 4.10.2000 10:59:03
Ahoj,
takto to funguje...
Lauko.
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
LB: TListBox;
begin
LB := (Control as TListBox);
if odSelected in state then
begin
if odFocused in state then
LB.Canvas.Brush.Color := clYellow//clActiveCaption
else
LB.Canvas.Brush.Color := clGreen;//clInActiveCaption;
end
else
LB.Canvas.Brush.Color := clRed;
LB.Canvas.TextOut (Rect.Left, Rect.Top, LB.Items[Index]);
LB.Canvas.FillRect (Rect);
LB.Canvas.Font.Color := clBlack;
LB.Canvas.TextOut (Rect.Left, Rect.Top, LB.Items[Index]);
LB.Canvas.Brush.Color := clRed;
end;
----- Original Message -----
Od: Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 3. okt�ber 2000 15:24
Predmet: ListBox a barva vyselektene polozky
> Ahoj
> Mam vcelku trivialni problem (Delphi 4):
> Klasicky TListBox a v nem je vybrana nejaka polozka, je tedy
> podbarvena tmave modrou barvou (zalezi na nastaveni). To je OK,
> co se mi ale nelibi je, ze kdyz se stane aktivni jina komponenta,
> tak to podbarveni je stale stejne (a clovek na prvni pohled nevidi,
> ktera komponenta ma Focus). Porteboval bych, aby to zesedlo,
> jako je tomu u TTreeView. Zadnou rozumnou vlastnost jsem
> nenasel a pri pokusu o vlastni prekreslovani nasledujicim
> zpusobem:
> Style = lbOwnerDrawFixed
>
> procedure TfrmNotesList.lbxNotesDrawItem(Control: TWinControl;
> Index: Integer; Rect: TRect; State: TOwnerDrawState);
> var
> LB: TListBox;
> begin
> LB := (Control as TListBox);
>
> // Vykresleni
> LB.Canvas.Brush.Color := clRed;//clWindow;
> if (Index = LB.ItemIndex) then begin
> if (LB.Focused) then
> LB.Canvas.Brush.Color := clYellow//clActiveCaption
> else
> LB.Canvas.Brush.Color := clGreen;//clInActiveCaption;
> end;
>
> LB.Canvas.FillRect (Rect);
> LB.Canvas.Font.Color := clBlack;
> LB.Canvas.TextOut (Rect.Left, Rect.Top, LB.Items[Index]);
>
> Se to poradne neprekresluje, nebot pokud jsem na prvni polozce a
> prejdu na druhou, treti a podobne, tak ta prvni porad zustane zluta
> misto toho, aby zcervenala. Nekde tam chybi neco jako Invalidate,
> ale to se prece nemuze dat do metody na vykreslovani!
> Predem diky za nakoupnuti spravnym smerem.
>
> Petr
>
>
> [-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
> [-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]
>memTable v RxLib
[*] Milan ��ek - 4.10.2000 11:09:57
ahoj,
potreboval bych vedet, jak pridavat radky do teto tabulky (komponenta
RxMemoryData), a jak tridit treba podle 2sloupcu soucasne. Sloupce mam jiz
vytvorene...
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Zase 16 a 32-bit
[*] Tibor Galik <TGalik(zv)vsz.sk> - 04.10.2000 10:11:22
Ahoj,
prednedavnom som otvoril debatu o volani 16-bit f-cii v 32-bit aplikacii. Vdaka Petrovi Vonesovi a jeho odkazu to funguje bezproblemov. Ale vyvstal iny problem.
Ide o 16-bitovu DLL kniznicu na komunikaciu PC <-> PSION 3 SERIES. Tieto f-cie vsak vracaju Windows messages (tiez 16-bitove). Da sa odchytit tieto message v 32-bit okne ? Alebo je mozne pomocou prepinacov v D4 skompilovat toto okno ako 16-bitovu aplikaciu a potom ju volat s 32-bitovej aplikacii ?
vdaka za radu alebo napad ako to riesit
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
Chybova hlaseni ADO
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.10.2000 11:35:32
On 3 Oct 2000, at 15:05, CERMAK wrote:
> Resim nasledujici problem. V programu pouzivam komponenty ADO Expres
> (D5). V udalosti OnWillConnect komponenty ADOConnection provadim
> nastaveni jmena a hesla pro prihlaseni k databazi (Vlastnost
> LoginPrompt je nastavena na False). Na strane databaze je MS SQL 7.0.
> Nekdy se stane, ze se mi nepodari prihlasit k databazi. Duvody mohou
> byt ruzne: spatne zadane heslo, chyba v souboru .UDL, apod. Chtel
> bych, alespon v nekterych pripadech ohlasit uzivateli srozumitelnou
> hlasku v cestine a ne anglickou, generovanou serverem, resp. OLE-DB
> providerem. Nevite nekdo o seznamu chybovych hlaseni, pro OLE-DB,
> resp. pro provider k MS SQL serveru. Byl bych vdecny i za priklad
> pouziti.
Seznam najdes napriklad v OLE DB komponentach na Delphree.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DBF do Acces-prosim poradte
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 4.10.2000 11:55:19
Mohlo by to byt tim ze v hlavicce DBF neni zapsana kodova stranka nebo je tam
spatna.
Necha se to udelat tak ze v DBF vynulujes 29. byte, tim zrusis priznak CP a
pokud tu DBF pak
otevres ve foxce (tusim 3.0 a vyssi) tak ti vyskoci dialog ze tabulka neni
oznacena kodovou strankou
a nabidne ti seznam CP ze ktereho si vyberes tu spravnou....>----- P�vodn� zpr�va -----
>Od: Martin
>
>
>potrebujem dosta� data z dbf Foxky do databazy Acces. Najradsej by som ich iba
prepojil. Mam ale problem s diaktritikou.
>V accese ma blbe znaky. Ako by sa to dalo vyriesit ?
>prosim poradte
Umisteni Souboru SERVICES
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 4.10.2000 12:03:39
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Nevi nekdo prosim jak zjistit umisteni souboru SERVICES nezavisle na verzi Win (precist nekde v registrech, nejakou funkci...).
dekuji
Pavel Bares
IB6 a licence
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 4.10.2000 12:04:46
> mozna to tu uz bylo vysvetleno, ale nedokazal jsem to najit. Mame
> stazenou IB6.01. Pri pokusu o instalaci byly problemy s licencnim
> souborem. Podle navodu v archivu jsem stahl novy licencni soubor,
> platny do 31.8.2001.
> Proc jsou ale stale potreba nejake casove omezene licencni
> soubory? A kdy se da cekat jejich zruseni?
Patrne je neco jinak, protoze verze IB6.0 SS pro Linux, kterou pouzivame uz
zadne licencni soubory nepozaduje (IB byla uvolnena jako Open Source).
Licencni soubor, ktery prodlouzi platnost IB byl potreba pouze pro beta
verzi.
Zdravi Frantisek Sevcik
IB 6 a heslo s mezerami
[*] Ondrej Malecek <ondrej.malecek(zv)radom-cz(tec)cz> - 4.10.2000 12:06:23
No, v IB 5.x se to chova mravne, je tedy pro verzi 6 nutno pozadovat po
uzivatelich, aby jejich hesla neobsahovala mezery, nebo se s tim da delat
neco jineho ?
Ondrej Malecek
----- Original Message -----
From: <pcb(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, October 04, 2000 9:52 AM
Subject: Re: IB 6 a heslo s mezerami
> Haj hou!
>
> On 4 Oct 2000,, Ond ej Male ek wrote:
>
> > Pri zmene heslae pro uzivatele SYSDBA z masterkey na vlastni se mi
podarilo
> > zadat 3 mezery. Po teto akci skoncila zmena chybovou hlaskou a heslo
nebylo
> > ani masterkey ani 3 mezery => prihlaseni pod timto uzivatelem jiz nebylo
> > mozne. Takto se mi to chova vicemene pro jakehokoliv uzivatele, pokud
heslo
> > obsahuje nejakou mezeru. Mam nejakou divnou verzi IB, nebo je to
normalni ?
>
> Obavam se, ze je to normalni.
>
> Hodne zdaru
>
>
> Pavel Cisar <pcisar(zv)inprise(tec)cz>
> Borland s.r.o.
>
>
pristup k objektu pres Handle
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.10.2000 12:47:16
Jenze napriklad MS Excel a Word pouzivaji trochu jine technologie, ktera
nedovoli text jednoduse odhalit, pokud to tedy byl tento pripad.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: nosoblat(zv)email(tec)cz [mailto:nosoblat(zv)email(tec)cz]
Sent: Wednesday, October 04, 2000 8:59 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: pristup k objektu pres Handle
Cau,
jiste ze to bylo pass. Byly tam ****, ale to normalne funguje, ale tady to
neslo a vratilo to prazdny text.
--- puvodni text od delphi-l(zv)fwd(tec)cz:
> From: <nosoblat(zv)email(tec)cz>
> > existuje prosim nejaky postup jak pristoupit k objektu pres jeho handle.
> Jedna
> > se mi konkretne o objekt TEdit z jineho okna. Kdyz se pokusim cist jeho
> text
> > pres API funkci funguje to, ale narazil jsem na jeden Edit, na ktery
to
> nefungovalo
> > a nevratilo mi to nic. Program od Borlandu na sledovani oken WS32
(nevim
>
> Ahoj,
>
> a nebyl ten edit v password rezimu ?
>
> Petr Vones, amatersky programator
>
>
---
Bonus Email - cesta k v�d�lku
http://bonus.email(tec)cz
QReport
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ct 2000 12:28:44
Zdravim obec programatoru,
hned dotaz. Mam problem se sestavami.
Snazim se vytvorit sestavu seznamu osob v jednotlivich usecich a chtel bych mi
t po vypisu osob v jednom oddeleni mezisoucet a na konci celkovou sumu, ale ne
jdou mi sumy ani mezisoucty. Nevim co s tim. Mam to napojene na Store Procedur
e "SPOsoba", nejak takhle:
(TQRBand) ColumnHeaderBand1.BandType = rbColumnHeader v nem QRLabel
(TQRBand) QRBand2.BandType = rbDetail v nem QRDBText
(TQRBand) QRBand3.BandType = rbSummary v nem QRExpr1.Expression = SUM(SPOsoba
.(expression)_5)
(TQRBand) QRBand4.BandType = rbGroupFooter v nem QRExpr1.Expression = SUM(SPO
soba.(expression)_5)
Cele to je samozrejmne na TQuickRep
Poradte prosim, jinak to snad skopnu ze stolu. :-( Diky
M&B
DragDrop pro TreeView
[*] Kuzelka Filip <kuzelka(zv)access-it(tec)cz> - 04.10.2000 07:31:32 -0400
diky, taky jsem to tam objevil, uz to maka ...
-fk
>>> svatos(zv)kam(tec)czu(tec)cz 28.9.2000 8:31:22 >>>
Mrkni se na metodu GetNodeAt(X, Y).
Keep mailing :-)
=======================
Hynek Svatos
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Kuzelka Filip
> Sent: Thursday, September 28, 2000 4:23 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: DragDrop pro TreeView
>
>
> Zdravim,
> nemate nekdo zkusenosti s Drag and Dropem napr. nad TreeView ?
> Jde mi o zjisteni Node, nebo alespon neceho lepsiho, nez souradnic
> mista, kam se to pusti ...
>
> dekuji za napady,
>
> Filip Kuzelka
>
> IB 6 a heslo s mezerami
[*] pcb(zv)atlas(tec)cz - 4.10.2000 14:15:52
Haj hou!
On 4 Oct 2000,, Ondrej Malecek wrote:
> No, v IB 5.x se to chova mravne, je tedy pro verzi 6 nutno pozadovat po
> uzivatelich, aby jejich hesla neobsahovala mezery, nebo se s tim da delat
> neco jineho ?
Vzhledem k momentalni situaci je lepe nepouzivat hesla s
mezerami.
S pozdravem
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.IB6 a licence
[*] pcb(zv)atlas(tec)cz - 4.10.2000 14:15:52
Haj hou!
On 4 Oct 2000,, David Lebeda wrote:
> mozna to tu uz bylo vysvetleno, ale nedokazal jsem to najit. Mame
> stazenou IB6.01. Pri pokusu o instalaci byly problemy s licencnim
> souborem. Podle navodu v archivu jsem stahl novy licencni soubor,
> platny do 31.8.2001.
> Proc jsou ale stale potreba nejake casove omezene licencni
> soubory? A kdy se da cekat jejich zruseni?
IB 6 nepotrebuje licence (kod byl odstranen). Nicmene tohle je uz
druhy pripad, kdy to tomhle problemu slysim, takze na tom asi
neco bude (nicmene 99.99% lidi tento problem nema). Sazel bych
na nedokonalou odinstalaci IB 6 nebo starsi (standardne se tusim
licence pri odinstalaci nemazou).
S pozdravem
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.OT: Editovani barevneho profilu ICC (*.ICM soubory
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 4.10.2000 15:14:34
Zdravim vsechny,
nevi nekdo jak editovat barevne profily pro Windows (monitory, tiskarny,...)
? Existuje na to nejaky program, nebo knihovny (pouziteln� pro Delphi),
popisy (na Internetu), ... ?
Dekuji predem
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Quickreport
[*] tungli(zv)datapac.sk - 4.10.2000 15:15:22
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.
To by malo ist bez problemu. Treba Bandy spravne napojit. QuickRep1.dataset:=Query1;
Bandy:
Detail
Subdetail (Master=detail, Dataset:=Query2) s GroupFooter - (ParentBand:=Subdetail)
Summary
Tungli
----- Original Message -----
From: Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz <mailto:M.Babik(zv)mus(tec)cz>>
To: <delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz>>
Sent: Wednesday, October 04, 2000 1:28 PM
Subject: QReport
> Zdravim obec programatoru,
> hned dotaz. Mam problem se sestavami.
> Snazim se vytvorit sestavu seznamu osob v jednotlivich usecich a chtel
bych mi
> t po vypisu osob v jednom oddeleni mezisoucet a na konci celkovou sumu,
ale ne
> jdou mi sumy ani mezisoucty. Nevim co s tim. Mam to napojene na Store
Procedur
> e "SPOsoba", nejak takhle:
> (TQRBand) ColumnHeaderBand1.BandType = rbColumnHeader v nem
QRLabel
> (TQRBand) QRBand2.BandType = rbDetail v nem QRDBText
> (TQRBand) QRBand3.BandType = rbSummary v nem QRExpr1.Expression =
SUM(SPOsoba
> .(expression) 5)
> (TQRBand) QRBand4.BandType = rbGroupFooter v nem QRExpr1.Expression =
SUM(SPO
> soba.(expression) 5)
> Cele to je samozrejmne na TQuickRep
>
> Poradte prosim, jinak to snad skopnu ze stolu. :-( Diky
>
>
> M&B
Delka retezce
[*] Tomas Hula <hula(zv)spszl(tec)cz> - 4.10.2000 15:17:38
Myslim, ze pro zjisteni "graficke" delky textu by se dal pouzit nasledujici kod:
...
Form1.Canvas.Font := ... (zde priradite font pouzity v bunce)
Delka := Form1.Canvas.TextWidth( zde_bude_text_v_bunce );
...
Do promenne Delka by se mela ulozit graficka delka zadaneho retezce.
Tomas Hula
At 10:18 4.10.2000 +0200, you wrote:
>Ahoj delphici,
>
>potreboval bych u komponenty DBGrid udelat vec jaka je v excelu
(prizpusobit sirku sloupce podle dat v polich).
>Jednoduseji receno zjistit maximalni delku retezce v poli, prevest na
pixely a je to.. no a ja potrebuji ten prevod na pixely.
>
>Nebo zna nekdo lepsi zpusob diky
>
>PS: nasledne bych to pak vyuzil pri tisku
>
>Diky
--------------------------------------------------------------
Tomas Hula, email: hula(zv)spszl(tec)cz, homepage: www.spszl(tec)cz\~hula
Problem s menu v MDI Aplikaci
[*] Alftech Delphi Forum <DelphiForum(zv)Dssoft(tec)cz> - 4.10.2000 15:17:25
Delphi 5 build 5.62 po service packu
********************************************************************************************************
Formular1 - Hlavni okno typu MDIForm
---------------------------------------------------------------------------------------------------------------------------------
hlavni okno MDIForm ma menu s polozkami A B, (A ma groupindex 0, B ma grouindex 2) kazde z nich ma nekolik podpolozek, B slouzi jako WindowMenu.
Formular2 - Hlavni okno typu MDIChild
---------------------------------------------------------------------------------------------------------------------------------
V MDIChild okne je menu s Polozkou C (C ma group index 1) a nekolik podpolozek
MDIChild vytvarim dynamicky v nekolika instancich
---------------------------------------------------------------------------------------------------------------------------------
Narazil jsem na nasledujici problemy
---------------------------------------------------------------------------------------------------------------------------------
1. Ve v�ech syst�mech
Seznam MDIChild Oken v menu B se ukaze az po akcich
a.) podivat se do menu B
b.) udelat novou instanci okna
c.) podivat se znova do menu B
2.) ve WinNT/2000
Pri vytvoreni dalsiho MDIChild okna zasedne tlacitko formulare X ale funguje, to by jeste slo
3.) ve Win95/98
Nenakresli se ikona vlevo a tri tlacitka MDIChild formulare vpravo na urovni menu MDIFormu (klik na ikonu ani tlacitka nefunguje) coz zapricini prekerslovani menu po najezdu mysi, pokud zavolam kaskadu potom takto vytvorene formulare nemaji ve zmensene podobe ikonu ani tlacitka :O.
Odstranenim menu ve formulari MDIChild problem zmizi :)))
Sample program ktery ukazuje chyby plus zdrojak je ke stazeni na www.volny(tec)cz/ales.p/mdibug.zip
memTable v RxLib
[*] Milan ��ek - 4.10.2000 15:18:48
dobry,
pro prirazeni hodnot pouzivam .value (snad jeto spravny postup) trizeni
vypada taky dobre. Jeste jena vec: jak zase z te tabulky precist jednotlive
polozky radku?
Docela by bodnul nejakej hepl, ale v RXLib sem nic takoveho nenasel...
fakt diky...
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
IB6 a licence
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.10.2000 15:28:08
> > mozna to tu uz bylo vysvetleno, ale nedokazal jsem to najit. Mame
> > stazenou IB6.01. Pri pokusu o instalaci byly problemy s licencnim
> > souborem. Podle navodu v archivu jsem stahl novy licencni soubor,
> > platny do 31.8.2001. Proc jsou ale stale potreba nejake casove
> > omezene licencni soubory? A kdy se da cekat jejich zruseni?
>
> IB 6 nepotrebuje licence (kod byl odstranen). Nicmene tohle je uz
> druhy pripad, kdy to tomhle problemu slysim, takze na tom asi neco
> bude (nicmene 99.99% lidi tento problem nema). Sazel bych na
> nedokonalou odinstalaci IB 6 nebo starsi (standardne se tusim licence
> pri odinstalaci nemazou).
>
No jo, ale... On to dela kolega a vec se ma takto. Po zjisteni
licencnich problemu stahl z internetu novou verzi Interbase 6.01.
Problem nezmizel. Preinstaloval tedy Linux. A problem presto
nezmizel. Pozustatky z predchozi verze jsou tedy vylouceny.
Kde by mohla byt jeste chyba?
David
Trideni CH v Interbase
[*] Karel B�ich��� - 4.10.2000 15:37:04
> Ahoj,
>
> Dva dotaz k Interbase (cili lehce off-topic):
> z vlastnich testu i prispevku v archivu jsem overil, ze IB 6 netridi
> korektne cesky, presneji ze nezatridi CH mezi H a I.
> Je to dost problem pri nasazeni v IS, jak to resite vy?
Ahoj,
Taky mne to dost stvalo, tak jsem se to pokusil napravit. Kdo ma zajem, muze
posoudit nakolik se mi to povedlo -
http://web.redbox(tec)cz/brichna/ib_trid_ch.html . Pod Windows mi to zatim
funguje. Pro Linux jsem to zatim nekompiloval.
Zdravim
Brichna
memTable v RxLib
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 4.10.2000 13:37:41 met-1
> potreboval bych vedet, jak pridavat radky do teto tabulky (komponenta
> RxMemoryData), a jak tridit treba podle 2sloupcu soucasne. Sloupce mam jiz
> vytvorene...
Ke trideni je metoda komponenty TRxMemoryData
procedure SortOnFields(Const FieldNames: String; CaseInsensitive:
Boolean = True; Descending: Boolean = False);
pricemz nekolik polozek (sloupcu) ve FieldNames se oddeluje
strednikem, napr. kdyz mas treba sloupce FPrijm, FJmeno a FNaroz a
chces setridit vypis treba podle narozeni, prijmeni a jmena, pak:
RxMemoryData1.SortOnFields('FNaroz;FPrijm;FJmeno',true,false);
Kdyz chces pridavat data do tabulky, zavolas RxMemoryData1.Append, pak
naplnis jednotlive polozky a nakonec zavolas RxMemoryData1.Post
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://aix.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+COM, DCOM, ActiveX
[*] Pavl� Radek <Radek.Pavlu(zv)merlin(tec)cz> - 4.10.2000 15:50:03
Ahoj,
zajimam se o COM, DCOM, ActiveX v Delphi. Muzete mi nekdo poradit, kde se
nechaji najit zakladni informace nebo priklady?
diky, Radek Pavlu
Registry a soubory
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 4.10.2000 15:52:41
Kdyz pouzivam registry, tak se mi samovolne na disku vytvareji skryte soubory se jmeny pouzitych klicu. Jak to zaridit, aby se toto nedelo?
MIKMIK company
Petr Voborn�k - P�tr
vobornik(zv)ssakhk(tec)cz
ICQ: #23132120
www.ssakhk(tec)cz/home/vobornik/memTable v RxLib
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 4.10.2000 15:53:56
Ahoj,
help mam, je toho asi 1 mega, muzu poslat.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: Re: memTable v RxLib
>
>
> dobry,
> pro prirazeni hodnot pouzivam .value (snad jeto spravny
> postup) trizeni
> vypada taky dobre. Jeste jena vec: jak zase z te tabulky
> precist jednotlive
> polozky radku?
> Docela by bodnul nejakej hepl, ale v RXLib sem nic takoveho nenasel...
>
> fakt diky...
Zvuk po zaloze
[*] MUDr. Miloslav Neu�il <drneuzil(zv)razdva(tec)cz> - 4.10.2000 16:31:51
Hezky den
potrebuju programove zalohovat na disketu a na konci zvuk signal. Ten signal
by ale mel jit az po zhasnuti kontrolky u diskety. Tento kod da signal hned
a protoze jsou soubory velke, trva dost dlouho, nez je disketa opravdu
nahrana. Nevite nekdo, jestli to jde? Dekuji Neuzil
function velikost(const Cesta: string): Integer;
var i: Integer;
Rect: TSearchRec;
begin
i := FindFirst(Cesta, FAAnyFile, Rect);
Result := Rect.Size;
FindClose(i);
end;
procedure zaloha (Zdroj, Cil: string);
var
i: Integer;
f, f1: File;
bufer: Array [0..1023] of byte;
begin
AssignFile (f, Zdroj);
AssignFile(f1, Cil);
Reset (f, 1);
Rewrite (f1, 1);
while Eof(f)= False do begin
BlockRead (f, bufer, SizeOf(bufer), i);
BlockWrite (f1, bufer, i);
end;
CloseFile (f);
CloseFile (f1);
end;
procedure TForm1.BitBtnClick(Sender: TObject);
var
I : Integer;
SearchRec : TSearchRec;
Size: Longint;
begin
Size := 0;
PocetKb := 0;
Size := Size + velikost('Cesta');
zaloha ('Cesta);
ZVUKOVY SIGNAL;
end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Zavreni blob stream
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 04.10.2000 11:11:05 -0400
Cau,
Mam problem s blobem mam cyklus ve kterem se plni tabulka daty. pokazde kdyz jede cyklus devaty zaznam tak me serve ze mam otevreno moc blobu. Nevite nekdo co stim ?
SKarta a SMnozstvi Je TBlobStream.
With TJ Do
Begin
First;
While not Eof Do
Begin
{Plneni receptury}
TReceptury.Append;
TReceptury.FieldByName('Nazev').AsString:= FieldByName('Nazev_jidl').AsString;
TReceptury.Post;
TReceptury.Edit;
{Tady zarve pri devatym zaznamu}
SKarta:= TBlobStream.Create(TReceptury.FieldByName('Karta') as TBlobField, bmReadWrite);
SMnozstvi:= TBlobStream.Create(TReceptury.FieldByName('Mnozstvi') as TBlobField, bmReadWrite);
QNJ.Close;
QNJ.SQL.Clear;
QNJ.SQL.Add('SELECT * FROM NJ');
QNJ.SQL.Add('WHERE C_Jidla = ' + QuotedStr(FieldByName('C_Jidla').AsString));
QNJ.Open;
QNJ.First;
While not QNJ.Eof Do
Begin
PoziceZ:= AnsiPos('-', QNJ.FieldByName('C_Suroviny').AsString);
QS.Close;
QS.SQL.Clear;
QS.SQL.Add('SELECT * FROM S');
QS.SQL.Add('WHERE (Cis_druhu = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, 1, PoziceZ -1)) +
') And (Cis_mat = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, poziceZ + 1, Length(QNJ.FieldByName('C_Suroviny').AsString))) + ')');
QS.Open;
{Pokus o lokalizaci skladove karty}
IF TSklad.Locate('Nazev', QS.FieldByName('Nazev_Mat').AsString, [loCaseInsensitive])
Then Retezec:= PChar(TSklad.FieldByName('Nazev_Mat').AsString)
Else Retezec:= PChar(QS.FieldByName('Nazev_Mat').AsString);
SKarta.Seek(0,2);
SKarta.Write(Retezec^, StrLen(Retezec));
Retezec:= PChar(QNJ.FieldByName('Mnozstvi').AsString);
SMnozstvi.Seek(0,2);
SMnozstvi.Write(Retezec^, StrLen(Retezec));
QNJ.Next;
End;
TReceptury.Post;
SKarta.Free;
SMnozstvi.Free;
{Naplneno}
Next;
End;
End;Omluva
[*] MUDr.Neu�il <drneuzil(zv)razdva(tec)cz> - 4.10.2000 18:30:24
Omlouvam se vsem, vzdycky zapomenu vypnout zadost o precteni, jinde ji nutne
potrebuji. Dam si pozor
MUDr. Miloslav Neuzil
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Trideni CH v Interbase
[*] Delphi <delphi(zv)aitix(tec)cz> - 4.10.2000 18:44:35
> > korektne cesky, presneji ze nezatridi CH mezi H a I.
> > Je to dost problem pri nasazeni v IS, jak to resite vy?
> http://web.redbox(tec)cz/brichna/ib_trid_ch.html . Pod Windows mi to zatim
> funguje. Pro Linux jsem to zatim nekompiloval.
Perfektni. Funguje!
Uprava pro Linux by dala hodne prace?
Diky, diky, diky.
Leos
IB6 a licence
[*] Delphi <delphi(zv)aitix(tec)cz> - 4.10.2000 19:11:18
> > mozna to tu uz bylo vysvetleno, ale nedokazal jsem to najit. Mame
> > stazenou IB6.01. Pri pokusu o instalaci byly problemy s licencnim
> > souborem. Podle navodu v archivu jsem stahl novy licencni soubor,
> > platny do 31.8.2001.
> > Proc jsou ale stale potreba nejake casove omezene licencni
> > soubory? A kdy se da cekat jejich zruseni?
Hmm. A nezapomneli tam ten soubor? Kdyz ho prejmenujete, nabehne to?
Leos
OMEZENI 256 barev
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.10.2000 19:20:34
> Jsem pred velkou praci - mam vytvorit v D4 standart prezentacni program pro
firmu, obsahujici video (tanimate), fotky a obrazky. Vse by bylo v pohode az na
jeden pozadavek - program musi take podporovat 256 barevne rezimy!
> Muze mi nekdo poskytnout nejake zasady, ktere musim dodrzovat, aby se program
dal provozovat i v 256 barvach? Zkousel jsem to, a vysledek, kdyz na formulari
byla fotka, video a texty byl vice nez strasnej. Co doporucujete? Musi se nejak
specialne upravovat paleta obrazku?
Muzes upravovat pocet barev za behu programu /pokud obrazky vyuzivaji vsech 256
barev, musi mit logicky stejnou paletu/, nebo si veskerou grafiku pripravis uz
predem. Ja pouzival druhou moznost, pro uzivatelske rozhrani byly bitmapy v DLL
knihovne, na zacatku aplikace se zjistilo jak vypada aktualni nastaveni a dle
toho se vybrala ta spravna, zbyvajici kod byl stejny... V pripade, ze mas hodne
fotek a nemas misto, bude muset ditherovat za chodu, mas-li hodne mista a
nechces beh programu zdrzovat, uprav ty fotky /dve verze: 24bit x 8bit/ uz na
zacatku. Ce se videa tyce, tak nevim jak u TAnimate, ale s TMediaPlayer jsem
nemel v 256 barvach zadne problemy.
Roman
Editovani barevneho profilu ICC (*.ICM soubory)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.10.2000 20:15:50
Adobe Gamma, instaluje se to bud s Adobe PageMaker nebo s Adope Photoshop /jedno
z toho, nevim presne/.
Jinak o ICM 2.0 se samozrejme mluvi v MS SDK.
Roman
> Zdravim vsechny,
> nevi nekdo jak editovat barevne profily pro Windows (monitory, tiskarny,...)
> ? Existuje na to nejaky program, nebo knihovny (pouziteln� pro Delphi),
> popisy (na Internetu), ... ?
Delka retezce
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.10.2000 20:21:54
> Ahoj delphici,
>
> potreboval bych u komponenty DBGrid udelat vec jaka je v excelu (prizpusobit
sirku sloupce podle dat v polich).
> Jednoduseji receno zjistit maximalni delku retezce v poli, prevest na pixely a
je to.. no a ja potrebuji ten prevod na pixely.
>
> Nebo zna nekdo lepsi zpusob diky
MujDBGrid.Columns[CisloSloupecku].Width:=MujDBGrid.Canvas.TextWidth(NejdelsiCoSe
mNasel);
Roman
Komponent pro malov�n� do BMP
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 4.10.2000 20:39:11
Ahoj,
obavam se, ze jak na DSP, tak ani tady to jiz stahnout nelze.
Muzes to poslat na soukromy mail ?
Jarek Uher
From: Petr Jel�nek <pjmodos(zv)yo(tec)cz>
> A co treba JanDrawImage - ke stazeni na DSP, nebo snad i tady:
> http://members.xoom.com/JanVee/freeware.htm?
>
> V helpu je toto:
>
> TjanDrawImage is a TImage descendant. It comes with mating components
> and a full featured demo painting application. Features: 100+ painting
> styles including art brushes, integrated 50+ Effects viewer like
> Rotate, Plasma etc.; TjanPaintFX with 100+ bitmap transformations;
> TjanColorList and TjanColorGrid with 100+ colors and color name hints;
> TjanScrollBar with integrated position label. Create a painting
> program with minimal coding. My millennium gift for the Delphi users
> community.
>
> Je to pro Delphi 5, free i se zdrojema.
>
> Zdravi
> Petr Jelinek - amatersky programator
> Homepage: http://pjmodos.fbi(tec)cz, http://pjmodos.yo(tec)cz
> Komponenty pro Delphi: http://lunasoft.hyperlink(tec)cz/index5.htm
> Vyhledavani: http://www.barevnylist(tec)cz/visitor.php?ref=pjmodos
> ----- Original Message -----
> From: Bene Jaroslav <JBenes(zv)cpoj(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, October 02, 2000 1:59 PM
> Subject: OT: Komponent pro malov�n� do BMP
>
>
> > Ahoj,
> >
> > nemate, prosim, nekdo komponent pro prime malovani do bitmapy? Videl
> > jsem takovy kdysi pro D1 (bylo to male a free jen nevim jak se to
> > jmenovalo), malovalo se specialnimi metodami (line, circle,
> > polyline, trace aj.,v modech blur, sharpen, smugle, +volba barev) do
> > BMP (bitmapa sla natahnout
> i
> > jako podklad) a bylo mozne po kazdem kroku vyvolat metodu napr pro
> > nakresleni do panelu a videt tak prubeh kresleni. Puvodne to bylo
> > pouzito jako 2D malovatko pro grafy a jednoducha schemata ale s
> > OPAKOVANYM prekreslenim. Bohuzel, nevim, jak se to jmenovalo, ale
> > ted bych to moc potreboval. Nevite, prosim nekdo kde to najdu, nebo
> > pokud to nekdo mate, mohli byste mi to poskytnout???? Prosim na muj
> > e-mail. Diky Jaro B.
>
>
>
Delka retezce
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 4.10.2000 20:46:26
Ahoj,
podivej se ExDBGrid
http://www.gjl-software.co.uk
ten ma, co potrebujes, navic umi zobrazit memo, boolean, picture aj.
Neni free, ale US$10 for non-commercial use i se zdroji snad neni
az tolik.
Jarek Uher
To: delphi-l(zv)fwd(tec)cz
> potreboval bych u komponenty DBGrid udelat vec jaka je v excelu
> (prizpusobit sirku sloupce podle dat v polich). Jednoduseji receno
> zjistit maximalni delku retezce v poli, prevest na pixely a je to.. no
> a ja potrebuji ten prevod na pixely.
>
> Nebo zna nekdo lepsi zpusob diky
>
> PS: nasledne bych to pak vyuzil pri tisku
>
> Diky
>
> Kde najdete hospodu podle piva?
> *** http://NAJDI.TO
>
>
>
DBF do Acces-prosim poradte
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.10.2000 20:50:18
V Access2000 to delam takhle /ve VB/:
DoCmd.TransferDatabase acImport, "dBase III", Slozka, acTable, DBFile,
"Importovana"
misto acImport muzes dat acLink, jenze to neresi problemy s cestinou, ty moje
dbf jsou z dos aplikace a tam je cestina tusim Latin2, do windows se to prevede
samozrejme spatne, takze mi nezbyva nez to "precestinovat" :-(
Jo a jestli tam mas Blob, tak se musi prejmenovat ten prislusny file na disku.
Roman
>zdravim,
>
>Data z foxky jsem dostal do Accessu tak, ze jsem si nejdriv vybuildoval ODBC
Alias pak se pripojil v Delphi5 >pres ADOConnection z ADOExpress pres "OLEDB for
ODBC Drivers" a nacpal data (po vyberu urcitych >sloupcu) do Accessu pres jiny
ADOConnection s "Jet4 for OLEDB" a cestina tusim sla.
>
>M.Jirman
>
>P.S: Jestli si to dal jinak tak napis jak?>potrebujem dosta� data z dbf Foxky do databazy Acces. Najradsej by som ich iba
prepojil. Mam ale problem s >diaktritikou.
>V accese ma blbe znaky. Ako by sa to dalo vyriesit ?
>prosim poradte
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Lud�k P�ral - 4.10.2000 20:57:26
Velmi zajimavou informaci jsem dnes dostal v SRN. TENTO POSTUP INPRISE.CZ JE
V SRN PROTIZAKONNY . Pokud si koupim auto, tak mi vyrobce nebude preci
prikazovat, jestli ho mohu nekam prodat. Navic jej i mohu legalne zapujcit.
Velmi se tam divili nasim manyrum.
Stejne jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
matersine). Panove z INPRISE, jen tak dal.
Ludek Paral
----- P�vodn� zpr�va -----
Od: "L. ZITA" <konference(zv)sales(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 4. ��jna 2000 2:49
P�edm�t: RE: Jak je to s prodejem orig. Delphi z druhe ruky
Behalf Of Da�a Petr
> Zdravim,
> posilam pro zajimavost odpoved na me dotazy ohledne prodeje/koupe Delphi z
> druhe ruky. Dejte si pozor, at nedopadnete jako ja (vyhodil jsem zbytecne
> 2200,- Kc) :-( V podstate mam D3Std nelegalne, takze uz abych zacal setrit
> na D5.
> (Odpoved je z Inprise(tec)cz)
>
> Petr
>
>
> >Zdravim,
> >uvazujete spravne. Nemuzete prodat neco, co legalne nevlastnite.
> >
> >Od Borland CZ si muzete koupit Delphi 5 Standard za
> >4.850,- Kc
> >
> >Licence na stare Standardy normalne neprodavame,
> >ale muzeme vam ji dodat za stejnou cenu 4.850,- Kc (coz
> >je pro vas jiste nevyhodne)
> >
> >Pokud budete priste kupovat software, musite si
> >dat vetsi pozor, pokud ten, kdo vam jej prodava je
> >skutecne autor, pripadne ma svoleni autora k prodeji.
>
Velmi zajimave na tom je na tom tohle :
Kdyz jsem s Delphi zacinal (a rozhodaval se pro nej) prodejce (APRO) mi
radil
abych koupil D4std a pripadne uprgradnul na Prof. Pak ovsem zarazili upgrade
z std na Prof a tak jsem se docela nastval.
Na muj dotaz, co mam delat mi odpovedeli "No tak prodejte tu D4std a kupte
si D5prof".
Takze po precteni tohodle mejlu se citim jak peknej podvodnik, protoze jak
rekli, tak jsem udelal...
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Tisk Wordovskych dokumentu
[*] Lud�k P�ral - 4.10.2000 21:00:19
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj Delphisti,
umim tisknout dokumenty na PC, kde je nainstalovany Office (pres OLE). Ale kdyz neni, neznate jinou moznost tisku a zobrazeni? Napr. co oficialni freeware prohlizec od MS ?
Ludek Paral
Sadova 2
352 01 As
ludek.paral(zv)telecom(tec)cz
RSD - Russian System Developments
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 4.10.2000 21:07:15
Neviete niekto nahodou adresu ich sajtu? www.rsd.pp.ru nefunguje. Diky za
pomoc
E-maily v D5 - Pro Karla Krale
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 4.10.2000 21:16:14
Ahoj Karle, jestli muzes poslat nejae priklady, budu ti vdecny.
predem diky
Mirek Drancak, mailto:dmiroslav(zv)seznam(tec)cz
> Mam podobne zkusenosti s NetMasters. Opakovane lze pouze doporucit
> zahodit Netmasters a pouzit WinShoes. Jestli chces,
> poslu ti priklady.
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
RSD - Russian System Developments
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 4.10.2000 23:06:17
Jelikoz si nyni zapisuju Rusky jazyk, mrk jsem se (pripominam, ze rusky neumim ani cist :-)
Dospel jsem k:
- nekolik odkazu jde na tu stranku, co si zminil, ta je ale mimo
- www.rsdsoftware.com/ - to je ale premerovane na nejake www.webhideout.com
- narazil jsem az na www.rsd.ru (kompletne v mne neznamem jazyce :-))
Snad ti neco pomuze (hledal jsem napr. pomoci altavista.ru),
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Peter Laurinc" <Peter.Laurinc(zv)ibaware.sk>
Subject: RSD - Russian System Developments
> Neviete niekto nahodou adresu ich sajtu? www.rsd.pp.ru nefunguje. Diky za
> pomoc
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Delphi <delphi(zv)aitix(tec)cz> - 4.10.2000 23:46:27
> Velmi zajimavou informaci jsem dnes dostal v SRN. TENTO POSTUP INPRISE.CZ
JE
> V SRN PROTIZAKONNY . Pokud si koupim auto, tak mi vyrobce nebude preci
> prikazovat, jestli ho mohu nekam prodat. Navic jej i mohu legalne
zapujcit.
> Velmi se tam divili nasim manyrum.
Auto neni software. Software se ridi autorskym zakonem a licenci.
Microsoft sice umoznuje predat produkt dal, ale ma zcela jasne stanoveno v
EULA za jakych okolnosti.
> Stejne jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
> nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
> matersine). Panove z INPRISE, jen tak dal.
Nemecko ma 80 milionu obyvatel, prostou umerou tedy Borland DE proda 8x vice
Delphi.
A to nepocitam Rakousko a dalsi zeme kde se mluvi nemecky a kde se
lokalizace vyuzije.
Z vlastni zkusenosti mohu rici ze znam podstatne horsi zastoupeni v Cesku
nez je cesky Inprise.
Mimochodem tato diskuze (dovoz Delphi z distribucnich kanalu v USA) tady
byla pred rokem
a samozrejme nevyresila nic.
Leos
Trideni CH v Interbase
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 5.10.2000 00:18:46
Ahoj.
S tym CH sa mi to lubi, ale mna viac ako CH trapi to ze zoradene podla
PXW_CSY ASC je
�belov�
Abovce
A�ala
Andice
�a�ov
Da�ov Lom
Daletice
Vobec to nie je spr�vne a ani syst�m v tom nie je, makcenove alebo dlznove
hadze ako chce.
Co ty na to ?
Dakujem
Roland.
PS: Sorry za diaktritiku, ale musel som
-*-*-*-*-*-*-*-*--*-*-*
----- Original Message -----
From: "Delphi" <delphi(zv)aitix(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, October 04, 2000 6:44 PM
Subject: Re: Trideni CH v Interbase
> > > korektne cesky, presneji ze nezatridi CH mezi H a I.
> > > Je to dost problem pri nasazeni v IS, jak to resite vy?
>
> > http://web.redbox(tec)cz/brichna/ib_trid_ch.html . Pod Windows mi to zatim
> > funguje. Pro Linux jsem to zatim nekompiloval.
>
> Perfektni. Funguje!
> Uprava pro Linux by dala hodne prace?
>
> Diky, diky, diky.
> Leos
>
>Tisk Wordovskych dokumentu
[*] L. ZITA <konference(zv)sales(tec)cz> - 5.10.2000 01:25:47
Behalf Of Lud�k P�ral
>Ahoj Delphisti,
>
>umim tisknout dokumenty na PC, kde je nainstalovany Office (pres OLE).
>Ale kdyz neni, neznate jinou moznost tisku a zobrazeni? Napr. co
>oficialni freeware prohlizec od MS ?
Ahoj.
Nemam to vyzkousene ale vytisknout dokument by melo jit
normalne spusteni WordViewu s nejakym parametrem pres prikazovou radku.
Zkus treba WinExec('...\wordview.exe ...\soubor.doc /p',sw_shownormal)
Pripadne zavolej dokument pres shellexecute s parametrem print.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Ukonceni aplikace
[*] ivomir <Ivomir(zv)seznam(tec)cz> - 5.10.2000 07:18:48
Nevim cim to je, ale ZADNA APLIKACE co jsem naprogramoval v delphi kdyz
zustane spustena a chci restartovat ci vypnout pocitac tak mi to nedovoli, proste se
neresetuje jak kdyby se nic nedelo. To vse pod 95,98,2000.
NEVIIIIIIIIM
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Zjisteni systemu
[*] ivomir <Ivomir(zv)seznam(tec)cz> - 5.10.2000 07:18:23
Existuje nejaka funkce, ktera by mi rekla jakou verzi windows mam bez toho, abych
to musel zjistovat z registru? Staci mi podminka jestlize je tento system win98 nebo
win2000.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Delka retezce
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.10.2000 07:42:20
Roman dne 4 Oct 2000, v 20:21:
> > Ahoj delphici,
> >
> > potreboval bych u komponenty DBGrid udelat vec jaka je v excelu
> > (prizpusobit
> sirku sloupce podle dat v polich).
> > Jednoduseji receno zjistit maximalni delku retezce v poli, prevest
> > na pixely a
> je to.. no a ja potrebuji ten prevod na pixely.
> >
> > Nebo zna nekdo lepsi zpusob diky
>
> MujDBGrid.Columns[CisloSloupecku].Width:=MujDBGrid.Canvas.TextWidth(Ne
> jdelsiCoSe mNasel);
Tohle nemusi fungovat dobre, protoze "NejdelsiCoJsemNasel" je
nejdelsi, jen co se tyce poctu znaku, ovsem mohou to take byt jen
same uzke znaky (tj. delka 'wwwww' muze byt vetsi nez delka
'iiiiiii'). Obavam se, ze u proporcionalnich fontu je treba pocitat
grafickou delku kazdeho retezce pomoci TextWidth zvlast (nebo si
udelat nejakou heuristiku, ktere retezce uz pocitat netreba).
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Jiri Kral <admin(zv)printo(tec)cz> - 5.10.2000 07:46:56
>>> >uvazujete spravne. Nemuzete prodat neco, co legalne nevlastnite.
Hmmm, prodavam preci jen TO co jsem si koupil, ne software, ale pravo jej
pouzivat, ne? Tak proc bych to nemohl prodat dale? Pokud si nenecham kopie,
nebudu narokovat upgrade atd.
Myslim, ze takova omezeni neumoznuje cesky obch. zakonik.
JK
Jak zjistit barevnou hloubku ve windows
[*] Lstiburek Pavel, Ing. <Lstiburek(zv)ceb(tec)cz> - 5.10.2000 08:54:23
Ahoj,
nev�te n�kdo jak zjistit barevnou hloubku aktu�ln� pou��vanou windows (bpp)
?
Zkusil jsem registry, ale �daj je ulo�en poka�d� n�kde jinde, v z�vislosti
na pou�it� kart� a driveru.
Ve WINAPI nem��u nic naj�t, ale n�jak to p�eci mus� j�t.
D�ky Pavel Lstiburek
COM, DCOM, ActiveX
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 5.10.2000 08:57:06
Docela slusne je to popsany v Mistrovstvi v Delphi 3. Ale to stoji asi 800,- :-((
Jirka Matejka
-----P�vodn� zpr�va-----
Od: Pavl� Radek [SMTP:Radek.Pavlu(zv)merlin(tec)cz]
Odesl�no: 4. ��jna 2000 15:50
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: COM, DCOM, ActiveX
Ahoj,
zajimam se o COM, DCOM, ActiveX v Delphi. Muzete mi nekdo poradit, kde se
nechaji najit zakladni informace nebo priklady?
diky, Radek Pavlu
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 5.10.2000 09:02:00
Mam dojem, ze si ale nekupujes primo ten software, ale pravo jeho uzivani. V tom je ten hacek. Ovsem proc nemuzes prodat to pravo na uzivani, to nechapu. Je to trochu divny.
S tou lokalizaci bych docela vahal - nedokazu si moc predstavit Delphi v cestine. Uz sem si zvyknul na anglictinu.
Jirka Matejka
-----P�vodn� zpr�va-----
Od: Lud�k P�ral [SMTP:ludek.paral(zv)telecom(tec)cz]
Odesl�no: 4. ��jna 2000 20:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Jak je to s prodejem orig. Delphi z druhe ruky
Velmi zajimavou informaci jsem dnes dostal v SRN. TENTO POSTUP INPRISE.CZ JE
V SRN PROTIZAKONNY . Pokud si koupim auto, tak mi vyrobce nebude preci
prikazovat, jestli ho mohu nekam prodat. Navic jej i mohu legalne zapujcit.
Velmi se tam divili nasim manyrum.
Stejne jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
matersine). Panove z INPRISE, jen tak dal.
Ludek Paral
----- P�vodn� zpr�va -----
Od: "L. ZITA" <konference(zv)sales(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 4. ��jna 2000 2:49
P�edm�t: RE: Jak je to s prodejem orig. Delphi z druhe ruky
Behalf Of Da�a Petr
> Zdravim,
> posilam pro zajimavost odpoved na me dotazy ohledne prodeje/koupe Delphi z
> druhe ruky. Dejte si pozor, at nedopadnete jako ja (vyhodil jsem zbytecne
> 2200,- Kc) :-( V podstate mam D3Std nelegalne, takze uz abych zacal setrit
> na D5.
> (Odpoved je z Inprise(tec)cz)
>
> Petr
>
>
> >Zdravim,
> >uvazujete spravne. Nemuzete prodat neco, co legalne nevlastnite.
> >
> >Od Borland CZ si muzete koupit Delphi 5 Standard za
> >4.850,- Kc
> >
> >Licence na stare Standardy normalne neprodavame,
> >ale muzeme vam ji dodat za stejnou cenu 4.850,- Kc (coz
> >je pro vas jiste nevyhodne)
> >
> >Pokud budete priste kupovat software, musite si
> >dat vetsi pozor, pokud ten, kdo vam jej prodava je
> >skutecne autor, pripadne ma svoleni autora k prodeji.
>
Velmi zajimave na tom je na tom tohle :
Kdyz jsem s Delphi zacinal (a rozhodaval se pro nej) prodejce (APRO) mi
radil
abych koupil D4std a pripadne uprgradnul na Prof. Pak ovsem zarazili upgrade
z std na Prof a tak jsem se docela nastval.
Na muj dotaz, co mam delat mi odpovedeli "No tak prodejte tu D4std a kupte
si D5prof".
Takze po precteni tohodle mejlu se citim jak peknej podvodnik, protoze jak
rekli, tak jsem udelal...
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
OT: Test site
[*] L. ZITA <konference(zv)sales(tec)cz> - 5.10.2000 09:45:26
Zdravim a omlouvam se za totalni OT.
Poradite mi nekdo jak nejlepe otestovat lokalni sitove spojeni.
Clil jestli nevite o nejakem testovacim SW, ktery by sit "provetral" a
poradne zatizil aby vyplavaly pripadne SW nebo HW kiksy.
Neco jako SANDRA a pod. na hardware.
Dik
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Zjisteni systemu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.10.2000 09:54:11
> Existuje nejaka funkce, ktera by mi rekla jakou verzi windows mam bez
toho, abych
> to musel zjistovat z registru? Staci mi podminka jestlize je tento system
win98 nebo
> win2000.
Ja pouzivam tohle (ma nekdo informace o Windows ME (nebo jak se ta nova
verze jmenuje)??) :
TYPE
TWindowsVersion = (wvUnknown,wvUnknownWin9x,wvUnknownWinNT,wvWin95,
wvWin95OSR2, wvWin98, wvWin98SE, wvWinNT3, wvWinNT4, wvWin2000);
Function GetWindowsVersion : TWindowsVersion;
begin
//==========================================================================
=================
// Win32Platform 1 1 1 1 2
2 2
// Win32MajorVersion 4 4 4 4 3
4 5
// Win32MinorVersion 0 0 10 10 ?
0 0
// Win32BuildNumber ? 67109975 67766222 67766446 ?
1381 2195
// Win32CSDVersion ? 'B' '' A SP
SP SP
Result := wvUnknown;
Case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS: begin
Result := wvUnknownWin9x;
Case Win32MinorVersion of
0 : begin
if Win32CSDVersion = 'B' then
Result := wvWin95OSR2
else
Result := wvWin95;
end;
10 : begin
if Win32CSDVersion = 'A' then
Result := wvWin98SE
else
Result := wvWin98;
end;
end;
end;
VER_PLATFORM_WIN32_NT : begin
Result := wvUnknownWinNT;
Case Win32MajorVersion of
3: Result := wvWinNT3;
4: Result := wvWinNT4;
5: Result := wvWin2000;
end;
end;
end;
end;
Zdravi
D. Toman
Hlidani adresare
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 5.10.2000 10:08:02
Omlouvam se, ale musim to zkusit znova,
Potrebuju hlidat adresar a pri zmene obsahu
vyvolat obsluhu. Musi to mit naprosto minimalni
naroky na sys prostredky a nechci pouzivat RX
nejak se mi neosvedcila. Casovace nejsou asi nejlepsi
mate nekdo nejaky napad?graficke filtry
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 5.10.2000 10:51:31
Dobry den
nevite nekdo jak pouzit graficke filtry umistene v c:\Program Files\Common
Files\Microsoft Shared\Grphflt\.
za kazdou radu diky
QReport
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ct 2000 09:58:38
Zdrav�m,
v zoufalstvi jsem zkusil query a prekvapive sumy zacaly fungovat, proc ale sak
ra nefunguji se store procedurami?!??? P�eci te� nebudu predelavat cely progra
m. :-( Dik za podnet.
M&B
>>> MUS.TC."TOPCALL: Bab*ik Martin#Babik.USERS.IO" 10/04 12:38 >>>
Zdravim obec programatoru,
hned dotaz. Mam problem se sestavami.
Snazim se vytvorit sestavu seznamu osob v jednotlivich usecich a chtel bych mi
t po vypisu osob v jednom oddeleni mezisoucet a na konci celkovou sumu, ale ne
jdou mi sumy ani mezisoucty. Nevim co s tim. Mam to napojene na Store Procedur
e "SPOsoba", nejak takhle:
(TQRBand) ColumnHeaderBand1.BandType = rbColumnHeader v nem QRLabel
(TQRBand) QRBand2.BandType = rbDetail v nem QRDBText
(TQRBand) QRBand3.BandType = rbSummary v nem QRExpr1.Expression = SUM(SPOsoba
.(expression)_5)
(TQRBand) QRBand4.BandType = rbGroupFooter v nem QRExpr1.Expression = SUM(SPO
soba.(expression)_5)
Cele to je samozrejmne na TQuickRep
Poradte prosim, jinak to snad skopnu ze stolu. :-( Diky
M&B
D5 a Oracle 8
[*] Tomas Kucera <Tomas.Kucera(zv)matsushita(tec)cz> - 5.10.2000 11:06:11
Zdravim vsechny " Delfiny " !!!
Nenasel by se nekdo, kdo by mi dokazal popsat jak co nejlepe pretahovat
data z tabulky nebo libovolneho Gridu v D5 Prof. do tabulky v Oracle 8 ?
Velmi by mne pomohlo trochu podrobnejsi vysvetleni, nebot v teto oblasti
nemam zadnou zkusenost.
Predem dekuji za vsechny reakce tykajici se me prosby.
Tomas
Tomas Kucera
tomas.kucera(zv)matsushita(tec)cz
Matsushita Television Central Europe
Information Technology Department
+420 19 7415260
Zjisteni systemu
[*] Krska Vit <v_krska(zv)del(tec)cz> - 5.10.2000 11:10:43
tato api funkce 'GetVersionEx' toho o systemu zjisti celkem dost, treba i
service pack.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
ivomir
Sent: Thursday, October 05, 2000 7:18 AM
To: Delphi Konference
Subject: Zjisteni systemu
Existuje nejaka funkce, ktera by mi rekla jakou verzi windows mam bez toho,
abych
to musel zjistovat z registru? Staci mi podminka jestlize je tento system
win98 nebo
win2000.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Zjisteni systemu
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 5.10.2000 11:23:20
To jsem odnekud zkopiroval.
procedure TForm1.Button1Click(Sender: TObject);
var OperSystem: string;
Os:TOsVersionInfo
begin
OS.dwOSVersionInfoSize := SizeOf(OS);
GetVersionEx(OS);
case OS.dwPlatformId of
VER_PLATFORM_WIN32s: // WIN32 on Win3.1
OperSystem := 'Win 32s na Windows 3.1x';
VER_PLATFORM_WIN32_WINDOWS: // Windows 95-98
if OS.dwMinorVersion = 0 then
OperSystem := 'Microsoft Windows 95 Version: ' +
IntToStr(OS.dwMajorVersion) + '.' + IntToStr(OS.dwMinorVersion) + ' Build: '
+ IntToStr(OS.dwBuildNumber) + OS.szCSDVersion + ' (Memphis)'
else
OperSystem := 'Microsoft Windows 98 Version: ' +
IntToStr(OS.dwMajorVersion) + '.' + IntToStr(OS.dwMinorVersion) + ' Build: '
+ IntToStr(OS.dwBuildNumber) + OS.szCSDVersion + ' (Chicago)';
VER_PLATFORM_WIN32_NT: // Windows NT
OperSystem := 'Microsoft Windows NT Version: ' +
IntToStr(OS.dwMajorVersion) + '.' + IntToStr(OS.dwMinorVersion) + ' Build: '
+ IntToStr(OS.dwBuildNumber) + OS.szCSDVersion;
end;
ShowMessage(OperSystem);
end;
----- Original Message -----
From: "ivomir" <Ivomir(zv)seznam(tec)cz>
To: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 05, 2000 7:18 AM
Subject: Zjisteni systemu
> Existuje nejaka funkce, ktera by mi rekla jakou verzi windows mam bez
toho, abych
> to musel zjistovat z registru? Staci mi podminka jestlize je tento system
win98 nebo
> win2000.
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
>Hlidani adresare
[*] Cibulka Karel <k.cibulka(zv)sh.cvut(tec)cz> - 5.10.2000 11:51:17
Ahoj,
zkus si stahnout free library XCL z adresy http://xcl.cjb.net, najdes tam
unitu nazvanou XFileChange.Pas, ve ktere jsou tridy sledujici zmeny v
zadanem/nych adresari/ich s vyuzitim systemovych volani a tedy i s nejmensi
moznou rezii.
K.C.
----- Original Message -----
> Potrebuju hlidat adresar a pri zmene obsahu
> vyvolat obsluhu. Musi to mit naprosto minimalni
> naroky na sys prostredky a nechci pouzivat RX
> nejak se mi neosvedcila. Casovace nejsou asi nejlepsi
> mate nekdo nejaky napad?MSDE SQL 2000 a licence
[*] Tomas Vladik������V��?���o�� - 5.10.2000 12:03:40
Ahoj,
nevite nahodou nekdo, co planuje Microsoft s MSDE, zda-li bude k MS SQL 2000
nejaka nova verze MSDE a jak to budou licencovat?
Tom
Jak programove zjistit verzi Comctl32.dll?
[*] Ota Maly <maly(zv)space(tec)cz> - 5.10.2000 12:31:41
Ahoj,
resim obvykly problem s Comctl32.dll, potrebuju zjistit jeji verzi, abych
vedel, jestli ji mam updatnout nebo ne. Chci to udelat z programu, protoze
nechci uzivateli vysvetlovat tyto problemy. Nasel jsem v ni exportovanou
funkci(proceduru?) DllGetVersion, jenze nevim jak ji mam volat z
Delphi(neznam parametry ani typ vysledku). Umim zjistit version information
te DLLky, jenze to se lisi napr. moje comctl32 je ver5.80, ale version
information udava 5.00.??.1000 (nebo tak nejak :).
Nevite nekdo jak na to?
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
Blob not opened
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 05.10.2000 06:53:10 -0400
Cau,
Mam porad problemek s blobama a uz opravdu nevim co stim. Cely sem to predelal a prozmenu mi to hlasi, pri 22 polozce v databazi, blob not opened. Uz fakt nevim. Prosim poradte.
dik Ladap
Zdroj:
With TJ Do
Begin
First;
While not Eof Do
Begin
{Plneni receptury}
TReceptury.Append;
TReceptury.FieldByName('Nazev').AsString:= FieldByName('Nazev_jidl').AsString;
{Tak tady to zacne rvat blob not opened}
SKarta:= TBlobStream.Create(TReceptury.FieldByName('Karta') as TBlobField, bmWrite);
SMnozstvi:= TBlobStream.Create(TReceptury.FieldByName('Mnozstvi') as TBlobField, bmWrite);
QNJ.Close;
QNJ.SQL.Clear;
QNJ.SQL.Add('SELECT * FROM NJ');
QNJ.SQL.Add('WHERE C_Jidla = ' + QuotedStr(FieldByName('C_Jidla').AsString));
QNJ.Open;
QNJ.First;
While not QNJ.Eof Do
Begin
PoziceZ:= AnsiPos('-', QNJ.FieldByName('C_Suroviny').AsString);
QS.Close;
QS.SQL.Clear;
QS.SQL.Add('SELECT * FROM S');
QS.SQL.Add('WHERE (Cis_druhu = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, 1, PoziceZ -1)) +
') And (Cis_mat = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, poziceZ + 1, Length(QNJ.FieldByName('C_Suroviny').AsString))) + ')');
QS.Open;
IF TSklad.Locate('Nazev', QS.FieldByName('Nazev_Mat').AsString, [loCaseInsensitive])
Then Retezec:= PChar(TSklad.FieldByName('Nazev_Mat').AsString + Chr(13))
Else Retezec:= PChar(QS.FieldByName('Nazev_Mat').AsString + Chr(13));
SKarta.Write(Retezec^, StrLen(Retezec));
Retezec:= PChar(QNJ.FieldByName('Mnozstvi').AsString + Chr(13));
SMnozstvi.Write(Retezec^, StrLen(Retezec));
QNJ.Next;
End;
TReceptury.Post;
SKarta.Free;
SMnozstvi.Free;
//SKarta:= nil;
//SMnozstvi:= nil;
{Naplneno}
Next;
End;
End;Jak zjistit barevnou hloubku ve windows
[*] Petr Hartman <petr.hartman(zv)medisoft(tec)cz> - 5.10.2000 12:59:57
Ahoj
treba pomoci GetDeviceCaps(DC, BITSPIXEL) - viz Help.
S pozdravem
Petr Hartman
> nev�te n�kdo jak zjistit barevnou hloubku aktu�ln� pou��vanou windows (bpp)
> ?
> Zkusil jsem registry, ale �daj je ulo�en poka�d� n�kde jinde, v z�vislosti
> na pou�it� kart� a driveru.
> Ve WINAPI nem��u nic naj�t, ale n�jak to p�eci mus� j�t.
RPC for beginners
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 05.10.2000 13:18:28
Nazdar,
nemate nekdo odkazy na nejake informace
o RPC ? Nejlepe pro zacatecniky
a v Delphi (Professional, tj. no MIDAS).
Ondrej Krajicek
--
OK-)sledovani manipulace se soubory
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 5.10.2000 13:19:41
Muzete me nekdo nasmerovat, kudy bych mel nejlepe sledovat manipulaci se
soubory. Jestli to jde pres nejaky hook, nebo jak nejak jinak?
--
Jan Cejka
MERLIN spol. s r.o.
Otakarova 15, 140 00 Praha 4 - Nusle
tel.: 02-41 010 111
QickSort a ostatni
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 5.10.2000 13:41:18
Mam k Vam vsem velkou prosbu
Potrebuji vytvorit knihovnu vsech moznych tridicich algoritmu.
No a to je ten problem nemate nekdo nejaky pekny odkaz?
Pokud se mi to podari rad prenecham dalsim zajemcum kod.
Diky J.Vojt.font
[*] Krska Vit <v_krska(zv)del(tec)cz> - 5.10.2000 13:41:06
ahoj vsichni
da se pouzit true type font aniz bych ho instaloval?
diky.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ladislav Fitz
Sent: Thursday, October 05, 2000 10:52 AM
To: delphi-l(zv)fwd(tec)cz
Subject: graficke filtry
Dobry den
nevite nekdo jak pouzit graficke filtry umistene v c:\Program Files\Common
Files\Microsoft Shared\Grphflt\.
za kazdou radu diky
Hlidani adresare
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 5.10.2000 13:48:00
Diky, ale stranka je nejak mimo provoz ci co.:-)
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Cibulka Karel
Sent: Thursday, October 05, 2000 11:51 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Hlidani adresare
Ahoj,
zkus si stahnout free library XCL z adresy http://xcl.cjb.net, najdes tam
unitu nazvanou XFileChange.Pas, ve ktere jsou tridy sledujici zmeny v
zadanem/nych adresari/ich s vyuzitim systemovych volani a tedy i s nejmensi
moznou rezii.
K.C.
----- Original Message -----
> Potrebuju hlidat adresar a pri zmene obsahu
> vyvolat obsluhu. Musi to mit naprosto minimalni
> naroky na sys prostredky a nechci pouzivat RX
> nejak se mi neosvedcila. Casovace nejsou asi nejlepsi
> mate nekdo nejaky napad?Jak programove zjistit verzi Comctl32.dll?
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 5.10.2000 14:26:17
Na instalacnim CDcku od Delphi 5 je soubor 40comupd.exe. Melo by
stacit ho spustit (treba na konci instalace).
Petr Fischer
> Ahoj,
> resim obvykly problem s Comctl32.dll, potrebuju zjistit jeji verzi,
> abych vedel, jestli ji mam updatnout nebo ne. Chci to udelat z
> programu, protoze nechci uzivateli vysvetlovat tyto problemy. Nasel
> jsem v ni exportovanou funkci(proceduru?) DllGetVersion, jenze nevim
> jak ji mam volat z Delphi(neznam parametry ani typ vysledku). Umim
> zjistit version information te DLLky, jenze to se lisi napr. moje
> comctl32 je ver5.80, ale version information udava 5.00.??.1000 (nebo
> tak nejak :). Nevite nekdo jak na to?
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
>
Jak programove zjistit verzi Comctl32.dll?
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 5.10.2000 14:26:46
Ahoj
Neodpovim ti presne na otazku, ale nemas lepsi, tu knihovnu sirit se svym
programem..?
----- Original Message -----
From: "Ota Maly" <maly(zv)space(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 05, 2000 12:31 PM
Subject: Jak programove zjistit verzi Comctl32.dll?> Ahoj,
> resim obvykly problem s Comctl32.dll, potrebuju zjistit jeji verzi, abych
> vedel, jestli ji mam updatnout nebo ne. Chci to udelat z programu, protoze
> nechci uzivateli vysvetlovat tyto problemy. Nasel jsem v ni exportovanou
> funkci(proceduru?) DllGetVersion, jenze nevim jak ji mam volat z
> Delphi(neznam parametry ani typ vysledku). Umim zjistit version
information
> te DLLky, jenze to se lisi napr. moje comctl32 je ver5.80, ale version
> information udava 5.00.??.1000 (nebo tak nejak :).
> Nevite nekdo jak na to?
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
>
>Jak zjistit barevnou hloubku ve windows
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 5.10.2000 14:28:51
Muzes pouzit funkci GetDeviceCaps, ktera je schopna zjistit vsechno mozne a
mj. i pouzitou barevnou hloubku v bpp.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Lstiburek Pavel, Ing. [mailto:Lstiburek(zv)ceb(tec)cz]
Sent: Thursday, October 05, 2000 8:54 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Jak zjistit barevnou hloubku ve windows
Ahoj,
nev�te n�kdo jak zjistit barevnou hloubku aktu�ln� pou��vanou windows (bpp)
?
Zkusil jsem registry, ale �daj je ulo�en poka�d� n�kde jinde, v z�vislosti
na pou�it� kart� a driveru.
Ve WINAPI nem��u nic naj�t, ale n�jak to p�eci mus� j�t.
D�ky Pavel Lstiburek
Hlidani adresare
[*] Cibulka Karel <k.cibulka(zv)sh.cvut(tec)cz> - 5.10.2000 14:29:08
Nevim co myslis tim, ze stranka nejde - ted (14:26SEC) jsem to zkousel a
normalne to funguje. Akorat se clovek nesmi zaleknout toho, ze se tam
propaguje KOL (Key Objects Library), ktera je jakymsi "nastupcem" XCL. Ke
konci stranky je odkaz na puvodni stranky o XCL
(http://mercury.spaceports.com/~bonanzas/) a tam uz lze v sekci Download
stahnout XCL.ZIP obsahujici i drive zminovany PAS soubor.
K.C.
----- Original Message -----
> Diky, ale stranka je nejak mimo provoz ci co.:-)
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Cibulka Karel
>
> zkus si stahnout free library XCL z adresy http://xcl.cjb.net, najdes tam
> unitu nazvanou XFileChange.Pas, ve ktere jsou tridy sledujici zmeny v
> zadanem/nych adresari/ich s vyuzitim systemovych volani a tedy i s
nejmensi
> moznou rezii.
>
Jak programove zjistit verzi Comctl32.dll?
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 5.10.2000 14:54:25
Na zjisteni verze pouzivam proceduru:
function VersionNumber(const FileName: String): TVersionNo;
var
VerInfo: Pointer;
Len, BufSize: {$ifdef DelphiLessThan4}Integer{$else}Cardinal{$endif};
Dest: PVSFixedFileInfo;
begin
FillChar(Result, SizeOf(Result), 0);
//How big is version info?
BufSize := GetFileVersionInfoSize(PChar(FileName), Len);
if BufSize > 0 then
begin
//Reserve sufficient memory
GetMem(VerInfo, BufSize);
try
//Get version information
if GetFileVersionInfo(PChar(FileName), 0, BufSize, VerInfo) then
//Get translation table
if VerQueryValue(VerInfo, '\', Pointer(Dest), Len) then
with Dest^ do
begin
Result.MS := dwFileVersionMS;
Result.LS := dwFileVersionLS
end
finally
//Free sufficient memory
FreeMem(VerInfo, BufSize)
end
end
end;
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
font
[*] Krska Vit <v_krska(zv)del(tec)cz> - 5.10.2000 15:02:19
poloz otazku a odpovez si sam. pomoci apiny AddFontResource.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Krska Vit
Sent: Thursday, October 05, 2000 1:41 PM
To: delphi-l(zv)fwd(tec)cz
Subject: font
ahoj vsichni
da se pouzit true type font aniz bych ho instaloval?
diky.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ladislav Fitz
Sent: Thursday, October 05, 2000 10:52 AM
To: delphi-l(zv)fwd(tec)cz
Subject: graficke filtry
Dobry den
nevite nekdo jak pouzit graficke filtry umistene v c:\Program Files\Common
Files\Microsoft Shared\Grphflt\.
za kazdou radu diky
Hlidani adresare
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 5.10.2000 15:14:46
Jo, a je dobry si pred tim spustit napr. KillAd (rusi vyskakovaci okna).
http://www.magictrust.com/fsc/killad.zip
> -----P�vodn� zpr�va-----
> Od: Cibulka Karel [mailto:k.cibulka(zv)sh.cvut(tec)cz]
> Odesl�no: 5. ��jna 2000 14:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Hlidani adresare
>
>
> Nevim co myslis tim, ze stranka nejde - ted (14:26SEC) jsem
> to zkousel a
> normalne to funguje. Akorat se clovek nesmi zaleknout toho, ze se tam
> propaguje KOL (Key Objects Library), ktera je jakymsi
> "nastupcem" XCL. Ke
> konci stranky je odkaz na puvodni stranky o XCL
> (http://mercury.spaceports.com/~bonanzas/) a tam uz lze v
> sekci Download
> stahnout XCL.ZIP obsahujici i drive zminovany PAS soubor.
>
> K.C.Jak programove zjistit verzi Comctl32.dll?
[*] Cibulka Karel <k.cibulka(zv)sh.cvut(tec)cz> - 5.10.2000 15:38:43
To by me zajimalo, proc se kvuli tomuhle nepodivate do MS Platform SDK, kde
se samozrejme o hromade veci pise? Je to sice v anglictine, ale programator
by asi mel byt clovek, ktery alespon castecne anglicky rozumi.
V MS Platform SDK (ktere se da mimochodem stahnout z internetu primo od
Microsoftu pro pouzivani lokalne z
http://msdn.microsoft.com/downloads/sdks/platform/platform.asp) se lze
docist (na internetu je to na adrese
http://msdn.microsoft.com/library/psdk/shellcc/shell/Versions.htm) v sekci
nazvane "Shell and Common Controls Versions", jake verze ComCtl32 lze najit,
jak tuto verzi zjistit a jak zjistenou informaci interpretovat.
Pro ComCtl32 verze 4.71 a vyssi lze pouzit volani exportovane funkce
DllGetVersion jiz drive v konferenci zminovane, jinak se musi pouzit
"konvencni" metody zjisteni verze souboru (DLL).
K.C.
PS: Win32 SDK dodavane zaroven s Delphi je uz opravdu dost "mimo", sam uz
vyhledavam zasadne v dokumentaci SDK od Microsoftu. Ma to i tu vyhodu, ze
pokud si clovek stahne SDK k sobe, krome helpu (pekne udelane v HTML Helpu a
mnohem lepsi nez Delfini verze) jsou zde take i priklady a hlavickove
soubory. Clovek si pak muze dodefinovat i novejsi funkce chybejici v pas
unitach Delphi.
Program na prevod Visualbasic do Delphi
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 5.10.2000 15:51:59
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj vsem
pred casem se tu resil problem s prevodem programu ve Visual Basicu do Delphi. Slibil jsem, ze se podivam po programku, ktery to umi. Pokud mate zajem o programek dejte vedet kam (na jakou schranku na internetu) jej mohu dat. Ma asi 500 kB. V praxi jsem jej nezkousel protoze nemam Visual Basic. Posudte sami ... S pozdravem
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
sledovani manipulace se soubory
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 5.10.2000 16:09:53
Videl jsem kdysi na www.sysinternals.com utility FileMon a RegMon, ktere se
zabyvaly sledovanim souboru a registru. Bylo to free a myslim, ze vcetne
zdrojaku, ale v C++.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: �ejka Jan [mailto:Jan.Cejka(zv)merlin(tec)cz]
Sent: Thursday, October 05, 2000 1:20 PM
To: 'Delphi forum'
Subject: sledovani manipulace se soubory
Muzete me nekdo nasmerovat, kudy bych mel nejlepe sledovat manipulaci se
soubory. Jestli to jde pres nejaky hook, nebo jak nejak jinak?
--
Jan Cejka
MERLIN spol. s r.o.
Otakarova 15, 140 00 Praha 4 - Nusle
tel.: 02-41 010 111
Zjisteni systemu
[*] azeleny(zv)csas(tec)cz - 5.10.2000 16:41:42
OS.dwOSVersionInfoSize := SizeOf(OS);
> GetVersionEx(OS);
> case OS.dwPlatformId of
> VER_PLATFORM_WIN32s: // WIN32 on Win3.1
> OperSystem := 'Win 32s na Windows 3.1x';
> VER_PLATFORM_WIN32_WINDOWS: // Windows 95-98
> if OS.dwMinorVersion = 0 then
> OperSystem := 'Microsoft Windows 95 Version: ' +
> IntToStr(OS.dwMajorVersion) + '.' +
> IntToStr(OS.dwMinorVersion) + ' Build: '
> + IntToStr(OS.dwBuildNumber) + OS.szCSDVersion + ' (Memphis)'
^^^^^^^^^^^^^
Tohle je spatne, zkuste si schvalne napsat "ver" v prikazove radce, takto to
lze pouit jen pro NT, viz help od fce GetVersionEx() resp. te struktury.
Zkuste to lepe takto:
Label1.Caption:= IntToStr(Hi(HiWord(OS.dwBuildNumber))); // Major
verze pro Win9x, NT 0
Label2.Caption:= IntToStr(Lo(HiWord(OS.dwBuildNumber))); // Minor
verze pro Win9x, NT 0
Label3.Caption:= IntToStr(LoWord(OS.dwBuildNumber)); // Build (pro
Wir9x i NT)
Mozna to trochu pomuze pri hledani probelmu, proc vysledek zde poslanych
prikladu vraci nesmyslny build. Ty Major a Minor verze pro Wir9x samozrejme
neni nutne zjistovat z buildu, to jen pro dokresleni.
a.Jak programove zjistit verzi Comctl32.dll?
[*] Ota Maly <maly(zv)space(tec)cz> - 5.10.2000 16:48:43
Ahoj,
to se mi prave vubec nelibi, pokud by v budoucnu mel novejsi, tak mu ji
natvrdo prepisu tou moji starsi..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Bednar��k Dalibor
> Sent: Thursday, October 05, 2000 2:27 PM
> To: delphi-l(zv)fwd(tec)cz; maly(zv)space(tec)cz
> Subject: Re: Jak programove zjistit verzi Comctl32.dll?
>
> Ahoj
>
> Neodpovim ti presne na otazku, ale nemas lepsi, tu knihovnu sirit se svym
> programem..?
>
>
>
> ----- Original Message -----
> From: "Ota Maly" <maly(zv)space(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, October 05, 2000 12:31 PM
> Subject: Jak programove zjistit verzi Comctl32.dll?
>
> > Ahoj,
> > resim obvykly problem s Comctl32.dll, potrebuju zjistit jeji
> verzi, abych
> > vedel, jestli ji mam updatnout nebo ne. Chci to udelat z
> programu, protoze
> > nechci uzivateli vysvetlovat tyto problemy. Nasel jsem v ni exportovanou
> > funkci(proceduru?) DllGetVersion, jenze nevim jak ji mam volat z
> > Delphi(neznam parametry ani typ vysledku). Umim zjistit version
> information
> > te DLLky, jenze to se lisi napr. moje comctl32 je ver5.80, ale version
> > information udava 5.00.??.1000 (nebo tak nejak :).
> > Nevite nekdo jak na to?
> >
> > S pozdravem
> > Ota Maly
> >
> > PaPouch elektronika
> > http://www.pap-el(tec)cz
> >
> >
>
Udalost ukonceni
[*] ivomir <Ivomir(zv)seznam(tec)cz> - 5.10.2000 17:09:17
Nedavno jsem nadhodil problem s tim, ze mi windows vytuhnou pri vypinani kdyz
je spusten prog. delany v Delphi. Nikdo neodpovedel takze to asi bude zaludny
problemek.
Neposilaji windows nejakou udalost, ci pozadavek nebo nevim co aplikacim, kdyz
je chteji ukoncit? Neexistuje nejaka udalost onpozadaveknaukonceni ze bych tam
dal .Close; ?
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Font pouzity v menu:
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 05.10.2000 17:15:36
Ahoj,
da sa nejak zistit, aky font je pouzity v Menu?
A tiez, ci je bold, italic a pod.
Existuje moznost zmenit toto nastavenie?.
A to iste v titulku.
Vdaka.
P.OLE Excel-z Excelu je videt pouze menu
[*] Karel Kral <kral(zv)purus(tec)cz> - 05.10.2000 17:15:12
Dobry den,
nemate prosim nekdo zkusenost s timto:
Pri exportu dat do Excelu pomoci OLE se mi stava podivna vec: Pokud po
exportu zavru Excel a pri dalsim exportu ho znovu spustim, jsou z okna
excelu videt pouze menu a nastrojova lista. Neni videt ta cast, kde je
normalne tabulka, misto ni je videt okno pod ni nebo desktop. Pomuze az
restart Windows. Pritom data se do excelu normalne natahnou, pouze se
nezobrazuji. Pokud Excel nezavru, muzu exportovat opakovane a je to Ok.
Pouzivam std. komponenty z D5, ExcelApplication, ExcelWorkSheet.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Jan Najv�rek <najvarek(zv)seznam(tec)cz> - 05.10.2000 17:18:11
Vypada to, ze alespon v Nemecku jsou Borlandi rozumnejsi nez vsude jinde.
Ja s nastroji Borlandu uz pracuji temer 10 let, jelikoz jsou skvele, vecna slabina Borlandu je ale prave marketing. Obcas mam pocit, ze berou zakazniky jako nepratele a ne ty, co jim davaji penize.
Napr. politika ceskeho Borlandu, ze pro upgrade potrebuji mit starsi verzi koupenou take v CR znamena pro mne, ktery ted na dva roky zije v Kanade a za dva mesice se vraci zpet, ze nebudu si moci koupit upgrade v CR a budu muset dat vydelat Borlandu v Americe. A pritom bych byl rad dal vydelat ceske firme s ceskymi lidma, ale oni penize asi nechteji :) Spravne, penize nejsou vsechno :)
Ignorace zakazniku neni jenom ceska zvlastnost, mluvil jsem osobne s prezidentem (CEO) Borlandu Dale Fullerem a jeho nazor je, ze vse na vychod od Nemecka je zeme piratu (presneji jsme mluvili o "eastern Europe"), kteraz to je pro Borland nezajimava. Pote, co mi toto rekl, jsem se nezmohl na dalsi slova.... co mu mam vysvetlovat.
Faktem je, ze v Evrope, hlavne ve vychodni, ma Borland mnohem lepsi pozici nez v Americe, kde napr. v Kanade je podil na trhu (market share) zalostny - muj odhad je tak 1-2 % maximalne. Dle mne je to tim, ze ve vychodni Evrope jsme si vybirali nastroje na pocatku 90. let ne podle toho, kolik staly a jaky byl marketing, ale podle toho, jak byly dobre, jelikoz na autorska prava se pred a tesne po revoluci moc ohledu nebralo. A tudiz nezalezelo na tom, ze Microsoft je v marketingu jednicka a Borland nekde na konci. Situace se vsak meni a tak i my musime sledovat, jak se Borlandi dil kolace zmensuje. Snad Kylix pomuze obratit smer, pevne tomu drzim palce.
Byl bych strasne rad, aby Borland uz konecne dostal rozum a choval se drave a podlezave jako Microsoft, jak rekl Dale Fuller, venku je dzungle a kdyz nejsi dravec, tak jsi potravou.
Jan Najvarek
> -----P�vodn� zpr�va-----
>
> Velmi zajimavou informaci jsem dnes dostal v SRN. TENTO POSTUP INPRISE.CZ JE
> V SRN PROTIZAKONNY . Pokud si koupim auto, tak mi vyrobce nebude preci
> prikazovat, jestli ho mohu nekam prodat. Navic jej i mohu legalne zapujcit.
> Velmi se tam divili nasim manyrum.
> Stejne jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
> nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
> matersine). Panove z INPRISE, jen tak dal.
> Blob not opened - Vyreseno
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 05.10.2000 11:22:28 -0400
Uz sem na to prisel,
Procedure Free se musi zavola jeste pred post a ne az ponem.
Ladap
t.j:
With TJ Do
Begin
First;
While not Eof Do
Begin
..............
SKarta.Free;
SMozstvi.Free;
TReceptury.Post;
//SKarta.Free;
//SMnozstvi.Free;
//SKarta:= nil;
//SMnozstvi:= nil;
{Naplneno}
Next;
End;
End;
>>> parizsky(zv)access-it(tec)cz 5.10.00 6:53 >>>
Cau,
Mam porad problemek s blobama a uz opravdu nevim co stim. Cely sem to predelal a prozmenu mi to hlasi, pri 22 polozce v databazi, blob not opened. Uz fakt nevim. Prosim poradte.
dik Ladap
Zdroj:
With TJ Do
Begin
First;
While not Eof Do
Begin
{Plneni receptury}
TReceptury.Append;
TReceptury.FieldByName('Nazev').AsString:= FieldByName('Nazev_jidl').AsString;
{Tak tady to zacne rvat blob not opened}
SKarta:= TBlobStream.Create(TReceptury.FieldByName('Karta') as TBlobField, bmWrite);
SMnozstvi:= TBlobStream.Create(TReceptury.FieldByName('Mnozstvi') as TBlobField, bmWrite);
QNJ.Close;
QNJ.SQL.Clear;
QNJ.SQL.Add('SELECT * FROM NJ');
QNJ.SQL.Add('WHERE C_Jidla = ' + QuotedStr(FieldByName('C_Jidla').AsString));
QNJ.Open;
QNJ.First;
While not QNJ.Eof Do
Begin
PoziceZ:= AnsiPos('-', QNJ.FieldByName('C_Suroviny').AsString);
QS.Close;
QS.SQL.Clear;
QS.SQL.Add('SELECT * FROM S');
QS.SQL.Add('WHERE (Cis_druhu = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, 1, PoziceZ -1)) +
') And (Cis_mat = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, poziceZ + 1, Length(QNJ.FieldByName('C_Suroviny').AsString))) + ')');
QS.Open;
IF TSklad.Locate('Nazev', QS.FieldByName('Nazev_Mat').AsString, [loCaseInsensitive])
Then Retezec:= PChar(TSklad.FieldByName('Nazev_Mat').AsString + Chr(13))
Else Retezec:= PChar(QS.FieldByName('Nazev_Mat').AsString + Chr(13));
SKarta.Write(Retezec^, StrLen(Retezec));
Retezec:= PChar(QNJ.FieldByName('Mnozstvi').AsString + Chr(13));
SMnozstvi.Write(Retezec^, StrLen(Retezec));
QNJ.Next;
End;
TReceptury.Post;
SKarta.Free;
SMnozstvi.Free;
//SKarta:= nil;
//SMnozstvi:= nil;
{Naplneno}
Next;
End;
End;
odchyceni havarujici fukce
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 5.10.2000 18:39:00
Mam problem s jednou funkci a to NMUDP1.ReadStream(MyStream); Tato funkce mi
vyhazuje chybu pod win2000 a to STERAM WIRE ERROR. Pod w98 se chovala scela
spravne nevite cim to je?. Neslo by naprogramovat odchytnuti chybove hlasky a podle toho
se zachovat? Predstavoval bych si to nejak takhle:
Delej kdyz neni chyba
NMUDP1.ReadStream(MyStream);
Tady konci - kdyz se vyskytne chyba break.
Jde takhle nejak hodne obecne vychytat jakakoliv chybova hlaska co se vyskytne?
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Udalost ukonceni
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 5.10.2000 18:42:08
Toto obsluhuje zprava WM_QUERYENDSESSION,
jako reakci na tuto zpravu ocekavaji v resultu windowsy priznak, zda se muze
v pohode ukoncit (1) nebo ne (0).
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> ivomir
> Sent: Thursday, October 05, 2000 5:09 PM
> To: Delphi Konference
> Subject: Udalost ukonceni
>
>
> Nedavno jsem nadhodil problem s tim, ze mi windows vytuhnou pri
> vypinani kdyz
> je spusten prog. delany v Delphi. Nikdo neodpovedel takze to asi
> bude zaludny
> problemek.
>
> Neposilaji windows nejakou udalost, ci pozadavek nebo nevim co
> aplikacim, kdyz
> je chteji ukoncit? Neexistuje nejaka udalost
> onpozadaveknaukonceni ze bych tam
> dal .Close; ?
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
>Udalost ukonceni
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 5.10.2000 19:20:53
Nemohl bys mi to (laikovi) blizeji vysvetlit? Nevim kdy na to mam reagovat tak jsem
skousel hned pri form create toto
SendMessage(Handle, WM_ENDSESSION, 1, 1);
ale nic se nedelo. Nevim kdy to mam systemu poslat. Jestli mi posle query a jak
mam reagovat. A mozna mi jeste neni jasnej rozdil mezi PostMessage a SendMessage.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> Toto obsluhuje zprava WM_QUERYENDSESSION,
> jako reakci na tuto zpravu ocekavaji v resultu windowsy priznak, zda se muze
> v pohode ukoncit (1) nebo ne (0).
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Lud�k P�ral - 5.10.2000 19:51:47
Mel jsem nyni v ruce nemecky casopis Entwickler (Vyvojar).
Zde je podrobne rozepsana vlastnost vicejazycnosti, vcetne prepinani Delphi
s nemeckym, nebo anglickym prostredim. V SRN to ma jednu vyhodu - veskere
Exception a resourcestring jsou jiz prelozeny. My v Cechach jak pitomci
musime vsichni veskere krizove stavy ovladat vlastnimi vyjimkami.
----- P�vodn� zpr�va -----
Od: "Ji�� Mat�jka" <jiri.matejka(zv)stemmark(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 5. ��jna 2000 9:02
P�edm�t: RE: Jak je to s prodejem orig. Delphi z druhe ruky
Mam dojem, ze si ale nekupujes primo ten software, ale pravo jeho uzivani. V
tom je ten hacek. Ovsem proc nemuzes prodat to pravo na uzivani, to nechapu.
Je to trochu divny.
S tou lokalizaci bych docela vahal - nedokazu si moc predstavit Delphi v
cestine. Uz sem si zvyknul na anglictinu.
Jirka Matejka
-----P�vodn� zpr�va-----
Od: Lud�k P�ral [SMTP:ludek.paral(zv)telecom(tec)cz]
Odesl�no: 4. ��jna 2000 20:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Jak je to s prodejem orig. Delphi z druhe ruky
Velmi zajimavou informaci jsem dnes dostal v SRN. TENTO POSTUP INPRISE.CZ JE
V SRN PROTIZAKONNY . Pokud si koupim auto, tak mi vyrobce nebude preci
prikazovat, jestli ho mohu nekam prodat. Navic jej i mohu legalne zapujcit.
Velmi se tam divili nasim manyrum.
Stejne jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
matersine). Panove z INPRISE, jen tak dal.
Ludek Paral
----- P�vodn� zpr�va -----
Od: "L. ZITA" <konference(zv)sales(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 4. ��jna 2000 2:49
P�edm�t: RE: Jak je to s prodejem orig. Delphi z druhe ruky
Behalf Of Da�a Petr
> Zdravim,
> posilam pro zajimavost odpoved na me dotazy ohledne prodeje/koupe Delphi z
> druhe ruky. Dejte si pozor, at nedopadnete jako ja (vyhodil jsem zbytecne
> 2200,- Kc) :-( V podstate mam D3Std nelegalne, takze uz abych zacal setrit
> na D5.
> (Odpoved je z Inprise(tec)cz)
>
> Petr
>
>
> >Zdravim,
> >uvazujete spravne. Nemuzete prodat neco, co legalne nevlastnite.
> >
> >Od Borland CZ si muzete koupit Delphi 5 Standard za
> >4.850,- Kc
> >
> >Licence na stare Standardy normalne neprodavame,
> >ale muzeme vam ji dodat za stejnou cenu 4.850,- Kc (coz
> >je pro vas jiste nevyhodne)
> >
> >Pokud budete priste kupovat software, musite si
> >dat vetsi pozor, pokud ten, kdo vam jej prodava je
> >skutecne autor, pripadne ma svoleni autora k prodeji.
>
Velmi zajimave na tom je na tom tohle :
Kdyz jsem s Delphi zacinal (a rozhodaval se pro nej) prodejce (APRO) mi
radil
abych koupil D4std a pripadne uprgradnul na Prof. Pak ovsem zarazili upgrade
z std na Prof a tak jsem se docela nastval.
Na muj dotaz, co mam delat mi odpovedeli "No tak prodejte tu D4std a kupte
si D5prof".
Takze po precteni tohodle mejlu se citim jak peknej podvodnik, protoze jak
rekli, tak jsem udelal...
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 5.10.2000 20:00:27
> Stejne jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
> nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
> matersine). Panove z INPRISE, jen tak dal.
Smarja, jenom nelokalizovat Delphi :-)
me bohate staci Access... tu kousek cesky, tu kousek anglicky :-))
Roman
QickSort a ostatni
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 5.10.2000 20:12:43
Tady je neco z my maturity, nerekl si, co chces tridit, tak tady to mas pro pole
:-)
const celkem=980;
type TPrvek=integer;
TPole=array [1..celkem] of TPrvek;
TCelkem=1..celkem;
procedure Vymen(var a,b:TPrvek);
var p:TPrvek;
begin
p:=a;a:=b;b:=p;
end;
procedure SelectSort(var pole:TPole);
var i,j:TCelkem;
minimum:TCelkem;
begin
for j:=1 to celkem-1 do
begin
minimum:=j;
for i:=j+1 to celkem do
if pole[i]<pole[minimum] then minimum:=i;
if j<>minimum then Vymen(pole[j],pole[minimum]);
end;
end;
procedure BubbleSort(var pole:TPole);
var i,j:TCelkem;
begin
for i:=2 to celkem do
for j:=celkem downto i do
if pole[j-1]>pole[j] then Vymen(pole[j-1],pole[j]);
end;
procedure InsertSort(var pole:TPole);
var i,j:TCelkem;
x:TPrvek;
begin
for i:=2 to celkem do
begin
x:=pole[i];
j:=i-1;
while (j>=1) do
begin
if x<pole[j] then
begin
pole[j+1]:=pole[j];
Dec(j);
end else Break;
end;
pole[j+1]:=x;
end;
end;
procedure ShellSort(var pole:TPole);
var i,j,krok:integer;
x:TPrvek;
begin
krok:=celkem div 2;
while krok>=1 do
begin
for i:=krok+1 to celkem do
begin
x:=pole[i];
j:=i-krok;
while j>=1 do
begin
if x<pole[j] then
begin
pole[j+krok]:=pole[j];
j:=j-krok;
end else break;
end;
pole[j+krok]:=x;
end;
krok:=krok div 2;
end;
end;
procedure QuickSort(D,H:TCelkem;var pole: TPole);
procedure Sort(l,p: TCelkem);
var
i,j:TCelkem;
x:TPrvek;
begin
i:=l;
j:=p;
x:=pole[(l+p) div 2];
repeat
while pole[i]<x do i:=i+1;
while x<pole[j] do j:=j-1;
if i<=j then
begin
Vymen(pole[i],pole[j]);
i:=i+1;j:=j-1;
end;
until i>j;
if l<j then Sort(l,j);
if i<p then Sort(i,p);
end;
begin
Sort(D,H);
end;
Je na to takova pekna knizka, uz tu byla zminovana, herdek, ted nevim presne ten
nazev je to neco jako "Algoritmy a struktury udajov"...
Roman
> Mam k Vam vsem velkou prosbu
> Potrebuji vytvorit knihovnu vsech moznych tridicich algoritmu.
> No a to je ten problem nemate nekdo nejaky pekny odkaz?
> Pokud se mi to podari rad prenecham dalsim zajemcum kod.
> Diky J.Vojt.QickSort a ostatni
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 5.10.2000 20:24:33
> Potrebuji vytvorit knihovnu vsech moznych tridicich algoritmu.
> No a to je ten problem nemate nekdo nejaky pekny odkaz?
Niklaus Wirth: Algorithms and Data Structures.
Vyslo take slovensky v Alfa Bratislava, r. 1989, 488 stran, Algoritmy a
�trukt�ry �dajov.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* cellular : +420 604 23 83 29
* e-mail : cerny(zv)atlascon(tec)cz
* private : cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
OT: undelete pro W95,FAT32
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 05.10.2000 20:29:00
Ahojda lidicky, potrebuju moc pomoc. Nedopatrenim jsem si smazal asi 200
MB dat na FAT32 disku pod W95OSR2, ktery nutne potrebuju obnovit. Na
Netu jsem nasel par programu, ktery ale bud jenom ukazou smazany fajly a
nebo zachranej jenom fajly mensi jak 10KB (demo, shareware...) Nevite
nahodou nekdo o nejaky undelete pro woknousy, kterej by byl free???
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
| WebMaster of |
| http://miss.jimx.net - Neofici�ln� str�nka MISS CR a INet |
\--------------------------------------------------------------/Jak programove zjistit verzi Comctl32.dll?
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 5.10.2000 20:43:51
> resim obvykly problem s Comctl32.dll, potrebuju zjistit jeji verzi,
> abych vedel, jestli ji mam updatnout nebo ne. Chci to udelat z
> programu, protoze nechci uzivateli vysvetlovat tyto problemy. Nasel
> jsem v ni exportovanou funkci(proceduru?) DllGetVersion, jenze nevim
> jak ji mam volat z Delphi(neznam parametry ani typ vysledku). Umim
> zjistit version information te DLLky, jenze to se lisi napr. moje
> comctl32 je ver5.80, ale version information udava 5.00.??.1000 (nebo
> tak nejak :). Nevite nekdo jak na to?
type
TFVInfo = packed record
pad1, pad2 : DWORD;
MSLo, MSHi, LSLo, LSHi : WORD;
pad3 : array[1..16] of BYTE;
OS : DWORD;
pad4 : array[1..16] of BYTE;
end; {TFVInfo}
var
{pro zjistovani verze knihoven}
WinSysDir, P2: array[0..255] of Char;
V1, V2, V3, V4 : Word;
VSize, VHandle, E : DWORD;
VSize2 : UINT;
Buffer, Buffer2 : Pointer;
FVI : TFVInfo;
PVI : ^TFVInfo;
s: string;
begin
// kontrola verze comctl32.dll
VSize2 := GetSystemDirectory(WinSysDir, 255);
SetLength(s,VSize2);
s := WinSysDir+'\COMCTL32.DLL';
VSize := GetFileVersionInfoSize(PChar(s), VHandle);
if VSize > 0 then
begin
try
GetMem(Buffer, VSize);
if GetFileVersionInfo(PChar(s), 0, VSize, Buffer) then
begin
if VerQueryValue(Buffer, P2, Buffer2, VSize2) then
begin
PVI := Buffer2;
FVI := PVI^;
V1 := FVI.MsHi;
V2 := FVI.MsLo;
V3 := FVI.LsHi;
V4 := FVI.LsLo;
end; {if VerQueryValue}
end; {if GetFileVersionInfo}
FreeMem(Buffer);
except
end;
end; {if VSize > 0}
if (V1 < 4) or ((V1 = 4) and (V2 < 70)) then
Application.MessageBox('Knihovna comctl32.dll je nizs� verze nez
4.70.'#13#10+
'Nekter� funkce programu mohou fungovat
spatne.','Upozornen�',MB_OK+MB_IconInformation);
Zvuk po zaloze
[*] Hurricane <hurricane(zv)email(tec)cz> - 5.10.2000 22:10:02
Zdravim
To zhasnuti diody si ridi mechanika sama a je dana nejakym casovacem. Tezko
to nejak SW odchytnes. I kdyz pri bootovani to zhasne hned, ale to bude asi
o necem jinym. Jedine reseni vydim v tom, ze proste pockas tech 5 sekund a
pak pipnes.
Hurricane
----- Original Message -----
potrebuju programove zalohovat na disketu a na konci zvuk signal. Ten signal
by ale mel jit az po zhasnuti kontrolky u diskety. Tento kod da signal hned
a protoze jsou soubory velke, trva dost dlouho, nez je disketa opravdu
nahrana. Nevite nekdo, jestli to jde? Dekuji Neuzil
OLE Excel-z Excelu je videt pouze menu
[*] Tom� Matou�ek - 5.10.2000 22:30:27
Kdyz se podivas do seznamu spustenych programu (pod WinNT Ctrl+Shift+Esc),
zjistis, ze se Excel nezavrel, protoze si udrzuje vazbu s tvou aplikaci.
Musis predtim zrusit tuto vazbu, coz nevim, jak se elegantne udela,
ale ja jsem to vyresil tak, ze jsem dal promennou odkazujici se na Excel do
objektu, ktery jsem po skonceni exportu destroyoval a pak se to uvolnilo a
uz to neblblo.
Tomas Matousek
>Dobry den,
>nemate prosim nekdo zkusenost s timto:
>
>Pri exportu dat do Excelu pomoci OLE se mi stava podivna vec: Pokud po
>exportu zavru Excel a pri dalsim exportu ho znovu spustim, jsou z okna
>excelu videt pouze menu a nastrojova lista. Neni videt ta cast, kde je
>normalne tabulka, misto ni je videt okno pod ni nebo desktop. Pomuze az
>restart Windows. Pritom data se do excelu normalne natahnou, pouze se
>nezobrazuji. Pokud Excel nezavru, muzu exportovat opakovane a je to Ok.
>
>Pouzivam std. komponenty z D5, ExcelApplication, ExcelWorkSheet.
>--
>______________________________________________________
>Karel Kral, informatik
>Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
>Tel: 05/47235000, 0602/552432, Fax: 05/47231203
>E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
>______________________________________________________
>
>OLE Excel zoufale pomaly?
[*] Tom� Matou�ek - 5.10.2000 22:37:46
1. proc ho vubec zobrazovat (tj MSExcel.Visible:=False)
2. kdyz jsem exportoval tabulku z databaze, vyresil jsem to tak, ze jsem
databazi v Delphi ulozil na disk ve formatu FoxPro. Ten soubor Excel umi
precist. Takze pres OLE naloaduju soubor, provedu formatovani a lozim jako
*.xls. Je to velmi rychle. Nejpomalejsi je to formatovani, ale kdyz ho tam
neni moc, tak je to skoro hned a casova slozitost zalezi temer jen na
mnozstvi formatovani.
Tomas Matousek
>Dobry den,
>zajimaly by mne vase zkusenosti s rychlosti exportu dat pomoci OLE do
>Excelu.
>
>Mam tabulku o 30 sloupcich a 200 radcich, kterou exportuji. Exportuji po
>radcich, rychlost je asi 6 radku za vterinu, coz se mi pro vetsi objemy
>dat zda dost zoufale (Celeron 400, 128MB).
>
>Poradte:
>1. Je to normalni rychlost?
>2. Neni nejaka moznost, jak to urychlit? Napr. behem exportu uzamknout
>excel, aby zbytecne neprekresloval?
>
>Jeden radek exportuji takto:
>
>procedure TXlExport.ExportFields(Y: integer; Rec: TBtRecord);
>var
> i: integer;
> S: string;
>begin
> with XlSheet.Cells do
> for i:= 1 to Rec.GetFieldCount do
> begin
> S:= Latin2ToWinEE(Rec.GetString(i));
> if S <> '' then
> Item[Y, i]:= S;
> end; // for
>end; // proc
>
>--
>______________________________________________________
>Karel Kral, informatik
>Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
>Tel: 05/47235000, 0602/552432, Fax: 05/47231203
>E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
>______________________________________________________
>
>Udalost ukonceni
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 5.10.2000 22:59:11
Za prve:
ty budes prvni z nas dvou, ktery to, co popisuji vyzkousis :-), ja to zatim
nepotreboval
Za druhe:
WM_QUERYENDSESSION je zprava, kterou posilaji Windowsy vsem aplikacim (vsem
oknum ?)
kdyz vznikne pozadavek na ukonceni sezeni.
Je treba ji nekde osetrit (DefWindowProc hlavniho okna aplikace) a
zareakovat patricnym zpusobem.
Lepsi bude, kdyz si vse prectes v helpu, zde je kousek:
The WM_QUERYENDSESSION message is sent when the user chooses to end the
Windows session
or when an application calls the ExitWindows function. If any application
returns zero,
the Windows session is not ended. Windows stops sending WM_QUERYENDSESSION
messages
as soon as one application returns zero.
After processing this message, Windows sends the WM_ENDSESSION message with
the wParam parameter
set to the results of the WM_QUERYENDSESSION message.
Za treti:
SendMessage posle zpravu oknu (ve skutecnosti primo vola okenni fci volaneho
okna) a CEKA na vyhodnoceni zpravy.
PostMessage naproti tomu zaradi inkriminovanou zpravu do fronty zprav
volaneho okna a okamzite se vrati.
Za ctvrte:
mnoho radostnych chvil stravenych pri cetnych odhlasovani ci restarovani
Windows
konanych za ucelem testovani programu :-)
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> -=Ivomir=-
> Sent: Thursday, October 05, 2000 7:21 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Udalost ukonceni
>
>
> Nemohl bys mi to (laikovi) blizeji vysvetlit? Nevim kdy na to mam
> reagovat tak jsem
> skousel hned pri form create toto
>
> SendMessage(Handle, WM_ENDSESSION, 1, 1);
> ale nic se nedelo. Nevim kdy to mam systemu poslat. Jestli mi
> posle query a jak
> mam reagovat. A mozna mi jeste neni jasnej rozdil mezi
> PostMessage a SendMessage.
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
> > Toto obsluhuje zprava WM_QUERYENDSESSION,
> > jako reakci na tuto zpravu ocekavaji v resultu windowsy
> priznak, zda se muze
> > v pohode ukoncit (1) nebo ne (0).
>
>odchyceni havarujici fukce
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 5.10.2000 23:00:37
try
NMUDP1.ReadStream(MyStream);
except
//Tady konci - kdyz se vyskytne chyba break.
end;
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> -=Ivomir=-
> Sent: Thursday, October 05, 2000 6:39 PM
> To: Delphi Konference
> Subject: odchyceni havarujici fukce
>
>
> Mam problem s jednou funkci a to NMUDP1.ReadStream(MyStream);
> Tato funkce mi
> vyhazuje chybu pod win2000 a to STERAM WIRE ERROR. Pod w98 se
> chovala scela
> spravne nevite cim to je?. Neslo by naprogramovat odchytnuti
> chybove hlasky a podle toho
> se zachovat? Predstavoval bych si to nejak takhle:
>
> Delej kdyz neni chyba
> NMUDP1.ReadStream(MyStream);
> Tady konci - kdyz se vyskytne chyba break.
>
> Jde takhle nejak hodne obecne vychytat jakakoliv chybova hlaska
> co se vyskytne?
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
>Zvuk po zaloze
[*] MUDr.Neu�il <drneuzil(zv)razdva(tec)cz> - 5.10.2000 23:39:35
Jo, to mas pravdu, ale ani to nejde. Nahravam to na ZIPku a velikost je
40-80 MB a pokazde jina. Trva to ruzne dlouho a casto i 20-25 vt. Cele je to
pro moji zenu k programu, ktery musi uzivat, protoze pocitace jsou jeji
uhlavni nepritel. Stejne diky.
S pozdravem
Miloslav Neuzil
----- Original Message -----
From: "Hurricane" <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 05, 2000 10:10 PM
Subject: Re: Zvuk po zaloze
> Zdravim
>
> To zhasnuti diody si ridi mechanika sama a je dana nejakym casovacem.
Tezko
> to nejak SW odchytnes. I kdyz pri bootovani to zhasne hned, ale to bude
asi
> o necem jinym. Jedine reseni vydim v tom, ze proste pockas tech 5 sekund a
> pak pipnes.
>
> Hurricane
> ----- Original Message -----
> potrebuju programove zalohovat na disketu a na konci zvuk signal. Ten
signal
> by ale mel jit az po zhasnuti kontrolky u diskety. Tento kod da signal
hned
> a protoze jsou soubory velke, trva dost dlouho, nez je disketa opravdu
> nahrana. Nevite nekdo, jestli to jde? Dekuji Neuzil
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Trideni CH v Interbase
[*] Delphi <delphi(zv)aitix(tec)cz> - 5.10.2000 23:41:36
> Vobec to nie je spr�vne a ani syst�m v tom nie je, makcenove alebo dlznove
> hadze ako chce.
Hmm. Mne neprekvapilo CH, ktere je na trideni problematicke, ale ze to
netridi
spravne ani zbytek? Ja to zkousel jen letmo a tohohle jsem si nevsiml :-((
Ale vzdyt tady je prodanejch buhvi kolik serveru, to snad ani neni mozny aby
to nechodilo?
Pozitivni je, ze kdyz jde dodelat CH, jde pravdepodobne udelat spravne i
zbytek.
Leos
Zvuk po zaloze
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 5.10.2000 23:47:05
no no no... mechanika je alespon co se tyce rozumu odvozena od slova mech.
Ledova dioda (vetsinou) u flopy mech. sviti, dokud se toci motor. no a
zastavovani motoru je (v biosu nebo v dosu (?) ) nacpane na casovac (int
8). Ten resi prave tu flopy a pak jeste systemovy cas (ne hw hodiny) a par
kravin, co si tam autori rezidentu povesili :-). Pokud preprogramujes
casovac (z 18.2 tikancu/s na rekneme na 36, bude se zastavovat motor od fdd
podstatne driv (A CASTEJ!). Je to prave kvuli zbytecnym startum motor(k)u.
Teoreticky casovac snese i neco pres 2kHz na lepsich 486kach, ale nesmis
sahnout na flopac, a nesmis se divit zrychlenym hodinam, ktere pak klidne
udelaji dve minuty za vterinu :-) (dobra casova jednotka ne?); (to, zes to
prepiskl poznas vetsinou podle hryzle masiny :-) no a kdyz clovek potrebuje
jeste rychlejsi timer (stale se bavim o dosu!), tak se proste rutiny od
casovace ustreli, znemozni se pristup na mechaniky, zastavene hodiny se
vyresi jinak (nebo vubec :-) misto puvodniho obsahu se vali pseudo 6-ti
bitova muzika na beepru na 19kHz ;-) .
(mimochodem ... pokud sahnes na fdd (roztoci se motor) a ten stroj se hryzne
(kvalitne - treba prepsani prvnich 1. 64kB ram :-) tak se dotycna flopice
bude tocit jak dlouho si budes chtit ... teda ... s ohledem na zivotnost
lozisek, stabilitou dodavek proudu od CEZu, a jinych drobnosti ... akorat
nevim, kcemu by se to hodilo :-)
Spis nez zhasuti ledky (vec hardwarove zavislosti), bych se snazil hledat
flushnuti windowsovske cache. (mam takovy blby pocit, ze pokud pouzijes
konstrukci na styl assign , rewrite , blockwrite ... close. (z unity
system), tak pokud nemas povolenou plnou zapisovou cache, tak se to na close
kousne nez se nezapise posledni byte. (minimalne dos. programy pod win a
nekterymi cache ( MS's smrad drive ) to "umely". (prikladem byl zrejme
norton. 3. kreslila progres bary v zavislosti na blockwrite, kdezto nc5 (a
mam pocit ze i nc4) cihaly az na close.)
sorry ... nejak 'sem se rozkecal a mam pocit, ze ponekud off topic ... asi
pudu dom ...
Martin.
-----P�vodn� zpr�va-----
>Zdravim
>
>To zhasnuti diody si ridi mechanika sama a je dana nejakym casovacem. Tezko
>to nejak SW odchytnes. I kdyz pri bootovani to zhasne hned, ale to bude asi
>o necem jinym. Jedine reseni vydim v tom, ze proste pockas tech 5 sekund a
>pak pipnes.
>
>Hurricane
>----- Original Message -----
>potrebuju programove zalohovat na disketu a na konci zvuk signal. Ten
signal
>by ale mel jit az po zhasnuti kontrolky u diskety. Tento kod da signal hned
>a protoze jsou soubory velke, trva dost dlouho, nez je disketa opravdu
>nahrana. Nevite nekdo, jestli to jde? Dekuji Neuzil
>Jak je to s prodejem orig. Delphi z druhe ruky
[*] Lud�k P�ral - 5.10.2000 23:53:42
A jak jedou vsechny Tve aplikace vcetne vsech vyjimek ? Predpokladam, ze
zakaznici umi bud perfektne anglicky nebo sis vsechny resource jiz prelozil.
----- P�vodn� zpr�va -----
Od: "Roman" <sw.maurice(zv)seznam(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 5. ��jna 2000 20:00
P�edm�t: Re: Jak je to s prodejem orig. Delphi z druhe ruky
> > Stejne jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
> > nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
> > matersine). Panove z INPRISE, jen tak dal.
>
> Smarja, jenom nelokalizovat Delphi :-)
> me bohate staci Access... tu kousek cesky, tu kousek anglicky :-))
>
> Roman
>
>Propojeni s MS WordViwer-em
[*] SEDUSA <dsedlacek(zv)seznam(tec)cz> - 6.10.2000 00:43:31
Zdravim vsechny.
Neni mozne udelat obdobne jako je server pro MsWord take server (ole,
activeX nebo 'neco'), co by zpristupnilo prohlizec Ms WordViewer - je
zadarmo a umi nejen zobrazovat wordi slozitosti, ale je i tisknout (sahl
bych po WebBrowseru a HTML, ale tam jsou komplikace s rizenim tisku).
Diky, Dusan Sedlacek
Program na prevod Visualbasic do Delphi
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 6.10.2000 01:16:16
Ja tiez dik patrik.tesar(zv)nextra.sk alebo tesar(zv)rainside.sk
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Spider
Sent: Thursday, October 05, 2000 9:32 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Program na prevod Visualbasic do Delphi
J� bych ho docela cht�l, skus ho poslat na michal.kuncl(zv)worldonline(tec)cz d�k
...
Spider
----- Original Message -----
From: Jind�ich Nikodem
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, October 05, 2000 3:51 PM
Subject: Program na prevod Visualbasic do Delphi
Ahoj vsem
pred casem se tu resil problem s prevodem programu ve Visual Basicu do
Delphi. Slibil jsem, ze se podivam po programku, ktery to umi. Pokud mate
zajem o programek dejte vedet kam (na jakou schranku na internetu) jej mohu
dat. Ma asi 500 kB. V praxi jsem jej nezkousel protoze nemam Visual Basic.
Posudte sami ...
S pozdravem
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
Komponent pro malov�n� do BMP
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.10.2000 06:56:47
Uveden� stranka se mi nenatahla, mohu poprosit o zaslani na muj mail?
Jaro Benes
mailto:J.Benes(zv)cpoj(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Jel�nek [SMTP:pjmodos(zv)yo(tec)cz]
> Odesl�no: 4. X 2000 3:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Komponent pro malov�n� do BMP
>
> A co treba JanDrawImage - ke stazeni na DSP, nebo snad i tady:
> http://members.xoom.com/JanVee/freeware.htm?
>
> V helpu je toto:
>
> TjanDrawImage is a TImage descendant. It comes with mating components and
> a
> full featured demo painting application. Features: 100+ painting styles
> including art brushes, integrated 50+ Effects viewer like Rotate, Plasma
> etc.; TjanPaintFX with 100+ bitmap transformations; TjanColorList and
> TjanColorGrid with 100+ colors and color name hints; TjanScrollBar with
> integrated position label. Create a painting program with minimal coding.
> My
> millennium gift for the Delphi users community.
>
> Je to pro Delphi 5, free i se zdrojema.
>
> Zdravi
> Petr Jelinek - amatersky programator
> Homepage: http://pjmodos.fbi(tec)cz, http://pjmodos.yo(tec)cz
> Komponenty pro Delphi: http://lunasoft.hyperlink(tec)cz/index5.htm
> Vyhledavani: http://www.barevnylist(tec)cz/visitor.php?ref=pjmodos
> ----- Original Message -----
> From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, October 02, 2000 1:59 PM
> Subject: OT: Komponent pro malov�n� do BMP
>
>
> > Ahoj,
> >
> > nemate, prosim, nekdo komponent pro prime malovani do bitmapy? Videl
> jsem
> > takovy kdysi pro D1 (bylo to male a free jen nevim jak se to jmenovalo),
> > malovalo se specialnimi metodami (line, circle, polyline, trace aj.,v
> > modech blur, sharpen, smugle, +volba barev) do BMP (bitmapa sla
> natahnout
> i
> > jako podklad) a bylo mozne po kazdem kroku vyvolat metodu napr pro
> > nakresleni do panelu a videt tak prubeh kresleni. Puvodne to bylo
> pouzito
> > jako 2D malovatko pro grafy a jednoducha schemata ale s OPAKOVANYM
> > prekreslenim. Bohuzel, nevim, jak se to jmenovalo, ale ted bych to moc
> > potreboval. Nevite, prosim nekdo kde to najdu, nebo pokud to nekdo mate,
> > mohli byste mi to poskytnout???? Prosim na muj e-mail.
> > Diky
> > Jaro B.Jak programove zjistit verzi Comctl32.dll?
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 6.10.2000 07:10:10
Ahoj
Nemyslel jsem, ze by jsi ji kopiroval do adresare Windows, ale
nechal by jsi ji v adresari, kde mas svoji apklikaci..
----- Original Message -----
From: "Ota Maly" <maly(zv)space(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 05, 2000 4:48 PM
Subject: RE: Jak programove zjistit verzi Comctl32.dll?> Ahoj,
> to se mi prave vubec nelibi, pokud by v budoucnu mel novejsi, tak mu ji
> natvrdo prepisu tou moji starsi..
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Bednar��k Dalibor
> > Sent: Thursday, October 05, 2000 2:27 PM
> > To: delphi-l(zv)fwd(tec)cz; maly(zv)space(tec)cz
> > Subject: Re: Jak programove zjistit verzi Comctl32.dll?
> >
> >
> > Ahoj
> >
> > Neodpovim ti presne na otazku, ale nemas lepsi, tu knihovnu sirit se
svym
> > programem..?
> >
> >
> >
> >
> >
> > ----- Original Message -----
> > From: "Ota Maly" <maly(zv)space(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Thursday, October 05, 2000 12:31 PM
> > Subject: Jak programove zjistit verzi Comctl32.dll?
> >
> >
> > > Ahoj,
> > > resim obvykly problem s Comctl32.dll, potrebuju zjistit jeji
> > verzi, abych
> > > vedel, jestli ji mam updatnout nebo ne. Chci to udelat z
> > programu, protoze
> > > nechci uzivateli vysvetlovat tyto problemy. Nasel jsem v ni
exportovanou
> > > funkci(proceduru?) DllGetVersion, jenze nevim jak ji mam volat z
> > > Delphi(neznam parametry ani typ vysledku). Umim zjistit version
> > information
> > > te DLLky, jenze to se lisi napr. moje comctl32 je ver5.80, ale version
> > > information udava 5.00.??.1000 (nebo tak nejak :).
> > > Nevite nekdo jak na to?
> > >
> > > S pozdravem
> > > Ota Maly
> > >
> > > PaPouch elektronika
> > > http://www.pap-el(tec)cz
> > >
> > >
> >
>
>Zvuk po zaloze
[*] Tom� Vlad�k������V��?���o�� - 6.10.2000 08:44:47
A co takle u te ZIPky zakazat zapisovaci cache - nebo te ZIPce poslat po
dokonceni kopirovani prikaz k vysunuti media ....
T.
Zvuk po zaloze
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.10.2000 08:49:07
Vypinani motoru jednotek ridi PC.
V DOSu to bylo mozne zjistovat ctenim oblasti ROM-BIOS.
Mohlo by to byt pouzitelne i ve Windows, ale nikdy jsem v Delphi
nezkousel cist z techto oblasti pameti, tak nevim, zda to pujde:
ADRESA: VEL. POPIS:
0:043EH 1 Disketa vyzadujici rekalibraci (bit 0=A, bit 1=B,...)
Bity 4-5 indikuji, ktera mechanika je vybrana, bit 7
indikuje
priznak preruseni.
0:043FH 1 Motor diskety je v chodu (bit 0=A:...bit 3=D:)
Bity 4-5 indikuji, ktera mechanika je vybrana, bit 7
indikuje
priznak probihajici cteci nebo zapisove operace
(1=zapis nebo
formatovani, 0=cteni nebo verifikace)
0:0440H 1 Dekrementalni hodnota pro vypnuti motoru. INT 08H vypne
motor pri zjisteni, ze je zde 0.
0:0441H 1 Kod chyby diskety. Stejne jako status vraceny INT 13H
0:0442H 7 Informacni oblast radice diskety (hlaseni chyb)
S pozdravem
Karel Rys
Hurricane dne 5 Oct 2000, v 22:10:
> Zdravim
>
> To zhasnuti diody si ridi mechanika sama a je dana nejakym casovacem.
> Tezko to nejak SW odchytnes. I kdyz pri bootovani to zhasne hned, ale
> to bude asi o necem jinym. Jedine reseni vydim v tom, ze proste pockas
> tech 5 sekund a pak pipnes.
>
> Hurricane
> ----- Original Message -----
> potrebuju programove zalohovat na disketu a na konci zvuk signal. Ten
> signal by ale mel jit az po zhasnuti kontrolky u diskety. Tento kod da
> signal hned a protoze jsou soubory velke, trva dost dlouho, nez je
> disketa opravdu nahrana. Nevite nekdo, jestli to jde? Dekuji
> Neuzil
> ______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
Jak je to s prodejem orig. Delphi z druhe ruky
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.10.2000 08:51:27
> Mel jsem nyni v ruce nemecky casopis Entwickler (Vyvojar).
>
> Zde je podrobne rozepsana vlastnost vicejazycnosti, vcetne prepinani
> Delphi s nemeckym, nebo anglickym prostredim. V SRN to ma jednu vyhodu
> - veskere Exception a resourcestring jsou jiz prelozeny. My v Cechach
> jak pitomci musime vsichni veskere krizove stavy ovladat vlastnimi
> vyjimkami.
To prece neni pravda. Existuji dobre nastroje na lokalizaci. Sam
pouzivam Zbyskuv lokalizator - vse, co jsem jednou prelozil, si jiz
pamatuje, takze v kazde nove aplikaci je treba doprelozit jen par
kousku, co jsou navic - a to byva jen obcas. Je to sice prace, ktera
by pri ceskem Delphi odpadla, ale porad to je daleko lepsi, nez
programovat vlastni vyjimky.
Mne osobne fakt, ze Delphi neni cesky, nijak nevadi (z
hlediska samotneho pouzivani Delphi).
David
>
> ----- P�vodn� zpr�va -----
> Od: "Ji�� Mat�jka" <jiri.matejka(zv)stemmark(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 5. ��jna 2000 9:02
> P�edm�t: RE: Jak je to s prodejem orig. Delphi z druhe ruky
>
>
> Mam dojem, ze si ale nekupujes primo ten software, ale pravo jeho
> uzivani. V tom je ten hacek. Ovsem proc nemuzes prodat to pravo na
> uzivani, to nechapu. Je to trochu divny. S tou lokalizaci bych docela
> vahal - nedokazu si moc predstavit Delphi v cestine. Uz sem si zvyknul
> na anglictinu.
>
> Jirka Matejka
>
> -----P�vodn� zpr�va-----
> Od: Lud�k P�ral [SMTP:ludek.paral(zv)telecom(tec)cz]
> Odesl�no: 4. ��jna 2000 20:57
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Jak je to s prodejem orig. Delphi z druhe ruky
>
> Velmi zajimavou informaci jsem dnes dostal v SRN. TENTO POSTUP
> INPRISE.CZ JE V SRN PROTIZAKONNY . Pokud si koupim auto, tak mi
> vyrobce nebude preci prikazovat, jestli ho mohu nekam prodat. Navic
> jej i mohu legalne zapujcit. Velmi se tam divili nasim manyrum. Stejne
> jako mi prekvapuje, kdyz mi Borland onehdy rekl, ze produkty
> nelokalizuje (ovsem v SRN je samozrejme cele DELPHI mozno insatlovat v
> matersine). Panove z INPRISE, jen tak dal.
>
>
> Ludek Paral
>
>
> ----- P�vodn� zpr�va -----
> Od: "L. ZITA" <konference(zv)sales(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 4. ��jna 2000 2:49
> P�edm�t: RE: Jak je to s prodejem orig. Delphi z druhe ruky
>
>
> Behalf Of Da�a Petr
>
> > Zdravim,
> > posilam pro zajimavost odpoved na me dotazy ohledne prodeje/koupe
> > Delphi z druhe ruky. Dejte si pozor, at nedopadnete jako ja (vyhodil
> > jsem zbytecne 2200,- Kc) :-( V podstate mam D3Std nelegalne, takze
> > uz abych zacal setrit na D5. (Odpoved je z Inprise(tec)cz)
> >
> > Petr
> >
> >
> > >Zdravim,
> > >uvazujete spravne. Nemuzete prodat neco, co legalne nevlastnite.
> > >
> > >Od Borland CZ si muzete koupit Delphi 5 Standard za
> > >4.850,- Kc
> > >
> > >Licence na stare Standardy normalne neprodavame,
> > >ale muzeme vam ji dodat za stejnou cenu 4.850,- Kc (coz
> > >je pro vas jiste nevyhodne)
> > >
> > >Pokud budete priste kupovat software, musite si
> > >dat vetsi pozor, pokud ten, kdo vam jej prodava je
> > >skutecne autor, pripadne ma svoleni autora k prodeji.
> >
>
> Velmi zajimave na tom je na tom tohle :
>
> Kdyz jsem s Delphi zacinal (a rozhodaval se pro nej) prodejce (APRO)
> mi radil abych koupil D4std a pripadne uprgradnul na Prof. Pak ovsem
> zarazili upgrade z std na Prof a tak jsem se docela nastval. Na muj
> dotaz, co mam delat mi odpovedeli "No tak prodejte tu D4std a kupte si
> D5prof".
>
> Takze po precteni tohodle mejlu se citim jak peknej podvodnik, protoze
> jak rekli, tak jsem udelal...
>
> Ludek
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
>
>
OLE Excel zoufale pomaly?
[*] Karel Kral <kral(zv)purus(tec)cz> - 06.10.2000 09:06:19
Tohle pro mne neni. Musi to totiz spolupracovat se specialnim formatem
Dosovskeho programu a ten zase neumi zapsat FoxPro.
Ale vyresilo se to podle odpovedi Pavla Krize: neexportuji po
jednotlivych polickach, ale najednou treba 500 celych radku. Tim se to
mnohonasobne (30x) zrychlilo a tak i export databaze o mnoha tisici
polozkach a desitkach sloupcu je uspokojive rychly.
Tom� Matou�ek wrote:
>
> 1. proc ho vubec zobrazovat (tj MSExcel.Visible:=False)
> 2. kdyz jsem exportoval tabulku z databaze, vyresil jsem to tak, ze jsem
> databazi v Delphi ulozil na disk ve formatu FoxPro. Ten soubor Excel umi
> precist. Takze pres OLE naloaduju soubor, provedu formatovani a lozim jako
> *.xls. Je to velmi rychle. Nejpomalejsi je to formatovani, ale kdyz ho tam
> neni moc, tak je to skoro hned a casova slozitost zalezi temer jen na
> mnozstvi formatovani.
> >______________________________________________________
> >Karel Kral, informatik
> >Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> >Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> >E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> >______________________________________________________
> >
> >
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
QuickSort a ostatni
[*] tungli(zv)datapac.sk - 6.10.2000 09:09:47
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.
Delphi v adresary \ Demo \ Threads
je velmi pekny priklad na triedenie typy Bublina, Halda,QuickSort aj s vizualizaciou.
Tungli
Trideni CH v Interbase
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 6.10.2000 09:25:35
Ale to je snad spravne... Pokud vim tak se pri RAZENI
podle ceske normy diakritika u samohlasek ignoruje.
(Ano chapu, ze z pohledu programatora je to
trochu divne, ale co nadelame, norma je norma...)
s pozdravem Otakar Milink
>
> > Vobec to nie je spr�vne a ani syst�m v tom nie je,
> > makcenove alebo dlznove hadze ako chce.
>
> Hmm. Mne neprekvapilo CH, ktere je na trideni problematicke,
> ale ze to netridi spravne ani zbytek? Ja to zkousel jen letmo
> a tohohle jsem si nevsiml :-((
> Ale vzdyt tady je prodanejch buhvi kolik serveru, to snad ani
> neni mozny aby
> to nechodilo?
>
> Pozitivni je, ze kdyz jde dodelat CH, jde pravdepodobne
> udelat spravne i zbytek.graficke filtry
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.10.2000 09:27:19
Zkus se podivat na GraphicEx87.zip, najdes jej asi na Torry apod. Je to
rozsireni pro TImage o spouuuustu grafickych formatu. Staci dat do uses
prislusnou unitu, podobne jaku Uses JPeg.
Jan Fiala
----- Original Message -----
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>> Dobry den
>
> nevite nekdo jak pouzit graficke filtry umistene v c:\Program
Files\Common
> Files\Microsoft Shared\Grphflt\.
>
> za kazdou radu diky
>
>Jak je to s prodejem orig. Delphi z druhe ruky
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 6.10.2000 09:30:49
> A jak jedou vsechny Tve aplikace vcetne vsech vyjimek ? Predpokladam, ze
> zakaznici umi bud perfektne anglicky nebo sis vsechny resource jiz
prelozil.
>
Preklad resourcu neni zas tak hrozny a taky existuje neco jako Lokalizator.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Trideni CH v Interbase
[*] Karel B�ich��� - 6.10.2000 09:33:35
> > Vobec to nie je spr�vne a ani syst�m v tom nie je, makcenove
> alebo dlznove
> > hadze ako chce.
>
> Pozitivni je, ze kdyz jde dodelat CH, jde pravdepodobne udelat spravne i
> zbytek.
Ahoj,
S tim tridenim hacku a carek jste mne tedy dostali. Vzdy jsem predpokladal,
ze to trideni, ktere je k videni temer v kazdem prekladovem slovniku je
spravne (zvlast jsou vydelovana pouze C,R,S,Z s hackem). Dotazal jsem se
tedy cloveka, ktery ma za sebou nekolik semestru studia cestiny na FF UK, a
bylo mi receno, ze pri spravnem "kniznim" trideni by se mela vydelovat i
ostatni pismena s carkama a hackama (tak jem to pochopil). Chtel jsem
vyzkouset, jak se k tomu stavi napriklad MS SQL, a zjistil jsem, ze tridi
stejne jako IB.
Je tedy podle meho nazoru otazka, nakolik ma smysl menit trideni PXW_CSY na
"knizni", kdyz na nej neni nikdo zvykly. Nebylo by spis lepsi vytvorit nove
trideni?
Brichna
P.S. Ma nekdo zkusenosti s ceskym tridenim i na jinych SQL serverech?Jak programove zjistit verzi Comctl32.dll?
[*] Kejval <petr.kejval(zv)worldonline(tec)cz> - 6.10.2000 09:54:56
Ahoj,
sleduji Vasi diskusi o zjisteni verze comctl32.dll pro naslednou instalaci
comctl32.dll.
Ja zatim instaluji comctl32.dll spustenim instalacniho programu
401comupd.exe nebo 50comupd.exe.
Zajimal by me postup jak instalujete comctl32.dll z vlastniho programu.
Za odpoved dekuji.
Petr Kejval
----- P�vodn� zpr�va -----
Od: Jaroslav Nadhera <nadhera(zv)csh(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 5. ��jna 2000 14:54
P�edm�t: Re: Jak programove zjistit verzi Comctl32.dll?> Na zjisteni verze pouzivam proceduru:
>
> function VersionNumber(const FileName: String): TVersionNo;
> var
> VerInfo: Pointer;
> Len, BufSize: {$ifdef DelphiLessThan4}Integer{$else}Cardinal{$endif};
> Dest: PVSFixedFileInfo;
> begin
> FillChar(Result, SizeOf(Result), 0);
> file://How big is version info?
> BufSize := GetFileVersionInfoSize(PChar(FileName), Len);
> if BufSize > 0 then
> begin
> file://Reserve sufficient memory
> GetMem(VerInfo, BufSize);
> try
> file://Get version information
> if GetFileVersionInfo(PChar(FileName), 0, BufSize, VerInfo) then
> file://Get translation table
> if VerQueryValue(VerInfo, '\', Pointer(Dest), Len) then
> with Dest^ do
> begin
> Result.MS := dwFileVersionMS;
> Result.LS := dwFileVersionLS
> end
> finally
> file://Free sufficient memory
> FreeMem(VerInfo, BufSize)
> end
> end
> end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Trideni CH v Interbase
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 6.10.2000 09:59:14
Ahoj,
> Ale to je snad spravne... Pokud vim tak se pri RAZENI
> podle ceske normy diakritika u samohlasek ignoruje.
****To neni zase tak uplne pravda. BABA je vzdy pred BA'BA
Slavek
> s pozdravem Otakar Milink Zakaz minimalizace
[*] sup(zv)svitap(tec)cz - 6.10.2000 10:04:52
Dobry den, delam aplikaci, ktera pojede jako shell misto Exploreru. Jak to
udelat, aby programy z ni pustene nesli minimalizovat?
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.10.2000 10:57:18
On 5 Oct 2000, at 19:51, Lud�k P�ral wrote:
> Mel jsem nyni v ruce nemecky casopis Entwickler (Vyvojar).
>
> Zde je podrobne rozepsana vlastnost vicejazycnosti, vcetne prepinani
> Delphi s nemeckym, nebo anglickym prostredim. V SRN to ma jednu vyhodu
> - veskere Exception a resourcestring jsou jiz prelozeny. My v Cechach
> jak pitomci musime vsichni veskere krizove stavy ovladat vlastnimi
> vyjimkami.
Pro takovyto postup nevidim nejmensi duvod, pokud se chybova
hlaska nachazi v programu. Daleko jednodussi je _vymenit_
anglicke texty za ceske (tedy lokalizovat). Pokud se text importuje
zvenku, napriklad z nejake DLL (takove BDE, IB, ...), pak jsou na
tom Nemci stejne jako my.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: undelete pro W95,FAT32
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.10.2000 10:57:18
On 5 Oct 2000, at 20:29, Martin Pe�ava wrote:
> Ahojda lidicky, potrebuju moc pomoc. Nedopatrenim jsem si smazal asi
> 200 MB dat na FAT32 disku pod W95OSR2, ktery nutne potrebuju obnovit.
> Na Netu jsem nasel par programu, ktery ale bud jenom ukazou smazany
> fajly a nebo zachranej jenom fajly mensi jak 10KB (demo, shareware...)
> Nevite nahodou nekdo o nejaky undelete pro woknousy, kterej by byl
> free??? --
Restartuj do DOSu a dej undelete.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Mys s koleckem v DBGridu
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 6.10.2000 11:04:45
Hi,
Zkouseli jste nekdo mys s koleckem pouzit k posouvani v
DBGridu, chova se to strasne. Uzivatele si na to kolecko rychle
zvykli a ted mne bombarduji stiznostmi, nevite prosim nekdo co s
tim.
Nechci nejakej jinej grid mam sveho potomka TDBGridu a do neho
si to potrebuji opravit
Dekuji moc.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
IB6: IBInstall - zajimave chovani
[*] Ota Maly <maly(zv)space(tec)cz> - 6.10.2000 11:21:10
ahoj,
Snazim se instalovat pomoci IBInstall, ale zjistil jsem nasledujici:
Pokud pouzivam nasledujici kod, tak mi vyskoci moje okno s dotazem, pokud
stisknu Prerusit(Abort), tak se mi spravne priradi do Result erAbort, ale
IBX pokracuje dal v instalaci (a hlasi dalsi chyby).
Pokud tam vsak dam natvrdo Result := erAbort, tak to instalaci prerusi s
hlaskou "Unable to copy".
Proc to nedela i v prvnim pripade?
Jak resite obsluhu teto udalosti?
Jeste je treba podotknout, ze pro vyvolani chyb pri instalaci spoustim
instalaci z prazdneho adresare.
>function TfMujForm.IBInstall1Error(Sender: TObject; IscCode: Integer;
> ErrorMessage, ErrorComment: String): TErrorResult;
>begin
> Result := erAbort;
> case
>
Application.MessageBox(pchar(ErrorComment),pchar(ErrorMessage),MB_ABORTRETRY
IGNORE+MB_ICONERROR)
> of
> ID_ABORT : Result := erAbort;
> ID_RETRY : Result := erRetry;
> ID_IGNORE: Result := erContinue;
> end;
>end;
S pozdravem
Ota Maly
WinNTSP5;D5ProfUP1;IB6Ostra;IBX4.2
PaPouch elektronika
http://www.pap-el(tec)cz
WM_ENDSESSION
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 6.10.2000 11:30:42
Chci ukoncovat aplikaci pri vypnuti poc., kdyz mi prijde message od windowsu na ukonceni app.
Mam dve procedury a to jak je uvedeno nize. Nevim ale jestli se nepletu, ale prve prijde pozadavek
jestli muzou wokna ukoncovat cili WMQueryEndsession a v nem odesilam zpatky 1 jako ze muzou
a pak zadaji dalsi aplikace. Jakmile maji od vsech 1 (true) tak poslou message WMENDSESSION
ktera uz slouzi na ukonceni. (Jestli je to teda tak) No a problem je v tom, ze musim restart delat na
dvakrat. Pri prvnim se jen app. uzavre ale NEDOJDE K VYPNUTI, skoci to spatky do winu, az po
druhy, (kdy uz je app. vypnuta) se muze dat znova vypnout a vse v poradku.
procedure TFtpServerForm.WMEndSession(var Message: TMessage);
begin
Close;
end;
procedure TFtpServerForm.WMQueryEndSession(var Message: TMessage);
begin
Message.Result := 1;
end;
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Uz sem na to prisel,
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 06.10.2000 06:51:21 -0400
Uz sem na to prisel,
Procedure Free se musi zavola jeste pred post a ne az ponem.
Ladap
t.j:
With TJ Do
Begin
First;
While not Eof Do
Begin
..............
SKarta.Free;
SMozstvi.Free;
TReceptury.Post;
//SKarta.Free;
//SMnozstvi.Free;
//SKarta:= nil;
//SMnozstvi:= nil;
{Naplneno}
Next;
End;
End;
>>> parizsky(zv)access-it(tec)cz 5.10.00 6:53 >>>
Cau,
Mam porad problemek s blobama a uz opravdu nevim co stim. Cely sem to predelal a prozmenu mi to hlasi, pri 22 polozce v databazi, blob not opened. Uz fakt nevim. Prosim poradte.
dik Ladap
Zdroj:
With TJ Do
Begin
First;
While not Eof Do
Begin
{Plneni receptury}
TReceptury.Append;
TReceptury.FieldByName('Nazev').AsString:= FieldByName('Nazev_jidl').AsString;
{Tak tady to zacne rvat blob not opened}
SKarta:= TBlobStream.Create(TReceptury.FieldByName('Karta') as TBlobField, bmWrite);
SMnozstvi:= TBlobStream.Create(TReceptury.FieldByName('Mnozstvi') as TBlobField, bmWrite);
QNJ.Close;
QNJ.SQL.Clear;
QNJ.SQL.Add('SELECT * FROM NJ');
QNJ.SQL.Add('WHERE C_Jidla = ' + QuotedStr(FieldByName('C_Jidla').AsString));
QNJ.Open;
QNJ.First;
While not QNJ.Eof Do
Begin
PoziceZ:= AnsiPos('-', QNJ.FieldByName('C_Suroviny').AsString);
QS.Close;
QS.SQL.Clear;
QS.SQL.Add('SELECT * FROM S');
QS.SQL.Add('WHERE (Cis_druhu = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, 1, PoziceZ -1)) +
') And (Cis_mat = ' + QuotedStr(Copy(QNJ.FieldByName('C_Suroviny').AsString, poziceZ + 1, Length(QNJ.FieldByName('C_Suroviny').AsString))) + ')');
QS.Open;
IF TSklad.Locate('Nazev', QS.FieldByName('Nazev_Mat').AsString, [loCaseInsensitive])
Then Retezec:= PChar(TSklad.FieldByName('Nazev_Mat').AsString + Chr(13))
Else Retezec:= PChar(QS.FieldByName('Nazev_Mat').AsString + Chr(13));
SKarta.Write(Retezec^, StrLen(Retezec));
Retezec:= PChar(QNJ.FieldByName('Mnozstvi').AsString + Chr(13));
SMnozstvi.Write(Retezec^, StrLen(Retezec));
QNJ.Next;
End;
TReceptury.Post;
SKarta.Free;
SMnozstvi.Free;
//SKarta:= nil;
//SMnozstvi:= nil;
{Naplneno}
Next;
End;
End;
Pomala databazova aplikace
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 6.10.2000 13:32:32
Ahoj vespolek,
databazova aplikace (BDE, tabulky Paradox, pouze dve tabulky maji cca
desetitisice zaznamu, zbytek nejvyse desitky, jen vzacne stovky) u nas jede
co se tyce rychlosti bezproblemove (sit WinNT, stanice Win98, Win95), u
zakaznika na tomtez objemu dat se zoufale louda (ted maji sit WinNT +
Novell, stanice Win98, kdyz meli predchozi verzi s timtez objemem dat,
Novell myslim jeste nemeli a chodilo to svizne). Nemate nekdo zkusenost,
jestli se neco nema nastavit v konfiguraci BDE nebo na serveru apod.?
Vyvoj je na D5Prof, Win98
Diky za vsechny napady
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************