Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Doporu�te knihu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.9.1999 00:06:47
Zbysek Hlinka wrote:
> Az tak detailne jsem to necetl, ale vylozenou blbost jsem take
> nenasel. Nicmene me zarazil vyzdvihovanim DDE a naprostym
No, ona stale bohuzel existuje jedna vec kde se to jeste da (spis musi)
pouzivat. A to je v pripade asociovanych souboru k aplikacim na predavani
parametru. Nicmene k jakemukoliv jinemu ucelu (vcetne NetDDE) bych pred
tim varoval.
> Mno, on Swan take tvrdi, ze na Delphi 4 staci 386. :-)))) Strana X,
> Pozadovane vybaveni.
K nainstalovani urcite staci, pokud to nechces dal pouzivat :-) Nekde jsem
ted videl prodavat 386ky (8M RAM + HDD) za 350Kc, coz je tak odpovidajici
cena :-)
--
Petr Vones, amatersky programator
Delphi 5, MS SQL 7 a varchar(2000)
[*] ing. Ales Da�a - 13.9.1999 00:22:00
Myslim, ze jsem mel podobny problem a pomohlo update BDE na vyssi verzi.
Ales Dana
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
mbartone(zv)Synthesia(tec)cz
Sent: Friday, September 10, 1999 12:58 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Delphi 5, MS SQL 7 a varchar(2000)
Ahoj
mam Delphi 3 a MS SQL 7
nemuzu pouzit varchar(2000) protoze je omezeni bud v BDE nebo v Delphi na
varchar(255).
Nevite nekdo jak to je v Delphi 5 ?
Milan
Voice modem library
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.9.1999 00:24:49
Petr Zahradnik wrote:
>
> Puvodni zprava, kterou napsal Viliam Mlich dne 11 Sep 99,:
>
> > Dokonca som kvoli tomu vymenil modem, teraz mam Rockwell HCF 56k
> > SpeakerPhone PCI Modem a hlasi to presne to iste: raised exception class
> > ETapiVoiceNotSupported.
>
> No tak to nemas nainstalovanou podporu TAPI...
Ahoj,
Tim to mozna nebude, podle ty vyjimky asi nefunguje jen voice podpora,
bezne TAPI funkce (zvedni, vytoc cislo, poloz) asi budou fungovat. To
by jsi mel zkusit treba z HyperTerminalu tak ze vyberes modem (ne primo
COM !) a zkusis neco vytocit. Pokud pouzivas W95 tak muze byt chyba v
unimodem driveru, upgrade mas tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/smeti/Unimodem_driver_W95_update.zip
Potom jeste zkontroluj v systemu jestli tam mas v Radicich zvuku zarizeni
"Wave device for modem" nebo tak nejak a jestli je opravdu funkcni (to ze
u neho neni vykricnik).
Jinak zadne dalsi drivery uz neni treba instalovat. U starych modemu
33600 ktere jeste pouzivaly bezny COM jenz byl omezen do 115000 bps to
platilo uplne. U 56k modemu uz by tohle bylo velky omezeni, protoze s
pouzitim komprese je realna rychlost nekdy az kolem 230000 bps, tak se
jiz pouziva jine reseni, ktere uz vyzaduje ovladac ale ten se ti musi
instalovat hned po detekci zarizeni, jinak by ti to vubec nechodilo.
Posledni moznost je, ze maji nejakou chybu v .INF souboru, zkus se
podivat na stranky vyrobce a stahnout posledni verzi.
--
Petr Vones, amatersky programator
Beh dvoch procesov sucastne (po druhe).
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 12.9.1999 22:26:45 pdt
ZDAR.
Tak mi aspopn poradte ako definovat premenne (vstupne parametre) pre
uz skompilovany EXE program.
Dakujem, a sorry ze s tym tolko otravujem, ale surne to potrebujem a fakt si
stym neviem rady.>Ahoj.
>Ten TThread je pekna vec ale akosi mi to cez neho nejde.
>Potrebujem toto:
>
>Predstav si, ze su dva programi (samostatne a samostatne spustene), jeden
>komunikuje s portom Com1 a druhy s Com2 a to sucastne v tom istom case(toto
>mi funguje).
>
>No a toto iste potrebujem spravit tak, ze dva Form child-y sa budu spravat
>tak ako tie dva programi z predchadzajucej predstavy.
>Childy vytvaram v runtime lebo im konfigurujem premenne - toto je nutne
>(preto to nechcem spravyt ako spustanie exe programu).
>
>A toto sa mi nedary ani s tthread ( zakazdym caka jeden na druheho).
Vdaka za vsetky rady a napady.
Martin Galik
Programator - zaciatocnik.
RB s r.o.
Bratislava
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Voice modem library
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.9.1999 23:37:37
Puvodni zprava, kterou napsal Viliam Mlich dne 11 Sep 99,:
> Dokonca som kvoli tomu vymenil modem, teraz mam Rockwell HCF 56k
> SpeakerPhone PCI Modem a hlasi to presne to iste: raised exception class
> ETapiVoiceNotSupported.
No tak to nemas nainstalovanou podporu TAPI...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Voice modem library
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.9.1999 23:40:47
Puvodni zprava, kterou napsal Viliam Mlich dne 12 Sep 99,:
> > Async Professional umi pracovat voice, ale jen pres TAPI. Pokud modem
> > podporuje TAPI, musis mit nainstalovany ovladac TAPI, pak to bude
> > chodit.
>
> Ten ovladac TAPI najdem niekde v AsyncPro?
Ne, TAPI je telefonni rozhrani. To musi podporovat Tvuj modem
a musis k tomu mit ovladac. Pokud to nemas na disketach k modemu,
tak hledej nekde na Internetu.
> Po vlozeni modemu a zapnuti windows vypisali, ze nasli novy modem a chceli
> disketu, z nej si zobrali, co potrebovali a vsetko funguje. Okrem
> AsyncPro. Nainstalovalo to:
Tim "vsetko funguje" jako funguje co? Prenos a faxovani? To ale asi
nepouziva TAPI.
> a ked dam hladat TAPI*.*, vidim napriklad tapi.dll a tapi32.dll vo
> Windows\system ale napriklad aj TAPI.HLP ale v nom, som nenasiel zmienku o
> nejakom extra ovladaci.
Musis to tam doinstalovat a ono se to bude pak tvarit myslim
jako zvukova karta, proste bude to v tech voice ovladacich
v System v ovladacim panelu.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Doporu�te knihu
[*] Libor Valka <valka(zv)brno.cas(tec)cz> - 13.9.1999 06:57:34
> Doporu�te, pros�m dobrou knihu o Delphi 4.
>
> D�ky, Honza
>
Ahoj,
mne osobne se celkem libi kniha
S. Teixeira - X. Pacheco: "Borland Delphi - pruvodce vyvojare"
UNIS Publishing, 1999
Ze sestidilneho svazku byl zatim vydan pouze 2. dil, ale podle mych
informaci maji dalsi 2 dily vyjit do jednoho mesice. Budou to dily III a IV.
U dilu I, V a VI jeste nebyl stanoven presny termin vydani.
S pozdravem
Libor Valka
mailto:valka(zv)brno.cas(tec)cz
mailto:valka(zv)ipm(tec)cz
Doporu�te knihu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.9.1999 07:54:25
Ahoj,
> S. Teixeira - X. Pacheco: "Borland Delphi - pruvodce vyvojare"
> UNIS Publishing, 1999
> Ze sestidilneho svazku byl zatim vydan pouze 2. dil, ale podle mych
> informaci maji dalsi 2 dily vyjit do jednoho mesice. Budou to dily III a
> IV. U dilu I, V a VI jeste nebyl stanoven presny termin vydani.
****Dalsi 2 dily, o kterych tu mluvis, meli, dle informaci primo od
nakladatelstvi, vyjit jiz v cervnu. Holt, chytaji moresy Microsoftu. :-(
Slavek
> Libor Valka
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
prevod string na pchar
[*] Ing. J�n Kuch�r�����!j��G - 13.9.1999 08:17:43
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
caute
vo svojom programe pouzivam vlastny sposob vyhladavania urciteho textu pomocou prikazu STRPOS, problem je ale v tom, ze zistim urcity text v ktorom sa ma vyhladavat ( je typu STRING ), ale prikaz pracuje s typom PCHAR, takze by som potrboval poradit ako previest string na pchar.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk prevod string na pchar
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.9.1999 08:38:33
Ahoj,
> vo svojom programe pouzivam vlastny sposob vyhladavania urciteho textu
> pomocou prikazu STRPOS, problem je ale v tom, ze zistim urcity text v
> ktorom sa ma vyhladavat ( je typu STRING ), ale prikaz pracuje s typom
> PCHAR, takze by som potrboval poradit ako previest string na pchar.
****(Ansi)String vlastne neco jako PChar je, tak staci pretypovani:
PChar (S).
Slavek
> Ing. J�n Kuch�r
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Neposlusny soubor pdoxusrs.net
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 13.9.1999 09:03:53
Ahoj
Mam ve svem databazovem programu nasledujici problem:
Pokud se spusti pod NT, tak si na Cecku vytvori soubor pdoxusrs.dat a
ja bych potreboval, aby se dalo nejak nastavit, kde si ma ten soubor
vytvorit (typicky u toho meho programu a ne tom Cecku)
Protoze vetsina uzivatelu nema prava zapisovat na cecko.
Diky predem za rady.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - QuickReport a preview
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 13.9.1999 09:05:22
Stiahni si zo stranky QuickSoftu tutorial, ktory to presne opisuje aj s
prislusnym kodom.( www.qusoft.com.)"Ing. Petr �vejda" wrote:
> Podivej se do "Mistrovstvi v Delphi 3", kapitola "Rychle sestavy
> QuickReport", strana 444, odstavec "Vytvareni uzivatelskych
> nahledu". Dulezite je, ze do OnPreview musis
> zapsat: Form2.QRPreview1.QRPrinter := TQRprinter(Sender); Bez toho ti
> to nepojede. V knize je i na CD vzorovy priklad.
> S pozdravem
> Ing. Petr Svejda, software specialist
> ____________________________________________
> |
> | Neolit system, software developer
> | Stankova 215, Telc, tel: (066) 724 39 34
> | mobil: 0603 214 901, fax: 0603 214 902
> | lingvista(zv)lingvista(tec)cz, http://www.lingvista(tec)cz/
> |____________________________________________
>
> ----- P�vodn� zpr�va -----
> Od: Dan Rejchrt
> Komu: delphi-l(zv)fwd(tec)cz
> Odesl�no: 9. z��� 1999 23:24
> P�edm�t: QuickReport a preview
> Jak si mohu vytvorit vlastni preview ve QuickReportu ? Je
> tam dan jako procedura uz vytvorena, ale jsou tam zbytecne
> veci jako napr. otevreni a ulozeni souboru atd... To nechci.
> Bud jestli to jde jenom nejak smazat ci upravit, nebo jestli
> ji nutne vytvorit nove - jak. S podzravem Dan
> Rejchrtrejchrt(zv)ssakhk(tec)cz
>Delphi - VB
[*] mjuri(zv)gratex.sk - 13.9.1999 09:28:07
Po skompilovani do .OBJ sa vola C2.EXE, co je C++ kompilator.
C2.EXE interne vola LINK.EXE.
-----Original Message-----
From: ivan(zv)gratis.sk [mailto:ivan(zv)gratis.sk]
Sent: Sunday, September 12, 1999 4:15 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Delphi - VB
Ahoy,
>Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
>do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
>jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++ (tj.
>rychlejsi nez Delphi),
Ten pseudo kod, to bude zrejme OBJ, lebo iba ten vedia zlinkovat ine
linkery.
Ale to by potom vedel zlinkovat napriklad aj Turbo Link. Ale preco by
potom
Microsoft nedodal vlastny linker?
Okrem toho sa mi nezda, ze by optimalizacia prebiehala na urovni OBJ. VB
bol
navrhnuty tak, aby bol jednoduchy. Zial, jednoduchost a rychlost sa v
pripade
programovacich jazykov vylucuju.
Ivan
Hynek Svatos wrote:
> > Vzhledem k tomu, ze Delphi ma dnes dobry optimalizovany
> > prekladac a k tomu, jak pracuje VB (hromada externich ActiveX),
> > predpokladam, ze uz z podstaty bude nativni kod VB pomalejsi.
> > Myslim, ze testy to jen potvdi, je jen otazka, jak velky rozdil to
> > bude.
>
> No ja nevim ale ja bych zase na borlandi kompilatory nepel takovou slavu.
> Moje skusenosti jsou nyni spise horsi. Jednak mi pripada, ze Delfi kod
neni
> zase takovy rychlik, programy jsou velke a co se tyce chybovosti
kompilatoru
> (a celych Delf), o te tu jiz par prispevku taky padlo. Napriklad se mi
dost
> casto stava, ze mi program nelze zkompilovat, hazi to jakesi SYS chyby
> kompilaoru v System.pas atd. - po restartu Delphi je to ok.To ani nemluvim
> o tom ze ukoncit Delphi bez Acces violation je uz jen me zbozne prani, to
je
> ale zase jina kapitola ...
>
> Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
> do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
> jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++
(tj.
> rychlejsi nez Delphi),
> zpomaleni celeho programu zpusobuji jen natahovani ActiveX.
> Nevim, mozna ze moc ctu ... :-)
>
> ==== Hynek Svatos ====
> svatos(zv)kam(tec)czu(tec)cz
> svatos(zv)af(tec)czu(tec)cz
> ===================
>
> > Mam vsak jeste jednu dalsi pripominku k VB - programy v nem
> > napsane nelze rozumne lokalizovat. Formulare z VB se kompiluji
> > primo do kodu, takze z tohoto bince nelze vytahnout texty, prelozit
> > je a vratit zpet. Tohle by nemuselo vadit, pokud program pobezi
> > vyhradne v jednojazycnem prostredi. Ale staci par zakazniku ze
> > Slovenska, napriklad, a problemy se ihned projevi - lokalizace je
> > nutne udrzovat budto primo v programu, nebo je porad tahat zvenci
> > z nejakeho souboru (a tam je pracne udrzovat). Dalsi problem
> > nastane s prvky ActiveX. Tam mohou byt nejake texty, ktere se
> > objevi v puvodnim jazyce. Pokud je navic takovyto modul napsany
> > prasacky, s texty primo v kodu, tak bez zdrojaku s tim nikdo
> > nehne. A i kdyby byly texty v resourcech, je to houby platne,
> > protoze zpravidla by bylo nutne nacpat preklady primo do nej, coz
> > zase obvykle nelze z hlediska autorske ochrany a kompatibility.
> > Pro tyto pripady mi pripada Delphi (a C++ Builder) idealni, protoze
> > se standardne rozhlizi kolem sebe po externich souborech s
> > preklady. Takze lze vyrobit preklad i k cizimu programu, aniz bych
> > porusil autorska prava.
> >
> >
> > 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
ACCESS a obrazky
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 13.9.1999 09:33:44
Tak se omlouvam za mystifikaci. Tvuj problem
vyresis nastavenim parametru BLOB SIZE v BDE
na vetsi hodnotu (32 - 1024) kB. Vhodnejsi je tento
parametr dat do Params v komponente TDatabase
primo ve tvem projektu, nez ho menit v BDE Adminovi.
Problem s prenosem blobu pres BDE-ODBC sice je,
ale jen pro server SQL Anywhere, a za to muze spis
Sybase.
-----------
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
-----P�vodn� zpr�va-----
Od: suvak(zv)pbko.sk <suvak(zv)pbko.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. z��� 1999 9:30
P�edm�t: ACCESS a obrazky
>
>
>Ahojte,
>
>Do accesovskej databazy ukladam obrazky bmp a jpeg. Pri ich zobrazovani
>vsak nastava problem. Spravne sa zobrazi len horna tretina obrazku (velkost
>spravne zobrazenej plochy zavisi od velkosti ulozeneho obrazku. Uplne male
>obrazky sa zobrazuju korektne). Zvysok obsahuje zvisle pasy (dovolim si
>prilozit vzorku, viem, ze sa to v konferencii nesmie, bohuzial, neviem to
>vsak inac
>popisat a prilozeny obrazok je iba 13 KB velky, dufam, ze mi odpustite). Na
>ich
>zobrazenie pouzivam TImage, do ktoreho to priradujem cez .Picture.Assign,
>ak
>to vyvola vynimku, predpokladam ze ide o jpeg a nahravam to cez stream.
>Na pripojenie pouzivam ODBC, pretoze aplikacia bude bezat na pocitacoch,
>kde nie je instalovany ACCESS. Mam Delphi 4CS sp.3, BDE v. 5.01,
>ODBC Microsoft Access Driver (*mdb) v. 4.00.3711.08.
> Podotykam, ze obrazky su v databaze ulozene spravne, v SQL Exploreri
>cez
>BLOB viewer su zobrazene spravne. Takisto som cez DataPump prekonvertoval
>databazu do Paradoxu, a na zobrazenie pouzil ten isty algoritmus a bolo to
>OK.
>
>Pomozte prosim!!!
>
>=============================================================
>Ing. Peter Suvak, veduci oddelenia spravy systemov
>Priemyselna banka, a.s. Kosice
>Sturova 27
>040 01 Kosice
>
>tel.: 095 / 6804 282
>fax: 095 / 6804 510
>mobil: 0903 610 901
>=============================================================
>
>(See attached file: Obrazok.jpg)
>
prevod string na pchar
[*] Ing. J�n Kuch�r�����!j��G - 13.9.1999 09:36:52
skusil som nasledovnu vec
var s,r:string;
begin if strpos(pchar(s),pchar(r))<>nil then .......
a D4 nahlasila >> INVALID TYPECAST
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. september 1999 9:05
P�edm�t: Re: prevod string na pchar
>Ahoj,
>
>> vo svojom programe pouzivam vlastny sposob vyhladavania urciteho textu
>> pomocou prikazu STRPOS, problem je ale v tom, ze zistim urcity text v
>> ktorom sa ma vyhladavat ( je typu STRING ), ale prikaz pracuje s typom
>> PCHAR, takze by som potrboval poradit ako previest string na pchar.
>****(Ansi)String vlastne neco jako PChar je, tak staci pretypovani:
>PChar (S).
>
>Slavek
>
>
>> Ing. J�n Kuch�r
>
>
>----------------------------------------------
>http://atrey.karlin.mff.cuni(tec)cz/~rk
>----------------------------------------------
>Screensaver
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 13.9.1999 09:36:22
Josef ��P wrote:
> Chtel bych se zeptat kde se do registru
> ukladaji informaci o screensaveru.
> Jedine co jsem nasel bylo v system.ini jmeno setrice.
> Ale ja bych potreboval i cas a nastaveni vlastnosti setrice
> Diky za odpoved.
Zkus (Win98), nazvy jsou myslim jasne...
My Computer\HKEY_CURRENT_USER\Control Panel\Desktop
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
At end of table
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 13.9.1999 10:26:06
Mam problem, nad kterym ve volnych chvilich sedim uz dva tydny a nemuzu s tim hnout.
U zakaznika mam nainstalovany program, ktery donedavna bez problemu fungoval. Program je psan v Delphi 2, data jsou ve formatu DBF.
V programu existuje jedna akce, pri ktere se muze stat, ze nekolik uzivatelu najednou ma "rozinsertovanou" novou vetu v jedne tabulce (kazdy svou). Nikdy s tim nebyly problemy. Vsechno bezi pod Win9x a vsichni spousti jeden a ten samy EXE ze sdileneho adresare na serveru (i data jsou sdilena na serveru).
Ted se ale do systemu zapojil novy uzivatel, ktery pracuje na serveru, kde jsou WinNT (vim, ze je to blbost, delat na serveru, ale to je problem, kterehe se snad muj problem netyka). Spousti jiny EXE soubor (nektere funkce musely byt pro NT verzi z programu vyhozeny - nejsou podporovany entyckovym API), ktery pracuje nad stejnymi tabulkami. Zacalo se ale stavat, ze BDE vyhodi hlasku "At end of table" a neni jina cesta, nez vsechny programy zavrit, tabulku preindexovat (tim se casto ztrati jedenn z posledne pridanych zaznamu) a vsechno zase zacne fungovat.
Udelal jsem dokonce zmenu v programu takovou, ze kazdy si porizuje data do sve pracovni tabulky a AfterPost se tato teprve prida do hlavni tabulky. Tim jsem prakticky vyloucil spolecne rozeditovani novych vet, ale nepomohlo to.
Cim to muze byt? Rozdilnymi verzemi BDE? Nejakym bugem v Delphi nebo BDE? Tim, ze jde o Win9x a WinNT? Tim, ze ten jeden uzivatel nepracuje s daty na siti, ale vlastne na lokale? Tim, ze pracuji s ruznymi exe programy (to uz mi prijde jako nejvetsi blbost, ale chytam se kazdeho stebla)? Nemate nekdo podobne zkusenosti? Uz jsem fakt bezradny. ==============================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
SMS: +420603501642(zv)sms.paegas(tec)cz
==============================
Pr�ce s komponentou STORED PROC
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 13.9.1999 10:32:35
Ahoj,
m��ete mi pros�m n�kdo obecn� poradit n�co kolem komponenty STORED PROC ?
M�m dtb. stroj Oracle a cht�l bych spou�t�t ul�. procedury. ��k se ale nechyt�m
...
Kdyby byl n�jak� p��klad, bylo by to super.
D�ky moc
Va�ek
Warning kompilatoru
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 13.9.1999 11:12:56
Ahoj vsichni,
male nakopnuti bych prosil. Pri konstrukci:
var
SL:TStringList;
...
Try
SL := TStringList.Create;
......
Finally
SL.Free;
end;
Dostavam na radku SL.Free hlasku:
[Warning]: Variable 'SL' might not have been initilized
Stejny problem pri BM:TBitmap:
Try
BM := TBitMap.Create();
....
BM.Free;
Except
BM.Free; <----- ZDE !! stejna hlaska !!
end;
Nejak mi to nedava smysl
Diky Mira
At end of table
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 13.9.1999 11:19:00
Ja jsem mel problemy s tabulkami Paradoxu a s hlaskou At the beginning
of table. Taky jsem sa naad tim trapil mnoho dnu. Nakonec mi pomohlo
zajimave reseni: z formulare vyhodit tabulku a dat tam novou se
stejnymi parametrami, udalostmi, proste vymenit starou za novou a
najednou to funguje znovu bez prblemu.
Nevim, jestli pomoze takove reseni i Tobe, ale mozna to za pokus
stoji.
Jirka
-----P�vodn� zpr�va-----
>V programu existuje jedna akce, pri ktere se muze stat, ze nekolik
uzivatelu najednou ma "rozinsertovanou" novou vetu v jedne tabulce
(kazdy svou). Nikdy s tim nebyly problemy. Vsechno bezi pod Win9x a
vsichni spousti jeden a ten samy EXE ze sdileneho adresare na serveru
(i data jsou sdilena na serveru).
>Ted se ale do systemu zapojil novy uzivatel, ktery pracuje na
serveru, kde jsou WinNT (vim, ze je to blbost, delat na serveru, ale
to je problem, kterehe se snad muj problem netyka). Spousti jiny EXE
soubor (nektere funkce musely byt pro NT verzi z programu vyhozeny -
nejsou podporovany entyckovym API), ktery pracuje nad stejnymi
tabulkami. Zacalo se ale stavat, ze BDE vyhodi hlasku "At end of
table" a neni jina cesta, nez vsechny programy zavrit, tabulku
preindexovat (tim se casto ztrati jedenn z posledne pridanych zaznamu)
a vsechno zase zacne fungovat.
>Udelal jsem dokonce zmenu v programu takovou, ze kazdy si porizuje
data do sve pracovni tabulky a AfterPost se tato teprve prida do
hlavni tabulky. Tim jsem prakticky vyloucil spolecne rozeditovani
novych vet, ale nepomohlo to.
Neposlusny soubor pdoxusrs.net
[*] Jaroslav N�dhera <nadhera(zv)csh(tec)cz> - 13.9.1999 11:41:37
V nastaveni BDE je mozne nastavit cestu pro PDOXUSR.NET.
J. Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz
WWW: http://www.csh(tec)cz
ICQ: 42714585
-----P�vodn� zpr�va-----
Od: Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. z��� 1999 10:02
P�edm�t: Neposlusny soubor pdoxusrs.net
Ahoj
Mam ve svem databazovem programu nasledujici problem:
Pokud se spusti pod NT, tak si na Cecku vytvori soubor pdoxusrs.dat a
ja bych potreboval, aby se dalo nejak nastavit, kde si ma ten soubor
vytvorit (typicky u toho meho programu a ne tom Cecku)
Protoze vetsina uzivatelu nema prava zapisovat na cecko.
Diky predem za rady.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - -
Doporu�te knihu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.9.1999 11:52:35
Petr Vones wrote:
> > Az tak detailne jsem to necetl, ale vylozenou blbost jsem take
> > nenasel. Nicmene me zarazil vyzdvihovanim DDE a naprostym
>
> No, ona stale bohuzel existuje jedna vec kde se to jeste da (spis
> musi) pouzivat. A to je v pripade asociovanych souboru k aplikacim na
> predavani parametru. Nicmene k jakemukoliv jinemu ucelu (vcetne
> NetDDE) bych pred tim varoval.
Ale jo, nemam nic proti tomu, ze to rozebira, ale spis proti tomu,
jak to vyzdvihuje a zaroven zcela pomiji COM, kterym je D4 uz
dost prolezle. Toho si nemohl nepovsimnout. Dokonce DDE
doporucuje k tvorbe aplikaci Klient / server. :-)
> > Mno, on Swan take tvrdi, ze na Delphi 4 staci 386. :-)))) Strana X,
> > Pozadovane vybaveni.
>
> K nainstalovani urcite staci, pokud to nechces dal pouzivat :-) Nekde
> jsem ted videl prodavat 386ky (8M RAM + HDD) za 350Kc, coz je tak
> odpovidajici cena :-)
Kitat: "Abyste mohli pouzivat vyvojovy system Delphi, staci vam k
tomu ... 80386 ...". Predstav si, co to udela, kdyz nekdo se starou
sunkou si tohle precte a zajasa, ze muze Delphi na tom spoustet.
:-)
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
Warning kompilatoru
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 13.9.1999 11:59:47
To musis trochu jinak:
var
SL:TStringList;
...
try
SL := TStringList.Create;
try
......
finally
SL.Free;
end;
except
{chyba pri vytvoreni StringListu}
end;
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o.
[mailto:bonnel(zv)telecom(tec)cz]
Sent: Monday, September 13, 1999 11:13 AM
To: Delphi konference
Subject: Warning kompilatoru
Ahoj vsichni,
male nakopnuti bych prosil. Pri konstrukci:
var
SL:TStringList;
...
Try
SL := TStringList.Create;
......
Finally
SL.Free;
end;
Dostavam na radku SL.Free hlasku:
[Warning]: Variable 'SL' might not have been initilized
Stejny problem pri BM:TBitmap:
Try
BM := TBitMap.Create();
....
BM.Free;
Except
BM.Free; <----- ZDE !! stejna hlaska !!
end;
Nejak mi to nedava smysl
Diky Mira
MS DAC 2.1
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.9.1999 12:12:10
Co chces konfigurovat? Staci nainstalovat komponenty pro ADO ci OLEDB a
tramtarada!!!! ;-)
Mac
Mal� Dobromil wrote:
> a omluvte prosim muj stupidni dotaz. Nainstaloval
> jsem si %subj%, vsechno se udelalo temer automaticky
> (i restart PC :-) ale ted nevim, jak to konfigurovat.Pr�ce s komponentou STORED PROC
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.9.1999 13:13:44
Ahoj,
nejsem si jist, ale pak se jiz nevola treba SELECT * FROM POKUS, ale vola
se EXEC ULOZENA_PROCEDURA, nebo EXECUTE. Jak na to primo v Delphi ci na
Oracle, to nevim. Tusim, ze to tak je. Me to totiz ceka taky, delat se
Stored Procedures, ale na MsSQL.
Tomas Rosa
----- Original Message -----
From: <Vaclav_Lukes(zv)EUROTEL.CZ>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 13, 1999 11:32 AM
Subject: Pr�ce s komponentou STORED PROC
> Ahoj,
>
> m��ete mi pros�m n�kdo obecn� poradit n�co kolem komponenty STORED PROC ?
> M�m dtb. stroj Oracle a cht�l bych spou�t�t ul�. procedury. ��k se ale
nechyt�m
> ...
>
> Kdyby byl n�jak� p��klad, bylo by to super.
>
> D�ky moc
>
> Va�ek
>
>
>MSDE vs SQL 7.0
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.9.1999 12:19:20
K tomu bych je poznamenal, ze musi byt nastavene totozne trideni a
znakova sada na obou serverech...jinak to nejde ;-)
Mac
Hynek Svato� wrote:
> Zkusim:
> 1) V SQL 7 provest kompletni zalohu
> 2) V MSDE provest restore
Zmizele ikony z toolbaru
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 13.9.1999 12:20:28
Ahoj,
informace pro Vas: kdyby nekomu z Vas zmizely ikony z toolbaru (Delphi4),
tak to muze byt spatnou verzi COMCTL32.DLL.
Leos
MSDE
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.9.1999 12:22:00
Pekne si to rekl Zbysku ;-)))))
Mac
Zbysek Hlinka wrote:
> Vyhoda
> MSDE je tedy v tom, ze se do nej daji, narozdil od BDE, ukladat
> data. :-)ADO a Delphi 3
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.9.1999 12:25:37
Treba Adonis. Ten ma verzi i pro D3. Aktualni verze 3.4.
http://www.cybermagic.co.nz/winsoft
Mac
Ivan Zernovac wrote:
> Hi,
>
> da sa ADO vyuzit v Delphi 3? Su na to nejake komponenty?Preziti aplikace pri Log-off
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.9.1999 13:29:15
Pokud se jedna o WinNT, pak to musi bezet jako NT Service. Pokud je to neco
jineho (95,98), pak nevim - zrejmne se to musi asi taky spustit pres
registry a tam je nekde "..\RunService". Nevim, nezkousel jsem.
----- Original Message -----
From: Kry�tof Hoder <hoder(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 5:41 PM
Subject: Preziti aplikace pri Log-off
> Nevi nekdo jak zaridit, aby se aplikace pri odhlaseni se uzivatele
> neukoncila?
> Treba takovy NortonAntivirus to tusim dela, ale jak???
>
> Thanks for help
> Krystof
>
>DbGrid s CheckBoxom
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.9.1999 12:31:18
Tohle je vec, kterou napr. od Borlandu neprosto nechapu - to nejsou
schopni to tam udelat standardne???? Dost pochybuju, ze v D5 to
udelali...tomu rikam naprosta ignorace....
Mac
P.S. Neco tu mam, pokud jeste nemas tak se ozvi...
Iko wrote:
> Zdravim...
>
> nevie niekto o DBGrid komponente, ktora by miesto fieldu boolean
> zobrazil CheckBox?
>
> Diky...DAO versus ADO pro MDB - namet na diskusi
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.9.1999 12:42:48
Radoslav Krehl�k wrote:
> co je vlastne nejvyhodnejsi pouzivat z hlediska rychlosti. Zajima mne
> pristup zejmena na soubory MDB a pak na MSDE.
No na MDB se nedostanes primo, nestaci ti jen MDB soubor. O ten se stara MSJET
(database engine) a k tomu muzes pristupovat bud pres DAO nebo pres OLEDB providera
(bud primo pres OLEDB nebo jeste pres ADO, ktere pouzije prislusneho OLEDB
providera). Pak jeste muzes lezt pres ODBC, coz uz samozrejme rychlostne zacne
kulhat.
> Erik Salaj tady psal, ze posledni Adonis komponenty pouzivaji direct
> pristup a ze by to mela byt nejrychlejsi alternativa pristupu.
> Faktem je, ze nevim zda ADO komponenty co jsou v Delphi 5 (to se mi dostane
> do ruky az dneska vecer) podporuji take direct pristup jako Adonis
> komponenty, pripadne jak je to s rychlosti pristupu na soubory MDB,
> pripadne zda nebude prace rychlejsi kdyz budu pracovat pres DAO 3.6 pomoci
> DAO komponent od WInSoftu.
Pokud se nepletu, tak nejrychleji se k Accessu dostanes pres DAO. Pres OLEDB
(potazmo ADO) je to sice asi o neco pomalejsi ale zase nejsi omezen jen na MSJET a
datove formaty ktere MSJET umi...Navic DAO poskytuje moznosti, ktere ADO neumi
(resp. ted Erik udelal jeste komponenty JRO - JetReplication Objects a ADOX -
ActiveX Data Objects Extensions - ktere by IMHO mely doplnit funkce dostupne jen v
DAO - ale to uz tak trosku hadam, pac to ted nestiham vsechno sledovat - vice by
snad mohl rict Erik ;-)
Takze co se tyka rychlosti, tak asi DAO pro Access a OLEDB pro MSSQL7 (MSDE).
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 =
==============================================================
MSDE vs SQL 7.0
[*] Martin Koran <komar(zv)komar(tec)cz> - 13.9.1999 12:47:49
Ahoj,
> Uz jsem se jednou ptal, zkusim to jeste jednou.
> M�m datab�zi v MS SQL 7.0 a z pochopiteln�ch d�vod� ji pot�ebuji
> p�est�hovat do MSDE, ale i se v?emi daty, viewi a loginy.
> Jde to? Jak?
taky by to slo pres sp_attach_db
S pozdravem
Martin Koran
============================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (602) 42 33 72
http://www.komar(tec)cz
mailto:info(zv)komar(tec)cz
MSDE
[*] Martin Koran <komar(zv)komar(tec)cz> - 13.9.1999 12:50:13
Ahoj,
BTW nevi nekdo, jak po instalaci MSDE do Win95 ho primet
k tomu, aby se po restartu PC spustil?
S pozdravem
Martin Koran
============================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (602) 42 33 72
http://www.komar(tec)cz
mailto:info(zv)komar(tec)cz
Warning kompilatoru
[*] Mitko Mit�v <mitev(zv)foresta(tec)cz> - 13.9.1999 13:05:34
Staci tato mala uprava:
var
SL:TStringList;
...
SL := TStringList.Create;
Try
......
Finally
SL.Free;
end;
Protoze kdyz das Create do try nemus� doj�t k spravne inicializaci objektu a
na Free to skonci s Access viaolation.
Mitko Mitev, Foresta SG
Cejl 20, Brno
www.foresta(tec)cz
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 13. z��� 1999 12:36
P�edm�t: Warning kompilatoru
>Ahoj vsichni,
>
>male nakopnuti bych prosil. Pri konstrukci:
>
>var
> SL:TStringList;
>...
> Try
> SL := TStringList.Create;
> ......
> Finally
> SL.Free;
> end;
>
>Dostavam na radku SL.Free hlasku:
>[Warning]: Variable 'SL' might not have been initilized
>
>Stejny problem pri BM:TBitmap:
>
>Try
> BM := TBitMap.Create();
> ....
> BM.Free;
>Except
> BM.Free; <----- ZDE !! stejna hlaska !!
>end;
>
>Nejak mi to nedava smysl
>
>Diky Mira
>
>
>Delphi & ADO
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 13.9.1999 13:19:27
Hi,
m�m na Oracle ulo�enou proceduru a r�d bych s n� spolupracoval pomoc�
TADOStoredProc.
Bohu�el m�m sm�lu.
M�te pros�m s t�mto n�kdo n�jak� zku�enosti ?
D�ky
Va�ek
Virtual a absolute
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 13.9.1999 13:22:07
Byl by nekdo tak laskav a zkusil prelozit nasledujici program v Delphi 4
(nebo i 5)?
V Delphi 3 hlasi kompilator syntaktickou chybu "Integer constant or variable
name expected" na radku s deklaraci pouzivajici "absolute".
Pokud to pujde prelozit, je to chyba v Delphi 3 a je to tedy vyresene.
Vysledek mych pokusu: Jakmile ma TAncest jednu jedinou virtualni metodu,
prekladac hlasi chybu. Zkuste v uvedenem programu odstranit "virtual" v
deklaracich TAncest.Met a TAncest.Met1 a program pujde prelozit. A dokonce i
funguje.
Pri deklaracich objektu jako class se hlasi syntakticka chyba vzdycky.
Cim to je???
Poznamka: Problem neni v nejake nekompatibilite ShortString<->AnsiString.
Chyba se hlasi i pri jinych typech promenne St. I kdyz jsou promenne St a
StLen stejneho typu, napr. byte.
Program:
{$A-,B-,C+,D+,E-,F-,G+,H-,I+,J+,K-,L+,M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y-
,Z1}
{$APPTYPE CONSOLE}
program Project1;
uses Windows;
type
TAncest = object
procedure Met; virtual;
procedure Met1; virtual;
end;
TObj = object(TAncest)
St : String;
procedure Met; virtual;
end;
procedure TAncest.Met;
begin end;
procedure TAncest.Met1;
begin end;
procedure TObj.Met;
var StLen : byte absolute St; {<<-- tady hlasi kompilator chybu}
begin
St := '123456789';
StLen := 5;
writeln(St);
end;
var Obj : tObj;
begin
Obj.Met;
end.
Bohuslav Svancara
softprojekt(zv)bosnet(tec)cz
Warning kompilatoru
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 13.9.1999 13:41:21
Tak jsem to zkusil .... a NIC, hlaska je tam stale. Nejaky jiny napad ?
Diky & cau
Mira
----- P�vodn� zpr�va -----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 13. z��� 1999 11:59
P�edm�t: RE: Warning kompilatoru
> To musis trochu jinak:
> var
> SL:TStringList;
> ...
> try
> SL := TStringList.Create;
> try
> ......
> finally
> SL.Free;
> end;
> except
> {chyba pri vytvoreni StringListu}
> end;
>
> male nakopnuti bych prosil. Pri konstrukci:
>
> var
> SL:TStringList;
> ...
> Try
> SL := TStringList.Create;
> ......
> Finally
> SL.Free;
> end;
>
> Dostavam na radku SL.Free hlasku:
> [Warning]: Variable 'SL' might not have been initilized
>
> Stejny problem pri BM:TBitmap:
>
> Try
> BM := TBitMap.Create();
> ....
> BM.Free;
> Except
> BM.Free; <----- ZDE !! stejna hlaska !!
> end;
>
> Nejak mi to nedava smysl
MSDE vs SQL 7.0
[*] mjuri(zv)gratex.sk - 13.9.1999 14:04:32
Pomocou SQL Enterprise Manager je mozne vykonat export objektov a nasledne
export udajov.
-----Original Message-----
From: Martin Koran [mailto:komar(zv)komar(tec)cz]
Sent: Monday, September 13, 1999 12:48 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: MSDE vs SQL 7.0
Ahoj,
> Uz jsem se jednou ptal, zkusim to jeste jednou.
> M�m datab�zi v MS SQL 7.0 a z pochopiteln�ch d�vod� ji pot�ebuji
> p�est�hovat do MSDE, ale i se v?emi daty, viewi a loginy.
> Jde to? Jak?
taky by to slo pres sp_attach_db
S pozdravem
Martin Koran
============================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (602) 42 33 72
http://www.komar(tec)cz
mailto:info(zv)komar(tec)cz
Voice modem library
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 13.9.1999 14:08:37
Hello Petr!
> > Ten ovladac TAPI najdem niekde v AsyncPro?
>
> Ne, TAPI je telefonni rozhrani. To musi podporovat Tvuj modem
> a musis k tomu mit ovladac. Pokud to nemas na disketach k modemu,
> tak hledej nekde na Internetu.
Robim s modemami uz skoro 10 rokov a este nikdy som ziaden extra TAPI
ovladac instalovat nepotreboval.
> Tim "vsetko funguje" jako funguje co? Prenos a faxovani? To ale asi
> nepouziva TAPI.
Tym 'vsetko' myslim 32-bitovy fidonet mailer, DOSovu BBS, Microsoft Fax,
SuperVoice (to je program pre Fax/Zaznamnik - specialne na nom som si
skusil, ze fakt ten modem funguje ako zaznamnik), homebanking DOSovy aj
Windowsovy, 'telefonicke pripojeni site' (=internet dial-up) a to bud
rucne, alebo v noci pri automatickom tahani posty v commanlajnovom programe
DIALERP.EXE z .BATu. Skusim este Hyperterminal... Aj ten ide OK.
Podla coho sa pozna, ze program pouziva TAPI? Ked sa napriklad podivam
hexa-editorom do SUPERVOC.EXE a necham hladat meno nejakej TAPI fukcie, tak
sa to zastavi v oblasti:
TAPI32.DLL lineAccept lineClose lineDeallocateCall lineDrop lineGetDevCaps
lineGetID lineHandoff lineInitialize lineMakeCall lineNegotiateAPIVersion
lineOpen lineSetAppSpecific lineSetCallParams lineSetStatusMessages
lineShutdown ...
Da sa podla toho usudzovat ze chodi cez TAPI? Ale slovo 'mediamodes' sa tam
nevyskytuje, lenze to je uz len konstanta, ofset do LineCaps.
> Musis to tam doinstalovat a ono se to bude pak tvarit myslim
> jako zvukova karta, proste bude to v tech voice ovladacich
> v System v ovladacim panelu.
Na niektorych pocitacoch som uz videl pri zvukovkach 'Wave device for voice
modem', ale to podla mna nesuvisi s obsluhou telefonu, ale umoznuje
pouzivat modem cez API-rozhranie ku zvukovym kartam.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Virtual a absolute
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 13.9.1999 14:14:49
>procedure TObj.Met;
>var StLen : byte absolute St; {<<-- tady hlasi kompilator chybu}
Zdravim,
podle mne ma kompilator pravdu, domnivam se totiz, ze taktovou deklaraci by mel povolit jen v pripade, ze
promenna St bude predavana do metody:
procedure TObj.Met( st: string ); ......
a jen v pripade, ze St bude ShortString
Pavel
------------------------------
Pavel K�ehula <pavel(zv)mas(tec)cz>
M&S spol. s r.o. Boskovice
------------------------------
MSDE vs SQL 7.0
[*] Luk� Zach <L.Zach(zv)Aquasoft(tec)cz> - 13.9.1999 14:29:59
M$SQL umi generovat script - tak lze prenest vse az na data (a hesla). Data
bych prenesl pomoci BCP.EXE anebo by mozna(?) sel pouzit "transfer manager",
ci jak se ta vymyslenost jmenuje.
Pokud jde auto start MSDE po restartu pocitadla, na NT bych v Control
panel/servisy hledal patricnou sluzbu a nastavil ji na start Automatic. Je
ve Win9x neco podobneho?
----------------------------
Lukas Zach
Aquasoft s.r.o.
E-mail:luki(zv)aquasoft(tec)cz
----------------------------
-----Original Message-----
From: Martin Koran [mailto:komar(zv)komar(tec)cz]
Sent: Monday, September 13, 1999 12:48 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: MSDE vs SQL 7.0
Ahoj,
> Uz jsem se jednou ptal, zkusim to jeste jednou.
> M�m datab�zi v MS SQL 7.0 a z pochopiteln�ch d�vod� ji pot�ebuji
> p�est�hovat do MSDE, ale i se v?emi daty, viewi a loginy.
> Jde to? Jak?
taky by to slo pres sp_attach_db
S pozdravem
Martin Koran
============================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (602) 42 33 72
http://www.komar(tec)cz
mailto:info(zv)komar(tec)cz
Virtual a absolute
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 13.9.1999 14:36:48
Nemuzu souhlasit.
Na to mam promenne objektu, abych je jemu samotnemu nemusel predavat jako
parametry do jeho vlastnich metod.
Chyba se hlasi, i kdyz jsou obe promenne napr. typu byte.
-----Original Message-----
From: Pavel K�ehula <pavel(zv)mas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 13. z��� 1999 14:20
Subject: Re: Virtual a absolute
>>procedure TObj.Met;
>>var StLen : byte absolute St; {<<-- tady hlasi kompilator chybu}
>
>Zdravim,
>podle mne ma kompilator pravdu, domnivam se totiz, ze taktovou deklaraci by
mel povolit jen v pripade, ze
>promenna St bude predavana do metody:
>
>procedure TObj.Met( st: string ); ......
>a jen v pripade, ze St bude ShortString
>
>Pavel
>
>------------------------------
>Pavel K�ehula <pavel(zv)mas(tec)cz>
> M&S spol. s r.o. Boskovice
>------------------------------
>
>
Bohuslav Svancara
softprojekt(zv)bosnet(tec)cz
prevod string na pchar
[*] H�gr Ond�ej <Hegro(zv)senat(tec)cz> - 13.9.1999 14:50:11
> takze by som potreboval poradit ako previest string na pchar.
Vzhledem k tomu, ze je to take celkem frekventovana otazka posilam takovy
souhrn. Doufam, ze nebude vadit, ze je to delsi a jeste v "cizim" jazyce :-)
Working with PChar is quite similar to char* in C, this will not neccessary
help you, so I'll try to expand !
(s:string, p:pchar in all examples)
To use pchar you always must allocate some sort of memory where to perform
the operations. Either you are given the memory by a called funtion, or a
memory block defined i compilation-time (in stack or in the global data
memory), or you must allocate it from the operating system (my personal
favorit).
A few examples of how this can be done;
1) --- use heap memory (perhaps the best method)
procedure test;
var p:pchar;
begin
p:=stralloc(20); { can hold 19 characters }
....
strdispose(p); { release memory again }
end;
2) --- use stack (or data, if defined global) memory
{ #A - original, easy to understand }
procedure test;
var ch:Array[0..19] of char;
begin
p:=(zv)ch[0];
end;
{ #B - as a constant, will automaticly be #0 - terminated }
const a_pchar:pchar='any thing you like';
{ #C - make a string to a pchar, using string's allocated memory }
procedure test;
var s:string;
begin
s:='this is a test';
s:=s+#0; { makes string null -terminated }
p:=(zv)s[1]; { skip s[0], as it contains length
info }
end;
Often you will have to make a string to a pchar, or the other way around;
(pchar -> string )
s:=strpas(p);
(string -> pchar #1 )
strPcopy(p,s); { also strPLcopy is available, p must have allocated mem }
(string -> pchar #2 )
s:=s+#0;
p:=(zv)s[1];Neposlusny soubor pdoxusrs.net
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 13.9.1999 15:27:39
Jaroslav N�dhera wrote:
> V nastaveni BDE je mozne nastavit cestu pro PDOXUSR.NET.
... a to konkretne vo vlastnosti NET DIR.
>
> J. Nadhera
>
> CSH spol. s r.o.
> Velflikova 10, 160 00 Praha 6
> tel: 02/2431 2344-5, fax: 02/652 28 92
> Nedbalova 14, 701 00 Ostrava
> tel: 069/663 56 87
> e-mail: nadhera(zv)csh(tec)cz
> WWW: http://www.csh(tec)cz
> ICQ: 42714585
> -----P�vodn� zpr�va-----
> Od: Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 13. z��� 1999 10:02
> P�edm�t: Neposlusny soubor pdoxusrs.net
>
> Ahoj
>
> Mam ve svem databazovem programu nasledujici problem:
> Pokud se spusti pod NT, tak si na Cecku vytvori soubor pdoxusrs.dat a
> ja bych potreboval, aby se dalo nejak nastavit, kde si ma ten soubor
> vytvorit (typicky u toho meho programu a ne tom Cecku)
> Protoze vetsina uzivatelu nema prava zapisovat na cecko.
> Diky predem za rady.
>
> Petr
>
> ==< Petr Vaclavek >---- --- --- -- -- - - -
> ====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
> `=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
> `======--- ------ ---- --- -- -- - - -
Warning kompilatoru
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 13.9.1999 15:29:56
Problem je v tom, ze nakolko konstruktor volas az za TRY, nemas istotu,
ze vo finally alebo except je ten objekt skonstruovany. Konstruktor
treba volat pred TRY - ja to vacsinou robim aj bez pomocnych premennych:
with TStringList.Create do
try
...
finally
Free;
end;"Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o." wrote:
> Ahoj vsichni,
>
> male nakopnuti bych prosil. Pri konstrukci:
>
> var
> SL:TStringList;
> ...
> Try
> SL := TStringList.Create;
> ......
> Finally
> SL.Free;
> end;
>
> Dostavam na radku SL.Free hlasku:
> [Warning]: Variable 'SL' might not have been initilized
>
> Stejny problem pri BM:TBitmap:
>
> Try
> BM := TBitMap.Create();
> ....
> BM.Free;
> Except
> BM.Free; <----- ZDE !! stejna hlaska !!
> end;
>
> Nejak mi to nedava smysl
>
> Diky Mira
Milanovi - Zmena vlastnosti komponenty...
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 13.9.1999 15:31:16
Ak sa da, je vhodne do instalacneho cisla zakodovat aj ICO zakaznika. To maju
potom trochu vacsie problemy, ked si tie konfiguracne subory medzi sebou
kopiruju...
Ivan Zernovac wrote:
> Ahoy,
>
> Urob ti takto: musis mat niekde rutinu, ktora Ti zisti, ci zakaznik
> zadal
> spravne instalacne cislo. Cislo niekam zasifruj a uloz. Pri starte
> programu
> potom toto cislo nacitaj a skontroluj svojou rutinou. Bohuzial, tak ci
> tak si
> ten subor niekto bude vediet skopirovat.
>
> >Proto se mi nehodi, aby se zmena vlastnosti ukladala do
> >jakehokoliv souboru, protoze i kdyz tento soubor zasifruji tak staci, aby si
> >potencionalni zakazn�ci zjistili, ktery soubor se pri zadani spravneho
> instalacniho cisla
> >zmeni
>
> Ano, to je jasna vec. Aj seriove cisla sa daju nelegalne sirit.
> Najistejsie
> bude, ak sa u kazdeho zakaznika vygenerujes jedno nahodne cislo. To Ti
> potom
> zakaznik posle, Ty to cislo zasifrujes podla nejakeho hesla a posles
> jeho
> zasifrovanu podobu zakaznikovi. Zakaznik toto cislo vlozi do programu..
> V tvojom
> programe bude rutina, ktora urobi to iste: zoberie si nahodne cislo,
> zasifruje
> ho tym istym heslom (ako si ho sifroval Ty u seba) a vysledok porovna.
> Ak sa
> oba retazce zhoduju, tak bolo zadane korektne seriove cislo.
> Poviem Ti rovno, nie je to moc jednoduche, budes sa s tym musiet pohrat.
> Ja som
> take sice robil, ale to bolo uz davno a nepamatam si celkom dobre, ako
> som to
> robil. Treba tiez pripomenut, ze variant s nahodnym cislom je technicky
> dost
> narocny. Ak urobis chybu, nebude to poriadne fungovat ani u zakaznika,
> ktory si
> program legalne kupil. A bud si isty, ze sa poriadne nastve. Ja osobne
> by som
> pouzil system a la RAR: meno uzivatela a serial no. Ak totiz budes
> pouzivat
> variant s nahodnymi cislami, po kazdej reinstalacii systemu si od Teba
> bude
> musiet zakaznik vypytat nove cislo. A co ked budes prave vtedy chory,
> alebo na
> dovolenke?
> Aky program robis? Bude to share? Ak nie, mozno by bolo lepsie pouzit HW
> kluc...
>
> Milan Bla�ek wrote:
>
> > Ahoj Ivane,
> >
> > potrebuji menit pouze vlastnost False za True u komponenty, kde je vlastnost
> > published. Protoze pouzivam komponentu, ktera mi umoznuje na zaklade
> > vlastnosti
> > False zajistit , ze aplikace je casove omezena a pri vlastnosti True je
> > aplikace bez
> > jakehokoliv omezeni . Vlastnost se meni z False na True pri zadani spravneho
> > instalacniho kodu.Proto se mi nehodi, aby se zmena vlastnosti ukladala do
> > jakehokoliv
> > souboru, protoze i kdyz tento soubor zasifruji tak staci, aby si
> > potencionalni
> > zakazn�ci zjistili, ktery soubor se pri zadani spravneho instalacniho cisla
> > zmeni
> > a pak si tento soubor proste budou prekopirovavat a nemusi nijak desifrovat
> > zakodovane hodnoty.
> >
> > Predem diky za jakekoliv napady.
> >
> > Milan Blazek
> > mbsint(zv)telecom(tec)cz
> >
> > -----P�vodn� zpr�va-----
> > Od: Ivan Zernovac <ivan(zv)gratis.sk>
> > Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> > Datum: 9. z��� 1999 10:50
> > P�edm�t: Re: Zmena vlastnosti komponenty...
> >
> > >Hi,
> > >
> > >ano da sa vytvorit vlastny binarny format, ale to je podla ma zbytocne
> > >zlozite. Ake udaje ukladas? Ak su to povedzme cisla, a ty potrebujes
> > >ulozit
> > >cislo 100, odcitaj z neho povedzme 50 - primitivne sifrovanie. (V subore
> > >teda bude 50).
> > >Ked potom hodnotu 50 nacitas, pridaj k nej zase 50 a budes mat 100.
> > >Alebo
> > >XORuj.
> > >Ked sa Ti niekto bude vrtat v subore, hodnoty sice bude viediet zmenit,
> > >ale
> > >narobi tam pekny chaos. Ak robis s retazcami, mozes pouzit ten sifrovaci
> > >komponent. Alebo ich proste zakoduj Base64.
> > >
> > >
> > >Ivan
> > >
> > >
> > >Zbysek Hlinka wrote:
> > >
> > >> Milan Bla ek wrote:
> > >>
> > >> > Ivane diky, ale neslo !
> > >> > Protoze nechci, aby se zmenena hodnota vlastnosti dala
> > >> > modifikovat z vnesku napr. v .INI souboru. Pokud mas jiny napad tak Ti
> > >> > predem dekuji.
> > >>
> > >> Vzdyt data nemusi byt v INI, muzes si vyrobit vlastni format
> > >> binarniho souboru, kam to budes ukladat. A pro jistotu si to muzes
> > >> i zasifrovat, na Delphree je sifrovaci utilita Cast. :-)
> > >>
> > >> 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
> > >QuickReport a QRExpr
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 13.9.1999 15:33:05
Je to zvlastne, ze to nefunguje, ale nemohol by si miesto QRExpr pouzit radsej
QRLabel a napisat mu metodu na tlac?
Jirka Virt wrote:
> Ahoj,
> resim problem pri tisku z QReportu.
> Potreboval bych do reportu v polozce QRExpr.Expression zadat tuto podminku:
>
> IF((Query1.cislo > 30) AND (Query1.cislo < 120),castka,0)
>
> tzn: je-li cislo v rozmezi 31..119 vytiskni castku, jinak tiskni nulu.
>
> Vubec mi to nepocita.Treba je chyba v "notovem zaznamu"?
>
> Staci, kdyz dam:
> IF(Query1.cislo < 120,castka,0)
> a funguje to dobre, akorat v celem rozsahu.
>
> Neresil jste nekdo neco podobneho? V napovede nic nepisou.
>
> Diky za jakoukoli odpoved
>
> Jirka Virt
>
> email: virt(zv)volny(tec)cz
prevod aplikace z D1 na D3
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 13.9.1999 15:40:52
"Ing. Marian Winkler" wrote:
>
> prosim o "know-how". Hodlam prevest docela velkou aplikaci (cca 900k) z D1
> na D3 Standard.
> Aplikace ma standardni komponenty + gen. sestav Sinea.
> Jaka je nejjednodussi cesta a na co si mam dat pozor?
Ahoj,
tohle jsem kdysi delal i ja. Problemu je vice, ale netykaji se komponent
(aspon myslim, my jsem nikdy na nic takoveho nenarazil). Hlavni problem
jsou odlisne datove typy - jina velikost integer, uplne jinak
koncipovany string. Jestli obcas neco takoveho ukladas do souboru, dej
si pozor.
Taky jsem si ted vzpomel na problem s ridici promennou cyklu - v D1 je
po probehnuti cyklu promenna definovana a ma hodnotu (horni_mez + 1), v
D3 uz definovana neni (tj. pokud ji (jeji hodnotu) chces pouzit po
ukonceni cyklu, dostanes warning), ale jde pouzit a ma hodnotu
(horni_mez). Je to trosku zmatene, ale meli jsme s tim dost prace, to by
Ti mohlo taky delat problemy.
Jinak si uz na nic nevzpominam, bylo to dost davno.
Trosku jine jsou nazvy unit, ktere musis prilinkovat (pres uses), ale to
Ti zarve komplikator.
No a jinak good luck! :)
M.
--
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)TToolBar a Focus
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 13.9.1999 15:41:07
Preji pekneho dne,
zda se, ze v patek odpoledne muj dotaz trosku zapadl a tak to zkousim
jeste jednou:
D4.03S
Mam na TToolBaru umisteny nejake buttony a DBNavigator. Na formu je
panel s nekolika DBEdit a dalsi panel s DBGridem. Pokud kliknu na
button pro Insert record a ToolBar je v Docku, probehne vse vporadku.
Pokud ovsem vytahnu ToolBar "ven" - do okna - po insert record si
ponecha zaostreni a ja musim manualne prejit na editovanou polozku.
Nepomuze ani programove nastavit Focus na pozadovany DBEdit v udalosti
AfterInsert DataSetu. ToolBar si vzdy znovu Focus provlastni.
Pokud pouziju podobnou komponentu z TToolbar97 od J. Russela, vse se
deje spravne. Zde se ToolBar tvari, jako by byl porad zaostreny (je
vybarven modre), ale nekrade zaostreni ostatnim komponentam. Chtel
bych pouzit standartni TToolBar z Delphi. Nevite nekdo, jak je to s
tim Focusem u TToolBaru, jestlize je vytazen z docku do okna nastroju
a pripadne, jak se to da obejit?
Za pripadne namety predem dekuji.
Jan Naiser.
Warning kompilatoru
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 13.9.1999 15:42:54
Pokud to je jenom warning, tak bych to bral s rezervou. Rozhodne
bych kvuli tomu nespavosti netrpel. :-)
Radim
>Tak jsem to zkusil .... a NIC, hlaska je tam stale. Nejaky jiny napad ?
>
>Diky & cau
>
>Mira
>
>
>----- P�vodn� zpr�va -----
>Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
>Komu: <delphi-l(zv)fwd(tec)cz>
>Odesl�no: 13. z��� 1999 11:59
>P�edm�t: RE: Warning kompilatoru
>
>
>> To musis trochu jinak:
>> var
>> SL:TStringList;
>> ...
>> try
>> SL := TStringList.Create;
>> try
>> ......
>> finally
>> SL.Free;
>> end;
>> except
>> {chyba pri vytvoreni StringListu}
>> end;
>>
>> male nakopnuti bych prosil. Pri konstrukci:
ACCESS a obrazky - vyriesene
[*] suvak(zv)pbko.sk - 13.9.1999 14:59:34
Martin, dakujem, uz som bol zufaly. Tento parameter som skusal
menit v BDE Adminovi, avsak zabudol som, ze parametre sa pri
spusteni programu prepisu nastavenim v TDatabase, kde som mal
hodnotu 32. Este raz vdaka.
"Martin Dupal" <mdupal(zv)vision(tec)cz> on 13.09.99 08:33:44
Please respond to delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
cc: (bcc: Peter Suvak/0110/pbko/sk)
Subject: Re: ACCESS a obrazky
Tak se omlouvam za mystifikaci. Tvuj problem
vyresis nastavenim parametru BLOB SIZE v BDE
na vetsi hodnotu (32 - 1024) kB. Vhodnejsi je tento
parametr dat do Params v komponente TDatabase
primo ve tvem projektu, nez ho menit v BDE Adminovi.
Problem s prenosem blobu pres BDE-ODBC sice je,
ale jen pro server SQL Anywhere, a za to muze spis
Sybase.
-----------
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
-----P�vodn� zpr�va-----
Od: suvak(zv)pbko.sk <suvak(zv)pbko.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. z��� 1999 9:30
P�edm�t: ACCESS a obrazky
>
>
>Ahojte,
>
>Do accesovskej databazy ukladam obrazky bmp a jpeg. Pri ich zobrazovani
>vsak nastava problem. Spravne sa zobrazi len horna tretina obrazku
(velkost
>spravne zobrazenej plochy zavisi od velkosti ulozeneho obrazku. Uplne male
>obrazky sa zobrazuju korektne). Zvysok obsahuje zvisle pasy (dovolim si
>prilozit vzorku, viem, ze sa to v konferencii nesmie, bohuzial, neviem to
>vsak inac
>popisat a prilozeny obrazok je iba 13 KB velky, dufam, ze mi odpustite).
Na
>ich
>zobrazenie pouzivam TImage, do ktoreho to priradujem cez .Picture.Assign,
>ak
>to vyvola vynimku, predpokladam ze ide o jpeg a nahravam to cez stream.
>Na pripojenie pouzivam ODBC, pretoze aplikacia bude bezat na pocitacoch,
>kde nie je instalovany ACCESS. Mam Delphi 4CS sp.3, BDE v. 5.01,
>ODBC Microsoft Access Driver (*mdb) v. 4.00.3711.08.
> Podotykam, ze obrazky su v databaze ulozene spravne, v SQL Exploreri
>cez
>BLOB viewer su zobrazene spravne. Takisto som cez DataPump prekonvertoval
>databazu do Paradoxu, a na zobrazenie pouzil ten isty algoritmus a bolo to
>OK.
>
>Pomozte prosim!!!
>
>=============================================================
>Ing. Peter Suvak, veduci oddelenia spravy systemov
>Priemyselna banka, a.s. Kosice
>Sturova 27
>040 01 Kosice
>
>tel.: 095 / 6804 282
>fax: 095 / 6804 510
>mobil: 0903 610 901
>=============================================================
>
>(See attached file: Obrazok.jpg)
>Volani externich programu
[*] Pavel Machek <pcguru(zv)ji(tec)cz> - 13.9.1999 16:19:33
Dobry den,
v Delphi nejsem prilis honeny, a tak jeden trivialni dotaz:
potrebuji z programu psanem v Delphi 3 spustit jiny program pro 32-bitova Windows, konkretne InternetExplorer s nejakou adresou.
Idealni by bylo, kdyby program dokazal spustit kterykoli prohlizec internetu, ktery by mel uzivatel nainstalovany a nasmerovat jej na urcitou adresu.
Pomuze mi nekdo?
S pozdravem
Pavel Machek, Husova 52, 586 01 Jihlava
tel/fax: 066 / 73 22 261 mobil: 0603 / 427 145
E-mail: pcguru(zv)ji(tec)cz
Pr�ce s komponentou STORED PROC
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.9.1999 16:01:47
Zavolat proceduru lze pohodlne i z TQuery (prikazem execsql),
TStoredProc nam jen trosku usnadnuje (jako traba s parametry).
Umozni nam zavolat jen to co existuje (vyber DB, vyber SP), nastav
parametry, a potom v RunTime zavolej ExecSql, me to funguje (s IB i s Oracle).
Skopalik
-----P�vodn� zpr�va-----
Od: Tomas Rosa [SMTP:trosa(zv)seznam(tec)cz]
Odesl�no: 13. z��� 1999 11:14
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Pr�ce s komponentou STORED PROC
Ahoj,
nejsem si jist, ale pak se jiz nevola treba SELECT * FROM POKUS, ale vola
se EXEC ULOZENA PROCEDURA, nebo EXECUTE. Jak na to primo v Delphi ci na
Oracle, to nevim. Tusim, ze to tak je. Me to totiz ceka taky, delat se
Stored Procedures, ale na MsSQL.
Tomas Rosa
----- Original Message -----
From: <Vaclav Lukes(zv)EUROTEL.CZ>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 13, 1999 11:32 AM
Subject: Pr�ce s komponentou STORED PROC
> Ahoj,
>
> m��ete mi pros�m n�kdo obecn� poradit n�co kolem komponenty STORED PROC ?
> M�m dtb. stroj Oracle a cht�l bych spou�t�t ul�. procedury. ��k se ale
nechyt�m
> ...
>
> Kdyby byl n�jak� p��klad, bylo by to super.
>
> D�ky moc
>
> Va�ek
>
>
>Warning kompilatoru
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.9.1999 16:12:28
Puvodni zprava, kterou napsal Ing. Miroslav Ondrisek, BONNE dne 13 Sep 99,:
> male nakopnuti bych prosil. Pri konstrukci:
>
> var
> SL:TStringList;
> ...
> Try
> SL := TStringList.Create;
> ......
> Finally
> SL.Free;
> end;
Udelej to takto:
SL := TStringList.Create;
try
......
finally
SL.Free;
end;
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Klavesnice a menu
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 13.9.1999 17:19:05
Ahoj....
Mam dva dotazy:
1) jak priradim nejakou klavesovou zkratku nejakemu Menu?
Pozor!! jde mi o polozku, ktera pouze rozbaluje to menu pod sebou.
Chci, aby se po stisku Ctrl+D rozbalilo jedno menu - nic vic, nic
min.
Zkousel jsem dat te polozce ShortCut, ale nefunguje to, taky jsem
zkousel odchytit klavesovou zkratku Ctrl+D a pak zavolat
PolozkaMenu.Click, ale to mi taktez to menu nerozbali :-((
2) jak odchytit klavesovou zkratku Ctrl+/
Ja vim, jsou to trivialni dotazy, ale uz si s tim hlavu lamu dost
dlouho...a ne a ne na to prijit.
Za odpovedi predem diky
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Volani externich programu
[*] Petr Vale� - 13.9.1999 17:27:29
Takto :
ShellExecute( Application.Handle, NIL, 'http://www.seznam(tec)cz/',
NIL,NIL, SW_SHOWNOACTIVATE);
a kdyz, chces poslat mejl tak :
ShellExecute( Application.Handle, NIL, 'mailto:nekdo(zv)nekam(tec)cz',
NIL,NIL, SW_SHOWNOACTIVATE);
Petr
-----P�vodn� zpr�va-----
Od: Pavel Machek <pcguru(zv)ji(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 13. september 1999 17.19
P�edm�t: Volani externich programu
>Dobry den,
>v Delphi nejsem prilis honeny, a tak jeden trivialni dotaz:
>potrebuji z programu psanem v Delphi 3 spustit jiny program pro 32-bitova
Windows, konkretne InternetExplorer s nejakou adresou.
>Idealni by bylo, kdyby program dokazal spustit kterykoli prohlizec
internetu, ktery by mel uzivatel nainstalovany a nasmerovat jej na urcitou
adresu.
>Pomuze mi nekdo?
>
>S pozdravem
>Pavel Machek, Husova 52, 586 01 Jihlava
>tel/fax: 066 / 73 22 261 mobil: 0603 / 427 145
>E-mail: pcguru(zv)ji(tec)cz
>Volani externich programu
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 13.9.1999 17:58:57
> Takto :
>
> ShellExecute( Application.Handle, NIL, 'http://www.seznam(tec)cz/',
> NIL,NIL, SW_SHOWNOACTIVATE)
****
Tak todle mi nefunguje -> vraci mi to ERROR_FILE_NOT_FOUND
Nevi nekdo proc?
Pokud tam dam nejaky html dokument na svem disku, tak je to OK.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Warning kompilatoru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.9.1999 18:10:26
Ing. Miroslav Ondrisek, BONNE wrote:
> male nakopnuti bych prosil. Pri konstrukci:
>
> var
> SL:TStringList;
> ...
> Try
> SL := TStringList.Create;
> ......
> Finally
> SL.Free;
> end;
>
> Dostavam na radku SL.Free hlasku:
> [Warning]: Variable 'SL' might not have been initilized
Inicializace se provadi jeste pred "try". Protoze kdyz buchne
Create, musi program odskocit pryc a volani Free v takovem
pripade nema smysl. Free se vola, pouze kdyz Create dopadne
uspesne, tedy mezi try ... finally se davaji az operace nad
existujicim objektem, nikoliv vytvareni vlastniho objektu. Pokud
chces osetrit i Create, pak udelej neco takoveho:
try
SL:=TStringList.Create;
try
...
finally
SL.Free;
end;
except
raise Exception.Create('SL se nevytvorilo');
end;
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
TImage - blikani
[*] Martin Pesek <pesek.martin(zv)telecom(tec)cz> - 13.9.1999 18:19:03
Zdravim !!!
> > >Alebo este mozes vyskusat double buffering.
> > Nevim jak :-(((
> ****Form1.DoubleBuffered := True;
No, tak tohle me jaksi nefunguje :�-((( Mam Delphi 3 C/S, mozna je to az od
D4.
> Slavek
Martin Pesek, 15-ti lety amatersky programator
E-Mail:
pesek.martin(zv)telecom(tec)cz
prevod string na pchar
[*] CHeckBow <checkbow(zv)mail(tec)cz> - 13.9.1999 10:04:45 -0700
PChar(retezec);
----- Original Message -----
From: Ing. J�n Kuch�r
To: Delphi konferencia
Sent: Sunday, September 12, 1999 11:17 PM
Subject: prevod string na pchar
caute
vo svojom programe pouzivam vlastny sposob vyhladavania urciteho textu pomocou prikazu STRPOS, problem je ale v tom, ze zistim urcity text v ktorom sa ma vyhladavat ( je typu STRING ), ale prikaz pracuje s typom PCHAR, takze by som potrboval poradit ako previest string na pchar.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk Beh dvoch procesov sucastne (po druhe).
[*] CHeckBow <checkbow(zv)mail(tec)cz> - 13.9.1999 10:09:42 -0700
Neni to cekani v threadech zpusobene tim, ze v obou volas nejakou metodu
pomoci synchronize ?
----- Original Message -----
From: Martin Galik <m_g_66(zv)hotmail.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, September 12, 1999 10:26 PM
Subject: Re: Beh dvoch procesov sucastne (po druhe).> ZDAR.
>
> Tak mi aspopn poradte ako definovat premenne (vstupne parametre) pre
> uz skompilovany EXE program.
>
> Dakujem, a sorry ze s tym tolko otravujem, ale surne to potrebujem a fakt
si
> stym neviem rady.
>
> >Ahoj.
> >Ten TThread je pekna vec ale akosi mi to cez neho nejde.
> >Potrebujem toto:
> >
> >Predstav si, ze su dva programi (samostatne a samostatne spustene), jeden
> >komunikuje s portom Com1 a druhy s Com2 a to sucastne v tom istom
case(toto
> >mi funguje).
> >
> >No a toto iste potrebujem spravit tak, ze dva Form child-y sa budu
spravat
> >tak ako tie dva programi z predchadzajucej predstavy.
> >Childy vytvaram v runtime lebo im konfigurujem premenne - toto je nutne
> >(preto to nechcem spravyt ako spustanie exe programu).
> >
> >A toto sa mi nedary ani s tthread ( zakazdym caka jeden na druheho).
>
> Vdaka za vsetky rady a napady.
>
> Martin Galik
> Programator - zaciatocnik.
> RB s r.o.
> Bratislava
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
Milanovi - Zmena vlastnosti komponenty...
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 13.9.1999 20:33:26
Diky vsem za reakce na muj problem se zmenou hodnoty vlastnosti. Pres
vsechny zajimave namety ,
vsak spise potrebuji nejak vyresit tu zmenu hodnoty dane vlastnosti za behu
programu bez zapisu
do .INI atd. Mozna, ze se zbytecne drzim jisteho problemu, ale me to
proste neda, ze by se to nejak nedalo
vyresit, ale sam na to nemam a tak se pokousim poradit. Myslim si, ze zmenu
hodnoty valstnosti mohu vyuzit
i v jinych pripadech nez je zrovna soucasne reseni ve spojeni s instalacnim
kodem.
Je mozne, ze nakonec od toho odstoupim a dam na rady (myslim ze Zbyseka ),
ze vlastni zmena vlastnosti
komponenty sice je mozna, ale slozita.Cesta vede vhodnym rozebranim a
opetovnem slozenim souboru *.dfm.
Presto bych uvital, pokud stim ma nekdo jiz prakticke zkusenosti o radu nebo
odkaz.
Jeste jednou diky...
Milan Blazek
-----P�vodn� zpr�va-----
Od: Zdeno Jasek <zdeno.jasek(zv)corinex.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. z��� 1999 15:55
P�edm�t: Re: Milanovi - Zmena vlastnosti komponenty...
Ak sa da, je vhodne do instalacneho cisla zakodovat aj ICO zakaznika. To
maju
potom trochu vacsie problemy, ked si tie konfiguracne subory medzi sebou
kopiruju...
Ivan Zernovac wrote:
> Ahoy,
>
> Urob ti takto: musis mat niekde rutinu, ktora Ti zisti, ci zakaznik
> zadal
> spravne instalacne cislo. Cislo niekam zasifruj a uloz. Pri starte
> programu
> potom toto cislo nacitaj a skontroluj svojou rutinou. Bohuzial, tak ci
> tak si
> ten subor niekto bude vediet skopirovat.
>
> >Proto se mi nehodi, aby se zmena vlastnosti ukladala do
> >jakehokoliv souboru, protoze i kdyz tento soubor zasifruji tak staci, aby
si
> >potencionalni zakazn�ci zjistili, ktery soubor se pri zadani spravneho
> instalacniho cisla
> >zmeni
>
> Ano, to je jasna vec. Aj seriove cisla sa daju nelegalne sirit.
> Najistejsie
> bude, ak sa u kazdeho zakaznika vygenerujes jedno nahodne cislo. To Ti
> potom
> zakaznik posle, Ty to cislo zasifrujes podla nejakeho hesla a posles
> jeho
> zasifrovanu podobu zakaznikovi. Zakaznik toto cislo vlozi do programu..
> V tvojom
> programe bude rutina, ktora urobi to iste: zoberie si nahodne cislo,
> zasifruje
> ho tym istym heslom (ako si ho sifroval Ty u seba) a vysledok porovna.
> Ak sa
> oba retazce zhoduju, tak bolo zadane korektne seriove cislo.
> Poviem Ti rovno, nie je to moc jednoduche, budes sa s tym musiet pohrat.
> Ja som
> take sice robil, ale to bolo uz davno a nepamatam si celkom dobre, ako
> som to
> robil. Treba tiez pripomenut, ze variant s nahodnym cislom je technicky
> dost
> narocny. Ak urobis chybu, nebude to poriadne fungovat ani u zakaznika,
> ktory si
> program legalne kupil. A bud si isty, ze sa poriadne nastve. Ja osobne
> by som
> pouzil system a la RAR: meno uzivatela a serial no. Ak totiz budes
> pouzivat
> variant s nahodnymi cislami, po kazdej reinstalacii systemu si od Teba
> bude
> musiet zakaznik vypytat nove cislo. A co ked budes prave vtedy chory,
> alebo na
> dovolenke?
> Aky program robis? Bude to share? Ak nie, mozno by bolo lepsie pouzit HW
> kluc...
>
> Milan Bla�ek wrote:
>
> > Ahoj Ivane,
> >
> > potrebuji menit pouze vlastnost False za True u komponenty, kde je
vlastnost
> > published. Protoze pouzivam komponentu, ktera mi umoznuje na zaklade
> > vlastnosti
> > False zajistit , ze aplikace je casove omezena a pri vlastnosti True je
> > aplikace bez
> > jakehokoliv omezeni . Vlastnost se meni z False na True pri zadani
spravneho
> > instalacniho kodu.Proto se mi nehodi, aby se zmena vlastnosti ukladala
do
> > jakehokoliv
> > souboru, protoze i kdyz tento soubor zasifruji tak staci, aby si
> > potencionalni
> > zakazn�ci zjistili, ktery soubor se pri zadani spravneho instalacniho
cisla
> > zmeni
> > a pak si tento soubor proste budou prekopirovavat a nemusi nijak
desifrovat
> > zakodovane hodnoty.
> >
> > Predem diky za jakekoliv napady.
> >
> > Milan Blazek
> > mbsint(zv)telecom(tec)cz
> >
> > -----P�vodn� zpr�va-----
> > Od: Ivan Zernovac <ivan(zv)gratis.sk>
> > Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> > Datum: 9. z��� 1999 10:50
> > P�edm�t: Re: Zmena vlastnosti komponenty...
> >
> > >Hi,
> > >
> > >ano da sa vytvorit vlastny binarny format, ale to je podla ma zbytocne
> > >zlozite. Ake udaje ukladas? Ak su to povedzme cisla, a ty potrebujes
> > >ulozit
> > >cislo 100, odcitaj z neho povedzme 50 - primitivne sifrovanie. (V
subore
> > >teda bude 50).
> > >Ked potom hodnotu 50 nacitas, pridaj k nej zase 50 a budes mat 100.
> > >Alebo
> > >XORuj.
> > >Ked sa Ti niekto bude vrtat v subore, hodnoty sice bude viediet zmenit,
> > >ale
> > >narobi tam pekny chaos. Ak robis s retazcami, mozes pouzit ten
sifrovaci
> > >komponent. Alebo ich proste zakoduj Base64.
> > >
> > >
> > >Ivan
> > >
> > >
> > >Zbysek Hlinka wrote:
> > >
> > >> Milan Bla ek wrote:
> > >>
> > >> > Ivane diky, ale neslo !
> > >> > Protoze nechci, aby se zmenena hodnota vlastnosti dala
> > >> > modifikovat z vnesku napr. v .INI souboru. Pokud mas jiny napad tak
Ti
> > >> > predem dekuji.
> > >>
> > >> Vzdyt data nemusi byt v INI, muzes si vyrobit vlastni format
> > >> binarniho souboru, kam to budes ukladat. A pro jistotu si to muzes
> > >> i zasifrovat, na Delphree je sifrovaci utilita Cast. :-)
> > >>
> > >> 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
> > >
Seznam prihlasenych z PDOXUSR.NET
[*] J.Faltynek <FS_software(zv)telecom(tec)cz> - 13.9.1999 21:42:02
Ahoj,
uz to tady myslim jednou bylo, ale nenasel jsem v archivu nic.
Potrebuji zjistit user seznam aktualne prihlasenych v PDOXUSR.NET.
Paradox, D4 prof.
Dik, Jirka
QuickReport
[*] Ing. Jaroslav Ske��k - 13.9.1999 22:52:19
Mohu ti nabidnout nas generator tiskovych sestav.
Najdes ho na www.sinea(tec)cz
Zcela Free je ovsem pouze verze pro D1 a D2 - zatim
Jaro
----- Original Message -----
From: Iko <iko(zv)kamarad(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 14, 1999 4:38 PM
Subject: QuickReport
> Zdravim konferakov
>
> potreboval by som nejaku free komponentu na tvorenie zostav.
> Nieco ako QuickReport, ale lepsie, lebo QR je nanic. Potrebujem
> tam moznost dynamicky dodavat texty a obrazky (nie z DB).
>
> Diky....
>
> iko
> iko(zv)kamarad(tec)cz
> Virtual a absolute
[*] Robert Kindl <rob(zv)exec(tec)cz> - 13.9.1999 22:55:02
V Delphi 4 to dela to same.
> Byl by nekdo tak laskav a zkusil prelozit nasledujici program v Delphi 4
> (nebo i 5)?
> V Delphi 3 hlasi kompilator syntaktickou chybu "Integer constant or
variable
> name expected" na radku s deklaraci pouzivajici "absolute".
> Pokud to pujde prelozit, je to chyba v Delphi 3 a je to tedy vyresene.
>
> Vysledek mych pokusu: Jakmile ma TAncest jednu jedinou virtualni metodu,
> prekladac hlasi chybu. Zkuste v uvedenem programu odstranit "virtual" v
> deklaracich TAncest.Met a TAncest.Met1 a program pujde prelozit. A dokonce
i
> funguje.
> Pri deklaracich objektu jako class se hlasi syntakticka chyba vzdycky.
> Cim to je???
Neni to chyba Delphi, ale vysledek pouzite obskurni konstrukce:
1) Deklarace
> type
> TAncest = object
> procedure Met;
> procedure Met1;
> end;
>
> TObj = object(TAncest)
> St : String;
> procedure Met; virtual; {toto je zbytecne viz dale}
> end;
> var Obj : tObj;
znamena, ze se rovnou vytvorila jedna STATICKA instance objektu typu TObj
ktery ma metody Met, Met1 a promennou St.
Lze tedy provest deklaraci
var StLen: byte absolute Obj.St;
nebo totez uvnitr metody objektu, jak bylo v puvodnim programu.
2) Deklarace
> type
> TAncest = object
> procedure Met; virtual; {toto je zbytecne viz dale}
> procedure Met1; virtual; {toto je zbytecne viz dale}
> end;
>
> TObj = object(TAncest)
> St : String;
> procedure Met; virtual; {toto je zbytecne viz dale}
> end;
> var Obj : tObj;
znamena, ze se SICE rovnou vytvorila jedna STATICKA instance objektu typu
TObj
ktery ma metody Met, Met1 a promennou St.
Jenze tim, ze se napsala direktiva, ze Met resp. Met1 maji byt virtual
tak se do objektu vlozila VMT tabulka a tudiz se jiz chova jako by byl
DYNAMICKY.
A tudiz konstrukce s absolute selze nebot ta se umi odkazovat jen na
staticke misto viz. 3)
3)
> type
> TAncest = class
> procedure Met; virtual; {zde jiz na virtual nezalezi}
> procedure Met1; virtual;
> end;
>
> TObj = class(TAncest)
> St : String;
> procedure Met; override; {zde se musi pouzit override}
> end;
> var Obj : tObj;
Toto nevytvori NIC! Jen je k dispozici pointer Obj,
ktery je inicializovan na NIL (same nuly).
Tedy neexistuje zadny objekt. Ten je nutno vytvorit
DYNAMICKY pomoci constructoru
a po pouziti ho uvolnit destructorem
(nebo Free ktere navic testuje neni-li Obj
nahodou rovno nil):
try
Obj:=TObj.Create;
try
{pouziti}
finally
Obj.Free;
end;
except
raise Exception.Create('Objekt se nevytvoril');
end;
V takovem pripade konstrukce
var
StLen: byte absolute St;
neni spravna, nebot JAKA je ona absolutni adresa promenne St na kterou
se ma StLen odkazovat, kdyz je objekt vytvaren dynamicky
(a muze vzniknout mnoho instanci).
RESULT:
ad 1 a 2) obskurni konstrukce vyuzivajici staticke objekty.
Neni mozno vytvaret dalsi objekty daneho typu.
Jakakoliv deklarace metod virtual je zbytecna nebot
co je virtualniho na statickych objektech?
ad 3) pri deklaraci tridy objektu je treba instance objektu
dynamicky tvorit a absolute nelze pouzit.
Je nutno pouzit pretypovani.
Pokud nejsou typy kompatibilni lze pri VELMI
dobre znalosti veci pouzit PretypujCokoliv(((zv)ZCehokoliv)^).
Dovolim si rici jeste nasledujici:
pouzivat direktivu virtual je zbytecne nebot v uvedenem kusu
programu jsou metody Met1 i Met jiz pseudo virtualni
i bez pouziti sluvka virtual (nebo dynamic)!
Tedy je mozno v metode TObj.Met zavolat inherited a zavola se TAncest.Met
Tato technika funguje i pokud se pouzije deklarace pomoci class
jen to neni uplne virtualni! Jedna se totiz o prime volani ruznych
statickych metod se stejnym jmenem.
Pokud se chce se mnou nekdo o tomto hadat
tak at si to dobre rozmysli,
pripravi si 100,-Kc na sazku
a na soukromy mail si zazada o cislo meho konta
(hadat se je mozno i v konferenci).
> Poznamka: Problem neni v nejake nekompatibilite ShortString<->AnsiString.
> Chyba se hlasi i pri jinych typech promenne St. I kdyz jsou promenne St a
> StLen stejneho typu, napr. byte.
Jeste k Poznamce:
Aby taky byla, kdyz je na zacatku {$H-}
(Volba Project/Options/Compiler/Huge strings)
coz znamena ze string = shortstring
Pak samozdrejme konstrukce StLen absolute St
nebo primo pouziti St[0] funguje a je korektni.
Pokud by tam misto {$H-} bylo {$H+} tak sice StLen absolute St take jde
prelozit,
ale dela to HROZNOU vec meni to nejnizzi byte adresy retezce
(St je totiz jen pointer)!!!
Rob
TDatasetAction
[*] Ing. Jaroslav �ke��k - 13.9.1999 23:00:13
Bude lepsi ty TActionList pripojit na prislusny Datasource a nespolehat se
na automatiku. Ta je dobra v pripade, ze chces pro vice DBGrid-u na jednom
formulari pouzivat stejna tlacitka, pak se priradi vzdy Aktivni dataset.
Muzes si to vsak oblouzit sam, pak to bude fungovat spolehlive i po
pripadnych zmenach.
Jaro
> Preji pekny den,
>
> D4S
> pokud pouziji TToolbar a na nem buttony spojene s TActionList a v nem
> definuji standartni akce pro TDataset, stane se, ze po vytazeni
> TToolBaru z docku do Formu se vsechny buttony zakazou, pokud mam
> zaostreny form s DBGridem, takze vlasne ty buttony nelze pouzit.
> Setkal jste se s tim nekdo? Pripadne jak tomu pomoci?
>
> Dekuji Jan Naiser.
>Volani externich programu
[*] Daniel Resler - ATC Group <daniel_resler(zv)atcgroup(tec)cz> - 13.9.1999 22:01:33
Je to v celku dost jednoduche, je nutne pouze zavolat API funkci s urcitymi
parametry: takovy maly priklad, tak treba hotlink v About boxu u programu:
procedure TTOKAboutBox.URLLabelClick(Sender: TObject);
var TempString : array[0..79] of char;
begin
StrPCopy(TempString,URLLabel.Caption);
OpenObject(TempString);
end;
procedure TTOKAboutBox.OpenObject(sObjectPath : PChar);
begin
ShellExecute(0, Nil, sObjectPath, Nil, Nil, SW_NORMAL);
end;
----------------------------------------------------------------------------
----
Nezapomen vlozit ShellAPI do klauzule uses !!!
----- Original Message -----
From: Pavel Machek <pcguru(zv)ji(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 13, 1999 3:19 PM
Subject: Volani externich programu
> Dobry den,
> v Delphi nejsem prilis honeny, a tak jeden trivialni dotaz:
> potrebuji z programu psanem v Delphi 3 spustit jiny program pro 32-bitova
Windows, konkretne InternetExplorer s nejakou adresou.
> Idealni by bylo, kdyby program dokazal spustit kterykoli prohlizec
internetu, ktery by mel uzivatel nainstalovany a nasmerovat jej na urcitou
adresu.
> Pomuze mi nekdo?
>
> S pozdravem
> Pavel Machek, Husova 52, 586 01 Jihlava
> tel/fax: 066 / 73 22 261 mobil: 0603 / 427 145
> E-mail: pcguru(zv)ji(tec)cz
Voice modem library
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 13.9.1999 23:18:08
Hello Petr!
> Pokud pouzivas W95 tak muze byt chyba v
> unimodem driveru, upgrade mas tady:
>
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/smeti/Unimodem_driver_W95_update
.zip
Stiahol som a neviem, co s tym dalej. Je tam nejaky .EXE, po spusteni
ktoreho zahlasi, ze nenasiel nejake .DLL. Potom je tam spusta .INF, tak som
skusal 'pridat novy hardware' / 'modem' ale vobec neponukne zoznam, len
mrkne a vrati sa do vyberu typu podla inst. w95.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Record & Query
[*] Ing. Jaroslav �ke��k - 13.9.1999 23:59:05
Podivej se do Helpu na TQuery.
Jsou tam metody jako
First, Last, Next, ktere slouzi pro pohyb ukazatele po zaznamech
Dale Vlastnosti jako Eof pro zjisteni konce
a treba FieldByName('Jmeno polozky').AsString .AsInteger, AsFloat,
AsDateTime nabo Value
pro nacteni hodnot
Takze jednoduse nactu treba nazvy z tabulky mest treba do stringlistu takto:
with Query1 do begin
First;
while not Eof do begin
ListBox1.Items.Add(FieldByName('NazevObce').AsString);
Next;
end;
end;
Jaro
PS
Doporucuji necpat se prasky, ale cist help, koupit si knizku nebo se
prihlasit u Sebelika na kurz datariny. Tohle jsou zaklady.
> Hi,
>
> u� jsem z toho na pr�ky. M��ete mi pros�m n�kdo poradit, jak dostanu
z�znam z
> Query ?
>
> Vypad� to asi takhle:
>
> Query.SQL.Clear;
> Query.SQL.Add('SELECT * FROM pokus');
>
> try
> Query.Open;
> except end;
>
> A te� pot�ebuju chodit po z�znamech tak jak pot�ebuji.
> Po�et z�znam� je Query.RecordCount ale je�t� pot�ebuju na��tat
jednotliv�
> z�znamy a to mi nejde.
>
> Va�ek
>
>
>prevod string na pchar
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 13.9.1999 22:23:42 pdt
Zdar.
Podobne prevody (napr. string - word) zvycajne robym cez premennu vriant.
var v:variant;
s:string;
...
v:=s;
...
pri dodrzani istych podmienok to perfekne funguje, mozes to skusit aj pre
PChar.
Martin Galik
Programator - zaciatocnik.
RB s r.o.
Automatizacna a mikripocitacova technika.
Bratislava.
rbba(zv)ba.pubnet.sk
>From: "Ing. J�n Kuch�r" <kuchar(zv)tuke.sk>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: "Delphi konferencia" <delphi-l(zv)fwd(tec)cz>
>Subject: prevod string na pchar
>Date: Mon, 13 Sep 1999 08:17:43 +0200
>
>caute
>vo svojom programe pouzivam vlastny sposob vyhladavania urciteho textu
>pomocou prikazu STRPOS, problem je ale v tom, ze zistim urcity text v
>ktorom sa ma vyhladavat ( je typu STRING ), ale prikaz pracuje s typom
>PCHAR, takze by som potrboval poradit ako previest string na pchar.
>
>
> Dik
>
>Ing. J�n Kuch�r
>Katedra inov�ci� a rein�inieringu
>SjF TU Ko�ice, Park Komensk�ho 9
>040 01 Ko�ice
>tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Delphi & ADO
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.9.1999 07:01:17
Vaclav_Lukes(zv)EUROTEL.CZ wrote:
> m�m na Oracle ulo�enou proceduru a r�d bych s n� spolupracoval pomoc�
> TADOStoredProc. Bohu�el m�m sm�lu.
>
> M�te pros�m s t�mto n�kdo n�jak� zku�enosti ?
Docela by me zajimalo, jak se s Oracle chovaji moje OLE DB
komponenty. StoredProc uz mam zabudovane. Mohl bys to
vyzkouset (jsou na Delphree)?
BTW - patrne budes muset pouzit MsdaOra_tlb.pas, ktere tam
nemam zabudovane. Pripadne bych se pokusil to dat do kupy.
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
Virtual a absolute
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.9.1999 07:01:17
Bohuslav Svancara wrote:
No to je celkem jasne. "Absolute" lze pouzit na parametr, ktery
tam ovsem nemas. Chyba je u tebe. Pokud chces udelat takovehle
pretypovani, musis to delat pres pointry. Napriklad takto:
procedure TObj.Met;
var StLen : Pbyte;
begin
StLen:=(zv)St[1];
St := '123456789';
StLen^ := 5;
writeln(St);
end;
> Byl by nekdo tak laskav a zkusil prelozit nasledujici program v Delphi
> 4 (nebo i 5)? V Delphi 3 hlasi kompilator syntaktickou chybu "Integer
> constant or variable name expected" na radku s deklaraci pouzivajici
> "absolute". Pokud to pujde prelozit, je to chyba v Delphi 3 a je to
> tedy vyresene.
>
> Vysledek mych pokusu: Jakmile ma TAncest jednu jedinou virtualni
> metodu, prekladac hlasi chybu. Zkuste v uvedenem programu odstranit
> "virtual" v deklaracich TAncest.Met a TAncest.Met1 a program pujde
> prelozit. A dokonce i funguje. Pri deklaracich objektu jako class se
> hlasi syntakticka chyba vzdycky. Cim to je???
>
> Poznamka: Problem neni v nejake nekompatibilite
> ShortString<->AnsiString. Chyba se hlasi i pri jinych typech promenne
> St. I kdyz jsou promenne St a StLen stejneho typu, napr. byte.
>
> Program:
>
> {$A-,B-,C+,D+,E-,F-,G+,H-,I+,J+,K-,L+,M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W-
> ,X+,Y- ,Z1} {$APPTYPE CONSOLE} program Project1; uses Windows;
>
> type
> TAncest = object
> procedure Met; virtual;
> procedure Met1; virtual;
> end;
>
> TObj = object(TAncest)
> St : String;
> procedure Met; virtual;
> end;
>
> procedure TAncest.Met;
> begin end;
>
> procedure TAncest.Met1;
> begin end;
>
> procedure TObj.Met;
> var StLen : byte absolute St; {<<-- tady hlasi kompilator chybu}
> begin St := '123456789'; StLen := 5; writeln(St); end;
>
> var Obj : tObj;
> begin
> Obj.Met;
> end.
>
>
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
Uzivatele z PDOXUSERS.NET
[*] tomas.mazurek(zv)vitkovice(tec)cz - 14.9.1999 05:55:23
Hello,
v D1 jsem to zjistoval takto, snad se to nebude lisit...
procedure TA_Users.FormCreate(Sender: TObject);
var
TmpCursor: hDbiCur;
rslt : dbiResult;
UsrDesc : USERDesc;
begin
DbiOpenUserList(TmpCursor);
repeat
rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, (zv)UsrDesc, nil);
if (rslt <> DBIERR_EOF)
then begin
ListBox1.Items.Add(UsrDesc.szUserName);
{ UserList.Add('Net Session: ' + inttostr(UsrDesc.iNetSession));
UserList.Add('Product Class: ' +
inttostr(UsrDesc.iProductClass));}
end;
until rslt <> DBIERR_NONE;
DbiCloseCursor(TmpCursor);
end;
TM
Konverzia
[*] Tibor Galik <tgalik(zv)vsz.sk> - 14.9.1999 08:20:32
Ahoj,
chcel by som tymto podakovat vsetkym, ktory sa zapojili do riesenia mojho problemu. Pouzil som riesenie od Pavla Kriza(diky). Tu je riesenie(myslim, ze to niekomu pomoze):
function Conv852To1250(S1:string):string;
var
PpTxt1:array [0..255] of char;
PpTxt2:array [0..255] of char;
begin
StrPCopy(PpTxt1,S1);
OemToChar((zv)PpTxt1,(zv)PpTxt2);
Result:=string(PpTxt2);
end;
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> "Tibor Galik" <tgalik(zv)vsz.sk> 09/09 7:56 dop. >>>
Ahoj
Chcel by som niekoho poprosit o pomoc. Potrebujem programovo osetrit prevod code page z PC852 do Win 1250. Zatial to robim v Exceli pri prevode txt fileu. Oznacim ho ako "DOS, OS/2 (PC-8)" a potom mam diakritiku v poriadku.
Urcite existuje nejaky pgm, ktory robi prevod.
Alebo vie niekto kniznicu v exceli a syntax ako urobit prevod?
diky
tg
prevod string na pchar
[*] stingp1.eti(zv)mail.cez(tec)cz - 14.9.1999 07:40:58
Pokud programujete v D2 a vys, mate po problemu, prot
oze
retezce PChar a string jsou kompatibilni. Pokud bude
te
pouzivat string v metode, ktera vyzaduje PChar, staci
pouze pretypovat string na PChar.
tedy:
var
S
: string;
procedure XX;
begin
nejaka_proc( PChar(
S ) );
end;
A to je vse, pratele...
Pavel
-----------------------------------
------
Pavel Stingl
programator, analytik
CEZ a.s., El
ektrarna Tisova
EMail : stingp1.eti(zv)mail.cez(tec)cz
-------
----------------------------------
"Martin Galik
" <m_g_66(zv)hotmail.com> on 14.09.99 06:23:42
Odpov�zte
pro
�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v
dom�: Stingl Pavel/3420A/ETI/CEZ)
P
edm�t: Re: prevod string na pchar
>caute
>vo svojom programe pouzivam vlastny sposob vyhladavania urciteho textu
>pomocou prikazu STRPOS, problem je ale v tom, ze zistim urcity text v
>ktorom sa ma vyhladavat ( je typu STRING ), ale prikaz pracuje s typom
>PCHAR, takze by som potrboval poradit ako previest string na pchar.
>
> Dik
>
>Ing. J�n Kuch�r
>Katedra inov�ci� a rein
inieringu
>SjF TU Ko�ice, Park Komensk
�ho 9
>040 01 Ko
ice
>tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
DCOM
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 14.9.1999 08:45:11
Ahoj Delphisti,
mam svym zpusobem zacatecnickou otazku.
Popisu situaci: Delam C/S aplikaci, kde na
strane serveru (WinNT Server 4.0 SP 4) bude
MS SQL 7, na strane klientu (Win95/98) bude
takova vetsi aplikace. Stale hledam zpusob,
jak nejjednodusim a nejelegantnejsim
zpusobem zajistit pristup do DB klientovi.
Dosud jsem delal na lokalnich DB (Paradox),
maximalne do SQL pres ODBC.
Nechce se mi na strane klienta instalovat
takovy balasty jako je BDE a ODBC +
konfiguracni programy pro MS SQL klienta.
Zkousel jsem ted pouzit RemoteDataModule
(pouzivam D4 C/S) s tim, ze se ze strany
klienta konektim pres DCOMConnection nebo
pres OLEEnterpriseConnection. Pokud mam
AppServer i klienta na jednom PC, funguje vse
v pohode. Pokud zkusim klienta na jinym
pocitaci, nahlasi mi to EOleSysError s tim, ze je
"Access denied". Zatim jsem neprisel na to,
proc.
Tak a ted se chci zeptat:
1) Proc mi to u klienta (na jinem PC) hlasi
"Access Denied" a co proti tomu muzu udelat
?
2) Pokud se rozhodnu pro toto reseni, co budu
muset u klienta instalovat (DCOM95.EXE
apod.) ?
3) Jak je to s legalnosti pouziti techto
technologii, pripadne, pokud ne, co s tim ;-)
Patral jsem v helpu, ale ten je jako partyzan -
mlci.
Dokazete mi nekdo poradit, pripadne
navrhnout lepsi reseni ?
Diky moc.
Milan
(samouk)Klavesnice a menu
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 14.9.1999 09:10:48
Petr Vaclavek wrote:
>
> Ahoj....
> Mam dva dotazy:
>
> 1) jak priradim nejakou klavesovou zkratku nejakemu Menu?
> Pozor!! jde mi o polozku, ktera pouze rozbaluje to menu pod sebou.
> Chci, aby se po stisku Ctrl+D rozbalilo jedno menu - nic vic, nic
> min.
> Zkousel jsem dat te polozce ShortCut, ale nefunguje to, taky jsem
> zkousel odchytit klavesovou zkratku Ctrl+D a pak zavolat
> PolozkaMenu.Click, ale to mi taktez to menu nerozbali :-((
>
No, jestli to menu ma na tej polozce podtrzene pismenko, mohlo by
zafungovat toto:
- odchytit Ctrl+D, jako jsi to uz delal
- nastavit focus menu
- poslat tomu menu udalost ze nekdo stisknul klavesu odpovidajici
podtrzenemu pismenu
Ale mozna na to jdeme blbe a existuje nejaka velmi lehka a primitivni
cesta, jak to udelat. Jeste se mrknu do MSDN, abych se ujistil... Jo!
Zkus udalost WM_MENUSELECT nebo WM_MENUCHAR. Parametry jsou v API helpu.
Jestli ho nemas, napis, poslu.
> 2) jak odchytit klavesovou zkratku Ctrl+/
>
Normalne jako kazdou jinou. Napr. se nastavi formulari KeyPreview na
true a v OnKeyPress formulare... Nebo asi lepe OnKeyDown - tusim, ze v
OnKeyPress nejsou modifikacni klavesy (Ctrl,...). Nicmene existuje i API
funkce GetKeyState, kterou lze zjistit stav klaves jako je i Ctrl apod.
Vice viz API help.
Hezky den.
--
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Record & Query
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 14.9.1999 10:28:26
Hi,
u� jsem z toho na pr�ky. M��ete mi pros�m n�kdo poradit, jak dostanu z�znam z
Query ?
Vypad� to asi takhle:
Query.SQL.Clear;
Query.SQL.Add('SELECT * FROM pokus');
try
Query.Open;
except end;
A te� pot�ebuju chodit po z�znamech tak jak pot�ebuji.
Po�et z�znam� je Query.RecordCount ale je�t� pot�ebuju na��tat jednotliv�
z�znamy a to mi nejde.
Va�ek
DCOM
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 14.9.1999 10:42:18
Neviem, ako si s tou aplikaciou daleko, ale osobne pouzivam riesenie,
ktore takisto nevyzaduje instalaciu BDE na klientovi aj napriek tomu, ze
aplikacia chodi na server cez BDE - jednoducho nastavim na serveri
vsetky cesty do BDE ako absolutne - teda tak, aby mali v mene aj nazov
pocitaca a necham BDE na serveri zdielat. Potom vyexportujem tieto
nastavenia z Windows Registry a na klientoch ich naimportujem do
registry. Vysledok je ten, ze na ziadnom klientovi nie je instalovane
BDE, nutne su len zmeny v registry, co je dost jednoducha zalezitost,
ktora sa robi cez export. BDE je teda na severi zdielane a funguje to.
Toto sice nie je odpoved na tvoje otazky, ale mozno na tvoje problemy...
Milan Schembera wrote:
> Ahoj Delphisti,
>
> mam svym zpusobem zacatecnickou otazku.
> Popisu situaci: Delam C/S aplikaci, kde na
> strane serveru (WinNT Server 4.0 SP 4) bude
> MS SQL 7, na strane klientu (Win95/98) bude
> takova vetsi aplikace. Stale hledam zpusob,
> jak nejjednodusim a nejelegantnejsim
> zpusobem zajistit pristup do DB klientovi.
> Dosud jsem delal na lokalnich DB (Paradox),
> maximalne do SQL pres ODBC.
>
> Nechce se mi na strane klienta instalovat
> takovy balasty jako je BDE a ODBC +
> konfiguracni programy pro MS SQL klienta.
>
> Zkousel jsem ted pouzit RemoteDataModule
> (pouzivam D4 C/S) s tim, ze se ze strany
> klienta konektim pres DCOMConnection nebo
> pres OLEEnterpriseConnection. Pokud mam
> AppServer i klienta na jednom PC, funguje vse
> v pohode. Pokud zkusim klienta na jinym
> pocitaci, nahlasi mi to EOleSysError s tim, ze je
> "Access denied". Zatim jsem neprisel na to,
> proc.
>
> Tak a ted se chci zeptat:
> 1) Proc mi to u klienta (na jinem PC) hlasi
> "Access Denied" a co proti tomu muzu udelat
> ?
> 2) Pokud se rozhodnu pro toto reseni, co budu
> muset u klienta instalovat (DCOM95.EXE
> apod.) ?
> 3) Jak je to s legalnosti pouziti techto
> technologii, pripadne, pokud ne, co s tim ;-)
>
> Patral jsem v helpu, ale ten je jako partyzan -
> mlci.
>
> Dokazete mi nekdo poradit, pripadne
> navrhnout lepsi reseni ?
>
> Diky moc.
>
> Milan
> (samouk)Preziti aplikace pri Log-off
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 14.9.1999 09:53:37
### Tomas Rosa napsal dne 13 Sep 99, v 13:29 :
> neco jineho (95,98), pak nevim - zrejmne se to musi asi taky spustit pres
> registry a tam je nekde "..\RunService". Nevim, nezkousel jsem.
tohle nepomaha, zkousel jsem to taky :-(((
v 9x "service" asi neni service
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Seznam prihlasenych z PDOXUSR.NET
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 14.9.1999 10:57:46
Spr�va vo form�te MIME rozdelen� na viac �ast�.
V helpe k BDE - vacsinou
C:\Program Files\Common Files\Borland Shared\BDE\bde32.hlp
najdes funkciu DbiOpenUserList
aj s funkcnym prikladom v Delphi.
Inaksie su tam aj ine zaujimave funkcie
zacinajuce sa na DbiOpenXXXX, napriklad
mne sa celkom paci aj DbiOpenLockList...
forgo
-----P�vodn� spr�va-----
Od: J.Faltynek <FS software(zv)telecom(tec)cz>
Pre: delphi forum <delphi-l(zv)fwd(tec)cz>
D�tum: 13. september 1999 22:29
Predmet: Seznam prihlasenych z PDOXUSR.NET
Ahoj,
uz to tady myslim jednou bylo, ale nenasel jsem v archivu nic.
Potrebuji zjistit user seznam aktualne prihlasenych v PDOXUSR.NET.
Paradox, D4 prof.
Dik, Jirka
TStrings,TStringList, nebo neco jineho?
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 14.9.1999 10:59:55
Ahojte vespolek.
Mam IMHO banalni problem se %subj%. D4 C/S.
Potrebuji vytvorit nejaky seznam retezcu, abych ho mohl predat listboxu :
var SSS:TStringList;
begin
SSS:=TStrigList.Create;
file://nejake plneni SSS
end;
v nejake jine procedure :
ListBox1.Items:=SSS;
^^^^^^^^^^^^^^^^^^^^
Bohuzel tady IDE rve ze do TStrings rvu TStringList a ma pravdu, ale TString
s je abstraktni a nemuzu jej vytvorit.
Volam S.O.S. , archiv jsem uz prohledal, a nutne bych to potreboval zprovozn
it.Nekde uz jsem to delal a prisel na to, ale nemuzu to najit
:-(((((((((((((((
Predem dekuji.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Ponekud off topic - boot.ini
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 14.9.1999 10:09:22
Ahoj vsem,
mel jsem na pocitaci WinNT 4.0 Workstation, pak jsem to preinstaloval a
mam Win95 OSR2. Preinstaloval jsem to tak, ze jsem smazal adresar s
NTckama (tj. zustaly tam adresare s aplikacema) a nainstaloval jsem
Win95. Nicmene pri bootu se vzdy objevi menu, ktere nabizi start NTcek
(i kdyz uz tam nejsou) nebo Win95. Pritom defaultni je volba NT, takze
se to musi volit rucne. V BOOT.INI je zapsano toto:
[boot loader]
timeout=3
default=C:\="Microsoft Windows"
[Operating Systems]
C:\="Microsoft Windows"
I kdyz je upraveny takto, stale se defaultni volba NTcek objevuje. Je to
znacne otravne, nevite nekdo, jak to odstranit? (Smazani toho BOOT.INI
zpusobi, ze to vubec nenabehne).
Diky za vsechny rady a omlouvam se za offtopic.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
Funkcia z DLL
[*] ago(zv)post.sk - 14.9.1999 11:11:10
Ahoj!
Mam maly problem.
------------------------------------------
V Dll mam funkciu.
unit XX1;
...
function Nalistovat(A: Byte; var AZlozka: String): Integer; stdcall;
...
---------------------
library DlgZet;
uses XXX1;
exports
Nalistovat;
...
------------------------------------------
A mam program, ktory tu funkciu vola. Ale to neviem ako urobit.
Neviete nahodou ako urobit to aby som tej funckii predal
parametre (B, AZlozka) a potom z nej dostal AZlozka a vysledok ??? Pomhol by kod, ja uz som to skusal ale vzdy to spadne. Chcem aby ta dll nebola cely cas natiahnuta v pamati ale iba ked to je treba a potom po predani vysledku aby sa uvolnila. (Mimochodom ak to pomoze: ta fcia Nalistovat vytvara a rusi formular, ktory uzivatel vydi, nieco vybereie a zrusi, ale tam problem nie je, ked to neni v dll tak to bezi OK)
Vdaka moc!Virtual a absolute
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 14.9.1999 11:13:16
Pro eventualni dalsi zajemce o problem: Udelal jsem dotaz do konference
borland.public.delphi.objectpascal a dostal jsem dve odpovedi, ktere uvadim
nize.
Muj zaver je ten, ze v danem pripade je Object Pascal jen castecne
kompatibilni se svym predchudcem BP7, pricemz se to clovek nikde v
dokumentaci nedozvi. V BP7 je uvedena konstrukce naprosto v poradku a
funguje. Prikladovy program je zjednodusenim konstrukce pouzivane hojne v
knihovne Object Professional 1.30 od firmy TurboPower. Samozrejme, ze se to
dalo a da udelat jinak, ale BP7 takovou konstrukci podporuje, takze ji v TP
pouzili. Proc ne. Delphi jiz takovou konstrukci nepodporuje, resp. podporuje
ji jen ve specialnich pripadech, coz je podle me vada prekladace vedouci k
problemum.
*************From: Philippe Ranger *********
<<Bohuslav:
In this sample program Delphi 3 reports syntax error "Integer constant or
variable name expected" in line "var StLen : byte absolute St;"
If object TAncest has no _virtual_ methods (you can try delete "virtual"),
Delphi reports no errors and program works.
Why I can not have virtual methods _and_ absolute clause?
>>
With every version, old-style objects are a bit less supported. But this
isn't the problem here. If you simply try --
Var
r: record a, b: integer; end;
f: single absolute r.b;
-- you will find the same error. OP refuses to take absolute addresses from
offsets, unless the offset is 0 --
Var
r: record a, b: integer; end;
f: single absolute r.a;
-- works. The no-offsets rule for Absolutes goes at least as far back as
TP3.
Your object declaration and the problem code are --
<<
TObj = object(TAncest)
St : String;
procedure Met; virtual;
end;
.........
procedure TObj.Met;
var StLen : byte absolute St;
begin
St := '123456789';
StLen := 5;
writeln(St);
end;
>>
So, the answer to your question is that you *can't* have absolute refer to
*any* field, except in the special case where the field happens to be at
offset 0. St is at offset 0 if the object has no virtual. Else, at offset 0
you have a VMT pointer, and St is at offset 4, so the compiler refuses it as
an Absolute reference.
PhR
************ From: Robert Lee **********
Bohuslav Svancara wrote:
>
> In this sample program Delphi 3 reports syntax error "Integer constant or
> variable name expected" in line "var StLen : byte absolute St;"
>
> If object TAncest has no _virtual_ methods (you can try delete "virtual"),
> Delphi reports no errors and program works.
I'm surprised that this works at all.
However, In old style objects (such as yours) the pointer to the VMT
pointer is placed like a field. By having virtual methods in the
ancestor the first entry is no longer st but rather VMT. Apparently,
the absolute modifier will work for only the first field.
In any case, I'd suggest you not do this. Instead just assign the value
directly to st[0].
begin
...
St[0]:=char(5);
...
end;
--
Bob Lee
High Performance Delphi - http://www.econos.com/optimize/
Updated August 2
TStrings,TStringList, nebo neco jineho?
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 14.9.1999 11:46:52
Ahoj,
>
> ListBox1.Items:=SSS;
> ^^^^^^^^^^^^^^^^^^^^
> Bohuzel tady IDE rve ze do TStrings rvu TStringList a ma pravdu, ale TString
> s je abstraktni a nemuzu jej vytvorit.
pri prirazovani takovychto objektu by se mela pouzivat metoda .Assign(), ktera
zkopiruje obsah toho TStringListu...
Takze takhle by to melo fungovat:
ListBox1.Items.Assign(SSS);
a pak je nutne samozrjeme uvolnit SSS.Freee, protoze v ListBoxu je nezavisla
instance a SSS je uz "navic".
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
TStrings,TStringList, nebo neco jineho?
[*] MODROVSKY Daniel <modrovsky(zv)asset.sk> - 14.9.1999 11:50:38
Skusto takto ListBox1.Items.AddStrings(SSS)
Dano.
> -----Original Message-----
> From: Petr Sadovsky [SMTP:petr(zv)slunce(tec)cz]
> Sent: 14. september 1999 11:00
> To: delphi-l(zv)fwd(tec)cz
> Subject: TStrings,TStringList, nebo neco jineho?
>
> Ahojte vespolek.
>
> Mam IMHO banalni problem se %subj%. D4 C/S.
> Potrebuji vytvorit nejaky seznam retezcu, abych ho mohl predat listboxu :
>
> var SSS:TStringList;
>
> begin
> SSS:=TStrigList.Create;
> file://nejake plneni SSS
>
> end;
>
> v nejake jine procedure :
>
> ListBox1.Items:=SSS;
> ^^^^^^^^^^^^^^^^^^^^
> Bohuzel tady IDE rve ze do TStrings rvu TStringList a ma pravdu, ale
> TString
> s je abstraktni a nemuzu jej vytvorit.
> Volam S.O.S. , archiv jsem uz prohledal, a nutne bych to potreboval
> zprovozn
> it.Nekde uz jsem to delal a prisel na to, ale nemuzu to najit
> :-(((((((((((((((
> Predem dekuji.
>
> Petr Sadovsk�
> p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
> prevod aplikace z D1 na D3
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 14.9.1999 12:05:12
Martin Bodlak <vyvoj(zv)atlascon(tec)cz>>tohle jsem kdysi delal i ja. Problemu je vice, ale netykaji se komponent
>(aspon myslim, my jsem nikdy na nic takoveho nenarazil). Hlavni problem
>jsou odlisne datove typy - jina velikost integer, uplne jinak
>koncipovany string. Jestli obcas neco takoveho ukladas do souboru, dej
>si pozor.
Jeste si vzpominam na:* Jinak se spousteji cizi aplikace a monitoruje se jejich ukonceni
* Dlouha jmena u souboru
* Zcela jinak se obsluhuji seriove porty
* Na API32 existuji dost podstatne rozdily mezi API pro W9x a WNT, takze pokud dosud aplikace chodila na obou platformach, po prevodu uz nemusi :-)
* U importu funkce z DLL se musi uvest jmeno vcetne pripony (D1 si ji dosadil):
function XXXXX; external 'YYYYYY.DLL' name 'ZZZZZZ';
* nedaji se primo volat puvodni dosovske sluzby tj. INT 21h apod.
* Misto AddExitProc() by se melo pouzivat FINALIZATION
a pak nekolik zaludnosti:* po FindFirst() se musi volat FindClose()
* v tStringList.Destroy() se nevola virtualni metoda Clear(), takze pozor na
potomky
* Pokud aplikace cte INI soubory pomoci reset(), FileCreate() apod., tak se musi po zapisu do INI zavolat WritePrivateProfileString(nil,nil,nil,....), aby se flushnula cache.
* Musi se dbat na kontrolu result codu po volani funkci na API, protoze Gates je dost bezstarostne prevoral a navic v tom nema jednotny system.
Napr. V D1 hodnota LoadLibrary()<HINSTANCE_ERROR znamenala chybu, v D3 je chybna hodnota 0, takze na nekterych "malo nainstalovanych" pocitacich se hodnota platneho handle klidne vejde pod HINSTANCE_ERROR. Aby se to nepletlo, u nekterych sluzeb znamena hodnota 0 platne handle a pro zmenu se musi testovat napr. INVALID_HANDLE_VALUE ($FFFFFFFF). Takovych pripadu se zmenou result code je mnoho vcetne napr. FindFirst() a hrozne spatne se hledaji
* Tusim byl problem s uplne kvalifikovanymi odkazy, napr. volani procedury Unit1.Delete() prekladal chybne jako system.Delete(), ale castecne kvalifikovany odkaz Delete() prelozil spravne jako Unit1.Delete()
* Pozor! Uz neplati, ze I/O handle s hodnotou < 5 je vyhrazeno pro systemova, trvale otevrena zarizeni: stdin, stdout, stderr, aux a prn.
* Pokud potrebujes nekde pouzivat ShortStrings, pozor na to, ze cela VCL je prelozena pro ANSIString a prestoze v rade pripadu provadi automatickou konverzi, tak napr. NewStr() a DisposeStr() ji neudela (zalezi na prekladu SysUtils)
Na vic si ted uz nevzpomenu,
bye pf, callnet(zv)telecom(tec)cz
Record & Query
[*] Petr Vale� - 14.9.1999 12:20:30
Moc tomu nerozumim,
ale jestli chces chodit po zaznamech tak :
while ( not Query.Eof) do begin
jmeno := Query.FieldByName( 'Jmeno').AsString; // v zavislosti na tom
jaky je typ, lze
// taky pouzit AsInteger, AsDateTime, AsFloat, atd.
Query.Next;
end;
-----P�vodn� zpr�va-----
Od: Vaclav_Lukes(zv)EUROTEL.CZ <Vaclav_Lukes(zv)EUROTEL.CZ>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 14. september 1999 11.28
P�edm�t: Record & Query
>Hi,
>
>u� jsem z toho na pr�ky. M��ete mi pros�m n�kdo poradit, jak dostanu
z�znam z
>Query ?
>
>Vypad� to asi takhle:
>
>Query.SQL.Clear;
>Query.SQL.Add('SELECT * FROM pokus');
>
>try
>Query.Open;
>except end;
>
>A te� pot�ebuju chodit po z�znamech tak jak pot�ebuji.
>Po�et z�znam� je Query.RecordCount ale je�t� pot�ebuju na��tat jednotliv�
>z�znamy a to mi nejde.
>
>Va�ek
>TStrings,TStringList, nebo neco jineho?
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 14.9.1999 12:32:41
Ides na to dobre az na ten posledny prikaz:
ListBox1.Items.AddStrings( sss );
Cau.
Petr Sadovsky wrote:
> Ahojte vespolek.
>
> Mam IMHO banalni problem se %subj%. D4 C/S.
> Potrebuji vytvorit nejaky seznam retezcu, abych ho mohl predat listboxu :
>
> var SSS:TStringList;
>
> begin
> SSS:=TStrigList.Create;
> file://nejake plneni SSS
>
> end;
>
> v nejake jine procedure :
>
> ListBox1.Items:=SSS;
> ^^^^^^^^^^^^^^^^^^^^
> Bohuzel tady IDE rve ze do TStrings rvu TStringList a ma pravdu, ale TString
> s je abstraktni a nemuzu jej vytvorit.
> Volam S.O.S. , archiv jsem uz prohledal, a nutne bych to potreboval zprovozn
> it.Nekde uz jsem to delal a prisel na to, ale nemuzu to najit
> :-(((((((((((((((
> Predem dekuji.
>
> Petr Sadovsk�
> p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
TStrings,TStringList, nebo neco jineho?
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 14.9.1999 12:58:43
deklaruj ho jako TStrings, ale vytvor TStringList, treba takhle:
var SSS:TStrings;
begin
SSS:=TStringList.Create;
try
// naplneni
ListBox1.Items.Assign(SSS);
finally
SSS.Free
end;
end;
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Petr Sadovsky <petr(zv)slunce(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 14. z��� 1999 10:59
P�edm�t: TStrings,TStringList, nebo neco jineho?> Ahojte vespolek.
>
> Mam IMHO banalni problem se %subj%. D4 C/S.
> Potrebuji vytvorit nejaky seznam retezcu, abych ho mohl predat listboxu :
>
> var SSS:TStringList;
>
> begin
> SSS:=TStrigList.Create;
> file://nejake plneni SSS
>
> end;
>
> v nejake jine procedure :
>
> ListBox1.Items:=SSS;
> ^^^^^^^^^^^^^^^^^^^^
> Bohuzel tady IDE rve ze do TStrings rvu TStringList a ma pravdu, ale TString
> s je abstraktni a nemuzu jej vytvorit.
> Volam S.O.S. , archiv jsem uz prohledal, a nutne bych to potreboval zprovozn
> it.Nekde uz jsem to delal a prisel na to, ale nemuzu to najit
> :-(((((((((((((((
> Predem dekuji.
>
> Petr Sadovsk�
> p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
>
>
>
Funkcia z DLL
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 14.9.1999 13:02:14
type
TNalistovat = function (A: Byte; var AZlozka: String): Integer;
var
DLLHandle: HInst;
Nalistovat: TNailistovat;
procedure LoadProc
var
FarProc: TFarProc;
begin
DLLHandle:=LoadLibrary('DlgZet.dll');
if DLL handle > 0 then
Nalistovat:=GetProcAddress(DLLHandle,'Nalistovat');
end;
...
if (zv)Nalistovat <> nil then Vysledek:=Nalistovat(...,...);
...
if DLLHandle > 0 then FreeLibrary(DLLHandle);
...
Takhle je to dynamicky (pokud tam mam nejake chyby tak pardon nezkousel jsem
to kompilovat)
a takhle staticky
function Nalistovat(A: Byte; var AZlozka: String): Integer; stdcall;external
'DlgZet.dll' name 'Nalistovat';....
Vysledek:=Nalistovat(...,...);
...
Snad jsem te pochopil a pomohl ti
Jirka majvald(zv)email(tec)cz
----- P�vodn� zpr�va -----
Od: <ago(zv)post.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 14. z��� 1999 11:11
P�edm�t: Funkcia z DLL
>
> Ahoj!
>
> Mam maly problem.
>
> ------------------------------------------
>
> V Dll mam funkciu.
>
> unit XX1;
> ...
>
> function Nalistovat(A: Byte; var AZlozka: String): Integer; stdcall;
>
> ...
> ---------------------
>
> library DlgZet;
>
> uses XXX1;
>
> exports
> Nalistovat;
> ...
>
> ------------------------------------------
>
> A mam program, ktory tu funkciu vola. Ale to neviem ako urobit.
> Neviete nahodou ako urobit to aby som tej funckii predal
> parametre (B, AZlozka) a potom z nej dostal AZlozka a vysledok ??? Pomhol
by kod, ja uz som to skusal ale vzdy to spadne. Chcem aby ta dll nebola cely
cas natiahnuta v pamati ale iba ked to je treba a potom po predani vysledku
aby sa uvolnila. (Mimochodom ak to pomoze: ta fcia Nalistovat vytvara a rusi
formular, ktory uzivatel vydi, nieco vybereie a zrusi, ale tam problem nie
je, ked to neni v dll tak to bezi OK)
>
> Vdaka moc!
>
>
OwnDrawDataCell
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 14.9.1999 13:07:31
Delphi1:
Na forme mam DBGrid, ktery ma prepsany event OnDrawDataCell na vlastni
vykreslovani.
Snazim seted o vytvoreni potomka DBGridu, ktery by mel to vlastni
vykreslovani uz
implementovane a ja bych si jej pak jen doinstaloval do komponent.
Narazil jsem ale na jeden problem. Nevim jak zjistit, ktery radek je
aktivni, abych ho zobrazil jinou
barvou. Mam (a musim mit) totiz vypnute dgRowSelect v Grid.Options a
tehdy mi ukazuje, ze je
gdSelected in TGridDrawState jen pro field, ktery ma i gdFocused.
Mohl bych sice zadefinovat privatni promenou meho noveho gridu, v ktere
bych drzel ID aktualniho radku,
ale co s tabulkami, kde neni jednoznacny klic? A taky jak bych pak
zjistil zmenu aktualniho radku (to
v programu zjistuji v TDataSource.OnDataChange, ale pri navrhu
komponenty nevim jak bych
to mohl zjistit).
Nevite nekdo radu?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+ Funkcia z DLL
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 14.9.1999 13:31:23
Ahoj,
jeste k tomu parametru "var AZLozka: String", podle helpu k Delphi (zkus si
vyhledat "Writing DLLs") si clovek musi davat pozor na nekolik veci.
Pokud opravdu chces predavat String v parametrech procedur/funkci, ktere jsou
ulozeny v DLL, pak MUSIS pouzivat Shared Memory Manager. Tj. v programu A
ZAROVEN v DLL, kde jsou ty procedury/funkce, musis do Uses dat ShareMem (na 1.
misto!) a k aplikaci pak dodavat jeste BorlandMM.DLL.
Viz:
"
If a DLL exports routines that pass long strings or dynamic arrays as parameters
or function results (whether directly or nested in records or objects), then the
DLL and its client applications (or DLLs) must all use the ShareMem unit. The
same is true if one application or DLL allocates memory with New or GetMem which
is deallocated by a call to Dispose or FreeMem in another module. ShareMem
should always be the first unit listed in any program or library uses clause
where it occurs.
ShareMem is the interface unit for the BORLANDMM.DLL memory manager, which
allows modules to share dynamically allocated memory. BORLANDMM.DLL must be
deployed with applications and DLLs that use ShareMem. When an application or
DLL uses ShareMem, its memory manager is replaced by the memory manager in
BORLANDMM.DLL.
"
Takze obecne se doporucuje predavat retezce jako PChar (nebo ShortString coz je
vlastne array[0..255] of AnsiChar), ukazatele na blok pameti, kde nebo kam se
ten string uklada. Pak nemusis drive uvedeny postup pouzit. Ostatne takhle to
delaji systemove DLLka...
K.
> > V Dll mam funkciu.
> >
> > unit XX1;
> > ...
> >
> > function Nalistovat(A: Byte; var AZlozka: String): Integer; stdcall;
> >
> > ...
> > ---------------------
> >
> > library DlgZet;
> >
> > uses XXX1;
> >
> > exports
> > Nalistovat;
> > ...
> >
> > Neviete nahodou ako urobit to aby som tej funckii predal
> > parametre (B, AZlozka) a potom z nej dostal AZlozka a vysledok ??? Pomhol
> by kod, ja uz som to skusal ale vzdy to spadne.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
TStrings,TStringList, nebo neco jineho?
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 14.9.1999 12:47:56
Zkus pouzit metodu Assign ...
ListBox1.Items.Assign(SSS);
Bye T.B.
-----P�vodn� zpr�va-----
Od: Petr Sadovsky <petr(zv)slunce(tec)cz>
P�edm�t: TStrings,TStringList, nebo neco jineho?
Mam IMHO banalni problem se %subj%. D4 C/S.
Potrebuji vytvorit nejaky seznam retezcu, abych ho mohl predat listboxu :
var SSS:TStringList;
v nejake jine procedure :
ListBox1.Items:=SSS;
^^^^^^^^^^^^^^^^^^^^
Bohuzel tady IDE rve ze do TStrings rvu TStringList a ma pravdu, ale TString
s je abstraktni a nemuzu jej vytvorit.
Predem dekuji.
Petr Sadovsk�
Funkcia z DLL
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 14.9.1999 13:05:48
Ahoj,
takhle to udelat nejde. Namisto typu string pouzij PChar a nezapomen, ze
pro tento pointer musis mit alokovanou pamet, jinak to zbuchne,
napriklad takto:
function Nalistovat(A:Byte; Slozka:PChar):integer; stdcall;
begin
...nekde se naplni ten prostor alokovany parametrem slozka...
napr. Slozka := "blablabla"
end;
...a pri volani
var i:integer;
m_Slozka:PChar;
GetMem(m_Slozka, 255);
i:=Nalistovat(1,m_Slozka);
...tady neco udelej s vysledkem...
FreeMem(m_Slozka, 255);
...a je to.
Jinak natazeni DLL je pres API funkci LoadLibrary, uvolneni FreeLibrary
a zjisteni adresy funkce GetProcAddress.
Hodne uspechu
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: ago(zv)post.sk [SMTP:ago(zv)post.sk]
> Odesl�no: 14. z��� 1999 11:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Funkcia z DLL
>
>
> Ahoj!
>
> Mam maly problem.
>
> ------------------------------------------
>
> V Dll mam funkciu.
>
> unit XX1;
> ...
>
> function Nalistovat(A: Byte; var AZlozka: String): Integer; stdcall;
>
> ...
> ---------------------
>
> library DlgZet;
>
> uses XXX1;
>
> exports
> Nalistovat;
> ...
>
> ------------------------------------------
>
> A mam program, ktory tu funkciu vola. Ale to neviem ako urobit.
> Neviete nahodou ako urobit to aby som tej funckii predal
> parametre (B, AZlozka) a potom z nej dostal AZlozka a vysledok ???
> Pomhol by kod, ja uz som to skusal ale vzdy to spadne. Chcem aby ta
> dll nebola cely cas natiahnuta v pamati ale iba ked to je treba a
> potom po predani vysledku aby sa uvolnila. (Mimochodom ak to pomoze:
> ta fcia Nalistovat vytvara a rusi formular, ktory uzivatel vydi, nieco
> vybereie a zrusi, ale tam problem nie je, ked to neni v dll tak to
> bezi OK)
>
> Vdaka moc!Record & Query
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 14.9.1999 13:09:16
AHoj,
nevim , jestli jsem to spravne pochopil. Posilam kousek kodu, ktery z
Query vyzobava zaznamy a cpe je do dvou listboxu:
Query1.Active:=True;
Query1.First;
i:=1;
pocet:= Query1.RecordCount;
While not Query1.EOF do
begin
ListBox1.Items.Add(Query1.FieldByname('Field1').AsString);
ListBox2.Items.Add(Query1.FieldByname('Field2').AsString);
inc(i);
p:= (100*i) div pocet;
if (p mod 5 = 0) and (ptr_splash<>nil) then
begin
ptr_splash.Label3.Caption:='Filling dictionary...'+IntToStr(p)+'%';
ptr_splash.Refresh;
end;
if i<ListBox1.Height/ListBox1.ItemHeight then
begin
ListBox1.Refresh;
ListBox2.Refresh;
end;
Query1.Next;
end;
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Vaclav_Lukes(zv)EUROTEL.CZ [SMTP:Vaclav_Lukes(zv)EUROTEL.CZ]
> Odesl�no: 14. z��� 1999 10:28
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Record & Query
>
> Hi,
>
> u� jsem z toho na pr�ky. M��ete mi pros�m n�kdo poradit, jak dostanu
> z�znam z
> Query ?
>
> Vypad� to asi takhle:
>
> Query.SQL.Clear;
> Query.SQL.Add('SELECT * FROM pokus');
>
> try
> Query.Open;
> except end;
>
> A te� pot�ebuju chodit po z�znamech tak jak pot�ebuji.
> Po�et z�znam� je Query.RecordCount ale je�t� pot�ebuju na��tat
> jednotliv�
> z�znamy a to mi nejde.
>
> Va�ek
>
>
> Stringlisty, co je rychlejsi ?
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 14.9.1999 14:35:18
Ahoj
Co je rychlejsi ?
StringList1.Assign(StringList2)
nebo
StringList1.Text := StringList2.Text;
Radim
Record & Query
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 14.9.1999 14:35:44
Query.SQL.Clear;
Query.SQL.Add('SELECT * FROM pokus');
Query.Open;
while not(Query.EOF) do begin
// Query.FieldByName('nazev').AsString
Query.Next;
end;
Query.Close;
Daniel
----- P�vodn� zpr�va -----
Od: <Vaclav_Lukes(zv)EUROTEL.CZ>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 14. z��� 1999 10:28
P�edm�t: Record & Query
> Hi,
>
> u� jsem z toho na pr�ky. M��ete mi pros�m n�kdo poradit, jak dostanu z�znam z
> Query ?
>
> Vypad� to asi takhle:
>
> Query.SQL.Clear;
> Query.SQL.Add('SELECT * FROM pokus');
>
> try
> Query.Open;
> except end;
>
> A te� pot�ebuju chodit po z�znamech tak jak pot�ebuji.
> Po�et z�znam� je Query.RecordCount ale je�t� pot�ebuju na��tat jednotliv�
> z�znamy a to mi nejde.
>
> Va�ek
>
>
>
>
Delphi 5, MS SQL 7 a varchar(2000)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.9.1999 14:52:58
ing. Ales Da�a wrote:
> Myslim, ze jsem mel podobny problem a pomohlo update BDE na vyssi
> verzi.
O tom dost pochybuji, protoze primo v dokumentaci k MS SQL 7 je
poznamka, ze varchar delsi nez 255 nejsou v DBLib podporovany.
>
> Ahoj
>
> mam Delphi 3 a MS SQL 7
> nemuzu pouzit varchar(2000) protoze je omezeni bud v BDE nebo v Delphi
> na varchar(255).
>
> Nevite nekdo jak to je v Delphi 5 ?
>
> Milan
>
>
>
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
TStrings,TStringList, nebo neco jineho?
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 14.9.1999 14:53:16
> deklaruj ho jako TStrings, ale vytvor TStringList, treba takhle:
> var SSS:TStrings;
> begin
> SSS:=TStringList.Create;
> try
> // naplneni
> ListBox1.Items.Assign(SSS);
> finally
> SSS.Free
> end;
> end;
Tohle jsem nasel v helpu a kdyz jsem to tak udelal, tak mi to padalo a
padalo a padalo a nebylo mozne to rozchodit.
Ted jsem zkusil ListBox1.Items.Assign(SSS); i
ListBox1.Items.AddStrings(SSS);
a neustale mi to pada s touto hlaskou:
"Aplikace zp�sobila neplatnost str�nky v modulu KRNL386.EXE na adrese
0002:00005c83.Registry: ...."
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
> > Ahojte vespolek.
> >
> > Mam IMHO banalni problem se %subj%. D4 C/S.
> > Potrebuji vytvorit nejaky seznam retezcu, abych ho mohl predat listboxu
:
> >
> > var SSS:TStringList;
> >
> > begin
> > SSS:=TStrigList.Create;
> > file://nejake plneni SSS
> >
> > end;
> >
> > v nejake jine procedure :
> >
> > ListBox1.Items:=SSS;
> > ^^^^^^^^^^^^^^^^^^^^
> > Bohuzel tady IDE rve ze do TStrings rvu TStringList a ma pravdu, ale
TString
> > s je abstraktni a nemuzu jej vytvorit.
> > Volam S.O.S. , archiv jsem uz prohledal, a nutne bych to potreboval
zprovozn
> > it.Nekde uz jsem to delal a prisel na to, ale nemuzu to najit
> > :-(((((((((((((((
> > Predem dekuji.
> >
> > Petr Sadovsk�
> > p.sadovsky(zv)atlas(tec)cz
> > ICQ 37042001
> >
> >
> >
>
>
OT: registracni pokladny
[*] Ing. Jaroslav ke��k <jaro(zv)sinea(tec)cz> - 14.9.1999 15:18:59
Jo ... je to prilezitost jak nutit poctive lidi kupovat zhovadile
"Zemanovske" nesmysly
a tak z nich vytahovat prachy. Nekolik "CSD - spratelenych" firem treba za
urcite
sponzorske dary dostanou velke zakazky. Na software prilezitosti zapomen
to budou vladni zakazky pro vyvolene posluhovace!
Jestli si nekdo mysli, ze je to zakon proti tzv. "(vietnamskym) stankarum",
tak je dle meho
souktomeho nazoru stejne hloupej jako Zeman. HAHA - stankari, zadne
registracni pokladny
mit nebudou, protoze zadne ucetnictvi nevedou, pri kontrole zdrhnou nebo
tvrdi, ze
neumej cesky. Proc by asi kupovali pokladny, kdyz se ni neobtezuji proclenim
zbozi, zivnostenkou
registraci a pod? Registracni pokladnu nepotrebuje ten, kdo zadnej pokladni
doklad
nedela. Uz nekdo z vas nekdy dostal pokladni stvrzenku od stankare???
Poctivem lidem to zkomplikuje zivot a nepoctivci se budou jen vice smat,
takze na tom
budou zase o trochu ve vyhode.
Kdyby se nekdo chtel zbavit podvodnych stankaru, tak uz to mohl udelat davno
i bez
pokladen. Stacilo by casteji vytahnout paty , chodit na kontroly a
nepoctivce strkat do basy
nebo je vystehovat.
Reg. pokladny jsou jednim ze zemanovskych obludnych bludu.
Jaro
Omlovam se za off topic, ale kdyz vidim, ze se na to jeste nekdo tesi .....
Jaro
Co se tyka
> No, ale zas na druhou stranu, poklady potrebuji SOFTWARE, nebo ne?
=>Delphi
> + napad + nutnost vlastnit pokladnu s carkovym kodem ze zakona =
> prilezitost...
>
> Tomas Rosa
>
> ----- Original Message -----
> From: Ing. Ludek Florian <ludan(zv)bluerose(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, September 15, 1999 10:31 AM
> Subject: Re: OT: registracni pokladny
>
>
> > Cauec,
> >
> > tak to tu bude bezvladi. Poslanci, vlada, ... Kdyz si vezmete, co je
tady
> > spatnych zakonu....
> >
> > Bye Ludan
> >
> > > pokud si jeste nekdo z vas mysli, ze jeho se zakon o registracnich
> > > pokladnach, tzv. zakon "proti (vietnamskym) stankarum", netyka, pak se
> > > podivejte na
> > >
> > > http://pes.eunet(tec)cz/cgi-
> > > bin/rb_getpriloha.pl?ostatni/ekonomika/1999/09/13/priloha19990913 ast2
> > >
> > > a nestacite valit bulvy!
> > > Sorry za off-topic, ale myslim, ze by to mel skutecne kazdy vedet.
> >
> > Zde bych pridal take neco. Hospodarske noviny z 15.9., str. 10,
> > clanek Trestni oznameni se stane zbrani. Pise se tam o
> > pripravovane novele trestniho zakona, kde se uvazuje o i
> > kriminalizovani vad z nedbalosti pri podnikani. Citace: "Tak
> > napriklad, kdo z nedbalosti uvede na trh ve velkem rozsahu vyrobky
> > s podstatnymi vadami, dopousti se trestneho cinu." Co to znamena
> > v oblasti softwaru, je zrejme kazdemu jasne. :-) Zacneme u
> > Windows, pokracujme pres Delphi 4 a skonceme kazdy sam u
> > sebe...
> >
> >
> > 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
> >PC speaker
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 14.9.1999 15:29:12
Spr�va vo form�te MIME rozdelen� na viac �ast�.
da sa na PC bez zvuk karty, nejak naprogramovat nejaka melodia alebo pod(rec, zvuky) cez PC speaker pomocou Delphi?
Priklad by bodol.
martin
TDatasetAction
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 14.9.1999 15:48:32
Preji pekny den,
D4S
pokud pouziji TToolbar a na nem buttony spojene s TActionList a v nem
definuji standartni akce pro TDataset, stane se, ze po vytazeni
TToolBaru z docku do Formu se vsechny buttony zakazou, pokud mam
zaostreny form s DBGridem, takze vlasne ty buttony nelze pouzit.
Setkal jste se s tim nekdo? Pripadne jak tomu pomoci?
Dekuji Jan Naiser.PC speaker
[*] Petr Vale� - 14.9.1999 15:59:19
To zalezi na tom, zda mas nainstalovany nejaky ovladac pro PC speaker.
Osobne jsem ho nekde videl a dokonce jsem ho mel, ale myslim si, ze dneska
kdy zvukova karta stoji uz dve stovky, je to spise prezitek.
Petr
-----P�vodn� zpr�va-----
Od: Martin Talian <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 14. september 1999 16.29
P�edm�t: PC speaker
>da sa na PC bez zvuk karty, nejak naprogramovat nejaka melodia alebo
pod(rec, zvuky) cez PC speaker pomocou Delphi?
>Priklad by bodol.
>
>martin
><!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
><HTML>
><HEAD>
>
><META content=text/html;charset=iso-8859-2 http-equiv=Content-Type>
><META content='"MSHTML 4.72.2106.11"' name=GENERATOR>
></HEAD>
><BODY bgColor=#ffffff>
><DIV><FONT color=#000000 size=2>da sa na PC bez zvuk karty, nejak
naprogramovat
>nejaka melodia alebo pod(rec, zvuky) cez PC speaker pomocou
Delphi?</FONT></DIV>
><DIV><FONT color=#000000 size=2>Priklad by bodol.</FONT></DIV>
><DIV><FONT color=#000000 size=2></FONT> </DIV>
><DIV><FONT color=#000000 size=2>martin</FONT></DIV></BODY></HTML>
>Par dotazu (vsehochut)
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 14.9.1999 14:06:57 met-1
Ahoj lidicky!
Mel bych nekolik - verim ze pro odborniky trivialnich - dotazu.
1) Jak lze v D3 vydat ze speakeru zvuk urcite frekvence a po urcitou
dobu (tj. neco jako "klasicke" pascalovske Sound(x); Delay(y);
Nosoud;) ? Obycejne Beep nebo MessageBeep mi nevyhovuje.
2) V menu mam polozku, u niz menim property Checked za behu programu,
napr. v x-te sekunde se zmeni z false na true. Problem je ovsem v
tom, ze mam-li menu "rozbalene" a nastane prave x-ta sekunda, tak se
u zminene polozky neobjevi to zaskrtavatko. Teprve az menu sbalim a
vratim se na nej zpet, tak je vse OK. Da se udelat nejaky "refresh"
menu, i kdyz je rozbalene? A jestli jo, na jakou udalost to povesit?
3) Na formulari XForm mam OpenButton (zobrazi novy formular YForm) a
CloseButton (uzavre YForm). V udalosti OnCreate formulare XForm mam
YForm := TYForm.Create(Application);
OpenButton.Enabled := true;
CloseButton.Enabled := false;
Udalosti OnClick jednotlivych buttonu mam osetrene takhle:
procedure TXForm.OpenButtonClick(Sender: TObject);
begin
YForm.Show;
OpenButton.Enabled := not OpenButton.Enabled;
CloseButton.Enabled := not CloseButton.Enabled;
end;
procedure TXForm.CloseButtonClick(Sender :TObject);
begin
YForm.Close;
OpenButton.Enabled := not OpenButton.Enabled;
CloseButton.Enabled := not CloseButton.Enabled;
end;
Tohle mi funguje k uplne spokojenosti ovsem jen do te doby, nez
formular YForm zavru napr. pres jeho systemovou ikonu. Potreboval bych
tedy poradit, jak v XForm zjistim, ze YForm byl uzavren jinak nez
z CloseButton, tj. jak po jeho zavreni spravne nastavit vlastnosti
Enabled u zminenych buttonu.
Diky moc za kozdou napomocnou radu.
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Par dotazu (vsehochut)
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 14.9.1999 16:17:51
Ad 1 - Mam dojem, ze to jde pres Windows.beep (ale jsem liny si to overit)
Ad 2 - To jsem zvedav, kdo na tohle prijde, menu neni Window asi nema refresh, ale mozna to nejakou zpravou pujde
Ad 3 - Osetri si viditelnost buttonu v OnClose nebo v OnShow
-----P�vodn� zpr�va-----
Od: Jiri Novotny [SMTP:NOVOTNY(zv)ftknw.upol(tec)cz]
Odesl�no: 14. z��� 1999 16:07
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Par dotazu (vsehochut)
Ahoj lidicky!
Mel bych nekolik - verim ze pro odborniky trivialnich - dotazu.
1) Jak lze v D3 vydat ze speakeru zvuk urcite frekvence a po urcitou
dobu (tj. neco jako "klasicke" pascalovske Sound(x); Delay(y);
Nosoud;) ? Obycejne Beep nebo MessageBeep mi nevyhovuje.
2) V menu mam polozku, u niz menim property Checked za behu programu,
napr. v x-te sekunde se zmeni z false na true. Problem je ovsem v
tom, ze mam-li menu "rozbalene" a nastane prave x-ta sekunda, tak se
u zminene polozky neobjevi to zaskrtavatko. Teprve az menu sbalim a
vratim se na nej zpet, tak je vse OK. Da se udelat nejaky "refresh"
menu, i kdyz je rozbalene? A jestli jo, na jakou udalost to povesit?
3) Na formulari XForm mam OpenButton (zobrazi novy formular YForm) a
CloseButton (uzavre YForm). V udalosti OnCreate formulare XForm mam
YForm := TYForm.Create(Application);
OpenButton.Enabled := true;
CloseButton.Enabled := false;
Udalosti OnClick jednotlivych buttonu mam osetrene takhle:
procedure TXForm.OpenButtonClick(Sender: TObject);
begin
YForm.Show;
OpenButton.Enabled := not OpenButton.Enabled;
CloseButton.Enabled := not CloseButton.Enabled;
end;
procedure TXForm.CloseButtonClick(Sender :TObject);
begin
YForm.Close;
OpenButton.Enabled := not OpenButton.Enabled;
CloseButton.Enabled := not CloseButton.Enabled;
end;
Tohle mi funguje k uplne spokojenosti ovsem jen do te doby, nez
formular YForm zavru napr. pres jeho systemovou ikonu. Potreboval bych
tedy poradit, jak v XForm zjistim, ze YForm byl uzavren jinak nez
z CloseButton, tj. jak po jeho zavreni spravne nastavit vlastnosti
Enabled u zminenych buttonu.
Diky moc za kozdou napomocnou radu.
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+
Ponekud off topic - boot.ini
[*] "Jitka �t�p�nkov�" <step(zv)odp(tec)cz> - 14.9.1999 16:36:41
[P��loha v souboru: Boot.ini]*********** REPLY SEPARATOR ***********
On 14.9.1999, at 10:09, Petr Brant wrote:
>mel jsem na pocitaci WinNT 4.0 Workstation, pak jsem to preinstaloval a
>mam Win95 OSR2.
Asi pred pul rokem jsem to take delala, ale asi chytreji.
Nejdrive jsem na NT nainstalovala W95, pak jsem v NT boot manazeru nastavila default = W95,
nastavila timeout na 0 a pak jsem teprve smazala NT.
Posilam svuj boot.ini k nahlednuti, urcite se bude lisit cislo partition, ja mela NT na disku G.
BTW: Taky by me zajimalo, jestli existuje normalnejsi zpusob, jak se zbavit microsoftich vyplodu.
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Jitka Stepankova
ODP-software spol. s r. o.
tel.: (068) 5725 216
e-mail step(zv)odp(tec)cz
xxxxxxxxxxxxxxxxxxxxxxxxxxx
QuickReport
[*] Iko <iko(zv)kamarad(tec)cz> - 14.9.1999 16:38:52
Zdravim konferakov
potreboval by som nejaku free komponentu na tvorenie zostav.
Nieco ako QuickReport, ale lepsie, lebo QR je nanic. Potrebujem
tam moznost dynamicky dodavat texty a obrazky (nie z DB).
Diky....
iko
iko(zv)kamarad(tec)cz
TStrings,TStringList, nebo neco jineho?
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 14.9.1999 16:46:22
Zkousel jsem to jeste takto:
function TMainForm.NactiDispecery:TStringList;
var IniF:TIniFile;
Dispeceri:TStringList;
Pom1,S:String;
I:Integer;
begin
Dispeceri:=TStringList.Create;
Dispeceri.Clear;
S:=ExtractFilePath(Application.ExeName)+'Dispecer.INI';
IniF := TIniFile.Create(S);
for .....
begin
.........
Pom1:=IniF.ReadString(.........);
.........
end;
IniF.Free;
Dispeceri.Add(Pom1)
Result:=Dispeceri; file://zkousel jsem i Result.Assign(Dispeceri); a
AddStrings
Dispeceri.Free;
end;
nekde v prg. v onActivate formu, na kter�m je listbox1 jsem zavolal
ListBox1.Items.Assign(MainForm.NactiDispecery);
a na tomto radku se aplikace odebrala do vecnych lovist s hlaskou :
"Aplikace zp�sobila neplatnost str�nky v modulu KRNL386.EXE na adrese
0002:00005c83.Registry: ...."
Pripada mi jakoby se Dispecery nevytvorily a pokousel jsem se do ListBoxu
vkladat prazdnou hodnotu Resultu fce.
Co jsem udelal blbe?
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Stringlisty, co je rychlejsi ?
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 14.9.1999 17:25:05
Jestli se nepletu tak prirazeni
StringList1.Text:=StringList2.Text
interne udela Assign.
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Radim Kunz <rkunz(zv)ova.comp(tec)cz>
Komu: Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 14. z��� 1999 14:35
P�edm�t: Stringlisty, co je rychlejsi ?> Ahoj
> Co je rychlejsi ?
>
> StringList1.Assign(StringList2)
>
> nebo
>
> StringList1.Text := StringList2.Text;
>
> Radim
>
PC speaker
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 14.9.1999 17:28:45
Ve Win32.hlp se pise:
The Beep function generates simple tones on the speaker. The function is synchronous; it does not return control to its caller until the sound finishes.
BOOL Beep(
DWORD dwFreq, // sound frequency, in hertz
DWORD dwDuration // sound duration, in milliseconds
);
Parameters
dwFreq
Windows NT:Specifies the frequency, in hertz, of the sound. This parameter must be in the range 37 through 32,767 (0x25 through 0x7FFF).
Windows 95:The parameter is ignored.
dwDuration
Windows NT:Specifies the duration, in milliseconds, of the sound.
Windows 95:The parameter is ignored.
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Remarks
Windows 95:
The Beep function ignores the dwFreq and dwDuration parameters. On computers with a sound card, the function plays the default sound event. On computers without a sound card, the function plays the standard system beep.
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Martin Talian
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 14. z��� 1999 15:29
P�edm�t: PC speaker
da sa na PC bez zvuk karty, nejak naprogramovat nejaka melodia alebo pod(rec, zvuky) cez PC speaker pomocou Delphi?
Priklad by bodol.
martin
DCOM
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 14.9.1999 20:06:58
Toto sice nie je odpoved na tvoje otazky, ale mozno na tvoje problemy...
Pohoda, uz jsem na to prisel. Ja si musim na serveru spustit dcomcnfg, a
pridelit prava pro spusteni a pristup k objektu. Funguje to OK, ale asi od
toho upustim, protoze kupovat licence na MIDAS se asi zakaznikovi nebude
chtit :-(
Preji hezky den a jsem s pozdravem
Milan Schembera
mailto:info(zv)missoftware(tec)cz
http://www.missoftware(tec)cz
---------------------------------
- on-line objednavkove, rezervacni a obchodni systemy po internetu
- zakazkovy software pro Windows 3.x/9x/NT
- software pro autoskoly http://www.autoskola99(tec)cz
- servis pro autopujcovny http://www.auto-pujcovny(tec)cz
Stringlisty, co je rychlejsi ?
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 14.9.1999 20:38:00
> Jestli se nepletu tak prirazeni
> StringList1.Text:=StringList2.Text
> interne udela Assign.
Tak to se asi pletu. Myslel jsem ListBox1.Items.
Myslim ze je zbytecne to resit, protoze interne
je Assign i Text:= delano radek po radku, takze
to vyjde nastejno.
Daniel
Jeste dotaz na PC Speaker
[*] David Maly <david(zv)archa(tec)com> - 14.9.1999 21:04:47
Ahoj,
mel bych taky dotaz, taky potrebuju "pipnout" pres speaker. Problem
je, ze potrebuju VZDY pres speaker, i kdyz je na pocitaci
nainstalovana zvukova karta. Je to nejak mozne? (Nechci zadne
skladby, proste jeden kratky ton)
Problem prave je, ze funkce Beep pokud je zvukovka, tak hraje pres
zvukovku.
Diky za kazdy napad.
David
(Komu by se zdalo divne, na co to potrebuju, tak duvod je tenhle:
zakaznik nakoupil mnozstvi novych pocitacu, ktere povetsinou maji
integrovanou zvukovku na desce. Administrator jim ty pocitace
nainstaloval, samozrejme vcetne zprovozneni prave tech zvukovek.
Smutne je, ze k zadnemu pocitaci nebyly koupeny (a asi ani nebudou)
reprobednicky, tudiz zadny pracovnik neuslysi ani ...)
> Ve Win32.hlp se pise:
>
> The Beep function generates simple tones on the speaker. The function is synchronous; it does not return
> control to its caller until the sound finishes.
>
> BOOL Beep(
> DWORD dwFreq, // sound frequency, in hertz
> DWORD dwDuration // sound duration, in milliseconds
> );
>
> Parameters
>
> dwFreq
> Windows NT:Specifies the frequency, in hertz, of the sound. This parameter must be in the range 37
> through 32,767 (0x25 through 0x7FFF).
> Windows 95:The parameter is ignored.
>
> dwDuration
> Windows NT:Specifies the duration, in milliseconds, of the sound.
> Windows 95:The parameter is ignored.
>
> Return Values
>
> If the function succeeds, the return value is nonzero.
> If the function fails, the return value is zero. To get extended error information, call GetLastError.
>
> Remarks
>
> Windows 95:
>
> The Beep function ignores the dwFreq and dwDuration parameters. On computers with a sound card, the function
> plays the default sound event. On computers without a sound card, the function plays the standard system beep.
>
> Ahoj
> Daniel
> ----- P�vodn� zpr�va -----
> Od: Martin Talian
> Komu: delphi-l(zv)fwd(tec)cz
> Odesl�no: 14. z��� 1999 15:29
> P�edm�t: PC speaker
>
>
> da sa na PC bez zvuk karty, nejak naprogramovat nejaka melodia alebo pod(rec, zvuky) cez PC speaker
> pomocou Delphi?
> Priklad by bodol.
>
> martin
Par dotazu (vsehochut)
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 14.9.1999 21:22:26
1) Pujde to pres asm a porty, podivej se na moje stranky
mujweb(tec)cz/www/hoder. Tam nekde bude soubor SpeakerUnit.zip.
2) Nevim
3) Pres YForm.OnClose
----- Original Message -----
From: Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 14, 1999 4:17 PM
Subject: RE: Par dotazu (vsehochut)> Ad 1 - Mam dojem, ze to jde pres Windows.beep (ale jsem liny si to overit)
> Ad 2 - To jsem zvedav, kdo na tohle prijde, menu neni Window asi nema
refresh, ale mozna to nejakou zpravou pujde
> Ad 3 - Osetri si viditelnost buttonu v OnClose nebo v OnShow
>
> -----P�vodn� zpr�va-----
> Od: Jiri Novotny [SMTP:NOVOTNY(zv)ftknw.upol(tec)cz]
> Odesl�no: 14. z��� 1999 16:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Par dotazu (vsehochut)
>
> Ahoj lidicky!
>
> Mel bych nekolik - verim ze pro odborniky trivialnich - dotazu.
>
> 1) Jak lze v D3 vydat ze speakeru zvuk urcite frekvence a po urcitou
> dobu (tj. neco jako "klasicke" pascalovske Sound(x); Delay(y);
> Nosoud;) ? Obycejne Beep nebo MessageBeep mi nevyhovuje.
>
> 2) V menu mam polozku, u niz menim property Checked za behu programu,
> napr. v x-te sekunde se zmeni z false na true. Problem je ovsem v
> tom, ze mam-li menu "rozbalene" a nastane prave x-ta sekunda, tak se
> u zminene polozky neobjevi to zaskrtavatko. Teprve az menu sbalim a
> vratim se na nej zpet, tak je vse OK. Da se udelat nejaky "refresh"
> menu, i kdyz je rozbalene? A jestli jo, na jakou udalost to povesit?
>
> 3) Na formulari XForm mam OpenButton (zobrazi novy formular YForm) a
> CloseButton (uzavre YForm). V udalosti OnCreate formulare XForm mam
> YForm := TYForm.Create(Application);
> OpenButton.Enabled := true;
> CloseButton.Enabled := false;
> Udalosti OnClick jednotlivych buttonu mam osetrene takhle:
> procedure TXForm.OpenButtonClick(Sender: TObject);
> begin
> YForm.Show;
> OpenButton.Enabled := not OpenButton.Enabled;
> CloseButton.Enabled := not CloseButton.Enabled;
> end;
>
> procedure TXForm.CloseButtonClick(Sender :TObject);
> begin
> YForm.Close;
> OpenButton.Enabled := not OpenButton.Enabled;
> CloseButton.Enabled := not CloseButton.Enabled;
> end;
>
> Tohle mi funguje k uplne spokojenosti ovsem jen do te doby, nez
> formular YForm zavru napr. pres jeho systemovou ikonu. Potreboval bych
> tedy poradit, jak v XForm zjistim, ze YForm byl uzavren jinak nez
> z CloseButton, tj. jak po jeho zavreni spravne nastavit vlastnosti
> Enabled u zminenych buttonu.
>
> Diky moc za kozdou napomocnou radu.
>
> Jirka.
> +-------------------------+---------------------------------+
> | Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
> | Czech Republic | http://risc.upol(tec)cz/~novotnyj |
> | | ICQ: 9495586 |
> +-------------------------+---------------------------------+
> | ... and objects in the rear view mirror can appear closer |
> | than they are |
> +-----------------------------------------------------------+
>
>Tvorba VXD
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 14.9.1999 22:00:48
Nevi nekdo, jestli by se daly v Delphi vytvaret soubory VXD? Vsiml jsem si,
ze umi celkem pekny veci - napr. program RegMon s jejich pomoci monitoruje
vsechny pristupy do registru.
Thanks for ideas and help.
Krystof
Tvorba VXD
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 14.9.1999 23:38:55
At 22:00 14.9.1999 +0200, you wrote:
>Nevi nekdo, jestli by se daly v Delphi vytvaret soubory VXD?
Ano, vim - nedaly...
> Vsiml jsem si,
>ze umi celkem pekny veci - napr. program RegMon s jejich pomoci monitoruje
>vsechny pristupy do registru.
Ony se s tim daji delat i jina kouzla - ale to ladeni ;-(
S. Kolar (standa(zv)winroute.com)
nastaveni systemoveho datumu
[*] Libor Kucera <libor(zv)mikroservis(tec)cz> - 14.9.1999 23:48:16
nevite nekdo, jak nastavit z D3 aplikace systemove datum?
Code snipets v assembleru z dob D1 nejsou pouzitelne.
Predem dekuji za radu !
Libor
Vyreseni konfigurace boot.ini
[*] Ing. Jaroslav �ke��k - 15.9.1999 01:04:39
Me by celkem zajimalo, proc chce nekdo ze stabilnejsich W2000
prechazet zpet k nestabilnim W95?
Ja jsem zkousel D5 na W2000 a je to zcela o necem jinym. Zadne precerpane
zdoje, zadne modre (DOS) obrazovky a pod. Delphi 5 jsem spustil
15 x vedle sebe - pak me to prestalo bavit a dale jsem to nezkousel.
Zatim jsem neobjevil zadny problem a pritom je to jen Beta3.
Asi u toho zustanu.
Jaro
> Hura, uz jsem to vyresil:
>
> [boot loader]
> timeout=3
> default=C:\
> [Operating Systems]
> C:\="Microsoft Windows"
> multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows NT Workstation
> Version 4.00"
> multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows NT Workstation
> Version 4.00 [VGA mode]" /basevideo /sos
>
> Takhle uz startuji automaticky Win95. Diky za rady, stacilo dat dve z
> nich dohromady a chodi to.
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
>
> TStrings,TStringList, nebo neco jineho?
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 15.9.1999 00:30:08 pdt
Ahoj
ta chyba je prave v tom, ze predavas ten StringList jako vysledek funkce,
ale UVNITR te funkce zavolas FREE = ZRUSIS ho.
Pokud chces dodrzet tuhle konvenci, aby ta funkce vracela TStringList
je nutne zavolat FREE az PO Predani do ListBoxu tedy
PomList:= MainForm.NactiDispecery;
ListBox1.Items.Assign(PomList);
PomList.Free;
Korektnejsi bych videl predat ListBox1.Items jako parametr do te funkce tedy
napr.:
function TMainForm.NactiDispecery(SL:Strings) : boolean;
a plnit ho primo uvnitr teto funkce.
Doufam, ze je to srozumitelne, pokud ne tak se ozvi primo a rozebereme to
hloubeji.
Karel Vlcek
===========================
poskytovani software
GSM : ++420 602 264812
mailto: Vlcekk(zv)hotmail.com
===========================
----Original Message Follows----
From: "Petr Sadovsky" <petr(zv)slunce(tec)cz>
Reply-To: delphi-l(zv)fwd(tec)cz
To: <delphi-l(zv)fwd(tec)cz>
Subject: Re: TStrings,TStringList, nebo neco jineho?
Date: Tue, 14 Sep 1999 16:46:22 +0200
Zkousel jsem to jeste takto:
function TMainForm.NactiDispecery:TStringList;
var IniF:TIniFile;
Dispeceri:TStringList;
Pom1,S:String;
I:Integer;
begin
Dispeceri:=TStringList.Create;
Dispeceri.Clear;
S:=ExtractFilePath(Application.ExeName)+'Dispecer.INI';
IniF := TIniFile.Create(S);
for .....
begin
.........
Pom1:=IniF.ReadString(.........);
.........
end;
IniF.Free;
Dispeceri.Add(Pom1)
Result:=Dispeceri; file://zkousel jsem i Result.Assign(Dispeceri); a
AddStrings
Dispeceri.Free;
end;
nekde v prg. v onActivate formu, na kter�m je listbox1 jsem zavolal
ListBox1.Items.Assign(MainForm.NactiDispecery);
a na tomto radku se aplikace odebrala do vecnych lovist s hlaskou :
"Aplikace zp�sobila neplatnost str�nky v modulu KRNL386.EXE na adrese
0002:00005c83.Registry: ...."
Pripada mi jakoby se Dispecery nevytvorily a pokousel jsem se do ListBoxu
vkladat prazdnou hodnotu Resultu fce.
Co jsem udelal blbe?
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
DBGrid a barevn� ��dky
[*] Ing. Jaroslav Ske��k - 15.9.1999 02:50:08
> Pouzij RXLibrary, tam je primo grid ktery podporuje co potrebujes
> - Vojtech Albrecht -
------
Barevne radky umi i klasicky DBGrid - tusim jiz od D3.
Priklad na toto tema jsem uvadel nedavno, viz
-------
V nasledujicim prikladu budou polozky skladovych karet, ktere maji
zapornou zasobu zvyrazneny cervenou barvou. Protoze u tmavsich
polozek je spatne videt text v pripade, ze na ni stoji kurzor, je tam jeste
radek,
ktery zmeni text "fokusovane" polozky na bilou barvu.
procedure TFormSkladoveKarty.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if QueryKarty.FieldByName('ZASOBA').Asfloat < 0 then begin
DBGrid1.Canvas.Font.Color := clRed;
// Zajisti aby pismo polozky na niz je umisten kurzor ziskalo bilou barvu!
if (DBGrid1.Focused) and (GdSelected in state) then
DbGrid1.Canvas.Font.Color := clWhite;
end;
DbGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
-------
Jaro
> Ahoj
>
> Pouzij RXLibrary, tam je primo grid ktery podporuje co potrebujes
>
>
> -----------------------------
> - Vojtech Albrecht -
> - supervisor(zv)unicontrols(tec)cz -
> - ICQ 33995541 -
> -----------------------------
>
Jeste dotaz na PC Speaker
[*] Dalibor Bednar��k - 15.9.1999 05:47:56
Podivej se na MessageBeep do helpu..v Delphi
Myslim, ze by to mohlo bejt ono
TStrings,TStringList, nebo neco jineho?
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 15.9.1999 04:18:58 pdt
>To je divny. Ja volam Dispeceri.Free. Dispeceri je lokalni promenna > fce a
>rusim ji az jeji hodnotu predam do Result, protoze jinym zpusobem bych se
>na ni uz nedostal ...
No Dispeceri je sice lokalni promenna, ale dobre jsi odhadl, ze je to
vlastne jen pointer tedy vlastne adresa, ktera ukazuje urcity objekt. Ten
jako takovy sam o sobe nemuze existovat, musi se "narodit - create" a pokud
"zemre - free" tak samozrejme prestava existovat a neda se s nim dal
pracovat.
Predstav si to jako paralelu v normalnim zivote.
Pokud mas funkci, ktera ti vraci "objekt" - tedy presneji adresu na objekt,
tak si ji musis nekde zapamatovat a po ukonceni prace s tim objektem ho
"zabit", aby nezabiral zbytecne misto, tedy receno jazykem programatoru -
uvolnit pamet.
Zatim Cau
Karel Vlcek
===========================
poskytovani software
GSM : ++420 602 264812
mailto: Vlcekk(zv)hotmail.com
===========================
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Komponenty na formulari
[*] bc.Svoboda Jarom�r <svoboda(zv)okfas(tec)cz> - 15.9.1999 06:54:00
Ahoj
Prosim o radu, zajimalo by me jakym zpusobem
se v D4 daji zaregistrovat komponenty na formulari,
aby byly stale viditelne i pokud dojde k maximalizovani
formulare.
mailto:svoboda(zv)okfas(tec)cz
Tvorba VXD
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 15.9.1999 06:39:18
Nedaji se - na to je specialni nastroj na bazi C++ a neni to zrovna
dvakrat trivialni.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Kry�tof Hoder [SMTP:hoder(zv)seznam(tec)cz]
> Odesl�no: 14. z��� 1999 22:01
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Tvorba VXD
>
> Nevi nekdo, jestli by se daly v Delphi vytvaret soubory VXD? Vsiml
> jsem si,
> ze umi celkem pekny veci - napr. program RegMon s jejich pomoci
> monitoruje
> vsechny pristupy do registru.
>
> Thanks for ideas and help.
> Krystof
Ponekud off topic - boot.ini
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 15.9.1999 06:55:11
Diky za snahu, ale bohuzel je to cim dal tim stejne. Jinak to s tim
fdisk/mbr, jak nekdo doporucoval, mne taky napadlo, ale vzhledem k tomu,
ze mam velkokapacitni disk, tak mam v mbr (?) zavadeni specialniho
driveru, ktery zpristupnuje jeho celou kapacitu. Timhle zpusobem bych ho
asi zlikvidoval (ale radsi to nebudu zkouset).
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: "Jitka �t�p�nkov�" [SMTP:step(zv)odp(tec)cz]
> Odesl�no: 14. z��� 1999 16:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Ponekud off topic - boot.ini
>
>
>
> *********** REPLY SEPARATOR ***********
>
> On 14.9.1999, at 10:09, Petr Brant wrote:
>
> >mel jsem na pocitaci WinNT 4.0 Workstation, pak jsem to preinstaloval
> a
> >mam Win95 OSR2.
>
> Asi pred pul rokem jsem to take delala, ale asi chytreji.
> Nejdrive jsem na NT nainstalovala W95, pak jsem v NT boot manazeru
> nastavila default = W95,
> nastavila timeout na 0 a pak jsem teprve smazala NT.
> Posilam svuj boot.ini k nahlednuti, urcite se bude lisit cislo
> partition, ja mela NT na disku G.
>
> BTW: Taky by me zajimalo, jestli existuje normalnejsi zpusob, jak se
> zbavit microsoftich vyplodu.
>
> xxxxxxxxxxxxxxxxxxxxxxxxxxx
> Jitka Stepankova
> ODP-software spol. s r. o.
> tel.: (068) 5725 216
> e-mail step(zv)odp(tec)cz
> xxxxxxxxxxxxxxxxxxxxxxxxxxx <<Soubor: Boot.ini>> Petr Vones
[*] Matula M <asexrm(zv)telecom(tec)cz> - 15.9.1999 08:13:44
Blahopreji k vydarene prednasce, jen ten amatersky programator mi tam nejak
nesedi.
Zaujalo me pouzite AVI v Tvem prikladu. "COOL". Jestli se nepletu, tak je to
nazev noveho vyvojoveho prostredku od Microsoftu. Vis o tom neco blizsiho ?
Mirek M.
Ponekud off topic - boot.ini
[*] Skoloud, Otakar <skoloud(zv)ziba(tec)cz> - 15.9.1999 08:22:55
Ahoj,
myslim si, ze by bylo potreba prehrat master boot record... 95 kovym
treba fdisk /mbr nebo tak nejak
OS
-----Original Message-----
From: Petr Brant [mailto:p.brant(zv)samo(tec)cz]
Sent: Tuesday, September 14, 1999 11:09 AM
To: Konference Delphi; Konference C++
Subject: Ponekud off topic - boot.ini
Ahoj vsem,
mel jsem na pocitaci WinNT 4.0 Workstation, pak jsem to preinstaloval a
mam Win95 OSR2. Preinstaloval jsem to tak, ze jsem smazal adresar s
NTckama (tj. zustaly tam adresare s aplikacema) a nainstaloval jsem
Win95. Nicmene pri bootu se vzdy objevi menu, ktere nabizi start NTcek
(i kdyz uz tam nejsou) nebo Win95. Pritom defaultni je volba NT, takze
se to musi volit rucne. V BOOT.INI je zapsano toto:
[boot loader]
timeout=3
default=C:\="Microsoft Windows"
[Operating Systems]
C:\="Microsoft Windows"
I kdyz je upraveny takto, stale se defaultni volba NTcek objevuje. Je to
znacne otravne, nevite nekdo, jak to odstranit? (Smazani toho BOOT.INI
zpusobi, ze to vubec nenabehne).
Diky za vsechny rady a omlouvam se za offtopic.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************Ponekud off topic - boot.ini
[*] Luk� Gallina - 15.9.1999 08:28:54
Zdar,
chces-li udelat aby ten loader poustel jako prvni win98 tak musi boot.ini
vypadat takto>
[boot loader]
timeout=5
default=multi(0)disk(0)rdisk(0)partition(1)\MACOS
[operating systems]
C:\="Microsoft Windows"
multi(0)disk(0)rdisk(0)partition(1)\MACOS="Windows NT PraceStejsn, 'NT=Nou
Thanx', verze 4.00"
multi(0)disk(0)rdisk(0)partition(1)\MACOS="Windows NT PraceStejsn, 'NT=Nou
Thanx', verze 4.00 [VGA]" /basevideo /sos
Pousti se prvni system v sekci [operating systems], kdyz das timeout=0 tak
to nebude cekat a hned je pusti.
Nicmene toho loaderu se da zbavit FDISK /MBR. Ale pozor! Udelej si
systemovou disketu, aby ses pripadne dostal na disk.... Tato operace
neohrozi data na disku, ale nemusel bys uz nastartovat....nicmene delam to
dost castu (po odinstalovani Linuxu, BeOSu atd) a zatim nebyl problem...
Luk� Gallina (Lukas Gallina)
racek(zv)devacomm(tec)cz
Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
> Ahoj vsem,
>
> mel jsem na pocitaci WinNT 4.0 Workstation, pak jsem to preinstaloval a
> mam Win95 OSR2. Preinstaloval jsem to tak, ze jsem smazal adresar s
> NTckama (tj. zustaly tam adresare s aplikacema) a nainstaloval jsem
> Win95. Nicmene pri bootu se vzdy objevi menu, ktere nabizi start NTcek
> (i kdyz uz tam nejsou) nebo Win95. Pritom defaultni je volba NT, takze
> se to musi volit rucne. V BOOT.INI je zapsano toto:
>
> [boot loader]
> timeout=3
> default=C:\="Microsoft Windows"
> [Operating Systems]
> C:\="Microsoft Windows"
>
> I kdyz je upraveny takto, stale se defaultni volba NTcek objevuje. Je to
> znacne otravne, nevite nekdo, jak to odstranit? (Smazani toho BOOT.INI
> zpusobi, ze to vubec nenabehne).
>
> Diky za vsechny rady a omlouvam se za offtopic.
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
>
>Ponekud off topic - boot.ini
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 15.9.1999 08:33:02
Je to v tom, ze NTloader zustal v master boot recordu.
Muzes pouzit nedokumentovanou funkci Microsoftu asi takto
fdisk /mbr
to premaze master boot dosovou verzi a tim se navzdy zbavis ntldr.
Petr Smol�k
psmolik(zv)fides(tec)cz
ICQ: 37413592
Tel.:0604 837652
----- P�vodn� zpr�va -----
Od: Petr Brant <p.brant(zv)samo(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>; Konference C++ <Cecko(zv)pandora(tec)cz>
Odesl�no: 14. z��� 1999 11:09
P�edm�t: Ponekud off topic - boot.ini
> Ahoj vsem,
>
> mel jsem na pocitaci WinNT 4.0 Workstation, pak jsem to preinstaloval a
> mam Win95 OSR2. Preinstaloval jsem to tak, ze jsem smazal adresar s
> NTckama (tj. zustaly tam adresare s aplikacema) a nainstaloval jsem
> Win95. Nicmene pri bootu se vzdy objevi menu, ktere nabizi start NTcek
> (i kdyz uz tam nejsou) nebo Win95. Pritom defaultni je volba NT, takze
> se to musi volit rucne. V BOOT.INI je zapsano toto:
>
> [boot loader]
> timeout=3
> default=C:\="Microsoft Windows"
> [Operating Systems]
> C:\="Microsoft Windows"
>
> I kdyz je upraveny takto, stale se defaultni volba NTcek objevuje. Je to
> znacne otravne, nevite nekdo, jak to odstranit? (Smazani toho BOOT.INI
> zpusobi, ze to vubec nenabehne).
>
> Diky za vsechny rady a omlouvam se za offtopic.
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
>
>Funkcia z DLL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 15.9.1999 10:17:05
Porzor ale na STRING. Pokud pouzijete string, musi byt prvni UNITA v uses
nejake SHAREMEM a musite jeste prilozit BORLANDMM.DLL. Lepsi je ShortString
ci PChar.
Tomas Rosa
----- Original Message -----
From: Jirka Majvald <majvald(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 14, 1999 2:02 PM
Subject: Re: Funkcia z DLL
> type
> TNalistovat = function (A: Byte; var AZlozka: String): Integer;
>
> var
> DLLHandle: HInst;
> Nalistovat: TNailistovat;
>
> procedure LoadProc
> var
> FarProc: TFarProc;
> begin
> DLLHandle:=LoadLibrary('DlgZet.dll');
> if DLL handle > 0 then
> Nalistovat:=GetProcAddress(DLLHandle,'Nalistovat');
> end;
>
> ...
> if (zv)Nalistovat <> nil then Vysledek:=Nalistovat(...,...);
> ...
>
> if DLLHandle > 0 then FreeLibrary(DLLHandle);
> ...
>
> Takhle je to dynamicky (pokud tam mam nejake chyby tak pardon nezkousel
jsem
> to kompilovat)
>
> a takhle staticky
>
> function Nalistovat(A: Byte; var AZlozka: String): Integer;
stdcall;external
> 'DlgZet.dll' name 'Nalistovat';
>
> ....
>
> Vysledek:=Nalistovat(...,...);
> ...
>
> Snad jsem te pochopil a pomohl ti
> Jirka majvald(zv)email(tec)cz
>
> ----- P�vodn� zpr�va -----
> Od: <ago(zv)post.sk>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 14. z��� 1999 11:11
> P�edm�t: Funkcia z DLL
>
>
> >
> > Ahoj!
> >
> > Mam maly problem.
> >
> > ------------------------------------------
> >
> > V Dll mam funkciu.
> >
> > unit XX1;
> > ...
> >
> > function Nalistovat(A: Byte; var AZlozka: String): Integer; stdcall;
> >
> > ...
> > ---------------------
> >
> > library DlgZet;
> >
> > uses XXX1;
> >
> > exports
> > Nalistovat;
> > ...
> >
> > ------------------------------------------
> >
> > A mam program, ktory tu funkciu vola. Ale to neviem ako urobit.
> > Neviete nahodou ako urobit to aby som tej funckii predal
> > parametre (B, AZlozka) a potom z nej dostal AZlozka a vysledok ???
Pomhol
> by kod, ja uz som to skusal ale vzdy to spadne. Chcem aby ta dll nebola
cely
> cas natiahnuta v pamati ale iba ked to je treba a potom po predani
vysledku
> aby sa uvolnila. (Mimochodom ak to pomoze: ta fcia Nalistovat vytvara a
rusi
> formular, ktory uzivatel vydi, nieco vybereie a zrusi, ale tam problem nie
> je, ked to neni v dll tak to bezi OK)
> >
> > Vdaka moc!
> >
> >
>
>OLE DB primy pristup
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.9.1999 09:19:33
Ahoj,
chtel bych si prosondovat nazory na jednu vec. Pojal jsem umysl
udelat prime vycitani dat (z OLE DB) do struktury, bez okliky pres
fieldy. Slibuji si od toho urcite urychleni prace s daty. Pro
predstavu by to vypadalo asi nejak takto:
//deklarace pole
var
Pole=packed record
ID:longint;
Jmeno:array[0..24] of char;
Vek:word;
end;
//nazvy typu Type si pro nazornost vymyslim, takto lze
//vytahnout pole s jinym typem nez je v databazi;
//FldName je nazev pole v databazi, to je jen kvuli dohledani;
//zde by byl popis struktury, napr.:
const
Popis:array[0..2] of TPopis=(
(FldName:'ID'; Type:typDWord; Size:4),
(FldName:'Name'; Type:typString; Size:25),
(FldName:'Age'; Type:typWord; Size:2));
...
with Table do
begin
DirectOpen(3, (zv)Popis);
while not EOF do
begin
DirectRead((zv)Pole);
...
Next;
end;
Close;
end;
V DirectRead by se vycetla data primo do recordu, bez cteni do
mezibufferu a slozite adresace bufferu fieldy. Na druhe strane je
treba prisne hlidat velikosti poli a podobne, kazda zmena struktury
v "Pole" se promitne i do "Popis". Nemuseji se vsak promitnout
zmeny v popisu tabulky v databazi, protoze pole je mozne vycitat
vetsi nebo i mensi nez rika popis tabulky. Tohle je asi vyhradne pro
rucni praci, do gridu a podobne by to bylo treba plnit rucne. Zajimal
by me zajem o takovouhle konstrukci.
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
ADO a Oracle
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.9.1999 09:19:33
Ahoj,
obavam se, ze vcera na seminari mi castecne unikly duvody, proc
by melo byt BDE pro Oracle lepsi nez ADO. Muzete mi nekdo
osvezit pamet? Diky.
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
ADO a Oracle
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 15.9.1999 09:24:10
Haj hou!
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> obavam se, ze vcera na seminari mi castecne unikly duvody, proc
> by melo byt BDE pro Oracle lepsi nez ADO. Muzete mi nekdo
> osvezit pamet? Diky.
BDE (resp. SQL link) a potazmo VCL (TField atd.) podporuji rozsirene
vlastnosti Oracle 8i, coz OLE DB provider zatim ne.
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
TStrings,TStringList, nebo neco jineho?
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 15.9.1999 09:34:31
Tohle podle mne parat musi. Aby to nepadalo, musel bys vyhodit
Dispeceri.Free (a ponechat Result:=Dispeceri), ale pak by ses o uvolnovani
musel postarat nekde jinde. Chces-li nutne vracet TStringList z nejake
funkce, mozna by bylo bezpecnejsi pouzit proceduru:
Procedure TMainForm.NactiDispecery( ADispeceri: TStringList ) ;
a pouzit ji asi takto
var LDispeceri: TDispeceri ;
begin
LDispeceri := TStringList.Create ;
try
NactiDispecery( LDispeceri ) ;
... prace se stringlistem
finally
LDispeceri.Free ;
end ;
end ;
Kdybys z te funkce vyhodil ono Free, pak by se dala pouzit nejak takto (asi
je to take funkcni ale podle mne neprehledne, protoze neni na prvni pohled
zrejme, ze se uvnitr funkce NactiDispecery skryva konstruktor stringlistu,
navic nevim, jak by to dopadlo, kdyby nastala chyba uvnitr funkce - pak by
se asi pamet neuvolnila korektne):
var LDispeceri: TDispeceri ;
begin
LDispeceri := NactiDispecery ;
try
... prace se stringlistem
finally
LDispeceri.Free ;
end ;
end ;
-----P�vodn� zpr�va-----
Od: Petr Sadovsky [SMTP:petr(zv)slunce(tec)cz]
Odesl�no: 14. z��� 1999 16:46
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: TStrings,TStringList, nebo neco jineho?
Zkousel jsem to jeste takto:
function TMainForm.NactiDispecery:TStringList;
var IniF:TIniFile;
Dispeceri:TStringList;
Pom1,S:String;
I:Integer;
begin
Dispeceri:=TStringList.Create;
Dispeceri.Clear;
S:=ExtractFilePath(Application.ExeName)+'Dispecer.INI';
IniF := TIniFile.Create(S);
for .....
begin
.........
Pom1:=IniF.ReadString(.........);
.........
end;
IniF.Free;
Dispeceri.Add(Pom1)
Result:=Dispeceri; file://zkousel jsem i Result.Assign(Dispeceri); a
AddStrings
Dispeceri.Free;
end;
nekde v prg. v onActivate formu, na kter�m je listbox1 jsem zavolal
ListBox1.Items.Assign(MainForm.NactiDispecery);
a na tomto radku se aplikace odebrala do vecnych lovist s hlaskou :
"Aplikace zp�sobila neplatnost str�nky v modulu KRNL386.EXE na adrese
0002:00005c83.Registry: ...."
Pripada mi jakoby se Dispecery nevytvorily a pokousel jsem se do ListBoxu
vkladat prazdnou hodnotu Resultu fce.
Co jsem udelal blbe?
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Par dotazu (vsehochut)
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 15.9.1999 09:43:45
Ad1)
Tak jsem prekonal svou vrozenou lenost a nasel jsem si, jak jsem ten beep
pred casem delal (a funguje mi to), jedno z tech cisel je frekvence, druhe
delka:
Windows.Beep( 1000, 300 ) ;
Windows.Beep( 500, 100 ) ;
Puvodnim autorem vyse uvedenych radku je Ronald Greissler, ale patentovano
to nema. -)
-----P�vodn� zpr�va-----
Od: Kry�tof Hoder [SMTP:hoder(zv)seznam(tec)cz]
Odesl�no: 14. z��� 1999 21:22
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Par dotazu (vsehochut)
1) Pujde to pres asm a porty, podivej se na moje stranky
mujweb(tec)cz/www/hoder. Tam nekde bude soubor SpeakerUnit.zip.
2) Nevim
3) Pres YForm.OnClose
----- Original Message -----
From: Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 14, 1999 4:17 PM
Subject: RE: Par dotazu (vsehochut)> Ad 1 - Mam dojem, ze to jde pres Windows.beep (ale jsem liny si to
overit)
> Ad 2 - To jsem zvedav, kdo na tohle prijde, menu neni Window asi nema
refresh, ale mozna to nejakou zpravou pujde
> Ad 3 - Osetri si viditelnost buttonu v OnClose nebo v OnShow
>
> -----P�vodn� zpr�va-----
> Od: Jiri Novotny [SMTP:NOVOTNY(zv)ftknw.upol(tec)cz]
> Odesl�no: 14. z��� 1999 16:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Par dotazu (vsehochut)
>
> Ahoj lidicky!
>
> Mel bych nekolik - verim ze pro odborniky trivialnich - dotazu.
>
> 1) Jak lze v D3 vydat ze speakeru zvuk urcite frekvence a po urcitou
> dobu (tj. neco jako "klasicke" pascalovske Sound(x); Delay(y);
> Nosoud;) ? Obycejne Beep nebo MessageBeep mi nevyhovuje.
>
> 2) V menu mam polozku, u niz menim property Checked za behu programu,
> napr. v x-te sekunde se zmeni z false na true. Problem je ovsem v
> tom, ze mam-li menu "rozbalene" a nastane prave x-ta sekunda, tak se
> u zminene polozky neobjevi to zaskrtavatko. Teprve az menu sbalim a
> vratim se na nej zpet, tak je vse OK. Da se udelat nejaky "refresh"
> menu, i kdyz je rozbalene? A jestli jo, na jakou udalost to povesit?
>
> 3) Na formulari XForm mam OpenButton (zobrazi novy formular YForm) a
> CloseButton (uzavre YForm). V udalosti OnCreate formulare XForm mam
> YForm := TYForm.Create(Application);
> OpenButton.Enabled := true;
> CloseButton.Enabled := false;
> Udalosti OnClick jednotlivych buttonu mam osetrene takhle:
> procedure TXForm.OpenButtonClick(Sender: TObject);
> begin
> YForm.Show;
> OpenButton.Enabled := not OpenButton.Enabled;
> CloseButton.Enabled := not CloseButton.Enabled;
> end;
>
> procedure TXForm.CloseButtonClick(Sender :TObject);
> begin
> YForm.Close;
> OpenButton.Enabled := not OpenButton.Enabled;
> CloseButton.Enabled := not CloseButton.Enabled;
> end;
>
> Tohle mi funguje k uplne spokojenosti ovsem jen do te doby, nez
> formular YForm zavru napr. pres jeho systemovou ikonu. Potreboval bych
> tedy poradit, jak v XForm zjistim, ze YForm byl uzavren jinak nez
> z CloseButton, tj. jak po jeho zavreni spravne nastavit vlastnosti
> Enabled u zminenych buttonu.
>
> Diky moc za kozdou napomocnou radu.
>
> Jirka.
> +-------------------------+---------------------------------+
> | Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
> | Czech Republic | http://risc.upol(tec)cz/~novotnyj |
> | | ICQ: 9495586 |
> +-------------------------+---------------------------------+
> | ... and objects in the rear view mirror can appear closer |
> | than they are |
> +-----------------------------------------------------------+
>
>
Nahrada za decision cube
[*] Dalibor Honus <dhonus(zv)iname(tec)com> - 15.9.1999 10:00:23
Nevite nekdo o nejake (spolehlive) nahrade za komponentu Decision Cube.
----------------------------------
Dalibor Honus
----------------------------------
Skr�vac� panel
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 15.9.1999 10:13:53
Preji vsem dobry a uspesny den !
Mel bych jeden drobny dotazek. Rad bych v aplikaci realizoval neco podobneho jako panel aplikaci Office, ktery se mi schova do praveho (leveho, horniho, dolniho) okraje obrazovky a kdyz do tech mist najedu mysi, tak mi odtud vyleze. Ja na ten panel sice chci umistit nejaky ciselnik atp., ale jde mi o to schovavani.
Muze mi prosim nekdo z vas poradit jak na to?
Doufam, ze jsem se vymacknul srozumitelne.
Diky PavelC
QuickReport
[*] Michal Sviga <proton(zv)iol(tec)cz> - 15.9.1999 10:15:17
Vite nekdo, jestli je mozne tisknou pomoci QR texty v RichEdit?
Pouzivam D2 a QR je myslim verze 1.1.
A jeste jedna vec, da se pouzivat v D2 vyssi verze QR a ma to vubec nejaky prinos?
S pozdravem a dik
Michal Sviga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 65 15 052 mobil: 0602/ 207 557
http://www.dama(tec)cz - Internetovy casopis pro zeny
=========================================
Funkcia z DLL - je opravdu nutne pouzit ShareMem
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 15.9.1999 10:25:57
>[Ivan Pavelka]
>
>Ahoj!
>
>
>Z tveho dotazu jsem snad vyrozumel, ze pises Dll v Delphi a volas ho z
>Delphi. Predpokladam ze v 32 bit verzi (D1 myslim neznal stdcall). Pokud
>vsak jej zkousis volat i z jinych prostredi pozor na toto:
>- Volaci konvence je Case sensitivni.
>- Uvedeny datovy typ integer v D3 je 4bytovy, zatimco napr. v MS Office
>Visual Basicu for application ma 2 byty. Kvuli kompatibilite je pak treba
>pouzivat typ smallInt.
>- To co je ve VB deklarovano jako string odpovida typ Pchar v Delphi.
>
>Na druhou stranu jsem cetl v prispevku pana Cibulky, ze je treba pouzit
>ShareMem. Osobne jsem z helpu vyrozumel, ze je to treba, jen pokud pouzivam
>dlouhe stringy nebo alokuji pamet.
>Pokud pouziji paskalske retezce, snad to neni treba. Urcite mi nejaka Dll
>knihovna takto slapala. Doufam, ze jsem nenapsal casovanou bombu.
>
>Otazka do diskuse : kdy je opravdu nutne pouzit ShareMem ?
>
>Ago wrote:
>
>Mam maly problem.
>------------------------------------------
>V Dll mam funkciu.
>unit XX1;
>...
>function Nalistovat(A: Byte; var AZlozka: String): Integer; stdcall;
>...
>---------------------
>library DlgZet;
>
>uses XXX1;
>
>exports
> Nalistovat;
>...
>------------------------------------------
>
>A mam program, ktory tu funkciu vola. Ale to neviem ako urobit.
>Neviete nahodou ako urobit to aby som tej funckii predal
>parametre (B, AZlozka) a potom z nej dostal AZlozka a vysledok ??? Pomhol by
>kod, ja uz som to skusal ale vzdy to spadne. Chcem aby ta dll nebola cely cas
>natiahnuta v pamati ale iba ked to je treba a potom po predani vysledku aby
>sa uvolnila. (Mimochodom ak to pomoze: ta fcia Nalistovat vytvara a rusi
>formular, ktory uzivatel vydi, nieco vybereie a zrusi, ale tam problem nie
>je, ked to neni v dll tak to bezi OK)
>
>Vdaka moc!
>
>Vyreseni konfigurace boot.ini
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 15.9.1999 09:41:59
Hura, uz jsem to vyresil:
[boot loader]
timeout=3
default=C:\
[Operating Systems]
C:\="Microsoft Windows"
multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows NT Workstation
Version 4.00"
multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows NT Workstation
Version 4.00 [VGA mode]" /basevideo /sos
Takhle uz startuji automaticky Win95. Diky za rady, stacilo dat dve z
nich dohromady a chodi to.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
Seriove cislo disku
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 15.9.1999 10:42:20
Nevite, jak zjistit seriove cislo disku?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/TStrings,TStringList, nebo neco jineho?
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 15.9.1999 10:44:46
Od: Karel Vlcek <vlcekk(zv)hotmail.com>> Ahoj
>
> ta chyba je prave v tom, ze predavas ten StringList jako vysledek funkce,
> ale UVNITR te funkce zavolas FREE = ZRUSIS ho.
To je divny. Ja volam Dispeceri.Free. Dispeceri je lokalni promenna fce a
rusim ji az jeji hodnotu predam do Result, protoze jinym zpusobem bych se na
ni uz nedostal a zustala by mi v pameti.Napadlo mi jeste provest
Result:=TStringList.Create; , coz jednou pojelo a pak zase padalo, protoze
jsem nevedel, jak ne vytvoreny Result zavolat Free, coz asi ani nejde.
Podle toho co pises usuzuji, ze do result se preda pouze ukazatel na
Dispeceri a ne StringList vcertne udaju, a proto nesmim volat
Dispeceri.Free. A promenna Dispeceri se v tomto pripade uvolni z pameti sama
po predani hodnoty z fce do ListBox.Items?
> Pokud chces dodrzet tuhle konvenci, aby ta funkce vracela TStringList
> je nutne zavolat FREE az PO Predani do ListBoxu tedy
>
> PomList:= MainForm.NactiDispecery;
> ListBox1.Items.Assign(PomList);
> PomList.Free;
>
> Korektnejsi bych videl predat ListBox1.Items jako parametr do te funkce
tedy
> napr.:
>
> function TMainForm.NactiDispecery(SL:Strings) : boolean;
>
> a plnit ho primo uvnitr teto funkce.
>
> Doufam, ze je to srozumitelne, pokud ne tak se ozvi primo a rozebereme to
> hloubeji.
Jo.Presne Takto jsem to udelal a uz to frci.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
>
> function TMainForm.NactiDispecery:TStringList;
> var IniF:TIniFile;
> Dispeceri:TStringList;
> Pom1,S:String;
> I:Integer;
> begin
> Dispeceri:=TStringList.Create;
> Dispeceri.Clear;
> S:=ExtractFilePath(Application.ExeName)+'Dispecer.INI';
> IniF := TIniFile.Create(S);
> for .....
> begin
> .........
> Pom1:=IniF.ReadString(.........);
> .........
> end;
> IniF.Free;
> Dispeceri.Add(Pom1)
> Result:=Dispeceri; file://zkousel jsem i Result.Assign(Dispeceri); a
> AddStrings
> Dispeceri.Free;
> end;
>
TStrings,TStringList, nebo neco jineho? - podekova
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 15.9.1999 10:47:26
Diky vsem za pomoc a preji hezky den.
Uz to frci.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
----- P�vodn� zpr�va -----
Od: Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 15. z��� 1999 9:34
P�edm�t: RE: TStrings,TStringList, nebo neco jineho?> Tohle podle mne parat musi. Aby to nepadalo, musel bys vyhodit
> Dispeceri.Free (a ponechat Result:=Dispeceri), ale pak by ses o uvolnovani
> musel postarat nekde jinde. Chces-li nutne vracet TStringList z nejake
> funkce, mozna by bylo bezpecnejsi pouzit proceduru:
>
> Procedure TMainForm.NactiDispecery( ADispeceri: TStringList ) ;
>
> a pouzit ji asi takto
>
> var LDispeceri: TDispeceri ;
Nevyznate se nekdo v tom proklatem NetDDE
[*] Pavel Wilczek <pavel.wilczek.gyo(zv)gym-orlova(tec)cz> - 15.9.1999 09:50:01
Caute lidi, pred casem jsem konfu posilal zadost o radu jak pouzivat NetDDE.
Kdosi mi poslal odkazy na par stranek, takze jsem si o tom hodne precetl, ale porad se mi nepodarilo navazat spojeni.
POUZIVAM : DdeClientConv.SetLink('\\<COMPUTERNAME>\NDDE$','server$');
kde server$ je nayev sdileni na host pocitaci, ktery jsem tam vytvoril. System vyvola prihlasovzci dialog, a po prihlaseni se porad nepripoji.
Uz jsem zkousel skoro vsechno, ale porad nic.
NEVITE NEKDO KDE MUZE BYT CHYBA ?
Diky kaydemu, kdo o tom neco vi.
Nevyznate se nekdo v tom proklatem NetDDE
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 15.9.1999 10:50:18
Haj hou!
From: Pavel Wilczek Caute lidi, pred casem jsem konfu posilal zadost o radu jak pouzivat NetDDE.
Kdosi mi poslal odkazy na par stranek, takze jsem si o tom hodne precetl, ale porad se mi nepodarilo navazat spojeni.
S NetDDE ti bohuzel nepomuzu, ale pokud ti muzu poradit, tak se na nej vybodni. Je to davno mrtva technologie kterou nikdo nepouziva. DCOM ji plne nahradil.
Hodne zdaru.
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
On-line
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 15.9.1999 10:52:46
Jak zjistim, je-li uzivatel ON-LINE (pripojen k Internetu)?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Nevyznate se nekdo v tom proklatem NetDDE
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 15.9.1999 10:55:21
Nemel by byt spusten programek NetDDE.exe ?
Mira
----- P�vodn� zpr�va -----
Od: Pavel Wilczek
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 15. z��� 1999 10:50
P�edm�t: Nevyznate se nekdo v tom proklatem NetDDE
Caute lidi, pred casem jsem konfu posilal zadost o radu jak pouzivat NetDDE.
Kdosi mi poslal odkazy na par stranek, takze jsem si o tom hodne precetl, ale porad se mi nepodarilo navazat spojeni. POUZIVAM : DdeClientConv.SetLink('\\<COMPUTERNAME>\NDDE$','server$');
kde server$ je nayev sdileni na host pocitaci, ktery jsem tam vytvoril. System vyvola prihlasovzci dialog, a po prihlaseni se porad nepripoji. Uz jsem zkousel skoro vsechno, ale porad nic.
NEVITE NEKDO KDE MUZE BYT CHYBA ?
Diky kaydemu, kdo o tom neco vi.