Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Jak muze vice programatoru spolupracovat na projek
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.10.2002 12:39:55
From: "Pavol Kakacka" <kakacka(zv)proca(tec)cz>
> Neni to hruzna hruza ani mala hruza :). Nezalezi na tom ci mam jeden exe
> alebo viac. Zalezi na tom kolko mam unit.
No, ono hlavne zalezi na tom, kolik mas lidi, jake maji kvality a jak jsou
organizovani, jak rychle to ma byt hotovo a jaky je predpokladany zivotni
cyklus projektu.
Z toho pak plynou prava, povinnosti a odpovednosti jednotlivych lidi a tomu
se take musi podritit kazdodenni chod teamu. Take zalezi, jak velky je to
projekt, jak vypada jeho management etc...
Doporucuji precist odpovidajici kapitoly alespon z nejakych script o SW
inzenyrstvi (jsem 10000 km od domova, tak nemam odkazy
na jinou literaturu ani pristup na www).
Nejcastejsi organizacni struktury jsou:
* demokraticky team
(osobne si nedovedu predstavit, jak v praxi muze fungovat, zejmena ve
vazbe
na zodpovednost za projekt - IMHO se hodi spis na nejaky Open Source)
* team se zaloznim programatorem
(2 srovnatelne dobri programatori, z nichz jeden je leader tj. ma pravomoc
rozhodovat ve spornych vecech a nese taky odpovednost)
* team hlavniho chirurga
(jeden leader, ktery umi zvladnout projekt sam, ale na radu veci
musi pouzit specialisty s hlubsimi znalostmi, nez ma on sam)
Takze kdyz napr. budes mit v teamu cloveka kvalit Petra Vonese, tak ho muzes
pouzit jako backing-up programatora a resit s nim od zacatku vse ve dvojici
a operativne si delit hlavni ukoly mezi Vas dva stejne jako zbyvajici junior
programatory v teamu, nebo ho muzes pouzit jako specialistu s hlubolkymi
znalostmi v chieff surgeon teamu - napr. nechat ho vyresit nedavno
diskutovanou komunikaci mezi moduly a pridelit mu popr. k ruce nejakeho
juniora atd.
Takto organizovane teamy nemivaji vice nez 10 lidi. Pokud je projekt
rozsahlejsi,
buduje se takovych teamu nekolik (nemuseji mit stejnou organizaci).
Ty pracuji nezavisle na sobe a jsou rizeny project managementem
- tady uz se otevira prostor pro poddodavky tj. o nakup reseni od jinych
spolecnosti
HTH, pf
Jak muze vice programatoru spolupracovat na projek
[*] =?Default?Q?Jan_Sebel=EDk?= <honza(zv)haes(tec)cz> - 20.10.2002 06:47:42
> Odes�latel: Ales Pavel <Aldik(zv)quick(tec)cz>
> Je ale take pravda..ze nelze pouzivat moc dedicnost pokud pracuje nekdo jako
> jak a neustale opravuje predka:-))
Jde o to, dobre se dohodnout na interface (public).
Pak je pouziti dedicnosti naopak vyhodou, mozna nutnosti.
Ja klidne zavolam "inherited", aniz bych vedel, co se bude dit.
Tedy pokud mohu predpokladat, ze to je napsano dobre.
O tom je "encapsulation", prave to ve vetsich projektech udrzi "citelnost" kodu.
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. 493 792 931 (mobil 776 347735)
=========================================
ADO nezvlada view 2 - jen poznamka
[*] bardon <bardon(zv)akord-soft(tec)cz> - 20.10.2002 07:02:05
Jen na okraj - to je jedna z veci, ktere se mi na ADO nelibi. Pravidelne si
ty updatovaci prikazy vymysli spatne a tak velmi casto musim aktualizace
psat pres UpdateObject. BDE se nic vymyslet nesnazilo, pokud jsem zapomel
napsat UpdateObject, tak slozitejsi query nesly editovat. U ADO editovat
jdou, ale blbe, coz je vetsinou horsi, nez kdyby editovat nesly.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jakub Martinek
ADO si sice
pamatuje zdrojove tabulky, ale musite mu pomoci prave s urcenim klicu (u
slozitych vazeb stejne narazite).
A prave kvuli nejednoznacne a otevrene implementaci view u MSSQL nejde urcit
nad kterym view jeste editace pujde. Proto se obecne doporucuje provadet
updaty jinym zpusobem.
Deleni ve FB DIALECT
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 20.10.2002 08:27:57
Mno dekuji dokonce jsem si uz nasel co to DIALECT JE:-)))
jen mi brachu jeste rekni jak nastavim dialect u FB, jak jsem zjistil tak to
v IB bude asi jineee.....
Nejde mi dialect nastavit delam to takto
EXEC SQL SET SQL DIALECT 1;
Diky moc...jsem rad ze se nebesa smilovala a poradila aldikovi....
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Jak muze vice programatoru spolupracovat na projek
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 20.10.2002 08:29:23
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> > Neni to hruzna hruza ani mala hruza :). Nezalezi na tom ci mam jeden exe
> > alebo viac. Zalezi na tom kolko mam unit.
>
> No, ono hlavne zalezi na tom, kolik mas lidi, jake maji kvality a jak jsou
> organizovani, jak rychle to ma byt hotovo a jaky je predpokladany zivotni
> cyklus projektu.
Hmm :)
> buduje se takovych teamu nekolik (nemuseji mit stejnou organizaci).
> Ty pracuji nezavisle na sobe a jsou rizeny project managementem
> - tady uz se otevira prostor pro poddodavky tj. o nakup reseni od jinych
> spolecnosti
Odpovedal som obecne na otazku, tu uz smerujeme niekam uplne mimo povodny
dotaz.
Ale pre informaciu patrime do tejto kategorie :)
Kakacka Pavol
KasiX(zv)atlas(tec)cz
ADO nezvlada view 2 - jen poznamka
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 20.10.2002 08:33:36
On 20 Nov 2002 at 7:02, bardon wrote:
> Jen na okraj - to je jedna z veci, ktere se mi na ADO nelibi.
> Pravidelne si ty updatovaci prikazy vymysli spatne a tak velmi casto
> musim aktualizace psat pres UpdateObject. BDE se nic vymyslet
> nesnazilo, pokud jsem zapomel napsat UpdateObject, tak slozitejsi
> query nesly editovat. U ADO editovat jdou, ale blbe, coz je vetsinou
> horsi, nez kdyby editovat nesly.
No nevim, skoly nemam, ale nebylo by nahodou lepsi delat update pres
ulozenou proceduru? Jednak se vyhnes uvedenym problemum, dvojak lepe
ohlidas konzistenci dat, a trojak se to daleko lepe ovlada a osetruje
v programu.
S pozdravem
Zbysek Hlinka
Jak muze vice programatoru spolupracovat na projek
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 20.10.2002 08:39:38
On 19 Nov 2002 at 18:17, Dalin wrote:
> >Hm, a co takhle to rozsekat na vicemene nezavisle moduly, ktere budou
> >spolupracovat pres predem dohodnute rozhrani? Treba takovy COM, .NET,
> >.... Jeden velky exac od vice programatoru mi prijde jako hruza
> >hruzna.
>
> Hmm tak s tim bych tak uplne nesouhlasil
> asi je jasne ze projekt budes muset rozdelit na nekolik casti
> (unit, moduly, )
> ale na to aby si do "jednoducheho" programu zaclenoval .NET nebo COM
> komunikaci se me zda byt trochu zbytecne.
Jednoduchy program zvladne jeden clovek. Jakmile na tom musi delat
vic lidi, uz to prestava byt jednoduchy program, a to i v uvozovkach.
> pokud pouzijes CVS (freeCVS,
> WinCVS, Teamsources) tak ti vetsinou odpadaji starosti se
> synchronizaci souboru. lze to i bez cvs programu pokud jsou to treba 2
> lidi a rozdeli se jeden pracuje s temato souborama a druhy s timhle
CVS ti moc nepomuze, kdyz mas blbe navrzeny projekt, ktery neumozni
dostatecne pruhledne a jednoznacne rozdeleni praci.
S pozdravem
Zbysek Hlinka
ADO nezvlada view 2 - jen poznamka
[*] bardon <bardon(zv)akord-soft(tec)cz> - 20.10.2002 08:41:42
Ale jiste, ulozena procedura leccos resi, ale tak jako tak ji musim volat
pres UpdateObject nebo obchazet editaci pres DataSet uplne. Problem neni v
tom, ze by to neslo, problem (ale maly) je naopak v tom, ze to jde ale
defaultne to dela dost nesikovne a kdyz to zapomenu prepsat, tak se divim...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zbysek Hlinka
Sent: Wednesday, November 20, 2002 8:34 AM
No nevim, skoly nemam, ale nebylo by nahodou lepsi delat update pres
ulozenou proceduru? Jednak se vyhnes uvedenym problemum, dvojak lepe
ohlidas konzistenci dat, a trojak se to daleko lepe ovlada a osetruje
v programu.Jak muze vice programatoru spolupracovat na projek
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 20.10.2002 08:43:41
On 19 Nov 2002 at 18:30, David Michal wrote:
> Pockej jaky maglajz? To ze mam po buildu jeden exe, preci neznamena,
> ze cela apliace je psana v jedne unit. Units mam v soucasne dobe asi
> 60, a po buildu je z toho 2.5MB exe file.
Jisteze to neznamena. Ja ale nevim, jak mas ty unity navzajem
provazane, jake jsou mezi nimi vztahy a kolik kodu je spolecneho. X
unit nerika nic o vnitrnim navrhu aplikace, a o ten tu jde, pokud
chces delit praci mezi vic lidi.
S pozdravem
Zbysek Hlinka
Deleni ve FB DIALECT
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.10.2002 08:50:09
> tak to v IB bude asi jineee..... Nejde mi dialect nastavit delam to
> takto
>
> EXEC SQL SET SQL DIALECT 1;
>
Dialekt je jednak vlastnosti databaze - to urcite najdes v IBConsoli
apod. a jednak ho nastavujes na klientovi napr. v komponente
TIBDatabase.
V SQL jazyce to neres.
David Lebeda
Vy�e�eno: ADO nezvlada view
[*] Delphin <delphin(zv)post(tec)cz> - 20.10.2002 08:55:50
Funguje reseni od Tom xXx
create view vw_pokus
WITH VIEW_METADATA
as
select * from pokus
Kdyz tam je to VIEW_METADATA, tak se ADO nepokousi myslet a vraci to tak,
jak je treba, tedy primo do view.
Delphin
PS: Sice neumi to nullif, ale to uz se da obejit.
Jak muze vice programatoru spolupracovat na projek
[*] Martin Valach <vachix(zv)centrum.sk> - 20.10.2002 08:58:58
Asi budes potrebovat nejaku metodiku.
Toto je metodika pre softwarovu firmu 2 az 10 programatorov.
Moze to posluzit ako inspiracia.
http://www.extremeprogramming.org
mato
ADO nezvlada view
[*] Delphin <delphin(zv)post(tec)cz> - 20.10.2002 09:21:25
>View vypada priblizne takto
>CREATE VIEW moje_view
>AS
>SELECT nullif(Sloupec,null) Sloupec
>FROM Data
>tady hlavne nechapu jaky ma tenhle SELECT smysl, stejne ti vrati uplne
stejna data, jako jsou ve sloupci "Sloupec"
Je to jenom priklad, moje view ma cca 20 sloupcu. Kdyz to tam neni, tak
funguje kontrola na platnost dat, tedy kdyz je ve view sloupec, ktery nesmi
byt null, tak server vyzaduje data. Kdyz tam dam to nullif, tak to server
oklame a nemusim mu ty data posilat, kdyz je stejne v triggeru nepotrebuju.
Jak muze vice programatoru spolupracovat na projek
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 20.10.2002 09:35:58
> Doposud jsem na projektu pracoval sam. Jenze mi zacina prerustat a
> stojim pred nutnosti prizvat dalsi programatory. Ma otazka je v subj.
My to delame nasledovne: Jeden clovek se stava spravcem projektu, urci
pravidla a celkovou koncepci projektu. Projekt si rozdeli na casti, ktere
budou delat dalsi lidi. Urci rozhrani, ktereho se musi vsichni drzet. Kazdy
z programatoru si udela vlastni unity, kde programuje sve funkce a predava
svoji praci spravci projektu. Jedine ten ma narok projekt davat dohromady a
kompilovat vysledne exe a davat ukoly dalsim programatorum. Takhle nam to
funguje uz radu let.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
ADO nezvlada view 2 - jen poznamka
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 20.10.2002 10:00:04
On 20 Nov 2002 at 8:41, bardon wrote:
> Ale jiste, ulozena procedura leccos resi, ale tak jako tak ji musim
> volat pres UpdateObject nebo obchazet editaci pres DataSet uplne.
> Problem neni v tom, ze by to neslo, problem (ale maly) je naopak v
> tom, ze to jde ale defaultne to dela dost nesikovne a kdyz to zapomenu
> prepsat, tak se divim...
Nejak nechapu, o cem vlastne pises. V ADO se na to pouziva objekt
Command, ktery se naplni parametry a zavola se Execute. V nejakych
komponentach to muze byt implementovano vselijak, ale uvnitr by mel
byt ten Command.
S pozdravem
Zbysek Hlinka
Prvnich x zaznamu
[*] Ales Kerner <kerner(zv)metalcom(tec)cz> - 20.10.2002 10:02:03
Nevite nekdo, jak v IB udelat to, aby mi select vratil pouze treba prvnich
10 zaznamu?
Dik za pomoc
Ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Prvnich x zaznamu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 20.10.2002 10:11:33
SELECT neco FROM nekde WHERE necojineho LIMIT 10
Radek
Ales Kerner <kerner(zv)metalcom(tec)cz>(zv)clexpert(tec)cz on 20.11.2002 10:02:03
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Prvnich x zaznamu
Nevite nekdo, jak v IB udelat to, aby mi select vratil pouze treba prvnich
10 zaznamu?
Dik za pomoc
Ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Click on Status Bar
[*] Ales Kerner <kerner(zv)metalcom(tec)cz> - 20.10.2002 10:14:52
Zdravim,
nevite nekdo, jak zjistit u status baru, na ktery panel bylo clicknuto?
dik
Ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Nelze otevrit GDB
[*] J�n Harman <harman(zv)atlas(tec)cz> - 20.10.2002 10:25:34
Mam obe verze serverov naprosto shodne, instalovane z jednoho instalacniho
balicku.
>
> 1. Obe verzie serverov musia byt uplne zhodne
> (alebo radsej BACKUP / RESTORE)
>
> JH> Nainstaloval jsem FB na jednom pocitaci, chci tam prenest GDB
vytvorenou
> JH> doma na jinem pc a zaboha ji tam nemuzu otevrit. Zaregistruji v
IBConsole
> JH> ale nemuzu otevrit. Porad pise (ted to presne nevim) ze uzivatel nema
> JH> pristup k prohlizeni, pricemz na obou pocitacich je jedinym uzivatelem
> JH> SYSDBA se stejnym heslem.
> JH> Pokud tam chci GDB vytvorit, tak je to v pohode. Vytvorim a muzu ji
otevrit.
> JH> Diky moc za radu. Honza.
>
>
OT Pokus
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 20.10.2002 10:31:47
From: "Sl�va" <sliva(zv)csh(tec)cz>
> Take mi neprosel jeste zadny prispevek do konference, cim to muze byt???
Je mozne ze pises do konference z inej adresy nez si prihlaseny.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
FORMULAR & GRID a obracene
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 20.10.2002 10:58:46
Ahoj,
muzete mi prosim poradit ? Mam D6 a Win 2000.
Jde mi o nasledujici. Na dormulari FORM1 ma DBGRID1. Pokud onen DBGRID1 zakotvim (anchors) na formu FORM1, bude se mi jeho velikost menit podle velikosti formulare FORM1. Fajn, ale ja bych to potreboval obracene. Potreboval bych, aby se mi velikost formulare FORM1 menila dle velikosti dbgridu DBGRID1.
Diky
V.
OT Pokus
[*] Sl�va - 20.10.2002 10:27:05 -0000
Take mi neprosel jeste zadny prispevek do konference, cim to muze byt???
S pozdravem Josef Sliva Ostrava
----- Original Message -----
From: <janpolasek(zv)vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 19, 2002 12:42 PM
Subject: OT Pokus
> Prominte, toto je zkouska spojeni.
> Po prihlaseni do konference neprosel
> zadny muj prispevek.
> Jan Polasek Zlin
>
>
Prvnich x zaznamu
[*] Ale� Kerner <kerner(zv)metalcom(tec)cz> - 20.10.2002 11:45:03
Ale me ten limit v IB nefunguje!!!
SELECT neco FROM nekde WHERE necojineho LIMIT 10
Nevite nekdo, jak v IB udelat to, aby mi select vratil pouze treba prvnich
10 zaznamu?
Dik za pomoc
Ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Prvnich x zaznamu
[*] Jan Naiser <tua(zv)wo(tec)cz> - 20.10.2002 11:49:55
Ahoj,
nasel jsem ve svem archivu napad, ktery kdysi probehl konferenci. Treba
pomuze:
------
pomoci specialniho pouziti generatoru lze ...
pri zahajeni session vytvorit generator s unikatnim jmenem (unikatnim v
ramci vsech existujicich pripojeni k databazi, pripojim-li se pod jednim
uzivatelskym jmenem k databazi 3x, musi se i tak vytvorit 3 ruzne
generatory - generatory totiz nejsou nijak ovlivnene urovni izolace
transakci a pri stejnem nazvu generatoru by vysledky neodpovidaly
ocekavani :-) )
create generator TEMPGEN;
/* takhle se vybere 20 zaznamu */
set generator TEMPGEN to 0;
select *
from dodav
where (gen_id(TEMPGEN, 1) <= 20);
/* takhle se vyberou zaznamy 51-100 */
set generator TEMPGEN to 0;
select *
from dodav
where (gen_id(TEMPGEN, 1) >= 51) and (gen_id(TEMPGEN, 0) < 100);
pri ukonceni session pak provest
delete from RDB$GENERATORS where RDB$GENERATOR_NAME = 'TEMPGEN';
------
Honza.
----- Original Message -----
From: "Ale� Kerner" <kerner(zv)metalcom(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 20, 2002 11:45 AM
Subject: Re: Prvnich x zaznamu
> Ale me ten limit v IB nefunguje!!!
>
> SELECT neco FROM nekde WHERE necojineho LIMIT 10
Prvnich x zaznamu
[*] Martin Ocenas <matko(zv)proces.sk> - 20.10.2002 11:52:28
Na IB sa to da urobit len cez Stored Procedure.
n = 0;
For Select ....
....
do
begin
n = n + 1;
if (n <= 10) then suspend;
end
> -----Original Message-----
> From: Ale� Kerner [mailto:kerner(zv)metalcom(tec)cz]
> Ale me ten limit v IB nefunguje!!!
>
> SELECT neco FROM nekde WHERE necojineho LIMIT 10
>
> Nevite nekdo, jak v IB udelat to, aby mi select vratil pouze
> treba prvnich 10 zaznamu?
>
> Dik za pomoc
>
> Ales
Prvnich x zaznamu
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 20.10.2002 11:56:29
Ahoj,
On 20 Nov 2002 at 11:45, Ale Kerner wrote:
> Ale me ten limit v IB nefunguje!!!
>
> SELECT neco FROM nekde WHERE necojineho LIMIT 10
>
> Nevite nekdo, jak v IB udelat to, aby mi select vratil pouze treba
> prvnich 10 zaznamu?
SELECT FIRST 10 pole FROM tabulka
Jarek Uher
MSSQL 2000
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 20.10.2002 13:32:34
Ahoj
nevite nekdo zda se daji jeste zachranit data smazana pomoci DELETE + COMMIT z MSSQL serveru - ktery se ovsem nezalohuje !!? no asi ne vidte ? :(.
Milos
stridani barev v gridu
[*] Ale� Kerner <kerner(zv)metalcom(tec)cz> - 20.10.2002 13:42:49
Zdravim
nevite prosim Vas nekdo, jak udelat stridani barev v gridu u radku, tzn. aby
byl treba 1 radek bily a 2. sedivy a 3. zase bily, uz se stim morim dost
dlouho a nemuzu s tim hnout.
Pokud nekdo mate, prosil bych i priklad.
Dik Ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
double vs extended
[*] Kevin Macka <Kevin.Macka(zv)seznam(tec)cz> - 20.10.2002 13:59:15
dobry den,
prave resim problem nejakeho divneho zaokrouhlovani pri pouziti typu
real.
nasledujici kod se totiz dostane do stavu kdy po prevodu StrToFloat
je result <> 12.45. coz je ale nejake divne protoze v editu je prave
hodnota 12,45.
jak je to mozne?
ps: kdyz misto typu double pouziju extended tak je vse v poradku
function StrToFloatDef( s : string; default : double ) : double;
begin
if trim( s ) = '' then begin
result := default;
exit;
end;
try
result := StrToFloat( s );
if result <> 12.45 then
ShowMessage( 'result <> 12.45' );
except
result := default;
end;
end;
procedure TForm1.ButtonClick(Sender: TObject);
var r : double;
begin
Edit1.Text := '12,45';
r := StrToFloatDef( Edit1.Text, 0 );
ShowMessage( FloatToStr( r ) );
end;
Karel
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
stridani barev v gridu
[*] David Michal <david.michal(zv)www-bv(tec)com> - 20.10.2002 14:12:25
Zdravim,
Ma se menit barva vzhledem k zobrazovanym datum? Nebo se proste maji stridat
tyto tri barvy?
V prvnim pripade vim a je to i v archivu konference, v druhem pripadu nevim.
David
nevite prosim Vas nekdo, jak udelat stridani barev v gridu u radku, tzn. aby
byl treba 1 radek bily a 2. sedivy a 3. zase bily, uz se stim morim dost
dlouho a nemuzu s tim hnout.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002
stridani barev v gridu
[*] Ale� Kerner <kerner(zv)metalcom(tec)cz> - 20.10.2002 14:33:56
samo, ze k aktualne zobrazovanym datum
> Zdravim,
> Ma se menit barva vzhledem k zobrazovanym datum? Nebo se proste maji
stridat
> tyto tri barvy?
> V prvnim pripade vim a je to i v archivu konference, v druhem pripadu
nevim.
> David
>
> nevite prosim Vas nekdo, jak udelat stridani barev v gridu u radku, tzn.
aby
> byl treba 1 radek bily a 2. sedivy a 3. zase bily, uz se stim morim dost
> dlouho a nemuzu s tim hnout.
stridani barev v gridu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 20.10.2002 14:36:08
> nevite prosim Vas nekdo, jak udelat stridani barev v gridu u
> radku, tzn. aby byl treba 1 radek bily a 2. sedivy a 3. zase
> bily, uz se stim morim dost dlouho a nemuzu s tim hnout.
Nepises, o aky grid sa jedna.
V pripade stringgridu si mozes napisat OnDrawCell napriklad takto
(DefaultDrawing je True):
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
const
RowColors: array[Boolean] of TColor = (clCream, clMoneyGreen);
begin
with Sender as TStringGrid do
begin
if not (gdFixed in State) and ((gdFocused in State) or not (gdSelected
in State)) then
begin
Canvas.Brush.Color := RowColors[(ARow - FixedRows) mod 2 = 0];
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
end;
end;
end;
HTH
TOndrej
Adresa po��ta�e
[*] Radek Bernatek <Bernatek.Radek(zv)seznam(tec)cz> - 20.10.2002 14:39:42
Ahoj,
mam CGI napsane v Delphi, ktere m� nacist XML soubor od uzivatele na
internetu. Muze mi nekdo poradit jak v metod� XML.load zad�m cestu k
souboru, jde mi o adresu pocitace, na kterem je toto volano(kde bezi
browser), zatim jsem to resil pres textove soubory, tam to neni
problem, ale mam problem nacist XML soubor do MSXML parseru (dari se
mi to jen na mem pocitaci nebo na siti, kde znam cestu).
Radek Bernatek
______________________________________________________________________
Reklama:
Nenechte si ujit novy film Woodyho Allena "Hollywood Ending" - blaznivou
komedii o tom, jak se ve tme strefit do cerneho. V kinech od 3.9.2002.
Sledujte http://www.hce(tec)cz
FORMULAR & GRID a obracene
[*] Ludo Fulop <kexo(zv)ynet.sk> - 20.10.2002 15:06:44
???
a ako chces menit velkost dbgridu? pravdepodobne programovo, nie? nemozes
potom programovo nastvovat aj velkost formulara?
Ludo Fulop
----- Original Message -----
Jde mi o nasledujici. Na dormulari FORM1 ma DBGRID1. Pokud onen DBGRID1
zakotvim (anchors) na formu FORM1, bude se mi jeho velikost menit podle
velikosti formulare FORM1. Fajn, ale ja bych to potreboval obracene.
Potreboval bych, aby se mi velikost formulare FORM1 menila dle velikosti
dbgridu DBGRID1.
stridani barev v gridu
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 20.10.2002 15:14:46
Ale� Kerner, <mailto:kerner(zv)metalcom(tec)cz> napsal:
AK> nevite prosim Vas nekdo, jak udelat stridani barev v gridu u radku, tzn. aby
AK> byl treba 1 radek bily a 2. sedivy a 3. zase bily, uz se stim morim dost
Ahoj, priklad viz nize, podobne ale najdes i v knize Delphi 1001 t&t
(priklad 822, 823). Tady se ti budou stridat zelena a cervena. Jen si
musis zjistit, jestli pri vykreslovani jsi na sudem nebo lichem radku :
Obsluha udalosti OnDrawColumnCell
procedure TUkaz.gridUkazDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
function StojimNaSudemRadku: Boolean
begin
{ nejaka funkce na zjisteni sudeho radku }
Result := (SudyRadek);
end;
begin
{spusti se s vykreslenim kazdeho sloupce }
with Sender as TDBGrid do begin
if StojimNaSudemRadku then
if gdSelected in State then begin
Canvas.Brush.Color := clHighLight;
Canvas.Font.Color := clLime;
end
else begin
Canvas.Brush.Color := clLime ;
Canvas.Font.Color := clInfoText;
end
else
if gdSelected in State then begin
Canvas.Brush.Color := clHighLight;
Canvas.Font.Color := clRed;
end
else begin
Canvas.Brush.Color := clRed ;
Canvas.Font.Color := clInfoText;
end;
end;
end;
gridUkaz.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
OT: HP PSC 2210
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 20.10.2002 15:30:32
Ahoj,
ma nekdo zkusenosti s tiskarnou HP PSC 2210 pri tisku pres QR?
Nejak mi nechce reagovat. Nic nevytiskne a uvede se do Offline.
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
Tel: 511096, 522889, 524795
Mob: 0602592948, 0603833124
ICQ: 47636291
stridani barev v gridu
[*] David Michal <david.michal(zv)www-bv(tec)com> - 20.10.2002 15:30:02
Zdravim,
Pak jak jsem psal, vse je v archivu konference. viz. www.delphi(tec)cz .
Ale presto hodim priklad:
Nejdrive si vlastnost DefaultDrawing u DBGridu prepnete na False.
Pak je treba obslouzit udalost: OnDrawColumnCell u DBGridu. Napr.
procedure TFrm_Main.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
//pokud bude field Locked True pak se zaznam zobrazi s cervenym fontem
if DBGrid1.DataSource.DataSet.FieldByName('Locked').AsBoolean then
DBGrid1.Canvas.Font.Color := clRed;
//pokud by jste chtel vybarvit pozadi a ne font pak tam bude Brush misto
Font, spoustu dalsich moznosti najdete v napovede pod TCanvas
//nezapomenout zavolat puvodni funkci
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
samo, ze k aktualne zobrazovanym datum
> Zdravim,
> Ma se menit barva vzhledem k zobrazovanym datum? Nebo se proste maji
stridat
> tyto tri barvy?
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002
stridani barev v gridu
[*] Robert Suska <delphi(zv)korak.sk> - 20.10.2002 15:42:05
Ahoj !
Pouzi RXLib a z nej TRxDBGrid a ja som to robil nasledovnym kodom a tam sa
mi farby striedaju podla nejakych hodnot vo fieldoch
procedure TZmluvyDataForm.RxDBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var G: TDBGrid;
begin
inherited;
G:= Sender as TDBGrid;
if(DataModule2.ZmluvyTable1.
FieldByName('DOBA_PLATNOSTI_ZMLUVY').AsDateTime<NOW)
then
begin
if (gdSelected in State ) and (G.focused = TRUE) then
begin
G.Canvas.BRUSH.Color := clRed;
G.Canvas.Font.Color := clWhite;
end
else
G.Canvas.Font.Color := clRed;
G.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
if(DateToStr(DataModule2.ZmluvyTable1.FieldByName('DOBA_PLATNOSTI_ZMLUVY').
AsDateTime)=DateToStr(NOW))
then
begin
if (gdSelected in State ) and (G.focused = TRUE) then
begin
G.Canvas.BRUSH.Color := clGreen;
G.Canvas.Font.Color := clWhite;
end
else
G.Canvas.Font.Color := clGreen;
G.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
if(DataModule2.ZmluvyTable1.FieldByName('ZMLUVA_DO_NEURCITA').AsBoolean=True
)
then
begin
if (gdSelected in State ) and (G.focused = TRUE) then
begin
G.Canvas.BRUSH.Color := clBlue;
G.Canvas.Font.Color := clWhite;
end
else
G.Canvas.Font.Color := clBlue;
G.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
Ak som uplne mimo tak prosim za prepacenie
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
> Zdravim,
> Pak jak jsem psal, vse je v archivu konference. viz. www.delphi(tec)cz .
> Ale presto hodim priklad:
>
> Nejdrive si vlastnost DefaultDrawing u DBGridu prepnete na False.
> Pak je treba obslouzit udalost: OnDrawColumnCell u DBGridu. Napr.
>
> procedure TFrm_Main.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
>
> //pokud bude field Locked True pak se zaznam zobrazi s cervenym fontem
> if DBGrid1.DataSource.DataSet.FieldByName('Locked').AsBoolean then
> DBGrid1.Canvas.Font.Color := clRed;
>
> //pokud by jste chtel vybarvit pozadi a ne font pak tam bude Brush misto
> Font, spoustu dalsich moznosti najdete v napovede pod TCanvas
>
> //nezapomenout zavolat puvodni funkci
> DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
>
> end;
>
> samo, ze k aktualne zobrazovanym datum
>
>
> > Zdravim,
> > Ma se menit barva vzhledem k zobrazovanym datum? Nebo se proste maji
> stridat
> > tyto tri barvy?
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002
stridani barev v gridu
[*] Ale� Kerner <kerner(zv)metalcom(tec)cz> - 20.10.2002 15:42:42
> musis zjistit, jestli pri vykreslovani jsi na sudem nebo lichem radku :
-- tohle vim, ale jak zjistim ten sudy nebo lichy radek, neni problem
vymyslet stridani barev, ale zjistovani radku
delal jsem to takhle, (((Rect.Top div (Rect.Bottom - Rect.Top + 1)) mod 2) =
0), ale je problem,
pokud se posunuji sipkou dolu, tak posledni radek je vzdy sudy�(lichy) a
stridani je v pr....
Pri page up a page down to docela funguje
>
> Obsluha udalosti OnDrawColumnCell
>
> procedure TUkaz.gridUkazDrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
>
> function StojimNaSudemRadku: Boolean
> begin
> { nejaka funkce na zjisteni sudeho radku }
> Result := (SudyRadek);
> end;
> begin
> {spusti se s vykreslenim kazdeho sloupce }
> with Sender as TDBGrid do begin
> if StojimNaSudemRadku then
> if gdSelected in State then begin
> Canvas.Brush.Color := clHighLight;
> Canvas.Font.Color := clLime;
> end
> else begin
> Canvas.Brush.Color := clLime ;
> Canvas.Font.Color := clInfoText;
> end
> else
> if gdSelected in State then begin
> Canvas.Brush.Color := clHighLight;
> Canvas.Font.Color := clRed;
> end
> else begin
> Canvas.Brush.Color := clRed ;
> Canvas.Font.Color := clInfoText;
> end;
> end;
> end;
> gridUkaz.DefaultDrawColumnCell(Rect, DataCol, Column, State);
> end;
>
> ------
> S pozdravem Karel Horky
> horky.karel(zv)quick(tec)cz
> W2K/SP2, D5Ent/UP1
>
Firebird - Sloupec Float .. Spatny vstup i vystup.
[*] Petr Varga <djvar(zv)post(tec)cz> - 20.10.2002 15:46:14
Ahoj v�em
M�m datab�zi Firebird. A v ni tabulku kter� m� sloupec typu float..
No kdyz don�j ukl�d�m tak ob�as ulo�� pon�kud v�ce desetinn�ch m�st.
Ukl�d�m t�eba 9,8 a ulo�� se 9,800023568 co� je docela zvl�tn�.. To
��slo na��t�m z Editu kam to zad� user do prom�nn� typu double. No
je�t� p�ed tim n� to ulo��m si nech�m vypsat obsah prom�nn� a uk�e
on�ch 9,8 ale kdy� ulo��m do datab�ze vyleze mi p�i selectu ��slo
v���e uveden�. Nev�m co s t�m. Mohl bych to zaokrouhlit ale z rovna
v tomto p��pad� to nejde. Poku� n�kdo v� ��m to je pros�m napi�te.
Petr
--
---
V�hodn� n�kupy p�es internet, slevov� akce, zaj�mav� ceny, dod�vka
a� do domu...http://shop.volny(tec)cz
Preskoceni prihlasovacich dialogu ve Win98SE
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 20.10.2002 16:02:24
Zdravim vsechny.
Po odhlaseni uzivatele bych chtel preskocit prihlasovaci dialog(y) do site,
do windows - vse ve Win98SE,
a pak rozpoznat, kdy jsou Windows uz funkcni.
Prihlasovaci dialogy bych mohl testovat pomoci findwindow, ale rad bych
nejake lepsi reseni napriklad rict windowsum (pred odhlasenim uzivatele)
aby napozadovaly prihlaseni ?
Jak rozpoznat, ze windows uz jsou funkcni ?
Diky za namety.
Pavel
double vs extended
[*] Peter Surovy <psurovy(zv)uevora.pt> - 20.10.2002 15:04:32 -0000
Mozno pisem blbost ale:
----- Original Message -----
From: "Kevin Macka" <Kevin.Macka(zv)seznam(tec)cz>
Sent: Wednesday, November 20, 2002 12:59 PM
> nasledujici kod se totiz dostane do stavu kdy po prevodu StrToFloat
> je result <> 12.45. coz je ale nejake divne protoze v editu je prave
> hodnota 12,45.
--- nebude problem tu? 12.45 <> 12,45 (ciarka a bodka)
PS
Preskoceni prihlasovacich dialogu ve Win98SE
[*] Robert Suska <delphi(zv)korak.sk> - 20.10.2002 16:06:02
Ahoj
Na preskocenie prihlasovacieho okna pouzi program TweakUI
http://www.microsoft.com/ntworkstation/downloads/PowerToys/Networking/NTTwea
kUI.asp
a najdes to potom v Control Paneli a je to v zalozke Logon zaskrtni CheckBox
Auto logon napis nejake meno a heslo do siete a je to.
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
> Zdravim vsechny.
>
> Po odhlaseni uzivatele bych chtel preskocit prihlasovaci dialog(y) do
site,
> do windows - vse ve Win98SE,
> a pak rozpoznat, kdy jsou Windows uz funkcni.
>
> Prihlasovaci dialogy bych mohl testovat pomoci findwindow, ale rad bych
> nejake lepsi reseni napriklad rict windowsum (pred odhlasenim uzivatele)
> aby napozadovaly prihlaseni ?
>
> Jak rozpoznat, ze windows uz jsou funkcni ?
>
> Diky za namety.
>
> Pavel
>
MSSQL 2000 - obnova po delete & commit
[*] Petr Kundrata <pksoft(zv)volny(tec)cz> - 20.10.2002 16:11:54
Teoreticky je to mozne. Je potreba udelat zalohu datab�ze a
transaction logu a potom obnovit databazi k urcitemu datu.
M�m tu bohuzel jen napovedu k MS SQL 7 a tam se pise:
How to restore to a point in time (Transact-SQL)
To restore to a point in time
Execute the RESTORE DATABASE statement using the NORECOVERY
clause.
Execute the RESTORE LOG statement to apply each transaction log
backup, specifying:
The name of the database to which the transaction log will be
applied.
The backup device from where the transaction log backup will be
restored.
The RECOVERY and STOPAT clauses. If the transaction log backup
does not contain the requested time (for example, if the time
specified is beyond the end of the time covered by the
transaction log), a warning is generated and the database remains
unrecovered.
Note The STOPAT clause cannot be used with the STANDBY or
NORECOVERY clauses.
Examples
This example restores a database to its state as of 10:00 A.M. on
July 1, 1998, and illustrates a restore operation involving
multiple logs and multiple backup devices.
-- Restore the database backup.
RESTORE DATABASE MyNwind
FROM MyNwind_1, MyNwind_2
WITH NORECOVERY
GO
RESTORE LOG MyNwind
FROM MyNwind_log1
WITH RECOVERY, STOPAT = 'Jul 1, 1998 10:00 AM'
GO
RESTORE LOG MyNwind
FROM MyNwind_log2
WITH RECOVERY, STOPAT = 'Jul 1, 1998 10:00 AM'
GO
----- Original Message -----
From: Sula Milos
To: delphi-l(zv)clexpert(tec)cz
Sent: Wednesday, November 20, 2002 1:32 PM
Subject: MSSQL 2000
Ahoj
nevite nekdo zda se daji jeste zachranit data smazana pomoci
DELETE + COMMIT z MSSQL serveru - ktery se ovsem nezalohuje !!?
no asi ne vidte ? :(.
Milos
double vs extended
[*] Kevin Macka <Kevin.Macka(zv)seznam(tec)cz> - 20.10.2002 17:12:56
to neni ten problem. trosku jsem zjednodusil funkci aby bylo jasne o
co jde:
procedure TForm1.ButtonClick(Sender: TObject);
var r : real;
e : extended;
begin
e := StrToFloat( '12,45' );
r := e;
if r <> e then
ShowMessage( 'r <> e' );
end;
jak je mozne ze se showmessage provede? a ze r <> e kdyz radek pred
tim je nastavuji stejne?
Karel
Dne 20.�listopad�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
> Mozno pisem blbost ale:
>
> ----- Original Message -----
> From: "Kevin Macka" <Kevin.Macka(zv)seznam(tec)cz>
> Sent: Wednesday, November 20, 2002 12:59 PM
> > nasledujici kod se totiz dostane do stavu kdy po prevodu StrToFloat
> > je result <> 12.45. coz je ale nejake divne protoze v editu je prave
> > hodnota 12,45.
>
> --- nebude problem tu? 12.45 <> 12,45 (ciarka a bodka)
>
> PS
>
>
______________________________________________________________________
Reklama:
FIMFARUM - Cesky celovecerni loutkovy film na motivy pohadek Jana Wericha. www.fimfarum(tec)cz V kinech od 28. listopadu. http://www.fimfarum(tec)cz
Jak ulozit TStrings do databaze (IB, FB)
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 20.10.2002 17:13:15
Zdravim resim takovy problem potrebuju do databaze (Firebird) ulozit obsah,
ktery je typu TStrings pop�. Array.
Prosim nevite nekdo jak to udelat pomoci SQL?
Diky Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
double vs extended
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 20.10.2002 17:30:36
Kevin Macka dne 20 Nov 2002 v 17:12:
> to neni ten problem. trosku jsem zjednodusil funkci aby bylo jasne o
> co jde:
>
> procedure TForm1.ButtonClick(Sender: TObject);
> var r : real;
> e : extended;
> begin
> e := StrToFloat( '12,45' );
> r := e;
> if r <> e then
> ShowMessage( 'r <> e' );
> end;
>
> jak je mozne ze se showmessage provede? a ze r <> e kdyz radek pred
> tim je nastavuji stejne?
Uz se to to probiralo mnohokrat, viz archiv. Desetinna cisla v typech real, single, double,
extended se NEUKLADAJI PRESNE. Dva ruzny typy -> dve ruzne presnosti -> rekl bych, ze je dost
pravdepodobne, ze nebudou ulozeny stejne hodnoty. Staci-li ti presnost na 4 des. mista, pouzij typ
currency.
Karel Rys
POP3 server
[*] ZPS konference <delphi(zv)zps.skoda-auto(tec)cz> - 20.10.2002 18:30:05
Zdravim!
Potrebuji kvuli archivaci zprav vytvorit meziclanek mezi mail serverem (ke
kteremu nemam pristup) a cizi aplikaci, ktera je v podstate mail clientem.
Napadlo me udelat jednoduchy mail server, ktery by zpravy stahoval (neni
problem), archivoval (neni problem) a k cizi aplikaci by se choval jako onen
mail server (je problem).
Nevite kde sehnat free (nebo minimalne omezenou shareware) komponentu na
POP3 server?
Dekuji za vsechny namety, podnety, odkazy, atd...
Jakub Flaska
WriteFileEx
[*] J�n Harman <harman(zv)atlas(tec)cz> - 20.10.2002 19:27:26
Ahoj vsichni,
pouzivam WriteFileEx a nejak mi nechce volat FileIOCompletionRoutine, kdy se
to prosim vola?
Potrebuji to pouzivat i pri ReadFileEx, ale nevim jak to inicializovat.
Myslim ze adresu funkce predavam spravne. Dik. Honza.
VirtualTreeView
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 20.10.2002 19:40:34
Ahoj,
stahnul jsem si komponenty Virtual TreeView
http://www.lischke-online.de/VirtualTreeview/VT.php
ted otazky
1. Jen se chci ujistit, jsou opravdu free ??? Zrejme jo, co jsem pochopil,
tak komponenty, ktere vyuzivaji free komponenty TThemeManager(DB), musi byt
prezentovany, take jako free...coz VirtualTreeViews komponenty splnuji...
2. mate s tim nekdo zkusenosti....ja to zatim jen prozkoumavam
hlavne by me zajimaly ty databazove stromecky, protoze hojne vyuzivam
klasicky Virtualni TListView nad databazi a pokud bych byl schopen
implementovat i virtualni stromecky, bylo by to perfektni...
hlavne stromecky typu
Tabulka
IdTabulka INT ...
IdParent INT FOREIGN KEY REFERENCES Tabulka(IdTabulka)
nikde jsem na to nenasel prikladky...jen hotove exace :-(
3. zatim vyuzivam v Delphi TXPMenu_223 a jsem s nim spokojen
http://www.shagrouni.com/english/software/xpmenu.html
a tak by me zajimalo, jak se pouziva XP TThemeManager(DB)....z helpu mi to
nejak neni jasny
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
double vs extended
[*] Delphin <delphin(zv)post(tec)cz> - 20.10.2002 19:43:33
>jak je mozne ze se showmessage provede? a ze r <> e kdyz radek pred
>tim je nastavuji stejne?
Protoze pri konverzi z extended do real dojde ke jiste ztrate informace a
pri porovnavani se na to prijde.
procedure p;
var r:real;
e:extended;
sr,se:string;
begin
e:=StrToFloat('12,45');
r:=e;
se:=floattostrf(e,ffgeneral,18,4);
sr:=floattostrf(r,ffgeneral,18,4);
ShowMessage('E : '+se+' R : '+sr);
end;
Reseni:
Porovnavat pouze promenne se stejnou presnosti.
procedure TForm1.ButtonClick(Sender: TObject);
var r : real;
e : extended;
e_real:real;
begin
e := StrToFloat( '12,45' );
r := e;
e_real := e;
if r <> e_real then
ShowMessage( 'r <> e_real' );
end;
POP3 server
[*] Roman Newman <r.newman(zv)zmail.sk> - 20.10.2002 19:44:21
> Nevite kde sehnat free (nebo minimalne omezenou shareware) komponentu na
> POP3 server?
Indy komponenty maju komponentu POP3 server. Mali by sa dat stiahnut z netu,
pripadne mozem poslat.
> Dekuji za vsechny namety, podnety, odkazy, atd...
> Jakub Flaska
Roman Newman
Firebird - Sloupec Float .. Spatny vstup i vystup.
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 20.10.2002 19:58:08
> Ukl�d�m t�eba 9,8 a ulo�� se 9,800023568 co� je docela zvl�tn�...
no, existuje neco, co se nazyva "nekonecny binarni rozvoj" a produkuje
to podobne "zahady". pro ulozeni presnych cisel pouzij numeric(n,m).
peca
ps: mozna je to necim jinym nez rozvojem, ale pro ukladani presnych
cisel proste pouzij typ numeric.
POP3 server
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 20.10.2002 19:59:46
> Nevite kde sehnat free (nebo minimalne omezenou shareware)
> komponentu na POP3 server?
ja mel za to, ze pop3 server umi neco v INDY, ktere je soucasti
delphi6+ a lze jej stahnout i zvlast a je to ossw.
peca
Jak ulozit TStrings do databaze (IB, FB)
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 20.10.2002 21:21:25
> Odes�latel: Petr K. <xdelphi(zv)seznam(tec)cz>
> Zdravim resim takovy problem potrebuju do databaze (Firebird) ulozit obsah,
> ktery je typu TStrings pop�. Array.
No ja nevim, ale TStrings.Text je typu String, takze by to nemel byt problem.
Nehlede na to, ze treba varchar(1000) se da bez problemu editovat v TDBMemo.
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. 493 792 931 (mobil 776 347735)
=========================================
Nacitanie WWW + poslanie udajov (POST) [18:11958:1
[*] Mirko jr. <mzibolen(zv)enelux.sk> - 20.10.2002 21:23:02
Dobry den prajem,
potreboval by som poradit s nasledovnym problemom:
nacitavam straku pomocou WebBrowsera (navigate), potrebujem vsak PHP
scriptu poslat udaje pomocou POST. Jedna z premennych pri navigate je aj
PostData (typ OleVariant), ale nieviem, ako ju naplnit: vytvorim si pole
Variant, premenim ho na jednu premennu a potom na OleV. Delphi mi to bere,
ale v PHP mam vsetky premenne prazdne. Co maju obsahovat jednotlive prvky v
poli? Skusal som vsetko od $Meno="Mirko" az neviem kam ...
Obracal som sa aj na delphi forum na builderi, bez odozvy... Dakujem
Mirko Zibolen
FireBird - Too many concurrent executions of the s
[*] Roland Turcan <rolo(zv)sedas.sk> - 20.10.2002 21:58:25
Hello delphi-l(zv)clexpert(tec)cz!
Mam takyto trigger:
CREATE TRIGGER KALENDAR_AD FOR KALENDAR ACTIVE
AFTER DELETE POSITION 0
AS
BEGIN
delete from kalendar where cislo=old.cislo;
END
Ide o to ze ak zmazem zaznam tak musim vymazat aj vsetky zaznamy,
ktore maju CISLO rovnake
"Too many concurrent executions of the same request" co presne v
cislach, znamena to TOO MANY. Je to zavisle od poctu riadkov, pamati
servera,...
Pri zmazani 1000 riadkov mi uz zahlasil tuto chybu, ale menej ide.
Presne cislo som nezistoval, myslim ze je to zavisle od niecoho ineho,
alebo sa mylim ?
--
Best regards, TRoland
WriteFileEx
[*] J�n Harman <harman(zv)atlas(tec)cz> - 20.10.2002 21:59:23
Pouzivate nekdo prosim funkci WriteFileEx v asynchronnim rezimu? Poskytnete
priklad?
Diky. Honza.
WriteFileEx
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.10.2002 22:44:02
> pouzivam WriteFileEx a nejak mi nechce volat FileIOCompletionRoutine, kdy
se
> to prosim vola?
> Potrebuji to pouzivat i pri ReadFileEx, ale nevim jak to inicializovat.
> Myslim ze adresu funkce predavam spravne. Dik. Honza.
volajici thread musi byt v 'alertable state' tedy napriklad v funkci
WaitForXXX
ne prilis kompletni priklad pouziti:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base
/reading_writing_and_locking_a_file.asp
V rade pripadu je mnohem jednodusi nastartovat nejaky thread a v nem
zapis/cteni provest asynchrnonne vuci hlavnimu procesu.
IO Completion routines se pouzivaji jen v krajnich pripadech kdy jde
skutecne o maximalni vykon (a maximalni neprehlednost kodu :-) ) a to hlavne
v klient/server aplikacich kde se pripojuji velka mnozstvi klientu najednou.
D. Toman
FireBird - Too many concurrent executions of the s
[*] Lauko Stefan <laukosw(zv)naex.sk> - 20.10.2002 23:17:33
Ahoj,
tak by si to nemal robit. Obrazne povedane tento triger sa vola "rekurzivne"
a zrejme pri urcitom vnoreni/priechode to rachne.
Lauko.
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
Sent: Wednesday, November 20, 2002 9:58 PM
> Mam takyto trigger:
>
> CREATE TRIGGER KALENDAR_AD FOR KALENDAR ACTIVE
> AFTER DELETE POSITION 0
> AS
> BEGIN
> delete from kalendar where cislo=old.cislo;
> END
>
> Ide o to ze ak zmazem zaznam tak musim vymazat aj vsetky zaznamy,
> ktore maju CISLO rovnake
>
> "Too many concurrent executions of the same request" co presne v
> cislach, znamena to TOO MANY. Je to zavisle od poctu riadkov, pamati
> servera,...
>
> Pri zmazani 1000 riadkov mi uz zahlasil tuto chybu, ale menej ide.
> Presne cislo som nezistoval, myslim ze je to zavisle od niecoho ineho,
> alebo sa mylim ?
>
> --
> Best regards, TRoland
>
>
>
FireBird - Too many concurrent executions of the s
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 21.10.2002 00:09:51
ahoj,
toto se mi stavalo, kdyz jsem si v trigeru smazal vetu,
ktera se mela mazat i v poslanem delete. podle toho
triggeru by to mohl byt i tvuj pripad.
prikladne:
mam v tabulce tabulka nejaky sloupec "cosi" a triger
after delete tabulka kde je toto:
if (old.cosi is not null or old.cosi j<>0) then
delete from tabulka where cosi=old.cosi;
no rekneme, ze mam 5 zaznamu, ktere maji ve sloupci
"cosi" hodnotu 1658. potom to spadne, protoze smaze
prvni zaznam, v trigeru smaze druhy, na to v trigeru treti,
atd, az v trigeru paty, pak se ukonci posledne volany triger
a podle delete z toho predposledniho se to pokusi smazat
ten paty zaznam co uz je kdesi...
mozna by to Pavel Cisar vysvetli fundovane a treba je to
jenom otazka, kolikrat FB unese vnoreni triggeru, coz
imho bude radove v desitkach vnoreni.
peca
Re[2]: FireBird - Too many concurrent executions o
[*] Roland Turcan <rolo(zv)sedas.sk> - 21.10.2002 01:07:29
<<< 21. 11. 2002 1:04 - Lauko Stefan "laukosw(zv)naex.sk" >>>
LS> Ahoj,
LS> tak by si to nemal robit. Obrazne povedane tento triger sa vola "rekurzivne"
LS> a zrejme pri urcitom vnoreni/priechode to rachne.
Ahoj, ja presne viem co sa v nom udeje, ale mam max. 99 zaznamov ktore
sa takto mazu. Ked som skusal tak bola hranica cca. 1000 zaznamov, ale
chcem vediet co by som mohol ocakavat, alebo od coho
zavisi to rachnutie.
--
Best regards, TRoland
binar na tiskarnu
[*] Petr Rek <petr.rek(zv)worldonline(tec)cz> - 21.10.2002 01:33:59
Muze mi n�kdo poradit, jak z programu poslat na
tiskarnu binarni soubor ,
aniz by jej cokoliv a jakoliv zmenilo (win, drv, ...) ?
w98, D6P
Diky Petr
( 495 486 188
mailto:petr.rek(zv)worldonline(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG
(http://www.grisoft(tec)cz).
Verze: 6.0.404 / Virov� b�ze: 228 - datum vyd�n�:
15.10.2002
FireBird - Too many concurrent executions of the s
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 21.10.2002 06:17:06
> Odes�latel: Roland Turcan <rolo(zv)sedas.sk>
> P�edm�t: FireBird - Too many concurrent executions of the same request335544663L
> CREATE TRIGGER KALENDAR_AD FOR KALENDAR ACTIVE
> AFTER DELETE POSITION 0
> AS
> BEGIN
> delete from kalendar where cislo=old.cislo;
> END
To vypada na urcity typ rekurze pri volani toho triggeru.
Mozna by to slo pres nejaky STATUS, ktery by rekurzi zabranil.
Predevsim bych se ale podival na analyzu. Co znamena to cislo? Neni to odkaz na nejakou master entitu (tabulku)? Tomu by nasvedcovalo tvoje
> Ide o to ze ak zmazem zaznam tak musim vymazat aj vsetky zaznamy,
> ktore maju CISLO rovnake
Pak by stacilo mazat polozku v teto master entite a ON DELETE CASCADE (foreign key na cislo).
Anebo nekdo na tu master entitu pri analyze zapomnel?
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. 493 792 931 (mobil 776 347735)
=========================================
Preskoceni prihlasovacich dialogu ve Win98SE
[*] Robert Suska <delphi(zv)korak.sk> - 21.10.2002 07:23:19
Ahoj!
> Ahoj,
>
> nepotrebuji je zrusit naporad, ale jen jednou pri spustenem mem programu.
>
Tak ale potom ten Tvoj program musis spustit ako shell este pred ty ako sa
spusti explorer potom spustit explorer ale tiez ako shell a ked nabehne ten
dialog tak ho musis potvrdit presne ako Tweak UI ale podla mna by si to mal
jednoduhsie keby si tam hodil Twaek UI a do registru do polozky Run by si
hodil ten svoj program. Resp. na co ten soft bude ?
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************> > Na preskocenie prihlasovacieho okna pouzi program TweakUI
> >
> > a najdes to potom v Control Paneli a je to v zalozke Logon zaskrtni
> CheckBox
> > Auto logon napis nejake meno a heslo do siete a je to.
> >
> > Robert Suska
>
> > >
> > > Po odhlaseni uzivatele bych chtel preskocit prihlasovaci dialog(y) do
> site,
> > > do windows - vse ve Win98SE,
> > > a pak rozpoznat, kdy jsou Windows uz funkcni.
> > >
>
Preskoceni prihlasovacich dialogu ve Win98SE
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 21.10.2002 07:23:10
Ahoj,
nepotrebuji je zrusit naporad, ale jen jednou pri spustenem mem programu.> Na preskocenie prihlasovacieho okna pouzi program TweakUI
>
> a najdes to potom v Control Paneli a je to v zalozke Logon zaskrtni
CheckBox
> Auto logon napis nejake meno a heslo do siete a je to.
>
> Robert Suska
> >
> > Po odhlaseni uzivatele bych chtel preskocit prihlasovaci dialog(y) do
site,
> > do windows - vse ve Win98SE,
> > a pak rozpoznat, kdy jsou Windows uz funkcni.
> >
stridani barev v gridu
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 21.10.2002 07:32:59
Ale� Kerner, <mailto:kerner(zv)metalcom(tec)cz> napsal:
>> musis zjistit, jestli pri vykreslovani jsi na sudem nebo lichem radku :
AK> -- tohle vim, ale jak zjistim ten sudy nebo lichy radek, neni problem
AK> vymyslet stridani barev, ale zjistovani radku
Opravdu nepises, v jakem Gridu, napr. ve StringGridu mas vlastnost
Row, ta muze poslouzit.
Dalsi moznosti je mit nejakou posloupnost primo v datech, kdyz uz tam
chces mit stridani barev.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Nacitanie WWW + poslanie udajov (POST) [18:11958:1
[*] Jan K��ek - 21.10.2002 07:45:52
V POST by meli byt parametry zapsane uplne stejne jako GET, tedy jako
retezec
nazev1=hodnota1&nazev2=hodnota2 ...
hodnota by mela byt v url kodovani, tedy mezery nahrazeny + a vsechny
nealfanumericke znaky prevedeny na tvar %XX - kde XX je hexa hodnota
znaku.
Takovy retezec preved nasledujici funkci na Variant a predej jako
PostData
function StringToVarArray(const S: string): Variant;
begin
Result := Unassigned;
if S <> '' then
begin
Result := VarArrayCreate([0, Length(S) - 1], varByte);
Move(Pointer(S)^, VarArrayLock(Result)^, Length(S));
VarArrayUnlock(Result);
end;
end;
Ta funkce je z IEUtils.pas, ktere najdes na
http://www.euromind.com/iedelphi jako spoustu dalsich dulezitych
informaci o WebBrowseru.
Honza +
> Dobry den prajem,
>
> potreboval by som poradit s nasledovnym problemom:
>
> nacitavam straku pomocou WebBrowsera (navigate), potrebujem vsak PHP
> scriptu poslat udaje pomocou POST. Jedna z premennych pri
> navigate je aj
> PostData (typ OleVariant), ale nieviem, ako ju naplnit:
> vytvorim si pole
> Variant, premenim ho na jednu premennu a potom na OleV.
> Delphi mi to bere,
> ale v PHP mam vsetky premenne prazdne. Co maju obsahovat
> jednotlive prvky v
> poli? Skusal som vsetko od $Meno="Mirko" az neviem kam ...
> Obracal som sa aj na delphi forum na builderi, bez odozvy...
>
>
> Dakujem
>
> Mirko Zibolen
Preskoceni prihlasovacich dialogu ve Win98SE
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 21.10.2002 07:53:45
Jde mi o to, ze na vice pocitacich s Win98SE se projevuje chyba pri vypnuti.
Osvedcil se postup: odhlasit uzivatele (stalo se, ze se windows vypnuly) a
pak vypnout Windows.
Tak si delam programek, ktery to udela misto me.
Spustim program pro vypnuti, ten odhlasi uzivatele (sam to prezije),
a ted ceka na nabehnuti Windows, aby je mohl ukoncit. :-)))
Zde se mohou objevit dialogy pro prihlaseni (do site Novell, Windows) a ty
neni potreba
vyplnovat, staci je zavrit. Mohu je zjistit pres FindWindow, ale ptal jsem
se na lepsi reseni.
Pri dalsim spusteni PC by melo probehnout prihlaseni zase normalne.
Pavel
> > >
> > > > Po odhlaseni uzivatele bych chtel preskocit prihlasovaci dialog(y)
do
> > site,
> > > > do windows - vse ve Win98SE,
> > > > a pak rozpoznat, kdy jsou Windows uz funkcni.
> > > >
> >
>
>
WriteFileEx
[*] J�n Harman <harman(zv)atlas(tec)cz> - 21.10.2002 08:04:06
Ano volam WaitForSingleObject hned po vykonani ReadFile, potom je odezva v
CompletionRoutine, ale prijme to nejprve 1 potom zase jeden a potom zbytek.
Takze CompletionRoutine je volana 3x. Myslis abych ji tam nedaval vubec?
Nebo pouzil synchronni cteni? Diky. Honza.
> > pouzivam WriteFileEx a nejak mi nechce volat FileIOCompletionRoutine,
kdy
> se
> > to prosim vola?
> > Potrebuji to pouzivat i pri ReadFileEx, ale nevim jak to inicializovat.
> > Myslim ze adresu funkce predavam spravne. Dik. Honza.
>
> volajici thread musi byt v 'alertable state' tedy napriklad v funkci
> WaitForXXX
>
> ne prilis kompletni priklad pouziti:
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base
> /reading_writing_and_locking_a_file.asp
>
>
> V rade pripadu je mnohem jednodusi nastartovat nejaky thread a v nem
> zapis/cteni provest asynchrnonne vuci hlavnimu procesu.
>
> IO Completion routines se pouzivaji jen v krajnich pripadech kdy jde
> skutecne o maximalni vykon (a maximalni neprehlednost kodu :-) ) a to
hlavne
> v klient/server aplikacich kde se pripojuji velka mnozstvi klientu
najednou.
>
> D. Toman
>
>
>
binar na tiskarnu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.10.2002 08:06:05
Zkus nasledujici unit pro RAW tisk:
unit RawPrint;
{ Invisible Printer Component that allows to send stuff directly to the spooler,
bypassing the printer driver. Ideal for bar code printers and other stuff.
Modelled by bhoc(zv)surfeu.ch
This code is GPL.
HOWTO:
MyPrinter := TRawPrint.Create(nil);
MyPrinter.DeviceName := 'HP LaserJet Series II';
MyPrinter.JobName := 'MyJob';
if MyPrinter.OpenDevice then
begin
MyPrinter.WriteString('This is page 1');
MyPrinter.NewPage;
MyPrinter.WriteString('This is page 2');
MyPrinter.CloseDevice;
end;
MyPrinter.Destroy;
}
// {$ASSERTIONS OFF}
interface
uses
Windows, WinSpool, Printers, Dialogs, Classes;
type
TError = procedure(Sender: TObject; var ErrorMessage: String) of object;
TRawPrint = class(TComponent)
private
{ Private declarations }
MyDeviceName: String;
MyJobName: String;
MyError: TError;
hPrinter: Cardinal;
IsOpenDevice: Boolean;
IsOpenPage: Boolean;
protected
{ Protected declarations }
function GetLastErrMsg: String;
procedure RaiseError(ErrMsg: String);
public
{ Public declarations }
function OpenDevice: Boolean;
function CloseDevice: Boolean;
function WriteString(Text: String): Boolean;
function NewPage: Boolean;
procedure SelectPrinter;
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
property DeviceName: String read MyDeviceName write MyDeviceName;
property JobName: String read MyJobName write MyJobName;
property OnError: TError read MyError write MyError;
end;
procedure Register;
implementation
constructor TRawPrint.Create(AOwner : TComponent);
begin
inherited;
MyDeviceName := Printer.Printers.Strings[Printer.PrinterIndex];
MyJobName := 'RawPrint';
IsOpenDevice := False;
IsOpenPage := False;
end;
destructor TRawPrint.Destroy;
begin
if IsOpenDevice then CloseDevice;
inherited;
end;
procedure Register;
begin
RegisterComponents('bhoc(zv)surfeu.ch', [TRawPrint]);
end;
function TRawPrint.OpenDevice: Boolean;
type _DocInfo = record
pDocName: PAnsiChar;
pOutputFile: PAnsiChar;
pDatatype: PAnsiChar;
end;
var DocInfo: _DocInfo;
begin
Result := True;
if not OpenPrinter(PChar(DeviceName), hPrinter, nil) then begin
RaiseError(GetLastErrMsg);
Result := False;
end else begin
DocInfo.pDocName := pChar(JobName);
DocInfo.pOutputFile := pChar(#0);
DocInfo.pDatatype := pChar(#0);
if StartDocPrinter(hPrinter, 1, (zv)DocInfo) = 0 then begin
RaiseError(GetLastErrMsg);
ClosePrinter(hPrinter);
Result := False;
end else begin
IsOpenDevice := True;
NewPage;
end;
end;
end;
function TRawPrint.NewPage: Boolean;
begin
Result := True;
if IsOpenDevice then begin
if IsOpenPage then begin
if not EndPagePrinter(hPrinter) then begin
RaiseError(GetLastErrMsg);
end;
end;
if not StartPagePrinter(hPrinter) then begin
RaiseError(GetLastErrMsg);
Result := False;
end else begin
IsOpenPage := True;
end;
end;
end;
function TRawPrint.WriteString(Text: String): Boolean;
var WrittenChars: Cardinal;
begin
Result := False;
if IsOpenDevice then begin
Result := True;
if not WritePrinter(hPrinter, PChar(Text), Length(Text), WrittenChars) then begin
RaiseError(GetLastErrMsg);
Result := False;
end;
end;
end;
function TRawPrint.CloseDevice: Boolean;
begin
Result := True;
if IsOpenDevice then begin
if IsOpenPage then begin;
if not EndPagePrinter(hPrinter) then begin
RaiseError(GetLastErrMsg);
end;
end;
if not EndDocPrinter(hPrinter) then begin
RaiseError(GetLastErrMsg);
Result := False;
end else begin
if not ClosePrinter(hPrinter) then begin
RaiseError(GetLastErrMsg);
Result := False;
end else begin
Result := True; IsOpenDevice := False;
end;
end;
end;
end;
procedure TRawPrint.RaiseError(ErrMsg: String);
begin
if Assigned(OnError) then MyError(Self,ErrMsg);
end;
function TRawPrint.GetLastErrMsg: String;
var Buf: Array[0..499] of char;
BufLen: Integer;
begin
BufLen := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, 0, Buf, SizeOf(Buf), nil);
Result := Copy(Buf, 1, BufLen);
end;
Procedure TRawPrint.SelectPrinter;
var PrtDlg: TPrintDialog;
begin
PrtDlg := TPrintDialog.Create(Self);
prtdlg.Options := [poPrintToFile];
if PrtDlg.Execute then begin
DeviceName := Printer.Printers.Strings[Printer.PrinterIndex];
end;
PrtDlg.Free;
end;
end.
Jaro B.
-----Original Message-----
From: Petr Rek [mailto:petr.rek(zv)worldonline(tec)cz]
Sent: Thursday, November 21, 2002 1:34 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: binar na tiskarnu
Muze mi n�kdo poradit, jak z programu poslat na
tiskarnu binarni soubor ,
aniz by jej cokoliv a jakoliv zmenilo (win, drv, ...) ?
w98, D6P
Diky Petr
( 495 486 188
mailto:petr.rek(zv)worldonline(tec)cz
stridani barev v gridu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.10.2002 08:16:23
U3RhY2kgaURCR3JpZCBwcmV0eXBvdmF0IG5hIFRTdHJpbmdHcmlkIGEgcGFrIGJ1ZG91IGsgZGlz
cG96aWNpIFJvdyBhDQpDb2wgdWRhamUNClRTdHJpbmdHcmlkKERCR3JpZCkuUm93DQoNCi0tIA0K
aW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCj4gICBBbGW5IEtlcm5l
ciwgPG1haWx0bzprZXJuZXJAbWV0YWxjb20uY3o+IG5hcHNhbDoNCj4+IC0tIHRvaGxlIHZpbSwg
YWxlIGphayB6amlzdGltIHRlbiBzdWR5IG5lYm8gbGljaHkgcmFkZWssIG5lbmkgcHJvYmxlbQ0K
Pj4gdnlteXNsZXQgc3RyaWRhbmkgYmFyZXYsIGFsZSB6amlzdG92YW5pIHJhZGt1
Adresa po��ta�e
[*] Petr Langer <langer(zv)xdom(tec)cz> - 21.10.2002 08:41:58
Pouzij metodu XML.LoadXML primo na nacteni retezce do parseru.
HTH
pl
----- Original Message -----
From: "Radek Bernatek" <Bernatek.Radek(zv)seznam(tec)cz>
...
internetu. Muze mi nekdo poradit jak v metod� XML.load zad�m cestu k
souboru, jde mi o adresu pocitace, na kterem je toto volano(kde bezi
browser), zatim jsem to resil pres textove soubory, tam to neni
problem, ale mam problem nacist XML soubor do MSXML parseru (dari se
mi to jen na mem pocitaci nebo na siti, kde znam cestu).binar na tiskarnu
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 21.10.2002 08:44:46
ahoj,
ja pouzivam:
C:> copy neco.prn lpt1:
predpokladam, ze obdobne to pujde i z delphi...
jo dela se to pomoci CreateFile, ale zrovna
spadnul server, kde jsem ti to chtel opsat :-/
mrkni do helpu.
peca
komponanenty ADOX
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.10.2002 08:47:19
Zdravim
pred casem se tu nekdo ptal na vytvoreni mdb databaze v delphi a jako
link uvedl stranku z http://delphi.about.com tam uvadeji ADOX
komponentu. Nevite kde se to da stahnout, kolik to stoji a jake s tim
ma kdo skusenosti ?
--
Best regards,
Milan Vymazal
Komponenta do streamu a zpet
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 21.10.2002 09:01:25
hledam jak si na chvili odlozit obsah objektu (odvozene z TComponent) a pak si ho zase nacist.
Neco jako Stream.WriteComponent(Comp1)....Comp1:=Stream.ReadComponent(nil);, ale bez inicializace nove instance.
nebo neco jako Assign
Comp2.Create(nil); Comp2.Assign(Comp1); ......... Comp1.Assign(Comp2); Comp2.Free;
ale abych nemuse prepisovat Assign (nebo AssignTo) pro kazdy novy objekt.
Diky za kazdy tip.
S pozdravem Vaclav Riha
stridani barev v gridu
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 21.10.2002 09:06:29
> .....ale jak zjistim ten sudy nebo lichy radek.....
pokud se jedna o TDBGrid, tak by melo jit pouzit
x:=DBGrid1.DataSource.DataSet.RecNo;
v x by mohlo byt :o) cislo vety v tabulce, pokud ti
jde o to, aby liche vety v DBGridu meli jinou barvu,
nez sude.
peca
Table is busy
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 21.10.2002 09:08:06
Servus vsem,
mam jeden takovyto problem:
Pouzivam TTable s tim, ze pri onCreate formulare mu zadam nazev:
procedure TData.DataModuleCreate(Sender: TObject);
var
DataDir: string;
begin
DataDir := ExtractFileDir(Application.ExeName) + '\Data\';
Table9.TableName := DataDir + 'TP.dbf';
end;
Dale mam TListView, ze ktereho taham data do te tabulky s tim, ze pokazde
tabulku zakladam jako novou:
Table9.CreateTable;
Table9.Open;
|
Plneni tabulky
|
Table9.Close;
Problem je v tom, ze to zacalo hazet "Table is busy c:\program
files\...\data\TP.dbf"
Nevite proc to hlasi?
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
MySQL 3.23.53 - triedenie
[*] Robert TOTH <toth(zv)lc.vszp.sk> - 21.10.2002 09:14:08
stiahol som data z tabuliek (paradox) do MySQL(def.char.set=czech) cez ODBC
pomocou Datapump-u(d5 enterprise).
moj problem je v tom, ze ked sa pozriem na data, vsetko je zobraze s
korektnymi diakritickymi znakmi, ked vsak vytvorim index alebo skusim udaje
triedit, triedenie je potom zle. urcite zaznamy su triedene podla abecedy
ale urcite su "akoby" nahodne zaradene.
Napr. �ilina je pred Bystricou, ale �adca je uz za Bystricou, tak ako treba.
Vyskusal som vytvorit na cisto jednu tabulku a vlo�it tam diakriticke znaky
a potom ich zotriedit. Efekt je rovnaky. Mam dojem, ze tato verzia nefunguje
korektne pre def.char.set=czech.
Ake su vase skusenosti, riesil uz niekto podobny problem?
Viete mi poradit bezproblemovu verziu na def.char.set=czech(slovak)? Mozno
naivne som sa domnieval, ze posledna funkcna verzia je najlepsia.
s pozdravom
Ing. Robert TOTH
toth(zv)lc.vszp.sk
ActiveX a windows 2000 server
[*] Peter <peter(zv)baris.sk> - 21.10.2002 09:28:29
Dobry den,
vytvoril som activex dll ku z ktorej crystal report cita funkcie.
Problem je ze windows 2000 server po zaregistrovani neumozni crystalu citat
funkcie danej dll ky.
1. Vie mi niekto poradit co treba nastavit aby som tie funkcie videl
2. Da sa to nastavit aj softverovo tym ze by som pri registracii prepisal
nejake registre?
predom vdaka Peter
ActiveX a windows 2000 server
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.10.2002 09:33:40
Cau Peter,
Thursday, November 21, 2002, 9:28:29 AM, you wrote:
> Dobry den,
> vytvoril som activex dll ku z ktorej crystal report cita funkcie.
> Problem je ze windows 2000 server po zaregistrovani neumozni crystalu citat
> funkcie danej dll ky.
> 1. Vie mi niekto poradit co treba nastavit aby som tie funkcie videl
> 2. Da sa to nastavit aj softverovo tym ze by som pri registracii prepisal
> nejake registre?
zalezi na tom co to hlasi nebo nehlasi. Vetsinou se mi stalo ze nebyly
nastaveny dostatecna prava pro Everyone, IUSR_xxx, IWAM_xxx. A skousel
jsi ty objekty vytvorit v ASP ?. Ta chybova hlaska hodne napovi.
Jo a jeste jedna vec taky tu mame CR. Jaky mas typ instalace ?
> predom vdaka Peter
S pozdravem
Milan Vymazal
MSSQL 2000 - obnova po delete & commit
[*] bardon <bardon(zv)akord-soft(tec)cz> - 21.10.2002 09:33:04
Pokud ovsem neni nastaveno TRUNCATE LOG ON CHECKPOINT
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Kundrata
Teoreticky je to mozne. Je potreba udelat zalohu datab�ze a
transaction logu a potom obnovit databazi k urcitemu datu.
----- Original Message -----
From: Sula Milos
To: delphi-l(zv)clexpert(tec)cz
Ahoj
nevite nekdo zda se daji jeste zachranit data smazana pomoci
DELETE + COMMIT z MSSQL serveru - ktery se ovsem nezalohuje !!?
no asi ne vidte ? :(.WriteFileEx
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.10.2002 09:41:58
> Ano volam WaitForSingleObject hned po vykonani ReadFile, potom je
odezva v
> CompletionRoutine, ale prijme to nejprve 1 potom zase jeden a potom
zbytek.
> Takze CompletionRoutine je volana 3x. Myslis abych ji tam nedaval
vubec?
> Nebo pouzil synchronni cteni? Diky. Honza.
>
pokud to napises v separatnim threadu muzes pouzit obycejne synchronni
funkce.
D. Toman
ActiveX a windows 2000 server
[*] Peter <peter(zv)baris.sk> - 21.10.2002 09:42:14
Vtip je vtom ze to nenapise nic len ked chces natiahnut funkcie z nej tak
ich nie je vidiet. Dll ka je v registroch ulozena ako ma byt. Crystal je
tusim 8.
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
To: "Peter" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 21, 2002 9:33 AM
Subject: Re: ActiveX a windows 2000 server
> Cau Peter,
>
> Thursday, November 21, 2002, 9:28:29 AM, you wrote:
>
> > Dobry den,
>
> > vytvoril som activex dll ku z ktorej crystal report cita funkcie.
> > Problem je ze windows 2000 server po zaregistrovani neumozni crystalu
citat
> > funkcie danej dll ky.
>
> > 1. Vie mi niekto poradit co treba nastavit aby som tie funkcie videl
> > 2. Da sa to nastavit aj softverovo tym ze by som pri registracii
prepisal
> > nejake registre?
>
> zalezi na tom co to hlasi nebo nehlasi. Vetsinou se mi stalo ze nebyly
> nastaveny dostatecna prava pro Everyone, IUSR_xxx, IWAM_xxx. A skousel
> jsi ty objekty vytvorit v ASP ?. Ta chybova hlaska hodne napovi.
>
> Jo a jeste jedna vec taky tu mame CR. Jaky mas typ instalace ?
>
> > predom vdaka
Peter
>
>
>
>
> S pozdravem
>
> Milan Vymazal
Re[2]: ActiveX a windows 2000 server
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.10.2002 09:45:30
Cau Peter,
Thursday, November 21, 2002, 9:42:14 AM, you wrote:
> Vtip je vtom ze to nenapise nic len ked chces natiahnut funkcie z nej tak
aha.
> ich nie je vidiet. Dll ka je v registroch ulozena ako ma byt. Crystal je
to tomuze byt. ale jsou prava k te DLL spravna ma tam full access
everyone ?, nebo IUSR_, IWAM_ ?
> tusim 8.
8 ? s patchem ? a co to ma vsechno nainstalovany ?
> ----- Original Message -----
> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> To: "Peter" <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, November 21, 2002 9:33 AM
> Subject: Re: ActiveX a windows 2000 server
>> Cau Peter,
>>
>> Thursday, November 21, 2002, 9:28:29 AM, you wrote:
>>
>> > Dobry den,
>>
>> > vytvoril som activex dll ku z ktorej crystal report cita funkcie.
>> > Problem je ze windows 2000 server po zaregistrovani neumozni crystalu
> citat
>> > funkcie danej dll ky.
>>
>> > 1. Vie mi niekto poradit co treba nastavit aby som tie funkcie videl
S pozdravem
Milan Vymazal
Import dat z CCS
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 21.10.2002 09:53:10
Ahoj,
zabyvate se nekdo (resp. pouzivate ve svych softech) import dat z CCS. Mel
jsem dojem, ze se jednu dobu u nich na WEBu dal stahnout format vyuctovani
zasilanych v el. formatu, ted se mi to nejako nedari najit. Nemate to nekdo.
Pokud ano, pozadal bych o zaslani na soukr. mail.
Diky
O :-))
VirtualTreeView
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 09:55:53
Ahoj,
> stahnul jsem si komponenty Virtual TreeView
>
> http://www.lischke-online.de/VirtualTreeview/VT.php
>
> ted otazky
>
> 1. Jen se chci ujistit, jsou opravdu free ??? Zrejme jo, co
> jsem pochopil, tak komponenty, ktere vyuzivaji free
> komponenty TThemeManager(DB), musi byt prezentovany, take
> jako free...coz VirtualTreeViews komponenty splnuji...
XP ThemeManager je freeware (pouzitelny bez obmedzeni aj v komercnych
aplikaciach) s nasledovnymi podmienkami:
1. Nesmie byt ziadnym sposobom predavany za peniaze, ani ako sucast nejakej
kolekcie komponentov.
2. Copyright v zdrojakoch nesmie byt odstraneny alebo zmeneny.
3. Pri modifikaciach musi zostat jasne, kto je povodny autor (Mike Lischke).
Kredit v "About" boxe aplikacie nemusi byt, ale povazuje sa za plus.
Virtual TreeView je opensource s dvoma licenciami, MPL a LGPL. Pritom si
lubovolne mozes vybrat tu, ktora Ti viac vyhovuje.
MPL 1.1: http://www.mozilla.org/MPL/
LGPL: http://www.gnu.org/copyleft/
> 2. mate s tim nekdo zkusenosti....ja to zatim jen prozkoumavam
> hlavne by me zajimaly ty databazove stromecky, protoze hojne vyuzivam
> klasicky Virtualni TListView nad databazi a pokud bych byl schopen
> implementovat i virtualni stromecky, bylo by to perfektni...
>
> hlavne stromecky typu
> Tabulka
>
> IdTabulka INT ...
> IdParent INT FOREIGN KEY REFERENCES Tabulka(IdTabulka)
>
> nikde jsem na to nenasel prikladky...jen hotove exace :-(
Mike ma support newsgroup na
news://forums.talkto.net/delphi-gems.support.virtualtreeview
V downloade "Virtual TreeView contributions" najdes potomka TVirtualDBTree.
Myslim ale, ze nie je dotiahnuty do konca.
Jednoduchsie bude pouzit "klasicky" TVirtualStringTree. Cely koncept virtual
treeview je zalozeny na tom, ze treeview nevie a nestara sa o to, ake data
ma prezentovat (okrem velkosti), vsetky data poskytuje aplikacia podla jeho
potreby (cez eventy). Takze to, odkial tie data su je v podstate jedno.
(Da sa pouzit aj "nevirtualne", cize don mozes vsetky data "natlacit"
naraz.)
Pozri si dema, precitaj si help.
> 3. zatim vyuzivam v Delphi TXPMenu_223 a jsem s nim spokojen
>
> http://www.shagrouni.com/english/software/xpmenu.html
>
> a tak by me zajimalo, jak se pouziva XP
> TThemeManager(DB)....z helpu mi to nejak neni jasny
Ako pise Mike, je to "drop and forget" komponent. Ak to chapem spravne,
staci ho dat do projektu na niektory formular alebo data module a ostatne je
automaticke. Nepouzivam Windows XP, takze to neviem posudit.
HTH
TOndrej
FORMULAR & GRID a obracene
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 21.10.2002 09:57:06
Ahoj,
diky za radu, ale na tom formulari jsou take tlacitka atd. a byl by problem asi vse prepocitavat...
V.
-----Original Message-----
From: Ludo Fulop [mailto:kexo(zv)ynet.sk]
Sent: Wednesday, November 20, 2002 3:07 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: FORMULAR & GRID a obracene
???
a ako chces menit velkost dbgridu? pravdepodobne programovo, nie? nemozes
potom programovo nastvovat aj velkost formulara?
Ludo Fulop
----- Original Message -----
Jde mi o nasledujici. Na dormulari FORM1 ma DBGRID1. Pokud onen DBGRID1
zakotvim (anchors) na formu FORM1, bude se mi jeho velikost menit podle
velikosti formulare FORM1. Fajn, ale ja bych to potreboval obracene.
Potreboval bych, aby se mi velikost formulare FORM1 menila dle velikosti
dbgridu DBGRID1.
prehratie dat
[*] Dusan Nagy <Nagy(zv)inomacomp.sk> - 21.10.2002 09:59:02
Dobr� den,
Mam databazu ktora obsahuje field blob v ktorom je ulozeny wav subor
potrebujem ho prehrat a neviem ako na to.
--
S pozdravem,
Dusan
Nagy(zv)inomacomp.sk
Re[2]: ActiveX a windows 2000 server
[*] Peter <peter(zv)baris.sk> - 21.10.2002 10:02:36
Prava su everyone a plny pristup
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
To: "Peter" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 21, 2002 9:45 AM
Subject: Re[2]: ActiveX a windows 2000 server
> Cau Peter,
>
> Thursday, November 21, 2002, 9:42:14 AM, you wrote:
>
> > Vtip je vtom ze to nenapise nic len ked chces natiahnut funkcie z nej
tak
>
> aha.
>
> > ich nie je vidiet. Dll ka je v registroch ulozena ako ma byt. Crystal je
>
> to tomuze byt. ale jsou prava k te DLL spravna ma tam full access
> everyone ?, nebo IUSR_, IWAM_ ?
>
> > tusim 8.
>
> 8 ? s patchem ? a co to ma vsechno nainstalovany ?
>
>
> > ----- Original Message -----
> > From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> > To: "Peter" <delphi-l(zv)clexpert(tec)cz>
> > Sent: Thursday, November 21, 2002 9:33 AM
> > Subject: Re: ActiveX a windows 2000 server
>
>
> >> Cau Peter,
> >>
> >> Thursday, November 21, 2002, 9:28:29 AM, you wrote:
> >>
> >> > Dobry den,
> >>
> >> > vytvoril som activex dll ku z ktorej crystal report cita funkcie.
> >> > Problem je ze windows 2000 server po zaregistrovani neumozni crystalu
> > citat
> >> > funkcie danej dll ky.
> >>
> >> > 1. Vie mi niekto poradit co treba nastavit aby som tie funkcie videl
>
>
> S pozdravem
>
> Milan Vymazal
FireBird - Too many concurrent executions of the s
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 21.10.2002 10:04:33
ahoj,
> CREATE TRIGGER KALENDAR_AD FOR KALENDAR ACTIVE
> AFTER DELETE POSITION 0
> AS
> BEGIN
> delete from kalendar where cislo=old.cislo;
> END
zkus upravit takto:
delete from kalendar
where
cislo=old.cislo and
primarniklic<>old.primarni klic
jako primarni klic pouzij nejaky unique sloupec tabulky,
nebo rdb$key (tusim, presne si nevzpomenu, ale mozna
tusis, kde hledat ;).
peca
Re[2]: FireBird - Too many concurrent executions o
[*] Roland Turcan <rolo(zv)sedas.sk> - 21.10.2002 10:20:33
<<< 21. 11. 2002 10:18 - Jan Sebel�k "honza(zv)haes(tec)cz" >>>
>> Odes�latel: Roland Turcan <rolo(zv)sedas.sk>
>> P�edm�t: FireBird - Too many concurrent executions of the same request335544663L
>> CREATE TRIGGER KALENDAR_AD FOR KALENDAR ACTIVE
>> AFTER DELETE POSITION 0
>> AS
>> BEGIN
>> delete from kalendar where cislo=old.cislo;
>> END
JS> Anebo nekdo na tu master entitu pri analyze zapomnel?
Ja som presne takto myslel toto riesenie, ale nevedel som o nejakom
obmedzeni rekurzii. Vyspal som sa a napadlo ma to ako to upravim.
Vysvetlit to v kratkosti neviem, lebo to uzko suvisi s mojimi
internymi kniznicami, ktore vysvetlit nie je take strucne.
Aj napriek tomu na zaujima ta hlbka rekurzii, cim je dana. Ale to bude
asi odkaz Pavlovi Cisarovi alebo este skusim IB-Support.
--
Best regards, TRoland
MSSQL 2000 - obnova po delete & commit
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 21.10.2002 10:31:51
Zkousel jsem to nasledovne:
(zalohaoku je full backup databaze)
tedy predpokladam, ze se pri full backup zazalohuje i transakcni log ??? Nebo se pletu ?
Bohuze toto se mi provedlo vse OK ale data tam jsou stale stejna (tj. nevratilo mi to zadne zmeny k zazanemu datu)
RESTORE DATABASE oku
FROM DISK=N'D:\Microsoft SQL Server\MSSQL\BACKUP\zalohaoku'
WITH NORECOVERY
GO
RESTORE LOG oku
FROM DISK=N'D:\Microsoft SQL Server\MSSQL\BACKUP\zalohaoku'
WITH RECOVERY, STOPAT = '14/11/2002 00:00:00'
GO
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Kundrata
Teoreticky je to mozne. Je potreba udelat zalohu datab�ze a transaction logu a potom obnovit databazi k urcitemu datu.
stridani barev v gridu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.10.2002 10:31:11
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Staci iDBGrid pretypovat na TStringGrid a pak budou k dispozici Row a
> Col udaje
> TStringGrid(DBGrid).Row
To je zajimava myslenka.
U me v D5 je to takhle:
TStringGrid ma predky --> TDrawGrid --> TCustomGrid
TDBGrid ma predky --> TCustomGrid
Property Row je deklarovana na TCustomGridu v sekci protected,
na TDrawGridu je zverejnena v public bez uprav. Takze kod
TStringGrid(TDBGrid).Row bude fungovat, ale pouze tehdy pokud
se v nejake pristi verzi nezmeni deklarace property Row v tride
TDrawGrid nebo TStringGrid.
Spravnejsi by podle me bylo zadeklarovat vlastniho potomka
TCustomGridu pouze pro zverejneni Row:
type
TFakeCustomGrid = class(TCustomGrid)
public
property Row;
end;
a pak pouzit TFakeCustomGrid(TDBGrid).Row
Martin Schayna
Nelze otevrit GDB
[*] J�n Harman <harman(zv)atlas(tec)cz> - 21.10.2002 10:41:31
Ahoj vsichni, jsem tu opet se samym problemem otevreni GDB, ale mam presne
informace co to dela:
Instalace = OK.
Start IBConsole - (po dotazu Spusti server) = OK
Register local server (SYSDBA/masterkey) = OK
Zmena hesla uzivatele SYSDBA, masterkey >> admin
Register database - SADY2002.GDB = OK
Open database - SADY2002.GDB = ERROR
Error connecting to the requested database.
Detail message:
No permission for read-write access to database
C:\....cesta...\SADY2002.GDB
vytvoreni nove database = OK.
Otevreni nove vytvorene database = OK
Mohu tam vytvorit svoji novou databazi SADY2002.GDB a data pretahnout pomoci
METADAT, ale zda se mi to priliz krkolomne.
Zkousel jsem SADY2002.GDB prenest i na jine pocitace a vsude to funguje
(pc486/W95, W98, W2k) Nefunguje to na novem PC s W98.
Diky moc za rady jak problem vyresit, nebo obejit.
Dik. Honza.
komponanenty ADOX
[*] Petr Langer <langer(zv)xdom(tec)cz> - 21.10.2002 10:47:38
tak blizko jsi byl ;-)
http://delphi.about.com/library/weekly/aa072401a.htm
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 21, 2002 8:47 AM
Subject: komponanenty ADOX
> Zdravim
>
> pred casem se tu nekdo ptal na vytvoreni mdb databaze v delphi a jako
> link uvedl stranku z http://delphi.about.com tam uvadeji ADOX
> komponentu. Nevite kde se to da stahnout, kolik to stoji a jake s tim
> ma kdo skusenosti ?
>
>
> --
> Best regards,
>
> Milan Vymazal
>
>
Re[2]: Dozadovanie sa na pripojenie k internetu pr
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 21.10.2002 10:50:15
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>.....
> RT>> siete internet, ze sa pripojit vzdy k vychodzeniu ISP. Lenze to
> RT>> sposobovalo ziadost o pripojenie do internetu pri pripojeni sa k FB
> RT>> serveru. Tak som im poradil aby si v moznostiach siete internet
......
> No ano ale toto nie je to co navrhovali Billovi chlapci. Musi byt aj
> nejake ine riesenie.
Ahoj.
To dela dotaz na DNS.
Zkus si do hosts souboru napsat IP adresu serveru a jmeno.
Nebo v connect stringu IB pouzij primo IP adresu serveru.
Ludek
Documentacia do projektu?!
[*] Peter Sulek <psulek(zv)centrum.sk> - 21.10.2002 10:55:44
Mam taky dotaz, aky dokumentacny program by ste mi doporucily aby som
zapuzdril do svojho projektu aby sa dalo zo zdrojovych kodov podla urcitych
komentarov vyrobit neaky uceleny HELP subor.
Skusal som DOC-O-MATIC, ale ten je shareware, a ma dost nevyhod pre mna
:-(((
Dufam ze som to napisal porozumitelne,
S pozdravom Peter Sulek
psulek(zv)centrum.sk
stridani barev v gridu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 10:55:17
> Spravnejsi by podle me bylo zadeklarovat vlastniho potomka
> TCustomGridu pouze pro zverejneni Row:
>
> type
> TFakeCustomGrid = class(TCustomGrid)
> public
> property Row;
> end;
>
> a pak pouzit TFakeCustomGrid(TDBGrid).Row
Nie je potrebne nic zverejnovat, staci
type
TFakeCustomGrid = class(TCustomGrid);
a mas pristup k protected sekcii TCustomGrid.
TOndrej
Nelze otevrit GDB
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.10.2002 11:05:41
Nemas tu databazi jen ke cteni? A jak se hlasis k te databazi? Nemuzes
udelat backup-restore?
Roman
==============================
http://kouzelne.misto(tec)cz
> Ahoj vsichni, jsem tu opet se samym problemem otevreni GDB, ale mam presne
> informace co to dela:
> Instalace = OK.
> Start IBConsole - (po dotazu Spusti server) = OK
> Register local server (SYSDBA/masterkey) = OK
> Zmena hesla uzivatele SYSDBA, masterkey >> admin
> Register database - SADY2002.GDB = OK
> Open database - SADY2002.GDB = ERROR
> Error connecting to the requested database.
> Detail message:
> No permission for read-write access to database
> C:\....cesta...\SADY2002.GDB
> vytvoreni nove database = OK.
> Otevreni nove vytvorene database = OK
>
> Mohu tam vytvorit svoji novou databazi SADY2002.GDB a data pretahnout
pomoci
> METADAT, ale zda se mi to priliz krkolomne.
> Zkousel jsem SADY2002.GDB prenest i na jine pocitace a vsude to funguje
> (pc486/W95, W98, W2k) Nefunguje to na novem PC s W98.
Nelze otevrit GDB
[*] <delphin(zv)centrum.sk> - 21.10.2002 11:11:33
..skus prepisat subor ISC4.gdb z pocitaca kde mozes otvorit tvoje
GDB na pocitac, kde ho nemozes otvorit..
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
FB/IB a BLOB
[*] Martin Falta <martin(zv)aprog(tec)cz> - 21.10.2002 11:23:39
Ahoj,
poradte, jak v FB/IB na BLOB. O co jde? Chci do tabulky ulozit obsah
nejakeho souboru (text i binarni) a inserty chci resit ulozenou
procedurou, ktere chci predat parametrem jmeno souboru a ta procedure
by si do BLOBu nacetla jeho obsah.
Bohuzel nejsem z dokumentace moc moudrej, tak vas chci
pozadat o kousek kodu, ktery by me nakopnul spravnym smerem.
Predem dekuji.
Martin
D6 Pro SP2, WinXP Home, FB 1.0, IB 6.01
Nelze otevrit GDB
[*] J�n Harman <harman(zv)atlas(tec)cz> - 21.10.2002 11:25:04
Neni jenom ke cteni, normalne vsude jinde to spravne funguje, jen na jednom
a to zcela novem PC to ne a ne chodit. Zajimave je ze jinak tam lze delat s
novou tam vytvorenou db.
Jak se k ni hlasim? Proste zaregistruji v IBConsole a dam otevrit, a ono to
napise ze nemam pristup.> Nemas tu databazi jen ke cteni? A jak se hlasis k te databazi? Nemuzes
> udelat backup-restore?
>
> Roman
> ==============================
> http://kouzelne.misto(tec)cz
>
> > Ahoj vsichni, jsem tu opet se samym problemem otevreni GDB, ale mam
presne
> > informace co to dela:
> > Instalace = OK.
> > Start IBConsole - (po dotazu Spusti server) = OK
> > Register local server (SYSDBA/masterkey) = OK
> > Zmena hesla uzivatele SYSDBA, masterkey >> admin
> > Register database - SADY2002.GDB = OK
> > Open database - SADY2002.GDB = ERROR
> > Error connecting to the requested database.
> > Detail message:
> > No permission for read-write access to database
> > C:\....cesta...\SADY2002.GDB
> > vytvoreni nove database = OK.
> > Otevreni nove vytvorene database = OK
> >
> > Mohu tam vytvorit svoji novou databazi SADY2002.GDB a data pretahnout
> pomoci
> > METADAT, ale zda se mi to priliz krkolomne.
> > Zkousel jsem SADY2002.GDB prenest i na jine pocitace a vsude to funguje
> > (pc486/W95, W98, W2k) Nefunguje to na novem PC s W98.
>
>
Nelze otevrit GDB
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 21.10.2002 11:38:29
ahoj,
> Open database - SADY2002.GDB = ERROR
> Error connecting to the requested database.
> Detail message:
> No permission for read-write access to database
> C:\....cesta...\SADY2002.GDB
hele, a netahas to pres CDR(W)? tedy, ze by ten GDB
moh mit nahozenej ReadOnly bit a tudiz nesel otevrit
pro zapis. mrkni na to.
peca
Nedokreslovani TreeView
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 21.10.2002 12:00:51
Zdravim vsechny
a sdeluji, ze me trapi nedokreslovani v TreeView, kde se ukaze jen zlomek
rozvinuteho stromu. Deje se tak jen na nekterych, hlavne vykonnostne
slabsich PC. V TreeView jsou ikony 29x14,pro ktere pouzivam ImageList ,
ktery naplnuji asi 150 ikonami. Pri aktualizaci pouzivam
BeginUpdate/EndUpdate. Kompiluji na D5,Windows XP.
Za kazdou radu predem dik
Jirka
Nelze otevrit GDB
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.10.2002 12:04:55
> Neni jenom ke cteni, normalne vsude jinde to spravne funguje, jen na
jednom
> a to zcela novem PC to ne a ne chodit. Zajimave je ze jinak tam lze delat
s
> novou tam vytvorenou db.
> Jak se k ni hlasim? Proste zaregistruji v IBConsole a dam otevrit, a ono
to
> napise ze nemam pristup.
No nevim, a hlasis se k te databazi (ne k serveru!) jako spravny uzivatel
(jako na tech jinych PC)? A nemuzes udelat backup na nejakem to jinem PC a
na tom problematickem restore, kdyz rikas, ze novou vytvorit muzes?
Roman
==============================
http://kouzelne.misto(tec)cz
TJCLEmail
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 21.10.2002 12:12:55
Ahoj,
mam problem s odesilanim mailu pomoci TJCLEmail
kdyz se snazim odeslat Email s prilohami v ramci lokalni site prijde normalne, ale jakmile se mail posle ven, priloha je v Part.001
je potreba jeste neco nastavovat??
var EZprava:TJCLEmail;
EZprava := TJCLEmai.Create();
try
EZprava.Clear();
EZprava.Subject := 'Nejaky subject';
EZprava.Body := 'Nejake body';
EZprava.Recipients.Add('Email');
EZprava.Attachments.Add('Soubor prilohy');
Result := EZprava.Send(false);
finally
EZprava.Free();
end;
odesila se to pomoci MS Outlook 2000, MS Exchange 5.5 (SP4)
z Novellovskeho GroupWise vse funguje...
jinak posle-li se mail klasicky (Nova zprava...) pres Outlook s prilohou, prijde normalne
MS Outlook prilohy
[*] janpolasek(zv)vol(tec)cz - 21.10.2002 12:13:24
Hi everybody,
Mam D4 prof a pomoci OLE jsem napsal s pomoci prikladu
delphi3000.com proceduru na stahovani dennich davek datovych souboru
A slozenek
Ceske posty - viz nize kus zdrojaku.
Program bezel dva roky celkem bez problemu, pomoci MS Outlooku
projde slozku Dorucena posta a z doslych emailu vyfiltruje prilohy
a ulozi do urceneho pracovniho adresare, kde dojde k rozsifovani
atd. Chodilo to s Outlookem 97 a pak i s Outlookem 2000
Problem je v tom, ze od urcite doby to prestalo chodit a to tak, ze:
- prilohy starsich nevymazanych emailu, ktere Outlook zobrazuje v
jednom okne s textem emailu se nactou jako driv OK
- novejsi emaily Outlook zobrazuje jinak : maji text v jednom okne a
prilohy ve spodnim uzkem okne.
Tyto prilohy uz program nenacte.
Asi doslo k nejakemu nastaveni formatu emailu, ale neumim to vratit,
nebo
Odesilatele pouzivaji jiny format?
v procedure pouzivam promenne typu vatiant a string
oApp := CreateOLEObject('Outlook.Application');
try
oNs := oApp.GetNamespace('MAPI');
ofolder := oNs.GetDefaultFolder(6); // FolderTypeEnum
(olFolderInbox)
MailCounter := 1;
// je-li email v Dorucene poste
if ofolder.items.count > 0 then
begin
repeat
oMsg := ofolder.items(MailCounter);
Den := oMsg.CreationTime;
PredmetEmailu:= oMsg.subject;
Odesilatel := oMsg.sendername;
if VybranyOdesilatel = Odesilatel then
begin
atc := oMsg.Attachments.count;
if atc > 0 then (* pocet priloh *)
begin
for Counter := 1 to atc do
begin
AttFileName :=
oMsg.Attachments.item(Counter).FileName; FileName
:= AttachmentPath+'\'+AttFileName;
(*zde se ulozi soubor prilohy do pozadovaneho adresare *)
oMsg.Attachments.Item(Counter).SaveAsFile(FileName);
end;
end;
end;
inc(MailCounter);
until MailCounter > ofolder.items.count;
end;
finally
(*oApp.quit; *)(* vypne Outlook *)
end;
FORMULAR & GRID a obracene
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 21.10.2002 12:16:28
LUKES V�clav, <mailto:lukes(zv)ans(tec)cz>:
LV> diky za radu, ale na tom formulari jsou take tlacitka atd.
LV> a byl by problem asi vse prepocitavat...
Kazdy potomek TControl ma Anchors, takze staci nastavit u tlacitka
akRight:=true, akBottom:=true a uz se ti tlacitko nevzdali od praveho
dolniho rohu.
Vyzkousej i v DesignTime.
LV> a ako chces menit velkost dbgridu? pravdepodobne programovo, nie? nemozes
LV> potom programovo nastvovat aj velkost formulara?
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Text v DBGridu pred SETTEXT
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 21.10.2002 13:05:44
Ahoj kluci potrebuji zjistit hodnotu editovane polozky jezte pred ulozeni do
fieldu,tj. jde mi o ten cas kdy neco prepisete v dbgridu,jeste jste pole
neopustili (nedoslo tedy zapsani do field) a date treba doubleclick a chcete
znat hodnotu pole potrebuji podle tehle hodnoty dohledat skutecnou
hodnotu,ktera je nekde v DB a otevrit podle toho vlastni okno......diky
moc...
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Nelze otevrit GDB
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 21.10.2002 13:16:55
Haj hou!
On 21 Nov 2002 at 10:41, J�n Harman wrote:
> Open database - SADY2002.GDB = ERROR
> Error connecting to the requested database.
> Detail message:
> No permission for read-write access to database
> C:\....cesta...\SADY2002.GDB
Vsadim se, ze soubor databaze je R/O.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Re[2]: FireBird - Too many concurrent executions o
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 21.10.2002 13:16:55
Haj hou!
On 21 Nov 2002 at 1:07, Roland Turcan wrote:
> <<< 21. 11. 2002 1:04 - Lauko Stefan "laukosw(zv)naex.sk" >>>
> LS> Ahoj,
> LS> tak by si to nemal robit. Obrazne povedane tento triger sa vola "rekurzivne"
> LS> a zrejme pri urcitom vnoreni/priechode to rachne.
>
> Ahoj, ja presne viem co sa v nom udeje, ale mam max. 99 zaznamov ktore
> sa takto mazu. Ked som skusal tak bola hranica cca. 1000 zaznamov, ale
> chcem vediet co by som mohol ocakavat, alebo od coho
> zavisi to rachnutie.
Je to samozrejme poctem vnoreni volani triggeru. InterBase/Firebird ma
tvrdy limit, aby nedoslo ke zhrouceni systemu z duvodu vycerpani zdroju.
Limit je 750 na Windows a 1000 na UNIXu.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
maximalizovanie childwindow
[*] Slafco <skippo(zv)post.sk> - 21.10.2002 13:35:27
ahojte,
mam takyto problemik..
potrebujem aby vytvorene childwindow v mdi app bolo maximalizovane.
riesenie typu windowstate:=wsMaximized; mi nepomoze...ono to ide, len s tym problemom ze delphi najprv okno vytvori v nejakej velkosti a potom ho maximalizuje...teda vznika taky neprijemny efekt(ktory trva aj cez 1 sec)
mate nejaky napad?? dik
S.
________
Pocitacove hry? http://hry.sme.sk
Nedokreslovani TreeView
[*] Robert Suska <delphi(zv)korak.sk> - 21.10.2002 13:43:32
ahoj
ja som tiez pri TreeView pouzival BeginUpdate a EndUpdate a robilo mi to
presne to iste tak som to vyhodil a na konci kodu kde sa nieco plni datami
som este pridal TreeView.Refresh; a uz mi to beha
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************> Zdravim vsechny
> a sdeluji, ze me trapi nedokreslovani v TreeView, kde se ukaze jen zlomek
> rozvinuteho stromu. Deje se tak jen na nekterych, hlavne vykonnostne
> slabsich PC. V TreeView jsou ikony 29x14,pro ktere pouzivam ImageList ,
> ktery naplnuji asi 150 ikonami. Pri aktualizaci pouzivam
> BeginUpdate/EndUpdate. Kompiluji na D5,Windows XP.
> Za kazdou radu predem dik
> Jirka
>
>
Text v DBGridu pred SETTEXT
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 21.10.2002 15:12:20
ahoj,
zkus se podivat do vlastnosti TDBGrid.Columns[n],
nebo zkus DBGrid1.Fields[n].AsString....
peca
FORMULAR & GRID a obracene
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 21.10.2002 15:25:33
Diky za radu, ale me jde o tohle.
Mam FORM a na nem dva BUTTONy a jeden DBGRID. kotvim to a kdyz menim velikost formu, je to OK.
Ale ja chci poslat treba zmenit HEIGHT a WITH u DBGRIDU a chci, aby se mi na zaklade teto zmeny vse zmenilo.
V.
-----Original Message-----
From: Karel Horky [mailto:horky.karel(zv)quick(tec)cz]
Sent: Thursday, November 21, 2002 12:16 PM
To: LUKES V�clav
Subject: Re: FORMULAR & GRID a obracene
LUKES V�clav, <mailto:lukes(zv)ans(tec)cz>:
LV> diky za radu, ale na tom formulari jsou take tlacitka atd.
LV> a byl by problem asi vse prepocitavat...
Kazdy potomek TControl ma Anchors, takze staci nastavit u tlacitka
akRight:=true, akBottom:=true a uz se ti tlacitko nevzdali od praveho
dolniho rohu.
Vyzkousej i v DesignTime.
LV> a ako chces menit velkost dbgridu? pravdepodobne programovo, nie? nemozes
LV> potom programovo nastvovat aj velkost formulara?
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
FORMULAR & GRID a obracene
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.10.2002 15:32:43
> Mam FORM a na nem dva BUTTONy a jeden DBGRID. kotvim to a kdyz menim
> velikost formu, je to OK. Ale ja chci poslat treba zmenit HEIGHT a
> WITH u DBGRIDU a chci, aby se mi na zaklade teto zmeny vse zmenilo. V.
Ahoj,
grid ma fixni velikost, takze menit jeho rozmery budes muset programem.
Nepomohlo by za teto situace, na tom formu nastavit property AutoSize?
Pisu bez zkouseni, je to jen napad.
David Lebeda
SQL dotaz , vraceni noveho pole
[*] "Jakub �r�mek" <jsramek(zv)kodys(tec)cz> <jsramek(zv)kodys(tec)cz> - 21.10.2002 15:36:14
Ahoj,
mam jednu otazecku ohledne SQL dotazu (napr. pres Query v D5 do DB
MSAccess 97/2000). Mam tabulku, kde je jeden atribut typu Boolean (napr.
head_flag : Boolean) a chci, aby mi dotaz vracel dataset, kde bude bude
umele vytvoren atribut head_str, ktery bude nastaven v zavislosti na
head_flag nasledujicim zpusobem:
head_flag : head_str = "ANO"
!head_flag : head_str = "NE"
Dik za pripadnou radu,
Kuba.
SQL dotaz , vraceni noveho pole
[*] Ing. Pavel �ilinec����)b���zf���3 - 21.10.2002 15:53:39
MSAccess 97/2000 neznam. ale pro MS SQL bych napsal
... head_str = case head_flag when 1 then "ANO" else "NE " end ...
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
J�jkc> Ahoj,
J�jkc> mam jednu otazecku ohledne SQL dotazu (napr. pres Query v D5 do DB
J�jkc> MSAccess 97/2000). Mam tabulku, kde je jeden atribut typu Boolean (napr.
J�jkc> head_flag : Boolean) a chci, aby mi dotaz vracel dataset, kde bude bude
J�jkc> umele vytvoren atribut head_str, ktery bude nastaven v zavislosti na
J�jkc> head_flag nasledujicim zpusobem:
J�jkc> head_flag : head_str = "ANO"
J�jkc> !head_flag : head_str = "NE"
J�jkc> Dik za pripadnou radu,
J�jkc> Kuba.
FORMULAR & GRID a obracene
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 21.10.2002 16:01:42
LUKES V�clav, <mailto:lukes(zv)ans(tec)cz>:
LV> Mam FORM a na nem dva BUTTONy a jeden DBGRID. kotvim to a kdyz menim velikost formu, je to OK.
LV> Ale ja chci poslat treba zmenit HEIGHT a WITH u DBGRIDU a chci, aby se mi na zaklade teto zmeny vse zmenilo.
Toto plati pro D5 a vyssi:
Vyska a sirka u DBGRIDU jsou jen o nejake KONSTANTY mensi, nez u
FORMU, pokud mas nastaveno Anchors DBGRIDU na vsechny strany. Proc
tedy neprepoctes pozadovanou vysku gridu na vysku formulare a nezmenis
vysku formulare ? Grid se uz natahne nebo smrskne sam. To same se
sirkou. Maximalni a minimalni meze nastav pomoci Constraint na FORMU.
Tlacitka se hybou take samy, jen musi mit nastaveny Anchors podle
toho, ktere strany se maji drzet.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
External Exception 46
[*] Zaplik <zaplik(zv)volny(tec)cz> - 21.10.2002 16:27:52
Nevite nekdo nahodou co znamena tohle hlaseni? Nikde jsem popis nenasel. Je
to hlaseni Delphi nebo Windows? Pokazde se to objevi na jinem miste a
instalovat Delphi pro odchyceni chyby u zakaznika se mi zrovna nechce.
Pripada mi, ze v tom neni zadna logika. Co je to za externi vyjimku 46?
Aplikace pouziva BDE a tohle se deje nekde uprostred jednoduchych vypoctu
pri prochazeni tabulky D-Base. Pokazde na jinem miste i zaznamu.
D5, W98
Zaplik
Nelze otevrit GDB
[*] J�n Harman <harman(zv)atlas(tec)cz> - 21.10.2002 16:42:51
To jsem zkousel, a potom uz neslo ani se nalogovat na lokalni server. Toto
neni spravna cesta.
Ale dik za snahu.
> ..skus prepisat subor ISC4.gdb z pocitaca kde mozes otvorit tvoje
> GDB na pocitac, kde ho nemozes otvorit..
>
> ----------------------------------------------------------------
> http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
>
>
Nelze otevrit GDB
[*] J�n Harman <harman(zv)atlas(tec)cz> - 21.10.2002 16:53:22
Ahoj!
Pravdepodobne mas pravdu! Diky moc, zitra vyzkousim. Ono se mi to tam uz
jednou stalo.
Ted to zkoumam a zjistuji ze pokud prekopirujes soubor z CDRW pres
WindowsCommander tak se atribut ReadOnly automaticky shodi, ALE pokud ho
kopirujes pres PRUZKUMNIKA, tak atribut ReadOnly se NESHODI. A tam je
pravdepodobne problem. Oni tam nemaji WinComm, takze kopiruji pres
pruzkumnika. Vubec me to nenapadlo. Tolik kilometru kvuli takove bl...
Myslim ze je to dobra zkusenost i pro ostatni.
Pokud to zitra nepojede, tak dam vedet:-) Jeste jednou dik. Honza.
ahoj,
> Open database - SADY2002.GDB = ERROR
> Error connecting to the requested database.
> Detail message:
> No permission for read-write access to database
> C:\....cesta...\SADY2002.GDB
hele, a netahas to pres CDR(W)? tedy, ze by ten GDB
moh mit nahozenej ReadOnly bit a tudiz nesel otevrit
pro zapis. mrkni na to.
peca
OT: FreeCVS, jak to pouzit pokud kazdy z tymu sedi
[*] David Michal <david.michal(zv)www-bv(tec)com> - 21.10.2002 17:08:50
Zdravim,
Nainstaloval jsem si FreeVCS. Celkem jsem pochopil jak s tim pracovat na
lokalni siti, ale nemohu se nikde docist jak s tim pracovat v "offline"
rezimu. Tzn. user se pripoji k serveru, stahne si novejsi a zmenene soubory
k sobe na local. Odpoji se od serveru. Po skonceni prace se pripoji k
serveru a uploadne zmeny. Zatim se mi podarilo pouze udelat lokalni kopii.
Ale nevim jak pote provest upload. Mate prosim nekdo zkusenost?
Jelikoz se jedna o off topic, tak prosim pripadne odpovedi smerujte na muj
mail.
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.422 / Virus Database: 237 - Release Date: 20/11/2002
Presmerovani URL v TWebBrowser.OnBeforeNavigate2
[*] Ji�� Mat�jka�����^�F�צ����̿ - 21.10.2002 17:26:44
Pouzivam komponentu TWebBrowser a v jeji udalosti OnBeforeNavigate2
potrebuju v urcitych priapdech presmerovat URL na jiny zdroj, nez ten ktery
je puvodne pozadovan. Podle Dephi helpu (a selskeho rozumu :-) staci zmenit
promennou URL na pozadovane URL a melo by to fungovat. Nicmene u me se to
chova tak, ze TWebBrowser tvrdosijne nacita puvodni URL, ackoli promena URL
obsahuje nove...
Jedine co me napada je, zda typ OleVariant nevyzaduje nejaky zvlastni
pristup... proste prirazeni (viz priklad nize) je podle vseho OK, kompilator
nerve, za behu zadne vyjimky nevyskakuji...
Sice to lze obejit nastavenim Cancel na False a vyvolanim
WebBrowser.Navigate(noveURL), ale to delat nemuzu, mj. kvuli prip. pouziti
frameu...
procedure TForm1.WBBeforeNavigate2(Sender: TObject; const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
begin
if neco then
URL:= 'http://localhost/noveurl.htm';
end;
Neresil nekdo z vas podobny problem? Mam D6 Prof, W2000 SP3, IE6. Testoval
sem to jeste na IE5 se stejnym vysledkem...
diky za kazdy namet
Jirka Matejka
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.416 / Virov� b�ze: 232 - datum vyd�n�: 6.11.2002
Table is busy
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 21.10.2002 18:22:24
> Odes�latel: Rumcajs - konference <konrum(zv)seznam(tec)cz>
> Pouzivam TTable s tim, ze pri onCreate formulare mu zadam nazev:
> Table9.TableName := DataDir + 'TP.dbf';
> Dale mam TListView, ze ktereho taham data do te tabulky s tim, ze pokazde
> tabulku zakladam jako novou:
> Table9.CreateTable;
> Table9.Open; // cteni dat
> Table9.Close;
Tomu Table9.CreateTable nerozumim.
Proc CreateTable? Predpokladam, ze TP.dbf tam uz je, kdyz z ni ctes data.
Pokud rozumim, co pises, stacilo by Open
nebo dokonce Open v OnCreate a pak uz nic (mozna Close v OnDestroy).
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. 493 792 931 (mobil 776 347735)
=========================================
SQL dotaz , vraceni noveho pole
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 21.10.2002 18:27:10
> Odes�latel: <jsramek(zv)kodys(tec)cz>
> MSAccess 97/2000). Mam tabulku, kde je jeden atribut typu Boolean (napr.
> head_flag : Boolean) a chci, aby mi dotaz vracel dataset, kde bude bude
> umele vytvoren atribut head_str
A nestacilo by ti nad fieldem "head_flag" napsat OnGetText pripadne OnSetText?
if Field.asBoolean then
Text:='ANO'
else
Text:='NE';
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. 493 792 931 (mobil 776 347735)
=========================================
zjisteni barvy pixelu
[*] Franti�ek Remi� - 21.10.2002 18:58:19
Cau, jak se da zjistit zjisti barva pixelu v delphix, pripadne jinou
komponentou??
zjisteni barvy pixelu
[*] Peter Surovy <psurovy(zv)uevora.pt> - 21.10.2002 18:09:05 -0000
Ahoj
----- Original Message -----
From: "Franti�ek Remi�" <fandar(zv)seznam(tec)cz>
Sent: Thursday, November 21, 2002 5:58 PM
> Cau, jak se da zjistit zjisti barva pixelu v delphix, pripadne jinou
> komponentou??
--- predpokladam ze mas na mysli Canvas nejakej komponenty,
na to Ti sluzi property Pixels[x,y] ktora dava hodnotu TColor
PS
Export z QR do RTF,DOC apod...
[*] Lukas Horky <LukasHorkyDF(zv)seznam(tec)cz> - 21.10.2002 19:45:15
Zdravim,
vim ze uz jsem minimalne dvacaty kdo mam nasledujici problem a prosim
o radu/pomoc.
JAK DOSTAT HOTOVOU SESTAVU Z QUICKREPORTU (D5) do formatu doc, nebo
alespon RTF?
Narazil jsem na spoustu filtru ale zadny nefungoval tak jak by me.
Pokousel jsem se i vzit to pres HTML, ktery pak ve wordu prevest do
RTF. Ale tenhle zpusob selze v okamziku kdy jsou v sestave ruzny typy
pisma nebo zarovnani ... to pak HTMLFilter vyrobi neuveritelnou hruzu
a ne HTML.
Predem dik
Lukas
______________________________________________________________________
Reklama:
FIMFARUM - Cesky celovecerni loutkovy film na motivy pohadek Jana Wericha. www.fimfarum(tec)cz V kinech od 28. listopadu. http://www.fimfarum(tec)cz
FB/IB a BLOB
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 21.10.2002 20:02:58
Ahoj,
On 21 Nov 2002 at 11:23, Martin Falta wrote:
> poradte, jak v FB/IB na BLOB. O co jde? Chci do tabulky ulozit obsah
> nejakeho souboru (text i binarni) a inserty chci resit ulozenou
> procedurou, ktere chci predat parametrem jmeno souboru a ta procedure
> by si do BLOBu nacetla jeho obsah. Bohuzel nejsem z dokumentace moc
> moudrej, tak vas chci pozadat o kousek kodu, ktery by me nakopnul
> spravnym smerem.
> D6 Pro SP2, WinXP Home, FB 1.0, IB 6.01
nepises co presne potrebujes.
Napr. obrazek muzes vlozit takto:
IBStoredProc.Params.CreateParam(ftBLOB,'OBR',ptInput);
IBStoredProc.Params.ParamByName('OBR').LoadFromFile(sPathToPicture,ftBlob);
ale s RTF souborem jsme meli velke problemy a i kdyz jsme pouzili TMemoryStream
ztracelo se formatovani, ceske znaky (u nekterych znak. sad) byly "nepouzitelne" a
museli jsme pouzit klasicky INSERT/UPDATE
U TMemo by nemely byt zadne problemy.
Ale jeste nez se do toho pustis, precti si tento clanek
http://www.volny(tec)cz/iprenosil/interbase/ip_ib_strings.htm
Jarek Uher
Re[4]: ActiveX a windows 2000 server
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.10.2002 20:24:34
Cau Peter,
Thursday, November 21, 2002, 10:02:36 AM, you wrote:
> Prava su everyone a plny pristup
hmm nemam tuseni cem by to mohlo byt ?? A neni to napsano spatne ?
> ----- Original Message -----
> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> To: "Peter" <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, November 21, 2002 9:45 AM
> Subject: Re[2]: ActiveX a windows 2000 server
>> Cau Peter,
>>
>> Thursday, November 21, 2002, 9:42:14 AM, you wrote:
>>
>> > Vtip je vtom ze to nenapise nic len ked chces natiahnut funkcie z nej
> tak
>>
>> aha.
>>
>> > ich nie je vidiet. Dll ka je v registroch ulozena ako ma byt. Crystal je
>>
>> to tomuze byt. ale jsou prava k te DLL spravna ma tam full access
>> everyone ?, nebo IUSR_, IWAM_ ?
>>
>> > tusim 8.
>>
>> 8 ? s patchem ? a co to ma vsechno nainstalovany ?
>>
>>
>>
>> > ----- Original Message -----
>> > From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
>> > To: "Peter" <delphi-l(zv)clexpert(tec)cz>
>> > Sent: Thursday, November 21, 2002 9:33 AM
>> > Subject: Re: ActiveX a windows 2000 server
>>
>>
>> >> Cau Peter,
>> >>
>> >> Thursday, November 21, 2002, 9:28:29 AM, you wrote:
>> >>
>> >> > Dobry den,
>> >>
>> >> > vytvoril som activex dll ku z ktorej crystal report cita funkcie.
>> >> > Problem je ze windows 2000 server po zaregistrovani neumozni crystalu
>> > citat
>> >> > funkcie danej dll ky.
>> >>
>> >> > 1. Vie mi niekto poradit co treba nastavit aby som tie funkcie videl
>>
>>
>>
>> S pozdravem
>>
>> Milan Vymazal
S pozdravem
Milan Vymazal
DelphiX
[*] Branislav Dimo� <listonos(zv)stonline.sk> - 21.10.2002 20:27:26
Mam DelphiX pre Delphi6 ale nevola sa to DelphiX ale DXT a je to bez
zdroj. suborov. Skus hladat DXT3 konkretne DXT3.zip
Uz to nerobil ten Japonec ale nejaka firma ale je to to iste a myslim ze
to podporuje aj DirectX 8
>: V�en� program�to�i,
>: Ur�it� jste ji� zde �e�ili probl�m DelphiX pro Delphi v.6. Kde bych
>: mohl tuto komponentu stahnout, nebo mi ji pros�m n�kdo po�lete. Moc
>: D�k
Nelze otevrit GDB
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 21.10.2002 20:56:25
Haj hou!
> Open database - SADY2002.GDB = ERROR
> Error connecting to the requested database.
> Detail message:
> No permission for read-write access to database
> C:\....cesta...\SADY2002.GDB
Jeste me napada, ze by to mohlo byt pravy operacniho systemu, pokud jsou
to NT. Pokud server nezi jako service, muze bezet pod nejakym uctem,
ktery nema R/W pristup k souboru/adresari. Nove vytvorena databze je ale
vytvarena jiz pod uctem serveru, takze to projde.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
KYLIX + FB + "Unable to Load libgds.so"
[*] Anton�n =?ISO-8859-1?QD8ez�� - 21.10.2002 21:18:50
Zdravim vsechny,
snazim se spustit jednoduchou zkusebni konzolovku, ktera jen neco nacte pres
dbExpress ze vzdaleneho FB, na mirne historickem stroji (Cyrix 5x86 100MHz)
s RedHat 7.1 a zarputile mi to hlasi "Unable to Load libgds.so" (i kdyz
knihovnu strkam na vsemozna mista a vyrabim vsemozne linky). Na PC, kde mam
Suse a Kylix je vse OK.
Dik za kazdou radu, uz zacinam byt pesimisticky.
Vojta
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] Erik Salaj <winsoft(zv)stonline.sk> - 21.10.2002 21:19:37
> Nainstaloval jsem si FreeVCS. Celkem jsem pochopil jak s tim pracovat na
> lokalni siti, ale nemohu se nikde docist jak s tim pracovat v "offline"
> rezimu. Tzn. user se pripoji k serveru, stahne si novejsi a zmenene
soubory
> k sobe na local. Odpoji se od serveru. Po skonceni prace se pripoji k
> serveru a uploadne zmeny. Zatim se mi podarilo pouze udelat lokalni kopii.
> Ale nevim jak pote provest upload. Mate prosim nekdo zkusenost?
> Jelikoz se jedna o off topic, tak prosim pripadne odpovedi smerujte na muj
> mail.
jedna z moznosti je Source Offsite http://www.sourcegear.com/sos/
Pouzivam to (iba klienta) a chodi to bez problemov, na serveri to vyuziva
Visual SourceSafe.
Erik
KYLIX + FB + "Unable to Load libgds.so"
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 21.10.2002 21:31:39
From: "Anton�n �ez��" <rezac(zv)apls(tec)cz>
> snazim se spustit jednoduchou zkusebni konzolovku, ktera jen neco nacte
pres
> dbExpress ze vzdaleneho FB, na mirne historickem stroji (Cyrix 5x86
100MHz)
> s RedHat 7.1 a zarputile mi to hlasi "Unable to Load libgds.so" (i kdyz
> knihovnu strkam na vsemozna mista a vyrabim vsemozne linky). Na PC, kde
mam
> Suse a Kylix je vse OK.
> Dik za kazdou radu, uz zacinam byt pesimisticky.
Bohuzial, kolko verzii Linuxov tolko problemov ;-o), ale RedHat nemam. Skus
si precitat "read.me" pod. subory ku Kylixu je ich pozehnane a riesi sa v
nich kopec problemov pre rozne verzie Linuxu. :-((
Kakacka Pavol
KasiX(zv)atlas(tec)cz
maximalizovanie childwindow
[*] Robo Sedlak <robo.sedlak(zv)zem.sk> - 21.10.2002 21:06:18 ut
Skuste nasledujuci trik:
Skontrolujte ci v hlavnom formulari mate urcene:
FormStyle:=fsMDIForm;
Ak ano, tak skontrolujte ci sa hl. okno nenachadza ako podriadene inemu
oknu.
To je na teraz vsetko, lebo viac ma nenapada.
----- Original Message -----
From: "Slafco" <skippo(zv)post.sk>
To: delphi-l(zv)clexpert(tec)cz
Sent: Thu, 21 Nov 2002 13:35:27 +0100 (CET)
Subject: maximalizovanie childwindow
> ahojte,
> mam takyto problemik..
>
> potrebujem aby vytvorene childwindow v mdi app bolo maximalizovane.
>
> riesenie typu windowstate:=wsMaximized; mi nepomoze...ono to ide, len s
> tym problemom ze delphi najprv okno vytvori v nejakej velkosti a potom ho
> maximalizuje...teda vznika taky neprijemny efekt(ktory trva aj cez 1 sec)
>
> mate nejaky napad?? dik
> S.
>
> ________
> Pocitacove hry? http://hry.sme.sk
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 23:03:54
From: "David Michal" <david.michal(zv)www-bv.com>
> Nainstaloval jsem si FreeVCS. Celkem jsem pochopil jak s tim pracovat na
> lokalni siti, ale nemohu se nikde docist jak s tim pracovat v "offline"
FreeVCS pracuje na principu zamykani souboru, tedy ten kdo chce s nejakym
souborem pracovat udela Check out (od tohoto okamziku na nem nemuze pracovat
nikdo jiny), pak se muze odpojit a kdyz na nem praci dokonci udela Check in.
Samozrejme je vhodny nejaky dalsi komunikacni kanal (idealne treba ICQ) pro
komunikaci s ostatnimi pro pripady ze nekdo jiny potrebuje zrovna v tom samem
souboru neco udelat nebo zjistit jake se tam provadeji upravy apod. Soucasti
kazdeho check-inu by mel byt i popis toho co se tam provedlo za zmeny.
Petr Vones
External Exception 46
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 23:20:09
From: "Zaplik" <zaplik(zv)volny(tec)cz>
> Nevite nekdo nahodou co znamena tohle hlaseni? Nikde jsem popis nenasel. Je
> to hlaseni Delphi nebo Windows? Pokazde se to objevi na jinem miste a
> instalovat Delphi pro odchyceni chyby u zakaznika se mi zrovna nechce.
> Pripada mi, ze v tom neni zadna logika. Co je to za externi vyjimku 46?
> Aplikace pouziva BDE a tohle se deje nekde uprostred jednoduchych vypoctu
> pri prochazeni tabulky D-Base. Pokazde na jinem miste i zaznamu.
Projevuje se to s Windows 98 na desce s rychlejsim procesorem a nejakym
historickym VIA nebo SiS chipsetem ? Pak to bude asi znamy "FPU problem" kdy
pri deleni nulou system podivne zhavaruje. Zkus na tom PC spustit tohle:
http://www.econos.de/fpu/pas.zip
Petr Vones
Nedokreslovani TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 23:21:49
From: "Ing. Jiri Kubicek" <kubicek(zv)etatherm(tec)cz>
> a sdeluji, ze me trapi nedokreslovani v TreeView, kde se ukaze jen zlomek
> rozvinuteho stromu. Deje se tak jen na nekterych, hlavne vykonnostne
> slabsich PC. V TreeView jsou ikony 29x14,pro ktere pouzivam ImageList ,
Neni na tech PC nejaka neaktualizovana verze Windows 95 ? Mela by tam byt
totiz COMCTL32.DLL alespon verze IE4.01
Petr Vones
TJCLEmail
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 23:23:59
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
> mam problem s odesilanim mailu pomoci TJCLEmail
> kdyz se snazim odeslat Email s prilohami v ramci lokalni site prijde
> normalne, ale jakmile se mail posle ven, priloha je v Part.001
> je potreba jeste neco nastavovat??
Tezko, Simple MAPI je velmi jednoduche rozhrani, problem bude spis v jeho
implementaci tim klientem. Zkus prilohy zadat s plnou cestou.
Petr Vones
Nedokreslovani TreeView
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 22.10.2002 06:44:41
Diky, ale tohle jsem overil, problem bude jinde.
Jirka
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>> From: "Ing. Jiri Kubicek" <kubicek(zv)etatherm(tec)cz>
> > a sdeluji, ze me trapi nedokreslovani v TreeView, kde se ukaze jen
zlomek
> > rozvinuteho stromu. Deje se tak jen na nekterych, hlavne vykonnostne
> > slabsich PC. V TreeView jsou ikony 29x14,pro ktere pouzivam ImageList ,
>
> Neni na tech PC nejaka neaktualizovana verze Windows 95 ? Mela by tam byt
> totiz COMCTL32.DLL alespon verze IE4.01
>
> Petr Vones
>
TJCLEmail
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 22.10.2002 07:38:33
Ahoj,
> pvones(zv)mbox.vol(tec)cz 21.11.02 23:23 >>>
>Tezko, Simple MAPI je velmi jednoduche rozhrani, problem bude spis v jeho
>implementaci tim klientem. Zkus prilohy zadat s plnou cestou.
plnou cestu tam zamozrejme zadavam...
myslel jsem si, ze to je dlouhym nazvem souboru, protoze v lokalni siti v prichozi poste prijde nazev souboru zpatvareny "priloh~1.txt",
ale i kratky soubor neprojde ven. Zkousel jsem i dat jinou priponu, ale opet neuspech...
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Export z QR do RTF,DOC apod...
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 22.10.2002 07:21:55 -0000
>Zdravim,
>
>vim ze uz jsem minimalne dvacaty kdo mam nasledujici problem a prosim
>o radu/pomoc.
>
>JAK DOSTAT HOTOVOU SESTAVU Z QUICKREPORTU (D5) do formatu doc, nebo
>alespon RTF?
Export ide ale treba zakupit profesional QR od www.qusoft.com, obsahuje aj
dalsie filtre xls,pdf,...
Pravdu povediac nemame s nim dobre skusenosti, preto postupne prechadzame
na
Crystal Report,(je to blbe ale z BDE sme presli na MSDE a postupne asi
skoncime u C#).
Proc tuhne SocketServer?
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 22.10.2002 08:28:27
Ahoj vsichni
Moc vas prosim o radu. Mam aplikaci v D5 Ent. se SP1 a (SP2 na ADO) vyuziva
MIDAS v kombinaci s ADO. K aplikacnimu serveru se pristupuje pres
TSOcketConnection a Socket Server. Castym opakovanim operaci DataRequest a
ApplyUpdates dojde k zatuhnuti klienta. Kdyz jsem zaradil do aplikacniho
serveru a klienta ladici vypisy zjistil jsem ze ApplyUpdates probehne
korektne (provede se AfterApplyUpdates a klient se o tom dozvi. pak se
provede prikaz tesne pred DataRequest ale o dataRequestu se uz aplikacni
server nedovi. Konfigurace pocitace se serverem Je W2000 SP3, MSSQL2000
(datovy server me aplikace) je to znackovy server Dell. Podrobnosti mohu
zjistit. Podobna, ale ne uplne stejna, situace se dala navodit vytazenim
sitoveho kabelu ze serveru. Podle me je asi chyba v SocketServeru. Dela to
jen v nekterych, konkretnich pripadec. Nevite nekdo proc to je?
Jaromir Cermak
SQL dotaz , vraceni noveho pole
[*] "Jakub �r�mek" <jsramek(zv)kodys(tec)cz> <jsramek(zv)kodys(tec)cz> - 22.10.2002 8:45:40
Bohuzel to potrebuju vratit primo v datasetu...
Ale dekuju,
Kuba.
>
>
>-----P�vodn� z�silka-----
>Od: "Jan Sebel�k" <honza(zv)haes(tec)cz>
>Komu: jsramek(zv)kodys(tec)cz;<delphi-l(zv)clexpert(tec)cz>;
>Odesl�no: �tvrtek 21.11.02 18:27:10
>V�c: Re: SQL dotaz , vraceni noveho pole
>
>> Odes�latel: <jsramek(zv)kodys(tec)cz>
>> MSAccess 97/2000). Mam tabulku, kde je jeden atribut typu Boolean (napr.
>> head_flag : Boolean) a chci, aby mi dotaz vracel dataset, kde bude bude
>> umele vytvoren atribut head_str
>A nestacilo by ti nad fieldem "head_flag" napsat OnGetText pripadne
>OnSetText?
>
>if Field.asBoolean then
> Text:='ANO'
>else
> Text:='NE';
>
>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. 493 792 931 (mobil 776 347735)
>=========================================
>
OT: readonly pri kopirovani z cdrom (was: Nelze ot
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 22.10.2002 08:49:15
> Ted to zkoumam a zjistuji ze pokud prekopirujes soubor z CDRW pres
> WindowsCommander tak se atribut ReadOnly automaticky shodi,
> ALE pokud ho kopirujes pres PRUZKUMNIKA, tak atribut ReadOnly se NESHODI.
ja jenom, pro dalsi, kteri se s tim jeste nesetkali, nebo o nejakem
readonly atributu vubec netusi. :o)
soubory na CD (CD-R(W)) maji atribut read only, kvuli programum, ktery
by tyto soubory otvirali, tak aby vedeli, ze jsou urceny jen ke cteni.
pokud provadite standartni kopirovani, tak se atributy souboru nemeni.
s rozmachem CD v pocitacich se do ruznych file manageru dostalo nastaveni
"clear R/O attribute from CD files" a podobne, ktere zajisti automaticke
shozeni atributu po kopii z CD na HDD. toto nastaveni se tyka pouze
filemanageru jako takovyho, nikoli systemu, ten nadale kopiruje atributy
tak jak je precte. a pozor, CD romka musi byt lokalni! pokud je pripojena
po siti, tak to je sitovy disk, nikoli CD-rom a atribut se taky neshodi.
ve widlich se da atribut rucne zmenit napriklad ve vlastnostech souboru.
jak je videt na predchozim pripadu, tak readonly atribut muze nekterym
aplikacim (tedy jejich uzivatelum) zkomplikovat zivot. vetsinou se to
tyka prave databazi. treba pcfand vam taky vynada.
dekuji za pozornost
peca
ps: myzlim, ze pokud k tomu nema nikdo nic _opravdu_zasadniho_, tak
tento email nevyzaduje zadnou reakci.
None
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 22.10.2002 08:55:02
Ahoj,
mam problem a potrebuju radu odborniku:
Nedari se pripojit na IB-Server protokolem NETBEUI (p�es TCP/IP je to OK).
Pri pokusu o prihlaseni v IBConsole vypadne hlaska "Cannot attach to
password database".
Pritom protokol samotny funguje (napr. lze kopirovat soubory), i diagnostika
v IBConsole jej oznaci jako funkcni (passed). Vypada to, ze po testu v
diagnostice se v InterBase.log objev� zpr�va: "WNET/wnet_error: ReadFile
end-of-file errno = 109".
Server ma OS Windows 2000 Server. Nevim, jestli to muze nejak souviset s
tim, ze byl na server nainstalov�n domenovy radic.
predem dekuji za pomoc
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
Tel: 511096, 522889, 524795
Mob: 0602592948, 0603833124
ICQ: 47636291
Nefunguje pripojeni k IB pres NETBUI
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 22.10.2002 09:05:20
Omlouvam se za prispevek bez predmetu
Ahoj,
mam problem a potrebuju radu odborniku:
Nedari se pripojit na IB-Server protokolem NETBEUI (p�es TCP/IP je to OK).
Pri pokusu o prihlaseni v IBConsole vypadne hlaska "Cannot attach to
password database".
Pritom protokol samotny funguje (napr. lze kopirovat soubory), i diagnostika
v IBConsole jej oznaci jako funkcni (passed). Vypada to, ze po testu v
diagnostice se v InterBase.log objev� zpr�va: "WNET/wnet_error: ReadFile
end-of-file errno = 109".
Server ma OS Windows 2000 Server. Nevim, jestli to muze nejak souviset s
tim, ze byl na server nainstalov�n domenovy radic.
predem dekuji za pomoc
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
Tel: 511096, 522889, 524795
Mob: 0602592948, 0603833124
ICQ: 47636291