Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prosim poradte - Delphi Personal
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 23.7.2003 08:37:49
On 23 Jul 2003 at 5:53, ing. Jan Fiala wrote:
> > Delphi Personal 6 a take Delphi Personal 7, ktere jsou pro
> > tomu, ze je tato verze zdarma). Muzete mi rici, zda pujde vytvorit
> > plnohodnotny program i s nejakou databazi, treba pres BDE nebo
> > Interbase, MySQL atd. Daji se pouzit ruzne komponenty, ktere se daji
> > stahnout z internetu a jsou free ?
>
> Delphi Personal neobsahuje implementaci TDataset, takze s databazemi
> pomoci standardnich Delphi komponent toho moc neporidis.
Pred casem jsem napsal OLE DB komponenty pro praci s databazemi.
Komponenty jsou odladeny proti MS SQL (MSDE), nepotrebuji TDataset,
takze mohou pracovat i v Delphi Personal. Odladil jsem i spolupraci s
tiskovymi komponentami Sinea (je treba dokoupit, u Siney).
Vyvoj jsem uz ukoncil, protoze mam jine priority. Ale pokud se tim
nekdo bude chtit prokousat je to k dispozici zde:
http://delphree.clexpert.com/pages/projects/oledb/default.htm
S pozdravem
Zbysek Hlinka
Prosim poradte - Delphi Personal
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 23.7.2003 07:21:44
Verziu Personal som uz dost dlho nevidel, ale ak sa dobre pamatam, tak
tam bolo len prepojenie na BDE local. Interbase a MySQL su az vo vyssich
verziach. Popisovany program, by sa mal dat urobit. V pripade potreby
napojenia aj na inu databazu ako je Paradox alebo dBase, je potrebne
stiahnut si free komponenty z internetu. Najlepsie z www.torry.net a
dalsie zdroje najdes na community.borland.com.
Personal ma hlavne obmedzenia v praci s internetom. Na vytvorenie tvojho
programu mas v personal verzii najlepsie pouzit Paradox databazu.
Peter Ondras - www.ondras.sk
peter.ondras(zv)pse.sk
(+421) 0904 421 925
Pro zacatek jde o program pro zadavani polozek
>: do
>: databaze (datum, nazev, druh, kusy atd.). Potrebuji to pro sve
soukrome
>: ucely. Mam CD z casopisu kde bylo Delphi Personal 6 a take Delphi
>: Personal
>: 7, ktere jsou pro nekomercni ucely zdarma. Nevim vsak, jestli pujde
>: Muzete mi rici, zda pujde vytvorit plnohodnotny program i s nejakou
>: databazi, treba pres BDE nebo Interbase, MySQL atd. Daji se pouzit
ruzne
>: komponenty, ktere se daji stahnout z internetu a jsou free ?
>: Pripadne jaka omezeni jsou spojena s verzi Personal a jakou databazi
muzu
>: pro takoveto jednoduche ucely pouzit ?
Defaultni pozice pro dockovana okna
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 23.7.2003 07:01:43
Trochu to upresnim.
Pouzivam nejake kompnenty. Pri ulozeni pozice oken do registru se ulozi
nejen pozice ale i nejaka binarni dat (nevim co v nich je). A ty se pak
nacitaji nejak takto: DockManager.LoadFromStream(ms);.
Nyni pouzivam pri prvnim spusteni:
form1.ManualDock(dockpanel1, nil, albottom);
form2.ManualDock(dockpanel1, nil, altop);
form3.ManualDock(dockpanel1, nil, alright);
form4.ManualDock(dockpanel1, nil, alrigh);
To mi sice zadokuje okna na pozice kam chci. Ale jeste bych potreboval
urcit jak ma byt ktere okno velke. A to se mi nechce podarit. Uz opravdu
nevim co s tim.
Ing. Jan Netrval
PilsCom,s.r.o. www.pilscom(tec)cz
Houskova 16
32600 Plzen (Pilsen) Czech Republic
Tel.:+420 377 441 306
GSM: +420 603 851 391
e-mail: jnetrval(zv)pilscom(tec)cz
-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)wo(tec)cz]
Sent: Wednesday, July 23, 2003 5:54 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Defaultni pozice pro dockovana okna
22.7.2003 Zdenek Telicka:
>>Mam program kde pouzivam dokovani oken. Zajimalo by me jak nastavit
>>uplne prvotni pozice pri prvnim spusteni. Pro dalsi spusteni je jiz
>>vsechno nacteno z registru to je OK.
> Kdyz si do registru ulozite pozice tech oken a umite je pak nastavit,
> tak si udelejte funkci, ktera okna nastavi pouze pri prvnim spusteni
> programu. JEstli sem spravne pochopil problem.
Prvni zadokovani (po spusteni programu) lze provest pomoci funkce
ManualDock()
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prosim poradte - Delphi Personal
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 23.7.2003 05:53:38
22.7.2003 l.sedlacek(zv)seznam(tec)cz:
> Dobry den,
> potreboval bych poradit.
> Chtel bych zacit programovat v Delphi, mam konkretni predstavu o programu,
> ktery bych chtel vytvorit. Pro zacatek jde o program pro zadavani polozek do
> databaze (datum, nazev, druh, kusy atd.). Potrebuji to pro sve soukrome
> ucely. Mam CD z casopisu kde bylo Delphi Personal 6 a take Delphi Personal
> 7, ktere jsou pro nekomercni ucely zdarma. Nevim vsak, jestli pujde takovyto
> program v teto verzi Delphi Personal vytvorit. Kdyz jsem se dival na stranky
> www.borland(tec)cz, tak v porovnanich jednotlivych verzi (personal, profesional,
> enterprise) se mi zdalo, ze u verze personal je oznacenych minimum polozek
> (coz je samozrejme logicke vzhledem k tomu, ze je tato verze zdarma).
> Muzete mi rici, zda pujde vytvorit plnohodnotny program i s nejakou
> databazi, treba pres BDE nebo Interbase, MySQL atd. Daji se pouzit ruzne
> komponenty, ktere se daji stahnout z internetu a jsou free ?
> Pripadne jaka omezeni jsou spojena s verzi Personal a jakou databazi muzu
> pro takoveto jednoduche ucely pouzit ?
Delphi Personal neobsahuje implementaci TDataset, takze s databazemi
pomoci standardnich Delphi komponent toho moc neporidis.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Defaultni pozice pro dockovana okna
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 23.7.2003 05:53:38
22.7.2003 Zdenek Telicka:
>>Mam program kde pouzivam dokovani oken. Zajimalo by me jak nastavit
>>uplne prvotni pozice pri prvnim spusteni. Pro dalsi spusteni je jiz
>>vsechno nacteno z registru to je OK.
> Kdyz si do registru ulozite pozice tech oken a umite je pak nastavit,
> tak si udelejte funkci, ktera okna nastavi pouze pri prvnim spusteni
> programu. JEstli sem spravne pochopil problem.
Prvni zadokovani (po spusteni programu) lze provest pomoci funkce ManualDock()
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Jak nasilne ukoncit thread s databazi?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2003 00:41:19
From: "Matej K" <matej.k11(zv)seznam(tec)cz>
> nejakou dobu se trapim s threadovanim a kdyz uz to funguje, tak ho neumim
> nasilne ukoncit.
Preruseni behu musi umet ten kod ktery volas, tedy databaze. Nechapu ze
vetsina SQL serveru takovou na prvni pohled samozrejmou vec neumoznuje.
Petr Vones
DBExpress - SQLConnection - Params.
[*] Sedlak Zdenek <konf(zv)seus(tec)cz> - 22.7.2003 23:35:15
Ahoj,
resim db aplikaci pomoci DBExpress (konkretne na FB a SQLite).
Pripojeni do databaze provadim pomoci instance tridy TSQLConnection, urcim
prislusny DRIVER, parametry spojeni vycistim a doplnim v kodu sve (database,
user, password, rolename...). Pak zavolam metodu OPEN. A vse je v poradku.
Problem mi nastava, pokud chci pozdeji pouzit tento "Objekt" tak, ze jej
uvedu jako jeden z atributu objektu SQLQuery, tak najednou zjistim, ze tam
tomtez SQLConnection.params nejsou ty me hodnoty! Jak je to mozne?
A take zjistim, ze connected je false, prestoze mam odchycene
AfterDisconnect i BeforeDisconnect a tyto udalosti nejsou vyvolany. Jakto,
ze se to odpojilo?
Jedine pokud uvedu u SQLConnection do params primo v designu spravne udaje,
tak mi jde i pozdejsi pouziti napr. v SQLQuery.
Jak mam udelat sve pripojeni v kodu, aby se zachovalo? (Laboroval jsem take
s KeepConnection a LoadParamsOnConnect a nikam to nevedlo). Napada me snad
jen vytvorit vlastni pripojeni v DBXConnections.ini, ale to se mi take moc
nechce, rad bych si sve pripojeni ovladal v programu.
(Vim, ze tu nekdo psal, ze je potreba uvadet parametry ve spravnem poradi,
ale ani to mi nepomohlo)
Jo, a pouzivam D6Pro, W2k
diky za napady
Zdenek Sedlak
Kuryrni sluzba Windows v DELPHI
[*] tondrej(zv)t-online.de - 22.7.2003 23:35:14
> myslene bolo ci funkcia je pouzitelna aj vo Win98. Tj. ak stanice v
> NT sieti su W98
Mam podozrenie, ze konkretne ta API funkcia na Win9x nie je (mimochodom, Win9x
pouziva 16-bitovu netapi.dll, takze kvoli volaniu tych par funkcii, ktore tam
su, treba pouzit thunking).
Potom by sa to snad dalo obist priamym zapisom do toho mailslotu na vzdialenom
NT stroji.
HTH
TOndrej
Prosim poradte - Delphi Personal
[*] l.sedlacek(zv)seznam(tec)cz - 22.7.2003 23:39:15
Dobry den,
potreboval bych poradit.
Chtel bych zacit programovat v Delphi, mam konkretni predstavu o programu,
ktery bych chtel vytvorit. Pro zacatek jde o program pro zadavani polozek do
databaze (datum, nazev, druh, kusy atd.). Potrebuji to pro sve soukrome
ucely. Mam CD z casopisu kde bylo Delphi Personal 6 a take Delphi Personal
7, ktere jsou pro nekomercni ucely zdarma. Nevim vsak, jestli pujde takovyto
program v teto verzi Delphi Personal vytvorit. Kdyz jsem se dival na stranky
www.borland(tec)cz, tak v porovnanich jednotlivych verzi (personal, profesional,
enterprise) se mi zdalo, ze u verze personal je oznacenych minimum polozek
(coz je samozrejme logicke vzhledem k tomu, ze je tato verze zdarma).
Muzete mi rici, zda pujde vytvorit plnohodnotny program i s nejakou
databazi, treba pres BDE nebo Interbase, MySQL atd. Daji se pouzit ruzne
komponenty, ktere se daji stahnout z internetu a jsou free ?
Pripadne jaka omezeni jsou spojena s verzi Personal a jakou databazi muzu
pro takoveto jednoduche ucely pouzit ?
Budu vdecny za kazdou radu nebo vasi zkusenost.
Predem diky
ClientDataset a trideni
[*] Sedlak Zdenek <konf(zv)seus(tec)cz> - 22.7.2003 23:21:13
Ahoj,
pracuji s DBExpress a nyni pouzivam Clientdatasety. Vim, ze nekteri z vas
take pouzivaji ClientDatasety a proto bych se zeptal jak resite pripadne
trideni. Nenam na mysli potrebu vhodnost vytvoreni indexu a pak jejich
prepinani versus dynamicke indexy (jen seznam sloupcu). Kazda metoda ma sve
pro i proti.
Me ale zajima, jak resite trideni retezcu podle CZ normy? (nebo ne uplne
podle normy, ale alespon CH a nabodenicka). Mate s tim nejake zkusenosti?
Nenasel jsem zpusob jak to udelat, nejlepe kdyby byla nejaka eventa OnSort
nebo tak :))
diky za napady
Zdenek Sedlak
Kuryrni sluzba Windows v DELPHI
[*] spisiak <spisiak(zv)zoznam.sk> - 22.7.2003 23:03:12
myslene bolo ci funkcia je pouzitelna aj vo Win98. Tj. ak stanice v NT sieti
su W98
> Nie som si vedomy toho, ze by na Win9x/Me fungovala vobec nejaka sluzba.
> Pokial viem, services su az na NT a vyssie.
>
> HTH
> TOndrej
>
>
>Defaultni pozice pro dockovana okna
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 22.7.2003 22:49:11
Hezky den,
Kdyz si do registru ulozite pozice tech oken a umite je pak nastavit,
tak si udelejte funkci, ktera okna nastavi pouze pri prvnim spusteni
programu. JEstli sem spravne pochopil problem.
S pozdravem
Zdenek Telicka
Jan Netrval wrote:
>Dobry den
>
>Mam program kde pouzivam dokovani oken. Zajimalo by me jak nastavit
>uplne prvotni pozice pri prvnim spusteni. Pro dalsi spusteni je jiz
>vsechno nacteno z registru to je OK.
>
>Ing. Jan Netrval
>PilsCom,s.r.o. www.pilscom(tec)cz
>Houskova 16
>32600 Plzen (Pilsen) Czech Republic
>Tel.:+420 377 441 306
>GSM: +420 603 851 391
>e-mail: jnetrval(zv)pilscom(tec)cz
>
>
>
>
Mobily, PDU a SMS
[*] MarekFi <marekfi(zv)centrum(tec)cz> - 22.7.2003 22:33:10
Raul Endymion wrote:
> Zdar,
> mam problem prijimam sms z mobilu, tam me vse funguje na torrym jsem nasel nejake fce pdu2text a text2pdu, prijimani beha dobre (mobil je siemens s35), ale odeslat nejsem schopen nic...
> v dokumentaci se pise :
>
> 'AT=CMGS='+ length + #13 + 'PDUcode' + CTRL+Z
>
Ahoj!
Nejdrive posles 'AT+SMGS=' + delka +#13
pokud je vsechno v poradku tak Ti mobil posle znak '>' a ted teprve posles ty data v PDU
s CTRL+Z na konci.
Marek
OT: Celni program Kobler
[*] vorlicek(zv)ders(tec)cz - 22.7.2003 21:27:06
Zdravim vespolek,
nevi nekdo v cem je napsany program viz SuBJ? Mam soubor z tohoto programu a
je na nem poskozeny index. Nevite nekdo co s tim?
Diik za kazdou radu
Jaroslav Vorlicek
ADO a kompakt mdb databazy
[*] Petr Langer <langer(zv)xdom(tec)cz> - 22.7.2003 19:06:57
Udelej si import Microsofti COM knihovny ADOX, tam by to melo byt. Popis v
MSDN.
HTH,
Petr Langer
----- Original Message -----
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
Subject: ADO a kompakt mdb databazy
> Uz nejaku dobu hladam sposob ako skomprimovat databazu MS Access 2000,
XP
> pomocou komponent ADO z Deplhi 7 Enterprise. V archive konferencii som
> nasiel sposob komprimacie pomocou komponent DAO, JRO, ... Je mozne bez
> pouzitia cudzich komponent skomprimovat databazu ?
> Provider=Microsoft.Jet.OLEDB.4.0; Vopred dakujem za pomoc.
>
> Vlado
IB/FB Problem s normalnim selectem
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 22.7.2003 18:20:48
Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> wrote:
> nevite nekdo , co je toto za chybu a jak se ji muzu zbavit ?
>
> Too many concurrent executions of the same request
>
Zacykleni v triggeru (napr. v after update se dela update nejake
jine tabulky, ktera v after update dela update te prvni tabulky)
nebo v ulozene procedure.
Martin Schayna
ADO a kompakt mdb databazy
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 22.7.2003 18:36:55
Ahoj
Uz nejaku dobu hladam sposob ako skomprimovat databazu MS Access 2000, XP
pomocou komponent ADO z Deplhi 7 Enterprise. V archive konferencii som
nasiel sposob komprimacie pomocou komponent DAO, JRO, ... Je mozne bez
pouzitia cudzich komponent skomprimovat databazu ?
Provider=Microsoft.Jet.OLEDB.4.0; Vopred dakujem za pomoc.
S pozdravom
Vlado
Kuryrni sluzba Windows v DELPHI
[*] tondrej(zv)t-online.de - 22.7.2003 18:18:48
> Funguje tato sluzba aj na Win98?
Nie som si vedomy toho, ze by na Win9x/Me fungovala vobec nejaka sluzba.
Pokial viem, services su az na NT a vyssie.
HTH
TOndrej
IB/FB Problem s normalnim selectem
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 22.7.2003 17:22:45
Zdravim vespolek,
nevite nekdo , co je toto za chybu a jak se ji muzu zbavit ?
Too many concurrent executions of the same request
------ Performance info ------
Prepare time = 10ms
Execute time = 0ms
Current memory = 20 848 596
Max memory = 20 977 708
Memory buffers = 2 048
Reads from disk to cache = 4
Writes from cache to disk = 0
Fetches from cache = 374 010
Diik
Jaroslav Vorlicek
Treeview ???Oprava
[*] martin.ben(zv)ge(tec)com - 22.7.2003 16:50:42
var
i: integer;
begin
Memo1.Lines.Clear;
for i := 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items[i].Level = 0 then
Memo1.Lines.Add(TreeView1.Items[i].Text);
end;
Martin Ben
-----Original Message-----
From: KinDRik [mailto:kindrik(zv)centrum(tec)cz]
a ja potrebuju aby mi ta f-ce rekla ze tam jsou 3 hlavni vetve
plus jejich jmena
Kuryrni sluzba Windows v DELPHI
[*] spisiak <spisiak(zv)zoznam.sk> - 22.7.2003 16:50:42
Ahoj,
Funguje tato sluzba aj na Win98?
kaSi
----- Original Message -----
From: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 22, 2003 9:12 AM
Subject: Re: Kuryrni sluzba Windows v DELPHI
> > Jak lze v delphi odeslat a vyuzit kuryrni sluzba pro posilani zprav?
> > Pomoci prikazove radky to jde udelat:
> > net send jmeno_PC zprava
> >
> > ale kdyz to takto spoustim, tak problikava DOS okno.
> >
> > Lze to zavolat pomoci nejakych API, abych nemusel pouzivat
> > command prompt?
>
> function NetMessageBufferSend(servername, msgname, fromname: PWideChar;
buf:
> Pointer; buflen: DWORD): Integer; stdcall;
> external 'netapi32.dll';
>
> priklad, ktory mi tu funguje:
>
> var
> P: PWideChar = 'Hello, world!';
> NetResult: Integer;
>
> NetResult := NetMessageBufferSend(nil, 'ONDREJ', nil, P, 28);
>
> 'ONDREJ' je meno stroja, kam som to poslal.
> Podrobnosti najdes v dokumentacii MS.
>
> HTH
> TOndrej
>
>Mobily, PDU a SMS - ODBC driver pro FlashFiler
[*] likeapear(zv)centrum(tec)cz - 22.7.2003 16:48:42
Opravim se sam.
Takhle se to urcite nepise: Proffesional ;)
||| likeapear
----- Original Message -----
From: <likeapear(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 22, 2003 3:04 PM
Subject: Re: Mobily, PDU a SMS - ODBC driver pro FlashFiler
> Mozna neni od veci se podivat do Async Proffesional 4 od TurboPower (nyni opensource) a je tam
>prechod zo zeos 5 na 6
[*] Vlko II. <vlko(zv)zilina(tec)net> - 22.7.2003 15:40:37
Pretoze vyvoj ide dopredu a clovek nechce zaostavat presiel som aj ja z
zeos (zeosdbo 6.0.10).
Vsetko funguje v poriadku az na to, ze sa spravne nezobrazuju znaky, teda
tie nase narodne.
Ma niekto skusenosti ako to zmenit naspat?
( win 2000 sp3, delphi 7, databaza posgresql beziaca na linuxovom stroji
(slackware) )
--
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
messagebox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2003 15:42:38
From: "hlavki(zv)medium13" <hlavki(zv)medium13.sk>
> To je vseobecny trend??? Je v niecom MessageDlg horsia ako
> Application.MessageBox???
MessageDlg se nechova standardne.
Petr Vones
Treeview ???
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 22.7.2003 15:00:29
Zdravim
pujdu rovnou k veci .
Jak zjistit kolik "vetvi" je v treeview
myslim tim v rootu .
napr
strom
- 1
messagebox
[*] hlavki(zv)medium13 <hlavki(zv)medium13.sk> - 22.7.2003 15:02:29
PV> Ne. Pouzivej vsude Application.MessageBox misto MessageDlg.
To je vseobecny trend??? Je v niecom MessageDlg horsia ako
Application.MessageBox???
dik, miso
Treeview ???Oprava
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 22.7.2003 15:02:29
nechtene sem odeslal nedokonceny e-mail tady je oprava
strom asi priblizne vypada takto
1
2
3
x
1
2
u
46
12
a ja potrebuju aby mi ta f-ce rekla ze tam jsou 3 hlavni vetve
plus jejich jmena
uf doufam ze sem to napsal srozumitelne.
Predem diky za nakopnuti
Jiri B.
Delphi7 , winXP
Mobily, PDU a SMS - ODBC driver pro FlashFiler
[*] likeapear(zv)centrum(tec)cz - 22.7.2003 15:04:30
Mozna neni od veci se podivat do Async Proffesional 4 od TurboPower (nyni opensource) a je tam
nejaka komponenta, ktera by to mela resit cele. Me sice nefunguje, ale PDU-kodovani a dekodovani tam
najdes (a funguje ;).
BTW Kdyz uz jsme u tech TurboPower: nevite nekdo zda se nejak zmenila situace ohledne uvolneni ODBC
driveru pro FlashFiler?
||| likeapear
----- Original Message -----
From: "Raul Endymion" <raul(zv)raphael(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 22, 2003 12:32 PM
Subject: Mobily, PDU a SMS
> Zdar,
> mam problem prijimam sms z mobilu, tam me vse funguje na torrym jsem nasel nejake fce pdu2text a
text2pdu, prijimani beha dobre (mobil je siemens s35), ale odeslat nejsem schopen nic...
> v dokumentaci se pise :
Kuryrni sluzba Windows v DELPHI
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 22.7.2003 15:08:30
> Existuje i nejaky zpusob odchyceni prichozi zpravy tak,
> aby se neobjevilo standardni okynko Kuryrni sluzba, ale
> abych si na zpravu mohl reagovat po svem?
Myslim, ze sa jedna o mailslot '\\.\mailslot\messngr', ktory je sledovany
sluzbou 'Messenger', beziacou na stroji prijemcu.
API NetMessageBufferSend interne zrejme jednoducho pise do mailslotu
'\\<computername>\mailslot\messngr'.
HTH
TOndrej
Treeview ???
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.7.2003 15:14:31
From: "KinDRik" <kindrik(zv)centrum(tec)cz>
> Jak zjistit kolik "vetvi" je v treeview
> myslim tim v rootu .
Tak, ze si je spocitas, napr. v cyklu
Node := TreeView.GetFirstNode;
while Assigned(Node) do
begin
...
Node := Node.GetNextSibling;
end;
HTH, pf
messagebox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2003 14:38:27
From: "Rastislav Lazan" <lazan(zv)davidplus.sk>
> Funguje doleuvedene aj pre funkciu MessageDlg?
> Ak ano, ako?
Ne. Pouzivej vsude Application.MessageBox misto MessageDlg.
Petr Vones
IB/FB SQL Blob INSERT/UPDATE
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 22.7.2003 14:30:26
Zdravim vespolek,
potreboval bych, kdyby mi nekdo poradil s typem BLOB na IB/FB.
Mam v jedne tabulce ulozene pole typu BLOB a subtypu BINARY. Potreboval bych
ho nejakym elegantnim zpusobem dostat pomoci pohledu (vytvarim zmenovy
script z databaze) a opet ho pomoci SQL scriptu nejlepe pomoci nejakeho
INSERT a UPDATE poslat do databaze. Potreboval bych to do tela stored
procedury. Priklad scriptu:
EXCECUTE PROCEDURE SP_MOJE_PRIDEJ(IDKAM,nejakzapsanyBLOB)
Nevim, jak mam dotazem vygenerovat SQL script, ktery v sobe bude obsahovat
polozku typu BLOB BINARY. Jde to vubec?
Predem diiiky za kazde postrceni kupredu
Jaroslav Vorlicek
Mobily, PDU a SMS
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.7.2003 14:02:24
>A nemohl by si me jeste rict jakym zpusobem se zakoduje SMSka tzn telo
>zpravy s cislem kam dorucit ? s tvou zpravou jsem to jakztakz rozchodil,
>akorat nevim jak ji zmenit....
Asi skoro nejprehlednejsi popis:
http://www.dreamfabric.com/sms/
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Mobily, PDU a SMS
[*] Blazek Jaroslav <jaroslav.blazek(zv)access-it(tec)cz> - 22.7.2003 13:34:22
Ahoj,
> raul(zv)raphael(tec)cz 07/22 12:32 odp. >>>
>mam problem prijimam sms z mobilu, tam me vse funguje na torrym
> jsem nasel nejake fce pdu2text a text2pdu, prijimani beha dobre
> (mobil je siemens s35), ale odeslat nejsem schopen nic...
>v dokumentaci se pise :
>'AT=CMGS='+ length + #13 + 'PDUcode' + CTRL+Z
>nevim neco delam spatne, budto me ta funkce blbe spocita PDU,
>nebo mam spatne to CTRL+Z (na netu jsem nasel ze je to #$1a, ale nevim to jiste)...
http://www.dreamfabric.com/sms/
priklad tel. cislo 420605813644 - Hello world
PDUMsg := '11000C912460501863440000AA0BC8329BFD06DDDF723619';
ComPort.WriteStr('AT+CMGS=' + IntToStr(Length(PDUMsg) div 2) + #13);
Sleep(100);
ComPort.WriteStr(PDUMsg + #26);
Sleep(xxxx);
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Mobily, PDU a SMS
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 22.7.2003 13:02:19
Jasne to byl preklep..
> Ahoj
>
> > 'AT+CMGS='+ length + #13 + 'PDUcode' + CTRL+Z
>
> AT+CMGS
Mobily, PDU a SMS
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 22.7.2003 13:50:23
A nemohl by si me jeste rict jakym zpusobem se zakoduje SMSka tzn telo zpravy s cislem kam dorucit ? s tvou zpravou jsem to jakztakz rozchodil, akorat nevim jak ji zmenit....
>
> Viz priklad:
>
> 07 - ano, mame cislo SMScentra
> 91 - styl cislovani
> 24 60 30 50 02 00 - tel. cislo SMS centra (420603052000 pro TM)
> 11000C912470777727960000AB0FD4F29CFEB687C769D0B4395D8747 - SMSka - tuto
> delku bereme
>
> 2003-07-22 12:57:13 750 Selecting SMS to send.
> 2003-07-22 12:57:13 750 * Sending text SMS
> 2003-07-22 12:57:13 750 * ID: 385040
> 2003-07-22 12:57:13 750 * Dest: +420777777269
> 2003-07-22 12:57:13 750 * Text: Testovaci SMSka
> 2003-07-22 12:57:13 750 *** Sending PDU SMS:
> 079124603050020011000C912470777727960000AB0FD4F29CFEB687C769D0B4395D8747
> 2003-07-22 12:57:13 750 *** PDU-len = 36 octets
> 2003-07-22 12:57:13 750 *** SCA-len = 8 octets
> 2003-07-22 12:57:13 750 *** DATA = 28 octets
> 2003-07-22 12:57:13 750 > AT+CMGS=28
> 2003-07-22 12:57:15 750 < >
> 2003-07-22 12:57:15 750 >
> 079124603050020011000C912470777727960000AB0FD4F29CFEB687C769D0B4395D8747
> 2003-07-22 12:57:18 750 < +CMGS: 162
> 2003-07-22 12:57:18 750 * msgref=162
Mobily, PDU a SMS
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.7.2003 13:02:19
>mam problem prijimam sms z mobilu, tam me vse funguje na torrym jsem nasel
>nejake fce pdu2text a text2pdu, prijimani beha dobre (mobil je siemens
>s35), ale odeslat nejsem schopen nic...
>v dokumentaci se pise :
>
>'AT=CMGS='+ length + #13 + 'PDUcode' + CTRL+Z
>
>nevim neco delam spatne, budto me ta funkce blbe spocita PDU, nebo mam
>spatne to CTRL+Z (na netu jsem nasel ze je to #$1a, ale nevim to jiste)...
>
>
>Muzete mi nekdo poradit, prosel jsem archiv, ale nic nemohu poradnyho najit...
co se tyce delky, ma tam byt delka bez cisla SMScentra - tedy minimalne bez
prvnich dvou znaku (prvni byte) a eventuelne i delky cisla SMS centra,
pokud je uvedeno.
Viz priklad:
07 - ano, mame cislo SMScentra
91 - styl cislovani
24 60 30 50 02 00 - tel. cislo SMS centra (420603052000 pro TM)
11000C912470777727960000AB0FD4F29CFEB687C769D0B4395D8747 - SMSka - tuto
delku bereme
2003-07-22 12:57:13 750 Selecting SMS to send.
2003-07-22 12:57:13 750 * Sending text SMS
2003-07-22 12:57:13 750 * ID: 385040
2003-07-22 12:57:13 750 * Dest: +420777777269
2003-07-22 12:57:13 750 * Text: Testovaci SMSka
2003-07-22 12:57:13 750 *** Sending PDU SMS:
079124603050020011000C912470777727960000AB0FD4F29CFEB687C769D0B4395D8747
2003-07-22 12:57:13 750 *** PDU-len = 36 octets
2003-07-22 12:57:13 750 *** SCA-len = 8 octets
2003-07-22 12:57:13 750 *** DATA = 28 octets
2003-07-22 12:57:13 750 > AT+CMGS=28
2003-07-22 12:57:15 750 < >
2003-07-22 12:57:15 750 >
079124603050020011000C912470777727960000AB0FD4F29CFEB687C769D0B4395D8747
2003-07-22 12:57:18 750 < +CMGS: 162
2003-07-22 12:57:18 750 * msgref=162
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Defaultni pozice pro dockovana okna
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 22.7.2003 13:06:20
Dobry den
Mam program kde pouzivam dokovani oken. Zajimalo by me jak nastavit
uplne prvotni pozice pri prvnim spusteni. Pro dalsi spusteni je jiz
vsechno nacteno z registru to je OK.
Ing. Jan Netrval
PilsCom,s.r.o. www.pilscom(tec)cz
Houskova 16
32600 Plzen (Pilsen) Czech Republic
Tel.:+420 377 441 306
GSM: +420 603 851 391
e-mail: jnetrval(zv)pilscom(tec)cz
Jak nasilne ukoncit thread s databazi?
[*] Matej K <matej.k11(zv)seznam(tec)cz> - 22.7.2003 13:06:20
Ahoj,
nejakou dobu se trapim s threadovanim a kdyz uz to funguje, tak ho neumim nasilne ukoncit. Vytvarim
suspendovany thread (obsahuje TOracleDataSet, pripojeny na TOracleSssion s promennou ThreadSafe na
true) , na tomto suspendovanem threadu nastavim nejake jeho promenne a zavolam "Resume". Nasledne se
promenne aplikuji do TOracleDataSet a tento potom oteviram. Marne se snazim takto rozbehnuty thread
nejak "zabit" driv, nez skonci dotaz na databazi. (Kdyz je dotaz na 5 minut, tak bych ho chtel po 10
sekundach proste ukoncit)
Jsem v koncich, dekuji za jakoukoliv radu.
Matej
messagebox
[*] Rastislav Lazan <lazan(zv)davidplus.sk> - 22.7.2003 13:18:21
Funguje doleuvedene aj pre funkciu MessageDlg?
Ak ano, ako?
----- Original Message -----
From: "Jiri Virt" <virt(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 18, 2003 10:36 AM
Subject: Re: messagebox
> if Messagebox(form1.handle,'Chcete to opravdu
> udelat?','Dotaz',MB_YESNO+MB_DEFBUTTON2)=IDNO then exit;
>
>
> MB_DEFBUTTON1
> MB_DEFBUTTON2
> MB_DEFBUTTON3
> MB_DEFBUTTON4
>
> Jirka
>
>
>
Mobily, PDU a SMS
[*] Peter Surovy <psurovy(zv)uevora.pt> - 22.7.2003 12:56:19
Ahoj
----- Original Message -----
From: "Raul Endymion" <raul(zv)raphael(tec)cz>
Sent: Tuesday, July 22, 2003 11:32 AM
> 'AT=CMGS='+ length + #13 + 'PDUcode' + CTRL+Z
-- teda ak to nie je preklep jednu chybicku mas tu:
AT=CMGS ... spravne ma byt
AT+CMGS
PS
Kuryrni sluzba Windows v DELPHI
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 22.7.2003 12:48:18
Ahoj,
Existuje i nejaky zpusob odchyceni prichozi zpravy tak,
aby se neobjevilo standardni okynko Kuryrni sluzba, ale
abych si na zpravu mohl reagovat po svem?
Dekuji za odpovedi
Tomas
----- Original Message -----
> Lze to zavolat pomoci nejakych API, abych nemusel pouzivat
> command prompt?
function NetMessageBufferSend(servername, msgname, fromname: PWideChar; buf:
Pointer; buflen: DWORD): Integer; stdcall;
external 'netapi32.dll';Mobily, PDU a SMS
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 22.7.2003 12:32:17
Zdar,
mam problem prijimam sms z mobilu, tam me vse funguje na torrym jsem nasel nejake fce pdu2text a text2pdu, prijimani beha dobre (mobil je siemens s35), ale odeslat nejsem schopen nic...
v dokumentaci se pise :
'AT=CMGS='+ length + #13 + 'PDUcode' + CTRL+Z
nevim neco delam spatne, budto me ta funkce blbe spocita PDU, nebo mam spatne to CTRL+Z (na netu jsem nasel ze je to #$1a, ale nevim to jiste)...
Muzete mi nekdo poradit, prosel jsem archiv, ale nic nemohu poradnyho najit...
Dik
nastaveni tabelatoru v memu
[*] martin kolos <xkoky(zv)atlas(tec)cz> - 22.7.2003 10:22:09
ahojte.
program mi zapisuje text do mema, polozky na radku chci mit oddeleny tabelatorem (kvuli pozdejsi editaci). ale nevim jak jej prinutit, aby tabelator pro nej neznamenal osm mezer (zbytecne moc), ale min.
diky martin kolos
p.s. v nastaveni prostredi jsem nasel pouze nastaveni pro editor pri psani programu - v memu se to (samozrejme) nemeni.
Kuryrni sluzba Windows v DELPHI
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 22.7.2003 09:12:04
> Jak lze v delphi odeslat a vyuzit kuryrni sluzba pro posilani zprav?
> Pomoci prikazove radky to jde udelat:
> net send jmeno_PC zprava
>
> ale kdyz to takto spoustim, tak problikava DOS okno.
>
> Lze to zavolat pomoci nejakych API, abych nemusel pouzivat
> command prompt?
function NetMessageBufferSend(servername, msgname, fromname: PWideChar; buf:
Pointer; buflen: DWORD): Integer; stdcall;
external 'netapi32.dll';
priklad, ktory mi tu funguje:
var
P: PWideChar = 'Hello, world!';
NetResult: Integer;
NetResult := NetMessageBufferSend(nil, 'ONDREJ', nil, P, 28);
'ONDREJ' je meno stroja, kam som to poslal.
Podrobnosti najdes v dokumentacii MS.
HTH
TOndrej
Kuryrni sluzba Windows v DELPHI
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 22.7.2003 08:26:01
(*
Spusteni programu a cekani na jeho ukonceni
WinExecAndWait('notepad.exe', SW_SHOWNORMAL);
*)
function WinExecAndWait(FileName: string; Visibility: Integer): Integer;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
navr_cislo: dword;
begin
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.CB := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW; // spustit v normalnim okne
StartupInfo.wShowWindow := Visibility; // zpusob zobrazeni okna
if not CreateProcess(nil,
PChar(FileName),nil,nil,False,NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,Proc
essInfo) then
Result := - 1 // pri chybe vracime -1
else begin
repeat
Application.ProcessMessages;
until WaitForSingleObject(ProcessInfo.hProcess, 100) = WAIT_OBJECT_0;
{ Nakonec vratime navratovy kod procesu. }
GetExitCodeProcess(ProcessInfo.hProcess, navr_cislo);
Result := navr_cislo;
end;
end;
i := WinExecAndWait('net send '+jmeno+' '+ cbZprava.Text ,sw_hide);
if i = 0 then result := true; // skoncilo to v poradku
S pozdravem
Frantisek Bohac
----- Original Message -----
From: "Vita J." <delphi(zv)obecpohori(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 21, 2003 11:25 PM
Subject: Re: Kuryrni sluzba Windows v DELPHI
> Vyborne, diky, ja to spoustel jinak (v cmd).
> jeste bych potreboval vedet, jestli z toho lze ziskat nejakou zpetnou
> odezvu, zda zprava dosla OK ci zda doslo k nejakemu problemu.
> Diky moc
TResourceStream.Create(HInstance, ResName,RT_RCDAT
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.7.2003 00:05:30
Hello Delphi CZ konferencia!
Tento kod je sice funkcny ale nijako sa mi nepaci. Tie tri kusy "TRY"
mi tam nijako nerezu, ale neviem ako by som to upravil aby fungovalo
SilentException a vratilo Result:='';
Ako by ste to upravili?
Ide mi o to, ze ak by doslo k nacitaniu neexistujucej resource, tak
aby nedoslo k Exception a vratilo '';
function LoadRCDataString(const ResName: string; SilentException: Boolean
= False): string;
var
ResourceStream: TResourceStream;
begin
try
ResourceStream := TResourceStream.Create(HInstance, ResName,RT_RCDATA);
try
try
SetString(Result, PChar(ResourceStream.Memory), ResourceStream.Size);
except
begin
if not SilentException then
raise;
Result := '';
end;
end;
finally
ResourceStream.Free;
end;
except Result:=''; end;
end;
--
Best regards, TRoland
Kuryrni sluzba Windows v DELPHI
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 21.7.2003 23:25:27
Vyborne, diky, ja to spoustel jinak (v cmd).
jeste bych potreboval vedet, jestli z toho lze ziskat nejakou zpetnou
odezvu, zda zprava dosla OK ci zda doslo k nejakemu problemu.
Diky moc
> Ja to delam takto a zadne okno mi nevyskakuje:
>
> Winexec ('net send compaq jak se vede?', 0);
>
> Honza Harman
>
> ----- Original Message -----
> From: "Vita J." <delphi(zv)obecpohori(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, July 21, 2003 9:39 PM
> Subject: Kuryrni sluzba Windows v DELPHI
>
>
> > Jak lze v delphi odeslat a vyuzit kuryrni sluzba pro posilani zprav?
> > Pomoci prikazove radky to jde udelat:
> > net send jmeno_PC zprava
> >
> > ale kdyz to takto spoustim, tak problikava DOS okno.
> >
> > Lze to zavolat pomoci nejakych API, abych nemusel pouzivat command
prompt?
> > Jde mi zatim jen o odeslani zpravy, prijem necham na windows.
> >
> > Diky
> > VJ
>
>
>Kuryrni sluzba Windows v DELPHI
[*] Jan Harman <harman(zv)volny(tec)cz> - 21.7.2003 22:09:22
Ja to delam takto a zadne okno mi nevyskakuje:
Winexec ('net send compaq jak se vede?', 0);
Honza Harman
----- Original Message -----
From: "Vita J." <delphi(zv)obecpohori(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 21, 2003 9:39 PM
Subject: Kuryrni sluzba Windows v DELPHI
> Jak lze v delphi odeslat a vyuzit kuryrni sluzba pro posilani zprav?
> Pomoci prikazove radky to jde udelat:
> net send jmeno_PC zprava
>
> ale kdyz to takto spoustim, tak problikava DOS okno.
>
> Lze to zavolat pomoci nejakych API, abych nemusel pouzivat command prompt?
> Jde mi zatim jen o odeslani zpravy, prijem necham na windows.
>
> Diky
> VJ
jak ziskat nazvy souboru ulozenych v TCustomListCo
[*] Jan Harman <harman(zv)volny(tec)cz> - 21.7.2003 22:01:21
Proc to kopirujes do TCustomListControl? TCustomListControl je pouze bazova trida pro komponenty udrzujici nejake seznamy. Z teto
tridy se k zadne polozce nedostanes. Pouzi TListBox, TListView, TComboBox, mozno i TStringList a tam uz to je jednoduche. Napr:
TStringList[x] vraci string na x-te pozici.
Blize to popisuje napoveda.
Honza Harman, Brno, harman(zv)volny(tec)cz
----- Original Message -----
From: <pavel.bit(zv)seznam(tec)cz>> Hezky den preji vsem,
> jsem v Delphi zacatecnik a nevim si rady s tim, kdyz:
>
> Z komponenty TFileListBox ulozim nazvy vybranych souboru do
> TCustomListControl a to prikazem
> FileListBox1.CopySelection(CustomListControl1),
> a potreboval dal pracovat s nazvy ulozenych souboru, jenze nemuzu prijit na
> to jak se k takto
> ulozenym nazvum souboru dostat, pomuze mi prosim nekdo?
> Diky.
>
>Kuryrni sluzba Windows v DELPHI
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 21.7.2003 21:39:20
Jak lze v delphi odeslat a vyuzit kuryrni sluzba pro posilani zprav?
Pomoci prikazove radky to jde udelat:
net send jmeno_PC zprava
ale kdyz to takto spoustim, tak problikava DOS okno.
Lze to zavolat pomoci nejakych API, abych nemusel pouzivat command prompt?
Jde mi zatim jen o odeslani zpravy, prijem necham na windows.
Diky
VJ
jak ziskat nazvy souboru ulozenych v TCustomListCo
[*] pavel.bit(zv)seznam(tec)cz - 21.7.2003 20:51:17
Hezky den preji vsem,
jsem v Delphi zacatecnik a nevim si rady s tim, kdyz:
Z komponenty TFileListBox ulozim nazvy vybranych souboru do
TCustomListControl a to prikazem
FileListBox1.CopySelection(CustomListControl1),
a potreboval dal pracovat s nazvy ulozenych souboru, jenze nemuzu prijit na
to jak se k takto
ulozenym nazvum souboru dostat, pomuze mi prosim nekdo?
Diky.
Treeview - ulozeni stavu
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 21.7.2003 18:41:08
No nejdriv si musis urcit podle ceho budes polozky identifikovat.
Pokud pro kazdou node nemas definovany nejake custom data tak jedina
moznost bude asi podle jejich nazvu a cesty k nim.
Cili bych prosel vsechny polozky stromu, zjistil k nim cestu
(rekurzivne pres parenta) a tuhle cestu nekam ulozil spolu s informaci
jestli je expanded (TTreeNode.Expanded).
A nacitani to same, az budes mit TreeView naplnen tak projdes vsechny
polozky, zjistis cestu a podivas se jestli je mas ulozeny jako
expanded.
Jakub Dusek
Dynamicky CustomSort pro ListView
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.7.2003 17:25:03
Cau Ing.,
Monday, July 21, 2003, 5:07:02 PM, you wrote:
> Tady mas tri procedury/fce, ktere by to vse mely resit. Pripadne
> vlastnosti si dopln. Jen FieldType je vlastnost, kterou jsme si na
> sloupci vytvorili. Ten si bud nejak nahrad nebo udelej jen jeden
> zpusob razeni (vzdy muzes predpokladat string).
Diky zkusim
> function TListView.VratIndexRazeniSloupce(AColumn: TListColumn): Integer;
> begin
> Result := Abs(FLastSortedCol);
> {Pokud to bude razeno jako string, tak necham puvodni hodnotu (tj. sloupec)}
> case AColumn.FFieldType of
> ftCurrency,
> ftFloat,
> ftInteger,
> ftWord,
> ftSmallint : Result := Result + 1000;
> ftDate,
> ftDateTime : Result := Result + 2000;
> end;
> {Zmenim dle sestupne/vzestupne}
> if FLastSortedCol < 0 then Result := - Result;
> end;
> procedure TListView.SortColumn(AColumn: TListColumn);
> begin
> Items.BeginUpdate;
> CustomSort((zv)CustomSortProc, VratIndexRazeniSloupce(AColumn));
> Items.EndUpdate;
> Mask := '';
> if Selected <> nil then
> begin
> Selected.MakeVisible(False);
> Change(Selected, Ord(ctText));
> end;
> end;
> function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
> var
> MyText1, MyText2 : string;
> MyCurr1, MyCurr2 : Currency;
> MyDate1, MyDate2 : TDateTime;
> begin
> {Zjistim si texty - pro pripad, ze konverze typu spadnou a nebo jsou to
> skutecne obycejne texty}
> if Abs(ParamSort) mod 1000 = 1 then
> begin
> MyText1 := Item1.Caption;
> MyText2 := Item2.Caption;
> end
> else
> begin
> MyText1 := Item1.SubItems[Abs(ParamSort) mod 1000 - 2];
> MyText2 := Item2.SubItems[Abs(ParamSort) mod 1000 - 2];
> end;
> {Porovnam podle typu (tedy s pripadnym prevodem}
> if Abs(ParamSort) >= 2000 then
> try
> MyDate1 := StrToDate(MyText1);
> MyDate2 := StrToDate(MyText2);
> if MyDate1 - MyDate2 < 0 then Result := -1
> else if MyDate1 - MyDate2 > 0 then Result := 1
> else Result := 0;
> except
> Result := ANSICompareText(MyText1, MyText2);
> end
> else if Abs(ParamSort) >= 1000 then
> try
> MyCurr1 := StringToCurr(MyText1);
> MyCurr2 := StringToCurr(MyText2);
> if MyCurr1 - MyCurr2 < 0 then Result := -1
> else if MyCurr1 - MyCurr2 > 0 then Result := 1
> else Result := 0;
> except
> Result := ANSICompareText(MyText1, MyText2);
> end
> else Result := ANSICompareText(MyText1, MyText2);
> if ParamSort < 0 then Result := -Result;
> end;
S pozdravem
Milan Vymazal
Treeview - ulozeni stavu
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.7.2003 17:27:03
Zdravim
Nevite jak ulozit stav treeview ?. POtrebuji nejak ulozit vlastnosti
jednotlivich polozek zdali jsou expand nebo colapsed . A pak toto
nastaveni znovu nacist..
Diky moc
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Dynamicky CustomSort pro ListView
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 21.7.2003 17:07:02
Tady mas tri procedury/fce, ktere by to vse mely resit. Pripadne
vlastnosti si dopln. Jen FieldType je vlastnost, kterou jsme si na
sloupci vytvorili. Ten si bud nejak nahrad nebo udelej jen jeden
zpusob razeni (vzdy muzes predpokladat string).
function TListView.VratIndexRazeniSloupce(AColumn: TListColumn): Integer;
begin
Result := Abs(FLastSortedCol);
{Pokud to bude razeno jako string, tak necham puvodni hodnotu (tj. sloupec)}
case AColumn.FFieldType of
ftCurrency,
ftFloat,
ftInteger,
ftWord,
ftSmallint : Result := Result + 1000;
ftDate,
ftDateTime : Result := Result + 2000;
end;
{Zmenim dle sestupne/vzestupne}
if FLastSortedCol < 0 then Result := - Result;
end;
procedure TListView.SortColumn(AColumn: TListColumn);
begin
Items.BeginUpdate;
CustomSort((zv)CustomSortProc, VratIndexRazeniSloupce(AColumn));
Items.EndUpdate;
Mask := '';
if Selected <> nil then
begin
Selected.MakeVisible(False);
Change(Selected, Ord(ctText));
end;
end;
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
var
MyText1, MyText2 : string;
MyCurr1, MyCurr2 : Currency;
MyDate1, MyDate2 : TDateTime;
begin
{Zjistim si texty - pro pripad, ze konverze typu spadnou a nebo jsou to
skutecne obycejne texty}
if Abs(ParamSort) mod 1000 = 1 then
begin
MyText1 := Item1.Caption;
MyText2 := Item2.Caption;
end
else
begin
MyText1 := Item1.SubItems[Abs(ParamSort) mod 1000 - 2];
MyText2 := Item2.SubItems[Abs(ParamSort) mod 1000 - 2];
end;
{Porovnam podle typu (tedy s pripadnym prevodem}
if Abs(ParamSort) >= 2000 then
try
MyDate1 := StrToDate(MyText1);
MyDate2 := StrToDate(MyText2);
if MyDate1 - MyDate2 < 0 then Result := -1
else if MyDate1 - MyDate2 > 0 then Result := 1
else Result := 0;
except
Result := ANSICompareText(MyText1, MyText2);
end
else if Abs(ParamSort) >= 1000 then
try
MyCurr1 := StringToCurr(MyText1);
MyCurr2 := StringToCurr(MyText2);
if MyCurr1 - MyCurr2 < 0 then Result := -1
else if MyCurr1 - MyCurr2 > 0 then Result := 1
else Result := 0;
except
Result := ANSICompareText(MyText1, MyText2);
end
else Result := ANSICompareText(MyText1, MyText2);
if ParamSort < 0 then Result := -Result;
end;
Pojmenovani DFM
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.7.2003 16:51:01
Pavel Malinsky <malinsky(zv)pmcom(tec)cz> wrote:
>> Proc ? Ta hvezdicka prave zastupuje nazev unitu.
>
> Jasne, ale vezmou se preci vsechny dfm, ktere jsou v tom kterem
> adresari. Tzn. i ty ktere nejsou treba. Nebo ne?
Z Helpu D5:
The * symbol has a special meaning in $R directives: it stands for the
base name (without extension) of the source-code file where the directive
occurs.
Martin Schayna
Dynamicky CustomSort pro ListView
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.7.2003 16:47:00
Zdravim
nemate nekdo dynamicky CustomSort pro ListView ?. Vytvarim dynamicky v
ListView sloupecky a chtel bych si nejak pod fuknci onColumnClick
zaraditi serazeni pro dany sloupecek.
Nemate to nekdo po ruce please ?
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Pojmenovani DFM
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 21.7.2003 16:20:58
"Proc ? Ta hvezdicka prave zastupuje nazev unitu."
Nazev unitu je jen jeden => vezme se jen jeden soubor DFM.
Jakub Dusek
______________________________________________________________________
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
aplikace pro komfortni odesilani sms zprav, vizitek, log a melodii
=> Sms GateKeeper 2.0
Pojmenovani DFM
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 21.7.2003 16:14:58
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Vones
>
> > unity treba Unita1 preddefinovala direktiva na {Unita1.dfm} a
> ne {*.dfm}?
>
> Proc ? Ta hvezdicka prave zastupuje nazev unitu.
Jasne, ale vezmou se preci vsechny dfm, ktere jsou v tom kterem adresari.
Tzn. i ty ktere nejsou treba. Nebo ne?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Pojmenovani DFM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.7.2003 15:44:56
From: "Pavel Malinsky" <malinsky(zv)pmcom(tec)cz>
> netusite, prosim, nekdo, zda jde D5 donutit, aby pri vytvoreni
> unity treba Unita1 preddefinovala direktiva na {Unita1.dfm} a ne {*.dfm}?
Proc ? Ta hvezdicka prave zastupuje nazev unitu.
Petr Vones
Pojmenovani DFM
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 21.7.2003 15:40:55
Ahoj,
netusite, prosim, nekdo, zda jde D5 donutit, aby pri vytvoreni
unity treba Unita1 preddefinovala direktiva na {Unita1.dfm} a ne {*.dfm}?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
FB Classic Server na Win32
[*] Petr Langer <langer(zv)xdom(tec)cz> - 21.7.2003 11:22:39
No, nevim, jestli to neni stejny problem, na ktery jsem se tu uz ptal a
dostal jsem odpoved:
----------------------------------------------------------------------------
----
Pokud se nepletu, tak Classic pro Windows nepodporuje lokalni protokol,
takze
specifikace databaze by mela vypadat napr. nasledovne:
CREATE DATABASE 'localhost:test.gdb' USER ... ;
Nebo nainstalovat superserver :-)
Vysvetleni: Quick Start Guide je napsana pro FB 1.0 a nebyla jeste
aktualizovana pro FB 1.5.
Pavel Cisar
----------------------------------------------------------------------------
----
HTH,
Petr Langer
----- Original Message -----
From: "Milan Tomes" <delphi(zv)haida(tec)cz>
Subject: Re: FB Classic Server na Win32
> Mel jsem stejne problemy. Bylo to pravdepodobne zpusobene ne uplne
korektni
> odinstalaci puvodniho FB (1.0.3), kdy nedoslo k odregistraci vlastniho
> serveru ze services a pote neprosla registrace serveru noveho. Je nutne
> odinstalovat FB 1.5 a nainstalovat puvodni verzi a pohrat si s instsvc
> (spustit jako instsvc remove -g) a pote odinstalovat FB 1.0.x a
nainstalovat
> opet FB 1.5. Pote mi to jiz fungovalo. Pozor ovsem i na connection
string -
> verze 1.5 nepodporuje pripojeni typu Lokalni server !!!
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
>
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jan Harman
> > Subject: FB Classic Server na Win32
> >
> > po nainstalovani FB1.5 Classic Serveru mi nefunguje. Pouzil jsem
> > instalacky
> > z ibphoenix. Taky jsem to zkousel nainstalovat "rucne" ale bez uspechu.
> > Proste "Database unavailable".
> > Zkouseli jste prosim uz nekdo FB1.5 Classic Server na win32?
> > Jan Harman, Brno, harman(zv)volny(tec)cz
Prohlizec *.qrp
[*] Jan Kadlecek <kadlecek(zv)htkpro(tec)cz> - 21.7.2003 10:38:36
http://www.dev-shop.com/download/qrv.zip
ale neni zrovna moc maly, cca 1MB.
S pozdravem
Jan Kadlecek
www.devshop(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of ing. Jan Fiala
> Sent: Monday, July 21, 2003 10:23 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Prohlizec *.qrp
>
>
> 21.7.2003 Vlastimil Zdenek:
> > Ahoj,
> > chtel bych poprosit nebo poradit:
> > nedelal jste nekdo ouplne jednoduchej a hlavne malej
> prohlizec sestav qrp?
> > Nebo jde nekde stahnout? I se zapisem do registru, aby se po prvni
> > inicializaci otevrel priste rovnou "prohlizec" sestav z
> quick reportu....
>
www.delphi(tec)cz
Byl tam nekde v odkazech.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
FB Classic Server na Win32
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 21.7.2003 10:28:35
Mel jsem stejne problemy. Bylo to pravdepodobne zpusobene ne uplne korektni
odinstalaci puvodniho FB (1.0.3), kdy nedoslo k odregistraci vlastniho
serveru ze services a pote neprosla registrace serveru noveho. Je nutne
odinstalovat FB 1.5 a nainstalovat puvodni verzi a pohrat si s instsvc
(spustit jako instsvc remove -g) a pote odinstalovat FB 1.0.x a nainstalovat
opet FB 1.5. Pote mi to jiz fungovalo. Pozor ovsem i na connection string -
verze 1.5 nepodporuje pripojeni typu Lokalni server !!!
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jan Harman
> Subject: FB Classic Server na Win32
>
> po nainstalovani FB1.5 Classic Serveru mi nefunguje. Pouzil jsem
> instalacky
> z ibphoenix. Taky jsem to zkousel nainstalovat "rucne" ale bez uspechu.
> Proste "Database unavailable".
> Zkouseli jste prosim uz nekdo FB1.5 Classic Server na win32?
> Jan Harman, Brno, harman(zv)volny(tec)cz
Prohlizec *.qrp
[*] Martin Ocenas <matko(zv)proces.sk> - 21.7.2003 10:36:35
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
> Sent: Monday, July 21, 2003 10:19 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Prohlizec *.qrp
>
>
>
>
> Ahoj,
> chtel bych poprosit nebo poradit:
> nedelal jste nekdo ouplne jednoduchej a hlavne malej
> prohlizec sestav qrp? Nebo jde nekde stahnout? I se zapisem
> do registru, aby se po prvni inicializaci otevrel priste
> rovnou "prohlizec" sestav z quick reportu....
>
> Diky moc
> Vlasta
> D5 Ent, QR 3.07
>
Urob si sam :-) if UpperCase(ExtractFileExt(FName)) = '.QRP' then
begin
with TQRPHandler.Create do
try
FileName := FName;
Preview;
finally
Free;
end;
end;
Prohlizec *.qrp
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 21.7.2003 10:22:34
21.7.2003 Vlastimil Zdenek:
> Ahoj,
> chtel bych poprosit nebo poradit:
> nedelal jste nekdo ouplne jednoduchej a hlavne malej prohlizec sestav qrp?
> Nebo jde nekde stahnout? I se zapisem do registru, aby se po prvni
> inicializaci otevrel priste rovnou "prohlizec" sestav z quick reportu....
www.delphi(tec)cz
Byl tam nekde v odkazech.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prohlizec *.qrp
[*] Vlastimil Zdenek <delphi(zv)gestore(tec)cz> - 21.7.2003 10:18:34
Ahoj,
chtel bych poprosit nebo poradit:
nedelal jste nekdo ouplne jednoduchej a hlavne malej prohlizec sestav qrp?
Nebo jde nekde stahnout? I se zapisem do registru, aby se po prvni
inicializaci otevrel priste rovnou "prohlizec" sestav z quick reportu....
Diky moc
Vlasta
D5 Ent, QR 3.07
Zavolani cizi DLL
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 21.7.2003 09:46:32
Bez hlavickoveho souboru nebo popisu poskytovatele dll to nezjistis...
Slo by to asi metodou pokus / omyl pokud by to byly nejake primitivni
parametry (PChar, integer), ovsem oni muzou data predavat klidne v
podobe nejake struktury...
Jakub Dusek
______________________________________________________________________
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
aplikace pro komfortni odesilani sms zprav, vizitek, log a melodii
=> Sms GateKeeper 2.0
Knihovna ekonomickych funkci
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 21.7.2003 09:22:30
Zdravim,
chtel bych se zeptat zda existuje nejaka volne pouzitelna knihovna
ekonomickych funkci ktera obsahuje alespon funkci pro vypocet vyse splatky z
uveru s pevnym procentnim navysenim? Popr. existuje nekde na webu popis
takovychto vypoctu? Louskat skripta ekonomie se mi nechce:)a na webu sem nic
nenasel.
Diky
S pozdravem
Pavel Polak
Delphi -> FPC
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 21.7.2003 09:28:30
> kdyz uz jsme u tech konverzi z ruznych kompilatoru, zajimalo by mne, zda jde
> nejak prevest (jinak nez rucne) projekt z Delphi do FreePascalu?
vzhlede k tomu, ze Freepascal neni 100% kompatibilni s delphi, tak se
rucni praci nevyhnes. Kdyz jsem portoval Synapsi pro FreePascal, tak
jsem zazil spousty neprijemnych prekvapeni...
1. nektere funkce chybi
2. nektere funkce jsou v jinych unitach
3. nektere datove typy maji stejna jmena jako v delphi, nicmene jsou
jine...
... atd.
Delphi -> FPC
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 21.7.2003 09:04:28
Dobry den,
kdyz uz jsme u tech konverzi z ruznych kompilatoru, zajimalo by mne, zda jde
nejak prevest (jinak nez rucne) projekt z Delphi do FreePascalu?
S pozdravem
Frantisek Bohac
Ikona aplikace do DLL
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 21.7.2003 08:46:27
Dobry den,
mam aplikaci, ve ktere volam funkce DLL, ktere zobrazuji formulare.
Potreboval bych, aby na techto formularich byla stejna ikona, jakou
ma volajici aplikace. Jak toho dosahnout?
Dekuji za pomoc
Karel Krtecek
ANN: Synapse release 32
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 21.7.2003 08:40:27
Hlavni novinky:
- Synapse lze pouzit i pro FreePascal prekladac
- pribyla podpora pro TFTP protokol (klient i server)
- pribyla podpora pro LDAP protokol
- mnoho oprav, mnoho optimalizaci. ;-)
Chyba IB nebo API:cteni souboru ze site do blobu
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 21.7.2003 00:23:56
Ahoj,
jiz ve vice aplikaci se mi deje problem, pokud nacitam soubor ze site do
blobu :
(qry_Upd_List.FieldByName('DATA') as
TBlobField).LoadFromFile(OpenDialog1.FileName);
Objevi se "Access violation".Pokud soubor zkopiruji na lokal, tak je vse v
pohode.
Ludek Paral
lupasoft
Sadova 2
352 01 As
Czech Rep.
mobil :00420/728.167118
email :ludek.paral(zv)atlas(tec)cz
ICQ :178625461
MSN :ludek.paral(zv)telecom(tec)cz
Kylix 3 -> Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.7.2003 21:02:33
From: "petr.spurny" <peta.spurny(zv)tiscali(tec)cz>
> existuje moznost jak prevest program z Kylixu 3 do Delphi 6? Napriklad
Nejdrive to musis z CLX prepsat do VCL, pokud to ma byt pouzitelne.
Petr Vones
IBClientDataSet + TReport
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 20.7.2003 20:52:33
> Pre niektore app. vyvinujte este v D2 pouzivame komponentu
> TReport (wrapper na ReportSmith), ktora je v unite
> Lib\Delphi2\report.dcu.
> Po D5 este exitovala na palete v zalozke DataAccess ako Hidden.
> V D7 unit report este existuje, ale skryta komponenta uz nie.
> Ako ju dostat niekde na paletu (Napr. DataAccess alebo BDE)?
Nevim presne jak je to v D7, ale v D6 je report.dcu v lib\delphi2.
Jak vytvorit odpovidajici komponentu jsem nezjistil, nicmene je mozne
TReport vytvaret dynamicky.
Tomas
Kylix 3 -> Delphi 6
[*] Robert Suska <suskar(zv)seznam(tec)cz> - 20.7.2003 18:34:24
Ahoj musis si vytvorit v kylixe xfm file a v Delphi dfm file, jedneho casu
to tu pisal aj p. Vones. Musis mat proste nadefinovane dva formulare a jeden
pas subor. A potom v .pas subore to bude vyzerat takto
toto je moj priklad
interface
uses
{$IFDEF MSWINDOWS}
Windows, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls,
Messages, Buttons, Menus, ImgList, ToolWin, Types,
{$ENDIF}
{$IFDEF LINUX}
QGraphics, QControls, QForms, QDialogs, QStdCtrls, QComCtrls, QExtCtrls,
QButtons, QMenus, QImgList, QTypes,
{$ENDIF}
SysUtils, Classes, IniFiles, IdBaseComponent, IdComponent,
IdTCPConnection,
IdTCPClient, IdFTP, IdAntiFreezeBase, IdAntiFreeze, IdIntercept,
IdLogBase, IdLogDebug, IdHTTP;
implementation
{$IFDEF MSWINDOWS}
{$R *.dfm}
{$ENDIF}
{$IFDEF LINUX}
{$R *.xfm}
{$ENDIF}
a v .dpr subore tiez tak.
uses
{$IFDEF MSWINDOWS}
Forms,
{$ENDIF}
{$IFDEF LINUX}
QForms,
{$ENDIF}
Unit1 in 'Unit1.pas' {frmNieco}
nieco in 'nieco.pas';
Neviem o inom rieseni a to je potom dobre mat dva pocitace kde mas na jednom
win, a na druhom linux a mat to otvorene naraz a proste dva krat robit form
a pripajat vsetky eventy a tak.... Inac aj D7 Ent nema vsetky properties
definovane tak aby to bolo na 100% kompatibilne s Kylixom 3 Ent mam to
odskusane. Ina cesta "nie je". resp. o inej ceste neviem
Robo
ICQ: 169857840
> Zdravim,
>
> existuje moznost jak prevest program z Kylixu 3 do Delphi 6? Napriklad
> nektere vlastnosti formulare, ktere jsou v KIylixu 3 jsou az v Delphi 7.
> Existuje nejake nastaveni ci utilita?
>
> Predem diky
>
> :: petr.spurny ::
>
> :: peta.spurny(zv)tiscali(tec)cz ::Kylix 3 -> Delphi 6
[*] petr.spurny <peta.spurny(zv)tiscali(tec)cz> - 20.7.2003 18:26:23
Zdravim,
existuje moznost jak prevest program z Kylixu 3 do Delphi 6? Napriklad
nektere vlastnosti formulare, ktere jsou v KIylixu 3 jsou az v Delphi 7.
Existuje nejake nastaveni ci utilita?
Predem diky
:: petr.spurny ::
:: peta.spurny(zv)tiscali(tec)cz ::IBClientDataSet + TReport
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 20.7.2003 17:04:18
Hello delphi-l,
Existuje moznost ako na palete zobrazit IBClientDataSet?
V dokumentacii ju popisuju, v helpe je tiez (vratane ikony)
ale neviem ju najst :-(
Pre niektore app. vyvinujte este v D2 pouzivame komponentu
TReport (wrapper na ReportSmith), ktora je v unite
Lib\Delphi2\report.dcu.
Po D5 este exitovala na palete v zalozke DataAccess ako Hidden.
V D7 unit report este existuje, ale skryta komponenta uz nie.
Ako ju dostat niekde na paletu (Napr. DataAccess alebo BDE)?
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
Zavolani cizi DLL
[*] Lukas Gallina <lukas.gallina(zv)programky(tec)cz> - 20.7.2003 11:49:59
Ahoj,
nemam moc zkusenosti s psanim DLL, takze mozna se budu ptat hloupe, prosim
tedy dopredu o smilovani :)
Mam tu nejakou dll, ktera je dodana v ramci nejakeho softwaru a ktera umi
ziskat z nejakych datovych souboru jiste informace. Ten sw ji pouziva prave
k tomu. Nimene ja bych si potreboval udelat utilitku, ktera si ty informace
ziska take a ulozi je do DB. Problem je, ze nevim, jak ty fce zavolat. V PE
Exploreru mi u polozek v Exports nenapise popis, jako to dela u jinych
knihoven (napr MS). Muzete me, prosim, nasmerovat spravnym smerem, nebo to
nejde?
S pozdravem
Lukas Gallina
lukas.gallina(zv)programky(tec)cz
OT - soubor s priponou mpp
[*] Robert Suska <suskar(zv)seznam(tec)cz> - 18.7.2003 12:23:02
Ahoj
http://www.vego.nl/9/09/9_09_m.htm
Robo
> Omlouvam se za OT, mam soubor s priponou mpp. Netusite o co jde???
>
> Kejchal
>
>
>
OT - soubor s priponou mpp
[*] Simek Pavel - KVS <p.simek(zv)icsvscr(tec)cz> - 18.7.2003 12:17:01
Omlouvam se za OT, mam soubor s priponou mpp. Netusite o co jde???
Kejchal
Vypnuti pocitace na dalku
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 18.7.2003 11:46:59
Dekuji vsem za pomoc :-)))
Chtel jsem tu fci zapasovat primo do programu, ale asi se budu muset smirit
s volanim programu psshutdown.exe, protoze shutdown.exe z ResourceKitu pro
NT 4.0 parametr -m nema.
Mozna je potreba nejak nastavit SE_REMOTE_SHUTDOWN_NAME
a pak volat:
InitiateSystemShutdown();
ale v psshutdown.exe neni fce InitiateSystemShutdown(); ale jen tyto API
Fce:
MPR.dll
Name: WNetAddConnection2A
KERNEL32.dll
Name: DeleteFileA
Name: GetSystemDirectoryA
Name: GetComputerNameA
Name: GetCurrentProcess
Name: Sleep
Name: WriteFile
Name: GetProcAddress
Name: GetModuleHandleA
Name: GetVersion
Name: GetStringTypeW
Name: GetStringTypeA
Name: FindResourceA
Name: LoadResource
Name: SizeofResource
Name: LockResource
Name: FormatMessageA
Name: LocalFree
Name: CreateFileA
Name: CloseHandle
Name: GetTickCount
Name: GetLastError
Name: SetLastError
Name: LoadLibraryA
Name: ReadFile
Name: SetConsoleMode
Name: ReadConsoleInputA
Name: SetEndOfFile
Name: GetConsoleMode
Name: ExitProcess
Name: TerminateProcess
Name: GetCommandLineA
Name: HeapFree
Name: GetCPInfo
Name: GetACP
Name: GetOEMCP
Name: WideCharToMultiByte
Name: MultiByteToWideChar
Name: LCMapStringA
Name: LCMapStringW
Name: FlushFileBuffers
Name: SetHandleCount
Name: GetStdHandle
Name: GetFileType
Name: GetStartupInfoA
Name: HeapAlloc
Name: UnhandledExceptionFilter
Name: GetModuleFileNameA
Name: FreeEnvironmentStringsA
Name: FreeEnvironmentStringsW
Name: GetEnvironmentStrings
Name: GetEnvironmentStringsW
Name: GetEnvironmentVariableA
Name: GetVersionExA
Name: HeapDestroy
Name: HeapCreate
Name: VirtualFree
Name: RtlUnwind
Name: SetFilePointer
Name: VirtualAlloc
Name: HeapReAlloc
Name: SetStdHandle
USER32.dll
Name: ExitWindowsEx
ADVAPI32.dll
Name: LookupAccountSidA
Name: OpenProcessToken
Name: LookupPrivilegeValueA
Name: AdjustTokenPrivileges
Name: DeleteService
Name: ControlService
Name: OpenSCManagerA
Name: OpenServiceA
Name: StartServiceA
Name: QueryServiceStatus
Name: CreateServiceA
Name: CloseServiceHandle
Name: GetTokenInformation
Kdyby se nekomu z vas chtelo badat a neco nasli - dejte mi vedet ;-)))
S pozdravem
Frantisek Bohac
Neznama databaze
[*] CIS <cis(zv)atlas(tec)cz> - 18.7.2003 11:32:58
Zdar,
Tezko rict ale tyhle nazvy jsem mel kdyz pozivam B-tree od TurboPower.
Ales
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of campulka
Sent: Friday, July 18, 2003 7:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: Neznama databaze
Ahoj,
Nevite nekdo jaky databazovy system produkuje soubory s
priponami .DAT .DIA .IX (pro kazdou tabulku jsou vzdy 3 soubory)
Dik Jirka.messagebox
[*] Jiri Virt <virt(zv)volny(tec)cz> - 18.7.2003 10:36:54
if Messagebox(form1.handle,'Chcete to opravdu
udelat?','Dotaz',MB_YESNO+MB_DEFBUTTON2)=IDNO then exit;
MB_DEFBUTTON1
MB_DEFBUTTON2
MB_DEFBUTTON3
MB_DEFBUTTON4
Jirka
OT: messagebox
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 18.7.2003 10:32:54
Ahojda vsem, mam takovy mensi problem tak vas chci poprosti o radu za
kterou predem dikes :O)
Mam podminku: if Messagebox(form1.handle,'Chcete to opravdu
udelat?','Dotaz',MB_YESNO)=IDNO then exit;
a problem mam v tom ze je nastavenej focus na talcitko "Ano" a ja bych ho
chtel mit na "Ne" jak si myslim ze by to melo spravne byti, ale nenapada me
jak na to.
Kresleni na Image.Canvas - problemy s velikosti pl
[*] Miroslav Vavrin <mirun(zv)forcom(tec)cz> - 18.7.2003 09:30:50
Pouzij stretchdraw. Image si obrazek zvetsuje pri kresleni, interne je porad
v puvodni velikosti.
S pozdravem
Mirun
----- Original Message -----
From: "Petr Bartos" <p.bartos(zv)softdec(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 18, 2003 8:54 AM
Subject: Kresleni na Image.Canvas - problemy s velikosti platna
> Ahoj,
>
> mam formular, na kterem je Image napr. velikosti 100x100. Za behu jej
zvetsim na 200x200. Pokud pak kreslim na Canvas (napr.
Rectangle(0,0,200,200)), tak mi to kresli pouze do puvodni oblasti
(100x100). Co s tim?
>
> Diky moc,
> Petr
>
>
>Neznama databaze
[*] Peter Brcko <pbr1(zv)stonline.sk> - 18.7.2003 09:08:48
> Nevite nekdo jaky databazovy system produkuje soubory s
> priponami .DAT .DIA .IX (pro kazdou tabulku jsou vzdy 3 soubory)
>
Vypada to na prvy pohlad na B-Tree Filer od TurboPower Software, ale tam sa
tie pripony
dali nadefinovat. Pouzivali sme to pred cca 10 rokmi.
.DAT - datova cast
.DIA - pomocny subor pri sietovej praci
.IX - indexy (vsetky definovane nad tabulkou)
PBR.Kresleni na Image.Canvas - problemy s velikosti pl
[*] Petr Bartos <p.bartos(zv)softdec(tec)cz> - 18.7.2003 08:54:47
Ahoj,
mam formular, na kterem je Image napr. velikosti 100x100. Za behu jej zvetsim na 200x200. Pokud pak kreslim na Canvas (napr. Rectangle(0,0,200,200)), tak mi to kresli pouze do puvodni oblasti (100x100). Co s tim?
Diky moc,
Petr
Neznama databaze
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.7.2003 08:52:42
To vim velice dobre. Je to B-Tree Filer od Turbo Power Software.
campulka wrote:
>
> Ahoj,
>
> Nevite nekdo jaky databazovy system produkuje soubory s
> priponami .DAT .DIA .IX (pro kazdou tabulku jsou vzdy 3 soubory)
>
> Dik Jirka.
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Default ikona otvoreneho adresara
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 18.7.2003 08:16:40
melo by pomoct pridat SHGFI_OPENICON
Vice ikon v liste windows
[*] Pesek Michal <michal.pesek(zv)mnul(tec)cz> - 18.7.2003 07:46:38
Hi,
koukni na tenhle priklad
http://www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=128
S pozdravem
PEPR
.. -----Original Message-----
..
.. nevite nekdo jak udelat aby jedna aplikace mela v liste windows vice
.. ikon?
OT: Neznama databaze
[*] campulka <campulka(zv)czas(tec)cz> - 18.7.2003 07:42:37
Ahoj,
Nevite nekdo jaky databazovy system produkuje soubory s
priponami .DAT .DIA .IX (pro kazdou tabulku jsou vzdy 3 soubory)
Dik Jirka.
Instalacni program InnoSetup a IsTool a cestina
[*] Kadane Miroslav <miroslav.kadane(zv)cht-pce(tec)cz> - 18.7.2003 07:38:37
Ty cisla urcuji verzi kompilatoru InnoSetupu
-----Original Message-----
From: Stranik Frantisek Ing. [mailto:fstranik(zv)cpoj(tec)cz]
Sent: Thursday, July 17, 2003 5:05 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Instalacni program InnoSetup a IsTool a cestina
Tech souboru je tam hodne a nyni nevim, ktery si mam vybrat. Vybral jsem si doporuceny Czech-5-3.0.5.isl a pri prekladu hlasi chybu, ze text polozky nebyl nalezen.
Mam InnoSetup comiler 3.0.7 a IsTool 3.0.6.3
Nemam snad nejnovejsi verze, ktere jeste nejsou v cestine podporovane ? Jestli je snad nekdo mate *.isl , poslete mi je na soukromy mail.
Dekuji
FStranik(zv)Cpoj(tec)cz
> Je tam jeste soubor napr. Czech-5-3.0.5.isl je ke stazeni na strankach
> InnoSetup, pak to bude uz cesky
>
> Dekuji za odkaz na velice dobry prostredky
> InnoSetup a IsTool pro vyrobu instalacnich programu.
>
> Nedari se mi vsak nastavit cestinu do instalacnich panelu pro
> uzivatele. V IsTool nastavim v Projekt/Jazykove nastaveni/Jazyk =
> Czech, ale po kompilaci skriptu ve kterem je skutecne sekce:
>
> [LangOptions]
> LanguageName=Czech
> LanguageID=$0405
>
>
> ma po spusteni SETUP.exe uzivatel stejne anglicke panely.
>
> Jak na to ?
> Diky predem. Omlouvam se za nepochopeni.
>
>
> Windows XP
> Delphi 5
>
> Frantisek Stranik
>
>
>
>
>
Default ikona otvoreneho adresara
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 18.7.2003 06:28:32
Zdravim.
Potreboval by som vypacit z Windowsu systemove
ikony, konkretne ikonu pre otvoreny a zatvoreny adresar.
Ikonu pre zatvoreny adresar dostanem takto :
***********************************************************
SHGetFileInfo(nil,faDirectory,FileInfo,SizeOf(FileInfo),
SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or
SHGFI_SMALLICON);
Icon.Handle:=FileInfo.hIcon;
************************************************************
Otazka :
Je nejaka moznost ako donutit Windows aby mi poskytol aj
handle ikony pre otvoreny adresar ?
S pozdravom
Ivan Dulgerov
J.Straku 12
969 00 Banska Stiavnica
SLOVAK REPUBLIC
zjisteni stavu LAN pripojeni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.7.2003 22:38:55
From: "Petr Matejovsky" <pemasoft(zv)seznam(tec)cz>
> jde pomoci nejakych API funkci nebo prectenim hodnot z registru ve Win
> 2000/XP precist pocet prijatych a odeslanych paketu sitoveho pripojeni ? Jde
> mi o mereni na klasicke sit. karte ne RAS nebo DUN.
Pomoci IP Helper nebo Performance Helper.
Petr Vones
zjisteni stavu LAN pripojeni
[*] Petr Matejovsky <pemasoft(zv)seznam(tec)cz> - 17.7.2003 21:36:50
Zdravim
jde pomoci nejakych API funkci nebo prectenim hodnot z registru ve Win
2000/XP precist pocet prijatych a odeslanych paketu sitoveho pripojeni ? Jde
mi o mereni na klasicke sit. karte ne RAS nebo DUN.
Moc diky za kazdou radu ...
Petr Matejovsky
Instalacni program InnoSetup a IsTool a cestina
[*] Stranik Frantisek Ing. <fstranik(zv)cpoj(tec)cz> - 17.7.2003 17:04:31
Tech souboru je tam hodne a nyni nevim, ktery si mam vybrat.
Vybral jsem si doporuceny Czech-5-3.0.5.isl a pri prekladu hlasi chybu,
ze text polozky nebyl nalezen.
Mam InnoSetup comiler 3.0.7 a IsTool 3.0.6.3
Nemam snad nejnovejsi verze, ktere jeste nejsou v cestine podporovane ?
Jestli je snad nekdo mate *.isl , poslete mi je na soukromy mail.
Dekuji
FStranik(zv)Cpoj(tec)cz
> Je tam jeste soubor napr. Czech-5-3.0.5.isl je ke stazeni na strankach
> InnoSetup, pak to bude uz cesky
>
> Dekuji za odkaz na velice dobry prostredky
> InnoSetup a IsTool pro vyrobu instalacnich programu.
>
> Nedari se mi vsak nastavit cestinu do instalacnich panelu pro uzivatele. V
> IsTool nastavim v Projekt/Jazykove nastaveni/Jazyk = Czech, ale po
> kompilaci skriptu ve kterem je skutecne sekce:
>
> [LangOptions]
> LanguageName=Czech
> LanguageID=$0405
>
>
> ma po spusteni SETUP.exe uzivatel stejne anglicke panely.
>
> Jak na to ?
> Diky predem. Omlouvam se za nepochopeni.
>
>
> Windows XP
> Delphi 5
>
> Frantisek Stranik
>
>
>
>
> Vice ikon v liste windows
[*] Pavel Poles <xcony(zv)seznam(tec)cz> - 17.7.2003 15:58:20
Zdravim,
nevite nekdo jak udelat aby jedna aplikace mela v liste windows vice
ikon? Myslim tim ze pri minimalizaci formulare bych chtel zobrazit v liste
Windows (ne Tray) klasicky okenko pro maximalizaci okna (neco jako
MS Word).
Predem dik
Pavel Poles
Instalacni program InnoSetup a IsTool a cestina
[*] Kadane Miroslav <miroslav.kadane(zv)cht-pce(tec)cz> - 17.7.2003 16:18:26
Je tam jeste soubor napr. Czech-5-3.0.5.isl je ke stazeni na strankach InnoSetup, pak to bude uz cesky
-----Original Message-----
From: Stranik Frantisek Ing. [mailto:fstranik(zv)cpoj(tec)cz]
Sent: Thursday, July 17, 2003 3:58 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Instalacni program InnoSetup a IsTool a cestina
Dekuji za odkaz na velice dobry prostredky
InnoSetup a IsTool pro vyrobu instalacnich programu.
Nedari se mi vsak nastavit cestinu do instalacnich panelu pro uzivatele. V IsTool nastavim v Projekt/Jazykove nastaveni/Jazyk = Czech, ale po kompilaci skriptu ve kterem je skutecne sekce:
[LangOptions]
LanguageName=Czech
LanguageID=$0405
ma po spusteni SETUP.exe uzivatel stejne anglicke panely.
Jak na to ?
Diky predem. Omlouvam se za nepochopeni.
Windows XP
Delphi 5
Frantisek Stranik
Instalacni program InnoSetup a IsTool a cestina
[*] Stranik Frantisek Ing. <fstranik(zv)cpoj(tec)cz> - 17.7.2003 15:58:20
Dekuji za odkaz na velice dobry prostredky
InnoSetup a IsTool pro vyrobu instalacnich programu.
Nedari se mi vsak nastavit cestinu do instalacnich panelu pro uzivatele.
V IsTool nastavim v Projekt/Jazykove nastaveni/Jazyk = Czech,
ale po kompilaci skriptu ve kterem je skutecne sekce:
[LangOptions]
LanguageName=Czech
LanguageID=$0405
ma po spusteni SETUP.exe uzivatel stejne anglicke panely.
Jak na to ?
Diky predem. Omlouvam se za nepochopeni.
Windows XP
Delphi 5
Frantisek Stranik
verze knihoven SynaSer
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.7.2003 14:58:16
> Ja som tu poslednu verziu zmazal a stiahol si starsiu, fungujucu.
> Chvilu som to aj skusal krokovat, ale ked mi nejaka funkcia vratila,
> ze v buffri je 35897125 znakov a nasledny pokus o citanie vratil
> prazdny retazec, tak som to vzdal.
Tenhle problem by mel byt uz opraven. Novy SynaSer by mohl byt
vypusten snad uz koncem pristiho tydne. Ted totiz dodelavam novy
release Synapse, kteryby mel by zacatekm pristiho tydne.
Zajimavost: nova Synapse i Synaser jsou kompatibilni s FreePascalem.
;-)
verze knihoven SynaSer
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 17.7.2003 13:32:10
> p.Lukase Gebauera se posunula z verze 5.0.0 do verze 6.0.6.
Ja som tu poslednu verziu zmazal a stiahol si starsiu, fungujucu.
Chvilu som to aj skusal krokovat, ale ked mi nejaka funkcia vratila,
ze v buffri je 35897125 znakov a nasledny pokus o citanie vratil
prazdny retazec, tak som to vzdal.
Povedal som si, ze je asi nejaky problem v tom, ze to chcem v D4 a
nejaka 2-bytova premenna je inde 4-bytova. Ovsem nemal som cas to
zistovat.
bye
vmlich
Activate Hint
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 17.7.2003 13:16:09
17.7.2003 Daniel Rott:
> Zdravicko. Nejak jednoduse aktivovat standardni Hint
> okno s textem na konkretni pozici ? Chtel jsem do sve
> aplikace pridat pocitani znaku zpravy a predstavoval
> jsem si to tak, ze pod oknem se pri psani objevi
> standardni Hint okno s udajem napriklad 20/160.
> Zkousel jsem text priradit do vlastnosti Hint toho editu
> a zavolat ActivateHint, ale nic se nestane (text se
> zobrazi jen po najeti mysi). Zkousel jsem i vytvorit
> instanci HintWindowClass, ale ta se zobrazuje jinou
> barvou a sama nemizi.
Jestli by nebylo vhodnejsi a jednodussi pridat na okno StatusBar a
udaj zobrazovat v nem...
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
verze knihoven SynaSer
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.7.2003 12:46:02
> napsat okolo seriveho portu. Zjistil jsem, ze verze SynaSer
> p.LukaseGebauera se posunula z verze 5.0.0 do verze 6.0.6.
> Zkompiloval jsem si svoji predchozi udelatka s novou verzi, upravil nutnou
> syntax - metoda connect (zakomentuji si vzdy tu cast, ktera neplati pro
> danou verzi knihovny), stejne je to i pro port Com1:
> //
> Com2P.Config(StrToInt(SpeedCom2CB.Items[SpeedCom2CB.ItemIndex])
> ,8,'N',0,false,false);
> // Com2P.Connect('Com2');
:-)
nejprve volat Connect, a az pak Config! (ty to volas obracene) Jinak
totiz Config nevi koho ma konfigurovat.verze knihoven SynaSer
[*] Vlcek <l.vlcek(zv)noel-plus(tec)cz> - 17.7.2003 12:34:01
zdravim,
nastal mi zajimavy problem. Potreboval jsem zase po delsi dobe neco
napsat okolo seriveho portu. Zjistil jsem, ze verze SynaSer
p.LukaseGebauera se posunula z verze 5.0.0 do verze 6.0.6.
Zkompiloval jsem si svoji predchozi udelatka s novou verzi, upravil nutnou
syntax - metoda connect (zakomentuji si vzdy tu cast, ktera neplati pro
danou verzi knihovny), stejne je to i pro port Com1:
procedure TForm1.Opencom2ButtonClick(Sender: TObject);
begin
//
Com2P.Config(StrToInt(SpeedCom2CB.Items[SpeedCom2CB.ItemIndex])
,8,'N',0,false,false);
// Com2P.Connect('Com2');
Com2P.Connect('Com2',StrToInt(SpeedCom2CB.Items[SpeedCom2CB.It
emIndex]),8,'N',0,false,false);
if Com2P.LastError = 0 then
Memo1.Lines.Add('Port Com2 succesfully opened
'+'('+IntToStr(Com2P.LastError)+
') '+Com2P.GetErrorDesc(Com2P.LastError))
else
Memo1.Lines.Add('During an opening Com2 was occured an error:
('+IntToStr(Com2P.LastError)+
') '+Com2P.GetErrorDesc(Com2P.LastError));
end;
a uspesne zkompiloval. Bohuzel, data skrze seriovou linku nechodi,
pritom se starsi verzi knihovny chodi.
(Posilam si data z Com1 na com2, zatim cvicne).
Prijimaci (vycitaci) rutinka je:
procedure TForm1.RecvCom1ButtonClick(Sender: TObject);
begin
if Com1P.InstanceActive then
begin
if Com1P.CanRead(0) then
begin
Memo1.Lines.Add('In input Buff Com1 is waiting: '
+IntToStr(Com1P.WaitingData)+' dat');
InBuf1:=Com1P.RecvPacket(500);
Memo1.Lines.Add('Input data from Com1: '+InBuf1)
end
else
Memo1.Lines.Add('No any data to read ('+
IntToStr(Com1P.LastError)+')'
+Com1P.GetErrorDesc(Com1P.LastError));
end
else
Memo1.Lines.Add('Port Com1 is inactive');
end;
Nema nekdo podbnou zkusenost, co s tim ???
diky
Activate Hint
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 17.7.2003 12:30:00
Zdravicko. Nejak jednoduse aktivovat standardni Hint
okno s textem na konkretni pozici ? Chtel jsem do sve
aplikace pridat pocitani znaku zpravy a predstavoval
jsem si to tak, ze pod oknem se pri psani objevi
standardni Hint okno s udajem napriklad 20/160.
Zkousel jsem text priradit do vlastnosti Hint toho editu
a zavolat ActivateHint, ale nic se nestane (text se
zobrazi jen po najeti mysi). Zkousel jsem i vytvorit
instanci HintWindowClass, ale ta se zobrazuje jinou
barvou a sama nemizi.
Diky
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.Mensi viditelnost nez 'private'?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.7.2003 12:11:59
From: "Ing. Pavel Zilinec" <zilinec(zv)psinfos(tec)cz>
> mel jsem takovy pocit, ze v D7 by mel byt novy zpusob vidtelnosti
> objektu ve tride. Neco jak 'private', ale viditelnost je omezena
> pouze na danou tridu, nikoliv na celou unitu.
To se tyka Delphi.NET prekladace.
Petr Vones
Ladenie "service"
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.7.2003 11:57:58
<<< 17. 7. 2003 11:39 - Ondrej Kelle "o.kelle(zv)digitalpublishing.de" >>>
OK> Ked Ti uz nabehne to CPU window, skus si dat do zdrojaku breakpointy a
OK> pustit to dalej (F9 - Run).
-------------------------------------------
My answer:
----------
Takze moja skusenost z debugovania service v Delphi 5:
Moznosti debugovania podla helpu:
1. Spustenie aplikacie v debugeri a rychle spustenie cez net start
MyServ
vysledok:
neviem preco a zatlacim F9 a za sekundu mi program skonci. T.j.
nestihnem ani spustit net start...
2. Attach to process.
vysledok:
nemam prava na "Create process"
3. Debugger key v registry
vysledok:
Spusti mi delphi ale len CPU window, a darmo som tam daval do
zdrojakov breakpointy on otvara nove Delphi.
Som si vedomy, ze chyba je medzi stolickou a klavesnicou ale ako na
to.
--
Best regards, TRoland
Problem s TServerSocket a TClientSocket v service
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.7.2003 11:57:58
Hello Delphi CZ konferencia!
Mam napisany servis, ktory pomocou timeru v urcitom case kontroluje
pritomnost HASP hardveroveho kluca z ktoreho cita. Nacita si licencne
informacie a pomocou TServerSocket caka na klientov. Ked sa niekto
prihlasi, skontroluje pocet povolenych licencii a bud klienta necha
pripojeneho, alebo mu posle hlasenie o prekrocenom pocte a odpoji ho.
V pripade, ze by niekto odpojil HW kluc od PC, tak v urcitom intervale
sluzba to zisti tak posle info vsetkym uzivatelom o skutocnosti a
odpoji vsetkych uzivatelov.
Vsetky veci sa zapisuju do logu fajlu.
Lenze,...
Zakaznici sa mi stazuju, ze niekedy sa stane ze sluzba spadne. V logu
je len zapisane ze sluzba bola ukoncena (pise to OnDestroy).
U mna na stroji to funguje ako ma, zatial som nezistil problem, ze by
to zastalo. Prisiel som na moznost ako service ukoncit a to tak, ze mu
odpojim HW kluc v momente ked je vytvorene aspon jedno connection a
pri znovu pripojeni kluca sa sluzba Destroy-ne. Pokial nie je nikto
pripojeny na TServerSocket a odpojim aj sto krat kluc a pripojim
naspat tak za samozrejme kluc zisti, zaloguje sa jeho pritomnost a
vsetko bezi dalej.
Z tohto dedukujem, ze za chybu moze podla vsetkeho TServerSocket a
TClientSocket, lebo bez vytvoreneho spojenia mi to neurobi.
Tuto sluzbu mam naprogramovanu aj ako aplikaciu pre Win9x, ale tam sa
to sprava bez problemov.
Pouzivam Delphi 5 Pro.
--
Best regards, TRoland
Vypis adresare
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 17.7.2003 11:53:57
BuildFileList z JCL.
Nebo FindFirst-FindNext...
Danik
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Rumcajs-konfera
> chci se zeptat, jak jednoduse a ucelne ziskat obsah daneho adresare?
notebook Acer
[*] Jaroslav KUBA <jarda(zv)tresoft(tec)cz> - 17.7.2003 11:47:57
> Jestlize k notebooku Acer 535LCI s Win XP Profesional pripojim externi
> klavesnici tak po zapnuti notebooku je "NumLock" vypnuty a je nutno jej
> rucne zapnout. V Biosu notebooku jsem nenasel zadnou volbu, ktera by
> donutila najet notebook se zapnutym "NumLockem". Finta chodici na WIN 98
kdy
> se do config.sys zapsalo Numlock=On na XPckach v souboru config.nt
> nefunguje.
>
> Nema nekdo nejakou zkusenost s timto problemem.
V prihlasovacim dialogu zapni NUMLOCK a dej vypnout pocitac,
mel by si to pamatovat
jarda(zv)tresoft(tec)cz
Vypis adresare
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 17.7.2003 11:09:54
Servus vsem
chci se zeptat, jak jednoduse a ucelne ziskat obsah daneho adresare?
Uz se to tu tusim jendou resilo, ale v archivu sem to nenasel...
Lukas "Rumcajs" Weiss
OT: Hladam SW
[*] Lauko Stefan <laukosw(zv)naex.sk> - 17.7.2003 11:01:53
Ahojte,
prepacte za OT. Vedel by mi niekto poradit SW pre uct. evidenciu malej
firmy (JU) ktora sa zaobera autodopravou (aj zahranicnou) ma cca 10 aut a
program by bol zamerany na evidenciu dopravy (stasky > fakturacia, PHM diety
atd.). A hlavne aby bol lahko zvladnutelny najlepsie pod Win.
Nie za desiatky tisic...
Odpovede posielajte na moju sukromnu adresu: laukosw(zv)naex.sk
Dakujem, s pozdravom Lauko.
IBEventy a tuhnuti
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 17.7.2003 11:07:54
Kdysi jsem to resil stejne, ale od urcite verze IBX(4.63?) to jiz neni treba.
Generovalo to nahodile exceptions.
Slavek
> Myslim, ze jsem tam tez zahledl, ze ve FIB Plus to funguje (bez zaruky).
> Narazil jsem pritom tez na zajimavou poznamku, ze eventy udajne lepe ?! funguji
> kdyz maji vlastni IBDatabase. Vzhledem k vagnosti teto informace je zajimave,
> ze ji napsal Jeff Overcash, ktery o IBX pecuje, i kdyz pravda je to poznamka jiz 3 roky stara.
>
> Zdravi Jiri Binder
notebook Acer
[*] Tvrz Miroslav <miroslav.tvrz(zv)merlin(tec)cz> - 17.7.2003 11:25:55
Zdravim,
tohle pouzivam na Win2k a WinXP
* Spust regedit.exe
* HKEY_CURRENT_USER\Control Panel\Keyboard
* nastav hodnotu InitialKeyboardIndicators na 2 - tim se zapne NUMLOCK
pri prihlaseni
--------------------
* Pokud chces zapnout NUMLOCK uz pri startu Windows:
* nastavte v klici HKEY_USER\.DEFAULT\Control Panel\Keyboard hodnotu
InitialKeyboardIndicators na 2
Jina moznost je:
* prihlasit se jako ADMIN nebo user s ADMIN pravama a zapni NumLock.
* ted staci restartovat Windows a po dalsim startu se bude zapinat
automaticky.
MI'RA
-----Original Message-----
From: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
Sent: Thursday, July 17, 2003 11:20 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: notebook Acer
Zdravim
Jestlize k notebooku Acer 535LCI s Win XP Profesional pripojim externi
klavesnici tak po zapnuti notebooku je "NumLock" vypnuty a je nutno jej
rucne zapnout. V Biosu notebooku jsem nenasel zadnou volbu, ktera by
donutila najet notebook se zapnutym "NumLockem". Finta chodici na WIN 98 kdy
se do config.sys zapsalo Numlock=On na XPckach v souboru config.nt
nefunguje.
Nema nekdo nejakou zkusenost s timto problemem.
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
OT: notebook Acer
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.7.2003 11:19:55
Zdravim
Jestlize k notebooku Acer 535LCI s Win XP Profesional pripojim externi
klavesnici tak po zapnuti notebooku je "NumLock" vypnuty a je nutno jej
rucne zapnout. V Biosu notebooku jsem nenasel zadnou volbu, ktera by
donutila najet notebook se zapnutym "NumLockem". Finta chodici na WIN 98 kdy
se do config.sys zapsalo Numlock=On na XPckach v souboru config.nt
nefunguje.
Nema nekdo nejakou zkusenost s timto problemem.
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
IBEventy a tuhnuti
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 17.7.2003 10:31:51
Napada, udalost se totiz vyvola z jineho vlakna, a pri soucasnem pokusu
o odregistraci asi dojde k deadlocku (problem gds32.dll - NENI thread safe).
Dalsi moznosti je zkusit pouzit jinou verzi gds32.dll, treba z FB 1.0.3,
nebo FB1.5 (pozor, bude fungovat pouze sitove spojeni).
Resenim by mohlo byt upgrade IBX na posledni verzi.
Pokud to nepomuze, tak to budeme resit dale.
Slavek
> Ahoj,
>
> chtel bych se vas zeptat na zkusenosti s IBEvents. O co jde.
>
> Mam IBX 4.52 a D5. Na jednom formu je komponenta IBEvents. V dobe navrhu
> nema zaregistrovane zadne eventy. Po zobrazeni formulare delam
>
> IBEvents.Registered := False;
> IBEvents.Events.Clear;
> IBEvents.Events.Add(....); //zaregistruji takto 11 udalosti
> IBEvents.Registered := True;
>
> Pri prichodu eventu jen delam PostMessage oknu, na nemz komponenta lezi. Okno
> prijme zpravu a udela refresh. Pokud ale soucasti toho refreshe je i opetovne
> vykonani uvedene sekvence, tj. eventy se odregistruji a hned zase zaregistruji
> znovu, program pri IBEvents.Registered := True vytuhne. Nevite nekdo proc? Kdyz
> totiz pred zapnut9 registrace dam sleep(100), zatuhnuti se nekona. I pro
> prostudovani zdrojaku IBEvents jsem nenasel duvod, proc by to melo zatuhnout a
> spis si myslim, ze to je problem az nekde na urovni gds32.dll. Pokud totiz zkusim
> nekam dat breakpoint, nastane patrne potrebne zdrzeni k tomu, aby to uz nevytuhlo.
> Neboli s breakpointy to netuhne.
>
> Pokud jste se nekdo eventy hloubeji zabyval, nenapada vas neco?
>
> Dik.
>
> Prosim nereste, proc chci provest preregistrovani eventu po prichodu eventu. Proste
> to chci a zajima me, proc to nejde, resp. proc to nejde bez sleep ci jineho umeleho
> zdrzovani.
>
> David Lebeda
>
>
IBEvents a ukoncovani
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 17.7.2003 10:31:51
AV pri exception v destruktoru IBEvent byl jeden ze starych problemu IBX,
v novejsi verzi by mel byt odstranen.
Zkus novou verzi, IBEvent byl napsan zcela znovu (jinak).
Slavek
> Ahoj,
>
> mam IBX 4.52 (a rovnou rikam, ze vim, ze existuje novejsi, ale proste mam tenhle) a
> zkousim pouzivat IBEvents. Funguje to dobre, az na jednu vec tykajici se
> ukoncovani. Jestlize se stane, ze komponenta IBDatabase se stane nedostupnou (at
> uz proto, ze je pri ukoncovani projektu uvolnena drive nez IBEvents ci z jinych
> duvodu), IBEvents to nezvladnou a skonci bud s hlasenim, ze neni k dispozici aktivni
> pripojeni (to by tak nevadilo), nebo se to zvrhne do serie ruznych AV. Za nejvetsi
> problem povazuji to, ze v destruktoru IBEvents se vola UnregisterEvents a to bez
> IBDatabase kolabuje.
>
> Neptam se ted, co s tim, i kdyz vase zkusenosti na toto tema uvitam, ale zajimalo by
> me, jak se na to tvari SQL server (FB 1.02). Co se stane, kdyz si klient zaregistruje
> eventy a pak chcipne nebo se ukonci bez odregistrovani? Bude s tim mit server
> nejaky problem, nebo de fakto chybejici odregistrovani nevadi a pujde jen o to, na
> klientovi zajistit, aby se nevolalo IBEvents.UnregisterEvents v pripade, ze
> IBDatabase uz neni k dispozici?
>
> Dik
>
> David Lebeda
>
>
IBEventy a tuhnuti
[*] ji�� binder<j.binder(zv)albacon(tec)cz> - 17.7.2003 10:57:53
> vykonani uvedene sekvence, tj. eventy se odregistruji a hned zase zaregistruji
> znovu, program pri IBEvents.Registered := True vytuhne. Nevite nekdo proc? Kdyz
> totiz pred zapnut9 registrace dam sleep(100), zatuhnuti se nekona. I pro
Kdyz si das v Google - groups vyhledat delphi+interbase+sleep nebo delphi+inevents+sleep
najdes nekolik diskusi nad stejnym problemem, ovsem reseni jsem nenalezl.
Ma predstava je, ze IB se zrejme nedovi okamzite o odregistrovani eventu se kterymi
komunikuje, protoze to dela separatni thread ve kterem komunikace probiha.
Sleep zpusobi prepnuti do toho threadu.
Myslim, ze jsem tam tez zahledl, ze ve FIB Plus to funguje (bez zaruky).
Narazil jsem pritom tez na zajimavou poznamku, ze eventy udajne lepe ?! funguji
kdyz maji vlastni IBDatabase. Vzhledem k vagnosti teto informace je zajimave,
ze ji napsal Jeff Overcash, ktery o IBX pecuje, i kdyz pravda je to poznamka jiz 3 roky stara.
Zdravi Jiri Binder
Mensi viditelnost nez 'private'?
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 17.7.2003 09:33:47
Ahoj,
mel jsem takovy pocit, ze v D7 by mel byt novy zpusob vidtelnosti
objektu ve tride. Neco jak 'private', ale viditelnost je omezena
pouze na danou tridu, nikoliv na celou unitu.
Jenze jsem to nikde nenasel, ale pritom to mam ulozeno v hlave, jako
ze by to tam melo byt.
Muzete mi nekdo poradit?
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
TPanel - 2
[*] delphik(zv)email(tec)cz - 16.7.2003 21:43:03
Diky za vysvetleni RTTI, jsem zase o neco moudrejsi. Delphik
TPanel - 2
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 16.7.2003 20:36:58
To bylo prave zmineno v predchozi odpovedi na vas prvni TPanel - pomoci
'as' apod. Tedy:
(Panel.Contrlos[i] as TEdit).Text:='Ahoj Delphiku';
S pozdravem
Zdenek Telicka
delphik(zv)email(tec)cz wrote:
>TEdity na TPanelu najdu:
> for i := 0 to panel_adresar.ControlCount - 1 do
> begin
> if panel_adresar.Controls[i] is TEdit
> then begin
> ...
> end;
> end;
>
>ale ted potrebuji TEdity naplnit. Zkousel jsem:
> panelA.Controls[i].text := ...
>ale hlasi mi to chybku - undeclared identifier: 'Text'
>
>Jak na to ? Dik za rady. Delphik
>
>
>
>
TPanel - 2
[*] Robert Suska <suskar(zv)seznam(tec)cz> - 16.7.2003 20:14:57
Ahoj
Pisal som Ti ze to musis cez RTTI a to sa robi takto - run time typ
information chopes ? ;)
TEdit(panelA.Controls[i]).text := 'nejaky text';
alebo
(panelA.Controls[i] as TEdit).text := '';
Robo
> TEdity na TPanelu najdu:
> for i := 0 to panel_adresar.ControlCount - 1 do
> begin
> if panel_adresar.Controls[i] is TEdit
> then begin
> ...
> end;
> end;
>
> ale ted potrebuji TEdity naplnit. Zkousel jsem:
> panelA.Controls[i].text := ...
> ale hlasi mi to chybku - undeclared identifier: 'Text'
>
> Jak na to ? Dik za rady. Delphik
>
>
>TPanel - 2 - uz to mam - oprava
[*] delphik(zv)email(tec)cz - 16.7.2003 20:16:57
Upsal jsem se, ne properties Caption ale SetTextBuf :-))
Delphik
TPanel - 2 - uz to mam
[*] delphik(zv)email(tec)cz - 16.7.2003 20:12:56
Na %subj% uz nereagujte. Jsem slepec a nevidel jsem, ze TControls ma properties Caption. Delphik
TPanel - 2
[*] delphik(zv)email(tec)cz - 16.7.2003 20:06:56
TEdity na TPanelu najdu:
for i := 0 to panel_adresar.ControlCount - 1 do
begin
if panel_adresar.Controls[i] is TEdit
then begin
...
end;
end;
ale ted potrebuji TEdity naplnit. Zkousel jsem:
panelA.Controls[i].text := ...
ale hlasi mi to chybku - undeclared identifier: 'Text'
Jak na to ? Dik za rady. Delphik
TPanel
[*] delphik(zv)email(tec)cz - 16.7.2003 19:44:54
Diky, jde to pomoci panel.Controls...
Delphik
TPanel
[*] Robert Suska <suskar(zv)seznam(tec)cz> - 16.7.2003 19:16:52
Ahoj
mozes to skusit cez
panel.Components[]
alebo cez
panel.Controls[]
neviem presne ale asi je to ono
a treba sa pohrat s RTTI jedna sa o operatori as, is
Robo
> Nazdar. Mam TPanel na kterem je umisteno nekolik TEdit (ale muze tam byt
cokoliv jineho). Potrebuji zjistit vsechny TEdity (popr. i vse ostatni),
ktere se na TPanelu nachazeji, abych k nim mohl pristoupit a neco snima mohl
provest. Jak jednoduse na to ? Diky za rady. Delphik
>
>
>TPanel
[*] delphik(zv)email(tec)cz - 16.7.2003 19:06:51
Nazdar. Mam TPanel na kterem je umisteno nekolik TEdit (ale muze tam byt cokoliv jineho). Potrebuji zjistit vsechny TEdity (popr. i vse ostatni), ktere se na TPanelu nachazeji, abych k nim mohl pristoupit a neco snima mohl provest. Jak jednoduse na to ? Diky za rady. Delphik
Ladenie "service"
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 16.7.2003 16:06:40
> V helpe sa pise ze:
>
> Use the full path to the debugger as the string value.
>
> Ja som mu tam zadal:
>
> C:\Program Files\Borland\Delphi5\Bin\delphi32.exe -d
>
> debugovanie zjavne nabehne ako pisu, ale iba CPU window. Ako mozem
> nastavit aby som krokoval service v pascalovskom kode.
Ked Ti uz nabehne to CPU window, skus si dat do zdrojaku breakpointy a
pustit to dalej (F9 - Run).
Mne zatial vzdy stacil ten druhy sposob popisany v helpe:
1. nastav si breakpointy, spusti to z Delphi
2. _hned_ nato (do par sekund) spusti service, bud cez "Services" dialog
alebo z command line: net start MyServ
Nie som si isty, ale asi v tomto pripade musis mat v Project Options
nastavenu ouput directory priamo tam, odkial je ta sluzba registrovana.
Keby to predsa len nechodilo, skus sa pohrat s privilegiami interaktivneho
uzivatela, pod ktorym to chces debugovat.
HTH
TOndrej
lineConfigDialog z programu
[*] Jan Harman <harman(zv)volny(tec)cz> - 16.7.2003 15:26:32
Ahoj,
prosim vas, nevite nekdo jestli lze upravovat nejakymi API
funkcemi to co je v Konfiguracnim dialogu k modemu? Diky
Honza
--
Horke leto s VOLNY: Vyhraj Ford s klimatizaci! Vice na
http://soutez.volny(tec)cz
Ladenie "service"
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.7.2003 15:22:32
Hello Delphi CZ konferencia!
V helpe sa pise ze:
Use the full path to the debugger as the string value.
Ja som mu tam zadal:
C:\Program Files\Borland\Delphi5\Bin\delphi32.exe -d
debugovanie zjavne nabehne ako pisu, ale iba CPU window. Ako mozem
nastavit aby som krokoval service v pascalovskom kode.
Dakujem.
--
Best regards, TRoland
IBEventy a tuhnuti
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.7.2003 14:28:28
Ahoj,
chtel bych se vas zeptat na zkusenosti s IBEvents. O co jde.
Mam IBX 4.52 a D5. Na jednom formu je komponenta IBEvents. V dobe navrhu
nema zaregistrovane zadne eventy. Po zobrazeni formulare delam
IBEvents.Registered := False;
IBEvents.Events.Clear;
IBEvents.Events.Add(....); //zaregistruji takto 11 udalosti
IBEvents.Registered := True;
Pri prichodu eventu jen delam PostMessage oknu, na nemz komponenta lezi. Okno
prijme zpravu a udela refresh. Pokud ale soucasti toho refreshe je i opetovne
vykonani uvedene sekvence, tj. eventy se odregistruji a hned zase zaregistruji
znovu, program pri IBEvents.Registered := True vytuhne. Nevite nekdo proc? Kdyz
totiz pred zapnut9 registrace dam sleep(100), zatuhnuti se nekona. I pro
prostudovani zdrojaku IBEvents jsem nenasel duvod, proc by to melo zatuhnout a
spis si myslim, ze to je problem az nekde na urovni gds32.dll. Pokud totiz zkusim
nekam dat breakpoint, nastane patrne potrebne zdrzeni k tomu, aby to uz nevytuhlo.
Neboli s breakpointy to netuhne.
Pokud jste se nekdo eventy hloubeji zabyval, nenapada vas neco?
Dik.
Prosim nereste, proc chci provest preregistrovani eventu po prichodu eventu. Proste
to chci a zajima me, proc to nejde, resp. proc to nejde bez sleep ci jineho umeleho
zdrzovani.
David Lebeda
Sinea a detaily
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.7.2003 13:56:26
> Sinea predpoklada, ze pro prochazeni Master DataSetem
> se automaticky aktualizuje obsah Detail DataSetu.
> To musi byt zajisteno mimo Sineu, obvykle vazbou
> pres MasterSource na detailnim DataSetu.
> Samozrejme nesmi byt na master DataSetu provedeno
> DisableControls, pak by to nefungovalo.
Trefa!! Opravdu za to mohlo DisableControls. Bez nej to sice funguje spravne, ale
zase mi behem pripravy sestavy roluje grid. Zkusim s tim jeste neco provest.
Diky!!
David Lebeda
Sinea a detaily
[*] ludek.paral(zv)quick(tec)cz - 16.7.2003 12:58:22
Ahoj,
podivej se do udalosti Form.OnDeactivate, event.
projdi udalosti OnExit. Mne se stava, ze udelam
udalost a ta se spusti i v neocekavany okamzik
(treba OnDeactivate je standartne pred Destroy,
ale pri volani dalsich formularu se projevi
take).
Dalsi otazkou je zpusob spojeni Master-Detail. Ja
to nejradeji delam MasterDataset.AfterScroll-
natvrdo nastavuji SQL a parametry. Pak se mi
nestava, ze by se zrusilo spojeni master-detail.
Propojenim na urovni datasetu moc neverim, ne na
vsem to funguje (napr. ADO je pro mne docela
slozite propojit), nebo nekde vyrusis inherited v
obsluze eventu,atd...
----- Puvodni zprava -----
Od: Lebeda David <david.lebeda(zv)comarr(tec)cz>
Datum: streda, 16. cervence 2003 v 8:10 dop.
Predmet: Re: Sinea a detaily
> Ahoj,
>
> > Jeste musi byt u TSestDetail komponenty
> nastavena MasterSestava
>
> To samozrejme je. Navrh sestavy probehne v
> pohode tak, jak by mel.
>
> > > Jakmile se ale pokusim o tisk v sinee,
> obsahuje> > detail vsechny radky z
> kbMemTable. Jako kdyby se zrusilo
> > > spojeni master detail. Po
> > > skonceni prace s generatorem na gridech
> opet vse funguje spravne.
> >
> > Toto se mi nezda. Sinea zadne spojeni nerusi.
> > Pokud to spravne ukazuje v DBGridech,
> > stejne tak to musi vypadat v Sinee.
>
> Verim tomu. Zjistil jsem dalsi skutecnosti.
> Pokud data z master datasetu (coz je muj
> vlastni potomek TDatasetu) premistim do
> kbMemTable s jinak stejnou strukturou
> (fieldy premistene pres schranku, zadne
> indexy, zadne calc fieldy apod., funguje to
> spravne. Opravdu tomu nerozumim, v gridech
> to vidim spravne. Pak se zavola
> MasterSest.Preview, v detail gridu se objevi
> vsechny radky a v gridu pozoruji, jak se
> proroluji vsechny radky (a Sinea hlasi
> Pripravuji polozku 1 nebo neco v tom smyslu).
> Pak se to opakuje pro polozku 2 a dalsi. Po
> zavreni nahledu detail grid obsahuje opet
> jen tech par radku, ktere obsahovat ma.
>
> Ja rozhodne netvrdim, ze za to muze Sinea,
> jen si to neumim vysvetlit. Tak bych
> aspon rad zjistil, co Sinea delana s master
> datasetem. Je to tedy tak, ze prochazi
> master datasetem od zacatku do konce
> (klasicky while not eof do...Next) a
> predpoklada, ze v detail datasetu jsou
> dostupne pouze radky prislusejici k danemu
> master?
>
> > Asi bude nutne udelat nejakou jednoduchou
> aplikaci> demonstrujici problem a poslat ho
> firme Sinea.
>
> To bohuzel nemuzu, protoze po zamene master
> datasetu, ktery je usity specialne pro
> nas projekt a ktery bych tezko upravoval
> tak, aby byl funkcni i jinde, za jiny dataset,
> je vse v poradku. Takze problem je asi v
> datasetu, byt netusim zatim jaky a je na
> me, abych se s tim vyporadal. Ale dekuju za
> nabidku.
> David Lebeda
>
>
>Componenta ve formu
[*] Jan Harman <harman(zv)volny(tec)cz> - 16.7.2003 10:26:13
Ahoj vsem,
chtel bych poprosit nekoho kdo ma zkusenosti s vyrobou komponent.
Vyrobil jsem nekolik komponent s bazovou tridou TUsrChan a jednu
TManChan. U komponenty TManChan bych potreboval aby pri startu
aplikace(nebo po placnuti na form) si udelala seznam vsech
dostupnych komponent tridy TUsrChan. Nevim jak to udelat,
protoze dostupne komponenty mohou byt i v jinych formech. D5,
WinXP(W98).
Diky Honza Harman
--
Horke leto s VOLNY: Vyhraj Ford s klimatizaci! Vice na
http://soutez.volny(tec)cz
logonuser
[*] Ing. Jan Kuchar <kuchar(zv)unicodesys(tec)cz> - 16.7.2003 10:18:12
jo
----- Original Message -----
From: "Dobromil Maly" <dmaly(zv)yo(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, July 16, 2003 10:10 AM
Subject: Re: logonuser
> Mam to chapat tak, ze GetLastError vrati nulu?
>
> > -----Puvodni zprava-----
> >
> > GetLastError mlci a LogonUser mi vrati false
> >
>
>
>
> logonuser
[*] Dobromil Maly <dmaly(zv)yo(tec)cz> - 16.7.2003 10:10:11
Mam to chapat tak, ze GetLastError vrati nulu?
> -----Puvodni zprava-----
>
> GetLastError mlci a LogonUser mi vrati false
> logonuser
[*] Ing. Jan Kuchar <kuchar(zv)unicodesys(tec)cz> - 16.7.2003 10:04:11
GetLastError mlci a LogonUser mi vrati false
logonuser
[*] Dobromil Maly <dmaly(zv)yo(tec)cz> - 16.7.2003 09:30:09
A co na to rika GetLastError ?
Cituji z MSDN (doufam, ze se tim nedopoustim trestneho cinu :-)
<CITE>
Windows 2000: The process calling LogonUser requires the SE_TCB_NAME
privilege.
If the calling process does not have this privilege, LogonUser fails
and GetLastError returns ERROR_PRIVILEGE_NOT_HELD.
In some cases, the process that calls LogonUser must also have the
SE_CHANGE_NOTIFY_NAME privilege enabled; otherwise,
LogonUser fails and GetLastError returns ERROR_ACCESS_DENIED.
This privilege is not required for the local system account
or accounts that are members of the administrators group.
By default, SE_CHANGE_NOTIFY_NAME is enabled for all users,
but some administrators may disable it for everyone.
</CITE>
No a jako dodatek uvadim:
ERROR_PRIVILEGE_NOT_HELD = 1314L
ERROR_ACCESS_DENIED = 5L
SE_TCB_NAME = Act as part of the operating system
SE_CHANGE_NOTIFY_NAME = Bypass traverse checking
Dobra.
> -----Puvodni zprava-----
>
> nasledujicim zpusobem zjistuji jestli je zadane jmeno a heslo aktivni v
> systemu, pokud tento kod pouziju pod WINXP, tak je vse OK, ale
> pokud ho dam
> pod WIN2000 profesional, tak to neprovede, nevite jak zjisti jestli zadane
> jmeno a heslo je aktivni v systemu ?
>
> if LogonUser(PChar(Edit1.Text), PChar(''), PChar(Password.Text),
> LOGON32_LOGON_NETWORK,LOGON32_PROVIDER_DEFAULT, Token) then ok:=true;
>Sinea a detaily
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 16.7.2003 09:18:08
> From: Lebeda David
>
> Tak bych aspon rad zjistil, co Sinea delana s master datasetem.
> Je to tedy tak, ze prochazi
> master datasetem od zacatku do konce (klasicky while not eof
> do...Next) a
> predpoklada, ze v detail datasetu jsou dostupne pouze radky
> prislusejici k danemu master?
Presne tak. First, while not eof do...Next.
Sinea predpoklada, ze pro prochazeni Master DataSetem
se automaticky aktualizuje obsah Detail DataSetu.
To musi byt zajisteno mimo Sineu, obvykle vazbou
pres MasterSource na detailnim DataSetu.
Samozrejme nesmi byt na master DataSetu provedeno
DisableControls, pak by to nefungovalo.> > Asi bude nutne udelat nejakou jednoduchou aplikaci
> > demonstrujici problem a poslat ho firme Sinea.
>
> To bohuzel nemuzu, protoze po zamene master datasetu, ktery
> je usity specialne pro
> nas projekt a ktery bych tezko upravoval tak, aby byl funkcni
> i jinde, za jiny dataset,
> je vse v poradku. Takze problem je asi v datasetu, byt
> netusim zatim jaky a je na me, abych se s tim vyporadal.
Lze dat BreakPoint do TBridge.DataChange v unitu XXX_Bridge
a sledovat prochazeni datasetem. Pri kazdem kroku sdNext
v master DataSetu se musi aktualizovat obsah detail DataSetu.
Nebyly delane nejake vlastni upravy v unitu Sestavy.pas?
Vaclav Krmela
WinXP - ComboBox - stisk klaves
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 16.7.2003 08:42:05
Zdravim,
On 16 Jul 2003 at 8:26, js-delphi(zv)quick(tec)cz wrote:
> Mam problem, ktery me zaskocil. Presel jsem z
> WinNT na WinXP a jsem sokovan z jedne vlastnosti,
> ktera se ted objevila.
> Kdyz mam fokus na klasickem delphi ComboBoxu a
> stiaknu nejakou klavesu (mimo kurzorove nebo TAB,
> ale vcetne BackSpace a delete a dalsich) vyvola
> se vyjimka
> "invalid type class"
Nenapsal jsi, v jake verzi delphi to je.
Ja pouzivam D6 Pro, na WinXP CZ Pro, a zadne podobne chovani jsem
nezaznamenal. Schvalne jsem to ted jeste v nekolika programech vyzkousel, ale
combobox se chova spravne, po stisku pismena najede na prvni odpovidajici
polozku, zadna vyjimka nevznikne.
Problem asi bude nekde jinde, nejspise v necem, co je navazano na ten combobox.
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)WinXP - ComboBox - stisk klaves
[*] js-delphi(zv)quick(tec)cz - 16.7.2003 08:26:04
Ahoj.
Mam problem, ktery me zaskocil. Presel jsem z
WinNT na WinXP a jsem sokovan z jedne vlastnosti,
ktera se ted objevila.
Kdyz mam fokus na klasickem delphi ComboBoxu a
stiaknu nejakou klavesu (mimo kurzorove nebo TAB,
ale vcetne BackSpace a delete a dalsich) vyvola
se vyjimka
"invalid type class"
Umim si pochopitelne odchytit stisknute klavesy a
vyfiltrovat, ale chci se zeptat, jestli jste se s
tim uz nekdo nesetkal. Treba je to jenom nejaky
bag, ktery se da lehce odstranit...
Co mi nejde do hlavy je proc by si uzivatel
nemohl zmacknout pismeno na combu a combo mu
automaticky presune kurzor k polozce zacinajici
tim pismenem...
Fakt jsem z toho zmateny.
Diky za info porp. i rady
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
IB/FB - jak je to s vice inserty v jednom SQL dota
[*] js-delphi(zv)quick(tec)cz - 16.7.2003 08:20:04
Ahoj!
Mam dotaz viz subjekt. Proste me zajima, jestli
nevite zda server IB/FB vyrizuje dosle dotazy
vcelku (napr. kdyz jeden obsahuje treba 3
inserty) jak prisly (fronta FIFO).
Potrebuju to vedet proto, ze ten muj druhy a
treti insert se odvolava na ID vzdy toho jejich
predchoziho insertu. Kdyby se to nevyridilo
soucasne, tak by mohlo dojit k tomu, ze se mi
to "namecuje" blbe.
Diky za info.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
Sinea a detaily
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.7.2003 08:10:03
Ahoj,
> Jeste musi byt u TSestDetail komponenty nastavena MasterSestava
To samozrejme je. Navrh sestavy probehne v pohode tak, jak by mel.
> > Jakmile se ale pokusim o tisk v sinee, obsahuje
> > detail vsechny radky z kbMemTable. Jako kdyby se zrusilo
> > spojeni master detail. Po
> > skonceni prace s generatorem na gridech opet vse funguje spravne.
>
> Toto se mi nezda. Sinea zadne spojeni nerusi.
> Pokud to spravne ukazuje v DBGridech,
> stejne tak to musi vypadat v Sinee.
Verim tomu. Zjistil jsem dalsi skutecnosti. Pokud data z master datasetu (coz je muj
vlastni potomek TDatasetu) premistim do kbMemTable s jinak stejnou strukturou
(fieldy premistene pres schranku, zadne indexy, zadne calc fieldy apod., funguje to
spravne. Opravdu tomu nerozumim, v gridech to vidim spravne. Pak se zavola
MasterSest.Preview, v detail gridu se objevi vsechny radky a v gridu pozoruji, jak se
proroluji vsechny radky (a Sinea hlasi Pripravuji polozku 1 nebo neco v tom smyslu).
Pak se to opakuje pro polozku 2 a dalsi. Po zavreni nahledu detail grid obsahuje opet
jen tech par radku, ktere obsahovat ma.
Ja rozhodne netvrdim, ze za to muze Sinea, jen si to neumim vysvetlit. Tak bych
aspon rad zjistil, co Sinea delana s master datasetem. Je to tedy tak, ze prochazi
master datasetem od zacatku do konce (klasicky while not eof do...Next) a
predpoklada, ze v detail datasetu jsou dostupne pouze radky prislusejici k danemu
master?
> Asi bude nutne udelat nejakou jednoduchou aplikaci
> demonstrujici problem a poslat ho firme Sinea.
To bohuzel nemuzu, protoze po zamene master datasetu, ktery je usity specialne pro
nas projekt a ktery bych tezko upravoval tak, aby byl funkcni i jinde, za jiny dataset,
je vse v poradku. Takze problem je asi v datasetu, byt netusim zatim jaky a je na
me, abych se s tim vyporadal. Ale dekuju za nabidku.
David Lebeda
Jak s udalosti OnFetchProgress
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 16.7.2003 08:04:02
Ahoj vsem!
Pro pripojeni k MS SQL pouzivam ADO komponenty v D5 Ent. Komponenty
vychazejici z datasetu maji udalost OnFetchProgress. Chtel jsem ji vyuzit k
zobrazeni prubehu SQL dotazu napriklad u ADOQuery.
Provadim to tak, ze po pripojeni k databazi nastavim
ADOConnection1.ConnectOptions := coAsyncConnect; a pak ocekavam, ze se bude
aktivovat udalost OnFetchProgress, ale to se neprovadi. Nevite nekdo co
delam spatne. Podle napovedy by se prave tato udalost dala takto pouzit.
Predem dik za kazde nakopnuti
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 596 786 001
Mob.: 604 175 519
HTTP://www.sagit(tec)cz/
jak ziskat rok z data?
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 15.7.2003 22:19:26
(*
na skusku si vytvor novu aplikaciu, prekopiruj do unit 1, tento zdrojak,
daj na form jeden button1 a prirad mu onclick. Vsimni si proceduru
onshow. DecodeDate funguje spolahlivo, ale zistuje datumu len z TDate a
nie zo stringov. Ak mas datum v stringu, tak si ho musis sam
naformatovat najlespie na format DD.MM.YYYY
*)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Y, M, D: Word;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//vyberie z datumu (ktory uz je naformatovany na DD.MM.YYYY)
rok,mesiac,den
DecodeDate(Date, Y, M, D)
//vypise zisteny rok (v tvare napr 2003)
ShowMessage('Rok je '+IntToStr(Y));
end;
//naformatuje datum na tvar DD.MM.YYYY
procedure TForm1.FormShow(Sender: TObject);
begin
DateSeparator:='.';
ShortDateFormat:='dd.mm.yyyy';
TimeSeparator:=':';
LongTimeFormat:='hh:mm:ss';
Application.UpdateFormatSettings:=True;
end;
end.
Peter Ondras - www.ondras.sk
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: > Nebo jeste lepe funkce YearOf (unit DateUtils)
>:
>: To je pravda, ale v D5 tohle nemam ... ;o)
>:
>: Jirka
>:
Bin soubory FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.7.2003 20:05:18
Haj hou!
On 15 Jul 2003 at 16:49, Ales Pavel wrote:
> Ahoj chtel bych pres shell poustet gbak ve FB a otazkou je jak
> jednoduse zjistim kde je FB a jeji bin adresar naistalovan? Nebo mate
> nejaky elegantnejsi zpusob jak vytvorit novou DB ve FB 1.5 ze zalohy?
Na Windows je to vregistry, na ostatnich platformach v environment promenne
INTERBASE.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase