Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zmizeni ikon TToolBar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1999 23:04:08
Zdeno Jasek wrote:
> Suhlasim, ze TToolBar je lepsi nez TSpeedButton, aj mne sa do oci hrnuly slzy, ked som ho vymazaval, ale predsa len -
> aplikacia musi bezat na VSETKYCH verziach Windowsov a ked mam vela malych uzivatelov, radsej sa nepustam cestou
> upgradovania uzivatelovho OS. To su moje dovody pre TSpeedButton.
Ahoj,
Nicmene upgrade podobnych knihoven dela pri instalaci plno aplikaci.
Nejedna se prece jen o TToolBar, tech problemu ti takhle muze casem
vzniknout daleko vic, tomu neuteces. A prijde mi prece jen asi lepsi
venovat cas na vyreseni instalace, nez pouzivat neco, co je vylozene
horsi. Nouzovym resenim muze byt treba instalovani IE4.01, tim se ti
zaroven aktualizuje COMCTL32 na pouzitelnou uroven. Navic mam pocit,
ze i IS Express 2.02 umi delat instalace podle verze OS.
--
Petr Vones, amatersky programator
Spusteni EXE behem instalace pomoci IS Express
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1999 23:04:24
Ahoj,
Obcas zde padnul dotaz ohledne moznosti spustit vlastni EXE na zacatku ci
konci instalace vytvorene pomoci IS Express. Verze dodavana s Delphi to
sice neumoznuje, ale u jednotlivych souboru muzete v Properties nastavit
jejich registraci (IS Ex 2.02). Pokud tedy zaskrtnete tuto moznost u EXE
souboru, tak se behem instalace spusti, coz by slo treba vyuzit.
--
Petr Vones, amatersky programator
tisk z Tmemo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1999 23:09:04
sup(zv)svitap(tec)cz wrote:
>
> D3 Profi
>
> Mam jeste jeden problemecek. Potrebuji vytisknout obsah memo na tiskarnu.
Ahoj,
Priklad mas treba tady:
http://www.borland.com/devsupport/delphi/ti/TI785D.html
http://www.borland.com/devsupport/delphi/ti/TI1547D.html
Nebo muzes pouzit i QuickReport, pokud mas verzi kde je komponenta
TQRStringsBand
--
Petr Vones, amatersky programator
Problem mODBC na mySQL
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 07.9.1999 23:33:38
Tomas Krecmer wrote:
>
> > environment:Win98/95 CZ,Delphi STANDART 4.0 (Build 5.104)Update Pack 2
> > RxLib 2.60 keywords:ODBC,mySQL,mODBC,Integer Overflow,Invalid field size
> >
> > Zdravim vsechny.
> >
> > q: zkousel jsem komponenty mODBC pro pristup k mySQL. Nejak mi to ale
> > nebezi. Mam na formulari mDatabase,DataSource,mTable,dBGrid a jiz pri
> > navrhu (pokud dam Table.Active=True) to na mne rve u nekterych tabulek
> > hlasku "Integer Overflow" pri kazde aktivaci formulare (v tomto pripade se
> > v DBGridu zobrazi par (ne vsechny) radku dat). U jinych tabulek to na mne
> > zase rve "Invalid field size", u tech potom nejde nastavit active na
> > True.
> >
> > Predem diky za radu.
>
> Nevim jestli je to preklep, ale mel by si pouzivat MyODBC a ne
> mODBC.
>
> Ke stazeni na: http://www.tcx.se/download_myodbc.html
>
Nejde o preklep. Ty uvadis ODBC driver nutny pro pristup k mySQL pres
ODBC obecne (MyODBC). Ten mam samozrejme normalne nainstalovany a
funkcni (Overeno pres Paradox7).
Mne jde o sadu Delphi komponent mODBC (pristup k databazim pres ODBC bez
BDE). Tam mam vyse uvedene problemy.
eL..Zpozdeni dbGrid formatovani v RichEditu
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 7.9.1999 23:58:37
> > Ahoj
> >
> > Mam D4 a nasledujici problem:
> > DBGrid napojeny na DBRichEdit, takze kdyz se pohybuju v tom gridu,
> > tak se mi zobrazuje text prislusneho atributu v tom RichEditu. Ale
> > kdyz se pohybuji rychleji tak se ty zaznamy v gridu nestihaji
> > prekreslovat, zatimco v tom RichEditu ano a vypada to pekne blbe.
> > Takze bych potreboval nastavit neco jako je ChangeDelay v TreeView.
>
> Ahoj,
>
> Zpozdene zobrazovani v TDBRichEdit by sice slo, ale ne uplne jednoduse.
> Ono to obnovovani DBGridu bude zalezet na vykonnosti pocitace, zkus to
> resit naopak tak, ze si po kazdem posunuti v tabulce explicitne pozadas
> o preklesleni gridu. Z eventu TTable.AfterScroll zavolej DBGrid.Repaint
> Petr Vones, amatersky programator
No nakonec jsem to vyresil jinak:
Misto TDBRichEditu, jsem dal RichEdit, prihodil jsem timer a pokazde,
kdyz se zmeni pozice v tabulce (pohne se kurzor) tak se vynuluje
Timer a spusti se, po uplinuti zadane doby (pokud se do te doby opet
nevynuluje tim, ze se posune kurzor) se text z databaze zobrazi v
RichEditu.
Ale zde jsem narazil na dalsi problem --> formatovani v RichEditu:
Texty v databazi jsou meily a pri zobrazovani chci, aby v pripade, ze
radek zacina na '>' se cely radek vytisknul zelene, v opacnem pripade
cerne.
Delam to takto:
reMain.Lines.Clear; // To je ten RichEdit
slSyntax. Text := Table.FieldByName('MAIL').AsString; // Pomocny
StringList
for i := 0 to slSyntax.Count-1 do begin
S := slSyntax.Strings[i];
if ((S <> '') and (S[1] = '>')) then reMain.SelAttributes.Color
:= clGreen
else reMain.SelAttributes.Color := clBlack;
reMain.Lines.Add (S);
end;
Problem je, ze to je pomaly a jeste ke vsemu to blika.
(Jde videt, jak tam ty linky pribyvaji - potreboval bych neco jako
BeginUpdate - EndUpdate)
Muze mi nekdo poradit, pripadne nakopnout tim spravnym smerem?
Diky
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Programatorska klavesnice pro win2000
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 08.9.1999 00:02:19
Ahoj,
Ing. Jaroslav �ke��k wrote:
> Ja pouzivam pouze ceskou klavesnici. Vsechny potrebne znaky jsou dostupne
> pres AltGr.
> Nikdy nemusim nic prepinat a tech par spec. znaku si zapamatuje kazdy
> (kdyz jsem si to zapamatoval i ja)
> Jaro
>
J� tedy nev�m, ale kdy� chci ps�t v �esk� kl�vesnici speci�ln� znaky, tak m�
sta�� d�t prav� alt (+shift) + kl�vesa a pak to p�e znaky z p�vodn� anglick�
kl�vesnice. Tj. m�sto � a ) m� to s altem p�e [ a ]... a lom�tko \ je vedle
backspace a td.
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
"Name not unique in this context." v QuickRepoprtu
[*] Tom� Br�dle������i�^����? - 8.9.1999 00:03:56
Zdravim,
nevim presne, ale mam dojem, ze tohle mi to delalo, kdyz jsem zapomel v
project options implicitne vytvareny formular a pak jsem se ho pokusil
nytvorit stejne jako v *.dpr jeste jednou. Coz zpusobilo pravdepodobne
duplicitu jmen - v tomhle pripade formularu. Mrkni se jestli spravne
vytvaris a uvolnujes formulare nebo pripadne jine komponenty, jestli neco
nevytvaris dvakrat.
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Petr Sadovsky <petr(zv)slunce(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. z��� 1999 23:13
P�edm�t: "Name not unique in this context." v QuickRepoprtu
>Ahojte.
>
>Pri opakovanem tisku QuickReportu (D4 C/S,QR3.04) se mi objevi hlaska viz.
>%subj%.Pokud ukoncim program a spustim znovu, zese mi dovoli jednou provest
>QuickReport1.PreviewModal .
>Vubec nevim, kde chybu hledat, urcite vim, ze jsem nic, co jsem vkladal do
>reportu nepojmenoval stejne IMHO: IDE by mi to ani nedovolilo.
>
>Diky za kazdou radu.
>
> Petr Sadovsk�
>p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
>
>
>HideApp pri Alt+Tab
[*] Igor MALY <igormaly(zv)zv.psg.sk> - 8.9.1999 00:12:06
Ano, Stealth dokaze odstranit aplikaciu z taskbaru, ale stale ju vidno pri
<alt>+<tab>.
> >Prikaz ShowWindow(Application.Handle,SW_Hide) zabrani zobrazeniu programu
v
> >taskbare, ale stale za zobrazi jeho ikona pri stlaceni klaves
<Alt>+<Tab>.
> >Mohli by ste mi poradit, ktory prikaz dokaze zabranit aplikacii, aby sa
> >zobrazovala v okne pri stlaceni <Alt>+<Tab>.
>
> napriklad komponenta Stealth, ke stazeni treba tady:
> www.bluerose(tec)cz/index.php3?cat=komponenty
>
>
> Bye Ludan
>
>Telefonicke pripojeni site
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 8.9.1999 07:26:58
Kdyz uz jsme u tech AT prikazu - nemate nekdo zakladni sadu techto
prikazu ? Je mi jasne, ze detaily se model od modelu lisi, ale zaklad je
stejny, ze ?
Mira
----- P�vodn� zpr�va -----
Od: <rdocekal(zv)csas(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. z��� 1999 18:07
P�edm�t: RE: Telefonicke pripojeni site
Tohle se AFAIK nastavuje na modemu, je potreba pri inicializaci nastavit
prislusny registr. Napr. na Zyxelech je to prikazem ATS0=5 pro 5 zvoneni
atp.
Telefonicke pripojeni site
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 8.9.1999 07:33:19
I tady jsem to nastavil, nechal protokolovat, co tam Win cpe, do modemu jde
X3W2S0=5 (Rockwell chip), odpovedi <cr>, proste dobry, jen po zavolani zase
zvedne uz po 1.zazvoneni. Na mrtvici.
Tak jinak. Par komponent pro ovladani modemu bych mel. Vytoci, nahraje,
resp. prehraje msg, reaguje na ring - normal. Co je potreba krome zvednuti
modemu k tomu, abych prichozi volani modemem vyuzil na pripojeni site ?
Proste nahradit dosavadni "server".
Dik Ludan
>To tam rvou Windoze, musis to nastavit v Control
>Panel/Modems/Properties/Connection/Advanced/Extra settings.
>
>S pozdravem
>Radek Docekal
><mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
>
>> -----P�vodn� zpr�va-----
>> Od: Ing. Ludek Florian [mailto:ludan(zv)bluerose(tec)cz]
>> Odesl�no: 7. z��� 1999 19:28
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: Re: Telefonicke pripojeni site
>>
>>
>> Nefunguje. Kdyz je server spusten, na port se nedostanu. A kdyz modem
>> nastavim a jeste zapisu registr (ATW0), po spusteni serveru
>> se tam znovu
>> nastavi 1...
>>
>> Bye Ludan
>>
>>
>> >Tohle se AFAIK nastavuje na modemu, je potreba pri
>> inicializaci nastavit
>> >prislusny registr. Napr. na Zyxelech je to prikazem ATS0=5
>> pro 5 zvoneni
>> >atp.
>> >
>> >S pozdravem
>> >Radek Docekal
>> ><mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
>> >
>> >-----P�vodn� zpr�va-----
>> >Od: Ing. Ludek Florian [mailto:ludan(zv)bluerose(tec)cz]
>> >Odesl�no: 7. z��� 1999 17:40
>> >Komu: Konference Delphi
>> >P�edm�t: Telefonicke pripojeni site
>> >
>> >
>> >Cauec,
>> >
>> >Pokud v %subj% aktivuju server tlf.pripojeni, tak sice maka,
>> ale co mi dost
>> >vadi, je ze zvedne linku po 1.zazvoneni. Rad bych nastavil
>> zvoneni na jiny
>> >pocet. Porad zapominam server pustit nebo vypnout a pak se k
>> nam dovolat,
>> je
>> >dost zajimavy.
>> >
>> >Dekuji za kazde info.
>> >
>> >Bye Ludan
>> >
>>
>>Delphi konference off-line
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.9.1999 07:42:10
Ahoj,
protoze se mi ozvalo vice lidi, odpovidam sem. Snazil jsem se
vcera vecer protlacit slibene prispevky na delphi ftp, ale pohuzel mi
to spadlo na 16 megach (z dvaceti). :-(
Timto take prosim spravce o smazani souboru DELPHI.ZIP.
Dneska vecer to zkusim znovu a prihodil bych k tomu i soft od
Petra Vaclavka (starou verzi).
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Telefonicke pripojeni site
[*] sup(zv)svitap(tec)cz - 8.9.1999 7:57:32
>Cauec,
>
>Pokud v %subj% aktivuju server tlf.pripojeni, tak sice maka, ale co mi dost
vadi, je ze zvedne linku po 1.zazvoneni. Rad bych nastavil >zvoneni na jiny
pocet. Porad zapominam server pustit nebo vypnout a pak se k nam dovolat, je
dost zajimavy.
>
>Dekuji za kazde info.
>
>Bye Ludan
>
Tohle se nastavuje na modemu. Dej si do inicializacniho retezce ATS1=x, kde
x je pocet zazvoneni, po kterych modem zvedne sluchatko.
Bye
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
Currency + Table (2) jeste presneji
[*] Zbynek Ceska <zbyces(zv)physics.muni(tec)cz> - 8.9.1999 07:59:58
Zdravim vsechny jeste jednou. Zkusim se zeptat znovu, ale
naposled. Potom s tim uz nebudu otravovat.
Mam Table ( normalne napojenou na DBGrid ) a v ni spoustu FIELDS.
Typ te TABLE je DBase. Jeden FIELD ('CENA') je definovan jako CURRENCY.
Potreboval bych, aby se mi cisla v tom sloupci v DBGRIDU tam, kde
je 'cena' automaticky zobrazovala ve formatu treba '15,00' nebo '14,56' a
podobne, at uz zadan do prislusnoho okenka '15' nebo '14,564'.
Zkousel jsem dat do ruznych mist programu promenou ( ted si nejsem
jisty, jak se jmenuje ) DecimalNumber ( podle helpu by mela urcovat pocet
desetinych mist Currency ). Vysledkem je to, ze se v DBGridu zobrazuje
vzdy to, co tam napisu a ne ten format '#.##'.
Moje otazka. Je mozne to vubec takto nastavit, kdyz je to jako
Field v Table ? A kde ma byt tato promenna nastavena ( vyzkousel jsem
vsechna mozna mista, ale at byla kdekoliv, stav se nezmenil.) ?
Moc dekuji za kazdou drobnou radu a kazdy i sebemensi napad. Diky
moc.
Zbynek Ceska
*************************************************************************
** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
** Plasma Physics ** High Technology Physics ** Microwave Physics **
*************************************************************************
currency format a table - upresneni
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 08:12:26
A mas dobre nastaveny format currency vo Windowsoch?
Zbynek Ceska wrote:
> > > Currnecy format promenne a hlavne SetDecimal=2 ( ci tak nejak se jmenuje
> > > ). Ale problem je v tom, ze mi to na ni nejak nereaguje.
> > Co to znamena "nereaguje"? Nezobrazuje v spravnom tvare, nezobrazuje vobec,
> > nejde ti spustit program alebo sa ti neda zapnut pocitac?
>
> Nezobrazuje se to v tom spravnem tvaru. Podle me by to melo delat to, ze
> kdyz zadam cislo, tak by melo automaticky naskocit ( alespon po
> Table.Post, kdyz ne hned ) do tvaru treba 12.00 kdyz zadam cislo 12. A to
> nedela. Dobre, zkousel jsem, jestli to treba nedela jen pri otevirani
> Table, ale taky ne. Proste se to nikdy nezobrazi v danem tvaru. A kdyz
> zadam do Table '12.00' naskoci mi tam 12. Podotykam, ze mam ten urcitej
> FIELD nastavenej prave na typ CURRENCY.
>
> > > Podotykam, ze je vse na Form1 a Unit1. A kdyz ji dam do vlastnich procedur
> > > tak na me kasle. Kde je skryte kouzlo ?
> > Ako sa to prejavuje, ze kasle?
>
> Tim jsem chtel rici to, ze at to dam kamkoliv v Unit1 ( mam tam takovou
> proceduru, ktera se vola pri startu programu jeste z .dpr - osetruje stav
> jestli existuji nebo neexistuji tabulky a kdyz neexistuji, tak je vytvori
> - proste at to dam do mista, kde je tabulka Active nebo kde neni Active,
> tak se to nijak nezmeni. Proste jako by to tam nebylo.
>
> > Nechcem ta urazit, ale nie je mi jasne, o co ide.
>
> JAsne, verim, ze to nebylo moc pochopitelne. Kazdopadne diky za
> snaha pomoci. Zkuste se tedy na to podivat v tomoto pohledu. Diky za
> kazdou chviku premysleni. Dik.
>
> Zbynek Ceska.Telefonicke pripojeni site
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 8.9.1999 08:15:44
Odpovidatele to sice mysleli dobre (s0=n je opravdu v "normalnich"
podminkach nastaveni poctu zazvoneni ... to jsem taky kdysi vedel a zkousel
... :-( ) ale MS Server tel. pripojeni nespada mezi "normalni podminky".
Mam z toho pocit, jakoby poslal patricny konf. retezec do modemu a pak tam
sam nacpal jeste neco jineho (treba s0=1 ? :-) ... pripadne to zvednuti
obstaravali nejak "jednodusseji" a zvedali to kdy chcou. (obecny styl A'la
MS)
Toto chovani vykazuje jak pod W98 tak w95 (po stazeni MSDUN 1.3 od
www.mokro$oft.com).
(debuggerem do toho nepudu :-))
...pomineme-li jednu debatu kdesi u M$ , kde tento dotaz padl ... a po case
(krom toho ze se nikdo nic nedovedel) dospeli k zaveru , ze to asi nejde
-( ...
Mti.
-----P�vodn� zpr�va-----
>>Pokud v %subj% aktivuju server tlf.pripojeni, tak sice maka, ale co mi
dost
>vadi, je ze zvedne linku po 1.zazvoneni. Rad bych nastavil >zvoneni na jiny
>pocet. Porad zapominam server pustit nebo vypnout a pak se k nam dovolat,
je
>dost zajimavy.
>>
>>Dekuji za kazde info.
>>
>>Bye Ludan
>>
>
>Tohle se nastavuje na modemu. Dej si do inicializacniho retezce ATS1=x, kde
>x je pocet zazvoneni, po kterych modem zvedne sluchatko.
>
>Bye
>
>
>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
VCL a COM
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 08:20:25
Erik Salaj wrote:
>
> Mozes mi dat odkaz, kde by sa da stiahnut free CORBA pre Windows?
>
> Erik Salaj
Bohuzial, nie. Pisal som, ze v Java 2 je CORBA zadarmo, ale je silne viazana na
pouzitie jazyka JAVA. Zatial som na CORBA zadarmo nenarazil, ale myslim si, ze
to tak skoro nebude (ak vobec), pretoze (opakujem:) CORBA Services je definicia
takeho mnozstva kniznic, ze ak to niekto urobi (zatial to este ziadna firma
kompletne nema), tak to asi zadarmo neda.
Viac na http://www.omg.org, pripadne www.javasoft.com."Name not unique in this context." - konec
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 8.9.1999 08:23:49
----- P�vodn� zpr�va -----
Od: Tom� Br�dle <t.bradle(zv)pvtnet(tec)cz>
> Zdravim,
>
> nevim presne, ale mam dojem, ze tohle mi to delalo, kdyz jsem zapomel v
> project options implicitne vytvareny formular a pak jsem se ho pokusil
> nytvorit stejne jako v *.dpr jeste jednou. Coz zpusobilo pravdepodobne
> duplicitu jmen - v tomhle pripade formularu. Mrkni se jestli spravne
> vytvaris a uvolnujes formulare nebo pripadne jine komponenty, jestli neco
> nevytvaris dvakrat.
Diky, mels pravdu spatne jsem uvolnoval ReportQuery.Uz je to v poradku.
Jeste jednou diky.
Mej se.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Zmizeni ikon TToolBar
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 08:25:38
Diky za rady, porozmyslam nad tym...
Petr Vones wrote:
> Zdeno Jasek wrote:
>
> > Suhlasim, ze TToolBar je lepsi nez TSpeedButton, aj mne sa do oci hrnuly slzy, ked som ho vymazaval, ale predsa len -
> > aplikacia musi bezat na VSETKYCH verziach Windowsov a ked mam vela malych uzivatelov, radsej sa nepustam cestou
> > upgradovania uzivatelovho OS. To su moje dovody pre TSpeedButton.
>
> Ahoj,
>
> Nicmene upgrade podobnych knihoven dela pri instalaci plno aplikaci.
> Nejedna se prece jen o TToolBar, tech problemu ti takhle muze casem
> vzniknout daleko vic, tomu neuteces. A prijde mi prece jen asi lepsi
> venovat cas na vyreseni instalace, nez pouzivat neco, co je vylozene
> horsi. Nouzovym resenim muze byt treba instalovani IE4.01, tim se ti
> zaroven aktualizuje COMCTL32 na pouzitelnou uroven. Navic mam pocit,
> ze i IS Express 2.02 umi delat instalace podle verze OS.
>
> --
>
> Petr Vones, amatersky programator
currency format a table - upresneni
[*] Zbynek Ceska <zbyces(zv)physics.muni(tec)cz> - 8.9.1999 08:25:38
On Wed, 8 Sep 1999, Zdeno Jasek wrote:
> A mas dobre nastaveny format currency vo Windowsoch?
To nevim ( nemam to tu u mailu ). Ale uprimne bych to radeji ani nevedel.
Prece to musi byt nejak universalni. Kdybych to chtel dat nejakemu
uzivateli, tak mu nebudu rikat, at si zkontroluje nastaveni meny ve
Winech. 50% uzivatelu tohle stejne neumi - mozna i vic.
Kazdopadne Dik. Zbynek.Zpozdeni dbGrid formatovani v RichEditu
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 08:30:59
Nedali by sa vkladat tie zelene a cierne riadky priamo pri ich zapise do
databazy?
Tak by si konverziu urobil len raz pri zapise a pri vypisovani by si sa
nemusel zdrziavat ...
Petr Vaclavek wrote:
> > > Ahoj
> > >
> > > Mam D4 a nasledujici problem:
> > > DBGrid napojeny na DBRichEdit, takze kdyz se pohybuju v tom gridu,
> > > tak se mi zobrazuje text prislusneho atributu v tom RichEditu. Ale
> > > kdyz se pohybuji rychleji tak se ty zaznamy v gridu nestihaji
> > > prekreslovat, zatimco v tom RichEditu ano a vypada to pekne blbe.
> > > Takze bych potreboval nastavit neco jako je ChangeDelay v TreeView.
> >
> > Ahoj,
> >
> > Zpozdene zobrazovani v TDBRichEdit by sice slo, ale ne uplne jednoduse.
> > Ono to obnovovani DBGridu bude zalezet na vykonnosti pocitace, zkus to
> > resit naopak tak, ze si po kazdem posunuti v tabulce explicitne pozadas
> > o preklesleni gridu. Z eventu TTable.AfterScroll zavolej DBGrid.Repaint
> > Petr Vones, amatersky programator
> No nakonec jsem to vyresil jinak:
> Misto TDBRichEditu, jsem dal RichEdit, prihodil jsem timer a pokazde,
> kdyz se zmeni pozice v tabulce (pohne se kurzor) tak se vynuluje
> Timer a spusti se, po uplinuti zadane doby (pokud se do te doby opet
> nevynuluje tim, ze se posune kurzor) se text z databaze zobrazi v
> RichEditu.
> Ale zde jsem narazil na dalsi problem --> formatovani v RichEditu:
> Texty v databazi jsou meily a pri zobrazovani chci, aby v pripade, ze
> radek zacina na '>' se cely radek vytisknul zelene, v opacnem pripade
> cerne.
> Delam to takto:
> reMain.Lines.Clear; // To je ten RichEdit
> slSyntax. Text := Table.FieldByName('MAIL').AsString; // Pomocny
> StringList
> for i := 0 to slSyntax.Count-1 do begin
> S := slSyntax.Strings[i];
> if ((S <> '') and (S[1] = '>')) then reMain.SelAttributes.Color
> := clGreen
> else reMain.SelAttributes.Color := clBlack;
> reMain.Lines.Add (S);
> end;
>
> Problem je, ze to je pomaly a jeste ke vsemu to blika.
> (Jde videt, jak tam ty linky pribyvaji - potreboval bych neco jako
> BeginUpdate - EndUpdate)
> Muze mi nekdo poradit, pripadne nakopnout tim spravnym smerem?
>
> Diky
> Petr
>
> ==< Petr Vaclavek >---- --- --- -- -- - - -
> ====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
> `=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
> `======--- ------ ---- --- -- -- - - -
Zpozdeni dbGrid
[*] Ing. Jaroslav �ke��k - 8.9.1999 09:05:00
Ja bych to radeji udelal tak, ze na OnKeyDown odpojim RichEdit a na OnKeyUp
jej opet pripojim. Tim se to nebude pri scrolovani obnovovat vubec a prestan
e to zadrhavat. Stejne to asi tezko nekdo stiha cist. Jde jenom o efekt. Tak
e by to slo udelat parametricky pri rozliseni pomalych a rychlejsich PC.
Jaro
Petr Vaclavek wrote:
>
> Ahoj
>
> Mam D4 a nasledujici problem:
> DBGrid napojeny na DBRichEdit, takze kdyz se pohybuju v tom gridu,
> tak se mi zobrazuje text prislusneho atributu v tom RichEditu. Ale
> kdyz se pohybuji rychleji tak se ty zaznamy v gridu nestihaji
> prekreslovat, zatimco v tom RichEditu ano a vypada to pekne blbe.
> Takze bych potreboval nastavit neco jako je ChangeDelay v TreeView.
Ahoj,
Zpozdene zobrazovani v TDBRichEdit by sice slo, ale ne uplne jednoduse.
Ono to obnovovani DBGridu bude zalezet na vykonnosti pocitace, zkus to
resit naopak tak, ze si po kazdem posunuti v tabulce explicitne pozadas
o preklesleni gridu. Z eventu TTable.AfterScroll zavolej DBGrid.Repaint
--
Petr Vones, amatersky programator
Mask + bitmap
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 8.9.1999 09:29:13
zdravim...
staci zmenit barvu v RGB palete...
-----P�vodn� zpr�va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 8. z��� 1999 7:54
P�edm�t: Mask + bitmap
>Potreboval bych z bitmapy odstranit jednu barvu a nahradit ji jinou.
>Nevite nekdo jak se to dela? Zkousel jsem Bitmap.Mask metodu,
>ale ta ostatni barvy zmeni na cernou.
>
>+------------------------+
>| Ing. Petr Jezek |
>| Kuzmanyho 8 |
>| 010 01 Zilina |
>| Slovakia |
>| mailto://petr(zv)sevis.sk |
>+------------------------+Zpozdeni dbGrid formatovani v RichEditu
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 8.9.1999 09:33:35
> Nedali by sa vkladat tie zelene a cierne riadky priamo pri ich zapise do
> databazy?
> Tak by si konverziu urobil len raz pri zapise a pri vypisovani by si sa
> nemusel zdrziavat ...
*** No to by se dalo, ale:
1) Ty barvy by uz byly natvrdo - nedaly by se zmenit
2) Bylo by to jeste vetsi (takhle to mam ulozeny jako cisty text bez
formatovani)
2.5) Vyhledavani v teto databazi by bylo komplikovanejsi a pomalejsi
3) Pokud by chtel clovek vyuzit jenom tu databazi (bez meho
programu), tak by z toho zarucene moc velkou radost nemel.
Ale uz jsem to vyresil - nejak jsem predtim prehlednul:
RichEdit.Lines.BeginUpdate a
RichEdit.Lines.EndUpdate
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Currency + Table (2) jeste presneji
[*] Tibor Galik <tgalik(zv)vsz.sk> - 08.9.1999 09:36:22
Zdravim.
Ja mam tiez databazu kde je polozka Cena typu currency, ale databaza je typu paradox. Vsetko mi funguje OK. Ked zmenim nastavenie Ovladaci panel/Miestne nastavenie/Mena zmeni sa mi aj v DBGride.
Mailujem z prace, takze si neviem overit myslienku, ktora ma napadla teraz. Neviem ale skus priklad, kde pouzijes databazu typu Foxpro.
Inac preco nepouzivas databazu typu Paradox? Je to ich produkt, mozno ho poznaju lepsie ;-)). Inac ja som zvolil Paradox lebo mi zapisoval datum vo formate dd.mm.rrrr.
DBGrid mi zapisoval inu hodmotu jedine vtedy, ked som po scitani cisel formatu 99.99 dal sumu zapisat do posledneho riadku. Po s formarovani mi potom zobrazovalo dobru hodmotu. Ale to by mala byt ina kapitola. Podla mna by Ti malo reagovat zobrazenie podla currency. Inac by nemali vyznam nastavenia v Ovladocom panely
cau
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> Zbynek Ceska <zbyces(zv)physics.muni(tec)cz> 09/08 7:59 dop. >>>
Zdravim vsechny jeste jednou. Zkusim se zeptat znovu, ale
naposled. Potom s tim uz nebudu otravovat.
Mam Table ( normalne napojenou na DBGrid ) a v ni spoustu FIELDS.
Typ te TABLE je DBase. Jeden FIELD ('CENA') je definovan jako CURRENCY.
Potreboval bych, aby se mi cisla v tom sloupci v DBGRIDU tam, kde
je 'cena' automaticky zobrazovala ve formatu treba '15,00' nebo '14,56' a
podobne, at uz zadan do prislusnoho okenka '15' nebo '14,564'.
Zkousel jsem dat do ruznych mist programu promenou ( ted si nejsem
jisty, jak se jmenuje ) DecimalNumber ( podle helpu by mela urcovat pocet
desetinych mist Currency ). Vysledkem je to, ze se v DBGridu zobrazuje
vzdy to, co tam napisu a ne ten format '#.##'.
Moje otazka. Je mozne to vubec takto nastavit, kdyz je to jako
Field v Table ? A kde ma byt tato promenna nastavena ( vyzkousel jsem
vsechna mozna mista, ale at byla kdekoliv, stav se nezmenil.) ?
Moc dekuji za kazdou drobnou radu a kazdy i sebemensi napad. Diky
moc.
Zbynek Ceska
*************************************************************************
** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
** Plasma Physics ** High Technology Physics ** Microwave Physics **
*************************************************************************
Index is read only
[*] sup(zv)svitap(tec)cz - 8.9.1999 9:45:04
Dotaz nejak zapadl, zkousim to znovu...
D3 profi, Paradox
Mam malinkaty problemek. Databazova aplikace mi po edit/insert a table.Post
hlasi %sub%.
Co s tim ??
Diky za nakopnuti....
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
SHFileOperation pro D4
[*] Virag Ivan <ViragI(zv)radiomobil(tec)cz> - 8.9.1999 09:46:23
Dobry den vsem.
Nevite nekdo, kde se da sehnat komponenta SHFileOperation pro Delphi 4.
Dekuji.
Ivan Virag
Zpozdeni dbGrid
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 8.9.1999 09:50:55
> Ja bych to radeji udelal tak, ze na OnKeyDown odpojim RichEdit a na OnKeyUp
> jej opet pripojim. Tim se to nebude pri scrolovani obnovovat vubec a prestan
> e to zadrhavat. Stejne to asi tezko nekdo stiha cist. Jde jenom o efekt. Tak
> e by to slo udelat parametricky pri rozliseni pomalych a rychlejsich PC.
> Jaro
*** Diky, neco takoveho me vubec nenapadlo - to je presne to co jsem
potreboval.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Asociace dokumentu s ikonou a pridani do kontextov
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 09:54:32
Ahoy,
klucom je registry kluc HKEY_CLASSES_ROOT. Ked ho otvoris, udru Ti hned
do oci
nazvy pripon. Vezmime si napr. priponu GIF. Najdi ju v registry editore
a postav
sa na nu. Hodnota Default by mala byt "giffile" (bez uvodzoviek). Teraz
vieme,
ze musime hladat polozku GIFFILE. Najdi ju, otvor ju, najdes podkluc
Shell.
Otvor ho, a najdes podkluc Open. Po otvoreni kluca Open najdes polozku
Command.
Tam je nazov prpgramu, ktory sa bude spustat.
Ak sa vratis o niekolko urovni vyssie, spat k polozke GIFFILE, najdes
tam
podkluc DefaultIcon. To je cesta k suboru, ktory obsahuje default ikonu.
Ivan
Bene� Jaroslav wrote:
> Ahoj,
> pro asociaci souboru s aplikaci pouzij RegCreateKey, RegSetValue,
> RgCloseKey, RegDeleteKey, vic asi najdes v helpu. Delal jsem to podobne, ale
> napsal jsem si dve procedury pro register a unregister souboru, kde jsem
> RegxxxKey pouzil. Registrovani souboru ma zvlastni tvar, nelze jen
> registrovat priponu, ale musi se priradit typove jmeno, pridat ikona (tj.
> poradove cislo ikony v Tve asosciovane aplikaci) a pres typove jmeno lze
> doplnit i akce (open..) Tvoji aplikace tj. batch radek, ktere se objevi v
> kontextovem menu nad danym souborem.
> Vic ikon si muzes dat do aplikace pres externi RES soubor (napr.
> mojeikony.res), ktery se prilinkuje do projektu a nejlepsi je ho vytvorit ze
> scriptu *.RC ktery prelozis brcc/brcc32. Kazdy radek v RC souboru musi mit
> tvar
> 1 ICON "BOOKS.ICO"
> 2 ICON "BRAILE.ICO" tj. symbolicke jmeno, typ a fyzicky soubor.
> Jak pridat obecnou polozku do kontextoveho menu obecne v exploreru nevim,
> zrejme musis neco zapsat do registru jeste pri registraci souboru nebo treba
> pres *.REG :-|
> Jaro B.
> > -----P�vodn� zpr�va-----
> > Od: Pavel Polak [SMTP:pavelp(zv)bnsoft(tec)cz]
> > Odesl�no: 6. z��� 1999 15:58
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Asociace dokumentu s ikonou a pridani do kontextoveho menu v
> > exploreru
> >
> > Zdravim!
> >
> > Mam dotaz, chtel bych aby muj program pracoval s nejakym typem souboru,
> > jak
> > mam udelat aby sobory meli ikonku meho programu a ten program aby se
> > spustil
> > po kliknuti na ten soubor otevrel se mi v tom programu?
> >
> > A jeste bych mel jeden dotaz, jak pridam do kontextoveho menu ktere se
> > otevre v exploreru pokud kliknu pravym tlacitkem na soubor? (da se potom
> > priradit i te volbe v menu obrazek?)
> >
> > Dik
> >
> > Pavel Polak
> >
> > PS:Jeste mam jeden dotaz a to jak mam do jednoho projektu nahrnout vic
> > ikon
> > kdyz ve volbe v options v delphi je jen misto pro jednu ikonku?
> >COM podruhe
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 09:54:20
COM podruhe
Ked som pred mnohymi rokmi robil v basicu, nevedel som pochopit, naco su
polia. Pochopil som to, az ked som ich sam potreboval vyuzit. To iste s
OOP: pochopil som to, az ked som to potreboval pouzit. COM som este
nepotreboval, takze s pochopenim mam problemy...
Aby mi zaplo, potrebujem konkretny priklad typu "ja som pouzil COM
preto, lebo inak by som to musel robit takto a takto, co je menej
efektivne". (Prosim obcanov, ktori sa prave nachadzaju v procese
hormonalnej transformacie, aby slova "to musel robit takto a takto"
nepochopili nespravne).
Ktosi ma tu celkom dobre nastartoval s tym TFieldom. Po pridani novej
vlastnosti treba prekompilovat cely program. COM server, ktoreho metody
pouzivam, sa moze nachadzat v inom procese, je tak? A ked pridam nieco
nove, musim znova skompilovat server, aby novu funkciu podporoval, a
klienta, aby novu funkciu vedel vyuzit.
Mozem teda COM server vzdialene chapat ako TObject, ktoreho metody su
pristupne viacerym aplikaciam? A mozem pojem Interface chapat ako pojem,
pod ktorym sa skryva oznacienie metod tohto objektu?
A potom su tu este take pojmy ako class factory. Podla manualu "Class
factory - An object, that can create a COM object from a specified
CoClass". Pritom definicia COM objektu je: "An instance of a class,
called a CoClass, that implements the methods of COM interfaces". Teda
COM potrebuje nejaku CoClass, z ktorej sa vytvori? Ale podla tohto je
COM objekt vlastne instanciou triedy CoClass...Som z toho popleteny.
Hodi sa COM iba pre velke, alebo aj mensie aplikacie?
Lamer Ivan
Ukoncenie aplikacie
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 09:54:09
Spustenie aplikacie sa realizuje pomocou WinEXEC alebo ShellExecute.
Predpokladam, ze chces ukoncit "cudziu" aplikaciu, nie svoju, lebo
application.terminate snad pozna kazdy. Ppmocou WinSigthu si zisti
Window Class okna, ktore chces ukoncit. Window Text je nepovinny. Potom
mu posli WM_QUIT. Napriklad tento kod ukoci program Windows Commander:
TWINDOWSCMD je nazov Window Class hlavneho okna Windows Commanderu.
procedure TForm1.Button4Click(Sender: TObject);
var hwnd:THandle;
begin
hwnd:=FindWindow('TWINDOWSCMD',nil);
if hwnd<>0 then PostMessage(hwnd,WM_QUIT,0,0);
end;
Jozef Uhler wrote:
> Mam taky problem, ze potrebujem ukoncit beziacu aplikaciu. Chcel by som to
> urobit pomocou Delphi 4. Zaroven potrebujewm vediet ako mozem aplikaciu
> spustit.
> D.Packages
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 8.9.1999 09:56:11
Prostredi: Delphi 4.03 Prof/W95OSR2
Kdyz si v "Project options/Packages" zaskrtu volbu "Build with runtime
packages", do nasledujici radky specifikuji pouze balicek FF153_R40
(FlashFiler) a provedu Build, pak vysledna aplikace predpoklada sireni
dane knihovny. To je jasne. Ale proc chce i VCLxx40.BPL balicky, kdyz
jsem je nespecifikoval, to mi neni jasne. Myslel jsem, ze do kodu EXE se
zahrnou vsechny potrebne veci krome tech, ktere jsem specifikoval v
radku u volby "Build with runtime packages". Co mam udelat, abych
prelozil aplikaci, ktera bude chtit POUZE balicky, ktere ji specifikuji
a nebudu muset sirit VCLxx40.bpl balicky (2.9MB) ?
Diky
Mira
Currency + Table (2) jeste presneji
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 10:30:37
Skusal si nastavit property DisplayFormat alebo EditFormat vo Fielde?
Ale aj tak si myslim, ze mas zle nastaveny format Currency vo Windowsoch.
Zbynek Ceska wrote:
> Zdravim vsechny jeste jednou. Zkusim se zeptat znovu, ale
> naposled. Potom s tim uz nebudu otravovat.
>
> Mam Table ( normalne napojenou na DBGrid ) a v ni spoustu FIELDS.
> Typ te TABLE je DBase. Jeden FIELD ('CENA') je definovan jako CURRENCY.
> Potreboval bych, aby se mi cisla v tom sloupci v DBGRIDU tam, kde
> je 'cena' automaticky zobrazovala ve formatu treba '15,00' nebo '14,56' a
> podobne, at uz zadan do prislusnoho okenka '15' nebo '14,564'.
> Zkousel jsem dat do ruznych mist programu promenou ( ted si nejsem
> jisty, jak se jmenuje ) DecimalNumber ( podle helpu by mela urcovat pocet
> desetinych mist Currency ). Vysledkem je to, ze se v DBGridu zobrazuje
> vzdy to, co tam napisu a ne ten format '#.##'.
> Moje otazka. Je mozne to vubec takto nastavit, kdyz je to jako
> Field v Table ? A kde ma byt tato promenna nastavena ( vyzkousel jsem
> vsechna mozna mista, ale at byla kdekoliv, stav se nezmenil.) ?
>
> Moc dekuji za kazdou drobnou radu a kazdy i sebemensi napad. Diky
> moc.
> Zbynek Ceska
>
> *************************************************************************
> ** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
> ** Plasma Physics ** High Technology Physics ** Microwave Physics **
> *************************************************************************currency format a table - upresneni
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 10:35:46
Co sa tyka nastavovania tych formatov - tiez som mal v aplikacii problem s
formatom datumu, ktory sa da nastavovat vo Windows. Tak som jednoducho na
zaciatok prveho spustenia aplikacie pridal kontrolu, v ktorej som zistil
format a ked nebol dobry, zobrazil som windowsovsky help s navodom, ako to
spravne nastavit.
Inak currency format sa da nasimulovat cez DisplayFormat a EditFormat.
Zbynek Ceska wrote:
> On Wed, 8 Sep 1999, Zdeno Jasek wrote:
> > A mas dobre nastaveny format currency vo Windowsoch?
>
> To nevim ( nemam to tu u mailu ). Ale uprimne bych to radeji ani nevedel.
> Prece to musi byt nejak universalni. Kdybych to chtel dat nejakemu
> uzivateli, tak mu nebudu rikat, at si zkontroluje nastaveni meny ve
> Winech. 50% uzivatelu tohle stejne neumi - mozna i vic.
>
> Kazdopadne Dik. Zbynek.Index is read only
[*] Luk� Gallina - 8.9.1999 10:37:38
Zdar,
na to uz jsem se jednou ptal a neodpovedel. Ten samy trouble mel i jeden muj
kamarad..... nevyresili jsme to.
Me se to potom rozjelo nevim proc a jak. Ja jsem ten doubor databaze smazal
a udelal znovu, chvili to blblo a pak se to rozjelo.... nevite nekdo PROC?
Skousel jsem to pak i nasimulovat ale nezdarilo se najit nejake
souvislosti....
Jestli je nekdo vi, necht odpovi....
Luk� Gallina (Lukas Gallina)
racek(zv)devacomm(tec)cz
Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
> Dotaz nejak zapadl, zkousim to znovu...
>
> D3 profi, Paradox
>
> Mam malinkaty problemek. Databazova aplikace mi po edit/insert a
table.Post
> hlasi %sub%.
> Co s tim ??
>
> Diky za nakopnuti....
>
> 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
Chyba pri volani procedury z knihovny
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 11:05:41
Ahoy,
ja som mal podobny problem s niecim uplne inym. Ked som to krokoval,
islo to OK,
ked som to spustil, raz to islo, a raz nie. Vyriesil to riadok
Application.Processmessages. Inde som zase mal problem, ze som graboval
obrazovku a jedno okno sa nestihlo pred grabovanim skryt. Tam
Application.Processmessages nepomohlo, ale pomohlo Sleep(500). Pokus sa
pred
kriticke operacie umiestnit niektory z tychto prikazov. V mojom pripade
sa
system zrejme potreboval trocha "nadychnut", mozno v Tvojom pripade ide
o to
iste (znie to detinsky, ale mne to problem vyriesilo).
Ivan
Tomas Rosa wrote:
> Ahoj Delphisti,
>
> mam jeden docela zavazny problem. Volam dynamicky nacitanou knihovnu
> od ktere nemam zdrojak. Tedy neco jako externi modul (v tomto pripade je
> jedna o PHP4ISAPI.dll). Pokud si necham krokovat tu proceduru, kterou
> volam, debuger skoci na me procedury vyvolane z modulu PHPcka (tedy
> zapis do prohlizece, cteni paramatru a tak) a vse je ok. Dokonce
> zpracuje predany soubor a vrati uz jen HTML. Takze vse funguje. Pokud
> vsak toto zavolam bez krokovani, tedy primo, spadne to na te procedure
> kterou zavolam. Zkousel jsem to asi dve hodiny a nic. Proste kdyz
> krokuji, vse je OK. Kdyz to spustim primo, neudela to nic a vrati
> Invalid Pointer Operation. Pokud by nekdo vedel jak to opravit, poslu
> klidne i zdrojak. Predem moc dikes.
>
> P.S.: Pokud ma nekdo zajem, prepsal jsem hlavicky pro ISAPI verze 4.0 do
> Delphi.
>
> --
> S pozdravem Tomas Rosa
>
> ------------------------=[ pinknet on every
> screen]=-----------------------
> Tomas Rosa Vyroba programu na
> zakazku
> Tomas.Rosa(zv)PinkNet(tec)cz
> http://web.pinknet(tec)cz/~trosa/
> +420 602 860 704
> PinkNet Web Server for Win32 - FREEWARE
> http://pnws.pinknet(tec)cz/
> ----------------------------------------------------------------------------
ADO a Delphi 3
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 11:05:22
Hi,
da sa ADO vyuzit v Delphi 3? Su na to nejake komponenty?
Ivan
DDE a Win9x
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 11:05:30
Hi,
zial, s DDE nemam skusenosti. Ale mam jeden rusky napad. Tebe v podstate
vadi,
ze sa spusti druhy Player, je tak?. A co keby si tento player najprv
programovo
zavrel (teda jeho predchadzajucu instanciu) a potom spustil novy? Takto
by bol
v pamati iba jeden player.
A co keby si docasne zmenil asociaciu v registroch? Spustal by sa Tvoj
program
a po ukonceni by tam vratil MediaPlayer.
Ivan
Radoslav Jal� wrote:
> Ahoj
>
> > Ak som dobre pochopil: mas wav, a chces ho prehrat s tym prehravacom,
> > ktory je s nim asociovany. PReco DDE? Pouzi ShellExecute. Takto vies
>
> Asi si ma nepochopil ...
>
> Predstav si toto :
> - Win9x ma asoc. priponu *.wav povedzme na MediaPlayer
> - ja mam aplikaciu, kde chcem spustit wav subor, ALE inym playerom, ktory
> podporuje DDE
> - ak pouzijem shellexecute na wav, tak sa mi spusti MediaPlayer
> - no a ja chcem z mojej aplikacie spustit iny player a to prave pomocou DDE
> !!!
> - pretoze ak spustam metodou PLAYER subor.wav , tak uz pri druhom spusteni
> sa ten player spusta ako dalsia aplikacia a ja potrebujem aby sa v uz
> spustenom playeri prehral dalsi a dalsi wav....potrebujem mu poslat
> play('subor.wav'), ale AKO ?
>
> Takze preto DDE ....
>
> Diky za pochopenie a prosim o radu ...
>
> S pozdravom
> Radoslav Jalc
Na derave formulare je CoolForm
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 11:05:58
Hi,
na derave formulare pouzivajte CooForm -
http://www.lawrenz.com/coolform/
Ivan
Zmena vlastnosti komponenty...
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 11:06:02
Hi,
ano da sa vytvorit vlastny binarny format, ale to je podla ma zbytocne
zlozite. Ake udaje ukladas? Ak su to povedzme cisla, a ty potrebujes
ulozit
cislo 100, odcitaj z neho povedzme 50 - primitivne sifrovanie. (V subore
teda bude 50).
Ked potom hodnotu 50 nacitas, pridaj k nej zase 50 a budes mat 100.
Alebo
XORuj.
Ked sa Ti niekto bude vrtat v subore, hodnoty sice bude viediet zmenit,
ale
narobi tam pekny chaos. Ak robis s retazcami, mozes pouzit ten sifrovaci
komponent. Alebo ich proste zakoduj Base64.
Ivan
Zbysek Hlinka wrote:
> Milan Bla ek wrote:
>
> > Ivane diky, ale neslo !
> > Protoze nechci, aby se zmenena hodnota vlastnosti dala
> > modifikovat z vnesku napr. v .INI souboru. Pokud mas jiny napad tak Ti
> > predem dekuji.
>
> Vzdyt data nemusi byt v INI, muzes si vyrobit vlastni format
> binarniho souboru, kam to budes ukladat. A pro jistotu si to muzes
> i zasifrovat, na Delphree je sifrovaci utilita Cast. :-)
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Telefonicke pripojeni site
[*] Mik Radim <mik(zv)oce(tec)cz> - 8.9.1999 11:40:02
Mezi nenormalni podminky patri i Linux u ktereho je to zarizeno
pomoci cekani na retezec RING a nasledne poslani prikazu ATA ( A jako
answer).
R.
> Odpovidatele to sice mysleli dobre (s0=n je opravdu v "normalnich"
> podminkach nastaveni poctu zazvoneni ... to jsem taky kdysi vedel a
> zkousel
> ... :-( ) ale MS Server tel. pripojeni nespada mezi "normalni
> podminky".
>
> Mam z toho pocit, jakoby poslal patricny konf. retezec do modemu a
> pak tam
> sam nacpal jeste neco jineho (treba s0=1 ? :-) ... pripadne to
> zvednuti
> obstaravali nejak "jednodusseji" a zvedali to kdy chcou. (obecny
> styl A'la
> MS)
>
> Index is read only
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 11:51:53
Pregeneruj index.
sup(zv)svitap(tec)cz wrote:
> Dotaz nejak zapadl, zkousim to znovu...
>
> D3 profi, Paradox
>
> Mam malinkaty problemek. Databazova aplikace mi po edit/insert a table.Post
> hlasi %sub%.
> Co s tim ??
>
> Diky za nakopnuti....
>
> 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
Directory stamp
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 08.9.1999 12:19:23
Hi,
ako zistim datum poslednej modifikacie adresara? Potrebujem nejaku
rychlu rutinu, aku maju file managery.
Ivan
Problem mODBC na mySQL
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 8.9.1999 12:29:22
----- P�vodn� zpr�va -----
Od: eL <eL_z_Prahy(zv)seznam(tec)cz>> Tomas Krecmer wrote:
> >
> > > environment:Win98/95 CZ,Delphi STANDART 4.0 (Build 5.104)Update Pack 2
> > > RxLib 2.60 keywords:ODBC,mySQL,mODBC,Integer Overflow,Invalid field
size
> > >
> > > Zdravim vsechny.
> > >
> > > q: zkousel jsem komponenty mODBC pro pristup k mySQL. Nejak mi to ale
> > > nebezi. Mam na formulari mDatabase,DataSource,mTable,dBGrid a jiz pri
> > > navrhu (pokud dam Table.Active=True) to na mne rve u nekterych tabulek
> > > hlasku "Integer Overflow" pri kazde aktivaci formulare (v tomto
pripade se
> > > v DBGridu zobrazi par (ne vsechny) radku dat). U jinych tabulek to na
mne
> > > zase rve "Invalid field size", u tech potom nejde nastavit active na
> > > True.
> > >
Ja jsem zkousel mODBC k praci s dBase a mne se zase nepodarilo vubec vlozit
vetu do tabulky ani modifikovat fieldy.Spadlo mi to s hlasenim o tom, ze
tabulka neni v edit or insert mode. Ptal jsem se tady a nikdo neodpovedel,
takze predpokladam, ze kdyz mi nikdo neodpovedel, tak mODBC nepouzivaji
"guruov�" teto konference a tak jsem mODBC "vyhodil" .
Celkem by me zajimalo, jestli to nekomu jakztakz funguje.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
(D4 C/S)
ACCESS a obrazky
[*] suvak(zv)pbko.sk - 8.9.1999 11:42:53
[P��loha v souboru: Obrazok.jpg]
Ahojte,
Do accesovskej databazy ukladam obrazky bmp a jpeg. Pri ich zobrazovani
vsak nastava problem. Spravne sa zobrazi len horna tretina obrazku (velkost
spravne zobrazenej plochy zavisi od velkosti ulozeneho obrazku. Uplne male
obrazky sa zobrazuju korektne). Zvysok obsahuje zvisle pasy (dovolim si
prilozit vzorku, viem, ze sa to v konferencii nesmie, bohuzial, neviem to
vsak inac
popisat a prilozeny obrazok je iba 13 KB velky, dufam, ze mi odpustite). Na
ich
zobrazenie pouzivam TImage, do ktoreho to priradujem cez .Picture.Assign,
ak
to vyvola vynimku, predpokladam ze ide o jpeg a nahravam to cez stream.
Na pripojenie pouzivam ODBC, pretoze aplikacia bude bezat na pocitacoch,
kde nie je instalovany ACCESS. Mam Delphi 4CS sp.3, BDE v. 5.01,
ODBC Microsoft Access Driver (*mdb) v. 4.00.3711.08.
Podotykam, ze obrazky su v databaze ulozene spravne, v SQL Exploreri
cez
BLOB viewer su zobrazene spravne. Takisto som cez DataPump prekonvertoval
databazu do Paradoxu, a na zobrazenie pouzil ten isty algoritmus a bolo to
OK.
Pomozte prosim!!!
=============================================================
Ing. Peter Suvak, veduci oddelenia spravy systemov
Priemyselna banka, a.s. Kosice
Sturova 27
040 01 Kosice
tel.: 095 / 6804 282
fax: 095 / 6804 510
mobil: 0903 610 901
=============================================================
(See attached file: Obrazok.jpg)Telefonicke pripojeni site
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 8.9.1999 12:43:07
Martin Tichacek <martin_t(zv)mrp(tec)cz> wrote:
> Mam z toho pocit, jakoby poslal patricny konf. retezec do modemu a pak tam
> sam nacpal jeste neco jineho (treba s0=1 ? :-) ... pripadne to zvednuti
> obstaravali nejak "jednodusseji" a zvedali to kdy chcou.
> (obecny styl A'la MS)
Docela by mne zajimalo, zda jsi nekde videl SW, ktery by nechal navazovat spojeni samostatny modem na zaklade nenulove hodnoty registru S0 a pak detekoval odezvu CONNECT [xxxx] popr. zmenu signalu DCD?
Vsechny SW, ktere jsem mel moznost videt, cekaly na RING a pak posily ATA. Gates nedela nic jineho a kdyz se podivas do INF souboru k modemum, tak zjistis, ze u modemu, ktere maji default hodnotu S0<>0, maji v Init stringu prikaz S0=0.
bye pf, callnet(zv)telecom(tec)cz
Mask + bitmap
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 8.9.1999 13:11:21
> Potreboval bych z bitmapy odstranit jednu barvu a nahradit ji jinou.
> Nevite nekdo jak se to dela? Zkousel jsem Bitmap.Mask metodu,
> ale ta ostatni barvy zmeni na cernou.
No to je vyborny, ne?
Takze k tomuhle (Barva1+cerna) udelej negaci (not Barva1+bila),
pust na to Bitmap.Mask( bila ) => (cerna+bila) a mas masku.
O-AND-uj tim puvodni obrazek, negaci te masky o-AND-uj plochu
Tve Barvy2 a udelej z toho soucet (OR) a je to.
Ty logicke operace - Canvas.CopyMode + Canvas.CopyRect.
Tom
Kresleni v bitmape...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 8.9.1999 13:31:45
Ahoj
nevim si rady s nasledujicim problemem:
mam dve bitmapy - barevnou a monochrome, ktera je maskou barevne bitmapy
funkci FloodFill vyplnim libovolnou oblast barevne bitmapy a zaroven
potrebuji stejnou oblast
masky vyplnit cernou barvou, ale nevim jak.
umi nekdo poradit?
diky
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Telefonicke pripojeni site
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 8.9.1999 13:33:44
na NT se to zapisuje do
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RasMan\Parameters]
"NumberOfRings"=dword:00000004
a pak je potreba jeste prohledat vsechny *.ini a pripadne opravit.
-treba to bude fungovat i ve W95
M.Telefonicke pripojeni site
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 8.9.1999 13:34:23
Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> wrote:
> Tak jinak. Par komponent pro ovladani modemu bych mel. Vytoci, nahraje,
> resp. prehraje msg, reaguje na ring - normal. Co je potreba krome zvednuti
> modemu k tomu, abych prichozi volani modemem vyuzil na pripojeni site ?
> Proste nahradit dosavadni "server".
To bude asi dost velkej problem, predavat si seriovy port s modemem v presne definovanem stavu mezi aplikacemi, z nich jenom jedna by byla pod Tvoji kontrolou...
Nevim, na co presne to potrebujes, ale co takhle zkusit nasimulovat leased line: modem pripojit pres INF pro direct connection, modemu nastavit trvale DCD=1, pouzit S0<>0, aby modem navazoval spojeni sam. Pak by mozna mohlo stacit navazat spojeni na serveru pres telefonni pripojeni site a Gates by se od te doby mohl tvarit, ze ma spojeni. Modem by pak sam pripadna volani pripojoval a Gates by na ne v ramci nejakeho time-outu mohl zareagovat.
bye pf, callnet(zv)telecom(tec)cz
P.S. Abychom se vyhnuli podobnemu laborovani, tak jsme zbabele pro obsluhu modemu pouzili LINUX :-)))
E-mai z programu - D3, D4
[*] Honza Jochman <Jan.Jochman(zv)ais(tec)cz> - 8.9.1999 13:36:45
Zdravim vsechny Delphiny,
potrebuji aby program umel posilat a prijimat E-maily. Nikdy jsem nic
takovyho nedelal. Existuji nejake levne komponenty ( nejlepe free... - je to
pro nekomercni ucely ), ktere by to resily ?
Diky Honza Jochman
Delphi4 - MS SQL
[*] Petr Fojtik <fof(zv)foresta(tec)cz> - 8.9.1999 13:56:58
Pros�m z��astn�n� o radu. Provozujeme Delphi4 C/S a BDE verze 5 na stran�
klienta (Win98) proti MS SQL serveru 6.5 (na WindowsNT Server 4.0 service
pack 4). Pou��v�me nativn� driver (SQLMSS32.DLL verze 4).
Pot�ebujeme poradit ve dvou probl�mech :
1. Jak �e�it vyta�en� dat (v�sledek selectu) do textov�ho souboru a naopak
opravu dat extern� vytvo�en�m scriptem (samoz�ejm� pomoc� SQL p��kaz�). To
v�e obecn�, bez vytvo�en� zvl�tn�ho programu (nap�. p�i servisu nebo
p�edpln�n� datab�ze). M�me samoz�ejm� �esk� data. Pokud pou�ijeme Explorer,
tak pracuje korektn� s �e�tinou (podle zvolen�ho Langdriveru v aliasu), ale
nem��eme dostat v�sledn� data do souboru (nefunguje ani clipboard) ani
pou��t v�cep��kazov� SQL-script. Pokud naopak pou�ijeme na serveru
Enterprise Manager (v n�m SQL Tools), pak toto v�echno um�, ale neum�
spr�vn� pracovat s �e�tinou (nelze zvolit Langdriver).
2. Zjistili jsme prazvl�tn� chov�n� n�kde mezi MS SQL a BDE (nebo p��mo v
nich). Pou��v�me tabulky ve kter�ch jsou prim�rn�mi kl��i polo�ky typu char.
P�i na�ten� dat z tabulky do gridu (v programu) se n�kdy stane, �e se
n�kter� ��dky zobraz� 2x (mysl�m t�m 2x stejn� prim�rn� kl��). Pochopiteln�
to d�l� prob�m p�i pr�ci (nap�. chyba "Record/Key deleted"). V Exploreru se
takov� ��dky n�kdy ojev� tak� 2x, ale v�dy d�laj� probl�m, kdy� po smaz�n�
nezmiz� ale u� nejdou opravovat (op�t "Record/Key deleted"). Konkr�tn� te�
mi to v jedn� tabulce se 24mi ��dky d�l� v�dy stejn�ch 6 ��dk�. Nepomohlo
pou��t jinou tabulku stejn� struktury pod jin�m n�zvem ani zalo�en� jin�
datab�ze. Velmi podobn� probl�m (asi ten sam�) jsme zjistili i na jin�m
pracovi�ti , tak� na MS SQL Serveru 6.5 a na stejn�m Exploreru (instalovan�m
p��mo na serveru WindowsNT Server 4.0).
U� n�s to st�lo dost �asu a nem�me zat�m ani n�znak �e�en�. P�edem d�kuji i
za naveden� spr�vn�m sm�rem.
Petr Fojt�k
fof(zv)foresta(tec)cz
Jak zakazat vice spusteni programu
[*] Santik <santik(zv)pronetix.sk> - 8.9.1999 14:05:31
>>Mam takovy program, ktery pouziva odkladove soubory, takze kdyz se spustil
vice nez jednou, nastane problem. Jak tedy zajistit, aby >>se program nedal
vice nez jednou na jednom pocitaci zpustit. Nebo jak zjistit je-li uz onen
program spusten. Zkousel jsem si zapsat do >>registru znameni, ze je program
spusten, lec stacil jeden reset za behu a program se stal nespustitelnym.
Jak tedy na to?
Volakde na Sieti som nasiel kedysi toto:
unit cmpRunOnce;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
const
WM_PARAMS = WM_USER + $200;
type
TOnOtherInstance = procedure (Sender : TObject; ParamCount : DWORD;
ParamStr : array of string) of object;
TRunOnce = class(TComponent)
private
fOtherWindowHandle : HWND;
fUniqueMessage : DWORD;
fParamsMessage : DWORD;
fOldOwnerWindowProc : TFNWndProc;
fObjectInstance : pointer;
fOnOtherInstance: TOnOtherInstance;
function CheckOtherApp (hwnd : HWND) : boolean;
procedure OwnerWindowProc(var msg: TMessage);
procedure ProcessParameters (remoteMemHandle : THandle; remoteProcessID
: DWORD);
protected
procedure Loaded; override;
public
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
published
property OnOtherInstance : TOnOtherInstance read fOnOtherInstance write
fOnOtherInstance;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Misc Units', [TRunOnce]);
end;
{ TRunOnce }
function TRunOnce.CheckOtherApp(hwnd: HWND): boolean;
var
msgResult : DWORD;
begin
result := False;
if hwnd <> TForm (Owner).Handle then
begin
if (SendMessageTimeout (hwnd, fUniqueMessage, 0, 0, SMTO_BLOCK or
SMTO_ABORTIFHUNG, 1000, msgResult) <> 0) and (msgResult = fUniqueMessage)
then
begin
fOtherWindowHandle := hwnd;
result := True
end
end
end;
constructor TRunOnce.Create(AOwner: TComponent);
begin
inherited Create (AOwner);
end;
destructor TRunOnce.Destroy;
begin
if Assigned (fObjectInstance) then
FreeObjectInstance (fObjectInstance);
inherited;
end;
function EnumWindowsProc (hwnd : HWND; lParam : LPARAM) : BOOL; stdcall;
begin
result := not TRunOnce (lParam).CheckOtherApp (hwnd)
end;
procedure TRunOnce.OwnerWindowProc (var msg : TMessage);
begin
with msg do
if Msg = fUniqueMessage then
result := fUniqueMessage
else
if Msg = fParamsMessage then
try
ProcessParameters (wParam, lParam)
except
Application.HandleException (self)
end
else
result := CallWindowProc (fOldOwnerWindowProc, TForm (Owner).Handle,
msg, wParam, lParam);
end;
procedure TRunOnce.Loaded;
var
mapHandle : THandle;
paramPtr, p : PChar;
paramSize : DWORD;
i : Integer;
begin
inherited;
if not (csDesigning in ComponentState) and (Owner is TForm) then
begin
fUniqueMessage := RegisterWindowMessage (PChar (ExtractFileName
(Application.Exename)));
fParamsMessage := RegisterWindowMessage ('WoozleRunOnce');
fObjectInstance := MakeObjectInstance (OwnerWindowProc);
fOldOwnerWindowProc := TfnWndProc (SetWindowLong (TForm (Owner).Handle,
GWL_WNDPROC, Integer (fObjectInstance)));
EnumWindows ((zv)EnumWindowsProc, LPARAM (self));
if fOtherWindowHandle <> 0 then
begin
paramSize := 1;
for i := 0 to ParamCount do
Inc (paramSize, 1 + Length (ParamStr (i)));
mapHandle := CreateFileMapping ($ffffffff, Nil, PAGE_READWRITE, 0,
65536, Nil);
if mapHandle <> 0 then
try
paramPtr := MapViewOfFile (mapHandle, FILE_MAP_WRITE, 0, 0,
paramSize);
if paramPtr <> Nil then
try
p := paramPtr;
for i := 0 to ParamCount do
begin
lstrcpy (p, PChar (ParamStr (i)));
Inc (p, Length (ParamStr (i)) + 1)
end;
p^ := #0;
finally
UnmapViewOfFile (paramPtr);
end
else
RaiseLastWin32Error;
SendMessage (fOtherWindowHandle, fParamsMessage, mapHandle,
GetCurrentProcessID);
finally
CloseHandle (mapHandle);
end
else
RaiseLastWin32Error;
SetForegroundWindow (fOtherWindowHandle);
Application.Terminate
end
end
end;
procedure TRunOnce.ProcessParameters(remoteMemHandle : THandle;
remoteProcessID: DWORD);
var
memHandle : THandle;
remoteProcessHandle : THandle;
paramPtr : PChar;
p : PChar;
paramCount : DWORD;
params : array of string;
i : Integer;
begin
remoteProcessHandle := OpenProcess (PROCESS_DUP_HANDLE, false,
remoteProcessID);
if remoteProcessHandle <> 0 then
try
if DuplicateHandle (remoteProcessHandle, remoteMemHandle,
GetCurrentProcess, (zv)memHandle, FILE_MAP_READ, False, 0) then
try
paramPtr := MapViewOfFile (memHandle, FILE_MAP_READ, 0, 0, 65536);
if paramPtr <> Nil then
try
if Assigned (fOnOtherInstance) and not (csDestroying in
ComponentState) then
begin
p := paramPtr;
paramCount := 0;
while p^ <> #0 do
begin
Inc (paramCount);
Inc (p, lstrlen (p) + 1)
end;
SetLength (params, paramCount);
p := paramPtr;
i := 0;
while p^ <> #0 do
begin
params [i] := p;
Inc (p, lstrlen (p) + 1);
Inc (i);
end;
OnOtherInstance (self, paramCount - 1, params)
end
finally
UnmapViewOfFile (paramPtr)
end
else
RaiseLastWin32Error
finally
CloseHandle (memHandle);
end
else
RaiseLastWin32Error
finally
CloseHandle (remoteProcessHandle)
end
else
RaiseLastWin32Error;
end;
end.
Autorun.ini
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 8.9.1999 14:07:28
Pod NT:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\Autorun
�
Pozor na to, ze tam muze byt vic CD-romek.
�
Pod W9x to bude podobne, hledejte v registry slovo autorun nebo autoplay.
�
R.Pospisil
-----Original Message-----
From: Petr Voborn�k [mailto:vobornik(zv)ssakhk(tec)cz]
Sent: Saturday, September 04, 1999 6:40 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Autorun.ini
Jelikoz heslo u vetsiny sporicu se da obejit jednouduchym programkem
nahranym na CD, ktere se ma automaticky spustit, zajimalo by me, jakym
prikazem automaticke spusteni souboru autorun.ini na CeDeckach deaktivuju,
pak take, jakym prikazem to opet aktivuju a jeste predtim by se hodilo taky
zjistit, bylo-li to vubec zapnuto.
�
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz <mailto:vobornik(zv)ssakhk(tec)cz>
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/ <http://www.ssakhk(tec)cz/home/vobornik/> Terminate Process
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 08.9.1999 14:16:19
ave Vsichni !
nevi nejaka dobra duse jak ukoncit vsechny procesy, nebo aspon
jeden zadanej. Umim si je vypsat (viz RE:Processy) ale chtel
bych potom urcity znich ukoncit.
dekuji vsem
mailto: bansky(zv)club(tec)cz
Jak zakazat vice spusteni programu
[*] Radek Dostal <Dostal(zv)GyZamb(tec)cz> - 8.9.1999 14:19:50
Zdravim
V�ce viz http://www.delphi(tec)cz/faq.asp?faq=27
S pozdravem Radek Dostal
-----P�vodn� zpr�va-----
Od: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. z��� 1999 14:14
P�edm�t: Jak zakazat vice spusteni programu
Mam takovy program, ktery pouziva odkladove soubory, takze kdyz se
spustil vice nez jednou, nastane problem. Jak tedy zajistit, aby se program
nedal vice nez jednou na jednom pocitaci zpustit. Nebo jak zjistit je-li uz
onen program spusten. Zkousel jsem si zapsat do registru znameni, ze je
program spusten, lec stacil jeden reset za behu a program se stal
nespustitelnym. Jak tedy na to?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Fields
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 8.9.1999 14:20:17
Delphi 1:
Mam Query. Do toho prirazuju v programu SQL prikaz. A ted potrebuju,
aby se vytvorily vsechny fieldy z vyberu (coz se deje automaticky)
a dale abych vytvoril nekolik Calculated fieldu (ktere se budou take
zobrazovat).
Zkousel jsem vsechno mozne, ale nedari se mi ty calculated fieldy
vytvorit
tak, aby se staly soucasti toho Query objektu a ja je tak mohl zobrazit.
Nevite nekdo pomoc.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+Jak zakazat vice spusteni programu
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 08.9.1999 14:23:39
> Mam takovy program, ktery pouziva odkladove soubory, takze kdyz se
> spustil vice nez jednou, nastane problem. Jak tedy zajistit, aby se
> program nedal vice nez jednou na jednom pocitaci zpustit. Nebo jak
> zjistit je-li uz onen program spusten. Zkousel jsem si zapsat do
> registru znameni, ze je program spusten, lec stacil jeden reset za
> behu a program se stal nespustitelnym. Jak tedy na to?
>
Staci v DPR souboru nadefinovat tuto funkci:
function AlreadyRunning: boolean;
var mutex: THandle;
recipients: DWORD;
begin
MSG_FOCUSME := RegisterWindowMessage('FK_OneInstanceOnly_MSG');
mutex := CreateMutex(nil,false,'FK_OneInstanceOnly');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
CloseHandle(mutex);
Recipients := BSM_ALLCOMPONENTS;
BroadcastSystemMessage(BSF_IGNORECURRENTTASK or
BSF_POSTMESSAGE,(zv)Recipients,MSG_FOCUSME,0,0);
Result := true;
end else
Result := false;
end {RunOnceOnly};
begin // projektu
if AlreadyRunning then exit;
...
Tato funkce jeste navic preda message jiz aktivnimu programu, ktery na
ni muze zareagovat, napr. se muze prepnout do popredi atd.
Ne, opravdu mi nedekujte. Kam mam poslat fakturu? :)))
--
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)ICQ message
[*] Iko <iko(zv)kamarad(tec)cz> - 8.9.1999 14:41:39
No neviem, mozno s odchytavanim paketov :)
iko
iko(zv)kamarad(tec)cz
Jak zakazat vice spusteni programu
[*] Tibor Galik <tgalik(zv)vsz.sk> - 08.9.1999 15:01:06
pozri
http://www.delphi(tec)cz/faq.asp?faq=27
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> Petr_Voborn�k <vobornik(zv)ssakhk(tec)cz> 09/04 6:44 odp. >>>
Mam takovy program, ktery pouziva odkladove soubory, takze kdyz se spustil vice nez jednou, nastane problem. Jak tedy zajistit, aby se program nedal vice nez jednou na jednom pocitaci zpustit. Nebo jak zjistit je-li uz onen program spusten. Zkousel jsem si zapsat do registru znameni, ze je program spusten, lec stacil jeden reset za behu a program se stal nespustitelnym. Jak tedy na to?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Jak zakazat vice spusteni programu
[*] FitCom <fitcom(zv)volny(tec)cz> - 8.9.1999 15:06:01
Toto zadej do begin..end bloku v source projektu ( .dpr):
begin
if HPrevInst <>0 then begin
ActivatePreviousInstance;
Halt;
end;
end;
Tady je unita kterou pou�ije�:unit PrevInst;
interface
uses
WinProcs,
WinTypes,
SysUtils;
type
PHWnd = ^HWnd;
function EnumApps(Wnd: HWnd; TargetWindow: PHWnd): bool; export;
procedure ActivatePreviousInstance;
implementation
function EnumApps(Wnd: HWnd; TargetWindow: PHWnd): bool;
var
ClassName : array[0..30] of char;
begin
Result := true;
if GetWindowWord(Wnd, GWW HINSTANCE) = HPrevInst then begin
GetClassName(Wnd, ClassName, 30);
if STRIComp(ClassName,'TApplication')=0 then begin
TargetWindow^ := Wnd;
Result := false;
end;
end;
end;
procedure ActivatePreviousInstance;
var
PrevInstWnd: HWnd;
begin
PrevInstWnd := 0;
EnumWindows((zv)EnumApps,LongInt((zv)PrevInstWnd));
if PrevInstWnd <> 0 then
if IsIconic(PrevInstWnd) then
ShowWindow(PrevInstWnd,SW Restore)
else
BringWindowToTop(PrevInstWnd);
end;
end.
-----P�vodn� zpr�va-----
Od: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. z��� 1999 14:19
P�edm�t: Jak zakazat vice spusteni programu
Mam takovy program, ktery pouziva odkladove soubory, takze kdyz se spustil vice nez jednou, nastane problem. Jak tedy zajistit, aby se program nedal vice nez jednou na jednom pocitaci zpustit. Nebo jak zjistit je-li uz onen program spusten. Zkousel jsem si zapsat do registru znameni, ze je program spusten, lec stacil jeden reset za behu a program se stal nespustitelnym. Jak tedy na to?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Terminate Process
[*] Luk� Zach <L.Zach(zv)Aquasoft(tec)cz> - 8.9.1999 15:43:55
Kdysi jsem si schoval kod od jednoho kolegy, nikdy jsem ho nezkousel...
var w: HWND;
pr: THandle;
h: THandle;
last_bad: integer; // trosku nesikovne osetreni ...
begin
last_bad := 0;
while true do begin // ukoncuje se pomoci break
w := FindWindow(nil, MY_WINDOW_TITLE_NAME);
if w=0 then break;
GetWindowThreadProcessId(w, Addr(pr));
if pr=0 then break;
h := OpenProcess(PROCESS_TERMINATE, false, pr);
if (h=0) or not TerminateProcess(h, 1) then begin
if last_bad>0 then break;
last_bad := pr;
end else begin
last_bad := 0;
end;
if h>0 then CloseHandle(h);
end;
---------------------------
Lukas Zach, Aquasoft s.r.o.
E-mail:luki(zv)aquasoft(tec)cz
Tel.: 02/248 05 204(201)
Mobilni: 0602/201 790
---------------------------
-----Original Message-----
From: kInKy aL!GaT(zv)r [mailto:aligator(zv)club(tec)cz]
Sent: Wednesday, September 08, 1999 2:16 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Terminate Process
ave Vsichni !
nevi nejaka dobra duse jak ukoncit vsechny procesy, nebo aspon
jeden zadanej. Umim si je vypsat (viz RE:Processy) ale chtel
bych potom urcity znich ukoncit.
dekuji vsem
mailto: bansky(zv)club(tec)cz
Index is read only
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.9.1999 16:06:25
Zda sa mi, ze sa prilis spoliehate na indexove subory paradoxu. Ked aplikacia
spadne a uzivatel ma nieco rozzadavane, vo vacsine si to odnesie indexovy subor
alebo referencna integrita. Ja som si urobil drobnu utilitu, ktora robi
nasledovne:
1) Skopiruje vsetky subory *.db a *.mb z aktualneho adresara do podadreasa OLD
(tymto sa zbavim zlych indexov a definicii ref. integrity).
2) Natiahne data z podadresara OLD do prazdnych databazovych struktur.
3) Ak sa citanie dat podarilo, vymaze aktualne databazove subory a nahradi ich
tymi naimportovanymi.
Tymto postupom sa mi nielenze pregeneruju problematicke indexy, ale aj sa
vyriesia problemy s referencnou integritou, takze databaza je ako nova. Navyse
je to cele urobene tak, ze uzivatel len stlaci button a caka. Ked mi uzivatelia
volaju, ze aplikacia robi problemy, nariadim im spustit tento program a vacsina
problemov zmizne.
Ma to jednu drobnu nevyhodu: uzivatel musi mat stale nainstalovanu prazdnu
databazu na zaklade ktorej sa vsetko obnovuje. Ale je to len pol mega a pri
dnesnych harddiskoch ...
Luk� Gallina wrote:
> Zdar,
> na to uz jsem se jednou ptal a neodpovedel. Ten samy trouble mel i jeden muj
> kamarad..... nevyresili jsme to.
> Me se to potom rozjelo nevim proc a jak. Ja jsem ten doubor databaze smazal
> a udelal znovu, chvili to blblo a pak se to rozjelo.... nevite nekdo PROC?
> Skousel jsem to pak i nasimulovat ale nezdarilo se najit nejake
> souvislosti....
>
> Jestli je nekdo vi, necht odpovi....
>
> Luk� Gallina (Lukas Gallina)
> racek(zv)devacomm(tec)cz
>
> Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
>
> > Dotaz nejak zapadl, zkousim to znovu...
> >
> > D3 profi, Paradox
> >
> > Mam malinkaty problemek. Databazova aplikace mi po edit/insert a
> table.Post
> > hlasi %sub%.
> > Co s tim ??
> >
> > Diky za nakopnuti....
> >
> > 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
Delphi4 - MS SQL
[*] marcant <marcant(zv)sct.sk> - 8.9.1999 16:37:32
K 2.bodu - neviem ake dlhe su tie char , ale riesenim je nepouzit TTable ale
TQuery alebo obmedzit kluc tak asi do 10 znakov. Nejde iba o primarny kluc,
ale aj pri pouziti sekundarneho indexu, ktory tuto podmienku nesplna sa
tento problem objavi. Pri pouziti TQuery je vsetko v poriadku.
----- Original Message -----
From: Petr Fojtik <fof(zv)foresta(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 08, 1999 1:56 PM
Subject: Delphi4 - MS SQL
> Pros�m z��astn�n� o radu. Provozujeme Delphi4 C/S a BDE verze 5 na stran�
> klienta (Win98) proti MS SQL serveru 6.5 (na WindowsNT Server 4.0 service
> pack 4). Pou��v�me nativn� driver (SQLMSS32.DLL verze 4).
> Pot�ebujeme poradit ve dvou probl�mech :
>
> 1. Jak �e�it vyta�en� dat (v�sledek selectu) do textov�ho souboru a naopak
> opravu dat extern� vytvo�en�m scriptem (samoz�ejm� pomoc� SQL p��kaz�). To
> v�e obecn�, bez vytvo�en� zvl�tn�ho programu (nap�. p�i servisu nebo
> p�edpln�n� datab�ze). M�me samoz�ejm� �esk� data. Pokud pou�ijeme
Explorer,
> tak pracuje korektn� s �e�tinou (podle zvolen�ho Langdriveru v aliasu),
ale
> nem��eme dostat v�sledn� data do souboru (nefunguje ani clipboard) ani
> pou��t v�cep��kazov� SQL-script. Pokud naopak pou�ijeme na serveru
> Enterprise Manager (v n�m SQL Tools), pak toto v�echno um�, ale neum�
> spr�vn� pracovat s �e�tinou (nelze zvolit Langdriver).
>
> 2. Zjistili jsme prazvl�tn� chov�n� n�kde mezi MS SQL a BDE (nebo p��mo v
> nich). Pou��v�me tabulky ve kter�ch jsou prim�rn�mi kl��i polo�ky typu
char.
> P�i na�ten� dat z tabulky do gridu (v programu) se n�kdy stane, �e se
> n�kter� ��dky zobraz� 2x (mysl�m t�m 2x stejn� prim�rn� kl��).
Pochopiteln�
> to d�l� prob�m p�i pr�ci (nap�. chyba "Record/Key deleted"). V Exploreru
se
> takov� ��dky n�kdy ojev� tak� 2x, ale v�dy d�laj� probl�m, kdy� po smaz�n�
> nezmiz� ale u� nejdou opravovat (op�t "Record/Key deleted"). Konkr�tn�
te�
> mi to v jedn� tabulce se 24mi ��dky d�l� v�dy stejn�ch 6 ��dk�. Nepomohlo
> pou��t jinou tabulku stejn� struktury pod jin�m n�zvem ani zalo�en� jin�
> datab�ze. Velmi podobn� probl�m (asi ten sam�) jsme zjistili i na jin�m
> pracovi�ti , tak� na MS SQL Serveru 6.5 a na stejn�m Exploreru
(instalovan�m
> p��mo na serveru WindowsNT Server 4.0).
>
> U� n�s to st�lo dost �asu a nem�me zat�m ani n�znak �e�en�. P�edem d�kuji
i
> za naveden� spr�vn�m sm�rem.
>
> Petr Fojt�k
> fof(zv)foresta(tec)cz
>
>
>Delphi4 - MS SQL
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 8.9.1999 17:08:10
>1. Jak �e�it vyta�en� dat (v�sledek selectu) do textov�ho souboru a naopak
>opravu dat extern� vytvo�en�m scriptem (samoz�ejm� pomoc� SQL p��kaz�). To
>v�e obecn�, bez vytvo�en� zvl�tn�ho programu (nap�. p�i servisu nebo
>p�edpln�n� datab�ze). M�me samoz�ejm� �esk� data. Pokud pou�ijeme Explorer,
>tak pracuje korektn� s �e�tinou (podle zvolen�ho Langdriveru v aliasu), ale
>nem��eme dostat v�sledn� data do souboru (nefunguje ani clipboard) ani
Misto DB Exploreru od Borlandu muzes zkustit podobny program z RX Lib.
Umi navic m.j. i export do textu a tisk.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
www.stereo(tec)cz
Doporu�te knihu
[*] DJsoft - Ing. Jan Votava <djsoft(zv)top(tec)cz> - 8.9.1999 17:20:02
Doporu�te, pros�m dobrou knihu o Delphi 4.
D�ky, Honza
Fields
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 8.9.1999 17:36:14
Cau IPJ,
Skus nasledujucu procedurku - ak vhodne zmenis
parameter, pojde to aj na TTable. Dal som tam
lookup aj calculated polozky - ale len TStringField.
Volanie procedury: SetFieldsFor( Query1 );
Vhodnou zmenou parametra to pojde
aj na TTable a TQuery zaroven.... :-}
Teraz je to len na TQuery... :-(
}
procedure SetFieldsFor(Query: TQuery);
var
i: Integer;
BoloToOtvorene: Boolean;
begin
if Query.Active then begin
Query.Close;
{ to len aby si nezabudol - polozky je mozne vytvarat
len pri zatvorenom DataSet-e
}
BoloToOtvorene := True;
end else BoloToOtvorene := False;
Query.FieldDefs.Update;
{
najprv pridanie vsetkych poloziek, pretoze po pridani
lookup a calculate by tie standardne neboli "viditelne"
}
for i := 0 to Query.FieldDefs.Count - 1 do
Query.FieldDefs.Items[i].CreateField(Query);
{ Lookup polozka - napriklad z tabulky Data_Set polozky Id_Field a
Meno_Polozky }
with TStringField.Create(Query) do begin
// Name := 'XXXX'; {meno nemusi byt bezpodmienecne zadane }
FieldKind := fkLookup;
FieldName := 'Nejake_Meno';
KeyFields := 'Id_Field';
LookupCache := True;
LookupDataSet := Data_Set;
LookupKeyFields := 'Id_Field';
LookupResultField := 'Meno_Polozky';
DataSet := Query;
end;
Kalkulavana polozka - v Query musi byt definovana udalost
OnCalcFields
napriklad: DataSet.FieldByName('Kalkulovana_Polozka').AsString :=
'kkkaaalllkkk';
}
with TStringField.Create(Query) do begin
// Name := 'XXXX'; { ani toto meno nemusi byt bezpodmienecne
zadane }
FieldName := 'Kalkulovana_Polozka';
DisplayLabel := 'Kalkulovana polozka';
Calculated := True;
DataSet := Query;
end; if BoloToOtvorene then Query.Open;
end; { procedure SetFieldsFor }
forgo
-----P�vodn� spr�va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Pre: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
D�tum: 8. september 1999 15:14
Predmet: Fields
>Delphi 1:
>
>Mam Query. Do toho prirazuju v programu SQL prikaz. A ted potrebuju,
>aby se vytvorily vsechny fieldy z vyberu (coz se deje automaticky)
>a dale abych vytvoril nekolik Calculated fieldu (ktere se budou take
>zobrazovat).
>Zkousel jsem vsechno mozne, ale nedari se mi ty calculated fieldy
>vytvorit
>tak, aby se staly soucasti toho Query objektu a ja je tak mohl zobrazit.
>
>Nevite nekdo pomoc.
>
>+------------------------+
>| Ing. Petr Jezek |
>| Kuzmanyho 8 |
>| 010 01 Zilina |
>| Slovakia |
>| mailto://petr(zv)sevis.sk |
>+------------------------+
>
>
MessageDlg
[*] olej.jozef(zv)slsp.sk - 8.9.1999 17:52:19
Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
vyznam
/ napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo ANO,
NIE/
Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
SysUtils,Dialogs
vypise mi ze nepozna mrYes pri teste vysledku.
Dakujem Jozef
Delphi4 - MS SQL
[*] Luk� Zach <L.Zach(zv)Aquasoft(tec)cz> - 8.9.1999 17:56:27
K bodu 1). Pro (treba i automaticke - nacasovane) exportovani dat z M$ SQL
ven (a posleze import dovnitr) je nejlepe pouzit utilitku BCP.EXE (soucast
M$SQL). Musi ovsem platit, ze chcete dostat ven vzdy CELOU tabulku (jakoby
SELECT * FROM name).
Asi nejak takhle:
(zv)echo off
::: VEN
set DB=MYDB
set PTH=D:\SQLOut\
echo TBL00001.BCP (CisTyp)
bcp %DB%..CisTyp out %PTH%TBL00001.BCP -e %PTH%TBL00001.ERR -b 1000 -c -U sa
-P heslo -r \0 -o TBL00001.OUT
echo TBL00002.BCP (CisRezim)
bcp %DB%..CisRezim out %PTH%TBL00002.BCP -e %PTH%TBL00002.ERR -b 1000 -c -U
sa -P heslo -r \0 -o TBL00002.OUT
...atd pro dalsi tabulky
A pak takhle:
(zv)echo off
:::DOVNITR
set DB=MYDB
echo Schema.SQL - zalozeni struktur, indexu a spol.
isql -U sa -P heslo -d MYDB -i Schema.SQL -b -o Schema.LOG
echo TBL00001.BCP (CisTyp)
bcp %DB%..CisTyp in TBL00001.BCP -e TBL00001.ERR -b 1000 -c -U sa -P heslo
-r \0 -o TBL00001.IN
echo TBL00002.BCP (CisRezim)
bcp %DB%..CisRezim in TBL00002.BCP -e TBL00002.ERR -b 1000 -c -U sa -P heslo
-r \0 -o TBL00002.IN
...atd pro dalsi tabulky
---------------------------
Lukas Zach, Aquasoft s.r.o.
E-mail:luki(zv)aquasoft(tec)cz
Tel.: 02/248 05 204(201)
Mobilni: 0602/201 790
---------------------------
----- Original Message -----
From: Petr Fojtik <fof(zv)foresta(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 08, 1999 1:56 PM
Subject: Delphi4 - MS SQL
> Pros�m z��astn�n� o radu. Provozujeme Delphi4 C/S a BDE verze 5 na stran�
> klienta (Win98) proti MS SQL serveru 6.5 (na WindowsNT Server 4.0 service
> pack 4). Pou��v�me nativn� driver (SQLMSS32.DLL verze 4).
> Pot�ebujeme poradit ve dvou probl�mech :
>
> 1. Jak �e�it vyta�en� dat (v�sledek selectu) do textov�ho souboru a naopak
> opravu dat extern� vytvo�en�m scriptem (samoz�ejm� pomoc� SQL p��kaz�). To
> v�e obecn�, bez vytvo�en� zvl�tn�ho programu (nap�. p�i servisu nebo
> p�edpln�n� datab�ze). M�me samoz�ejm� �esk� data. Pokud pou�ijeme
Explorer,
> tak pracuje korektn� s �e�tinou (podle zvolen�ho Langdriveru v aliasu),
ale
> nem��eme dostat v�sledn� data do souboru (nefunguje ani clipboard) ani
> pou��t v�cep��kazov� SQL-script. Pokud naopak pou�ijeme na serveru
> Enterprise Manager (v n�m SQL Tools), pak toto v�echno um�, ale neum�
> spr�vn� pracovat s �e�tinou (nelze zvolit Langdriver).
>
> 2. Zjistili jsme prazvl�tn� chov�n� n�kde mezi MS SQL a BDE (nebo p��mo v
> nich). Pou��v�me tabulky ve kter�ch jsou prim�rn�mi kl��i polo�ky typu
char.
> P�i na�ten� dat z tabulky do gridu (v programu) se n�kdy stane, �e se
> n�kter� ��dky zobraz� 2x (mysl�m t�m 2x stejn� prim�rn� kl��).
Pochopiteln�
> to d�l� prob�m p�i pr�ci (nap�. chyba "Record/Key deleted"). V Exploreru
se
> takov� ��dky n�kdy ojev� tak� 2x, ale v�dy d�laj� probl�m, kdy� po smaz�n�
> nezmiz� ale u� nejdou opravovat (op�t "Record/Key deleted"). Konkr�tn�
te�
> mi to v jedn� tabulce se 24mi ��dky d�l� v�dy stejn�ch 6 ��dk�. Nepomohlo
> pou��t jinou tabulku stejn� struktury pod jin�m n�zvem ani zalo�en� jin�
> datab�ze. Velmi podobn� probl�m (asi ten sam�) jsme zjistili i na jin�m
> pracovi�ti , tak� na MS SQL Serveru 6.5 a na stejn�m Exploreru
(instalovan�m
> p��mo na serveru WindowsNT Server 4.0).
>
> U� n�s to st�lo dost �asu a nem�me zat�m ani n�znak �e�en�. P�edem d�kuji
i
> za naveden� spr�vn�m sm�rem.
>
> Petr Fojt�k
> fof(zv)foresta(tec)cz
>
>
>Chyba pri volani procedury z knihovny
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 08.9.1999 18:00:04
Ahoj,
zkusim. V tom malinkem programku jsem to jiz vyresil. Bylo to tim, ze jsem
pouzival pretypovani stringu (konstatny) na PChar a ten program mi do toho psal,
takze to rvalo Acces Violation. Stacilo tam dat StrNew(PChac(konstanta)).
Ted mam ale problem jiny. Tamto jsem rozchodil. Maka to OK a PHPcko funguje
bezvadne. Tak jsem to cele vzal a dal do meho PinkNet Web Serveru a Ejhle. Staci
narazit na LoadLibrary a je tu konec. Acces Violation v PHP4ISAPI.DLL. Read from
address FFFFFFF. Cim toto muze byt? V taktom programu to funguje OK a to same
volane z jineho programu (oboji z TForm.OnCreate) jiz nebeha...
Ivan Zernovac wrote:
> Ahoy,
>
> ja som mal podobny problem s niecim uplne inym. Ked som to krokoval,
> islo to OK,
> ked som to spustil, raz to islo, a raz nie. Vyriesil to riadok
> Application.Processmessages. Inde som zase mal problem, ze som graboval
> obrazovku a jedno okno sa nestihlo pred grabovanim skryt. Tam
> Application.Processmessages nepomohlo, ale pomohlo Sleep(500). Pokus sa
> pred
> kriticke operacie umiestnit niektory z tychto prikazov. V mojom pripade
> sa
> system zrejme potreboval trocha "nadychnut", mozno v Tvojom pripade ide
> o to
> iste (znie to detinsky, ale mne to problem vyriesilo).
--
S pozdravem Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa Vyroba programu na zakazku
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
----------------------------------------------------------------------------
Delphi konference off-line
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 8.9.1999 18:08:14
> Ja se ozivam a chci program a kdyby byl mozny zdrojak, mozna bych dale na nem pracoval
Takze na adrese:
http://atrey.karlin.mff.cuni(tec)cz/~bla/konfview.shtml
naleznete stranku programu konfview. Je to ta nova verze, vcetne
zdrojaku a ukazkove databaze.
Pokud by byly nejake problemy, vyskytly se nejake chyby nebo by mel
nekdo nejaky napad na dalsi rozsireni, tak poslete mejlika.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Packages
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.9.1999 18:48:23
Ing. Miroslav Ondrisek, BONNE wrote:
> Kdyz si v "Project options/Packages" zaskrtu volbu "Build with runtime
> packages", do nasledujici radky specifikuji pouze balicek FF153_R40
> (FlashFiler) a provedu Build, pak vysledna aplikace predpoklada sireni
> dane knihovny. To je jasne. Ale proc chce i VCLxx40.BPL balicky, kdyz
> jsem je nespecifikoval, to mi neni jasne. Myslel jsem, ze do kodu EXE
> se zahrnou vsechny potrebne veci krome tech, ktere jsem specifikoval v
> radku u volby "Build with runtime packages". Co mam udelat, abych
> prelozil aplikaci, ktera bude chtit POUZE balicky, ktere ji
> specifikuji a nebudu muset sirit VCLxx40.bpl balicky (2.9MB) ?
Protoze balicek FF153_R40 se na VCLxx40.bpl odvolava.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zajimavy seznam BDE alternativ
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.9.1999 18:48:23
Zden�k B�hm wrote:
> koukal jsem se tam a je to opravdu dost dobra stranka. Najdete tam
> odkazy na alternativy nejen k BDE, ale i k jinym databazim. Napr.
> nedavno se tu diskutovalo ADO, tak tam lezi asi 10 odkazu. Ke
> klasickemu DBF, ktere jsem hledal ja asi 10, bohuzel vsechno je
> komercni, rozstrel cen dost veliky $25 - $400.
Pokud vim, tak free jsou akorat Delphree OLE DB komponenty, ale
ty jsou teprve ve vyvoji a nenavazuji na TDataSet. Uz mi to funguje
natolik, ze si troufam delat nad tom ostry program, ale je tam jeste
hromada veci, ktere je treba dodelat nebo doladit. Porad hledam
tedy ochotne pomocniky, napriklad na tvorbu gridu a podobne,
generatoru tiskovych sestav (zrejme by stacilo prihnout sestavy
Sinea) a dalsi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
E-mai z programu - D3, D4
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 8.9.1999 20:17:33
potrebuji aby program umel posilat a prijimat E-maily. Nikdy jsem nic
takovyho nedelal. Existuji nejake levne komponenty ( nejlepe free... - je
to
pro nekomercni ucely ), ktere by to resily ?
Pokud mas C/S, je tam zalozka "Internet" a muzes pouzit SMTP a POP. Prijem
e-mailu Ti bude fungovat pouze pres POP3, takze muzes vyloucit Exchange
Server s IMAPem.
Pokud nemas C/S, zkus TCP/IP komponenty od Andrease Horstemeiera, myslim,
ze je najdes na adrese http://www.horstemeier.com ... Pokud je ta adresa
blbe (pardon), tak na http://sunsite.icm.edu.pl/delphi ... Pokud pouzijes
T_Mail, davej si pozor na mazani hlavicek po odeslani mailu, mohl bys mit
problemy s manzelkou a milenkou ;-)
Preji hezky den a jsem s pozdravem
Milan Schembera
mailto:info(zv)missoftware(tec)cz
http://www.missoftware(tec)cz
---------------------------------
- on-line objednavkove, rezervacni a obchodni systemy po internetu
- zakazkovy software pro Windows 3.x/9x/NT
- software pro autoskoly http://www.autoskola99(tec)cz
- servis pro autopujcovny http://www.auto-pujcovny(tec)cz
Jak zakazat vice spusteni programu
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 8.9.1999 21:38:53
Cauec,
no, nechci se hadat, ale nize uvedeny kod tipuju na D1. A mezi testovanim vicenasobneho spusteni pod D1 a D2 je velky rozdil.
Bud to muzes resit tim (uz to tu nekdo psal), ze posles programu presne definovanou zpravu a pokud ti na ni kopie odpovi, tak se podle toho zaridis.
No, kdysi hooodne davno jsem na to stahl komponentu, uz nevim kde. Staci ji placnout na Form a o zbytek se nestaras.
K nalezeni jako obyc - www.bluerose(tec)cz/index.php3?cat=komponenty
Hledej "just1 32".
Bye Ludan
-----P�vodn� zpr�va-----
Od: FitCom <fitcom(zv)volny(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. z��� 1999 15:09
P�edm�t: Re: Jak zakazat vice spusteni programu
Toto zadej do begin..end bloku v source projektu ( .dpr):
begin
if HPrevInst <>0 then begin
ActivatePreviousInstance;
Halt;
end;
end;
Tady je unita kterou pou�ije�:unit PrevInst;
interface
uses
WinProcs,
WinTypes,
SysUtils;
type
PHWnd = ^HWnd;
function EnumApps(Wnd: HWnd; TargetWindow: PHWnd): bool; export;
procedure ActivatePreviousInstance;
implementation
function EnumApps(Wnd: HWnd; TargetWindow: PHWnd): bool;
var
ClassName : array[0..30] of char;
begin
Result := true;
if GetWindowWord(Wnd, GWW HINSTANCE) = HPrevInst then begin
GetClassName(Wnd, ClassName, 30);
if STRIComp(ClassName,'TApplication')=0 then begin
TargetWindow^ := Wnd;
Result := false;
end;
end;
end;
procedure ActivatePreviousInstance;
var
PrevInstWnd: HWnd;
begin
PrevInstWnd := 0;
EnumWindows((zv)EnumApps,LongInt((zv)PrevInstWnd));
if PrevInstWnd <> 0 then
if IsIconic(PrevInstWnd) then
ShowWindow(PrevInstWnd,SW Restore)
else
BringWindowToTop(PrevInstWnd);
end;
end.
-----P�vodn� zpr�va-----
Od: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. z��� 1999 14:19
P�edm�t: Jak zakazat vice spusteni programu
Mam takovy program, ktery pouziva odkladove soubory, takze kdyz se spustil vice nez jednou, nastane problem. Jak tedy zajistit, aby se program nedal vice nez jednou na jednom pocitaci zpustit. Nebo jak zjistit je-li uz onen program spusten. Zkousel jsem si zapsat do registru znameni, ze je program spusten, lec stacil jeden reset za behu a program se stal nespustitelnym. Jak tedy na to?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Problem mODBC na mySQL
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 8.9.1999 21:55:17
> tabulka neni v edit or insert mode. Ptal jsem se tady a nikdo neodpovedel,
> takze predpokladam, ze kdyz mi nikdo neodpovedel, tak mODBC nepouzivaji
> "guruov�" teto konference a tak jsem mODBC "vyhodil" .
> Celkem by me zajimalo, jestli to nekomu jakztakz funguje.
Ja napsal doma program (jakysi jednoduchy diar - datum, nadpis, text),
ktery pracoval s MySQL pod Windows95 prave pres ODBC.
Program byl napsan v Delphi2 C/S.
Pokud bude zajem, muzu poslat cisla verzi a nastaveni, mam to nekde
zalozeno.
Prilezitostne to zkusim prelozit pod verzi 4.
Leos
Telefonicke pripojeni site
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 8.9.1999 21:58:09
Cauec,
>Nevim, na co presne to potrebujes, ale co takhle zkusit nasimulovat leased
line: modem pripojit pres
abych si obcas mohl sosnout potrebne udaje z masiny, kdyz jsem vyjetej mimo
sidlo a nutne potrebuju tu smlouvu, tu fakturu, tu porovnat konfigurace
pocitadel, atd.
A na taskbaru mam dost ikonek, tak bud server nenahodim, coz je 200 km
daleko silne neprijemny nebo ho nevypnu a pak mi zakaznici nadavaji, at si
dam fax na vic zvoneni:-)>P.S. Abychom se vyhnuli podobnemu laborovani, tak jsme zbabele pro obsluhu
modemu pouzili LINUX :-)))
To by sice bylo reseni, ale bohuzel nelze...
Bye Ludan
MessageDlg
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 8.9.1999 22:08:03
Cauec,
>Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
>vyznam
>/ napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo ANO,
>NIE/
Taky jsem to uz hledal, ale nezadarilo se. Takze bych rekl bych ze ne,
protoze i v nekterych anglickych programech se mi objevuji tlacitka Ano, Ne,
takze to vypada na Windows.
>Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
>SysUtils,Dialogs
>vypise mi ze nepozna mrYes pri teste vysledku.
V unite Controls je definovano mrYes = IDYES
a v unite Windows IDYES = 6 a ID_YES = IDYES
takze staci doplnit hodnotu 6..
Bye Ludan
HideApp pri Alt+Tab
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 8.9.1999 22:09:53
Cauec,>Ano, Stealth dokaze odstranit aplikaciu z taskbaru, ale stale ju vidno pri
><alt>+<tab>.
Mas pravdu, dokud je videt okno, je videt i v <alt>+<tab>. Sice muzes dat
nize uvedeny Show..., to pak sice po <alt>+<tab> neuvidis, ale okno taky
ne...
Bye Ludan
>
>> >Prikaz ShowWindow(Application.Handle,SW_Hide) zabrani zobrazeniu
programu
>v
>> >taskbare, ale stale za zobrazi jeho ikona pri stlaceni klaves
><Alt>+<Tab>.
>> >Mohli by ste mi poradit, ktory prikaz dokaze zabranit aplikacii, aby sa
>> >zobrazovala v okne pri stlaceni <Alt>+<Tab>.
>>
>>
>> napriklad komponenta Stealth, ke stazeni treba tady:
>> www.bluerose(tec)cz/index.php3?cat=komponenty
>>
>>
>> Bye Ludan
>>
>>Telefonicke pripojeni site
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 8.9.1999 22:18:24
Cauec,
>> Mam z toho pocit, jakoby poslal patricny konf. retezec do modemu a pak
tam
>> sam nacpal jeste neco jineho (treba s0=1 ? :-) ... pripadne to zvednuti
>> obstaravali nejak "jednodusseji" a zvedali to kdy chcou.
>> (obecny styl A'la MS)
I kdybych si oci vycumel, fakt tam nikde neni S0=1 a presto zveda.
Dobra. Nejde, nejde. Tak zase jinak. Co takhle softwarove ten server spustit
v urcitou dobu a po nejakych x minutach zase ukoncit ? Pokud jsem koukal
dobre, tak to neni zadny EXE, ale nejspis DLL. Co vy na to ?
Bye Ludan
Jak lze pracovat s promenyma v SQL...
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 8.9.1999 22:54:44
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite nekdo jak mohu v SQL vyuzit hodnoty z promenych. Jedna se mi hlavne o to, ze chci v dotazu SQL misto primeho zadani
datumu zadat pouze promenou,ktera bude postupne nacitat ruzne hodnoty, ale nevim jak - asi nejak pres prarametry? (jedna se pouze o lokani pristup).
Nemuzete nekdo poslat priklad. A jeste jeden dotaz, kdyz zadavam v jedom Query select na nekolik poli s podminkou na pole ruznych tabulek, tak
jsem to drive( ne v Delphi ) zapisoval napr.:
Select * from Table1, Table2
Where Table1.Mesto = Table2.Obec
Ale D4 mi nejak pole s tabulkama nechce brat, bez tabulek ano - proc?
Predem diky vsem za odpoved
Milan Blazek
Voice modem library
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 8.9.1999 23:11:07
Hello All!
Zhanam program, ktory by fungoval ako zaznamnik prichodzich hovorov. Hovory
prijima a vybavuje obsluha, ten zaznam je nutny pre ucely archivacie.
Teraz zenska musi pred zdvihnutim telefonu zmacknut na magnetofone tlacitko
'record' a ked dohovori, tak 'stop'. Predstava je, ze na paralelke by visel
voice-modem a zaznam (raw data to file) by sa zapinal automaticky. A
hladanie v archive ziadne previjanie pasky, ale listovanie podla casu.
Kludne si ho urobim sam, ale voice komponenty AsyncPro mi na moj voice
modem SupraExpres 336i PnP Voice (F) hlasia, ze nie je voice. Este som
nasiel toto:
http://www.sar.nnov.ru/~roman/download/VML.zip
ale to je len na Zyxel a USR Sportster, su v tom aj priklady, freeware.
Neviete poradit nieco dalsie?
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
FileListBox
[*] Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 8.9.1999 23:21:46
Jak mam z FileListBoxu zjisti pouze jm�no souboru ? Vzdy me to napise celou
adresu. Ale to ja nechci.
Diky
Dan Rejchrt
rejchrt(zv)ssakhk(tec)cz
HideApp pri Alt+Tab
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1999 23:32:46
Igor MALY wrote:
>
> Zdravim
>
> Prikaz ShowWindow(Application.Handle,SW_Hide) zabrani zobrazeniu programu v
> taskbare, ale stale za zobrazi jeho ikona pri stlaceni klaves <Alt>+<Tab>.
> Mohli by ste mi poradit, ktory prikaz dokaze zabranit aplikacii, aby sa
> zobrazovala v okne pri stlaceni <Alt>+<Tab>.
Ahoj,
To pujde asi tezko, okno pri <Alt>+<Tab> patrne prochazi vsechnny top-level
okna, bez ohledu na to, jestli je visible nebo ne.
--
Petr Vones, amatersky programator
SHFileOperation pro D4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1999 23:33:06
Virag Ivan wrote:
> Nevite nekdo, kde se da sehnat komponenta SHFileOperation pro Delphi 4.
> Dekuji.
Ahoj,
SHFileOperation je nazev funkce shellu, tu muzes pouzit primo bez nejake
komponenty. Priklad pouziti (kopirovani souboru) vypada takhle, dalsi
informace najdes v Delphi v API helpu. Pozor ale na jednu vec, parametry
pFrom a pTo musi byt navzdory konvenci ukonceny dvema #0 znaky.
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
FileOp: TSHFileOpStruct;
begin
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
wFunc := FO_COPY;
pFrom := 'C:\Dokumenty\*.*'#0#0;
pTo := 'X:\Pokus2'#0#0;
fFlags := FOF_ALLOWUNDO;
end;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
ShowMessage('Error');
end;
--
Petr Vones, amatersky programator
OpenPictureDialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1999 23:34:05
> Petr Voborn�k wrote:
>
> Pri pouzivani prewievu v OpenPictureDialogu mi vzdy nastane chyba,
> najedu-li na nejaky soubor (napr z koncovkou JPG), ktery ve skutecnosti
> neni obrzkem. Jak tomu mam zabranit (staci, kdyz se zadny obrazek v tomto
> pripade nezobrazi)?
Ahoj,
A jaka chyba presne vznikne ?
--
Petr Vones, amatersky programator
Jak zakazat vice spusteni programu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1999 23:37:04
Ahoj,
Reseni najdes napriklad tady:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=13315
http://www.borland.com/devsupport/delphi/faq/FAQ1355D.html
--
Petr Vones, amatersky programator
ICQ message
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1999 23:39:09
> Petr Voborn�k wrote:
>
> Potreboval bych nejakou funci, ktera vy vychytavala prichozi zpravy na
> ICQ. To znamena, ze kdyz pride nejaka zprvava na ICQ, aktivuje se muj
> program a jako vstup bude mit string s tou zpravou.
Ahoj,
Pokud ti to staci v pripade nainstalovanyho ICQ, tak by jsi mohl pouzit
ICQ API, najdes jej tady:
http://delphi-jedi.org/Jedi:API_ICQ:411060008
--
Petr Vones, amatersky programator
MessageDlg
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1999 23:41:17
olej.jozef(zv)slsp.sk wrote:
>
> Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
> vyznam
> / napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo ANO,
> NIE/
Ahoj,
Obecne je lepsi pouzivat TApplication.MessageBox, popisy tlacitek budou
dle lokalizace Windows.
--
Petr Vones, amatersky programator
Blokace drag&drop operaci v aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1999 23:44:26
Jaroslav Uher wrote:
>
> Ahoj,
>
> mam Win95, D4St.
>
> Lze zablokovat drag&drop operace v cele aplikaci, resp. v
> OpenDialogu ?
Ahoj,
A k cemu by to melo byt ? To je preci standartni chovani techto dialogu.
--
Petr Vones, amatersky programator
FileListBox
[*] Mirun <forcom(zv)telecom(tec)cz> - 9.9.1999 00:16:36
ExtractFileName(FileListBox1.FileName);
mirun
>----- P�vodn� zpr�va -----
>Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
>Komu: <delphi-l(zv)fwd(tec)cz>
>Odesl�no: 8. z��� 1999 23:21
>P�edm�t: FileListBox
>Jak mam z FileListBoxu zjisti pouze jm�no souboru ? Vzdy me to napise celou
>adresu. Ale to ja nechci.
>Diky
>Dan Rejchrt
>rejchrt(zv)ssakhk(tec)cz
Jak lze pracovat s promenyma v SQL...
[*] Mirun <forcom(zv)telecom(tec)cz> - 9.9.1999 00:43:46
----- P�vodn� zpr�va -----
Od: Milan Bla�ek
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 8. z��� 1999 22:54
P�edm�t: Jak lze pracovat s promenyma v SQL...>Nevite nekdo jak mohu v SQL vyuzit hodnoty z promenych. Jedna se mi hlavne
o to, ze chci v dotazu >SQL misto primeho zadani
>datumu zadat pouze promenou,ktera bude postupne nacitat ruzne hodnoty, ale
nevim jak - asi nejak >pres prarametry? (jedna se pouze o lokani pristup).
napr.
kdyz Query1.SQL je treba 'Select * from "objednavky.db" where datum =
:datum'
musis v Query1 definovat v ObjectInspectoru ve vlastnosti Params potrebny
typ parametru (ftDateTime)
a hodnotu pak nastavujes treba takto:
Query1.Close;
Query1.ParamByName('datum').AsDateTime := Now; {nebo lib.jina promenna typu
TDateTime}
Query1.Open;
cili - parametr je vzdy v dotazu dvojtecka + symbolicke jmeno, ke kteremu
pak pristupujes pres ParamByName(jmeno bez dvojtecky) nebo Params[Poradove
cislo parametru]
>Nemuzete nekdo poslat priklad. A jeste jeden dotaz, kdyz zadavam v jedom
Query select na nekolik poli >s podminkou na pole ruznych tabulek, tak
>jsem to drive( ne v Delphi ) zapisoval napr.:
>Select * from Table1, Table2
>Where Table1.Mesto = Table2.Obec
>Ale D4 mi nejak pole s tabulkama nechce brat, bez tabulek ano - proc?
zkus to takhle
Select * from "adresa1.db" T1, "adresy2.db" T2 where T1.Mesto = T2.Obec
(nesmis mixovat nazvy Table1,Table2 z Delphi do SQL, leda napr. takhle:
Query1.SQL.Clear;
Query1.SQL.Add(Format('Select * from "%s" t1, "%s" t2 where t1.Mesto =
t2.Obec',[Table1.TableName,Table2.TableName]);
ovsem kdyz pouzivas SQL neni potreba vubec pouzivat TTable, je lepsi
pouzivat Query.
Mirun
Vice datamodulu
[*] cis(zv)atlas(tec)cz - 9.9.1999 00:53:53
Hi vsem
potrebuji poradit, zda neni nahodou lepsi, kdyz je mnoho TQuery ( dostal jsem se na asi 25 ) pouzit vice datamodulu.
A to z nekolika duvodu:
- vytvorit si v repository vzory napr. na master-detail
- snad prehlednejsi kod
Akorat jsem zjistil, ze pri dvou datamodulech se zvetsi kod (asi o 500 bytes a data size se zvysi o 24 bytes). Nemate s tim nejake zkusenosti?
Diky
Ales Dana
Jak lze pracovat s promenyma v SQL...
[*] Ing. Jaroslav �ke��k - 9.9.1999 02:11:13
Zkus tohle
Select * from Table1 T1, Table2 T2
Where T1.Mesto = T2.Obec
nektere implementace vyzaduji
Select * from Table1 As T1, Table2 As T2
Where T1.Mesto = T2.Obec
Jaro
Nevite nekdo jak mohu v SQL vyuzit hodnoty z promenych. Jedna se mi hlavne o to, ze chci v dotazu SQL misto primeho zadani
datumu zadat pouze promenou,ktera bude postupne nacitat ruzne hodnoty, ale nevim jak - asi nejak pres prarametry? (jedna se pouze o lokani pristup).
Nemuzete nekdo poslat priklad. A jeste jeden dotaz, kdyz zadavam v jedom Query select na nekolik poli s podminkou na pole ruznych tabulek, tak
jsem to drive( ne v Delphi ) zapisoval napr.:
Select * from Table1, Table2
Where Table1.Mesto = Table2.Obec
Ale D4 mi nejak pole s tabulkama nechce brat, bez tabulek ano - proc?
Predem diky vsem za odpoved
Milan Blazek
DDE a Win9x
[*] Radoslav Jal� <RJalc(zv)ke.telecom.sk> - 9.9.1999 02:27:49
Ahoj,
> zial, s DDE nemam skusenosti. Ale mam jeden rusky napad. Tebe v podstate
> vadi,
> ze sa spusti druhy Player, je tak?. A co keby si tento player najprv
> programovo
> zavrel (teda jeho predchadzajucu instanciu) a potom spustil novy? Takto
> by bol
> v pamati iba jeden player.
Presne tak...ale problem je v tom, ze ten player moze byt vselijaky, t.j.
uzivatelom definovany pre moju applikaciu. No a ako zistim handle prave
spusteneho playera ?? Alebo sa da zavriet aplikacia vyuzivajuca WAV alebo
MID nejak programovo, t.j. ak neviem jej nazov ani nic podrobne ???
fakt si neviem rady....
Este otazka ohladne DDE ? Ako to vlastne robi ten Windows.
Ked poslem aplikacii pomocou
DDEopenclient.SetLink('cesta\player.exe','subor.wav'), tak on to naozaj
prehraje, ale pri druhom pokuse o
DDEopenclient.SetLink('cesta\player.exe','subor2.wav') sa pokusi otvorit
player v novom okne z hlaskou, ze nemoze hrat lebo zariadenie je busy. Ale
ked v Exploreri tuknem na subor2.wav tak sa NESPUSTI dalsie okno ale prave v
spustenom okne hraje moj subor2.wav.
Toto sa riesi nejak cez DDE ale neviem ako.....
V okne asociovanych prg. mam pri wave - use DDE a DDE message vyzera takto :
play('%1')
Ako mu tu DDE message poslat..?? Skusal som
DDEopenclient.Executemacro('play(%1'));, no bohuzial nic sa nedeje ...
Ako na to ???
>
> A co keby si docasne zmenil asociaciu v registroch? Spustal by sa Tvoj
> program
> a po ukonceni by tam vratil MediaPlayer.
Nemyslim si ze je to spravodlive .... ;-)
Kazdopadne vdaka za reakciu ...
S pozdravom
Radoslav Jalc
COM podruhe
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 9.9.1999 07:30:23
> -----Original Message-----
> From: ivan(zv)gratis.sk [mailto:ivan(zv)gratis.sk]
> Sent: Wednesday, September 08, 1999 9:54 AM
> To: Delphi
> Subject: COM podruhe
>
> Ktosi ma tu celkom dobre nastartoval s tym TFieldom. Po pridani novej
> vlastnosti treba prekompilovat cely program. COM server,
> ktoreho metody
> pouzivam, sa moze nachadzat v inom procese, je tak? A ked pridam nieco
> nove, musim znova skompilovat server, aby novu funkciu podporoval, a
> klienta, aby novu funkciu vedel vyuzit.
> Mozem teda COM server vzdialene chapat ako TObject, ktoreho metody su
> pristupne viacerym aplikaciam? A mozem pojem Interface chapat
> ako pojem,
> pod ktorym sa skryva oznacienie metod tohto objektu?
> A potom su tu este take pojmy ako class factory. Podla manualu "Class
> factory - An object, that can create a COM object from a specified
> CoClass". Pritom definicia COM objektu je: "An instance of a class,
> called a CoClass, that implements the methods of COM interfaces". Teda
> COM potrebuje nejaku CoClass, z ktorej sa vytvori? Ale podla tohto je
> COM objekt vlastne instanciou triedy CoClass...Som z toho popleteny.
> Hodi sa COM iba pre velke, alebo aj mensie aplikacie?
>
Standard COM ma ruzne implementace. Kazda z nich je vhodna pro neco jineho.
Jednemi z nich jsou napriklad OLE nebo ActiveX. Rozhodne neuvedu
vycerpavajici
prehled situaci, kdy je vhodne pouzit nejakou COM technologii, jen tak co
mne
momentalne napadne:
1) nemusis vytvaret svoje COM tridy, muzes pouzivat tridy z jinych
aplikaci,
napr. muzes do sveho okna umistit editacni okno Wordu, Sheet z
Excelu
nebo zobrazovaci a browsovaci objekt z InternetExploreru. Nebo
muzes
napr. pomoci OLE odeslat zpravu z Outlooku.
2) Muzes pouzivat hotove nebo svoje ActiveX controls na HTML
strankach
3) Kdy je vhodne vytvaret svoje COM componenty: vycet situaci je asi
velky,
mne ted napadaji napr. objekty pro Microsoft Transaction Server
(aplikacni server) nebo objekty pro IIS (otevirane z ASP - o tom
tady
byla rec, hledej tema "Web aplikace pomoci Delphi").
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/MessageDlg
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 9.9.1999 06:34:40
Myslim, ze nemas pravdu. Mam ceska Windows a ty napisy jsou anglicke. To
by se muselo zasahnout do resourcu toho programu nebo do nejakeho unitu,
ve kterem jsou ty napisy definovane. Ale kdyz se pouzije
Application.MessageBox(...), tak odpovidaji napisy na tlacitkach
jazykove verzi Windows. V krajnim pripade lze MessageBox nahradit
dialogem.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Ing. Jaroslav �ke��k [SMTP:jaro(zv)sinea(tec)cz]
> Odesl�no: 1. ledna 1999 2:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: MessageDlg
>
> MessageDLG je WinApi, takze je to lokalizovano s Windows.
> Pokud mas caska Windows, tak tam bude ANO, NE.
> Jaro
>
>
>
> ----- Original Message -----
> From: Ing. Ludek Florian <ludan(zv)bluerose(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, September 08, 1999 9:08 PM
> Subject: Re: MessageDlg
>
>
> > Cauec,
> >
> >
> >
> > >Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali
> slovensky
> > >vyznam
> > >/ napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by
> vypisalo
> ANO,
> > >NIE/
> >
> >
> > Taky jsem to uz hledal, ale nezadarilo se. Takze bych rekl bych ze
> ne,
> > protoze i v nekterych anglickych programech se mi objevuji tlacitka
> Ano,
> Ne,
> > takze to vypada na Windows.
> >
> > >Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
> > >SysUtils,Dialogs
> > >vypise mi ze nepozna mrYes pri teste vysledku.
> >
> >
> > V unite Controls je definovano mrYes = IDYES
> > a v unite Windows IDYES = 6 a ID_YES = IDYES
> >
> > takze staci doplnit hodnotu 6..
> >
> >
> > Bye Ludan
> >
> >Komponenta kalend��
[*] Milan Kotaska <mkotaska(zv)post(tec)cz> - 9.9.1999 07:39:43
Zdravim.
Shanim komponentu pro vyber data z kalendare pro C1 (D1,D2) podobnou te,
ktera je k dispozici v aplikaci Outlook Express.
(Nastroje/Adresar/Soubor/Novy kontakt zalozka Osobni pole Narozeniny).
Pokud by ji nekdo mel k dispozici, prosim, napiste.
Dekuji.
ing. Milan KOTASKA
mkotaska(zv)post(tec)cz
DBGrid
[*] Tibor Galik <tgalik(zv)vsz.sk> - 09.9.1999 07:41:53
Ahoj,
Rad by som niekoho poziadal o pomoc.
Potreboval by som v DBGride na zaklade urcitej podmienky vykreslit 1 alebo vaic riadkov inou podkladovou farbou. Urobil som to pri udalosti OnDrawColumnCell takto:
procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
begin
DBGrid1.DefaultDrawing:=false;
column.color:=clred;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end
else
begin
DBGrid1.DefaultDrawing:=true;
column.color:=clInfoBk;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end
end;
Vysledok? Zaznam, ktory vyhovuje sa prekresli (vlastne ten nasledujuci ), ale cely grid s obsahom preblikuje. Ked vsak sa presuniem na miesto, kde taky zaznam neexistuje blikanie zmizne.
Nemusim to riesit prave tak. Ak ma niekto iny napad ako zvyraznit ten ktory zaznam bol by som rad, keby sa onho podelil.
Diky
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
Delphi4 - MS SQL
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.1999 07:44:38
Petr Fojtik wrote:
> 2. Zjistili jsme prazvl�tn� chov�n� n�kde mezi MS SQL a BDE (nebo
> p��mo v nich). Pou��v�me tabulky ve kter�ch jsou prim�rn�mi kl��i
> polo�ky typu char. P�i na�ten� dat z tabulky do gridu (v programu) se
> n�kdy stane, �e se n�kter� ��dky zobraz� 2x (mysl�m t�m 2x stejn�
> prim�rn� kl��). Pochopiteln� to d�l� prob�m p�i pr�ci (nap�. chyba
> "Record/Key deleted"). V Exploreru se takov� ��dky n�kdy ojev� tak�
> 2x, ale v�dy d�laj� probl�m, kdy� po smaz�n� nezmiz� ale u� nejdou
> opravovat (op�t "Record/Key deleted"). Konkr�tn� te� mi to v jedn�
> tabulce se 24mi ��dky d�l� v�dy stejn�ch 6 ��dk�. Nepomohlo pou��t
> jinou tabulku stejn� struktury pod jin�m n�zvem ani zalo�en� jin�
> datab�ze. Velmi podobn� probl�m (asi ten sam�) jsme zjistili i na
> jin�m pracovi�ti , tak� na MS SQL Serveru 6.5 a na stejn�m Exploreru
> (instalovan�m p��mo na serveru WindowsNT Server 4.0).
Tahle chyba je nekde v komponentach, nebo to vraci uz BDE, a
projevuje se i u jinych SQL databazi. Ja tuhle chybu ukazuju
napriklad na InterBase. V podstate pomaha refresh tabulky po
kazde akci, po ktere se tento problem projevi. V podstate DBGrid
lze pouzit jen pro staticke prohlizeni.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Barva BitBtn
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.1999 07:44:38
Petr Voborn�k wrote:
> Nevite nekdo jak nastavit u BitBtn a SpeedButtonu jinou barvu nez
> sedivou?
Musis prepsat metodu DrawItem.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OFT: Scanovani formulare
[*] Pavel Junek <junek(zv)hrk.pvtnet(tec)cz> - 9.9.1999 07:47:48
Zdravicko vsem,
nemate tu nekdo zkusenosti se scanovanim formularu. Jde o to , ze je
potreba z predem definovaneho formulare vyzobat data (hlavne cisla) a
ulozit je do nejake datove struktury pro dalsi zpracovani.
Neumi neco takoveho nektery z OCR programu?
Dekuji za kazdy tip.
Pavel
Konverzia
[*] Tibor Galik <tgalik(zv)vsz.sk> - 09.9.1999 07:56:01
Ahoj
Chcel by som niekoho poprosit o pomoc. Potrebujem programovo osetrit prevod code page z PC852 do Win 1250. Zatial to robim v Exceli pri prevode txt fileu. Oznacim ho ako "DOS, OS/2 (PC-8)" a potom mam diakritiku v poriadku.
Urcite existuje nejaky pgm, ktory robi prevod.
Alebo vie niekto kniznicu v exceli a syntax ako urobit prevod?
diky
tg
stringgrid a listbox
[*] Ing. J�n Kuch�r�����!j��G - 9.9.1999 07:59:45
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
mam nasledovne dva problemi.
STRINGGRID
V programe je vlozena tabulka STRINGGRID, ktorej pocet riadkov nieje pevne stanoveny ale sa meni, preto by som potreboval vediet ci existuje nejaky prikaz, alebo nejaky jednoduchy sposob, ako vycistit vsetky bunky
LISTBOX
potrboval by som vediet ci sa da v listboxe zarovnavat text do stlpcov, ked ano tak ako,malo by to vyzerat asi nejak takto
asasasa sasasasa
asas adddsdssdsdsd
wewew wewewewew
Pre uplnost robim vo W95 s D4
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk E-mai z programu - D3, D4
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 9.9.1999 08:01:28
> -----Original Message-----
> From: Milan Schembera [mailto:milan(zv)missoftware(tec)cz]
> Sent: Wednesday, September 08, 1999 8:18 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: E-mai z programu - D3, D4
>
>
> potrebuji aby program umel posilat a prijimat E-maily. Nikdy jsem nic
> takovyho nedelal. Existuji nejake levne komponenty ( nejlepe
> free... - je
Doplnim prehled k SMTP a POP3:
Pokud je na danem pocitaci Outlook, muzes pouzit pro odesilani zprav Outlook
(kod je na konci mejlu).
Nevim, jestli je mozne se na Outlook zavesit i pro prichozi zpravy,
vybirat ale z outlooku dosla posta jde. Musel by ses podivat do dokumentace
Outlooku, abys zjistil prislusne metody OLE objektu 'Outlook.Application'.
priklad poslani zpravy outlookem
var
myOlApp, msg: Variant;
begin
//vytvor objekt outlooku
myOlApp := CreateOleObject('Outlook.Application');
//vytvor objekt zpravy (ve VB je to olMailItem)
msg := myOlApp.CreateItem(0);
//pridej prijemce
msg.Recipients.Add ('Jiri.Polak(zv)tconsult(tec)cz');
msg.Recipients.Add ('druhyprijemce(zv)email(tec)cz');
//nastav subject
msg.Subject := 'Predmet zpravy';
//nastav body
msg.Body := 'Telo zpravy';
//odeslani
msg.Send;
{
//misto metody Send muzes pouzit Display pro zobrazeni formulare,
//aby uzivatel mohl pripravenou zpravu modifikovat.
//takto:
msg.Display;
}
end;
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/MessageDlg
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 09.9.1999 08:02:18
Dalsou moznostou je prepisat subor consts.pas a nahradit "Yes" za "Ano" a
"No" za "Nie"...
Petr Brant wrote:
> Myslim, ze nemas pravdu. Mam ceska Windows a ty napisy jsou anglicke. To
> by se muselo zasahnout do resourcu toho programu nebo do nejakeho unitu,
> ve kterem jsou ty napisy definovane. Ale kdyz se pouzije
> Application.MessageBox(...), tak odpovidaji napisy na tlacitkach
> jazykove verzi Windows. V krajnim pripade lze MessageBox nahradit
> dialogem.
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
>
> > -----P�vodn� zpr�va-----
> > Od: Ing. Jaroslav �ke��k [SMTP:jaro(zv)sinea(tec)cz]
> > Odesl�no: 1. ledna 1999 2:33
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: MessageDlg
> >
> > MessageDLG je WinApi, takze je to lokalizovano s Windows.
> > Pokud mas caska Windows, tak tam bude ANO, NE.
> > Jaro
> >
> >
> >
> > ----- Original Message -----
> > From: Ing. Ludek Florian <ludan(zv)bluerose(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Wednesday, September 08, 1999 9:08 PM
> > Subject: Re: MessageDlg
> >
> >
> > > Cauec,
> > >
> > >
> > >
> > > >Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali
> > slovensky
> > > >vyznam
> > > >/ napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by
> > vypisalo
> > ANO,
> > > >NIE/
> > >
> > >
> > > Taky jsem to uz hledal, ale nezadarilo se. Takze bych rekl bych ze
> > ne,
> > > protoze i v nekterych anglickych programech se mi objevuji tlacitka
> > Ano,
> > Ne,
> > > takze to vypada na Windows.
> > >
> > > >Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
> > > >SysUtils,Dialogs
> > > >vypise mi ze nepozna mrYes pri teste vysledku.
> > >
> > >
> > > V unite Controls je definovano mrYes = IDYES
> > > a v unite Windows IDYES = 6 a ID_YES = IDYES
> > >
> > > takze staci doplnit hodnotu 6..
> > >
> > >
> > > Bye Ludan
> > >
> > >Vice datamodulu
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 09.9.1999 08:06:00
Osobne pouzivam v programe dva velke datove moduly a niekolko mensich. Myslim, ze lepsie je to, co je prehladnejsie, a 25 TQuery mi naozaj
nepripada ako velka vyhra. S tymto riesenim nemam ziadne problemy, akurat obcas musim moduly medzi sebou synchronizovat, nakolko sa niektore
tabulky vyskytuju v dvoch moduloch sucasne a uzivatel je v jednej obrazovke nastaveny na nejaky aktualny zaznam, ktory by mal vidiet aj pri
prechode do druhej obrazovky vyuzivajucej druhy TDataModule. To je jedina mensia komplikacia na ktoru som narazil.
cis(zv)atlas(tec)cz wrote:
> Hi vsem
>
> potrebuji poradit, zda neni nahodou lepsi, kdyz je mnoho TQuery ( dostal jsem se na asi 25 ) pouzit vice datamodulu.
> A to z nekolika duvodu:
> - vytvorit si v repository vzory napr. na master-detail
> - snad prehlednejsi kod
>
> Akorat jsem zjistil, ze pri dvou datamodulech se zvetsi kod (asi o 500 bytes a data size se zvysi o 24 bytes). Nemate s tim nejake zkusenosti?
>
> Diky
> Ales Dana
COM podruhe
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 09.9.1999 08:14:42
S COM som prilis nerobil, ale principialne ide o moznost vytvorit si vlastny
server a komunikovat s nim. Samozrejme, klient musi poznat vsetky metody,
ktore mu server moze poskytnut a supiska tychto metod - to je interface.
Cize v zasade si to pochopil dobre.
COM sa da pouzit na navrhovanie viacvrstvovych aplikacii, kde objekty
pristupujuce priamo k databaze (TTable a TQuery) bezia na inom pocitaci, nez
uzivatelove obrazovky. Znizuje sa tym network traffic, pretoze klient
skutocne dostava len to, co vidi na obrazovke. Navyse byva tento server
vacsinou umiestneny na silnom pocitaci, cize fici dost rychlo. Na tieto
ucely je vhodne mat instalovane Delphi C/S, ktore priamo podporuju
vytvorenie vzdialeneho datoveho modulu so vzdialenymi TTable a TQuery.
Prikladom aplikacie vyuzivajucej COM (resp. DCOM) je zdielany Clipboard vo
windowskej sieti, ktory sa da stiahnut na microsoft.com. Cokolvek, co vlozis
do clipboardu moze iny uzivatel v ramci siete pouzit. Ako vidis, nie je to
ziadna velka aplikacia ...
Ivan Zernovac wrote:
> COM podruhe
>
> Ked som pred mnohymi rokmi robil v basicu, nevedel som pochopit, naco su
> polia. Pochopil som to, az ked som ich sam potreboval vyuzit. To iste s
> OOP: pochopil som to, az ked som to potreboval pouzit. COM som este
> nepotreboval, takze s pochopenim mam problemy...
> Aby mi zaplo, potrebujem konkretny priklad typu "ja som pouzil COM
> preto, lebo inak by som to musel robit takto a takto, co je menej
> efektivne". (Prosim obcanov, ktori sa prave nachadzaju v procese
> hormonalnej transformacie, aby slova "to musel robit takto a takto"
> nepochopili nespravne).
>
> Ktosi ma tu celkom dobre nastartoval s tym TFieldom. Po pridani novej
> vlastnosti treba prekompilovat cely program. COM server, ktoreho metody
> pouzivam, sa moze nachadzat v inom procese, je tak? A ked pridam nieco
> nove, musim znova skompilovat server, aby novu funkciu podporoval, a
> klienta, aby novu funkciu vedel vyuzit.
> Mozem teda COM server vzdialene chapat ako TObject, ktoreho metody su
> pristupne viacerym aplikaciam? A mozem pojem Interface chapat ako pojem,
> pod ktorym sa skryva oznacienie metod tohto objektu?
> A potom su tu este take pojmy ako class factory. Podla manualu "Class
> factory - An object, that can create a COM object from a specified
> CoClass". Pritom definicia COM objektu je: "An instance of a class,
> called a CoClass, that implements the methods of COM interfaces". Teda
> COM potrebuje nejaku CoClass, z ktorej sa vytvori? Ale podla tohto je
> COM objekt vlastne instanciou triedy CoClass...Som z toho popleteny.
> Hodi sa COM iba pre velke, alebo aj mensie aplikacie?
>
> Lamer Ivan
MessageDlg
[*] Martin 'Milo' Milesich <martin(zv)www.fa.stuba.sk> - 9.9.1999 08:16:34
Zdravim,
Ak chces slovenske hlasky typu ano nie tak si mozes prepisat subor
consts.pas ja som ho nasiel v Delphi4\Source\vcl V tom subore su anglicke
resourcestringy ktore si mozes pepisat do slovenciny. Bud si to prepises
priamo v povodnom adresari a budes mat kazdu applikaciu poslovencenu alebo
si to ten poslovenceny subor skopiruj do adresara kde mas projekt pri daj
ho do projektu v uses a skompiluj. A budes mat slovenske hlasky len v tom
jednou projekte. Tych suborou s resource stringami je tam viac ale v
tomto su take najpouzivanejsie stringy.
A ktomu druhemu, ti tam chyba unita Messages.
Milo
On Wed, 8 Sep 1999 olej.jozef(zv)slsp.sk wrote:
> Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
> vyznam
> / napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo ANO,
> NIE/
> Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
> SysUtils,Dialogs
> vypise mi ze nepozna mrYes pri teste vysledku.
>
> Dakujem Jozef
>
> Jak lze pracovat s promenyma v SQL...
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 9.9.1999 08:21:50
-----Original Message-----
From: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
Sent: Wednesday, September 08, 1999 10:55 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Jak lze pracovat s promenyma v SQL...
Nevite nekdo jak mohu v SQL vyuzit hodnoty z promenych. Jedna se mi hlavne o
to, ze chci v dotazu SQL misto primeho zadani
datumu zadat pouze promenou,ktera bude postupne nacitat ruzne hodnoty, ale
nevim jak - asi nejak pres prarametry? (jedna se pouze o lokani pristup).
[Polak Jiri]
Parametry uz Ti nekdo poradil, druhy mozny zpusob je poskladat si SELECT v
runtime a pak ho
soupnout do SQL v TQuery. napr.
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM tabulka' + WhereStr);
v promenne WhereStr muze byt libovolny tvar klauzule Where.
Vyhoda parametru: Muzes libovolne menit databazi, ke ktere se pripojujes
a BDE zabezpeci spravne predani parametru.
Vyhoda poskladani selectu: lze vytvorit obecny formular pro zadavani
vyberove podminky a z nej generovat podminku Where. Tady ale musis
znat format jednotlivych datovych polozek a pocitat s tim pri konverzi
typu pro WHERE (coz se pro ruzne databaze lisi).
Nemuzete nekdo poslat priklad. A jeste jeden dotaz, kdyz zadavam v jedom
Query select na nekolik poli s podminkou na pole ruznych tabulek, tak
jsem to drive( ne v Delphi ) zapisoval napr.:
Select * from Table1, Table2
Where Table1.Mesto = Table2.Obec
Ale D4 mi nejak pole s tabulkama nechce brat, bez tabulek ano - proc?
To nebere Delphi, Delphi by s tim dotazem vubec nemely nic delat.
Delphi by mely predat SQL beze zmeny databazi, a snim poslat hodnoty
parametru.
Jestli tedy dostavas hlasku, ze mas chybu v syntaxi nebo ze neco neexistuje,
hlasi Ti to databaze a ne Delphi.
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz <mailto:Jiri.Polak(zv)tconsult(tec)cz>
Co mne nastvalo a na co si dejte pozor:
http://freeweb <http://freeweb.coco(tec)cz/jpolak/cernalistina/>
.coco(tec)cz/jpolak/cernalistina/
EClassNotFound
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.9.1999 08:26:34
Nevim proc, ale kdyz jsem komponentu odebral, tak proste zmizela (bez
toho
hlaseni, ze component XYZ not longer available, nebo jak je to tam).
Znovu
jsem ji pridal, zase nic, odebral, pridal, ... az nakonec z neznameho
duvodu
Delphi zahlasilo, ze byla odebrana a ze je od ted nedostupna a po
opetovnem
pridani Delphi zahlasilo, ze byla pridana a od te dobry to fungue...
Dobra.
> ----------
> > Jedna se o dfsMRUFileList z http://www.delphifreestuff.com,
> > ale ja rikam, po nainstalovani funguje dobre, ovsem az do
> > restartu Delphi...
> MRUFileList pouzivam asi rok a funguje 100%. Na to bych to nesvadel,
> problem
> je nekde jinde...
>
> MessageDlg
[*] Miroslav Jarolimek <m.jarolimek(zv)softdec(tec)cz> - 9.9.1999 08:31:15
Nazdarek,
Popisy tlacitek jsou ulozeny v unite consts. Zmenu je mozny udelat tim
zpusobem, ze to v ty unite prepises ( zdrojaky by mly bejt v
[DELPHI]\sources\VCL ) a prekompilujes knihovnu VCL - zkousel jsem to a
ackoliv mam US WNT - dostal jsem tam tlacitka Ano Ne. Takhle ale budes mit
problem, pokud delas aplikaci s balickama - v tech totiz zustanou puvodni
anglicky labels. Takze jeste jedno reseni je udelat si kopii te unit
Consts - zmenit to v ni a pripojit ji k tvymu projektu a pak je to OK -
navic muzes takthle delat cesky i anglicky pgm. prostym pouzitim puvodni,
nebo upravenu unit v tvym projektu, bez toho, ze bys musel pokazdy prekladat
celou VCL. Jen pro uplnost, existujou jeste unity BDEConst, OLEConst atp. a
hadej co obsahujou :-)
Ahoj M.J.
-----P�vodn� zpr�va-----
Od: olej.jozef(zv)slsp.sk <olej.jozef(zv)slsp.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. z��� 1999 17:57
P�edm�t: MessageDlg
>Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
>vyznam
>/ napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo ANO,
>NIE/
>Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
>SysUtils,Dialogs
>vypise mi ze nepozna mrYes pri teste vysledku.
>
>Dakujem Jozef
>
>
>
Beh dvoh procesov sucasne.
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 09.9.1999 06:49:25 pdt
Ahoj.
Neviem si rady z jednym malym problemom.
Potrebujem aby mi bezali dva procesi sucastne(citanie a zapis na dva COM
porty) a ani za svet mi to nechce ist.
Skusal som to tak, ze som si vytvoril dva child formulare kde v jednom som
zadefinoval COM1 a v druhom COM2 ale dokazal som maximalne spravyt to, ze mi
isli za sebou (jeden skoncil, druhy zacal).
Vdaka.
Programator - zaciatocnik
Martin Galik
RB s r.o.
Bratislava.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Barva BitBtn
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 9.9.1999 08:51:28
Koukni na
http://www.kopr(tec)cz/delphi/k-delphi.htm
----------
> Odes�latel: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Barva BitBtn
> Datum: 4. z��� 1999 18:36
>
> Nevite nekdo jak nastavit u BitBtn a SpeedButtonu jinou barvu nez sedivou?
>
> Pitr - Petr Vobornik
> MIKMIK company
> vobornik(zv)ssakhk(tec)cz
> ICQ# 23132120
> www.ssakhk(tec)cz/home/vobornik/Delphi4 - MS SQL
[*] Mitko Mit�v <mitev(zv)foresta(tec)cz> - 9.9.1999 09:06:17
ad 1)
Delphi umi pracovat s textovymi soubory jako s databazi. Staci jen
nadefinovat soubor s priponou *.sch, ktery bude obsahovat strukturu souboru
napr.
[USTREDNY]
Filetype=VARYING
Delimiter=
Separator=;
CharSet=anczech
Field1=Ustredna,Char,04,00,00
Field2=Podsystem,Char,04,00,00
Field3=Cidlo,Char,10,00,00
Field4=Typ,LongInt,04,00,00
Field5=Popis,Char,50,00,00
Field6=X,Float,08,00,00
Field7=Y,Float,08,00,00
Field8=Neco1Text,Char,10,00,00
Field9=Neco2Cislo,LongInt,04,00,00
Potom lze pouzivat normalni databazove funkce jako je Insert, Append. V
pripade generovani s dotazu staci vytvorit soubor *.sch podle pole Fields.
S pozdravem
Mitko Mitev, Foresta SG
-----P�vodn� zpr�va-----
Od: Petr Fojtik <fof(zv)foresta(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. z��� 1999 15:33
P�edm�t: Delphi4 - MS SQL
>Pros�m z��astn�n� o radu. Provozujeme Delphi4 C/S a BDE verze 5 na stran�
>klienta (Win98) proti MS SQL serveru 6.5 (na WindowsNT Server 4.0 service
>pack 4). Pou��v�me nativn� driver (SQLMSS32.DLL verze 4).
>Pot�ebujeme poradit ve dvou probl�mech :
>
>1. Jak �e�it vyta�en� dat (v�sledek selectu) do textov�ho souboru a naopak
>opravu dat extern� vytvo�en�m scriptem (samoz�ejm� pomoc� SQL p��kaz�). To
>v�e obecn�, bez vytvo�en� zvl�tn�ho programu (nap�. p�i servisu nebo
>p�edpln�n� datab�ze). M�me samoz�ejm� �esk� data. Pokud pou�ijeme Explorer,
>tak pracuje korektn� s �e�tinou (podle zvolen�ho Langdriveru v aliasu), ale
>nem��eme dostat v�sledn� data do souboru (nefunguje ani clipboard) ani
>pou��t v�cep��kazov� SQL-script. Pokud naopak pou�ijeme na serveru
>Enterprise Manager (v n�m SQL Tools), pak toto v�echno um�, ale neum�
>spr�vn� pracovat s �e�tinou (nelze zvolit Langdriver).
>
>2. Zjistili jsme prazvl�tn� chov�n� n�kde mezi MS SQL a BDE (nebo p��mo v
>nich). Pou��v�me tabulky ve kter�ch jsou prim�rn�mi kl��i polo�ky typu
char.
>P�i na�ten� dat z tabulky do gridu (v programu) se n�kdy stane, �e se
>n�kter� ��dky zobraz� 2x (mysl�m t�m 2x stejn� prim�rn� kl��). Pochopiteln�
>to d�l� prob�m p�i pr�ci (nap�. chyba "Record/Key deleted"). V Exploreru se
>takov� ��dky n�kdy ojev� tak� 2x, ale v�dy d�laj� probl�m, kdy� po smaz�n�
>nezmiz� ale u� nejdou opravovat (op�t "Record/Key deleted"). Konkr�tn� te�
>mi to v jedn� tabulce se 24mi ��dky d�l� v�dy stejn�ch 6 ��dk�. Nepomohlo
>pou��t jinou tabulku stejn� struktury pod jin�m n�zvem ani zalo�en� jin�
>datab�ze. Velmi podobn� probl�m (asi ten sam�) jsme zjistili i na jin�m
>pracovi�ti , tak� na MS SQL Serveru 6.5 a na stejn�m Exploreru
(instalovan�m
>p��mo na serveru WindowsNT Server 4.0).
>
>U� n�s to st�lo dost �asu a nem�me zat�m ani n�znak �e�en�. P�edem d�kuji
i
>za naveden� spr�vn�m sm�rem.
>
>Petr Fojt�k
>fof(zv)foresta(tec)cz
>
>
>Konverzia
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 9.9.1999 09:13:17
Na ceskych n. slovenskych Windows lze pouzit jednoduche volani WinApi funkce
OemToCharBuff((zv)s[1], (zv)s[1], Length(s));
S pozdravem
Pavel Kriz
TDS
tel. 02/ 6891 444
http://www.tds-technik(tec)cz
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 7:58 AM
Subject: Konverzia
> Ahoj,
>
> Chcel by som niekoho poprosit o pomoc. Potrebujem programovo osetrit
prevod code page z PC852 do Win 1250. Zatial to robim v Exceli pri prevode
txt filu. Oznacim ho ako "DOS, OS/2 (PC-8)" a potom mam diakritiku v
poriadku.
> Urcite existuje nejaky pgm, ktory robi prevod.
> Alebo vie niekto kniznicu dll v exceli, ktora to robi a syntax ako urobit
prevod?
>
> diky
>
> tg
>
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
>
>
>
Komponenta kalend��
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 9.9.1999 09:24:17
Tak nev�m, ale v z�lo�ce Win32 je komponenta DateTimePicker - to je
p�esn� ona, vedle je i kalend�� jako takov� a dal�� kalend�� je v
z�lo�ce Samples
Cau
Mira
----- P�vodn� zpr�va -----
Od: Milan Kotaska <mkotaska(zv)post(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. z��� 1999 7:39
P�edm�t: Komponenta kalend��
> Zdravim.
> Shanim komponentu pro vyber data z kalendare pro C1 (D1,D2) podobnou
te,
> ktera je k dispozici v aplikaci Outlook Express.
> (Nastroje/Adresar/Soubor/Novy kontakt zalozka Osobni pole
Narozeniny).
Delphi - VB
[*] Hynek Svatos <svatos(zv)af(tec)czu(tec)cz> - 9.9.1999 09:29:43
> Vzhledem k tomu, ze Delphi ma dnes dobry optimalizovany
> prekladac a k tomu, jak pracuje VB (hromada externich ActiveX),
> predpokladam, ze uz z podstaty bude nativni kod VB pomalejsi.
> Myslim, ze testy to jen potvdi, je jen otazka, jak velky rozdil to
> bude.
No ja nevim ale ja bych zase na borlandi kompilatory nepel takovou slavu.
Moje skusenosti jsou nyni spise horsi. Jednak mi pripada, ze Delfi kod neni
zase takovy rychlik, programy jsou velke a co se tyce chybovosti kompilatoru
(a celych Delf), o te tu jiz par prispevku taky padlo. Napriklad se mi dost
casto stava, ze mi program nelze zkompilovat, hazi to jakesi SYS chyby
kompilaoru v System.pas atd. - po restartu Delphi je to ok.To ani nemluvim
o tom ze ukoncit Delphi bez Acces violation je uz jen me zbozne prani, to je
ale zase jina kapitola ...
Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++ (tj.
rychlejsi nez Delphi),
zpomaleni celeho programu zpusobuji jen natahovani ActiveX.
Nevim, mozna ze moc ctu ... :-)
==== Hynek Svatos ====
svatos(zv)kam(tec)czu(tec)cz
svatos(zv)af(tec)czu(tec)cz
===================
> Mam vsak jeste jednu dalsi pripominku k VB - programy v nem
> napsane nelze rozumne lokalizovat. Formulare z VB se kompiluji
> primo do kodu, takze z tohoto bince nelze vytahnout texty, prelozit
> je a vratit zpet. Tohle by nemuselo vadit, pokud program pobezi
> vyhradne v jednojazycnem prostredi. Ale staci par zakazniku ze
> Slovenska, napriklad, a problemy se ihned projevi - lokalizace je
> nutne udrzovat budto primo v programu, nebo je porad tahat zvenci
> z nejakeho souboru (a tam je pracne udrzovat). Dalsi problem
> nastane s prvky ActiveX. Tam mohou byt nejake texty, ktere se
> objevi v puvodnim jazyce. Pokud je navic takovyto modul napsany
> prasacky, s texty primo v kodu, tak bez zdrojaku s tim nikdo
> nehne. A i kdyby byly texty v resourcech, je to houby platne,
> protoze zpravidla by bylo nutne nacpat preklady primo do nej, coz
> zase obvykle nelze z hlediska autorske ochrany a kompatibility.
> Pro tyto pripady mi pripada Delphi (a C++ Builder) idealni, protoze
> se standardne rozhlizi kolem sebe po externich souborech s
> preklady. Takze lze vyrobit preklad i k cizimu programu, aniz bych
> porusil autorska prava.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
ACCESS a obrazky
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 9.9.1999 09:44:11
Buhuzel te nepotesim, vetev BDE starajici se o pripojeni na ODBC
zdroje neumoznuje protlacit zaznam s vetsi sirkou nez 32kB. Je to
jeden z mnoha zavaznych nedostatku BDE.
Martin
-----P�vodn� zpr�va-----
Od: suvak(zv)pbko.sk <suvak(zv)pbko.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. z��� 1999 9:30
P�edm�t: ACCESS a obrazky
>
>
>Ahojte,
>
>Do accesovskej databazy ukladam obrazky bmp a jpeg. Pri ich zobrazovani
>vsak nastava problem. Spravne sa zobrazi len horna tretina obrazku (velkost
>spravne zobrazenej plochy zavisi od velkosti ulozeneho obrazku. Uplne male
>obrazky sa zobrazuju korektne). Zvysok obsahuje zvisle pasy (dovolim si
>prilozit vzorku, viem, ze sa to v konferencii nesmie, bohuzial, neviem to
>vsak inac
>popisat a prilozeny obrazok je iba 13 KB velky, dufam, ze mi odpustite). Na
>ich
>zobrazenie pouzivam TImage, do ktoreho to priradujem cez .Picture.Assign,
>ak
>to vyvola vynimku, predpokladam ze ide o jpeg a nahravam to cez stream.
>Na pripojenie pouzivam ODBC, pretoze aplikacia bude bezat na pocitacoch,
>kde nie je instalovany ACCESS. Mam Delphi 4CS sp.3, BDE v. 5.01,
>ODBC Microsoft Access Driver (*mdb) v. 4.00.3711.08.
> Podotykam, ze obrazky su v databaze ulozene spravne, v SQL Exploreri
>cez
>BLOB viewer su zobrazene spravne. Takisto som cez DataPump prekonvertoval
>databazu do Paradoxu, a na zobrazenie pouzil ten isty algoritmus a bolo to
>OK.
>
>Pomozte prosim!!!
>
>=============================================================
>Ing. Peter Suvak, veduci oddelenia spravy systemov
>Priemyselna banka, a.s. Kosice
>Sturova 27
>040 01 Kosice
>
>tel.: 095 / 6804 282
>fax: 095 / 6804 510
>mobil: 0903 610 901
>=============================================================
>
>(See attached file: Obrazok.jpg)
>
Delphi4 - MS SQL
[*] Hynek Svato� <svatos(zv)af(tec)czu(tec)cz> - 9.9.1999 09:48:15
> 2. Zjistili jsme prazvl�tn� chov�n� n�kde mezi MS SQL a BDE (nebo
> p��mo v nich). Pou��v�me tabulky ve kter�ch jsou prim�rn�mi kl��i
> polo�ky typu char. P�i na�ten� dat z tabulky do gridu (v programu) se
> n�kdy stane, �e se n�kter� ��dky zobraz� 2x (mysl�m t�m 2x stejn�
> prim�rn� kl��). Pochopiteln� to d�l� prob�m p�i pr�ci (nap�. chyba
> "Record/Key deleted"). V Exploreru se takov� ��dky n�kdy ojev� tak�
> 2x, ale v�dy d�laj� probl�m, kdy� po smaz�n� nezmiz� ale u� nejdou
> opravovat (op�t "Record/Key deleted"). Konkr�tn� te� mi to v jedn�
> tabulce se 24mi ��dky d�l� v�dy stejn�ch 6 ��dk�. Nepomohlo pou��t
> jinou tabulku stejn� struktury pod jin�m n�zvem ani zalo�en� jin�
> datab�ze. Velmi podobn� probl�m (asi ten sam�) jsme zjistili i na
> jin�m pracovi�ti , tak� na MS SQL Serveru 6.5 a na stejn�m Exploreru
> (instalovan�m p��mo na serveru WindowsNT Server 4.0).
> Tahle chyba je nekde v komponentach, nebo to vraci uz BDE, a
> projevuje se i u jinych SQL databazi. Ja tuhle chybu ukazuju
> napriklad na InterBase. V podstate pomaha refresh tabulky po
> kazde akci, po ktere se tento problem projevi. V podstate DBGrid
> lze pouzit jen pro staticke prohlizeni.
Tak ja doporucuji se uplne odlkonit od BDE. S kolegou jsme se take pokouseli
rozjet
komunikaci s MS SQL pres BDE v dobre vire, ze kdyz pisou, ze to musi prece
fungovat, ze by to prece jinak Borlandi nevypustili; vysledek se dostavil po
nekolika krusnych tydnech - pohoreli jsme. Po velkych potizich, ktere jsme
si nedovedli vysvetlit jsme presli na ADONIS a mame vystarano (no, narazili
jsme take na par zaludnosti i v ADONISu, ale jinak spokojenost).
==== Hynek Svato� ====
svatos(zv)af(tec)czu(tec)cz
svatos(zv)kam(tec)czu(tec)cz
===================Jak lze pracovat s promenyma v SQL...
[*] SICHTA Daniel <Sichta(zv)za.asset.sk> - 9.9.1999 10:00:30
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.
Ad1.)
Skus v Query zadat SQL ako select * from t1 where c1 = :cislo a potom
mozes v programe menit premennu cislo takto
Query.ParamByName('cislo').AsInteger := 0(��);
Ad2.)
Select a.*, b.* from table1 a, table2 b where a.mesto = b.obec
) <mailto:sichta%40za.asset.sk> sichta(zv)za.asset.sk BM MailData-----Original Message-----
From: Milan Bla�ek [SMTP:mbsint(zv)telecom(tec)cz]
Sent: 8. september 1999 22:55
To: delphi-l(zv)fwd(tec)cz
Subject: Jak lze pracovat s promenyma v SQL...
Nevite nekdo jak mohu v SQL vyuzit hodnoty z promenych. Jedna se
mi hlavne o to, ze chci v dotazu SQL misto primeho zadani
datumu zadat pouze promenou,ktera bude postupne nacitat ruzne
hodnoty, ale nevim jak - asi nejak pres prarametry? (jedna se pouze o
lokani pristup).
Nemuzete nekdo poslat priklad. A jeste jeden dotaz, kdyz zadavam
v jedom Query select na nekolik poli s podminkou na pole ruznych
tabulek, tak
jsem to drive( ne v Delphi ) zapisoval napr.:
Select * from Table1, Table2
Where Table1.Mesto = Table2.Obec
Ale D4 mi nejak pole s tabulkama nechce brat, bez tabulek ano - proc20
Predem diky vsem za odpoved
Milan Blazek
MSDE
[*] delphi(zv)dingo(tec)cz - 09.9.1999 08:06:26 gmt
Ahojte,
z diskuze v konferenci jsem ohledne MSDE pochopil, ze je MSDE FREE, zdarma.
Jal jsem se to prozkoumat, protoze se me to zda jako rozumne reseni.
Jak rika Zbysek, nebyla by potreba lokalnich tabulek.
Je to Free, ale prvotni investice vyjde vyvojare cca na 20.000 Kc,
protze si musi koupit bud Office 2000 Developer, nebo Visual Studio.
Pak uz to muze sirit se svymi aplikacemi, jak se mu zachce.
Pochopil jsem to dobre?DBGrid
[*] marcant <marcant(zv)sct.sk> - 9.9.1999 10:09:57
Spravny kod vyzera trochu inak:
> procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
> DBGrid1.Canvas.Color:= clred;
> else
> DBGrid1.Canvas.Color:= clInfoBk;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end;
>
teda aspon predpokladam, ze chces cely riadok inou farbou (ak by si chcel
inou farbou iba niektory stlpec tak si to uz iste upravis sam)
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 7:41 AM
Subject: DBGrid
> Ahoj,
>
> Rad by som niekoho poziadal o pomoc.
>
> Potreboval by som v DBGride na zaklade urcitej podmienky vykreslit 1 alebo
vaic riadkov inou podkladovou farbou. Urobil som to pri udalosti
OnDrawColumnCell takto:
>
> procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
> begin
> DBGrid1.DefaultDrawing:=false;
> column.color:=clred;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> else
> begin
> DBGrid1.DefaultDrawing:=true;
> column.color:=clInfoBk;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> end;
>
> Vysledok? Zaznam, ktory vyhovuje sa prekresli (vlastne ten nasledujuci ),
ale cely grid s obsahom preblikuje. Ked vsak sa presuniem na miesto, kde
taky zaznam neexistuje blikanie zmizne.
>
> Nemusim to riesit prave tak. Ak ma niekto iny napad ako zvyraznit ten
ktory zaznam bol by som rad, keby sa onho podelil.
>
> Diky
>
> tg
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
>
>
>Konverzia
[*] Zden�k B�hm - 9.9.1999 10:15:20
Ahoj,
kdysi jsem neco podobneho potreboval pro konverzi web stranek a tak jsem
brousil a brousil, az jsem nasel. Program se jmenuje ntcpconv a je free i se
zdrojaky v cecku (jak nam ty slova ale hezky meni smysl, kdyz se odstrani
diakritika -:)).
Je to *.exe se soubory *.enc, coz jsou jednotlive tabulky kodovani. Funguje
to tak, ze zavolas exe a posles mu kodovani zdroje a cile, a on to prekope.
Na url si nevzpomenu (zkus http://www.seznam(tec)cz), ale mejl na autora je
kvarda(zv)vc.cvut(tec)cz. Kdyby nejhur, lezi mi to na disku, tak ti to poslu.
Zdar Zdenek
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 7:56 AM
Subject: Konverzia
Ahoj
Chcel by som niekoho poprosit o pomoc. Potrebujem programovo osetrit prevod
code page z PC852 do Win 1250. Zatial to robim v Exceli pri prevode txt
fileu. Oznacim ho ako "DOS, OS/2 (PC-8)" a potom mam diakritiku v poriadku.
Urcite existuje nejaky pgm, ktory robi prevod.
Alebo vie niekto kniznicu v exceli a syntax ako urobit prevod?
diky
tg
TRichEdit a obsazovani pameti
[*] Ivo Janal�k <janalik(zv)nam(tec)cz> - 9.9.1999 10:55:30
Zdravim vsechny!
Pouzivam v aplikaci dynamickou tvorbu formularu a jejich vizualnich komponent. Postupne se vsak obsazuje virtualni pamet aplikace. Hledal jsem chybu v zapomenutem Free, ale problem jsem nalezl v komponente TRichEdit, kterou kterou dynamicky vytvarim na formulari.
Tato komponenta pridanim alokuje 2097152 bytes, po free uvolni ale jen 1048576 bytes. Necha tam proste pulku prostoru, kerou alokovala. Dalsi create a free se chova uplne stejne, vzdy zustane neuvolneno 1048576 bytes.
Aplikace je v D3 se SP DCS302, chova se to stejne v W95 i v NT4.
Nevite nekdo co s tim ? D�ky.
Ivo Janalik
vedouci vyvoje SW
Firma NAM
DBGrid and select
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 09.9.1999 11:03:17
Zdrav�m Delph�ky!
Jak mohu vybrat v�ce ��dk� v dbgridu programov�, nejl�pe v�echny a jak nastavit bookmarky u p��stu�n� Query? D�ky. M&B
DBGrid
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 09.9.1999 11:13:40
V kniznici RX komponentov je RxDBGrid pripraveny prave na taketo veci. Skusal som to a je to ovela jednoduchsie nez DBGridom. Staci zadat novu farbu a vsetko ostatne urobi komponent sam.
Tibor Galik wrote:
> Ahoj,
>
> Rad by som niekoho poziadal o pomoc.
>
> Potreboval by som v DBGride na zaklade urcitej podmienky vykreslit 1 alebo vaic riadkov inou podkladovou farbou. Urobil som to pri udalosti OnDrawColumnCell takto:
>
> procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
> begin
> DBGrid1.DefaultDrawing:=false;
> column.color:=clred;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> else
> begin
> DBGrid1.DefaultDrawing:=true;
> column.color:=clInfoBk;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> end;
>
> Vysledok? Zaznam, ktory vyhovuje sa prekresli (vlastne ten nasledujuci ), ale cely grid s obsahom preblikuje. Ked vsak sa presuniem na miesto, kde taky zaznam neexistuje blikanie zmizne.
>
> Nemusim to riesit prave tak. Ak ma niekto iny napad ako zvyraznit ten ktory zaznam bol by som rad, keby sa onho podelil.
>
> Diky
>
> tg
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
Jak zakazat vice spusteni programu
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 9.9.1999 10:37:44
Na nasem http://www.zds(tec)cz v sekci DOWNLOAD
najdes pomucku ONEINST (s malou dokumentaci :-)
Dokaze i predavat informace predchozi instanci.
Funguje k vseobecne spokojenosti.<FontFamily><param>Times New Roman</param><bigger>### Petr Voborn=EDk naps=
al dne 4 Sep 99, v 18:44 :
<FontFamily><param>Arial CE</param><smaller>Mam takovy program, ktery pouz=
iva odkladove soubory, takze kdyz se spustil vice nez jednou,
nastane problem. Jak tedy zajistit, aby se program nedal vice nez jednou n=
a jednom pocitaci
zpustit. Nebo jak zjistit je-li uz onen program spusten. Zkousel jsem si z=
apsat do registru
znameni, ze je program spusten, lec stacil jeden resetza behu a program s=
e stal
nespustitelnym. Jak tedy na to?<FontFamily><param>Times New Roman</param><=
bigger>
<FontFamily><param>Arial CE</param><smaller>Pitr - Petr Vobornik
MIKMIK company
<underline><color><param>0000,0000,FF00</param>vobornik(zv)ssakhk(tec)cz</underli=
ne></color>
ICQ# 23132120<underline><color><param>0000,0000,FF00</param>www.ssakhk(tec)cz=
/home/vobornik/</underline></color><FontFamily><param>Times New Roman</par=
am><bigger>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
problem s expression indexom
[*] Ivan Kodaj <kodaj(zv)datalock.sk> - 9.9.1999 12:03:49
Cafte vsetci,
Mam takyto problem. Mam dbf III+ databazy a na nich definovane
expression indexy. Ked pouzijem FindKey tak mi Delphi zahlasia Cannot use
array of Field Values with Expression Indicies. Vie mi niekto poradit co s
tym?
Mam D4 Prof. u.p. 3, Winnt 4 + sp 4
Vdaka vsetkym
i.k.
MSDE
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 09.9.1999 12:23:16
Myslim, ze Office 2000 Developer stoji 40.000 a nie 20.000, co zase na druhej
strane nie je az tak vela, ak to berieme ako multilicenciu na 5 uzivatelsky SQL
Server (vid Interbase - 30.000 Kc bez DPH na 1 5uzivatelsky server). Ja osobne
vsak aj tak stale zvazujem tuto investiciu, pretoze MS SQL Server bol vraj
povodne tiez free (v nejakych nie je velmi fungujucich starych verziach) a
teraz sa uz za to plati a nie malo.
delphi(zv)dingo(tec)cz wrote:
> Ahojte,
>
> z diskuze v konferenci jsem ohledne MSDE pochopil, ze je MSDE FREE, zdarma.
> Jal jsem se to prozkoumat, protoze se me to zda jako rozumne reseni.
> Jak rika Zbysek, nebyla by potreba lokalnich tabulek.
>
> Je to Free, ale prvotni investice vyjde vyvojare cca na 20.000 Kc,
> protze si musi koupit bud Office 2000 Developer, nebo Visual Studio.
> Pak uz to muze sirit se svymi aplikacemi, jak se mu zachce.
>
> Pochopil jsem to dobre?Delphi - VB
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 9.9.1999 12:34:48
> Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
> do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
> jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++
(tj.
> rychlejsi nez Delphi),
> zpomaleni celeho programu zpusobuji jen natahovani ActiveX.
> Nevim, mozna ze moc ctu ... :-)
>
Urcite jsi cetl spravne, presne tak by to bylo logicke delat, ovsem to jeste
samo o sobe nezarucuje buhvijakou optimalizaci kodu. BTW, nevis, kde jsi to
cetl? Ja bych si to taky rad precetl, abych byl taky tak chytry.
Viktor
stringgrid a listbox
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 9.9.1999 12:39:21
----- P�vodn� zpr�va -----
Od: Ing. J�n Kuch�r
Komu: Delphi konferencia
LISTBOX
potrboval by som vediet ci sa da v listboxe zarovnavat text do stlpcov, ked ano tak ako,malo by to vyzerat asi nejak takto
asasasa sasasasa
asas adddsdssdsdsd
wewew wewewewew
Tak nejak jsem to delal. pisu z hlavy.
procedure TMainForm.UpravListBox;
var Pom,Pom1,S:String;
begin
for i:=0 to ListBox1.Items.Count-1 do
begin
Pom:=ListBox1.Items[I];
S:=' ';
while Length(Pom1)>0 do
begin
Pom1:=Copy(Pom,1,Pos(' ',Pom)-1);
Delete(Pom,1,Pos(' ',Pom)-1);
S:=S+Copy(' ',1,10-Length(Pom1))+Pom1; // cislo 10 urcuje na kolikatem sloupecku od pozice predchoziho sloupecku zacne nasledujici sloupec)
end;
ListBox1.Items[I]:=S;
end;
end; Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
DBGrid
[*] marcant <marcant(zv)sct.sk> - 9.9.1999 12:44:46
Spravny kod vyzera trochu inak:
> procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
> DBGrid1.Canvas.Color:= clred;
> else
> DBGrid1.Canvas.Color:= clInfoBk;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end;
>
teda aspon predpokladam, ze chces cely riadok inou farbou (ak by si chcel inou farbou iba niektory stlpec tak si to uz iste upravis sam)
Este drobnost: DBGrid.DefaultDraw treba nastavit na False v Object Inspektore alebo pred zobrazenim DBGrid
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 7:41 AM
Subject: DBGrid
> Ahoj,
>
> Rad by som niekoho poziadal o pomoc.
>
> Potreboval by som v DBGride na zaklade urcitej podmienky vykreslit 1 alebo
vaic riadkov inou podkladovou farbou. Urobil som to pri udalosti
OnDrawColumnCell takto:
>
> procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
> begin
> DBGrid1.DefaultDrawing:=false;
> column.color:=clred;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> else
> begin
> DBGrid1.DefaultDrawing:=true;
> column.color:=clInfoBk;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> end;
>
> Vysledok? Zaznam, ktory vyhovuje sa prekresli (vlastne ten nasledujuci ),
ale cely grid s obsahom preblikuje. Ked vsak sa presuniem na miesto, kde
taky zaznam neexistuje blikanie zmizne.
>
> Nemusim to riesit prave tak. Ak ma niekto iny napad ako zvyraznit ten
ktory zaznam bol by som rad, keby sa onho podelil.
>
> Diky
>
> tg
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
>
>
>
Autorun.ini
[*] jakub urbasek <urbasek(zv)mendelu(tec)cz> - 09.9.1999 12:54:33
Mas dve moznosti. Bud klasicky pres
windows:
(pro win95 osr2)
Ovladaci panely - System - CDROM - vyber
svoje cd-cko - Vlastnosti - Nastaveni a
zrus zatrhnuti "automaticke oznameni" a
restartuj windows
Aktivace je uz jasna.
nebo pres registry:
CD-ROM AUTORUN: This procedure disables
the CD-ROM AutoRun feature, eliminating
the automatic start of the CD upon
insertion.
1.Invoke the Registry Editor
(Regedt32.exe) and locate the
HKEY_LOCAL_MACHINE Subtree.
2.Open the "SYSTEM" key by
double-clicking it with the mouse.
3.Locate and open the
"CurrentControlSet" key.
4.Locate and open the
"Services" key.
5.Select the "Cdrom" key.
6.Select "Options" from the
top menu and ensure that the "Read Only
Mode" option on the
drop-down menu is
unchecked. If it is not, click on "Read
Only Mode" once to uncheck it.
7.Highlight the "Autorun"
value entry in the editor's right pane
and select "Edit | DWORD..."
from the top menu.
8.In the form entry box
which appears, ensure that the "Hex"
radio button is selected in the
"Radix" field. Change the
entry in the "Data" field to "0"
(without the quotes).
9.Select the "OK" pushbutton
on the "DWORD Editor" dialog box.
10.Select "Options" from the
top menu and check the "Read Only Mode"
option on the
drop-down menu by
clicking on it once.
11.Exit the Registry Editor.
(Rebooting the system may be required
for some Registry
configurations to take
effect.)
Jakub
Petr Voborn�k wrote:
> Jelikoz heslo u vetsiny sporicu se da
> obejit jednouduchym programkem
> nahranym na CD, ktere se ma
> automaticky spustit, zajimalo by me,
> jakym prikazem automaticke spusteni
> souboru autorun.ini na CeDeckach
> deaktivuju, pak take, jakym prikazem
> to opet aktivuju a jeste predtim by se
> hodilo taky zjistit, bylo-li to vubec
> zapnuto.DBGrid
[*] Tibor Galik <tgalik(zv)vsz.sk> - 09.9.1999 13:05:32
Diky,
kde sa dostanem ku RX kniznici?
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> "Zdeno Jasek" <zdeno.jasek(zv)corinex.sk> 09/09 11:13 dop. >>>
V kniznici RX komponentov je RxDBGrid pripraveny prave na taketo veci. Skusal som to a je to ovela jednoduchsie nez DBGridom. Staci zadat novu farbu a vsetko ostatne urobi komponent sam.
HideApp pri Alt+Tab
[*] Petrik <petrik(zv)geocities(tec)com> - 9.9.1999 13:06:20
Nazdarek,
tak me to funguje takhle:
na formular dam tu komponentu Stealth :
* a zapnu HideApp (zmizi z CTRL-ALT-DEL menu)
* a zapnu HideForm (zmizi z TaskBaru)
(klidne i v design modu)
a pri naloadovani okna (ne OnCreate)
* dam Form1.HIDE; (zmizi i z ALT-TAB)
(ja to mam pri OnPaint, takze to na chvilku problikne,
ale to se da odstranit napr. odsunutim mimo obrazovku nebo
by to mozna zvladla dalsi udalost, ktera je po OnCreate
a mezi OnPaint treba OnActivate? ... nevim ...
A ted uz tu aplikaci shodi pouze Delphi (CTRL-F2) a
pri run-timu uz NIGGGGDO !!! ;)) (nejde ani smazat z disku
atd.)
(jedna z mala moznosti, jak ho shodit, je WinSightem ho aktivovat
a pak do slepa zmacknout ALT-F4)
Cus,
Petrik mailto:petrik(zv)geocities.com
Jak lze pracovat s promenyma v SQL...
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 9.9.1999 13:15:12
Ahoj Mirune,
diky Ti za konkretni odpoved, vse je mi vcelku jiz jasne akorat
vsak kdyz chci zadat primo do komponenty QUERY parametry ve vlastnosti
Params, tak se mi otevre sice editor, ale nemohu v nem nic zapisovat -
proc?.
Jsou tam sice najake ikony - Toolbar , ale ty jsou disabled.
Omlouvam se za tak trivialni dotaz, ale zatim si zvykam na SQL v Delphi,
kter� ma jiste odlisnosti od jinych produktu.
Diky moc
Milan Blazek
-----P�vodn� zpr�va-----
Od: Mirun <forcom(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. z��� 1999 9:26
P�edm�t: Re: Jak lze pracovat s promenyma v SQL...
----- P�vodn� zpr�va -----
Od: Milan Bla�ek
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 8. z��� 1999 22:54
P�edm�t: Jak lze pracovat s promenyma v SQL...>Nevite nekdo jak mohu v SQL vyuzit hodnoty z promenych. Jedna se mi hlavne
o to, ze chci v dotazu >SQL misto primeho zadani
>datumu zadat pouze promenou,ktera bude postupne nacitat ruzne hodnoty, ale
nevim jak - asi nejak >pres prarametry? (jedna se pouze o lokani pristup).
napr.
kdyz Query1.SQL je treba 'Select * from "objednavky.db" where datum =
:datum'
musis v Query1 definovat v ObjectInspectoru ve vlastnosti Params potrebny
typ parametru (ftDateTime)
a hodnotu pak nastavujes treba takto:
Query1.Close;
Query1.ParamByName('datum').AsDateTime := Now; {nebo lib.jina promenna typu
TDateTime}
Query1.Open;
cili - parametr je vzdy v dotazu dvojtecka + symbolicke jmeno, ke kteremu
pak pristupujes pres ParamByName(jmeno bez dvojtecky) nebo Params[Poradove
cislo parametru]
>Nemuzete nekdo poslat priklad. A jeste jeden dotaz, kdyz zadavam v jedom
Query select na nekolik poli >s podminkou na pole ruznych tabulek, tak
>jsem to drive( ne v Delphi ) zapisoval napr.:
>Select * from Table1, Table2
>Where Table1.Mesto = Table2.Obec
>Ale D4 mi nejak pole s tabulkama nechce brat, bez tabulek ano - proc?
zkus to takhle
Select * from "adresa1.db" T1, "adresy2.db" T2 where T1.Mesto = T2.Obec
(nesmis mixovat nazvy Table1,Table2 z Delphi do SQL, leda napr. takhle:
Query1.SQL.Clear;
Query1.SQL.Add(Format('Select * from "%s" t1, "%s" t2 where t1.Mesto =
t2.Obec',[Table1.TableName,Table2.TableName]);
ovsem kdyz pouzivas SQL neni potreba vubec pouzivat TTable, je lepsi
pouzivat Query.
Mirun
Datum, SQL a WinNT
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 9.9.1999 13:27:05
MS SQL 7 ma neco podobneho a chova se to podobne (mozna stejne) jako u SQL
6.5 - doporucuji pohrat si s tim, dalsi moznost je pohrat si s nastavenim
datumu v systemu. Obe dve nastaveni maji vliv a obcas zpusobuji problemy.
-----P�vodn� zpr�va-----
Od: Vladislav.Skalicka(zv)koncept(tec)cz [SMTP:Vladislav.Skalicka(zv)koncept(tec)cz]
Odesl�no: 6. z��� 1999 17:28
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Datum, SQL a WinNT
Nevim jak v 7.0, ale v 6.5 je treba mit nastaveny v SQL Server Client
COnfiguration Utility
prepinace nasledujicim zpusobem:
-Automatic ANSI to OEM - cokoliv (nezaskrtnuto i zaskrtnuto)
-Use International Settings: OFF
V 7.0 by mohlo byt neco podobnyho... ??
VVS.
--------------------------------------------------------
ing. Vladislav V.Skali�ka
Koncept s.r.o.
Nad V��inkou 2, 150 00 Praha 5, Czech Republic
Phone: +420-2-57310970, 57310971, Fax: +420-2-57313772
MailTo:vladislav.skalicka(zv)koncept(tec)cz
--------------------------------------------------------
Pomuze mi nekdo s nasledujicim problemem?
V Delphi 4.0 C/S jsem napsal aplikaci (prelozena pod Win95), ktera
spolupracuje s MS SQL serverem 7.0. Vse funguje krasne, dokud je aplikace
zpoustena z Win95.
Problem nastava pri spusteni z WinNT 4.0, kdy (pri pokusu o vlozeni noveho
zaznamu) SQL server vrati hlasku, ze nemuze zkonvertovat string na
smalldatetime <General SQL error, 6.9.1999 is not a valid date and time
value>, pricemz SQL monitor ukazuje, ze k SQL serveru proudi data v
identicke podobe jak z Win95 tak z WinNT, a to ve formatu MM/DD/YYYY.
Najde se nekdo zkuseny, kdo vi, co s tim?
Diky
Pavel
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Delphi4 - MS SQL
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 9.9.1999 13:44:34
Doporucuji pouzivat ISQL/W. Cestina se da osetrit nastavenim v Client
Configuration utility, bohuzel zakon schvalnosti rika, ze bud bude spravne
v ISQL/W nebo v aplikaci napsane v Delphi. Mozna pujde nastavit spravnou
cestinu i pres nejaky prikaz, mam dojem, ze mi to nekdy nekdo ukazoval, ale
zapomnel jsem jak to bylo.
Pokud Ti ISQL/W zasadne vadi, da se napsat kratka aplikace v Delphi, ktera
bude realizovat skripty vcetne viceprikazovych. Udelal jsem si pred casem
jednu takovou, hleda vzdy slovo GO na zacatku radku a pokud na nej narazi,
vykona v jednom TQuery vse az po tento radek, no a pak pokracuje stejne od
nasledujiciho radku za GO. Je to jednoduche a funguje to bez problemu.
Co se tyce duplicitnich radku v gridu - pripojuji se k tem, kteri
doporucuji nepouzivat TTable. Ale mohu doporucit zapnout SQL Trace a
podivat se, co vlastne TTable provadi, je to zajimave, uvidis. Mozna Te pak
take napadne reseni.
-----P�vodn� zpr�va-----
Od: Petr Fojtik [SMTP:fof(zv)foresta(tec)cz]
Odesl�no: 8. z��� 1999 13:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Delphi4 - MS SQL
Pros�m z��astn�n� o radu. Provozujeme Delphi4 C/S a BDE verze 5 na stran�
klienta (Win98) proti MS SQL serveru 6.5 (na WindowsNT Server 4.0 service
pack 4). Pou��v�me nativn� driver (SQLMSS32.DLL verze 4).
Pot�ebujeme poradit ve dvou probl�mech :
1. Jak �e�it vyta�en� dat (v�sledek selectu) do textov�ho souboru a naopak
opravu dat extern� vytvo�en�m scriptem (samoz�ejm� pomoc� SQL p��kaz�). To
v�e obecn�, bez vytvo�en� zvl�tn�ho programu (nap�. p�i servisu nebo
p�edpln�n� datab�ze). M�me samoz�ejm� �esk� data. Pokud pou�ijeme Explorer,
tak pracuje korektn� s �e�tinou (podle zvolen�ho Langdriveru v aliasu), ale
nem��eme dostat v�sledn� data do souboru (nefunguje ani clipboard) ani
pou��t v�cep��kazov� SQL-script. Pokud naopak pou�ijeme na serveru
Enterprise Manager (v n�m SQL Tools), pak toto v�echno um�, ale neum�
spr�vn� pracovat s �e�tinou (nelze zvolit Langdriver).
2. Zjistili jsme prazvl�tn� chov�n� n�kde mezi MS SQL a BDE (nebo p��mo v
nich). Pou��v�me tabulky ve kter�ch jsou prim�rn�mi kl��i polo�ky typu
char.
P�i na�ten� dat z tabulky do gridu (v programu) se n�kdy stane, �e se
n�kter� ��dky zobraz� 2x (mysl�m t�m 2x stejn� prim�rn� kl��). Pochopiteln�
to d�l� prob�m p�i pr�ci (nap�. chyba "Record/Key deleted"). V Exploreru se
takov� ��dky n�kdy ojev� tak� 2x, ale v�dy d�laj� probl�m, kdy� po smaz�n�
nezmiz� ale u� nejdou opravovat (op�t "Record/Key deleted"). Konkr�tn� te�
mi to v jedn� tabulce se 24mi ��dky d�l� v�dy stejn�ch 6 ��dk�. Nepomohlo
pou��t jinou tabulku stejn� struktury pod jin�m n�zvem ani zalo�en� jin�
datab�ze. Velmi podobn� probl�m (asi ten sam�) jsme zjistili i na jin�m
pracovi�ti , tak� na MS SQL Serveru 6.5 a na stejn�m Exploreru
(instalovan�m
p��mo na serveru WindowsNT Server 4.0).
U� n�s to st�lo dost �asu a nem�me zat�m ani n�znak �e�en�. P�edem d�kuji
i
za naveden� spr�vn�m sm�rem.
Petr Fojt�k
fof(zv)foresta(tec)cz
Delphi - VB
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 09.9.1999 14:04:08
Myslim, ze v tomto pripade bude rychlost programu dost zavisiet aj od
efektivnosti toho prveho kompilatora z VB do pseudokodu ...
Viktor Lostak wrote:
> > Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
> > do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
> > jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++
> (tj.
> > rychlejsi nez Delphi),
> > zpomaleni celeho programu zpusobuji jen natahovani ActiveX.
> > Nevim, mozna ze moc ctu ... :-)
> >
>
> Urcite jsi cetl spravne, presne tak by to bylo logicke delat, ovsem to jeste
> samo o sobe nezarucuje buhvijakou optimalizaci kodu. BTW, nevis, kde jsi to
> cetl? Ja bych si to taky rad precetl, abych byl taky tak chytry.
>
> Viktor
currency a table (3)
[*] Zbynek Ceska <zbyces(zv)physics.muni(tec)cz> - 9.9.1999 14:13:21
Omlouvam se, ze s tim jeste jednou otravuji, ale ted je to opravdu
naposledy.
Mam databasi dbf ( dBase ), Delphi 4.
Uz jsem si s tim uzil dost a vyzkousel jsem snad vse. Momentalni
stav je ze se porad FIELD nastaveny jako ttCurrency nezobrazuje ve
formatu, ktery je v Ovladacim panelu ve Windows. Ale pokud si necham
vypsat CurrencyFormat promenne, tak ty maji hodnotu nastaveni z WINDOWS.
Ale v Table a V DBGRidu se nic takoveho neobjevuje. Tam jsou stale cisla :
15,245; 14; ( podotykam, ze ta carka tam opravdu je ); a ne ni tam jak
bych potreboval : 15,25; 14,00 a pododbne.
Takze uz moje UPLNE POSLEDNI otazka na toto tema.:Neexistuje
nejaky prikaz, ktery by donutil aby se v Table a v DBGridu zobrazovali
cisla typu Currency tak, jak je dano od WIndows ?
Promenna SetDefaultformat ( nebo tak nejak ), ktera kdyz je
false, tak neplati nastaveni Windows a plati nastaveni vnitrni, at uz je
kdekoliv, nema na to vliv. Proste i kdyz je true nebo false, vzdy se to
zobrazuje stejne.
Diky moc naposled a opravdu se moc omlouvam, ze s
tim porad otravuji. Visim ted na tom a nemuzu dal. Uz je to opravdu
naposled na toto tema.
Tak jeste jednou dik vsem za jakoukoliv radu.
Zbynek Ceska. *************************************************************************
** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
** Plasma Physics ** High Technology Physics ** Microwave Physics **
*************************************************************************
MSDE
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 09.9.1999 15:32:45
> z diskuze v konferenci jsem ohledne MSDE pochopil, ze je MSDE FREE, zdarma.
>
> Je to Free, ale prvotni investice vyjde vyvojare cca na 20.000 Kc,
> protze si musi koupit bud Office 2000 Developer, nebo Visual Studio.
> Pak uz to muze sirit se svymi aplikacemi, jak se mu zachce.
Mam taky pocit, ze MSDE nie je mozne volne sirit s aplikaciami vytvorenymi v
Delphi - vid. nasledovny odstavec prevzaty z
http://msdn.microsoft.com/vstudio/msde/genfaq.asp Ale dufam ze si to len zle
vysvetlujem.
Q: What are the redistribution terms for solutions built using MSDE?
A: Developers can freely distribute MSDE solutions built with Visual Studio 6.0
Professional or Enterprise edition development tools, or with Office 2000
Developer edition. See the End-User License Agreement (EULA) for the full
distribution and royalty terms.
> Pochopil jsem to dobre?
--
S pozdravom
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
Datum, SQL a WinNT
[*] Luk� Zach <L.Zach(zv)Aquasoft(tec)cz> - 9.9.1999 15:49:45
Anebo (pokud je rec o pristupu pres TQuery), zkuste datumy do SQL serveru
posilat ve formatu "YYYYMMDD" (tj. uplne bez oddelovacu).
---------------------------
Lukas Zach, Aquasoft s.r.o.
E-mail:luki(zv)aquasoft(tec)cz
Tel.: 02/248 05 204(201)
Mobilni: 0602/201 790
---------------------------
-----Original Message-----
From: Vlastimil Bardon [mailto:ineq-soft(zv)ova.eridan(tec)cz]
Sent: Thursday, September 09, 1999 1:27 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Datum, SQL a WinNT
MS SQL 7 ma neco podobneho a chova se to podobne (mozna stejne) jako u SQL
6.5 - doporucuji pohrat si s tim, dalsi moznost je pohrat si s nastavenim
datumu v systemu. Obe dve nastaveni maji vliv a obcas zpusobuji problemy.
-----P�vodn� zpr�va-----
Od: Vladislav.Skalicka(zv)koncept(tec)cz [SMTP:Vladislav.Skalicka(zv)koncept(tec)cz]
Odesl�no: 6. z��� 1999 17:28
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Datum, SQL a WinNT
Nevim jak v 7.0, ale v 6.5 je treba mit nastaveny v SQL Server Client
COnfiguration Utility
prepinace nasledujicim zpusobem:
-Automatic ANSI to OEM - cokoliv (nezaskrtnuto i zaskrtnuto)
-Use International Settings: OFF
V 7.0 by mohlo byt neco podobnyho... ??
VVS.
--------------------------------------------------------
ing. Vladislav V.Skali�ka
Koncept s.r.o.
Nad V��inkou 2, 150 00 Praha 5, Czech Republic
Phone: +420-2-57310970, 57310971, Fax: +420-2-57313772
MailTo:vladislav.skalicka(zv)koncept(tec)cz
--------------------------------------------------------
Pomuze mi nekdo s nasledujicim problemem?
V Delphi 4.0 C/S jsem napsal aplikaci (prelozena pod Win95), ktera
spolupracuje s MS SQL serverem 7.0. Vse funguje krasne, dokud je aplikace
zpoustena z Win95.
Problem nastava pri spusteni z WinNT 4.0, kdy (pri pokusu o vlozeni noveho
zaznamu) SQL server vrati hlasku, ze nemuze zkonvertovat string na
smalldatetime <General SQL error, 6.9.1999 is not a valid date and time
value>, pricemz SQL monitor ukazuje, ze k SQL serveru proudi data v
identicke podobe jak z Win95 tak z WinNT, a to ve formatu MM/DD/YYYY.
Najde se nekdo zkuseny, kdo vi, co s tim?
Diky
Pavel
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
zobrazenie html
[*] Juraj.Talaba(zv)nup.sk - 9.9.1999 14:53:15
caute vsetci!
som zaciatocnik a uz nejaku dobu sa morim s problemom ako zobrazim kod
html?
potrebujem si urobit co najjednoduchsi prehliadac HTML. aby sa mi to
nenatahovalo hodinu.
mam D3 client/server. su tam nejake podpory pre internet ale akosi to
neviem pouzit. nejako som to este nepochopil celkom. moze mi to niekto
aspon zhruba popisat alebo vysvetlit?
alebo neexistuje na to nejaka komponenta?
vopred dakujem za vsetky tipy. �.
- RebEl -
Jak ziskat SQL prikazy z TQuery
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 09.9.1999 16:07:20
environment:Win98/95 CZ,Delphi STANDART 4.0 (Build 5.104)Update Pack 2
RxLib 2.60
keywords:SQL,TQuery
Zdravim.
q:Poradte zda a jak by bylo mozne pri pouziti TQuery v modu
RequestLive=True nejak odchytavat a ukladat odesilane SQL prikazy do
souboru a vytvorit jakysi protokol o provedenych zmenach v databazi.
Predem dik.
eL..Preziti aplikace pri Log-off
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 9.9.1999 16:41:27
Nevi nekdo jak zaridit, aby se aplikace pri odhlaseni se uzivatele
neukoncila?
Treba takovy NortonAntivirus to tusim dela, ale jak???
Thanks for help
Krystof
Presmerovani con do Streamu
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 9.9.1999 16:51:07
Nevi nekdo, jak presmerovat vystup z programu do streamu?
Mam program, ktery spousti jiny (consolovy) program a potrebuje dostat jeho
vystup pro dalsi zpracovani v idealnim pripade do streamu, ale klidne i
nekam do pameti, kde by se na to mohl podivat.
Thanks for your help.
Krystof
Telefonicke pripojeni site
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 9.9.1999 17:02:29
Jejich seznam a popis i se seznamem a popisem stovek dalsich uzitecnych veci
pro programatory (assembler, preruseni,...) je v encyklopedii HelpPC - tusim
ze je nekdy z roku 91, ale porad je pouzitelna. Je na ni odkaz tusim nekde
na www.krovina(tec)cz/studna.
----- Original Message -----
From: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 08, 1999 7:26 AM
Subject: Re: Telefonicke pripojeni site
> Kdyz uz jsme u tech AT prikazu - nemate nekdo zakladni sadu techto
> prikazu ? Je mi jasne, ze detaily se model od modelu lisi, ale zaklad je
> stejny, ze ?
>
> Mira
>
> ----- P�vodn� zpr�va -----
> Od: <rdocekal(zv)csas(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 7. z��� 1999 18:07
> P�edm�t: RE: Telefonicke pripojeni site
>
>
> Tohle se AFAIK nastavuje na modemu, je potreba pri inicializaci nastavit
> prislusny registr. Napr. na Zyxelech je to prikazem ATS0=5 pro 5 zvoneni
> atp.
>
>Index is read only
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 9.9.1999 17:27:23
Pokud jsi ten soubor vytvarel pres Database Desktop (jinde to asi bude velmi
podobne), napoprve jsi nezaskrkl zadnou polozku jako Key. Potom se vsechny
indexy staly readonly. Pokud je Key nekde zaskrknuto, nesmi existovat dva
zaznamy, ktere by mely vsechny Key polozky stejne, ale zato je tabulka plne
read-write. Nevim cim to, ale tak to funguje. (M$ Access tusim dokonce
vyzaduje definovani nejake polozky jako klicove.)
Krystof
----- Original Message -----
From: Luk� Gallina <johndelphi(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 08, 1999 10:37 AM
Subject: Re: Index is read only
> Zdar,
> na to uz jsem se jednou ptal a neodpovedel. Ten samy trouble mel i jeden
muj
> kamarad..... nevyresili jsme to.
> Me se to potom rozjelo nevim proc a jak. Ja jsem ten doubor databaze
smazal
> a udelal znovu, chvili to blblo a pak se to rozjelo.... nevite nekdo PROC?
> Skousel jsem to pak i nasimulovat ale nezdarilo se najit nejake
> souvislosti....
>
> Jestli je nekdo vi, necht odpovi....
>
> Luk� Gallina (Lukas Gallina)
> racek(zv)devacomm(tec)cz
>
> Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
>
>
> > Dotaz nejak zapadl, zkousim to znovu...
> >
> > D3 profi, Paradox
> >
> > Mam malinkaty problemek. Databazova aplikace mi po edit/insert a
> table.Post
> > hlasi %sub%.
> > Co s tim ??
> >
> > Diky za nakopnuti....
> >
> > 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
>
>Beh dvoh procesov sucasne.
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 9.9.1999 17:30:20
Stalo by za uvahu prostudovat Thread demo dodavane spolu z Delphi. (v
adresari Demos\Threads).
S pozdravem
Pavel Kriz
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel.: 02/ 6891 444
http://www.tds-technik(tec)cz
----- Original Message -----
From: Martin Galik <m_g_66(zv)hotmail.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 3:49 PM
Subject: Beh dvoh procesov sucasne.> Ahoj.
> Neviem si rady z jednym malym problemom.
> Potrebujem aby mi bezali dva procesi sucastne(citanie a zapis na dva COM
> porty) a ani za svet mi to nechce ist.
> Skusal som to tak, ze som si vytvoril dva child formulare kde v jednom som
> zadefinoval COM1 a v druhom COM2 ale dokazal som maximalne spravyt to, ze
mi
> isli za sebou (jeden skoncil, druhy zacal).
> Vdaka.
>
> Programator - zaciatocnik
> Martin Galik
> RB s r.o.
> Bratislava.
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
>Barva BitBtn
[*] Krystof Hoder <hoder(zv)seznam(tec)cz> - 9.9.1999 17:46:16
Je potreba pohrat si s metodou TBitBtn.DrawItem v unite Buttons (neni 100%,
protoze podle vseho jsou zde pouzivany std. funkce windows, ktere asi umi
dat na pozadi jen clBtnFace, coz je vetsinou seda - lze nastavit v
ControlPanelu), nebo si napsat vlastni komponentu (to nebude nic az tak moc
slozityho - vykresleni, obsluha klikani a klavesnice).
Krystof
----- Original Message -----
From: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 04, 1999 6:36 PM
Subject: Barva BitBtn
> Nevite nekdo jak nastavit u BitBtn a SpeedButtonu jinou barvu nez sedivou?
>
> Pitr - Petr Vobornik
> MIKMIK company
> vobornik(zv)ssakhk(tec)cz
> ICQ# 23132120
> www.ssakhk(tec)cz/home/vobornik/
>
>