Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Nalezeni a prepnuti se do komponenty
[*] Marek Prokop <prokopsw(zv)czn(tec)cz> - 1.6.1998 21:04:38
On Monday, June 01, 1998 9:30 AM, Zdenek Rehor
[SMTP:Zdenek.Rehor(zv)mrkev.vabo(tec)cz] wrote:
> Dobry den vsem.
>
> Mam jeden (asi pro mnohe jednoduchy problem). V promene typu
STRING je jm�no komponenty. Jak tuto komponentu (napr. editacni box [tzn.
TEdit])
>
> 1) Identifikovat ze existuje
> 2) Prepnout se do ni.
>
> Pro AD1 je bezne pouzivana fce "FindComponent", ale ta jiz
neumoznuje prepnuti do komponenty (napr. metodou SetFocus). Reseni
bude jiste pomerne jednoduche, kdesi jsem ho videl, ale ted po nem marne
patram.
>
(FindComponent("Xyz") as TWinControl).SetFocus;
Marek Prokop
Kvalita Paradox tabulek.
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 1.6.1998 21:07:52
S Accessem mam docela solidni
zkusenosti co se tyka bezpecnosti dat (poruchovosti tabulek). Vyhodou je
dle meho i jeden jedinny soubor a ne spousty drobnych fajliku jako v
Paradoxu.
Proc je spousty drobnych fajliku Paradoxu nevyhodou?
Muze jedna chyba v souboru Accessu zpusobit nedostupnost
vsech tabulek?
Milos Skacel
Aplikace nezavisla na BDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.6.1998 22:17:14
GRAAS Jan, Mgr. wrote:
>
> Prosim, mohl by mi nekdo poradit:
>
> Potreboval bych nejak obejit BDE, vim ze se to nejak da udelat, ale
> nevim jak. Pripada mi zbytecne, abych v pripade ze delam jen nejaky
> jednoduchy viewer o velikosti par kb, ktery nema zadne zvlastni funkce
> nez jen prochazeni zaznamu tabulky a jejich zobrazovani ve formulari,
> musel distribuovat BDE nebo delat instalacni program, ktery by definoval
> aliasy, atd.
> Chtel bych, aby tato aplikace byla funkcni na jinem pocitaci i tehdy,
> kdyz na nej zkopiruji jen dva soubory: EXE soubor a paradox tabulku, bez
> instalace nebo nastavovani IDAPI.
>
> Za pripadne namety predem dekuji. (Delphi 2).
Ahoj,
Obavam se ze v pripade Paradoxu to nebude vubec jednoduche, uz jen proto
ze ani neni prilis znam format jeho souboru. Z tveho dotazu mi neni moc
jasne co je "jednoduchy viewer". Jedna se o aplikaci ktera ma byt schopna
zobrazit libovolnou Paradox tabulku, nebo o konktretni velmi jednoduchou
databazovou aplikaci ? Pokud se jedna o ten druhy pripad, tak je to mozne
resit "nahradami BDE", ale ty vetsinou pouzivaji nejaky vlastni format
souboru, jako napriklad QBD a nelze s nimi pouzivat datove komponenty Delphi.
Urcitou moznost dava az Delphi 3 kde je jiz trida TDataSet nezavisla na
BDE, takze je mozne si vytvorit vlastni databazovy format bez ztraty
moznosti pouzivat datove komponenty. O neco takoveho jsem se jiz snazil :-)
viz tema "Datasety bez BDE" v konferenci.
Na druhou stranu bych nevidel distribuci aplikace s BDE tak cerne. Pomoci
InstallShieldu se to da udelat pomerne elegantne, navic pokud uz na tom
pocitaci BDE jednou bude, tak ta instalace neni nijak dlouha a na dve diskety
se ti to v pohode vejde. Srovnej to treba s takovym IE 4.0 :-)) Petr Vones, amatersky programator
Offtopic: NW a e-mail
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 01.6.1998 22:48:37
Hi,
prosil bych odpoved do konference, obzvlaste od zastancu NW!
fronek(zv)fic(tec)cz
-------------------------------------------------------------
Marcel Telka wrote:
>
> Sorry za offtopic. Sorry za offtopic. Sorry za offtopic. Sorry za offtopic.
>
> Ahoj.
>
> Kedze sa tu potlkaju aj znalci Novellu, tak som si dovolil obratit sa na
> Vas.
>
> Mam siet na Novelli 3.12 (protokol IPX/SPX). Bezi tam loaklna posta cez
> pegasus mail (DOS).
> Na tej sieti mam aj stroj s Win 95 a WinProxy (protokol, o.i. TCP/IP), ktory
> sa pripaja k ISP.
> Potrebujem urobit, aby klienti mohli pomocou pmailu posielat okrem lokalnej
> posty aj postu
> do Internetu.
>
> Inymi slovami: potrebujem naucit NW, aby postu urcenu do Internetu vedel
> odoslat na WinProxy,
> a naopak.
>
> Da sa to?
>
> Ak ano, tak ako?
>
> Odpovede prosim na sukr. adresu.Vyhledavani v TreeView
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.6.1998 22:52:58
> da se vyhledavat v TreeView vetev nejakou funkci (kdyz zadam text obsahujici
> jeji nazev) nebo si to musim udelat sam?
Myslim, ze neda, ale neni to problem - udelej si jednoduchy FOR .. TO ..
*** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA ***
Z duvodu stehovani jiz neplati telefonni/faxove cislo 047-5501627,
bude prelozeno, ale nikdo nevi, kdy to Telecom zvladne... Prozatim
prosim pouzivejte prechodne telefonni/faxove cislo 047-68510.
Adresa pro korespondenci zatim zustava beze zmen.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Jak je ten svet maly, OFF TOPIC
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.6.1998 22:52:58
> Tak jsem dostal pozvanku na konferenci FoxPro DevCon Praha 98 a
> koukam, kdo je pod ni podepsan:
>
> Jiri Burian
> Developer Tools Product Manager
> Microsoft s.r.o.
>
> A ja porad, kde se ten Jirka B. ztratil z nasi konference a z ceskeho
> Borlandu...
Jo, je to pravda, kdyz se tenkrat odhlasil z konference, tak sem
poslal take informaci, ze odchazi. Tak jsem se ho ptal, kam jde
a on mi rekl, ze odchazi do Microsoftu, ze tam bude delat prave
podporu vyvojarskych produktu, coz pry tady vubec nikdo u MS
dosud nedelal - proste to misto tam nebylo. Duvod mi take sdelil.
Jo a jinak potom mi nabizel, jestli nechci na svuj Web umistit
reklamu Microsoftu a ja jsem odmitl :-)))
*** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA ***
Z duvodu stehovani jiz neplati telefonni/faxove cislo 047-5501627,
bude prelozeno, ale nikdo nevi, kdy to Telecom zvladne... Prozatim
prosim pouzivejte prechodne telefonni/faxove cislo 047-68510.
Adresa pro korespondenci zatim zustava beze zmen.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Pakovani databaze (2)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.6.1998 22:52:58
> Nevim jak to je u Oracle nebo Interbase, ale urcite je pakovani zapotrebi u
> Dbase, MS Access, Paradox, Foxpro.
> Protoze delam aplikaci nezavislou na pouzitem databazovem nastroji,
> potrebuji vedet jestli neexistuje nejaky univerzalni zpusob v BDE pro
> vsechny databaze. Aplikace Database Desktop, ktera je taktez nezavisla na
> typu databazovych tabulek ma v okne pro restrukturalizaci tabulek pro tento
> pripad volbu Pack Table.
To neni pravda, Database Desktop je nezavisly pouze pro editovani databazi,
ale rozhodne ne pro pakovani databazi. Pakovat umi jen u dBase, Paradox
a mozna FoxPro (to jsem nezkousel, protoze jsem liny). Nic jineho pakovat
neumi a rozhodne nepakuje ani tabulky MS Access. Podivej se opravdu,
u kterych tabulek to Pack je, a uvidis.
*** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA ***
Z duvodu stehovani jiz neplati telefonni/faxove cislo 047-5501627,
bude prelozeno, ale nikdo nevi, kdy to Telecom zvladne... Prozatim
prosim pouzivejte prechodne telefonni/faxove cislo 047-68510.
Adresa pro korespondenci zatim zustava beze zmen.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Evaluation ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.6.1998 22:52:58
> Chapej to asi tak, ze soucasti Delphi je QuickReport, ale qusoft prodava
> jeste jednu verzi (nevim cim se lisi, tusim ze dostanes i zdrojaky). Tak
Za $99 dostanes QuickReport pro vsechny verze Delphi (1, 2, 3)
vcetne zdrojovych kodu a navic jeste moznost vizualniho navrhu
v runtime dobe (za behu programu).
*** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA ***
Z duvodu stehovani jiz neplati telefonni/faxove cislo 047-5501627,
bude prelozeno, ale nikdo nevi, kdy to Telecom zvladne... Prozatim
prosim pouzivejte prechodne telefonni/faxove cislo 047-68510.
Adresa pro korespondenci zatim zustava beze zmen.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================rychlost
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 1.6.1998 23:00:08
Ahoj,
mel byste nekdo vysvetleni pro nasledujici skutecnost?
Jednoducha zkusebni aplikace na testovani rychlosti,
konkretne plneni tabulky Paradoxu v cyklu metodou
Table.AppendRecord(klic,udaj1,udaj2...);
trva na pocitaci s
a/ Win NT Wks, SP3, NTFS, Cpu PR 233MHz, 64MB 43 sec
b/ Win 95, Cpu PR 166MHz, 32MB 3.6 sec
Na obou pocitacich je spustena prave tato aplikace,
zadny neslouzi jako file/print server. Mista na disku
je na obou 100x vice nez velikost generovane tabulky,
ta je um�st�na ve stejn�m adres��i jako exe.
Pro radovy rozdil opravdu nemam slov :(
Milos Skacel
Synchronizace threadu s VCL
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 01.6.1998 23:04:12
Hi,
pokud je mi znamo, tak cela parada synchronize je jen k tomu, aby
nedoslo k duplicitnimu volani knihovny VCL, ktera neni reentrantni.
Takze pokud bude kreslit jen jeden thread, tak se na to volani muzes
(nevolat ho :-)
fronek(zv)fic(tec)cz
Petr Vones wrote:
>
> Ahoj,
-------cut----------------
> Pouzil jsem misto Synchronize uzivatelskou zpravu v okne aplikace, a z
> threadu ji volam pomoci SendMessageTimeout. Je vsak tento postup korektni ?
> Zatim to funguje, ale radeji bych kdyby se k tomu vyjadril nekdo kdo teto
> problematice vice rozumi.
>
> Dekuji.
>
> Petr Vones, amatersky programator
rychlost
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 01.6.1998 23:25:54
Hi,
to je tim, ze na NT je spusteno jeste spousta sluzeb, ktere se neukazuji
na seznamu spustenych aplikaci. Ale ten rozdil je opravdu velky, ja bych
ocekaval tak 2x pomalejsi NT, nekde mas v tech NT zadrhel...
Miloslav Skacel wrote:
>
> Ahoj,
>
> mel byste nekdo vysvetleni pro nasledujici skutecnost?
>
> Jednoducha zkusebni aplikace na testovani rychlosti,
> konkretne plneni tabulky Paradoxu v cyklu metodou
> Table.AppendRecord(klic,udaj1,udaj2...);
>
> trva na pocitaci s
> a/ Win NT Wks, SP3, NTFS, Cpu PR 233MHz, 64MB 43 sec
> b/ Win 95, Cpu PR 166MHz, 32MB 3.6 sec
>
> Na obou pocitacich je spustena prave tato aplikace,
> zadny neslouzi jako file/print server. Mista na disku
> je na obou 100x vice nez velikost generovane tabulky,
> ta je um�st�na ve stejn�m adres��i jako exe.
> Pro radovy rozdil opravdu nemam slov :(
>
> Milos Skacel
Jak je ten svet maly, OFF TOPIC
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 01.6.1998 23:41:58
ZAPLAT PAN BUH!!!!!
Microsoft by se musel stydet, mit reklamu u takoveho pocitacoveho
experta!
fronek(zv)fic(tec)cz
Petr Zahradnik wrote:
-------cut------
> Jo a jinak potom mi nabizel, jestli nechci na svuj Web umistit
> reklamu Microsoftu a ja jsem odmitl :-)))Pakovani databaze (2)
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 01.6.1998 23:46:39
Hi,
ty ses tak chytrej, ze bys mohl mysi chytat :-)
samozrejme, ze Database Desktop je nezavisly, vzdyt na pakovani pouziva
DbiDoRestructure, a to je (nevim jak u tebe) funkce BDE....
Petr Zahradnik wrote:
>
>
> To neni pravda, Database Desktop je nezavisly pouze pro editovani databazi,
> ale rozhodne ne pro pakovani databazi. Pakovat umi jen u dBase, Paradox
> a mozna FoxPro (to jsem nezkousel, protoze jsem liny). Nic jineho pakovat
> neumi a rozhodne nepakuje ani tabulky MS Access. Podivej se opravdu,
> u kterych tabulek to Pack je, a uvidis.Prepinani parent
[*] Zdeno Jasek <zdeno.delphi(zv)mailcity(tec)com> - 02.6.1998 00:40:35 -0700
>Dekuji za prvni kladne hodnoceni.
>
>Ales
>
> ----------
>Od: psoft
>Komu: delphi(zv)pinknet(tec)cz
>P=F8edm=ECt: Re: Prepinani parent
>Datum: 3. =E8erven 1998 0:10
>
>
>Neda mi, aby som sa nezapojil, pretoze toto uz davno pouzivam.
>Nezda sa mi, ze by som nejako plytval zdrojmi, ba prave naopak.
>Mam jedno okno, a spustu dalsich okien, ktore vytvaram za behu. Pri
To je ina kava. Nazov tejto temy je "Prepinani parent" a evokuje
stav, v ktorom vsetky komponenty existuju a ty len prepinas
ich parent, co by urcite bolo plytvanie zdrojmi.>potrebe zmenit typ pohladu zrusim aktualne okno a vytvorim ine a
>nasledne mu priradim parent:=3DHlavneOkno. Ma ta to sice za nasledok
Neni to presne to, co robi MDI aplikacia? Akurat sa nerusi
hlavne okno, ale ja vo svojom postupe ho zrusim, takze sa nase
postupy asi prilis nelisia...
>to, ze vykreslenie noveho okna nie je okamzite, ale trva nejaky
>zlomok sekundy, prave vtedy totiz vytvara komponenty. Dane okno je
>tiez "rychlejsie". co vidno pri jeho pouzivani, vtedy sa totiz
>neaktivuje notification pre milion komponentov, ako v povodnom
>zlozitom okne, ale len pre par, ktore su prave zobrazene. To ze su
>tam komponenty, ktore uzivatel nepotrebuje nie je pravda, ved prave
>nato to parent okno sluzi ...
>
>Navyse mam kazde dcerske okno nie TForm, ale odvodene od nejakeho ineho
>TParentForm=3Dclass(TForm), cim mozem v jednom zdrojaku nadefinovat
>vsetky spolocne veci, a odlisnosti potom v jednotlivych dcerskych
>oknach.
Toto som skusal tiez, ale narazil som s tym na problemy -
uz neviem ake. Problemy vyplyvali z toho, ze takyto sposob
IDE Delphi nejako nepodporovali, ale rad by som sa k tomu vratil,
ak tvrdis, ze je to mozne takto robit. Pouzivas nejake specialne
techniky?
>
>Vyhodou, ktoru pri takejto praci najviac ocenujem je to, ze mam viac
>zdrojovych suborov, v ktorych sa orientujem ovela lepsie ako v jednom
>megovom ...
>
>Pouzivam to dost dlho a musim povedat, ze to zatial nema chybu ...
>
>Mimochodom - ktosi poznamenal, ze je to chore, takato praca s oknom.
Neni to celkom chore, mne sa vsak ovela viac paci sposob,
ktory je celkom prirodzene podporovany aj Delphami bez nejakych
vlastnych vylepseni - zavesit na kazde MDI Child okno volanie
Close v metode Deactivate a je po probleme. Zda sa mi to len
jednoduchsie - to je vsetko.>Dovolte mi poznamenat, ze napr. aj obycajny TEdit je vlastne okno ... a
>takisto pouziva vlastnost parent na tento ucel. A to iste mnoho
>dalsich komponent. TForm je iba iny objekt, ktory ale nema miesto na
>palete komponent, ale inac ako ktorykolvek iny komponent. Samozrejme
>s inym vyznamom.
>
>P.S. : Bol by som rad, keby sme uz konecne zacali dodrziavat zasadu,
>ze sem tam stlacime pri pisani mailu ENTER. Lebo pripomienky k tejto
>teme sa mi citaju tazko, ked mi Pegasus zobrazi jeden riadok asi s
>300 znakmi a potom uz nic ...
Snazil som sa ....
Zdeno Jasek
>
>Dakujem.
>
>> ''''
>> (O O)
>> +-------------oOO------(_)--------------------+
>> | PSOFT, ing.Peter Cirip |
>> | Sibirska 18, 080 01 Presov, Slovensko |
>> | Mobil : 0903 601 068 091/723 104 |
>> | E-mail: psoft(zv)ke.telecom.sk |
>> | WEB : http://www.ke.telecom.sk/psoft/ |
>> +-------------------------------oOO-----------+
>> |__|__|
>> || ||
>> ooO Ooo
>>
>
Get your FREE, private e-mail
account at http://www.mailcity.com
Offtopic: NW a e-mail
[*] Dan Ohnesorg, admin of POWER <dan.ohnesorg(zv)feld.cvut(tec)cz> - 2.6.1998 00:48:17
On 1 Jun 98 at 22:48, Martin Fronek wrote:
> prosil bych odpoved do konference, obzvlaste od zastancu NW!
V tom citim nejakou narazku, jako by to melo nejit..... Pane Fronek,
uvedomte si laskave, ze novell tady byl v dobe, kdy existovaly
windows jen ve verzi 2.0 a ze existuji treba linuxy, ktere bezi
nepretrzite dele, nez jsou windows NT 4.0 vubec na svete.
Nuz pokud na tom trvate, ale tahle konference je pricipielne o necem
jinem, o netware je jina, velmi kvalitni, konference.
Pominu-li reseni luxusni a dokonala, vyuzivajici nejaky unixovy stroj
a vyzadujici na strane providera alespon zakladni znalosti o funkci
internetu, ktere jsou u provideru vybavenych technologii firmy
Microsoft (tm) velice vzacne, zbyva software od autora pmailu,
mercury32. Je to aplikace pro windows 95, ci NT bezici na stejnem
stroji s winproxy. Jeji funkce spociva v tom, ze pres POP3
nebo SMTP prijima postu z intenetu a potom ji rozdeluje do schranek
uzivatelu, soucasne odesila pripravenou postu do internetu. Pouziva
bud NAT ve winproxy, nebo se konekti primo adresou pridelenou
providerem. Obsahuje schleduler pro nahazovani linky, toho casu
vyvojovou verzi tridice posty podle regulernich vyrazu a samozrejme
pop klienta, pop server, smtp server, listserv (ten neni na dialupu
zrovna pouzitelny, ale budiz). Postu stahuje z libovolneho poctu
schranek. Spolupracuje s netware, takze doslou postu uklada do
mailovych adresaru uzivatelu, nacita z NW konfiguraci a podobne.
Samozrejme je mozny i single provoz bez NW a naveseni dalsich klientu
misto pmailu, treba exchange, netscape, linuxu a podobne.
Nikdy jsem neslysel stiznost na stabilitu, az na to, ze ve winnt
tuhne TCPIP stack, to ale postihuje vsechny aplikace vcetne winproxy.
A ze winnt obcas nepoznaji, ze padla linka a nemaji se k restartu
ppp.
zdravim
dan
________________________________________
DDDDDD
DD DD Dan Ohnesorg, supervisor on POWER
DD OOOO Dan(zv)feld.cvut(tec)cz
DD OODDOO Dep. of Power Engineering
DDDDDD OO CTU FEL Prague, Bohemia
OO OO work: +420 2 24352785;+420 2 24972109
OOOO home: +420 311 679679;+420 311 679311
________________________________________
Na svete jsou dva prostredky,
Jak se povznest:
bud vlastnimi schopnostmi,
anebo hlouposti jinych.GetFocus
[*] Pavel �emli�ka - 2.6.1998 06:50:54
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Lze v Delphi zachytit u komponenty DBGrid (nebo i u jin�) ud�lost podobnou
ud�losti GetFocus ve VisualBasicu ?
�emla
zemla(zv)cb.netforce(tec)cz
GetFocus
[*] Pavel �emli�ka - 2.6.1998 06:54:02
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Lze v Delphi u komponenty DBGrid (nebo i jine) zachytit udalost podobnou
udalosti GetFocus ve VisualBasicu ?
Zemla
zemla(zv)cb.netforce(tec)cz
DisableControls pro MD
[*] Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz> - 2.6.1998 07:25:28
Ahoj,
>
> pri pouziti DisableControls nad Master tabulkou nedochazi k aktualizaci
> mnoziny zaznamu v Detail tabulce.
> Jake byste doporucili reseni?
Na to uz jsem taky jednou narazil... Po x pokusech jsem to nakonec udelal
tak, ze po dobu behu "vypoctu" udelam DBgrid od Master tabulky (a pripadne
dalsi navazane DB komponenty) visible:=false; Neni to sice idelani reseni,
ale pomohlo.
S pozdravem
Pavel "Zizi" Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
mobil mailto:pavel.zichovsky(zv)sms.paegas(tec)cz
----------------------------
PGP podporovano a vitano
TCP/IP
[*] Juraj Chlebec <chlebec(zv)pefstud.uniag.sk> - 2.6.1998 07:43:21
Vie mi niekto poradit ako vytvorim program s funkciou Ping ?
Vdaka
Juro Ch. ExitWindowsEx()
[*] Marian Jon������گ��g�3��3 - 2.6.1998 07:45:24
>DDV,
>nevite nekdo, proc volani fce %subj% selze s hlaskou "klient neni
>vlastnikem pozadovaneho opravneni"
Tato procedura nastavi potrebna opravneni a provede restart na WinNT.
procedure RebootNT;
var
Pom:integer;
Token:THandle;
ShutDown:TLargeInteger;
TKP,OKP:TTokenPrivileges;
begin
StrPCopy(p,'SeShutdownPrivilege');
if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,Token) then
if LookupPrivilegeValue(nil,p,ShutDown) then
begin
TKP.PrivilegeCount:=1;
TKP.Privileges[0].Luid:=ShutDown;
TKP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(Token, False, TKP, Sizeof(TTokenPrivileges),
OKP ,Pom);
if GetLastError()=ERROR_SUCCESS then
begin
ExitWindowsEx(EWX_REBOOT,0);
end;
end;
end;*****************************************************
Marian Jonas jonas(zv)jia(tec)czn(tec)cz
Prog-Soft s.r.o.
INFOrmacni System pro vyrobce napoju
*****************************************************
TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.6.1998 07:50:09
-----Original Message-----
From: Juraj Chlebec <chlebec(zv)pefstud.uniag.sk>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 2. �ervna 1998 07:47
Subject: TCP/IP
>Vie mi niekto poradit ako vytvorim program s funkciou Ping ?
>Vdaka
> Juro Ch.
naucit se pracovat s UDP, seznamit se s funkcemi ICMP (echo request a
echo reply) a nejlip si z Inetu stahnout nejakej program se zdrojakem
ktery ping dela.... I v Delphi jich je na inetu prehrsel (DSP...)
Zdravi
D. Toman
Pakovani databaze (2)
[*] Marian Jon������گ��g�3��3 - 2.6.1998 07:56:00
>samozrejme, ze Database Desktop je nezavisly, vzdyt na pakovani pouziva
>DbiDoRestructure, a to je (nevim jak u tebe) funkce BDE....
V helpu D3 je psano ze funkce DbiDoRestructure chodi pouze s Paradoxem,
dBase, Foxpro. Access ani jine dalsi databaze nejsou podporovany. Samozrejme
jsem jim neveril, tak jsem to zkousel s Accessem a s VFP pres ODBC, bohuzel
to nefungovalo.
Jsou veci, ktere se nedaji napsat nezavisle na db platforme, sem prave patri
pakovani, zalohovani a podobne srandicky.
*****************************************************
Marian Jonas jonas(zv)jia(tec)czn(tec)cz
Prog-Soft s.r.o.
INFOrmacni System pro vyrobce napoju
*****************************************************
Offtopic: NW a e-mail
[*] Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz> - 2.6.1998 07:59:40
> Hi,
>
> prosil bych odpoved do konference, obzvlaste od zastancu NW!
Klidne.
Na NW serveru mam nainstalovany Mercury (mail transport od autora Pegasus
Mailu), ktery je zcela zdarma. Posta do internetu se z Pmailu ulozi do
spool adresare (nastaveno pomoci Pconfig), ze ktereho si to vezme Mercury,
a posle na zadany SMTP server (nastaven na WinProxy). Ta uz zaridi zbytek.
Prijem probiha tak, ze Winproxy stahne postu z POP3, a malej programek
(ktery jsem si udelal za 1 den) to vezme z Winproxy (POP3) a posle na SMTP
server Mercury, a ten uz zaridi prideleni posty prislusnemu uzivateli.
Jinak ohledne Pegasus Mailu (a mercury apod.) existuje konference na
adrese pmail-cz(zv)fee.vutbr(tec)cz
S pozdravem
Pavel "Zizi" Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
mobil mailto:pavel.zichovsky(zv)sms.paegas(tec)cz
----------------------------
PGP podporovano a vitano
Tip pro Vas
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 2.6.1998 08:41:07
> -----P�vodn� zpr�va-----
> Od: Ladislav Nagy [SMTP:lada(zv)kolej.mff.cuni(tec)cz]
> www.marcocantu.com
[T.B.]
Pridej to na http://www.delphi(tec)cz/, prosim...
Tomas
MDI Child & maximalizace
[*] RADIK(zv)p15.monet(tec)cz - 2.6.1998 08:43:00
Slo mi o to, jestli mas v MDI formu menu, protoze v jeho radku se
zobrazuji ikony max, min a close od MDI childu, pokud je child
maximalizovan.... s maximalizaci hlavniho okna to nemelo nic
spolecneho.... Pokud tam menu je, namam dalsi napad.
Ales
----------
Od: MIS
Komu: DELPHI Distribution List
P�edm�t: Re: MDI Child & maximalizace
Datum: 1. �erven 1998 15:29
Zdravim..
Na hlavnim okne menu samozrejme mam a to hlavni okno maximalizovat
i minimalizovat muzu.
Jakub
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 1. �ervna 1998 13:17
P�edm�t: RE: MDI Child & maximalizace
>Mas na hlavnim okne menu? Bez nej se podle me nemaji ikony kam
>zobrazit....
>
>Ales
>
> ----------
>Od: MIS
>Komu: delphi(zv)pinknet(tec)cz
>P�edm�t: MDI Child & maximalizace
>Datum: 1. �erven 1998 9:55
>
> Dobry den preji..
>
>Doufam ze se o tomto problemu uz desetkrat nediskutovalo, jestli ano,
>prosim aby mi nekdo kdo je v obraze odpovedel ne do konference
>ale do posty :)
>
>Kdyz si vytvorim form jako MDI Child, spustim program a pak toho childa
>maximalizuju, listy splynou hezky, ale uplne mi zmizi ikony pro jeho
>minimalizovani a maximalizovani, coz se mi nelibi :P Je to chybnym
>nastavenim nejake vlastnosti toho childa nebo je chyba nekde jinde?
>Bizardni na tom je, ze kolegovi to vetsinou funguje spravne (vetsinou -
>nekdy se mu to stane taky) , ale nepodarilo se nam najit jediny rozdil.
>
> Predem dik za odpoved..
> Jakub Holubec
>
>
>Click vs doubleclick
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 2.6.1998 08:53:56
> -----Original Message-----
> From: Petr Slovak [SMTP:petr(zv)trilog(tec)cz]
> Sent: 27. m�j 1998 20:11
> To: delphi(zv)io.pinknet(tec)cz
> Subject: Click vs doubleclick
>
> Mam tento problem: potrebuju rozlisit click a doubleclick. Na Click
> chci vyvolat jednu akci
> a na DoubleClick jinou. Myslel jsem si, ze to musi byt jednoduche, ale
> narazil jsem.
> Existuji tri udalosti WM_LBUTTONDOWN, WM_LBUTTONUP a WM_LBUTTONDBLCLK
>
> Kdyz kliknu mysi jednou, tak se vyvolaji v tomto poradi:
> WM_LBUTTONDOWN a
> WM_LBUTTONUP
>
> Kdyz doubleclicknu, tak se vyvolaji v tomhle poradi:WM_LBUTTONDOWN,
> WM_LBUTTONUP, WM_DBLCLK a WM_LBUTTONUP
>
[Ondrej Kelle] Ano, tak to funguje.
> Nevim, jak odchytavanim techto udalosti zareaguji spravne a ne tak, ze
> na doubleclick
> spustim obe akce.
>
[Ondrej Kelle] Ale to je spravne. Doubleclick bez
Click-u jednoducho neexistuje.
> Myslel jsem si, ze to okoukam ze zdrojaku Delphi. Kazdy objekt ma
> prece udalost
> OnClick a OnDblClick. Jenze bohuzel: pri doubleclicku se mi vyvolaji
> obe udalosti.
>
> Prece to nemuze byt tak tezke. Vsude ve Windowsech se s tim clovek
> setkava, ze click
> proveden nejakou akci a doubleclick jinou.
>
[Ondrej Kelle] Mohol by si uviest jeden priklad?
Tvoja otazka ma zaskocila. Na prvy pohlad sa zda
logicke, aby doubleclick a click boli oddelene. Ale len na prvy pohlad.
Pustil som sa do toho a narazil som rovnako ako Ty. Problem je v tom, ze
pri prvom kliknuti nevies, ci bude nasledovat druhe. Jedinym riesenim je
pockat urcity cas (vid funkcia GetDoubleClickTime) a presvedcit sa.
Ak nadalej trvas na tom, ze potrebujes odlisit
doubleclick, potom zrejme potrebujes po prijati WM_LBUTTONUP pouzit
PeekMessage a pozriet sa, ci v message queue "nevisi" aj
WM_LBUTTONDBLCLK. Vysledok je nechutny... Odpoved na kazde kliknutie je
o poznanie pomalsia. Myslim si ale, ze to je jedina cesta.
procedure TForm1.Click;
var
Start, DoubleClick : Integer;
Msg : TMsg;
DoubleClicked : Boolean;
begin
Start := GetTickCount;
DoubleClick := Start + GetDoubleClickTime;
DoubleClicked := False;
while not DoubleClicked do
begin
DoubleClicked := PeekMessage(Msg, Handle, WM_LBUTTONDBLCLK,
WM_LBUTTONDBLCLK, PM_NOREMOVE);
if Msg.time > DoubleClick then
Break;
end;
if not DoubleClicked then
inherited;
end;
Ondrej Kelle
it(zv)nnsk.sk
Prepinani parent
[*] RADIK(zv)p15.monet(tec)cz - 2.6.1998 08:59:00
Dekuji za prvni kladne hodnoceni.
Ales
----------
Od: psoft
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Re: Prepinani parent
Datum: 3. �erven 1998 0:10
Neda mi, aby som sa nezapojil, pretoze toto uz davno pouzivam.
Nezda sa mi, ze by som nejako plytval zdrojmi, ba prave naopak.
Mam jedno okno, a spustu dalsich okien, ktore vytvaram za behu. Pri
potrebe zmenit typ pohladu zrusim aktualne okno a vytvorim ine a
nasledne mu priradim parent:=HlavneOkno. Ma ta to sice za nasledok
to, ze vykreslenie noveho okna nie je okamzite, ale trva nejaky
zlomok sekundy, prave vtedy totiz vytvara komponenty. Dane okno je
tiez "rychlejsie". co vidno pri jeho pouzivani, vtedy sa totiz
neaktivuje notification pre milion komponentov, ako v povodnom
zlozitom okne, ale len pre par, ktore su prave zobrazene. To ze su
tam komponenty, ktore uzivatel nepotrebuje nie je pravda, ved prave
nato to parent okno sluzi ...
Navyse mam kazde dcerske okno nie TForm, ale odvodene od nejakeho ineho
TParentForm=class(TForm), cim mozem v jednom zdrojaku nadefinovat
vsetky spolocne veci, a odlisnosti potom v jednotlivych dcerskych
oknach.
Vyhodou, ktoru pri takejto praci najviac ocenujem je to, ze mam viac
zdrojovych suborov, v ktorych sa orientujem ovela lepsie ako v jednom
megovom ...
Pouzivam to dost dlho a musim povedat, ze to zatial nema chybu ...
Mimochodom - ktosi poznamenal, ze je to chore, takato praca s oknom.
Dovolte mi poznamenat, ze napr. aj obycajny TEdit je vlastne okno ... a
takisto pouziva vlastnost parent na tento ucel. A to iste mnoho
dalsich komponent. TForm je iba iny objekt, ktory ale nema miesto na
palete komponent, ale inac ako ktorykolvek iny komponent. Samozrejme
s inym vyznamom.
P.S. : Bol by som rad, keby sme uz konecne zacali dodrziavat zasadu,
ze sem tam stlacime pri pisani mailu ENTER. Lebo pripomienky k tejto
teme sa mi citaju tazko, ked mi Pegasus zobrazi jeden riadok asi s
300 znakmi a potom uz nic ...
Dakujem.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
>Click vs doubleclick (oprava)
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 2.6.1998 09:01:52
> -----Original Message-----
> From: Kelle Ondrej
> Sent: Tuesday, June 02, 1998 8:54 AM
> To: 'DELPHI Distribution List'
> Subject: RE: Click vs doubleclick
> if Msg.time > DoubleClick then
> Break;
>
> Oprava:
>
> if GetTickCount > DoubleClick then
> Break;
>
> Sorry za preklep. Ono nejake to kliknutie obcas sposobi aj veci
> nechcene... :)
> Ondrej Kelle
> it(zv)nnsk.sk
Offtopic: NW a e-mail
[*] Martin Fron�k <fronek(zv)fic(tec)cz> - 2.6.1998 09:02:03
Hi,
narazka to samozrejme je, netvrdim ze to vubec nejde, ale neni to zbytecne pouzivat jakesi nahradni reseni, kdyz to v prostredi NT jest naprosto prirozene? To, ze NT jsou novejsiho data, nedava Novelu a spol zadny narok na to byt lepsi, leda ze jsou sice vyzkousenejsi, ale take zastarale (dle meho nazoru byl Novell velmi dobry - ale ve sve dobe ! - diky zaspani vedeni se stal dnes nepouzitelnym pro rozsahlejsi site). Dnes od serveru ocekavam mnohem vice, nez jen souborove a tiskove sluzby. Nyni se sice Novell trochu probira, ale me to pripada spis ze jako umirajici kolem sebe kope... Tim, ze Novell nepovolil distribuci klientskych souboru spolu s win3.11 se definitivne zahrabal. NT WKS na tom nejsou o mnoho lip, klienta napsal MS, aby pomohl stavajicim uzivatelum v prechodnem obdobi. A pokud jste si nevsiml, tak Win95 s podporou NW taky prilis nehyri. Novell udelal vlastniho klienta, videl jste tu hruzu? Pomaly, nespolehlivy... Tak mi reknete, k cemu je me server, ke kteremu neni dostacujici klientsky SW? Ovsem, jak znamo, kdo chce psa bit, hul si vdycky najde, tak jen bijte do NT... Lepsi server na platforme Intel stejne nenajdete... Moje ucta. Martin Fronek.
fronek(zv)fic(tec)cz
-----Original Message-----
From: Dan Ohnesorg, admin of POWER [SMTP:dan.ohnesorg(zv)feld.cvut(tec)cz]
Sent: Tuesday, June 02, 1998 12:48 AM
To: delphi(zv)pinknet(tec)cz
Subject: Re: Offtopic: NW a e-mail
On 1 Jun 98 at 22:48, Martin Fronek wrote:
> prosil bych odpoved do konference, obzvlaste od zastancu NW!
V tom citim nejakou narazku, jako by to melo nejit..... Pane Fronek,
uvedomte si laskave, ze novell tady byl v dobe, kdy existovaly
windows jen ve verzi 2.0 a ze existuji treba linuxy, ktere bezi
nepretrzite dele, nez jsou windows NT 4.0 vubec na svete.
Na svete jsou dva prostredky,
Jak se povznest:
bud vlastnimi schopnostmi,
anebo hlouposti jinych.
[Martin] Povznasi Vas moje hloupost. To me tesi!
DisableControls pro MD
[*] RADIK(zv)p15.monet(tec)cz - 2.6.1998 09:07:00
To je logicke, protoze detail tabulka je s master tabulkou spojena pres
master
DataSource, a jeho aktualizace je zakazana tim
master.DisableControls.....
Bud nesmis davat disablecontrols, nebo si vytvor duplicitne TTably na
stejnou
tabulku a vypocty delej v jinych tablech nez jsou zobrazeny.....
Ales
----------
Od: Miloslav Skacel
Komu: 'DELPHI Distribution List'
P�edm�t: DisableControls pro MD
Datum: 1. �erven 1998 15:46
Ahoj,
pri pouziti DisableControls nad Master tabulkou nedochazi k aktualizaci
mnoziny zaznamu v Detail tabulce.interprocess communication
[*] Jirka Fejfar in CRLY <fejfarj(zv)login(tec)cz> - 2.6.1998 09:22:15
Ahoj,
onehdy jsem delal mailslot, chodilo to perfektne jenom mezi stanicemi s
Win95, na WinNT jsem se nemohl napojit.
Pak jsem zkousel named pipes, ale u tech se 'videly' akorat WinNT, a napojit
nesly stanice s Win95.
Nevite nekdo o nejakym triku, jak by se to dalo vyresit ?
Jde mi o zajisteni interprocess communication mezi procesy, ktere jsou
spusteny na ruznych stanicich v siti (WinNT 4.0, Win95).
Diky.
__________________
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
__________________
Podekovani : Stored procedure
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 2.6.1998 09:40:11
> Odes�latel: Roman Fara <fara(zv)c3(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Stored procedure
> Datum: 29. kv�tna 1998 13:05
Dikyza radu, funguje to bezva.
Ladislav Nagy.TCP/IP
[*] Jarda Venclu <venclu(zv)oez(tec)cz> - 2.6.1998 09:55:25
Na http://www.rtfm.be/fpiette/icsuk.htm najdes vse, co potrebujes. Nejen
Ping, ale i
vse kolem Ftp vcetne ukazek a zdroju. Pripadne Ti mohu vse poslat.
Ahoj Jarda venclu(zv)oez(tec)cz
-----P�vodn� zpr�va-----
Od: Juraj Chlebec <chlebec(zv)pefstud.uniag.sk>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervna 1998 7:52
P�edm�t: TCP/IP
>Vie mi niekto poradit ako vytvorim program s funkciou Ping ?
>Vdaka
> Juro Ch.
Offtopic: NW a e-mail
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 2.6.1998 09:59:05
> -----P�vodn� zpr�va-----
> Od: Martin Fronek [SMTP:FRONEK(zv)FIC.CZ]
> Odesl�no: 1. �ervna 1998 22:49
> Komu: DELPHI Distribution List
> P�edm�t: Re: Offtopic: NW a e-mail
>
> Hi,
>
> prosil bych odpoved do konference, obzvlaste od zastancu NW!
>
> fronek(zv)fic(tec)cz
> -------------------------------------------------------------
Poslal jsem to primo autorovi puvodniho dotazu, ale mohu i sem:
Da se to. Tak nejak to provozujememe my.
Na server se nainstaluje MERCURY (jakysi postovni urad) umoznujici praci s
Novellskou postou.
Teto Mercurce se rekne, ze ma postu vyzvedavat na protokolu TCP/IP z Tve
proxyny (u nas konkretne to taha z Linuxu ale je to zcela jedno, z Win Proxy to
taha kolega na OkU Tabor).
Lokalni uzivatele pouzivaji Pegasus Mail a to budto DOS nebo Windows. Pokud mas
uzivatele co maji Otlook (ci podobne veci), tak mohou postu vyzvedavat z
Mercury pomoci POP3. Pak je ale dobre rict, ze Mercury zpracovava veskerou
postu (tedy i tu interni) ==> muzes dostavat do Outlooku i postu z DOS masin
(adresuji Te jen tvym Novell jmenem).
Lze nastavit i Alias na prichozi postu (tzn. ze adresa blabla(zv)tady(tec)cz se doruci
na bleee(zv)tady(tec)cz), preposilani dosle posty, dorucovani posty na Novellske
skupiny a navic i synonyma na odeslanou postu (to je, ze Tva adresa se
standardne sklada z Novelljmeno(zv)tvadomena a ty muzes zaridit, ze bude
taksitopredstavujija(zv)tvadomena).
Cele toto zarizeni se sklada ze 4 NLM modulu, ktere musi bezet na serveru s
postovnimi adresari (pro NW3.x, na NW4.x v NDS modu Pegasa je to jedno) a pak
musis mit na serveru uchozen protokol TCP/IP.
Vsechno je FREE :-)
O problematice MERCURY + Pegasus probihaji diskuze na konferenci pmail-cz,
jejiz archiv je
http://www.fee.vutbr(tec)cz/info/listserv/mbox2html.cgi(tec)cz.windows-1250?/usr/loc
al/listproc/archives/lists/pmail-cz
(pokud brouzdas z Windows)
O problemech protokolu TCP/IP se pred casem silne debatovalo na konferenci
novell archiv
ftp://ksvi.ms.mff.cuni(tec)cz/lists/
O mercury se debaty tez vedly, ale konf. pmail-cz byla vice k veci
Snad jsem trochu pomohl
=======================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=======================================
Kvalita Paradox tabulek.
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 02.6.1998 10:14:00
No jednou se mi stalo, ze jsem u Accessu musel pouzit opravu databaze
(soubor mel okolo 200.000 zaznamu, velikost 80 MB a pocet useru najednou
okolo 15). Oprava probehla OK a vse zase jelo (program byl psan rovnez v
Accessu).
Ten jeden soubor mi pripada prehlednejsi (jsou v nem vsechny tabulky,
indexy, relace i pripadny program v Accessu). Proste mi to pripada
snadnejsi na udrzbu i zalohovani. Samozrejme pri jeho ztrate jsou
vsechny data v trapu. Pravda, u Paradoxu by asi ztrata jednoho souboru
nemusela byt tak tragicka. Co by se vsak stalo, kdyby ten soubor byl
relacne svazan s dalsimi daty (to by asi zpusobilo docela slusnou ztratu
taky).
Kazdopadne je mi jeden soubor sympatictejsi nez 50. (ale zase je to jen
muj nazor ;)
Mac
Miloslav Skacel wrote:
> Vyhodou je dle meho i jeden jedinny soubor a ne spousty drobnych > fajliku jako v Paradoxu.
>
>> Proc je spousty drobnych fajliku Paradoxu nevyhodou?
>> Muze jedna chyba v souboru Accessu zpusobit nedostupnost
>> vsech tabulek?
>>
>> Milos Skacel
Program manazer ve W95
[*] Daniel Jir�sek <daniel jirasek(zv)conel(tec)cz> - 2.6.1998 10:22:14
Zdravim,
nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
udelat v ?System.ini?, ale tady si nevim rady. Taky by me zajimalo, jestli se
da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
Za kazdou radu moc diky.
----------------------------------------------------------------------
Daniel Jirasek - Conel s.r.o.
Sokolska 71, 56203 Usti nad Orlici
Tel./fax: 0465 521020
E-mail: daniel_jirasek(zv)conel(tec)cz
----------------------------------------------------------------------
rychlost
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 02.6.1998 10:27:24
Tak to uz jsem taky zazil (ale ne tak razantni rozdil). Klietsky program
pro praci s MS SQL 6.5 pres ODBC pracuje znatelne rychleji na W95 nez na
NT 4.0 WKS. Pouzity protokol NetBeui. Cim to je zpusobeno netusim :-(
Mac
Miloslav Skacel wrote:
> trva na pocitaci s
> a/ Win NT Wks, SP3, NTFS, Cpu PR 233MHz, 64MB 43 sec
> b/ Win 95, Cpu PR 166MHz, 32MB 3.6 sec
BDE Access
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 2.6.1998 10:54:28
Zdravim vsetkych
Mam problem s otvorenim databazy Acces v Delphi 2.0
Ak otvorim tabulku alebo v databaze explorer alebo rovno v delphi, opyta sa
na
uzivatela a heslo a po zadani udajov sa jednoducho bez
vysvetlenia zruti bez akejkolvek chybovej spravy.
Neviete mi niekto poradit ako to rozchodit ? Uz sa s tym mesiac trapim :-((
Martin Falan
MFALAN(zv)usa.net
OffTopic: UDF & Interbase na Linuxu
[*] Marcel Telka <marcel(zv)vadium.sk> - 2.6.1998 10:54:03
Pre uplnost uvadzam uryvok z license
(http://www.interbase.com/download/linux/linux_lic_bef.html):
You may install and use the Software or the foregoing components provided
that
(1) the Software is used only with the Red Hat Linux 4.2 operating system,
and
(2) each copy of the Software (or its individual components) is a true
and complete copy, including all copyright
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
>
>Tim jsem si nebyl naprosto jist take, takze jsem nevahal a zeptal se primo
>u Interbase,
>zda provozovani IB 4.0 na Linuxu jinem nez RH 5 je legalni a tohle mi
>prislo:
>
>...
>
>The issue that Red Hat 5 has for InterBase (and many other 3rd
>party applications) is due to the fact that Red Hat uses GNU libc
>as their runtime library. This is a change from Red Hat 4.2,
>which did not use GNU libc as the default library.
>
>GNU libc is a new (relatively speaking) implementation of the C
>runtime library, and it has a number of design differences
>and/or bugs that cause applications that worked with the old libc
>to crash.
>
>We have heard reports from a number of customers who have
>tweaked their Red Hat 5 installations to restore the old libc as
>the default, and they have found that InterBase (and Netscape
>and other apps) run fine after that. But since we haven't tested
>in anything other than the standard "out of the box" Red Hat
>configuration, we cannot claim that it has passed our Quality
>Assurance testing process. Officially speaking, we
>do not recommend any OS configuration we have not certified.
>
>But, based on the above I am more than happy to let you try.... let
>me know how things go.
>
>Regards
>Paul Beach
>Director - Business Development
>InterBase Software Corporation
>A Subsiduary of Inprise Corporation
>8 Pavilions
>Ruscombe Business Park
>Twyford
>Berkshire RG10 9NN
>Phone: +44 (0) 1189 241451
>Fax: +44 (0) 1189 320017
>E-Mail:pbeach(zv)corp.inprise.com
>
>...
>
>Takze legalni to je. V licenci je to uvedeno pouze proto, ze IB jako firma
>neruci
>za funkcnost IB na jinych distribucich OS.
>
> Cau, Pavel
>
>
>
>Pokial si dobre pamatam licencnu dohodu o IB 4 na Linux, tak je tam
>vyslovne
>uvedene,
>ze IB 4 je mozne pouzit vyhradne s RH Linux 4.2. V ostatnych pripadoch
>(pokial som to spravne pochopil) dochadza k poruseniu licencie na FREE IB
>4.
>
>Ing. Marcel Telka <marcel(zv)vadium.sk>
>Vadium s.r.o., Plzenska 4, 080 01 Presov
>http://www.vadium.sk/ Tel./fax: 091/721 160
>
<none>
[*] Petr Rosol <rosol(zv)victory(tec)cz> - 2.6.1998 10:59:47
unsubcribe rosol(zv)victory(tec)cz
ExitWindowsEx()
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 2.6.1998 11:23:28
DDV,
diky, tohle jsem prehledl, ale po prohlidce helpu mne popadla panika.
Nema to jiz nekdo zabalene do Deplhi fce?
Nejak nevim, napr co s nasledujicim:
TokenHandle
Identifies the access token that contains the privileges to be
modified
TokenHandle - je to handle aplikace? Jak jej zjistim u konzolovky,
kdyz oproti D2 u D3 se zmenila implementace TApplication a tedy
Application.Handle vraci sverepe nulu? Nechte jsem se tak dostal do
netusenych vod, glo glo glo...
> v helpu pisou, ze pro EWX_REBOOT musi mit aplikace
> privilegia SE_SHUTDOWN_NAME, a dale v Remarks se
> pise, ze to lze zapnout funkci AdjustTokenPrivileges.
> Treba to pomuze.
>
> Cau Pavel
>
> -----Original Message-----
> From: Ales Zeleny <zelenya(zv)mlp(tec)cz>
> To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Date: 1. �ervna 1998 19:26
> Subject: ExitWindowsEx()
>
>
> DDV,
> nevite nekdo, proc volani fce %subj% selze s hlaskou "klient neni
> vlastnikem pozadovaneho opravneni"
>
> volani z moji app:
>
> if not ExitWindowsEx(
> EWX_FORCE + EWX_REBOOT, // shutdown operation
> 0 // reserved
> ) then
>
>
>
>
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.ExitWindowsEx()
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 2.6.1998 11:29:15
DDV,
100 000x diky, tohle bych potil opravdu DLOUHO a nevim, zda v\by to
vedlo k vysledku.
P.S.: Priste bych si mel precist celou postu a pak teprve se ptat po
necem, co jiz v poste mam, omlouvm se a jeste jednou DIKY!!!!!!!!
>
> >DDV,
> >nevite nekdo, proc volani fce %subj% selze s hlaskou "klient neni
> >vlastnikem pozadovaneho opravneni"
>
>
> Tato procedura nastavi potrebna opravneni a provede restart na WinNT.
>
> procedure RebootNT;
> var
> Pom:integer;
> Token:THandle;
> ShutDown:TLargeInteger;
> TKP,OKP:TTokenPrivileges;
> begin
> StrPCopy(p,'SeShutdownPrivilege');
> if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or
> TOKEN_QUERY,Token) then
> if LookupPrivilegeValue(nil,p,ShutDown) then
> begin
> TKP.PrivilegeCount:=1;
> TKP.Privileges[0].Luid:=ShutDown;
> TKP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
> AdjustTokenPrivileges(Token, False, TKP, Sizeof(TTokenPrivileges),
> OKP ,Pom);
> if GetLastError()=ERROR_SUCCESS then
> begin
> ExitWindowsEx(EWX_REBOOT,0);
> end;
> end;
> end;
>
>
> *****************************************************
> Marian Jonas jonas(zv)jia(tec)czn(tec)cz
> Prog-Soft s.r.o.
> INFOrmacni System pro vyrobce napoju
> *****************************************************
>
>
>
>
>
>
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Pakovani databaze (2)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.6.1998 11:58:26
> > To neni pravda, Database Desktop je nezavisly pouze pro editovani databazi,
> > ale rozhodne ne pro pakovani databazi. Pakovat umi jen u dBase, Paradox
> > a mozna FoxPro (to jsem nezkousel, protoze jsem liny). Nic jineho pakovat
> > neumi a rozhodne nepakuje ani tabulky MS Access. Podivej se opravdu,
> > u kterych tabulek to Pack je, a uvidis.
>
> ty ses tak chytrej, ze bys mohl mysi chytat :-)
>
> samozrejme, ze Database Desktop je nezavisly, vzdyt na pakovani pouziva
> DbiDoRestructure, a to je (nevim jak u tebe) funkce BDE....
Sve invektivy prosim neposilej do konference, smeruj je do kos(zv)clexpert(tec)cz
a nebo do sveho kose. Radeji si misto chytrych recicek spust Database
Desktop a pak nam tady muzes prednaset o nezavislosti pakovani
a funkci DbiDoRestructure.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Paradox Table BUM
[*] Marek Soukup <marek(zv)comberg(tec)com> - 02.6.1998 12:29:25
Ahoj delfini,
mam nasledujici problem, jedna moje Pradoxacka database hlasi na mem
poci (Win95, Delphi 2.0) chybu Division bu Zero pri pokusu o pakovani z
Database Desktopu. Potom co to Desktop nahlasi tak zatune a uz se ani
nehne. Zkusil jem i reindexaci pres NdxBuild, ale bohuzel se stejnym
vysledkem. Naopak ted uz tabulku ani neotevru, hlasi Unable to open
table, index out of date. Mohl by mi negdo zkusenejsi laicky vysvetlit
kde sem udelal chybu, jak se tomu pro priste vyvarovat a jesli mam
nejakou sanci tabulku opravit. Prinejhorsim mam zalohu, ale stejne by me
zajimalo co se s tim da delat.
Sorry za tak dlouhej mail a diky za jakejkoli podnet, jestli se to
tu probiralo budu vdecnej za mejliky primo me: marek(zv)comberg.com
Marek Soukup
nespecialista na Delphi
Z Delphi do Asm
[*] VTech Kavan <vtech(zv)kavan.org> - 02.6.1998 12:36:18
ja se na to kouknu, VTech
Martin Nedopil wrote:
> Ahoj,
>
> je tu nekdo, kdo by byl ochoten a schopen prepsat nasledujici zdrojak do
> Asm. Hrozne by mi to urychlilo programy :-)
>
> Function StrToken(AText:string;Index:integer):string;
> const DefChar:char='|';
> var i:integer;
> begin
>
> AText:=AText+DefChar;
> I:=2;
> while I<=Index do begin
> AText:=Copy(AText,Pos(DefChar,AText)+1,255);
> Inc(I);
> end;
> StrToken:=Copy(AText,1,Pos(DefChar,AText)-1);
> end;
>
> Je to fce, ktera rychle rozpitva retezec "ahoj;1;2;3;ahojka" na jednotlive
> useky oddelene strednikem.
> Je rychla, ale ne MOC rychla.
>
> Dekuji vsem
>
> Martin Nedopil
> nedopil(zv)geocities.com
> Delphi kitchen�: http://www.geocities.com/Athens/Olympus/5260
ExitWindowsEx()
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 2.6.1998 13:02:19
Zkus komponentu http://sunsite.icm.edu.pl/delphi/ftp/d20free/wreboot.zip
Tam je vsechno vcetne nastavovani prav.
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
>DDV,
>diky, tohle jsem prehledl, ale po prohlidce helpu mne popadla panika.
>Nema to jiz nekdo zabalene do Deplhi fce?
GetFocus
[*] V�t�zslav Gazda������u��n�?��? - 2.6.1998 13:25:20
V delphi je to udalost OnEnter.
Vita
TCP/IP
[*] Juraj Chlebec <chlebec(zv)pefstud.uniag.sk> - 2.6.1998 13:54:02
Ahoj,
>
> >Vie mi niekto poradit ako vytvorim program s funkciou Ping ?
> >Vdaka
> > Juro Ch.
>
> naucit se pracovat s UDP, seznamit se s funkcemi ICMP (echo request a
> echo reply) a nejlip si z Inetu stahnout nejakej program se zdrojakem
> ktery ping dela.... I v Delphi jich je na inetu prehrsel (DSP...)
Opytam sa trochu inak. Chcem zistit LEN ci je pocitac na sieti a aktivny.
Ako? Neviem na ktory port sa mam obratit. Staci mi platna odpoved od
pocitaca z nainstalovanym TCP/IP a ako ju spracovat.
Vdaka
JCH
interprocess communication
[*] Marcel Telka <marcel(zv)vadium.sk> - 2.6.1998 13:58:55
Ahoj,
Preco nepouzijes TCP/IP?
Je to univerzalnejsie ako interprocess communication.
Ale mozno to nie je to co potrebujes.
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
>Ahoj,
>
>onehdy jsem delal mailslot, chodilo to perfektne jenom mezi stanicemi s
>Win95, na WinNT jsem se nemohl napojit.
>
>Pak jsem zkousel named pipes, ale u tech se 'videly' akorat WinNT, a
napojit
>nesly stanice s Win95.
>
>Nevite nekdo o nejakym triku, jak by se to dalo vyresit ?
>
>Jde mi o zajisteni interprocess communication mezi procesy, ktere jsou
>spusteny na ruznych stanicich v siti (WinNT 4.0, Win95).
>
>Diky.
>__________________
>
> Jiri Fejfar
> e-mail: fejfarj(zv)login(tec)cz
>__________________
>
>OffTopic: UDF & Interbase na Linuxu
[*] stingp1.eti(zv)mail.cez(tec)cz - 2.6.1998 14:23:17
Boze, ja prece netvrdim, ze to v licenci neni, jestli vam nestaci
predchozi vyjadreni od Paula Beache, ze to skutecne zakazane
neni, tak uz opravdu nevim. Jeste jednou - mail, ktery jsem posilal
Interbasi, se nejak zatoulal i do Nemecka, a opet prisla odpoved,
ktera jen potvrzuje predchozi mail:
>>> Can anyone tell me, if I can legally use Interbase 4.0
on RedHat Linux 5.0? In license agreement for IB 4.0
for Linux is, that this product is for use
with RH Linux 4.2 only. <<<
That's correct. But as Michael Tossy stated out in the newsgroups
(news://forums.inprise.com/interbase.public.linux) is isn't prohibited:
Start------------------------------------MT--------------------------------
----
If you are running on anything other than Redhat 4.2, no problem, but
please let us know what you are running on and if you had to do anything
to get it to work.
------------------------------------MT------------------------------------E
nd
Apart form that you may run into problems that we don't support (e.g.
building Linux-Application that need to be compiled with the "old"
libraries).
Hope this helps
Regards
INPRISE
Hersteller von Borland und VisiBroker Produkten
i.A. Matthias Eissing
Vertriebsbeauftrager Corporate Licences
-----------------------------------------------
Tel.: +49-6103-979-270
FAX: +49-6103-979-295
eMail: MEissing(zv)corp.Inprise.com
Snad Vas to uklidni a presvedci. Ale to uz jsem se dostal dost daleko
od puvodniho zameru - a to dozvedet se neco o knihovnach UDF a Interbasi
S pozdravem
Pavel Stingl
stingp1.eti(zv)mail.cez(tec)cz
marcel(zv)vadium.sk na 02.06.98 09:54:03
Odpov?zte pros?m - delphi(zv)pinknet(tec)cz
Komu: delphi(zv)pinknet(tec)cz
Kopie: (Na v?dom?: Stingl Pavel/2310/ETI/CEZ)
P?edm?t: Re: OffTopic: UDF & Interbase na Linuxu
Pre uplnost uvadzam uryvok z license
(http://www.interbase.com/download/linux/linux_lic_bef.html):
You may install and use the Software or the foregoing components provided
that
(1) the Software is used only with the Red Hat Linux 4.2 operating system,
and
(2) each copy of the Software (or its individual components) is a true
and complete copy, including all copyright
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
Prepinani parent
[*] RADIK(zv)p15.monet(tec)cz - 2.6.1998 15:06:00
Rozdil proti MDI tu je.
1. MDI je tvorena pro vice oken v hlavnim. Ja tam mam vzdy jen jedno. A
vic jich mit nechci.
2. MDI pocita s tim, ze child okno se chova jako okno. Na titlebar, muze
se minimalizovat, maximalizovat, zavirat..... To taky nechci. Pokud ja
tomu panelu,
co mu nastavuju parent, dam align na client, tak to mam vzdy pres cele
hlavni okno,
necpou se mi tam tlacitka na max, min, close, nejsde child okno zavrit
klavesnici
apod.....
To jsou ty rozdily.
Ja delam databazovou apl., tak kdyz umoznim uzivatelum MDI (vice oken,
vice pohledu), tak tam budu vic nez doma...... Kdyby to bylo vice
oddelenych dokumentu (MD), tak toberu....
ALEs
----------
Od: Zdeno Jasek
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Re: Prepinani parent
Datum: 2. �erven 1998 9:40
>Dekuji za prvni kladne hodnoceni.
>
>Ales
>
> ----------
>Od: psoft
>Komu: delphi(zv)pinknet(tec)cz
>P=F8edm=ECt: Re: Prepinani parent
>Datum: 3. =E8erven 1998 0:10
>
>
>Neda mi, aby som sa nezapojil, pretoze toto uz davno pouzivam.
>Nezda sa mi, ze by som nejako plytval zdrojmi, ba prave naopak.
>Mam jedno okno, a spustu dalsich okien, ktore vytvaram za behu. Pri
To je ina kava. Nazov tejto temy je "Prepinani parent" a evokuje
stav, v ktorom vsetky komponenty existuju a ty len prepinas
ich parent, co by urcite bolo plytvanie zdrojmi.>potrebe zmenit typ pohladu zrusim aktualne okno a vytvorim ine a
>nasledne mu priradim parent:=3DHlavneOkno. Ma ta to sice za nasledok
Neni to presne to, co robi MDI aplikacia? Akurat sa nerusi
hlavne okno, ale ja vo svojom postupe ho zrusim, takze sa nase
postupy asi prilis nelisia...
>to, ze vykreslenie noveho okna nie je okamzite, ale trva nejaky
>zlomok sekundy, prave vtedy totiz vytvara komponenty. Dane okno je
>tiez "rychlejsie". co vidno pri jeho pouzivani, vtedy sa totiz
>neaktivuje notification pre milion komponentov, ako v povodnom
>zlozitom okne, ale len pre par, ktore su prave zobrazene. To ze su
>tam komponenty, ktore uzivatel nepotrebuje nie je pravda, ved prave
>nato to parent okno sluzi ...
>
>Navyse mam kazde dcerske okno nie TForm, ale odvodene od nejakeho ineho
>TParentForm=3Dclass(TForm), cim mozem v jednom zdrojaku nadefinovat
>vsetky spolocne veci, a odlisnosti potom v jednotlivych dcerskych
>oknach.
Toto som skusal tiez, ale narazil som s tym na problemy -
uz neviem ake. Problemy vyplyvali z toho, ze takyto sposob
IDE Delphi nejako nepodporovali, ale rad by som sa k tomu vratil,
ak tvrdis, ze je to mozne takto robit. Pouzivas nejake specialne
techniky?
>
>Vyhodou, ktoru pri takejto praci najviac ocenujem je to, ze mam viac
>zdrojovych suborov, v ktorych sa orientujem ovela lepsie ako v jednom
>megovom ...
>
>Pouzivam to dost dlho a musim povedat, ze to zatial nema chybu ...
>
>Mimochodom - ktosi poznamenal, ze je to chore, takato praca s oknom.
Neni to celkom chore, mne sa vsak ovela viac paci sposob,
ktory je celkom prirodzene podporovany aj Delphami bez nejakych
vlastnych vylepseni - zavesit na kazde MDI Child okno volanie
Close v metode Deactivate a je po probleme. Zda sa mi to len
jednoduchsie - to je vsetko.>Dovolte mi poznamenat, ze napr. aj obycajny TEdit je vlastne okno ... a
>takisto pouziva vlastnost parent na tento ucel. A to iste mnoho
>dalsich komponent. TForm je iba iny objekt, ktory ale nema miesto na
>palete komponent, ale inac ako ktorykolvek iny komponent. Samozrejme
>s inym vyznamom.
>
>P.S. : Bol by som rad, keby sme uz konecne zacali dodrziavat zasadu,
>ze sem tam stlacime pri pisani mailu ENTER. Lebo pripomienky k tejto
>teme sa mi citaju tazko, ked mi Pegasus zobrazi jeden riadok asi s
>300 znakmi a potom uz nic ...
Snazil som sa ....
Zdeno Jasek
>
>Dakujem.
>
>> ''''
>> (O O)
>> +-------------oOO------(_)--------------------+
>> | PSOFT, ing.Peter Cirip |
>> | Sibirska 18, 080 01 Presov, Slovensko |
>> | Mobil : 0903 601 068 091/723 104 |
>> | E-mail: psoft(zv)ke.telecom.sk |
>> | WEB : http://www.ke.telecom.sk/psoft/ |
>> +-------------------------------oOO-----------+
>> |__|__|
>> || ||
>> ooO Ooo
>>
>
Get your FREE, private e-mail
account at http://www.mailcity.com
Pripojeni Oracle8 pres ODBC
[*] Jiri Malek <jirim(zv)mrkev.vabo(tec)cz> - 02.6.1998 15:15:39
Nazdarek,
resim konzlovou aplikaci v D3 C/S na NT4.0 SP3.
Tato aplikace se snazi nacist data z Oracle8 pres
ODBC (chce to tak zakaznik). Program vypada
takto:
var aSQL : tQuery
begin
aSQL:=TQuery.Create(nil);
aSQL.DatabaseName:=odbc_alias;
aSQL.SQL.Add('SELECT * FROM cispop');
writeln('Pripojuji se k databazi');
try
aSQL.Open;
except
writeln('Chyba pri pripojeni, zkontrolujte data.');
aSQL.Free;
Exit;
end;
writeln('Provadim vypocet ...');
ale vysledek je prekvapivy:
vypise se "Pripojuji ..." a aplikace skonci bez toho,
aby napsala "Chyba ..." nebo "Provadim ...". Proste se
zastavi na otevreni SQL bez jakekoliv hlasky.
Napada vas, co s tim?
Diky za jakekoliv odpovedi ...
- Jiri Malek -
MDI Child & maximalizace
[*] MIS <mis(zv)login(tec)cz> - 2.6.1998 15:41:45
Heh.. omlouvam se za svou nebetycnou tupost, ale mate naprostou
pravdu - ja tam to menu zapomnel dat :-((
Kazdopadne dekuji za upozorneni :)
Jakub Holubec
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervna 1998 11:03
P�edm�t: Re: MDI Child & maximalizace
>Slo mi o to, jestli mas v MDI formu menu, protoze v jeho radku se
>zobrazuji ikony max, min a close od MDI childu, pokud je child
>maximalizovan.... s maximalizaci hlavniho okna to nemelo nic
>spolecneho.... Pokud tam menu je, namam dalsi napad.
>
>Ales
>
>
> ----------
>Od: MIS
>Komu: DELPHI Distribution List
>P�edm�t: Re: MDI Child & maximalizace
>Datum: 1. �erven 1998 15:29
>
> Zdravim..
>
> Na hlavnim okne menu samozrejme mam a to hlavni okno maximalizovat
>i minimalizovat muzu.
>
> Jakub
>
> -----P�vodn� zpr�va-----
>Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
>Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
>Datum: 1. �ervna 1998 13:17
>P�edm�t: RE: MDI Child & maximalizace
>
>
>>Mas na hlavnim okne menu? Bez nej se podle me nemaji ikony kam
>>zobrazit....
>>
>>Ales
>>
>> ----------
>>Od: MIS
>>Komu: delphi(zv)pinknet(tec)cz
>>P�edm�t: MDI Child & maximalizace
>>Datum: 1. �erven 1998 9:55
>>
>> Dobry den preji..
>>
>>Doufam ze se o tomto problemu uz desetkrat nediskutovalo, jestli ano,
>>prosim aby mi nekdo kdo je v obraze odpovedel ne do konference
>>ale do posty :)
>>
>>Kdyz si vytvorim form jako MDI Child, spustim program a pak toho childa
>>maximalizuju, listy splynou hezky, ale uplne mi zmizi ikony pro jeho
>>minimalizovani a maximalizovani, coz se mi nelibi :P Je to chybnym
>>nastavenim nejake vlastnosti toho childa nebo je chyba nekde jinde?
>>Bizardni na tom je, ze kolegovi to vetsinou funguje spravne (vetsinou -
>>nekdy se mu to stane taky) , ale nepodarilo se nam najit jediny rozdil.
>>
>> Predem dik za odpoved..
>> Jakub Holubec
>>
>>
>>
>Kontrola DateTime v String
[*] mstevlik(zv)gamo.sk - 2.6.1998 16:10:17
Nazdarek,
Nevie niekto ako vyriesit nasl. problem:
V "s: String" by som mal mat hodnotu typu DatumCas.
Po konverzii na TDateTime by som chcel mat tento DatumCas v "datum:
TDateTime"
Ak sa tam vsak nenachadza, "datum := NULL"
t.j.
s = '1.1.1998 13:00:01' potom datum = 1.1.1998 13:00:01
s = 'nezmysel' datum = NULL
Dik vopred
Majkl - mstevlik(zv)gamo.sk
Triggery, Before nebo After ?
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 2.6.1998 16:20:00
Ahoj
Zajimal by me Vas nazor. Mam aplikaci v Interbase, referencni integrita
je udelana pomoci triggeru, tj. triggry zajistuje kaskadni aktualizaci, vymaz atd.
Je pro tyhle triggry lepsi pouzivat Before nebo After ?
Predem dik za odpoved
Radim Kunz
==========================================================
Cesky CASE na http://www(tec)czechia.com/rksoft , beta verze, volne ke stazeni
==========================================================
Re[2]: Jmeno uzivatele
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 2.6.1998 17:57:19
No nasel jsem k ODBC v helpu todle
Using ODBC:
A Delphi application can use ODBC data sources (for example, Btrieve).
An ODBC driver connection requires:
A vendor-supplied ODBC driver.
The Microsoft ODBC Driver Manager.
The BDE configuration utility.
To set up a BDE alias for an ODBC driver connection, use the BDE Administration utility.
If You need to configure the SQL Links or ODBC driver for your application
prior to making the connection. SQL Links and ODBC parameters are stored in
the "Params" property of a database component.
Property Params je typu TStrings.
Podle mne se ten ConnectString dava do ty property PARAMS.
>>by to vypadat nejak takhle
>>
>>ConnectString :=
JFiC> 'Server:TESTE;DATABASE:DEVELOP;USR:ARNOST;PSWD:;ODBC:MSSQL'
>>
>>Opravdu si nemuzu spomenout jak se to presne dela, ale doufam, ze
>>aspon tento maly navod trochu pomuze.
>>
JFiC> No to je pravda, ze to existuje (napr. v MS ACCESS je to videt), ale nevim
JFiC> jak to tomu ODBC driveru rict z delphi, dost by mne potesilo, kdyby mi s tim
JFiC> nekdo helphnul ....
JFiC> __________________
JFiC> Jiri Fejfar
JFiC> e-mail: fejfarj(zv)login(tec)cz
JFiC> __________________
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
rychlost
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 2.6.1998 18:04:14
A jsou obe tabulky stejne velke?
Nevim jak je to s Indexama v Paradoxu, ale pokud jsou v samostatnem
file jako to ma Foxka, nemas napr. ty indexove soubory taky jinde?
MS> Ahoj,
MS> mel byste nekdo vysvetleni pro nasledujici skutecnost?
MS> Jednoducha zkusebni aplikace na testovani rychlosti,
MS> konkretne plneni tabulky Paradoxu v cyklu metodou
MS> Table.AppendRecord(klic,udaj1,udaj2...);
MS> trva na pocitaci s
MS> a/ Win NT Wks, SP3, NTFS, Cpu PR 233MHz, 64MB 43 sec
MS> b/ Win 95, Cpu PR 166MHz, 32MB 3.6 sec
MS> Na obou pocitacich je spustena prave tato aplikace,
MS> zadny neslouzi jako file/print server. Mista na disku
MS> je na obou 100x vice nez velikost generovane tabulky,
MS> ta je um�st�na ve stejn�m adres��i jako exe.
MS> Pro radovy rozdil opravdu nemam slov :(
MS> Milos Skacel
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Program manazer ve W95
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 2.6.1998 18:25:45
> nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
> Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
> ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
> udelat v ?System.ini?, ale tady si nevim rady. Taky by me
> zajimalo, jestli se
> da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
V registerch je pro to odpovidajici polozka :
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"Shell"="Explorer.exe"
McLEI
PS: sorry ale neoverovano......
mozna bude problem jak to vratit zpet pokud tvuj program neumi spoustet jiny
programy - tedy se nedostanes k regeditu.....Program manazer ve W95
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 2.6.1998 18:34:03
> nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
> Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
> ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
> udelat v ?System.ini?, ale tady si nevim rady. Taky by me
> zajimalo, jestli se
> da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
Sorry za prilis rychlou odpoved - to nasledujici je pro NT, v 95kach ta
cesta sice existuje v registrech ale polozka shell tam neni - ale da se
predpokladat ze to snad bude fungovat stejne
V registerch je pro to odpovidajici polozka :
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"Shell"="Explorer.exe"
PS: sorry ale neoverovano......
mozna bude problem jak to vratit zpet pokud tvuj program neumi spoustet jiny
programy - tedy se nedostanes k regeditu.....BDE Access
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 2.6.1998 18:42:18
No tak na todle jsen narazil i v D3 a bohuzel jsem neprisel co je s
tim. I ja bych rad vedel v cem je problem.
MT> Zdravim vsetkych
MT> Mam problem s otvorenim databazy Acces v Delphi 2.0
MT> Ak otvorim tabulku alebo v databaze explorer alebo rovno v delphi, opyta sa
MT> na
MT> uzivatela a heslo a po zadani udajov sa jednoducho bez
MT> vysvetlenia zruti bez akejkolvek chybovej spravy.
MT> Neviete mi niekto poradit ako to rozchodit ? Uz sa s tym mesiac trapim :-((
MT> Martin Falan
MT> MFALAN(zv)usa.net
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Re[2]: Pakovani databaze
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 2.6.1998 20:59:45
>> Existuje v BDE nejaka univerzalni podpora pro pakovani databazi nezavisle na
>> databazovem nastroji (MSSQL, ORACLE, SYBASE, DBASE, PARADOX, ACCESS, atd.) ?
PZ> NE.
PZ> BDE umi pakovat jen dBase a Paradox. MS Access umim pakovat primo pres
PZ> ODBC nebo DAO. A myslim, ze MS SQL, ORACLE a SYBASE zadne pakovani nemaji.
No ja si myslim, ze delat pakovani na SQL serverech je pekna
blbost. Protoze ty SQL servery maji vlastni management a zpravu
souboru. Ty berou data natvrdo z disku.
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
BDE Access
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 2.6.1998 21:35:40
Jo na to jsme narazili taky, kdyz jsme potrebovali naimportovat Accessovskou db pri prechodu na platformu MS SQL. Vyresili jsme to tak, ze jsme Accessovskou datab�zi prevedli do formatu Access 7.0. K takoveto databazi pristupujeme z Delphi pres ODBC. Sice se to zepta take na heslo, ale muzeme tam odkliknout cokoliv.
Funguje to bez problemu.
Zda se, ze chyba byla nekde v pristupu k Access2.0 databazim. V ODBC a BDE ??
S pozdravem Ladislav Nagy
Nainstalovali jsem
> No tak na todle jsen narazil i v D3 a bohuzel jsem neprisel co je s
> tim. I ja bych rad vedel v cem je problem.
>
> MT> Zdravim vsetkych
>
> MT> Mam problem s otvorenim databazy Acces v Delphi 2.0
> MT> Ak otvorim tabulku alebo v databaze explorer alebo rovno v delphi, opyta sa
> MT> na
> MT> uzivatela a heslo a po zadani udajov sa jednoducho bez
> MT> vysvetlenia zruti bez akejkolvek chybovej spravy.
>
> MT> Neviete mi niekto poradit ako to rozchodit ? Uz sa s tym mesiac trapim :-((
>
> MT> Martin Falan
> MT> MFALAN(zv)usa.net
>
>
>
>
> Best regards,
> Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
> Z Delphi do Asm
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.6.1998 21:38:18
VTech Kavan wrote:
>
> ja se na to kouknu, VTech
Ahoj,
Ja jsem to resil takto, ale treba to lze napsat jeste efektivnejsim zpusobem:
{$IFNDEF WIN32}
function StringToken(Text: String; Index: Byte; TokenChar: Char): String; assembler;
asm MOV DL,Index
MOV DH,TokenChar
CLD
PUSH DS
LES DI,(zv)Result
LDS SI,Text
XOR CH,CH
MOV CL,[SI]
JCXZ (zv)(zv)5
INC SI
MOV BX,SI
(zv)(zv)2: CMP [SI],DH
JNZ (zv)(zv)3
DEC DL
JZ (zv)(zv)4
INC SI
MOV BX,SI
JMP (zv)(zv)1
(zv)(zv)3: INC SI
(zv)(zv)1: LOOP (zv)(zv)2
(zv)(zv)4: CMP DL,2
JNC (zv)(zv)5
XCHG SI,BX
MOV CX,BX
SUB CX,SI
MOV AL,CL
STOSB
REP MOVSB
JMP (zv)(zv)End
(zv)(zv)5: MOV ES:[DI],CH
(zv)(zv)End: POP DS
end;
{$ELSE}
function StringToken(Text: String; Index: Integer; TokenChar: Char): String;
{$IFOPT H+}
var
P, StartPos: PChar;
begin
P := PChar(Pointer(Text));
if P = nil then Result := '' else
begin
StartPos := P;
while P^ <> #0 do if P^ = TokenChar then
begin
Dec(Index);
if Index = 0 then Break;
Inc(P);
StartPos := P;
end else Inc(P);
if Index > 1 then Result := '' else SetString(Result, StartPos, P - StartPos);
end;
end;
{$ELSE}
var
StartPos, Len, I: Integer;
begin
Len := Length(Text);
if Len = 0 then Result := '' else
begin
I := 1;
StartPos := I;
while I <= Len do if Text[I] = TokenChar then
begin
Dec(Index);
if Index = 0 then Break;
Inc(I);
StartPos := I;
end else Inc(I);
if Index > 1 then Result := '' else Result := Copy(Text, StartPos, I - StartPos);
end;
end;
{$ENDIF}
{$ENDIF}
Petr Vones, amatersky programator
>
> Martin Nedopil wrote:
>
> > Ahoj,
> >
> > je tu nekdo, kdo by byl ochoten a schopen prepsat nasledujici zdrojak do
> > Asm. Hrozne by mi to urychlilo programy :-)
> >
> > Function StrToken(AText:string;Index:integer):string;
> > const DefChar:char='|';
> > var i:integer;
> > begin
> >
> > AText:=AText+DefChar;
> > I:=2;
> > while I<=Index do begin
> > AText:=Copy(AText,Pos(DefChar,AText)+1,255);
> > Inc(I);
> > end;
> > StrToken:=Copy(AText,1,Pos(DefChar,AText)-1);
> > end;
> >
BDE Access
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.6.1998 21:39:59
Martin Talian wrote:
>
> Zdravim vsetkych
>
> Mam problem s otvorenim databazy Acces v Delphi 2.0
> Ak otvorim tabulku alebo v databaze explorer alebo rovno v delphi, opyta sa
> na
> uzivatela a heslo a po zadani udajov sa jednoducho bez
> vysvetlenia zruti bez akejkolvek chybovej spravy.
>
> Neviete mi niekto poradit ako to rozchodit ? Uz sa s tym mesiac trapim :-((
Ahoj,
Pouzivas pristup pres ODBC nebo primy ovladac na Access ? Pokud nemas posledni
verzi BDE 4.51 tak si ji stahni od Borlandu. Je to jako upgrade a funguje to
i s Delphi 2 a obsahuje nativni ovladace na Access. Ja s Accessem sice nepracuji,
ale zkousel jsem si otevrit tu demo databazi co je v M$ Office a fungovalo to
na prvni pohled bez problemu.
Petr Vones, amatersky programator
Triggery, Before nebo After ?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 2.6.1998 21:53:49
Before alebo after podla toho co robite.
Napriklad ked zapisujete systemovy cas do nejakeho policka zaznamu pri kazdej modifykacii tak jednoznacne after , lebo po bifore este zapis moze byt odmietnuty.
Neviem presne co robite, zavisi to iba na akcii.
Tungli
----------
> Od: Radim Kunz <rkunz(zv)ova.comp(tec)cz>
> Pre: Delphi CZ mailing list <delphi(zv)pinknet(tec)cz>
> Predmet: Triggery, Before nebo After ?
> D�tum: 2. j�n 1998 16:20
>
> Ahoj
>
> Zajimal by me Vas nazor. Mam aplikaci v Interbase, referencni integrita
> je udelana pomoci triggeru, tj. triggry zajistuje kaskadni aktualizaci, vymaz atd.
> Je pro tyhle triggry lepsi pouzivat Before nebo After ?
>
> Predem dik za odpoved
>
> Radim Kunz
>
>
>
> ==========================================================
> Cesky CASE na http://www(tec)czechia.com/rksoft , beta verze, volne ke stazeni
> ==========================================================
>
> rychlost
[*] Vesna <veselyt(zv)sagas(tec)cz> - 2.6.1998 21:59:47
Pouzival jsi DbiSaveChanges funkci?
Problem je v NT redirectoru. NTecka proste zcela jinak zapisuji.
Prepinani parent
[*] psoft <psoft(zv)kosice.telecom.sk> - 2.6.1998 22:10:47
> >RADIK(zv)p15.monet(tec)cz wrote:
> >> Pocul, pocul, tak chytrej jsem taky, ale TO NENI TO CO CHCI. Nechci
> >> otvirat vice oken najednou.
> >> Mam databazovou aplikaci a v ni nekolik velkych formularu na zobrazeni
> >> ruznych dat. A chci, abych mel jen jedno hlavni okno a to menilo vzhled
> >> podle formulare. Jedna moznost je napsat to do Notebooku, nebo neceho
> >> podobneho, ale pak je to v jednom zdrojaku. A takhle muzu mit kazdy
> >> formular v samostatnem formu.....
> >
> >Ahoj,
> >nezlob se na me, ale me to cely prijde tak trochu uchylny. Asi je to tim,
> >ze jsem programoval jeste v nevizualnich prostredich v DOSu a potom byl
> >na nejakou dobu pro me vrcholem "vizualnosti" Resource Workshop. Srovnam
> >li to s tim co dnes nabizi Delphi & spol, tak je to uplne o necem jinem.
> >Myslim si, ze ten TNotebook neni zase takova katastrofa, navic treba v
> >dalsich verzich Delphi muzou vziknout s tvym resenim problemy a ty budes
> >potrebovat svoji aplikaci prevest do vyssi verze a podobne.
> >
> >
> > Petr Vones, amatersky programator
> >
> >
> >
>
>
> Notebook aj prepinanie parent je podla mna katastrofa, pretoze alokujete Windowsovske zdroje pre vytvorenie komponentov, ktore uzivatel mozno pocas celej prace nebude potrebovat!
>
> Riesenie je MDI aplikacia, ktora ma na kazdom okne odchytenu udalost OnDeactivate a v nej ma volanie metody Close. Tak su splnene vsetky poziadavky na zobrazovanie aj na manipulaciu so zdrojmi, navy
> e taky sposob Delphi podporuju. Pre dve - tri zakladne o
Neda mi, aby som sa nezapojil, pretoze toto uz davno pouzivam.
Nezda sa mi, ze by som nejako plytval zdrojmi, ba prave naopak.
Mam jedno okno, a spustu dalsich okien, ktore vytvaram za behu. Pri
potrebe zmenit typ pohladu zrusim aktualne okno a vytvorim ine a
nasledne mu priradim parent:=HlavneOkno. Ma ta to sice za nasledok
to, ze vykreslenie noveho okna nie je okamzite, ale trva nejaky
zlomok sekundy, prave vtedy totiz vytvara komponenty. Dane okno je
tiez "rychlejsie". co vidno pri jeho pouzivani, vtedy sa totiz
neaktivuje notification pre milion komponentov, ako v povodnom
zlozitom okne, ale len pre par, ktore su prave zobrazene. To ze su
tam komponenty, ktore uzivatel nepotrebuje nie je pravda, ved prave
nato to parent okno sluzi ...
Navyse mam kazde dcerske okno nie TForm, ale odvodene od nejakeho ineho
TParentForm=class(TForm), cim mozem v jednom zdrojaku nadefinovat
vsetky spolocne veci, a odlisnosti potom v jednotlivych dcerskych
oknach.
Vyhodou, ktoru pri takejto praci najviac ocenujem je to, ze mam viac
zdrojovych suborov, v ktorych sa orientujem ovela lepsie ako v jednom
megovom ...
Pouzivam to dost dlho a musim povedat, ze to zatial nema chybu ...
Mimochodom - ktosi poznamenal, ze je to chore, takato praca s oknom.
Dovolte mi poznamenat, ze napr. aj obycajny TEdit je vlastne okno ... a
takisto pouziva vlastnost parent na tento ucel. A to iste mnoho
dalsich komponent. TForm je iba iny objekt, ktory ale nema miesto na
palete komponent, ale inac ako ktorykolvek iny komponent. Samozrejme
s inym vyznamom.
P.S. : Bol by som rad, keby sme uz konecne zacali dodrziavat zasadu,
ze sem tam stlacime pri pisani mailu ENTER. Lebo pripomienky k tejto
teme sa mi citaju tazko, ked mi Pegasus zobrazi jeden riadok asi s
300 znakmi a potom uz nic ...
Dakujem.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Program manazer ve W95
[*] Daniel Jirasek <daniel_jirasek(zv)conel(tec)cz> - 3.6.1998 07:29:49
Tak jsem to zkousel, ale nedospel jsem k zadnemu vysledku.
----------------------------------------------------------------------
Daniel Jirasek - Conel s.r.o.
Sokolska 71, 56203 Usti nad Orlici
Tel./fax: 0465 521020
E-mail: daniel_jirasek(zv)conel(tec)cz
----------------------------------------------------------------------
-----Puvodni zprava-----
Od: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
Odeslano: 2. eervna 1998 18:34
Komu: DELPHI Distribution List
Poedmit: FW: Program manazer ve W95
V registerch je pro to odpovidajici polozka :
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"Shell"="Explorer.exe"
Kontrola DateTime v String
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 3.6.1998 07:40:26
> Nevie niekto ako vyriesit nasl. problem:
> V "s: String" by som mal mat hodnotu typu DatumCas.
> Po konverzii na TDateTime by som chcel mat tento DatumCas v "datum:
> TDateTime"
> Ak sa tam vsak nenachadza, "datum := NULL"
> t.j.
> s = '1.1.1998 13:00:01' potom datum = 1.1.1998 13:00:01
> s = 'nezmysel' datum = NULL
Treba takhle:
var p: byte;
try
p := pos(' ',s);
datum := StrToDate( copy(s,1,p-1) )
+StrToTime( copy(s,p+1,255) );
except
datum := 0.00; { datum nemuze byt NULL }
end;
{ predpokladam, ze datum a cas oddeluje PRAVE JEDNA mezera;
jinak bych muzel hledat zacatek casu jako prvni nemezerovy
znak za p }
Hope it helps
Tom Re[2]: Pakovani databaze
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.6.1998 07:58:33
> >> Existuje v BDE nejaka univerzalni podpora pro pakovani databazi nezavisle na
> >> databazovem nastroji (MSSQL, ORACLE, SYBASE, DBASE, PARADOX, ACCESS, atd.) ?
>
> PZ> NE.
>
> PZ> BDE umi pakovat jen dBase a Paradox. MS Access umim pakovat primo pres
> PZ> ODBC nebo DAO. A myslim, ze MS SQL, ORACLE a SYBASE zadne pakovani nemaji.
>
> No ja si myslim, ze delat pakovani na SQL serverech je pekna
> blbost. Protoze ty SQL servery maji vlastni management a zpravu
> souboru. Ty berou data natvrdo z disku.
SQL servery ani zadne pakovani nemaji, aspon ne ty, co jsem videl ja.
Tam se snad da udelat jen nejaka reorganizace ci znovunacteni dat
do prazdne databaze.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Slozeny index
[*] V�t�zslav Gazda������u��n�?��? - 3.6.1998 08:08:39
Nedari se mi vytvorit tabulku DBASE se slozenym indexem:
oTable.IndexDefs.Add('MYINDEX','LASTNAME;FIRSTNAME',[]);
PARADOX i MSACCESS to vezme, ale DBASE ne.
Nevi nekdo co s tim ?
Zkusil jsem taky:
oTable.IndexDefs.Add('MYINDEX','LASTNAME+FIRSTNAME',[ixExpression]);
ale taky to nefunguje.
Taky jsem zjistil, ze to nefunguje pouze u nativniho ovladace DBASE. Pokud
pouziji ODBC ovladac pro DBASE tak to funguje.
Diky Vita
Format Paradox
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 3.6.1998 08:09:06
Ahoj,
dovolil bych si prednest svuj problem.
Badam nad bezpecnosti DB tabulek a chci si napsat vlastni
streamek, ktery by prochazel jednotlive zaznamy tabulky.
Zatim jsem vsak u hlavicky. Jeji struktura je dost zahada.
Mam dva ruzne zdroje, ktere se shodnou maximalne na
prvnich 32 bajtech. Pak uz je to magie. Zrovna jsem pred
problemem, jakeho je tabulka typu (3.5, 4, 5 nebo 7). Vytvoril
jsem si od kazdeho vzorku stejnou tabulku a porad na nic nemohu
prijit.
Zkusil jsem pohledat na inetu, a vypada to, ze nikdo nic nevi.
Pouzivam dokumenty
Paradox 4.x file formats od Kevina Mitchella
Kallista - The paradox file format
TPxHeader komponenta od jednoho manika z Turecka.
Ale ani tak to nejsem schopen dat dohromady.
Martin Nedopil
nedopil(zv)geocities.com
TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 3.6.1998 08:10:11
>Opytam sa trochu inak. Chcem zistit LEN ci je pocitac na sieti a
aktivny.
>Ako? Neviem na ktory port sa mam obratit. Staci mi platna odpoved od
>pocitaca z nainstalovanym TCP/IP a ako ju spracovat.
pokud to ma byt plne obecne pak je ping (echo request/echo replay)
idealni.
v jedna z prredeslych odpovedit na subj byl link na stranu, kde nabizely
celou radu komponent k problematice TCP/IP, snad tam jsou i zdrojaky.
Ping vyzaduje trochu low level manipulace s daty, ale neni to az tak
slozite.
V souboru ftp://ftp.fortech(tec)cz/pub/delphi/ping/sock.pas by mela byt
funkcni ukazka reseni pingu. Za uplnou spravnost nerucim - soubor vznikl
uz pred nejakym casem, kdy jsem se teprve seznamoval s WinSockem. Ale
snad pomuze.
S pozdravem
D. Toman
dtoman(zv)fortech(tec)cz
BDE Access
[*] pedskola <pedskolakv(zv)mbox.vol(tec)cz> - 3.6.1998 08:30:56
Jak se bavite o tom problemu s acesovou databazi, mam problem pripojit ji
pres
Driver Delphi- MSACCESS,rika mi to "Invalid parametr", ale podarilo se mi
pripojit tu databasi pres ODBC a klasickej ovladac Acessu, jenze to nema
pro nakou malou databazicku pro lokalni ucely smysl a navic musi clovek tu
databasi definovat v ODBC,
od vas bych aspon chtel jak pridat novou databasi do ODBC pri instalaci miho
programu, aby na to uzivatel nemusel ani hrabnout?
Diky Sopak
Program manazer ve W95
[*] VTech Kavan <vtech(zv)kavan.org> - 03.6.1998 08:38:27
zkus,
shell = tvujprog.exe, misto explorer.exe (soubor system.ini)
VTech
Daniel Jir�sek wrote:
> Zdravim,
> nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
> Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
> ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
> udelat v ?System.ini?, ale tady si nevim rady. Taky by me zajimalo, jestli se
> da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
>
> Za kazdou radu moc diky.
>
> ----------------------------------------------------------------------
> Daniel Jirasek - Conel s.r.o.
> Sokolska 71, 56203 Usti nad Orlici
> Tel./fax: 0465 521020
> E-mail: daniel_jirasek(zv)conel(tec)cz
> ----------------------------------------------------------------------
Slozeny index
[*] Vojt�ch Albrecht <supervisor(zv)unicontrols(tec)cz> - 3.6.1998 08:40:49
Ahoj ve spolek
Ja pouzivam
Table1.AddIndex('DENCAS','DEN+CAS',[ixExpression]);
Vojtech Albrecht
spravce pocitacoveho systemu
----------
Odes�latel: =?iso-8859-2?B?Vu107HpzbGF2IEdhemRh?=
Odesl�no: 3. �ervna 1998 8:09
Komu: DELPHI Distribution List
P�edm�t: Slozeny index
<<Soubor: ATT00006.txt>>Program manazer ve W95
[*] RADIK(zv)p15.monet(tec)cz - 3.6.1998 08:51:00
Ve W95 je polozka shell=explorer.exe ulozena v system.ini (sekce boot).
Tam se to da zmenit.....
Ales
----------
Od: Daniel Jirasek
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Program manazer ve W95
Datum: 3. �erven 1998 7:29
Tak jsem to zkousel, ale nedospel jsem k zadnemu vysledku.
----------------------------------------------------------------------
Daniel Jirasek - Conel s.r.o.
Sokolska 71, 56203 Usti nad Orlici
Tel./fax: 0465 521020
E-mail: daniel_jirasek(zv)conel(tec)cz
----------------------------------------------------------------------
-----Puvodni zprava-----
Od: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
Odeslano: 2. eervna 1998 18:34
Komu: DELPHI Distribution List
Poedmit: FW: Program manazer ve W95
V registerch je pro to odpovidajici polozka :
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon]
"Shell"="Explorer.exe"Triggery, Before nebo After ?
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 3.6.1998 09:12:01
Ahoj,
mam pocit, ze v pripade kaskadniho deletu je jedina mozna cesta trigger
BEFORE DELETE. Nemuzu prece zrusit master record dokud nemam zrusene
vsechny detaily - to by pak byla houby integrita. U updatu bude platit
asi totez, nicmene tohle se snazim nepouzivat.
Nakonec, koukal jsem do skriptu, ktere generuji nektere CASE nastroje a
tyhle triggery tam jsou skutecne vzdy BEFORE.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Radim Kunz
> Odesl�no: 2. �ervna 1998 16:20
> Komu: Delphi CZ mailing list
> P�edm�t: Triggery, Before nebo After ?
>
> Ahoj
>
> Zajimal by me Vas nazor. Mam aplikaci v Interbase, referencni
> integrita
> je udelana pomoci triggeru, tj. triggry zajistuje kaskadni
> aktualizaci, vymaz atd.
> Je pro tyhle triggry lepsi pouzivat Before nebo After ?
>
> Predem dik za odpoved
>
> Radim Kunz
>
>
>
> ==========================================================
> Cesky CASE na http://www(tec)czechia.com/rksoft , beta verze, volne ke
> stazeni
> ==========================================================interprocess communication
[*] Jirka Fejfar in CRLY <fejfarj(zv)login(tec)cz> - 3.6.1998 09:21:59
Ahoj,
popisu presneji o co mi jde,
budu mit serverovou aplikaci, ktera bude neco kontrolovat,
a v urcitych casovych intervalech bude vysilat zpravu o stavu toho neceho,
pak budu mit aplikace klienta (tech bude asi 10), ktery kdyz se spustej,
tak tu zpravu nejakym zpusobem dostanou,
serveru bude uplne jedno jestli nejakej klient bezi nebo ne,
mam pocit ze by to s TCP IP neslo moc dobre, ale nemam s TCP IP zkusenosti,
takze jestli by to pomoci TCP IP slo udelat, rad bych vedel jak,
zatim diky ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
__________________
-----Original Message-----
From: Marcel Telka <marcel(zv)vadium.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: Tuesday, 2 June 1998 21:00
Subject: Re: interprocess communication
>Ahoj,
>
>Preco nepouzijes TCP/IP?
>Je to univerzalnejsie ako interprocess communication.
>Ale mozno to nie je to co potrebujes.
>
>Ing. Marcel Telka <marcel(zv)vadium.sk>
>Vadium s.r.o., Plzenska 4, 080 01 Presov
>http://www.vadium.sk/ Tel./fax: 091/721 160
>
>
Re[2]: Kvalita Paradox tabulek.
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 3.6.1998 09:37:56
MS> S Accessem mam docela solidni
MS> zkusenosti co se tyka bezpecnosti dat (poruchovosti tabulek). Vyhodou je
^^^^^^^^^^^^^^^^^^^^^
He he he ... nekde na na strankach modryho sveta, je popsany, jak
zmenou 2 bytesu !!! se lze dostat do kazde Accessovske databaze :-)
Jestli ten clanek najdu, tak to sem poslu
MS> dle meho i jeden jedinny soubor a ne spousty drobnych fajliku jako v
MS> Paradoxu.
MS> Proc je spousty drobnych fajliku Paradoxu nevyhodou?
MS> Muze jedna chyba v souboru Accessu zpusobit nedostupnost
MS> vsech tabulek?
MS> Milos Skacel
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Re[2]: Aplikace nezavisla na BDE
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 3.6.1998 09:39:47
Hello Petr,
pond�l�, 1 �erven 98, you wrote to me:
PV> GRAAS Jan, Mgr. wrote:
>>
>> Prosim, mohl by mi nekdo poradit:
>>
>> Potreboval bych nejak obejit BDE, vim ze se to nejak da udelat, ale
>> nevim jak. Pripada mi zbytecne, abych v pripade ze delam jen nejaky
>> jednoduchy viewer o velikosti par kb, ktery nema zadne zvlastni funkce
>> nez jen prochazeni zaznamu tabulky a jejich zobrazovani ve formulari,
>> musel distribuovat BDE nebo delat instalacni program, ktery by definoval
>> aliasy, atd.
>> Chtel bych, aby tato aplikace byla funkcni na jinem pocitaci i tehdy,
>> kdyz na nej zkopiruji jen dva soubory: EXE soubor a paradox tabulku, bez
>> instalace nebo nastavovani IDAPI.
>>
>> Za pripadne namety predem dekuji. (Delphi 2).
PV> Ahoj,
PV> Obavam se ze v pripade Paradoxu to nebude vubec jednoduche, uz jen proto
PV> ze ani neni prilis znam format jeho souboru. Z tveho dotazu mi neni moc
^^^^^^^^^^^^^^^^^^^^^^^^^
Ja si myslel, ze je to ve formatu DBF. Podobny, tomoc co pouziva
FoxPro.
PV> jasne co je "jednoduchy viewer". Jedna se o aplikaci ktera ma byt schopna
PV> zobrazit libovolnou Paradox tabulku, nebo o konktretni velmi jednoduchou
PV> databazovou aplikaci ? Pokud se jedna o ten druhy pripad, tak je to mozne
PV> resit "nahradami BDE", ale ty vetsinou pouzivaji nejaky vlastni format
PV> souboru, jako napriklad QBD a nelze s nimi pouzivat datove komponenty Delphi.
PV> Urcitou moznost dava az Delphi 3 kde je jiz trida TDataSet nezavisla na
PV> BDE, takze je mozne si vytvorit vlastni databazovy format bez ztraty
PV> moznosti pouzivat datove komponenty. O neco takoveho jsem se jiz snazil :-)
PV> viz tema "Datasety bez BDE" v konferenci.
PV> Na druhou stranu bych nevidel distribuci aplikace s BDE tak cerne. Pomoci
PV> InstallShieldu se to da udelat pomerne elegantne, navic pokud uz na tom
PV> pocitaci BDE jednou bude, tak ta instalace neni nijak dlouha a na dve diskety
PV> se ti to v pohode vejde. Srovnej to treba s takovym IE 4.0 :-))
PV> Petr Vones, amatersky programator
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Zjisteni pripojeni na inet
[*] pedskola <pedskolakv(zv)mbox.vol(tec)cz> - 3.6.1998 09:49:24
Potrboval bych vedet jakou funkci zjistim ze sem momentalne pripojen na
Internet
nevite jaka API funkce nebo funkce Delphi to sprostredkuje?
Diky Sopak
Re[2]: Jmeno uzivatele
[*] Jirka Fejfar in CRLY <fejfarj(zv)login(tec)cz> - 3.6.1998 10:03:52
Ahoj a ne ne ne,
takhle to opravdu nejde,
1. zkus si v TDatabase pri definovani params zmacknout tlacitko defaults,
pak se ti objevi vsechny
moznosti, tyhlety parametry se tykaji akorat BDE (ktery je pak zprostredkuje
ODBC),
2. hledal jsem v BDE funkci na otevirani database, ktera je ekvivalentni k
API pro ODBC,
v ODBC je primo parametr ConnectString, kdezto v BDE nic takovyho neni
3. kdyz v ODBC definujes data source v panelu UserDSN, to se ti pak zobrazi
v BDE admin.,
ovsem v BDE nelze definovat jmeno aplikace ani jmeno workstation,
takze kdyz volas SQL server z BDE, tyto parametry jsou prazdne,
ale kdyz ODBC volas z ACCESu nebo treba z Developer Studia tak tam ty
informace jsou ...
takze z toho podle mne plyne, ze to Borland do BDE neimplementoval (coz me
strasne s..e, protoze musim v mejch stored procedurach tyhle parametry
pridavat),
zatim cao ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
__________________
-----Original Message-----
From: Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: Tuesday, 2 June 1998 20:10
Subject: Re[2]: Jmeno uzivatele
>No nasel jsem k ODBC v helpu todle
>
>Using ODBC:
>A Delphi application can use ODBC data sources (for example, Btrieve).
>An ODBC driver connection requires:
>
> A vendor-supplied ODBC driver.
> The Microsoft ODBC Driver Manager.
> The BDE configuration utility.
>
>To set up a BDE alias for an ODBC driver connection, use the BDE
Administration utility.
>
>If You need to configure the SQL Links or ODBC driver for your application
>prior to making the connection. SQL Links and ODBC parameters are stored in
>the "Params" property of a database component.
>
>Property Params je typu TStrings.
>
>Podle mne se ten ConnectString dava do ty property PARAMS.
>
Triggery, Before nebo After ?
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 3.6.1998 11:01:07
Zajimalo by mne jak by jsi todle impelementoval na M$ SQL 6.5 :-)
(ten totiz ma totiz jenom 3 trigery DELETE,INSERT a UPDATE a to je
vse)
VD> Ahoj,
VD> mam pocit, ze v pripade kaskadniho deletu je jedina mozna cesta trigger
VD> BEFORE DELETE. Nemuzu prece zrusit master record dokud nemam zrusene
VD> vsechny detaily - to by pak byla houby integrita. U updatu bude platit
VD> asi totez, nicmene tohle se snazim nepouzivat.
VD> Nakonec, koukal jsem do skriptu, ktere generuji nektere CASE nastroje a
VD> tyhle triggery tam jsou skutecne vzdy BEFORE.
VD> -----------------------------------------------------
VD> David Vodnansky - database analyst
VD> <mailto: vodnansky(zv)allianz(tec)cz>
VD> -----------------------------------------------------
>> -----P�vodn� zpr�va-----
>> Od: Radim Kunz
>> Odesl�no: 2. �ervna 1998 16:20
>> Komu: Delphi CZ mailing list
>> P�edm�t: Triggery, Before nebo After ?
>>
>> Ahoj
>>
>> Zajimal by me Vas nazor. Mam aplikaci v Interbase, referencni
>> integrita
>> je udelana pomoci triggeru, tj. triggry zajistuje kaskadni
>> aktualizaci, vymaz atd.
>> Je pro tyhle triggry lepsi pouzivat Before nebo After ?
>>
>> Predem dik za odpoved
>>
>> Radim Kunz
>>
>>
>>
>> ==========================================================
>> Cesky CASE na http://www(tec)czechia.com/rksoft , beta verze, volne ke
>> stazeni
>> ==========================================================
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Ako posuvat Form z property BorderStyle:=bsNone
[*] Juraj Chlebec <chlebec(zv)pefstud.uniag.sk> - 3.6.1998 11:09:27
Dakujem najprv vsetkym za rady ohladne Pingu. Nasiel som na spominanej
adrese vybornu free komponentu pre tuto funkciu.
Teraz by som sa rad spytal akym sposobom sa da pri nastaveni Form
BorderStyle:=bsNone posuvat okno po obrazovke. Vytvoril som si miesto na
ktorom kontrolujem OnMouseDown, OnMouseMove, OnMouseUp, funguje toale velmi to
preblikava. (Tag je komponenta TImage, DX, DY poloha pri zaciatku posuvania)
procedure TForm1.TagMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Flag:=True;
DX:=x;
DY:=y;
end;
procedure TForm1.TagMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Flag=true then
begin
Form1.Left:=Form1.Left+(DX-x);
Form1.Top:=Form1.Top+(DY-y);
end;
end;
procedure TForm1.TagMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Flag:=false;
end;
--------------------------------------------------------------------
Dakujem vam za radu.
JCH
Triggery, Before nebo After ?
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 3.6.1998 11:20:41
DDV,
zalezi na pouziti, pro kontrolu hodnot, nastaveni klicu, dohledani
vazeb je lepsi before, pro eventuelni zapis do log tabulek pouzivejte
after. Alespon me se tento postup osvedcil.
Pokud se Vam dostane do ruky beta IB5.11 pak opvsem pozor na jednu
"malickost" je tam prohozeno kontrolovani hodnot pomoci constaintu a
spusteni teriggeru.
Starsi verze:
1. Triggery
2. Constrainty
(tedy napr. trigger mohl pohodlne doplnit hodnotu klice tabulky pokud
vstup byl null, pokud tam bylo cislo, tak provedl kontrolu, zda je
vetsi nez nejvyssi pouzite a akceptoval ji (slo tak udelat mezeru v
klicich bez rizika ztraty integity)).
1. Constrainty
2. Triggery
(tedy, pokud ma lkic dosadit trigger nesmi byt v insertu toto
poleuvedeno a btw, trigger klidne do pole s constraintem >0 dosai
zaporne hodnoty :-((( )
Pozor na to, pri psani metadat pro IB!!!!!!!!!!> Zajimal by me Vas nazor. Mam aplikaci v Interbase, referencni
integrita je
> udelana pomoci triggeru, tj. triggry zajistuje kaskadni aktualizaci, vymaz
> atd. Je pro tyhle triggry lepsi pouzivat Before nebo After ?
>
> Predem dik za odpoved
>
> Radim Kunz
>
>
>
> ==========================================================
> Cesky CASE na http://www(tec)czechia.com/rksoft , beta verze, volne ke stazeni
> ==========================================================
>
>
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Autoincrementalni pole a InterBase
[*] RADIK(zv)p15.monet(tec)cz - 3.6.1998 11:49:00
Budu prenaset databazi z Pdoxu na IB. Jak je to s implementaci
autoinkrementalniho pole, resp. jak lze neco podovneho udelat treba
pomoci triggeru....
Ales
Re[2]: Aplikace nezavisla na BDE
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 3.6.1998 12:34:49
Zkuste (http://www.cit.org.by/users/sheino/sqldir.htm)
> -----P�vodn� zpr�va-----
> Od: Hubert [SMTP:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz]
> Odesl�no: 3. �ervna 1998 10:40
> Komu: DELPHI Distribution List
> P�edm�t: Re[2]: Aplikace nezavisla na BDE
>
> Hello Petr,
>
> pond�l�, 1 �erven 98, you wrote to me:
>
> PV> GRAAS Jan, Mgr. wrote:
> >>
> >> Prosim, mohl by mi nekdo poradit:
> >>
> >> Potreboval bych nejak obejit BDE, vim ze se to nejak da udelat, ale
> >> nevim jak. Pripada mi zbytecne, abych v pripade ze delam jen nejaky
> >> jednoduchy viewer o velikosti par kb, ktery nema zadne zvlastni funkce
> >> nez jen prochazeni zaznamu tabulky a jejich zobrazovani ve formulari,
> >> musel distribuovat BDE nebo delat instalacni program, ktery by
> definoval
> >> aliasy, atd.
> >> Chtel bych, aby tato aplikace byla funkcni na jinem pocitaci i tehdy,
> >> kdyz na nej zkopiruji jen dva soubory: EXE soubor a paradox tabulku,
> bez
> >> instalace nebo nastavovani IDAPI.
> >>
> >> Za pripadne namety predem dekuji. (Delphi 2).
>
> PV> Ahoj,
>
> PV> Obavam se ze v pripade Paradoxu to nebude vubec jednoduche, uz jen
> proto
> PV> ze ani neni prilis znam format jeho souboru. Z tveho dotazu mi neni
> moc
> ^^^^^^^^^^^^^^^^^^^^^^^^^
> Ja si myslel, ze je to ve formatu DBF. Podobny, tomoc co pouziva
> FoxPro.
>
> PV> jasne co je "jednoduchy viewer". Jedna se o aplikaci ktera ma byt
> schopna
> PV> zobrazit libovolnou Paradox tabulku, nebo o konktretni velmi
> jednoduchou
> PV> databazovou aplikaci ? Pokud se jedna o ten druhy pripad, tak je to
> mozne
> PV> resit "nahradami BDE", ale ty vetsinou pouzivaji nejaky vlastni format
>
> PV> souboru, jako napriklad QBD a nelze s nimi pouzivat datove komponenty
> Delphi.
> PV> Urcitou moznost dava az Delphi 3 kde je jiz trida TDataSet nezavisla
> na
> PV> BDE, takze je mozne si vytvorit vlastni databazovy format bez ztraty
> PV> moznosti pouzivat datove komponenty. O neco takoveho jsem se jiz
> snazil :-)
> PV> viz tema "Datasety bez BDE" v konferenci.
>
> PV> Na druhou stranu bych nevidel distribuci aplikace s BDE tak cerne.
> Pomoci
> PV> InstallShieldu se to da udelat pomerne elegantne, navic pokud uz na
> tom
> PV> pocitaci BDE jednou bude, tak ta instalace neni nijak dlouha a na dve
> diskety
> PV> se ti to v pohode vejde. Srovnej to treba s takovym IE 4.0 :-))
>
>
> PV> Petr Vones, amatersky
> programator
>
>
>
>
> Best regards,
> Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
> Program manazer ve W95
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 3.6.1998 12:37:06
> > nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
> > Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
> > ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
> > udelat v ?System.ini?, ale tady si nevim rady. Taky by me zajimalo, jestli se
> > da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
Nevim sice jak zakazat spusteni Program manageru, ale potreboval jsem taky
jednou, aby uzivatel nemel pristup k nicemu jinemu, nez k memu programu.
Muj program se spoustel v sekci Po spusteni (nebo jeste lepsi bude umistit jej
do registru: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Current
Version\Run)
a) Zakazal jsem Ctrl+Esc, Ctrl+Alt+Del:
Procedure SetSecurityOn;
Var LDummy:LongInt;
Begin
LDummy:=0;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, (zv)LDummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, (zv)LDummy, 0);
End;
Procedura pro navr�cen� do p�vodn�ho stavu:
Procedure SetSecurityOff;
Var LDummy:LongInt;
Begin
LDummy:=0;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, (zv)LDummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, (zv)LDummy, 0);
End;
b) A nakonec jsem jeste schoval desktop a panel nastroju. Jak schovat a
zobrazit panel nastroju je nize. Ale mam k tomu i komponentu pro Delphi 2
(bez zdrojaku), kde staci nastavit True/False pro desktop a True/False pro
panel nastroju a je to. Muzu ti ji poslat.
procedure hideTaskbar;
var wndHandle : THandle;
����wndClass : array[0..50] of Char;
begin
�StrPCopy((zv)wndClass[0], 'Shell_TrayWnd');
�wndHandle := FindWindow((zv)wndClass[0], nil);
�ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar
end;
procedure showTaskbar;
var wndHandle : THandle;
����wndClass : array[0..50] of Char;
begin
�StrPCopy((zv)wndClass[0], 'Shell_TrayWnd');
�wndHandle := FindWindow((zv)wndClass[0], nil);
�ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbar
end;
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Re[2]: Kvalita Paradox tabulek.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.6.1998 12:38:39
> MS> S Accessem mam docela solidni
> MS> zkusenosti co se tyka bezpecnosti dat (poruchovosti tabulek). Vyhodou je
> ^^^^^^^^^^^^^^^^^^^^^
> He he he ... nekde na na strankach modryho sveta, je popsany, jak
> zmenou 2 bytesu !!! se lze dostat do kazde Accessovske databaze :-)
> Jestli ten clanek najdu, tak to sem poslu
Jenze on myslel to, co pise v zavorkach :-))) To je jina bezpecnost...
*** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA *** POZOR ZMENA ***
Z duvodu stehovani jiz neplati telefonni/faxove cislo 047-5501627,
bude prelozeno, ale nikdo nevi, kdy to Telecom zvladne... Prozatim
prosim pouzivejte prechodne telefonni/faxove cislo 047-68510.
Adresa pro korespondenci zatim zustava beze zmen.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Defaultni vlastnosti z predchudcu
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 3.6.1998 12:48:37
Dopreho poledne vsem!
Mel bych takovyto dotaz! Mam z TCustomPanel
odvozeny objekt a i kdyz jsem mu k propertam
Hieght a Width nadefinoval default svoje vlastni hodnoty,
nedari se mi temito prepsat puvodni ktere uz TCustomPanel ma.
Nevite nekdo jak by se toto dalo uskutecnit, nebo kde mam chybu.
Dekuji za kazdou odezvu, Pavel.
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
OFF Linux a Interbase
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 3.6.1998 12:56:32
Zdravim,
mam moznost zridit listserver o Interbase na Linuxu. Jestli by nekdo mel
zajem se zucastnit debaty, poslete mail na moji soukromou adresu.
Pavel Chaloupka
E-Mail : chaloupka(zv)mboxzn(tec)cz
V�voj SW
interprocess communication
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 03.6.1998 13:00:18
Jirka Fejfar in CRLY wrote:
>
> Ahoj,
>
> popisu presneji o co mi jde,
>
> budu mit serverovou aplikaci, ktera bude neco kontrolovat,
> a v urcitych casovych intervalech bude vysilat zpravu o stavu toho neceho,
>
> pak budu mit aplikace klienta (tech bude asi 10), ktery kdyz se spustej,
> tak tu zpravu nejakym zpusobem dostanou,
>
> serveru bude uplne jedno jestli nejakej klient bezi nebo ne,
>
> mam pocit ze by to s TCP IP neslo moc dobre, ale nemam s TCP IP zkusenosti,
> takze jestli by to pomoci TCP IP slo udelat, rad bych vedel jak,
>
Ten server nemusi nic nikam posilat. Staci ten vysledek ukladat
nekam na nasdileny disk, kam ti klienti dokazou videt a odtud
si to ti klienti muzou dle libosti cist.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Vyhledavani v TreeView
[*] Norbert ADAMKO <norris(zv)frdsa.utc.sk> - 03.6.1998 13:37:22
At 22:52 1.6.1998 +0100, you wrote:
>> da se vyhledavat v TreeView vetev nejakou funkci (kdyz zadam text
obsahujici
>> jeji nazev) nebo si to musim udelat sam?
>
>Myslim, ze neda, ale neni to problem - udelej si jednoduchy FOR .. TO ..
>
Nedoporucujem pouzit FOR ... TO ... ono to totiz nie je pole,
aj ked sa k tomu tak da pristupovat, ak sa pozriete do zdrojakov Delphi,
zistite, ze ak chcete Items[2] vykona to
for i:=0 to 2 do
Node.GetNext
Result := Node;
alebo nieco v tom zmysle.
Takze pri pouziti for .. to by sa to cele zbytocne prehladavalo n/2 krat.
Robil som to presne tak isto a bolo to nehorazne pomale.
Doporucujem pouzit :
while Node<>nil do
Node.GetNext
Dufam, ze to pomoze.
Norris
--------------------------
Norbert ADAMKO
University of Zilina
--------------------------
mailto:norris(zv)frdsa.utc.sk
http://norris(zv)frdsa.utc.sk
--------------------------
Zjisteni pripojeni na inet
[*] Marcel Telka <marcel(zv)vadium.sk> - 3.6.1998 13:45:40
Polozme si recnicku otazku:
Co to znamena pripojeny na Internet?
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
>Potrboval bych vedet jakou funkci zjistim ze sem momentalne pripojen na
>Internet
>nevite jaka API funkce nebo funkce Delphi to sprostredkuje?
>Diky Sopak
>Kontrola DateTime v String
[*] V�t�zslav Gazda������u��n�?��? - 3.6.1998 13:52:36
Moc jsem to nepochopil, ale na prevod stringu na TDateTime je funkce
StrToDateTime. Pokud muzou byt ve stringu i nesmysly tak to dej mezi try
except.
function Test(cString:string):TDateTime;
begin
try
Result := StrToDateTime(cString);
except
Result := 0;
end;
end;
Vita
interprocess communication
[*] Marcel Telka <marcel(zv)vadium.sk> - 3.6.1998 14:31:53
Preco by to cez TCP/IP nemalo ist?
Mozes to urobit podobne ako je robena vacsina komunikacie po Internete:
Jeden server a viacero klientov. Ak je klient aktivny (priklad: www
browser), tak dostava
od servera (priklad: www server) nejake data (www stranku, informacie o
stave volacoho).
Pozn.: Toto riesenie vyzaduje, aby serveru nebolo uplne jedno, ci klient
bezi alebo nie.
Musi vediet, kam posielat data. Mam vsak taky pocit, ze riesenie cez IPC
taktiez
vyzaduje znalost servera o tom, ci klient bezi alebo nie (musi vediet s kym
nadvezuje
komunikaciu).
Mozno by sa to dalo riesit nejakymi broadcastami (ale len na lokalnej
sieti).
Este ma napadla jedna vec:
Skus sa na to pozriet tak, ze klient sa bude pytat servra na stav niecoho
a ten mu odpovie a posle mu stav. Neviem si dost dobre predstavit, ako
to chces spravit, aby server to LEN TAK posielal do siete.
Ked sa na to pozriem z druhej strany, tak vlastne aj to IPC musi
bezat na nejakom protokole (teraz ma napadlo: bude to v sieti alebo na
lokale?)
a je pravdepodobne, ze to moze byt prave TCP/IP.
Mne sa na tom nezdalo prave to, ze server by to mal posielat do neznama.
TCP/IP je na nizsej urovni ako IPC a teda mozes komunikovat aj s klientami,
ktori
o IPC v zivote nepoculi (napr. DOS, Win31).
Dufam, ze som aspon trosku pomohol...
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
PS: Ked som si to znovu precital, tak som zistil ze som napisal poriadny
chaos,
ale uz nemam sil to upravovat. (-:>Ahoj,
>
>popisu presneji o co mi jde,
>
>budu mit serverovou aplikaci, ktera bude neco kontrolovat,
>a v urcitych casovych intervalech bude vysilat zpravu o stavu toho neceho,
>
>pak budu mit aplikace klienta (tech bude asi 10), ktery kdyz se spustej,
>tak tu zpravu nejakym zpusobem dostanou,
>
>serveru bude uplne jedno jestli nejakej klient bezi nebo ne,
>
>mam pocit ze by to s TCP IP neslo moc dobre, ale nemam s TCP IP
zkusenosti,
>takze jestli by to pomoci TCP IP slo udelat, rad bych vedel jak,
>
>zatim diky ...
>__________________
>
> Jiri Fejfar
> e-mail: fejfarj(zv)login(tec)cz
>__________________
>
>-----Original Message-----
>From: Marcel Telka <marcel(zv)vadium.sk>
>To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Date: Tuesday, 2 June 1998 21:00
>Subject: Re: interprocess communication
>
>
>>Ahoj,
>>
>>Preco nepouzijes TCP/IP?
>>Je to univerzalnejsie ako interprocess communication.
>>Ale mozno to nie je to co potrebujes.
>>
>>Ing. Marcel Telka <marcel(zv)vadium.sk>
>>Vadium s.r.o., Plzenska 4, 080 01 Presov
>>http://www.vadium.sk/ Tel./fax: 091/721 160
>>
>>
>
>Registrace nove stranky do Zmije
[*] Alexander Jurman <ajur(zv)mia(tec)cz> - 3.6.1998 14:51:59
> Vazeni pratele, potvrzuji registraci Vasich stranek.
>
> Na svoje stranky si muzete vlozit tento kod, abyste ctenare
> upozornili, ze Zmije vzdy informuje o aktualisaci stranek.
>
> <p>
>
> <a href="http://www.zmije(tec)cz">
> <img src="http://www.zmije(tec)cz/news/zmije.gif" width="88" height="31"
> alt="Zmije - hled� a najde!" border="0">
> </a>
>
> </p>
>
>
> Znamenam se, Alexander Jurman
Ako pohybovat okno bez Title bar-u ...
[*] Juraj Chlebec <chlebec(zv)pefstud.uniag.sk> - 3.6.1998 15:22:14
No pobzeral som sa po tomto probleme po sieti a tu
http://www.mindspring.com/~cityzoo/tips/floatwin.txt
som nasiel riesenie.
(Zatial nevyskusane)
Mozno vas to bude zaujimat ...
JCH
Udalost
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 3.6.1998 15:41:19
Jeste jednou dopreho odpoledne vsem!
Jakou udalost mam odchytavat kdyz potrebuju u PaintBoxu zjistit
okamzik vstupu mysi do jeho oblasti a okamzik jejiho opusteni.
V podstate by to melo jit s tim jak se meni kurzor pro danou oblast,
ale nemuzu naji tu udalost.
Diky za rady, Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
MSSQL pristup pres ODBC
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 3.6.1998 15:42:48
Hi all,
Pristupuji do MSSQL 6.5 SP4 pres ODBC (Pres nativni ovladac nefunguje
typ DateTime typ) a pokud v TTable nastavim TTable.IndexFieldNames na
jeho primary key, tak pri zavirani tabulky se objevi
Exception EAccessViolation in module IDODBC32.DLL at 00021ACB.
Access violation at address 4DA01ACB in module IDODBC32.DLL. Read of
address CCCCCCE0.
Tabulka ma v primary key (int, datetime) a ostatni jsou varchar a int
Nevite nekdo cim to a co s tim. Jinak vse ostatni funguje, ale pouze
kdyz je nastaveny index, tak nejde TTable.Close.
Diky
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/
Aplikacia s databazami a bez
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.6.1998 16:10:43
psoft wrote:
> 1. otazka : ako najjednoduchsie vytvorit v zdrojaku prepinanie mezdi
> tymito verziami / asi zrejme cez podmieneny preklad.
> 2.
> prihodi pouzitie databaz. Nedari sa mi proste vyhodit unity, ktore
> suvisia s databazami, hoci nepouzivam ziadny databazovy komponent.
> Ako najlahsie zistit, v ktorom unite alebo komponente pouzivam
> databazu ?
Zkompiluj program s uplatnenim bodu 1.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Re[4]: Jmeno uzivatele
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 3.6.1998 16:23:22
To je zajimavy. Sam pracuji s M$ Developer Studio, a tak mne ani
nenapadlo, ze by se na to Borland vykaslal... Mozna je nekde, nejaka
hrozna funkce BDE, ktera to snad dokaze.... jeste se podivam.
JFiC> Ahoj a ne ne ne,
JFiC> takhle to opravdu nejde,
JFiC> 1. zkus si v TDatabase pri definovani params zmacknout tlacitko defaults,
JFiC> pak se ti objevi vsechny
JFiC> moznosti, tyhlety parametry se tykaji akorat BDE (ktery je pak zprostredkuje
JFiC> ODBC),
JFiC> 2. hledal jsem v BDE funkci na otevirani database, ktera je ekvivalentni k
JFiC> API pro ODBC,
JFiC> v ODBC je primo parametr ConnectString, kdezto v BDE nic takovyho neni
JFiC> 3. kdyz v ODBC definujes data source v panelu UserDSN, to se ti pak zobrazi
JFiC> v BDE admin.,
JFiC> ovsem v BDE nelze definovat jmeno aplikace ani jmeno workstation,
JFiC> takze kdyz volas SQL server z BDE, tyto parametry jsou prazdne,
JFiC> ale kdyz ODBC volas z ACCESu nebo treba z Developer Studia tak tam ty
JFiC> informace jsou ...
JFiC> takze z toho podle mne plyne, ze to Borland do BDE neimplementoval (coz me
JFiC> strasne s..e, protoze musim v mejch stored procedurach tyhle parametry
JFiC> pridavat),
JFiC> zatim cao ...
JFiC> __________________
JFiC> Jiri Fejfar
JFiC> e-mail: fejfarj(zv)login(tec)cz
JFiC> __________________
JFiC> -----Original Message-----
JFiC> From: Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz>
JFiC> To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
JFiC> Date: Tuesday, 2 June 1998 20:10
JFiC> Subject: Re[2]: Jmeno uzivatele
>>No nasel jsem k ODBC v helpu todle
>>
>>Using ODBC:
>>A Delphi application can use ODBC data sources (for example, Btrieve).
>>An ODBC driver connection requires:
>>
>> A vendor-supplied ODBC driver.
>> The Microsoft ODBC Driver Manager.
>> The BDE configuration utility.
>>
>>To set up a BDE alias for an ODBC driver connection, use the BDE
JFiC> Administration utility.
>>
>>If You need to configure the SQL Links or ODBC driver for your application
>>prior to making the connection. SQL Links and ODBC parameters are stored in
>>the "Params" property of a database component.
>>
>>Property Params je typu TStrings.
>>
>>Podle mne se ten ConnectString dava do ty property PARAMS.
>>
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Fax
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 3.6.1998 17:02:25
Nevi nekdo o nejake i uplne jednoduche faxovaci komponente?
Uz tady byl podobny dotaz od nekoho v breznu, ale jedina odpoved
byla - kup si Async Pro, ten to umi. Ale ja nechci jit s delem za 279
dolaru na mravence.
Potrebuju odfaxovat jednoduchy textovy dokument na zadane cislo.
Podle meho laickeho pohledu na vec mi staci nejaka MAPI
komponenta, ktera bude schopna poslat tento dokument do MS
Exchange a donuti ho, aby se postaral o odfaxovani.
Diky.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
CPU Window
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 3.6.1998 17:15:31
DD
mival jsem v D3 nastaveno pomoci zmeny v registru moznost zobraze CPU
Window (disassemblovany vypis memory stack dump atd). Nemohu si
vzpomenout co bylo nutne nastavit v registrech. Vi nekdo?
Zdravi
D. Toman
Defaultni vlastnosti z predchudcu
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 3.6.1998 17:26:42
Ahoj,
Klucovym slovom "default" pri property povies Delphi, aby neukladala
tuto property do
streamu, ak ma tuto hodnotu, tzn. sluzi to na setrenie velkosti .dfm
suborov...
Defaultove hodnoty sa priradzuju v konstruktore. Musis teda prekryt (je
to spravne? myslim
tym 'override') konstruktor a v nom priradit nove hodnoty. Pri citani zo
streamu sa potom
tieto hodnoty prepisu, ak sa v nom property nachadza, inak zostavaju
hodnoty, ktore si
v konstruktore priradil.
Ondrej Kelle
it(zv)nnsk.sk
> -----Original Message-----
> From: Simicek Pavel [SMTP:simicek(zv)uvss.fme.vutbr(tec)cz]
> Sent: Wednesday, June 03, 1998 2:49 PM
> To: delphi(zv)pinknet(tec)cz
> Subject: Defaultni vlastnosti z predchudcu
>
> Dopreho poledne vsem!
> Mel bych takovyto dotaz! Mam z TCustomPanel
> odvozeny objekt a i kdyz jsem mu k propertam
> Hieght a Width nadefinoval default svoje vlastni hodnoty,
> nedari se mi temito prepsat puvodni ktere uz TCustomPanel ma.
> Nevite nekdo jak by se toto dalo uskutecnit, nebo kde mam chybu.
> Dekuji za kazdou odezvu, Pavel.
>
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------
Re[2]: Aplikace nezavisla na BDE
[*] Jiri Soudny <jsoudny(zv)comp(tec)cz> - 3.6.1998 17:27:14
Bohuzel, odkaz (http://www.cit.org.by/users/sheino/sqldir.htm) neni platny ...
-----P�vodn� zpr�va-----
Od: Hojda Pavel [SMTP:hojda(zv)mmp.plzen-city(tec)cz]
Odesl�no: 3. �ervna 1998 12:35
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Re[2]: Aplikace nezavisla na BDE
Zkuste (http://www.cit.org.by/users/sheino/sqldir.htm)
> -----P�vodn� zpr�va-----
> Od: Hubert [SMTP:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz]
> Odesl�no: 3. �ervna 1998 10:40
> Komu: DELPHI Distribution List
> P�edm�t: Re[2]: Aplikace nezavisla na BDE
>
> Hello Petr,
>
> pond�l�, 1 �erven 98, you wrote to me:
>
> PV> GRAAS Jan, Mgr. wrote:
> >>
> >> Prosim, mohl by mi nekdo poradit:
> >>
> >> Potreboval bych nejak obejit BDE, vim ze se to nejak da udelat, ale
> >> nevim jak. Pripada mi zbytecne, abych v pripade ze delam jen nejaky
> >> jednoduchy viewer o velikosti par kb, ktery nema zadne zvlastni funkce
> >> nez jen prochazeni zaznamu tabulky a jejich zobrazovani ve formulari,
> >> musel distribuovat BDE nebo delat instalacni program, ktery by
> definoval
> >> aliasy, atd.
> >> Chtel bych, aby tato aplikace byla funkcni na jinem pocitaci i tehdy,
> >> kdyz na nej zkopiruji jen dva soubory: EXE soubor a paradox tabulku,
> bez
> >> instalace nebo nastavovani IDAPI.
> >>
> >> Za pripadne namety predem dekuji. (Delphi 2).
>
> PV> Ahoj,
>
> PV> Obavam se ze v pripade Paradoxu to nebude vubec jednoduche, uz jen
> proto
> PV> ze ani neni prilis znam format jeho souboru. Z tveho dotazu mi neni
> moc
> ^^^^^^^^^^^^^^^^^^^^^^^^^
> Ja si myslel, ze je to ve formatu DBF. Podobny, tomoc co pouziva
> FoxPro.
>
> PV> jasne co je "jednoduchy viewer". Jedna se o aplikaci ktera ma byt
> schopna
> PV> zobrazit libovolnou Paradox tabulku, nebo o konktretni velmi
> jednoduchou
> PV> databazovou aplikaci ? Pokud se jedna o ten druhy pripad, tak je to
> mozne
> PV> resit "nahradami BDE", ale ty vetsinou pouzivaji nejaky vlastni format
>
> PV> souboru, jako napriklad QBD a nelze s nimi pouzivat datove komponenty
> Delphi.
> PV> Urcitou moznost dava az Delphi 3 kde je jiz trida TDataSet nezavisla
> na
> PV> BDE, takze je mozne si vytvorit vlastni databazovy format bez ztraty
> PV> moznosti pouzivat datove komponenty. O neco takoveho jsem se jiz
> snazil :-)
> PV> viz tema "Datasety bez BDE" v konferenci.
>
> PV> Na druhou stranu bych nevidel distribuci aplikace s BDE tak cerne.
> Pomoci
> PV> InstallShieldu se to da udelat pomerne elegantne, navic pokud uz na
> tom
> PV> pocitaci BDE jednou bude, tak ta instalace neni nijak dlouha a na dve
> diskety
> PV> se ti to v pohode vejde. Srovnej to treba s takovym IE 4.0 :-))
>
>
> PV> Petr Vones, amatersky
> programator
>
>
>
>
> Best regards,
> Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
>
Defaultni vlastnosti z predchudcu
[*] Vesna <veselyt(zv)sagas(tec)cz> - 3.6.1998 18:39:29
Defaultni hodnoty nastavis v property, ale prepis si konstuktor a tam je
prirad natvrdo.
Pak by to melo fungovat. Pokud ne, tak to posli na delphi(tec)cz a juknem na to.
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 3. �ervna 1998 15:40
P�edm�t: Defaultni vlastnosti z predchudcu
>Dopreho poledne vsem!
>Mel bych takovyto dotaz! Mam z TCustomPanel
>odvozeny objekt a i kdyz jsem mu k propertam
>Hieght a Width nadefinoval default svoje vlastni hodnoty,
>nedari se mi temito prepsat puvodni ktere uz TCustomPanel ma.
>Nevite nekdo jak by se toto dalo uskutecnit, nebo kde mam chybu.
>Dekuji za kazdou odezvu, Pavel.
>
>-----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
>-----------------------------------------------------------
>Ako posuvat Form z property BorderStyle:=bsNone
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 03.6.1998 19:07:43
Hi,
doporucuji prohlednou API WIN32, specielne funkce mouse capture a funkce
preacujici s okny. Jinak bych mohl napsat vic, zitra, dnes uz specham...
Juraj Chlebec wrote:
>
> Dakujem najprv vsetkym za rady ohladne Pingu. Nasiel som na spominanej
> adrese vybornu free komponentu pre tuto funkciu.
> Teraz by som sa rad spytal akym sposobom sa da pri nastaveni Form
> BorderStyle:=bsNone posuvat okno po obrazovke. Vytvoril som si miesto na
> ktorom kontrolujem OnMouseDown, OnMouseMove, OnMouseUp, funguje toale velmi to
> preblikava. (Tag je komponenta TImage, DX, DY poloha pri zaciatku posuvania)
>
> procedure TForm1.TagMouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Flag:=True;
> DX:=x;
> DY:=y;
> end;
>
> procedure TForm1.TagMouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> begin
> if Flag=true then
> begin
> Form1.Left:=Form1.Left+(DX-x);
> Form1.Top:=Form1.Top+(DY-y);
> end;
> end;
>
> procedure TForm1.TagMouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Flag:=false;
> end;
>
> --------------------------------------------------------------------
>
> Dakujem vam za radu.
> JCH
Aplikacia s databazami a bez
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.6.1998 19:08:47
psoft wrote:
>
> Zdravim vsetkych,
>
> mam take dva malicke problemy.
> Mam jednu aplikaciu, ktoru chcem dodavat v dvoch verziach - s
> databazami a bez. Vsetky prace s databazami budu sustredene do jedneho
> okna. Verzia bez databaz toto okno nebude obsahovat.
>
> 1. otazka : ako najjednoduchsie vytvorit v zdrojaku prepinanie mezdi
> tymito verziami / asi zrejme cez podmieneny preklad.
Ahoj,
Pokud bude rozdil mezi obema verzemi jen v jednom okne tak potom je
samotny podmineny preklad asi postacujici. U vetsich rozdilu uz by byl
asi problem co s formulari v projektu, nejsem si jisty jestli i tam lze
jednoduse pridat podmineny preklad. Urcita moznost by asi byla mit dva
projekty v jednom adresari ktere by pak obsahovali stejne spolecne formulare.
> 2. a podstatnejsia otazka : mam tam kopec unitov a kopec komponentov.
> Uz som presiel hadam vsetky uses, ale neviem, kde sa mi do projektu
> prihodi pouzitie databaz. Nedari sa mi proste vyhodit unity, ktore
> suvisia s databazami, hoci nepouzivam ziadny databazovy komponent.
> Ako najlahsie zistit, v ktorom unite alebo komponente pouzivam
> databazu ?
Nevim v jake verzi Delphi to pises, ale predpokladam >=2. Kdyz soustredis
vsechny operace s databazemi do datovych modulu, tak potom staci jen
odstranit tyto datove moduly a vsechny formulare obsahujici datove komponenty.
Samozrejme nesmis zapomenout odstranit i odkazy na unit v implementation casti.
Ve vetsim projektu muze byt i zrada v tom kdyz nekam umistis datove komponenty,
po case je vsechny odstranis, tak ti v uses unitu porad zustanou a musis je
odstanit rucne.
Petr Vones, amatersky programator
Defaultni vlastnosti z predchudcu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.6.1998 19:25:27
Simicek Pavel wrote:
>
> Dopreho poledne vsem!
> Mel bych takovyto dotaz! Mam z TCustomPanel
> odvozeny objekt a i kdyz jsem mu k propertam
> Hieght a Width nadefinoval default svoje vlastni hodnoty,
> nedari se mi temito prepsat puvodni ktere uz TCustomPanel ma.
> Nevite nekdo jak by se toto dalo uskutecnit, nebo kde mam chybu.
> Dekuji za kazdou odezvu, Pavel.
>
Ahoj,
nevim jestli je to presne ono co potrebujes, ale defaultni hodnoty musis
definovat v konstruktoru tve tridy, takze to muze vypadat treba takhle:
TMyPanel = class(TCustomPanel)
.
.
.
constructor TMyPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetBounds(Left, Top, 200, 200);
end;
hodnota za klicovym slovem default u property slouzi k tomu, kdyz se
ukladaji vlastnosti komponenty a hodnota property definovana
v konstruktoru je shodna s touto default hodnotou tak se hodnota teto
vlastnosti neuklada.
Petr Vones, amatersky programator
Zjisteni pripojeni na inet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.6.1998 19:27:33
pedskola wrote:
>
> Potrboval bych vedet jakou funkci zjistim ze sem momentalne pripojen na
> Internet
> nevite jaka API funkce nebo funkce Delphi to sprostredkuje?
> Diky Sopak
Ahoj,
Nevim presne co tim mas na mysli, jde ti o detekci dial-up pripojeni site
pomoci TCP/IP ?
Petr Vones, amatersky programator
Slozeny index
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.6.1998 20:37:56
V�t�zslav Gazda wrote:
>
> Nedari se mi vytvorit tabulku DBASE se slozenym indexem:
> oTable.IndexDefs.Add('MYINDEX','LASTNAME;FIRSTNAME',[]);
>
> PARADOX i MSACCESS to vezme, ale DBASE ne.
> Nevi nekdo co s tim ?
>
> Zkusil jsem taky:
> oTable.IndexDefs.Add('MYINDEX','LASTNAME+FIRSTNAME',[ixExpression]);
>
> ale taky to nefunguje.
> Taky jsem zjistil, ze to nefunguje pouze u nativniho ovladace DBASE. Pokud
> pouziji ODBC ovladac pro DBASE tak to funguje.
>
> Diky Vita
Ahoj,
zrejme tam maji Borlandi nejakou chybu, po chvilce experminentovani jsem
dospel k tomuto reseni:
with Table1 do
begin
Close;
TableType := ttDefault;
TableName := 'POKUS.DBF';
DataBaseName := 'X:\';
FieldDefs.Clear;
FieldDefs.Add('FIRST', ftString, 20, False);
FieldDefs.Add('LAST', ftString, 20, False);
IndexDefs.Clear;
CreateTable;
AddIndex('MYINDEX', 'FIRST+LAST', [ixExpression]);
end; Petr Vones, amatersky programator
Ako posuvat Form z property BorderStyle:=bsNone
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.6.1998 20:53:58
Juraj Chlebec wrote:
>
> Dakujem najprv vsetkym za rady ohladne Pingu. Nasiel som na spominanej
> adrese vybornu free komponentu pre tuto funkciu.
> Teraz by som sa rad spytal akym sposobom sa da pri nastaveni Form
> BorderStyle:=bsNone posuvat okno po obrazovke. Vytvoril som si miesto na
> ktorom kontrolujem OnMouseDown, OnMouseMove, OnMouseUp, funguje toale velmi to
> preblikava. (Tag je komponenta TImage, DX, DY poloha pri zaciatku posuvania)
Ahoj,
da se to udelat napriklad takhle:
type
TForm1 = class(TForm)
private
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = HTCLIENT then Msg.Result := HTCAPTION;
end;
Petr Vones, amatersky programator
Re[2]: Pakovani databaze (2)
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 3.6.1998 21:01:38
>> Nevim jak to je u Oracle nebo Interbase, ale urcite je pakovani zapotrebi u
>> Dbase, MS Access, Paradox, Foxpro.
>> Protoze delam aplikaci nezavislou na pouzitem databazovem nastroji,
>> potrebuji vedet jestli neexistuje nejaky univerzalni zpusob v BDE pro
>> vsechny databaze. Aplikace Database Desktop, ktera je taktez nezavisla na
>> typu databazovych tabulek ma v okne pro restrukturalizaci tabulek pro tento
>> pripad volbu Pack Table.
PZ> To neni pravda, Database Desktop je nezavisly pouze pro editovani databazi,
PZ> ale rozhodne ne pro pakovani databazi. Pakovat umi jen u dBase, Paradox
PZ> a mozna FoxPro (to jsem nezkousel, protoze jsem liny). Nic jineho pakovat
PZ> neumi a rozhodne nepakuje ani tabulky MS Access.
^^^^^^^^^^
Asi mi utekl smysl diskuse o tematu. Ale M$ Access pakovat umi. Ale
jelikoz opravdu mi utekl zacatek diskuse, tak mozna nepisu k veci.
PZ> Podivej se opravdu,
PZ> u kterych tabulek to Pack je, a uvidis.
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Re[2]: Kvalita Paradox tabulek.
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 3.6.1998 21:13:34
Ohledne Accessu bych chtel rict neco co mozna nekdo nevi. To proc je
jeden soubor vypliva ze struktury pouziti Accessu. Access totiz bezi
na bazi SQL serveru (verte tomu nebo ne je to pravda). A odtud uz i
vypliva proc ten jeden soubor.
A jeste jednu vec k Accessu. Jiste vite, ze lze v akcesu vytvaret
Query, ktere pak dale muzete pouzivat na tvorbu sestav atd. Nevim jak
pomoci BDE, ale pomoci Developer Studia, lze tyto Query normalne
pouzivat. Access pracuje s DAO, ktere ma definovanou Collection jak
TABLES tak i taky Queries.
Chtel bych se vsak nekoho zeptat, zda se nekomu nahodou nepovedlou nejakym
zpusobem vyvolat kod napsany v Modulech ci dokonce zavolat formular.
MK> No jednou se mi stalo, ze jsem u Accessu musel pouzit opravu databaze
MK> (soubor mel okolo 200.000 zaznamu, velikost 80 MB a pocet useru najednou
MK> okolo 15). Oprava probehla OK a vse zase jelo (program byl psan rovnez v
MK> Accessu).
MK> Ten jeden soubor mi pripada prehlednejsi (jsou v nem vsechny tabulky,
MK> indexy, relace i pripadny program v Accessu). Proste mi to pripada
MK> snadnejsi na udrzbu i zalohovani. Samozrejme pri jeho ztrate jsou
MK> vsechny data v trapu. Pravda, u Paradoxu by asi ztrata jednoho souboru
MK> nemusela byt tak tragicka. Co by se vsak stalo, kdyby ten soubor byl
MK> relacne svazan s dalsimi daty (to by asi zpusobilo docela slusnou ztratu
MK> taky).
MK> Kazdopadne je mi jeden soubor sympatictejsi nez 50. (ale zase je to jen
MK> muj nazor ;)
MK> Mac
MK> Miloslav Skacel wrote:
>> Vyhodou je dle meho i jeden jedinny soubor a ne spousty drobnych > fajliku jako v Paradoxu.
>>
>>> Proc je spousty drobnych fajliku Paradoxu nevyhodou?
>>> Muze jedna chyba v souboru Accessu zpusobit nedostupnost
>>> vsech tabulek?
>>>
>>> Milos Skacel
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Program manazer ve W95
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 3.6.1998 21:16:42
Chaputo tak, ze asi spravujes nekde pocitace s WIN95. Pokud ano mohu
doporucit na tyto pocitace nainstalovat program WinSecureIt nebo
LightSecure. (druhy jmenovany je dost schopny program - zavadi se
ihned po nabootovani. Po jeho instalaci muzes managovat vse co je na
Win95 (ale i v DOSe) jako kdyby to byly NT. Delas grupy, usery davas
prava kam vidi, kam muzou psat.. atd).
DJ> Zdravim,
DJ> nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
DJ> Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
DJ> ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
DJ> udelat v ?System.ini?, ale tady si nevim rady. Taky by me zajimalo, jestli se
DJ> da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
DJ> Za kazdou radu moc diky.
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Udalost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.6.1998 21:34:43
Simicek Pavel wrote:
>
> Jeste jednou dopreho odpoledne vsem!
> Jakou udalost mam odchytavat kdyz potrebuju u PaintBoxu zjistit
> okamzik vstupu mysi do jeho oblasti a okamzik jejiho opusteni.
> V podstate by to melo jit s tim jak se meni kurzor pro danou oblast,
> ale nemuzu naji tu udalost.
Ahoj,
TPaintBox zadnou takovou udalost nema. Idealni by bylo odvodit si
novou komponentu ve ktere budes zachytvat zpravy CM_MOUSEENTER a
CM_MOUSELEAVE a k nim si vytvoris udalosti. Pokud ti jde ale jen o
jeden pripad a nechce se ti psat komoponentu tak muzes vyuzit toho
ze tyto zpravy jsou zasilany i do formulare a lParam obsahuje pointer
na danou komponentu. Tady je jednoduchy priklad:
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
procedure PaintBox1Paint(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.CMMouseEnter(var Msg: TMessage);
begin
inherited;
if Pointer(Msg.lParam) = PaintBox1 then
PaintBox1.Color := clRed;
end;
procedure TForm1.CMMouseLeave(var Msg: TMessage);
begin
inherited;
if Pointer(Msg.lParam) = PaintBox1 then
PaintBox1.Color := clGreen;
end;
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1 do
begin
Canvas.Brush.Color := Color;
Canvas.FillRect(ClientRect);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1.Color := clGreen;
end;
Petr Vones, amatersky programator
CPU Window
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.6.1998 21:42:03
Dalibor Toman wrote:
>
> DD
>
> mival jsem v D3 nastaveno pomoci zmeny v registru moznost zobraze CPU
> Window (disassemblovany vypis memory stack dump atd). Nemohu si
> vzpomenout co bylo nutne nastavit v registrech. Vi nekdo?
>
> Zdravi
> D. Toman
Tady:
http://www.inprise.com/devsupport/delphi/ti_list/TI3172.html
Petr Vones, amatersky programator
Program manazer ve W95
[*] psoft <psoft(zv)kosice.telecom.sk> - 3.6.1998 22:08:17
> Zdravim,
> nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
> Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
> ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
> udelat v ?System.ini?, ale tady si nevim rady. Taky by me zajimalo, jestli se
> da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
>
Robil som cosi take tak, ze v subore \windows\system.ini das v sekcii
[boot] polozku SHELL=MojCommander. Tym dosiahnes to co chces.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Aplikacia s databazami a bez
[*] psoft <psoft(zv)kosice.telecom.sk> - 3.6.1998 22:08:17
Zdravim vsetkych,
mam take dva malicke problemy.
Mam jednu aplikaciu, ktoru chcem dodavat v dvoch verziach - s
databazami a bez. Vsetky prace s databazami budu sustredene do jedneho
okna. Verzia bez databaz toto okno nebude obsahovat.
1. otazka : ako najjednoduchsie vytvorit v zdrojaku prepinanie mezdi
tymito verziami / asi zrejme cez podmieneny preklad.
2. a podstatnejsia otazka : mam tam kopec unitov a kopec komponentov.
Uz som presiel hadam vsetky uses, ale neviem, kde sa mi do projektu
prihodi pouzitie databaz. Nedari sa mi proste vyhodit unity, ktore
suvisia s databazami, hoci nepouzivam ziadny databazovy komponent.
Ako najlahsie zistit, v ktorom unite alebo komponente pouzivam
databazu ?
Dakujem za pomoc.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Prepinani parent
[*] psoft <psoft(zv)kosice.telecom.sk> - 3.6.1998 22:08:17
> >potrebe zmenit typ pohladu zrusim aktualne okno a vytvorim ine a
> >nasledne mu priradim parent:=3DHlavneOkno. Ma ta to sice za nasledok
>
> Neni to presne to, co robi MDI aplikacia? Akurat sa nerusi
> hlavne okno, ale ja vo svojom postupe ho zrusim, takze sa nase
> postupy asi prilis nelisia...
Nie, pretoze ty mas svoje okno zobrazene ako okno, so vsetkym, co k
tomu patri, zatial co ja mozem dat svoje okno trebars na Notebook
alebo do TPanel, mozem mat napr. v hlavnom okne takto zapichnute aj
dalsie styri okna, a uzivatelovi sa to javi ako jedine celistve okno
...
> >Navyse mam kazde dcerske okno nie TForm, ale odvodene od nejakeho ineho
> >TParentForm=3Dclass(TForm), cim mozem v jednom zdrojaku nadefinovat
> >vsetky spolocne veci, a odlisnosti potom v jednotlivych dcerskych
> >oknach.
>
> Toto som skusal tiez, ale narazil som s tym na problemy -
> uz neviem ake. Problemy vyplyvali z toho, ze takyto sposob
> IDE Delphi nejako nepodporovali, ale rad by som sa k tomu vratil,
> ak tvrdis, ze je to mozne takto robit. Pouzivas nejake specialne
> techniky?
Nevidim, v com je problem. Vytvorim si normalne zakladne okno napr. s
menom TZakladFmt u unite ZaklU.
1. riesenie - pichnem ho do repository - a nove okno vytvorim cez New
- Forms - TZakladFmt ...
2. riesenie vytvorim okno druhe, klasicky. Do uses potom pridam
ZaklU, a TDruhyFmt=class(TForm) opravim na
TDruhyFmt=class(TZakladFmt).> >Vyhodou, ktoru pri takejto praci najviac ocenujem je to, ze mam viac
> >zdrojovych suborov, v ktorych sa orientujem ovela lepsie ako v jednom
> >megovom ...
> >
> >Pouzivam to dost dlho a musim povedat, ze to zatial nema chybu ...
> >
> >Mimochodom - ktosi poznamenal, ze je to chore, takato praca s oknom.
>
> Neni to celkom chore, mne sa vsak ovela viac paci sposob,
> ktory je celkom prirodzene podporovany aj Delphami bez nejakych
> vlastnych vylepseni - zavesit na kazde MDI Child okno volanie
> Close v metode Deactivate a je po probleme. Zda sa mi to len
> jednoduchsie - to je vsetko.
Aj to je riesenie, ale stale je to okno zobrazene ako okno, zatial co
tym mojim sposobom to pripicnes kam chces, do vsetkeho, co je
odvodene od TWinControl ...
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Fax
[*] Jan Ko�as��������jȦ�w��̿ - 3.6.1998 22:44:48
-----P�vodn� zpr�va-----
Od: Petr Slovak <petr(zv)trilog(tec)cz>
P�edm�t: Fax
>Nevi nekdo o nejake i uplne jednoduche faxovaci komponente?
>Potrebuju odfaxovat jednoduchy textovy dokument na zadane cislo.
>Podle meho laickeho pohledu na vec mi staci nejaka MAPI
>komponenta, ktera bude schopna poslat tento dokument do MS
>Exchange a donuti ho, aby se postaral o odfaxovani.
----------------------------------------------------
V ObjectRepository jsem nasel aplikaci LogoApp, ktera dovede posilat
z RichEditu prave pomoci MAPI (D2, W95) pres Exchange, nebo jinyho
postovniho klienta systemu (Outlook ap.). Vlastni posilani pak vypada
nasledovne:
procedure TLogoAppForm.FileSend(Sender: TObject);
var
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(RichEdit1.Lines.Text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;
MError := MapiSendMail(0, 0, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
if MError <> 0 then MessageDlg('Error sending mail', mtError, [mbOK], 0);
end;
Do MapiMessage.lpszNoteText staci ulozit jen odkaz na text v RichEditu.
Snad to pomuze.
Jakub Konas <janko(zv)vlasim-net(tec)cz>
Re[2]: Pakovani databaze (2)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.6.1998 22:45:23
> PZ> To neni pravda, Database Desktop je nezavisly pouze pro editovani databazi,
> PZ> ale rozhodne ne pro pakovani databazi. Pakovat umi jen u dBase, Paradox
> PZ> a mozna FoxPro (to jsem nezkousel, protoze jsem liny). Nic jineho pakovat
> PZ> neumi a rozhodne nepakuje ani tabulky MS Access.
> ^^^^^^^^^^
> Asi mi utekl smysl diskuse o tematu. Ale M$ Access pakovat umi. Ale
> jelikoz opravdu mi utekl zacatek diskuse, tak mozna nepisu k veci.
MS Access jako takovy se pakovat umi, ale neumi databazi MS Access
pakovat Database Desktop, protoze MS Access lze pakovat jen pomoci
prime funkce DAO nebo myslim take ODBC.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================SWAG
[*] Ales Berka <abdelphi(zv)usa(tec)net> - 3.6.1998 22:46:20
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Vsem pascalistum a delphistum doporucuji SWAG - databaze programku a tipu do delphi/TP
www.gdsoft.com - swags ...
bye Aleq
Fax
[*] Jan Ko�as��������jȦ�w��̿ - 3.6.1998 22:48:44
>-----Puvodn� zpr�va-----
>Od: Petr Slovak <petr(zv)trilog(tec)cz>
>Predm�t: Fax
>Nevi nekdo o nejake i uplne jednoduche faxovaci komponente?
>Potrebuju odfaxovat jednoduchy textovy dokument na zadane cislo.
>Podle meho laickeho pohledu na vec mi staci nejaka MAPI
>komponenta, ktera bude schopna poslat tento dokument do MS
>Exchange a donuti ho, aby se postaral o odfaxovani.
----------------------------------------------------
V ObjectRepository jsem nasel aplikaci LogoApp, ktera dovede posilat
z RichEditu prave pomoci MAPI (D2, W95) pres Exchange, nebo jinyho
postovniho klienta systemu (Outlook ap.). Vlastni posilani pak vypada
nasledovne:
pprocedure TLogoAppForm.FileSend(Sender: TObject);
var
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(RichEdit1.Lines.Text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;
MError := MapiSendMail(0, 0, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
if MError <> 0 then MessageDlg('Error sending mail', mtError, [mbOK], 0);
end;
Do MapiMessage.lpszNoteText staci ulozit jen odkaz na text v RichEditu.
Snad to pomuze.
Jakub Konas <janko(zv)vlasim-net(tec)cz>
>
>Zjisteni pripojeni na inet
[*] Ales Berka <aberka(zv)usa(tec)net> - 3.6.1998 22:50:04
Zkus moji komponentu DIALUP, ale protoze mi XOOM zrusil homepage tak to
musis stahnout z Delphi SuperPage
bye Aleq
-----P�vodn� zpr�va-----
Od: pedskola <pedskolakv(zv)mbox.vol(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 3. �ervna 1998 12:30
P�edm�t: Zjisteni pripojeni na inet
>Potrboval bych vedet jakou funkci zjistim ze sem momentalne pripojen na
>Internet
>nevite jaka API funkce nebo funkce Delphi to sprostredkuje?
>Diky Sopak
>interprocess communication
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 03.6.1998 23:05:50
Hi,
tohle mam vyresene, zitra (doufam rano) to poslu do konference.
Jako text Adame :-)
Mam takovou aplikaci, tak ji trochu ocesu o to, co neni tenhle problem a
poslu klienta i server, i tu komponentu, co na to pouzivam (ale jen na
adresu - na vyzadani :-)
fronek(zv)fic(tec)cz
Marcel Telka wrote:
>
> Preco by to cez TCP/IP nemalo ist?
>
> Mozes to urobit podobne ako je robena vacsina komunikacie po Internete:Fax
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 03.6.1998 23:07:41
Hi,
na tohle je dobra komponenta TEmail, lezi to napr. na www.torry.ru
urcite i na DSP. Je tam popis, jak s tim faxovat...
fronek(zv)fic(tec)cz
Petr Slovak wrote:
>
> Nevi nekdo o nejake i uplne jednoduche faxovaci komponente?
>
> Uz tady byl podobny dotaz od nekoho v breznu, ale jedina odpoved
> byla - kup si Async Pro, ten to umi. Ale ja nechci jit s delem za 279
> dolaru na mravence.
>
> Potrebuju odfaxovat jednoduchy textovy dokument na zadane cislo.
> Podle meho laickeho pohledu na vec mi staci nejaka MAPI
> komponenta, ktera bude schopna poslat tento dokument do MS
> Exchange a donuti ho, aby se postaral o odfaxovani.
>
> Diky.
>
> ----------------------------------------------------
> Petr Slovak
> Trilog, s.r.o.
> Http: http://www.trilog(tec)cz/
> E-mail: petr(zv)trilog(tec)cz
> Telefon: (+420) 2 / 205 131 06, linka 220, 271
> Mobil: (+420) 603 / 501 642
> Adresa: Vanickova 5/1, Praha 6, 160 00
> ----------------------------------------------------
interprocess communication
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 03.6.1998 23:13:41
Hi,
tak takhle snad ne. to je straaasne pomaly, a je to (jak tu kdosi
poznamenal) pouzivani kladiva, kdyz vlastne potrebuju sroubovak :-)
poslu zitra, jak na to.
fronek(zv)fic(tec)cz
Ing. Jindrich Danihelka wrote:
>
> Jirka Fejfar in CRLY wrote:
-----cut------
> > mam pocit ze by to s TCP IP neslo moc dobre, ale nemam s TCP IP zkusenosti,
> > takze jestli by to pomoci TCP IP slo udelat, rad bych vedel jak,
> >
>
> Ten server nemusi nic nikam posilat. Staci ten vysledek ukladat
> nekam na nasdileny disk, kam ti klienti dokazou videt a odtud
> si to ti klienti muzou dle libosti cist.
>
> --
> Ing. Jindrich Danihelka
> E-Mail jidas(zv)mbox.vol(tec)cz
> Tel. 038/57805
> 038/7512861
Aplikacia s databazami a bez
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 03.6.1998 23:18:33
Hi,
ja bych si to nechal, jak to je ted, a zavedl bych si promennou
bool databaze (treba) a podle neceho (licence...) bych ji pri startu
naplnil. Pred kazdym uzitim toho okna s DB bych ji testoval.
Vysledkem je naprosto stejny program pro vsechny.
fronek(zv)fic(tec)cz
Petr Vones wrote:
---cut-----
> Nevim v jake verzi Delphi to pises, ale predpokladam >=2. Kdyz soustredis
> vsechny operace s databazemi do datovych modulu, tak potom staci jen
> odstranit tyto datove moduly a vsechny formulare obsahujici datove komponenty.
> Samozrejme nesmis zapomenout odstranit i odkazy na unit v implementation casti.
> Ve vetsim projektu muze byt i zrada v tom kdyz nekam umistis datove komponenty,
> po case je vsechny odstranis, tak ti v uses unitu porad zustanou a musis je
> odstanit rucne.
>
> Petr Vones, amatersky programator
Program manazer ve W95
[*] Daniel Jirasek <daniel_jirasek(zv)conel(tec)cz> - 4.6.1998 06:55:38
To jsem zkousel, ale bohuzel to nefunguje.
----------------------------------------------------------------------
Daniel Jirasek - Conel s.r.o.
Sokolska 71, 56203 Usti nad Orlici
Tel./fax: 0465 521020
E-mail: daniel_jirasek(zv)conel(tec)cz
----------------------------------------------------------------------
-----Puvodni zprava-----
Od: RADIK(zv)p15.monet(tec)cz [SMTP:RADIK(zv)p15.monet(tec)cz]
Odeslano: 3. eervna 1998 8:51
Komu: delphi(zv)pinknet(tec)cz
Poedmit: RE: Program manazer ve W95
Ve W95 je polozka shell=explorer.exe ulozena v system.ini (sekce boot).
Tam se to da zmenit.....
Ales
Program manazer ve W95
[*] Daniel Jirasek <daniel_jirasek(zv)conel(tec)cz> - 4.6.1998 06:56:55
Moc dik, to je to co jsem potreboval.
----------------------------------------------------------------------
Daniel Jirasek - Conel s.r.o.
Sokolska 71, 56203 Usti nad Orlici
Tel./fax: 0465 521020
E-mail: daniel_jirasek(zv)conel(tec)cz
----------------------------------------------------------------------
-----Puvodni zprava-----
Od: Petr Slovak [SMTP:petr(zv)trilog(tec)cz]
Odeslano: 3. eervna 1998 12:37
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Re: Program manazer ve W95
> > nevite nekdo, jak se da zakazat spusteni ?Program manazeru? ve W95?
> > Potrebuji spustit svoji aplikaci, aby uzivatel nemel nikam pristup a po
> > ukonceni teto aplikace by se meli Windows uzavrit. Ve Win3.11 se to dalo
> > udelat v ?System.ini?, ale tady si nevim rady. Taky by me zajimalo, jestli se
> > da zakazat ?Ctrl+Esc?, ?Ctrl+Alt+Del?, ...
Nevim sice jak zakazat spusteni Program manageru, ale potreboval jsem taky
jednou, aby uzivatel nemel pristup k nicemu jinemu, nez k memu programu.
Muj program se spoustel v sekci Po spusteni (nebo jeste lepsi bude umistit jej
do registru: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Current
Version\Run)
a) Zakazal jsem Ctrl+Esc, Ctrl+Alt+Del:
Procedure SetSecurityOn;
Var LDummy:LongInt;
Begin
LDummy:=0;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, (zv)LDummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, (zv)LDummy, 0);
End;
Procedura pro navraceni do puvodniho stavu:
Procedure SetSecurityOff;
Var LDummy:LongInt;
Begin
LDummy:=0;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, (zv)LDummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, (zv)LDummy, 0);
End;
b) A nakonec jsem jeste schoval desktop a panel nastroju. Jak schovat a
zobrazit panel nastroju je nize. Ale mam k tomu i komponentu pro Delphi 2
(bez zdrojaku), kde staci nastavit True/False pro desktop a True/False pro
panel nastroju a je to. Muzu ti ji poslat.
procedure hideTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy((zv)wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow((zv)wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar
end;
procedure showTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy((zv)wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow((zv)wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbar
end;
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
install shield
[*] Tibor Stromajer <stromajer(zv)hotmail(tec)com> - 04.6.1998 07:14:52 pdt
Zdravim vsetkych...
Kto by mi vedel napisat ako sa pouziva INSTALL SHIELD, pripadne ma
odporucit na nejake zdroje ? Totiz mam urobenu aplikaciu v Delphi 2 a
potrebujem k nej vytvorit instalacku. Viem ze sa to robi pomocou
install shield ale neviem ako, nakolko som sa s install shieldom este
nestretol. Neviem ani to, ci install shield je sucastou Delphi alebo
sucastou Windows alebo je to samostatny program.
Za vsetky odpovede vopred dakujem.
Tibor Stromajer
stromajer(zv)hotmail.com
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Mozna trivialni SQL dotaz ....
[*] Vit Malecek <malecek(zv)melzer(tec)cz> - 4.6.1998 07:25:03
Prosim o radu, je-li to mozne (prestoze nejde primo o Delphi, ale InterBasi).
V tabulce t003 tri jsou zaznamy, kde jednotliva pole Ev_Cislo, IC_001_B a IC_001_A maji tyto hodnoty:
2906, 2906, 9
2906, 2905, 9
2906, 2906, 9
SQL dotaz:
select distinct
t003.Ev_Cislo, t003.Uzel_001_B, t003.IC_001_B
from
t003
where
t003.Ev_Cislo = '2906'
and t003.Uzel_001_A = 1 and t003.IC_001_A = 9
vrati dva zaznamy (bez klauzule distinct tri). Ja vsak potrebuji dostat prave ten pocet, nikoliv jednotlive zaznamy. Potrebuji
tedy neco jako:
select count(
select distinct
t003.Ev_Cislo, t003.Uzel_001_B, t003.IC_001_B
from
t003
where
t003.Ev_Cislo = '2906'
and t003.Uzel_001_A = 1 and t003.IC_001_A = 9)
Je to mozne? Preedem diky.
Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech Republic
e-mail: malecek(zv)melzer(tec)cz
tlf./phone number : +420-(0)508-330301, +420-(0)508-330302, privat : +420-(0)508-27141
fax number : +420-(0)508-330302
Triggery, Before nebo After ?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 4.6.1998 07:42:20
Rozvirila sa debata ci Before alebo After trigger pouzit , ale podla mojho nazoru ide nedobrim smerom. Treba si uvedomit ze insert,update,delete s trigrami vzdy je transakcnom mode. To zanamena vsetko alebo nic, preto nema zmysel debatovat otom ze co treba skor urobit a ci before alebo v after udalosti, je to totiz maximalne jedno. Existuju pridady ked to nie je jedno ale ztoho je strasne malo.
Tungli
----------
> Od: Ales Zeleny <zelenya(zv)mlp(tec)cz>
> Pre: delphi(zv)pinknet(tec)cz
> Predmet: Re: Triggery, Before nebo After ?
> D�tum: 3. j�n 1998 11:20
>
> DDV,
>
> zalezi na pouziti, pro kontrolu hodnot, nastaveni klicu, dohledani
> vazeb je lepsi before, pro eventuelni zapis do log tabulek pouzivejte
> after. Alespon me se tento postup osvedcil.
>
> Pokud se Vam dostane do ruky beta IB5.11 pak opvsem pozor na jednu
> "malickost" je tam prohozeno kontrolovani hodnot pomoci constaintu a
> spusteni teriggeru.
>
> Starsi verze:
> 1. Triggery
> 2. Constrainty
> (tedy napr. trigger mohl pohodlne doplnit hodnotu klice tabulky pokud
> vstup byl null, pokud tam bylo cislo, tak provedl kontrolu, zda je
> vetsi nez nejvyssi pouzite a akceptoval ji (slo tak udelat mezeru v
> klicich bez rizika ztraty integity)).
> 1. Constrainty
> 2. Triggery
> (tedy, pokud ma lkic dosadit trigger nesmi byt v insertu toto
> poleuvedeno a btw, trigger klidne do pole s constraintem >0 dosai
> zaporne hodnoty :-((( )
>
> Pozor na to, pri psani metadat pro IB!!!!!!!!!!
>
>
> > Zajimal by me Vas nazor. Mam aplikaci v Interbase, referencni
> integrita je
> > udelana pomoci triggeru, tj. triggry zajistuje kaskadni aktualizaci, vymaz
> > atd. Je pro tyhle triggry lepsi pouzivat Before nebo After ?
> >
> > Predem dik za odpoved
> >
> > Radim Kunz
> >
> >
> >
> > ==========================================================
> > Cesky CASE na http://www(tec)czechia.com/rksoft , beta verze, volne ke stazeni
> > ==========================================================
> >
> >
>
>
>
>
> +------------------------+ +---------------------------+
> |Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
> |Mestska knihovna v Praze| |Municipal Library of Prague|
> |Marianske nam. 1 | |Marianske nam. 1 |
> |115 72 | |115 72 |
> | | | |
> |Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
> |E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
> |MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
> +------------------------+ +---------------------------+
>
> Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
>
> Multitasking means that applications can crash simultaneously.OFF Linux a Interbase
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 4.6.1998 07:58:14
Mam zaujem zucastnit sa na konferenci.
Tungli J�n
tungli(zv)pvt.sk
----------
> Od: Chaloupka Pavel <chaloupka(zv)mboxzn(tec)cz>
> Pre: Delphi Konference <delphi(zv)pinknet(tec)cz>
> Predmet: OFF Linux a Interbase
> D�tum: 3. j�n 1998 12:56
>
> Zdravim,
>
> mam moznost zridit listserver o Interbase na Linuxu. Jestli by nekdo mel
> zajem se zucastnit debaty, poslete mail na moji soukromou adresu.
>
> Pavel Chaloupka
> E-Mail : chaloupka(zv)mboxzn(tec)cz
> V�voj SW
> projekcni a programovaci tym
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 4.6.1998 08:08:48
Ked je to nabidka na spolupracu tak bz som mal zaujem. Rokz programujem v Delphi 2.0 na vecsich casto aj celostatnzch projektoch. Platforma Interbase, MSSQL,Oracle.
Mam zaujem
Tungli Jan
tungli(zv)pvt.sk
----------
> Od: Alena <Alena(zv)Aquasoft(tec)cz>
> Pre: delphi(zv)pinknet(tec)cz
> Predmet: projekcni a programovaci tym
> D�tum: 3. j�n 1998 15:44
>
> projekcni a programovaci tym
> napln prace: po dohode, v soucasne dobe je nekolik zajimavych
> dlouhodobych projektu a nove koste ....
> pozadavky: mlady tym 3-5 kousku, schopny pochopit, vymyslet,
> zprojektovat, zrealizovat a udrzovat slozity system. Technologicke
> pozadavky: nejlepe Delphi, MS-SQL, case Rational Rose s vyhodou. Vse ale
> zavisi na dohode.
> nab�dka: kancelare Praha Tesnov, spolupracujici tymy pracuji na
> vybranych a prestiznich projektech, zejmena ve statni sprave. Platy jsou
> u nas normalni 20-30 tisic, vedouci tymu a duleziti clenove musi dostat
> mobil, casto auto atp.
> Poslete <mailto:miras(zv)aquasoft(tec)cz> co uznate za vhodne.
> Slozeny index
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 4.6.1998 08:12:48
Borland tam nema ziadnu chybu. DBF tabulkz yloyenz index vztvaraju ako
Pole+Pole+Pole... a ostatne tabulky Pole;Pole;Pole ...
----------
> Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: Slozeny index
> D�tum: 3. j�n 1998 20:37
>
> V�t�zslav Gazda wrote:
> >
> > Nedari se mi vytvorit tabulku DBASE se slozenym indexem:
> > oTable.IndexDefs.Add('MYINDEX','LASTNAME;FIRSTNAME',[]);
> >
> > PARADOX i MSACCESS to vezme, ale DBASE ne.
> > Nevi nekdo co s tim ?
> >
> > Zkusil jsem taky:
> > oTable.IndexDefs.Add('MYINDEX','LASTNAME+FIRSTNAME',[ixExpression]);
> >
> > ale taky to nefunguje.
> > Taky jsem zjistil, ze to nefunguje pouze u nativniho ovladace DBASE. Pokud
> > pouziji ODBC ovladac pro DBASE tak to funguje.
> >
> > Diky Vita
>
> Ahoj,
>
> zrejme tam maji Borlandi nejakou chybu, po chvilce experminentovani jsem
> dospel k tomuto reseni:
>
> with Table1 do
> begin
> Close;
> TableType := ttDefault;
> TableName := 'POKUS.DBF';
> DataBaseName := 'X:\';
> FieldDefs.Clear;
> FieldDefs.Add('FIRST', ftString, 20, False);
> FieldDefs.Add('LAST', ftString, 20, False);
> IndexDefs.Clear;
> CreateTable;
> AddIndex('MYINDEX', 'FIRST+LAST', [ixExpression]);
> end;
>
>
> Petr Vones, amatersky programator
>
> Ako pohybovat okno bez Title bar-u ...
[*] Bielik Marian <bielik(zv)basl.sk> - 04.6.1998 08:12:04
Takto je to snad najjednoduchsie !
******************
procedure twincontrol.formmousedown(sender: tobject; button:
tmousebutton;
shift: tshiftstate; x, y: integer);
const
sc_dragmove = $f012;
begin
releasecapture;
twincontrol(sender).perform(wm_syscommand,sc_dragmove, 0);
end;
*******************
Juraj Chlebec wrote:
> No pobzeral som sa po tomto probleme po sieti a tu
> http://www.mindspring.com/~cityzoo/tips/floatwin.txt
> som nasiel riesenie.
> (Zatial nevyskusane)
> Mozno vas to bude zaujimat ...
> JCH
Ako posuvat Form z property BorderStyle:=bsNone
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 4.6.1998 08:13:47
> Ahoj,
[...]
> da se to udelat napriklad takhle:
> Petr Vones, amatersky programator
^^^^^^^^^^^^^^^^^^^^^
Okamzite se prestante podepisovat "amatersky" ! :-)))))))))))))))))
Nevim zda jsem profesional, ale zivim se tim a mam z Vaseho podpisu
spatne traveni, kdyz tak koukam na to jak pisete...+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Autoincrementalni pole a InterBase
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 4.6.1998 08:20:16
Staci se podivat do prikladu u Interbase - TRIGGERS.SQL.
CREATE GENERATOR emp_no_gen;
SET GENERATOR emp_no_gen to 145;
/* Create trigger to add unique customer number */
SET TERM !! ;
CREATE TRIGGER set_emp_no FOR employee
BEFORE INSERT AS
BEGIN
new.emp_no = gen_id(emp_no_gen, 1);
END !!
SET TERM ; !!
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: RADIK(zv)p15.monet(tec)cz
> Odesl�no: 3. �ervna 1998 11:49
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Autoincrementalni pole a InterBase
>
> Budu prenaset databazi z Pdoxu na IB. Jak je to s implementaci
> autoinkrementalniho pole, resp. jak lze neco podovneho udelat treba
> pomoci triggeru....
>
> Ales
Mozna trivialni SQL dotaz ....
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 4.6.1998 08:22:06
select Count(*) , Ev_Cislo from t0032 group by Ev_Cislo
----------
> Od: Vit Malecek <malecek(zv)melzer(tec)cz>
> Pre: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
> Predmet: Mozna trivialni SQL dotaz ....
> D�tum: 4. j�n 1998 7:25
>
> Prosim o radu, je-li to mozne (prestoze nejde primo o Delphi, ale InterBasi).
>
> V tabulce t003 tri jsou zaznamy, kde jednotliva pole Ev_Cislo, IC_001_B a IC_001_A maji tyto hodnoty:
> 2906, 2906, 9
> 2906, 2905, 9
> 2906, 2906, 9
>
> SQL dotaz:
> select distinct
> t003.Ev_Cislo, t003.Uzel_001_B, t003.IC_001_B
> from
> t003
> where
> t003.Ev_Cislo = '2906'
> and t003.Uzel_001_A = 1 and t003.IC_001_A = 9
>
> vrati dva zaznamy (bez klauzule distinct tri). Ja vsak potrebuji dostat prave ten pocet, nikoliv jednotlive zaznamy. Potrebuji
> tedy neco jako:
>
> select count(
> select distinct
> t003.Ev_Cislo, t003.Uzel_001_B, t003.IC_001_B
> from
> t003
> where
> t003.Ev_Cislo = '2906'
> and t003.Uzel_001_A = 1 and t003.IC_001_A = 9)
>
> Je to mozne? Preedem diky.
>
>
>
> Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech Republic
> e-mail: malecek(zv)melzer(tec)cz
> tlf./phone number : +420-(0)508-330301, +420-(0)508-330302, privat : +420-(0)508-27141
> fax number : +420-(0)508-330302
>
> Autoincrementalni pole a InterBase
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 4.6.1998 08:25:29
> Budu prenaset databazi z Pdoxu na IB. Jak je to s implementaci
> autoinkrementalniho pole, resp. jak lze neco podovneho udelat treba
> pomoci triggeru....
Pouzij pole typu Integer, constraint > 0 (pri implementaci pozor na
muj predchozi mail o IB triggerech, pokud se jedna o IB), v databazi
si vytvor generator(nebo generatory, ja pouzivam pro kazdou tabulku
jeden, pak je ciselna rada souvisla) a triggerem provadej
inkrementaci generatoru a jeho hodnotu davej do NEW.JMENO_KLIC_POLE.
Priklad casti skriptu pro tabulku s autoInc:
(*Indentace se zel neprenesla...
Ukazkovy trigger je nekompatibilni s IB5.11, ostatni verze jsou ok
duvod viz drive;
Tento trigger geberuje klic, pokud nebyl programem vyplnen, pokud
ano, tak zjisti, zda hodnota je vyssi nez stav generatoru, pokud ne,
vyplivne chybu, pokud ano, pouzije ji (neni to nekonzistence, pole
musi mit unique index) a dopocita hodnotu generatoru.
Netvrdim, ze je to jedina/nejlepsi cesta, ale me rozhodne funguje.
Enjoy.
*)
/* ANOTACE - EXCEPTIONS: */
create exception ANOTACE_KEYVIOL
"TABLE: ANOTACE. Key violation, key is lower than last used key!";
...
/* ANOTACE - GENERATORS:
*/
create generator ANOTACE_KEY_GEN;
set generator ANOTACE_KEY_GEN to 0; /* 0 je sice default, ale sichr
ist ... :-)*/
/* -------------------------------------------------------------------
------- */
...
/* ANOTACE - TRIGGERS:
*/
set term !! ;
create trigger SET_ANOTACE_KEY for ANOTACE
active
before INSERT
position 0 /* Definuje poradi triggeru pro tuto akci.
*/
as
declare variable NEW_KEY_VAL INTEGER;
begin
NEW_KEY_VAL = GEN_ID(ANOTACE_KEY_GEN, 1);
if (NEW.ANOTACE_KEY < NEW_KEY_VAL) then
exception ANOTACE_KEYVIOL;
while ( NEW_KEY_VAL < NEW.ANOTACE_KEY ) do
NEW_KEY_VAL = GEN_ID(ANOTACE_KEY_GEN, 1);
NEW.ANOTACE_KEY = :NEW_KEY_VAL;
end !!
/* create trigger SET_ANOTACE_KEY
............................................ */
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Ako posuvat Form z property BorderStyle:=bsNone
[*] Pavel Kral <kral(zv)afx(tec)cz> - 4.6.1998 08:43:50
Zdravim,
zrovna toto reseni s WM_NCHitTest jsem zkousel, ale kdyz je pres cele
okno jina komponenta, tak to jaksi moc nefungovalo.
Ovsem reseni s pomoci OnMouseDown, OnMouseMove a OnMouseUp se mi
osvedcilo a necini zadne problemy s rychlosti ani na 486, 16 MB. Mozna ze
blikani je zpusobeno prave tim, ze komponenta je TImage...
Ahoj Pavel
-----Original Message-----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 3. �ervna 1998 23:21
Subject: Re: Ako posuvat Form z property BorderStyle:=bsNone
>Juraj Chlebec wrote:
>>
>> Dakujem najprv vsetkym za rady ohladne Pingu. Nasiel som na spominanej
>> adrese vybornu free komponentu pre tuto funkciu.
>> Teraz by som sa rad spytal akym sposobom sa da pri nastaveni Form
>> BorderStyle:=bsNone posuvat okno po obrazovke. Vytvoril som si miesto na
>> ktorom kontrolujem OnMouseDown, OnMouseMove, OnMouseUp, funguje toale
velmi to
>> preblikava. (Tag je komponenta TImage, DX, DY poloha pri zaciatku
posuvania)
>
>Ahoj,
>da se to udelat napriklad takhle:
>
>type
> TForm1 = class(TForm)
> private
> procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
> public
> { Public declarations }
> end;
>
>var
> Form1: TForm1;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
>begin
> inherited;
> if Msg.Result = HTCLIENT then Msg.Result := HTCAPTION;
>end;
>
> Petr Vones, amatersky programator
>
>
>
MSSQL pristup pres ODBC (Microsoft Download Site)
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 4.6.1998 08:47:05
> Odes�latel: Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz>
> P�edm�t: MSSQL pristup pres ODBC
> Nevite nekdo cim to a co s tim. Jinak vse ostatni funguje, ale pouze
> kdyz je nastaveny index, tak nejde TTable.Close.
Cim to je nevim. Ale zkuste se mrknout na stranky
http://emwac(tec)cz (Microsoft Download Site)
Najdete tam MS SQL Service Pack 4,
kde je opravena reada chyb MS SQL. Mozna i ta Vase ...
S pozdravem, Ladislav Nagy
<none>
[*] Ing. R�bert T�TH - 4.6.1998 09:04:00
[P��loha v souboru: smime.p7s]
unsubscribe
MSSQL pristup pres ODBC
[*] Lubo Fule <fule(zv)sct.sk> - 4.6.1998 09:07:18
Mal som par podobnych problemov. Moja skusenost... BDE je k nicomu.
Riesenie... Komponenty, ktore nepouzivaju BDE, ale priamo ODBC.
Bohuzial, aj ked je takychto komponentov na trhu dost, nie su free.
Okrem toho su prilis univerzalne, co je na ukor rychlost.
Momentalne programujem vlastne komponenty (potomok TDataSet), ktore
idu priamo na ODBC a su optimalizovane pre MS SQL Server. Zatial je to vo
faze Alfa testovania. Asi tak v priebehu mesiaca by to mohlo byt definitivne
hotove. Ak budes mat zaujem, mozem Ti to potom poslat, ale neviem, ci mi to
sef dovoli sirit ako free... silne pochybujem.
Upozornujem, ze funkcost je zarucena len pre MSSQL, pretoze nie vsetky ODBC
drivery podporuju vsetky funkcie ODBC tak ako MSSQL driver.
> -----Original Message-----
> From: Ing. Jahoda Jaroslav [mailto:Jaroslav.Jahoda(zv)lesprojekt(tec)cz]
> Sent: Wednesday, June 03, 1998 3:43 PM
> To: delphi(zv)pinknet(tec)cz
> Subject: MSSQL pristup pres ODBC
>
>
> Hi all,
>
> Pristupuji do MSSQL 6.5 SP4 pres ODBC (Pres nativni ovladac nefunguje
> typ DateTime typ) a pokud v TTable nastavim TTable.IndexFieldNames na
> jeho primary key, tak pri zavirani tabulky se objevi
> Exception EAccessViolation in module IDODBC32.DLL at 00021ACB.
> Access violation at address 4DA01ACB in module IDODBC32.DLL. Read of
> address CCCCCCE0.
>
> Tabulka ma v primary key (int, datetime) a ostatni jsou varchar a int
>
> Nevite nekdo cim to a co s tim. Jinak vse ostatni funguje, ale pouze
> kdyz je nastaveny index, tak nejde TTable.Close.
>
> Diky
>
> Ing. Jaroslav Jahoda
> Lesprojekt-Sluzby s.r.o.
> Nabrezni 1326
> Brandys nad Labem 250 01
> tel. +420 202 800152, fax. +420 202 800161
> email: jahoda(zv)lesprojekt(tec)cz
> http://www.lesprojekt(tec)cz/
> testy databazi - http://www.lesprojekt(tec)cz/delphi/
>
>interprocess communication
[*] Jirka Fejfar <fejfarj(zv)login(tec)cz> - 4.6.1998 09:26:08
Ahoj,
odpovim ted na vsechny RE:
>Ten server nemusi nic nikam posilat. Staci ten vysledek ukladat
>nekam na nasdileny disk, kam ti klienti dokazou videt a odtud
>si to ti klienti muzou dle libosti cist.
tohle me samozrejme napadlo taky, ale neprislo mi to moc bezpecny mit
nejakej temp na disku, protoze vime ze se s diskovymi soubory obcas muzou
stat veci, ktery jsou jenom mezi nebem a zemi ....>Mne sa na tom nezdalo prave to, ze server by to mal posielat do neznama.
>TCP/IP je na nizsej urovni ako IPC a teda mozes komunikovat aj s klientami,
>ktori
>o IPC v zivote nepoculi (napr. DOS, Win31).
no to bylo prave to co se mi na mailslotech libilo, ze jsem mohl posilat
zpravy do neznama (ale vlastne na mailslot), a potom si to nejaka aplikace
mohla vybrat nebo taky nemusela, v podstate to samy, jako kdyz pouzivaz
SendMessage(...., wm_XXX...) na lokalni masine, krome toho udelat mailsloty
bylo smesne jednoduchy ....
ale proste je tu ten problem, ze to nefunguje mezi NT a Win95,
proto se nebranim to udelat prez TCP IP, i kdyz to znamena, ze si budu muset
nekde udrzovat seznam adres pocitacu, a jsem hodne zvedavej na ten priklad :
>Mam takovou aplikaci, tak ji trochu ocesu o to, co neni tenhle problem a
>poslu klienta i server, i tu komponentu, co na to pouzivam (ale jen na
>adresu - na vyzadani :-)
od
> fronek(zv)fic(tec)cz
zatim diky vsem za odpovedi ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
__________________
-----Original Message-----
From: Marcel Telka <marcel(zv)vadium.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: Wednesday, 3 June 1998 20:57
Subject: Re: interprocess communication
interprocess communication
[*] Martin Fron�k <fronek(zv)fic(tec)cz> - 4.6.1998 09:29:10
Hi, tady je to, co jsem vcera slibil:
Pro uzivatele Delphi smutna zprava, je to v C++Builderu, ale snad to neni velky problem.
*********** Tohle je server, neni to nic svetoborneho, ale funguje to. *********
** pokud se to nekomu zda spatne napsane, ma asi pravdu, necinim si narok na genialni kod **
** jeste k tomu patri soubory *.h,*.dfm, ale pro pochopeni funkce to staci i takhle,
netreba zatezovat listserv a ostatni uzivatele, ktere to nezajima, pouzitou komponentu
na TCP mohu poslat na pozadani **
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "Server1.h"
//---------------------------------------------------------------------------
#pragma link "WSocket"
#pragma resource "*.dfm"
TFormTCPServer *FormTCPServer;
//---------------------------------------------------------------------------
__fastcall TFormTCPServer::TFormTCPServer(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormTCPServer::TCPServerUhradData(TObject *Sender, int Socket)
{
AnsiString zprava;
zprava = TCPServerUhrad->Read(Socket);
if (zprava == "koncim")
{
TCPServerUhrad->Disconnect(Socket);
FormTCPServer->ShowConnectionCount(Sender);
return;
}
if (zprava == "TableUhr")
{
for (int i=0;i < TCPServerUhrad->Clients->Count;i++)
{
TCPServerUhrad->Write(TCPServerUhrad->Clients->Sockets[i],"TableUhr");
FormTCPServer->ShowConnectionCount(Sender);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TFormTCPServer::FormCreate(TObject *Sender)
{
TCPServerUhrad->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormTCPServer::FormClose(TObject *Sender, TCloseAction &Action)
{
TCPServerUhrad->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormTCPServer::ShowConnectionCount(TObject *Sender) // tohle neni treba, jen info pro spravce
{
char *aas;
aas = new char [10];
itoa(TCPServerUhrad->Clients->Count, aas,10);
Label1->Caption = aas;
delete aas;
}
//---------------------------------------------------------------------------
************ tady jsou nejake funkce klienta, velmi jednoduche. **********
****** urcite by se dalo doplnit treba osetrovani vyjimecnych stavu... ***
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormCreate(TObject *Sender)
{
// cut *******
TCPClient1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::TCPClient1Data(TObject *Sender, int Socket)
{
AnsiString zprava;
zprava = TCPClient1->Read();
if (zprava == "TableUhr") FormMain->TBCelkemClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormClose(TObject *Sender, TCloseAction &Action)
{
// cut ************
TCPClient1->Write("koncim");
TCPClient1->Close();
}
//---------------------------------------------------------------------------