Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Pole komponent
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 2.10.2001 12:09:35
Alebo si ich mozes polozit na nejaku komponentu TPanel alebo TGroupBox a
pod.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: "ing. Pavel Zilinec" <zilinec(zv)email(tec)cz>
> Asi bych to udelal tak, ze bych takove skupine pridelil Tag a pak bych
> to v prochazeni Components testoval podle toho Tagu.
> 2.11.2001 Dalibor Falt�nek:
> > Ahoj pratele,
> > neexistuje v delphi 5 c/s moznost vytvorit pole napr. editboxu na
formulari
> > v dobe navrhu? Neco takoveho jako ve visual basicu, ze zkopiruji na
> > formulari prvek a umistim, a prostredi se mne zepta, jestli z techto
prvku
> > nechci vytvorit pole prvku. Pak se totiz na ne pekne muzu odkazovat v
> > cyklech jako napr:
TDriveView
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 2.10.2001 12:10:06
Zdravim,
z dnes jiz nefunkcni adresy
http://www2.crosswinds.net/~eckel/D4Components_English.htm jsem si pred
delsi dobou stahl komponentu TDriveView od Ingo Eckela zobrazujici disky,
adresare a soubory jako explorer. Shanel jsem se po nove verzi (mam verzi
2.21a), ale bez uspechu. Nepouzivate ji nekdo a nemate odkaz na novou
stranku?
Dekuji.==[ Libor Krayzel ]============================
http://www.elka(tec)cz * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://www.easypad(tec)cz * mailto:elka(zv)centrum(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
ICQ: 112690517
Chcete si popovidat? http://www.elka(tec)cz/kavarna
==========================================
OT: Tisk z terminal serveru
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 2.10.2001 12:19:58
Nekolik nasich zakazniku provozuje nas program pres terminal server -
funguje to celkem hezky a spolehlive. Jediny zadrhel je pri tisku
(QuickReport) - obcas se neukaze dialog pro nastaveni tisku z preview a
obcas nefunguje tisk. Toto celkem nahodile bez pravidel.
Tiskarny na klientech jsou lokalni (napr. na LPT1:), sitove sdilene z
windows i z novelu.
Netusite kde co nastavit aby tisk fungoval krapitko spolehliveji ?
Delphi 2, 5, QuickReport 2.0k, 3
Martin Macko,
M-PRO s.r.o.
U M�sta Chersonu 1595/1
434 01 Most
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~
Tel. a fax: +420 35 610 72 31 a� 33
Mobil: +420 603 48 39 40
Email:martinm(zv)m-pro(tec)cz
Internet:http://www.m-pro(tec)cz
Pole komponent
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 2.10.2001 12:32:06
Pokud pole prvku nutne nepotrebuji v dobe navrhu, tak to resim nejak takto:
var
MojePole: array[1..10] of TEdit;
procedure TForm1Create(Sender: TObject);
var
I: integer;
begin
for I:=1 to 10 do
begin
MojePole[I]:=TEdit.Create(Form1);
MojePole[I].Name:=Edit+IntToStr(I);
MojePole[I].Left:=10;
MojePole[I].Top:=I*30;
... //dalsi vlastnosti
end;
end;
K jednotlivym prvkum pak pristupuji podobne jako v Basicu:
MojePole[1].Text:='nejaky text';
Martin Ben
> -----P�vodn� zpr�va-----
> Od: Dalibor Falt�nek [mailto:dalibor.faltynek(zv)orgrez(tec)cz]
> Odesl�no: 02.11.2001 11:38
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Pole komponent
>
>
> Ahoj pratele,
> neexistuje v delphi 5 c/s moznost vytvorit pole napr.
> editboxu na formulari
> v dobe navrhu? Neco takoveho jako ve visual basicu, ze zkopiruji na
> formulari prvek a umistim, a prostredi se mne zepta, jestli z
> techto prvku
> nechci vytvorit pole prvku. Pak se totiz na ne pekne muzu odkazovat v
> cyklech jako napr:
> (zapis ve VB )
> for i=1 to 10
> edit1(10).text = i
> next i
>
> V delfi sice muzu pristupovat na vsechny prvky pomoci components, ale
> samozrejme vsechny pro me zajimave prvky maji index, ktery asi nemuzu
> ovlivnit, leda bych uz pri umistovani na formular striktne
> dodrzel jejich
> posloupnost.
>
> Snad jsem se vyjadril chopopitelne.
> Zdravim vas a dik za pripadne odpovedi (i nelichotive).
>
> dalibor.faltynek(zv)orgrez(tec)cz
>
> ZJEDNODUSENI Jak zamenit sloupce a radky?
[*] JIM Design <jim.design(zv)iol(tec)cz> - 2.10.2001 12:42:40
Ahoj,
Ja myslim, ze to jako reseni vypada, tak to dopovim:
tim CREATEM vytvoris tabulku, ktera bude mit jmena sloupcu podle toho co
jsem napsal ale typy tech poli musej byt vsude VARCHAR, aby se tam daly
insertovat nejen ty hodnoty v tech sloupcich, ale i jejich nazvy do prvniho
radku, takova tabulka je pak jeden datovy zdroj, i kdyz pekne zvetsen, ale
to hodne zalezi k cemu to potrebujes a kolik tech dat bude.
Je totiz dost dobre mozne ze se to da vyresit mnohem jednoduseji.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of borkovec(zv)email(tec)cz
Sent: Friday, November 02, 2001 7:21 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ZJEDNODUSENI Jak zamenit sloupce a radky?
Hm, ale jinak to jako reseni moc nevypada, coz?
Daji se naplnit dva sloupce gridu ruznymi zdroji? To by mohlo byt alespon
castecne reseni
--- P�vodn� zpr�va ---
Od: "JIM Design" <jim.design(zv)iol(tec)cz>
Datum: 01.11.2001 22:25:04
Ahoj,
Adodataset1.SqlText:='SELECT * from tabulka';
Adodataset1.Open;
for i:=1 to adodataset1.FieldCount-1 do
begin
Adodataset1.Fields[i].FieldName--jmeno sloupce; // tady prostudovat CREATE
v SQL a sestavit string vytvarejici tabulku se jmeny sloupcu, rovnez
sestavit INSERT kterej tam do prvniho radku hodi ty jmena sloupcu
end;
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of borkovec(zv)email(tec)cz
V podstate jde o toto:
selectem vybrat jeden radek tabulky a prevest ho na tabulku, kde v prvnim
sloupci jsou jmena sloupcu a ve druhem jejich hodnoty. A je to.
---
Nokia Game je tady. Jsi pripraven?
Zaregistruj se na http://www.nokiagame.com/
OT: Graf pro Weibullovo rozdeleni (D6)
[*] Pavel Houdek <buggy(zv)betula.fsid.cvut(tec)cz> - 2.10.2001 12:48:18
Zdravim,
Omlouvam se za OT ale resim problem s kreslenim grafu resp. s transformaci os
tak aby vysleny graf byla primka. Je to vynaseni hodnot na tzv
"pravdepodobnotnim papiru pro weibullovu dist. fci", kde x je logaritmicka a
y je transformovana (transformaci neznam)...
Jde mi o to, ze v podstate hledam inverzni fci, ale numericky se mi to resit
nechce, proto bych radeji nejakou komponentu, ktera to resi jinak...
Nemate nahodou nekdo neco podobneho? Pripadne i pro jina rozdeleni?
Dekuji za pripadne odpovedi..
--
Pavel Houdek
p.houdek(zv)seznam(tec)cz
tisk grafiky
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 2.10.2001 13:12:29
pratele,
mam takovy problem. vytvarim nejaky graficky tisk. ovsem na nekterych
inkoustovych tiskarnach (specificky HP) to netiskne (vyjede prazdny
papir). castecne pomohlo nekolikrat po sobe zopakovat
Application.ProcessMessages; Sleep(100);, dalsi dilci reseni bylo
stahnout novy driver na tiskarnu. nicmene u nekterych tiskaren ani tuk.
dost me to vytaci. mam pocit, ze je to spis nekde mezi windows a
tiskarnou. jenze treba z gfx prohlizece to vytisknu v pohode (ukladam si
ty obrazy na hdd). nekteri zrucnejsi zakaznici si to tisknou timto
zpusobem, ale to neni reseni. resil jste uz nekdo neco podobnyho? mate
nekdo radu, nebo kus funkcniho zdrojaku? jsem z toho uz na prasky.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
OT: PL/SQL a retezeni VARCHARu :(((
[*] skalsky(zv)oksystem(tec)cz - 2.10.2001 13:13:07
Hi all,
s SQL se zde setkavam skoro porad, presto jsem to dal radeji do OT :
Stav:
nacitam string o delce 0..35 znaku ... nevim jak je dlouhej. Po nacteni
zjistim jeho delku a chci ho doplnit od konce mezerama do delky 35 znaku.
Problem: v tom cyklu se mi ty mezery nepricitaj :(
.. nemuzu nikde najit tu chybu ... nejspis pouzivam spatne to retezeni, ale
nevim, jak jinak by to melo byt :(
Pouzivam PL/SQL Developer 3.04.344
.. tu je ta procedura :
procedure befel
(ulice_zadatel IN VARCHAR2, --- vnejsi promenna
....
)
IS
I number; // vnitrni promenna
delka number; // vnitrni promenna
ulice varchar2(35); // vnitrni promenna
mezera varchar2(1); // vnitrni promenna
begin
...
--- problemovy usek
delka:= length(ulice_zadatel);
ulice:=ulice_zadatel;
mezera:=' ';
FOR I in delka .. 35 LOOP ulice:=ulice||mezera; END LOOP;
--- konec problemoveho useku
...
end befel;
Dik za jakejkoli helpik ....
Milan P. Skalsk�
�������������
odd�len� technick�ho rozvoje
OKsystem s.r.o.
Na Pankr�ci 125
14021, Praha 4
�������������
http://www.oksystem(tec)cz
MailTo:Skalsky(zv)oksystem(tec)cz
Telefon : +420 2 44021217
Pole komponent
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 2.10.2001 13:19:36
Jasne ze to takto jde, dokonce by asi slo do takoveho pole (pointru)
priradit v nize uvadene procedure uz vytvorene editboxy, spis jsem chtel
vedet, jestli tam ta moznost prece jen nekde neni. To s tim tagem se mi moc
nezda, protoze prece nevim co v i-te komponente bude za tag driv nez
prislusnou komponentu v cyklu otevru a otestuji.
Je ale skoda, ze v delfi neni takovato fakt prakticka vec.
Stejne vam vsem dekuji
Dalibor Faltynek - technik.
dalibor.faltynek(zv)orgrez(tec)cz
> Pokud pole prvku nutne nepotrebuji v dobe navrhu, tak to resim nejak
takto:
>
> var
> MojePole: array[1..10] of TEdit;
>
> procedure TForm1Create(Sender: TObject);
> var
> I: integer;
> begin
> for I:=1 to 10 do
> begin
> MojePole[I]:=TEdit.Create(Form1);
> MojePole[I].Name:=Edit+IntToStr(I);
> MojePole[I].Left:=10;
> MojePole[I].Top:=I*30;
> ... //dalsi vlastnosti
> end;
> end;
>
> K jednotlivym prvkum pak pristupuji podobne jako v Basicu:
>
> MojePole[1].Text:='nejaky text';
>
> Martin Ben
dll pro PHP
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 2.10.2001 13:20:40
On Fri, 2 Nov 2001, EFG developer wrote:
> Zdravim, nevite nekdo jak napsat dll extension pro PHP?
> potrebuju si do PHP pridat nektere svoje funkce a rad bych to nasal v
> delphi.
Rekl bych ze v Delphi to pujde dost spatne. Navic by to DLL nespise muselo
byt pod stejnou licenci jako PHP tedy GNU GPL.
Asi jedinym resenim je vytvorit mezivrstvu v C, ktera bude konvertovat
data mezi DLL a Vasi knihovou. Ta knihovna ale NESMI pouzivat cokoliv z
PHP a musi byt na PHP nezavisla, aby nemusela mit licenci stejnou jako
PHP.
Z hlediska portability, bych ale stejne bylo lepsi tu knihovnu napsat v C.
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� #dol�
tel: 068/5353548
ZJEDNODUSENI Jak zamenit sloupce a radky?
[*] borkovec(zv)email(tec)cz - 2.10.2001 13:20:31
Vis, ta myslenka je nabidnout uzivatelum na formu pohled na radek dat ve stylu ObjectBrowseru - vlevo popiska, vpravo hodnota. V jedne tabulce jsou popisky vsech sloupcu ze vsech tabulek (i nekolikajazycne) a hodnoty se pak berou z konkretniho radku tabulky (nebo pohledu). Nevim jestli vytvaret pomocnou tabulku, je to prave. (Pokud jsem Te spravne pochopil.)
--- P�vodn� zpr�va ---
Od: "JIM Design" <jim.design(zv)iol(tec)cz>
Datum: 02.11.2001 12:59:51
Ahoj,
Ja myslim, ze to jako reseni vypada, tak to dopovim:
tim CREATEM vytvoris tabulku, ktera bude mit jmena sloupcu podle toho co
jsem napsal ale typy tech poli musej byt vsude VARCHAR, aby se tam daly
insertovat nejen ty hodnoty v tech sloupcich, ale i jejich nazvy do prvniho
radku, takova tabulka je pak jeden datovy zdroj, i kdyz pekne zvetsen, ale
to hodne zalezi k cemu to potrebujes a kolik tech dat bude.
Je totiz dost dobre mozne ze se to da vyresit mnohem jednoduseji.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of borkovec(zv)email(tec)cz
Sent: Friday, November 02, 2001 7:21 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ZJEDNODUSENI Jak zamenit sloupce a radky?
Hm, ale jinak to jako reseni moc nevypada, coz?
Daji se naplnit dva sloupce gridu ruznymi zdroji? To by mohlo byt alespon
castecne reseni
--- P�vodn� zpr�va ---
Od: "JIM Design" <jim.design(zv)iol(tec)cz>
Datum: 01.11.2001 22:25:04
Ahoj,
Adodataset1.SqlText:='SELECT * from tabulka';
Adodataset1.Open;
for i:=1 to adodataset1.FieldCount-1 do
begin
Adodataset1.Fields[i].FieldName--jmeno sloupce; // tady prostudovat CREATE
v SQL a sestavit string vytvarejici tabulku se jmeny sloupcu, rovnez
sestavit INSERT kterej tam do prvniho radku hodi ty jmena sloupcu
end;
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of borkovec(zv)email(tec)cz
V podstate jde o toto:
selectem vybrat jeden radek tabulky a prevest ho na tabulku, kde v prvnim
sloupci jsou jmena sloupcu a ve druhem jejich hodnoty. A je to.
---
Nokia Game je tady. Jsi pripraven?
Zaregistruj se na http://www.nokiagame.com/
---
Nokia Game je tady. Jsi pripraven?
Zaregistruj se na http://www.nokiagame.com/
tisk grafiky
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 2.10.2001 13:23:13
ok, odpovim si sam ;)
takze 1001 tipu a triku pro delphi, trik 476. tisk velkych bitmap,
strana 186.
dekuji vsem autorum
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
OT - zmena kodove stranky W98/W2K
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 2.10.2001 13:29:20
Kvuli vyvoji se obcas potrebuji prepnout do jine kodove stranky. Udelel jsem
si programek, ktery zapise prislusnou hodnotu do registry (klic ACP). Pak
ale musim restartovat windows.
Nevite nekdo, jak prepinat kodove stranky bez restartu windows ?
diky, Mirek
PL/SQL a retezeni VARCHARu :(((
[*] Radek.Holecek(zv)up.mpsv(tec)cz - 2.10.2001 13:44:00
A nestacilo by ulici definovat jen jako varchar (pevna delka),
mi se u varchar2 mezery na konci neulozi.
Radek
-----P�vodn� zpr�va-----
Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
Odesl�no: 2. listopadu 2001 13:13
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: OT: PL/SQL a retezeni VARCHARu :(((
Hi all,
s SQL se zde setkavam skoro porad, presto jsem to dal radeji do OT :
Stav:
nacitam string o delce 0..35 znaku ... nevim jak je dlouhej. Po nacteni
zjistim jeho delku a chci ho doplnit od konce mezerama do delky 35 znaku.
Problem: v tom cyklu se mi ty mezery nepricitaj :(
.. nemuzu nikde najit tu chybu ... nejspis pouzivam spatne to retezeni, ale
nevim, jak jinak by to melo byt :(
Pouzivam PL/SQL Developer 3.04.344
.. tu je ta procedura :
procedure befel
(ulice_zadatel IN VARCHAR2, --- vnejsi promenna
....
)
IS
I number; // vnitrni promenna
delka number; // vnitrni promenna
ulice varchar2(35); // vnitrni promenna
mezera varchar2(1); // vnitrni promenna
begin
...
--- problemovy usek
delka:= length(ulice_zadatel);
ulice:=ulice_zadatel;
mezera:=' ';
FOR I in delka .. 35 LOOP ulice:=ulice||mezera; END LOOP;
--- konec problemoveho useku
...
end befel;PL/SQL a retezeni VARCHARu :(((
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 2.10.2001 13:46:33
A co zkusit funkce RPAD nebo LPAD ?
Martin Ben
> -----P�vodn� zpr�va-----
> Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
> Odesl�no: 02.11.2001 13:13
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: OT: PL/SQL a retezeni VARCHARu :(((
>
>
> Hi all,
> s SQL se zde setkavam skoro porad, presto jsem to dal radeji do OT :
>
> Stav:
> nacitam string o delce 0..35 znaku ... nevim jak je
> dlouhej. Po nacteni
> zjistim jeho delku a chci ho doplnit od konce mezerama do
> delky 35 znaku.
> Problem: v tom cyklu se mi ty mezery nepricitaj :(
> .. nemuzu nikde najit tu chybu ... nejspis pouzivam spatne to
> retezeni, ale
> nevim, jak jinak by to melo byt :(
>
> Pouzivam PL/SQL Developer 3.04.344
>
> .. tu je ta procedura :
>
> procedure befel
> (ulice_zadatel IN VARCHAR2, --- vnejsi promenna
> ....
> )
> IS
> I number; // vnitrni promenna
> delka number; // vnitrni promenna
> ulice varchar2(35); // vnitrni promenna
> mezera varchar2(1); // vnitrni promenna
> begin
> ...
>
> --- problemovy usek
>
> delka:= length(ulice_zadatel);
> ulice:=ulice_zadatel;
> mezera:=' ';
> FOR I in delka .. 35 LOOP ulice:=ulice||mezera; END LOOP;
> --- konec problemoveho useku
>
> ...
> end befel;
>
>
> Dik za jakejkoli helpik ....
>
> Milan P. Skalsk�
> �������������
> odd�len� technick�ho rozvoje
> OKsystem s.r.o.
> Na Pankr�ci 125
> 14021, Praha 4
> �������������
> http://www.oksystem(tec)cz
> MailTo:Skalsky(zv)oksystem(tec)cz
> Telefon : +420 2 44021217
>
>
>
> TDriveView
[*] JIM Design <jim.design(zv)iol(tec)cz> - 2.10.2001 13:53:35
ahoj,
pouzij http://www.gexperts.com/GXExplorer/, ten zobrazuje taky disky tak
jako explorer
a je s kodem
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Krayzel Libor
Zdravim,
z dnes jiz nefunkcni adresy
http://www2.crosswinds.net/~eckel/D4Components_English.htm jsem si pred
delsi dobou stahl komponentu TDriveView od Ingo Eckela zobrazujici disky,
adresare a soubory jako explorer. Shanel jsem se po nove verzi (mam verzi
2.21a), ale bez uspechu. Nepouzivate ji nekdo a nemate odkaz na novou
stranku?
Dekuji.ZJEDNODUSENI Jak zamenit sloupce a radky?
[*] JIM Design <jim.design(zv)iol(tec)cz> - 2.10.2001 13:53:34
Ahoj,
v tom pripade doprucuju udelat jednu specialni tabulku, ve ktery jsou
vsechny sloupce vsech tabulek stylu:
nazevsloupce popissloupce tabname
-------------------------------------------
cislo aaaaa tabulka1
nazevvyrobku ... tabulka1
blabla .... tabulka2
blabla2 ... tabulka2
atd..
z toho pak udelas pri zmene tabulky SELECT * from spec_tabulka WHERE
tabname='tabulka1'
a zobrazis do toho gridu, a pri kazdem prechodu na jiny radek tam nasackujes
pouze ty hodnoty z toho konkretniho radku, to je podle me lepsi reseni nez
delat nejakou docasnou tabulku vzdy kdyz zobrazujes jeden z radku.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of borkovec(zv)email(tec)cz
Vis, ta myslenka je nabidnout uzivatelum na formu pohled na radek dat ve
stylu ObjectBrowseru - vlevo popiska, vpravo hodnota. V jedne tabulce jsou
popisky vsech sloupcu ze vsech tabulek (i nekolikajazycne) a hodnoty se pak
berou z konkretniho radku tabulky (nebo pohledu). Nevim jestli vytvaret
pomocnou tabulku, je to prave. (Pokud jsem Te spravne pochopil.)
PL/SQL a retezeni VARCHARu :(((
[*] Jarda Jirava <listuj(zv)centrum(tec)cz> - 02.10.2001 14:11:19
Ahoj,
nevim jak je to presne mozne u PL/SQL, ale neslo by udelat neco
takovehleho?
Pokud vis delku tak
ulice := left(ulice||' ... 35 mezer ...',35)
Ale jak bylo receno u varcharu se ti mezery na konci neukladaji.
Jarda
************** Radek.Holecek(zv)up.mpsv(tec)cz
nacitam string o delce 0..35 znaku ... nevim jak je dlouhej. Po
nacteni
zjistim jeho delku a chci ho doplnit od konce mezerama do delky
35 znaku.
**************
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Nokia Game je tady. Jsi pripraven?Zaregistruj se na http://user.centrum(tec)cz/redir.php?url=http://www.nokiagame.com
ZJEDNODUSENI Jak zamenit sloupce a radky?
[*] borkovec(zv)email(tec)cz - 2.10.2001 14:12:46
A uz jsem skoro u cile:
Tebou navrhovana tabulka jiz existuje a z ni se vychazi (jsou v ni ulozeny dalsi vlastnosti sloupcu v tabulkach, treba ty cizojazycne nazvy). A nyni jde jen o to, poskytnou view, ktere ma parametr id konkretniho radku z konkretni tabulky a vr�t� zhruba toto:
Popisloupce Hodnotavrealnetabulce
Cislo vyrobku 1245
Nazev vyrobku Muj vyrobek
Datum vyroby 1.1.2001
... atd.
--- P�vodn� zpr�va ---
Od: "JIM Design" <jim.design(zv)iol(tec)cz>
Datum: 02.11.2001 13:53:05
Ahoj,
v tom pripade doprucuju udelat jednu specialni tabulku, ve ktery jsou
vsechny sloupce vsech tabulek stylu:
nazevsloupce popissloupce tabname
-------------------------------------------
cislo aaaaa tabulka1
nazevvyrobku ... tabulka1
blabla .... tabulka2
blabla2 ... tabulka2
atd..
z toho pak udelas pri zmene tabulky SELECT * from spec_tabulka WHERE
tabname='tabulka1'
a zobrazis do toho gridu, a pri kazdem prechodu na jiny radek tam nasackujes
pouze ty hodnoty z toho konkretniho radku, to je podle me lepsi reseni nez
delat nejakou docasnou tabulku vzdy kdyz zobrazujes jeden z radku.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of borkovec(zv)email(tec)cz
Vis, ta myslenka je nabidnout uzivatelum na formu pohled na radek dat ve
stylu ObjectBrowseru - vlevo popiska, vpravo hodnota. V jedne tabulce jsou
popisky vsech sloupcu ze vsech tabulek (i nekolikajazycne) a hodnoty se pak
berou z konkretniho radku tabulky (nebo pohledu). Nevim jestli vytvaret
pomocnou tabulku, je to prave. (Pokud jsem Te spravne pochopil.)
---
Nokia Game je tady. Jsi pripraven?
Zaregistruj se na http://www.nokiagame.com/
Pole komponent
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.10.2001 14:16:15
From: "Dalibor Falt�nek" <dalibor.faltynek(zv)orgrez(tec)cz>
> Je ale skoda, ze v delfi neni takovato fakt prakticka vec.
Ahoj,
co treba takhle:
type
PComponentDynArray = ^TComponentDynArray;
TComponentDynArray = array of TComponent;
function ComponentsArray(ComponentArray: PComponentDynArray; Owner:
TWinControl;
ComponentClass: TComponentClass): Integer;
var
I: Integer;
begin
Result := 0;
with Owner do
begin
SetLength(ComponentArray^, ComponentCount);
for I := 0 to ComponentCount - 1 do
if Components[I].ClassType = ComponentClass then
begin
ComponentArray^[Result] := Components[I];
Inc(Result);
end;
end;
SetLength(ComponentArray^, Result);
end;
a potom v aplikaci:
procedure TForm1.Button2Click(Sender: TObject);
var
Edits: array of TEdit;
begin
ComponentsArray((zv)Edits, Self, TEdit);
ShowMessage(Edits[0].Name);
end;
Petr Vones
transfer dat z FOXPRO do MSSQL 7
[*] Erik Salaj <winsoft(zv)stonline.sk> - 2.10.2001 14:33:40
> rekneme ze to nejde pres DTS protoze ty tabulky mi prichazeji postupne po
> cely den, tyden,mesic...atd. z jednotlivych pracovist, musim v nich
opravit
> neuplne zaznamy a prevest je do MSSQL
DTS mozes ovladat aj programovo.
Erik
dll pro PHP
[*] EMDAT <blau(zv)emdat(tec)cz> - 2.10.2001 15:09:03
Zadna hlediska proste to jinak naz v Cecku nejde a pokud jo tak to bude
pekna prasarna.
Petr Blau
softwae developer
PS: delphi, PHP, i ruzna cecka mam uz osahana
> Zdravim, nevite nekdo jak napsat dll extension pro PHP?
> potrebuju si do PHP pridat nektere svoje funkce a rad bych to nasal v
> delphi.
Rekl bych ze v Delphi to pujde dost spatne. Navic by to DLL nespise muselo
byt pod stejnou licenci jako PHP tedy GNU GPL.
Asi jedinym resenim je vytvorit mezivrstvu v C, ktera bude konvertovat
data mezi DLL a Vasi knihovou. Ta knihovna ale NESMI pouzivat cokoliv z
PHP a musi byt na PHP nezavisla, aby nemusela mit licenci stejnou jako
PHP.
Z hlediska portability, bych ale stejne bylo lepsi tu knihovnu napsat v C.
Skryti a obnoveni hodin v tray (TrayClockWClass)
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 2.10.2001 15:10:06
Zdravim,
zkousel jsem dle knihy 1001 T&T pro Delphi vytvorit procedurku,
ktera by skryla / zobrazila hodiny v tray.
Skryje je perfektne :o) ale zobrazi jen pokud jsou Win2000 v "dobre nalade".
---------------------------------------------------------------------------
procedure TInformerMain.SetTrayClock(Hide: Boolean);
var
NotiWnd, ClockWnd, StWnd: THandle;
begin
StWnd := FindWindow('Shell_TrayWnd', nil);
NotiWnd := FindWindowEx(StWnd, HWND(0), 'TrayNotifyWnd', nil);
ClockWnd := FindWindowEx(NotiWnd, HWND(0), 'TrayClockWClass', nil);
If Hide then
ShowWindow(ClockWnd, SW_HIDE)
else
ShowWindow(ClockWnd, SW_SHOW);
end;
---------------------------------------------------------------------------
NEVITE NEKDO JAK ZAJISTIT ZOBRAZENI VZDY A NE NAHODNE ???
Pripadne jak na to, abych misto standardnich hodin nastavil (hook) svoji
aplikace, ktera by hodiny nahradila ??? Docela skromny dotaz ne :o))))
---------------------------------------------------------------------------
Robert Plzak
ICQ: 71733706
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.295 / Virov� b�ze: 159 - datum vyd�n�: 1.11.2001
PL/SQL a retezeni VARCHARu :(((
[*] Rado Benc <bego(zv)pobox.sk> - 2.10.2001 15:15:40
Nazdar,
> nacitam string o delce 0..35 znaku ... nevim jak je dlouhej. Po nacteni
> zjistim jeho delku a chci ho doplnit od konce mezerama do delky 35 znaku.
A nepomohlo by pouzit miesto VARCHAR2 typ CHAR ? Teda:
> procedure befel
> (ulice_zadatel IN VARCHAR2, --- vnejsi promenna
> ....
> )
> IS
> I number; // vnitrni promenna
> delka number; // vnitrni promenna
> ulice char(35); // vnitrni promenna
^^^^^
> mezera varchar2(1); // vnitrni promenna
> begin
> ...
>
> --- problemovy usek
>
> // delka:= length(ulice_zadatel);
> ulice:=ulice_zadatel;
> // mezera:=' ';
> // FOR I in delka .. 35 LOOP ulice:=ulice||mezera; END LOOP;
> --- konec problemoveho useku
>
> ...
> end befel;
Z dokumentacie:
CHAR Datatype
The CHAR datatype specifies a fixed-length character string.
When you create a table with a CHAR column, you supply the
column length in bytes. Oracle subsequently ensures that all
values stored in that column have this length. If you insert
a value that is shorter than the column length, Oracle blank-pads
the value to column length. If you try to insert a value that is
too long for the column, Oracle returns an error.
HTH,
bego
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
PL/SQL a retezeni VARCHARu :(((
[*] skalsky(zv)oksystem(tec)cz - 2.10.2001 15:17:34
jojo, taky koukam, ze se mi ani neukladaj .. asi to nekde oTRIMuje .. v tom
to mozna bude :)))
v kazdem pripade dik za echo :)
Milan
-----Original Message-----
From: Radek.Holecek(zv)up.mpsv(tec)cz [mailto:Radek.Holecek(zv)up.mpsv(tec)cz]
Sent: Friday, November 02, 2001 1:44 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: PL/SQL a retezeni VARCHARu :(((
A nestacilo by ulici definovat jen jako varchar (pevna delka),
mi se u varchar2 mezery na konci neulozi.
Radek PL/SQL a retezeni VARCHARu :(((
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 2.10.2001 15:53:53
> Stav:
> nacitam string o delce 0..35 znaku ... nevim jak je
> dlouhej. Po nacteni
> zjistim jeho delku a chci ho doplnit od konce mezerama do
> delky 35 znaku.
Nie som si isty, ale ak si dobre spominam, v SQL sa da pouzit CAST AS
CHAR(30) a v tom pripade je vysledne pole doplnene medzerami. Takze mozno to
doplnanie v procedure ani nepotrebujes (?).
HTH
TOndrej
OT: float to numeric
[*] Jarda Jirava <listuj(zv)centrum(tec)cz> - 02.10.2001 16:34:33
Zdravim,
mel bych dotaz. Kolega navrhl spatne polozku databaze a na me
ted nechal abych to spravil.
Polozka je float a potreboval bych z ni udelat numeric(18,6). S
touto polozkou se bude pocitat a je potreba s ni pocitat presne.
Bohuzel v DB jsou uz data a neradi bychom o ne prisli.
Jde provest nejaky (pokud mozno co nejpresnejsi) prevod?
*** ukazka dat
0.000099999997
1798.89001464
1326.09997558
.001000000047
*** ukazka dat
Diky za rady a napady
Jarda
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Nokia Game je tady. Jsi pripraven?Zaregistruj se na http://user.centrum(tec)cz/redir.php?url=http://www.nokiagame.com
HTTP download a binarni/textove soubory
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 02.10.2001 17:24:16
Ahoj, potrebuji poradit.
Stahuji soubor z Www pomoci funkci WinINet a pokousim se pred stazenim
zjistit velikost souboru pomoci nize uvedene funkce
HttpQuery(HTTP_QUERY_CONTENT_LENGTH). Coz funguje u binarnich souboru
ale nikoliv u textovych. Vedel byste nekdo odpoved na nasledujici
otazky?
1. Podle ceho server poznava, zda jde o textovy nebo binarni soubor?
2. Lze ho nejak donutit, aby mi vratil velikost i u textoveho souboru?
// zjisti udaj dany pomoci Query a vraci jako string
function THTTPGetThread.HttpQuery(Query: DWord): string;
var
dwBufLen, dwIndex: DWord;
S: string;
QueryResult: boolean;
begin
dwIndex := 0;
dwBufLen := 1024;
SetLength(S, dwBufLen);
QueryResult := HttpQueryInfo(hRequest, Query, PChar(S),
dwBufLen, dwIndex);
if QueryResult then
begin
SetLength(S, dwBufLen);
Result := S;
end else Result := '';
end; // func
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
float to numeric
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 2.10.2001 17:56:16
vytvorit pomocne pole,
potom update table set pole=cast( starepole as Numeric(18,6));
a pak transformci zpet pod stejne jmeno.
Slavek
> -----P�vodn� zpr�va-----
> Od: Jarda Jirava [SMTP:listuj(zv)centrum(tec)cz]
> Odesl�no: 2. listopadu 2001 16:35
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: OT: float to numeric
>
> Zdravim,
>
> mel bych dotaz. Kolega navrhl spatne polozku databaze a na me
> ted nechal abych to spravil.
>
> Polozka je float a potreboval bych z ni udelat numeric(18,6). S
> touto polozkou se bude pocitat a je potreba s ni pocitat presne.
> Bohuzel v DB jsou uz data a neradi bychom o ne prisli.
>
> Jde provest nejaky (pokud mozno co nejpresnejsi) prevod?
>
> *** ukazka dat
> 0.000099999997
> 1798.89001464
> 1326.09997558
> .001000000047
> *** ukazka dat
>
>
> Diky za rady a napady
>
> Jarda
>
> *****************
> Jarda Jirava
> (zv)
> LiStuj
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> *****************
>
> Nokia Game je tady. Jsi pripraven?Zaregistruj se na http://user.centrum(tec)cz/redir.php?url=http://www.nokiagame.com
>
>
>
>
> QReport
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 2.10.2001 20:45:35
Spravim si Preview reportu a vsetko na nom vyzera v poriadku, no ked ho
poslem na tlac, vytlaci sa mi len kusok z neho (asi format A7) a vsetko
ostatne proste odsekne. Format nastavujem na Custom, no nech dam akykukolvek
velkost stranky, vzdy mi vytlaci rovnaky kusok z celeho reportu. Mam
tlaciaren HP LaserJet 5L.
Vdaka za kazdu radu.Pole komponent
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 2.10.2001 21:01:02
Ja bych resil spise jako funkci, tj:
function ComponentsArray( Owner: TWinControl; ComponentClass: TComponentClass): ComponentDynArray;
pocet prvku si zjisti pres Length, pokud to potrebuje.
Pro prochazeni pole je cistejsi toto:
for i:=Low(pole)to High(pole) do pole[i]....
Pak urcite nemuzu udelat chybu v indezaci.
Ale to jen tak na okraj.
Slavek
> type
> PComponentDynArray = ^TComponentDynArray;
> TComponentDynArray = array of TComponent;
>
> function ComponentsArray(ComponentArray: PComponentDynArray; Owner:
> TWinControl;
> ComponentClass: TComponentClass): Integer;
> var
> I: Integer;
> begin
> Result := 0;
> with Owner do
> begin
> SetLength(ComponentArray^, ComponentCount);
> for I := 0 to ComponentCount - 1 do
> if Components[I].ClassType = ComponentClass then
> begin
> ComponentArray^[Result] := Components[I];
> Inc(Result);
> end;
> end;
> SetLength(ComponentArray^, Result);
> end;
>
> a potom v aplikaci:
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> Edits: array of TEdit;
> begin
> ComponentsArray((zv)Edits, Self, TEdit);
> ShowMessage(Edits[0].Name);
> end;
>
> Petr Vones
>
> Vyslovnost
[*] Ale� Kresta <ales.kresta(zv)seznam(tec)cz> - 2.10.2001 22:47:34
Ahoj,
da se nejak, jestlize mam nainstalovynych vice jazyku, mezi nimi prepinat,
myslim tim treba anglicka a nemecka vyslovnost atd...
predem diky za odpoved
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 24, 2001 7:38 PM
Subject: Re: Vyslovnost
> From: "Ale# Kresta" <ales.kresta(zv)seznam(tec)cz>
> > chtel bych se zeptat zda neexistuje nejaka komponenta nebo program,
ktera by
> > dokazala precis(s anglickou vyslovnosti) zadany text.
>
> Ahoj,
>
> Using Speech Technology with your Delphi Apps:
> http://www.undu.com/Articles/990120b.html
>
> Petr Vones
>
>DOS keyboard pod Win2000
[*] Hurricane <hurricane(zv)quick(tec)cz> - 3.10.2001 10:30:52
Zdravim
> >> c) DOS okno pouzivalo stejny rozlozeni jako wokna.
> > To asi tezko, jelikoz DOS (i konzole) pouziva jako cestinu CP-852,
kdezto
> > windowsy maji CP-1152. Musel bys to sjednotit na jeden CP. Jak na to ale
> > netusim, jelikoz o CP-1152 pod DOSem jsem jeste neslysel. Takhle je to u
> > W9x, ted si matne vzpominam, nema nahodou W2K CP-1152 i v konzoli? O W2K
> > jsem jenom cetl. Takze abych sem nezanasel nejake bludy.
>
> CP-1152 ? Nechtel jsi rict spise 1250 ?
Jist, stale si to nedokazu zapamatovat.
Hurricane
Bookmarky
[*] Radoslav Medzihradsky <rmedzihradsky(zv)cssoftware(tec)com> - 3.10.2001 18:03:59
Prosim poradte mi, akym sposobom nacitam URL adresy vsetkych bookmarkov
z Internet Explorera.
dik, Astern
PS: Win 2k SP2, D6 PE
Bookmarky
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 3.10.2001 18:20:32
*.url jsou textove soubory, ktere najdes v adresari oblibene (dle OS).
Prohlidni si je v notepadu; dulezite mi prislo predevsim:
[DEFAULT]
BASEURL=http://...
a
[INTERNET SHORTCUT]
URL=http://... Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Radoslav Medzihradsky" <rmedzihradsky(zv)cssoftware.com>
Sent: Saturday, November 03, 2001 6:03 PM
> Prosim poradte mi, akym sposobom nacitam URL adresy vsetkych bookmarkov
> z Internet Explorera.Zeos MySQL
[*] Milan ��ek - 3.10.2001 20:04:13
ahoj,
opkusim se pracovat s MySQL z delphi, pomoci zeos komponent. Jelikoz nemam
zadnou zkusenost s DB krom RxMemoryData, nevim vubec odkud zacit. Zatim umim
pouze propojit prislusne komponenty a vylistovat trebas tabulku do Gridu a
vlozit novy zaznam. Jak se da zjistit, jake je posledni ID? - abych
neskoncil na chybe duplicitni hodnoty.
Muj cil je: mam 3 tabulky, ktere jsou propojeny stylem 1-2-3, vzdy pres
jeden sloupec. Ja potrebuju precislovat ID, ktere je autoincrement v tabulce
prvni (ale nektere radky tam uz nejsou - takze je to "derave"), jelikoz jsou
na ni ale napojeny dalsi, tak i zmenit prislusny udaj ve sloupci tech
ostatnich tabulek. Pravdepodobne se nejaka takova vec da udelat pres SQL a
docasne vytvorene tabulky, ale ja umim zatim jen minimum SQL
(SELECT,INSERT,DROP TABLE,DELETE FROM atp.) - proste jen zakladni veci, a to
jeste podle navodu. Kdyby se nasel nekdo, kdo by byl ochotny takovy SQL
vyhotovit nebo ho uz ma, bylo by to super.
S pozdravem Milan Cizek, amatersky programator, D5,D6 Ent (UP1)
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
MM/DD/YY HH:MM:SS -> MySQL TimeStamp
[*] Milan ��ek - 3.10.2001 20:38:02
ahoj,
mam takovy problem, v jedne promenne mam 'MM/DD/YY' a ve druhe 'HH:MM:SS',
oboji jsou string. Potrebuju tzto udaje zkonvertovat do promene, ktera by
byla kompatibilni s MySQL.TimeStamp formatem ('1003664543').
Zatim jsem otestovat toto, ale asi mam problem, ze vkladany format datum+cas
neodpovida formatu TDateTime
var TimeStamp: TTimeStamp; DatumCas: TDateTime;
with RxMemoryData1 do
DatumCas:=StrToDateTime(FieldByName('Datum').AsString+'
'+FieldByName('Cas').AsString); { MM/DD/YY HH:MM:SS }
TimeStamp:=DateTimeToTimeStamp(DatumCas);
Vite nekdo jak na to? Diky
S pozdravem Milan Cizek, amatersky programator, D5,D6 Ent (UP1)
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Mapovanie na IIS
[*] China.digital.Army Response Team <tooeasy(zv)inmail.sk> - 3.10.2001 22:12:03
saffte !
mam problem s delphi 5. chcel by som spravit program, ktory by pridal mapovanie do IIS, napriklad na .printer .Zatial som sa pokusal, ale nic z toho. Za odpoved dakujemmmm
Milan Noskovic
Bookmarky
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 4.10.2001 12:47:02
> Prosim poradte mi, akym sposobom nacitam URL adresy vsetkych bookmarkov
> z Internet Explorera.
Ahoj
v poslednim (nebo predposlednim) CHIPu jsem videl
sikovnou ukazku. kdyz tak ti to poslu.
Jiri Heinisch
dll pro PHP
[*] Filip Jirs�k <Filip.Jirsak(zv)centrum(tec)cz> - 4.10.2001 17:38:10
Urcite to musi jit napsat i v Delphi. Akorat si asi budete muset prelozit
nejake hlavickove soubory z C do Delphi. S licencema by nemel byt problem,
protoze dll je nezavisle (je to knihovna). A vlastne jedine, co z PHP
potrebujete k vytvoreni takove knihovny je definice rozhrani, kterym spolu
PHP a knihovna komunikuji. To je normalne asi v .h souboru s GPL licenci,
ale vy to budete potrebovat pro Delphi, takze to stejne musite prepsat.
S pozdravem
Filip Jirsak
----- Original Message -----
From: "EMDAT" <blau(zv)emdat(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 02, 2001 3:09 PM
Subject: Re: dll pro PHP
> Zadna hlediska proste to jinak naz v Cecku nejde a pokud jo tak to bude
> pekna prasarna.
> Petr Blau
> softwae developer
> PS: delphi, PHP, i ruzna cecka mam uz osahana
>
>
>
> > Zdravim, nevite nekdo jak napsat dll extension pro PHP?
> > potrebuju si do PHP pridat nektere svoje funkce a rad bych to nasal v
> > delphi.
>
> Rekl bych ze v Delphi to pujde dost spatne. Navic by to DLL nespise muselo
> byt pod stejnou licenci jako PHP tedy GNU GPL.
>
> Asi jedinym resenim je vytvorit mezivrstvu v C, ktera bude konvertovat
> data mezi DLL a Vasi knihovou. Ta knihovna ale NESMI pouzivat cokoliv z
> PHP a musi byt na PHP nezavisla, aby nemusela mit licenci stejnou jako
> PHP.
>
> Z hlediska portability, bych ale stejne bylo lepsi tu knihovnu napsat v C.
>
>DBGrid
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 4.10.2001 20:31:59
Chcem v DBGrid oznacit vsetky riadky pomocou prikazu(ov) a nemozem to nikde
najst.
Vdaka za kazdu radu.DATA Z KONFERENCE ZA RIJEN 2001
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 4.10.2001 21:01:19
Preji vsem pekneho dne,
na obvykle adrese jsou data z konference za rijen 2001.
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
Slavek
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Literatura o pocitacich
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.10.2001 21:10:53
Ahoj,
nemate nekdo nahodou tip na literaturu, ktera by slusne vysvetlila nepocitacovym lidem principy
fungovani pocitace a programu v nich?
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Nastaveni prav k registru
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 5.10.2001 00:05:59
Zdravim.
Potrebuji pri instalaci sveho SW zalozit ve v�tvi HKEY_LOCAL_MACHINE novy
klic (napr. \Software\MujProgram\Common\) a nastavit pro nej prava zapisu i
pro skupinu "Users", protoze jsou urcite hodnoty, ktere potrebuji
zaznamenavat pro vsechny uzivatele a nemohu to tedy psat do
HKEY_CURRENT_USER.
1) Jde to nejak primo rici Inno Setupu ?
2) Pokud ne jak udelat v Delphi kraticky programek, ktery Inno spusti po
instalaci a ktery klic zalozi s temihle pravy.
Ludek
P.S Instalace po administratorskym uctem je samozrejmosti.
Nastaveni prav k registru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 01:23:18
From: "Lud�k ZITA" <konference(zv)sales(tec)cz>
> Potrebuji pri instalaci sveho SW zalozit ve v�tvi HKEY_LOCAL_MACHINE novy
> klic (napr. \Software\MujProgram\Common\) a nastavit pro nej prava zapisu i
> pro skupinu "Users", protoze jsou urcite hodnoty, ktere potrebuji
Ahoj,
v JCL najdes funkci AllowRegKeyForEveryone, takze tim se muzes inspirovat.
Petr Vones
DBGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 01:29:16
From: "Martin Kasman" <martinkasman(zv)pobox.sk>
> Chcem v DBGrid oznacit vsetky riadky pomocou prikazu(ov) a nemozem to nikde
> najst.
Ahoj,
procedure TForm1.Button1Click(Sender: TObject);
var
Bmk: TBookmark;
begin
with DBGrid1 do
begin
Bmk := DataSource.DataSet.GetBookmark;
DataSource.DataSet.DisableControls;
try
SelectedRows.Clear;
DataSource.DataSet.First;
while not DataSource.DataSet.Eof do
begin
SelectedRows.CurrentRowSelected := True;
DataSource.DataSet.Next;
end;
DataSource.DataSet.GotoBookmark(Bmk);
finally
DataSource.DataSet.FreeBookmark(Bmk);
DataSource.DataSet.EnableControls;
end;
end;
end;
Petr Vones
Skryti a obnoveni hodin v tray (TrayClockWClass)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 01:33:53
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
> Skryje je perfektne :o) ale zobrazi jen pokud jsou Win2000 v "dobre nalade".
Ahoj,
na prvni pohled to funguje bez problemu (Windows 2000 SP2 US)
Petr Vones
VCL aplikace a NetMeeting soucasne = chyba
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 03:05:50
Ahoj,
mozna jste si jiz vsimli toho, ze pokud mate spustene Delphi IDE nebo vlastni
aplikaci ktera pouziva VCL (nemusi se to projevit vzdy) a spustite k tomu
NetMeeting tak VCL aplikace napriklad po kliknuti na tlacitko toolbaru ohlasi
vyjimku. Toto je pomerne neprijemna chyba, pokus o reseni najdete tady:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16888
Petr Vones
Nastaveni prav k registru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.10.2001 06:28:12
Pouzij program REGEDT32, ktery umoznuje nastavovat prava. (Je
nainstalovany ve Windows, zalozenych na NT)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
5.11.2001 Lud�k ZITA:
> Zdravim.
> Potrebuji pri instalaci sveho SW zalozit ve v�tvi HKEY_LOCAL_MACHINE novy
> klic (napr. \Software\MujProgram\Common\) a nastavit pro nej prava zapisu i
> pro skupinu "Users", protoze jsou urcite hodnoty, ktere potrebuji
> zaznamenavat pro vsechny uzivatele a nemohu to tedy psat do
> HKEY_CURRENT_USER.
> 1) Jde to nejak primo rici Inno Setupu ?
> 2) Pokud ne jak udelat v Delphi kraticky programek, ktery Inno spusti po
> instalaci a ktery klic zalozi s temihle pravy.
> Ludek
> P.S Instalace po administratorskym uctem je samozrejmosti.
Skryti a obnoveni hodin v tray (TrayClockWClass)
[*] Robert <rpvp(zv)vagnerplast(tec)cz> - 5.10.2001 07:39:08
Mam nastaveno aut. schovavani listy a kdyz na me ikonce v tray vyvolam
pravym tl.
popup menu, kde jako posledni polozka je "ukoncit" a po provedeni (ukonceni)
zustane ukazatel mysi v oblasti spodni listy, tak se obvykle hodiny
nezobrazi ale kdyz ukaz. mysi vychazi mimo listu treba jen o nekolik bodu,
tak se obvykle zobrazi :o)
Potrebuji neco, co prinuti hodiny aby se zobrazily ...
(Windows 2000 Prof. SP2 CZ)
R.Plz�k
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Sent: Monday, November 05, 2001 1:34 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Skryti a obnoveni hodin v tray (TrayClockWClass)
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
> Skryje je perfektne :o) ale zobrazi jen pokud jsou Win2000 v "dobre
nalade".
Ahoj,
na prvni pohled to funguje bez problemu (Windows 2000 SP2 US)
Petr Vones
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.295 / Virov� b�ze: 159 - datum vyd�n�: 1.11.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.295 / Virov� b�ze: 159 - datum vyd�n�: 1.11.2001
GXExplorer
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 5.10.2001 08:49:12
Pri pokusu o kompilaci balicku pro verzi Delphi 4 mi hlasi chybejici
GX_DragDrop. Na webu http://www.gxexplorer.org tuhle soucast ale nenabizi.HTTP download a binarni/textove soubory
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 5.10.2001 08:52:46
On Fri, 2 Nov 2001, Karel Kral wrote:
> Ahoj, potrebuji poradit.
>
> Stahuji soubor z Www pomoci funkci WinINet a pokousim se pred stazenim
> zjistit velikost souboru pomoci nize uvedene funkce
> HttpQuery(HTTP_QUERY_CONTENT_LENGTH). Coz funguje u binarnich souboru
> ale nikoliv u textovych. Vedel byste nekdo odpoved na nasledujici
> otazky?
>
> 1. Podle ceho server poznava, zda jde o textovy nebo binarni soubor?
To pozna podle Content-Type souboru, ktery je obvykle k souboru prirazen
podle pripony souboru.
> 2. Lze ho nejak donutit, aby mi vratil velikost i u textoveho souboru?
Podle me, nikde ve specifikaci HTTP neni povinnost vracet velikost souboru
(no jediny rozdil je snad v HTTP/1.1 pri keep-alive spojeni, kdy ji
vratit musi, ale nikdy nemate jistotu ze druha strana umi HTTP/1.1 s
keep-alive) a tudiz kdyz Vam server velikost vrati, je to jeho dobra vule.
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� #dol�
tel: 068/5353548
Text PDF
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 5.10.2001 09:18:55
Uz zde o tom byla kdysi rec ale bez vysledku. Potrebuji vykutat
delphi programem text z pdf formatu. Nebo ziskat tarify telekomu v
nejakem jinem formatu, nejlepe txt.
Z.Kalhous
Service - jak odstranit vytizeni procesoru na 100
[*] vlcir <vlcir(zv)seznam(tec)cz> - 05.10.2001 09:24:29
Mam service, ktera obsahuje timer s intervalem 1000. V OnTimer se
provede vytvoreni vlakna, ktere po urcite dobe zkonci. Je tady vsak
jedna neprijemna zalezitost, a to, ze pri behu teto sluzby je
procesor vytizen na 100 procent (ale vypada to, ze ostatni aplikace
to nezpomaluje). Nevi nekdo, co s
tim?
______________________________________________________________________
http://www.bilezbozi(tec)cz - doporucuje 0 z 5 kamennych obchodniku!ZLIB
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 5.10.2001 09:24:23
Zdravim,
je nekde popsana knihovna zlib, ktera je u Delphi5. Pripadne nevite co
muze byt spatne na tomto pouziti zlibex:
f1 := TFileStream.Create( a_ClientJmeno, fmOpenRead );
fs := TMemoryStream.Create;
compress := TZCompressionStream.Create ( fs );
compress.CopyFrom( f1 , f1.Size );
compress.Free;
f1.Free;
vysledkem je, ze fs ma delku 0, krokovanim jsem zjistil nasledujici
FZStream.next_in := (zv)buffer;
FZStream.avail_in := count; -- zde to vypada ok
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
while FZStream.avail_in > 0 do
begin
ZCompressCheck(deflate(FZStream,Z_NO_FLUSH));
if FZStream.avail_out = 0 then -- zde ma avail_out = $FFFE
-- total_out = 2,
i kdyz asi vysledek by mel byt delsi
Honza +Text PDF
[*] Robert Suska <robert(zv)korak.sk> - 5.10.2001 09:26:40
> Uz zde o tom byla kdysi rec ale bez vysledku. Potrebuji vykutat
> delphi programem text z pdf formatu. Nebo ziskat tarify telekomu v
> nejakem jinem formatu, nejlepe txt.
> Z.Kalhous
K tomuto mam aj ja otazku ako je mozne prekonvertovat PDF do nejakeho wordu
alebo ako, alebo nie je na to nejaka utilitka???
Dakujem za odpoved
Robo
Jak na kolecko mysi??
[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 5.10.2001 09:30:15
DDV,
v soucasne dobe resim problem, jak cist v Delphi informaci o kolecku mysi.
Muze mi nekdo poradit? Diky za pripadne rady
S pozdravem Jirka K.Service - jak odstranit vytizeni procesoru na 100
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 5.10.2001 09:39:40
Mam dojem, ze pokud spustis vlakno, ktere bezi "bez preruseni" (tzn. nemas v
nem udelano nejake "casovani" pomoci WaitFor..., sleep atp.) bude vytizeni
procesoru vzdy takove. Nemuze to byt tim ?
Ondrej
----- Original Message -----
Subject: Service - jak odstranit vytizeni procesoru na 100 procent
Mam service, ktera obsahuje timer s intervalem 1000. V OnTimer se
provede vytvoreni vlakna, ktere po urcite dobe zkonci. Je tady vsak
jedna neprijemna zalezitost, a to, ze pri behu teto sluzby je
procesor vytizen na 100 procent (ale vypada to, ze ostatni aplikace
to nezpomaluje). Nevi nekdo, co s
tim?
Service - jak odstranit vytizeni procesoru na 100
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 5.10.2001 10:19:45
> P�edm�t: Service - jak odstranit vytizeni procesoru na 100 procent
>
>
> Mam service, ktera obsahuje timer s intervalem 1000. V OnTimer se
> provede vytvoreni vlakna, ktere po urcite dobe zkonci. Je tady vsak
> jedna neprijemna zalezitost, a to, ze pri behu teto sluzby je
> procesor vytizen na 100 procent (ale vypada to, ze ostatni aplikace
> to nezpomaluje). Nevi nekdo, co s
> tim?
Ahoj,
pokud to nicemu nevadi, tak je zbytecne se s tim zalamovat, aspon to mas
driv hotove, ne ?
Jinak muzes pouzit nizsi prioritu, ale obecne 100% zatizeni procesoru u
ulohy, ktera neceka na vstupy, neni nic nezadouciho.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Text PDF
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 5.10.2001 10:43:02
Jde to snadno pres clipboard.
Ing. Jan Dvorak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Robert Suska
> Sent: Monday, November 05, 2001 9:27 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Text PDF
>
>
> > Uz zde o tom byla kdysi rec ale bez vysledku. Potrebuji vykutat
> > delphi programem text z pdf formatu. Nebo ziskat tarify telekomu v
> > nejakem jinem formatu, nejlepe txt.
> > Z.Kalhous
>
> K tomuto mam aj ja otazku ako je mozne prekonvertovat PDF do
> nejakeho wordu
> alebo ako, alebo nie je na to nejaka utilitka???
>
> Dakujem za odpoved
>
> Robo
Text PDF
[*] VALIK <valentapat(zv)volny(tec)cz> - 5.10.2001 10:52:00
>puvodni nemam ale bylo to neco o PDF ?
hledej na torry.ru PowerPDF komponenty
BLOB a string
[*] Zden�k Sv�en - 5.10.2001 11:09:10
Zdravim,
mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
potrebuju sestavit SQL dotaz kde bych testoval:
...
WHERE poznamka like "%nejaky text%"
...
tzn. chci aby SQL dotaz vybral pouze zaznamy, kde v poznamce (blob) je
obsazen nejaky text. Nejak na to nemuzu prijit.
Dik za nasmerovani
Z.S.Service - jak odstranit vytizeni procesoru na 100
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.10.2001 11:20:06
> pokud to nicemu nevadi, tak je zbytecne se s tim zalamovat, aspon to
mas
> driv hotove, ne ?
> Jinak muzes pouzit nizsi prioritu, ale obecne 100% zatizeni
procesoru u
> ulohy, ktera neceka na vstupy, neni nic nezadouciho.
>
pokud nehem toho casu CPU vykonava pro proces neco uzitecneho pak to
opravdu nevadi. Ovsem jedna-li se o nejakou hloupou smycku pri cekani
na cosi pak je to dost nezadouci (zatizene CPU vice topi, vice zere
proudu (baterku v notebooku),...)
D. Toman
float to numeric
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.10.2001 11:42:17
> Odes�latel: Jarda Jirava <listuj(zv)centrum(tec)cz>
> Polozka je float a potreboval bych z ni udelat numeric(18,6). S
> touto polozkou se bude pocitat a je potreba s ni pocitat presne.
> Bohuzel v DB jsou uz data a neradi bychom o ne prisli.
No ja nevim, ale podle me neni asi nic lepsiho nez
alter table ttt add pol1 numeric(18,6);
update ttt set pol1 = pol;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================HTTP download a binarni/textove soubory
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 5.10.2001 11:48:19
Ahoj
### Vladimir Michl napsal dne 5 Nov 01, v 8:52 :
> On Fri, 2 Nov 2001, Karel Kral wrote:
>
> > Ahoj, potrebuji poradit.
> >
> > Stahuji soubor z Www pomoci funkci WinINet a pokousim se pred stazenim
> > zjistit velikost souboru pomoci nize uvedene funkce
> > HttpQuery(HTTP_QUERY_CONTENT_LENGTH). Coz funguje u binarnich souboru
> > ale nikoliv u textovych. Vedel byste nekdo odpoved na nasledujici
> > otazky?
> >
> > 1. Podle ceho server poznava, zda jde o textovy nebo binarni soubor?
>
> To pozna podle Content-Type souboru, ktery je obvykle k souboru prirazen
> podle pripony souboru.
>
> > 2. Lze ho nejak donutit, aby mi vratil velikost i u textoveho souboru?
>
> Podle me, nikde ve specifikaci HTTP neni povinnost vracet velikost souboru
> (no jediny rozdil je snad v HTTP/1.1 pri keep-alive spojeni, kdy ji
> vratit musi, ale nikdy nemate jistotu ze druha strana umi HTTP/1.1 s
> keep-alive) a tudiz kdyz Vam server velikost vrati, je to jeho dobra vule.
>
Ono spis zalezi na tom, jestli ten soubor je dynamicky generovany
(asp) a jestli je bufferovany. Zkus a uvidis :)
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director ICQ# 135770414
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
TStringGrid + select row
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 5.10.2001 11:53:23
Pokud tomu rozumim, chces mit cely radek selected, kdyz je v nem
urcita bunka selected.
V Object Inspectoru u TStringGrid je Options, tam je nutno nastavit
doRowSelect na true.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
IB6.0.1, IBX 4.42, W2K/SP1, D5Ent.
===== Puvodni zprava =====
Napsal "Martin Bab�k", <mailto:M.Babik(zv)mus(tec)cz>
> jak spolehlive a jednoduse vybarvit cely radek v nemz je urcita bunka
> selected? NT4/D5. Diky
BLOB a string
[*] VALIK <valentapat(zv)volny(tec)cz> - 5.10.2001 11:54:42
to musi fungovat.. posli celej SQL
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
----- Original Message -----
> mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
> potrebuju > ...
> WHERE poznamka like "%nejaky text%"
FireBird komunikacia cez RealTek RTL8139B 100MB
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.10.2001 11:54:06
Zdravim!
Onoho casu som mal podobny problem s RTL8029A a pomohlo stiahnut novsi
ovladac do Win9x. Pri PC kde su RTL8139B mi to hadze tu hlasku "internal
consistency GDB error for table/view ..."(pisem to z hlavy). Su to Microcom
10/100 na RTL8139 chipe. V sieti este je jedna neznackova PCMCIA karta a
3COM ISA 10/100 a tie funguju bez problemov.
Dakujem
S pozdravom
Roland Turcan
float to numeric
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 5.10.2001 12:04:05
Nejjednodusi moznosti je vytvorit novou tabulku se spravnou strukturou a
data insertovat standardnim INSERT - SELECT a potom starou zrusit a novou
prejmenovat.
Konverze fkoat - numeric je implicitni.
Pavel
> -----P�vodn� zpr�va-----
> Od: Slavomir Skopalik [mailto:skopalik(zv)hlubocky.del(tec)cz]
> Odesl�no: 2. listopadu 2001 17:56
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> P�edm�t: RE: float to numeric
>
>
> vytvorit pomocne pole,
> potom update table set pole=cast( starepole as Numeric(18,6));
> a pak transformci zpet pod stejne jmeno.
>
> Slavek
>
> > -----P�vodn� zpr�va-----
> > Od: Jarda Jirava [SMTP:listuj(zv)centrum(tec)cz]
> > Odesl�no: 2. listopadu 2001 16:35
> > Komu: delphi-l(zv)clexpert(tec)cz
> > P�edm�t: OT: float to numeric
> >
> > Zdravim,
> >
> > mel bych dotaz. Kolega navrhl spatne polozku databaze a na me
> > ted nechal abych to spravil.
> >
> > Polozka je float a potreboval bych z ni udelat numeric(18,6). S
> > touto polozkou se bude pocitat a je potreba s ni pocitat presne.
> > Bohuzel v DB jsou uz data a neradi bychom o ne prisli.
> >
> > Jde provest nejaky (pokud mozno co nejpresnejsi) prevod?
> >
> > *** ukazka dat
> > 0.000099999997
> > 1798.89001464
> > 1326.09997558
> > .001000000047
> > *** ukazka dat
> >
> >
> > Diky za rady a napady
> >
> > Jarda
> >
> > *****************
> > Jarda Jirava
> > (zv)
> > LiStuj
> > listuj(zv)centrum(tec)cz
> > ^^^^^^^^^^^^^^^^^
> > SW development
> > ^^^^^^^^^^^^^^^^^
> > *****************
> >
> > Nokia Game je tady. Jsi pripraven?Zaregistruj se na
> http://user.centrum(tec)cz/redir.php?url=http://www.nokiagame.com
> >
> >
> >
> >
> >
> BLOB a string
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 5.10.2001 12:04:03
From: "Zden�k Sv��en" <dkonf(zv)seznam(tec)cz>
> mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
> potrebuju sestavit SQL dotaz kde bych testoval:
> WHERE poznamka like "%nejaky text%"
> tzn. chci aby SQL dotaz vybral pouze zaznamy, kde v poznamce (blob) je
> obsazen nejaky text. Nejak na to nemuzu prijit.
A kde je problem?
select *
from
Standard_Sets x
where
x.Sts_Description like '%aaa%'
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
StringGrid a Hint
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 5.10.2001 12:14:27
Rad bych pro StringGrid zobrazil hint podle obsahu jednotlivych bunek.
Zkousel jsem pouzit tip 828 z 1001 tipu a triku pro Delphi, ale misto
zobrazeni hintu se mi nad gridem zobrazi kursor pro scrolovani (jako bych
stisknul kolecko mysi). Nevi nekdo cim to muze byt? Predpokladam, ze tento
tip neplati pouze pro DrawGrid.
Martin Ben
BLOB a string
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 5.10.2001 12:27:54
----- Original Message -----
From: "Zden�k Sv��en" <dkonf(zv)seznam(tec)cz>
> Zdravim,
> mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
> potrebuju sestavit SQL dotaz kde bych testoval:
> ...
> WHERE poznamka like "%nejaky text%"
> ...
> tzn. chci aby SQL dotaz vybral pouze zaznamy, kde v poznamce (blob) je
> obsazen nejaky text. Nejak na to nemuzu prijit.
Pokud je mi znamo, tak prave tohle nejde, alespon u IB. Delame
to tak, ze soucasne s blobem jeste ukladame do tabulky slov
jednotliva pouzita slova a v dotazech je hledame v teto tabulce.
V soucasne dobe mame k cca 20tis. zaznamu s bloby cca 800tis.
zaznamu v tabulce slov. Mozna ze to delame zbytecne slozite,
rad se poucim.
Martin Schayna
Service - jak odstranit vytizeni procesoru na 100
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 5.10.2001 12:30:14
> > pokud to nicemu nevadi, tak je zbytecne se s tim zalamovat, aspon to
> mas
> > driv hotove, ne ?
> > Jinak muzes pouzit nizsi prioritu, ale obecne 100% zatizeni
> procesoru u
> > ulohy, ktera neceka na vstupy, neni nic nezadouciho.
> >
>
> pokud nehem toho casu CPU vykonava pro proces neco uzitecneho pak to
> opravdu nevadi. Ovsem jedna-li se o nejakou hloupou smycku pri cekani
> na cosi pak je to dost nezadouci (zatizene CPU vice topi, vice zere
> proudu (baterku v notebooku),...)
>
> D. Toman
To se rozumi samo sebou, ne ? U service bych neocekaval cekani na vstup od
operatora testovanim neceho ve smycce nebo realizaci zpozdeni
dekremementovanim promenne...
Jde o to, ze si rada lidi nespravne vyklada udaj o vytizeni procesoru a
nespoji si jej s (byt primitivnim) multitaskem Woken. Pokud ma uloha spravne
definovanou prioritu, tak je z hlediska celkoveho zatizeni systemu lepsi,
kdyz skonci co nejdriv (samozrejme za predpokladu, ze to neomezi jine
dulezitejsi bezici ulohy), protoze odpadne rezie planovani. Snizovat umele
zatizeni procesoru sleepy mi pripada posetile.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
BLOB a string
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 5.10.2001 12:36:41
>> potrebuju sestavit SQL dotaz kde bych testoval:
>> ...
>> WHERE poznamka like "%nejaky text%"
>> ...
>> tzn. chci aby SQL dotaz vybral pouze zaznamy, kde v
>> poznamce (blob) je
>> obsazen nejaky text. Nejak na to nemuzu prijit.
> Pokud je mi znamo, tak prave tohle nejde, alespon u IB. Delame
> to tak, ze soucasne s blobem jeste ukladame do tabulky slov
> jednotliva pouzita slova a v dotazech je hledame v teto tabulce.
> V soucasne dobe mame k cca 20tis. zaznamu s bloby cca 800tis.
> zaznamu v tabulce slov. Mozna ze to delame zbytecne slozite,
> rad se poucim.
Myslim, ze Interbase podporuje LIKE, STARTING a CONTAINING pre bloby. Pri
rozhodovani, ci pouzit blob alebo char/varchar moze byt velmi uzitocny tento
site: http://www.volny(tec)cz/iprenosil/interbase/ip_ib_strings.htm
HTH
TOndrej
BLOB a string
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.10.2001 12:36:48
> Odes�latel: Zden�k Sv��en <dkonf(zv)seznam(tec)cz>
> mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
> potrebuju sestavit SQL dotaz kde bych testoval:
> WHERE poznamka like "%nejaky text%"
> tzn. chci aby SQL dotaz vybral pouze zaznamy, kde v poznamce (blob) je
> obsazen nejaky text. Nejak na to nemuzu prijit.
Pokud se nemylim, tak podle blobu se takhle vybirat neda, alespon ne podle ANSI SQL.
Blob puvodne znamena "binary large object".
Zalezi na tom, jak velka ta poznamka je.
Kdyby byla "rozumne" velka, stacilo by misto blobu pouzit nejaky "rozumny" VARCHAR.
Anebo to vybrat na klientovi na OnFilterRecord :-) ale to je samozrejme zverstvo :-(
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================BLOB a string
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 5.10.2001 12:58:43
U IB to jde, pro case-insensitive hledani pouzij CONTAINING
Mirek
| > mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
| > potrebuju sestavit SQL dotaz kde bych testoval:
| > ...
| > WHERE poznamka like "%nejaky text%"
| > ...
| > tzn. chci aby SQL dotaz vybral pouze zaznamy, kde v poznamce (blob) je
| > obsazen nejaky text. Nejak na to nemuzu prijit.
|
| Pokud je mi znamo, tak prave tohle nejde, alespon u IB. Delame
| to tak, ze soucasne s blobem jeste ukladame do tabulky slov
| jednotliva pouzita slova a v dotazech je hledame v teto tabulce.
| V soucasne dobe mame k cca 20tis. zaznamu s bloby cca 800tis.
| zaznamu v tabulce slov. Mozna ze to delame zbytecne slozite,
| rad se poucim.
|
| Martin Schayna
TStringGrid + select row
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 05.10.2001 13:04:05
No ale to pak nefunguje editace bunek a ja potrebuji editovat!. :-(
M&B
>>> horky.karel(zv)quick(tec)cz 11/05 11:53 >>>
Pokud tomu rozumim, chces mit cely radek selected, kdyz je v nem
urcita bunka selected.
V Object Inspectoru u TStringGrid je Options, tam je nutno nastavit
doRowSelect na true.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
IB6.0.1, IBX 4.42, W2K/SP1, D5Ent.
===== Puvodni zprava =====
Napsal "Martin Bab�k", <mailto:M.Babik(zv)mus(tec)cz>
> jak spolehlive a jednoduse vybarvit cely radek v nemz je urcita bunka
> selected? NT4/D5. Diky
StringGrid a Hint
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 5.10.2001 13:05:01
Ja to delam trochu jinak.
Ve FormCreate si aplikacni hint presmeruju do vlastni metody
Application.OnShowHint := DoHint;
a tam pozdeji ex-post osetruju chovani hintu.
procedure TForm1.DoHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
var col,row: longint;
grd: TStringGrid;
begin
with HintInfo do
if HintControl.ClassNameIs('TStringGrid') then
begin
grd := HintControl as TStringGrid;
grd.MouseToCell(CursorPos.X,CursorPos.Y,col,row);
CanShow := true;
HintStr := grd.Cells[col,row];
CursorRect := grd.CellRect(col,row);
end;
end; {DoHint}
Josef Cerny
Text PDF
[*] Roman Toda <toda(zv)digitaldocuments.org> - 5.10.2001 13:12:17
> K tomuto mam aj ja otazku ako je mozne prekonvertovat PDF do nejakeho
wordu
> alebo ako, alebo nie je na to nejaka utilitka???
Ta "utilitka" sa vola Acrobat 5 - pozna SaveAs .RTF
Roman
SQL Server - klient a ISDN
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 5.10.2001 13:15:39
Zdravim delfiny!
Potrebuji poradit s nasledujicim problemem:
Mame dva pocitace na ve dvou ruznych mestech. K obema pocitacum je
pripojem ISDN modem a internet. Na jednom pocitaci bezi SQL Server
8.0 a na druhem je klientska aplikace napsana v Delphi 5 a
pouzivajici ADO. Co mam udelat aby se mi klient pripojil k
serveru ?
Diky za radu.
Martin Pavera
Jak na kolecko mysi??
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 13:25:41
From: "Ji�� Kratochv�l" <jiri.kratochvil(zv)webzin(tec)cz>
> v soucasne dobe resim problem, jak cist v Delphi informaci o kolecku mysi.
Ahoj,
nektere komponenty maji udalosti OnMouseWhellXXX a TMouse ma nektere
vlastnosti ktere se k tomu vztahuji.
Petr Vones
FireBird komunikacia cez RealTek RTL8139B 100MB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 13:27:48
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Onoho casu som mal podobny problem s RTL8029A a pomohlo stiahnut novsi
> ovladac do Win9x. Pri PC kde su RTL8139B mi to hadze tu hlasku "internal
> consistency GDB error for table/view ..."(pisem to z hlavy). Su to Microcom
Ahoj,
Realtek je vetsinou .... humus. Zkus nejakou normalni kartu, treba 3COM.
Petr Vones
ZLIB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 13:33:59
From: "Jan Krizek" <krizek(zv)vitasw(tec)cz>
> je nekde popsana knihovna zlib, ktera je u Delphi5. Pripadne nevite co muze
> byt spatne na tomto pouziti zlibex:
Ahoj,
v Delphi 5 je v ZLIB chyba ktera neco podobneho zpusobuje:
http://groups.google.com/groups?rnum=2&selm=38e646d6%40dnews
Petr Vones
Mini word???
[*] Pavel Houdek <buggy(zv)betula.fsid.cvut(tec)cz> - 5.10.2001 13:39:29
Zdravicko,
Ciste nahodou neni nekde free komponentka, ktera by nahradila vystup a
editaci ve ms wordu??
Melo by to umet jenom menit velikost a typ pisma, zarovnat odstavce do bloku,
vlozit vygenerovany obrazek a vlozit predem definovanou tabulku a vysledek
vytisknout prip jakoliv ulozit. Tot vse...
Nebo si to mam radeji napsat nejak sam??? Alespon za nejake tipy budu
vdecny...
Dik
--
Pavel Houdek
p.houdek(zv)seznam(tec)cz
BLOB a string
[*] Zden�k Sv�en - 5.10.2001 14:02:46
Tak pravda. Kdyz pouziju LIKE tak to funguje. Ja jsem puvodne zkousel toto:
Select * from "tabulka.db"
Where Zavada = "nekomunikuje"
Zavada je BLOB(10,1)
Hlaska: "Type mismatch in expression"
>
> to musi fungovat.. posli celej SQL
>
> e-mail : valentapat(zv)volny(tec)cz
> ICQ: 54152896
>
> ----- Original Message -----
>
> > mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
> > potrebuju > ...
> > WHERE poznamka like "%nejaky text%"
>
>
>
> BLOB a string
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 5.10.2001 14:12:12
From: Zden k Sv en <dkonf(zv)seznam(tec)cz>
> mam db tabulku, kde jeden z atributu je poznamka, coz je blob.
> potrebuju sestavit SQL dotaz kde bych testoval:
> WHERE poznamka like "%nejaky text%"
Takto lze pracovat pouze s poli char nebo varchar. Pro bloby lze
pouzit ulozenou proceduru plus udf pro praci s bloby
Jiri Binder
IDispatch
[*] Peter Surovy <psurovy(zv)uevora.pt> - 5.10.2001 13:30:32 -0000
From: "Marek Muller" :
> IDispatch je interface komponenty
> pro jednoduchost doufam, ze se pokousis pouzit komponentu, kterou maz v
palete;
> jake rozhrani komponenta implementuje, zjistis napr. ze souboru xxx_TBL,
ktery budes mit v uses formulare, kde pouzivas >komponentu,
-------- mam ju v palete - ale xxx_TBL neexistuje mam nejaky vseobecny TBL
ako x.TBL a ten obsahuje class xxx. ten vsak nema ziadnu vlastnost typu
Idispatch resp ma jednu ale ta je writeonly :-(
From: "Ondrej Kelle" :
>Ak ta 'dalsia
>komponenta' podporuje IDispatch (co ActiveX controls casto podporuju),
potom
>by to mohlo ist nejako takto:
>var
> D: IDispatch;
> D := Komponenta2 as IDispatch; // vyvola exception ak to nepodporuje
> Komponenta1.SetSource(D);
----------nevyvolava to Exception ale pri riadku Komponenta1.SetSource(D) to
vyvola Exception
EOleException : Invalid property Value
---------pre uplnost : sposob ktory chcem pouzit funguje ok ked dane dve
komponenty
nainstalujem vo VB 5 .0 :-(
Moze byt toto problem??
Mini word???
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 5.10.2001 14:34:54
ja si upravil rtf editor z prikladu dodavanych s delfama jako frame. pak
ho normalne placnu kam potrebuju. mozna to neni uplne cisty (je to
bastleny dost na rychlo) a sity primo pro pouziti TDBRtfEdit s
TIBDataSet (IBX). muzu nekam poslat/vystavit. vlastne je tu i nejaky ftp
pro konferencni ucely, ze? ale neni to nic slozityho ten prikladek je
dostatecne jasnej.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Mini word???
[*] Hurricane <hurricane(zv)quick(tec)cz> - 5.10.2001 15:14:19
Zdravim
Aby sis to napsal sam, musel bys mit dokumentaci k DOC formatu. Tu MS jak
znamo z ruky neda a ani firme 602 se to nepodarilo, takze mas bohuzel smulu.
Nutne to musi byt DOC? Nestacil by RTF? S tim taky MSWord pracuje bez
problemu.
Druhe reseni by bylo pouzit skutecny Word a z tveho programu ho ovladat
pomoci komponenrt k ovladani Officu. TAkze bys ve svem programu mel jen
cudliky a vsechny prikazy bys posilal wordu, ktery by byl skryty v
komponente.
Hurricane
----- Original Message -----
> Ciste nahodou neni nekde free komponentka, ktera by nahradila vystup a
> editaci ve ms wordu??
> Melo by to umet jenom menit velikost a typ pisma, zarovnat odstavce do
bloku,
> vlozit vygenerovany obrazek a vlozit predem definovanou tabulku a vysledek
> vytisknout prip jakoliv ulozit. Tot vse...
>
> Nebo si to mam radeji napsat nejak sam??? Alespon za nejake tipy budu
> vdecny...
Service - jak odstranit vytizeni procesoru na 100
[*] Hurricane <hurricane(zv)quick(tec)cz> - 5.10.2001 15:17:57
Zdravim
Jenze on pise, ze se ostatni programy nezpomaluji. To znamena, ze vykon CPU
se podle potreby prideluje i jinym programum. Skutecnost je takova, ze pokud
existuje vlakno, ktere nikde neceka na zadne vstupy, tak proste bezi na
maximalni vykon a zalezi jen na jeho priorite, jestli vykon CPU preda i
jinym programum. Tak funguje multitasking (v idealnim pripade). Pokud je to
opravdu tak, tak bych se tim nezabyval. Dulezitejsi je mnozstvi volnych
zdroju, nez nejake vytizeni CPU.
Hurricane
----- Original Message -----
> pokud nehem toho casu CPU vykonava pro proces neco uzitecneho pak to
> opravdu nevadi. Ovsem jedna-li se o nejakou hloupou smycku pri cekani
> na cosi pak je to dost nezadouci (zatizene CPU vice topi, vice zere
> proudu (baterku v notebooku),...)
Jak na kolecko mysi??
[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 5.10.2001 15:26:09
> > v soucasne dobe resim problem, jak cist v Delphi informaci o kolecku
mysi.
> nektere komponenty maji udalosti OnMouseWhellXXX a TMouse ma nektere
> vlastnosti ktere se k tomu vztahuji.
No jo, jenze problem je ten, kdyz mam komponentu odvozenou od
TGraphicControl, tak ta tu udalost nema....
A co pak ???
JK
Text PDF
[*] Tom Lebr <tom.lebr(zv)volny(tec)cz> - 5.10.2001 15:38:10
Dobry den,
zkuste XPDF (konkretne pdftotext) http://www.foolabs.com/xpdf/
je to sice v C, ale kvuli GPL by stejne bylo praktictejsi zavolat pres
prikazovou radku
s pozdravem
Tom Lebr
----- Original Message -----
From: "Kalhous Zdenek" <zdenek.kalhous(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 05, 2001 9:18 AM
Subject: Text PDF
> Uz zde o tom byla kdysi rec ale bez vysledku. Potrebuji vykutat
> delphi programem text z pdf formatu. Nebo ziskat tarify telekomu v
> nejakem jinem formatu, nejlepe txt.
> Z.Kalhous
>Data type unknown.
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.10.2001 15:45:38
Zdravim
Tlacim do neho toto:
ib1.SQL.Text:='select first 1 jedin from mesta where jedin<>:JEDIN and
stat=:STAT'
+' and Upper(Mesto Collate PXW_CSY)=Upper(:MESTO collate
pxw_csy)';
ib1.ParamByName('JEDIN').AsInteger:=e1.UniqueColumnValue;
ib1.ParamByName('STAT').AsInteger:=e2.SKeyValue;
ib1.ParamByName('MESTO').AsString:=e1.Text;
ib1.Open;
a on mi na parameter MESTO pise %subj%. Skusal som uz aj pred predanim
ib1.ParamByName('MESTO').datatype:=ftString; ale nic. Ak zase vypnem
ParamCheck, tak nevie kde je sever. Preco mu to vadi. Nemozem predsa skladat
retazec, lebo ak by chcel uzivatel zadat retazec napr. s ascii znakom #39
tak by zakrkal ze SQL Parse error.
Co s tym ?
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
FireBird komunikacia cez RealTek RTL8139B 100MB
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.10.2001 15:56:53
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Sent: Monday, November 05, 2001 1:27 PM
> From: "Roland Turcan" <rolo(zv)sedas.sk>
> > Onoho casu som mal podobny problem s RTL8029A a pomohlo stiahnut novsi
> > ovladac do Win9x. Pri PC kde su RTL8139B mi to hadze tu hlasku "internal
> > consistency GDB error for table/view ..."(pisem to z hlavy). Su to
Microcom
>
> Realtek je vetsinou .... humus. Zkus nejakou normalni kartu, treba
> Petr Vones
Jeden stroj 486 SX 33MHz s ISA 3COM ide ako pan boh prikazal, ale tie tri
stroje nie. Ale aj na serveri mam RTL8139 s W2K a ostatny nie RTL8139 idu
OK.
R.Service - jak odstranit vytizeni procesoru na 100
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 5.10.2001 15:58:19
> Mam service, ktera obsahuje timer s intervalem 1000. V OnTimer se
> provede vytvoreni vlakna, ktere po urcite dobe zkonci. Je tady vsak
> jedna neprijemna zalezitost, a to, ze pri behu teto sluzby je
> procesor vytizen na 100 procent (ale vypada to, ze ostatni aplikace
> to nezpomaluje). Nevi nekdo, co s tim?
Skus v OnExecute (predpokladam, ze tam mas slucku while not Terminated do
...) volat ServiceThread.ProcessRequests(False);
Dalsi (mozno hlupy) napad: Co ak Execute threadu trva dlhsie ako interval
timera? Vytvaras v OnTimer _zakazdym_ novy thread? Nedeje sa nahodou to, ze
threadov Ti stale pribuda a nestihaju sa vykonavat, lebo system nerobi nic
ine, ako prepina kontexty medzi nimi?
Ale kedze pises, ze na ostatnych aplikaciach sa to neprejavi, asi to nie je
Tvoj pripad ;-)
Osobne by som timer nepouzival, na jednoduche ulohy typu 'vykonaj nejaku
cinnost s odstupom x sekund' to staci vykonavat priamo v tej slucke, napr.
while not Terminated do
begin
// wake up and work (or check if there's any work to do ;-)
...
Sleep(x);
ServiceThread.ProcessRequests(False);
end;
Netvrdim, ze je to vhodne na kazdu ulohu, ale je to asi jednoduchsie ako
timer a thready. Nenapisal si, co sa snazis dosiahnut...
HTH
TOndrej
Jak na kolecko mysi??
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 5.10.2001 16:03:10
> No jo, jenze problem je ten, kdyz mam komponentu odvozenou od
> TGraphicControl, tak ta tu udalost nema....
OnMouseWheel eventy su deklarovane uz v TControl, takze TGrahicControl ich
urcite ma, akurat su mozno protected, takze ich staci v Tvojom potomkovi
'zviditelnit' do public alebo published.
HTH
TOndrej
Jak na kolecko mysi??
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 5.10.2001 16:03:45
Ahoj,
zkus si odchytavat zpravu WM_MOUSEWHEEL.
Ales
> -----Original Message-----
> From: Jiri Kratochvil [mailto:jiri.kratochvil(zv)webzin(tec)cz]
>
> No jo, jenze problem je ten, kdyz mam komponentu odvozenou od
> TGraphicControl, tak ta tu udalost nema....
>
> A co pak ???
> Zmena nastaven� zvuku
[*] JIM Design <jim.design(zv)iol(tec)cz> - 5.10.2001 16:32:37
ahoj,
type
TMIXERCONTROLDETAILS_UNSIGNED = record
dwValue : dword;
end;
procedure CheckMMResult(Value: MMRESULT);
begin
if Value <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('Mixer Error %d', [Value]);
end;
procedure OutputVolume (Volume : integer);
type
MIXERCONTROLDETAILS_BOOLEAN = record
fValue : longint;
end;
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
MuteCD: MIXERCONTROLDETAILS_BOOLEAN;
OutputFound: Boolean;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
OutputFound := False;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType =
MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
OutputFound := True;
Break;
end;
end;
if not OutputFound then raise Exception.Create('Nenalezen vystup');
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_volume;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls,
MIXER_GETLINECONTROLSF_ONEBYTYPE));
MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems :=
MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(MuteCD);
MixerControlDetails.paDetails := (zv)MuteCD;
MuteCD.fValue := Volume;
CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails,
MIXER_GETCONTROLDETAILSF_VALUE));
finally
mixerClose(Mixer);
end;
end;
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of skalsky(zv)oksystem(tec)cz
Sent: Monday, September 10, 2001 8:25 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zmena nastaven� zvuku
Hello Delphini,
Stav :
... mala aplikace pro prehrani jakehosi *.AVI a vyuziva TMediaPlayer.
Problem 1 :
... Potreboval bych nastavovat hlasitost prehravani. Bohuzel vubec netusim,
jak by to mohlo jit (ale urcite to jde). Netusite nekdo ???
Service II. - cekani na urcity konkretni cas
[*] vlcir <vlcir(zv)seznam(tec)cz> - 05.10.2001 16:36:47
Mam service, od ktere pozaduji provedeni akce v urcitem case. Nyni
testuji pouziti Timeru v service, ktery by mel pravidelne kontrolovat
cas, ale neni to dobre reseni, protoze zatez procesoru vyskoci na 100
procent a drzi se tam. Potrebuju radu, jak v tomto pripade ovlivnit
zatez, nebo nejake elegantnejsi, tj. jednoduche a efektivni
reseni.
______________________________________________________________________
Vyberte Vas "Nejoblibenejsi automobil roku 2002 v CR"
a hlasujte na adrese http://www.autoroku(tec)cz. Hlavni vyhra 600 000 Kc!!!Resize Jpegu
[*] EFG developer <developer(zv)efg(tec)cz> - 5.10.2001 16:37:23
Zdravim,
nevite nekdo jak co nejjednoduseji zmenit velikost jpeg obrazku a pak ho
zpatky ulozit.
dekuji
Petr Sikola
BLOB a string
[*] bardon <bardon(zv)akord-soft(tec)cz> - 5.10.2001 17:53:45
Zalezi na serveru napriklad na MS SQL, pokud je to polozka typu TEXT (a to
je BLOB), tak to jde.
>> WHERE poznamka like "%nejaky text%"
>Pokud se nemylim, tak podle blobu se takhle vybirat neda, alespon ne podle
ANSI SQL.
>Blob puvodne znamena "binary large object".
>Zalezi na tom, jak velka ta poznamka je.
>Kdyby byla "rozumne" velka, stacilo by misto blobu pouzit nejaky "rozumny"
VARCHAR.
Thready a asynchronni programovani
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 05.10.2001 17:58:44
Ahoj,
potykam se s veci, ktera mi sice funguje, ale protoze jsem s thready
zacatecnik, pripada mi, ze by se to snad dalo udelat lepe a cisteji.
Poradite nekdo?
Program dela toto:
1. Stahne soubor z internetu ve zvlastnim threadu.
2. Thread ma na svoje OnTerminate zaveseny event, abych se dozvedel, ze
skoncil.
3. Po vyvolani OnTerminate soubor zpracuji a potrebuji spustit dalsi
download.
Problemem je, jak spustit dalsi akci, treba zpracovani souboru. Pokud
bych ji spustil beznym volanim v OnTerminate, bude jeste stale
existujici thread aktivni, na stacku bude stale OnTerminate a pri
dalsich downloadech se mi budou vytvaret stale dalsi thready. To urcite
neni dobre.
Zatim to resim tak, ze v OnTerminate zavolam PostMessage s moji zpravou
a v aplikaci pak na tuto zpravu reaguji. To funguje dobre, ale ma to
nevyhodu v tom, ze program vlastne nema zadnou posloupnost prikazu,
ktera by sla uzavrit do try..except a tak elegantne osetrit vyjimky.
Jasne, Application.OnException se zavola, ale tu bych si rad nechal na
neosetrene vyjimky.
Taky jsem zkousel cekat na ukonceni Threadu pomoci nize popsane smycky,
pak program vypada pekne (myslim zdrojak), ale pripada mi to postavene
na hlavu. To bych dosahl stejneho efektu, jako mit vse v hlavnim threadu
a periodicky volat Application.ProcessMessages. Nebo se mylim?
while Assigned(FThread) do
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
MDIChild
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.10.2001 18:08:24
> Odes�latel: prajz.rumcajs(zv)quick(tec)cz
> Zdravim ve spolek,
> vyskytl semi mensi problem. Mam MDI aplikaci, kde se mi
> otevira nekolik MDI oken. Kdyz dam vytvorit nove okno, vse je v poradku az
> na to, ze jeho vyska je mensi a tudiy se nezobrazi vsechny komponenty na
> formulari. Nevite nekdo, jak se tohoto zbavit?
No, snad by stacilo vysku nastavit na OnCreate.
Jde ale opravdu o aplikaci typu Multiple Document Interface?
Neco jako Word nebo Excel?
Pokud ne, tak MDI zahod...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Komponenty pro IB (FB)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 5.10.2001 22:47:53
Ahoj,
chtel bych si poridit nejake komponenty pro pristup k IB z D4. Prozatim pouzivam
IBObjects, ale prijdou mi docela drahe (a pouzivam z nich jen cca 6 komp. pro
pristup k IB, cely balik je pro mne zbytecny) a zvazuju nad koupi FreeIBPlus.
Existuje jeste nejaka jina moznost (komponenty), jak se z D4 pripojit (nativne)
k IB (pro komercni ucely)?
Predem dik za radu,
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Komponenty pro IB (FB)
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 6.10.2001 00:10:56
IBX pod D4 nerozbehas?
PeC(zv)Thready a asynchronni programovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2001 00:12:38
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> 1. Stahne soubor z internetu ve zvlastnim threadu.
> 2. Thread ma na svoje OnTerminate zaveseny event, abych se dozvedel, ze
> skoncil.
> 3. Po vyvolani OnTerminate soubor zpracuji a potrebuji spustit dalsi
> download.
>
> Problemem je, jak spustit dalsi akci, treba zpracovani souboru. Pokud
> bych ji spustil beznym volanim v OnTerminate, bude jeste stale
> existujici thread aktivni, na stacku bude stale OnTerminate a pri
> dalsich downloadech se mi budou vytvaret stale dalsi thready. To urcite
> neni dobre.
Ahoj,
jeden thread se bude starat o download, druhy o zpracovani. Jakmile ten prvni
stahne soubor tak ho ulozi do nejakeho memory streamu, nastavi event
(SetEvent) na kterou ceka ten druhy thread a ten si memory stream prevezme
(operace se seznamem streamu by mely byt chraneny kritickou sekci). Prvni
thread je opet pripraven stahovat soubor. Druhy thread se po skonceni
zpracovani podiva, jestli je ve fronte jeste dalsi memory stream a pokud ne
tak v nejake WaitXXX funkci ceka na nastaveni eventu, popripade nastavi (jiny)
event pro prvni thread a tim spusti dalsi download. To uz vse zalezi na logice
aplikace.
> Taky jsem zkousel cekat na ukonceni Threadu pomoci nize popsane smycky,
> pak program vypada pekne (myslim zdrojak), ale pripada mi to postavene
Uplne zapomen na pouzivani zprav v jinych threadech, k nicemu to nepotrebujes.
Pouzivej synchronizacni prostredky k tomu urcene, tedy eventy, wait funkce
apod.
Petr Vones
OT - zmena kodove stranky W98/W2K
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2001 00:14:50
From: "Mirek Junek" <mirek.junek(zv)worldonline(tec)cz>
> Kvuli vyvoji se obcas potrebuji prepnout do jine kodove stranky. Udelel jsem
> si programek, ktery zapise prislusnou hodnotu do registry (klic ACP). Pak
> ale musim restartovat windows.
Ahoj,
predpokladam ze SetThreadLocale ti asi moc nepomuze, nebo ano ?
Petr Vones
Resize Jpegu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2001 00:47:27
From: "EFG developer" <developer(zv)efg(tec)cz>
> nevite nekdo jak co nejjednoduseji zmenit velikost jpeg obrazku a pak ho
> zpatky ulozit.
Ahoj,
prevest na bitmapu, u te zmenit velikost a pak prevest zpet do JPEGu a ulozit.
Zmenu velikosti bitmapy je mozne provest budto pomoci standartnich metod jako
napriklad TCanvas.StretchDraw nebo pomoci slozitejsich algoritmu. Takove
najdes treba v JclGraphics (Stretch apod.), priklad nize:
http://delphi-jedi.org/Jedi:CODELIBJCL
uses
Jpeg, JclGraphics;
procedure TForm1.Button1Click(Sender: TObject);
var
JpegImage: TJPEGImage;
Bitmap: TBitmap;
begin
JpegImage := TJPEGImage.Create;
try
Bitmap := TBitmap.Create;
try
JpegImage.LoadFromFile('picture.jpg');
JpegImage.DIBNeeded;
Bitmap.Assign(JpegImage);
Stretch(Bitmap.Width * 3, Bitmap.Height * 3, rfMitchell, 0, Bitmap);
JpegImage.Assign(Bitmap);
JpegImage.SaveToFile('bigpicture.jpeg');
finally
Bitmap.Free;
end;
finally
JpegImage.Free;
end;
end;
Petr Vones
MDIChild
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2001 00:51:27
From: <prajz.rumcajs(zv)quick(tec)cz>
> vyskytl semi mensi problem. Mam MDI aplikaci, kde se mi otevira nekolik MDI
> oken. Kdyz dam vytvorit nove okno, vse je v poradku az na to, ze jeho vyska
> je mensi a tudiy se nezobrazi vsechny komponenty na formulari. Nevite nekdo,
Ahoj,
podivej se na vlastnost TForm.Position, v tvem pripade se ti bude hodit asi
poDefaultPosOnly.
Petr Vones
Service - jak odstranit vytizeni procesoru na 100
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.10.2001 06:45:10
> Jenze on pise, ze se ostatni programy nezpomaluji. To znamena, ze
vykon CPU
> se podle potreby prideluje i jinym programum. Skutecnost je takova,
ze pokud
> existuje vlakno, ktere nikde neceka na zadne vstupy, tak proste bezi
na
> maximalni vykon a zalezi jen na jeho priorite, jestli vykon CPU
preda i
> jinym programum. Tak funguje multitasking (v idealnim pripade).
Pokud je to
> opravdu tak, tak bych se tim nezabyval. Dulezitejsi je mnozstvi
volnych
> zdroju, nez nejake vytizeni CPU.
Kaslat na vytizeni CPU se nevyplaci - pokud program nedela nic
uzitecneho nesmi zrat CPU cykly. Zkuste nekomu prodat aplikaci, ktera
zpusobi, ze Idle CPU bude stale 0. Tezko se zakaznikum vysvetluje, ze
to vlastne nevadi.
Jeden z nezadoucich vedlejsich efektu muze byt zvysena padavost
pocitace na kterem takovy program pobezi. Staci aby CPU byl spatne
chlazeny (pretaktovany,...) a je tu problem. Idle process je
optimalizovany tak (alespon v novejsich Windowsech), ze vykonava
vybrane instrukce CPU, ktere "netopi", kdezto obycejna smycka bude
topit vzdy. Staci se podivat nejakym monitorem na teplotu CPU a hned
je videt jak pri zatizeni teplota stoupa...
Zakaznik bude samozrejme tvrdit, ze mu to pada jen kdyz bezi Tvuj
program - cili je chyba v nem
D. Toman
Komponenty pro IB (FB)
[*] dphi_forum(zv)proces.sk - 6.10.2001 07:37:07
>Ahoj,
>chtel bych si poridit nejake komponenty pro pristup k IB z D4. Prozatim
pouzivam
>IBObjects, ale prijdou mi docela drahe (a pouzivam z nich jen cca 6 komp.
pro
>pristup k IB, cely balik je pro mne zbytecny) a zvazuju nad koupi
FreeIBPlus.
>Existuje jeste nejaka jina moznost (komponenty), jak se z D4 pripojit
(nativne)
>k IB (pro komercni ucely)?
A co tak IBX alebo ZEOS.
ZEOS - www.zeoslib.org
NORO.Volanie funkcii delphi z Oraclu
[*] Peter <peter(zv)baris.sk> - 6.10.2001 08:21:07
Zdravim,
potreboval by som v dll ke vytvorit nejake funkcie ktore by volal Oracle. Problem je v tom ze pokial mam prijmat alebo poslat varchar pripadne varchar2 tak z delphi ho neviem precitat.
Vedel by mi niekdo poradit aky typ mam ocakavat aby som vedel precitat co mi Oracle poslal ?
Predom vdaka
Peter
Thready a asynchronni programovani
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 06.10.2001 09:17:27
Ahojky
Staci vytvorit 2 thready
- jeden co stahuje
- druhy co zpracovava
potom v obou pouzit fci z WinAPI - myslim ze je to WaitForSingleObject a vyuzit v nich binarni semafory.
Thread po stazeni nastavi semafor na 1 a druhy thread pokracuje protoze ma zelenou.
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
+420605/813644
>>> kralkonf(zv)purus(tec)cz 5.11.01 17:58 >>>
Ahoj,
potykam se s veci, ktera mi sice funguje, ale protoze jsem s thready
zacatecnik, pripada mi, ze by se to snad dalo udelat lepe a cisteji.
Poradite nekdo?
Program dela toto:
1. Stahne soubor z internetu ve zvlastnim threadu.
2. Thread ma na svoje OnTerminate zaveseny event, abych se dozvedel, ze
skoncil.
3. Po vyvolani OnTerminate soubor zpracuji a potrebuji spustit dalsi
download.
Problemem je, jak spustit dalsi akci, treba zpracovani souboru. Pokud
bych ji spustil beznym volanim v OnTerminate, bude jeste stale
existujici thread aktivni, na stacku bude stale OnTerminate a pri
dalsich downloadech se mi budou vytvaret stale dalsi thready. To urcite
neni dobre.
Zatim to resim tak, ze v OnTerminate zavolam PostMessage s moji zpravou
a v aplikaci pak na tuto zpravu reaguji. To funguje dobre, ale ma to
nevyhodu v tom, ze program vlastne nema zadnou posloupnost prikazu,
ktera by sla uzavrit do try..except a tak elegantne osetrit vyjimky.
Jasne, Application.OnException se zavola, ale tu bych si rad nechal na
neosetrene vyjimky.
Taky jsem zkousel cekat na ukonceni Threadu pomoci nize popsane smycky,
pak program vypada pekne (myslim zdrojak), ale pripada mi to postavene
na hlavu. To bych dosahl stejneho efektu, jako mit vse v hlavnim threadu
a periodicky volat Application.ProcessMessages. Nebo se mylim?
while Assigned(FThread) do
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Service - jak odstranit vytizeni procesoru na 100
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 6.10.2001 09:37:34
> Kaslat na vytizeni CPU se nevyplaci - pokud program nedela nic
> uzitecneho nesmi zrat CPU cykly. Zkuste nekomu prodat aplikaci, ktera
> zpusobi, ze Idle CPU bude stale 0. Tezko se zakaznikum vysvetluje, ze
> to vlastne nevadi.
>
> Jeden z nezadoucich vedlejsich efektu muze byt zvysena padavost
> pocitace na kterem takovy program pobezi. Staci aby CPU byl spatne
> chlazeny (pretaktovany,...) a je tu problem. Idle process je
> optimalizovany tak (alespon v novejsich Windowsech), ze vykonava
> vybrane instrukce CPU, ktere "netopi", kdezto obycejna smycka bude
> topit vzdy. Staci se podivat nejakym monitorem na teplotu CPU a hned
> je videt jak pri zatizeni teplota stoupa...
> Zakaznik bude samozrejme tvrdit, ze mu to pada jen kdyz bezi Tvuj
> program - cili je chyba v nem
>
> D. Toman
Ahoj,
asi nejsme ve sporu, ale mi porad neni jasne, proc by mel task trvale zrat
100% CPU. Prece kdyz pisu real time nebo multitask aplikaci s pravidelne
spoustenou ulohu, tak v dany okamzik (ted je vcelku jedno, jak se zjisti, ze
nastal, pokud to nebude testovani ve smycce, ze :-))) odpalim task a jdu
zase spat, ne ? Pokud uloha v zadanem intervalu neskonci, tak s tim musim
neco udelat - zrychlit ji, poustet s delsi periodou atd., ale na veci se
jinak nic nemeni. Podle mne pravidelne spoustena uloha nema s idle nic
spolecneho, tam by melo jit spise o to, co nejrychleji se ji zbavit.
Pravdu samozrejme mas v pripade, ze by se resil planovac tasku, ale to je
jina pisnicka.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
OT: Poradte mi s Excelem
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 6.10.2001 09:39:59
Tak zkus pomoci funkce POZVYHLEDAT (nezapomen dat posledni parametr
0!!!) najit index te vybrane hodnoty v
seznamu hodnot pro ten ComboBox a pak uz vysledek muzes pouzit pro
pripadnou funkci INDEX.
M.Kralik
On Thu, 1 Nov 2001, Hurricane wrote:
> seznam hodnot (ala ComboBox). Jinymy slovy potrebuju Index toho ComboBoxu.
> Je to udelane pomoci Data|Overeni|Seznam hodnot, takze to neni VB ovladaci
> prvek, tam by to asi nejak slo.Service - jak odstranit vytizeni procesoru na 100
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.10.2001 10:10:04
>
> asi nejsme ve sporu, ale mi porad neni jasne, proc by mel task
trvale zrat
> 100% CPU.
:-)
no bud proto, ze ma opravdu neco na praci (pak je vse OK) nebo je
spatne napsany (klasicky pripad je cekaci smycka na nejakou udalost
napsana tak, ze nepouziva nastroje k tomu urcene (WaitForXXXXX,
Select, Sleep,..)
> Prece kdyz pisu real time nebo multitask aplikaci s pravidelne
> spoustenou ulohu, tak v dany okamzik (ted je vcelku jedno, jak se
zjisti, ze
> nastal, pokud to nebude testovani ve smycce, ze :-))) odpalim task a
jdu
> zase spat, ne ? Pokud uloha v zadanem intervalu neskonci, tak s tim
musim
> neco udelat - zrychlit ji, poustet s delsi periodou atd., ale na
veci se
> jinak nic nemeni. Podle mne pravidelne spoustena uloha nema s idle
nic
> spolecneho, tam by melo jit spise o to, co nejrychleji se ji zbavit.
> Pravdu samozrejme mas v pripade, ze by se resil planovac tasku, ale
to je
> jina pisnicka.
>
Ja jen reagoval na mail od Velkeho Vjetra, kde psal, ze to zas tak
nevadi (on to ten multitasking nejak zaridi).
K tomu bych podotknul, ze ani Windowsi multitasking neni vsemocny a je
dobre vsude kde ej to vhodne mu pomoci volanim funkce (sleep(0),
WaitForXXX), ktera mu naznaci, ze dany thread ted zrovna nema nic
dulezityho na praci a je tedy nejpelsi doba pouzit CPU na neco jineho
(a necekat az skonci perioda vyhrazena bezicimu thraedu)
D. Toman
FreeVCS & Linux
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.10.2001 10:13:21
DD,
provozuje nekdo FreeVCS proti databazovemu serveru na Linuxu?
Vypada to, ze "oficialni" podpora neexistuje (www.thensle.de). Idealni
by bylo mit DBISAM bezici na Linuxu (pouzivam je ve Win a tak bych
snad prisel o data/nemusel je slozite prevadet) pripadne podpora pro
MySQL.
Premyslel nekdo, ze napise App server pro FreeVCS s podporou MySQL?
D. Toman
Ako vytvorit v ib6 tabulku s array
[*] <delphi(zv)zvlauto.sk> - 6.10.2001 10:16:38
Poradi mi niekto ako sa da v ib6 nadefinovat tabulka tak, aby som tam v nej
mal polozku typu pole (nejaky array) v ktorom sa budu zaznamenavat 20
zaznamov?
Da sa to takto? V helpe je nieco popisane, ale neide to.
Vdaka
Komponenty pro IB (FB)
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 06.10.2001 10:21:33
Ahoj,
ktere komponenty pouzivas ? Aktualni verze je IBO4 a ty se daji poridit
i v mensich sadach ...
Tom
Roman wrote:
>
> Ahoj,
> chtel bych si poridit nejake komponenty pro pristup k IB z D4. Prozatim pouzivam
> IBObjects, ale prijdou mi docela drahe (a pouzivam z nich jen cca 6 komp. pro
> pristup k IB, cely balik je pro mne zbytecny) a zvazuju nad koupi FreeIBPlus.
> Existuje jeste nejaka jina moznost (komponenty), jak se z D4 pripojit (nativne)
> k IB (pro komercni ucely)?=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Ako vytvorit v ib6 tabulku s array
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.10.2001 10:29:14
On 6 Nov 2001, at 10:16, delphi(zv)zvlauto.sk wrote:
> Poradi mi niekto ako sa da v ib6 nadefinovat tabulka tak, aby som tam v nej
> mal polozku typu pole (nejaky array) v ktorom sa budu zaznamenavat 20
> zaznamov?
> Da sa to takto? V helpe je nieco popisane, ale neide to.
Treba...
CREATE TABLE mytable (NAMES VARCHAR(20) [0:10]);
Vytvori tabulku s jednim polem typu array [0..10] of VARCHAR(20)
(zapis ala Pascal :)
Pokud ovsem chces pouzivat array polozky v Delphi aplikaci, pak
musis pouzit bud primo API IB, nebo IBObjects
(www.ibobjects.com). Pres BDE, dbExpress nebo IBX se k nim
nedostanes.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Service - jak odstranit vytizeni procesoru na 100
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 6.10.2001 11:52:23
> P�edm�t: Re: Service - jak odstranit vytizeni procesoru na 100 procent
>
>
> >
> > asi nejsme ve sporu, ale mi porad neni jasne, proc by mel task
> trvale zrat
> > 100% CPU.
>
> :-)
> no bud proto, ze ma opravdu neco na praci (pak je vse OK) nebo je
> spatne napsany (klasicky pripad je cekaci smycka na nejakou udalost
> napsana tak, ze nepouziva nastroje k tomu urcene (WaitForXXXXX,
> Select, Sleep,..)
Presne tak.
> Ja jen reagoval na mail od Velkeho Vjetra, kde psal, ze to zas tak
> nevadi (on to ten multitasking nejak zaridi).
> K tomu bych podotknul, ze ani Windowsi multitasking neni vsemocny a je
> dobre vsude kde ej to vhodne mu pomoci volanim funkce (sleep(0),
> WaitForXXX), ktera mu naznaci, ze dany thread ted zrovna nema nic
> dulezityho na praci a je tedy nejpelsi doba pouzit CPU na neco jineho
> (a necekat az skonci perioda vyhrazena bezicimu thraedu)
>
> D. Toman
I to souhlasi s mym pozorovanim :-)))
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Podruhe: Service - jak odstranit vytizeni procesor
[*] vlcir <vlcir(zv)seznam(tec)cz> - 06.10.2001 12:05:29
Mam upresneni predchoziho dotazu, a to, jak vytvorit sluzbu, ktera
ceka na urcity predem nastaveny cas, neboli musi (nejspis
sama)kontrolovat cas. Nechci pouzit timer, protoze jeho pouziti
zpusobuje vytizeni procesoru na 100 procent. Diky Vsem za minule i
budouci
odpovedi.
______________________________________________________________________
http://www.bilezbozi(tec)cz - doporucuje 0 z 5 kamennych obchodniku!Ako zobrazit hodnotu Double
[*] miromr <miromr(zv)hotmail(tec)com> - 6.10.2001 12:29:23
Zdravim vsetkych,
Funkcia mi vrati do premennej hodnotu double. Chcem si ju zobrazit pomocou showmessage, ale neviem ako na to.
Diky
Miro
Ako zobrazit hodnotu Double
[*] brant(zv)dcomm(tec)cz - 6.10.2001 12:31:37
Muzes treba funkci FloatToStr anebo pouzij funkci Format, ta ti naformatuje
retezec podle potreby.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Funkcia mi vrati do premennej hodnotu double. Chcem si ju zobrazit pomocou
showmessage, ale neviem ako na to.Ako zobrazit hodnotu Double
[*] �EZN��EK David - 6.10.2001 12:40:23
V unite SysUtils je Funkce FormatFloat('#.#', HODNOTA) vraci string...
-----Original Message-----
From: miromr [mailto:miromr(zv)hotmail.com]
Sent: Tuesday, November 06, 2001 12:29 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Ako zobrazit hodnotu Double
Zdravim vsetkych,
Funkcia mi vrati do premennej hodnotu double. Chcem si ju zobrazit
pomocou showmessage, ale neviem ako na to.
Diky
Miro
---
Po�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.295 / Virov� b�ze: 159 - datum vyd�n�: 1.11.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.295 / Virov� b�ze: 159 - datum vyd�n�: 1.11.2001
Podruhe: Service - jak odstranit vytizeni procesor
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.10.2001 12:41:44
>Mam upresneni predchoziho dotazu, a to, jak vytvorit sluzbu, ktera
>ceka na urcity predem nastaveny cas, neboli musi (nejspis
>sama)kontrolovat cas. Nechci pouzit timer, protoze jeho pouziti
>zpusobuje vytizeni procesoru na 100 procent. Diky Vsem za minule i
>budouci
>odpovedi.
No zatim vsechny tvoje dotazy obsahovaly minimum informaci - neda se
tedy
urcit co se ve Tvem programu deje. Urcite neni pravda, ze pouziti
timeru
zpusobi 100% zatez CPU (tady bude problem nejspis v tom jak vlastne
obsluhujes
udalosti od timeru - podotykam, ze TTimer (nebo jak to Borlandi
jmenuji) je jen
zapouzdreni Windowsiho eventu)
Protoze timeru je ve Windowsech omezeny pocet lze celkem doporucit
udelat si vlastni casovani pomoci separatniho threadu (ten muze cekat
pomoci WaitXXX funkce a po dosazeni urciteho casu cosi udelat
(spustit dalsi thread))
D. Toman
tisk sestavy
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 06.10.2001 12:45:57
zdravim,
potrebuji vytisknout sestavu. Tato sestava by mela byt rozdelena do x sloupcu po y radcich. Je to v podstate skrtak, takze jeden zaznam vypada takto:
[ ] Abuti theo - Toto je text, ktery muze byt dlouhy maximalne 10 znaku
(nebo nejaky ctverecek pro zaskrtnuti)
Delal jsem to z CheckListBoxu. Na formular jsem jich dal potrebne mnozstvi a vyplnil. Potom jsem uz pouze poslal formular na tiskarnu. A ono to fungovalo. Jenomze staci prepnout na jine rozliseni (mensi) a vysledek na papire je uplne jiny. Problem je v tom, ze techto zaznamu je 1100 a tisknou se na sirku A4. Data se musi vyplnovat po sloupcich a ne po radcich.
Poradi prosim nekdo?
S pozdravem
Mirek Drejcek
Service - jak odstranit vytizeni procesoru na 100
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.10.2001 12:49:38
> K tomu Sleep(0) jen mala poznamka - shodou okolnosti ted bezela
podobna
> diskuse na news.inprise.com.
ve ktery newsgrupe? (Subject, sender,..)
>Koukal jsem na ni jen zbezne, ale diskutovalo
> se tam o vhodnosti pouziti Sleep(0) - doporucovalo se pouzit
NENULOVOU
> hodnotu, protoze Sleep(0) neumerne zpomalil PC.
sleep(0) by mel na kratkou dobu (zbytek casoveho okna daneho threadu)
prepnout do jineho threadu se stejnou prioritou.
mozna to za urcitych okolnosti muze zpusobit castejsi prepinani mezi
procesy a tim vyssi rezii task switchingu. Ale to prepinani by se melo
dit maximalne 2x tak rychleji nez normalne coz by snad nemelo mit
zasadni vliv (ledaze by uz tak bylo casove okno hodne kratke - ale to
je pokud vim konstatni delky - nebo ne?)
Rozhodne smycka
do
sleep(0);
repeat false;
asi neni uplne optimalni :-)
D. Toman
Ako zobrazit hodnotu Double
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 06.10.2001 12:56:09
Ja bych vyzkousel
var prom:double;
..
ShowMessage(FloatToStr(prom));
..
S pozdravem
Mirek Drejcek
*********** REPLY SEPARATOR ***********
On 6.11.2001 at 12:29 miromr wrote:
Zdravim vsetkych,
Funkcia mi vrati do premennej hodnotu double. Chcem si ju zobrazit pomocou showmessage, ale neviem ako na to.
Diky
Miro
SQL Server - klient a ISDN
[*] JIM Design <jim.design(zv)iol(tec)cz> - 6.10.2001 12:56:25
ahoj,
musis nejakym zpusobem zajistit aby se klient dozvedel IP adresu toho
serveru, technicky bych to videl bud poslanim emailu nebo vyrobit nejakou
dorozumivaci www stranku, kde vzdycky, kdyz se pripoji server do internetu
ulozi svoji IP a klient si ji pak najetim na tu stranku precte a pouzije.
dalsim predpokladem je mit spravne nastavene Server Network utility na
serveru - tj. zakrtnuty TCPIP port 1433, a na klientu cliconf, kde musi byt
vyplnen alias serveru
M.Jirman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin Pavera
Zdravim delfiny!
Potrebuji poradit s nasledujicim problemem:
Mame dva pocitace na ve dvou ruznych mestech. K obema pocitacum je
pripojem ISDN modem a internet. Na jednom pocitaci bezi SQL Server
8.0 a na druhem je klientska aplikace napsana v Delphi 5 a
pouzivajici ADO. Co mam udelat aby se mi klient pripojil k
serveru ?
Diky za radu.
Martin Pavera
Service - jak odstranit vytizeni procesoru na 100
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 6.10.2001 12:57:56
K tomu Sleep(0) jen mala poznamka - shodou okolnosti ted bezela podobna
diskuse na news.inprise.com. Koukal jsem na ni jen zbezne, ale diskutovalo
se tam o vhodnosti pouziti Sleep(0) - doporucovalo se pouzit NENULOVOU
hodnotu, protoze Sleep(0) neumerne zpomalil PC. Podotykam, ze s timto nemam
zkusenost, protoze ve svych programech pouzivam WaitForXXX, nicmene zkuste s
jinou hodnotou.
Mira Ondrisek
BONNEL TECHNOLOGIE
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Dalibor Toman
> Sent: Tuesday, November 06, 2001 10:10 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Service - jak odstranit vytizeni procesoru na 100 procent
>
> K tomu bych podotknul, ze ani Windowsi multitasking neni vsemocny a je
> dobre vsude kde ej to vhodne mu pomoci volanim funkce (sleep(0),
> WaitForXXX), ktera mu naznaci, ze dany thread ted zrovna nema nic
Podruhe: Service - jak odstranit vytizeni procesor
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.10.2001 13:00:45
Udelas-li si smycku, ve ktere zjistis cas, porovnas jej s nastavenym
casem, a kdyz usouis, ze jeste nemas nic udelat, tak zavolej
sleep(1000);
tim zajistit, ze kazdou vterinu zkontolujes, jesti je u cas neco
udelat a zarovn to bude zrat jednou za vterinu smesne promile
procesoroveho casu.. (kolik asi zabere precteni aktualniho casu a
jeden IF? Nic...
Pripadne staci-li ti mensi presnost, muzes dat jeste vetsi sleep. :-)
> Mam upresneni predchoziho dotazu, a to, jak vytvorit sluzbu, ktera
> ceka na urcity predem nastaveny cas, neboli musi (nejspis
> sama)kontrolovat cas. Nechci pouzit timer, protoze jeho pouziti
> zpusobuje vytizeni procesoru na 100 procent. Diky Vsem za minule i
> budouci
> odpovedi.
>
> ______________________________________________________________________
> http://www.bilezbozi(tec)cz - doporucuje 0 z 5 kamennych obchodniku!
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Opet problem s QuickReportem - tisk titulku sestav
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 6.10.2001 13:36:44
Situace:
sestavy v QuickReportu (nastaven format na A4) - titulek sestavy, popr. i
jine QRLabel, QRDBText - AlignToBand=True, Alignment=taCenter - ma se
tisknou centrovane v ramci sirky stranky - na w9x, w2000cz funguje, na
W2000Eng bohuzel ne.
Nesetkal jste se nekdo s necim podobnym, popr. nevite jak resit ?
Martin Macko,
M-PRO s.r.o.
U M�sta Chersonu 1595/1
434 01 Most
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~
Tel. a fax:+420 35 610 72 31 a� 33
Mobil: +420 603 48 39 40
Email:martinm(zv)m-pro(tec)cz
Internet:http://www.m-pro(tec)cz
Podruhe: Service - jak odstranit vytizeni procesor
[*] vlcir <vlcir(zv)seznam(tec)cz> - 06.10.2001 14:30:40
Presneji mam service:
procedure TATestService.ServiceExecute(Sender: TService);
begin
tmrTimer.Enabled := True;
while not Terminated do
begin
ServiceThread.ProcessRequests(False);
end;
tmrTimer.Enabled := False;
end;...a v ni timer(Interval 60000):
procedure TATestService.tmrTimerTimer(Sender: TObject);
var
a: string;
begin
a := 'juk'; //zde bude jakakoliv vykonavana cinnost, nebo vytvoreni
procesu, nasleduje vypocet dalsiho spusteni a zapis tohoto casu.
end;
Predstava byla strucne takovato - timer zkontroluje zapsany cas
spusteni a pripadne spusti akci, po jejim skonceni se vypocita cas
dalsiho spusteni akce podle nastaveni a zapise se. Pri dalsi kontrole
casu se porovnava tento cas s aktualnim a pripadne spusti akci... Az
na ten 'detail', ze to bezi na 100 procent :-), to slape.
V.
> No zatim vsechny tvoje dotazy obsahovaly minimum informaci - neda se
> tedy
> urcit co se ve Tvem programu deje. Urcite neni pravda, ze pouziti
> timeru
> zpusobi 100% zatez CPU (tady bude problem nejspis v tom jak vlastne
> obsluhujes
> udalosti od timeru - podotykam, ze TTimer (nebo jak to Borlandi
> jmenuji) je jen
> zapouzdreni Windowsiho eventu)
>
> Protoze timeru je ve Windowsech omezeny pocet lze celkem doporucit
> udelat si vlastni casovani pomoci separatniho threadu (ten muze cekat
> pomoci WaitXXX funkce a po dosazeni urciteho casu cosi udelat
> (spustit dalsi thread))
>
> D. Toman
>
>
>
______________________________________________________________________
Vyberte Vas "Nejoblibenejsi automobil roku 2002 v CR"
a hlasujte na adrese http://www.autoroku(tec)cz. Hlavni vyhra 600 000 Kc!!!Service - jak odstranit vytizeni procesoru na 100
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.10.2001 14:33:52
Jo, kdyby si ti lide precetli dokumentaci, tak by jim bylo vsechno
jasne... pokusim se to zde srucne objasnit. (za posledni dva roku uz
asi poctvrte...)
kazdy bezici thread ve windows ma svoji prioritu. Strojovy cas se jim
prideluje nasledovne:
nejprve se system podivam, chce-li nejaky process s nejvyssi
prioritou strojovy cas. pokud ano, poskytne mu jej. Po skonceni
casoveho kvanta (tedy maximalni cas, kdy ten proces muze mit
pridelely bez preruseni strojovy cas) se sstem podiva, je-li jeste
nejaky thread se stejnou prioritou. A takto obsluhuje thready s
nejvyssi prioritou porad dokolecka, dokud nenastane situace, ze zadny
thread s nejvyssi prioritou zadny cas nechce.
Teprve pak obdobne kolecko nastava u procesu s nizsi prioritou. Az se
obslouzi kompletne toto nizsi prioritni patrop, pak teprve se
postoupi opet niz.
pokud v prubehu zpracovavan nizsich pater pozada o cas nekdo s vyssi
proritou, je mu cas poskytnut a cele to bez zase od zacatku.
Z toho vyplyva jedna dulezir sutecnost: zpracovavani threadu s
vysokou prioritou mohou zcela zablokovat beh threadu s nizkou
prioritou!
A ted k tem Sleepum... Slleep s hodnotou mensi nez ono maximalni
casove kvantum (minimalni hodnota pouzivana u Windows je tusim 20ms!)
zpusobi prakticky totez co Sleep1). Tedy tim rikame, ze se vzdavame
zbytku strojoveho casu prave zpracovavaneho kvanta ve prospech
cekajicioch threadu, a to i na nizsi priorite.
Zatimco Sleep(0) znamena, ze se vzdavam zbytku strojoveho casu, ale
jen ve prspech threadu na stejne (nebo pochopitelne vyssi) priorite!
tedy pouzieeli Sleep(1) nebo vice, dame prilezitst k behu i
programum, ktere maji nizzsi prioritu.
Zatimco Sleep(0) jen uvolni cast pridelenu vasemu threadu, ale bude
programu dan opet dalsi cas DRIVE nez threadum na nizsi priorite!
tedy zcela logcky toznamena, ze pouziju-li Sleep(0), urcite tim nijak
nemohu pomoci threadum bezicim na nizsi prioite, nicmene tim vyrazne
pomohu apliakcim bezici na stejne ci vyssi priorite! Jde o to co
programator chce.
Tedy na newsech zae objevili Ameriku.. staci si totiz opravdu jen
precist dokumentaci.
Pomoci Sleep(0) a Sleep(1) muzeme pomerne precizne ridit pridelovani
strojoveho casu vasi aplikaci, respektive muzeme cas velmi efektne
uvolnovat ve prospech aplikaci jinych! tedy dl mne maji tyto prikazy
velky smysl, a je nesmysl tvrdit, ze se o vsechno postaraji windows
samy!!!> K tomu Sleep(0) jen mala poznamka - shodou okolnosti ted bezela podobna
> diskuse na news.inprise.com. Koukal jsem na ni jen zbezne, ale diskutovalo
> se tam o vhodnosti pouziti Sleep(0) - doporucovalo se pouzit NENULOVOU
> hodnotu, protoze Sleep(0) neumerne zpomalil PC. Podotykam, ze s timto nemam
> zkusenost, protoze ve svych programech pouzivam WaitForXXX, nicmene zkuste s
> jinou hodnotou.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Podruhe: Service - jak odstranit vytizeni procesor
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 6.10.2001 14:53:09
Koukni se do MSDN na CreateWaitableTimer, da se tam nastavit vyvolani
kazdych x milisekund nebo vyvolani v konkretni cas. Cekani je provadene
pomoci WaitXXX funkci
Honza +
> -----Original Message-----
> From: vlcir [mailto:vlcir(zv)seznam(tec)cz]
> Sent: Tuesday, November 06, 2001 12:05 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Podruhe: Service - jak odstranit vytizeni procesoru na 100
> procent
>
>
> Mam upresneni predchoziho dotazu, a to, jak vytvorit sluzbu, ktera
> ceka na urcity predem nastaveny cas, neboli musi (nejspis
> sama)kontrolovat cas. Nechci pouzit timer, protoze jeho pouziti
> zpusobuje vytizeni procesoru na 100 procent. Diky Vsem za minule i
> budouci
> odpovedi.IB: smazani vsech procedur
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 6.10.2001 15:10:26
Ahoj,
jak mam korektne DROPnout vsechny ulozene procedury?
Jedna se mi o dependencies, jak urcit spravne poradi procedur. Vymazat
vsechny zavislosti z DB natvrdo se mi nezda moc korektni.
Co s tim?
Diky
Ota Maly
PaPouch elektronika
http://www.papouch.com
P.S.: Potrebuju updatnout u zakaznika ulozene procedury, view atd. a jdu na
to takto:
-Smazu procedury, view, triggery
-udelam potrebne alter table, updatnu data v DB
-nasypu tam nove procedury atd.
Je to tak OK?
Mirne OT: Re: Podruhe: Service - jak odstranit vyt
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 6.10.2001 15:24:15
Nedavno jsme se pekne nachytali s podobnym resenim
na Linuxu, v threadu se volal sleep(n) a zjistoval se cas po
jehoz uplynuti se mela udelat nejaka akce. Pro zjisteni casu
jsme na Windows pouzivali GetTickCount a pod Kylixem
jsme odnekud z Indy vyhrabali jakousi Linuxovou implementaci
teto funkce. Ale nas timer se ne a ne vyvolat -- problem byl
v tom ze zminovana nahrada GetTickCount sice vracela cas,
ale nikoli realny ale spotrebovany cas procesoru -- ktery se
prilis nehybal prave kvuli tem sleepum. ;-)
Pomohlo naimplementovat si vlastni GetTickCount pomoci
gettimeofday.
To byla spis legrace, ale problemy se objevily zahy: pokud
proces bezel jako forknuty daemon, pak po vyvolani akce
z threadu pomoci metody Synchronize se proces kousnul
a na neco cekal uvnitr Kylixove implementace metody
Synchronize. Tohle jsme nerozchodili a proto jsme radeji
udelali vyvolavanou akci tak, aby byla threadsafe a nemuseli
jsme volat Synchronize. Ale pokud byl proces X-aplikace,
pak metoda Synchronize normalne fungovala, ale zato se
thread prilis casto "vysmekaval" ze sleepu (podezrivam z toho
vyvolani metody Synchronize z uplne jineho threadu).
Linux na nas zkratka zacina vystrkovat ruzky...
Rozumite tomu nekdo?
Martin Schayna
----- Original Message -----
From: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>>
> Udelas-li si smycku, ve ktere zjistis cas, porovnas jej s nastavenym
> casem, a kdyz usouis, ze jeste nemas nic udelat, tak zavolej
> sleep(1000);
>
> tim zajistit, ze kazdou vterinu zkontolujes, jesti je u cas neco
> udelat a zarovn to bude zrat jednou za vterinu smesne promile
> procesoroveho casu.. (kolik asi zabere precteni aktualniho casu a
> jeden IF? Nic...
>
> Pripadne staci-li ti mensi presnost, muzes dat jeste vetsi sleep. :-)
>
Mirne OT: Re: Podruhe: Service - jak odstranit vyt
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2001 16:02:50
From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
> jsme volat Synchronize. Ale pokud byl proces X-aplikace,
> pak metoda Synchronize normalne fungovala, ale zato se
> thread prilis casto "vysmekaval" ze sleepu (podezrivam z toho
> vyvolani metody Synchronize z uplne jineho threadu).
>
> Linux na nas zkratka zacina vystrkovat ruzky...
>
> Rozumite tomu nekdo?
Ahoj,
neni to dano novou implementaci TThread.Synchronize v RTL D6/Kylix ? Je treba
aby hlavni thread volal CheckSynchronize, viz:
http://community.borland.com/article/0,1410,27655,00.html
Petr Vones
Mirne OT: Re: Podruhe: Service - jak odstranit vyt
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.10.2001 16:03:00
To je totiz tim, ze lide z INDY jsou uplne BLBI! Na tento problem
byli mnou davno upozorneni, a doposud s tim nic neudelali. :-((( Lide
z Indy se venuji hlavne windows, na linux tak nejak kaslou, spokojili
se s tim, ze to jde pod Kylixem prelozit, a ze to neco dela.. ze to
funguje blbe a misty nepouzitelne, to je jim srdecne jedno. ;-(
Jde o to, ze INDY pouziva pod Linuxem misto GeTickCount funkci Clock,
ktera nevraci pocet ticku od spusteni operacniho systemu (jak to dela
Windows), ale vraci pocet ticku spotrebovanych prave bezicim
procesem. (ostatne jak si muze kazdy proverit pomoci 'man clock'...)
Tedy kdyz Sleepujes, bezici aplikace nezere temer nic, a tak ta
funkce pod Linuxem vraci porad stejnou hodnotu. :-)
Sranda je, ze INDY je opravdu SPATNE napsane, protoze INDY zere samo
o sobe tolik stojoveho casu, ze na tento problem patrne jeste
neprisli, protoze jim ta funkce vraci pomerne pekne hodnoty.. bodejd
by ne, kdyz v situacich kdy ji pouzivaji jim jejich uzasny kod bere
100% srojoveho casu. ;-)
Spravne reseni jste pouzil vy, a v Synapsi je pouzito reseni
prakticky stejne. Pak to funguje jak ma.
Podobnych problemu s INDY pod Linuxem najdete mnohem vic, a osobne
doporucuji obchazet INDY kod v Kylixu VELKYM obloukem...
> Nedavno jsme se pekne nachytali s podobnym resenim
> na Linuxu, v threadu se volal sleep(n) a zjistoval se cas po
> jehoz uplynuti se mela udelat nejaka akce. Pro zjisteni casu
> jsme na Windows pouzivali GetTickCount a pod Kylixem
> jsme odnekud z Indy vyhrabali jakousi Linuxovou implementaci
> teto funkce. Ale nas timer se ne a ne vyvolat -- problem byl
> v tom ze zminovana nahrada GetTickCount sice vracela cas,
> ale nikoli realny ale spotrebovany cas procesoru -- ktery se
> prilis nehybal prave kvuli tem sleepum. ;-)
> Pomohlo naimplementovat si vlastni GetTickCount pomoci
> gettimeofday.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Podruhe: Service - jak odstranit vytizeni procesor
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.10.2001 16:31:05
>procedure TATestService.ServiceExecute(Sender: TService);
>begin
> tmrTimer.Enabled := True;
>
> while not Terminated do
> begin
> ServiceThread.ProcessRequests(False);
^^^^
pokud predchozi radek nahradis timto melo by byt vse OK (akorat to
odchytavani Terminate nemusi fungovat)
ServiceThread.ProcessRequests(True);
>
> end;
>
> tmrTimer.Enabled := False;
>end;
Pozn;: TService jsem nikdy nepouzil ale pohledem do zdrojaku k
Tservice.ProcessRequests je videt, ze Tva smycka s WaitForMessage
nastavena na False se bude chovat jako zrout CPU - proste spotrebuje
vsechny cykly CPU k tomu aby stale zjistovala, ze zadna zprava ve
fronte neni.
D. Toman
Videokonference
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 6.10.2001 18:15:40
Zdravim,
nezabyvali jste se tu nekdo videokonferenci? Mam udelany prenos hlasu a
chtel bych tam casem dodelat i obraz z kamery.
Je lepsi pouzit klas. API funkci nebo radeji DirectX?
Jaky protokol pouzit pro prenos obrazku?
Kolik snimku za sekundu je dostacujicich?
Pripadne odkazy na danou problematiku rad uvitam.
Diky.
M.Kralik
Videokonference
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2001 18:45:05
From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> Jaky protokol pouzit pro prenos obrazku?
> Kolik snimku za sekundu je dostacujicich?
> Pripadne odkazy na danou problematiku rad uvitam.
Ahoj,
co treba pouzit neco hotoveho jako NetMeeting.
Petr Vones
OT: Replikace MS SQL -> Oracle
[*] Pavel P�kn� - 6.10.2001 19:22:15
Dobry den,
resime problem, jak co nejrychleji replikovat vybrane tabulky z MS SQL
7.0 (SP3) na Oracle 8 (Oracle8i Ent. 8.1.5).
Tabulky v cilove databazi se, bohuzel, nemohou jmenovat stejne jako
zdrojove tabulky v MS SQL databazi.
Zkusili jsme pripojit Oracle jako "Linked Server" a pouzit
insert into "linked server table" select * from ...
Zkusili jsme i balicek Data Transformation Service, ale oboji se nam zda
pomale.
Poradi nam, prosim, nekdo ?
S pozdravem
Pavel Pekny
Komponenty pro IB (FB)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 6.10.2001 20:05:38
>IBX pod D4 nerozbehas?
Mno, kdyz jsem to kdysi davno (rozumej v lete) zkousel, tak me chybely nejake
unity z D5, kdyz jsem se je pokousel nahradit temi z D4, tak mi zacly chybet
deklarace funkci :-)
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Komponenty pro IB (FB)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 6.10.2001 20:07:37
>
> >Ahoj,
> >chtel bych si poridit nejake komponenty pro pristup k IB z D4. Prozatim
> pouzivam
> >IBObjects, ale prijdou mi docela drahe (a pouzivam z nich jen cca 6 komp.
> pro
> >pristup k IB, cely balik je pro mne zbytecny) a zvazuju nad koupi
> FreeIBPlus.
> >Existuje jeste nejaka jina moznost (komponenty), jak se z D4 pripojit
> (nativne)
> >k IB (pro komercni ucely)?
>
> A co tak IBX alebo ZEOS.
> ZEOS - www.zeoslib.org
IBX jsem pod D4 nerozjel, ty ano? Jak?
ZEOS jsou GPL, pokud jsem spravne precetl licenci, tak z ni plyne, ze moje
aplikace by musela byt take GPL :-(
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Komponenty pro IB (FB)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 6.10.2001 20:39:18
> Ahoj,
>
> ktere komponenty pouzivas ? Aktualni verze je IBO4 a ty se daji poridit
> i v mensich sadach ...
Ty ktere jsou zalozeny na TDatasetu (TIBODatabase, TIBOQuery, TIBOStoredProc ve
verzi 3.6Dg).
Podle ceniku je TDataset sada za $145.50 coz neni zrovna malo za 6 komponent
-( btw. nerozumim tomu, co znamena ta Partial contribution, nevi nekdo? Pritom
FIBPlus je o polovinu levnejsi...
Dik
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
komponenta na form
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 6.10.2001 20:43:59
ahoj Delphaci,
nevite nekdo o free-komponente na form, kde by se dala menit napr. barva
caption a pod. nezavisle na woknech?
predem diky
Mirek Drancak
Service - jak odstranit vytizeni procesoru na 100
[*] Hurricane <hurricane(zv)quick(tec)cz> - 6.10.2001 21:42:07
Zdravim
Jenze vysvetli zakaznikovi tohle: "No on by ten program mohl bezet 2x
rychleji, ale pak by zatizeni CPU nebylo 50%, ale 100%." Jinak presne chapu,
co tim myslis, ale ja mam pocit, ze program ma bezet na maximalni vykon a ze
si nekdo nedokaze zchladit CPU je problem jeho a ne muj. Na to pak uxistuje
softwarove chladice, ale to je zase jina kapitola.
Hurricane
----------------------
> Kaslat na vytizeni CPU se nevyplaci - pokud program nedela nic
> uzitecneho nesmi zrat CPU cykly. Zkuste nekomu prodat aplikaci, ktera
> zpusobi, ze Idle CPU bude stale 0. Tezko se zakaznikum vysvetluje, ze
> to vlastne nevadi.
>
> Jeden z nezadoucich vedlejsich efektu muze byt zvysena padavost
> pocitace na kterem takovy program pobezi. Staci aby CPU byl spatne
> chlazeny (pretaktovany,...) a je tu problem. Idle process je
> optimalizovany tak (alespon v novejsich Windowsech), ze vykonava
> vybrane instrukce CPU, ktere "netopi", kdezto obycejna smycka bude
> topit vzdy. Staci se podivat nejakym monitorem na teplotu CPU a hned
> je videt jak pri zatizeni teplota stoupa...
> Zakaznik bude samozrejme tvrdit, ze mu to pada jen kdyz bezi Tvuj
> program - cili je chyba v nem
Videokonference
[*] Erik Salaj <winsoft(zv)stonline.sk> - 6.10.2001 21:57:06
> nezabyvali jste se tu nekdo videokonferenci? Mam udelany prenos hlasu a
> chtel bych tam casem dodelat i obraz z kamery.
> Je lepsi pouzit klas. API funkci nebo radeji DirectX?
> Jaky protokol pouzit pro prenos obrazku?
> Kolik snimku za sekundu je dostacujicich?
> Pripadne odkazy na danou problematiku rad uvitam.
Pozri TAPI3 rozhranie.
Erik