Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Blokove tlaciarne
[*] Branislav Zaujec <zaujec(zv)nrsys.sk> - 11.9.2000 14:37:39
Nema niekto skusenosti s tlacenim z Delphi na blokove tlaciarne typu
Epson TM 300, TM 950 ap.
S pozdravom
Zaujec, NRSYS
Delphi a Reload PASu
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 11.9.2000 14:39:54
Tipuji, ze problem bude v rozdilnem nastaveni casu na serveru a na lokalnim
pocitaci, kde je provaden vyvoj projektu.> Pokazde kdyz ulozim uprostred vyvoje projekt (je to ulkladano na
novelackou
> sit 5.1)
> tak behem asi 10s dostanu hlasku ze ...pas byl zmenen a jestli ho chci
znovu
> natahnou
> nevite jak to vypnout ?
>
> TRT
prace s cisly integer (zaokrouhleni)
[*] Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz> - 11.9.2000 14:42:45
co takhle vydelit, zaokrouhlit a vynasobit?
<Masa>
> -----Original Message-----
> From: Milan ��ek [mailto:cizek.milan(zv)seznam(tec)cz]
> Sent: Monday, September 11, 2000 1:58 PM
> To: Delphi konference
> Subject: prace s cisly integer (zaokrouhleni)
>
>
> ahoj, ne ze by to byl nejaky podstatny problem, ale zajma me,
> jestli by to
> neslo vice profesionalne...
>
> Mam cislo ziskane ze SpinEditu, toto cislo potrebuji
> zaokrouhlit na cele
> desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na
> 1230, v pripade
> 6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo
> 1298 na 1300...
> Muzete mi nekdo nastinit alespon nejake prikazy pro praci s
> integer cisly??
>
> osobne me napada jen reseni, ze bych to prevedl na string a pak pomoci
> string[x] porovnaval... Vysledek bych prevedl zpet na integer
> a dosadil do
> SpinEditu.
>
> Existuje nejaky prikaz, typu promena_integer[druhe_cislo]
> jako u stringu??
> Pak bych mohl vzit jen posledni cislo, zjistit, jestli je
> >=5, pokud ano,
> pak pricist x do deseti, pokud ne odecist x do nuly... tak by se mi to
> libilo :)
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
> Zip Master
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 11.9.2000 14:44:00
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj
Mam cestu c:\test\data\123\ram.
Z teto cesty bych potreboval zbalit jen soubory s adresare 123+ Cely adresar RAM
Nevite jak se to da delat..
prace s cisly integer (zaokrouhleni)
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 11.9.2000 14:46:15
Ahoj,
napadame jen jedna vec:
cislo ze SpinEdit vydel 10
pak zaokrouhli funkci round
a zpet vynasob deseti
napr. cislo 1298 vydelist 10 mas 129,8 zaokrouhlis funkci round mas 130
vynasobis 10 mas 1300
pro praci s cisly pouzivam fce:
Round - zaokrouhleni
Trunc - celociselna cas cisla
nebo pouzij postup
1298 / 10
129,8 + 0,5 = 130,3
trunc(130,3) = 130
130*10=1300
Napsal jsem to jen schematicky a z hlavy, vyzkousej a uvidis.
Zdar
Jindrich Nikodem
----- Original Message -----
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
To: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 1:58 PM
Subject: prace s cisly integer (zaokrouhleni)> ahoj, ne ze by to byl nejaky podstatny problem, ale zajma me, jestli by to
> neslo vice profesionalne...
>
> Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
> desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v
pripade
> 6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na
1300...
> Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer
cisly??
>
> osobne me napada jen reseni, ze bych to prevedl na string a pak pomoci
> string[x] porovnaval... Vysledek bych prevedl zpet na integer a dosadil do
> SpinEditu.
>
> Existuje nejaky prikaz, typu promena_integer[druhe_cislo] jako u stringu??
> Pak bych mohl vzit jen posledni cislo, zjistit, jestli je >=5, pokud ano,
> pak pricist x do deseti, pokud ne odecist x do nuly... tak by se mi to
> libilo :)
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>prace s cisly integer (zaokrouhleni)
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 11.9.2000 15:14:33
Napada mne trochu zverstvo,
podelit 10 a pouzit funkci ceil a floor
nasledne opet nasobit. Neni to uplne onono, ale funguje to -narychlo jsem to
spich
J.Vojt.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Milan ��ek
Sent: Monday, September 11, 2000 1:58 PM
To: Delphi konference
Subject: prace s cisly integer (zaokrouhleni)
ahoj, ne ze by to byl nejaky podstatny problem, ale zajma me, jestli by to
neslo vice profesionalne...
Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v pripade
6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na 1300...
Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer cisly??
osobne me napada jen reseni, ze bych to prevedl na string a pak pomoci
string[x] porovnaval... Vysledek bych prevedl zpet na integer a dosadil do
SpinEditu.
Existuje nejaky prikaz, typu promena_integer[druhe_cislo] jako u stringu??
Pak bych mohl vzit jen posledni cislo, zjistit, jestli je >=5, pokud ano,
pak pricist x do deseti, pokud ne odecist x do nuly... tak by se mi to
libilo :)
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
BDE & ODBC
[*] azeleny(zv)csas(tec)cz - 11.9.2000 15:16:50
DDV,
nevite nekdo jak (sample nejlepe...) vytvorit/upravit ODBC datasource na
access databazi vcetne specifikace systemove databaze.
Pouzivam v BDE alias, ktery ukazuje na access databazi, kteremu nastavuji
langdriver (pokud jsem to pochopil, tak BDE udela alias pro ODBC zdroje
automaticky), ale ted jsem byl postaven pred nemiliu vec, ze se mi bude
menit i jmeno mdb souboru a preci jen bych nechtel nutit uzivatele
prejmenovavat databazi (a prejmenovavat ji programove mi neprijde uplne
ciste).
Diky za napady, odkazy a ukazkove zdrojaky :-)
a.
-----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela a.s.
Na Per�t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
-----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely. Sinea Sestavy
[*] Bardon <bardon(zv)ineq-soft(tec)cz> - 11.9.2000 15:20:32
D3, MS SQL 6.5, Sinea 3.3x z unora 2000 (verzi presne neumim poznat)
Mam polozku typu varchar(255), pokud dam promennou vysku tisku, nereaguje (stale tiskne jen prvni radek). Cim to je a jak se to da zmenit?Maska na soubory
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.2000 15:26:48
Ahoj
Potreboval bych implementovat masku na sobory.
Tj mam masku: "*.*" nebo "xx?ee.*" a podobne a jmeno souboru a
potrebuji funkci, ktere, kdyz dam masku a jmeno souboru, tak mi
rekne, zda jmeno souboru odpovida zadane masce. Proste klasika.
Urcite to uz nekdo delal, muzete mi tedy poradit jak na to?
Neexistuje na to nejaka funkce, pripadne nema ji jiz nekdo
udelanou? At nemusim znovu vynalezat kolo.
Diky predem.
P.[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]Ulozeni System.dat
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 11.9.2000 15:38:17
On 11 Sep 2000, at 13:50, Jiri Novacek wrote:
Podivej se na TRegistry.LazyWrite property. Hodnota LazyWrite = False
by mela zapisovat hodnoty do registru okamzite.
Petr Fischer
> Ahoj lidi.
>
> Narazil jsem na nasledujici problem. Provedu zmenu v registru a
> potrebuji zazalohovat soubor system.dat s touto zmenou. Existuje
> nejaka funkce, ktera donuti provest aktualizaci system.dat. Ja to
> resim tak, ze
>
> cekam az dojde ke zmene datumu tohotou souboru, coz nekdy trva treba i
> minutu nebo dve.
>
> Predem dik Jirka
VB do Delphi
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 11.9.2000 15:52:50
Ahoj
nekde na CD jsem mel program, ktery umel prevest zdrojek VB do Delphi, ale
mam to doma. Az prijdu z prace podivam se na to a zitra bych dal vedet.
Nevim, ale do jake miry to program z VB do Delphi umelo prenest.
Zdar
Jindrich Nikodem
----- Original Message -----
From: "Jiri Novacek" <JNovacek(zv)spst(tec)cz>
To: "Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 1:57 PM
Subject: VB do Delphi
> Ahoj lidi.
>
> Jeste jeden dotaz. Existuje nejaka obecna pomucka jak prevest
> VisualBasic do Delphi.
>
> Predem dik Jirka
Vlastni prototyp formulare s pridanymi published v
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 11.9.2000 15:56:29
Zdravim vsechny,
nevi nekdo z Vas jak udelat %subj%. Jde mi o strucny postup nebo nejake
informacni zdroje.
diky predem
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Sinea Sestavy
[*] Bardon <bardon(zv)ineq-soft(tec)cz> - 11.9.2000 16:08:24
D3, MS SQL 6.5, Sinea 3.3x z unora 2000 (verzi presne neumim poznat)
Mam polozku typu varchar(255), pokud dam promennou vysku tisku, nereaguje (stale tiskne jen prvni radek). Cim to je a jak se to da zmenit?Vlastni prototyp formulare s pridanymi published v
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.2000 16:21:25
Ahoj,
jedna z moznosti je tutaj: http://swnet(tec)cz/article.php?id=13467
Slavek
> Zdravim vsechny,
>
> nevi nekdo z Vas jak udelat %subj%. Jde mi o strucny postup nebo nejake
> informacni zdroje.
>
> diky predem
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
>
>
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Sinea Sestavy
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 11.9.2000 16:47:22
From: "Bardon" <bardon(zv)ineq-soft(tec)cz>> D3, MS SQL 6.5, Sinea 3.3x z unora 2000 (verzi presne neumim poznat)
> Mam polozku typu varchar(255), pokud dam promennou vysku tisku,
> nereaguje (stale tiskne jen prvni radek). Cim to je a jak se to da zmenit?
Donedavna bral generator sestav Sinea jako viceradkove polozky
pouze polozky typu ftMemo. Varchar(255) tedy byla jednoducha
jednoradkova polozka a jako takovou ji nebylo mozne tisknout
na vice radku.
Je mozna urcita obchazka pomoci udalosti OnGetDataType
provest pretypovani konkretni polozky na polozku typu Memo,
potom je mozny tisk i takoveto polozky jako polozky viceradkove.
Pocinaje verzi X.39w ze dne 26.7.2000 jiz neni nutne
pouzivat obchazku pres pretypovani polozky.
Od teto verze jiz je mozne u kazde textove polozky,
popisu polozky, parametru, i uzivatelske funkce zvolit,
zda se ma tisknout jako viceradkova polozka.
Podle popisu pravdepodobne pouzivate starsi verzi,
ktera nemela jeste tuto funkcnost dopracovanou.
Pouzivanou verzi zjistite z editoru predloh, pokud
otevrete dialog Nastaveni prostredi na zalozce
O knihovne Sinea.
S pozdravem
Vaclav Krmela
Maska na soubory
[*] Pavel Krehula <pavel(zv)mas(tec)cz> - 11.9.2000 17:25:05
| Ahoj
|
| Potreboval bych implementovat masku na sobory.
| Tj mam masku: "*.*" nebo "xx?ee.*" a podobne a jmeno souboru a
| potrebuji funkci, ktere, kdyz dam masku a jmeno souboru, tak mi
| rekne, zda jmeno souboru odpovida zadane masce. Proste klasika.
| Urcite to uz nekdo delal, muzete mi tedy poradit jak na to?
| Neexistuje na to nejaka funkce, pripadne nema ji jiz nekdo
| udelanou? At nemusim znovu vynalezat kolo.
| Diky predem.
Zdravicko,
viz. funkce MatchesMask z unitu Masks
Pavel
Excel velikost tabulky
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 11.9.2000 17:27:26
Ahoj,
ve VBA je na to prikaz (vyber posledni vyplnenou bunku)
Selection.SpecialCells(xlCellTypeLastCell).Select
### Vojtek Jiri napsal dne 11 Sep 00, v 8:14 :
> Potrebuji v Excelu zjistit rozmery tabulky - neznam presne rozsah
> vyplnenych bunek Momentalne to delam prohledanim vsech bunek a
> zjistovanim, jestli jsou prazdne:( Zda se mi to znacne primitivni a navic
> je to pomale. Tak se ptam zda nekdo nevi jak na to lepe. V helpu VB jsem
> nic nenasel. Jeste jeden problem snazim se nacist cely sloupec tabulky. Ve
> VB to jde jak to zkusim pres Delphi tak mi to hodi na hlavu:) Za kazdou
> radu predem diky. J. Vojt.
>
>
--
-----------------------------------------------
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
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
StayOnTop okno
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 11.9.2000 17:29:19
Mel jsem s tim obdobne potize, ktere resilo korektni nastavovani vlastniku
oken (parametr konstruktoru Create). Pokud ma okno, ktere je otevirano z
dialogu a ne zhlavniho okna aplikace nastaveno jako vlastnika ten dialog
(musi se v nem tedy vytvaret) melo by to byt OK.
Ondrej Malecek
----- Original Message -----
From: "Tomas Bradle" <t.bradle(zv)pvtnet(tec)cz>
To: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 2:27 PM
Subject: StayOnTop okno
> Zdravim vsechny,
>
> nevi z Vas nekdo proc je okno stylu fsStayOnTop porad "On top", i kdyz
> aplikace uz neni aktivni. To se stane pouze tehdy, kdyz to fsStayOnTop
okno
> otevru z modalniho okna, kdyz z hlavniho okna aplikace, tak je vse OK.
> Nevite nekdo jak by se to dalo nejak jednoduse (treba jenom nastavenim
> nejakych parametru) zaridit, aby to fsStayOnTop okno nebylo nahore, kdyz
se
> prepnu do jine aplikace.
>
> predem diky
>
> Tomas
> t.bradle(zv)pvtnet(tec)cz
>
>
>
Vlastni prototyp formulare s pridanymi published v
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 11.9.2000 17:35:05
Takovy formular je potreba nejdrive zaregistrovat:
uses DsgnIntf;
procedure Register;
begin
RegisterCustomModule(TCustomPropertyForm, TCustomModule);
end;
a pak vlozit do design-time package a je to.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Tomas Bradle
> Sent: Monday, September 11, 2000 3:56 PM
> To: Delphi Konference
> Subject: Vlastni prototyp formulare s pridanymi published vlastnostmi
>
>
> Zdravim vsechny,
>
> nevi nekdo z Vas jak udelat %subj%. Jde mi o strucny postup nebo nejake
> informacni zdroje.
>
> diky predem
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
>
>
>Vlastni prototyp formulare s pridanymi published v
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 11.9.2000 18:15:57
On 11 Sep 2000, at 16:21, Slavek Rydval wrote:
Jenze po zdedeni formulare porad nejsou videt zadne PUBLISHED
PROPERTY, ktere si v predkovi nadefinujes (a o to tu zrejme pude).
Nejsem si jist, ale na http://www.eagle-software.com/ se da stahnout
balik SuperForms a ten by neco takoveho mel umoznovat.
Petr Fischer
> Ahoj,
>
> jedna z moznosti je tutaj: http://swnet(tec)cz/article.php?id=13467
>
> Slavek
>
> > Zdravim vsechny,
> >
> > nevi nekdo z Vas jak udelat %subj%. Jde mi o strucny postup nebo
> > nejake informacni zdroje.
> >
> > diky predem
> >
> > Tomas Bradle
> > t.bradle(zv)pvtnet(tec)cz
> >
> >
> >
>
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
Volani vzdaleneho COM objektu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.9.2000 18:43:33
On 11 Sep 2000, at 12:47, Petr Fischer wrote:
> A pise to chybu "Interface not Supported" nebo porad "Access denied"?
Podle nastaveni v dcomcnfg.
> Me se NIKDY nepodarilo vytvorit obekt pres DCOM v tomto tvaru
> (nejspise tvuj zpusob volani):
>
> Serv := CoMojeTrida.CreateRemote(<nazev_poce>);
>
> kde Serv je TMojeTrida. TMojeTrida a CoMojeTrida je z *TLB.pas
> souboru, kterej se sam generuje.
>
> Vzdycky sem COM objekt musel vytvorit takto:
>
> Serv := IMojeTrida(CreateComObject(CLASS_MojeTrida) as IDispatch);
>
> kde Serv je VARIANT! Tento zpusob volani (s Variantem) je urcen
HEUREKA!!!! Mas u me pusu! ... Mno, hmm, vlastne ne-e. :-)
Akorat ze je treba volat CreateRemoteComObject.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ztratila se mi ikona
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 11.9.2000 18:44:16
Parada, dikes, je to tak, zase o dalsi vec chytrejsi..
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> From: "-=Ivomir=-" <Ivomir(zv)seznam(tec)cz>
> > Chci nastavit ikonu aplikace (project/options/application) kterou bude mit
> .exe soubor
> > a vono najednou je to neaktivni vlastnost proc nevite?
>
> Ahoj,
>
> nevytratil se ti z projektoveho souboru (.DPR) radek:
>
> {$R *.RES}
RESTART
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 11.9.2000 19:02:50
Skusim to jeste jednou. Nevite proc mi moje app. nedovoluje restartovat windozy (95,98)
a vzdy pri snaze o restartovani mi skoci zpet do windows. Jakmile app. ukoncim killnutim pak
uz je vse ok. (Nevadi tomu, ze mam app. SW_HIDE a jeste zneviditelnou v taskmanageru?)
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Popis .ICO a .CUR
[*] Martin Zlomek <josef.zlomek(zv)email(tec)cz> - 11.9.2000 22:00:08
Mam jeden dobry help (1000ff ver 3.0), v nemz je popis .ico a
nekolika dalsich formatu. Bohuzel v nem neni popis .cur.
Ma velikost cca 140K, takze mate-li zajem, napiste mi.
Martin Zlomek
martin.zlomek(zv)email(tec)cz
Kratka cesta k souboru
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 11.9.2000 22:56:39
Prijemny den,
D4 Standard, W95 OSR2.
Mam dnes takovy maly problemek. Potrebuji zkratit cestu k souboru, ale ne
zpusobem C:\Progra~1\.
Chtel bych cestu zkracovat takto:
Puvodni:
C:\Program files\Muj program.exe
Zkracena:
C:\..\Muj program.exe
Aby tam proste zustal zacatek s diskem a konec, celkova delka by pak nemela
presahnout nejakou hodnotu. Vim, ze na to jsou hotove komponenty, ale me by
zajimalo, jestli na to je treba primo v Delphi funkce.
Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
Seriove cislo HDD
[*] Radek Lev� - 12.9.2000 06:21:22
Zdravim,
poradi prosim nekdo, jak zjistit ser. cislo HDD ?
Diky
Radek
Jak na informace z EXE, DLL ... ?
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 12.9.2000 06:24:14
Zdravim,
lidi, nevite nekdo, jak dostat z exacu, dll atd. informace, ktere tam byvaji
(obcas) ulozeny (jmeno aplikace, autor, verze atd.). Koukal jsem do konfery,
ale nasel jsem jen zjisteni verze programu. Potreboval bych i ty ostatni
veci (delam katalogizer).
Pokud nekdo vice nejake API funkce, prosim sem s nimi. Nechci zadne
komponenty - leda free se zdrojakama.
Diky
Petr
Sender
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 12.9.2000 06:27:54
Zdravim,
proc nelze pouzit nasledujici konstrukci? Prekladac se brani tomu druhemu
radku v tele procedury.
var
o1:TClass;
I:Integer;
begin
o1:=Source.ClassType;
I:=(Source as temp1).Top;
end;==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
OnMouseMove pro TDBGrid
[*] J. Ha�ek - 12.9.2000 07:06:18
Pros�m o radu pro za��te�n�ka.
U TDBGrid pot�ebuji pou��t ud�lost OnMouseMove, kter� nen� public (alespo� u D4) a je deklarov�na u TControl. Mohu si ji n�jak zp��stupnit.
D�ky J.Ha�ek
Variant array
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 12.9.2000 07:20:30
Ahoj,
ja to zkousim jeste jednou.
To tady neni nikdo, kdo by vedel neco o tom, jak pristupovat k poli
variantu.
Opakui situaci jako odpoved na dotaz dostanu Variant array of variant. A
pres to, ze podle Delf to jde nacitat pomoci indexu, ja nejsem schopen to z
nej dostat. Dokonce ani do dalsiho variantu a vzdycky koncim na chybe
spatneho prevodu variant typu.
Prosim prosim pomoc:-))))
Diky J. Vojt.Excel velikost tabulky
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 12.9.2000 07:28:06
Dekuji za pomoc,
ale bohuzel bud delam neco spatne, nebo se proti mne bouri stroje. Pokud
pouziju nize uvedeny prikaz zahlasi mi kompilator
[Error] Excelsvr.pas(242): Missing operator or semicolon
a ukazuje za Selection - to je prave ten problem ktery se mi nepodarilo
rozlousknout
V kazdem pripade diky.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Zdenek Drvota
Sent: Monday, September 11, 2000 5:27 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Excel velikost tabulky
Ahoj,
ve VBA je na to prikaz (vyber posledni vyplnenou bunku)
Selection.SpecialCells(xlCellTypeLastCell).Select
### Vojtek Jiri napsal dne 11 Sep 00, v 8:14 :
> Potrebuji v Excelu zjistit rozmery tabulky - neznam presne rozsah
> vyplnenych bunek Momentalne to delam prohledanim vsech bunek a
> zjistovanim, jestli jsou prazdne:( Zda se mi to znacne primitivni a navic
> je to pomale. Tak se ptam zda nekdo nevi jak na to lepe. V helpu VB jsem
> nic nenasel. Jeste jeden problem snazim se nacist cely sloupec tabulky. Ve
> VB to jde jak to zkusim pres Delphi tak mi to hodi na hlavu:) Za kazdou
> radu predem diky. J. Vojt.
>
>
--
-----------------------------------------------
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
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Oprava -velikost tabulky
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 12.9.2000 07:36:34
Pardon, ty chyby mi to hlasi dve
[Error] Excelsvr.pas(242): Undeclared identifier: 'Selection'
[Error] Excelsvr.pas(242): Missing operator or semicolon
a je to po pouziti
Selection.SpecialCells(xlCellTypeLastCell).Select
J. Vojt.Sender
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.9.2000 07:48:06
----- Original Message -----
From: "Krayzel Libor" <Libor.Krayzel(zv)czech-tv(tec)cz>>Zdravim,
>proc nelze pouzit nasledujici konstrukci? Prekladac se brani tomu druhemu
>radku v tele procedury.>var
> o1:TClass;
> I:Integer;
>
>begin
> o1:=Source.ClassType;
> I:=(Source as temp1).Top;
Pri pretypovani je nutno uvadet tridu, ne jmeno objektu. Melo by tam byt TTemp1. Pokud to tam je, sorry, ale neni to poznat.
>end;
Jan Fiala
Kratka cesta k souboru
[*] Tu�ek Roman (M� Praha 15) - 12.9.2000 07:55:26
jednuducha odpoved
prohledavani retezce na '\' a jeho zkraceni
TRT
> -----P�vodn� zpr�va-----
> Od: Josef Straka [SMTP:strakajosef(zv)seznam(tec)cz]
> Odesl�no: 11. z��� 2000 22:57
> Komu: Delphi
> P�edm�t: Kratka cesta k souboru
>
> Prijemny den,
> D4 Standard, W95 OSR2.
>
> Mam dnes takovy maly problemek. Potrebuji zkratit cestu k souboru, ale ne
> zpusobem C:\Progra~1\.
> Chtel bych cestu zkracovat takto:
> Puvodni:
> C:\Program files\Muj program.exe
> Zkracena:
> C:\..\Muj program.exe
>
> Aby tam proste zustal zacatek s diskem a konec, celkova delka by pak
> nemela
> presahnout nejakou hodnotu. Vim, ze na to jsou hotove komponenty, ale me
> by
> zajimalo, jestli na to je treba primo v Delphi funkce.
>
> Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
> Zacinajici programator Straka Josef
> email: strakaj(zv)hba(tec)czn(tec)cz
> www: http://mujweb(tec)cz/www/strakaj/
>
>
>
>
> Zip/UnZip
[*] sup(zv)svitap(tec)cz - 12.9.2000 8:24:36
>Prosim,
>vi nekdo o free (nejlepe se zdroji) komponente na zip a unzip.
>Nechci ale zadne, ktere pouzivaji dll.
>Uz jsem prosel snad cely net a to co sem nasel mi nevyhovuje.
>
>Petr Smol�k - Trade FIDES a.s.
>psmolik(zv)fides(tec)cz
>
>
----------------------------------------------------------------------------
Podivej se na http://www.micrel(tec)cz/delphi/#jbzip.
Komponenty TZip, TUnZip [D1..D5]
Tyto dva komponenty jsou ur�eny k jednoduch�mu zabalen�/rozbalen� n�kolika
soubor� do arch�vn�ho form�tu ZIP verze 1.1 a umo��uj� pou��t metodu SHRINK
(p�i rozbalen� i metodu EXPLODE). P�vodn�m autorem algoritmu je R. P. Byrne,
kter� p�epsal k�d z CC do Pascalu jako 'bare-bones' program. Zachoval jsem
p�vodn� algoritmus, ale zm�nil jsem v�e, co souviselo s alokac� pam�ti a
pozd�ji jsem p�vodn� funkce obalil do komponent (metody Execute, GetZipList
a ud�losti OnProgress, OnError). Pro pozd�j�� portaci do Win32 jsem
odstranil assemblerov� InLine procedury a nahradil je �ist�m pascalem
(zipov�n� se pon�kud :-( zpomalilo). Posledn� �pravou bylo vlo�en� metody
pro ZipList do komponentu TUnZip, aby se dal sestavit seznam soubor� opravdu
v Zip souboru obsa�en�ch (p�i unzipu neexistuj�c�ho souboru se to ob�as
zaseklo). Do v�sledn�ho EXE souboru se p�ilinkuje cca 22 KB k�du a nen�
pot�eba ��dn�ho DLL �i jin�ho modulu (je to spolehliv� a funk�n�). Pou��v�m
to v instala�n�ch programech a v programech pro nap�. hromadn� importy dat.
Vhodn� je to sp� pro men�� soubory (obvykle tak do cca 50-100 KB).
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Seriove cislo HDD
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 12.9.2000 08:26:36
> poradi prosim nekdo, jak zjistit ser. cislo HDD ?
>
function GetSerialNumber(ADrive: char): longint;
var root,vol: string;
serno,maxlen,flags: DWORD;
begin
Result := 0;
root := ADrive + ':\';
SetLength(vol,199);
if
GetVolumeInformation(PChar(root),PChar(vol),199,(zv)serno,maxlen,flags,nil,0)
then
Result := longint(serno);
end {GetSerialNumber};
Nefunguje to pro HDD pocitacu pripojene siti typu peer-to-peer. Kdo mi
poradi jak to zjistit i v tomto pripade?
Diky
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* cellular : +420 604 23 83 29
* e-mail : cerny(zv)atlascon(tec)cz
* private : cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************prace s cisly integer (zaokrouhleni)
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 12.9.2000 09:07:54
> Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
> desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v
pripade
> 6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na
1300...
> Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer
cisly??
>
Ja pouzivam takovouhle funkci, ktera zaokrouhli cislo X na I mist - mozno
pouzit kladne a zaporne cislo, podle toho kam od desetinne carky chci
zaokrouhlovat:
function _Round(X: Extended; I: Integer): Extended;
const
Ln10 = 2.30258509299404568;
RoundFact=0.49;
var
E: Extended;
begin
E := exp(I*Ln10);
if X < 0 then
Result := Int(X * E-RoundFact) / E
else
Result := Int(X * E+RoundFact) / E;
end;
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: Milan ��ek <cizek.milan(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 1:58 PM
Subject: prace s cisly integer (zaokrouhleni)> ahoj, ne ze by to byl nejaky podstatny problem, ale zajma me, jestli by to
> neslo vice profesionalne...
>
> osobne me napada jen reseni, ze bych to prevedl na string a pak pomoci
> string[x] porovnaval... Vysledek bych prevedl zpet na integer a dosadil do
> SpinEditu.
>
> Existuje nejaky prikaz, typu promena_integer[druhe_cislo] jako u stringu??
> Pak bych mohl vzit jen posledni cislo, zjistit, jestli je >=5, pokud ano,
> pak pricist x do deseti, pokud ne odecist x do nuly... tak by se mi to
> libilo :)
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>Sender
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.9.2000 09:13:18
temp1 je nejaky datovy typ ??? Asi tezko.... :)
Jestli potrebujes zjistit vlastnost Top tak ti staci pretypovat to na
TControl.
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Krayzel Libor
> Sent: Tuesday, September 12, 2000 6:28 AM
> To: '*** Delphi'
> Subject: Sender
>
>
> Zdravim,
>
> proc nelze pouzit nasledujici konstrukci? Prekladac se brani tomu druhemu
> radku v tele procedury.
>
> var
> o1:TClass;
> I:Integer;
>
> begin
> o1:=Source.ClassType;
> I:=(Source as temp1).Top;
> end;
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
Kratka cesta k souboru
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 12.9.2000 09:14:11
Ahoj,
pravdepodobne potrebujes nieco na upravu retazca cesty,
ak jeho dlzka prekroci vymedzeny rozsah (napriklad
pri jeho zobrazovani, ak sa nezmesti do urceneho labelu).
Pozri si funkciu MinimizeName v unite FileCtrl.
Peter
Josef Straka wrote:
>
> Prijemny den,
> D4 Standard, W95 OSR2.
>
> Mam dnes takovy maly problemek. Potrebuji zkratit cestu k souboru, ale ne
> zpusobem C:\Progra~1\.
> Chtel bych cestu zkracovat takto:
> Puvodni:
> C:\Program files\Muj program.exe
> Zkracena:
> C:\..\Muj program.exe
>
> Aby tam proste zustal zacatek s diskem a konec, celkova delka by pak nemela
> presahnout nejakou hodnotu. Vim, ze na to jsou hotove komponenty, ale me by
> zajimalo, jestli na to je treba primo v Delphi funkce.ADOExpres,ADOConnection,Connection broken
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 12.9.2000 09:24:27
Ahoj vsichni
Mam nasledujici problem. V nasi aplikaci v D5 Ent (SP1), aplikacni server,
pouzivam pro pristup k databazi (MS SQL 7.0) komponenty ADOExpres. Vse je na
aplikacnim serveru (MIDAS). Prihlaseni probiha takto:
klient posle jmeno a heslo a to si zapametuju v lok. promene datamodulu na
serveru.
Connection.Connected:=False;
.
.
Connection.Connected:=True;
Jmeno a heslo predam v udalosti OnWillConnect.
Prihlaseni vetsinou projde, ale nekdy nastane chyba : ....Connection Broken.
Nevite nekdo co s tim.
Diky za pripadnou radu
Jaromir Cermak
Seriove cislo HDD
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.9.2000 09:29:01
> > poradi prosim nekdo, jak zjistit ser. cislo HDD ?
> >
>
> function GetSerialNumber(ADrive: char): longint;
> var root,vol: string;
> serno,maxlen,flags: DWORD;
> begin
> Result := 0;
> root := ADrive + ':\';
> SetLength(vol,199);
> if
> GetVolumeInformation(PChar(root),PChar(vol),199,(zv)serno,maxlen,flags,nil,0)
> then
> Result := longint(serno);
> end {GetSerialNumber};
>
> Nefunguje to pro HDD pocitacu pripojene siti typu peer-to-peer. Kdo mi
> poradi jak to zjistit i v tomto pripade?
Obecne to nikdy nepujde - rekl bych ze pouze v malem mnozstvi pripadu bude
sit poskytovat takoveto informace. A pokud ano pak kazda sit pomoci jine API
funckce.
Pokud to potrebujes kvuli 'zabezpeceni' programu pred kopirovanim, pak k
tomu lze rici jen jedno - takoveto ochrany jsou temer k nicemu a jedno maji
spolecne - vic buzeruji (problemy s upgrady PC) toho kdo si zaplatil nez
toho kdo chce program nelegalne pouzivat. Cili je ve vetsine pripadu se na
nejake zabezpeceni uplne vykaslat.
Zdravi
D. Toman
Kratka cesta k souboru
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 12.9.2000 09:45:40
> Chtel bych cestu zkracovat takto:
> Puvodni:
> C:\Program files\Muj program.exe
> Zkracena:
> C:\..\Muj program.exe
V unite FileCtrl (Delphi5) je procedura MinimizeName,
ktera se snazi o neco podobneho.
------------------------------------------------------
Daniel Rott - roxton(zv)volny(tec)cz
http://www.volny(tec)cz/roxton
Some minor bugs/features fixed/added
Mail a prilohy
[*] KINEKUS <kinekus(zv)nextra.sk> - 12.9.2000 09:47:24
Dobry ,
ako vzdy, ked neviem ako dalej aj teraz vas prosim o radu.
Z jednoducheho programu potrebujem poslat mail s prilohou.
Staci, ked sa napaskuje do Outlook-Expres.
Dakujem.
MF-zac.Vytvoreni nove DB za behu programu pomoci ADO
[*] martin.falta(zv)obi.de - 12.9.2000 08:51:55
Ahoj,
mam nasledujici problem.
Pouzivam Adonis komponenty pro pristup k datum a za behu programu si
potrebuji vytvorit protokolovaci databazi.
Existuje nejaky zpusob podobny tomu v DAO?
Predem diky za vsechny napady, prip. ukazky kodu.
Martin
D5Prof, W98, Adonis
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.D5 a ToDo list
[*] Milan ��ek - 12.9.2000 10:10:06
ahoj,
pouzivam todo list v Delphi 5, muj problem je ale v tmo, ze se mi tam vejde
jen nejakejch 14poznamek. Pri vlozeni dalsi se pak postupne prepisuji
predchozi. Nemate nekdo zkusenost?
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Programovanie Hudby
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 12.9.2000 10:12:29
> dakujem Vam, ze ste mi pomohli dostat zo zvukovky nejaky zvuk...
> Ale teraz by som potreboval, ci by ste mi nevedeli pomoct ako sa
programuje hudba.
> Najake linky, web stranky a podobne veci co by mi mohli pomoct.
>
Dobrym zdrojem jsou napr. stranky Yamahy. Doporucuji zejemna XG
problematiku, Sondius, VL syntezu a dalsi hudebne fyzikalni bombonky.
(modelovani zvuku na zaklade znalosti tvaru nastroje a mnoha dalsich
parametru) .
Odkazy tykajici se i "programovani" hudby shromazduje www.audionet(tec)cz.
Frantisek Sevcik
StayOnTop okno
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 12.9.2000 10:17:59
----- Original Message -----
From: Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 5:29 PM
Subject: Re: StayOnTop okno
> Mel jsem s tim obdobne potize, ktere resilo korektni nastavovani vlastniku
> oken (parametr konstruktoru Create). Pokud ma okno, ktere je otevirano z
> dialogu a ne zhlavniho okna aplikace nastaveno jako vlastnika ten dialog
> (musi se v nem tedy vytvaret) melo by to byt OK.
>
> Ondrej Malecek
>
zkousel jsem:
application.createform(TFormxxx, Formxxx);
Formxxx:=TFormxxx.create(TenModalForm);
oboji se stejnym (cili spatnym) vysledkem: prepnu se do jine aplikace a ten
Formxxx je porad nahore a prekazi.
jeste pro informaci:
mam D5, hlavni form je MDI a z nej volam modal form pomoci :
application.createform(TTenModalForm, TenModalForm); {ten je jako
autocreate v *.dpr}
TenModalForm.showmodal; {tohle je v reakci na tla��tko - OnClick}
Tomas
> ----- Original Message -----
> From: "Tomas Bradle" <t.bradle(zv)pvtnet(tec)cz>
> To: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, September 11, 2000 2:27 PM
> Subject: StayOnTop okno
>
>
> > Zdravim vsechny,
> >
> > nevi z Vas nekdo proc je okno stylu fsStayOnTop porad "On top", i kdyz
> > aplikace uz neni aktivni. To se stane pouze tehdy, kdyz to fsStayOnTop
> okno
> > otevru z modalniho okna, kdyz z hlavniho okna aplikace, tak je vse OK.
> > Nevite nekdo jak by se to dalo nejak jednoduse (treba jenom nastavenim
> > nejakych parametru) zaridit, aby to fsStayOnTop okno nebylo nahore, kdyz
> se
> > prepnu do jine aplikace.
Jak na informace z EXE, DLL ... ?
[*] Petr Navr�til <DelphiForum(zv)Dssoft(tec)cz> - 12.9.2000 10:28:02
> Zdravim,
> lidi, nevite nekdo, jak dostat z exacu, dll atd. informace, ktere tam
byvaji
> (obcas) ulozeny (jmeno aplikace, autor, verze atd.). Koukal jsem do
konfery,
> ale nasel jsem jen zjisteni verze programu. Potreboval bych i ty ostatni
> veci (delam katalogizer).
> Pokud nekdo vice nejake API funkce, prosim sem s nimi. Nechci zadne
> komponenty - leda free se zdrojakama.
>
> Diky
> Petr
>
Cau,
ja to delam takto (vybrano z komponety - jestli chces tak ti ji poslu - muj
mail navra.p(zv)volny(tec)cz ):
procedure TVersionInfo.SetFileName(const Value: string);
var
Size, Size2: DWord;
Pt, Pt2: Pointer;
Translation : string;
Trans : DWORD;
begin
FIncludeInfo := False; // indikuje jestli zadany soubor obsahuje
informace o verzi, ....
FFileName := Value;
If Not FileExists( FFileName) then Exit; { soubor tohoto jmena neexistuje,
tak skonci }
Size := GetFileVersionInfoSize ( PChar( FFileName), Size2);
if Size <= 0 then Exit; { soubor zadaneho jmena sice
existuje, ale neobsahuje informace o verzi - skonci}
{ vse je OK, muzu zacit plnit vnitrni promenne }
GetMem (Pt, Size);
try
GetFileVersionInfo (PChar ( FFileName), 0, Size, Pt);
// show the fixed information
VerQueryValue (Pt, '\', Pt2, Size2);
with TVSFixedFileInfo (Pt2^) do
begin
FMajorVersion := IntToStr (HiWord (dwFileVersionMS));
FMinorVersion := IntToStr (LoWord (dwFileVersionMS));
FReleaseVersion := IntToStr (HiWord (dwFileVersionLS));
FBuildVersion := IntToStr (LoWord (dwFileVersionLS));
if (dwFileFlagsMask and dwFileFlags and VS_FF_DEBUG) <> 0 then
FFlagDEBUG := true else FFlagDEBUG := false;
if (dwFileFlagsMask and dwFileFlags and VS_FF_PRERELEASE) <> 0 then
FFlagPRERELEASE := true else FFlagPRERELEASE := false;
if (dwFileFlagsMask and dwFileFlags and VS_FF_PRIVATEBUILD) <> 0
then
FFlagPRIVATEBUILD := true else FFlagPRIVATEBUILD := false;
if (dwFileFlagsMask and dwFileFlags and VS_FF_SPECIALBUILD) <> 0
then
FFlagSPECIALBUILD := true else FFlagSPECIALBUILD :=false;
end;
// jazyk a znakova sada
If VerQueryValue(Pt, '\VarFileInfo\Translation', Pt2, Size2) then
begin
Trans := DWORD( Pt2^);
Translation := IntToHex( LoWord( Trans), 4) +
tToHex( HiWord( Trans), 4);
Size := VerLanguageName( Trans, Pt2, 100);
FLanguage := string( PChar( Pt2));
if Not VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\FileDescription'), Pt2, Size2) then
If (IntToHex( LoWord( Trans), 4) = '0409') and
ntToHex( HiWord( Trans), 4) = '04B0') then Translation := '040904E4';
end;
// dalsi stringy
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\FileDescription'), Pt2, Size2);
FFileDescription := StrPas( PChar (Pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\FileVersion'), Pt2, Size2);
FFileVersion := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\InternalName'), Pt2, Size2);
FInternalName := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\LegalCopyright'), Pt2, Size2);
FLegalCopyright := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\LegalTrademarks'), Pt2, Size2);
FLegalTrademarks := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\ProductName'), Pt2, Size2);
FProductName := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\ProductVersion'), Pt2, Size2);
FProductVersion := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\Comments'), Pt2, Size2);
FComments := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\CompanyName'), Pt2, Size2);
FCompanyName := StrPas( PChar (pt2));
VerQueryValue(Pt, PChar( '\StringFileInfo\' + Translation +
'\OriginalFileName'), Pt2, Size2);
FOriginalFileName := StrPas( PChar (pt2));
FIncludeInfo := true;
finally
FreeMem (Pt);
end;
end;
Petr Navratil,
DS Soft
Sender
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 12.9.2000 10:50:29
> Pri pretypovani je nutno uvadet tridu, ne jmeno objektu. Melo
> by tam byt TTemp1. Pokud to tam je, sorry, ale neni to poznat.
Jezis ja se preklep. Spravne to ma byt takhle:
var
o1:TClass;
I:Integer;
begin
o1:=Source.ClassType;
I:=(Source as o1).Top;
end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
VB a Delphi
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 12.9.2000 11:23:56
Ahoj lidi.
Ptal jsem se na nejaky obecny postup prevodu VB do Delphi. Zatim bez
uspesne a tak to zkusim jinak. Potrebuji pridat do jiz existujici
aplikace nabidku a v teto aplikaci pracovat. Ma zabudovane API funkce a
MacroRecorder - kde je videt jak to udelat ve VB.
predpokladam
Dim v VB je var v delphi
Set je Prikaz prirazeni
ale co dal.
Original
Set app = CreateObject("XX.Application")
app.SetVisible True
muj odhad
app := CreateObject('XX.Application');
app.SetVisible := True;
ale je to spatne. Prosim poradte nebo nasmerujte nekam na priklad na
inetu.
Predem vsem dekuji Jirka
Seriove cislo HDD
[*] martin.falta(zv)obi.de - 12.9.2000 10:25:33
Ahoj,
nekde jsem videl komponentu, ktera dokaze zjistit informace o vsech discich
pripojenych k pocitaci (i sitovych). Tusim,
ze to bylo na Torry nebo DSP.
Martin
---------------------- Weitergeleitet von Martin Falta/OBI/CZ am 12.09.2000
10:33 ---------------------------
Von: vyvoj(zv)atlascon(tec)cz(zv)fwd(tec)cz am 12.09.2000 08:26 OEZ
Bitte antworten an delphi-l(zv)fwd(tec)cz
Gesendet von: owner-delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie:
Thema: Re: Seriove cislo HDD
> poradi prosim nekdo, jak zjistit ser. cislo HDD ?
>
function GetSerialNumber(ADrive: char): longint;
var root,vol: string;
serno,maxlen,flags: DWORD;
begin
Result := 0;
root := ADrive + ':\';
SetLength(vol,199);
if
GetVolumeInformation(PChar(root),PChar(vol),199,(zv)serno,maxlen,flags,nil,0)
then
Result := longint(serno);
end {GetSerialNumber};
Nefunguje to pro HDD pocitacu pripojene siti typu peer-to-peer. Kdo mi
poradi jak to zjistit i v tomto pripade?
Diky
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* cellular : +420 604 23 83 29
* e-mail : cerny(zv)atlascon(tec)cz
* private : cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Seriove cislo HDD
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 12.9.2000 11:55:43
Treba takto:
procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum : pdword;
a, b : dword;
Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b,
nil, 0) then
Label1.Caption := IntToStr(SerialNum^);
end;
(opsano z UDDF)
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Radek Lev� [mailto:lev(zv)cca(tec)cz]
Sent: Tuesday, September 12, 2000 6:21 AM
To: Konference Delphi
Subject: Seriove cislo HDD
Zdravim,
poradi prosim nekdo, jak zjistit ser. cislo HDD ?
Diky
Radek
Seriove cislo HDD
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 12.9.2000 11:58:22
> nekde jsem videl komponentu, ktera dokaze zjistit informace o vsech
discich
> pripojenych k pocitaci (i sitovych). Tusim,
> ze to bylo na Torry nebo DSP.
Nekdy mi nekdo rikal, ze mu nekdo rikal, ze to nekde taky videl a ze to
nekdy fungovalo.
Ted vazne.
Jestli to nekdo opravdu umi, nebo ma komponentu, ktera to opravdu umi,
poslete mi to, prosim, mimo konferenci a budu moc rad.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
Mail a prilohy
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.9.2000 11:58:15
Priklad funkce na odeslani e-mailu s prilohou
function TForm1.Majluj : Boolean;
var
Zprava : MapiMessage;
Prijemce : array [0..1] of MapiRecipDesc;
Soubor : MapiFileDesc;
Vysledek : Cardinal;
Reg : TRegistry;
begin
{ nastavime simple MAPI }
Reg := TRegistry.Create;
try
with Reg do begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows Messaging Subsystem', False)
then WriteString('MAPI', '1');
end;
finally
Reg.CloseKey;
Reg.Free;
end;
{ struktura prijemce }
with Prijemce[0] Do Begin
ulReserved := 0;
ulRecipClass := Mapi_To;
lpszName := PChar('jmeno nebo e-mail prijemce');
lpszAddress := nil;
ulEIDSize := 0;
lpEntryID := nil;
end;
with Prijemce[1] Do Begin
ulReserved := 0;
ulRecipClass := Mapi_CC;
lpszName := PChar('jmeno nebo e-mail kopie');
lpszAddress := nil;
ulEIDSize := 0;
lpEntryID := nil;
end;
{ struktura prilohy }
with Soubor do begin
ulReserved := 0;
flFlags := 0;
nPosition := 0;
lpszPathName := PChar('jmeno souboru s cesou jako priloha');
lpszFileName := nil;
lpFileType := PChar('.typ_souboru');
end;
{ struktura vlastni zpravy }
with Zprava do begin
ulReserved := 0;
lpszSubject := PChar('tady se pise subjekt');
lpszNoteText := PChar('tady patri obsah e-mailu, napr. Memo.Lines.Text');
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
if edMailKopie.Text <> ''
then nRecipCount := 2
else nRecipCount := 1;
lpRecips := (zv)Prijemce;
nFileCount := 1;
lpFiles := (zv)Soubor;
end;
{ pokusime se to odeslat, pokud nema byt dialog, je treba vypustit Mapi_Dialog }
Result := False;
Vysledek := MapiSendMail(0, Application.Handle, Zprava,
Mapi_Dialog or Mapi_LogOn_UI or Mapi_New_Session, 0);
case Vysledek of
Success_Success : Result := True;
Mapi_E_User_Abort : Result := False;
else
Application.MessageBox('Nepoda�ilo se poslat zpr�vu elektronickou po�tou.'
+ #13#13'Pokud pou��v�te Outlook expres, zkontrolujte, zda je nastaven'
+ ' jako v�choz� klient MAPI.' , 'Chyba', mb_OK + mb_IconError);
end;
end;
Jan Fiala
P.S. pokud se nekomu podarilo zprovoznit API nahrazovani jmen za e-mail bez vyvolani dialogu, uvital bych (napr. napisu do prijemce Kamaradi a chci, aby v OExpressu bylo kamos1(zv)iol(tec)cz; kamos2(zv)iol(tec)cz ... Pro jednoho cloveka to myslim jde, ale kdyz tam napisu jmeno skupiny, uz to nechodilo.)
----- Original Message -----
From: "KINEKUS" <kinekus(zv)nextra.sk>> Dobry ,
>
> ako vzdy, ked neviem ako dalej aj teraz vas prosim o radu.
>
> Z jednoducheho programu potrebujem poslat mail s prilohou.
>
> Staci, ked sa napaskuje do Outlook-Expres.
>
> Dakujem.
>
> MF-zac.
>
> Kratka cesta k souboru
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 12.9.2000 11:59:48
O standardni funkci nevim, ale v UDDF jsem nasel tohle:
function shortenfilename(s : string) : string;
var drive,curdrive : string[2];
dir,curdir : string[80];
name : string[20];
ext : string[5];
i : byte;
begin
for i:=1 to length(s) do s[i]:=upcase(s[i]);
s:=fexpand(s);
fsplit(s,dir,name,ext);
drive:=copy(dir,1,2);
dir:=copy(dir,4,length(dir)-3);
getdir(0,curdir);
curdrive:=copy(curdir,1,2);
curdir:=copy(curdir,4,length(curdir)-3)+'\';
if drive=curdrive then begin
if copy(dir,1,length(curdir))=curdir then begin
i:=length(curdir);
if length(dir)<>i then dir:=dir+'\';
shortenfilename:=copy(dir,i+1,length(dir)-i-1)+name+ext;
end else shortenfilename:=copy(s,3,length(s)-2);
end else shortenfilename:=s;
end;
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Tu�ek Roman (M� Praha 15) [mailto:TucekR(zv)p15.mepnet(tec)cz]
Sent: Tuesday, September 12, 2000 7:55 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Kratka cesta k souboru
jednuducha odpoved
prohledavani retezce na '\' a jeho zkraceni
TRT
> -----P�vodn� zpr�va-----
> Od: Josef Straka [SMTP:strakajosef(zv)seznam(tec)cz]
> Odesl�no: 11. z��� 2000 22:57
> Komu: Delphi
> P�edm�t: Kratka cesta k souboru
>
> Prijemny den,
> D4 Standard, W95 OSR2.
>
> Mam dnes takovy maly problemek. Potrebuji zkratit cestu k souboru, ale ne
> zpusobem C:\Progra~1\.
> Chtel bych cestu zkracovat takto:
> Puvodni:
> C:\Program files\Muj program.exe
> Zkracena:
> C:\..\Muj program.exe
>
> Aby tam proste zustal zacatek s diskem a konec, celkova delka by pak
> nemela
> presahnout nejakou hodnotu. Vim, ze na to jsou hotove komponenty, ale me
> by
> zajimalo, jestli na to je treba primo v Delphi funkce.
>
> Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
> Zacinajici programator Straka Josef
> email: strakaj(zv)hba(tec)czn(tec)cz
> www: http://mujweb(tec)cz/www/strakaj/
>
>
>
>
> Sender
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 12.9.2000 12:19:39
Zase spatne
musis napsat TRIDU ne INSTANCI objektu takze misto o1 musi byt TClass.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Krayzel Libor
Sent: Tuesday, September 12, 2000 10:50 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Sender
> Pri pretypovani je nutno uvadet tridu, ne jmeno objektu. Melo
> by tam byt TTemp1. Pokud to tam je, sorry, ale neni to poznat.
Jezis ja se preklep. Spravne to ma byt takhle:
var
o1:TClass;
I:Integer;
begin
o1:=Source.ClassType;
I:=(Source as o1).Top;
end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
Spousteni programu na pozadi
[*] Delphi Konference <delphi(zv)zps.skoda-auto(tec)cz> - 12.9.2000 12:19:54
Diky za nakopnuti. V kombinaci s GetWindowThreadProcessId pro zjisteni
majitele okna vse funguje jak ma...
Jakub Flaska
> -----P�vodn� zpr�va-----
> Od: Grind Crusher [SMTP:Grind_Crusher(zv)DeathsDoor.com]
> Odesl�no: 7. z��� 2000 16:05
> Komu: Delphi konference
> P�edm�t: RE:Spousteni programu na pozadi
>
> Pres GetForegroundWindow() zjistis aktualne aktivni okno ve Windows.
> Potom pres SetForegroundWindow ho zase zaktivujes.
>
> Grind Crusher.
> --------------
> Napsal jsem si program, ktery (krome jineho) kazdou pulhodinu spousti
> cizi aplikaci s SW_HIDE (automaticke zpracovani bankovnich vypisu a
> prikazu pres inet). Vse funguje bez problemu, ale ma to malickou
> nectnost - vzdy, kdyz se program spusti (neni videt, vse se deje na
> pozadi), ztrati aktualni okno (treba neco pisu ve Wordu) focus.
> Jak vratit focus na puvodni okno/aplikaci?
>
> Dekuji za vsechny rady,
> Jakub Flaska
Btrieve
[*] mbartone(zv)Synthesia(tec)cz - 12.9.2000 12:46:42
Ahoj,
mam datove soubory Btrieve s priponou DTA.
Data z toho potrebuji nejak precist a ulozit do MS SQL.
Zkusil jsem si nainstalovat Pervasive SQL 2000 Beta, ale nevim jak se
dostat na data.
Jedine co se mi povedlo je vypsat strukturu souboru.
Nevite nekdo jak data precist (souboru je okolo 30) ? (D3 C/S)
Diky Milan
File Statistics for c:\btrieve\data\podniky.dta
File Version = Prior to version 6.00
Page Size = 1024
Page Preallocation = No
Key Only = No
Extended = No
Total Number of Records = 175
Record Length = 280
Data Compression = No
Variable Records = No
Available Linked Duplicate Keys = 0
Balanced Key = No
Log Key = 0
System Data = No
Total Number of Keys = 2
Total Number of Segments = 2
Key Position Type Null Values* ACS
Segment Length Flags Unique Values
0 1 1 6 Integer M -- 175 --
1 1 7 25 Lstring MD -- 175 0
Alternate Collating Sequence(ACS) List:
0 CESKY
Legend:
< = Descending Order
D = Duplicates Allowed
I = Case Insensitive
M = Modifiable
S = Supplemental Index
A = Any Segment (Manual)
L = All Segments (Null)
* = The values in this column are hexadecimal.
?? = Unknown
-- = Not Specified
Sender
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.9.2000 13:02:48
Ani tohle ti neprojde. V teto kontrukci musi byt nazev tridy a ne promenna.
Pouzij
var
I:Integer;
begin
I:=(Source as TControl).Top;
end;
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Krayzel Libor
> Sent: Tuesday, September 12, 2000 10:50 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Sender
>
>
> > Pri pretypovani je nutno uvadet tridu, ne jmeno objektu. Melo
> > by tam byt TTemp1. Pokud to tam je, sorry, ale neni to poznat.
>
> Jezis ja se preklep. Spravne to ma byt takhle:
>
> var
> o1:TClass;
> I:Integer;
>
> begin
> o1:=Source.ClassType;
> I:=(Source as o1).Top;
> end;
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
OnMouseMove pro TDBGrid
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 12.9.2000 13:03:46
nadeklarujes si
TControlHack = class(TControl);
v te unite kde chces na OnMouseMove (protected) pristupovat
a protoze na protected se v ramci jedne unity dostanes bude
nasledujici zapis ok:
TControlHack(MyDBGrid).OnMouseMove := ...
Tomas Bihary
----- Original Message -----
From: J. Ha�ek
To: Delphi Konference
Sent: Tuesday, September 12, 2000 7:06 AM
Subject: OnMouseMove pro TDBGrid
Pros�m o radu pro za��te�n�ka.
U TDBGrid pot�ebuji pou��t ud�lost OnMouseMove, kter� nen� public (alespo� u
D4) a je deklarov�na u TControl. Mohu si ji n�jak zp��stupnit.
D�ky J.Ha�ek
RESTART
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 12.9.2000 13:04:51
On 11 Sep 2000, at 19:02, -=Ivomir=- wrote:
> Skusim to jeste jednou. Nevite proc mi moje app. nedovoluje
> restartovat windozy (95,98) a vzdy pri snaze o restartovani mi skoci
> zpet do windows. Jakmile app. ukoncim killnutim pak uz je vse ok.
> (Nevadi tomu, ze mam app. SW_HIDE a jeste zneviditelnou v
> taskmanageru?)
>
Pokud hlavni formular aplikace nereaguje na zavreni, chova se to
presne jak pises. Ma ta tvoje vec vubec hlavni form? Jestli jo, neni
neco v OnCloseQuery?
Petr Fischer
D5 a ToDo list
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 12.9.2000 13:09:19
On 12 Sep 2000, at 10:10, Milan � ek wrote:
ToDo list co je v Delphi (5) mi pride jako prasarna, ktera tam byla
nabastlena za 5 minut 12. Me se chova uplne celej chaoticky, nekdy
pridani polozky uplne ignoruje atakpodobne.
> ahoj,
> pouzivam todo list v Delphi 5, muj problem je ale v tmo, ze se mi tam
> vejde jen nejakejch 14poznamek. Pri vlozeni dalsi se pak postupne
> prepisuji predchozi. Nemate nekdo zkusenost?
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
VB a Delphi
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 12.9.2000 13:14:23
----- Original Message -----
From: "Jiri Novacek" <JNovacek(zv)spst(tec)cz>
To: "Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 11:23 AM
Subject: VB a Delphi
> Ahoj lidi.
>
> Ptal jsem se na nejaky obecny postup prevodu VB do Delphi. Zatim bez
> uspesne a tak to zkusim jinak. Potrebuji pridat do jiz existujici
> aplikace nabidku a v teto aplikaci pracovat. Ma zabudovane API funkce a
> MacroRecorder - kde je videt jak to udelat ve VB.
>
> predpokladam
> Dim v VB je var v delphi
> Set je Prikaz prirazeni
>
> ale co dal.
> Original
> Set app = CreateObject("XX.Application")
> app.SetVisible True
spise takhle
app.SetVisible (True);
>
> muj odhad
> app := CreateObject('XX.Application');
> app.SetVisible := True;
>
> ale je to spatne. Prosim poradte nebo nasmerujte nekam na priklad na
> inetu.
>
> Predem vsem dekuji Jirka
Variant array
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 12.9.2000 13:19:25
On 12 Sep 2000, at 7:20, Vojtek Jiri wrote:
> Ahoj,
> ja to zkousim jeste jednou.
> To tady neni nikdo, kdo by vedel neco o tom, jak pristupovat k poli
> variantu. Opakui situaci jako odpoved na dotaz dostanu Variant array
> of variant. A pres to, ze podle Delf to jde nacitat pomoci indexu, ja
> nejsem schopen to z nej dostat. Dokonce ani do dalsiho variantu a
> vzdycky koncim na chybe spatneho prevodu variant typu. Prosim prosim
> pomoc:-)))) Diky J. Vojt.
Ja vetsinou kdyz mam Variant v kterym je pole a treba vim, ze to pole
je dvourozmerny tak takhle:
V: Variant; // v tom je to pole
ar: array of array of Variant;
...
ar := V;
...
"ar" je delfacky dyn. pole a delas s nim pak normalne jak ses
zvyklej...
Akorat pred prirazenim (ar := V) se musi kontrolovat, jestli
VarType(V) <> varNull, protoze kdyz je Variant NULL tak to prirazeni
spadne...
Snad to nejak pomuze, Petr Fischer
Mail a prilohy
[*] Eda FILIP��K���~)b�Ȥ��^{�3 - 12.9.2000 13:21:17
Zdrav�m,
v D5, FastNet, NMSMTP.
----- Original Message -----
From: KINEKUS <kinekus(zv)nextra.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 9:47 AM
Subject: Mail a prilohy
> Dobry ,
>
> ako vzdy, ked neviem ako dalej aj teraz vas prosim o radu.
>
> Z jednoducheho programu potrebujem poslat mail s prilohou.
>
> Staci, ked sa napaskuje do Outlook-Expres.
>
> Dakujem.
>
> MF-zac.
>
>
Interbase na Linuxe
[*] Iko <iko(zv)kamarad(tec)cz> - 12.9.2000 13:38:22
zdravim...
prosim, poradte...na linuxe mi bezi server IB6. ked sa nan napajam
lokalne cez qli, tak bezi v pohode. ale nemozem sa napojit z delphi.
ako mam nastavit alias? ako dam cestu k tej databazi?
diky...
iko
iko(zv)kamarad(tec)cz
Jak na informace z EXE, DLL ... ?
[*] zhasil <radek.zhasil(zv)vitkovice(tec)cz> - 12.9.2000 13:53:04
Nejak takhle ?
type
TFileInfo = array [0..iFileInfoCount-1] of string;
function fGetFileInfo(iFile:string;var iFInfo:TFileInfo):boolean;
var
i, iSize,iLen : UINT;
iPom : integer;
iVer : PChar;
iInfo: Pointer;
const
iArrInfo : array [0..11] of string = ('Comments',
'CompanyName',
'FileDescription',
'FileVersion',
'InternalName',
'LegalCopyright',
'LegalTrademarks',
'OriginalFileName',
'PrivateBuild',
'ProductName',
'ProductVersion',
'SpecialBuild');
begin
Result := true;
iSize := GetFileVersionInfoSize(PChar(iFile),i);
iVer := StrAlloc(iSize);
GetFileVersionInfo(PChar(iFile),0,iSize,iVer);
for iPom := 0 to High(iArrInfo)-1 do
begin
VerQueryValue(iVer,PChar('\\StringFileInfo\040504E2\\'+iArrInfo[iPom]),iInfo,iLen);
iFInfo[iPom] := PChar(iInfo);
end;
StrDispose(iVer);
end;
Ahoj
e-mail: radek.zhasil(zv)seznam(tec)cz
http://www.mujweb(tec)cz/pocitace/radek.zhasil/
tel.c.: 069/674 33 62 (069/292 8421)
mobil : 0604 539 827
-----Puvodni zprava-----
Od: Daoa Petr [SMTP:Petr.Dana(zv)pvt(tec)cz]
Odeslano: 12. zaoi 2000 6:24
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Jak na informace z EXE, DLL ... ?
Zdravim,
lidi, nevite nekdo, jak dostat z exacu, dll atd. informace, ktere tam byvaji
(obcas) ulozeny (jmeno aplikace, autor, verze atd.). Koukal jsem do konfery,
ale nasel jsem jen zjisteni verze programu. Potreboval bych i ty ostatni
veci (delam katalogizer).
Pokud nekdo vice nejake API funkce, prosim sem s nimi. Nechci zadne
komponenty - leda free se zdrojakama.
Diky
Petr
Btrieve
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 12.9.2000 14:08:20
> Ahoj,
>
> mam datove soubory Btrieve s priponou DTA.
> Data z toho potrebuji nejak precist a ulozit do MS SQL.
> Zkusil jsem si nainstalovat Pervasive SQL 2000 Beta, ale nevim jak se
> dostat na data.
> Jedine co se mi povedlo je vypsat strukturu souboru.
Soubory Btrive neobsahuji popis polozek ve vete, ale pouze data jako pole
bajtu.
Jestli nemas popis vet, tak z toho dostanes nejvys retezce. Jestli jsou data
provazana nejakymi ID, tak toho dohromady moc nedas. V tom vypisu je
statistika
souboru, nikoli struktura :-(
>
> Nevite nekdo jak data precist (souboru je okolo 30) ? (D3 C/S)
Mas nekolik moznosti:
1) Export do textu
V adresari bin\dos je butil.exe. To je jednoducha utilita, ktera ti vysype
obsah btrieve
souboru do "textoveho" souboru. Co s tim pak udelas, zalezi na tobe.
2) Doplnit soubory popisem
V Pervasive.SQL Control Center je wizard pro doplneni popisu souboru a
polozek
k existujicim souborum. V Control Centru dej vytvorit databazi a pomoci
Wizarda na vytvareni tabulek si dogeneruj k datovym souborum jejich popisy.
Pak muzes k datum pres SQL dotazy. Ma to ale nekolik hacku:
A) jestli v datech autori pouzili real z pascalu, jsi vedle jak ta jedle
B) carodej je dost nahly - rad pada, nerad se vraci zpatky atd. Vubec
vypada jako
prvni nastrel a ne hotova aplikace.
C) i kdyz znas popis vet v souborech, neni to zadna svanda.
Nam se tim nepodarilo popsat ani soubory vlastni aplkace :-/, hlavne kvuli
A!
3) Napsat si v delphi procedury pro pristup k souborum a vykoumat obsah
souboru.
Procedury i s prikladem jsou soucasti distribuce, nebo ti je muzu poslat.
Maji jednu spicovou
vlastnost - nechodi na NT.
Preji prijemnou zabavu :-)
Michal Kus
Vyskakujici okno D5
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ep 2000 13:29:01
Zdravim, obcas se mi stane (asi tak 3* do hodiny v zavislosti na programovacim
usili), ze vyskoci jeste jedno okno Delfinu se zalozkami souboru, obvykle pri
preskakovani kursorovymi klavesami, nebo stisk enter, a pomalu mne to zacina
lezt na nervy, nevite nekdo, prosim, jak se toho zbavit. NT4 D5. Diky.
M&B
Uvolnenie instancie DCOM objektu
[*] J�n Grman <janog(zv)pluto.elf.stuba.sk> - 12.9.2000 14:31:06
Ahoj.
Takze naozaj nikto nic take nerobil a nic o tom nevie (vid. dole) ?
Ako teda riesite problem so serverom (poskytovatelom COM interface) v
pripade ked napriklad na pocitaci klientskeho programu (pouzivajucom
instanciu COM objektu) vypadne prud alebo sa klientska aplikacia ci OS
jednoducho zruti ?
Nechavate to tak ? Konekcia sem, konekcia tam ?
Skusal som pozerat do zdrojakov a helpu k TRemoteDataModule, TComObject,
TComObjectFactory, TComClassManager, ale je to tam tak divne poprepletane ze
som z toho jelen (unity comobj, comserv).
Poradi mi niekto ?
JaNo.
> D5-C/S.
> Mam aplikaciu ktora poskytuje COM object. Ten COM object je definovany v
> DELPHI pomocou triedy TRemoteDataModule.
> Pouzivam: Instancing - ciMultiInstance a ThreadingModel = tmFree.
> Teda kazdy klient sa napaja na COM/DCOM object ktory bezi v samostatnom
> Threade (vlakne).
>
> Problem:
> Ked spadne napriklad vypadkom el. vzdialeny klientsky pocitac, potreboval
by
> som uvolnit konekciu ktora zostala na tejto serverovskej aplikacii (zombie
> COM object) !
Zaokrouhleni v lokalnim SQL
[*] Ing. Petr Ondra <petr.ondra(zv)erm(tec)cz> - 12.9.2000 14:33:33
Vi nekdo jak provest zaokrouhleny vypocet v lokalnim SQL prikazu ?Sender
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.9.2000 14:36:43
Jenze kdyz tam napise TClass tak nezjisti vlastnost Top. Takze jsi cely ten
kod spatne pochopil. Jeho vyznam byl trosicku jiny.
Milan Tomes
> Zase spatne
> musis napsat TRIDU ne INSTANCI objektu takze misto o1 musi byt TClass.
> > Pri pretypovani je nutno uvadet tridu, ne jmeno objektu. Melo
> > by tam byt TTemp1. Pokud to tam je, sorry, ale neni to poznat.
>
> Jezis ja se preklep. Spravne to ma byt takhle:
>
> var
> o1:TClass;
> I:Integer;
>
> begin
> o1:=Source.ClassType;
> I:=(Source as o1).Top;
> end;Variant array
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 12.9.2000 14:52:47
Ahoj zkusil bych asi takhle nejak:
var
Arr,
Vari: OleVariant;
I: Integer;
begin
...
if VarIsArray(Arr) then
for I := VarArrayLowBound(Arr, 1) to VarArrayHighBound(Arr, 1) do
begin
Vari := Arr[I];
... ///tady pracuj uz Vari
end;
...
end;
Problem muze byt taky v tom ze to pole ziskas z Excelu (jestli jsem to dobre
pochytil) a pouzivas Variant a ne OleVariant
Tomas Bihary
----- Original Message -----
From: "Vojtek Jiri" <j_vojtek(zv)del(tec)cz>
To: "Delphi prispevky" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 7:20 AM
Subject: Variant array
> Ahoj,
> ja to zkousim jeste jednou.
> To tady neni nikdo, kdo by vedel neco o tom, jak pristupovat k poli
> variantu.
> Opakui situaci jako odpoved na dotaz dostanu Variant array of variant. A
> pres to, ze podle Delf to jde nacitat pomoci indexu, ja nejsem schopen to
z
> nej dostat. Dokonce ani do dalsiho variantu a vzdycky koncim na chybe
> spatneho prevodu variant typu.
> Prosim prosim pomoc:-))))
> Diky J. Vojt.Sender
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 12.9.2000 14:57:57
Jeste poznamecku:
kdysi kdesi jsem cetl, ze konstrukce
I:= TControl(Source).Top;
vede k o dost rychlejsimu kodu nez tato:
I:=(Source as TControl).Top;
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Milan Tome�
> Sent: Tuesday, September 12, 2000 1:03 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Sender
>
>
> Ani tohle ti neprojde. V teto kontrukci musi byt nazev tridy a ne
> promenna.
> Pouzij
> var
> I:Integer;
>
> begin
> I:=(Source as TControl).Top;
> end;
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Krayzel Libor
> > Sent: Tuesday, September 12, 2000 10:50 AM
> > To: 'delphi-l(zv)fwd(tec)cz'
> > Subject: RE: Sender
> >
> >
> > > Pri pretypovani je nutno uvadet tridu, ne jmeno objektu. Melo
> > > by tam byt TTemp1. Pokud to tam je, sorry, ale neni to poznat.
> >
> > Jezis ja se preklep. Spravne to ma byt takhle:
> >
> > var
> > o1:TClass;
> > I:Integer;
> >
> > begin
> > o1:=Source.ClassType;
> > I:=(Source as o1).Top;
> > end;
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
>Access
[*] Daniel Sichta <dano(zv)customweb.sk> - 12.9.2000 15:03:23
W98, D5 E
Zdravim
Mam v Access databazu a v nej zopar tabuliek. Je nejaka moznost ako v Delphi
zistim strukturu hociktorej tabulky?
Potrebujem vysledok v tvare sql scriptu
napr:
Create table skuska ( id autoincrement primary key, s1
text...........................)
Dakujem
Ing. Daniel �ichta
CUSTOM.web s.r.o.
Hod�ova 13
01001 �ilina, SLOVAKIA
www.customweb.sk
dano(zv)customweb.sk
ICQ: 84700861
Interbase na Linuxe
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 12.9.2000 15:26:04
Do aliasu dej:
<ipcko_nebo_nazev_poce>:<cesta_k_db>
Treba:
alex.bestsoft(tec)cz:/usr/interbase/database/data.gdb
nebo jen:
alex:/usr/interbase/database/data.gdb
> zdravim...
>
> prosim, poradte...na linuxe mi bezi server IB6. ked sa nan napajam
> lokalne cez qli, tak bezi v pohode. ale nemozem sa napojit z delphi.
> ako mam nastavit alias? ako dam cestu k tej databazi?
>
> diky...
>
> iko
> iko(zv)kamarad(tec)cz
Seriove cislo HDD
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.9.2000 15:51:12
> > nekde jsem videl komponentu, ktera dokaze zjistit informace o vsech
> discich
> > pripojenych k pocitaci (i sitovych). Tusim,
> > ze to bylo na Torry nebo DSP.
>
> Nekdy mi nekdo rikal, ze mu nekdo rikal, ze to nekde taky videl a ze to
> nekdy fungovalo.
>
> Ted vazne.
> Jestli to nekdo opravdu umi, nebo ma komponentu, ktera to opravdu umi,
> poslete mi to, prosim, mimo konferenci a budu moc rad.
>
Nikdy jsem to nepotreboval ani nezkousel ale tohle (mimo jineho) vypadlo z
msdn.microsoft.com po dotazu na
hard disc serial number
--
Win32_LogicalDisk - The Win32_LogicalDisk WMI class represents a data
source that resolves to an actual local storage device on a Win32 system.
(http://msdn.microsoft.com/library/psdk/wmisdk/clascomp_43vv.htm)
obsahuje dost detailu o disku vcetne serioveho cisla - jestli je to obecne
pouzitelne v libovolnych windows netusim
Zdravi
D. Toman
D5 a ToDo list
[*] Daniel Schmidt <danson(zv)atlas(tec)cz> - 12.9.2000 15:57:54
Ahoj,
chvilu som to pouzival (D5 Pro), ale potom mi to cele nejako zblblo. Neviem
kolko tam bolo poloziek (mohlo ich byt tak nejako), ale odvtedy som to
nechal tak.
Tusim sa mi tiez stale dokolecka prepisovala posledna.
Daniel Schmidt
> ahoj,
> pouzivam todo list v Delphi 5, muj problem je ale v tmo, ze se
> mi tam vejde
> jen nejakejch 14poznamek. Pri vlozeni dalsi se pak postupne prepisuji
> predchozi. Nemate nekdo zkusenost?
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Zaokrouhleni v lokalnim SQL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.9.2000 16:03:57
ahoj,
zkus:
CAST(polozka AS INTEGER)
nebo
CAST(polozka AS NUMERIC(8,0))
nebo
nejak podobne, proste to pretypovat...
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> Vi nekdo jak provest zaokrouhleny vypocet v lokalnim SQL prikazu ?Uvolnenie instancie DCOM objektu
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 12.9.2000 16:47:01
Zdravim,
ja to sice nemam TRemoteDataModule, ale DCOM poskytujici data jinymi
cestami - ten server je ziskava pres ADO (ADOExpress) - transfer pres
OleVariant, atd...
Mam model tmApartment a kdyz mi nejaky klient spadne, DCOM napojeni se
prerusi, tak se po nejakem case (uz presne nevim, kdy) samo uvolni. Poznam
to v TaskManageru - snizi se pocet vlaken na proces, takze to zkus
vysledovat timto zpusobem, eventuelne zkus zmeni model na APartment...
Tomas
----- Original Message -----
From: J�n Grman <janog(zv)pluto.elf.stuba.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 2:31 PM
Subject: Re: Uvolnenie instancie DCOM objektu
> Ahoj.
> Takze naozaj nikto nic take nerobil a nic o tom nevie (vid. dole) ?
> Ako teda riesite problem so serverom (poskytovatelom COM interface) v
> pripade ked napriklad na pocitaci klientskeho programu (pouzivajucom
> instanciu COM objektu) vypadne prud alebo sa klientska aplikacia ci OS
> jednoducho zruti ?
> Nechavate to tak ? Konekcia sem, konekcia tam ?
>
> Skusal som pozerat do zdrojakov a helpu k TRemoteDataModule, TComObject,
> TComObjectFactory, TComClassManager, ale je to tam tak divne poprepletane
ze
> som z toho jelen (unity comobj, comserv).
>
> Poradi mi niekto ?
>
> JaNo.
>
> > D5-C/S.
> > Mam aplikaciu ktora poskytuje COM object. Ten COM object je definovany v
> > DELPHI pomocou triedy TRemoteDataModule.
> > Pouzivam: Instancing - ciMultiInstance a ThreadingModel = tmFree.
> > Teda kazdy klient sa napaja na COM/DCOM object ktory bezi v samostatnom
> > Threade (vlakne).
> >
> > Problem:
> > Ked spadne napriklad vypadkom el. vzdialeny klientsky pocitac,
potreboval
> by
> > som uvolnit konekciu ktora zostala na tejto serverovskej aplikacii
(zombie
> > COM object) !
>
>
Vyskakujici okno D5
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 12.9.2000 17:29:47
To myslis jako New Edit Window z nabidky View ? Vysleduj po jake
posloupnosti klaves to dela.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 2:29 PM
Subject: Vyskakujici okno D5
> Zdravim, obcas se mi stane (asi tak 3* do hodiny v zavislosti na
programovacim
> usili), ze vyskoci jeste jedno okno Delfinu se zalozkami souboru, obvykle
pri
> preskakovani kursorovymi klavesami, nebo stisk enter, a pomalu mne to
zacina
> lezt na nervy, nevite nekdo, prosim, jak se toho zbavit. NT4 D5. Diky.
>
Sender
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 12.9.2000 17:44:41
> Jeste poznamecku:
> kdysi kdesi jsem cetl, ze konstrukce
>
> I:= TControl(Source).Top;
>
> vede k o dost rychlejsimu kodu nez tato:
>
> I:=(Source as TControl).Top;
K rychlejsimu, ale nebezpecnejsimu.
Pokud pouzijes AS, pri spatnem pretypovani
ti to maximalne vyhodi chybovou hlasku.
Pokud to pretypujes natvrdo a spatne, spadne
to buhvikde, buhvikdy a buhvijak.
Radim
>
> Keep mailing :-)
> =======================
> Hynek Svato�
> svatos(zv)kam(tec)czu(tec)cz
> hynek.svatos(zv)atlas(tec)cz
> =======================
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Milan Tome�
> > Sent: Tuesday, September 12, 2000 1:03 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: RE: Sender
> >
> >
> > Ani tohle ti neprojde. V teto kontrukci musi byt nazev tridy a ne
> > promenna.
> > Pouzij
> > var
> > I:Integer;
> >
> > begin
> > I:=(Source as TControl).Top;
> > end;
> >
> > > -----Original Message-----
> > > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > > Krayzel Libor
> > > Sent: Tuesday, September 12, 2000 10:50 AM
> > > To: 'delphi-l(zv)fwd(tec)cz'
> > > Subject: RE: Sender
> > >
> > >
> > > > Pri pretypovani je nutno uvadet tridu, ne jmeno objektu. Melo
> > > > by tam byt TTemp1. Pokud to tam je, sorry, ale neni to poznat.
> > >
> > > Jezis ja se preklep. Spravne to ma byt takhle:
> > >
> > > var
> > > o1:TClass;
> > > I:Integer;
> > >
> > > begin
> > > o1:=Source.ClassType;
> > > I:=(Source as o1).Top;
> > > end;
> > > ---
> > > Odchoz� zpr�va neobsahuje viry.
> > > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > > Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
> >Vytvoreni nove DB za behu programu pomoci ADO
[*] Erik Salaj <winsoft(zv)napri.sk> - 12.9.2000 17:50:17
> Pouzivam Adonis komponenty pro pristup k datum a za behu programu si
> potrebuji vytvorit protokolovaci databazi.
> Existuje nejaky zpusob podobny tomu v DAO?
Zalezi na tom, aku databazu pouzivas. Jedna z moznosti je napr. ADOX,
priklad je na http://www.cybermagic.co.nz/winsoft/adofaq.htm#Q23
Erik Salaj, WINSOFT
INSERT INTO v Access databazi
[*] martin.falta(zv)obi.de - 12.9.2000 18:46:30
Ahoj,
mam nasledujici problem. Mam aplikaci, ktera pristupuje k Access 2000
databazi (velka asi 26 MB) pres ADO. Kdyz napisu tohle
INSERT INTO user_hwgr (user, hwgr, pwd) VALUES ('test', 110, 'test') dostanu vzdycky
chybu syntaxe v prikazu INSERT INTO. Nejspis delam neco blbe ja, ale uz tam opravdu nic nevidim.
Diky za kazde nakopnuti.
Martin
D5Prof SP1, Win98, Access2000, Adonis
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Seriove cislo HDD
[*] martin.falta(zv)obi.de - 12.9.2000 19:03:15
Ahoj,
ukecal jsi me, tak tady je link.
http://delphi.icm.edu.pl/ftp/d20free/DiskInfo.zip
Martin
---------------------- Weitergeleitet von Martin Falta/OBI/CZ am 12.09.2000
19:11 ---------------------------
Von: vyvoj(zv)atlascon(tec)cz(zv)fwd(tec)cz am 12.09.2000 11:58 OEZ
Bitte antworten an delphi-l(zv)fwd(tec)cz
Gesendet von: owner-delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie:
Thema: Re: Seriove cislo HDD
> nekde jsem videl komponentu, ktera dokaze zjistit informace o vsech
discich
> pripojenych k pocitaci (i sitovych). Tusim,
> ze to bylo na Torry nebo DSP.
Nekdy mi nekdo rikal, ze mu nekdo rikal, ze to nekde taky videl a ze to
nekdy fungovalo.
Ted vazne.
Jestli to nekdo opravdu umi, nebo ma komponentu, ktera to opravdu umi,
poslete mi to, prosim, mimo konferenci a budu moc rad.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Jak na informace z EXE, DLL ... ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.2000 22:18:33
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> lidi, nevite nekdo, jak dostat z exacu, dll atd. informace, ktere tam byvaji
> (obcas) ulozeny (jmeno aplikace, autor, verze atd.). Koukal jsem do konfery,
Ahoj,
ackoli se to zda jako trivialni uloha (pomoci nekolika API funkci), tak je to
relativne slozite. V JCL (http://delphi-jedi.org/Jedi:CODELIBJCL) mas tridu
TJclFileVersionInfo, ale ani ta nefunguje na 100% pripadu. Microsoft v tom
ma totiz trochu zmatek, ty uvedene API funkce vyzaduji zadat presne jazykovou
verzi (Translation). Obcas se ale tato hodnota neshoduje s tou ktera je pak v
StringFileInfo. Prave pisu kod, ktery rozebira version info primo na binarni
urovni cimz se vyulouci vliv techto problemu a zaroven tak ziskas seznam vsech
hodnot ve version info aniz se na ne musis dotazovat a znat pri tom jmeno dane
polozky.
Petr Vones, amatersky programator
Mail a prilohy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.2000 23:03:29
From: "KINEKUS" <kinekus(zv)nextra.sk>
> Z jednoducheho programu potrebujem poslat mail s prilohou.
> Staci, ked sa napaskuje do Outlook-Expres.
Ahoj,
Tady (http://www.geocities.com/beckmi/jvcl.htm) v baliku JediVclPv najdes
i komponentu TJvMail vcetne demo aplikace. Alternativni download i tady:
http://www.volweb(tec)cz/pvones/download/JediVCLpv.zip
Petr Vones, amatersky programator
IB: Ako zoradit ?
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 13.9.2000 00:14:13
Zdravim
Mam "Select Prijem+Vydaj,Prijem,Vydaj from Tabulka order by 1"
ale ja nepotrebujem vidiet ten stlpec Prijem+Vydaj, ja to potrebujem len tak
zoradit.
Dakujem.
IB6.
Roland
D5 a ToDo list
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 13.9.2000 00:32:04
Co keby ste pouzivali Gexperts a problem by bol vyrieseny. To funguje OK.
Stiahni www.gexperts.org , dufam ze je adresa spravna.
Roland.
----- Original Message -----
From: "Petr Fischer" <fifa(zv)praguesoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 1:09 PM
Subject: Re: D5 a ToDo list
> On 12 Sep 2000, at 10:10, Milan � ek wrote:
>
> ToDo list co je v Delphi (5) mi pride jako prasarna, ktera tam byla
> nabastlena za 5 minut 12. Me se chova uplne celej chaoticky, nekdy
> pridani polozky uplne ignoruje atakpodobne.
>
> > ahoj,
> > pouzivam todo list v Delphi 5, muj problem je ale v tmo, ze se mi tam
> > vejde jen nejakejch 14poznamek. Pri vlozeni dalsi se pak postupne
> > prepisuji predchozi. Nemate nekdo zkusenost?
> >
> > S pozdravem Milan Cizek, amatersky programator, D5 Ent
> > Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
> >
>
>Varime s registry
[*] Tom� Vlad�k <tom.vladik(zv)swadvice(tec)cz> - 13.9.2000 07:14:36
Ahoj,
v D3 jsem pouzival k praci s registry zhruba takovy postup:
// *****
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey(MyKey, false) then begin
// neco delam
CloseKey;
end
finally
Free;
end;
// *****
V D5 jsem ale musel, aby to fungovalo i pro uzivatele, kteri nejsou
Administrator pridat nastaveni:
Access := KEY_READ or KEY_WRITE;
Jinac to pro ty NE-administratory vyhazovalo vyjimku. Da se to resit i
jinak???
Tom
Interbase na Linuxe
[*] Miroslav Hostinsk� <miroslav.hostinsky(zv)worldonline(tec)cz> - 13.9.2000 07:15:04
Cau, ja se pripojuji takto:
SERVER NAME
192.168.0.100:/home/pavel/DATABASE.GDB
S pozdravem
Hostinsky Miroslav
----- Original Message -----
From: "Iko" <iko(zv)kamarad(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 1:38 PM
Subject: Interbase na Linuxe
> zdravim...
>
> prosim, poradte...na linuxe mi bezi server IB6. ked sa nan napajam
> lokalne cez qli, tak bezi v pohode. ale nemozem sa napojit z delphi.
> ako mam nastavit alias? ako dam cestu k tej databazi?
>
> diky...
>
> iko
> iko(zv)kamarad(tec)cz
> Seriove cislo HDD
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 13.9.2000 07:19:32
> Win32_LogicalDisk - The Win32_LogicalDisk WMI class represents a data
> source that resolves to an actual local storage device on a Win32 system.
>
> (http://msdn.microsoft.com/library/psdk/wmisdk/clascomp_43vv.htm)
>
> obsahuje dost detailu o disku vcetne serioveho cisla - jestli je to obecne
> pouzitelne v libovolnych windows netusim
Dobra trefa. Seriove cislo tam skutecne je. Ale je to jenom pro lokalni
disky a ja jsem od pocatku potreboval zjistit seriove cislo disku
pripojeneho po siti peer-to-peer.
Josef Cerny
ADOExpres,ADOConnection,Connection broken
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 13.9.2000 07:34:28
Ahoj vsichni
Jeste jednou prosim poradte.
Cim muze byt zpusobena chyba Connection Broken popsana dale. Problem nastava
na aplikacnim serveru, takze chyba muze nastat diky soubehu ruznych akci.
Zajimalo by me jak ji zamezit.
Mam nasledujici problem. V nasi aplikaci v D5 Ent (SP1), aplikacni server,
pouzivam pro pristup k databazi (MS SQL 7.0) komponenty ADOExpres. Vse je na
aplikacnim serveru (MIDAS). Prihlaseni probiha takto:
klient posle jmeno a heslo a to si zapametuju v lok. promene datamodulu na
serveru.
Connection.Connected:=False;
.
.
Connection.Connected:=True;
Jmeno a heslo predam v udalosti OnWillConnect.
Prihlaseni vetsinou projde, ale nekdy nastane chyba : ....Connection Broken.
Nevite nekdo co s tim.
Diky za pripadnou radu
Jaromir Cermak
Ako zoradit ?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.9.2000 07:57:15
ahoj,
imho by melo fungovat:
"Select Prijem, Vydaj from Tabulka order by (Prijem+Vydaj)"
! neodzkouseno...
dekuji
peca
> Zdravim
> Mam "Select Prijem+Vydaj,Prijem,Vydaj from Tabulka order by 1"
> ale ja nepotrebujem vidiet ten stlpec Prijem+Vydaj, ja to
> potrebujem len tak
> zoradit.
> Dakujem. Roland
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
ozncenie polozky v ListBoxe za behu
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 13.9.2000 07:59:37
Ahoj,
vie niekto ako urobit programovo %subj% ?
D5
Dakujem, Marian
ip komunikace
[*] Pavel �imek <kejchal(zv)volny(tec)cz> - 13.9.2000 08:02:06
Zdravim vsechny delfiny,
mam dva PC spojene pres protokol IP. potrebuji v D3 nabidnout par dat i tomu
druhemu pecku. Jde o jakesi predavani kratkych stringu. Poradite nekdo?
S pozdravem Pavel
Vyskakujici okno D5
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ep 2000 07:22:14
Jo, to je presne ono, nikdy jsem to jeste nepotreboval. Kdyz to sleduji, nebo
se to snazim vyvolat, tak nikdy nevyskoci. Obvykle nez to nastane mackam kurzo
rovky, ENTER, SHIFT a CTRL v dost rychlem sledu, ale kdo ne? :-)
M&B
>>> MUS.TC."SMTP: Tomas Bradle#t.bradle(zv)pvtnet(tec)cz" 09/12 7:11 >>>
To myslis jako New Edit Window z nabidky View ? Vysleduj po jake
posloupnosti klaves to dela.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 2:29 PM
Subject: Vyskakujici okno D5
> Zdravim, obcas se mi stane (asi tak 3* do hodiny v zavislosti na
programovacim
> usili), ze vyskoci jeste jedno okno Delfinu se zalozkami souboru, obvykle
pri
> preskakovani kursorovymi klavesami, nebo stisk enter, a pomalu mne to
zacina
> lezt na nervy, nevite nekdo, prosim, jak se toho zbavit. NT4 D5. Diky.
>
INSERT INTO v Access databazi
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 13.9.2000 08:28:08
Urcite jsi zkousel tento SQL insert primo v Accessu, nebo ne ?
Pokud ano a fungoval, tak ja si myslim, ze problem by mohl byt s nazvem
fieldu USER. To je vetsinou povazovane jako klicove slovo v SQL
(aktualne prihlaseny uzivatel). Skus prejmenovat tento field.
BTW: Me se vzdycky vyplatilo pojmenovavat sloupce timto zpusobem:
prvni dva znaky identifikuji tabulku, pak je _ a pak samotny nazev fieldu:
tabulka user_hwgr => field UH_USER
Petr
-----Original Message-----
From: martin.falta(zv)obi.de [mailto:martin.falta(zv)obi.de]
Sent: Tuesday, September 12, 2000 7:47 PM
To: delphi-l(zv)fwd(tec)cz
Subject: INSERT INTO v Access databazi
Ahoj,
mam nasledujici problem. Mam aplikaci, ktera pristupuje k Access 2000
databazi (velka asi 26 MB) pres ADO. Kdyz napisu tohle
INSERT INTO user_hwgr (user, hwgr, pwd) VALUES ('test', 110, 'test') dostanu
vzdycky
chybu syntaxe v prikazu INSERT INTO. Nejspis delam neco blbe ja, ale uz tam
opravdu nic nevidim.
Diky za kazde nakopnuti.
Martin
D5Prof SP1, Win98, Access2000, Adonis
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.ADOExpres,ADOConnection,Connection broken
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 13.9.2000 08:42:40
Ahoj vsichni
Jeste jednou prosim poradte.
Cim muze byt zpusobena chyba Connection Broken popsana dale. Problem nastava
na aplikacnim serveru, takze chyba muze nastat diky soubehu ruznych akci.
Zajimalo by me jak ji zamezit.
Mam nasledujici problem. V nasi aplikaci v D5 Ent (SP1), aplikacni server,
pouzivam pro pristup k databazi (MS SQL 7.0) komponenty ADOExpres. Vse je na
aplikacnim serveru (MIDAS). Prihlaseni probiha takto:
klient posle jmeno a heslo a to si zapametuju v lok. promene datamodulu na
serveru.
Connection.Connected:=False;
.
.
Connection.Connected:=True;
Jmeno a heslo predam v udalosti OnWillConnect.
Prihlaseni vetsinou projde, ale nekdy nastane chyba : ....Connection Broken.
Nevite nekdo co s tim.
Diky za pripadnou radu
Jaromir Cermak
DatabaseName
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 13.9.2000 09:19:42
D5 + W2000 + BDE Informix Native driver.
Pristupuju k databaze Informix pres TDatabase objekt, do ktereho priradim
uz preddefionovany AliasName (ktery pouziva BDE Informix native driver).
Nevite nekdo jak pak zjistit skutecne jmeno databazy?
Petr
Seriove cislo HDD
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 13.9.2000 09:22:38
Zdravim,
> ukecal jsi me, tak tady je link.
> http://delphi.icm.edu.pl/ftp/d20free/DiskInfo.zip
Neukecal jsi me. Vyhral jsem sampus.
'Error reading disk parameters.' tuto hlasku jsem dostal, kdyz jsem chtel
zjistit to co od pocatku chci - cislo disku pripojeho po siti peer-to-peer.
Pro lokalni disky to umim uz davno a nepotrebuji stahovat komponenty.
Kdo opravdu umi zjistit seriove cislo HDD pro disky pripojene po siti
peer-to-peer?
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
ozncenie polozky v ListBoxe za behu
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 13.9.2000 09:26:20
Ahoj
staci nastavit property Selected na true, napr.
ListBox1.Selected[5] := true;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: ozncenie polozky v ListBoxe za behu
>
>
> Ahoj,
>
> vie niekto ako urobit programovo %subj% ?
> D5
>
>
> Dakujem, Marian
>
>
>
Property
[*] Lauko �tefan <lauko(zv)salamon.sk> - 13.9.2000 09:28:24
Dobry den,
je mozne zistit za behu programu nazvy property triedy a podla nazvu sa na
ne odvolat?
Tak isto typ. Nieco ako object inspector.
Dakujem.
Zaokrouhleni v lokalnim SQL
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 13.9.2000 09:29:21
> ahoj,
> zkus:
> CAST(polozka AS INTEGER)
> nebo
> CAST(polozka AS NUMERIC(8,0))
> nebo
> nejak podobne, proste to pretypovat...
A co funkce ROUND(polozka, pocet_mist)
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
VB a Delphi
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 13.9.2000 09:31:33
> Original
> Set app = CreateObject("XX.Application")
> app.SetVisible True
Toto je ve VB volani procedury, takze odpovidajici
zapis v Delphi bude asi app.SetVisible(True);
>
> muj odhad
> app := CreateObject('XX.Application');
> app.SetVisible := True;
s pozdravem Otakar Milink Dalsi vyskakujici okno D5
[*] Jiri Kral <admin(zv)printo(tec)cz> - 13.9.2000 09:39:56
...a jeste jedno samovyhrezavaci okno
postup:
D5, NT4+SP6, CZ keydriver
-zmacknu klavesu "=" coz je ta hacko-carkova pro CZ, nestane se nic
-prepnu klavesnici LALT+LSHIFT na US
-zmacknu klavesu "=", napise se kyzene "=" a vyhrezne nezvane okno
Search/Replace, jako bych zmackl CTRL+R, cehoz jsem dalek
ma nekdo vysvetleni teto nezadouci automatiky?
reseni je jasne, (naucit se psat) ;-), ale proc to xakru dela ????
Jirka
Seriove cislo HDD
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.9.2000 09:43:16
> > Win32_LogicalDisk - The Win32_LogicalDisk WMI class represents a data
> > source that resolves to an actual local storage device on a Win32
system.
> >
> > (http://msdn.microsoft.com/library/psdk/wmisdk/clascomp_43vv.htm)
> >
> > obsahuje dost detailu o disku vcetne serioveho cisla - jestli je to
obecne
> > pouzitelne v libovolnych windows netusim
>
> Dobra trefa. Seriove cislo tam skutecne je. Ale je to jenom pro lokalni
> disky a ja jsem od pocatku potreboval zjistit seriove cislo disku
> pripojeneho po siti peer-to-peer.
>
Zkousel jsi to? V popisu je:
Volume serial number of the LOGICAL disk. Constraints: Maximum 11 characters
a z dalsiho popisu vyplyva ze ta funkce umi i sitove disky...
Zdravi
D. Toman
ip komunikace
[*] azeleny(zv)csas(tec)cz - 13.9.2000 09:54:10
Zkuste synapsi viz:
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP
Library
pro dane pouziti je idealni.
a.
> mam dva PC spojene pres protokol IP. potrebuji v D3 nabidnout
> par dat i tomu
> druhemu pecku. Jde o jakesi predavani kratkych stringu.
> Poradite nekdo?
>
> S pozdravem Pavel
> Programove spuseni IB6
[*] azeleny(zv)csas(tec)cz - 13.9.2000 09:56:24
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
DDV,
pokud se bavime o IB na WinNT, tak doporucuji pouzit fuknce service control
manageru a delat to spustenim servisu. (Lze implementovat jiz od D2).
a.
-----Original Message-----
From: Pavel Bare� [mailto:bares(zv)atoll(tec)cz]
Sent: Thursday, August 31, 2000 3:41 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Programove spuseni IB6
Nevite nekdo jak programove spustit IB6 20
Mne jde IB6 spustit pouze prez IB Manager v ovladacich panelech.
U IB5 slo spustit primo EXE
dekuji za radu
Pavel Bares
ozncenie polozky v ListBoxe za behu
[*] Ren� Otisk - 13.9.2000 09:58:13
Hi,
TListBox ma vlastnost ItemIndex. Tam priradis bud cislo nebo pomoci IndexOf
si najdes polozku...
Sroub
> Ahoj,
>
> vie niekto ako urobit programovo %subj% ?
> D5
>
>
> Dakujem, Marian
>Game Port
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 13.9.2000 10:00:00
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj
Nemate nekdo nejake info o komunikaci pres game port
komponenty, ci nejake URL
Predem dik
Pouzitie 1Class a InfoPower
[*] Karol Zaic <zaic_karol(zv)novitech.sk> - 13.9.2000 10:24:21
Zdravim Delphinov!
Ma niekto z Vas pozitivne skusenosti s balikmi InfoPower2000 a
1Class2000.
Mne sa po skompilovani demo projektov zdaju vysledne exe neumerne
velke(radovo MB).
Dakujem vopred za odozvu.
Karol Zaic
ICQ
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 13.9.2000 10:49:08
Ahojda lidickove, potreboval bych opet (jak jinak nez) poradit. Zajimalo
by me jak v Delphine nejakym zpusobem komunikovat s ICQckem. V podstate
by mi stacilo zjistovani, zda je negdo online nebo ne. (Vim, ze se to da
zjistit pres nejakej skript na ICQ.COM, ale zkouset porovnavat 2 GIFy...
To nejni moc inteligentni reseni.) Jinak by se mi samozrejme libila
nejaka kompletnejsi komponenta, ktera by umela i treba posilat a
prijimat zpravy, atd... Zkousel sem neco hledat a nasel sem jenom
prepsany .H fajly do unity k ICQ DLLkum, ale bez veskery dokumentace,
takze mi to moc nepomohlo...
Predem dik za vsechny informace.
--
Martin Pesava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| http://www.volny(tec)cz/jimx - Neoficialni stranka MISS |
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/
Kde je chyba
[*] Tu�ek Roman (M� Praha 15) - 13.9.2000 11:14:09
mam AVI player
a pri resize formu pouzivam
MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
ale pokud ho resiznu tak to cele spadne
vyvola to obrazovku s strojakem a tradaaa bum
toto se dej pod win2000.... TRT
Dalsi vyskakujici okno D5
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ep 2000 10:21:37
Ze by se z Borlandu opicili po microsoftich tajnych zkratkach, bohuzel u W97 v
yskoci aspon Pinball. :-)
Podarilo se mi zjistit jak vyskocilo okno new edit view, kontrola kodu Ctrl+F9
, a pak doubleclick na kurzorovou klavesu se sipkou nahoru, bohuzel pri opetov
nem pokusu nic. Asi jsem pred tim jeste nejak inteligentne zmenil kod. :-)
M&B
>>> MUS.TC."SMTP: Jiri Kral#admin(zv)printo(tec)cz" 09/13 10:02 >>>
...a jeste jedno samovyhrezavaci okno
postup:
D5, NT4+SP6, CZ keydriver
-zmacknu klavesu "=" coz je ta hacko-carkova pro CZ, nestane se nic
-prepnu klavesnici LALT+LSHIFT na US
-zmacknu klavesu "=", napise se kyzene "=" a vyhrezne nezvane okno
Search/Replace, jako bych zmackl CTRL+R, cehoz jsem dalek
ma nekdo vysvetleni teto nezadouci automatiky?
reseni je jasne, (naucit se psat) ;-), ale proc to xakru dela ????
Jirka
Interbase na Linuxe
[*] Iko <iko(zv)kamarad(tec)cz> - 13.9.2000 11:43:14
zdravim...
Skusal som aj to, ale stale mi vyhadzuje chybu:
Unable to complete network request to host "10.0.0.1".
Failed to locate host machine.
Undefined service gds_db/tcp.
aj som skusal davat nazov pocitaca, aj som ten nazov zapisal do
hosts.sam aj do hosts na linuxe... co robim zle?
> Cau, ja se pripojuji takto:
>
> SERVER NAME
> 192.168.0.100:/home/pavel/DATABASE.GDB
>
> S pozdravem
> Hostinsky Miroslav
iko
iko(zv)kamarad(tec)cz
Destroy formulare
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 13.9.2000 11:50:11
Ahoj,
mam nasledujici situaci - formular vytvoreny pomoci Application.CreateForm - je to prvni (a jedine vytvareni pomoci teto fce, tedy je povazovan za hlavni). Po ukonceni aplikace se mi vsak formular automaticky neuvolnuje (nevola destroy mojich komponent ani udalost OnFormDestroy) - zatimco v jinych projektech ano. Nevite co to muze zpusobit? Hlavni telo programu prikladam dole.
V udalosti OnClose formulare prirazuji Action na caFree.
Dik Honza +
(*** TELO .DPR SOUBORU ***)
begin
Application.Initialize;
{$IFDEF DEBUG}
NxStartDebug;
{$ENDIF}
Application.Title := 'Nastaven� tisku ob�lek';
wLogin := TwLogin.Create(nil);
while true do
begin
if wLogin.ShowModal <> mrOk then break;
if wLogin.eLogin.Text <> 'surad' then
begin
MessageDlg('Tento program mus� b�t p�ihl�en pod u�ivatelem "surad".',
mtWarning, [mbOk], 0);
wLogin.eLogin.Text := 'surad';
wLogin.eHeslo.Text := '';
continue;
end;
try
obBase := TobBase.CreateConnect(
wLogin.eLogin.text,wLogin.eHeslo.text,
TAgendy.Create([agSposta],agSposta),
TVirtStatus.Create,TObProgress.Create
);
Application.CreateForm(TwNastaveniTisku, wNastaveniTisku);
Application.Run;
FreeAndNil(wNastaveniTisku); // toto jsem musel pridat, aby se hlavni formular uvolnil
FreeAndNil(obBase);
except
on e : EUserException do e.ZobrazDialog;
end;
break;
end;
FreeAndNil(wLogin);
{$IFDEF DEBUG}
NxEndDebug;
{$ENDIF}
end.
Game Port
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 13.9.2000 11:52:31
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Zkus komponentu DelphiX ta se zabyva pomerne komplexne vsim co se tyka her.
Tady je link www.yks.ne.jp/~hori/index-e.htm
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Bednar��k Dalibor
Sent: Wednesday, September 13, 2000 10:00 AM
To: forum
Subject: Game Port
Ahoj
Nemate nekdo nejake info o komunikaci pres game port
komponenty, ci nejake URL
Predem dik
Detekce screenSaveru
[*] Milan ��ek - 13.9.2000 12:13:52
ahoj, nevim si rady s nasledujicim:
potrebuji zjistit, zdali je nastaven nejaky screensaver nebo nikoli. Jak?
Zkousel sem to takle:
var b : bool;
if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, (zv)b, 0) = true then
JENASTAVEN else NENI;
ale funguje to nejak random. Dik
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Interbase a ceske trideni
[*] Zden�k Sedl�k <zsedlak(zv)atlas(tec)cz> - 13.9.2000 12:19:47
Ahoj, mam Interbase 6. Vcera jsem dlouho badal, jak tridit cesky i podle
ch. Vsiml jsem si, ze se tady asi dvakrat objevil dotaz na toto tema.
Bohuzel v obou bylo napsano, ze to nejde. Mne se vcera nakonec podarilo
vse nastavit tak, aby to tridilo spravne cesky i ch....
Pouzil jsem pri definici sloupce v tabulce Character Set DOS852 a
COLLATE DB_CSY. Jen v tomto jednom pripade mi IB6 tridila spravne cesky.
Muzete to prosim take nekdo vyzkouset.
Diky
Zdenda
Uvolnenie instancie DCOM objektu
[*] J�n Grman <janog(zv)pluto.elf.stuba.sk> - 13.9.2000 12:44:52
Ahoj.
OK. Pochopil som.
Model Apartment pouzit nechcem z tychto dovodov:
umoznuje sice spustat instancie roznych COM objektov v samostatnych
vlaknach, ale instancie rovnakeho COM rozhrania serializuje, no a pretoze u
mna ide o povedzme X instancii (X klientov) rovnakeho COM rozhrania je to
dost nesikovne !
Priklad: ak niekto spusti hladanie ktore trva radovo 2min (co sa pri
komplikovanejsim dotaze stat moze, aj viac) a na inom klientovi sa niekto
pokusa vlozit jediny zaznam (povedzme operacia < 1s) ma smolu, caka nez sa
ukonci hladanie toho predchadzajuceho.
Tvoja odpoved vsak u mna vyvolava viac otazok ako odpovedi.
Teda
Podla toho co sa zobrazuje v TaskManagere tomu vobec nerozumiem,
presnejsie povedane je jasne ze cislo Threads nehovori o pocte COM objektov
ktore su pripojene. Ak spustim aplikaciu SERVER.EXE objavi sa pri nej cislo
4 (preco 4 neviem !!! = slucka sprav + obsluha COM objekti ?). Ak spustim
klienta KLIENT.EXE, cislo sa zvysi na 6, potom klesne na 5 a ked dlhsie nic
nerobim v programe klesne az na 4.
Vysvetlenie je jednoduche, kazde volanie metody COM objektu sa realizuje
vzdy v inom novom vlakne (svedci o tom aj hodnota GetCurrentThreadID ktora
sa meni). To ze to cislo vzrastie o 2 si vysvetlujem tym ze okrem volanie
metody COM objektu som spustil dialog ktory pouziva TClientDataSet na
pristup k datam jednej tabulky a zobrazuje ich do GRIDU a predpokladam ze
opat v samostatnom vlakne !
Teda zda sa ze s uvolnovanim Threadov problem nie je !
Problem je s korekntym uvolnenim DATOVYCH STRUKTUR ktore pri tomto spojeni
vznikaju.
Pri korektnom uzavreti klientskeho programu je vsetko v poriadku, v opacnom
pripade sa problem prejavi az pri ukoncovani aplikacie SERVERA.
Zda sa, ze uvolnenie struktury typu TXXX_DataServer =
class(TRemoteDataModule, IXXX_DataServer) v ktorej su vsetky
TDataSetProvider objekty a v ktorej su definovane a implementovane vsetky
zverejnene vlastnosti a metody COM objektu nestaci !
Co teda este treba urobit ?
Nikto nerobi s tymto typom COM objektov ? A ak ANO, ako to riesite ?
Vdaka.
JaNo.
----- Original Message -----
From: "Tomas Bradle" <t.bradle(zv)pvtnet(tec)cz>> ja to sice nemam TRemoteDataModule, ale DCOM poskytujici data jinymi
> cestami - ten server je ziskava pres ADO (ADOExpress) - transfer pres
> OleVariant, atd...
>
> Mam model tmApartment a kdyz mi nejaky klient spadne, DCOM napojeni se
> prerusi, tak se po nejakem case (uz presne nevim, kdy) samo uvolni. Poznam
> to v TaskManageru - snizi se pocet vlaken na proces, takze to zkus
> vysledovat timto zpusobem, eventuelne zkus zmeni model na APartment...
Interbase a SQL Dialect
[*] Zden�k Sedl�k <zsedlak(zv)atlas(tec)cz> - 13.9.2000 12:53:00
Ahoj,
mam otazku k IB6. Poradte jaky Dialect pouzivat. Pri definici databaze
muzu vybrat SQL Dialect 1 nebo 3. Pokud pouziju 1 pak IB neumi datove
typy jako Date Time apod. Nuti mi jen TimeStamp. Pokud pouziju SQL
Dialect 3, pak umi daleko vice typu ale zase se na to nedostanu pomoci
BDE. Poradte jak nejlepe konfigurovat IB. Potrebuji pouzivat standardni
datove typy tedy CHAR, VARCHAR, TIME, DATE, DATETIME (TIMESTAMP),
INTEGER, DECIMAL, TEXT (BLOB). Rad bych aplikaci pripravil v Delphi5.
Potrebuji si stahnout nekde (a kde?) nejaky update k BDE nebo Delphim
komponentam. Dekuji za jakekoli namety a rady.
zdenda
Property
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 13.9.2000 12:56:07
Jo neco takoveho samozrejme jde. Jenom na Torry v oblasti VCL - tools - run
time, je alespon 7 takovych run-time Object inspectoru.
Pavel
----- Original Message -----
From: Lauko �tefan <lauko(zv)salamon.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 9:28 AM
Subject: Property
> Dobry den,
> je mozne zistit za behu programu nazvy property triedy a podla nazvu sa na
> ne odvolat?
> Tak isto typ. Nieco ako object inspector.
> Dakujem.
>Paradox, .LCK & .NET
[*] Jiri Kral <admin(zv)printo(tec)cz> - 13.9.2000 13:01:23
Vazeni kolegove,
mate nekdo nejaky link nekam, kde je popsano, jak umistit na sit data &
exace, aby nedochazelo k problemum s Pdoximi pomocnymi soubory?
Sitove apps nad Pdoxem zanechavaji i pri korektnim ukoncovani mnozstvi
pomocnych ostatku typu "*.LCK" a "_*.?b".
Clovek by to cekal od Borlandu...
diky za any info
Jirka
Game Port
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.9.2000 13:09:55
ahoj,
mrkni na www.sinea(tec)cz, maji tam nejake free komponenty a mezi nima i
neco na joystick...
dekuji
peca
ps: priste si odpust to hml :)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] Tom� Hol� - 13.9.2000 13:42:42
ahoj,
omlouvam se za ten test, ale predtim mi asi 3 maily odem do konfy nedorazily.
problem: po spustemi D5 enterprise se mi objevi pouze okno formulare / kodu
nikoliv vsak menu s lista nastroju, ani object inspector - proste okno delphi32 neni videt jako aplikace vsak bezi (pres Ctrl+atl+del je vide a da se ukoncit)
vzdy po reinstalaci PC to jde, ale po 1 az 2 dnech se to stane a uz si nezadelfuji !
zkousel jsem Win98 i W2k
prosim, nevite nekdo co s tim ?
diky TH
D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] RDocekal(zv)csas(tec)cz - 13.9.2000 14:06:18
Mrkni na "...\Delphi5\Bin\delphi32.dsk", tam jsou ulozena umisteni vsech
oken, kdyz neni natazen zadny projekt. Krome toho ma kazdy projekt taky
svoje *.dsk. Mozna mas okna "mimo" viditelny desktop.
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----Original Message-----
> From: Tom� Hol� [mailto:thom(zv)comberg(tec)cz]
> Sent: Wednesday, September 13, 2000 1:43 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: D5 - objevi se pouze okno s kodem, a ne menu a obj. inspector
>
>
> ahoj,
>
> omlouvam se za ten test, ale predtim mi asi 3 maily odem do
> konfy nedorazily.
>
> problem: po spustemi D5 enterprise se mi objevi pouze okno
> formulare / kodu
>
> nikoliv vsak menu s lista nastroju, ani object inspector -
> proste okno delphi32 neni videt jako aplikace vsak bezi
> (pres Ctrl+atl+del je vide a da se ukoncit)
>
> vzdy po reinstalaci PC to jde, ale po 1 az 2 dnech se to
> stane a uz si nezadelfuji !
>
> zkousel jsem Win98 i W2k
>
> prosim, nevite nekdo co s tim ?
>
>
> diky TH
>
>
> Alias z programu
[*] Jaro <jaro(zv)sinea(tec)cz> - 13.9.2000 14:32:26
Protoze jsem obdrzel nekolik dotatzu, jak zadat Alias primo z
programu,
uvedl jsem priklad s popisem na strankach TechBox(tec)cz
Kdo se o to zajima, necht se podiva sem:
http://www.techbox(tec)cz/clanek.asp?id=2258
Zaroven prosim databazove odborniky, kterych je na teto konferenci
dostatek,
pokud najdou nejake nesrovnalosti nebo nepresnosti (vcetne
nazvoslovi), napiste
mi prosim na jaro(zv)sinea(tec)cz
Mate-li nekdo zajimave tipy pro Delphi, ktere mohou poslouzit ostatnim
programatorum, poslete mi je prosim. Zajimave navody a casti kodu
uverejnim v serialu Tipy pro Delphi s uvedenim autora tipu. Mozne
jsou i tipy na zajimave existujici nebo i vlastni knihovny, programky
a pod.
Zapojit se muzete take do jiz beziciho serialu Tipy pro Windows.
Zatim je k dispozici sedm dilu.
Jaro
----------------------------------------------------------------------
--
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC
D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 13.9.2000 14:34:59
omlouvam se za ten test, ale predtim mi asi 3 maily odem do konfy
nedorazily.
problem: po spustemi D5 enterprise se mi objevi pouze okno formulare /
kodu
nikoliv vsak menu s lista nastroju, ani object inspector - proste okno
delphi32 neni videt jako aplikace vsak bezi (pres Ctrl+atl+del je vide a da
se ukoncit)
vzdy po reinstalaci PC to jde, ale po 1az 2 dnech se to stane a uz si
nezadelfuji !
*** Obcas se mi to taky stava, ale u me to je tak, ze ty Delfy jsou
OK, pouze ObjectInsepktor (vlevo) a Hlavni okno (Nahore) je
POD jinou aplikaci. Staci se prepnout do jine aplikace a zpet.
P.
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]INSERT INTO v Access databazi
[*] Erik Salaj <winsoft(zv)napri.sk> - 13.9.2000 14:55:20
> mam nasledujici problem. Mam aplikaci, ktera pristupuje k Access 2000
> databazi (velka asi 26 MB) pres ADO. Kdyz napisu tohle
> INSERT INTO user_hwgr (user, hwgr, pwd) VALUES ('test', 110, 'test')
dostanu vzdycky
> chybu syntaxe v prikazu INSERT INTO. Nejspis delam neco blbe ja, ale uz
tam opravdu nic nevidim.
USER je klucove slovo, preto ho musis dat do [] zatvoriek:
INSERT INTO user_hwgr ([user], hwgr, pwd) VALUES ('test', 110, 'test')
alebo premenuj nazov tejto polozky.
Erik Salaj, WINSOFT
Detekce screenSaveru
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 13.9.2000 15:43:44
Ja jsem to provozoval obdobne a funguje to v D4 i D5 pod Win95.
procedure TForm1.cmdDetectSreenSaverClick(Sender: TObject);
var pvParam:^LongBool;
begin
SystemParametersInfoA(SPI_GETSCREENSAVEACTIVE,0,pvParam,0);
if pvParam^=True then
lblStatus.Caption:='Screen saver is ACTIVE'
else
lblStatus.Caption:='Screen saver is NOT ACTIVE';
end;
Martin
E-mail: m_kriz(zv)del(tec)cz
----- Original Message -----
From: Milan ��ek <cizek.milan(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 12:13 PM
Subject: Detekce screenSaveru
> ahoj, nevim si rady s nasledujicim:
> potrebuji zjistit, zdali je nastaven nejaky screensaver nebo nikoli. Jak?
> Zkousel sem to takle:
>
> var b : bool;
> if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, (zv)b, 0) = true then
> JENASTAVEN else NENI;
>
> ale funguje to nejak random. Dik
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
>D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 13.9.2000 15:46:22
> Mrkni na "...\Delphi5\Bin\delphi32.dsk", tam jsou ulozena umisteni vsech
> oken, kdyz neni natazen zadny projekt. Krome toho ma kazdy projekt taky
> svoje *.dsk. Mozna mas okna "mimo" viditelny desktop.
>
> > Subject: D5 - objevi se pouze okno s kodem, a ne menu a obj. inspector
> >
> > problem: po spustemi D5 enterprise se mi objevi pouze okno
> > formulare / kodu
> >
> > nikoliv vsak menu s lista nastroju, ani object inspector -
> > proste okno delphi32 neni videt jako aplikace vsak bezi
> > (pres Ctrl+atl+del je vide a da se ukoncit)
> >
> > vzdy po reinstalaci PC to jde, ale po 1 az 2 dnech se to
> > stane a uz si nezadelfuji !
> >
> > zkousel jsem Win98 i W2k
> >
> > prosim, nevite nekdo co s tim ?
Az se ti to priste stane, najdi si vyse uvedeny "\Delphi5\Bin\delphi32.dsk"
a v klidu ho smaz. Pak se Ti spusti.
Nez jsem na to prisel, taky jsem reinstaloval...
Bye Ludan
D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 13.9.2000 15:47:53
taky se mi to obcas stava
spust delphi pomoci nejakeho projektu treba
pres explorera a na cas se to zase spravi
Tomas Bihary
----- Original Message -----
problem: po spustemi D5 enterprise se mi objevi pouze okno formulare / kodu
nikoliv vsak menu s lista nastroju, ani object inspector - proste okno
delphi32 neni videt jako aplikace vsak bezi (pres Ctrl+atl+del je vide a da
se ukoncit)
vzdy po reinstalaci PC to jde, ale po 1 az 2 dnech se to stane a uz si
nezadelfuji !
zkousel jsem Win98 i W2k
DelphiX!
[*] Pavel Mach�lek <machalek(zv)ideasport(tec)cz> - 13.9.2000 16:02:39
Ahoj,
nemate nekdo popis funkci(komponent) k DelphiX?
Nebo nejaky link na tutorial k DelphiX.
Predem moc diky
machalek(zv)ideasport(tec)cz D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] Tom� Hol� - 13.9.2000 16:11:00
po celodenim badani jsem zjistil, ze pokud spustim delphi pres asociovanou priponu *.dpr (treba poklepanim v pruzkumnikovi) tak se to rozebehne a pak je videt okno delphi i po normalnim startu pres ikonu v menu start
?????
uvidime, jak se to bude vyvijet
TH
----- Original Message -----
From: Tom� Hol�
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, September 13, 2000 1:42 PM
Subject: D5 - objevi se pouze okno s kodem, a ne menu a obj. inspector
ahoj,
omlouvam se za ten test, ale predtim mi asi 3 maily odem do konfy nedorazily.
problem: po spustemi D5 enterprise se mi objevi pouze okno formulare / kodu
nikoliv vsak menu s lista nastroju, ani object inspector - proste okno delphi32 neni videt jako aplikace vsak bezi (pres Ctrl+atl+del je vide a da se ukoncit)
vzdy po reinstalaci PC to jde, ale po 1 az 2 dnech se to stane a uz si nezadelfuji !
zkousel jsem Win98 i W2k
prosim, nevite nekdo co s tim ? diky TH
ip komunikace
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 13.9.2000 16:13:34
zdravim,
kratke stringy posilam pomoci UDP paketu a mam na to komponentu UDPSckt,
kterou ti posilam, (obligatni otazka s odpovedi: chcete ji nekdo [i se
zdrojaky] taky?
Napiste.)
Pracuje se s tim jednoduse:
Odeslani dat:
procedure TForm1.Button1Click(Sender: TObject);
var IP: TIPAddr;
begin
StrToIPAddr(Edit1.Text, IP);
UDPSocket1.SendData(IP, Edit2.Text);
end;
prijem dat:
procedure TForm1.UDPSocket1DataReceived(Sender: TObject);
var V: Variant;
begin
UDPSocket1.GetData(V);
ListBox1.Items.Add(IPAddrToStr(UDPSocket1.RemoteIPAddr) + ' ' + V);
end;
posle data vsem klientum (nemusis zadat IP adresu):
UDPSocket1.BroadcastData(Edit2.Text);
M.Jirman
----- Original Message -----
From: "Pavel �imek" <kejchal(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 8:02 AM
Subject: ip komunikace
> Zdravim vsechny delfiny,
>
> mam dva PC spojene pres protokol IP. potrebuji v D3 nabidnout par dat i
tomu
> druhemu pecku. Jde o jakesi predavani kratkych stringu. Poradite nekdo?
>
> S pozdravem Pavel
>
>
D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] Tom� Hol� - 13.9.2000 16:17:04
o mem reseni jsem jiz psal, ale v tom \Delphi5\Bin\delphi32.dsk
jsem nasel v sekci
[Main Window]
tohle
Visible=0
nemela by tam byt jednicka ???
TH
> Mrkni na "...\Delphi5\Bin\delphi32.dsk", tam jsou ulozena umisteni vsech
> oken, kdyz neni natazen zadny projekt. Krome toho ma kazdy projekt taky
> svoje *.dsk. Mozna mas okna "mimo" viditelny desktop.
Dalsi vyskakujici okno D5
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 13.9.2000 16:17:42
| ...a jeste jedno samovyhrezavaci okno
|
| postup:
|
| D5, NT4+SP6, CZ keydriver
|
| -zmacknu klavesu "=" coz je ta hacko-carkova pro CZ, nestane se nic
| -prepnu klavesnici LALT+LSHIFT na US
| -zmacknu klavesu "=", napise se kyzene "=" a vyhrezne nezvane okno
| Search/Replace, jako bych zmackl CTRL+R, cehoz jsem dalek
|
| ma nekdo vysvetleni teto nezadouci automatiky?
|
| reseni je jasne, (naucit se psat) ;-), ale proc to xakru dela ????
Zajimave, me to nedala, asi taky zavisi na tom jaky mas nastaveny keymapping
v IDE, ja mam IDE classic
Pavel
IB6.0 - Stored procedure - probl���m
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 13.9.2000 16:55:07
panove !
prosil bych nejakeho vzdelance o pomoc nebot se topim v nesnazich. Pripadam si jako de..il, ale rad bych dal dohromady ulozenou proceduru (IB6.0) v niz jsem si dovolil pouzit konstrukci FOR SELECT... Dle manualu neexistuji zadna zvlastni omezeni pro onen select pres ktery se provadi for ... az na to ze musi koncit klauzuli INTO :<var>. Fajn, tak tedy dokazal by mi nekdo z vas rict proc mi to na radku c.12 nasledujiciho kodu vraci chybu SQL error -206 <Column unknown> ???
(upozornuji, ze v tabulce onen sloupec prirozene existuje) Jsem naprosto grogy, ziram na to, zkousim vselijake pakarny ale nic - b�s. Puvodne jsem tam chtel mit GROUP BY, ale protoze v manualech nebyl zadny priklad, ktery by to pouzival, tak jsem to zkusil s ORDER BY, ale hlasi to porad to same ackoliv v manualu je na to obdobny priklad
1.. SET TERM !! ;
2.. CREATE PROCEDURE Dopln TCpob (pIDI INTEGER)
3.. AS
4.. DECLARE VARIABLE vPobocka INTEGER;
5.. DECLARE VARIABLE vIDU SMALLINT;
6.. DECLARE VARIABLE vDDefinity DATE;
7.. DECLARE VARIABLE vPobExistuje INTEGER;
8.. BEGIN
9.. For select Pobocka, IDU, DDefinity
10.. from TCdet
11.. where IDI=:pIDI
12.. ORDER BY Pobocka
13.. into vPobocka, vIDU, vDDefinity
14.. do ...
zachrani nekdo zoufalce ?
za kazdy napad predem neskonaly dik
PavelC
D5 - objevi se pouze okno s kodem, a ne menu a obj
[*] Ota Maly <maly(zv)space(tec)cz> - 13.9.2000 17:12:32
Ahoj,
tohle se mi taky obcas stane. Zatim jsem vysledoval, ze v souboru
<projectname>.dsk lze nastavit u ruznych casti Visible=true . Urcite to neni
korektni reseni, ale jedna z cest to je..:-) Pokud nekdo vi, proc se tak
deje, at se pochlubi..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr
Vaclavek
Sent: Wednesday, September 13, 2000 2:35 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: D5 - objevi se pouze okno s kodem, a ne menu a obj. inspector
omlouvam se za ten test, ale predtim mi asi 3 maily odem do konfy
nedorazily.
problem: po spustemi D5 enterprise se mi objevi pouze okno formulare /
kodu
nikoliv vsak menu s lista nastroju, ani object inspector - proste okno
delphi32 neni videt jako aplikace vsak bezi (pres Ctrl+atl+del je vide a da
se ukoncit)
vzdy po reinstalaci PC to jde, ale po 1az 2 dnech se to stane a uz si
nezadelfuji !
*** Obcas se mi to taky stava, ale u me to je tak, ze ty Delfy jsou
OK, pouze ObjectInsepktor (vlevo) a Hlavni okno (Nahore) je
POD jinou aplikaci. Staci se prepnout do jine aplikace a zpet.
P.
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]
IB6: ForcedRefresh
[*] Ota Maly <maly(zv)space(tec)cz> - 13.9.2000 17:24:56
Ahoj,
jelikoz si myslim, ze tohle je obecny DB problem, ptam se na Vase
zkusenosti..
Pro pripojeni do DB (InterBase) pouzivam TIBDataSet. Mam okno se tremi
zalozkami, kazda zalozka se pripojuje do DB pomoci vlastniho TIBDataSetu.
Commit delam az pri zavreni celeho okna. A tady vznika problem: Pokud neco
modifikuju jednim datasetem (a jeste necommitnu), tak to ten druhy
samozrejme nevidi (IsolationLevel mam ReadComitted), coz je sice spravne,
ale pro me dost nesikovne. Napada me nekolik reseni:
- Pri prechodu z jedne zalozky na jinou udelat na uzivatele dotaz
Commit/Rollback, z hlediska ovladani programu docela nesikovne..
- snizit IsolationLevel na DirtyRead (nebojaxetojmenuje), ale to se mi
VUBEC nechce..
- pouzit jeden IBDataSet (jedno pripojeni), Select umim vytvorit v pohode,
ale neni mi jasne, jak mam delat update nad vice tabulkami. Tohle reseni se
mi zda lepsi, ale co s tim updatem?
Pomuze mi treba udelat vse v ramci jedne transakce? momentalne se o
transakce v podstate nestaram..
D5Prof;NT4;
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
DatabaseName
[*] Lauko �tefan <lauko(zv)salamon.sk> - 13.9.2000 17:29:35
Ahoj,
mozno takto
session.GetAliasParams(DataBase1.AliasName, Memo1.lines);
v Memo1 sa objavia parametre databazy. Odskusane na IB.
Lauko.
----- Original Message -----
From: Jezek Petr, Ing. <PETR(zv)sevis.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 9:19 AM
Subject: DatabaseName
> D5 + W2000 + BDE Informix Native driver.
> Pristupuju k databaze Informix pres TDatabase objekt, do ktereho priradim
> uz preddefionovany AliasName (ktery pouziva BDE Informix native driver).
> Nevite nekdo jak pak zjistit skutecne jmeno databazy?
>
> Petr
> Dalsi vyskakujici okno D5
[*] Ota Maly <maly(zv)space(tec)cz> - 13.9.2000 18:20:59
Ahoj,
IMHO se jedna o chybu IDE, pokud se totiz tohle pouzije nekolikrat (cca
2-3x) za sebou pri keymapping IDE classic, tak Delphi vyhodi Access
violation..
Pri Default keymapping mi take vyskoci to okno.
D5+SP1;NT4+SP5;
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
| ...a jeste jedno samovyhrezavaci okno
|
| postup:
|
| D5, NT4+SP6, CZ keydriver
|
| -zmacknu klavesu "=" coz je ta hacko-carkova pro CZ, nestane se nic
| -prepnu klavesnici LALT+LSHIFT na US
| -zmacknu klavesu "=", napise se kyzene "=" a vyhrezne nezvane okno
| Search/Replace, jako bych zmackl CTRL+R, cehoz jsem dalek
|
| ma nekdo vysvetleni teto nezadouci automatiky?
|
| reseni je jasne, (naucit se psat) ;-), ale proc to xakru dela ????
Zajimave, me to nedala, asi taky zavisi na tom jaky mas nastaveny keymapping
v IDE, ja mam IDE classic
Pavel
prace s cisly integer (zaokrouhleni)
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 13.9.2000 18:53:03
ahoj,
myslim (na rozdil od nekterych slozitych predchozich rad) ze to staci
jednoduse takhle
SpinEdit1.Value:=Int(((IntToFloat(SpinEdit1.Value))/10)+0.5)*10);
M.Jirman
P.S: misto Int se pouziva take Trunc
----- Original Message -----
From: Milan ��ek <cizek.milan(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 1:58 PM
Subject: prace s cisly integer (zaokrouhleni)> ahoj, ne ze by to byl nejaky podstatny problem, ale zajma me, jestli by to
> neslo vice profesionalne...
>
> Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
> desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v
pripade
> 6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na
1300...
> Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer
cisly??
>
> osobne me napada jen reseni, ze bych to prevedl na string a pak pomoci
> string[x] porovnaval... Vysledek bych prevedl zpet na integer a dosadil do
> SpinEditu.
>
> Existuje nejaky prikaz, typu promena_integer[druhe_cislo] jako u stringu??
> Pak bych mohl vzit jen posledni cislo, zjistit, jestli je >=5, pokud ano,
> pak pricist x do deseti, pokud ne odecist x do nuly... tak by se mi to
> libilo :)
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
>
ODBC a 2x vetsi polozky
[*] mirnov(zv)atlas(tec)cz - 13.9.2000 20:17:21
Ahoj
Mam problem a jsem z toho docela jelen. Zacala mi blbnout komunikace s Access tabulkou pres ODBC. Vytvorim tabulku
('CREATE TABLE ArchZak (Soubor CHAR(8) NOT NULL,'Akce CHAR(20) NOT NULL,...)')
vse zatim OK, ale kdyz se pokusim ji pouzit dostanu hlaseni ze deklarovana delka polozky je 8 a aktualni 16. V Accessu je to normalni, ale v Database Exploreru jsou vsechny polozky dvojnasobne.
Zjistil jsem, ze kterasi instalace mi bez meho vedomi aktualizovala ODBC ovladac "ODBCJT32.dll" z verze 3.50.3602.00 na 4.0.4403.2. Kdyz to vratim nazpet, vse funguje. Akorat ma system obcas pripominky ke kompatibilite ODBC ovladacu a doporucuje reinstalaci ODBC.
A ted dotaz.
Co to jsou za zmatky. Neda se nekde neco nastavit, aby to fungovalo normalne?
Je mozne by v ovladaci byla takova chyba?
Prip. kde lze sehnat ovladac, ktery se bude chovat normalne?
A BTW kdyz uz se ptam na OBDC, nevite nekdo o ODBC driveru pro Paradox, ktery zvladne pristup pres APS k Paradox tabulce s jazykem "Pdox ANSI Czech"?
Diky predem za pripadne tipy.
Mirek
mirnov(zv)atlas(tec)cz
Detekce screenSaveru
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 13.9.2000 21:13:06
Da se to tusim najit (aspon ve W95OSR2) v SYSTEM/WIN.INI. Zkus se tam
podivat kdyz ho mas aktivni a kdyz ho mas vyplej. Porovnej to a snad ti
to pomuze...
Milan ��ek wrote:
>
> ahoj, nevim si rady s nasledujicim:
> potrebuji zjistit, zdali je nastaven nejaky screensaver nebo nikoli. Jak?
> Zkousel sem to takle:
>
> var b : bool;
> if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, (zv)b, 0) = true then
> JENASTAVEN else NENI;
>
> ale funguje to nejak random. Dik
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
--
Martin Pe�ava
/--------------------------------------------------------------\
| http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
| |
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Paradox, .LCK & .NET
[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 13.9.2000 21:44:37
to se m� tak ..
Je dobr� nastavit pro TSession Private Dir n�kam na lokaln� po��ta�
(c:\windows\temp) a Net Dir na s�, kam vid�j v�ichni u�ivatel�
datab�ze. Nemus� to bejt zrovna ten samej adres��, kde jsou data.
Nicm�n� cesta Net Dir mus� bejt pro v�echny po��ta�e v s�ti stejn�,
snad jen disk m��e bejt rozd�lnej, nap� E:\mojedata\net,
L:\mojedata\net, apod.
Nicm�n� to "\mojedata\net" mus� bejt stejn�, jinak to h�e chybu,
�e tabulka je controlled by other netfile PDOXUSR.LCK, nebo tak n�co.
Pokud je v�e OK, tak do�asn� soubory jak lok�ln�, tak s posledn�m
u�ivatelem s�ov� PDOXUSR.LCK, se po sob� ma�ou. Pokud nedojde k p�du.
Filip.
Jiri Kral wrote:
>
> Vazeni kolegove,
>
> mate nekdo nejaky link nekam, kde je popsano, jak umistit na sit data &
> exace, aby nedochazelo k problemum s Pdoximi pomocnymi soubory?
> Sitove apps nad Pdoxem zanechavaji i pri korektnim ukoncovani mnozstvi
> pomocnych ostatku typu "*.LCK" a "_*.?b".
> Clovek by to cekal od Borlandu...
>
> diky za any info
>
> Jirka
ip komunikace
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 13.9.2000 21:45:32
Nazdarek ....
Sly�el jsi u� n�kdy o mailslotech... Je to standarn� sou��st ka�d�ch WOKEN.
Jestli chce� tak ti mu�u poslat malej popis a ukazku. Je to n�co podobn�ho
jako Winpopup z WOKEN.
Honza
----- Original Message -----
From: Pavel �imek <kejchal(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 8:02 AM
Subject: ip komunikace
> Zdravim vsechny delfiny,
>
> mam dva PC spojene pres protokol IP. potrebuji v D3 nabidnout par dat i
tomu
> druhemu pecku. Jde o jakesi predavani kratkych stringu. Poradite nekdo?
>
> S pozdravem Pavel
>
>Detekce screenSaveru
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 13.9.2000 21:47:48
V�m ur�it� �e se to nach�z� n�kde v registrech. HKEY_CURRENT_USER\Control
Panel\Desktop
�nebo skr�tka n�kde tam. Jestli chce� tak ti to najdu a klidn� nap�u.
Honza
----- Original Message -----
From: Milan ��ek <cizek.milan(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 12:13 PM
Subject: Detekce screenSaveru
> ahoj, nevim si rady s nasledujicim:
> potrebuji zjistit, zdali je nastaven nejaky screensaver nebo nikoli. Jak?
> Zkousel sem to takle:
>
> var b : bool;
> if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, (zv)b, 0) = true then
> JENASTAVEN else NENI;
>
> ale funguje to nejak random. Dik
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
>DelphiX!
[*] Zdenek Merta <zmerta(zv)cmail(tec)cz> - 13.9.2000 21:48:02
Zdravim
Spousta informaci o DelphiX a take o programovani her
v Delphi se da najit na adrese: http://turbo.gamedev.net/.
Zdena
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Pavel
Mach�lek
Sent: Wednesday, September 13, 2000 4:03 PM
To: Delphi konference
Subject: DelphiX!
Ahoj,
nemate nekdo popis funkci(komponent) k DelphiX?
Nebo nejaky link na tutorial k DelphiX.
Predem moc diky
machalek(zv)ideasport(tec)cz