Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
wsock120.zip
[*] Hric Jan <JHRIC(zv)duro.upjs.sk> - 18.12.1998 14:16:56 nft-dft
Chcem sa podakovat tomu , kto mi poslal wsock120.zip ( demo pre udp)
ale neviem kto to bol , pretoze som nechtiac zmazal ten mail.
Takze dakujem velmi pekne - velmi mi pomohol.
Robim program , ktory pouziva protokol SNMP a ten poziva UDP , takze
tento demo program mi dobre posluzil.
Este raz V D A K A
J.H.
ps: Dlhsiu dobu nebudem mat pristup k pocitacu , takze sa musim
odhlasit z konferencie (inak by mi prislo vela mail-ov a mohli by
mi zrusit konto ).
Takze Vam Vsetkym prajem R A D O S T N E
A P O Z E H N A N E
S V I A T K Y !!!
QuickRep
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 18.12.1998 14:25:02
>PS2 : Chtelo by to nejaky WYSIWYG generator sestav - pro koncoveho
>uzivatele( ne generovani po bandech) : mate s nejakym takovym
>skusenosti(treba i Shareware nebo Commercial)
>
ahoj
kdysi jsem zkousel nejake komponety ktere prekryvaly QR a umoznovaly
podobne veci, moc se mi libil , myslim ze registrace stala $50 , ale presel
jsem na
SINEU .
mam ji nekde na CD , pokud to budes chtit tak to zkusim najit .
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
Praskal zapraskany
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.12.1998 14:35:59
>
>No, to prave nejde, protoze to mam ulozene v databazi, kde mam
>definovany prostor, ktery si pak skatulkuji jeste do pevne struktury.
>Mnozina je zcela nepouzitelna, protoze zabira 32 bajtu, a ja mam k
>dispozici bajt pouze jeden. :-(
to neni pravda. Defaultne je velikost 1 byte, pouze pokud potrebujete vice
hodnot nez 256 zabere vice mista.
minimalni zabrane misto lze pomoci {$Z} nastavovat na 1 , 2 nebo 4 byty
>
>Navic potrebuji skutecne dve polozky boolean v jednom bajtu,
>protoze na boolean se odvolavam z gridu z Orphea, ktery na
>danem miste striktne boolean vyzaduje.
takze, pokud nemas zdrojaky tak by Ti stejne ani zadna moznost sdileni
jednoho bytu vice booleany nepomohla :-). Pokud zdrojaky mas, co brani
prechodu na neco co vyuzije zbyle bity ??
Zdavi
D. Toman
paradox
[*] Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz> - 18.12.1998 14:40:46
Nemel by nekdo tuseni jestli chyba index out of date nemuze byt zpusobena
tim, ze oba dva PC
na siti PearToPear se loguji se stejnym jmenem a heslem ?
Vlada
paradox
[*] Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz> - 18.12.1998 14:52:13
V tabulce ve ktere se to stava mam jen jeden primarni index a ten snad se
udrzeje sam ? Nebo ne?
Vlada
-----P�vodn� zpr�va-----
Od: Jan Fiala <fiala(zv)infos(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. prosince 1998 13:42
P�edm�t: Re: paradox
>Me se tuto chybu podarilo vyvolat jen tehdy, kdyz jsem nemel udrzovany
>(maintained) index. Ale tenhle pripad to zrejme nebude (rok a pul vyvijena
>aplikace atd.)
>
>-----------------------------------------------------------------
>ing. Jan Fiala jan.fiala(zv)iname.com
>Prog-Soft s.r.o.
>INFOS - informa�n� system pro n�poj��e
>---------------------------------------------------------------
>
>
>MS ACCESS
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 18.12.1998 15:18:34
(Looks very interesting) Kde je to ke stazeni ?
Ondrej Krajicek
-----Original Message-----
From: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: Friday, December 18, 1998 11:53 AM
Subject: Re: MS ACCESS
>Nebo zkusit pouzit OLEDB (ADO) - soucast MDAC 2.0 (free) a nepotrebujes
DAO, mam
>takovy pocit, ze to taky chodi, ale nejsem si s tim 100% jisty...
>
>Mac
>
>Ondrej Krajicek wrote:
>
>> No tak to budu muset prohrabat Microsofti CDcka jestli tam nekde nemam
licenci na
>> sireni DAO. To mam ale pech.
>>
>> Ondrej Krajicek
>
>--
>==============================================================
>= Ing. Martin Kubecka - Amenit s.r.o. =
>= Na Valech - budova Dytron, 741 01 Novy Jicin =
>= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
>= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
>= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
>==============================================================
>
>Seminar
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.12.1998 16:18:12
Haj hou!
Je zde pritomen nekdo, kdo se chysta do Lazni Belohrad na seminar Delphi na
prelomu tisicileti ?
DeleteQuery2
[*] Marek Soukup <marek(zv)comberg(tec)com> - 18.12.1998 16:29:31
Ahoj,
diky za pomoc, bohuzel, ExecSQL jsem zkousel > nema vliv, zavorky
jsem vyzkousel a dospel jsem k dalsi chybe, Missing comma, Field
Polozka, Table: Tabule.
Napadlo me jestli to nemuze byt formatem data. Treba DateSeparator nebo
jestli ma byt datum ve DDMMYY a tak. Zkousel jsem to, ale nejak to
nezabira. Umi StrToDate pocitat s tim v jakym formatu ma bejt vysledny
datum ?
Help !
Marek Soukup
MS ACCESS
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.12.1998 17:41:09
Mrkni na http://www.cybermagic.co.nz/winsoft/ . Tam najdes jak komponenty pro
ADO tak i odkaz na MS, kde stahnes posledni verzi MDAC 2.0 SP1.
Kdyz tak dej vedet, jak si dopadl ...
Mac
Ondrej Krajicek wrote:
> (Looks very interesting) Kde je to ke stazeni ?
> Ondrej Krajicek
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Titulky v DbGride na viac riadkov
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.12.1998 17:44:00
Zkus si stahnout z DSP komponentu DBGridEH - ten to umi...
Mac
Pavol Griga wrote:
> Nievie mi niekto poradit ako rozpisat titulok v DbGride na viac riadkov?
>
> Za dobru radu vopred dakuje
>
> Palo Griga
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Seminar
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.12.1998 17:44:43
Jiste ;-) a ne jen ja ...
Mac
Pavel Cisar wrote:
> Haj hou!
>
> Je zde pritomen nekdo, kdo se chysta do Lazni Belohrad na seminar Delphi na
> prelomu tisicileti ?
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Pointer - diky vsem
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 18.12.1998 19:32:45
pisi konecnou verzi
var
ListItem:TListItem;
P:Pointer;
begin
if PageControl1.ActivePage=Sheet1 then
P:=(zv)ListViewDeisMJH
else
if PageControl1.ActivePage=Sheet1 then
P:=(zv)ListViewDeisMJR;
end ;
// verze od Petra Zahradnika
with TListViewDeis(P^) do
begin
ListItem := Items.Add;
ListItem.Caption :=('ahoj all');
end;
........
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
FlashFiler
[*] Ji�� Heinisch - 18.12.1998 19:54:06
ahoj
tento dotaz zasilam primo do konference , rad bych aby se k problematice FF
vyjadrilo co nejvice lidi. {takova mala konference v konferenci}
bohuzel vyrazne zkusenosti zatim nemam protoze to mam mesic
a pouzivam to zatim v jedne aplikaci
* Co se mi libi
moznost kompilace do exe
Indexy jsou ulozeny v jednom souboru a to primo tabulce, nebo jako
samostatny soubor.
Primarni index nemusi byt unikatni
Polozky typu BLOB lze ulozit do vlastniho souboru nebo primo do tabulky
* A co se nelibi
Nelze pouzit BatchMove
Vlastnost Recno neni funkci a asi nebude // ale jsou zdrojaky
Vlastnost RecordCount ukazuje celkovy pocet records bez ohledu na vl.
Filtered
* Co bzch rad vedel
Provoz v siti v praxi { jak vlastne funguje Client-Server u FF }
a dalsich par drobnosti
S pozdravem
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ondrisek <bonnel(zv)telecom(tec)cz>
Komu: HeiJu(zv)sol(tec)cz <HeiJu(zv)sol(tec)cz>
Datum: 18. prosince 1998 7:33
P�edm�t: Re: FlashFiler
>Ocenil bych, pokud bys m�l n�jak� V�RAZN� zku�enosti, a� u� kladn� nebo
>z�porn�, kdybys mi jen v kr�tkosti dal v�d�t. Byl by to impuls bu� pro
>urychlen� zakoupen� nebo urychlen� hled�n� n��eho jin�ho :-).
>
>D�ky M�ra
>
>
>------------------------------------------------------------------------
>--------
> Ing. Miroslav Ond��ek
> Bonnel Technologie, s.r.o.
>
>E-mail:
>bonnel(zv)telecom(tec)cz
>bonnel-hotline(zv)telecom(tec)cz - pro technick� rady
>bonnel-opekar(zv)telecom(tec)cz - jednatel spole�nosti
>bonnel-selnarova(zv)telecom(tec)cz - obchodn� odd�len�
>bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
>bonnel-hettner(zv)telecom(tec)cz - technik
>
>internet: http://www.bonnel-tech.com
>PGP podporov�no - ve�ejn� kl�� na na�� homepage
>
>Fonty pro cesky tisk
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 18.12.1998 19:55:51
Podivej se na
http://www.borland(tec)cz/frequeqa.htm
tam je reseni.
Radim
-----P�vodn� zpr�va-----
Od: Arnost Kobylka <Arnost.Kobylka(zv)atlas(tec)cz>
Komu: Konference Delphi <Delphi-l(zv)fwd(tec)cz>
Datum: 18. prosince 1998 12:52
P�edm�t: Fonty pro cesky tisk
>Vazeni kolegove,
> mam problem, ktery tady uz n-krat byl diskutovany, ale bohuzel, z
>archivu jsem se moc nedozvedel: Mam D2, QR1.0 a potreboval bych aby mi to
>tisklo cesky na W95,W98 a NT. V dialogovem okne je sice skript a da se
>nastavit na CE alenema to zadny vliv na realne nastaveni, chybi tam
>prislusna property. Da se nejak globalne Windows-um vnutit ten skript pro
>tisk?. Jediny font co nam chodi opravdu cesky je neproporcionalni Courier
>New.
>
>
>Diky
>
>
>Ing. Arnost Kobylka
>programator
>C3, spol. s r.o.
>Srobarova 32
>Praha 10
>TSocket
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 18.12.1998 20:37:43
Mam dotaz,
jelikoz vlastnim pouze Delphi 4 Standard, nemam k dispozici zapouzdreni Winsocku od Inprise. Zajimalo by me, jestli nekdo nevite o necem podobnem. Par veci sem uz nasel, ale to neni presne to co potrebuju. Ja hledam objektove zapouzdreni Winsocku, ale NE komponenty. Navic bych byl rad, kdyby to zvladalo Winsock 2. Trochu premrstene pozadavky, neni liz pravda.
Ondrej Krajicek
FlashFiler
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.12.1998 21:30:19
> bohuzel vyrazne zkusenosti zatim nemam protoze to mam mesic
> a pouzivam to zatim v jedne aplikaci
Ja mam FlashFiler nasazeny ve dvou aplikacich:
1. Velmi mala jako soucast informacniho systemu, ktera pracuje
se ctyrmi jednoduchymi tabulkami a nekolika indexy. Program
eviduje a vystavuje danove doklady za hotove. Pro vkladani
a zmeny dat jsou vyuzity transakce - zmeny tak mohou probihat
primo v databazi s moznosti jednoduse je kdykoliv stornovat
pomoci Rollback. Tisk probiha pres QuickReport a jednoduchy
filtr (dokladu jsou jen desitky az stovky, tak to neni problem).
Aplikace bezi na jednom pocitaci a je linkovana jako SingleEXE,
tedy vysledkem je jen jeden EXE soubor obsahujici vse o celkove
velikosti 1,6 MB.
2. Trochu slozitejsi aplikace urcena pro spravu a publikovani
prispevku na Internetu. Sestava ze trech casti, kdy kazda
bezi na jinem pocitaci (pocitacich):
a) WWW server, kde bezi aktivni stranky vytvorene v ASP
(Active Server Pages) nad databazi Microsoft Access 97.
K tomuto serveru pristupuji bezni internetovi uzivatele
a prohlizeji si informace...
b) Databazovy server zakaznika, kde je umisten FlashFiler
Server a serverova cast komunikacniho software. Tento
pocitac je umisten u zakaznika a slouzi pro spravu dat.
c) Klientska cast - software, ktery bezi na kteremkoliv
pocitaci s pripojenim k Internetu. Slouzi pro porizovani
dat prispevovatelum.
Vse pracuje po Internetu, tedy na protokolu TCP/IP. Klient
majici klientsky software se jednoduse pripoji na databazovy
server FlashFiler, prihlasi se pod jmenem/heslem a pokud
ma prava, muze porizovat a menit data, pripadne delat dalsi
akce - napriklad publikovani - pak klient preda pokyn
databazovemu serveru, ktery nove zaznamy a zmeny publikuje
pomoci ASP na WWW server.
> Nelze pouzit BatchMove
To jsem nezkousel...
> Vlastnost Recno neni funkci a asi nebude // ale jsou zdrojaky
Podle slov Juliana Bucknalla (autor FlashFileru u TurboPower)
toto neni implementovano, protoze to neni mozne vzhledem
k vnitrni strukture databaze FlashFileru.
> Vlastnost RecordCount ukazuje celkovy pocet records bez ohledu na vl.
> Filtered
Na toto mi odpovedel, ze neni doporuceno pouzivat filtrovani
dat ve FlashFileru, protoze je to znacne neefektivni reseni.
Je fakt, ze filtr na Internetu neno to prave orechove,
vzhledem k tomu, ze je provadeno na klientovi a ne na serveru.
Ve verzi 2 by mela byt podpora filtrovani na strane serveru
a snad take nejake SQL.
> Provoz v siti v praxi { jak vlastne funguje Client-Server u FF }
FlashFiler funguje velmi dobre i na sitich. Dej konkretni dotaz.
> a dalsich par drobnosti
No tak se musis zeptat...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
to tedy nechapu property
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 18.12.1998 21:46:38
private
FNameStream :ShortString;
procedure SetNameStream(Value:ShortString);
published
property StreamName :ShortString read FNameStream write SetNameStream;
public
constructor Create(Owner: TComponent); override;
---------------------
constructor TListViewDeis.Create(Owner: TComponent);
begin
inherited Create(Owner);
MessageDlg(FNameStream, mtInformation, [mbOk], 0);
end;
potrebuji znat vlastnost StreamName pri vytvareni komponenty
ale v hlasce se nic neobjevi.
V kterem momente jsou znamy veskere property hodnoty abych
k nim mohl pristoupit ???
ja myslel ze po Create
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
TSocket
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.12.1998 21:51:36
>Mam dotaz,
>
>jelikoz vlastnim pouze Delphi 4 Standard, nemam k dispozici zapouzdreni
Winsocku od Inprise. Zajimalo by me, jestli nekdo nevite o necem podobnem.
Par veci sem uz nasel, ale to neni presne to co potrebuju. Ja hledam
objektove zapouzdreni Winsocku, ale NE komponenty. Navic bych byl rad, kdyby
to zvladalo Winsock 2. Trochu premrstene pozadavky, neni liz pravda.
staci se podivat po internetu. Tusim, ze dobry zacatek by mohl byt:
http://www.cyberport.com/~tangent/programming/winsock/resources/index.html
Zdravi
D> Toman
Seminar
[*] Radoslav Jal� (ProNet) <pronet(zv)ke.telecom.sk> - 18.12.1998 21:54:50
>Je zde pritomen nekdo, kdo se chysta do Lazni Belohrad na seminar Delphi na
>prelomu tisicileti ?
A N O
>
>
>Titulky v DbGride na viac riadkov
[*] Radoslav Jal� (ProNet) <pronet(zv)ke.telecom.sk> - 18.12.1998 21:54:16
> Nievie mi niekto poradit ako rozpisat titulok v DbGride na viac
riadkov?
DBGridEH - potomok DBGrid, a najdes to na www.torry.ru
>
> Za dobru radu vopred dakuje
Sa maj
>
> Palo Griga
>
>paradox
[*] Erik Salaj <erik(zv)dodo.sk> - 18.12.1998 22:39:15
A co tak vyskusat MS Access? V Accesse som sa zatial s podobnymi problemami nestretol.
Erik Salaj
erik(zv)dodo.sk
-----Original Message-----
From: Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: Thursday, December 17, 1998 11:57 PM
Subject: paradox
Velmi pozorne sleduji kazdou debatu o tabulkach paradox. Taky jsem naletel Borlandum, ale vypravej to zakaznikovi ... Sveho casu jsem si vyslech hodne nadavek. Nyni tam mam automaticke reindexace, opravy, dbiSaveChange, WinNT a chodi to na jednom pocitaci v pohode. Ale nastal cas kdy jsem mu slibil, ze to bude behat na siti. Ladim to teprve dva dny a za tu dobu jsem mel asi tak 5x Index out of date.
Co jsem vycet z predchozich debat o tomto problemu tak jsem udelal:
1. Sessin.NetFileDir je cesta shodna na obou PC '\\server\data' case sensitive
2. Stejne verze BDE 4.0 na obou PC
3. Local Share=true v BDE Administrator Configuration/System/INIT
4. Poukonceni programu Session.Close;
5. CachedUpdates := false
6. Odmazavam LCK soubory v PrivateDir
Na co jsem zapomel ? Da se vypnout zpozdeny zapis na WinNT4.0 ?
Zkousim to na WinNT40 WorkStation, PearToPear. Jak na FAT tak na NTFS. Cetl jsem FAQ od Inprise.com (Technical information Document TI3342 i BDE setup for Pear-To-Pear)
A stejne jsem v .....
P.S. Predelavat to na nejaky SQL server nechci. Delal jsem tu aplikaci na paradoxu rok a pul a ma 23 tabulek.
Vlada
QuickRep
[*] Mirun <forcom(zv)telecom(tec)cz> - 19.12.1998 01:15:12
-----P�vodn� zpr�va-----
Od: Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 18. prosince 1998 8:46
P�edm�t: QuickRep
>PS1 : V cem se lisi QR Profesional od QR dodavany s Delphi.
QR profesional ma navic editor sestav pro koncoveho uzivatele (neni prilis
user friendly) a QrExprMemo ktery neni nikde popsan (nebo jsem to nikde
nenasel), ani jedna z techto veci neni duvod ke koupi (pouze dle meho
nazoru)
Dulezitejsi je kompl. source, takze se daji odstranovat ruzne chyby, ktere
qusoft prehledl. (na netu je nekolik stranek ktere se tomu venuji, bohuzel
mam zkusenost s tim, ze pak prestane v Qr fungovat neco jineho...)
Kupoval jsem si prof. verzi protoze jsem kdysi potreboval tisk z Delphi 1 a
ReportSmith nebyl na 5ti disketach zrovna to prave orechove...
BTW: Jak je to s QR v Delphi 4 ?
Potreboval bych vedet, zda trpi stejnymi nedostatky jako QR2 - neuvolnovani
resourcu, handlu atd. ?
Mirun
Delete query
[*] Pavel Cink <apscomp(zv)login(tec)cz> - 19.12.1998 11:22:28
> Polozka je datumovej typ, parametry DatumOd a DatumDo taky a hodnoty do
> nich strkam pres StrToDate (RXDateEdit.Text)
A co kdybys pouzil property RxDateEdit.Date ?
Zdar Pavel
off-filosoficka otazka (pro p.Fronka)
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 19.12.1998 11:31:37
Hello All!
Uz asi 8 rokov sledujem elektronicke konferencie a stale to iste dokola.
Kto si chce usetrit nervy, skuste si nastavit 'Posta' / 'Pomocnik pro
dorucenou postu' / 'Pridat', potom do policka 'Odesilatel' napisat 'Martin
Fron�k' a v 'Slozka' vybrat 'Odstranena posta' (navod plati pre MS klienta,
ale taketo nieco vie snad kazdy klient) Tym padom tie spravy nebudete
vidiet ani na ne reagovat a obtazovat tych, co to uz tak mame.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Offtopic - Netscape 4.5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.12.1998 11:57:14
Pokud nekdo pouziva Netscape Messenger 4.5 a otravuje ho neustale
pripojovani na Netscape web pri otevreni
Messengera tak mi napiste a ja vam poslu resdll.dll a mate po problemech
;-)
Mac
P.S. Soukrome mail-to: martin.kubecka(zv)amenit(tec)cz
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
FlashFiler
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 19.12.1998 17:01:51
>Petr Zahradnik wrote:
> Vlastnost Recno neni funkci a asi nebude // ale jsou zdrojaky
*Podle slov Juliana Bucknalla (autor FlashFileru u TurboPower)
*toto neni implementovano, protoze to neni mozne vzhledem
*k vnitrni strukture databaze FlashFileru.
Nezda se mi, ze by neslo zjistit / udelat / na kterem zaznamu jsem,
uz z hlediska vnitrniho pristupu k datum.
Druha vec je otazka efektivity takoveho zjistovani v sitovem provozu.
ale umoznovat by se to melo dat.
Uz proto, ze jak sam Turbo Power uvadi "mnoho aplikaci beha jako
SINGLE.EXE"
coz je ostatne pravda
------------------------------------
> Vlastnost RecordCount ukazuje celkovy pocet records bez ohledu na vl.
> Filtered
*Na toto mi odpovedel, ze neni doporuceno pouzivat filtrovani
*dat ve FlashFileru, protoze je to znacne neefektivni reseni.
*Je fakt, ze filtr na Internetu neno to prave orechove,
*vzhledem k tomu, ze je provadeno na klientovi a ne na serveru.
*Ve verzi 2 by mela byt podpora filtrovani na strane serveru
*a snad take nejake SQL.
Muj nazor je, ze pokud danou vlastnost podporuji, zak bych ji mel
podporovat komplexne, uz pro vyse uvedene SINGLE.EXE aplikace a
ne napul.
------------------------------------
Dale si nedovedu predstavit situaci kdy mam tabulku zakazniku o napr. 1000
records
a potreboval vytisknout vsechny se jmenem NOVAK a nemam doporucovano
pouzivani filtru
a SQL neni podporovano.> Provoz v siti v praxi { jak vlastne funguje Client-Server u FF }
*FlashFiler funguje velmi dobre i na sitich. Dej konkretni dotaz.
tezko davat konkretni dotaz na otazky typu
" Co se stane kdy do tabulky chce zapisovat 30 users naraz a a je to po 38.
"
To chce spis provoz v praxi, tak jak mame priblizne osahane DB tabulky.
------------------------------------
> a dalsich par drobnosti
*No tak se musis zeptat...
Proto jsem ucinil "nesmely" pokus zavest tema FF do konference
a podle pravidla "vice hlav vice vi" v tom pokracovat pokud bude trochu
zajmu.
Podle me je to lepsi nez si vymenovat nazory mezi nami dvema jako dosud.
------------------------------------
mym pranim by bylo rozsireni FF v nasich krajich /pokud je v ramci moznosti
spolehlivy/
a diskuzemi privodit par napadu jak ho jeste vylepsit.
------------------------------------
Tot vse damy a panove
P.S. Pokud si jiz nenapiseme v tomto roce tak
bohateho jeziska / ja si ho jiz nadelil v podobe FF/ a a stastny Nejenom
Novy rok.
Pozdrav zasila
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
paradox
[*] Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz> - 19.12.1998 18:04:58
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
No ja take zadne problemy s tabulkami ACCESSu nikdy nemel. Presto prechod do accessu v pripade tohoto programu nelze. A Access je pomalej.
Tak me napada otazka jestli nekdo nenarazil na internetu o nejaky clanek zabyvajici se srovnani rychlosti Paradox, dBase, Access, FoxPro atd.
Vlada
-----P�vodn� zpr�va-----
Od: Erik Salaj <erik(zv)dodo.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. prosince 1998 15:43
P�edm�t: Re: paradox
A co tak vyskusat MS Access? V Accesse som sa zatial s podobnymi problemami nestretol.
Erik Salaj
erik(zv)dodo.sk
-----Original Message-----
From: Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: Thursday, December 17, 1998 11:57 PM
Subject: paradox
Velmi pozorne sleduji kazdou debatu o tabulkach paradox. Taky jsem naletel Borlandum, ale vypravej to zakaznikovi ... Sveho casu jsem si vyslech hodne nadavek. Nyni tam mam automaticke reindexace, opravy, dbiSaveChange, WinNT a chodi to na jednom pocitaci v pohode. Ale nastal cas kdy jsem mu slibil, ze to bude behat na siti. Ladim to teprve dva dny a za tu dobu jsem mel asi tak 5x Index out of date.
Co jsem vycet z predchozich debat o tomto problemu tak jsem udelal:
1. Sessin.NetFileDir je cesta shodna na obou PC '\\server\data' case sensitive
2. Stejne verze BDE 4.0 na obou PC
3. Local Share=true v BDE Administrator Configuration/System/INIT
4. Poukonceni programu Session.Close;
5. CachedUpdates := false
6. Odmazavam LCK soubory v PrivateDir
Na co jsem zapomel ? Da se vypnout zpozdeny zapis na WinNT4.0 ?
Zkousim to na WinNT40 WorkStation, PearToPear. Jak na FAT tak na NTFS. Cetl jsem FAQ od Inprise.com (Technical information Document TI3342 i BDE setup for Pear-To-Pear)
A stejne jsem v .....
P.S. Predelavat to na nejaky SQL server nechci. Delal jsem tu aplikaci na paradoxu rok a pul a ma 23 tabulek.
Vlada
jpg a gif v Delphi 2
[*] Milos Prudek <prudek(zv)sol(tec)cz> - 19.12.1998 19:03:54
Hi,
Potreboval bych zobrazovat GIF a JPG soubory, formou nahledu, v Delphi
2. Jak na to?
--
Milos Prudek
Sonet Online s.r.o.
http://www.sol(tec)cz
QuickReport
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 19.12.1998 23:00:01
Nazdarek vsichni,
krome toho, ze vsem preji "stastne a vesele"
mam dodaz na QR v D4:
V D2 a D3 se po prikazu QR.preview ukaze obrazovka s reportem,
dole to chvilku pocita 0%...100%, a pak to napise Page 1 of 37.
V D4 ne. (Mam D4P SP2, QR SP 3.03)
Dole se objevi 0% a zustane tam, pocet stran se neukaze.
Pokud pouziji skok na nejakou dalsi stranku reportu, jiz spravne
ukaze Page 2 of 37, ale porad zustava 0%.
Zkousel jsem prepare a nic. Co s tim mam delat ?
Nevadi mi ani tak tech 0%, jako ze nevidim rovnou pocet stran.
Diky za rady.
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
Chyba ??? D4
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 19.12.1998 23:11:25
Srdecne zdravim,
Pres vsechny updaty (mam snad vsechno, co je k dispozici :-)) / :-(( )
mi porad pri vytvareni noveho formulare
{File - New Form} nebo {File - New - Form}
D4P napise "Error creating form. Access violatin at address 00000009.
Read of address 02B84679" Cisla obou adres se meni, nekdy rika neco o
chybe v BORLNDMM.DLL i jinych. Vytvori Unit1.pas, ale neudela k nemu Unit1.dfm
Vypozoroval jsem ze to dela jen v nekterych projektech. Ale mohou to
byt jak stare projekty z D3, tak i nove vytvorene projekty z D4.
Preinstaloval jsem cele W95 (kompletne pocinaje smazanim vsech adresaru),
dela to porad. Delalo to bez patche, dela to i s patchem.
Kde jsem to chytil ? Ma to take nekdo z Vas ? Delam to spatne ?
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
QuickReport
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 02:39:50
Ondrej Krajicek wrote:
>
> K cemu jsou komponenty QuickReport QRTextFilter, QRCSVFilter a QRHtmlFilter. Napada me ze dokazou presrotit report do prislusneho formatu, ale jak je pouzit. V napovede jsem je nenasel.
Ahoj,
Stahni si update QR3 helpu, tam jiz popis techto komponent najdes:
http://www.inprise.com/techpubs/delphi/updated.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Znovuvybrani menuitems
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 02:39:38
Bene� Jaroslav wrote:
>
> Ahoj, pokusim se mit vecny dotaz. Je mozne po vyvolani nejake akce z menu
> (kdyz se menu zaklapne), znovu ho otevrit na stejne polozce (pripadne tam
> presunout i kurzor mysi)? Nekteri moji uzivatele jsou nekdy dezorientovani,
> kdyz se jim treba dialog z menu vyvolany zavre a oni si nemuzou hned
> vzpomenout, odkud ho vlastne vyvolali, obvzlaste je-li menu velmi bohate
Ahoj,
Podobna vec tu uz jednou byla. Tady je jedno moje reseni, ktere ale neni
prilis idealni. Nicmene na jiny zpusob jak to resit jsem zatim neprisel:
http://www.delphi(tec)cz/soubor.asp?dir=\archiv\1998\sep\06\dlfaaaas.htm
> (netyka se to samozrejme vsech polozek, ale jen nekterych znacne
> frekventovanych). Me programy jsou psany v Delphi1 (nemate nekdo zkusenosti
> s CALL32NT pripadne s nejakou jeho nadstavbou? Velmi privitam pripadne
> zkusenosti ! ).
Zkus se zeptat Martina Nedopila, tusim ze on jeste nedavno delal v D1 a prave
s timto neco zkousel.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Naozaj treba Patch?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 02:40:17
Polak Jiri wrote:
> Ja jsem Update Pack #2 uz davno odstranil (myslim,
> ze jsem o tom sem psal). S jeho pouzitim mi nesly dedit formy,
> konkretne na predkovi jsem mel toolbar1, pri pokusu
> otevrit jeho potomka to hlasilo, ze komponenta toolbar1
> je deleted a tak podobne. V tomto smeru je Delphi
Ahoj,
Ted jsem to zkusil (D4 Prof s UpdPack #2) a dedeni formu s toolbarem
jde naprosto bez problemu.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
to tedy nechapu property
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 02:40:53
"Ji�� Heinisch" wrote:
>
> private
>
> FNameStream :ShortString;
> procedure SetNameStream(Value:ShortString);
>
> published
> property StreamName :ShortString read FNameStream write SetNameStream;
>
> public
> constructor Create(Owner: TComponent); override;
> ---------------------
>
> constructor TListViewDeis.Create(Owner: TComponent);
> begin
> inherited Create(Owner);
>
> MessageDlg(FNameStream, mtInformation, [mbOk], 0);
> end;
>
> potrebuji znat vlastnost StreamName pri vytvareni komponenty
> ale v hlasce se nic neobjevi.
>
> V kterem momente jsou znamy veskere property hodnoty abych
> k nim mohl pristoupit ???
>
Ahoj,
Veskere hodnoty jednotlivych property jsou znamy az v metode Loaded (dale
viz Help).
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Seminar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 02:44:01
Pavel Cisar wrote:
> Haj hou!
>
> Je zde pritomen nekdo, kdo se chysta do Lazni Belohrad na seminar Delphi na
> prelomu tisicileti ?
Ano, tady .....
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
sestrelni aplikace v pameti w9x/nt
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 02:49:40
Radoslav Krehlik wrote:
>
> Ahoj,
>
> kdyz uz ses ten expert :P Nemas nejaky spolehlivy recept -source, jak
> sestrelovat
> at uz bezici, nebo vytuhnutou aplikaci v pameti, ale aby to slapalo dobre i
> pod w95/98 ?
Pomoci API funkce TerminateProcess. Tady mas ukazkovou aplikaci ProcessViewer
ktera to umi a je u ni prilozen i zdrojak. Neni to urceno pro NT.
http://members.aye.net/cgi-bin/dfs_components.cgi?fw_pviewplus
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
HotKey
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 02:50:31
Peter Hudec wrote:
> Ved teraz to aj tak mam, ale v menu je taka blba kombinacia pismen, ze v
> niektorych
> dalsich polozkach je to uz potom predposledne pismeno, a to uz nevyzera
> bohvieako,
> keby som rozchodil to �, uvolnili by sa mi 4 pismena.
Ahoj,
Dobre, ale myslim ze tak uzivatelum zpusobis spis trochu zmatek, nez aby jim
to pomohlo. A ze to nevypada dobre, treba MS Exchange ma v menu polozce Napsat
pouzite T.
Muzes to tedy udelat takhle, ale nechova se to uplne presne jako bezne acceleratory.
Pokud pomoci toho aktivujes menu, tak opakovany stisk stejne kombinace klaves neni
ignorovan, ale deaktivuje menu. V prikladu je menu File Edit Window, pricemz polozku
Window (Window1) muzes aktivovat pomoci Alt+U.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File2: TMenuItem;
New2: TMenuItem;
Edit1: TMenuItem;
Undo1: TMenuItem;
Window1: TMenuItem;
NewWindow1: TMenuItem;
private
procedure WMMenuChar(var Message: TWMMenuChar); message WM_MENUCHAR;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMMenuChar(var Message: TWMMenuChar);
begin
if UpCase(Message.User) = 'U' then
Message.Result := MakeLong(Window1.MenuIndex, MNC_EXECUTE)
else
inherited;
end;
end.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************QuickReport
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 20.12.1998 14:13:01
>V D2 a D3 se po prikazu QR.preview ukaze obrazovka s reportem,
>dole to chvilku pocita 0%...100%, a pak to napise Page 1 of 37.
>
>V D4 ne. (Mam D4P SP2, QR SP 3.03)
Zkus posledni verzi QR.
Posledni byla reinkarnace byla QR3.0.4, a ta sama mela jeste ctyri mutace.
Posledni co znam je z 18.12.1998.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
www.stereo(tec)cz
jpg a gif v Delphi 2
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 20.12.1998 14:30:15
Tak na toto mam takove male (200KB) dll-ko. Funkce se z nej jednoduse
volaji, je to rychly a uciny
Pokud budete mit zajem, tak se ozvete, ja vam to poslu
A navic to zvlada JPG, JIF, GIF, BMP, DIB, RLE, TGA, PCX
K. Nishita.
-----P�vodn� zpr�va-----
Od: Milos Prudek <prudek(zv)sol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. prosince 1998 19:29
P�edm�t: jpg a gif v Delphi 2
>Hi,
>
>Potreboval bych zobrazovat GIF a JPG soubory, formou nahledu, v Delphi
>2. Jak na to?
>
>--
>Milos Prudek
>Sonet Online s.r.o.
>http://www.sol(tec)cz
>
Jeste jednou SQL a Outer Join]
[*] Matej Prochazka <harnod(zv)atlas(tec)cz> - 20.12.1998 14:32:33
--
================================
Matej Prochazka
Programatorsky amater
================================
harnod(zv)atlas(tec)cz
http://www.mujweb(tec)cz/www/harnod/
Chyba ??? D4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.12.1998 22:44:06
"Ing. Zdenek Sraier" wrote:
> Pres vsechny updaty (mam snad vsechno, co je k dispozici :-)) / :-(( )
> mi porad pri vytvareni noveho formulare
> {File - New Form} nebo {File - New - Form}
> D4P napise "Error creating form. Access violatin at address 00000009.
> Read of address 02B84679" Cisla obou adres se meni, nekdy rika neco o
> chybe v BORLNDMM.DLL i jinych. Vytvori Unit1.pas, ale neudela k nemu Unit1.dfm
>
> Vypozoroval jsem ze to dela jen v nekterych projektech. Ale mohou to
> byt jak stare projekty z D3, tak i nove vytvorene projekty z D4.
>
> Preinstaloval jsem cele W95 (kompletne pocinaje smazanim vsech adresaru),
> dela to porad. Delalo to bez patche, dela to i s patchem.
Ahoj,
Nikdy se mi nic takoveho nedelo a to jak s puvodni verzi tak s Upd#2. Nemuze
byt treba problem v nejakych nainstalovanych komponentach ci rozsirenich IDE?
Dalsim zdrojem problemu muze byt IE4, ktery znacnym zpusobem zasahuje do
operacniho systemu a zpusobuje jeho vetsi nestabilitu. Take to muze byt nejaka
zavada v HW pocitace, ale to by se asi projevovalo ve vice aplikacich. Pokud
se to deje i po kompletnim preinstalovani, tak to zkus na jinem pocitaci....
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Seminar
[*] Jaro <jaro(zv)sinea(tec)cz> - 20.12.1998 23:25:19
Ja taky, Proc?
Jaro
>Pavel Cisar wrote:
>> Haj hou!
>>
>> Je zde pritomen nekdo, kdo se chysta do Lazni Belohrad na seminar Delphi
na
>> prelomu tisicileti ?
>
>Ano, tady .....
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>* protestni akce *
>************************
>
>off-filosoficka otazka
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.12.1998 00:02:39
Vubec jsem te nepochopil. Mozna jsi prehledl, ze jsi na konferenci DELPHI.
Pak se nediv, ze se tu pise hlavne o Delphi. Kdo programuje v nejakem
jazyku, jeste nemusi byt zaslepenej.
Na konferenci urcene pro Delphi nam nadavas do "zaslepenych delphistu"
a pozastavujes se nad vyroky "mene slusne". Mozna ani moc nedovedes
rozlisovat mezi slusnym a neslusnym.
Ja treba nejsem "zaslepenej delphista" a znam i jine programovaci jazyky.
Nicmene na konferenci Delphi, ctu a pisu prispevky k Delphi, tedy narozdil
od tebe. Ty se tu spis zejmena predvadis. Kolik tvych prispevku bylo nekou
k uzitku? V jednej vete urazka, v dalsi omluva .... nejsem takovej cita, jen
se mi tento zpusob nelibi.
Myslim, ze nemusi byt zaslepenec kazdy, kdo programuje v necem jinem nez ty.
Pokud si myslis, ze mas pravo psat kamkoliv a cokoliv, tak si precti
pravidla
teto konference.
Jaro
>
>kdyz uz me tady tak "hezky" propirate, tak mi prosim sdelte, jake moje
>vyroky jsou "mene slusne", a kdyz uz je budete hledat, tak se prosim
>nezapomente podivat na co jsem vlastne takhle reagoval. Ja se proste
>nenecham od nikoho napadat, a obzvlaste ne od zaslepenych delphistu,
>kteri si mysli, ze delphi je nejlepsi a nekteri si dokonce mysli ze
>jediny spravny programovaci jazyk (pardon - prostredi) VCL je opravdu
>skvela myslenka, ale VCL se pouziva i v builderu, ktery ma mnohem vetsi
>moznosti, presto je zde valnou vetsinou ignorovan. Podivejte se treba na
>Delphi Super Page. Tam maji i sekce komponent pro builder a vubec mi
>nevadi, ze se to nejmenuje Builder Super Page - protoze tam se chovaji
>korektne. Totez na ostatnich skladech komponentu. Proc si tedy vetsina
>domacich uzivatelu mysli, ze JEN delphi je to nejlepsi???
>
>PS Jiz drive jsem se omluvil vsem, kteri se citi urazeni, delam to tedy
>znovu. Omlouvam se.
>
>
>Martin Fron�k
>ZZN Slan� a.s.
>Pra�sk� 1579, 274 49, Slan�
>tel. +420-314-522986
>e-mail: fronek(zv)zznslany(tec)cz
>
>> -----P�vodn� zpr�va-----
>> Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
>> Odesl�no: 17. prosince 1998 22:04
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: Re: off-filosoficka otazka
>>
>> Nektere "mene slusne" vyroky (nejenom Martinovi)
>> mi zrovna moc srandovni nepripadaji.
>> Jsou spise trochu trapne.
>> Ovsem pokud nekoho nenau�ili slusnemu chovani jeho rodice,
>> tak ja to za ne urcite delat nebudu.
>> Jaro
>>
>>
>>
>> >No Martin je trosku vybusnejsi povahy, ale aspon je tu sranda ;-)))
>> >
>> >Mac - taky ing. ;-))))
>> >
>> >tomas.mazurek(zv)vitkovice(tec)cz wrote:
>> >
>> >> co myslite, pratele, naucime spolecnym usilim p. Martina Fronka
>> >> slusnemu chovani?
>> >
>
IDDBAS32.dll
[*] Jirka <virt(zv)pepa(tec)cz> - 21.12.1998 07:18:58
Ahoj,
tak to jsem mel podobny problem.Mam napsany program s DBF a po odzkouseni
vygenerovane aplikace , mi to pri nabehu najednou napsalo 'Neni soubor
idpdx32.dll' ???? A to jsem v InstallShieldu dal u DBE drivery pro DBF.
Pritom s tabulkami PDX vubec nepracuji.Myslim si , ze je to asi nejak
(divne) provazano????
Jirka Virt
email: virt(zv)pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. prosince 1998 13:52
P�edm�t: Re: IDDBAS32.dll
> Udelal jsem instalacni program nainstaloval jsem na jinem pocitani =
> program a program vola ze neni driver na databazi IDDBAS32.dll, k cemu =
> je ta DLL ta knilhovna.
To je z BDE na tabulky dBase.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
Praskal zapraskany
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.12.1998 07:29:02
Bene� Jaroslav wrote:
> tak potom pretypovat na byte a vymaskovat. Anebo upravu udelat
> lokalne a pak to na dane misto prenest jako blok bytu; a neni pravda ze
> tato mnozina zabira 32 bytu. Mnozina nadefinovana k pretypovani zabira
> prave jeden byte. Tento zpusob se mi proto jevi velmi efektivni. Zdravim
>
> > -----P�vodn� zpr�va-----
> > > type bity=(bit_1,...,bit_8);
> > > byty=set of bity;
> > > var prom:Byte;
Mas pravdu, tento typ je skutecne jednobajtovy, ted jsem si to
overil. Nicmene, muj problem to neresi, protoze bych v ramci
jednoho bajtu potreboval mit dva booleany, abych je mohl volat
napr. takto:
bool1:=prom.bit_1;
bool2:=prom.bit_2;
Jinak mi skutecne nezbyva nez pouzity bajt sloziteji pretypovavat,
nebo prelit do jine struktury.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Seminar
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.12.1998 07:29:03
Pavel Cisar wrote:
> Je zde pritomen nekdo, kdo se chysta do Lazni Belohrad na seminar Delphi
> na prelomu tisicileti ?
Je.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Praskal zapraskany
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.12.1998 08:28:03
>
>> takze, pokud nemas zdrojaky tak by Ti stejne ani zadna moznost sdileni
>> jednoho bytu vice booleany nepomohla :-). Pokud zdrojaky mas, co brani
>> prechodu na neco co vyuzije zbyle bity ??
>Huh, kvuli tomu nebudu delat potomka! :-)
pokud s tim nechces nic delat tak proc se ptas?
Zdravi
D. Toman
IDDBAS32.dll
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 21.12.1998 08:38:33
>Ahoj,
>
>tak to jsem mel podobny problem.Mam napsany program s DBF a po odzkouseni
>vygenerovane aplikace , mi to pri nabehu najednou napsalo 'Neni soubor
>idpdx32.dll' ???? A to jsem v InstallShieldu dal u DBE drivery pro DBF.
>Pritom s tabulkami PDX vubec nepracuji.Myslim si , ze je to asi nejak
>(divne) provazano????
>
>
>Jirka Virt
>
Nerekl bych provazano, ale spis to bude tim, ze Delphi interne pracuje s
formatem paradoxu (vysledek Query) apod.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
jpg a gif v Delphi 2
[*] Milos Prudek <prudek(zv)sol(tec)cz> - 21.12.1998 08:44:09
> Tak na toto mam takove male (200KB) dll-ko. Funkce se z nej jednoduse
> volaji, je to rychly a uciny
> Pokud budete mit zajem, tak se ozvete, ja vam to poslu
Zajem mam.
Mezitim jsem nasel imwt32d.dll, ImagN, The Image Integrator, ma pres
700kB. Je to ono?
--
Milos Prudek
Sonet Online s.r.o.
http://www.sol(tec)cz
IDDBAS32.dll
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.12.1998 09:19:12
> tak to jsem mel podobny problem.Mam napsany program s DBF a po odzkouseni
> vygenerovane aplikace , mi to pri nabehu najednou napsalo 'Neni soubor
> idpdx32.dll' ???? A to jsem v InstallShieldu dal u DBE drivery pro DBF.
> Pritom s tabulkami PDX vubec nepracuji.Myslim si , ze je to asi nejak
> (divne) provazano????
Kdepak, neni to divne provazano, ale pro dotazy (SQL i QBE) je potreba
prave tato DLL knihovna pro Paradox. InstallShield by mel byt natolik
chytry, ze by tohle mel vedet. Ale jestli to vi, to ja navim...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
Praskal zapraskany
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.12.1998 09:30:03
Ahoj,
lehce nechapu Tvoji obavu, v ramci stavajiciho typu muzes mit az 8
(jednobitovych) booleanu a muzes si dokonce vybrat, kam si je v ramci bytu
das; tak v cem je problem?
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 21. prosince 1998 7:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Praskal zapraskany
>
> Bene� Jaroslav wrote:
>
> > tak potom pretypovat na byte a vymaskovat. Anebo upravu udelat
> > lokalne a pak to na dane misto prenest jako blok bytu; a neni pravda ze
> > tato mnozina zabira 32 bytu. Mnozina nadefinovana k pretypovani zabira
> > prave jeden byte. Tento zpusob se mi proto jevi velmi efektivni. Zdravim
> >
> > > -----P�vodn� zpr�va-----
> > > > type bity=(bit_1,...,bit_8);
> > > > byty=set of bity;
> > > > var prom:Byte;
>
> Mas pravdu, tento typ je skutecne jednobajtovy, ted jsem si to
> overil. Nicmene, muj problem to neresi, protoze bych v ramci
> jednoho bajtu potreboval mit dva booleany, abych je mohl volat
> napr. takto:
> bool1:=prom.bit_1;
> bool2:=prom.bit_2;
>
> Jinak mi skutecne nezbyva nez pouzity bajt sloziteji pretypovavat,
> nebo prelit do jine struktury.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Seminar
[*] mdvorak(zv)csas(tec)cz - 21.12.1998 09:41:29
Ano a budou nas miliony.... :-)))))))))))))))
M. Dvorak
-----Original Message-----
From: Pavel Cisar [mailto:pcisar(zv)aktis(tec)cz]
Sent: Friday, December 18, 1998 4:18 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Seminar
Haj hou!
Je zde pritomen nekdo, kdo se chysta do Lazni Belohrad na seminar Delphi na
prelomu tisicileti ?
Loadlibrary (a nezmyselny param)
[*] Bielik Marian <bielik(zv)basl.sk> - 21.12.1998 09:45:50
Cafte !
Najde sa dobra dusa co mi prezradi kde robim chybu ?
Pomocou Loadlibrary natahujem proceduru z DLL avsak pokial sa pokusim
v procedure zobrazit odovzdany parameter z volajuceho programu
vzdy mi to prenesie len nejaky nezmysel (bez ohladu ci je parameter
string,alebo integer alebo...)
Vopred dakujem
Marian
Program:
procedure TKonzola.LoadTel;
type
Proc =procedure(ip,port,meno:PChar); // Tu definujem proc.
var
HInst:THandle;
FPointer:TFarProc;
MyProc:Proc;
begin
HInst:=LoadLibrary('Talk.dll');
if HInst > 32 Then
begin
FPointer:=GetProcAddress(HInst,'start');
if FPointer <> nil then
begin
MyProc:=Proc(Fpointer);
MyProc('0.0.0.0','10000','probe'); //Tu volam proc s
param.
end
else Showmessage('Nenasiel som funkciu Start');
end
else Showmessage('Nenasiel som kniznicu talk.dll');
end;
Kniznica:
Procedure start(ip,port,meno:Pchar);stdcall;export;
implementation
{$R *.DFM}
Procedure start(ip,port,meno:Pchar);
begin
Form1:=TForm1.Create (Application);
Form1.Caption:='Rozhovor s '+ ip; //Tu sa snazim zobrazit odovzdany
param
try
if Form1.Showmodal= mrOK then with form1 do
begin
......
end;
finally
Form1.Free
end;
end;
Cached Updates
[*] tomas gurny <tgurny(zv)finaldim(tec)cz> - 21.12.1998 09:55:59
Ahoj,
mam nasledujici problem. Pracuji na lokalni paradoxovske tabulce
pomoci komponenty TQurey (D2). Kdyz vsak v SQL pouziju ORDER BY,
prepne se dataset do read-only modu a nemuzu ho editovat. Z manualu
jsem vytusil, ze by pomohlo pouziti cached updates. Trapim se s tim uz
nejaky cas, ale porad to nefunguje. Muze mi nekdo poradit jak na to?
Nejlepe najaky odkaz na vzorovy priklad - hledal jsem na internetu ale
marne.
Diky
Tomas
tgurny(zv)finaldim(tec)cz
Loadlibrary (a nezmyselny param)
[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 21.12.1998 10:01:26
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Na prvni pohled bych rekl, ze predavas parametr string,
ale v te knihovni procedure pouzivas PChar, takze ty
parametry '0.0.0.0', '10000', 'probe' nejprve preved
na nullterminated retezec.
Dobra.
> ----------
> Od: Bielik Marian[SMTP:bielik(zv)basl.sk]
> Odesl�no: 21. prosince 1998 9:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Loadlibrary (a nezmyselny param)
>
> <<Soubor: ATT00022.html>>
> Cafte !
>
> Najde sa dobra dusa co mi prezradi kde robim chybu ?
> Pomocou Loadlibrary natahujem proceduru z DLL avsak pokial sa pokusim
> v procedure zobrazit odovzdany parameter z volajuceho programu
> vzdy mi to prenesie len nejaky nezmysel (bez ohladu ci je parameter
> string,alebo integer alebo...)
>
> Vopred dakujem
>
> Marian
>
> Program:
>
> procedure TKonzola.LoadTel;
> type
> Proc =procedure(ip,port,meno:PChar); // Tu definujem proc.
> var
> HInst:THandle;
> FPointer:TFarProc;
> MyProc:Proc;
> begin
> HInst:=LoadLibrary('Talk.dll');
> if HInst > 32 Then
> begin
> FPointer:=GetProcAddress(HInst,'start');
> if FPointer <> nil then
> begin
> MyProc:=Proc(Fpointer);
> MyProc('0.0.0.0','10000','probe'); //Tu volam proc s
> param.
> end
> else Showmessage('Nenasiel som funkciu Start');
> end
> else Showmessage('Nenasiel som kniznicu talk.dll');
> end;
>
> Kniznica:
>
> Procedure start(ip,port,meno:Pchar);stdcall;export;
>
> implementation
>
> {$R *.DFM}
>
> Procedure start(ip,port,meno:Pchar);
> begin
> Form1:=TForm1.Create (Application);
> Form1.Caption:='Rozhovor s '+ ip; //Tu sa snazim zobrazit odovzdany
> param
> try
> if Form1.Showmodal= mrOK then with form1 do
> begin
> ......
> end;
> finally
> Form1.Free
> end;
> end;
>
>
>
> Loadlibrary (a nezmyselny param)
[*] V�t�zslav Gazda������u��n�?��? - 21.12.1998 10:14:36
Kdyz definujes typ procedure tak tam dej take stdcall jako mas v DLL.
Proc =procedure(ip,port,meno:PChar);stdcall; // Tu definujem
Vita
MS Access - Automaticke cislo
[*] Jan Nov�k���r����n�?��? - 21.12.1998 10:45:37
Pouzivam MS Access 97 a Delphi 4 . V tabulce Accessu mam pole ID typu
Autoincremental (prirustek 1) . Kdyz prodavan zaznam v Accessu zvetsuje
se hodnota ID o 1 coz je spravne . Kdyz vymazu vsechny zaznamy a zkomprimuji
databazi . Zacina prirusek od 1 a zvetsuje se o jednu. To je spravne.
Kdyz vsak pouziji aplikaci Delphi , ktera pouziva stejnou tabulku
(Nativni driver) pocatecni hodnota pole incremental neni 1 a take prirustek
je nekdy 2 nekdy 3 , proste to funguje blbe. I po vymazu vsech zaznamu
a zkomprimovani tabulky databataze pole typu incremental neni nastaveno na
pocatecni hodnotu 1 a prirustky nejsou dobre. Cim to muze byt. Nesetkali
jste se s tim nekdo ? BDE verze 5.0
Diky vsem za radu.
Loadlibrary ... OK :-)
[*] Bielik Marian <bielik(zv)basl.sk> - 21.12.1998 11:03:19
Toto zabralo :
>Kdyz definujes typ procedure tak tam dej take stdcall jako mas v DLL.
>Proc =procedure(ip,port,meno:PChar);stdcall; // Tu definujem
----------------------------------------------------------------------------------------
Vyskusal som aj Pchar('0.0.0.0') atd. ale to nebol ten zadrhel.
Funguje to tak i tak ale suhlasim ze tato forma je urcite vhodnejsia
>Na prvni pohled bych rekl, ze predavas parametr string,
>ale v te knihovni procedure pouzivas PChar, takze ty
>parametry '0.0.0.0', '10000', 'probe' nejprve preved
>na nullterminated retezec.
Este raz dakujem !
Marian
Naozaj treba Patch?
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 21.12.1998 11:54:10
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Sent: Sunday, December 20, 1998 2:40 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Naozaj treba Patch?
>
>
> Polak Jiri wrote:
> > Ja jsem Update Pack #2 uz davno odstranil (myslim,
> > ze jsem o tom sem psal). S jeho pouzitim mi nesly dedit formy,
> > konkretne na predkovi jsem mel toolbar1, pri pokusu
> > otevrit jeho potomka to hlasilo, ze komponenta toolbar1
> > je deleted a tak podobne. V tomto smeru je Delphi
>
> Ahoj,
>
> Ted jsem to zkusil (D4 Prof s UpdPack #2) a dedeni formu s toolbarem
> jde naprosto bez problemu.
>
Ahoj,
ja pouzivam D4 C/S. S tim dedenim formu jsem nepopsal situaci
uplne presne. Popisu situaci konkretneji, vykopiruji cast zpravy, kterou
jsem jiz jednou posilal:
Mam posloupnost potomku TForm:
TForm //predek z Delphi
TMyFormBase //ten je v me repository
TMyFormMDIForm //ten je taky v me repository
TMyFormMDIApp //instancovany form v aplikaci - hlavni okno
do TMyFormMDIForm mam (mimo jine) vlozen CoolBar, na nem jsou ToolBarForm
a ToolBarChild.
Vsechno jsem vytvoril v Delphi 4 bez update, bylo to OK.
Po instalaci UP1, UP2 a pokusu otevrit TMyFormMDIApp vyskocila hlaska:
"Component ToolbarForm was deleted from ancestor..." asi ji znate.
Hodne casu jsem stravil hledanim chyby u sebe, protoze jsem nanestesti
chvilku predtim tuto komponentu prejmenovaval z ToolBar1. Nakonec jsem
ale zjistil, ze to nikam nevede a zkusil znovu preinstalovat Delphi.
Na cistem Delphi byl projekt OK. Po instalaci UP2 (tentokrat bez UP1)
se zacal opet projevovat vyse popsany problem. Nakonec jsem znovu
preinstaloval Delphi a pouzivam jenom jeho "originalni" verzi.
jestli ma nekdo chut to vyzkouset, budu jedine rad. Treba se jedna
o problem pouze verze C/S (?) nebo je to rukama?
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Ostrankovanie pri tlaci s RichEditu
[*] hrenovcik(zv)ns.basl.sk - 21.12.1998 11:55:45
Cavte !
Neviete niekto ako vlozit znak pre odstrankovanie priamo do RichEditu
??? ( suuuuuurne)
priklad:
RichEdit.Lines.Add( ' Line1 ' ) ;
??? nieco na odstrankovanie ???
RichEdit.Lines.Add( ' Line2 ') ;
RichEdit.Print(RichEdit.Text);
Myslel som ze to pojde cez RichEdit.Lines.Add(#12); ale asi je to blbost
!
Diky za kazdu radu !
Peter
Cached Updates
[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 21.12.1998 12:02:30
Pokud pouzivas v "zivem" dotazu ORDER BY, prestane byt zivy a
nepomuze Ti ani Cached Update. Jinak myslim, ze je to napsane v
manuali v podminkach pro zive dotazy. Vychazi to z principu SQL pro
modifikovatelne pohledy.
Jirka Nagy.
> -----P�vodn� zpr�va-----
> Od: tomas gurny [SMTP:tgurny(zv)finaldim(tec)cz]
> Odesl�no: 21. prosince 1998 9:56
> Komu: Delphi forum
> P�edm�t: Cached Updates
>
> Ahoj,
> mam nasledujici problem. Pracuji na lokalni paradoxovske tabulce
> pomoci komponenty TQurey (D2). Kdyz vsak v SQL pouziju ORDER BY,
> prepne se dataset do read-only modu a nemuzu ho editovat. Z manualu
> jsem vytusil, ze by pomohlo pouziti cached updates. Trapim se s tim
> uz
> nejaky cas, ale porad to nefunguje. Muze mi nekdo poradit jak na
to?
>
> Nejlepe najaky odkaz na vzorovy priklad - hledal jsem na internetu
> ale
> marne.
> Diky
> Tomas
> tgurny(zv)finaldim(tec)cz
Cached Updates
[*] Marcel Langr <ivar(zv)ivar(tec)cz> - 21.12.1998 12:05:52
>Ahoj,
>mam nasledujici problem. Pracuji na lokalni paradoxovske tabulce
>pomoci komponenty TQurey (D2). Kdyz vsak v SQL pouziju ORDER BY,
>prepne se dataset do read-only modu a nemuzu ho editovat. Z manualu
>jsem vytusil, ze by pomohlo pouziti cached updates. Trapim se s tim uz
>nejaky cas, ale porad to nefunguje. Muze mi nekdo poradit jak na to?
>Nejlepe najaky odkaz na vzorovy priklad - hledal jsem na internetu ale
>marne.
>Diky
>Tomas
>tgurny(zv)finaldim(tec)cz
Pri pouziti TQuery jsou jista omezeni a nekterych pripadech je tedy dataset
vzdy read-only
viz. manual
Restrictions on live queries
A live result set for a query against a single table or view is returned if
the query does not contain any of the following:
-JOIN, UNION, INTERSECT or MINUS clauses.
- A DISTINCT clause in the SELECT statement.
- Aggregate functions.
- Base tables or views that are not updatable.
- GROUP BY or HAVING clauses.
- Subqueries.
- ORDER BY clauses not based on an index.
- Field names that include SQL reserved words.
Marcel Langr
ivar(zv)ivar(tec)cz
Sit Microsoft - Najit pocitac - RESENI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.12.1998 12:21:53
Ahoj,
Michal Cizek wrote:
> Omlouvam se ze vstupuji do jiz rozbehle debaty, ale bojim se ze tohle panu
> Vonesovi taky nepomuze,
> protoze je-li predan jako lpNetResource NIL, vrati sice funkce i nazvy
> skupin ale jemu jde o to jak zjistit skupinu a popis urciteho pocitace
> zadaneho IP adresou ! (resil jsem tenhle problem uz pred nejakym
> casem a reseni jsem proste nenasel ... ), musel jsem to proste obejit tak ze
Ahoj,
Nakonec se ukazalo, ze (jako obvykle) nejsou prepsany hlavicky vsech WNet funkci
a zaroven chybi i ve Win32 API helpu. Podival jsem se na funkce ktere exportuje
MPR.DLL a nasel mezi nimi WNetGetResourceInformation. A to je prave ona, takze
to pak cele muze vypadat treba takhle:
function WNetGetResourceInformation(lpNetResource: PNetResource;
lpBuffer: Pointer; var lpBufferSize: DWORD; var lplpBuffer: Pointer): DWORD;
stdcall; external mpr name 'WNetGetResourceInformationA';
function NetFindUser(const RemoteName: String; var Location, Comment: String): Boolean;
var
FindNetRes: TNetResource;
ResultNetRes: packed array[1..5] of TNetResource;
Buf: Pointer;
BufSize: DWORD;
begin
ZeroMemory((zv)FindNetRes, Sizeof(FindNetRes));
ZeroMemory((zv)ResultNetRes, Sizeof(ResultNetRes));
Buf := nil;
BufSize := Sizeof(ResultNetRes);
FindNetRes.dwScope := RESOURCE_GLOBALNET;
FindNetRes.dwType := RESOURCETYPE_ANY;
FindNetRes.lpRemoteName := PChar(RemoteName);
Result := (WNetGetResourceParent((zv)FindNetRes, (zv)ResultNetRes, BufSize) = NO_ERROR) and
(ResultNetRes[1].lpProvider <> nil);
if Result then
begin
Location := ResultNetRes[1].lpRemoteName;
ZeroMemory((zv)ResultNetRes, Sizeof(ResultNetRes));
Result := (WNetGetResourceInformation((zv)FindNetRes, (zv)ResultNetRes, BufSize, Buf) = NO_ERROR);
if Result then
Comment := ResultNetRes[1].lpComment;
end;
end;
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************DBGrid
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 21.12.1998 12:44:42
Ahojda,
nevim, jsetli ti to bude jeste neco platne :-( (byl jsem tak trochu mimo
provoz),
ale takhle jsem to nedavno resil ve svem programku ....
Jedna se o DBGrid posluchacu kurzu a v prvnim sloupci muze byt
but ' ' - Ok, 'R' - rezervace, nebo 'N' - nahradnik.
Je to navesene na udalost OnDrawColumnCell a fungujeto celkem dobre ;-)// Vykreslovani gridu studentu //
procedure TfMainForm.dbgStudentsDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State:
TGridDrawState);
begin
if Column.ID = 0 then
if Column.Field.asString = 'R' then
(Sender as TDBGrid).Canvas.Brush.Color:= clBlue
else if Column.Field.asString = 'N' then
(Sender as TDBGrid).Canvas.Brush.Color:= clRed;
(Sender as TDBGrid).DefaultDrawColumnCell(Rect, Datacol,
Column,State);
end;
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Katerina Dolezalova wrote:
>
> Preji krasny den,
> dekuji za odpovedi na dotaz ohledne barevneho odliseni polozek v DBGridu,
> ale nevyresilo to muj problem.
> Kdyz v DBGridu nastavim Canvas.Font.Color pro ruzne hodnoty urcite polozky v
> databazi, tak se zbarvi cely radek, tedy pro tu jednu polozku, vsechny
> hodnoty ve vsech sloupcich a ja bych potrebovala menit barvu jen v jednom
> sloupci podle hodnoty v nem a ve vsech ostatnich sloupcich mit barvu vsech
> polozek stejnou.
> Jde to vubec nejak? Zkousela jsem vsechno mozne, ale bud to nejde a nebo je
> to tim, ze nemam v tomto dostatek zkusennosti.
>
> Predem dekuji za radu.
> Katerina Dolezalova
>
> ************************************************************
>
> K K A C C C I
> K K A A C I
> K K A A C I
> K K A A A A C I
> K K A A C C C I
>
> ************************************************************
>
> Tady jsem:
> dolezak(zv)feld.cvut(tec)cz
> dolezak(zv)cs.felk.cvut(tec)cz
> dolezak(zv)hwlab.felk.cvut(tec)cz
Cached Updates
[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 21.12.1998 13:38:33
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Udelej si na te polozce, podle ktere delas ORDER BY index,
melo by to fungovat. Doufam.
Dobra.
> > -----P�vodn� zpr�va-----
> > Od: tomas gurny [SMTP:tgurny(zv)finaldim(tec)cz]
> > Odesl�no: 21. prosince 1998 9:56
> > Komu: Delphi forum
> > P�edm�t: Cached Updates
> >
> > Ahoj,
> > mam nasledujici problem. Pracuji na lokalni paradoxovske tabulce
> > pomoci komponenty TQurey (D2). Kdyz vsak v SQL pouziju ORDER BY,
> > prepne se dataset do read-only modu a nemuzu ho editovat. Z manualu
> > jsem vytusil, ze by pomohlo pouziti cached updates. Trapim se s tim
> > uz
> > nejaky cas, ale porad to nefunguje. Muze mi nekdo poradit jak na
> to?
> >
> > Nejlepe najaky odkaz na vzorovy priklad - hledal jsem na internetu
> > ale
> > marne.
> > Diky
> > Tomas
> > tgurny(zv)finaldim(tec)cz
>
>
>
>
> Chyba ??? D4
[*] Administrator <Administrator(zv)rosoft.sk> - 21.12.1998 13:38:23
> "Ing. Zdenek Sraier" wrote:
> > Pres vsechny updaty (mam snad vsechno, co je k dispozici :-)) / :-((
> )
> > mi porad pri vytvareni noveho formulare
> > {File - New Form} nebo {File - New - Form}
> > D4P napise "Error creating form. Access violatin at address
> 00000009.
> > Read of address 02B84679" Cisla obou adres se meni, nekdy rika neco
> o
> > chybe v BORLNDMM.DLL i jinych. Vytvori Unit1.pas, ale neudela k nemu
> Unit1.dfm
> >
> > Vypozoroval jsem ze to dela jen v nekterych projektech. Ale mohou to
> > byt jak stare projekty z D3, tak i nove vytvorene projekty z D4.
> >
> > Preinstaloval jsem cele W95 (kompletne pocinaje smazanim vsech
> adresaru),
> > dela to porad. Delalo to bez patche, dela to i s patchem.
>
[Administrator] Mne sa to stava tiez QuickRep
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 21.12.1998 14:24:47
>PS2 : Chtelo by to nejaky WYSIWYG generator sestav - pro koncoveho
>uzivatele( ne generovani po bandech) : mate s nejakym takovym
>skusenosti(treba i Shareware nebo Commercial)
Mam zkusenosti s QRDesignem od THSD, neni to
drahe ani vcetne zdroju a pracuje to s QReportem
od QUSoftu, takze jejich chyby tim ale neobejdes.
Mrkni se semhle:
http://www.thsd.de
-----------
Ing. Martin Dupal
address: Hodolanska 35
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
Prosba - font
[*] Patrik Sl�de�ek�����%g��jgr� - 21.12.1998 15:36:10
M�m malou prosbu: sh�n�m do IDE Delphi 4 n�jak� slu�n� font: Courier New a
Lucida Console u� mi lezou krkem. Pokud n�kdo m�te n�co rozumn�ho
neproporcion�ln�ho se st�edoevropsk�m skriptem, budu vd��n� za posl�n�.
D�kuji.
Patrik Sl�de�ek
pasla(zv)iname.com
Zabezpeceni prenosu dat
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 21.12.1998 16:47:40
Ahoj,
potrebuji vyresit nasledujici problem :
Prenasim bloky dat o pevne delce cca 1Kbyte. Prenos je packetovy
delka cca 30 bytu. Prenos je diky pouzite technologii nespolehlivy.
Nastavaji vypadky jak jednotlivych bytu tak celych packetu, ale tech
chyb neni zas moc. Povolena redundance je 100%. Nevite nekdo jak na
to? Ale potreboval bych neco konkretniho, cas specha. Ze se na to da
pouzit CRC vim taky.
Nebo kdyby se toho nekdo za uplatu ujal a dodal to v podobe dll...
Vaclav Sazima
SQL, SQL a este raz SQL
[*] Michal Moscovic <moscovic(zv)fred.utc.sk> - 21.12.1998 17:23:06
Nazdar, nazdar...
Hned nazaciatku upozornujem, ze som v tematike SQL uplny zaciatocnik a
tak Vas velmi pekne prosim aby ste na mna sli pekne pomaly.
Mam taky jeden podla mojho nazoru vcelku zapeklity problem. Mam dve
tabulky (tabulka A (nieco ako ciselnik) - obsahuje jedinecne identifikacne
cislo X a dalsie nepodstatne stlpce, tabulka B obsahuje pole SUMA a polia
PLUS a MINUS). V tabulek B sa uvadza SUMA ako cislo a v poliach PLUS a MINUS
sa uvadza niektore z cisel X z tabulky A. Potrebujem urobit dotaz, ktory by
vratil identifikacne cislo X z tabulky A a sumu vyratanu nasledovnym
sposobom: vzdy ked je v tabulke B toto cislo X v kolonke PLUS tak pricita k
vysledku pole SUMA, a ak je toto cislo X v kolonke MINUS tak od vysledku
pole SUMA odpocita.
Ufff. Dufam ze sa mi to podarilo dost jasne vysvetlit...
Prosiiiiiiiiiiiiim pomozte uz nad tym sedim vyse 3 hodin...
Vdaka za kazde nakopnutie...prubeh prehravani wav
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 21.12.1998 17:32:58
Ahoj,
potreboval bych zesynchronizovat nejake akce s prehravanim wav - to
znamena vedet na jake pozici ve wavu jsem. Nevite jak jednoduse na to.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
Cached Updates
[*] Pavol Griga <paly(zv)sct.sk> - 21.12.1998 17:33:30
>Ahoj,
>mam nasledujici problem. Pracuji na lokalni paradoxovske tabulce
>pomoci komponenty TQurey (D2). Kdyz vsak v SQL pouziju ORDER BY,
>prepne se dataset do read-only modu a nemuzu ho editovat. Z manualu
>jsem vytusil, ze by pomohlo pouziti cached updates. Trapim se s tim uz
>nejaky cas, ale porad to nefunguje. Muze mi nekdo poradit jak na to?
>Nejlepe najaky odkaz na vzorovy priklad - hledal jsem na internetu ale
Neviem ci Ti to pomoze (mam D4) a neviem ako daleko si pokrocil:
1. pridam si na form komponentu TUpdateSQL
2. do TQuery, kde pouzivam ORDER BY nastavim vlastnost: CachedUpdates na
TRUE a
do vlastnosti UpdateObject nastavim nazov komponenty TUpdateSQL
3. v komponente TUpdateSQL nastavim InsertSQL, UpdateSQL, DeleteSQL
SQL prikazy cinnosti vkladania, zmeny a mazania napr.
insert into HL_OdbMiesta (NAZOV, ID_NPBN3) values (:NAZOV,
:ID_NPBN3)
update HL_OdbMiesta set NAZOV = :NAZOV, ID_NPBN3 = :ID_NPBN3 where
KOD = :OLD_KOD
delete from HL_OdbMiesta where KOD = :OLD_KOD
pozn. ked na komponentu TUpdateSQL kliknem pravym tlacitkom mysi tak
mozem pouzit UpdateSQL editor
ktory vie vygenerovat prisluchajuce SQL retazce, ale niekedy ich musis
upravit.
4. do Eventov AfterInsert a AfterPost komponenty TQuery vlozim volania
Nazov_TQuery.ApplyUpdates
Tak to mi zatial funguje.
Praskal zapraskany
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.12.1998 17:38:05
Bene� Jaroslav wrote:
> lehce nechapu Tvoji obavu, v ramci stavajiciho typu muzes mit az 8
> (jednobitovych) booleanu a muzes si dokonce vybrat, kam si je v ramci bytu
> das; tak v cem je problem?
Tak ted nevim... Budto mi uniklo cosi ze syntaxe Pascalu, nebo
jsem blbe vysvetlil, o co mi jde. Muzes to rozebrat na nejakem
konkretnejsim prikladu, co myslis, ze ja myslim?
>
> > -----P�vodn� zpr�va-----
> > Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> > Odesl�no: 21. prosince 1998 7:29
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Praskal zapraskany
> >
> > Bene� Jaroslav wrote:
> >
> > > tak potom pretypovat na byte a vymaskovat. Anebo upravu udelat
> > > lokalne a pak to na dane misto prenest jako blok bytu; a neni pravda
> > > ze tato mnozina zabira 32 bytu. Mnozina nadefinovana k pretypovani
> > > zabira prave jeden byte. Tento zpusob se mi proto jevi velmi
> > > efektivni. Zdravim
> > >
> > > > -----P�vodn� zpr�va-----
> > > > > type bity=(bit_1,...,bit_8);
> > > > > byty=set of bity;
> > > > > var prom:Byte;
> >
> > Mas pravdu, tento typ je skutecne jednobajtovy, ted jsem si to
> > overil. Nicmene, muj problem to neresi, protoze bych v ramci
> > jednoho bajtu potreboval mit dva booleany, abych je mohl volat
> > napr. takto:
> > bool1:=prom.bit_1;
> > bool2:=prom.bit_2;
> >
> > Jinak mi skutecne nezbyva nez pouzity bajt sloziteji pretypovavat, nebo
> > prelit do jine struktury.
> >
> >
> > S pozdravem
> >
> > Zbysek Hlinka
> > E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> > Tel.: 02/795 29 56; GSM: 0603 551 282
> > Krystofova 1016, 149 00 Praha 4
> > CZ
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Prosba - font
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 21.12.1998 18:58:10
Pripojuji se k prozbe. Vaclav Sazima
Patrik Sl�de�ek wrote:
>
> M�m malou prosbu: sh�n�m do IDE Delphi 4 n�jak� slu�n� font: Courier New a
> Lucida Console u� mi lezou krkem. Pokud n�kdo m�te n�co rozumn�ho
> neproporcion�ln�ho se st�edoevropsk�m skriptem, budu vd��n� za posl�n�.
> D�kuji.
>
> Patrik Sl�de�ek
> pasla(zv)iname.com
Cached Updates
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.12.1998 19:15:07
To je pravda. ORDER BY nepouzejes a diky tomu je tento zpusob
prakticky k nicemu.
Hodi se pouze pro editaci jednotliveho radku.
Musis si tedy vytvorit jeste jeden TQuery na nemz otevres dotazem
pouze ten zaznam, na kterem je ukazatel z prvniho TQuery.
To se hodi zejmena, kdyz pouzivas samostatny editacni formular.
Vyse popsany zpusob editace casto pouzivm i v pripade CachedUpdates.
Tim lze totiz obejit i nezadouci fecovani.
Napis, co ti nechodi v CachedUpdastes. Ja to pouzivam hodne
a nemam s tim zadne problemy.
Castou chybou byva, ze se v UpdateSQL zapomene vyradit primarni
klic, ktery je nastaven jako autoinkrement a TUpdateSQL se ho
snazi aktualizovat.
Dale posilam kousek kodu ktery povesis na AfterPost.
Pak uz staci provest Post na TQuery
procedure TForm1.Query1AfterPost(DataSet: TDataSet);
begin
Database1.StartTransaction;
try
case Query1.UpdateStatus of
usModified:
begin
UpdateSQL1.SetParams(ukModify);
UpdateSQL1.ExecSQL(ukModify);
end;
usInserted:
begin
UpdateSQL1.SetParams(ukInsert);
UpdateSQL1.ExecSQL(ukInsert);
end;
end; // case of
Database1.Commit;
except
Database1.Rollback;
Application.MessageBox(' Nepodarilo se dokoncit operaci!'+#10+#13 +
' Provedte prikaz "Obnovit"'+#10+#13 +
' a opakujte operaci znovu.',
'Informace ...', MB_OK + MB_ICONINFORMATION);
end; // try
end
PS. Jeste by tam mohlo byt usDeleted.
Hodne darku a hezke svatky
Jaro
-----Puvodni zprava-----
Od: tomas gurny <tgurny(zv)finaldim(tec)cz>
Komu: Delphi forum <delphi-l(zv)fwd(tec)cz>
Datum: 21. prosince 1998 11:39
Predmet: Cached Updates
>Ahoj,
>mam nasledujici problem. Pracuji na lokalni paradoxovske tabulce
>pomoci komponenty TQurey (D2). Kdyz vsak v SQL pouziju ORDER BY,
>prepne se dataset do read-only modu a nemuzu ho editovat. Z manualu
>jsem vytusil, ze by pomohlo pouziti cached updates. Trapim se s tim uz
>nejaky cas, ale porad to nefunguje. Muze mi nekdo poradit jak na to?
>Nejlepe najaky odkaz na vzorovy priklad - hledal jsem na internetu ale
>marne.
>Diky
>Tomas
>tgurny(zv)finaldim(tec)cz
SQL, SQL a este raz SQL
[*] Arnost Kobylka <Arnost.Kobylka(zv)atlas(tec)cz> - 21.12.1998 19:53:38
CREATE TABLE A (X: INTEGER, ...);
CREATE TABLE B (Suma: FLOAT,
Plus, Minus: INTEGER, ...);
SELECT
( SELECT sum(Suma)
FROM B
WHERE Plus IN (SELECT X FROM A)
)+(
SELECT sum(-Suma)
FROM B
WHERE Minus IN (SELECT X FROM A)
)
Jinak to jde treba pres UNION nebo CASE (MS-SQL)).
Ing. Arnost Kobylka
programator
C3, spol. s r.o.
Srobarova 32
Praha 10
-----P�vodn� zpr�va-----
Od: Michal Moscovic <moscovic(zv)fred.utc.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>; delphi(zv)pinknet(tec)cz
<delphi(zv)pinknet(tec)cz>
Datum: 21. prosince 1998 19:08
P�edm�t: SQL, SQL a este raz SQL
>Nazdar, nazdar...
>
> Hned nazaciatku upozornujem, ze som v tematike SQL uplny zaciatocnik a
>tak Vas velmi pekne prosim aby ste na mna sli pekne pomaly.
>
> Mam taky jeden podla mojho nazoru vcelku zapeklity problem. Mam dve
>tabulky (tabulka A (nieco ako ciselnik) - obsahuje jedinecne identifikacne
>cislo X a dalsie nepodstatne stlpce, tabulka B obsahuje pole SUMA a polia
>PLUS a MINUS). V tabulek B sa uvadza SUMA ako cislo a v poliach PLUS a
MINUS
>sa uvadza niektore z cisel X z tabulky A. Potrebujem urobit dotaz, ktory by
>vratil identifikacne cislo X z tabulky A a sumu vyratanu nasledovnym
>sposobom: vzdy ked je v tabulke B toto cislo X v kolonke PLUS tak pricita k
>vysledku pole SUMA, a ak je toto cislo X v kolonke MINUS tak od vysledku
>pole SUMA odpocita.
>
> Ufff. Dufam ze sa mi to podarilo dost jasne vysvetlit...
>
> Prosiiiiiiiiiiiiim pomozte uz nad tym sedim vyse 3 hodin...
>
> Vdaka za kazde nakopnutie...
>JPEG, GIF...
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 21.12.1998 20:03:43
Kazdou chvili me chodi maily, ze chcou to graficky dll. Nema nekdo moznost
to nekde vystavit
at to furt neposilam???
Vsem, kterym sem to nahodou neposlal se omplouvam, bylo vas fakt hodne
Serbajlo Pavel
ICQ: 20849973
email: serb(zv)mikulov.sol(tec)cz
www: www.nemamstranky(tec)cz
Seminar
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.12.1998 20:48:54
Jejda, to bude zase sparka ;-) Upozornuji, ze nekteri 'skalni' jedou uz 5.
;-)))
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ListViewStream
[*] Standa Cerny <s.cerny(zv)mod(tec)cz> - 21.12.1998 20:55:28
Ja, prosim.
Standa Cerny
-----P�vodn� zpr�va-----
Od: Ji�� Heinisch <HeiJu(zv)sol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. prosince 1998 19:29
P�edm�t: ListViewStream
Ahoj
Dodelal jsem potomka ListView kter� umi ukl�dat svoje data do souboru na
disk.
Kdo bude chtit tak at se ozve.
( Kdyby byl o to nahodou vetsi zajem tak to hodim nekam na server )
zdar
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
MS Access - Automaticke cislo
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.12.1998 20:56:28
Jo tak to uz jsem taky zahlidnul. A ani jsem nepouzival BDE, takze v tom bych
chybu nehledal. Dela to napr. kdyz je primarni klic tvoren dvema poli, ale uz mi
to delalo i s jednim polem. Zkus si s MS webu stahnout posledni update na MS Jet
Engine (tusim 3.51), treba to helpne. Kazdopadne sem to uz nejakou dobu
nepotkal.
Na druhou stranu, to ze to skace napr. ob tri hodnoty by nemelo mit nejaky dopad
na funkcnost, nebo jo?
Mac
Jan Nov�k wrote:
> Pouzivam MS Access 97 a Delphi 4 . V tabulce Accessu mam pole ID typu
> Autoincremental (prirustek 1) . Kdyz prodavan zaznam v Accessu zvetsuje
> se hodnota ID o 1 coz je spravne . Kdyz vymazu vsechny zaznamy a zkomprimuji
> databazi . Zacina prirusek od 1 a zvetsuje se o jednu. To je spravne.
> Kdyz vsak pouziji aplikaci Delphi , ktera pouziva stejnou tabulku
> (Nativni driver) pocatecni hodnota pole incremental neni 1 a take prirustek
> je nekdy 2 nekdy 3 , proste to funguje blbe. I po vymazu vsech zaznamu
> a zkomprimovani tabulky databataze pole typu incremental neni nastaveno na
> pocatecni hodnotu 1 a prirustky nejsou dobre. Cim to muze byt. Nesetkali
> jste se s tim nekdo ? BDE verze 5.0
> Diky vsem za radu.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Faktorial
[*] Patrik Sl�de�ek�����%g��jgr� - 21.12.1998 21:06:03
Jestli�e mne pam� neklame, desetibajtov� EXTENDED je "nejv�t��" zabudovan�
typ, tak�e asi nezbude ne� vytvo�it si vlastn� datov� typ schopn� pojmout
dostate�n� velk� hodnoty. Pokud by se jednalo pouze o cel� ��sla, asi bych
to budoval na polynomech, m�-li to zvl�dat i re�ln� (resp. racion�ln�
hodnoty), pou�il bych jako z�klad soustavu na b�zi faktori�l�, s jej�
pomoc� lze v po��ta�i p�esn� vyj�d�it jak�koli racion�ln� ��slo. Tak �i
onak, velkou rychlost v�po�t� bych od toho ne�ekal.
-----P�vodn� zpr�va-----
Od: Ji�� Heinisch <HeiJu(zv)sol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. prosince 1998 19:29
P�edm�t: Faktorial
>Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
>
>bohuzel funguje pouze do cisla 1754 / vcetne /
>pak to pretece.
>
>Poradi nekdo jak to prekonat.
>
>
>Jiri Heinisch H-trading
>Danovy a ekonomicky servis
>Vyvoj a tvorba ekonomickeho software
>http://www.mujweb(tec)cz/www/heinisch/
>HeiJu(zv)sol(tec)cz
>691 83 Drnholec
>
>Praskal zapraskany
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.12.1998 23:39:33
Zbysek Hlinka wrote:
> Mas pravdu, tento typ je skutecne jednobajtovy, ted jsem si to
> overil. Nicmene, muj problem to neresi, protoze bych v ramci
> jednoho bajtu potreboval mit dva booleany, abych je mohl volat
> napr. takto:
> bool1:=prom.bit_1;
> bool2:=prom.bit_2;
>
> Jinak mi skutecne nezbyva nez pouzity bajt sloziteji pretypovavat,
> nebo prelit do jine struktury.
Ahoj,
Slo by to treba resit pomoci takovychto konverznich funkci. Doufam ze jsem
v tom neudelal nekde chybu ... :-)
function BoolBit(B: Byte; Bit: Byte): Boolean; overload; register;
function BoolBit(var B: Byte; Bit: Byte; Value: Boolean): Boolean; overload; register;
implementation
{$R *.DFM}
function BoolBit(B: Byte; Bit: Byte): Boolean; assembler;
asm MOV ECX, EDX
JCXZ (zv)(zv)1
RCR EAX, CL
MOV EAX, 1
JC (zv)End
(zv)(zv)1: XOR EAX, EAX
(zv)End:
end;
function BoolBit(var B: Byte; Bit: Byte; Value: Boolean): Boolean; overload;
asm XCHG EDX, ECX
JCXZ (zv)End
RCR BYTE PTR [EAX], CL
OR EDX, EDX
CLC
JZ (zv)(zv)1
STC
(zv)(zv)1: RCL BYTE PTR [EAX], CL
(zv)End: XOR EAX, EAX
end;
procedure TForm1.Button1Click(Sender: TObject);
const
BoolText: array[Boolean] of Char = ('F', 'T');
var
BT: Byte;
B1, B2: Boolean;
I: Integer;
begin
BT := $00;
BoolBit(BT, 5, True); // Nastaveni hodnotu bitu
BoolBit(BT, 3, True);
BoolBit(BT, 4, False);
BoolBit(BT, 3, False);
BoolBit(BT, 2, True);
B1 := BoolBit(BT, 1); // Ziskani hodnoty bitu
B2 := BoolBit(BT, 2);
Memo1.Lines.Clear; // Kontrola
for I := 1 to 8 do
Memo1.Lines.Add(Format('%d.bit %s', [I, BoolText[BoolBit(BT, I)]]));
Memo1.Lines.Add('');
Memo1.Lines.Add(Format('B1 %s', [BoolText[B1]]));
Memo1.Lines.Add(Format('B2 %s', [BoolText[B2]]));
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
prubeh prehravani wav
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.12.1998 23:45:03
Zdenek Petruj wrote:
>
> Ahoj,
> potreboval bych zesynchronizovat nejake akce s prehravanim wav - to
> znamena vedet na jake pozici ve wavu jsem. Nevite jak jednoduse na to.
Ahoj,
Cim jej prehravas (TMediaPlayer ?) a s jakou presnosti to potrebujes ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Ostrankovanie pri tlaci s RichEditu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.1998 00:19:09
hrenovcik(zv)ns.basl.sk wrote:
>
> Cavte !
>
> Neviete niekto ako vlozit znak pre odstrankovanie priamo do RichEditu
> ??? ( suuuuuurne)
>
> priklad:
>
> RichEdit.Lines.Add( ' Line1 ' ) ;
> ??? nieco na odstrankovanie ???
> RichEdit.Lines.Add( ' Line2 ') ;
> RichEdit.Print(RichEdit.Text);
Ahoj,
Vypada to, ze to asi nepujde:
http://www.inprise.com/devsupport/delphi/qanda/FAQ948D.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************QuickRep
[*] Petr Brant <p.brant(zv)samo.pvtnet(tec)cz> - 22.12.1998 06:36:46 -0000
Ahoj,
videl jsem nekde List&Label. Dela to nejaka nemecka firma a vypada to
velmi dobre. Zkousel jsem pracovat s demem a chodilo to. Delal jsem to
pod C++, ale myslim, ze Delphi podporuji taky. Mrkni se na Inet, adresu
sice nemam, ale nech si najit List and Label.
TATO ADRESA BY MEL BYT JIZ TRVALA !!!
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P�vodn� zpr�va-----
> Od: Martin Dupal [SMTP:mdupal(zv)vision(tec)cz]
> Odesl�no: 21. prosince 1998 14:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: QuickRep
>
> >PS2 : Chtelo by to nejaky WYSIWYG generator sestav - pro koncoveho
> >uzivatele( ne generovani po bandech) : mate s nejakym takovym
> >skusenosti(treba i Shareware nebo Commercial)
>
> Mam zkusenosti s QRDesignem od THSD, neni to
> drahe ani vcetne zdroju a pracuje to s QReportem
> od QUSoftu, takze jejich chyby tim ale neobejdes.
> Mrkni se semhle:
>
> http://www.thsd.de
>
> -----------
>
> Ing. Martin Dupal
> address: Hodolanska 35
> 77200 Olomouc
> Czech Republic
> tel.: +420/68/5313130
> fax.: +420/68/5313132
> http://www.vision(tec)cz
> mailto:mdupal(zv)vision(tec)cz
> Faktorial
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 22.12.1998 07:21:32
Existuke nejaky Shtirlingov vzorec na vypocet faktorialov :
n ! = n^n . e^(-n). DRUHA_ODMOCNINA(2.Pi.n)
Uvedeny vzorec je tym presnejsi cim vacsi je n.
Je to najlepsi a najrychlejsi sposob.
Vysledok treba zaokruhlit.
TUNGLI Jan
tungli(zv)pvt.sk
----------
> Od: Ji�� Heinisch <HeiJu(zv)sol(tec)cz>
> Pre: delphi-l(zv)fwd(tec)cz
> Predmet: Faktorial
> D�tum: 22. december 1998 18:25
>
> Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
>
> bohuzel funguje pouze do cisla 1754 / vcetne /
> pak to pretece.
>
> Poradi nekdo jak to prekonat.
>
>
> Jiri Heinisch H-trading
> Danovy a ekonomicky servis
> Vyvoj a tvorba ekonomickeho software
> http://www.mujweb(tec)cz/www/heinisch/
> HeiJu(zv)sol(tec)cz
> 691 83 Drnholec
>
> Faktorial
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 22.12.1998 08:30:31
Nerad se vmesuji, ale tenhle vzorec problem neresi. Faktorial cisla 1755 (+)
je uz proste tak velky, ze presahuje hranice rozsahu typu extended.
1755! = 3.47360461713429264719504904e+4933
rozsah typu Extended je 3.6 x 10^-4951 .. 1.1 x 10^4932
Tohle asi bude chtit vymislet nejaky pomocny typ a pocitat to pres nej.
Napr. kalkulacka Windows NT to spocita a to je napsana v C++, nejak to
urcite pujde.
Ondrej Krajicek
PS: Stastne a vesele vanoce a PF 99
-----Original Message-----
From: TUNGLI Jan <tungli(zv)pvt.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: Tuesday, December 22, 1998 8:08 AM
Subject: RE: Faktorial
Existuke nejaky Shtirlingov vzorec na vypocet faktorialov :
n ! = n^n . e^(-n). DRUHA_ODMOCNINA(2.Pi.n)
Uvedeny vzorec je tym presnejsi cim vacsi je n.
Je to najlepsi a najrychlejsi sposob.
Vysledok treba zaokruhlit.
TUNGLI Jan
tungli(zv)pvt.sk
----------
> Od: Ji�� Heinisch <HeiJu(zv)sol(tec)cz>
> Pre: delphi-l(zv)fwd(tec)cz
> Predmet: Faktorial
> D�tum: 22. december 1998 18:25
>
> Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
>
> bohuzel funguje pouze do cisla 1754 / vcetne /
> pak to pretece.
>
> Poradi nekdo jak to prekonat.
>
> Jiri Heinisch H-trading
> Danovy a ekonomicky servis
> Vyvoj a tvorba ekonomickeho software
> http://www.mujweb(tec)cz/www/heinisch/
> HeiJu(zv)sol(tec)cz
> 691 83 Drnholec
>
>JPEG, GIF...
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.12.1998 08:44:37
dal jsem to sem, ma to 140746 B:
http://freeweb.coco(tec)cz/jpolak/jpegview.zip
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!> -----Original Message-----
> From: Pavel Serbajlo [mailto:serb(zv)mikulov.sol(tec)cz]
> Sent: Monday, December 21, 1998 8:04 PM
> To: Delphi cz
> Subject: JPEG, GIF...
>
>
> Kazdou chvili me chodi maily, ze chcou to graficky dll. Nema
> nekdo moznost
> to nekde vystavit
> at to furt neposilam???
>
> Vsem, kterym sem to nahodou neposlal se omplouvam, bylo vas fakt hodne
>
> Serbajlo Pavel
> ICQ: 20849973
> email: serb(zv)mikulov.sol(tec)cz
> www: www.nemamstranky(tec)cz
>
> Enumeracia ovladacich prvkov inej aplikacie
[*] hrenovcik(zv)ns.basl.sk - 22.12.1998 09:26:09
Caute,
ako sa da prezriet zoznam okien inej aplikacie z programu, nejak
podobne ako to robi WinSight. Cez EnumWindows pozriem len vsetky
hlavne okna, ja by som potreboval aj buttony, edity... aby som im mohol
zmenit property.
Brano
prubeh prehravani wav
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 22.12.1998 09:31:35
Presnost: rozliseni slova v mluvenem textu
Cim: cim to pujde (TMediaPlayer, MCI funkcemi nebo necim dalsim
co najdu po internetu)
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 21. Dezember 1998 23:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: prubeh prehravani wav
>
> > potreboval bych zesynchronizovat nejake akce s prehravanim wav - to
> > znamena vedet na jake pozici ve wavu jsem. Nevite jak jednoduse na
> to.
>
> Cim jej prehravas (TMediaPlayer ?) a s jakou presnosti to potrebujes ?
>
>
> prubeh prehravani wav
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 22.12.1998 09:41:41
jeste jsem zapomnel ze bych ten wav potreboval prehravat od te
urcite oznacene pozice (teda treba z prostredka do konce a nebo do
urcite dalsi oznacene pozice)
> Presnost: rozliseni slova v mluvenem textu
> Cim: cim to pujde (TMediaPlayer, MCI funkcemi nebo necim dalsim co
> najdu po internetu)
>
> > potreboval bych zesynchronizovat nejake akce s prehravanim wav - to
> > znamena vedet na jake pozici ve wavu jsem. Nevite jak jednoduse na
> to.
>
> Cim jej prehravas (TMediaPlayer ?) a s jakou presnosti to potrebujes ?
>
>
> Faktorial
[*] Petr Brant <p.brant(zv)samo.pvtnet(tec)cz> - 22.12.1998 09:43:46 -0000
Napada mne pocitat to pres dekadicke logaritmy (tj. secist desitkove
logaritmy cisel 1..1755 apod.). Cela cast vysledku je exponent, 10
umocneno na desetinnou cast je cislo pred tim. Presnost je sice ponekud
mensi, protoze se ztraci pri vypoctu logaritmu, ale pri radu cca 5000 to
asi nebude vadit.
TATO ADRESA BY MELA BYT JIZ TRVALA !!!
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P�vodn� zpr�va-----
> Od: Ondrej Krajicek [SMTP:krajicek(zv)promedia(tec)cz]
> Odesl�no: 22. prosince 1998 8:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Faktorial
>
> Nerad se vmesuji, ale tenhle vzorec problem neresi. Faktorial cisla
> 1755 (+)
> je uz proste tak velky, ze presahuje hranice rozsahu typu extended.
>
> 1755! = 3.47360461713429264719504904e+4933
> rozsah typu Extended je 3.6 x 10^-4951 .. 1.1 x 10^4932
>
> Tohle asi bude chtit vymislet nejaky pomocny typ a pocitat to pres
> nej.
> Napr. kalkulacka Windows NT to spocita a to je napsana v C++, nejak to
> urcite pujde.
>
> Ondrej Krajicek
> PS: Stastne a vesele vanoce a PF 99
>
> -----Original Message-----
> From: TUNGLI Jan <tungli(zv)pvt.sk>
> To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Date: Tuesday, December 22, 1998 8:08 AM
> Subject: RE: Faktorial
>
>
> Existuke nejaky Shtirlingov vzorec na vypocet faktorialov :
>
> n ! = n^n . e^(-n). DRUHA_ODMOCNINA(2.Pi.n)
> Uvedeny vzorec je tym presnejsi cim vacsi je n.
> Je to najlepsi a najrychlejsi sposob.
> Vysledok treba zaokruhlit.
>
> TUNGLI Jan
> tungli(zv)pvt.sk
>
> ----------
> > Od: Ji�� Heinisch <HeiJu(zv)sol(tec)cz>
> > Pre: delphi-l(zv)fwd(tec)cz
> > Predmet: Faktorial
> > D�tum: 22. december 1998 18:25
> >
> > Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
> >
> > bohuzel funguje pouze do cisla 1754 / vcetne /
> > pak to pretece.
> >
> > Poradi nekdo jak to prekonat.
> >
> >
> > Jiri Heinisch H-trading
> > Danovy a ekonomicky servis
> > Vyvoj a tvorba ekonomickeho software
> > http://www.mujweb(tec)cz/www/heinisch/
> > HeiJu(zv)sol(tec)cz
> > 691 83 Drnholec
> >
> >SQL, SQL a este raz SQL
[*] Michal Moscovic <moscovic(zv)fred.utc.sk> - 22.12.1998 09:53:13
Vdaka, ale...
>CREATE TABLE A (X: INTEGER, ...);
>CREATE TABLE B (Suma: FLOAT,
> Plus, Minus: INTEGER, ...);
>
>SELECT
>( SELECT sum(Suma)
> FROM B
> WHERE Plus IN (SELECT X FROM A)
>)+(
> SELECT sum(-Suma)
> FROM B
> WHERE Minus IN (SELECT X FROM A)
>)
vyzeralo sice na 1. pohlad ako presne to, co potrebujem, ale nefunguje to
tak, ako by som si predstavoval...
Totiz toto vrati iba 1 jedinu sumu a ja potrebujem, aby to pre kazde X
vratilo samostatnu hodnotu a hodilo to do 1 tabulky asi takto
X SUMA
1 ....
2 ....
3 ....
4 ....
Ked som tam vsak pridal zobrazovanie X tak to pre kazde X hodilo tu istu
sumu.
>Jinak to jde treba pres UNION nebo CASE (MS-SQL)).
No cez UNION som to uz skusal tiez a nepodarilo sa mi to. Skus prosim ta ty.>Ing. Arnost Kobylka
Este raz vdaka za snahu... Uz je to velmi blizko ale bez tvojej, alebo
niekoho ineho pomoci s tym asi nehnem...Faktorial
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.12.1998 10:18:41
Klasickym prikladem pri vyuce programovani byl vypocet cisla PI na x
desetinnych mist. Pocitaly se proste jednotliva mista a pridavaly do
stringu. Neco podobneho by melo jit i s faktorialem.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
MS Access - Automaticke cislo
[*] Erik Salaj <erik(zv)dodo.sk> - 22.12.1998 11:00:38
Nove ID sa generuje pri kazdom volani DAO metody Recordset.AddNew
(tato metoda vytvori novy zaznam). Problem s nespravnymi prirastkami
vznika, ak je potrebne tuto metodu zavolat z urcitych dovodov pre jeden
zaznam viackrat. Napriklad to moze byt potrebne pri zistovani default
hodnot poloziek noveho zaznamu (tieto hodnoty mozno definovat v Access
databaze a mozu to byt aj zlozitejsie vyrazy). Problem vznika vo VCL
kniznici, ktora potom vola dalsie metody, ktore sposobia zrusenie tohto
noveho zaznamu a pri Post-e preto treba vytvorit dalsi, ktory ma uz ine ID.
Zrejme podobny problem vznika aj pri pristupe k Access databaze cez BDE.
V mojich komponentach pre Access je tento problem ciastocne vyrieseny
tak, ze je mozne vypnut zistovanie default hodnot poloziek noveho zaznamu
a IDcka sa potom generuju korektne.
Erik Salaj
erik(zv)dodo.sk
-----Original Message-----
From: Jan Nov�k <csobta(zv)mbox.vol(tec)cz>
To: Delphi <delphi-l(zv)fwd(tec)cz>
Date: Monday, December 21, 1998 4:10 PM
Subject: MS Access - Automaticke cislo
>Pouzivam MS Access 97 a Delphi 4 . V tabulce Accessu mam pole ID typu
>Autoincremental (prirustek 1) . Kdyz prodavan zaznam v Accessu zvetsuje
>se hodnota ID o 1 coz je spravne . Kdyz vymazu vsechny zaznamy a
zkomprimuji
>databazi . Zacina prirusek od 1 a zvetsuje se o jednu. To je spravne.
>Kdyz vsak pouziji aplikaci Delphi , ktera pouziva stejnou tabulku
>(Nativni driver) pocatecni hodnota pole incremental neni 1 a take prirustek
>je nekdy 2 nekdy 3 , proste to funguje blbe. I po vymazu vsech zaznamu
>a zkomprimovani tabulky databataze pole typu incremental neni nastaveno na
>pocatecni hodnotu 1 a prirustky nejsou dobre. Cim to muze byt. Nesetkali
>jste se s tim nekdo ? BDE verze 5.0
>Diky vsem za radu.
>
>Zabezpeceni prenosu dat
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 22.12.1998 11:15:58
Nejedna, datova cesta je jednosmerna. Vaclav Sazima
Bielik Marian wrote:
>
> Preco to neprenasas pomocou TCP/IP ?
> Teda aspon pokial sa jedna o prenos po sieti.
>
> Marian
>
> Vaclav Sazima wrote:QRGroup
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 22.12.1998 11:17:42
V QRGroup1.Expression mam : 'KATEG1 OR KATEG2 OR PRODUCER'(tri pole
ftString) protoze potrebuji aby GroupHeader bylo tisteno pokud dojde ke
zmene jednoho z techto tri poli. QRGroup1 je ale vytisteno pouze podle
jednoho z poli( prvniho ---KATEG1).
Nevite jak urcit aby QRGroup1BeforePrint byla spustena pokud dojde ke
zmene aspon jednoho z techto tri poli ?
Diky.Faktorial
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 22.12.1998 11:40:12
Zdravicko...
Kdysi jsme soutezili, kdo v assembleru vyrobi nejkratsi kod pro vypocet
faktorialu, pricemz to muselo zvladnout alespon faktorial 10000. Mne se
to povedlo asi do 86 bytu, takze jestli ma nekdo zajem, muzu poslat
zdrojaky. Vysledek vypoctu lze ziskat z pameti (je to posloupnost cisel
- co byte, to cislo 0 - 9).
F.
> -----P�vodn� zpr�va-----
> Od: Ondrej Krajicek [SMTP:krajicek(zv)promedia(tec)cz]
> Odesl�no: �ter�, prosince 22, 1998 8:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Faktorial
>
> Nerad se vmesuji, ale tenhle vzorec problem neresi. Faktorial cisla
> 1755 (+)
> je uz proste tak velky, ze presahuje hranice rozsahu typu extended.
>
> 1755! = 3.47360461713429264719504904e+4933
> rozsah typu Extended je 3.6 x 10^-4951 .. 1.1 x 10^4932
>
> Tohle asi bude chtit vymislet nejaky pomocny typ a pocitat to pres
> nej.
> Napr. kalkulacka Windows NT to spocita a to je napsana v C++, nejak to
> urcite pujde.
>
> Ondrej Krajicek
> PS: Stastne a vesele vanoce a PF 99
>
> -----Original Message-----
> From: TUNGLI Jan <tungli(zv)pvt.sk>
> To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Date: Tuesday, December 22, 1998 8:08 AM
> Subject: RE: Faktorial
>
>
> Existuke nejaky Shtirlingov vzorec na vypocet faktorialov :
>
> n ! = n^n . e^(-n). DRUHA_ODMOCNINA(2.Pi.n)
> Uvedeny vzorec je tym presnejsi cim vacsi je n.
> Je to najlepsi a najrychlejsi sposob.
> Vysledok treba zaokruhlit.
>
> TUNGLI Jan
> tungli(zv)pvt.sk
>
> ----------
> > Od: Ji�� Heinisch <HeiJu(zv)sol(tec)cz>
> > Pre: delphi-l(zv)fwd(tec)cz
> > Predmet: Faktorial
> > D�tum: 22. december 1998 18:25
> >
> > Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
> >
> > bohuzel funguje pouze do cisla 1754 / vcetne /
> > pak to pretece.
> >
> > Poradi nekdo jak to prekonat.
> >
> >
> > Jiri Heinisch H-trading
> > Danovy a ekonomicky servis
> > Vyvoj a tvorba ekonomickeho software
> > http://www.mujweb(tec)cz/www/heinisch/
> > HeiJu(zv)sol(tec)cz
> > 691 83 Drnholec
> >
> >SQL, SQL a este raz SQL
[*] Michal Moscovic <moscovic(zv)fred.utc.sk> - 22.12.1998 11:51:10
Takze uz som vymyslel jedno riesenie, ktore ma vsak dva zadrhely, s ktorymi
si neviem dat rady.
Takze tu je to riesenie:
SELECT X,
((SELECT SUM(Suma) FROM B WHERE Plus=X)
-(SELECT SUM(Suma) FROM B WHERE Minus=X)) AS Suma
FROM A
A tu tie zadrhely:
1. Je to slusne pomale (ale to by v konecnom dosledku az tak nevadilo)
2. Funguje to iba vtedy ak sa dane X v tabulke B nachadza aspon raz v
polozke PLUS a aspon raz v polozke MINUS). V tomto pripade vrati spravny
vysledok. Ak sa vsak X nenachadza aspon raz v oboch tak to proste necha
prazdne policko (aj ked napr. v PLUS vratilo SUM(Suma) hodnotu 30 000.
Takze ak ma niekto napad ako odstranit tie prazne policka, pripadne tento
vyraz zrychlit budem mu velmi povdacny...
Vas Verny Salmon salmon(zv)frcatel.utc.sk
Faktorial
[*] ri(zv)spse.adlerka.schools.sk - 22.12.1998 11:56:49
> Napada mne pocitat to pres dekadicke logaritmy (tj. secist
> desitkove logaritmy cisel 1..1755 apod.). Cela cast vysledku
> je exponent, 10 umocneno na desetinnou cast je cislo pred tim.
> Presnost je sice ponekud mensi, protoze se ztraci pri vypoctu
> logaritmu, ale pri radu cca 5000 to asi nebude vadit.
... alebo cez logaritmy prirodzene, prave preto, ze su prirodze-
ne a tym padom aj vypocitatelne presnejsie. T.j.:
Nfaktorial = exp( ln(1) + ln(2) + ... + ln(N) ).
Jano.ine metody ; Re: Re: Rotacia .
[*] ri(zv)spse.adlerka.schools.sk - 22.12.1998 12:07:18
Zdravim.
Na temu digitalne spracovanie obrazu a zvuku pri-
pravujem subor www-stranok, cosi ako elektronicke
skripta.
Predpokladany termin uvedenia: januar 1999 +/-,
adresa: dodam potom.
V pripade skorsieho zaujmu o podrobnosti, treba
ma aktivovat cez email.
Jano
.RealTime Audio
[*] ri(zv)spse.adlerka.schools.sk - 22.12.1998 12:19:11
Ahoj.
Zaoberal sa niekto z vazenych kolegov audio-aplikaciami
pre realny cas? [ Pod slovom 'zaoberal' nemam teraz
na mysli toto: sposobom drag-n-drop umiestnit na formular
komponent MediaPlayer a napisat k nemu par riadkov kodu,
ale toto: pisanie aplikacie takmer na urovni 'strojaku',
pripadne s pouzitim znalosti portov a registrov zvukov-
ky, t.j. 'in_deep' programovanie ]. Kladne odpovedaju-
cich prosim o vyjadrenie k nasledovnemu:
Majme zadanie: aplikacia schopna v realnom case robit
so zvukovymi datami nejake operacie (vid dalej) a vysle-
dok (bez vypadkov) cez zvukovu kartu reprodukovat; dalo
by sa povedat - taky maly GoldWave_na_kolene (alebo iny
zvukator, podla gusta).
Moje (neuplne) riesenie:
[ Pre jednoduchost predpokladajme kvalitu 44100 (alebo
48000) x 16 x 2 (pravda, aj tieto parametre sa urcite
daju nejako zvukovke oznamit; ako?). ]
const
dlzka = {nejake milionove cislo};
type
sample = array[1..2] of SmallInt; {2 kanaly,
kazdy z nich signed 16bit}
Tsound = ^array[0..dlzka-1] of sample; {cyklicky zvu-
kovy buffer v RAM}
var
Snd : Tsound; {pointer na zaciatok zvukoveho bufferu}
SndPoz: LongWord; {cislo ukazujuce poziciu prvej vzor-
ky v Snd po tych, ktore uz boli prevzate
bufferom zvukovky (a v najblizsich milise-
kundach pojdu 'do eteru'); bud offset voci
hodnote Snd, alebo absolutny pointer, ale
to je jedno}
begin
...;
new(Snd);
ciastocne_naplnenie_Snd^; {aby na zaciatku nebol sum
alebo ticho}
aktivacia_zvukovej_karty(Snd,dlzka,frekv,bity,kanaly)
{existuje nejaka takato funkcia/procedura?,
prave tu je jadro celeho problemu}
procedura_priebezne_doplnajuca_obsah_Snd^; {pouzivajuca
premennu SndPoz (ktoru by menila len zvukov-
ka, alebo len ta cast Win95, ktora ma na sta-
rosti zvuk) na sledovanie, co uz bolo odohra-
ne a teda moze byt v Snd^ prepisane dalsou
'rundou', ak Snd^ povazujeme za cyklicky buf-
fer}
To znamena, ze o prehravanie (hlavne o jeho plynulost) by
sa starali O.S. a zvukovka, program by len doplnal data,
ktore sa maju o par milisekund_az_sekund prehrat.
To by umoznilo programatorovi, aby sa v plnej miere mohol
venovat tvorbe samotneho zvuku (uprava hlasitosti, filtre,
miesanie 2_a_viac wav-ov, pridavanie dozvuku, a kopa dal-
sich efektov). Tiez by mohol sam ovladat 'latentnost' svo-
jej aplikacie: aplikaciu, ktora musi rychlo reagovat na po-
kyny uzivatela, by navrhol tak, aby zapisovala len tesne
za SndPoz (kratka latencia), a naopak, aplikacia ako je
napr. vopred_naprogramovany_jukebox by zase zapisovala
az po offset ( (SndPoz + takmer_dlzka) mod dlzka ), t.j.
dlha latencia.
Audio-Delphini, co vy na to? Prosim poradte, ako skon-
kretizovat niektore z horeuvedenych procedur (samozrejme,
ak je vobec navrhnuty pristup k veci pripustny).
Za rady typu 'Pouzi DirectX / OpenGL / take_a_take_velmi-
specialne_a_nezohnatelne_API' vopred srdecne 'dakujem',
a dufam, ze sa dana uloha da riesit priamo prostriedkami
Delphi4Standard & Win95 & uz_nic_ine_netreba.
Plus: rovnaka uloha pri nahravani:
zvukovke treba nejako zadat f,b,k a z ktoreho/ych zdro-
ja/ov to pojde, 'aktivovat' ju,
a priebezne zo Snd^ (sledujuc SndPoz) odoberat (a ukla-
dat na disk) cerstvo nahrane data.
Off_this_topic_1:
Ako je to s meranim casu vo Win9x? Systemove hodiny ti-
kaju 18x za sekundu, co je nic moc. Spomenute zvukovky
az 48000x za sekundu, ale je otazne, ci sa to da vyu-
zit. V hardveri PC su tusim aj akesi citace - daju sa
v ramci Win9x vyuzit? - nepovazuje ich O.S. za svoje
'sukromne veci'? Optimalne by asi bolo, keby existova-
la nejaka read-only premenna, napojena na pocitadlo
(najlepsie 64-bitove) tikov zakladnej dosky, a druha
premenna/konstanta MBClock obsahujuca hodnotu frek-
vencie M/B. Tak by si mohol kazdy program s extremnou
presnostou (lepsou nez 1e-6 s) merat intervaly. No ale
to by sme my bezni smrtelnici asi vela chceli, ze.
Off_this_topic_2:
Viete o nejakej naozaj dobrej konferencii o hardveri,
pripadne o www-strankach na temu HW ?
Za rady vopred dakuje Jano
.Praskal zapraskany
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.12.1998 12:50:24
Petr Vones wrote:
> > Mas pravdu, tento typ je skutecne jednobajtovy, ted jsem si to
> > overil. Nicmene, muj problem to neresi, protoze bych v ramci
> > jednoho bajtu potreboval mit dva booleany, abych je mohl volat
> > napr. takto:
> > bool1:=prom.bit_1;
> > bool2:=prom.bit_2;
> >
> > Jinak mi skutecne nezbyva nez pouzity bajt sloziteji pretypovavat,
> > nebo prelit do jine struktury.
>
> Ahoj,
>
> Slo by to treba resit pomoci takovychto konverznich funkci. Doufam ze jsem
> v tom neudelal nekde chybu ... :-)
>
Dost dobre neslo (pouze neprimo obejit, ale to mohu take napsat
Bool1:=(Uznat and 1)<>0 a obracene Uznat:=Uznat and (Bool1 shl
1) atp.), protoze potrebuji vlastne toto:
case...
1:Data:=(zv)Uznat;
kde "Uznat" nemuze byt funkce, ale pouze pametova bunka.
Vlastne bych potreboval toto:
1:Data:=(zv)prom.bit_1;
2:Data:=(zv)prom.bit_2;
:-((
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ostrankovanie pri tlaci s RichEditu
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 22.12.1998 13:15:41 -0800
To proste nejde. V RTF je na odstrankovani prikaz \page, ale ten neumi
TRichEdit interpretovat.
Ja RTF tisknu tak, ze pres OLE volam Word. Ten \page umi.
Bohuslav Svancara
softprojekt(zv)bosnet(tec)cz
-----Original Message-----
From: <hrenovcik(zv)ns.basl.sk>
To: <delphi-l(zv)fwd(tec)cz>
Date: 21. prosince 1998 3:02
Subject: Ostrankovanie pri tlaci s RichEditu
>Cavte !
>
> Neviete niekto ako vlozit znak pre odstrankovanie priamo do RichEditu
>??? ( suuuuuurne)
>
> priklad:
>
> RichEdit.Lines.Add( ' Line1 ' ) ;
> ??? nieco na odstrankovanie ???
> RichEdit.Lines.Add( ' Line2 ') ;
> RichEdit.Print(RichEdit.Text);
>
> Myslel som ze to pojde cez RichEdit.Lines.Add(#12); ale asi je to blbost
>!
>
> Diky za kazdu radu !
> Peter
>
>
Faktorial
[*] OLEJNIK Andrej <olej(zv)asset.sk> - 22.12.1998 13:24:33
naco to potrebujes ?
olej
> -----Original Message-----
> From: Jixm Heinisch [SMTP:HeiJu(zv)sol(tec)cz]
> Sent: Tuesday, December 22, 1998 6:26 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Faktorial
>
> Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
>
> bohuzel funguje pouze do cisla 1754 / vcetne /
> pak to pretece.
>
> Poradi nekdo jak to prekonat.
>
>
> Jiri Heinisch H-trading
> Danovy a ekonomicky servis
> Vyvoj a tvorba ekonomickeho software
> http://www.mujweb(tec)cz/www/heinisch/
> HeiJu(zv)sol(tec)cz
> 691 83 Drnholec
> Off: Tabulky znaku
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 22.12.1998 13:38:07
Ahoj vsichni.
Vim, ze to sem nepatri, ale muzete ni nekdo napsat kde bych sehnal tabulky znaku Windows-1250, ISO-8859-2, ISO-8859-1, Kamenicky, Latin-2? Potreboval bych tabulku znak = kod.
Dik,
Tomas Skopik
( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
RichEdit & RTF
[*] sup(zv)svitap(tec)cz - 22.12.1998 14:26:12
Prosim o pomoc: Jak prinutit Richedit v Delphi3 Profi, aby akceptoval toto:
for i2:=1 to length(s2) do begin
i3:=ord(s2[i2]);
case i3 of
2:if b then begin b:=false; s1:=s1+'\b0 ';end else begin b:=true;
s1:=s1+'\b ';end;
4:if i then begin i:=false; s1:=s1+'\i0 ';end else begin i:=true;
s1:=s1+'\i ';end;
$13:if u then begin u:=false; s1:=s1+'\ulnone ';end else begin u:=true;
s1:=s1+'\ul ';end;
$0A:s1:=s1+' ';
else
s1:=s1+s2[i2];
end;
end;
ried1.lines.add(s1);
kde s2 je nejaky nacteny radek.
PlainText:=False a stejne si to dela, co chce, tj '\b ahoj' zobrazi jako '\b
ahoj' a ne jako tucny 'ahoj'.
Potrebuju prohlizet spoustu textu z t602 a jet t602 pod W98 je .....
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420 461 568 202
fax: ++420 461 568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
Delphi + Word
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <martin(zv)proces.sk> - 22.12.1998 15:29:22
Uz tu bola debata na tuto temu, ale moj problem aj tak trva.
Vo Word-e mam problem presunut kurzor na urceny bookmark v
dokumente.
Nefunguje mi toto :
var word : variant;
file : string;
.
.
.
word := CreateOLEObject('Word.Basic');
Word.AppShow;
Word.FileNew(Template := file);
Word.GotoBookmark('urprace');
Word.Insert(Edit1.Text);Faktorial
[*] Ivan Tarapcik <taro(zv)asset.sk> - 22.12.1998 18:19:13
no na PMD 85 som to kedysi riesil tak, ze som implementoval nasobenie
stringu cislom (v stringu bolo samozrejme cislo ibaze bolo v stringu).
Taro
OLEJNIK Andrej wrote:
> naco to potrebujes ?
>
> olej
>
> > -----Original Message-----
> > From: Jixm Heinisch [SMTP:HeiJu(zv)sol(tec)cz]
> > Sent: Tuesday, December 22, 1998 6:26 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Faktorial
> >
> > Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
> >
> > bohuzel funguje pouze do cisla 1754 / vcetne /
> > pak to pretece.
> >
> > Poradi nekdo jak to prekonat.
> >
> >
> > Jiri Heinisch H-trading
> > Danovy a ekonomicky servis
> > Vyvoj a tvorba ekonomickeho software
> > http://www.mujweb(tec)cz/www/heinisch/
> > HeiJu(zv)sol(tec)cz
> > 691 83 Drnholec
> >
--
Ivan Tarapcik; http://chelin.chtf.stuba.sk/~taro
PRIVATE!: taro(zv)pobox.sk; 0905 643 769
WORK!: taro(zv)asset.sk; 07 5421 063 (064,215), kl. 141
-
Linux is like a wigwam - no windows, no gates, apache inside!
ListViewStream
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 22.12.1998 18:21:56
Ahoj
Dodelal jsem potomka ListView kter� umi ukl�dat svoje data do souboru na
disk.
Kdo bude chtit tak at se ozve.
( Kdyby byl o to nahodou vetsi zajem tak to hodim nekam na server )
zdar
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
Faktorial
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 22.12.1998 18:25:31
Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
bohuzel funguje pouze do cisla 1754 / vcetne /
pak to pretece.
Poradi nekdo jak to prekonat.
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
SQL Dotaz
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 22.12.1998 18:50:33
Jo, napr. u Interbase je to podobne s hodnotou NULL.
Ale staci rozsirit podminku i pro akceptaci hodnoty '' nebo NULL.
puvodni:
AND (d1.Dal = d.Dal)
zmenis najak takto:
AND (d1.Dal = d.Dal OR (d1.Dal = '' AND d.Dal = '') OR (d1.Dal IS NULL AND
d.Dal IS NULL) )
Jaroslav KULHEIM
kulheim(zv)fitness(tec)cz
>Dobry den,
>
>mam dve pdox5 tabulky s primarnimi klici na prvni dve pole (Sml, Od),
>(Pol, Dal), D3, BDE4.51. SQL dotaz vypada takto:
>
> SELECT DISTINCT d1.Pol, d1.Dal, d1.Ico, d1.Firma, d1.Ulice, d1.Psc
> FROM "Tabulka1" d, "Tabulka2" d1
> WHERE
> (d.Sml = '10')
> AND (d.Od = '0')
> AND (d1.Pol = d.Pol)
> AND (d1.Dal = d.Dal)
> ORDER BY d1.Pol, d1.Dal
>
>Probl�m nastava, kdyz pole Dal je nevyplneno, nic nevybere. Kdyz zmenim
>hodnoty blank pole Dal v obou tabulkach na 0, pak dotaz probehne
>korektne. Stejny dotaz provadim v D1, BDE2.52 a tam to funguje.
>Nevite v cem je problem?
>
>S pozdravem
>
>Petr Riedel
>mailto:petr.riedel(zv)ipbpojistovna(tec)cz
>
>Faktorial
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.12.1998 19:10:53
Ondrej Krajicek wrote:
> Nerad se vmesuji, ale tenhle vzorec problem neresi. Faktorial cisla 1755
> (+) je uz proste tak velky, ze presahuje hranice rozsahu typu extended.
>
> 1755! = 3.47360461713429264719504904e+4933
> rozsah typu Extended je 3.6 x 10^-4951 .. 1.1 x 10^4932
Mozna by slo vyuzit i vlastnosti, ze za kazdou desitku cisel
naskoci nejmene dve nuly (tedy 10 [20, 30, ...] a 2x5).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Flash FILER
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 22.12.1998 19:49:59
Koukam ze zajem zasel na ubyte
OZVETE SE NEKDO !!!
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
Tabulky znaku
[*] Petr Medek <xmedekp(zv)sun.felk.cvut(tec)cz> - 22.12.1998 23:57:19
Na adrese
http://mujweb(tec)cz/web/tomasek/semtel_cz.html#semtel_download
je ke stazeni vyborny telnet, ktery ma konverzi znaku dobre vyresenou.
Snad jsou u toho i definice v externich souborech a mlhave si vzpominam, ze
by tam mohl byt i nastroj na spravu techto souboru. To uz ale nevim jiste.
Kazdopadne kontaktovat autora by nemel byt problem.
Petr Medek
>Vim, ze to sem nepatri, ale muzete ni nekdo napsat kde bych sehnal tabulky
znaku Windows-1250, ISO-8859-2, ISO-8859-1, Kamenicky, Latin-2? Potreboval
bych tabulku znak = kod.
MS Access - Automaticke cislo
[*] Jan Nov�k���r����n�?��? - 23.12.1998 07:20:16
Da se nejak udelat , aby si aplikace Delphi nepamatovala
posledni ID a po vymazani vsech zaznamu databaze Accessu a zkomprimovani
(zpakovani) zacinal ID opet od jedne ?
Diky za pripadnou radu.
-----P�vodn� zpr�va-----
Od: Erik Salaj <erik(zv)dodo.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. prosince 1998 19:55
P�edm�t: Re: MS Access - Automaticke cislo
>Nove ID sa generuje pri kazdom volani DAO metody Recordset.AddNew
>(tato metoda vytvori novy zaznam). Problem s nespravnymi prirastkami
>vznika, ak je potrebne tuto metodu zavolat z urcitych dovodov pre jeden
>zaznam viackrat. Napriklad to moze byt potrebne pri zistovani default
>hodnot poloziek noveho zaznamu (tieto hodnoty mozno definovat v Access
>databaze a mozu to byt aj zlozitejsie vyrazy). Problem vznika vo VCL
>kniznici, ktora potom vola dalsie metody, ktore sposobia zrusenie tohto
>noveho zaznamu a pri Post-e preto treba vytvorit dalsi, ktory ma uz ine ID.
>Zrejme podobny problem vznika aj pri pristupe k Access databaze cez BDE.
>V mojich komponentach pre Access je tento problem ciastocne vyrieseny
>tak, ze je mozne vypnut zistovanie default hodnot poloziek noveho zaznamu
>a IDcka sa potom generuju korektne.
>
>Erik Salaj
>erik(zv)dodo.sk
>
>-----Original Message-----
>From: Jan Nov�k <csobta(zv)mbox.vol(tec)cz>
>To: Delphi <delphi-l(zv)fwd(tec)cz>
>Date: Monday, December 21, 1998 4:10 PM
>Subject: MS Access - Automaticke cislo
>
>
>>Pouzivam MS Access 97 a Delphi 4 . V tabulce Accessu mam pole ID typu
>>Autoincremental (prirustek 1) . Kdyz prodavan zaznam v Accessu zvetsuje
>>se hodnota ID o 1 coz je spravne . Kdyz vymazu vsechny zaznamy a
>zkomprimuji
>>databazi . Zacina prirusek od 1 a zvetsuje se o jednu. To je spravne.
>>Kdyz vsak pouziji aplikaci Delphi , ktera pouziva stejnou tabulku
>>(Nativni driver) pocatecni hodnota pole incremental neni 1 a take
prirustek
>>je nekdy 2 nekdy 3 , proste to funguje blbe. I po vymazu vsech zaznamu
>>a zkomprimovani tabulky databataze pole typu incremental neni nastaveno
na
>>pocatecni hodnotu 1 a prirustky nejsou dobre. Cim to muze byt. Nesetkali
>>jste se s tim nekdo ? BDE verze 5.0
>>Diky vsem za radu.
>>
>>
>
>MS Access - Automaticke cislo
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 23.12.1998 08:05:29
Jo tak timhle to bylo ;-))))
Mac
Erik Salaj wrote:
> V mojich komponentach pre Access je tento problem ciastocne vyrieseny
> tak, ze je mozne vypnut zistovanie default hodnot poloziek noveho zaznamu
> a IDcka sa potom generuju korektne.
>
> Erik Salaj
> erik(zv)dodo.sk
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
SUM() nad Paradoxem
[*] mbartone(zv)Synthesia(tec)cz - 23.12.1998 09:15:22
Ahoj
Mam na Vas jeste pred Vanocemi dotaz ohledne SQL prikazu nad Paradoxem
Mam-li SELECT ve kterem je mimo jine SUM(platby.castka) a za dany vyber
neni zadna castka nevrati mi nulu, ale cely radek vypusti.
Staci aby existovala polozka s nulami a SUM se zobrazi s nulou.
Jak by se dalo obejit, aby vzdy i kdyz nic neni vratil 0 nebo spoctenou
SUMu ?
Diky
Vesele proziti svatku Vanocnich.
Mnoho zdrav�, stesti, spokojenosti,
pracovnich i osobnich uspechu
v novem roce
Vam preje
Milan
SQL, SQL a este raz SQL
[*] Ing. Daniel Ficek <ficek(zv)hstech(tec)cz> - 23.12.1998 10:13:59
Prazdne policka by mohlo jit odstranit nasledujicim:
SELECT X,
(IsNull((SELECT SUM(Suma) FROM B WHERE Plus=X), 0)
-IsNull((SELECT SUM(Suma) FROM B WHERE Minus=X), 0)) AS Suma
FROM A
Ing. Daniel Ficek
Michal Moscovic wrote:
> Takze uz som vymyslel jedno riesenie, ktore ma vsak dva zadrhely, s ktorymi
> si neviem dat rady.
>
> Takze tu je to riesenie:
>
> SELECT X,
> ((SELECT SUM(Suma) FROM B WHERE Plus=X)
> -(SELECT SUM(Suma) FROM B WHERE Minus=X)) AS Suma
> FROM A
>
> A tu tie zadrhely:
>
> 1. Je to slusne pomale (ale to by v konecnom dosledku az tak nevadilo)
> 2. Funguje to iba vtedy ak sa dane X v tabulke B nachadza aspon raz v
> polozke PLUS a aspon raz v polozke MINUS). V tomto pripade vrati spravny
> vysledok. Ak sa vsak X nenachadza aspon raz v oboch tak to proste necha
> prazdne policko (aj ked napr. v PLUS vratilo SUM(Suma) hodnotu 30 000.
>
> Takze ak ma niekto napad ako odstranit tie prazne policka, pripadne tento
> vyraz zrychlit budem mu velmi povdacny...
>
> Vas Verny Salmon salmon(zv)frcatel.utc.sk
Faktorial
[*] OLEJNIK Andrej <olej(zv)asset.sk> - 23.12.1998 11:17:37
faktorial 10 000 000 je 1,20242340051608 E 65657059
Nie je to zoptimalizovanie ale funguje to:
Function TForm1.Faktorial(Cislo:Integer):String;
var A:Extended;
B,C:Integer;
Poco:Extended;
S,U:String;
begin
Poco:=0;
A:=1;
for B:=2 to Cislo do
begin
A:=A*B;
S:=FloatToStr(A);
C:=POS('E',S);
if C>0 then
begin
U:=Copy(S,C+1,10);
if StrToFloat(U)>1000 then
begin
Poco:=Poco+1000;
U:=FloatToStr(StrToFloat(U)-1000);
A:=StrToFloat( Copy(S,1,C-1) + 'E'+ U);
end;
end;
end;
if Poco>0 then
begin
S:=FloatToStr(A);
C:=POS('E',S);
U:=Copy(S,C+1,10);
U:=FloatToStr(StrToFloat(U)+Poco);
Result:=(Copy(S,1,C-1) + 'E'+ U);
end
else
begin
Result:=FloatToStr(A);
end;
end;
Pekne vianoce (bez Delphi)
Olej
olej
> -----Original Message-----
> From: Jixm Heinisch [SMTP:HeiJu(zv)sol(tec)cz]
> Sent: Tuesday, December 22, 1998 6:26 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Faktorial
>
> Pri vypoctu faktorialu pouzivam typ EXTENDED v DELPHI 3
>
> bohuzel funguje pouze do cisla 1754 / vcetne /
> pak to pretece.
>
> Poradi nekdo jak to prekonat.
>
>
> Jiri Heinisch H-trading
> Danovy a ekonomicky servis
> Vyvoj a tvorba ekonomickeho software
> http://www.mujweb(tec)cz/www/heinisch/
> HeiJu(zv)sol(tec)cz
> 691 83 Drnholec
> E-Mail
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 23.12.1998 11:22:37
Hi,
Jakym zpusobem muzu otevrit okno editace mailu?Jeste potrebuju,aby v kolonce
KOMU: byla libovoln� E-Mail adresa
dik caf
Serbajlo Pavel
ICQ: 20849973
email: serb(zv)mikulov.sol(tec)cz
www: www.nemamstranky(tec)cz
Pretahovani textu
[*] Vojtech Semecky <vojtech.semecky(zv)v-soft(tec)cz> - 23.12.1998 11:56:22
Vesele vanoce,
nevi nekdo, jak by se dalo zaridit, aby v editacnim prvku
(memo, edit apod.) blikal kurzor, i kdyz by tento prvek nebyl
zrovna aktivni ?
Mozna to zni divne a mozna by to slo resit jinak,
takze na co to potrebuji :
Mam editacni prvek, do ktereho se mysi (pomoci d'n'd) pretahne text
z nejake libovolne komponenty. A ja bych chtel, aby se behem toho
pretahovani menila pozice kurzoru v tom editacnim prvku podle toho,
kam tahnu tou mysi, aby bylo videt, kam se text vlozi.
Ona se meni, ale ten kurzor neni videt, protoze je aktivni ten zdrojovy
prvek. Pokud v metode OnDragOver nastavim ActiveControl, tak to nepomaha.
Diky za rady
Vojtech Semecky
PS : Kdyby nekoho napadla rada at pouziju RichEdit, ktery ma to
zobrazovani kurzoru jiz v sobe, tak to nejde, protoze pouzivam
uplne jonou komponentu.Off: Tabulky znaku
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 23.12.1998 12:37:55
Sehnal jsem docela fajn tabulky na Inetu (je tam i CS MAC), ale autor
se do souboru nepodepsal, takze Ti nemuzu zdelit URL. Jestli chces,
tak Ti to poslu, ma to 250K.
Vaclav Sazima
Tomas Skopik wrote:
>
> Ahoj vsichni.
>
> Vim, ze to sem nepatri, ale muzete ni nekdo napsat kde bych sehnal tabulky znaku Windows-1250, ISO-8859-2, ISO-8859-1, Kamenicky, Latin-2? Potreboval bych tabulku znak = kod.
>
> Dik,
>
> Tomas Skopik
> ( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )QuikHelp (nebo jaxe tomu rika)
[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 23.12.1998 13:43:10
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Neznate nekdo nahodou nejakou fintu, jak zobrazovat
takovou tu RychloNapovedu, kdy je v titulkovem pruhu
talcitko s otaznikem, co kdyz na nej klepnete Vam
zmeni kurzor na takovou tu sipku s tim otaznikem
a potom klepnutim se zobrazi napoveda.
Diky...
...Dobra
Vesel� V�noce a ��astn� Nov� rok
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 23.12.1998 13:56:46
�
V�em p�eji vesel� V�noce a ��astn� Nov� rok. Z�rove� bych cht�l pod�kovat
v�em, kte�� mi d�ky t�to konferenci pomohli s m�mi probl�my.
Je�t� jednou d�ky.
�
Va�ek
�
�
�
�
�
V�clav Lukes
�
E-mail: Vaclav.Lukes(zv)pvt(tec)cz <mailto:Vaclav.Lukes(zv)pvt(tec)cz> ��
511247(zv)sms.paegas(tec)cz <mailto:511247(zv)sms.paegas(tec)cz>
Tel.: 0603-511247
�OFFTOPIC: money money money
[*] Patrik Sl�de�ek�����%g��jgr� - 23.12.1998 16:50:46
Sorry za t�ma, je� se net�k� p��mo Delphi, nicm�n� v minulosti zde byly
ot�zky t�kaj�c� se pen�z intenzivn� a v�niv� diskutov�ny, tak�e snad to
bude tolerov�no i tentokr�t.
Vytvo�il jsem p�r komponent a aplikac� a chci to ���it jako shareware.
Jeliko� je to kompletn� "in English", o�ek�v�m, �e pokud se vyskytne n�jak�
z�jemce o registraci, pravd�podobn� bude z USA. Probl�mem je, jak za
software zinkasovat pen�ze.
Pros�m proto kolegy, kte�� maj� v tomto sm�ru n�jak� zku�enosti, o radu. Pro
m� podstatn� krit�ria jsou tato:
1) p��jem pen�z by m�l b�t bezhotovostn� (jak� bankovn� produkt u n�s
zvolit?),
2) transak�n� n�klady by nem�ly b�t p��li� vysok� (aby mi to ze zaslan�
��stky cca 50 dolar� neschlamstlo polovinu),
3) je mo�n� snadno identifikovat pl�tce, a to bu� jm�nem, nebo dohodnut�m
k�dem doprov�zej�c�m platbu (n�co jako variabiln� symbol),
4) postup je pro ob�ana USA snadno realizovateln�.
D�ky p�edem za odpov��,
P a t r i k S l � d e � e k
e-mail: pasla(zv)iname.com
Pretahovani textu 2
[*] Vojtech Semecky <vojtech.semecky(zv)v-soft(tec)cz> - 23.12.1998 23:34:54
Trochu jsem experimentoval a chtel bych poopravit/upresnit
svuj dotaz :
Jak nastavit focus dcerinemu MDI oknu, kdyz je aktivni nejaky
jiny neMDI prvek.
Rekneme, ze je aktivni nejaky listbox na
postrannim panelu a ja ted potrebuji z programu prehodit
focus na prave aktivni MDIChild.
Kdyz udelam ActiveControl := TMDIChild(ActiveMDIChild);
tak to rekne "Cannot focus a disabled or invisible Window".
Vypada to, TFormu muzu jako ActiveControl prirazovat pouze
jeho Controly, nikoli jeho dcerina okna.
Nepomaha ani TMDIChild(ActiveMDIChild).SetFocus;
Nevite nekdo jak toto udelat ?
Diky
Vojtech Semecky
QRGroup
[*] Mirun <forcom(zv)telecom(tec)cz> - 24.12.1998 11:04:08
Protoze vyrazy jsou vyhodnocovany ja boolean, a pokud je prvni z nich True,
tak se uz nevyhodnocuji ty ostatni, protoze je jasny, ze vyraz bude True.
Zkus to 'KATEG1+KATEG2+PRODUCER' to by melo fungovat. (ale vzhledem k tomu,
ze se jedna o stringy, mozna se to odrazi na rychlosti)
S pozdravem
Mirun
-----P�vodn� zpr�va-----
Od: Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 22. prosince 1998 11:34
P�edm�t: QRGroup
>V QRGroup1.Expression mam : 'KATEG1 OR KATEG2 OR PRODUCER'(tri pole
>ftString) protoze potrebuji aby GroupHeader bylo tisteno pokud dojde ke
>zmene jednoho z techto tri poli. QRGroup1 je ale vytisteno pouze podle
>jednoho z poli( prvniho ---KATEG1).
>Nevite jak urcit aby QRGroup1BeforePrint byla spustena pokud dojde ke
>zmene aspon jednoho z techto tri poli ?
>Diky.
>OFFTOPIC: money money money
[*] Patrik Sl�de�ek�����%g��jgr� - 25.12.1998 07:49:33
Sorry za t�ma, je� se net�k� p��mo Delphi, nicm�n� v minulosti zde byly
ot�zky t�kaj�c� se pen�z intenzivn� a v�niv� diskutov�ny, tak�e snad to
bude tolerov�no i tentokr�t.
Vytvo�il jsem p�r komponent a aplikac� a chci to ���it jako shareware.
Jeliko� je to kompletn� "in English", o�ek�v�m, �e pokud se vyskytne n�jak�
z�jemce o registraci, pravd�podobn� bude z USA. Probl�mem je, jak za
software zinkasovat pen�ze.
Pros�m proto kolegy, kte�� maj� v tomto sm�ru n�jak� zku�enosti, o radu. Pro
m� podstatn� krit�ria jsou tato:
1) p��jem pen�z by m�l b�t bezhotovostn� (jak� bankovn� produkt u n�s
zvolit?),
2) transak�n� n�klady by nem�ly b�t p��li� vysok� (aby mi to ze zaslan�
��stky cca 50 dolar� neschlamstlo polovinu),
3) je mo�n� snadno identifikovat pl�tce, a to bu� jm�nem, nebo dohodnut�m
k�dem doprov�zej�c�m platbu (n�co jako variabiln� symbol),
4) postup je pro ob�ana USA snadno realizovateln�.
D�ky p�edem za odpov��,
P a t r i k S l � d e � e k
e-mail: pasla(zv)iname.com
MessageID
[*] Patrik Sl�de�ek�����%g��jgr� - 25.12.1998 16:48:17
Zdrav�m v�echny Delphisty, m�m n�sleduj�c� dotaz: je �et�zec identifikuj�c�
a doprov�zej�c� ka�dou e-mailovou zpr�vu (tzv. MessageID) jedine�n�? Nemohou
se vyskytnout dva e-maily se stejn�m identifika�n�m �et�zcem? D�ky za
v�echny odpov�di,
P a t r i k S l a d e c e k
e-mail: pasla(zv)iname.com
OFFTOPIC: money money money
[*] Patrik Sl�de�ek�����%g��jgr� - 26.12.1998 10:45:47
Sorry za t�ma, je� se net�k� p��mo Delphi, nicm�n� v minulosti zde byly
ot�zky t�kaj�c� se pen�z intenzivn� a v�niv� diskutov�ny, tak�e snad to
bude tolerov�no i tentokr�t.
Vytvo�il jsem p�r komponent a aplikac� a chci to ���it jako shareware.
Jeliko� je to kompletn� "in English", o�ek�v�m, �e pokud se vyskytne n�jak�
z�jemce o registraci, pravd�podobn� bude z USA. Probl�mem je, jak za
software zinkasovat pen�ze.
Pros�m proto kolegy, kte�� maj� v tomto sm�ru n�jak� zku�enosti, o radu. Pro
m� podstatn� krit�ria jsou tato:
1) p��jem pen�z by m�l b�t bezhotovostn� (jak� bankovn� produkt u n�s
zvolit?),
2) transak�n� n�klady by nem�ly b�t p��li� vysok� (aby mi to ze zaslan�
��stky cca 50 dolar� neschlamstlo polovinu),
3) je mo�n� snadno identifikovat pl�tce, a to bu� jm�nem, nebo dohodnut�m
k�dem doprov�zej�c�m platbu (n�co jako variabiln� symbol),
4) postup je pro ob�ana USA snadno realizovateln�.
D�ky p�edem za odpov��,
P a t r i k S l � d e � e k
e-mail: pasla(zv)iname.com
MessageID
[*] Patrik Sl�de�ek�����%g��jgr� - 26.12.1998 10:46:10
Zdrav�m v�echny Delphisty, m�m n�sleduj�c� dotaz: je �et�zec identifikuj�c�
a doprov�zej�c� ka�dou e-mailovou zpr�vu (tzv. MessageID) jedine�n�? Nemohou
se vyskytnout dva e-maily se stejn�m identifika�n�m �et�zcem? D�ky za
v�echny odpov�di,
P a t r i k S l a d e c e k
e-mail: pasla(zv)iname.com
Pretahovani textu 2
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 26.12.1998 14:49:32
>Kdyz udelam ActiveControl := TMDIChild(ActiveMDIChild);
>tak to rekne "Cannot focus a disabled or invisible Window".
>Vypada to, TFormu muzu jako ActiveControl prirazovat pouze
>jeho Controly, nikoli jeho dcerina okna.
>
>Nepomaha ani TMDIChild(ActiveMDIChild).SetFocus;
TMDIChild(ActiveMDIChild).ActiveControl :=
TMDIChild(ActiveMDIChild).egSuperMemoEdit;
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
OFFTOPIC: money money money
[*] Mirun <forcom(zv)telecom(tec)cz> - 26.12.1998 15:15:28
Podivej se na www.shareit.com
Mirun
-----P�vodn� zpr�va-----
Od: Patrik Sl�de�ek <pasla(zv)iname.com>
Komu: Diskusn� konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 26. prosince 1998 14:10
P�edm�t: OFFTOPIC: money money money
OFFTOPIC: money money money
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.12.1998 15:20:59
> 1) p��jem pen�z by m�l b�t bezhotovostn� (jak� bankovn� produkt u n�s
> zvolit?),
> 2) transak�n� n�klady by nem�ly b�t p��li� vysok� (aby mi to ze zaslan�
> ��stky cca 50 dolar� neschlamstlo polovinu),
> 3) je mo�n� snadno identifikovat pl�tce, a to bu� jm�nem, nebo dohodnut�m
> k�dem doprov�zej�c�m platbu (n�co jako variabiln� symbol),
> 4) postup je pro ob�ana USA snadno realizovateln�.
Prevod schlamstne mnoho penez. Sek je trochu lepsi, ale zase to
dele trva, nez ti prijde. Idealni je platebni karta. Kontaktuj
svou banku nebo Komercni banku ci Sporitelnu.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
OFFTOPIC: money money money
[*] Peter �irip <psoft(zv)ke.telecom.sk> - 26.12.1998 18:50:19 -0800
[P��loha v souboru: Peter �IRIP.vcf]
Ja mam dobre skusenosti s RegSoft (pozri www.regsoft.com). Poskytuju spustu
sluzieb, registracia je mozna kedykolvek a akokolvek.>Sorry za t�ma, je� se net�k� p��mo Delphi, nicm�n� v minulosti zde byly
>ot�zky t�kaj�c� se pen�z intenzivn� a v�niv� diskutov�ny, tak�e snad to
>bude tolerov�no i tentokr�t.
>
>Vytvo�il jsem p�r komponent a aplikac� a chci to ���it jako shareware.
>Jeliko� je to kompletn� "in English", o�ek�v�m, �e pokud se vyskytne n�jak�
>z�jemce o registraci, pravd�podobn� bude z USA. Probl�mem je, jak za
>software zinkasovat pen�ze.
>
>Pros�m proto kolegy, kte�� maj� v tomto sm�ru n�jak� zku�enosti, o radu.
Pro
>m� podstatn� krit�ria jsou tato:
>
>1) p��jem pen�z by m�l b�t bezhotovostn� (jak� bankovn� produkt u n�s
>zvolit?),
>2) transak�n� n�klady by nem�ly b�t p��li� vysok� (aby mi to ze zaslan�
>��stky cca 50 dolar� neschlamstlo polovinu),
>3) je mo�n� snadno identifikovat pl�tce, a to bu� jm�nem, nebo dohodnut�m
>k�dem doprov�zej�c�m platbu (n�co jako variabiln� symbol),
>4) postup je pro ob�ana USA snadno realizovateln�.
>
>D�ky p�edem za odpov��,
>
>P a t r i k S l � d e � e k
>e-mail: pasla(zv)iname.com
>
>MS Access - Automaticke cislo
[*] Erik Salaj <erik(zv)dodo.sk> - 26.12.1998 19:26:26
Ano presne tak to funguje - po spakovani databazy sa ID
prazdnej tabulky inicializuje na 1. Tu je priklad, ktory urobi
to spakovanie databazy:
uses DAO, DAODS;
with DAODataSet1 do
try
Close;
GetDBEngine.CompactDatabase(DatabaseName, 'temp.mdb', EmptyParam,
EmptyParam, EmptyParam);
DeleteFile(DatabaseName);
MoveFile('temp.mdb', PChar(DatabaseName));
finally
Open;
end;
Erik Salaj
erik(zv)dodo.sk
-----Original Message-----
From: Jan Nov�k <csobta(zv)mbox.vol(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: Saturday, December 26, 1998 3:58 PM
Subject: Re: MS Access - Automaticke cislo
>Da se nejak udelat , aby si aplikace Delphi nepamatovala
>posledni ID a po vymazani vsech zaznamu databaze Accessu a zkomprimovani
>(zpakovani) zacinal ID opet od jedne ?
>Diky za pripadnou radu.
Off: Tabulky znaku
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 26.12.1998 20:25:44
Fajn, posli to. Dik.
Bye,
Tomas Skopik
skopik(zv)vtv(tec)czn(tec)cz / cestina mozna
www.sarai(tec)cz/~skopik
-----Original Message-----
From: Vaclav Sazima <sazima(zv)comp(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 26. prosince 1998 14:21
Subject: Re: Off: Tabulky znaku
>Sehnal jsem docela fajn tabulky na Inetu (je tam i CS MAC), ale autor
>se do souboru nepodepsal, takze Ti nemuzu zdelit URL. Jestli chces,
>tak Ti to poslu, ma to 250K.
> Vaclav Sazima
>
>Tomas Skopik wrote:
>>
>> Ahoj vsichni.
>>
>> Vim, ze to sem nepatri, ale muzete ni nekdo napsat kde bych sehnal tabulky znaku Windows-1250, ISO-8859-2, ISO-8859-1, Kamenicky, Latin-2? Potreboval bych tabulku znak = kod.
>>
>> Dik,
>>
>> Tomas Skopik
>> ( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
>
MouseEnter/leave D4
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 26.12.1998 23:59:12
Ahoj,
potrebujem reagovat na udalost prveho a posledneho mousemove nad komponentou
odvodenou od TGraphicControl. Problem je v tom, ze v podstate aj
viem ako ale nerozumiem preco prave tak.
V zasade som zistil, ze iny povesia obsluhu nad spravy cm_mouseenter/leave
ktoru definuju ako private a zaroven definuju dynamicku metodu mouseleave. V
obsluhe spravy windows potom zavolaju "inherited;" a zaroven zavolaju onu
dynamicku metodu ... Preco preboha takto?
Uz sa s tym niekto stretol?
dakujem za kazdu radu ...
Richard Willmann
Prevod cisla na retezec
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 27.12.1998 13:01:59
Ahoj Delphici,
potreboval bych pomoci se subj. Vim, ze se to kdysi uz rozebiralo, ale
nevim, jestli se k necemu doslo.
Mam treba cislo 134 021,40 a potrebuju ho dostat do retezce, tj. :
"stodvacetctyritisicdvacetjedna koruna a ctyricet haleru" - vcetne
ceskeho sklonovani a podobnych veci. Pokousel jsem se to udelat ruco,
ale pak jsem dosel k zaveru, ze se radsi zeptam, jestli to uz nahodou
nekdo nema ... prosim, prosim ...
Mockrat dekuji, stastny novy rok '99,
Peter
Pretahovani textu 2
[*] Vojtech Semecky <vojtech.semecky(zv)v-soft(tec)cz> - 27.12.1998 21:26:57
>TMDIChild(ActiveMDIChild).ActiveControl :=
>TMDIChild(ActiveMDIChild).egSuperMemoEdit;
Diky, ale problem to jeste neresi.
Todle sice nastavi aktivni kontrol v MDI okne, ale to se
projevi az, kdyz je akttivni to MDI okno. A to neni.
Otazka spise je, jak aktivovat MDI okno.
SQL, SQL a este raz SQL
[*] Michal Moscovic <moscovic(zv)fred.utc.sk> - 27.12.1998 22:00:42
>Prazdne policka by mohlo jit odstranit nasledujicim:
>
>SELECT X,
> (IsNull((SELECT SUM(Suma) FROM B WHERE Plus=X), 0)
> -IsNull((SELECT SUM(Suma) FROM B WHERE Minus=X), 0)) AS Suma
>FROM A
>
> Ing. Daniel Ficek
"Huh... tak toto musi fungovat" to boli moje 1. myslienky, no unahlil som
sa...
Ak "IsNull(x,y)" funguje tak ako si myslim, tak by to malo fungovat, no ked
som to pouzil tak som si "vypocul" hlasku typu: ... Wrong number of
arguments used with function in query expression ' tu nasleduje cely vyraz
od 1. zatvorky az po poslednu. ' ...
Ked som s danym vyrazom trosku experimentoval, tak sa mi podarilo to, ze ho
zozral, ale vysledok bol strasny - uplne nezmysli... Tie experimenty (hlavne
ten "vitazny") spocivali v entroch za zatvorkami (tu uz vidno bezmocnost,
ktoru citim)...
Takze takto to fungovalo, comu sa velmi cudujem
SELECT X,
(IsNull
((SELECT SUM(Suma) FROM B WHERE Plus=X), 0)
- IsNull
((SELECT SUM(Suma) FROM B WHERE Minus=X), 0)) AS Suma
FROM A
nehovoriac o tom, ze mam pocit, ze tie vysledky sa po kazdom spusteni
menili. Povazujem to za maly zazrak prirody...
Please pomozte mi...
Vopred vdaka za kazdy napad a kazdu pomoc...
Vas Verny Salmon salmon(zv)frcatel.utc.sk
PS: kde by som sa dostal k popisu funkcii ako je IsNull
a este raz dakujem za doterajsie aj buduce napady...E-Mail
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 28.12.1998 07:14:21
>Hi,
>Jakym zpusobem muzu otevrit okno editace mailu?Jeste potrebuju,aby v
kolonce
>KOMU: byla libovoln� E-Mail adresa
Pres ShellExecute a jako parametr uvest 'MailTo:email(zv)adresa' nebo pouzit
API funkce z knihovny MAPI
>Serbajlo Pavel
>ICQ: 20849973
>email: serb(zv)mikulov.sol(tec)cz
>www: www.nemamstranky(tec)cz
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
MessageID
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.12.1998 09:00:00
>Zdrav�m v�echny Delphisty, m�m n�sleduj�c� dotaz: je �et�zec identifikuj�c�
>a doprov�zej�c� ka�dou e-mailovou zpr�vu (tzv. MessageID) jedine�n�?
Nemohou
>se vyskytnout dva e-maily se stejn�m identifika�n�m �et�zcem? D�ky za
>v�echny odpov�di,
Teoreticky samozrejme dva ruzne maily mohou obsahovat stejny MessageID.
Nemelo by to ale nastat za beznych podminek. Do Message ID se zakomponovava
cas a datum v PC (obcas asi i nejaka random slozka). Takze pokud v PC
nastavite hodiny zpet, muzete se teoreticky dockat stejneho ID.
Podotykam, ze MessageID generuje normalne odesilajici postovni klient (pokud
tak neucini doplni jej postovni server). Takze neni problem napsat klienta,
ktery bude generovat stale stejne MessageID
Zdravi
D. Toman
MouseEnter/leave D4
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 28.12.1998 09:01:19
Hi,
jedna se o standardni postup, jakym se programator napojuje na existujici
tridu objektu a soucasne vytvari (rozsiruje) rozhrani pro jine programatory,
ktere budou potencialne pouzivat jeho tridu k tvorbe vlastnich trid.
1. Volani inherited v handleru zpravy WM_xxxx resp. CM_xxxx zajisti, ze se
provedou vsechny akce v tridach, ze kterych autor dedil. Vim-li presne, co
se v techto predcich deje a nelibi se mi to, nemusim inherited volat a muzu
si vse obslouzit sam, ovsem casto neni mozne z obsluhy vynechat predky,
protoze se musi zmenit jejich stav v private atributech.
2. Dynamicka metoda MouseLeave() ma funkci udalosti na rozhrani objektu (lze
si predstavit napr. jako nozicku na konektoru), ktera je dostupna dalsim
_programatorum_. Take by mohla byt virtual, ale to by zbytecne zvetsovalo
VMT a tudiz pametove naroky pri kazde instanci teto tridy.
3. Pouziti teto metody odstinuje ostatni programatory od znalosti Windows
API ci jineho OS. Staci jim override dynamicke metody.
4. Volani dynamicke metody z private handleru zajistuje, ze handler vzdy
obslouzi akce, ktere tvurce tridy potreboval a pak se dostane na ostatni
potomky.
5. Z teto metody se zpravidla vola OnMouseLeave() a tim se vytvari interface
nizsi urovne pro _uzivatele_ trid.
Bye, pf
-----Original Message-----
From: No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk>
To: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Date: Sunday, December 27, 1998 12:11 AM
Subject: MouseEnter/leave D4
>Ahoj,
>
>potrebujem reagovat na udalost prveho a posledneho mousemove nad
komponentou
>odvodenou od TGraphicControl. Problem je v tom, ze v podstate aj
>viem ako ale nerozumiem preco prave tak.
>
>V zasade som zistil, ze iny povesia obsluhu nad spravy cm_mouseenter/leave
>ktoru definuju ako private a zaroven definuju dynamicku metodu mouseleave.
V
>obsluhe spravy windows potom zavolaju "inherited;" a zaroven zavolaju onu
>dynamicku metodu ... Preco preboha takto?
>
>Uz sa s tym niekto stretol?
>
>dakujem za kazdu radu ...
>
>
>Richard Willmann
>
>
>MessageID
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 28.12.1998 09:24:05
Zdravicko...
Samozrejme ze mohou. Vzdyt MessageID generuje mailer, ktery o jinych
prave putujicich zpravach nema ani poneti.
F.
> -----P�vodn� zpr�va-----
> Od: Patrik Sl�de�ek [SMTP:pasla(zv)iname.com]
> Odesl�no: sobota, prosince 26, 1998 10:46
> Komu: Diskusn� konference Delphi
> P�edm�t: MessageID
>
> Zdrav�m v�echny Delphisty, m�m n�sleduj�c� dotaz: je �et�zec
> identifikuj�c�
> a doprov�zej�c� ka�dou e-mailovou zpr�vu (tzv. MessageID) jedine�n�?
> Nemohou
> se vyskytnout dva e-maily se stejn�m identifika�n�m �et�zcem? D�ky za
> v�echny odpov�di,
>
>
> P a t r i k S l a d e c e k
> e-mail: pasla(zv)iname.com
> OLE Word
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <martin(zv)proces.sk> - 28.12.1998 10:49:01
Nema niekto zoznam prikazov OLE servra Word97. Priklady z
Delphi Informantu nefunguju a ja som v koncoch.
D.
Martin
Prevod cisla na retezec
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 28.12.1998 10:57:02
Nekde to mam, ale urcite bez haleru. Delal jsem jednou slozenky a
tam se halire pisou cislem. To uz by jsi ale dodelal hrave. Jinak to
opravdu funguje a sklonuje tak jak ma. Pokud doted nic nemas tak
se ozvi. Poslu.
Date sent: Sun, 27 Dec 1998 13:01:59 +0100
From: peterrus(zv)intesys(tec)cz (Peter Rus)
To: "delphi-l(zv)fwd(tec)cz" <delphi-l(zv)fwd(tec)cz>
Subject: Prevod cisla na retezec
Send reply to: delphi-l(zv)fwd(tec)cz
> Ahoj Delphici,
>
> potreboval bych pomoci se subj. Vim, ze se to kdysi uz rozebiralo, ale
> nevim, jestli se k necemu doslo.
>
> Mam treba cislo 134 021,40 a potrebuju ho dostat do retezce, tj. :
>
> "stodvacetctyritisicdvacetjedna koruna a ctyricet haleru" - vcetne
> ceskeho sklonovani a podobnych veci. Pokousel jsem se to udelat ruco,
> ale pak jsem dosel k zaveru, ze se radsi zeptam, jestli to uz nahodou
> nekdo nema ... prosim, prosim ...
>
> Mockrat dekuji, stastny novy rok '99,
>
> Peter
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
MouseEnter/leave D4
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 28.12.1998 11:11:48
Ahoj,
dakujem za odpoved. Takze ak to zrekapitulujem:
-----Original Message-----
From: Petr Fejfar <callnet(zv)telecom(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 28. december 1998 9:30
Subject: Re: MouseEnter/leave D4
>Hi,
>
>jedna se o standardni postup, jakym se programator napojuje na existujici
>tridu objektu a soucasne vytvari (rozsiruje) rozhrani pro jine
programatory,
>ktere budou potencialne pouzivat jeho tridu k tvorbe vlastnich trid.
>
>1. Volani inherited v handleru zpravy WM_xxxx resp. CM_xxxx zajisti, ze se
>provedou vsechny akce v tridach, ze kterych autor dedil. Vim-li presne, co
>se v techto predcich deje a nelibi se mi to, nemusim inherited volat a muzu
>si vse obslouzit sam, ovsem casto neni mozne z obsluhy vynechat predky,
>protoze se musi zmenit jejich stav v private atributech.
>
tak obsluha spravy cm_mouseleave/enter je nevyhnutna a vola ju Windows
prostrednictvom systemu sprav. OK.
BTW: Ako to funguje ked sa prekryvaju obsluhy rovnakych sprav v hierarchii?
>2. Dynamicka metoda MouseLeave() ma funkci udalosti na rozhrani objektu
(lze
>si predstavit napr. jako nozicku na konektoru), ktera je dostupna dalsim
>_programatorum_. Take by mohla byt virtual, ale to by zbytecne zvetsovalo
>VMT a tudiz pametove naroky pri kazde instanci teto tridy.
ok, tomu rozumiem. Chapem tiez preco dynamicka ale mozno aj preco virtualna
ale nie staticka.
>
>3. Pouziti teto metody odstinuje ostatni programatory od znalosti Windows
>API ci jineho OS. Staci jim override dynamicke metody.
>
>4. Volani dynamicke metody z private handleru zajistuje, ze handler vzdy
>obslouzi akce, ktere tvurce tridy potreboval a pak se dostane na ostatni
>potomky.
>
>5. Z teto metody se zpravidla vola OnMouseLeave() a tim se vytvari
interface
>nizsi urovne pro _uzivatele_ trid.
>
Ja uz len nerozumiem jednemu, moja komponenta je odvodena od TGraphics
Control, ktory ma v hierarchii smerom nahor rodica TControl a TEN ROBI
PRESNE TO ISTE CO JA. Tj. obsluha cm_mouseenter/leave + dynamicku metodu
mouseenter. Nerobim nieco zbytocne? Resp. nerobim to cele nejako priliz
komplikovane?
dakujem
richard
>
>Bye, pf
>
>-----Original Message-----
>From: No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk>
>To: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
>Date: Sunday, December 27, 1998 12:11 AM
>Subject: MouseEnter/leave D4
>
>
>>Ahoj,
>>
>>potrebujem reagovat na udalost prveho a posledneho mousemove nad
>komponentou
>>odvodenou od TGraphicControl. Problem je v tom, ze v podstate aj
>>viem ako ale nerozumiem preco prave tak.
>>
>>V zasade som zistil, ze iny povesia obsluhu nad spravy cm_mouseenter/leave
>>ktoru definuju ako private a zaroven definuju dynamicku metodu mouseleave.
>V
>>obsluhe spravy windows potom zavolaju "inherited;" a zaroven zavolaju onu
>>dynamicku metodu ... Preco preboha takto?
>>
>>Uz sa s tym niekto stretol?
>>
>>dakujem za kazdu radu ...
>>
>>
>>Richard Willmann
>>
>>
>>
>>CopyTable
[*] Petr Posp�il - 28.12.1998 11:42:51
Zdravim vsechny a preju vse nejlepsi do Nove Roku 1998!
Potreboval bych maly help.
Jak se da nejlepe a nejrychleji zkopirovat tabulka i s indexy ,treba pro
zalohovani a naopak (pro D3)?
Objevil jsem toto,ale bohuzel me to nefunguje a zadna nova tabulka i s
indexy se nevytvari!{ Copy one table to another
If you are creating an exact copy of a table, this is by far the fastest
method. This will also copy indexes on non-SQL databases.
This example uses the following input: CopyTable(Table1, 'customer_copy.db',
TRUE);
procedure CopyTable(Table: TTable; TableName: string; Overwrite: boolean);
var
Props: CURProps;
begin
Check(DbiGetCursorProps(Table.Handle, Props));
Check(DbiCopyTable(Table.DBHandle, Overwrite, PChar(Table.TableName),
Props.szTableType, PChar(TableName)));
end; }