Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
SQL vs. IDENTITY pro ACCESS
[*] Ren� Otisk - 27.10.2000 09:37:41
Nicmene jaka je syntaxe SQL prikazu?
Sroub
> > Prazdna neni, nicmene u Paradoxu kdyz jsem sveho casu pridal sloupec
typu
> > AutoInc, tak mi to automaticky doplnilo u stavajicich zaznamu... U MS
> Access
> > to tahle nefunguje?
>
> Presne tak isto to funguje aj v MS Access-e.
>
> Erik Salaj, WINSOFT
> info(zv)winsoft.sk
Restart Windows NT
[*] sup(zv)svitap(tec)cz - 27.10.2000 9:51:10
>> ExitWindowsEx(EWX_REBOOT or EWX_FORCE, 0);
>
>Klicem k restartu je fce, ktera se popisuje o kuys niz v hlepu k vyse
>uvedne
>fci.
>
>Tajemstvi se jmenuje takto:
>
>AdjustTokenPrivileges()
>
>Bohuzl sebou nemam kus programu, kde jsem to pouzil, takze sample neposlu.
>
Tak jsem doma nasel cely program:
procedure TForm1.Button2Click(Sender: TObject);
const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland forgot this
declaration
var hToken:THandle;
tkp:TTokenPrivileges;
tkpo:TTokenPrivileges;
zero:DWORD;
begin
zero := 0;
if not OpenProcessToken( GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin
MessageBox(0,'Exit Error','OpenProcessToken() Failed',MB_OK );
Exit;
end;
if not OpenProcessToken( GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin
MessageBox(0,'Exit Error','OpenProcessToken() Failed',MB_OK );
Exit;
end;
// SE_SHUTDOWN_NAME
if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' ,
tkp.Privileges[ 0 ].Luid ) then begin
MessageBox(0,'Exit Error','LookupPrivilegeValue() Failed',MB_OK );
Exit;
end;
tkp.PrivilegeCount := 1;
tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges( hToken, False, tkp,SizeOf(TTokenPrivileges ),
tkpo, zero );
if Boolean( GetLastError()) then begin
MessageBox(0, 'Exit Error', 'AdjustTokenPrivileges() Failed',MB_OK );
Exit; end
else
ExitWindowsEx( EWX_FORCE or EWX_REBOOT, 0 );
// just shut the machine down
halt(0);
end;
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
Klavesnice
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 27.10.2000 09:56:39
> -----P�vodn� zpr�va-----
> Od: tomsir1.edu(zv)mail.cez(tec)cz [mailto:tomsir1.edu(zv)mail.cez(tec)cz]
> Odesl�no: 27. ��jna 2000 9:21
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Klavesnice
>
>
>
>
> hm, jestli mas zajem, mam tu vlastni keyboard logger
> pouzivajici prave hookovani
> klavesnice, je to sice z dob mych zacatku, takze to skryti
> aplikace je sice
> humpolacky, nicmene to te nezajima,to odchytavani klaves je
> plne funkcni, no a
> posilani klaves, to jsem neresil .. VB ma sendkeys .. delphi
> to nema ?? Mam
> pocit, ze jsem o tom nekde uz slysel ci cetl ..
> To vypnuti a zapnuti klavesnice by bylo v pohode ....
>
> Radegast
Nejaka sendkeys (nebo jak se jmenuje) unita je na inst. CD.
Alespon na D5 Std.IBExpress, Pristup k IB
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 27.10.2000 10:10:34
Ahoj,
melo by to jit pomoci IBObjects - http://www.ibobjects.com
BONNEL TECHNOLOGIE, v�voj wrote:
>
> Kolega ma jeden problem - lze provozovat IBExpress bez BDE? Respektive
> sirsim pohledem - lze se z Delphi 5 Standard (nemaji podporu BDE) nejakym
> FREE zpusobem konektovat na IB 6? Educational purposes only.
>
> Znate to, ty penize ve skolach ....
>
> Diky Mira
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
IBExpress, Pristup k IB
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 27.10.2000 10:15:32
From: <BONNEL TECHNOLOGIE>; v�voj <bonnel(zv)telecom(tec)cz>
> Kolega ma jeden problem - lze provozovat IBExpress bez BDE? Respektive
> sirsim pohledem - lze se z Delphi 5 Standard (nemaji podporu BDE) nejakym
> FREE zpusobem konektovat na IB 6? Educational purposes only.
IBExpress nepotrebuje BDE. Ale mam dojem, ze vzhledem k absenci tdaset v
standardnich Delphi nejde pouzit.
Mel by jit pouzit balik IBOBJECTS, ktery je pro Education free.
(www.ibobjects.com)
Ahoj Frantisek Sevcik, sevcik(zv)anexis(tec)cz
DB-aware a delka transakce
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 27.10.2000 10:23:16
Ahoj,
David Lebeda wrote:
>
> > > pokud pouzivam TIBDataset nebo TIBQuery, tak zavolanim
> > > IBDataset.Open se zahaji transakce a zavolanim Close se ukonci. Jak
> > > ale resit pozadavek, ktery zde jiz nekolikrat padnul, totiz aby
> > > transakce byly co nejkratsi? Tezko vyloucit situaci, ze si uzivatel
> > > otevre form s DBGridem a necha ho cely den svitit na obrazovce.
> > > Dosud se prosazovalo v konferenci pouzivat db-aware komponenty
> > > nanejvys pro cteni. S IBX je uz nevhodne i to, nebo tomu jen spatne
> > > rozumim?
> >
> > Ano, je to tak. Je treba si vybrat. Bud pouzivat db-aware a nebo
> > pouzivat ne db-aware. Ja to resim podle stupne nebezpecnosti u
> > konkretnich dat. Pokud je potreba, aby se data okamzite zapsala
> > pouziji ulozenou proceduru. Vyber z vetsiho objemu dat lze vyresit
> > nekolika zpusoby. Napr. nacteni do memory table (RX komponenty). Pokud
> > si (zrejme naivne) myslim, ze pristup ke konkretnim datum je v pohode
> > pouziji pro vyber query a povolim editovat pouze jeden zaznam pomoci
> > TIBDATASET nebo opet ulozenou procedurou. Kazdopadne by me take
> > zajimalo jake skusenosti ma kdo s OIT pri napriklad vyhradnim pouziti
> > TIBDATASET.
> >
> > Ahoj Frantisek Sevcik, sevcik(zv)anexis(tec)cz
> >
> >
> Tak jeste - snad uz naposledy k transakcim.
>
> Mne ani tak neslo o delku transakce kvuli tomu, ze by se data
> zapsala pozde apod. - to lze resit s CommitRetaining (zasadne
> nepouzivam db-aware komponenty pro editaci dat). Ale jak tady
> psal tusim Tomas - dlouhe transakce maji nejakou souvislost se
> sweepovanim a jinymi internimi zalezitostmi.
I dlouho trvajici read-only transakce muze pri jistem stupni izolace
blokovat rust cisla OIT (konkretne je to snapshot transakce). Nevim, jak
IBX, ale IBO v sobe obsahuji mnoho optimalizaci souvisejicich s
automatickym rustem cisla transkace, takze i kdyz bude mit uzivatel
otevreny grid s daty z nejake tabulky treba tyden, nebude rust OIT
blokovan. Je to reseno tak, ze po nejakem casovem intervalu se proste
fyzicka transakce ukonci, data jsou stale zobrazena (buffer). Nad tim
vsim ma programator samozrejme kontrolu, ale vyzaduje to jisty cas pro
pochopeni ... I tem, kdo nehodlaji IBO pouzivat (i kdyz je pro
akademicke a nevydelecne pouziti free) vrele doporucuji stahnout si help
a trochu si v nem pocist :-)
> A jeste z malinko jineho soudku. Chci-li udelat nejaky
> jednoduchy select, ktery bude sam umisten v transakci, jak je
> lepsi tu transakci ukoncit - commit nebo rollback? Myslim ted ciste
> z hlediska rezie SQL serveru.
Klidne pouzij commit, IB stejne pozna, ze to nema smysl a udela
rollback.
> Diky
>
> David
Tom
P.S. V souvislosti s IBObjects dostava debata o pouzivani db-aware
kontrolek dalsi rozmer.
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
IBExpress, Pristup k IB
[*] Delphi <delphi(zv)aitix(tec)cz> - 27.10.2000 10:25:31
>Kolega ma jeden problem - lze provozovat IBExpress bez BDE? Respektive
>sirsim pohledem - lze se z Delphi 5 Standard (nemaji podporu BDE) nejakym
>FREE zpusobem konektovat na IB 6? Educational purposes only.
Pokud vim, tak to jde pres IBOBJECTS. Viz. www.ibobjects.com . Je to
trustware,
cili to musis koupit az ve chvili, kdy budes ty aplikace komercne pouzivat
(prodavat).
Do te doby to pise pri startu takove okno o registraci, ale jinak funguje.
Obsahuje dve casti:
IBDataset kde "podhodi" zdroje pro klasicky TDataset
a muzes to pak pouzivat s Borlandovskymi DB komponentami.
Potrebuje Professional a vyse.
IBNative na vlastni pristup k datum, nekompatibilni s TDataset.
Nefunguje tedy spojeni na DB komponenty v Delphi,
byt IBObjects nabizi hodne vlastnich, funkcnich.
Tato cast by mela fungovat se Standardem.
Sam bych to rad overil, ale bohuzel mam "jen" Client/Server.
Podle popisu by to melo umet vic nez IBEXPRESS.
Mate k tomu nekdo zkusenosti???
Leos
Invalid filter expression charakter
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 27.10.2000 10:26:07
> Mam takovyto problemek. V DB aplikaci oteviram jeden soubor s predem
> nastavenym filtrem
>
> Filtered:= true a Filter <> ''
>
> Pod D3 to fungovalo naprosto bezchybne. Pri prechodu na D5 to hlasi
> pri otevirani DB chybu:
>
> Invalidfilter expression charakter: '.' pritom vsak nejde o chybu
> EDBEgineError.
>
> Hodnota filru je nap�.
>
> Filter:='(Datum=9.10.2000.)and(Used=0)';
>
> pritom hodnotu pro datum odvozuji z aktualniho data pomoci stadardni
> funkce DateToStr. Jak Windows, tak BDE maji nataven format data
> (oddelovace) na zde pouzity.
>
> Doma na Win95 me to funguje i v D5. Na cilove stanici, kde to ma behat
> pod Win2000 to dava popsanou chybu. Nesetkali jste se s necim obdobnym
> ?
S datumy je obecne svizel. Pri psani CGI aplikaci se mi osvedcilo
prevadet datum na string pomoci FormatDateTime no a obracene
pouzivam na MSSQL7 convert s tretim parametrem 104.
Snad Ti to nejak pomuze.
David
Select ulozene procedury
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 27.10.2000 10:33:16
Ahoj,
David Lebeda wrote:
>
> Ahoj,
>
> na MSSQL7 jsem pouzival ulozene procedury, ktere obsahovaly
> nejaky select s parametry (tj. suplovaly view s parametry), napr.
> takto:
>
> CREATE PROCEDURE psSelectRezervaceOdDo
> (zv)GridOd datetime,
> (zv)GridDo datetime
> AS
> SELECT nazev, datum_od, datum_do, barva FROM vRezervace
> WHERE ((datum_do > (zv)GridOd) AND (datum_od < (zv)GridDo))
> ORDER BY nazev
>
> Nyni bych to rad prevedl do IB6. Ktera cesta je lepsi?
>
> 1) Select ulozena procedura, tj. procedura pouzivajici
> FOR..SELECT
Tohle je IMHO lepsi reseni, urcite se nejedna o zpomaleni oproti druhe
variante (taky jsem drive trpel stejnymi pochybnostmi :-) ). BTW, v
nekterych ulozenych procedurach lze s uspechem vyuzit i tzv. RDB$DB_KEY,
o nemz se pomerne cudne mlci na vsech frontach krome
http://www.cvalde.com
> 2) Posilat to rucne z aplikace pomoci IBSQL.
>
> Ptam se proto, jestli treba prochazeni pomoci FOR..SELECT neni
> nakonec pomalejsi nez jednorazove provedeny select poslany z
> aplikace, i kdyz v tom druhem pripade je samozrejme vyssi rezie.
>
> David
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
IBExpress, Pristup k IB
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 27.10.2000 10:47:38
On 27 Oct 2000, at 6:42, BONNEL TECHNOLOGIE, v�voj wrote:
> Kolega ma jeden problem - lze provozovat IBExpress bez BDE? Respektive
> sirsim pohledem - lze se z Delphi 5 Standard (nemaji podporu BDE)
> nejakym FREE zpusobem konektovat na IB 6? Educational purposes only.
IBExpress nema s BDE nic spolecneho, problem je ale v tom, ze
je poveseny na TDataSet. Reseni by snad mohlo byt v OLE DB
komponentach, ale je tu drobny problem, ze IB nema OLE DB
provider, takze se to musi honit jeste pres ODBC. A nevim, jak se
to pres ODBC chova.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Par dotazu na tabulky
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 27.10.2000 10:51:08
> mel bych na Vas par dotazu. Pouzivam D3 a databaze Interbase, asi
> nestastne BDE a komponenty TQuery, TTable. (Samozrejme Vim ze to neni
> zrovna stastne reseni, ale uz uvazuji na predelavku, hned jak to
> dodelam do provozu schopne verze). 1. Jak nejrychleji zjistit pocet
> zaznamu celkovych v tabulce, a pocet zaznamu zobrazenym po selectu v
> TQuery ?
> (Provadim po kazde zmene TDatasource dva dotazy SQL a zjistuji
> RecordCount, myslim ze je to dost pomale).
RecordCount je opravdu pomaly. Ja pouzivam dotaz na count(*).
David
Jak vycucnout texty ze PAS souboru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 27.10.2000 11:05:01
�ejka Jan <Jan.Cejka(zv)merlin(tec)cz>
> xxxxxxx 'aaaaaaa' xxxxxx 'bbbbbb'
>
> Nezrusi to ty b-cka?
Zrusi. V takovych pripadech musis postupovat po krocich a pouzit
odpovidajici vyraz adekvatni obsahu, napr. bys mohl nejprve slucovat stringy
zleva do jednoho opakovanym pouzitim:
replace ^.*'(.+)'.*'(.*)$
za '\0\1
Samozrejme, regexpr nemaji silu algoritmu, napsaneho v obecnem programovacim
jazyce, ale da se s nimi udelat jednoduse docela hodne prace.
Bye, pf
OT: Programovani pro Psion
[*] Tibor Galik <tgalik(zv)vsz.sk> - 27.10.2000 10:06:17
>Ahoj!
>
>Ma nekdo zkusenost se Subj.? Ja jsem v tomhle smeru uplna "TABULA
>RASA" :-) A aby to nebylo uplne OT - daji se k tomu pouzit Delphi?
>Za jakoukoliv napomoc diky.
>
>Jirka.
Neviem aky Psion myslis. Ak ide o Series3 tal pgm jazyk mas:
a) OPL je to psionacky jazyk syntakticky ako BASIC
b) OVAL ktory tu uz bol spominany. Like Visual Basic. Ale aplikacie (urobene v OVALe) potom bezia potom pomalsie
c) v jazyku C
Series 5 a myslim ze aj vyssie
a) OPL
b) JAVA
c) jazyk C
Myslim ze mas na vyber. Uz sa len rozhodnut. Pre Delphi o nicom neviem
cao
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
IBExpress, Pristup k IB
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 27.10.2000 11:15:07
> Kolega ma jeden problem - lze provozovat IBExpress bez BDE? Respektive
> sirsim pohledem - lze se z Delphi 5 Standard (nemaji podporu BDE)
> nejakym FREE zpusobem konektovat na IB 6? Educational purposes only.
Lze. IBX slouzi pro primy pristup k IB, tj, nemaji nic spolecneho s
BDE.
Jiri Binder
DB-aware a delka transakce
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 27.10.2000 11:15:07
From: "L. ZITA" <konference(zv)sales(tec)cz>
> Jak presne ten refresh gridu provadis. Ja jsem tohle zkousel a
> stejne se mi v jine transakci nove vlozene zaznamy nezobrazovaly.
> Mozna jsem neco delal spatne, ale stejne jsem musel pouzit Open a
> Close DataSetu aby to bylo OK.
Refresh v IBX komponentach provede pouze refresh aktualniho
zaznamu. Refresh celeho datasetu je jedine pres close-open.
Jiri Binder
Klavesnice
[*] Cibulka Karel <kcibulka(zv)seznam(tec)cz> - 27.10.2000 11:19:48
Bohuzel tady ted nemam k dispozici zdrojaky, ktere by demonstrovali to co
dale popisu.
Ja bych to udelal nasledujicim zpusobem s pomoci tzv. Windows Hooks, tj.
procedur, ktere lze "povesit" do retezce zpracovani zprav Windows (zprav od
mysi, klavesnice, aplikaci...). Zkuste v SDK hledat "Hooks", zajimat vasi
asi taky bude procedura "KeyboardProc", ktera prave slouzi k zachytavani
zprav klavesnice s tim, ze umoznuje "zpracovani" zpravy o stisknuti klavesy
tak, ze se o ni jiz aplikace nedozvi. Toto lze provadet jak na urovni
aplikace, tak i celeho systemu, podrobnejsi popis je v SDK.
Pro vymenu klavesy lze pouzit dva zpusoby - bud pouzit hook na GetMsgProc,
ktery umznuje zmenu zpravy pred jejim odeslanim aplikaci, nebo ve vyse
uvedenm hooku generovat s pomoci SendMessage zpravu o simulovanem stisknuti
jine klavesy.
<br>
Cibulka Karel, kcibulka(zv)seznam(tec)cz, ICQ: 4111110
<br>
----- Original Message -----
> Ahoj, opet se na vas obracim uz ponekolikate se stejnym dotazem - zatim se
> mi ho nepodarilo vyresit:
> jak dokazu v D5 "vypnout" klavesnici a pak ji opet "zapnout". Nebo
pripadne
> jak dokazu "vymenit" znak ve fronte klavesnice? (Tedy, kdyz stisknu "A",
tak
> aby vysledek byl "B").
> ALE NE JEN V PROVADECI APLIKACI, ALE V CELYCH WOKNECH 98.
Zmena jazyka tabulky
[*] Vladim�r Koupil <vladimir.koupil(zv)worldonline(tec)cz> - 27.10.2000 11:33:06
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 27, 2000 12:56 AM
Subject: Re: Zmena jazyka tabulky
> From: "Vladim�r Koupil" <vladimir.koupil(zv)worldonline(tec)cz>
> > mohl by mi nekdo poradit, jak zmenit jazyk tabulky Paradox (*.db) za
behu> > programu ?
>
> Ahoj,
>
> je to v archivu:
>
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=Jul&den=21&first=31&soubor=dl
fa
> aabr.htm
>
> Petr Vones, amatersky programator
>
>Ahoj, ja se asi spatne vyjadril. Mam tabulku
Paradox nebo dBASE a chtel bych zmeni jeji
langdriver. Napriklad dostavam databazi s
langdriverem dBASE ENU cp437, ale data se
mi nezobrazuji cesky. Po preveddeni (rucne) na
dBASE CSY cp852�to bylo v poradku. Potreboval
bych to ale udelat programove.
(Podobny probleb s tabulkami Paradox).
Diky moc
tezky zacatecnik Lada
OT : pop3 - rfc
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 27.10.2000 11:37:44
Co treba RFC1939?
(http://www.faqs.org/rfcs/index.html)
> -----P�vodn� zpr�va-----
> Od: tomsir1.edu(zv)mail.cez(tec)cz [mailto:tomsir1.edu(zv)mail.cez(tec)cz]
> Odesl�no: 27. ��jna 2000 9:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OT : pop3 - rfc
>
>
>
>
> Muzete mne nekdo kopnout a rict mi cislo rfc pojednavajici o pop3
> Dik Radegast
>
> Invalid filter expression charakter
[*] Jiri Kral <admin(zv)printo(tec)cz> - 27.10.2000 11:39:45
doporucuje se davat mezi operatory a operandy mezery a nepouzivat zavorky.
Datum navic musi byt v apostrofech.
tzn. tvuj priklad by mel byt:
Filter:='Datum = ''9.10.2000'' and Used=0 ';
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)sms.paegas(tec)cz
ICQ# 15303940
PGP ID: 0x15AD9FB8 (najdete na www.pgp(tec)cz)
pop3 - rfc
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 27.10.2000 11:59:53
> Muzete mne nekdo kopnout a rict mi cislo rfc pojednavajici o pop3
1939
D. Toman
DB-aware a delka transakce
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.10.2000 12:25:02
ahoj,
> A jeste z malinko jineho soudku. Chci-li udelat nejaky
> jednoduchy select, ktery bude sam umisten v transakci, jak je dekuji
peca
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
> lepsi tu transakci ukoncit - commit nebo rollback? Myslim ted ciste
> z hlediska rezie SQL serveru.
> Diky David
podle dokumentace je i u obycejneho selectu lepsi commit, nebot ma
nizzsi rezii nez rollback. a to i v pripade, ze se data jenom ctou...Klavesnice
[*] tomsir1.edu(zv)mail.cez(tec)cz - 27.10.2000 11:28:25
jojo, mas pravdu, jedna se o KeyBoardProc,jen je p
otom potreba spravne vyplnit
parametry SendMessage,
tzn
. zachovat vse, krome informace o klavese. Je tam jeste j
edna vec, ten hook
by mel byt v dll ktera je
{$C FIXED
PERMANENT PRELOAD} -- to neni z my hlavy, to sem nekde vy
cet..
Radegast
"Cibulka Karel" <kcibulka(zv)
seznam(tec)cz> on 27.10.2000 10:19:48
Odpov�zte pros�m -
delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie:
(Na v�dom�: Tomsik Radek/4130P/EDU/CEZ)
P�edm�t:
Re: Klavesnice
Bohuzel tady ted nemam k dispozici zdrojaky, ktere by demonstrovali to co
dale popisu.
Ja bych to udelal nasledujicim zpusobem s pomoci tzv. Windows Hooks, tj.
procedur, ktere lze "povesit" do retezce zpracovani zprav Windows (zprav od
mysi, klavesnice, aplikaci...). Zkuste v SDK hledat "Hooks", zajimat vasi
asi taky bude procedura "KeyboardProc", ktera prave slouzi k zachytavani
zprav klavesnice s tim, ze umoznuje "zpracovani" zpravy o stisknuti klavesy
tak, ze se o ni jiz aplikace nedozvi. Toto lze provadet jak na urovni
aplikace, tak i celeho systemu, podrobnejsi popis je v SDK.
Pro vymenu klavesy lze pouzit dva zpusoby - bud pouzit hook na GetMsgProc,
ktery umznuje zmenu zpravy pred jejim odeslanim aplikaci, nebo ve vyse
uvedenm hooku generovat s pomoci SendMessage zpravu o simulovanem stisknuti
jine klavesy.IBExpress, Pristup k IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.10.2000 12:28:19
ahoj,
> lze provozovat IBExpress bez BDE?
ANO, lze.
dekuji peca
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/IBExpress, Pristup k IB
[*] BONNEL TECHNOLOGIE, v�voj <bonnel(zv)telecom(tec)cz> - 27.10.2000 12:42:22
Dekuji vsem za nazory, ale lisi se zasadne v jednom bode - potrebuje IBX
opravdu TDataSet? Opravdu TDataSet neni v Delphi 5 Standard?
Ma nekdo zkusenost s IBObjects a D5Std?
Jeste jednou diky
Mira
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> BONNEL TECHNOLOGIE
> Sent: Friday, October 27, 2000 6:42 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: IBExpress, Pristup k IB
>
>
> Kolega ma jeden problem - lze provozovat IBExpress bez BDE? Respektive
> sirsim pohledem - lze se z Delphi 5 Standard (nemaji podporu BDE) nejakym
> FREE zpusobem konektovat na IB 6? Educational purposes only.
>
> Znate to, ty penize ve skolach ....
>
> Diky Mira
>
>RichEdit98
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 27.10.2000 12:44:09
| Zdravim vsechny delfaky!
|
| Mam problem s instalaci komponenty RichEdit98 od Alexandera Obuchova.
| Stahnul jsem si z inetu nejakou posledni verzi ( ve zdoji je uvedeno ze je
| pro D3 a D4) a nemuzu ji nejak nainstalovat do D5 profesinonal. Muze mi
| nekdo poradit jak na to, pripadne kde sehnat verzi pro D5.
Zdar,
jesti tim nejde nainstalovat myslis, ze pri kompilaci je chyba v unitu
RTFEditor.pas ve funkci EnumFontFams, tak nahrad typ parametru
TNEWTEXTMETRICEX za TNEWTEXTMETRICEXA.
V jinym pripade nevim, me se to nainstalovalo dobre
Pavel
Invalid filter expression charakter
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 27.10.2000 12:49:38
Ja pouzivam teky FormatDateTime a formatuju datum do tvaru mm/dd/yy(yyyy) a
to funguje spolehlive vsude bez ohledu na nastaveni pc. A do filtru a sql
davam datum v uvozovkach nebo apostrofech.
Michal Tiller
-----Original Message-----
From: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Friday, October 27, 2000 10:26 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Invalid filter expression charakter
> Mam takovyto problemek. V DB aplikaci oteviram jeden soubor s predem
> nastavenym filtrem
>
> Filtered:= true a Filter <> ''
>
> Pod D3 to fungovalo naprosto bezchybne. Pri prechodu na D5 to hlasi
> pri otevirani DB chybu:
>
> Invalidfilter expression charakter: '.' pritom vsak nejde o chybu
> EDBEgineError.
>
> Hodnota filru je nap�.
>
> Filter:='(Datum=9.10.2000.)and(Used=0)';
>
> pritom hodnotu pro datum odvozuji z aktualniho data pomoci stadardni
> funkce DateToStr. Jak Windows, tak BDE maji nataven format data
> (oddelovace) na zde pouzity.
>
> Doma na Win95 me to funguje i v D5. Na cilove stanici, kde to ma behat
> pod Win2000 to dava popsanou chybu. Nesetkali jste se s necim obdobnym
> ?
S datumy je obecne svizel. Pri psani CGI aplikaci se mi osvedcilo
prevadet datum na string pomoci FormatDateTime no a obracene
pouzivam na MSSQL7 convert s tretim parametrem 104.
Snad Ti to nejak pomuze.
David
IBExpress, Pristup k IB
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 27.10.2000 13:05:38
> -----P�vodn� zpr�va-----
> Od: BONNEL TECHNOLOGIE, v�voj [mailto:bonnel(zv)telecom(tec)cz]
> Odesl�no: 27. ��jna 2000 11:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: IBExpress, Pristup k IB
>
>
> Dekuji vsem za nazory, ale lisi se zasadne v jednom bode -
> potrebuje IBX
> opravdu TDataSet? Opravdu TDataSet neni v Delphi 5 Standard?
> Ma nekdo zkusenost s IBObjects a D5Std?
>
> Jeste jednou diky
>
> Mira
V D5Std. nejsou vubec zadna data :-(
Clovek aby si vsechno delal sam.Reporty - Doplnovani textu do sablon dokumentu - j
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 27.10.2000 13:07:42
My jsme se reozhodli pro PHP.
Postup je nasledujici:
Vytvori se Sablona v jako HTML s PHP skriptem,
potom program v DELPHI doplni promenne (napriklad vybrany radek),
pak se spusti PHP-> Vygeneruje se cisty HTML (nebo jiny) skript.
Tento pak pomoci nejakeho layoutu (mame vlastni) vytiskne.
Vlastni LayOut mame z duvodu abychom mohli tisknout na
termotiskarnach bez driveru pod windows (I takove se delaji).
Ted akorat resime problem s propojenim Delphi <-> PHP
pres Named Pipes.
Slavek
Klavesnice
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.10.2000 13:09:55
Ahoj,
ohledne vypinani, spis by me zajimala jina vec. Pokud klavesnici vypnes jak
ji pak zase chces zapnout ? Nejakou tajnou posloupnosti klaves ?
Petr Vones, amatersky programator
Jak na to...?
[*] NetAdmin ZSU <admin(zv)zsuprkova.pvtnet(tec)cz> - 27.10.2000 13:10:32
Hoj!
Potreboval bych vyresit nasleduji problem: Mam na siti takovej
programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
"rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to
po nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace
spustena a v pripade, ze nikoliv, tak ji znova nahodil...?
Budu vdecny i za jina mozna reseni...
Diky, R.V.
-----
Radovan Vojtek - Network Administrator
Zakladni skola
Uprkova ul. 1
500 09, Hradec Kralove
CZECH REPUBLIC
tel.: +420(49)5270294
mobil: +420(604)849231
#ICQ: 63924162
Y! ID: Ghort001
-----
Delphi & preprocesor
[*] azeleny(zv)csas(tec)cz - 27.10.2000 13:14:37
DDV,
uz delsi dobu se potykam s problemem, ze Delphi nemaji preprocesor a me by
se _MOC_ hodilo, moci pouzivat makra a jine vypecenosti, ktere prorcesor C
dela. Chtel bych se proto zeptat, nevite o nejakem zpusobu, jak primet
Delphi, aby pred spustenim syntax check a run z IDE pred vlastni akci
zavolali nejaky program (treba preprocesor free compileru Borlandu)?
Ono schovat si zdrojak, prohnat jej preprocesorem a pak komplilovat je dost
zdlouhave...
Prechod na CBuilder pro mne neni zatim dobry napad, natolik C zase neumim
:-(
Diky za napady.
a.
P.S.: uzitecna jsou i defaultni makra jako __LINE__ ... na toz pak, kdybych
si mohl delat vlastni.Printer
[*] Surfman <surfman(zv)volny(tec)cz> - 27.10.2000 13:27:51
Ahoj,
potrebuju vyvolat dialog vlastnosti tiskarny pomoci API
a nejak se mi to nedari. Podle dokumentace by to melo
byt
PrinterProperties(Handle, Printer.Handle);
Bohuzel jsem to zrejme nejak spatne pochopil, ale
nejak to nemuzu prokopnout.
Pokud me nakopnete spravnym smerem, budu vam
zauzlovan.
Diky
Pavel
format cisla v DBGrid
[*] Ing. Karel Partl <partl(zv)zf.jcu(tec)cz> - 27.10.2000 13:30:47
Ahoj.
Mohl by mi nekdo poradit, jak mam udelat, aby kdyz zadam do policka typu
ftFloat v DBGridu cislo, tak aby se mi po opusteni tohoto policka to cislo
naformatovalo (treba tisice oddelit carkou a zaokrouhlit na 2 desetinna
mista)? V ktery udalosti to mam zaridit?
Predem diky za odpoved.
K. Partl
---------------------------------------
Ing. Karel P�rtl
e-mail: partl(zv)zf.jcu(tec)cz
k.partl(zv)post(tec)cz
ICQ: 24574012
--------------------------------------
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
Klavesnice
[*] L. ZITA <konference(zv)sales(tec)cz> - 27.10.2000 13:35:44
Behalf Of tomsir1.edu(zv)mail.cez(tec)cz
> posilani klaves, to jsem neresil .. VB ma sendkeys .. delphi to
> nema ?? Mam
Ahoj.
Zkus instalacni CD DELPHI \Info\Extras\SendKeys\Sndkey32.pas
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Jak na to...?
[*] azeleny(zv)csas(tec)cz - 27.10.2000 13:38:58
DDV,
podival bych se na system internals stranku, tam bude nejspis poslano, jak
se zjistuje seznam procesu na vzdalenem PC a pak uz je vyhrano.
Lepsi reseni je prejit na WinNT (z dotazu predpokladam, ze se jedna o Wir9x)
a _ROZUME_ nastavit prava... (pak si muzete napsat service...).
Nebo napsat programek do win a zadat ho do registry pod RunAsService (ci jak
se to jmenuje), ale na to taky za chvili prijdou...
a.
> -----Original Message-----
> From: NetAdmin ZSU [mailto:admin(zv)zsuprkova.pvtnet(tec)cz]
> Sent: Friday, October 27, 2000 1:11 PM
> To: Delphi konference
> Subject: Jak na to...?
>
>
> Hoj!
>
> Potreboval bych vyresit nasleduji problem: Mam na siti takovej
> programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
> "rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to
> po nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
> nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace
> spustena a v pripade, ze nikoliv, tak ji znova nahodil...?
>
> Budu vdecny i za jina mozna reseni...
>
> Diky, R.V.
>
> -----
> Radovan Vojtek - Network Administrator
> Zakladni skola
> Uprkova ul. 1
> 500 09, Hradec Kralove
> CZECH REPUBLIC
> tel.: +420(49)5270294
> mobil: +420(604)849231
> #ICQ: 63924162
> Y! ID: Ghort001
> -----
> Jak na to...?
[*] tomsir1.edu(zv)mail.cez(tec)cz - 27.10.2000 13:25:48
mozna bych ti mohl pomoct, napis mi na mail konkretne
jsi info a ja se nad tim
zamyslim
Radegast
"NetAdmin ZSU" <admin(zv)zsuprkova.pvtnet(tec)cz> on 27.10.2000
12:10:32
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu
: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
Kopie:
(Na v�dom�: Tomsik Radek/4130P/EDU/CEZ)
P�edm�t:
Jak na to...?
Hoj!
Potreboval bych vyresit nasleduji problem: Mam na siti takovej
programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
"rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to
po nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace
spustena a v pripade, ze nikoliv, tak ji znova nahodil...?
Budu vdecny i za jina mozna reseni...
Diky, R.V.
-----
Radovan Vojtek - Network Administrator
Zakladni skola
Uprkova ul. 1
500 09, Hradec Kralove
CZECH REPUBLIC
tel.: +420(49)5270294
mobil: +420(604)849231
#ICQ: 63924162
Y! ID: Ghort001
-----
Klavesnice
[*] tomsir1.edu(zv)mail.cez(tec)cz - 27.10.2000 13:26:59
no, ono ji vlastne nevypnes, jen tipnes messages, vid
;o) takze treba tak jak
rikas :O)
Radegast
"Petr Vones" <pvones(zv)mbox.vol(tec)cz> on 27.10.2000 12:
09:55
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu:
delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Tomsik Rade
k/4130P/EDU/CEZ)
P�edm�t: Re: Klavesnice
Ahoj,
ohledne vypinani, spis by me zajimala jina vec. Pokud klavesnici vypnes jak
ji pak zase chces zapnout ? Nejakou tajnou posloupnosti klaves ?
Petr Vones, amatersky programator
Webova aplikace - co pouzit?
[*] Ota Maly <maly(zv)space(tec)cz> - 27.10.2000 14:32:46
Ahoj,
Potrebuju propojit tyhle 3 veci:
-VELKA databaze nekde na firemnim serveru v Americe
-moje aplikace
-standardni browser IE4 nebo vyssi
Moje aplikace pobezi na WinNT (W2000) serveru nekde v Cechach a ja nevim,
jak mam komunikovat s tim koncovym browserem. Server je firemni, takze muzu
spoustet cokoli. Komunikaci s s tou velkou DB resim sam.
Delam to poprve, proto se ptam, co mam pouzit?
CGI, WinCGI, ASP, ISAPI/NSAPI, PHP nebo neco jineho?
Predpokladam (velmi hrube), ze klientu bude v jednu chvili maximalne nekolik
desitek.
Casove to nebude (asi) nijak kriticke, komunikace do Ameriky bude chvili
trvat.
Zatim me napadlo to psat jako CGI (kvuli ladeni), pak to predelat na ISAPI
(kvuli rychlosti). Upozornuju, ze tohle jsem vydedukoval z dilcich poznatku
z konference, takze jsem to mozna pochopil uplne spatne..:-)
Jestli potrebujete jeste neco vedet, ptejte se..
A cele by to melo jit napsat v Delphi 5 Professional.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
Jak na to...?
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 27.10.2000 14:36:37
P�ni Vy tam m�te �tudentov, to za na�ich �ias... :-)))))))
Nepomohlo by skryt tu app. z TaskManagera (Ctrl+Alt+Del). ?
Inak by pomohlo urobit program, ktory by v intervaloch povedzme raz za 10
sekund pouzil funkciu FindWindow a ak vrati Handle <> 0 tak app. existuje
inak ju spusti (a posle niekomu message ze ju zrusil. A mame ho, chuligana,
.... ;-)) )
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
| Hoj!
|
| Potreboval bych vyresit nasleduji problem: Mam na siti takovej
| programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
| "rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to
| po nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
| nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace
| spustena a v pripade, ze nikoliv, tak ji znova nahodil...?
|
| Budu vdecny i za jina mozna reseni...
Delphi & preprocesor
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 27.10.2000 14:50:48
Ahoj,
azeleny(zv)csas(tec)cz wrote:
> uz delsi dobu se potykam s problemem, ze Delphi nemaji preprocesor a me by
> se _MOC_ hodilo, moci pouzivat makra a jine vypecenosti, ktere prorcesor C
> dela. Chtel bych se proto zeptat, nevite o nejakem zpusobu, jak primet
> Delphi, aby pred spustenim syntax check a run z IDE pred vlastni akci
> zavolali nejaky program (treba preprocesor free compileru Borlandu)?
Asi to moc nepomuze, ale pro CodeRush (rozsireni Delphi - editor a mnoho
dalsiho) ted v poslednich dnech nekdo dodelal plugin, ktery zase spousti
neco hned po kompilaci. Na stejnem principu by slo resit i tohle, ale
musel bys mit ten CodeRush ...
http://www.eagle-software.com
> Ono schovat si zdrojak, prohnat jej preprocesorem a pak komplilovat je dost
> zdlouhave...
>
> Prechod na CBuilder pro mne neni zatim dobry napad, natolik C zase neumim
> :-(
>
> Diky za napady.
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
MDI aplikace
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 27.10.2000 14:50:18
Vazeni pratele,
mam opet jeden dotaz.
Delam MDI aplikaci, kde mam nekolik druhu childformu. Jeden je jako obsahovy
rejstrik (TreeView komponenta), muzu mit vice obsahu, a z neho otviram dalsi
druh childformu s rtf textem.
Resim tento problem: mam v childoknech otevrene rtf texty, jsou otvirane z
obsahoveho childokna. Chci znova otevrit text, ktery je uz otevren (poznam
podle caption okna) a je schovany pod jinymi childokny. Nechci ho znova
otevrit do noveho childokna, ale potrebuji "aktivovat" nejak dostat
"dopredu" jiz otevrene okno pred vsechna ostatni childokna. Pokud je takove
okno minimalizovane tak ho aktivovat do wsNormal.
Pokud pouzivam k prepniti do okna seznam otevrenych childokem v menuitem
"okna" tak to funguje bez problemu, ale aktivace z rejstriku ne.
Zde je kod udalosti kliknuti mysi v obsahu na vybranem textu:
procedure TTreeChildForm.TreeNT1Click(Sender: TObject);
begin
if not Obsah_Node.HasChildren then
begin
if not MainF.Is_Child(Obsah_node.Text) then //moje funkce, ktera vraci
zda takove childokno existuje, pokud ano, vrati do globalni
//promenne I_AF poradove cislo childoken
begin
ListBox1.ItemIndex := Obsah_Node.AbsoluteIndex; //ListBox je seznam
korespondujicich cest k rtf textum
MainF.CreateVzorChild(Obsah_node.Text,ListBox1.Items[Obsah_Node.AbsoluteInde
x]);
end
else
begin
if MainF.MDIChildren[I_AF].WindowState=wsMinimized then
MainF.MDIChildren[I_AF].WindowState := wsNormal;
MainF.MDIChildren[I_AF].Show;
end;
end;
end;
Prosim Vas existuje nejaka API funkce nebo metoda, ktera childokno zaktivuje
a postavi dopredu pred vsechna okna. Da se nekde v Delphi podivat do zdroje
jak se to dela ze seznamu otevrenych oken ve windowmenu.
Predem diky
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
opusteni policka v DBGridu
[*] Ing. Karel Partl <partl(zv)zf.jcu(tec)cz> - 27.10.2000 14:53:52
Prosim vas, jaka udalost se generuje pri ukonceni editace policka v DBGrid?
Kdyz prejdu na jiny sloupec, tak to lze odchytit udalosti OnColExit, ale
pokud prejdu na dalsi radek, nebo kliknu mysi uplne nekam jinam? Potrebuju
to, abych mohl jeste pred opustenim policka overit data do nej zadana.
Predem dekuji za odpovedi.
K.P.
---------------------------------------
Ing. Karel P�rtl
e-mail: partl(zv)zf.jcu(tec)cz
k.partl(zv)post(tec)cz
ICQ: 24574012
--------------------------------------
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
Stvorec 1*1 cm na obrazovke
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 27.10.2000 15:00:34
Ahoj,(D5)
Porad� mi niekto ako nakreslit stvorec 1*1 cm na obrazovke? A co urobit v
pripade ze sa zmeni rozlisenie? Riesil to niekto?
Dakujem Marian
IBExpress, Pristup k IB
[*] Delphi <delphi(zv)aitix(tec)cz> - 27.10.2000 15:17:21
>V D5Std. nejsou vubec zadna data :-(
>Clovek aby si vsechno delal sam.
Jak uz jsem psal. Podle mne (a hlavne dokumentu na www.ibobjects.com )
je pristup pres nativni komponenty v D5STD mozny.
Pouziva se TIB_Dataset, ktery sice neni kompatibilni s borlandim TDataset,
ale mohou na nej byt navazany komponenty jako IB_TEXT, IB_EDIT, IB_GRID.
Dokud to ale nekdo se Standardem nevyzkousi, tak se tady asi bavime
zbytecne.
Leos Urban
Leos.Urban(zv)aitix(tec)cz
Jak na to...?
[*] Surfman <surfman(zv)volny(tec)cz> - 27.10.2000 15:20:24
Pred casem tu probehla diskuse na tema skryti beziciho programu
pod woknama. Mam ten dojem, ze se tam i vyresilo, jak skryt
aplikaci i v tasklistu. Pokud by ti to stacilo, tak se podivej do
archivu konference.
Pavel
----- Original Message -----
From: "NetAdmin ZSU" <admin(zv)zsuprkova.pvtnet(tec)cz>
To: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 27, 2000 1:10 PM
Subject: Jak na to...?> Hoj!
>
> Potreboval bych vyresit nasleduji problem: Mam na siti takovej
> programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
> "rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to
> po nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
> nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace
> spustena a v pripade, ze nikoliv, tak ji znova nahodil...?
>
> Budu vdecny i za jina mozna reseni...
>
> Diky, R.V.
>
> -----
> Radovan Vojtek - Network Administrator
> Zakladni skola
> Uprkova ul. 1
> 500 09, Hradec Kralove
> CZECH REPUBLIC
> tel.: +420(49)5270294
> mobil: +420(604)849231
> #ICQ: 63924162
> Y! ID: Ghort001
> -----
>
>
> format cisla v DBGrid
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 27.10.2000 15:24:42
Ahoj,
nejjednodu�� je nastavit masku v datasetu (TQuery, TADOQuery,...) nap�.
pomoc� field editoru. Vlastnost DisplayFormat a/nebo EditMask. Popis form�tu
je v helpu (je pom�rn� velmi dob�e pou�iteln�).
Pavel Lstiburek
-----P�vodn� zpr�va-----
Od: Ing. Karel Partl [mailto:partl(zv)zf.jcu(tec)cz]
Odesl�no: 27. ��jna 2000 13:31
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: format cisla v DBGrid
Ahoj.
Mohl by mi nekdo poradit, jak mam udelat, aby kdyz zadam do policka typu
ftFloat v DBGridu cislo, tak aby se mi po opusteni tohoto policka to cislo
naformatovalo (treba tisice oddelit carkou a zaokrouhlit na 2 desetinna
mista)? V ktery udalosti to mam zaridit?
Predem diky za odpoved.
K. Partl
---------------------------------------
Ing. Karel P�rtl
e-mail: partl(zv)zf.jcu(tec)cz
k.partl(zv)post(tec)cz
ICQ: 24574012
--------------------------------------
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
MDI aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.10.2000 16:39:07
From: "Igor Vodi�ka" <vodicka(zv)sagit(tec)cz>
> Delam MDI aplikaci, kde mam nekolik druhu childformu. Jeden je jako obsahovy
>
> obsahoveho childokna. Chci znova otevrit text, ktery je uz otevren (poznam
> podle caption okna) a je schovany pod jinymi childokny. Nechci ho znova
> otevrit do noveho childokna, ale potrebuji "aktivovat" nejak dostat
> "dopredu" jiz otevrene okno pred vsechna ostatni childokna. Pokud je takove
Ahoj,
pouzij metodu TForm.BringToFront
Petr Vones, amatersky programator
Stvorec 1*1 cm na obrazovke
[*] Surfman <surfman(zv)volny(tec)cz> - 27.10.2000 16:52:19
Ahoj,
nevim sice, na co potrebujes na obrazovce ctverec presnych rozmeru,
ale to je ostatne jedno.
Pouzij funkci
Screen.PixelPerInch
Tim dostanes pocet pixelu na 1 palec = 2.54 cm a podle toho vzpocti rozmery
toho ctverce.
Pavel
----- Original Message -----
From: "Mari�n Goryl" <goryl(zv)insdata.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 27, 2000 3:00 PM
Subject: Stvorec 1*1 cm na obrazovke
> Ahoj,
>
> (D5)
>
> Porad� mi niekto ako nakreslit stvorec 1*1 cm na obrazovke? A co urobit v
> pripade ze sa zmeni rozlisenie? Riesil to niekto?
>
> Dakujem Marian
>
>
>format cisla v DBGrid
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 27.10.2000 16:59:21
Ahoj,
nastav property TFloatField.DisplayFormat:="#,##0.00";
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Ing. Karel Partl <partl(zv)zf.jcu(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 27, 2000 1:30 PM
Subject: format cisla v DBGrid
Ahoj.
Mohl by mi nekdo poradit, jak mam udelat, aby kdyz zadam do policka typu
ftFloat v DBGridu cislo, tak aby se mi po opusteni tohoto policka to cislo
naformatovalo (treba tisice oddelit carkou a zaokrouhlit na 2 desetinna
mista)? V ktery udalosti to mam zaridit?
Predem diky za odpoved.
K. Partl
---------------------------------------
Ing. Karel P�rtl
e-mail: partl(zv)zf.jcu(tec)cz
k.partl(zv)post(tec)cz
ICQ: 24574012
--------------------------------------
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
Stvorec 1*1 cm na obrazovke
[*] psojka(zv)els.ln.skoda(tec)cz - 27.10.2000 16:37:43
> Porad� mi niekto ako nakreslit stvorec 1*1
> cm na obrazovke? A co urobit v pripade ze
> sa zmeni rozlisenie? Riesil to niekto?
Zkus pouzit parametr TScreen.PixelsPerInch.
Z toho uz se da prepocitat kolik je 1cm
v pixlech. (1" = 2.54 cm)
Peter
listbox - drag&drop
[*] JIM Design <jim.design(zv)iol(tec)cz> - 27.10.2000 17:49:18
Ahoj,
vycerpavajici odpoved od P.Vonese z 31.10.99 :
--
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ImgList, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
ListBox2: TListBox;
procedure FormCreate(Sender: TObject);
procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
private
Bitmap: TBitmap;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := Low(LongMonthNames) to High(LongMonthNames) do
ListBox1.Items.Add(LongMonthNames[I]);
for I := 0 to Languages.Count - 1 do
ListBox2.Items.Add(Languages.Name[I]);
end;
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TListBox) and (Source <> Sender);
end;
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
StartItem, I: Integer;
SourceListBox, TargetListBox: TListBox;
begin
if Source is TListBox then
begin
SourceListBox := TListBox(Source);
TargetListBox := TListBox(Sender);
StartItem := TargetListBox.ItemAtPos(Point(X, Y), False);
SourceListBox.Items.BeginUpdate;
TargetListBox.Items.BeginUpdate;
try
I := 0;
while I < SourceListBox.Items.Count do
if SourceListBox.Selected[I] then
begin
TargetListBox.Items.Insert(StartItem, SourceListBox.Items[I]);
SourceListBox.Items.Delete(I);
Inc(StartItem);
end else Inc(I);
finally
SourceListBox.Items.EndUpdate;
TargetListBox.Items.EndUpdate;
end;
end;
end;
end.
object Form1: TForm1
Left = 192
Top = 107
Width = 464
Height = 352
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object ListBox1: TListBox
Left = 16
Top = 16
Width = 201
Height = 289
DragMode = dmAutomatic
ItemHeight = 13
MultiSelect = True
TabOrder = 0
OnDragDrop = ListBox1DragDrop
OnDragOver = ListBox1DragOver
end
object ListBox2: TListBox
Left = 232
Top = 16
Width = 201
Height = 289
DragMode = dmAutomatic
ItemHeight = 13
MultiSelect = True
TabOrder = 1
OnDragDrop = ListBox1DragDrop
OnDragOver = ListBox1DragOver
end
end
M.Jirman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Vit
Tichy
Sent: Friday, October 27, 2000 8:23 AM
To: Petr Vones
Subject: listbox - drag&drop
Joha,
Muzete mi poradit kam se podivat, abych pochopil, jak pretahnout mysi
polozku
z jednoho listboxu do druheho ? Normalne to umim.
--
Best regards,
vt mailto:vt.echo(zv)worldonline(tec)cz
Eventy v run-timu
[*] Petr Va���ek�����(����? - 27.10.2000 19:21:44
Zdravim,
narazil jsem na takovej problem a at zkousim co zkousim se mi ho nedari v
yresit. Jestli s tim nekdo mate zkusenosti tak mi prosim odpovezte. Potreb
uju vytvorit v runtimu array obrazku, rekneme treba 10, takze to delam j
ako
var obrazek:array[0..10] of TImage. Ale ted potrebuju vsem temto obrazkum
priradit eventy OnClick a OnMouseMove tak, aby vykonavaly sve funkce. Jak
mam udelat, aby kdyz se treba klikne na kterykoliv z techto obrazku se spu
stila procedure Klik(Sender:TObject) a neco podobneho u OnMouseMove?
Diky moc
Petr Vasicek
P.S.: Byl bych strasne vdecny za nazorny priklad.Stvorec 1*1 cm na obrazovke
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 27.10.2000 19:50:37
> Ahoj,
>
> (D5)
>
> Porad� mi niekto ako nakreslit stvorec 1*1 cm na obrazovke? A co urobit v
> pripade ze sa zmeni rozlisenie? Riesil to niekto?
>
> Dakujem Marian
Podivej se na API funci SetMapMode. Ale nepocitej s presnosti na
obrazovce, pocitac nevi, jak ma velky monitor.
Radim
Stvorec 1*1 cm na obrazovke
[*] Erik Salaj <winsoft(zv)napri.sk> - 28.10.2000 00:04:47
> > Porad� mi niekto ako nakreslit stvorec 1*1
> > cm na obrazovke? A co urobit v pripade ze
> > sa zmeni rozlisenie? Riesil to niekto?
>
> Zkus pouzit parametr TScreen.PixelsPerInch.
> Z toho uz se da prepocitat kolik je 1cm
> v pixlech. (1" = 2.54 cm)
Obavam sa, ze to nepomoze, pretoze potrebujes rozmery
obrazovky (dokonca len jej vysvietenej casti) a to inak
ako odmeranim asi nezistis.
Erik Salaj, WINSOFT
acmFormatEnum
[*] Petr Jel�nek <pjmodos(zv)yo(tec)cz> - 28.10.2000 02:46:11
Hmm neni to tim, myslim ze je to nekde v tom formattag - zkousel jsem jinou
acm funkci kde byl jen ten nil a formattag a tu chybu to hlasilo taky. A tim
nil by to rozhodne byt nemelo - u jinych fci to funguje
Ale uz jsem zjistil cim to je -
formattag musi byt ne TAcmFormatDetails, ale PAcmFormatDetails
a te funkci se predava ne formattag, ale formattag^.
Zdravi
Petr Jelinek - amatersky programator
Homepage: http://pjmodos.fbi(tec)cz, http://pjmodos.yo(tec)cz
Komponenty pro Delphi: http://lunasoft.hyperlink(tec)cz/index5.htm
Vyhledavani: http://www.barevnylist(tec)cz/visitor.php?ref=pjmodos
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 27, 2000 12:49 AM
Subject: Re: acmFormatEnum
> From: "Petr Jel�nek" <pjmodos(zv)yo(tec)cz>
> > Proc tohle nefunguje? - stale to hazi chybu11 "Systemove funkci byl
predan
> > function callbackfn(hadid:HACMDRIVERID; pafd: PAcmFormatDetailsA;
> > dwInstance: DWORD; fdwSupport: DWORD): BOOL; stdcall;
> > begin
> > form1.ComboBox1.items.add(pafd.szFormat);
> > callbackfn:=true;
>
> Ahoj,
>
> patrne to nebude ono, ale zkus misto:
>
> callbackfn:=true;
>
> dat:
>
> DWORD(Result) := 1;
>
> Windows9x totiz v nekterych pripadech vyzaduji hodnotu 1 jako true a
> typ BOOL reprezentuje true jako -1. Uz jsem s tim mel kdysi problemy.
>
> Petr Vones, amatersky programator
>
SQL vs. IDENTITY pro ACCESS
[*] Erik Salaj <winsoft(zv)napri.sk> - 28.10.2000 11:45:53
> Nicmene jaka je syntaxe SQL prikazu?
ALTER TABLE MyTable ADD COLUMN MyColumn AUTOINCREMENT
Erik Salaj, WINSOFT
info(zv)winsoft.sk
SQL vs. IDENTITY pro ACCESS
[*] Erik Salaj <winsoft(zv)napri.sk> - 28.10.2000 11:51:11
> Nicmene ja resim problem neindexovane Access tabulky s dosti chaotickym
> usporadanim dat s nekdy temer duplicitnimi radky (treba se lisi jen v
Blob)
> a nez kupovat kvuli jednomu souboru Office tak jej potrebuji identifikovat
> unikatni hodnotou a chodit nas nej pres ODBC a SQL (updaty a inserty a
ODBC nie je idealne pre Access databazu, ale da sa pouzit.
> delety) a nechci pouzivat Table.Delete nebo Table.Update. Proste chci si
to
> hlidat pres SQL prikazy. Takze zatim to musim resit tak, ze kdyz mi onen
> soubor prijde, tak pri prvnim otevreni pridam ID sloupec typu INT a pak
> postupne prechazim vsechny zaznamy a updejtuji onen idunikatni hodnotou
> rucne. No a na tohle potrebuji vedet, jak na to napasovat ten
> autoincdement. K tomu potrbuji vedet syntaxi onoho prikazu, ktery mi
nebere
> to co mu napisi a co funguje!!! v MS SQL7 i v pitomem Paradoxu a
nepotrbuji
> vedet co by kdyby (byly v riti ryby)...
Vecsina programov nerozumie tomu, co im napises, preto im to musis napisat
tak, aby tomu rozumeli ;-)
Erik Salaj, WINSOFT
info(zv)winsoft.sk
Ukonceni programu
[*] Ji�� H�sek - 28.10.2000 12:58:00
Zdravim,
mam jeden problem. Kdyz chci ukoncit Windows (98) a bezi nejaky muj program
(mam Delphi 5) tak se proste neukonci, stejne jako windowsy. Pokud dam
restartovat v rezimu MS-Dos tak mi to napise, neco v tom smyslu, ze nektery
z programu se neukoncil, at ho ukoncim a zkusim to znovu. To stava jen u
nekterych programu a ja nemuzu prijit na to, cim to je. Mate s tim nekdo
zkusenosti? Mohli byste mi trosim poradit?
Jiri Hysek
Jak zab�t Internet Explorer?
[*] Maxter <megamax(zv)seznam(tec)cz> - 28.10.2000 13:52:54
Ahoj,
pot�ebuji poradit: Upravuji software pro internetovou kav�rnu a pot�ebuji p ovypr�en� limitu zav��t v�echny okna s internetem. To by bylo jednoduch�, kdyby fungovalo
PostMessage(Handel_okna,WM_QUIT,0,0);
jen�e ono to nefunguje, i kdy� m�m Handel na 100% a j� nev�m pro�. Porad� n�kdo?
D�ky.
Pavel Nov�k
megamax(zv)seznam(tec)cz
Klavesnice
[*] tomsir1.edu(zv)mail.cez(tec)cz - 28.10.2000 13:30:50
Popisovane jsem vyresil a zajemcum muzu zaslat zdrojaky cca 7kB
Radegast
tomsir1.edu(zv)mail.cez(tec)cz on 27.10.2000 11:28:25
Bohuzel tady ted nemam k dispozici zdrojaky, ktere by demonstrovali to co
dale popisu.
Ja bych to udelal nasledujicim zpusobem s pomoci tzv. Windows Hooks, tj.
procedur, ktere lze "povesit" do retezce zpracovani zprav Windows (zprav od
mysi, klavesnice, aplikaci...). Zkuste v SDK hledat "Hooks", zajimat vasi
asi taky bude procedura "KeyboardProc", ktera prave slouzi k zachytavani
zprav klavesnice s tim, ze umoznuje "zpracovani" zpravy o stisknuti klavesy
tak, ze se o ni jiz aplikace nedozvi. Toto lze provadet jak na urovni
aplikace, tak i celeho systemu, podrobnejsi popis je v SDK.
Pro vymenu klavesy lze pouzit dva zpusoby - bud pouzit hook na GetMsgProc,
ktery umznuje zmenu zpravy pred jejim odeslanim aplikaci, nebo ve vyse
uvedenm hooku generovat s pomoci SendMessage zpravu o simulovanem stisknuti
jine klavesy.Stvorec 1*1 cm na obrazovke
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 28.10.2000 13:50:21
Jestli mohu radit, opust predstavu presneho rozmeru na obrazovce.
Mas sice moznost si zjistit DPI vystupniho zarizeni, ale je to pouze
orientacni hodnota (stejne rozliseni muze byt na 14" monitoru a
stejne tak to muze byt promitano projektorem na stenu
3x4 metru).
Postupoval bych takto (rekneme ze pozadovane rozmery nemusi byt tak zcela
presne a proto zanedbame vady zobrazeni(konicnost, soudeckovitots,atd..).
1. Samostatna kalibrace verikaly a horizontaly
2. touto konstantou bych pak nasobil vsechny zobrazovane objekty
3. Kalibrovat alespon 10 cm kalibr (lepe cca 75% obrazovky ve stredu)
Slavek
>
> Ahoj,
>
>
> (D5)
>
> Poradi mi niekto ako nakreslit stvorec 1*1 cm na obrazovke? A co urobit v
> pripade ze sa zmeni rozlisenie? Riesil to niekto?
>
> Dakujem Marian
Jak zab�t Internet Explorer?
[*] tomsir1.edu(zv)mail.cez(tec)cz - 29.10.2000 07:41:01
co takhle pouzit WM_CLOSE ???
Radegast
Maxter <megamax(zv)seznam(tec)cz> on 28.10.2000 12:52:54
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Tomsik Radek/4130P/EDU/CEZ)
P�edm�t: Jak zab�t Internet Explorer?
Ahoj,
pot�ebuji poradit: Upravuji software pro internetovou kav�rnu a pot�ebuji p
ovypr�en� limitu zav��t v�echny okna s internetem. To by bylo jednoduch�, kdyby
fungovalo
PostMessage(Handel_okna,WM_QUIT,0,0);
jen�e ono to nefunguje, i kdy� m�m Handel na 100% a j� nev�m pro�. Porad� n�kdo?
D�ky.
Pavel Nov�k
megamax(zv)seznam(tec)cz
Jak zab�t Internet Explorer?
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 29.10.2000 08:23:18
Mozna ze by vas problem vyresilo odlogovat uzivatele?
----- Original Message -----
From: "Maxter" <megamax(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, October 28, 2000 12:52 PM
Subject: Jak zab�t Internet Explorer?> Ahoj,
> pot�ebuji poradit: Upravuji software pro internetovou kav�rnu a pot�ebuji
p ovypr�en� limitu zav��t v�echny okna s internetem. To by bylo jednoduch�,
kdyby fungovalo
> PostMessage(Handel_okna,WM_QUIT,0,0);
> jen�e ono to nefunguje, i kdy� m�m Handel na 100% a j� nev�m pro�. Porad�
n�kdo?
> D�ky.
> Pavel Nov�k
> megamax(zv)seznam(tec)cz
>
>WINSOCK
[*] tomsir1.edu(zv)mail.cez(tec)cz - 29.10.2000 10:40:52
Hledam nejaky popis low-level programovani pomoci \Source\Rtl\Win\winsock.pas
Diky Radegast
SQL pro Zkus Update nebo Append
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 29.10.2000 13:37:14
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.
Hezky den.
Potreboval bych poradit s jednim sql.
Mam tabulku s klicovou polozkou ID. Potrebuju sql, ktery zkusi v tabulce
najit rekord s prislusnym ID a updatovat ho. Paklize ho nenajde, tak by mel
tento rekord vytvorit.
Neco jako:
zkus
update ... set ID = :xx... where ID = xx..
pokud ne pak
Insert into ... (ID,...) values (:xx,...)
pouzivam params.
Existuje ne takoveho? Pouzivam IBObjects, konkretne TIB_DSQL.
Michal Tiller
RF Support Coordinator, OSKAR, RF - Engineering
+420 (0608) 011 327, +420 (02) 71 17 13 88
Michal.Tiller(zv)oskarmobil.Cz <mailto:Michal.Tiller(zv)oskarmobil.Cz>
IBTalk dialect
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.10.2000 14:00:27
Ahoj,
predpokladam, ze to je dotaz na mne. Od ted je jiz nova verze,
kam jsem to pridal (http://atrey.karlin.mff.cuni(tec)cz/~rk/IBTalk.shtml).
Slavek
> Ako nastavim pripojovaci dialec pre IBTalk (1 mi nevyhojuje) ?
>
> Dakujem.
>
> Roland.
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Jak detekovat OS
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 29.10.2000 15:59:42
Jak zjistim, ktery OS je spusten. Konkretne potrebuji rozlisit Win 9x a Win
NT (pripadne Win 2000). Pod Win NT totiz nefunguje sdileni slozek stejne
jako u Win 9x a kdyz tam mam nekde odkaz na tuto proceduru, tak program od
NT a 2000 nejde ani spustit. Takze bych tam pridal podminku, aby se tato
procedura provadela pouze pod Win 9x.
MIKMIK company
Petr Voborn�k - P�tr
vobornik(zv)ssakhk(tec)cz
ICQ: #23132120
www.ssakhk(tec)cz/home/vobornik/Detaily v TreeView
[*] Milan ��ek - 29.10.2000 19:00:42
ahoj,
n�kdo u� to tu nakous, tak to dorazim :-)
Jak v TTreeView docili techto vlastnosti:
1) Aby byly vsechny items i subitems rozbaleny (a nesly zbalit), bez
zobrazeni takoveho toho ctverecku vlevo (+/-).
2) Aby se po najeti na polozku mysi tato item treba prebarvila nebo podtrhla
a po odjeti mysi zase odbarvila.
3) Jak zmenit kurzor mysi pri najeti na polozku (a ne na cely TreeView)?
4) Aby se nezobrazoval focus (modry obdelnicek i ocarkovany) na vybran�ch
polo�k�ch, aby byli t�eba tu�n�.
5) Jak udelat u polozky animovanou ikonku?
S pozdravem Milan Cizek, amaetrsky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Spousteci ikona v IE
[*] Milan ��ek - 29.10.2000 19:04:38
ahoj,
potreboval bych umistit ikonu meho programu do Internet Exploreru. Treba
jako seznam listicka, frontpage2k atp. Pripadne i polozku nahoru do menu IE.
Asi to bude nekde v registrech, ale zaboha to nemuzu najit...
nevite nekdo? Diky
S pozdravem Milan Cizek, amaetrsky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Neurcity zaznam v registru
[*] Milan ��ek - 29.10.2000 19:08:50
ahoj,
potreboval bych nejakym zpusobem odebrat vsechny vetve v
HKCU/Software/MujRetezec...
Ten mujRetezec je tam treba 5x (MujRetezec 1.01, MujRetezec 3.0...) proste
jak byly verze. Takze bych potreboval asi nejakou funkci, ktera by
prohledavala klice !obsahujici! xxx, a tu pak vymazat...
jak na to? Dekuju za napady...
S pozdravem Milan Cizek, amaetrsky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Menu - napoveda vpravo
[*] Milan ��ek - 29.10.2000 19:51:45
ahoj,
nevite nekdo, jak pres standartni Menu komponentu docilit toho, abych mel
polozku Napoveda uplne vpravo???
Nasel jsem v archivu konference:
procedure TForm1.FormCreate(Sender: TObject);
var
MI: TMenuItemInfo;
Buffer: array[0..79] of Char;
begin
ZeroMemory((zv)MI, Sizeof(MI));
MI.cbSize := 44; // Win95
MI.fMask := MIIM_TYPE;
MI.dwTypeData := Buffer;
MI.cch := SizeOf(Buffer);
if GetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, MI) then
begin
MI.fType := MI.fType or MFT_RIGHTJUSTIFY;
if SetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, MI) then
DrawMenuBar(MainMenu1.WindowHandle);
end;
end;
ale vubec tomu nerozumim. Take tam byla zminka o Groupindex - ten mi ale
nefunguje. Da se to udelat jednoduseji?
S pozdravem Milan Cizek, amaetrsky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Ukonceni programu
[*] Maxter <megamax(zv)seznam(tec)cz> - 29.10.2000 20:12:09
Ahoj,
doporu�uji pou��t toto:
var a : cardinal;
begin
ExitWindowsEx(EWX_Force,a); // potla�� hl�ky syst�mu
ExitWindowsEx(EWX_SHUTDOWN,a); // vypnut� W98 i po��ta�e
end;
to by m�lo tv�j probl�m vy�e�it.
Petr Nov�k
Dne 28.���jen�2000, <delphi-l(zv)fwd(tec)cz> napsal:
> Zdravim,
> mam jeden problem. Kdyz chci ukoncit Windows (98) a bezi nejaky muj program
> (mam Delphi 5) tak se proste neukonci, stejne jako windowsy. Pokud dam
> restartovat v rezimu MS-Dos tak mi to napise, neco v tom smyslu, ze nektery
> z programu se neukoncil, at ho ukoncim a zkusim to znovu. To stava jen u
> nekterych programu a ja nemuzu prijit na to, cim to je. Mate s tim nekdo
> zkusenosti? Mohli byste mi trosim poradit?
>
> Jiri Hysek
Jak zab�t Internet Explorer?
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 29.10.2000 22:47:39
Ahoj,
zkus to jinak >>
SendMessage(AplikacniHandleIE,WM_SYSCOMMAND,SC_CLOSE,0);
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Maxter
Sent: Saturday, October 28, 2000 1:53 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Jak zab�t Internet Explorer?
Ahoj,
pot�ebuji poradit: Upravuji software pro internetovou kav�rnu a pot�ebuji p
ovypr�en� limitu zav��t v�echny okna s internetem. To by bylo jednoduch�,
kdyby fungovalo
PostMessage(Handel_okna,WM_QUIT,0,0);
jen�e ono to nefunguje, i kdy� m�m Handel na 100% a j� nev�m pro�. Porad�
n�kdo?
D�ky.
Pavel Nov�k
megamax(zv)seznam(tec)cz
Jak detekovat OS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2000 22:52:52
From: "Petr Voborn�k" <vobornik(zv)ssakhk(tec)cz>
> Jak zjistim, ktery OS je spusten. Konkretne potrebuji rozlisit Win 9x a Win
> NT (pripadne Win 2000). Pod Win NT totiz nefunguje sdileni slozek stejne
> jako u Win 9x a kdyz tam mam nekde odkaz na tuto proceduru, tak program od
> NT a 2000 nejde ani spustit. Takze bych tam pridal podminku, aby se tato
> procedura provadela pouze pod Win 9x.
Ahoj,
tady ti rozliseni OS prilis nepomuze, protoze v pripade ze funkci importujes
staticky tak nepujde dany EXE vubec spustit. Proto je treba dane funkce
importovat dynamicky. Co se tyce sdileni, tak je to jiz hotove v LanManager
konverzi (http://delphi-jedi.org/Jedi:APILIBRARY), staci pak jen definovat
LANMAN_DYNAMIC_LINK.
Petr Vones, amatersky programator
WINSOCK
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2000 02:34:37
From: <tomsir1.edu(zv)mail.cez(tec)cz>
> Hledam nejaky popis low-level programovani pomoci
> \Source\Rtl\Win\winsock.pas
Ahoj,
neni to primo pro Delphi, ale to snad nevadi:
http://www.cyberport.com/~tangent/programming/winsock/index.html
Petr Vones, amatersky programator
SQL pro Zkus Update nebo Append
[*] Ren� Otisk - 30.10.2000 06:17:56
Hi,
na to by bylo dobre pouzit Stored Procedure. Nejdrive si v ni otestujes, jestli EXISTS onen zaznam a pak se rozhodnes pro Insert nebo Update. Na MS SQL jde zjistovat i pocet zaznamu, ktere byly updatovane resp. na kterych byla provedena zmena v ramci posledni operace, takze tam nemusis pouzit ten select s EXISTem, ale bohuzel jak je to konkretne v IB to nevim...
Pro MS SQL je to asi takhle
Create Procedure POKUS
(zv)ID INTEGER, ... dalsi paramatery ...
AS
UPDATE TABULKU SET ... WHERE ID = (zv)ID
IF (zv)(zv)ROWCOUNT = 0
INSERT INTO TABULKA (seznam sloupcu) VALUES (seznam hodnot)
nebo
Create Procedure POKUS
(zv)ID INTEGER, ... dalsi paramatery ...
AS
IF SELECT COUNT(*) FROM TABULKA WHERE ID =(zv)ID > 0
UPDATE TABULKU SET ... WHERE ID = (zv)ID
ELSE
INSERT INTO TABULKA (seznam sloupcu) VALUES (seznam hodnot)
Mno a z aplikace uz pak zavoles jen EXEC POKUS s temi parametry...
Sroub
----- Original Message -----
From: Michal Tiller
To: Delphi Forum (E-mail)
Sent: Sunday, October 29, 2000 1:37 PM
Subject: SQL pro Zkus Update nebo Append
Hezky den.
Potreboval bych poradit s jednim sql.
Mam tabulku s klicovou polozkou ID. Potrebuju sql, ktery zkusi v tabulce najit rekord s prislusnym ID a updatovat ho. Paklize ho nenajde, tak by mel tento rekord vytvorit.
Neco jako:
zkus
update ... set ID = :xx... where ID = xx..
pokud ne pak
Insert into ... (ID,...) values (:xx,...)
pouzivam params.
Existuje ne takoveho? Pouzivam IBObjects, konkretne TIB DSQL.
Michal Tiller
RF Support Coordinator, OSKAR, RF - Engineering
+420 (0608) 011 327, +420 (02) 71 17 13 88
Michal.Tiller(zv)oskarmobil.Cz
SQL vs. IDENTITY pro ACCESS
[*] Ren� Otisk - 30.10.2000 06:31:49
Aha, ja jsem mu tam cpal ...ADD ID INTEGER AUTOINCREMENT jak jsem zvykly z
MS SQL (...ADD ID INT IDENTITY(1,1)). To je presne ono
Dekuji
Sroub
> > Nicmene jaka je syntaxe SQL prikazu?
>
> ALTER TABLE MyTable ADD COLUMN MyColumn AUTOINCREMENT
>
> Erik Salaj, WINSOFT
> info(zv)winsoft.sk
DBGrid - aktualni zaznam
[*] Ren� Otisk - 30.10.2000 06:34:56
Hi,
D3 C/S, RxLib2.75
Jde to i v Delphi3? TCustomGrid sice v napovede ma vlastnost Row, ale
kompilator mi nadava, ze ho nezna a i kdyz si vyjedu nabidku pro CustomGrid
v IDE, tak tam Row taky neni. Opravdu je to jen pro vyssi verze, nemo mam
neco nekde spatne nastavene resp. prepsane...
Sroub
> Uz to mam
>
> If Row = DataLink.ActiveRecord
>
> Dekuji.
> > To opravdu funguje ale jak prosim te zjistis, ze ten Row = tomu
> > aktualnimu z databaze, kterou metodu prepisujes ?
> > Prosim podrobnejsi pomoc.
> >
> > > Diky, moc,
> > >
> > > to je presne ono. Tohle jsem prehledl. Ted uz to dela to, co
potrebuju.
> > >
> > > Honza.
> > >
> > > ----- Original Message -----
> > > From: Milan Tome <Milan.Tomes(zv)haida(tec)cz>
> > > To: <delphi-l(zv)fwd(tec)cz>
> > > Sent: Tuesday, October 24, 2000 8:49 AM
> > > Subject: RE: DBGrid - aktualni zaznam
> > >
> > >
> > > > Radek se da zjistit takto:
> > > >
> > > > TCustomGrid(nazev_gridu).Row
> > > >
> > > > HTH
> > > >
> > > > Milan Tomes
> > >
> > >
> > >
> > >
> >
> >
> >
> > S pozdravem Radek KALA
> > BetaControl, s.r.o.
> > Cerneho 58/60, 635 00
> > tlf. : + 420 5 4622 3491
> > fax : + 420 5 4622 3470
> > GSM : + 420 603 85 75 15
> >
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Cerneho 58/60, 635 00
> tlf. : + 420 5 4622 3491
> fax : + 420 5 4622 3470
> GSM : + 420 603 85 75 15
Klicove slovo Admin v IB6
[*] Ing. Zdenek Havranek, HAF <sea-cv(zv)volny(tec)cz> - 30.10.2000 07:57:45
On Mon, 23 Oct 2000, David Lebeda wrote:
> zjistil jsem, ze na IB6 serveru je zrejme na neco vyhrazene slovo
> ADMIN. Nevite nekdo, co znamena? Napr. pokud chci mit uzivatele
> ADMIN, narazim kazdou chvili na SQL error. Pokud misto slova
> ADMIN pouziji jineho uzivatele, je vse OK.
2AllBooks.pdf, Acrobat Reader with search:
GRANT <privileges> ON [TABLE] ... WITH ADMIN OPTION
--
S pozdravem
Ing. Zden�k Havr�nek, HAF mailto:havranek(zv)email(tec)cz
SEA - Chomutov, s.r.o.
Ve�ker� �innosti v oboru stroj�renstv�, elektrotechniky a automatizace
mailto:sea-cv(zv)volny(tec)cz, http://www.volny(tec)cz/sea-cv
Tel/fax: +420-396-624048, +420-396-625108, +420-606-507481
Vikov� Kun�tick� 1935, 430 01 Chomutov, Czech Republic
Jak na to...?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 30.10.2000 08:27:31
NetAdmin ZSU dne 27 Oct 2000, v 13:10:
> Potreboval bych vyresit nasleduji problem: Mam na siti takovej
> programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
> "rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to
> po nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
> nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace
> spustena a v pripade, ze nikoliv, tak ji znova nahodil...?
Kdysi jsem delal neco podobneho. Nestacilo by nahodou hlidat udalost
(jejiz jmeno mi ted vypadlo, neco jako OnCloseQuery), ktera nastava
tesne pred ukoncenim te aplikace? No a jakmile k ni dojde, spustit
novou instanci toho programku... Chvili sice budou spustene ty
aplikace dve, ale to by myslim nemuselo vadit. Pak je myslim potreba
osetrit okamzik, kdy se ukoncuji cela Windows.
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
Reporty - Doplnovani textu do sablon dokumentu - j
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 30.10.2000 08:31:06
Ladislav Nagy dne 25 Oct 2000, v 20:05:
> Zkusil jsem metodu nahrazovani textu v *.DOC a v *.XLS souborech. Ma
> to vsak jeden hacek, vkladane texty musi byt stejne dlouhe jako
> originalni texty. Jinak pak nelze dokument ve Wordu/Excelu otevrit.
> Jak z toho ven? Neexistuje ve Wordu/Excelu nejaky blank znak? Ze bych
> si nadefinoval do sablony dlouhy text a vkladal pak kratsi text +
> spravny pocet blanku. Stejne by to bylo nepekne reseni. Neznate nekdo
> lepsi?
A co zkusit ten format RTF? V tom by problemy s ruznou delkou
originalniho a noveho textu nemely nastat. (Pravda, musi se trosku
osetrit ukladani znaku s kodem vyssim nez ? 127, ale to jde
snadno.) Navic soubor ve formatu RTF muze mit i priponu DOC, aby to
netrapilo uzivatele.
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
opusteni policka v DBGridu
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 30.10.2000 08:39:04
Data se kontroluji zasadne v TField.OnValidate;
> Prosim vas, jaka udalost se generuje pri ukonceni editace policka v DBGrid?
> Kdyz prejdu na jiny sloupec, tak to lze odchytit udalosti OnColExit, ale
> pokud prejdu na dalsi radek, nebo kliknu mysi uplne nekam jinam? Potrebuju
> to, abych mohl jeste pred opustenim policka overit data do nej zadana.
>
> Predem dekuji za odpovedi.
>
> K.P.
> ---------------------------------------
> Ing. Karel P�rtl
> e-mail: partl(zv)zf.jcu(tec)cz
> k.partl(zv)post(tec)cz
> ICQ: 24574012
> --------------------------------------
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
listbox - drag&drop
[*] brant(zv)dcomm(tec)cz - 30.10.2000 08:41:11
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.
Dost dobre nevim, co to znamena "normalne to umim" a co chces tedy poradit.
Ale delal jsem to kdysi tak, ze mam neviditelny TLabel, do nej dam text
polozky, ktera se ma pretahovat (na OnMouseDown toho listboxu) a pak se
realizuje drag toho TLabelu. V druhem listboxu se otestuje, zda je source
ten TLabel a realizuje se drop.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
Joha,
Muzete mi poradit kam se podivat, abych pochopil, jak pretahnout mysi
polozku
z jednoho listboxu do druheho ? Normalne to umim.
--
Best regards,
vt mailto:vt.echo(zv)worldonline(tec)cz
MapObjectsLT
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 30.10.2000 09:04:58
Zdravim,
mam jeden rekneme kontrolni dotaz.
Pouziva nekdo z vas MapObjectsLT a je ochoten se (aspon castecne) podelit o sve zkusenosti s timto produktem?
Predem dekuji za odpoved
Mirek Drejcek.
Prubeh kopirovani souboru
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 30.10.2000 09:13:51
> pFrom := Source; //'*.*'#0#0 {tohle je dulezite tam mit !!!!!}
> pTo := Dest; //'a:\*.*'#0#0
Teda ja bych rekl ze staci:
pFrom := Source; //'*.*'#0
pTo := Dest; //'a:\*.*'#0
Nebo se pletu ?
Podle meho ObjectPascal pridava na konec retezce jeden NULL automaticky.
--
Ondrej Krajicek OK-)Co s Registry?!
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 30.10.2000 09:56:37
RE: listbox - drag&dropPtam se uz po treti. Jak zabranit tomu, aby se pri pouzivani registru nevytvareli v aktualnim adresari skryte soubory, se stejnymi jmeny, jako maji pouzite reg. klice???
MIKMIK company
Petr Voborn�k - P�tr
vobornik(zv)ssakhk(tec)cz
ICQ: #23132120
www.ssakhk(tec)cz/home/vobornik/IBAdmin
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 30.10.2000 10:33:37
Ahoj,
mam stazeny nastroj IBAdmin 3.0 pro administraci IB6. Libi se mi
a uvazuji o jeho koupeni. Chci se predtim ale zeptat, zda nekdo
nahodou nevite o nejakem podobnem free nastroji (IB_WISQL me
ale nezaujalo).
Jde mi o prostredky usnadnujici praci s procedurami, indexy,
triggery, generatory, domenami, tvorbou a editaci tabulek, grant
manager, aby clovek nemusel porad vsechno otrocky psat jako
SQL prikazy.
David
Jak na to...?
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 30.10.2000 10:37:23
Ahoj,
1) skryt aplikaci i z taskmanageru (Ctrl-Alt-Del)
(viz napr. komponenta Stealth, www.zds(tec)cz, download)
2) znamy stary princip: dva programy (nebo procesy),
ktere se navzajem hlidaji, a pokud je jeden (A) ukoncen,
druhy (B) jej spusti okamzite znova.
3) aplikace si bude hlidat automaticke spousteni
(z registru - Run, Runservice) a v pripade, ze ji nekdo
za chodu odstrani, vlozi se tam automaticky znovu
4) atd. - zkus se inspirovat u viru :-)
### NetAdmin ZSU napsal dne 27 Oct 00, v 13:10 :
> Hoj!
>
> Potreboval bych vyresit nasleduji problem: Mam na siti takovej
> programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
> "rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to po
> nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
> nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace spustena
> a v pripade, ze nikoliv, tak ji znova nahodil...?
>
> Budu vdecny i za jina mozna reseni...
>
> Diky, R.V.
>
> -----
> Radovan Vojtek - Network Administrator
> Zakladni skola
> Uprkova ul. 1
> 500 09, Hradec Kralove
> CZECH REPUBLIC
> tel.: +420(49)5270294
> mobil: +420(604)849231
> #ICQ: 63924162
> Y! ID: Ghort001
> -----
>
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Jak detekovat OS
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 30.10.2000 10:37:06
> Jak zjistim, ktery OS je spusten. Konkretne potrebuji rozlisit Win 9x a
Win
NT (pripadne Win 2000).
Napr. takto:
var OSVerInfo : TOSVersionInfo;
NTrunning: boolean;
begin
// zjisteni behu na NT
OSVerInfo.dwOSVersionInfoSize := SizeOf(OSVerInfo);
GetVersionEx(OSVerInfo);
NTrunning := OSVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT;
end;
Stvorec 1*1 cm na obrazovke
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 30.10.2000 10:42:20
...jo a jeste zalezi na tom, jak si kdo roztahne
obraz na monitoru-individualni nastaveni OSD,
knofliky :-(
### Erik Salaj napsal dne 28 Oct 00, v 0:04 :
> > > Porad� mi niekto ako nakreslit stvorec 1*1
> > > cm na obrazovke? A co urobit v pripade ze
> > > sa zmeni rozlisenie? Riesil to niekto?
> >
> > Zkus pouzit parametr TScreen.PixelsPerInch.
> > Z toho uz se da prepocitat kolik je 1cm
> > v pixlech. (1" = 2.54 cm)
>
> Obavam sa, ze to nepomoze, pretoze potrebujes rozmery
> obrazovky (dokonca len jej vysvietenej casti) a to inak
> ako odmeranim asi nezistis.
>
> Erik Salaj, WINSOFT
>
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Prubeh kopirovani souboru
[*] Ren� Otisk - 30.10.2000 10:50:18
Hi,
Pletes se, musi to byt zakonceno #0#0. Kdyz das pouze
pFrom := Source; file://'*.*'#0
pTo := Dest; file://'a:\*.*'#0
tak on za tim #0 ceka dalsi soubory ke zkopirovani resp. presunuti. Prvni
nulou mas oddelene jednotlive soubory ke zkopirovani (tak jak si je treba
nahodne vyberes odnekud z listu) a dve nuly za sebou ti ukonci cely ten
retezec.
Sroub
> > pFrom := Source; file://'*.*'#0#0 {tohle je dulezite tam mit !!!!!}
> > pTo := Dest; file://'a:\*.*'#0#0
>
> Teda ja bych rekl ze staci:
>
> pFrom := Source; file://'*.*'#0
> pTo := Dest; file://'a:\*.*'#0
>
> Nebo se pletu ?
> Podle meho ObjectPascal pridava na konec retezce jeden NULL automaticky.
>
> --
> Ondrej Krajicek OK-)SQL pro Zkus Update nebo Append
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 30.10.2000 11:00:13
Ahoj,
na to je najvhodnejsia stored procedure, trebars takto:
create procedure update table (
id integer,
f1 char(10),
...)
returns (
newid integer)
as
begin
select id from table where id=:id into newid;
if (newid is null) then begin /* zaznam neexistuje, vytvor novy */
newid=gen id(gen table, 1); /* gen table je generator pre tuto tabulku */
insert into table (id, f1, ...) values (:newid, :f1, ...);
end
else begin
update table set f1=:f1, ...
where id=:newid
end
end
procedura Ti vrati id zaznamu s ktorym pracovala, t.j. ak robila update vrati to iste id, inac novovytvorene id.
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Michal Tiller
To: Delphi Forum (E-mail)
Sent: Sunday, October 29, 2000 1:37 PM
Subject: SQL pro Zkus Update nebo Append
Hezky den.
Potreboval bych poradit s jednim sql.
Mam tabulku s klicovou polozkou ID. Potrebuju sql, ktery zkusi v tabulce najit rekord s prislusnym ID a updatovat ho. Paklize ho nenajde, tak by mel tento rekord vytvorit.
Neco jako:
zkus
update ... set ID = :xx... where ID = xx..
pokud ne pak
Insert into ... (ID,...) values (:xx,...)
pouzivam params.
Existuje ne takoveho? Pouzivam IBObjects, konkretne TIB DSQL.
Michal Tiller
RF Support Coordinator, OSKAR, RF - Engineering
+420 (0608) 011 327, +420 (02) 71 17 13 88
Michal.Tiller(zv)oskarmobil.Cz
Co s Registry?!
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.10.2000 11:10:34
>Ptam se uz po treti. Jak zabranit tomu, aby se pri pouzivani registru
nevytvareli v aktualnim adresari
>skryte soubory, se stejnymi jmeny, jako maji pouzite reg. klice???
Co takhle napsat jak vlastne ty registry pouzivas?
Ja pouzivam fce system (RegOpenKeyEx a spol) a zadny takovy problem jsem
nepozoroval....
D. Toman
Case Nastroj
[*] Str�n�k Franti�ek <FStranik(zv)cpoj(tec)cz> - 30.10.2000 11:35:19
V�en� p��tel�, nev�te n�kdo o n�jak�m dobr�m a cenov� p�ijateln�m Case
nastroji na tvorbu datab�z� ?
S pozdravem F.Stranik
Jak zjistit seriove cislo disku ?
[*] Ing. Zdenek Havranek, HAF <sea-cv(zv)volny(tec)cz> - 30.10.2000 11:36:12
On Thu, 26 Oct 2000, Jirka Virt wrote:
> nestandardne naformatovanou disketu a tu by obsluha musela mit , alespon pro
> zacatek startu programu zasunutou v mechanice.Myslim si , ze dost uzivatelu
> ji tam bude mit natrvalo, protoze jiz delsi dobu se mechaniky (3,5)tak bezne
> nepouzivaji.
Fuj!, HW klice snasim tezko (zkus pouzivat 3-4 programy s HW klicem na
jednom PC) ale disketa v mechanice by mi vadila jeste vice.
--
S pozdravem
Ing. Zden�k Havr�nek, HAF mailto:havranek(zv)email(tec)cz
SEA - Chomutov, s.r.o.
Ve�ker� �innosti v oboru stroj�renstv�, elektrotechniky a automatizace
mailto:sea-cv(zv)volny(tec)cz, http://www.volny(tec)cz/sea-cv
Tel/fax: +420-396-624048, +420-396-625108, +420-606-507481
Vikov� Kun�tick� 1935, 430 01 Chomutov, Czech Republic
Prubeh kopirovani souboru
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 30.10.2000 11:48:50
No jasne, ale AnsiString a WideString (alespon podle dokumentace)
by mel runtime >> automaticky << jednou nulou ukoncovat.
Takze kdyz tam pridam dalsi nulu, v pameti uz budou
dve nuly. Kdyby tam tu nulu nepridaval, tak
by nefungovalo pretypovani na PAnsiChar, resp. PWideChar.
s pozdravem,
Ondrej Krajicek
Ren� Otisk wrote:
>
> Hi,
>
> Pletes se, musi to byt zakonceno #0#0. Kdyz das pouze
> pFrom := Source; file://'*.*'#0
> pTo := Dest; file://'a:\*.*'#0
> tak on za tim #0 ceka dalsi soubory ke zkopirovani resp. presunuti. Prvni
> nulou mas oddelene jednotlive soubory ke zkopirovani (tak jak si je treba
> nahodne vyberes odnekud z listu) a dve nuly za sebou ti ukonci cely ten
> retezec.
>
> Sroub
>
> > > pFrom := Source; file://'*.*'#0#0 {tohle je dulezite tam mit !!!!!}
> > > pTo := Dest; file://'a:\*.*'#0#0
> >
> > Teda ja bych rekl ze staci:
> >
> > pFrom := Source; file://'*.*'#0
> > pTo := Dest; file://'a:\*.*'#0
> >
> > Nebo se pletu ?
> > Podle meho ObjectPascal pridava na konec retezce jeden NULL automaticky.
> >
> > --
> > Ondrej Krajicek OK-)
--
Ondrej Krajicek OK-)Jak na to...?
[*] Ladislav B�RTA <bartal(zv)vfu(tec)cz> - 30.10.2000 11:48:22
Take jsem mel podobny problem. Nakonec jsem to vyresil tak, ze aplikace se
da zavrit jen po zadani hesla a v seznamu aplikaci neni videt (po stisku
crtl+alt+del). Takovych unit ktere to umoznuji je cela rada. Na zaky toto
staci. Aplikaci nezavrou a nasilim take ne, kdyz ji nevidi v seznamu.
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, October 30, 2000 8:27 AM
Subject: Re: Jak na to...?> NetAdmin ZSU dne 27 Oct 2000, v 13:10:
>
> > Potreboval bych vyresit nasleduji problem: Mam na siti takovej
> > programek, kterej mi hlida prutok pres TCP porty a zaroven slouzi jako
> > "rozhlas". Bohuzel, nekteri zaci uz zjistili, co je to zac, a tak to
> > po nalogovani natvrdo shodej a ja mam vymalovano. Jak by se dal napsat
> > nejakej resident, kterej by hlidal, jestli je ta ci ona aplikace
> > spustena a v pripade, ze nikoliv, tak ji znova nahodil...?
Zmena jazyka tabulky
[*] Tom� Vlad�k������V��?���o�� - 30.10.2000 12:01:53
Tohle by melo fungovat pro Pradadox tabulky. Komentare jsou asi z helpu pro
zmenu hesla.
Jako NewLocale je treba zadat interni nazev napr.:
Long name Internal name
Paradox 'ascii' ascii
pdx Czech 852 'CH' czechw
pdx Czech 867 'CH' cskamenw
pdx ANSI ISO L_2 CZ anil2czw
pdx ISO L_2 Czech il2czw
uses
DbiProcs,
DbiErrs,
DbiTypes;
procedure SetTableLanguage(Table: TTable; NewLocale: string);
const
RESTRUCTURE_TRUE = WordBool(1);
LangFldDesc: FLDDesc = (
iFldNum: 1;
szName: 'LANGDRIVER';
iFldType: fldZSTRING;
iSubType: fldUNKNOWN;
iUnits1: DBIMAXTBLNAMELEN;
iUnits2: 0;
iOffset: 0;
iLen: DBIMAXSCFLDLEN;
iNullOffset: 0;
efldvVchk: fldvNOCHECKS;
efldrRights: fldrREADWRITE
);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;
pLocale: array [0..DBIMAXNAMELEN] of Char;
begin
{ Make sure that the table is opened and is exclusive }
if not Table.Active or not Table.Exclusive then
raise EDatabaseError.Create('Table must be opened in exclusive ' +
'mode to add passwords');
{ Initialize the table descriptor }
FillChar(TblDesc, SizeOf(CRTblDesc), #0);
with TblDesc do begin
{ Place the table name in descriptor }
StrPCopy(szTblName, Table.TableName);
{ Place the table type in descriptor }
StrCopy(szTblType, szPARADOX);
{ Master Password, Password }
if NewLocale <> '' then begin
iOptParams := 1;
pfldOptParams := (zv)LangFldDesc;
pOptData := StrPCopy((zv)pLocale, NewLocale);
end;
{ Set bProtected to True }
end;
{ Get the database handle from the cursor handle }
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
{ Close the table }
Table.Close;
{ Add the master password to the Paradox table }
Check(DbiDoRestructure(hDb, 1, (zv)TblDesc, nil, nil, nil, False));
{ Add the new password to the session }
Table.Open;
end;
IB 6.0 + IBConsole pada!!
[*] Ing. Zdenek Havranek, HAF <sea-cv(zv)volny(tec)cz> - 30.10.2000 12:35:56
Zdravim,
zacinam s D5 a IB6 a potrebuji poradit. Jsem blbej ja nebo je nekde
chyba? Kde se da sehnat oprava?
Pomoci IBConsole jsem postupne zadal:
create table mista
(
obec varchar(20),
ulice varchar(20),
cispop smallint
);
create generator cisluj;
insert into mista values ('Chomutov', 'Dlouha', 13);
insert into mista values ('Chomutov', 'Dlouha', 26);
insert into mista values ('Chomutov', 'Kratka', 19);
Kdyz pak zkusim:
select gen_id(cisluj, 1), obec, ulice
from mista
group by obec, ulice;
Ihned se dozvim: "connection lost to database", InterBase Guardian
zrestartuje server, blika cerveno/zelene praporek,
Odkliknu IBGuardian, chci zavrit IBConsole a nejde to (Transactions are
active Yes/No/Cancel a znovu connection lost to database), takze
Ctrl+Alt+Del do taskmanageru.
Kdyz pouziju IB6.0 server a k tomu Windows ISQL 5.5 z distribude Delphi
5 profi, tak select dopadne dobre.
IBConsole Version 1.0.0.315
IBServer Version WI-V6.0.0.627
--
S pozdravem
Ing. Zden�k Havr�nek, HAF mailto:havranek(zv)email(tec)cz
SEA - Chomutov, s.r.o.
Ve�ker� �innosti v oboru stroj�renstv�, elektrotechniky a automatizace
mailto:sea-cv(zv)volny(tec)cz, http://www.volny(tec)cz/sea-cv
Tel/fax: +420-396-624048, +420-396-625108, +420-606-507481
Vikov� Kun�tick� 1935, 430 01 Chomutov, Czech Republic
BDE a IB6.0
[*] Ing. Zdenek Havranek, HAF <sea-cv(zv)volny(tec)cz> - 30.10.2000 12:44:48
Ahoj,
kdyz jsem tahal IB 6.0, tak jsem nasel a stahnul i IBX komponenty, ale
BDE neumi do databaze, ktera je v dialect 3 (chtel jsem pouzit
TBatchMove).
Musim nekam dopsat, ze chci aby se BDE pripojil pomoci dialect 3
nebo musim odnekud stahnout update na BDE?
--
S pozdravem
Ing. Zden�k Havr�nek, HAF mailto:havranek(zv)email(tec)cz
SEA - Chomutov, s.r.o.
Ve�ker� �innosti v oboru stroj�renstv�, elektrotechniky a automatizace
mailto:sea-cv(zv)volny(tec)cz, http://www.volny(tec)cz/sea-cv
Tel/fax: +420-396-624048, +420-396-625108, +420-606-507481
Vikov� Kun�tick� 1935, 430 01 Chomutov, Czech Republic
Sirka radku RTF
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 30.10.2000 13:15:24
Ahoj,
potreboval bych zjistit sirku textu v radku v RichEditu (idealne v mm, ale i
v pixelech), ve kterem je kurzor. Vite nekdo, jak na to ?
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
IBAdmin
[*] Campulka Jiri <campulka(zv)czas(tec)cz> - 30.10.2000 13:49:02
----- Original Message -----
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
> Ahoj,
>
> mam stazeny nastroj IBAdmin 3.0 pro administraci IB6. Libi se mi
> a uvazuji o jeho koupeni. Chci se predtim ale zeptat, zda nekdo
> nahodou nevite o nejakem podobnem free nastroji (IB_WISQL me
> ale nezaujalo).
> Jde mi o prostredky usnadnujici praci s procedurami, indexy,
> triggery, generatory, domenami, tvorbou a editaci tabulek, grant
> manager, aby clovek nemusel porad vsechno otrocky psat jako
> SQL prikazy.
>
> David
>
Zkus InterBase Workbench. Prave vysel v beta verzi 0.8.
Zatim se mi jevi jako nejlepsi free administracni nastroj pro IB6
www.interbaseworkbench.com
Cau Jirka.Co s Registry?!
[*] Karel Cibulka <kcibulka(zv)seznam(tec)cz> - 30.10.2000 13:56:51
On po 30. ��jen 2000 09:56, you wrote:
> Ptam se uz po treti. Jak zabranit tomu, aby se pri
> pouzivani registru nevytvareli v aktualnim adresari skryte soubory, se
> stejnymi jmeny, jako maji pouzite reg. klice???
Ahoj,
mozna by nebylo od veci popsat problem podrobneji - na jakem OS to dela, pri
jake prilzeitosti (napr. kousek kodu), jake Delphi pouzivas....
Takhle ti asi nikdo poradit nepomuze, osobne jsem se nikdy nesetkal s tim, ze
by se pri praci s registry generovaly v systemu soubory se jmeny klicu.
Problem mozna bude v chybne praci s registry - tady by prave pomohla cast
kodu, ktera by to mela delat.
--
<br>
Cibulka Karel, mailto:kcibulka(zv)seznam(tec)cz, ICQ: 4111110
<br>OT: Oracle Discoverer ...
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 30.10.2000 14:06:20
Preji prijemny den,
omlouvam se za OT, ale uz si nevim rady a nevim o zadne konferenci k produktum Oracle.
Otazka zni:
Jaky uzivatel (jmeno ci prava) muze v Oracle Discovereru zakladat a vlastnit EUL ?
Mam klasickeho uzivatele s pravy SELECT + CREATE TABLE, PROCEDURE, VIEW, SESSION a SEQUENCE. Jeden clovek, ktery delal ve starsi verzi OD prohlasil, ze by to melo stacit, ale ja tu EUL nevytvoril - zarve mi to, ze nejsou dostatecna prava.
Prosim poradte
diky Pavel
-------------------------------------------------
Pavel Skalick�
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
IBAdmin
[*] L. ZITA <konference(zv)sales(tec)cz> - 30.10.2000 14:54:34
Behalf Of David Lebeda
> Ahoj,
>
> mam stazeny nastroj IBAdmin 3.0 pro administraci IB6. Libi se mi
> a uvazuji o jeho koupeni. Chci se predtim ale zeptat, zda nekdo
> nahodou nevite o nejakem podobnem free nastroji (IB_WISQL me
> ale nezaujalo).
> Jde mi o prostredky usnadnujici praci s procedurami, indexy,
> triggery, generatory, domenami, tvorbou a editaci tabulek, grant
> manager, aby clovek nemusel porad vsechno otrocky psat jako
> SQL prikazy.
>
> David
>
Ahoj.
Mam podobne dilema.
Momentalne zkousim QuickDesk (http://www.ems-hitech.com/quickdesk/)
Je to celkem OK, ale dost casto to pada. Bohuzel take neni zdarma.
Napis prosim kde se da stahnout IBAdmin 3.0 o kterem pises (na zkousku).
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
RX a Rich Edit
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 30.10.2000 15:13:21
Delphi 4, RX 2.6
Mam jeden problem s RXRichEdit. Ak dam tlac textu, ktory obsahuje skryty
text zacne sa tlacit nezmyselne monozstvo stran
(20 000 a viac) aj ked text ma iba jednu stranu. Skusal som to priamo na
deme k rich editu v RX a tam to blbne tiez. Nestretol
sa niekto s niecim podobnym. Existuje este nejaky (pokial mozno free rich
edit) ? Nepotrebujem ziadne specialne vlastnosti, iba
zakladnu funkcnost (az na tu podporu skryteho textu by mi stacil aj obycajny
rich edit)
Vopred vdaka,
Martin Cajbik (MarCaNT)
IB6: IBRestoreService
[*] Ota Maly <maly(zv)space(tec)cz> - 30.10.2000 15:19:03
Ahoj,
chodi vam nekomu IBRestoreService?
Me to spadne s vyjimkou "FILE ABC.GBK IS NOT A VALID DATABASE.". Pritom jsem
zalohu udelal v pohode pomoci IBBackupService. Vse je ze stejne verze
(IB6ostra).
U obou pouzivam konstrukci v podstate stejnou jako je v helpu:
Screen.Cursor := crHourGlass;
with IBRestoreService do
try
ServerName := 'tady mam jmeno sveho PC';
Active := true;
Verbose := True;
Options := [];
DatabaseName.Clear;
DatabaseName.Add('c:\abc.gdb'); // tohle ma byt vysledkem
BackupFile.Clear;
BackupFile.Add('d:\abc.gbk'); // tohle je zaloha provedena pomoci
IBBackupService
ServiceStart; // tady to zbuchne
While not Eof do
begin
Memo.Lines.Add(GetNextLine);
end;
finally
Screen.Cursor := crDefault;
Active := False;
end;
S pozdravem
Ota Maly
NT4SP5;D5Prof;IB6;IBX4.2;
PaPouch elektronika
http://www.papouch.com
IBAdmin
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 30.10.2000 15:20:21
ahoj,
zkus todle:
http://ems-hitech.com/quickdesk/
a posli prosimte url na toho IBADMINa.
> mam stazeny nastroj IBAdmin 3.0 pro administraci IB6. Libi se mi
> a uvazuji o jeho koupeni. Chci se predtim ale zeptat, zda nekdo
> nahodou nevite o nejakem podobnem free nastroji
--- zkraceno ---
dekuji peca
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Case Nastroj
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 30.10.2000 15:32:43
Zkus www.casestudio.com
Slavek
>
> Va?eni poatele, nevite nikdo o nijakem dobrem a cenovi poijatelnem Case
> nastroji na tvorbu databazi ?
>
> S pozdravem F.Stranik
IB 6.0 + IBConsole pada!!
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 30.10.2000 16:05:39
> IBConsole Version 1.0.0.315
Mozna to s problemem vubec nesouvisi, pouze pro informaci
v techto dnech se objevila na Code Central jiz verze 322
Jiri Binder
Jak zjistit seriove cislo disku ?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 30.10.2000 16:11:29
Jirka Virt dne 26 Oct 2000, v 19:11:
> a co takhle pouzit HW klic? nebo jeste neco jednodussiho na stejnem
> principu: nestandardne naformatovanou disketu a tu by obsluha musela
> mit , alespon pro zacatek startu programu zasunutou v mechanice.Myslim
> si , ze dost uzivatelu ji tam bude mit natrvalo, protoze jiz delsi
> dobu se mechaniky (3,5)tak bezne nepouzivaji.
Tech disket bych se celkem bal. Duvody:
- Windows 98 nemaji rady nestandardne naformatovane diskety.
- Pokud uzivatel takovou disketu prozene ScanDiskem, je pak
opravdu HODNE nestandardni...
- Diskety se pouzivaji tak malo, ze se urcite setkas s tim,
ze nektery uzivatel ani nebude mit mechaniku (notebooky, skoly).
- Zaznam na diskete neni prave z nejtrvanlivejsich.
Kontrola toho serioveho cisla harddisku by ale mohla byt pomerne
spolehliva, nebo se mylim?
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
Case Nastroj
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 30.10.2000 16:19:40
Case Studio
>>>>>>>>> Patrik Tesar <<<<<<<<<
>>>> patrik.tesar(zv)nextra.sk <<<<
>>>>>>> www.modulcad.com <<<<<<<
>>>>>>> CAD developement <<<<<<<
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Str�n�k Franti�ek
Sent: Monday, October 30, 2000 11:35 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Case Nastroj
V�en� p��tel�, nev�te n�kdo o n�jak�m dobr�m a cenov� p�ijateln�m Case
nastroji na tvorbu datab�z� ?
S pozdravem F.Stranik
Webova aplikace - co pouzit?
[*] JIM Design <jim.design(zv)iol(tec)cz> - 30.10.2000 17:03:02
ahoj,
V cem je ta db v Americe?
Co to znamena komunikaci resim sam? A jak?
Co ma ta tvoje aplikace delat mezi tou DB a browserem?
Ptam se proto ze prave delam take webserver, a vse resim pomoci SQL7 a ASP,
protoze jsem byl upozornen na to (nerad kritizuju) ze CGI nebo ISAPI psane v
Delphi zacne neumerne narustat pri pouzivani DB (mozna i jinych) komponent
(uvidis sam kdyz tam placnes nekolik TQuery a zkompilujes)
M.Jirman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ota Maly
Sent: Friday, October 27, 2000 2:33 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Webova aplikace - co pouzit?
Ahoj,
Potrebuju propojit tyhle 3 veci:
-VELKA databaze nekde na firemnim serveru v Americe
-moje aplikace
-standardni browser IE4 nebo vyssi
Moje aplikace pobezi na WinNT (W2000) serveru nekde v Cechach a ja nevim,
jak mam komunikovat s tim koncovym browserem. Server je firemni, takze muzu
spoustet cokoli. Komunikaci s s tou velkou DB resim sam.
Delam to poprve, proto se ptam, co mam pouzit?
CGI, WinCGI, ASP, ISAPI/NSAPI, PHP nebo neco jineho?
Predpokladam (velmi hrube), ze klientu bude v jednu chvili maximalne nekolik
desitek.
Casove to nebude (asi) nijak kriticke, komunikace do Ameriky bude chvili
trvat.
Zatim me napadlo to psat jako CGI (kvuli ladeni), pak to predelat na ISAPI
(kvuli rychlosti). Upozornuju, ze tohle jsem vydedukoval z dilcich poznatku
z konference, takze jsem to mozna pochopil uplne spatne..:-)
Jestli potrebujete jeste neco vedet, ptejte se..
A cele by to melo jit napsat v Delphi 5 Professional.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
Aplikace bez MainForm
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 30.10.2000 17:19:01
Zdravim,
asi mam hloupou otazku, ale nejak nevim, jak to udelat:
Potrebuju napsat aplikaci, ktera bude jen poslouchat na urcitem
TCP/IP portu a jakmile ji prijdou data, nejak na to zareaguje. Chtel
bych, aby zabirala co nejmene pameti, takze se chci vyhnout pouziti
tForm.
Poradte prosim nekdo, jak takovou aplikaci napsat (zrejme s pouzitim
komponent FastNet). Asi si budu muset nejak sam osetrit obsluhu
alespon tech zakladnich udalosti (WM_CLOSE apod.), ale to prave nevim
- kde a jak.
Diky za kazdy podnet,
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
SQL
[*] olej.jozef(zv)slsp.sk - 30.10.2000 17:35:18
Ahoj,
Mam TQuery na DB kde RequestLive=TRUE a chcel by som odpamatat data pred
editovanim udajov.
Potreboval by som spravit nieco podobne ako pri cached updates OldValue a
NewValue ale bez cached updates .
Nieco taketo.
for i := 0 to Query1.FieldDefs.Count - 1 do
if Query1.Fields[i].OldValue <> Query1.Fields[i].NewValue then ......
Neviete niekdo poradit ako je najjednoduchsie spravit?
dakujem.
Jozef
CGI WebApp a STOP
[*] J�n Grman <janog(zv)pluto.elf.stuba.sk> - 30.10.2000 17:52:31
Caute,
mam D5-C/S a jednoduchu CGI aplikaciu ktora generuje stranky na zaklade
poziadavky.
Jedna z funkcii je napriklad hladanie v DB (je teraz jedno v akej).
Ak dotaz trva dlho, uzivatel ho chce STOPNUT !
Neviem ODCHYTIT udalost, ze browser uz stranku ktora sa prave "vyraba" uz
NEPOTREBUJE !
(teda toto sa stava pri STOPe, ale napriklad aj vtedy ak uzivatel klikne
nejaku linku - to ale zasa asi robi stop na aktualne realizovany dotaz).
Budem vdacny za kazdu radu.
Jano.
janog(zv)pluto.elf.stuba.sk
Case Nastroj
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.10.2000 17:56:14
Ahoj,
v zarijovem cisle SWN byly recenze 6 kreslitek a z levnych tam
ziskalo cenu "Produkt mesice" vyborne Case Studio
(http://www.casestudio.com). Doporucuji (samozrejme zalezi na
tom, co presne chces delat)
Slavek
> V�en� p��tel�, nev�te n�kdo o n�jak�m dobr�m a cenov� p�ijateln�m Case
> nastroji na tvorbu datab�z� ?
>
> S pozdravem F.Stranik
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
screen aktivniho okna
[*] Jammic <Jammic(zv)canex.sk> - 30.10.2000 18:33:19
Nevite nekdo kde m�m chybu, nemohu ud�lat printscreen pouze
aktivniho okna, vzdy mi to skonci nakonci plochy ,neporadite mi
prosim prosim.... nejak jsem tento zdrojak nepochopil
var DC: HDC;
DesktopWnd: HWND;
DesktopBitmap,wokno: Tbitmap;
DesktopWnd := GetForegroundWindow; // zjiti aktivni okno
DC := GetWindowDC(DesktopWnd); // zjiti handle wokna
DesktopBitmap.Handle:=dc; // nastav� ���ku bitmapy na ���ku
screenu
Nje je to celkom tak. Priradenie sposobi, ze objekt DesktopBitmap ziska ako
handle DC. To sa mi zda v principe nje velmi stastne. Skor by som cakal
DesktopBitmap.Canvas.Handle:=DC;
BitBlt((DesktopBitmap.Canvas.Handle,0,0,DesktopBitmap.Width,
DesktopBitmap.Height,GetDC
(GetForegroundWindow),0,0,SrcCopy); // zkop�ruje obsah screenu
pomoc� WinApi funkce Bitblt do DesktopBitmap
Co takto skusit nieco ine:
var DC, DC1: HDC;
ForeWnd: HWND;
R: TRect;
WOkno: TBitmap;
hB: HBITMAP;
T: TGraphic;
begin
Wokno:=TBitmap.Create;
ForeWnd := GetForegroundWindow; // zisti aktivni okno
DC := GetWindowDC(ForeWnd); // zisti handle wokna
GetWindowRect(ForeWnd, R); // zisti velkost
DC1:= CreateCompatibleDC(DC); // pomocne DC
hB:= CreateCompatibleBitmap(DC, R.Right-R.Left, R.Bottom-R.Top); //
nova bitmapa
SelectObject(DC1, hB);
BitBlt(DC1, 0, 0, R.Right-R.Left, R.Bottom-R.Top, DC, 0, 0,
SRCCOPY); // skopiruj do pomocneho DC
Wokno.Handle:=hB; // spoj objekt TBitmap s windows handle
DeleteDC(DC1); // uvolni nepotrebny DC
Wokno.SaveToFile('D:\test.bmp'); // s Wokno sa da dalej pracovat...
end;
ALL: Da sa to urobit aj jednoduchsie ?Ukonceni programu
[*] Ji�� H�sek - 30.10.2000 19:20:12
Ahoj,
probl�m je jinde. J� nepot�ebuji ukon�it windowsy z m�ho programu, ale aby
se m�j program ukon�il p�i standartn�m ukon�ov�n� Windows
(start,vypnout,...).
On to toti� ned�l� (a neukon�� se ani W) a to m� dost vad�.
Ji�� H�sek
> Ahoj,
> doporu�uji pou��t toto:
>
> var a : cardinal;
> begin
> ExitWindowsEx(EWX_Force,a); // potla�� hl�ky syst�mu
> ExitWindowsEx(EWX_SHUTDOWN,a); // vypnut� W98 i po��ta�e
> end;
>
> to by m�lo tv�j probl�m vy�e�it.
> Petr Nov�k
>
>
> Dne 28. ��jen 2000, <delphi-l(zv)fwd(tec)cz> napsal:
>
> > Zdravim,
> > mam jeden problem. Kdyz chci ukoncit Windows (98) a bezi nejaky muj
program
> > (mam Delphi 5) tak se proste neukonci, stejne jako windowsy. Pokud dam
> > restartovat v rezimu MS-Dos tak mi to napise, neco v tom smyslu, ze
nektery
> > z programu se neukoncil, at ho ukoncim a zkusim to znovu. To stava jen u
> > nekterych programu a ja nemuzu prijit na to, cim to je. Mate s tim nekdo
> > zkusenosti? Mohli byste mi trosim poradit?
> >
> > Jiri Hysek
>Knihovny a dal��? HELP !!!
[*] Delta4 <Delta4(zv)centrum(tec)cz> - 30.10.2000 19:37:28
Cago lidi.
Mam na vas takovej malej vetsi dotaz.
Jsem zacatecnik v Delphi.5 a potreboval bych pomoct, pri tvorbe *.dll - knihoven.
rad bych nacital z techto knihoven program, ale vubec netusim jak na to?
Dalsim problemem je, problem z registry.
Jak mam treba udelat to, ze skryju icony co mam na plose, nebo znepristupnim
slozku tak, aby nesla otevrit. ( nebo staci jen aby v ni nebylo nic videt )?
A posledni problemos, je jak obejit prikaz ALT + F4 docela me to trapi.
Pokud nekdo pomuze budu mu velice vdecnej.
DELTA4.elektronik
Martin Bro�
http://go.to/delta4
Delta4(zv)centrum(tec)cz
Inverze pomoci SQL
[*] Miroslav Evj�k <evjak(zv)atlas(tec)cz> - 30.10.2000 23:01:23
Ahoj,
trivialni zalezitost:
potrebuji v tabulce invertovat pole typu Boolean, tj. aby tam, kde byla
hodnota True, bylo False a naopak. Jak to provest pomoci SQL (lokalne nad
Paradox tabulkou)?
Dekuji za radu.
"Mirecek" Evjak
evjak(zv)atlas(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.09.2000
Menu - napoveda vpravo
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 30.10.2000 23:27:34
Ahoj,
ja pouzivam toto. Mam to z tehle konference. To cislo Items znaci, kolikata
je ta polozka NAPOVEDA v MainMenu1(v mem pripade je TRETI), zacina se totiz
nulou. Tento kod dam do FormCreate a je to.
D4 Standard, W95 OSR2.
ModifyMenu(MainMenu1.Handle,2, mf_ByPosition or
MF_RIGHTJUSTIFY,MainMenu1.Items[2].Handle,
PChar(MainMenu1.Items[2].Caption));
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
> nevite nekdo, jak pres standartni Menu komponentu docilit toho, abych mel
> polozku Napoveda uplne vpravo???
> Nasel jsem v archivu konference:
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> MI: TMenuItemInfo;
> Buffer: array[0..79] of Char;
> begin
> ZeroMemory((zv)MI, Sizeof(MI));
> MI.cbSize := 44; // Win95
> MI.fMask := MIIM_TYPE;
> MI.dwTypeData := Buffer;
> MI.cch := SizeOf(Buffer);
> if GetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, MI) then
> begin
> MI.fType := MI.fType or MFT_RIGHTJUSTIFY;
> if SetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, MI) then
> DrawMenuBar(MainMenu1.WindowHandle);
> end;
> end;
>
> ale vubec tomu nerozumim. Take tam byla zminka o Groupindex - ten mi ale
> nefunguje. Da se to udelat jednoduseji?
> S pozdravem Milan Cizek, amaetrsky programator, D5 Ent
> Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Interface (znovu)
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 30.10.2000 23:30:58
Dobry den,
uz je to nejaky casek, co tu sla nekoli diskusi na tema interface
v Delphi, ale bylo toho trochu moc a hlavne zadny jednotny zaver.
Takze moje otazka:
Vim jak se pouziva interface v jazyce Java pro "nasobne dedeni".
Rad bych toho sameho efektu docilil v Delphi.
Otazka: mam na to pouzit klicove slovo interface ?
zavani to COMem, coz mi z nejakeho duvodu pripada jako kanon na vrabce.
Otazka2: pokud je v pripade pouziti interface nutne udelat z (jinak celkem
pitomych) komponent COM objekty, prinasi to nejaka uskali z hlediska
rychlosti/pametove narocnosti?
Pro informaci:
komponenty, kterym chci dat urcitou spolecnou funkcnost jsou potomci
TLabelu, TEditu apod., takze se mi k nim nechce pribalovat "pulku windows"
Predem dekuji.
S pozdravem,
-- Jan Tomsa (Tomy) tomsa(zv)notia(tec)cz
-- Notia Informacni Systemy s.r.o., V Olsinach 709/45, 100 00 Praha
-- TEL +42-02-67313764 FAX +42-02-67313752 http://www.notia(tec)cz
MS SQL Server - hromadny import / export dat
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 30.10.2000 23:32:18
Zdravim,
opet potrebuji poradit. :-)
Jakym zpusobem je nejvhodnejsi importovat (exportovat) data
do MS SQL Serveru ?
Nejprve jsem zkousel generovat skripty, ktere obsahovaly
prikazy INSERT INTO xxx VALUES (aaa, bbb, ccc, ...), ale je
to pomale.
Pote jsem se dovedel, ze lze pouzit utilitu BCP. Vytvoril jsem
davkovy soubor, ktery obsahuje jeden radek:
bcp Integro..cAU out d:\programm.ing\intesql\cau.txt -c
-t";" -r\n -ed:\programm.ing\intesql\cau.err -b250 -m50
-SMARTIN -Usa -h"TABLOCK"
Tento prikaz za normalnich okolnosti mel exportovat tabulku
cAU do souboru cau.txt. Ale nefunguje.
Program napise nasledujici chybu:
Password:
Starting copy...
SQLState = S1000, NativeError = 0
Error = [Microsoft][ODBC SQL Server Driver][SQL Server]
Code page 852 is not supported by SQL Server
SQLState = S1000, NativeError = 0
Error = [Microsoft][ODBC SQL Server Driver]Unable to resolve
column level collations
BCP copy in failed
CO tahle chyba znamena ??? Je vhodna utilita BCP ? Existuji
jine moznosti importu / exportu dat do / z MS SQL Serveru ?
Predem diky
Martin Pavera
PS: Definice tabulky cAU je nasledujici:
Create table cAU (
Ucet Char(6) NOT NULL,
Nazuctu Char(40) NULL,
Saldo Bit NULL,
Constraint pk_cAU Primary Key (Ucet)
)
MS SQL Server - odchytavani chyb ze serveru na kli
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 30.10.2000 23:32:20
Zdravim,
zase potrebuji poradit. :-) (protoze jsem zacatecnik.)
Neco podobnehe se na teto konferenci probiralo, takze kdybych
se ptal zbytecne, tak se nezlobte.. :-)
Jaky zpusobem lze osetrit na klientovi udalost, kterou generuje
SQL prikaz RAISERROR ?
Jak lze na klientovi reagovat na "massage", ktere vytvari SQL
prikaz PRINT ?
Pouzivam Delphi 5 prof. a Adonis 4.1 trial.
Predem diky.
Martin Pavera
Printer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.10.2000 00:44:33
From: "Surfman" <surfman(zv)volny(tec)cz>
> potrebuju vyvolat dialog vlastnosti tiskarny pomoci API
> a nejak se mi to nedari. Podle dokumentace by to melo
Ahoj,
problem je ve tride TPrinter ktera je pomerne spatne navrzena. Da se to
obejit treba takhle:
uses
WinSpool, Printers;
procedure TForm1.Button3Click(Sender: TObject);
var
PrinterHandle, D3: THandle;
PrinterName: array[0..cchDeviceName] of Char;
D1, D2: array[0..MAX_PATH] of Char;
begin
with Printer do
begin
GetPrinter(PrinterName, D1, D2, D3);
Win32Check(OpenPrinter(PrinterName, PrinterHandle, nil));
end;
try
PrinterProperties(Application.Handle, PrinterHandle);
finally
ClosePrinter(PrinterHandle);
end;
end;
Petr Vones, amatersky programator
Aplikace bez MainForm
[*] voltrr1.epr(zv)mail.cez(tec)cz - 31.10.2000 06:40:53
Zdar,
> Potrebuju napsat aplikaci, ktera bude jen poslouchat na urcitem
> TCP/IP portu a jakmile ji prijdou data, nejak na to zareaguje. Chtel
> bych, aby zabirala co nejmene pameti, takze se chci vyhnout pouziti
fastnet komponenty jsou prilis zamerene na pouziti na formu.
Pro tydle ucely je asi nejlepsi pouzit Synapsi (delphree.clexpert.com) - zaklad
udelal Lukas Gebauer a je primo optimalizovana na takovedle pouziti.
Cau
Radek
Interbase
[*] Kalhous Zden�k RNDr. - 31.10.2000 07:14:52
Jen v�st�el naslepo: tuto chybu mi hl�sil IB klient 6.0 p�i jak�mkoliv
pokusu o pr�ci s datab�z�. Po p�einstalov�n� klienta verze 6.1 je v�e OK.
-----P�vodn� zpr�va-----
Od: Libor Thiel [mailto:thiel(zv)elapsh(tec)cz]
Odesl�no: 12. ��jna 2000 11:18
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Interbase
D�le�itost: Vysok�
Prvne pouzivam databasi a uz jsem z toho jelen:
Potrebuji vytvori dtb a tabulky za chodu - vytvoreni filu probehne OK, ale
pri otevirani dtb mi vraci hlasku "DBP KONSTANT(0) IS UNKNOW" - co to
znamena?
...
begin
if not FileExists(dbPrvni.DatabaseName) then
dbPrvni.CreateDatabase;
with dbCorsa do
begin
Params.Values['USER NAME'] := 'SYSDBA';
Params.Values['PASSWORD'] := 'masterkey';
LoginPrompt := False;
Connected := True;
end;
...
end;
L.MS SQL Server - odchytavani chyb ze serveru na kli
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 31.10.2000 07:31:59
> zase potrebuji poradit. :-) (protoze jsem zacatecnik.)
>
> Neco podobnehe se na teto konferenci probiralo, takze kdybych
> se ptal zbytecne, tak se nezlobte.. :-)
>
> Jaky zpusobem lze osetrit na klientovi udalost, kterou generuje
> SQL prikaz RAISERROR ?
>
> Jak lze na klientovi reagovat na "massage", ktere vytvari SQL
> prikaz PRINT ?
>
> Pouzivam Delphi 5 prof. a Adonis 4.1 trial.
Melo by to na klientovi vyhodit vyjimku, takze normalne pomoci
try..except.
David
Uniceode a IB6
[*] Kalhous Zden�k RNDr. - 31.10.2000 07:39:06
Asi pozde: Teoreticky pouziti Unicode resi vsechny problemy s diakritikou,
prakticky krome toho prinasi nove, jeste vetsi. Viz zde jiz diskutovany
problem diakritiky v ruznych verzich Excelu, nektere web stranky psane v
jave (ta pouziva unicode zasadne) kde autor pri psani zapomel ze nesmi psat
primo diakritiku v kodu 1250 ale /u kody atd. Kdyz zvazim, ze unicode je na
dva byty a kodova stranka na jeden, vystacil bych si zatim s kodovou
strankou a doufal bych, ze dalsi verze treba Excelu (od firmy mrkvosoft)
dokaze poznat kodovani dat Foxky (tez od firmy mrkvosoft) a provede prevod
diakritiky korektne.
-----P�vodn� zpr�va-----
Od: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
Odesl�no: 17. ��jna 2000 9:35
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Uniceode a IB6
Ahoj,
zacinam s IB6 a muj prvni pokus spociva v prepsani jedne aplikace
z MSSQL7 na IB6. Pritom zvazuji, zda pouzit kodovani Win1250
nebo unicode. Co si o tom lidi myslite? Jake mohu ocekavat
technicke obtize? Vyresi pouziti unicode znakove sady v IB6
definitivne problemy s diakritikou?
Pristup bych rad mel pres IBExpress, alespon prozatim.
Dik za jakekoli nazory.
David
Jak zjistit seriove cislo disku ?
[*] Lukas.Gallina(zv)cz.danzas(tec)com - 31.10.2000 07:40:15
Ahoj,
NEPISTE, zasadne NEPISTE programy ktere hlidaji seriova cisla disku a
podobne ptakoviny. Pokud tedy chcete aby to nekdo pouzival. Reknu Vam, ze je
naprosto silene se starat o sit pocitacu kde bezi nejaky takovyto program.
Pokud si budu moci vybrat mezi 2ma programy, z nichz jeden ma HW nebo SW
klic, urcite si vyberu a doporucim k nakupu program bez klice.
S pozdravem
Luk� Gallina
DANZAS a.s. (fili�lka Brno)
INTE
lukas.gallina(zv)cz.danzas.com
tel: +420 (5) 431 253 13
mobil: +420 604 226 812
PS: Je to kapku OFF-TOPIC, ale rici sem to musel....sorry.
-----Original Message-----
From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
Sent: Monday, October 30, 2000 4:11 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Jak zjistit seriove cislo disku ?
Jirka Virt dne 26 Oct 2000, v 19:11:
> a co takhle pouzit HW klic? nebo jeste neco jednodussiho na stejnem
> principu: nestandardne naformatovanou disketu a tu by obsluha musela
> mit , alespon pro zacatek startu programu zasunutou v mechanice.Myslim
> si , ze dost uzivatelu ji tam bude mit natrvalo, protoze jiz delsi
> dobu se mechaniky (3,5)tak bezne nepouzivaji.
Tech disket bych se celkem bal. Duvody:
- Windows 98 nemaji rady nestandardne naformatovane diskety.
- Pokud uzivatel takovou disketu prozene ScanDiskem, je pak
opravdu HODNE nestandardni...
- Diskety se pouzivaji tak malo, ze se urcite setkas s tim,
ze nektery uzivatel ani nebude mit mechaniku (notebooky, skoly).
- Zaznam na diskete neni prave z nejtrvanlivejsich.
Kontrola toho serioveho cisla harddisku by ale mohla byt pomerne
spolehliva, nebo se mylim?
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
IBAdmin
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 31.10.2000 07:47:34
> ahoj,
> zkus todle:
> http://ems-hitech.com/quickdesk/
>
> a posli prosimte url na toho IBADMINa.
>
> > mam stazeny nastroj IBAdmin 3.0 pro administraci IB6. Libi se mi a
> > uvazuji o jeho koupeni. Chci se predtim ale zeptat, zda nekdo
> > nahodou nevite o nejakem podobnem free nastroji
> --- zkraceno ---
>
Ahoj,
QuickDesk jsem mel chvili v ruce, ale necim se mi znelibil a
zavrhnul jsem ho (uz je to dele a nepamatuji se bohuzel, o co slo).
Navic neni free (stejne jako IBAdmin).
IBAdmin ja na www.sqlly.com
David
> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
> |[smtp:petr.palicka(zv)atlas(tec)cz]|
> |[smtp:peca(zv)email(tec)cz] |
> \~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Aplikace bez MainForm
[*] delphi-konf(zv)bcbrno(tec)cz - 31.10.2000 07:57:29
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
Organization: Zahradnicka skola Melnik
To: delphi-l(zv)fwd(tec)cz
Date sent: Mon, 30 Oct 2000 17:19:01 +0100
Subject: Aplikace bez MainForm
Send reply to: delphi-l(zv)fwd(tec)cz
Nepises, pro jaky operacni system to chces napsat. Pokus pises pro Win NT, tak je
nejlepsi napsat sluzbu, ktera formulare vubec nepouziva. Pises-li pro Win 9x, tak mas
dve moznosti.
1. Chces jenom skryt hlavni formular, aby aplikace nebyla videt ma liste, ale nechces
se pripravit o vse, co ti Delphi nabizeji v moznostech jednoduchceho programovani -
potom jenom nastav v OnCreate hlavniho formulare vlastnost ShowMainForm na False.
2. Chces uplne vyradit hlavni formular z duvodu usetreni zdroju a sam si napsat hlavni
smycku aplikacnich zprav, nechces nepouzivat tridu TApplication - potom je nejlepsi
se nechat inspirovat ve zdrojovem kodu tridy TApplication a to, co tato trida za tebe
dela normalne na pozadi, si musis napsat sam.
Ludek Horcicka
> Zdravim,
>
> asi mam hloupou otazku, ale nejak nevim, jak to udelat:
>
> Potrebuju napsat aplikaci, ktera bude jen poslouchat na urcitem
> TCP/IP portu a jakmile ji prijdou data, nejak na to zareaguje. Chtel
> bych, aby zabirala co nejmene pameti, takze se chci vyhnout pouziti
> tForm.
>
> Poradte prosim nekdo, jak takovou aplikaci napsat (zrejme s pouzitim
> komponent FastNet). Asi si budu muset nejak sam osetrit obsluhu
> alespon tech zakladnich udalosti (WM_CLOSE apod.), ale to prave nevim
> - kde a jak.
>
> Diky za kazdy podnet,
>
> Karel Rys
>
> ______ _ ___ Vyssi odborna skola zahradnicka
> \ \/ \_ --- | Stredni zahradnicka skola
> / | | Melnik
> ( | |
> \_ ___/ | e-mail: rys(zv)zas-me(tec)cz
> _/ \\ ______| web: www.zas-me(tec)cz
> \_ / \_/ tel. 0206/623023-5, 0604/846436
> \____/ fax 0206/623009
> .
Inverze pomoci SQL
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 31.10.2000 08:14:32
Miroslav Evj�k dne 30 Oct 2000, v 23:01:
> potrebuji v tabulce invertovat pole typu Boolean, tj. aby tam, kde
> byla hodnota True, bylo False a naopak. Jak to provest pomoci SQL
> (lokalne nad Paradox tabulkou)?
> "Mirecek" Evjak
> evjak(zv)atlas(tec)cz
Mohlo by to jit takto:
UPDATE faktur1.db
SET Pole=cast( (1-cast(Pole as integer)) as boolean)
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
Aplikace bez MainForm
[*] azeleny(zv)csas(tec)cz - 31.10.2000 08:22:21
DDV,
> asi mam hloupou otazku, ale nejak nevim, jak to udelat:
hloupa otazka neexituje, jenom hloupe odpovedi.
> Potrebuju napsat aplikaci, ktera bude jen poslouchat na urcitem
> TCP/IP portu a jakmile ji prijdou data, nejak na to zareaguje. Chtel
> bych, aby zabirala co nejmene pameti, takze se chci vyhnout pouziti
> tForm.
>
> Poradte prosim nekdo, jak takovou aplikaci napsat (zrejme s pouzitim
> komponent FastNet). Asi si budu muset nejak sam osetrit obsluhu
> alespon tech zakladnich udalosti (WM_CLOSE apod.), ale to prave nevim
> - kde a jak.
Mysli, ze na to je idelani SYNAPSE, viz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Oracle Discoverer ...
[*] azeleny(zv)csas(tec)cz - 31.10.2000 08:26:46
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.
Konference k Oracle: oracle(zv)list.zcu(tec)cz <mailto:oracle(zv)list.zcu(tec)cz>
-----Original Message-----
From: Pavel Skalicky [mailto:P.Skalicky(zv)sh.cvut(tec)cz]
Sent: Monday, October 30, 2000 2:06 PM
To: Konference Delphi
Subject: OT: Oracle Discoverer ...
Preji prijemny den,
omlouvam se za OT, ale uz si nevim rady a nevim o zadne konferenci k
produktum Oracle.
Otazka zni:
Jaky uzivatel (jmeno ci prava) muze v Oracle Discovereru zakladat a vlastnit
EUL ?
Mam klasickeho uzivatele s pravy SELECT + CREATE TABLE, PROCEDURE, VIEW,
SESSION a SEQUENCE. Jeden clovek, ktery delal ve starsi verzi OD prohlasil,
ze by to melo stacit, ale ja tu EUL nevytvoril - zarve mi to, ze nejsou
dostatecna prava.
Prosim poradte
diky Pavel
-------------------------------------------------
Pavel Skalick�
e-mail - P.Skalicky(zv)seznam(tec)cz <mailto:P.Skalicky(zv)seznam(tec)cz>
www - http://pts.kvalitne(tec)cz <http://pts.kvalitne(tec)cz>
mobil - 0604 844 698
ICQ - 38169741
Oracle Discoverer ...
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 31.10.2000 08:28:12
Konference Oracle je na
oracle(zv)list.zcu(tec)cz
prihlasovaci adresa je pravdepodobne
listserv(zv)list.zcu(tec)cz
Radim
----- Original Message -----
From: "Pavel Skalicky" <P.Skalicky(zv)sh.cvut(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, October 30, 2000 2:06 PM
Subject: OT: Oracle Discoverer ...
Preji prijemny den,
omlouvam se za OT, ale uz si nevim rady a nevim o zadne konferenci k
produktum Oracle.
Otazka zni:
Jaky uzivatel (jmeno ci prava) muze v Oracle Discovereru zakladat a vlastnit
EUL ?
Mam klasickeho uzivatele s pravy SELECT + CREATE TABLE, PROCEDURE, VIEW,
SESSION a SEQUENCE. Jeden clovek, ktery delal ve starsi verzi OD prohlasil,
ze by to melo stacit, ale ja tu EUL nevytvoril - zarve mi to, ze nejsou
dostatecna prava.
Prosim poradte
diky Pavel
-------------------------------------------------
Pavel Skalick�
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
Aplikace bez MainForm
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 31.10.2000 08:36:50
> > Potrebuju napsat aplikaci, ktera bude jen poslouchat na urcitem
> > TCP/IP portu a jakmile ji prijdou data, nejak na to zareaguje. Chtel
> > bych, aby zabirala co nejmene pameti, takze se chci vyhnout pouziti
> > tForm.
> >
> > Poradte prosim nekdo, jak takovou aplikaci napsat (zrejme s pouzitim
> > komponent FastNet). Asi si budu muset nejak sam osetrit obsluhu
> > alespon tech zakladnich udalosti (WM_CLOSE apod.), ale to prave
> > nevim - kde a jak.
>
> Mysli, ze na to je idelani SYNAPSE, viz
> WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Tak, tak. Synapse umoznuje psat TCP/IP aplikace, aniz bys
potreboval zpracovavat nejake 'messages', tudiz nepotreujes
obsluhovat zadne udalosti...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Knihovny a dal��? HELP !!!
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 31.10.2000 08:42:05
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.
Odpovim jen na tu posledni otazku.
Alt+F4 obejdes tak, ze do OnClose u MainFormu das Action := caNone.
Nebo tam muzes provest rozhodovani. Napr.:
if (muze) then
Action := caClose
else
Action := caNone;
S pozdravem Michal Tiller
-----Original Message-----
From: Delta4 [mailto:Delta4(zv)centrum(tec)cz]
Sent: Monday, October 30, 2000 7:37 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Knihovny a dal��? HELP !!!
Cago lidi.
Mam na vas takovej malej vetsi dotaz.
Jsem zacatecnik v Delphi.5 a potreboval bych pomoct, pri tvorbe *.dll -
knihoven.
rad bych nacital z techto knihoven program, ale vubec netusim jak na to?
Dalsim problemem je, problem z registry.
Jak mam treba udelat to, ze skryju icony co mam na plose, nebo znepristupnim
slozku tak, aby nesla otevrit. ( nebo staci jen aby v ni nebylo nic videt )?
A posledni problemos, je jak obejit prikaz ALT + F4 docela me to trapi.
Pokud nekdo pomuze budu mu velice vdecnej.
DELTA4.elektronik
Martin Bro�
http://go.to/ <http://go.to/delta4> delta4
Delta4(zv)centrum(tec)cz <mailto:Delta4(zv)centrum(tec)cz>
Zatvorenie aplikacie pod NT
[*] Ing. Csaba Kissi <ckissi(zv)email(tec)cz> - 31.10.2000 08:42:14
Zdravim vsetkych.
Mam nasledujuci problem. Na pocitaci s WinNT neustale bezi jeden monitorovaci
program. Potrebujem zabezpecit to aby ho nebolo mozne zatvorit. Program je
hotovy EXE takze nieje mozne sahat do zdrojaku.
EMAIL.CZ - Va�e po�ta je v�dy s V�mi
http://www.email(tec)cz
Wininet - ie cache
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 31.10.2000 08:52:20
Zdravim,
nevite o nejakem priklade pouziti api-funkci z wininet? Jedna se mi o funkce pro praci s internetovou cachi.
Nasel jsem sice (dle rady zde v konf.) komponentu TIECache, ktera by to mela umet, ale pri pouziti mi vzdycky dost destruktivne shodi pocitac :-(( tudiz je nepouzitelna.
Jirka Matejka
jiri.matejka(zv)stemmark(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Co s Registry?!
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 31.10.2000 08:54:22
No ja pouzivam takovyto zpusob prace s registry:
uses Registry;
// Z�pis do Registru
var reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\software\pokus\',true);
try
reg.WriteString('cti', 'Toto je pokusnej string');
finally
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
// �ten� z Registru
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\software\pokus\',true);
try
ShowMessage(reg.ReadString('cti'));
finally
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
Pracuji pod Win98 v Delphi 5. Koukal jsem, ze stejne soubory to vytvari i
nekterym dalsim programum. Napr. AVG. Ale vetsina programu, nic takoveho
nevytvari. Jak to zastavit???
MIKMIK company
Petr Voborn�k - P�tr
vobornik(zv)ssakhk(tec)cz
ICQ: #23132120
www.ssakhk(tec)cz/home/vobornik/
----- Original Message -----
From: Karel Cibulka <kcibulka(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, October 30, 2000 1:56 PM
Subject: Re: Co s Registry?!> On po 30. ��jen 2000 09:56, you wrote:
>
> > Ptam se uz po treti. Jak zabranit tomu, aby se pri
> > pouzivani registru nevytvareli v aktualnim adresari skryte soubory, se
> > stejnymi jmeny, jako maji pouzite reg. klice???
>
> Ahoj,
>
> mozna by nebylo od veci popsat problem podrobneji - na jakem OS to dela,
pri
> jake prilzeitosti (napr. kousek kodu), jake Delphi pouzivas....
>
> Takhle ti asi nikdo poradit nepomuze, osobne jsem se nikdy nesetkal s tim,
ze
> by se pri praci s registry generovaly v systemu soubory se jmeny klicu.
> Problem mozna bude v chybne praci s registry - tady by prave pomohla cast
> kodu, ktera by to mela delat.
>
> --
> <br>
> Cibulka Karel, mailto:kcibulka(zv)seznam(tec)cz, ICQ: 4111110
> <br>
>Zatvorenie aplikacie pod NT
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 31.10.2000 09:15:43
Hmm, to bych si asi spustil 2 procesy, ktere by se hlidaly navzajem
(v pripade ukonceni jednoho by ho druhy opet spustil) a jeden z nich
(treba drive spusteny) by jeste hlidal ten tvuj proces.
> -----P�vodn� zpr�va-----
> Od: Ing. Csaba Kissi [mailto:ckissi(zv)email(tec)cz]
> Odesl�no: 31. ��jna 2000 8:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Zatvorenie aplikacie pod NT
>
>
> Zdravim vsetkych.
>
> Mam nasledujuci problem. Na pocitaci s WinNT neustale bezi
> jeden monitorovaci
> program. Potrebujem zabezpecit to aby ho nebolo mozne
> zatvorit. Program je
> hotovy EXE takze nieje mozne sahat do zdrojaku.
>
>
> EMAIL.CZ - Va�e po�ta je v�dy s V�mi
> http://www.email(tec)cz
> BDE a IB6.0
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 31.10.2000 09:47:12
Pokud vim tak BDE neumi IB 6, takze mas smulu.
> Ahoj,
>
> kdyz jsem tahal IB 6.0, tak jsem nasel a stahnul i IBX komponenty, ale
> BDE neumi do databaze, ktera je v dialect 3 (chtel jsem pouzit
> TBatchMove).
> Musim nekam dopsat, ze chci aby se BDE pripojil pomoci dialect 3
> nebo musim odnekud stahnout update na BDE?
>
> --
> S pozdravem
>
> Ing. Zden�k Havr�nek, HAF mailto:havranek(zv)email(tec)cz
> SEA - Chomutov, s.r.o.
>
> Ve�ker� �innosti v oboru stroj�renstv�, elektrotechniky a automatizace
>
> mailto:sea-cv(zv)volny(tec)cz, http://www.volny(tec)cz/sea-cv
> Tel/fax: +420-396-624048, +420-396-625108, +420-606-507481
> Vikov� Kun�tick� 1935, 430 01 Chomutov, Czech Republic
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
MS SQL Server - hromadny import / export dat
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 31.10.2000 09:48:20
Nejjednodussi je vyuzit Import/Export wizard, ten myslim vytvori balicek DTS
(Data Transformation Services),
u ktereho si muzes i urcit, jak a kdy se ma spoustet. Vykon sluzeb DTS je
srovnatelny jako u bcp, akorat jsou mnohem flexibilnejsi.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Pavera
> Sent: Monday, October 30, 2000 11:32 PM
> To: Delphi konference
> Subject: MS SQL Server - hromadny import / export dat
>
>
> Zdravim,
>
> opet potrebuji poradit. :-)
>
> Jakym zpusobem je nejvhodnejsi importovat (exportovat) data
> do MS SQL Serveru ?
>
> Nejprve jsem zkousel generovat skripty, ktere obsahovaly
> prikazy INSERT INTO xxx VALUES (aaa, bbb, ccc, ...), ale je
> to pomale.
>
> Pote jsem se dovedel, ze lze pouzit utilitu BCP. Vytvoril jsem
> davkovy soubor, ktery obsahuje jeden radek:
>
> bcp Integro..cAU out d:\programm.ing\intesql\cau.txt -c
> -t";" -r\n -ed:\programm.ing\intesql\cau.err -b250 -m50
> -SMARTIN -Usa -h"TABLOCK"
>
> Tento prikaz za normalnich okolnosti mel exportovat tabulku
> cAU do souboru cau.txt. Ale nefunguje.
> Program napise nasledujici chybu:
>
> Password:
>
> Starting copy...
> SQLState = S1000, NativeError = 0
> Error = [Microsoft][ODBC SQL Server Driver][SQL Server]
> Code page 852 is not supported by SQL Server
> SQLState = S1000, NativeError = 0
> Error = [Microsoft][ODBC SQL Server Driver]Unable to resolve
> column level collations
>
> BCP copy in failed
>
> CO tahle chyba znamena ??? Je vhodna utilita BCP ? Existuji
> jine moznosti importu / exportu dat do / z MS SQL Serveru ?
>
> Predem diky
>
> Martin Pavera
>
>
> PS: Definice tabulky cAU je nasledujici:
> Create table cAU (
> Ucet Char(6) NOT NULL,
> Nazuctu Char(40) NULL,
> Saldo Bit NULL,
> Constraint pk_cAU Primary Key (Ucet)
> )
>
>OT: Nabidka prace
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 31.10.2000 10:33:36
Ahoj,
dovoluji si poslat nabidku na praci od naseho zakaznika:
Spole�nost UDIS s.r.o. se s�dlem v Husitsk� ulici, D���n 6, p�ijme do
extern�ho nebo trval�ho pracovn�ho pom�ru program�tora ��d�c�ch syst�m� CNC
stroj� na b�zi PC. Uv�t�me profesn� profil, referen�n� listinu nebo p��padn�
uk�zky realizac� v libovoln� oblasti pod Windows. V�n� z�jemce zveme k
osobn�mu jedn�n� na v��e uvedenou adresu denn� mezi 11-12 hod. Platov�
podm�nky dohodou.
Pokud mate nekdo zajem kontaktujte, prosim, pana Miku na udis(zv)space(tec)cz nebo
me.
S pozdravem Frantisek Sevcik, sevcik(zv)anexis(tec)cz
IB6 - GrantManager
[*] L. ZITA <konference(zv)sales(tec)cz> - 31.10.2000 10:36:34
Zdravim.
Nevite nekdo nahodou o nejakem samostatnem grant manageru
(podobnem jako ma QuickDesk,WorkBench a pod.) pro IB6 ?
Samozrejme idealni by byl free a se zdroji aby se dal zahrnout primo do
aplikace.
Ale neni to podminkou.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Interface (znovu)
[*] Roman LISZKA <liszak(zv)usa(tec)net> - 31.10.2000 10:42:36
Jan Tomsa wrote:
>
> Vim jak se pouziva interface v jazyce Java pro "nasobne dedeni".
> Rad bych toho sameho efektu docilil v Delphi.
> Otazka: mam na to pouzit klicove slovo interface ?
Ano. Ale prace neni tak pohodlna jako v Jave.
> zavani to COMem, coz mi z nejakeho duvodu pripada jako kanon na vrabce.
Nastesti se bez toho COM jde obejit.
> Otazka2: pokud je v pripade pouziti interface nutne udelat z (jinak celkem
> pitomych) komponent COM objekty, prinasi to nejaka uskali z hlediska
> rychlosti/pametove narocnosti?
Nevim, COM nastesti "nepouzivam", presneji o tom nevim.
Pred nedavnem jsem potreboval neco jako Enterprise Java Beans a tak jsem se ponoril do problemu v DELPHI. Posilam cast meho kodu i s komentari:
unit object_container;
interface
uses classes;
const IID_Obj: TGUID = '{00000002-0000-0000-C000-000000000046}'; // vygenerovat vlastni
// vlastni interface, vsechny metody by mely byt stdcall (pise se to v helpu, bez nej jsem to nezkousel)
type IObjInterface=interface
['{00000002-0000-0000-C000-000000000046}'] // nutno opsat, konstantu se mi zde nepodarilo protlacit
procedure _activate;stdcall; // vola se kdyz je objekt aktivizovan
procedure _passivate;stdcall; // vola se kdyz je objekt deaktivizovan
end;
// zjisti, zda objekt ma interface a pripadne jej vrati
function getObjInterface(Instance:TObject; const Intf: TGUID; out Inst):Boolean;
// vynechano
implementation
uses sysutils;
function getObjInterface(Instance:TObject; const Intf: TGUID; out Inst):Boolean;
var // zjisti, zda objekt ma interface, pripadne jej vrati v Inst
Unk: IUnknown;
begin
Result:= ((Instance <> nil) and Instance.GetInterface(Intf, Unk) and
(Unk <> nil) and (Unk.QueryInterface(Intf, Inst) = 0));
end;
// vynechano
end.
A pokud chci volat interface metody objektu, napr. O typy TO, ktery byl deklarovan napr. takto:
TO=class(TPredek,IObjInterface)
public
procedure _activate;stdcall;
procedure _passivate;stdcall;
end;
kde musim definovat vsechny metody z interface, musim si zjistit jeho interface Interf:IObjInterface pomoci volani
getObjInterface(O,IID_Obj,Interf)
a pokud dostanu true, ma tento objekt pozadovane interface IID_Obj, a potom volam napr.
Interf._activate
A to je ode mne vse, nevim, zda jde volat interfacove metody nejak jednoduseji a rad se priucim pripadnymi nazory ostatnich.
--
Ing. Roman LISZKA
Inverze pomoci SQL
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 31.10.2000 11:10:57
A co �set pole = not pole�
-----Original Message-----
From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
Sent: Tuesday, October 31, 2000 8:15 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Inverze pomoci SQL
Miroslav Evj�k dne 30 Oct 2000, v 23:01:
> potrebuji v tabulce invertovat pole typu Boolean, tj. aby tam, kde
> byla hodnota True, bylo False a naopak. Jak to provest pomoci SQL
> (lokalne nad Paradox tabulkou)?
> "Mirecek" Evjak
> evjak(zv)atlas(tec)cz
Mohlo by to jit takto:
UPDATE faktur1.db
SET Pole=cast( (1-cast(Pole as integer)) as boolean)
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
IBAdmin
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 31.10.2000 11:38:57
> QuickDesk jsem mel chvili v ruce, ale necim se mi znelibil a
> zavrhnul jsem ho (uz je to dele a nepamatuji se bohuzel, o co slo).
> Navic neni free (stejne jako IBAdmin).
Free neni ani IBWorkbench o kterem tu byla nedavno rec. Nyni je k
dispozici zdarma beta, ale myslim, ze je casocve limitovana a
ostra verze ma byt za penize (200-300$) navic se mi zda, ze
IBAdmin je lepsi.
Jediny obdobny free program na ktery jsem narazil je IBAccess
(je open source www.ibaccess.org) ovsem zatim nic neumi, resp.
urcite toho umi mene nez IBConsole.
Jiri Binder