Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Disable tlacitko start
[*] Petr Varga <djvar(zv)post(tec)cz> - 1.7.2002 15:51:34
1.
Potreboval bych vedet jak mam znemoznit stisk tlacitka start v Win 98. Nevite nahodou nekdo?
2.
Mam takovy ukol.. Musim umistit aplikaci do win98, aby se spustila jeste pred samotnym explorerem... a pokud aplikace nerekne "ano" tak se ani explorer nespusti... tedy bude na obrazovce i v spravci uloh videt jen ma aplikace..
Nevite nekdo?
Za pripadne odpovedi predem dekuji.. Petr
----
Open Air Techno festival - SVOJSICE 2002
Svetova techno spicka v sobotu 13.7.
Areal Svojsice u Pardubic
Vice na www.svojsice(tec)cz
Dynamicky DATASET
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.7.2002 16:02:52
On 1 Jul 2002 at 14:05, Kalus Jozef Ing. wrote:
> Ahoj,
>
> > je opravdu nutne nacist celou stromovou strukturu? Proc nenacist pouze
> > prvni uroven a dalsi nacist az na zadost uzivatele, tedy pri rozbaleni
> > uzlu?
> ano islo by to aj tak, ale ked je pomalsia linka k serveru, je lepsie
> si radsej pockat chvilu na zaciatku a potom robit uz rychlo a bez
> zdrzania.
*****To zalezi na konkretni uloze. Pokud tam mas tricet polozek tak
je opravdu mozna lepsi to nacist na zacatku, ale pokud o povaze dat
nic nevis, tak sosnuti na zacatku muze trivat i hodiny a to uzivatele
sice potesi (utece na kafe), ale jeho nadrizeneho jiste uz nikoliv.
> > Casto totiz uzivatel vleze jen do jednoho uzlu, ktery
> > pripadne dal rozbaluje a je zbytecne drahe nacitat i to, co v zivote
> > nechce videt a ani neuvidi.
> >
> to mi je jasne aj koli tomu, ze to bude filtrovane podla pristupovych
> prav.
*****Preci nebudes zobrazovat data, na ktera uzivatel nema pravo
(mysleno jako ze bys zobrazoval toto je hidden adresar, tak na to
nesahej). To bych nechal hezky lezet na serveru, zvlaste rikas-li, ze
je pomala lajna.
> > dalsi informace. Nechej si nacist prvni uroven a vytvor vsechny uzly
> > ve strome v teto urovni a ke kazdemu dej ukazatel na vytvoreny typ
> > (TTreeNode.Data).
> to myslis, ze si tam dam to svoje ID ku ktoremu ten Node patri?
*****V podstate tak. Napr.:
PNodeData = ^TNodeData;
TNodeData = record
ID: int64;
HasBeenChildRead: Boolean;
...zde pripadne dalsi data
end;
naselektujes prvni uroven a pri vytvareni node:
var
P: PNodeData;
tn: TTreeNode;
...
for data v selectu:
New (P);
P.ID := DataSet.FieldByName ('ID').AsInteger;
P.HasBeenChildRead := False;
tn := TreeView.Items.Add (DataSet.FieldByName ('ID').AsString);
tn.Data := P;
...
No a OnExpanding toho TreeView zjistis ID, dotahnes k tomu potomky
(pokud jsi tak jiz neudelal - to si muzes hlidat napr. prave v tom
recordu jako v uvadenem priklade):
if not PNodeData (TreeNode.Data).HasBeenChildRead then
begin
select ... where idparent = PNodeData (TreeNode.Data).ID;
a zase provadis:
New (P);
P.ID := DataSet.FieldByName ('ID').AsInteger;
P.HasBeenChildRead := False;
tn := TreeView.Items.Add (DataSet.FieldByName ('ID').AsString);
tn.Data := P;
end;
Pri ruseni node samozrejme musis zrusit i ta data:
Dispose (TreeNode.Data);
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
OT : Diamond Fire GL 1000.
[*] <Zdenek.Gala(zv)datis.cdrail(tec)cz> - 1.7.2002 16:15:12
Ahoj, omlouvam se za OT ale uz nevim kam bych se obratil. Mam v pocitaci
subj a nemuzu sehnat ovladac pro W2k. Prosel jsem snad uz vsechno,
samozrejme nejdriv stranky vyrobce. Nevite kam se obratit a nebo to nejak
obejit?
Dik, DZDZD.
Disable tlacitko start
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 1.7.2002 16:26:17
> 1.
tlacitko Start je okno, nemel by byt problem ho
najit (zjistit jeho handle) a dizejblovat ho.
> 2.
to se tu uz parkrat omilalo. hledej v historii.
musis svoji aplikaci nahradit shell (napriklad
nejaky parametr ve win.ini nebo system.ini, to je
to co je nekde v historii ;) a potom z ni spustis
windows exploder kdy chces/potrebujes.
peca
PDF export
[*] Michal <delphi-konference(zv)bcpraha(tec)com> - 1.7.2002 16:44:03
Ahoj vsem,
Chtel bych udelat PDF report a tak bych se rad zeptal, co byste mi
doporucili za komponentu.
Zkousel jsem powerPDF, ketry je zadarmo, ale nevim jak vytisknout
stavajici QuickReport do pdf. Nevedel by nekdo jak nejlepe tisknout QR
do PDF.
Predem dekuji
Michal
PDU
[*] likeapear <likeapear(zv)centrum(tec)cz> - 1.7.2002 17:00:29
Nemate, nekdo rutinu pro prevod SMS z Textu do PDU a zpet? Snazil jsem to
naprogramovat podle dokumentace, ale asi uplne nerozumim te problematice a
nerad bych tim stravil nekolik dni :( Na internetu jsem nic moc nenasel...
dik likeapear
Dekomprimovanie pomocou ZlibEX
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 1.7.2002 17:18:05
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
Taky mi to nejakou dobu trvalo nez jsem na to prisel.
Nasledujici funkce jsou z nasi knihovny:
function NxCopyStream(ASource, ADestination: TStream; ACount: Longint): Longint;
var
N: Integer;
BufSize: Longint;
Buffer: PChar;
begin
Result := 0;
BufSize := MinBufSize;
Buffer := AllocMem(BufSize);
try
repeat
// budeme cist jen zbytek, pokud je potreba
if (ACount > 0) and (ACount < BufSize) then N := ACount else N := BufSize;
// nacteme do bufferu a ulozime do vystupniho streamu
N := ASource.Read(Buffer^, N);
ADestination.Write(Buffer^, N);
Inc(Result, N);
if ACount > 0 then begin
// nemame kopirovat vice, koncime
if ACount = N then Break;
Dec(ACount, N);
end;
// neni vice dat na vstupu, koncime
if N < BufSize then Break;
// pokud zbyva mene dat nez je aktualni buffer, nezvetsujeme buffer
if (ACount > 0) and (ACount < BufSize) then Continue;
if BufSize < MaxBufSize then begin
// zvetsujeme nasobkove buffer kvuli optimalizaci
BufSize := BufSize shl 2;
if (ACount > 0) and (ACount < BufSize) then BufSize := ACount;
ReallocMem(Buffer, BufSize);
end;
until False;
finally
FreeMem(Buffer, BufSize);
end;
end;
function NxCompressStream(ASource, ADestination: TStream; ACount: Longint;
ACompressionLevel: Integer): Longint;
var
mZStream: TZCompressionStream;
begin
mZStream := TZCompressionStream.Create(ADestination, ConvertZCompressionLevel(ACompressionLevel));
try
Result := NxCopyStream(ASource, mZStream, ACount);
finally
mZStream.Free;
end;
end;
function NxDecompressStream(ASource, ADestination: TStream; ACount: Longint): Longint;
var
mZStream: TZDecompressionStream;
begin
mZStream := TZDecompressionStream.Create(ASource);
try
Result := NxCopyStream(mZStream, ADestination, ACount);
finally
mZStream.Free;
end;
end;
Martin Schayna
MSSQL a trigger
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 1.7.2002 17:20:02
Jojo uz jsem to nasel. A nejde aspon nejak ziskat do triggeru jmeno uzivatele pod jakym je ten klient prihlasen do NT stejne jako polozka ntdomainuser v profileru (nemam na mysli ted jmeno uzivatele pod kterym je nalogovan do DB)?
Koukal jsme do helpu ale tam nic neni a to se mi nezda, kdyz to umi profiler tak se to da od nekud vytahnout prece.
dik
Milos
-----Original Message-----
From: Jaroslav Bucek [mailto:bucek(zv)eskon(tec)cz]
Sent: Monday, July 01, 2002 3:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: MSSQL a trigger
Ahoj. Podle me se to v triggeru udelat neda. Jedine, ze by ty prikazy
posilala nejaka aplikace a ta by ti zaroven tyto udaje poslala. Pokud se ti
jedna o kratkodobou kontrolu, tak pouzij profiler. Samozrejme bych ho asi
nenechaval "nazivo" - asi by to uzivatelum nejelo moc rychle ;)
Jarda
----- Original Message -----
From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 01, 2002 3:10 PM
Subject: MSSQL a trigger
Cau
potrebuji udelat na mssql pro tabulku trigger ktery bude logovat do dalsi
tabulky nejlepe cele SQL prikazy ale nevim jak - (pripadne jenom jestli jde
o update insert delete to bych jeste zvladl). Taky potrebuji zjistit a
logovat do me tabulky uzivatele (jmeno pc nebo IP adresa ze ktere byl SQL
prikaz odeslan).
Milos
MSSQL a trigger
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 1.7.2002 17:31:10
To jde fci suser_sname() - vraci jemno uzivatele v operacnim systemu.
Pavel
> -----Original Message-----
> From: Sula Milos [mailto:milos.sula(zv)oku-su(tec)cz]
> Sent: Monday, July 01, 2002 5:20 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: MSSQL a trigger
>
>
> Jojo uz jsem to nasel. A nejde aspon nejak ziskat do triggeru
> jmeno uzivatele pod jakym je ten klient prihlasen do NT
> stejne jako polozka ntdomainuser v profileru (nemam na mysli
> ted jmeno uzivatele pod kterym je nalogovan do DB)?
> Koukal jsme do helpu ale tam nic neni a to se mi nezda, kdyz
> to umi profiler tak se to da od nekud vytahnout prece.
> dik
>
> Milos
>
>
> -----Original Message-----
> From: Jaroslav Bucek [mailto:bucek(zv)eskon(tec)cz]
> Sent: Monday, July 01, 2002 3:25 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: MSSQL a trigger
>
>
> Ahoj. Podle me se to v triggeru udelat neda. Jedine, ze by ty prikazy
> posilala nejaka aplikace a ta by ti zaroven tyto udaje
> poslala. Pokud se ti
> jedna o kratkodobou kontrolu, tak pouzij profiler. Samozrejme
> bych ho asi
> nenechaval "nazivo" - asi by to uzivatelum nejelo moc rychle ;)
>
> Jarda
> ----- Original Message -----
> From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, July 01, 2002 3:10 PM
> Subject: MSSQL a trigger
>
>
> Cau
>
> potrebuji udelat na mssql pro tabulku trigger ktery bude
> logovat do dalsi
> tabulky nejlepe cele SQL prikazy ale nevim jak - (pripadne
> jenom jestli jde
> o update insert delete to bych jeste zvladl). Taky potrebuji zjistit a
> logovat do me tabulky uzivatele (jmeno pc nebo IP adresa ze
> ktere byl SQL
> prikaz odeslan).
>
> Milos
>
Disable tlacitko start
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 1.7.2002 20:49:54
Zdravim
1)
Tlacitko start je okno jako kazde jine, ma svuj handle a pres nej s nim
muzes delat co chces. Uz ale nevim, jaky string mas hledat (MyHandle :=
FindWindow('caption'....), snad to jeste nekdo napise.
2)
V system.ini je polozka shell. Do ni je prirazena hodnota explorer.exe.
Misto ni so dej vlastni program. Pokud program usoudi, ze je potreba spustit
explorer jako shell, MUSIS tuto hodnotu prepsat zpatky na explorer.exe
(jinak se explorer nespusti jako shell ale jako normalni okno se souborama).
Po spusteni to zase prepis na svuj program a ten muzes ukoncit.
Je to sice ponekud krkolomne, ale lepsi nez nejak disablovat uz spusteny
explorer, coz je IMHO neresitelne, jelikoz je tolik moznosti jak tu ochranu
obejit, ze si i mene zkuseny uzivatel najde okliku a tvoje "ochrana" bude
prolomena.
Pokud to chces mit bezpecne, tak nezapomen na to, ze staci nabootovat do
dosu a system.ini prepsat na explorer.exe rucne. Nejlepsi reseni by bylo mit
tam 2K nebo XP, ale to je zrejme bezpredmetne.
Zdeenk
----- Original Message -----
> 1.
> Potreboval bych vedet jak mam znemoznit stisk tlacitka start v Win 98.
> Nevite nahodou nekdo?
> 2.
> Mam takovy ukol.. Musim umistit aplikaci do win98, aby se spustila jeste
> pred samotnym explorerem... a pokud aplikace nerekne "ano" tak se ani
> explorer nespusti... tedy bude na obrazovce i v spravci uloh videt jen ma
> aplikace..
OT: unUPX
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 1.7.2002 22:30:25
Zdravim
Existuje nejaky program, ktery mi zjisti, cim je EXE zapakovany (UPX nebo
podobne pakovace) a rozpakuje ho, abych mel k dispozici normalni, puvodni
EXE?
Diky
Zdenek
OT unUPX
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.7.2002 23:27:39
From: "Zdenek Stepanek" <zstepanek(zv)atlas(tec)cz>
> Existuje nejaky program, ktery mi zjisti, cim je EXE zapakovany (UPX nebo
> podobne pakovace) a rozpakuje ho, abych mel k dispozici normalni, puvodni
Cim presne to nevim, vsechny tyhle soubory osobne povazuji za poskozene EXE
soubory (urcene ke smazani). Zjistit ze se nejedna o korektni EXE soubor je
pomerne snadne, protoze minimalne CODE sekce nema Executable flag a vsechny
ostatni maji taktez zcela nesmyslne flagy ;-)
Petr Vones
OT Diamond Fire GL 1000.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.7.2002 23:28:55
From: <Zdenek.Gala(zv)datis.cdrail(tec)cz>
> Ahoj, omlouvam se za OT ale uz nevim kam bych se obratil. Mam v pocitaci
> subj a nemuzu sehnat ovladac pro W2k. Prosel jsem snad uz vsechno,
> samozrejme nejdriv stranky vyrobce. Nevite kam se obratit a nebo to nejak
> obejit?
Jednoduche reseni - zahod to. Ta karta dneska neni zadny zazrak a drivery pro
to uz nikdo psat nebude.
Petr Vones
'pomale' treeview...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.7.2002 23:32:51
From: <cz574068(zv)tiscali(tec)cz>
> narazil jsem na problem, kdy mam komponentu treeview svazanou s pagecontrol.
> Co NOD to stranka (v pagecontrol), na ktere jsou nejake jine komponenty
> (label,edit). Zrada je v tom, ze pri rychlejsim posouvani v treeview, se
> zacne cela operace znacne vlect. Mizi focus a prekreslovani v pagecontrol
> se DESNE vlece.. Clovek zasne, co to provede na 1 GHz Athlonu..
> (delam v D6 pro WIN, ale pod CLX)
> Dokaze nekdo poradit ?
Potiz je v tom, ze pouzivas zcela nevhodnou technologii (framework) na dane
platforme. Strucne receno, CLX (Qt) na Windows je strasny paskvil, coz si sam
uz zjistil. Takze to prepis do VCL a budes mit po problemech. Obecne je pro
velky pocet polozek v treeview lepsi vytvorit pouze prvni uroven a dalsi
vytvaret az pri pozadavku na rozbaleni daneho uzlu. Nicmene v tomhle asi neni
presne tvuj problem.
Petr Vones
MDI Child formul�� se schov�v� za toolbar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.7.2002 23:34:00
From: "IT-BOSS" <it-boss(zv)seznam(tec)cz>
> V hlavn�m formul��i m�m komponentu ControlBar a v n� dva toolbary. Kdy�
> otev�u Child formul�� a maximalizuji jej, tak se jeho horn� ��st schov�
> pod ten Controlbar.
Patrne jsi zapomenl nastavit u toho CoolBaru Align na alTop.
Petr Vones
OT unUPX
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 2.7.2002 06:43:35
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
>
> From: "Zdenek Stepanek" <zstepanek(zv)atlas(tec)cz>
> > Existuje nejaky program, ktery mi zjisti, cim je EXE zapakovany (UPX
> nebo
> > podobne pakovace) a rozpakuje ho, abych mel k dispozici normalni,
> puvodni
>
> Cim presne to nevim, vsechny tyhle soubory osobne povazuji za poskozene
> EXE
> soubory (urcene ke smazani). Zjistit ze se nejedna o korektni EXE soubor
> je
> pomerne snadne, protoze minimalne CODE sekce nema Executable flag a
> vsechny
> ostatni maji taktez zcela nesmyslne flagy ;-)
>
>
Napr. UPX komprese jde poznat, ze soubor ma, pokud ho otevres v hexa
editoru, blizko zacatku napsano UPX c. verze. Navratit do puvodniho stavu
lze pomoci UPX -d jmeno.exe. "Chybi" mu pouze relocation, coz uz stejne nic
nepouziva.
Podle hlavicky jdou vetsinou poznat i ostatni kompresory, jako Petite a
existuji i programy na detekci a dekompresi napr. ASPacku na strankach
zacinajicich exetools...
Ja vim, ze pouzivani exe kompresoru je nekorektni atd., ale zatim jsem se
nikdy nesetkal s problemem. To, ze to je vice pametove narocne (z hlediska
vice spusteni atd.), je myslim dnes jedno.
Ober
Listovani v RxDBGrid
[*] Zapl�k <zaplik(zv)volny(tec)cz> - 2.7.2002 07:03:40
Zdravicko
Mam DBF tabulku a zobrazuji ji v RxDBGrid-u. pokud dabulka nen� filtrovana
tak je vse OK. Pokud ale tabulku vyfiltruji a budu rychle listovat pomoci
PageDown nebo PageUp Tak vyskoci hlaska "Table Is Bussy". Pokud listuji
pomalu tak se nic nestane. Dela to na vsech WIN. Delphi mi po te hlasce
skoci na nasledujici kod v
RXDBCtrl.pas:
procedure TRxDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
...
...
...
...
OnKeyDown := nil;
try
inherited KeyDown(Key, Shift); <<<------ Tady skonci.
finally
OnKeyDown := KeyDownEvent;
end;
Nevite nekdo co s tim?
Dik
Zaplik
D5, RX 2.75
MSSQL a trigger
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 2.7.2002 07:16:50
No me tahle funkce vraci sa tj. jmeno pod kterym jsem nalogovan do DB ne jmeno uzivatele v OS :((
-----Original Message-----
From: Lstiburek Pavel [mailto:Lstiburek(zv)ceb(tec)cz]
Sent: Monday, July 01, 2002 5:31 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: MSSQL a trigger
To jde fci suser_sname() - vraci jemno uzivatele v operacnim systemu.
Pavel
> -----Original Message-----
> From: Sula Milos [mailto:milos.sula(zv)oku-su(tec)cz]
> Sent: Monday, July 01, 2002 5:20 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: MSSQL a trigger
>
>
> Jojo uz jsem to nasel. A nejde aspon nejak ziskat do triggeru
> jmeno uzivatele pod jakym je ten klient prihlasen do NT
> stejne jako polozka ntdomainuser v profileru (nemam na mysli
> ted jmeno uzivatele pod kterym je nalogovan do DB)?
> Koukal jsme do helpu ale tam nic neni a to se mi nezda, kdyz
> to umi profiler tak se to da od nekud vytahnout prece.
> dik
>
> Milos
>
>
OT Diamond Fire GL 1000.
[*] <Zdenek.Gala(zv)datis.cdrail(tec)cz> - 2.7.2002 07:34:34
Ahoj,
taky me to napadlo. Kdysi to byla spicka, no ale cert to vem. Jde o to, ze
uz mam zastaraly stroj, ktery mi ale naprosto dostacuje na provozavani
Delphi, Corel a par drobnych aplikaci. No a dnes novou kartu PCI s
ovladacema pro W2k nesezenu. Jedine AGP. Jenze AGP nemam na desce. No a z
toho vyplyva, ze bych mysel vymenit cely streva pocitace. Tak mi zbyva
jedine zustat u nestabilnich W98, nebo prestavet pocitac. I tak dekuji za
radu. DZDZD.
"Petr Vones"
<pvones(zv)mbox.vol Komu: <delphi-l(zv)clexpert(tec)cz>
(tec)cz> Kopie:
Odeslal: P�edm�t: Re: OT Diamond Fire GL 1000.
delphi-l-owner(zv)c
lexpert(tec)cz
07.01.02 23:28
Odpov�zte pros�m
u�ivateli
delphi-l
From: <Zdenek.Gala(zv)datis.cdrail(tec)cz>
> Ahoj, omlouvam se za OT ale uz nevim kam bych se obratil. Mam v pocitaci
> subj a nemuzu sehnat ovladac pro W2k. Prosel jsem snad uz vsechno,
> samozrejme nejdriv stranky vyrobce. Nevite kam se obratit a nebo to nejak
> obejit?
Jednoduche reseni - zahod to. Ta karta dneska neni zadny zazrak a drivery
pro
to uz nikdo psat nebude.
Petr Vones
Diamond Fire GL 1000.
[*] Jaro <jaroslav.hanusek(zv)nou.sk> - 2.7.2002 08:48:20
Ked vsetky nadeje zlyhaju, skus este www.driversguide.com,
user:drivers,password:all, ak
to nenajdes tam, tak asi uz nikde.
Jaro.
> Ahoj, omlouvam se za OT ale uz nevim kam bych se obratil. Mam v pocitaci
> subj a nemuzu sehnat ovladac pro W2k. Prosel jsem snad uz vsechno,
> samozrejme nejdriv stranky vyrobce. Nevite kam se obratit a nebo to nejak
> obejit?
> Dik, DZDZD.
>
>
OT: Konference o Lotus Notes
[*] martin.falta(zv)obi.de - 2.7.2002 08:56:12
This is a multi-part message in MIME format.
Omlouvam se za OT, ale nevite nekdo o nejake konferenci o Lotus Notes v
cestine nebo slovenstine?
Predem dekuji.
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.
MSSQL a trigger
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.7.2002 08:59:38
On 2 Jul 2002 at 7:16, Sula Milos wrote:
> No me tahle funkce vraci sa tj. jmeno pod kterym jsem nalogovan do DB
> ne jmeno uzivatele v OS :((
****To zalezi na tom, jak se prihlasujes. Pokud pomoc trusted mode,
pak ziskas username prihlaseneho uzviatele do OS, jinak uzivatelske
jmeno v DB. K cemu potrebujes jmeno zrovna toho, kdo je prihlasen do
OS? Dulezite je snad jmeno prihlaseneho k DB.
Slavek
> To jde fci suser_sname() - vraci jemno uzivatele v operacnim systemu.
>
> Pavel
>
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
DELPHI3 a tisk na prednastavenou tiskarnu
[*] Roman =?ISO-8859-1?Q?Lo=B9=BB=E1k?= <lostak(zv)yssentools(tec)cz> - 2.7.2002 08:59:32
Dobry den, potreboval bych poradit jak v DELPHI3 pri tisku REPORTU nastavim na predvolene tiskarne konkretni zasobnik papiru. Dik
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
MSSQL a trigger
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 2.7.2002 09:33:07
Z duvodu kontroly kdo co smazal. Nas DB program totiz pouziva stejneho DB uzivatele pro vsechny (pouzivame SQL ucty, ne windows nt autentizaci).
Milos
-----Original Message-----
From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
Sent: Tuesday, July 02, 2002 9:00 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: MSSQL a trigger
On 2 Jul 2002 at 7:16, Sula Milos wrote:
> No me tahle funkce vraci sa tj. jmeno pod kterym jsem nalogovan do DB
> ne jmeno uzivatele v OS :((
****To zalezi na tom, jak se prihlasujes. Pokud pomoc trusted mode,
pak ziskas username prihlaseneho uzviatele do OS, jinak uzivatelske
jmeno v DB. K cemu potrebujes jmeno zrovna toho, kdo je prihlasen do
OS? Dulezite je snad jmeno prihlaseneho k DB.
Slavek
> To jde fci suser_sname() - vraci jemno uzivatele v operacnim systemu.
>
> Pavel
>
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
MSSQL a trigger
[*] Z�le��k Tom� <tomas.zalesak(zv)lcs(tec)cz> - 2.7.2002 09:49:57
Pokud ti nestaci systemove funkce SUSER_SNAME(), HOST_NAME()
,PROGRAM_NAME() a NT_CLIENT(), tak zkus:
SELECT
login_time, hostname, program_name,
nt_domain, nt_username, net_address, loginame
FROM master.dbo.sysprocesses
WHERE spid=(zv)(zv)SPID
Pozn.: funguje na MSSQL7 i MSSQL2000
Tomas Zalesak
> -----Original Message-----
> From: Sula Milos [mailto:milos.sula(zv)oku-su(tec)cz]
> Sent: Tuesday, July 02, 2002 7:17 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: MSSQL a trigger
>
>
> No me tahle funkce vraci sa tj. jmeno pod kterym jsem
> nalogovan do DB ne jmeno uzivatele v OS :((
>
> -----Original Message-----
> From: Lstiburek Pavel [mailto:Lstiburek(zv)ceb(tec)cz]
> Sent: Monday, July 01, 2002 5:31 PM
> To: 'delphi-l(zv)clexpert(tec)cz'
> Subject: RE: MSSQL a trigger
>
>
> To jde fci suser_sname() - vraci jemno uzivatele v operacnim systemu.
>
> Pavel
>
> > -----Original Message-----
> > From: Sula Milos [mailto:milos.sula(zv)oku-su(tec)cz]
> > Sent: Monday, July 01, 2002 5:20 PM
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: RE: MSSQL a trigger
> >
> >
> > Jojo uz jsem to nasel. A nejde aspon nejak ziskat do triggeru
> > jmeno uzivatele pod jakym je ten klient prihlasen do NT
> > stejne jako polozka ntdomainuser v profileru (nemam na mysli
> > ted jmeno uzivatele pod kterym je nalogovan do DB)?
> > Koukal jsme do helpu ale tam nic neni a to se mi nezda, kdyz
> > to umi profiler tak se to da od nekud vytahnout prece.
> > dik
> >
> > Milos
MSSQL a trigger
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 2.7.2002 10:15:43
jo DIIK nt_username sloupec to je ono ikdyz nepouziji NT autentizaci tak mi to vrati NT clienta.
Milos
-----Original Message-----
From: Z�le��k Tom� [mailto:tomas.zalesak(zv)lcs(tec)cz]
Sent: Tuesday, July 02, 2002 9:50 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: MSSQL a trigger
Pokud ti nestaci systemove funkce SUSER_SNAME(), HOST_NAME()
,PROGRAM_NAME() a NT_CLIENT(), tak zkus:
SELECT
login_time, hostname, program_name,
nt_domain, nt_username, net_address, loginame
FROM master.dbo.sysprocesses
WHERE spid=(zv)(zv)SPID
Pozn.: funguje na MSSQL7 i MSSQL2000
Tomas Zalesak
MSSQL a trigger
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.7.2002 10:20:14
On 2 Jul 2002 at 9:33, Sula Milos wrote:
> Z duvodu kontroly kdo co smazal. Nas DB program totiz pouziva stejneho
> DB uzivatele pro vsechny (pouzivame SQL ucty, ne windows nt
> autentizaci).
*****Ehm, a jak zjistis, kdo ti co smazal, kdyz ty radky v tabulce
proste nejsou? ;-) Problem spise vidim v tom, ze vas program pouziva
stejneho DB uzivatele (coz je dira zevnitr do systemu jako hrom!).
Proc neni vytvorena jedna (ci vice) roli, ktere das prava na ulozene
procedury a pohledy? Uzivatele se pak budou muset hlasit pod svym
jmenem (ano, je to opruz, ale bezpecnost na prvnim miste) a napr. v
triggru after delete krome jineho zapises do specialni tabulky
uzivatel ten a ten (suser_sname()) smazal tyto radky (samozrejme jsou
i jine moznosti).
Pokud trvas na uvedene dire a uzivatele se hlasi jedinou aplikaci,
pak ona aplikace muze tvorit sama log, jake ulozene procedury spousti
a s jakymi parametry, atd, atd...
Slavek
> > No me tahle funkce vraci sa tj. jmeno pod kterym jsem nalogovan do
> > DB ne jmeno uzivatele v OS :((
> ****To zalezi na tom, jak se prihlasujes. Pokud pomoc trusted mode,
> pak ziskas username prihlaseneho uzviatele do OS, jinak uzivatelske
> jmeno v DB. K cemu potrebujes jmeno zrovna toho, kdo je prihlasen do
> OS? Dulezite je snad jmeno prihlaseneho k DB.
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
MSSQL a trigger
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 2.7.2002 10:33:23
Jednoduse mam kopii tabulky rozsirenou o uzivatele, datum a zda se jednalo o update nebo delete atd a pak ze systemove inserted tabulky v triggeru ulozim zaznamy do te kopie a tak si udrzuji historii. Uz mi to vsechno funguje.
Milos
-----Original Message-----
From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
Sent: Tuesday, July 02, 2002 10:20 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: MSSQL a trigger
On 2 Jul 2002 at 9:33, Sula Milos wrote:
> Z duvodu kontroly kdo co smazal. Nas DB program totiz pouziva stejneho
> DB uzivatele pro vsechny (pouzivame SQL ucty, ne windows nt
> autentizaci).
*****Ehm, a jak zjistis, kdo ti co smazal, kdyz ty radky v tabulce
proste nejsou? ;-) Problem spise vidim v tom, ze vas program pouziva
stejneho DB uzivatele (coz je dira zevnitr do systemu jako hrom!).
Proc neni vytvorena jedna (ci vice) roli, ktere das prava na ulozene
procedury a pohledy? Uzivatele se pak budou muset hlasit pod svym
jmenem (ano, je to opruz, ale bezpecnost na prvnim miste) a napr. v
triggru after delete krome jineho zapises do specialni tabulky
uzivatel ten a ten (suser_sname()) smazal tyto radky (samozrejme jsou
i jine moznosti).
Pokud trvas na uvedene dire a uzivatele se hlasi jedinou aplikaci,
pak ona aplikace muze tvorit sama log, jake ulozene procedury spousti
a s jakymi parametry, atd, atd...
Slavek
Dekomprimovanie pomocou ZlibEX - vyriestene
[*] Roland Turcan <rolo(zv)sedas.sk> - 2.7.2002 10:36:50
Takze priklad pre komprimaciu a dekomprimaciu pomocou ZLibEx.
var
SS:TFileStream;
DS:TFileStream;
CS:TZCompressionStream;
DCS:TZDecompressionStream;
TXT:PChar;
begin
SS:=TFileStream.Create('com.pas',fmOpenRead);
DS:=TFileStream.Create('compressed.zlib',fmCreate);
CS:=TZCompressionStream.Create(DS,zcMax);
try try
CS.CopyFrom(SS,SS.Size);
except
raise;
end;
finally
begin
CS.Free;
DS.free;
SS.Free;
end; end;
SS:=TFileStream.Create('compressed.zlib',fmOpenRead);
DS:=TFileStream.Create('uncompressed.pas',fmCreate);
DCS:=TZDecompressionStream.Create(SS);
try try
DS.CopyFrom(DCS,DCS.Size);
except
raise;
end;
finally
begin
DCS.Free;
DS.free;
SS.Free;
end; end;
Ukonceni editace bunky ve StringGridu
[*] <ice3m(zv)atlas(tec)cz> - 2.7.2002 11:15:19
Hezky den preju ...
Mohl by mi prosim nekdo poradit, jak nejlepe ukoncit editaci bunky ve StringGridu uzivam TAdvColumnGrid)? Tim mam na mysli situaci, kdy uzivatel prave edituje jednu z bunek StringGridu a najednou napr. klikne pravou mysi na jinou bunku. V te chvili potrebuji regulerne ukoncit editaci predchozi bunky tak, aby se editovana bunka nachazela ve stejnem stavu jako po stisku klavesy Enter. Zatim jsem to resil prave simulaci stisku Enter, ale myslim ze existuje mnohem lepsi reseni.
Tom
XML parser (was: Ceckovy zdrojak do Delphi)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 2.7.2002 11:32:12
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> > > zbytecnosti, podivej se po jiz existujicich komponentach, napr. sem:
> > > http://www.destructor.de/xmlparser/index.htm
> > Pokud vim, tak v tomhle parseru jsou chyby. Pouziti MS XML je podle
> > mne asi nejlepsi reseni.
> ****No, na zakladni veci pouzitelny je, nektere chyby byly
> odstraneny, ale z meho textu snad bylo zrejme, ze doporucuji sahnout
> po MS XML, ktere taktez povazuji za soucasne situace jako
> neschudnejsi. :-) Ostatne xml parser z destructoru neumi treba
> provadet validitu dokumentu dle DTD ci XSL, coz povazuji za hodne
> silny nedostatek.
Pouzivame XDOM, http://www.philo.de/xml/
Na chyby jsme zatim nenarazili, a pokud ano tak se nakonec ukazaly
jako presne dodrzeni standardu (na rozdil od MS XML). Jinak ale
musim MS XML pochvalit, kdybychom nemuseli podporovat i Linux,
sahli bychom pravdepodobne po nem.
Martin Schayna
QReport - QRStringsBand
[*] Robert Suska <delphi(zv)korak.sk> - 2.7.2002 12:30:45
Ahojte!
Potrebujem urobit report ale bez pripojenia na dataset mam napr. stream v
ktorom su ulozene data ktore potrebujem hodit do reportu a vytlacit. To by
sa dalo len ako to urobim ked tych dat tam bude vela ze to bude chciet
preliezt na druhu stranu. A este jedna otazka ako sa da vyuzit komponenta
QRStringsBand som pozeral to je ako StringList alebo co len som s tym este
nepracoval a potreboval by som trosku nakopnut kde by sa dali zistit o tom
veci. Alebo ak ma niekto osobne skusenosti tak by som to velmi rad uvital.
Dakujem
Dakujem
Robo
MSSQL a trigger
[*] Kr�l Jirka <admin(zv)printo(tec)cz> - 2.7.2002 12:30:45
> Z duvodu kontroly kdo co smazal. Nas DB program totiz pouziva stejneho
> DB uzivatele pro vsechny (pouzivame SQL ucty, ne windows nt
> autentizaci).
Toto je presne duvod pro implementaci vicevrstve architektury aplikace. Apps komunikuji s nejakou kontrolne-ridici vrstvou, ktera pak muze kontrolovat a treba logovat vse co se s daty deje.
J.
MSSQL a trigger
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.7.2002 12:42:44
On 2 Jul 2002 at 12:30, Kr�l Jirka wrote:
> > Z duvodu kontroly kdo co smazal. Nas DB program totiz pouziva
> > stejneho DB uzivatele pro vsechny (pouzivame SQL ucty, ne windows nt
> > autentizaci).
> Toto je presne duvod pro implementaci vicevrstve architektury
> aplikace.
*****No, zrovna kvuli tomuhle zavadet dalsi vrstvu, kdyz staci zavest
bezpecnostni politiku, mi pripadne dost divoke. ;-)
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
DB system (DAT,IX)
[*] <ac(zv)wo(tec)cz> - 2.7.2002 13:28:48
Mohlo by jit o BTree Filer www.turbopower.com. Ten ma implicitne tyhle pripony, ale neuchovava v souborech strukturu tabulek, takze bez jeji znalosti ... :((
From: "campulka" <campulka(zv)czas(tec)cz>
Subject: OT: DB system (DAT,IX)> nevite nekdo jaky databazovy system pouziva pripony .DAT a .IX ?
> Aplikace, ktera tyto soubory vyuziva je napsana v Delphi, ale nemam zdrojaky
> abych se podival co to pouziva za db system nebo komponenty...
QRCompEd was compiled with a different version...
[*] Robert Suska <delphi(zv)korak.sk> - 2.7.2002 13:47:06
Ahojte!
No takze na toto ma upozornovalo kopec ludi odtialto a ja som to ignoroval a
prave som narazil na poriadny problem. Potrebujem rekompilovat vcl ale nemam
zdrojak jednej unity, takze som podla vsetkeho skocnil. :( No takze co som
mal urobit hned na zaciatku tak musim urobit teraz. Prosim preto o radu co
bude lepsie urobit. Takze:
1) Vytvorit uplne novy unit do ktoreho dam napr. triedu
type TRobkovComboBox= class(TCustomComboBox)
:)
end;
a teraz co??? mam chytit oznacit vsetky procedury a funckie ktore patria ku
classu TCustomComboBox a vlozit ich do mojej unity a len poprepisovat vsetky
hlavicky procedur a funkcii
procedure TCustomComboBox.CojaviemCo(asi: Boolean);
na
procedure TRobkovComboBox.CojaviemCo(asi: Boolean);
a je to? a popripade doplnit svoje vlastne properties??? a este nieco ako
takuto vec prerobim na komponentu ktora sa da vlozit na listu komponent? To
by vyriesilo uplne moj problem. Myslim...
Dakujem pekne
Robo
Vytvoreni zpravy el. posty
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 2.7.2002 13:49:42
Ahoj vsichni!
Generuji a odesilam objednavku el. postou z programu nasledovne:
Var
TempString : array [0..699] of char;
PomString : string;
begin
PomString := 'mailto:adresa(zv)firma(tec)cz?subject=objedn�vka&body='+
'Produkt'+chr(9)+chr(9)+chr(9)+'obj. ks'+chr(13)+chr(10);
PomString := PomString+'UZWIN'+chr(9)+chr(9)+chr(9)+'
'+IntToStr(UZW_N.AsInteger)+chr(13)+chr(10);
PomString := PomString+ ... atd.
StrPCopy(TempString,PomString);
ShellExecute(0,Nil, TempString,Nil,Nil,SW_NORMAL);
end;
Postovni klient se mi rozjede, ale telo zpravy nerespektuje vlozene
tabelatory a CR+LF. Vklada se souvisly text. Nevite cim to a hlavne jak na
to, aby text objednavky v tele zpravy byl jako prosty text z nejjednodussim
formatovanim.
Diky
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit
Tel.: 069 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
Binarni nacitani a zapisovani souboru
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 2.7.2002 14:03:40
On 2 Jun 2002 at 1:06, jan cerny wrote:
> procedure TForm1.Button1Click(Sender: TObject);
> var
> f: file of Byte; // kvuli zjisteni velikosti souboru
> result : Longint;
> fin, fout: Tfilestream;
> size : integer;
> begin
> if Form1.OpenPictureDialog1.Execute then
> begin
> result := 0;
> fin := TFileStream.Create(OpenPictureDialog1.FileName,
> fmOpenRead or fmShareDenyNone);
Namisto tohoto pouzij radeji funkci GetFileSize
********
> AssignFile(f,
> OpenPictureDialog1.FileName); // \ Reset(f);
> // +- zjisteni size := FileSize(f);
> // / velikosti
********
> try
> fin.Seek(0, soFromBeginning);
> fin.Read(result,size);
Takhle to nejde. Longint ma velikost 4 bajty, takze kdyz do nej ctes
neco vetsiho, zbuchne to. Musis nejdriv nadeklarovat nejaky pointer,
ten alokovat, a teprve potom nacist. Pak ho nesmis zapomenout
uvolnit. Napriklad takto:
var
result: PByteArray;
...
GetMem(result, size);
fin.Read(result^, size);
...
fout.Write(result^, size);
...
FreeMem(result);
> finally
> fin.Free;
> end;
> fout := tfilestream.Create('test.gnx',fmCreate or
> fmShareDenyNone); try
> fout.seek(0, soFromBeginning);
> fout.Write(result,size);
> finally
> fout.Free;
> end;
> end;
> end;
Lepsi ale asi bude pouzit fout.CopyFrom(fin, size).
S pozdravem
Zbysek Hlinka
Vytvoreni zpravy el. posty
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 2.7.2002 14:10:12
> ShellExecute(0,Nil, TempString,Nil,Nil,SW_NORMAL);
Ve vygenerovane zprave je potreba neco jeste upravovat uzivatelem?
Ja pro odesilani cehokoli pouzivam TNMSMTP tridu a jsem moc spokojen.
Josef Cerny
********************************************
* Josef A. Cerny
* SW projects leader
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
*
* tel. : 069/661 33 33
* fax : 069/661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
Vytvoreni zpravy el. posty
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 2.7.2002 14:58:44
Pres ShellExecute vam to formatovani asi neprojde nebot netisknutelne znaky shell oreze. Nejspise budete muset pouzit MAPI funkce.
Milos
-----Original Message-----
From: Ing. Igor Vodi�ka [mailto:vodicka(zv)sagit(tec)cz]
Sent: Tuesday, July 02, 2002 1:50 PM
To: Delphi konference II
Subject: Vytvoreni zpravy el. posty
Ahoj vsichni!
Generuji a odesilam objednavku el. postou z programu nasledovne:
Var
TempString : array [0..699] of char;
PomString : string;
begin
PomString := 'mailto:adresa(zv)firma(tec)cz?subject=objedn�vka&body='+
'Produkt'+chr(9)+chr(9)+chr(9)+'obj. ks'+chr(13)+chr(10);
PomString := PomString+'UZWIN'+chr(9)+chr(9)+chr(9)+'
'+IntToStr(UZW_N.AsInteger)+chr(13)+chr(10);
PomString := PomString+ ... atd.
StrPCopy(TempString,PomString);
ShellExecute(0,Nil, TempString,Nil,Nil,SW_NORMAL);
end;
Postovni klient se mi rozjede, ale telo zpravy nerespektuje vlozene
tabelatory a CR+LF. Vklada se souvisly text. Nevite cim to a hlavne jak na
to, aby text objednavky v tele zpravy byl jako prosty text z nejjednodussim
formatovanim.
Diky
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit
Tel.: 069 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
QReport - QRStringsBand
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 2.7.2002 15:31:59
TQuickRep ma metodu OnNeadData, ve ktere si rika o dalsi data. Metoda vraci
True/False - konec uz zadna.
Potom je mozno brat jinak nez DB, ale pouze do QLabelu !,
Ostatni vymozenosti je mozno pouzivat bez omezeni.
Pavel
PS: Je to vhodne pouze pro jednoduche tisky.> From: Robert Suska [mailto:delphi(zv)korak.sk]
> Potrebujem urobit report ale bez pripojenia na dataset mam
> napr. stream v
> ktorom su ulozene data ktore potrebujem hodit do reportu a
> vytlacit. To by
> sa dalo len ako to urobim ked tych dat tam bude vela ze to bude chciet
> preliezt na druhu stranu. A este jedna otazka ako sa da
> vyuzit komponenta
> QRStringsBand som pozeral to je ako StringList alebo co len
> som s tym este
> nepracoval a potreboval by som trosku nakopnut kde by sa dali
> zistit o tom
> veci. Alebo ak ma niekto osobne skusenosti tak by som to
> velmi rad uvital.
> Dakujem
>
> Dakujem
>
> Robo
>
MSSQL a trigger
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 2.7.2002 15:31:15
> > > Z duvodu kontroly kdo co smazal. Nas DB program totiz pouziva
> > > stejneho DB uzivatele pro vsechny (pouzivame SQL ucty, ne windows
> > > nt autentizaci).
> > Toto je presne duvod pro implementaci vicevrstve architektury
> > aplikace.
> *****No, zrovna kvuli tomuhle zavadet dalsi vrstvu, kdyz staci zavest
> bezpecnostni politiku, mi pripadne dost divoke. ;-)
>
Ahoj,
souhlasim, ze logovani se na server pres ruzna jmena pro ruzne uzivatele je lepsi z
hlediska bezpecnosti nez pres jeden "tajny" login, ale reseni s tajnym loginem zase
umozni snadno pridavat/odebirat uzivatele aplikace. Pokud bude mit na SQL serveru
kazdy svuj login, znamena operace pridani uzivatele nebo uprava jeho opravneni
nutnost na SQL serveru provest zalozeni uzivatele a hlavne pregrantovat jeho prava,
a to neni jednoduche. Zvlast je li nekolik set tabulek, spousta ulozenych procedur,
navic prava k tabulkam se nekryji s pristupem k funkcim programu... V rade firem
navic nikdo ani netusi, ze tam maji SQL server a co to vubec je a tezko by to nekdo
delal.
David Lebeda
QReport - QRStringsBand
[*] Robert Suska <delphi(zv)korak.sk> - 2.7.2002 15:37:13
da sa to vyuzit ked chcem tlacit napr. takto nieco?
------------ toto je
StringsBand -------------------------------------
* QRLabel QRLabel QRLabel QRLabel QRLabel QRLabel *
----------------------------------------------------------------------------
-
> TQuickRep ma metodu OnNeadData, ve ktere si rika o dalsi data. Metoda
vraci
> True/False - konec uz zadna.
> Potom je mozno brat jinak nez DB, ale pouze do QLabelu !,
> Ostatni vymozenosti je mozno pouzivat bez omezeni.
>
> Pavel
>
> PS: Je to vhodne pouze pro jednoduche tisky.
>
> > From: Robert Suska [mailto:delphi(zv)korak.sk]
> > Potrebujem urobit report ale bez pripojenia na dataset mam
> > napr. stream v
> > ktorom su ulozene data ktore potrebujem hodit do reportu a
> > vytlacit. To by
> > sa dalo len ako to urobim ked tych dat tam bude vela ze to bude chciet
> > preliezt na druhu stranu. A este jedna otazka ako sa da
> > vyuzit komponenta
> > QRStringsBand som pozeral to je ako StringList alebo co len
> > som s tym este
> > nepracoval a potreboval by som trosku nakopnut kde by sa dali
> > zistit o tom
> > veci. Alebo ak ma niekto osobne skusenosti tak by som to
> > velmi rad uvital.
> > Dakujem
> >
> > Dakujem
> >
> > Robo
> >
Vytvoreni zpravy el. posty
[*] Richard Siegl <rsiegl(zv)elas.sk> - 2.7.2002 15:38:26
MAPI nie to je strasny system ..... radsej SMTP komponent
Rickie
napr Fastnet NMSMTP..
----- Original Message -----
From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 02, 2002 2:58 PM
Subject: RE: Vytvoreni zpravy el. posty
Pres ShellExecute vam to formatovani asi neprojde nebot netisknutelne znaky
shell oreze. Nejspise budete muset pouzit MAPI funkce.
Milos
-----Original Message-----
From: Ing. Igor Vodi�ka [mailto:vodicka(zv)sagit(tec)cz]
Sent: Tuesday, July 02, 2002 1:50 PM
To: Delphi konference II
Subject: Vytvoreni zpravy el. posty
Ahoj vsichni!
Generuji a odesilam objednavku el. postou z programu nasledovne:
Var
TempString : array [0..699] of char;
PomString : string;
begin
PomString := 'mailto:adresa(zv)firma(tec)cz?subject=objedn�vka&body='+
'Produkt'+chr(9)+chr(9)+chr(9)+'obj. ks'+chr(13)+chr(10);
PomString := PomString+'UZWIN'+chr(9)+chr(9)+chr(9)+'
'+IntToStr(UZW_N.AsInteger)+chr(13)+chr(10);
PomString := PomString+ ... atd.
StrPCopy(TempString,PomString);
ShellExecute(0,Nil, TempString,Nil,Nil,SW_NORMAL);
end;
Postovni klient se mi rozjede, ale telo zpravy nerespektuje vlozene
tabelatory a CR+LF. Vklada se souvisly text. Nevite cim to a hlavne jak na
to, aby text objednavky v tele zpravy byl jako prosty text z nejjednodussim
formatovanim.
Diky
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit
Tel.: 069 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
QReport - QRStringsBand
[*] Robert Suska <delphi(zv)korak.sk> - 2.7.2002 15:40:08
ahoj da sa urobit taketo nieco
--------------- toto je QRStringsBand ------------------------------------
* QRLabel QRLabel QRLabel QRLabel QRLabel QRLabel *
----------------------------------------------------------------------------
-
a takto potrebujem proste plnit do toho data aby sa ten QRStringsBand sam
roztahoval a robil dalsie riadky ako ked som pripojeny na dataset ale ja nie
som. Samozrejme nemusim pouzit tuto komponentu moze tam byt hocico chcem len
vediet ci by to takto slo ak nie tak ako?
Dakujem
Robo
> TQuickRep ma metodu OnNeadData, ve ktere si rika o dalsi data. Metoda
vraci
> True/False - konec uz zadna.
> Potom je mozno brat jinak nez DB, ale pouze do QLabelu !,
> Ostatni vymozenosti je mozno pouzivat bez omezeni.
>
> Pavel
>
> PS: Je to vhodne pouze pro jednoduche tisky.
>
> > From: Robert Suska [mailto:delphi(zv)korak.sk]
> > Potrebujem urobit report ale bez pripojenia na dataset mam
> > napr. stream v
> > ktorom su ulozene data ktore potrebujem hodit do reportu a
> > vytlacit. To by
> > sa dalo len ako to urobim ked tych dat tam bude vela ze to bude chciet
> > preliezt na druhu stranu. A este jedna otazka ako sa da
> > vyuzit komponenta
> > QRStringsBand som pozeral to je ako StringList alebo co len
> > som s tym este
> > nepracoval a potreboval by som trosku nakopnut kde by sa dali
> > zistit o tom
> > veci. Alebo ak ma niekto osobne skusenosti tak by som to
> > velmi rad uvital.
> > Dakujem
> >
> > Dakujem
> >
> > Robo
> >
Nastaveni indexu tabulky (Paradox, BDE)
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 2.7.2002 15:44:27
Ahoj vespolek, pouzivam nasledujici konstrukci pro zjisteni, zda lze
nastavit index tabulky. Obcas se ale stane, ze to vyhuci na AV. Netusite, co
je spatne (tedy krome pouzivani BDE, ale s tim bohuzel nic neudelam):
TryAgainCnt:= 0;
while TryAgainCnt < 3 do
begin
try
Table.IndexName:=IndexName;
Result:= true;
TryAgainCnt:= 3;
except
inc(TryAgainCnt);
Result:= false;
if TryAgainCnt>= 3 then
begin
Application.MessageBox(PChar('Nepoda�ilo se nastavit index tabulky
(tabulka ' + Table.TableName + ', index "' + IndexName +'"). Zkuste to za
chv�li znovu.'),'Upozorn�n�',MB_ICONSTOP);
end;
end;
end;
Diky vsem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
QReport - QRStringsBand
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 2.7.2002 15:49:11
Samozrejme bez problemu, musis si ale data sam naformatovat do retezcu v
udalosti
OnNeedData(Sender : TObject; var MoreData : Boolean);
naplnis vsechny QRLabel(y) spravnou hodnotou prectenou z tveho zdroje.
Nelze pouzivat pouze komponety s daty v DataSetu. Drobny problem jsem mel
pouze s odstrankovanim v pripade vice sloupcoveho tisku (muselo se to resit
"odstrkanim" sloupcu a teprve potom odstrankovat).
Jinak pokud je sestava jednoducha, maka to dobre a rychle se to tvori, pokud
je to slozite, tak to snad tadeji nakresli na Canvas tiskarny, prace s tim
bude stejna a aspon budes vedet co delas.
Pavel
> From: Robert Suska [mailto:delphi(zv)korak.sk]
>
> ahoj da sa urobit taketo nieco
>
> --------------- toto je QRStringsBand
> ------------------------------------
> * QRLabel QRLabel QRLabel QRLabel QRLabel
> QRLabel *
> --------------------------------------------------------------
> --------------
> -
>
> a takto potrebujem proste plnit do toho data aby sa ten
> QRStringsBand sam
> roztahoval a robil dalsie riadky ako ked som pripojeny na
> dataset ale ja nie
> som. Samozrejme nemusim pouzit tuto komponentu moze tam byt
> hocico chcem len
> vediet ci by to takto slo ak nie tak ako?
>
> Dakujem
>
> Robo
>
> > TQuickRep ma metodu OnNeadData, ve ktere si rika o dalsi
> data. Metoda
> vraci
> > True/False - konec uz zadna.
> > Potom je mozno brat jinak nez DB, ale pouze do QLabelu !,
> > Ostatni vymozenosti je mozno pouzivat bez omezeni.
> >
> > Pavel
> >
> > PS: Je to vhodne pouze pro jednoduche tisky.
> >
> >
> > > From: Robert Suska [mailto:delphi(zv)korak.sk]
> > > Potrebujem urobit report ale bez pripojenia na dataset mam
> > > napr. stream v
> > > ktorom su ulozene data ktore potrebujem hodit do reportu a
> > > vytlacit. To by
> > > sa dalo len ako to urobim ked tych dat tam bude vela ze
> to bude chciet
> > > preliezt na druhu stranu. A este jedna otazka ako sa da
> > > vyuzit komponenta
> > > QRStringsBand som pozeral to je ako StringList alebo co len
> > > som s tym este
> > > nepracoval a potreboval by som trosku nakopnut kde by sa dali
> > > zistit o tom
> > > veci. Alebo ak ma niekto osobne skusenosti tak by som to
> > > velmi rad uvital.
> > > Dakujem
> > >
> > > Dakujem
> > >
> > > Robo
> > >
>
QReport - QRStringsBand
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 02.7.2002 15:59:10
Ahoj,
> delphi(zv)korak.sk 2.7.02 15:40 >>>
> ahoj da sa urobit taketo nieco
--------------- toto je QRStringsBand ------------------------------------
* QRLabel QRLabel QRLabel QRLabel QRLabel QRLabel *
----------------------------------------------------------------------------
tady mas prikladek vytisknuti jakehokoliv ListView [vsReport]........je to ale pro BCB
http://www.windev(tec)cz/clanek.asp?stranka=qreport_lv.htm
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
last_insert_row() a MySQL
[*] Ivo Studensk� <studensky(zv)aknsystem(tec)cz> - 2.7.2002 16:17:14
Zdravim,
potrebuju radu. Pomoci ODBC ovladacu MySQL pristupuju k databazi, pres
objekt TTable pridavam zaznamy do tabulky (table.insert), ktera ma jeden
sloupec auot_increment. Zkousim zjistit ID posledne vlozeneho zaznamu pomoci
TQuery, kde SQL='select last_insert_id() as LastInsertID'. Jenze jak v
AfterPost procedure te tabulky, tak i bezprostredne nasledne v kodu mi vraci
tenhle dotaz 0 a ne cislo posledniho ID. Zkousel jsem v SQL Exploreru pridat
zaznam
a potom sql dotazem zjistit last_insert_id a tam to funguje v poradku, takze
chyba bude
v mojem programu, ale netusim kde.
Ma s tim nekdo zkusenosti?
Predem dik
Ivo Studensky
mailto:studensky(zv)aknsystem(tec)cz
Firebird nenastartuje na linuxe
[*] miro mrazik <preas_w(zv)stonline.sk> - 2.7.2002 17:22:16
Ahojte
Firebird nenastartuje a v interbase.log sa objavi toto:
localhost.localdomain (Client) Tue Jun 11 10:31:50 2002
INET/inet_error: connect errno = 111
localhost.localdomain (Client) Tue Jun 11 10:31:50 2002
/opt/interbase/bin/ibguard: guardian starting bin/ibserver
localhost.localdomain (Client) Tue Jun 11 10:32:05 2002
INET/inet_error: read errno = 104
localhost.localdomain (Client) Tue Jun 11 10:32:05 2002
INET/inet_error: receive in try_connect errno = 104
localhost.localdomain (Client) Tue Jun 11 10:32:05 2002
/opt/interbase/bin/ibguard: bin/ibserver normal shutdown.
FB1 superserver a RH 7.1
Diky
miro
Binarni nacitani a zapisovani souboru
[*] Delphin <delphin(zv)post(tec)cz> - 2.7.2002 17:33:50
>btw: zlaty phpka tam tohle bylo otazkou nekolika radek :(
Zlate Delphi, tady to je taky otazka nekolika radek :)
fin := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead or
fmShareDenyNone);
try
fout := tfilestream.Create('test.gnx',fmCreate or fmShareDenyNone);
try
fout.copyfrom(fin,0);
finally
fout.free;
end;
finally
fin.free;
end;
----- Original Message -----
From: "jan cerny" <jan.cerny(zv)webstation(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, June 02, 2002 1:06 AM
Subject: Binarni nacitani a zapisovani souboru
> Zdravim ve spolek mam takovej, pro vas nejspise lama dotazek ale cely
> den nad tim sedim a zaboha se mi to nedari zprovoznit...
>
> oco tedy jde... mam nekolik souboru ... jpg a ty bych postupne potreboval
> nacist a zapsat do jednoho souboru a postupne je oddelovat nejakym
> kusem znaku.( treba !MEZERA! )
> Nekdo mi poradil ze mam pouzit Filestream-y ale jelikoz v
> delphi programuji jen zridka a to jen na urovni vycvicene opice
> absolutne si s tim nevim rady
> jedine k cemu jsem dospel je tohle /*dole*/ a to jeste k nastvani
nefunguje :(
>
> btw: zlaty phpka tam tohle bylo otazkou nekolika radek :(
>
> Prosim poradte ... thx
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> f: file of Byte; // kvuli zjisteni velikosti souboru
> result : Longint;
> fin, fout: Tfilestream;
> size : integer;
> begin
> if Form1.OpenPictureDialog1.Execute then
> begin
> result := 0;
> fin := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead
or fmShareDenyNone);
> AssignFile(f, OpenPictureDialog1.FileName); // \
> Reset(f); // +- zjisteni
> size := FileSize(f); // / velikosti
> try
> fin.Seek(0, soFromBeginning);
> fin.Read(result,size);
> finally
> fin.Free;
> end;
> fout := tfilestream.Create('test.gnx',fmCreate or
fmShareDenyNone);
> try
> fout.seek(0, soFromBeginning);
> fout.Write(result,size);
> finally
> fout.Free;
> end;
> end;
> end;
>
>
>
> ______________________________________________________
> |C|H|H|E|M|I|K|S|
> design & code +420 723 326 744
> Jan Cerny jan.cerny(zv)webstation(tec)cz
>
>
Programove vytvoreni DBF souboru
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 2.7.2002 19:12:16
Delphi 5 Prof, BDE
Potrebuji exportovat data do souboru DBF. Pouzivam BDE Delphi. Zkusil jsem
vzorovy SQL prikaz:
Create table "c:\temp\pokus.dbf"
(
PRIJMENI CHAR(20),
JMENO CHAR(15),
PLAT NUMERIC(10,2),
ODDELENI SMALLINT
)
Pole PLAT NUMERIC(10,2) se sice vytvori, ale ne o velikosti 10,2. Nevytvori
se ZADNA velikost :-((((
Diky za nakopnuti
Doplnujici dotaz: jak nastavit programove langdriver?
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
Programove vytvoreni DBF souboru
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 2.7.2002 19:18:14
jeste upresnim - jinak pouzivam v aplikaci Paradoxovske tabulky. Export do
DBF potrebuji pro urady.
-----Original Message-----
Delphi 5 Prof, BDE
Potrebuji exportovat data do souboru DBF. Pouzivam BDE Delphi. Zkusil jsem
vzorovy SQL prikaz:
Create table "c:\temp\pokus.dbf"
(
PRIJMENI CHAR(20),
JMENO CHAR(15),
PLAT NUMERIC(10,2),
ODDELENI SMALLINT
)
Pole PLAT NUMERIC(10,2) se sice vytvori, ale ne o velikosti 10,2. Nevytvori
se ZADNA velikost :-((((
Diky za nakopnuti
Doplnujici dotaz: jak nastavit programove langdriver?
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
odesilani klavesy (Zpravy)
[*] Michal Buk��ek <bukacek.michal(zv)seznam(tec)cz> - 02.7.2002 21:23:49
Cau,
Pros�m V�s. Nem�te n�kdo p��klad, jak odeslat fiktivn� kl�vesu jin�
aplikaci. Tak, aby si myslela, ze byla stisknuta na kl�vesnici.Chci
udelat program kterej bude za mne psat ve Wordu. Moc dik
Michal
______________________________________________________________________
Reklama:
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
odesilani klavesy (Zpravy)
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 2.7.2002 21:29:02
Neni lepsi ovladat Word pres Ole?
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Tuesday, July 2, 2002, 9:23:49 PM, you wrote:
MB> Cau,
MB> Pros�m V�s. Nem�te n�kdo p��klad, jak odeslat fiktivn� kl�vesu jin�
MB> aplikaci. Tak, aby si myslela, ze byla stisknuta na kl�vesnici.Chci
MB> udelat program kterej bude za mne psat ve Wordu. Moc dik
MB> Michal
MB> ______________________________________________________________________
MB> Reklama:
MB> E-mail zdarma na cely zivot: http://email.seznam(tec)cz
Programove vytvoreni DBF souboru
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 2.7.2002 21:42:45
ahoj,
mne se moc neosvedcilo to delat pomoci SQL, pouzivam radsi standartni TTable. Priklad je tusim u TTable.createtable ve standartni napovede delphi.
ja pouzivam napriklad postup (pri kopirovani tabulky):
{ Tvorba Exportni tabulky }
TableExportDat.DataBaseName:=EditCesta.Text;
TableExportDat.TableName:=Name;
TableExportDat.TableType := ttDBase;
TableExportDat.TableLevel := 4;
TableExportDat.FieldDefs.Clear;
for i:=0 to FieldCount-1 do begin
Size:=Fields[i].DataSize-1;
if (Fields[i].DataType<>ftString) then Size:=0;
{ or (Fields[i].DataType=ftSmallInt) or
(Fields[i].DataType=ftInteger)or(Fields[i].DataType=ftCurrency)
or (Fields[i].DataType=ftBoolean) then}
TableExportDat.FieldDefs.add(Fields[i].FieldName,Fields[i].DataType,Size,false);
end;
TableExportDat.CreateTable;
muzes pouzit i absolutne napr.
TableExportDat.FieldDefs.add('PRIJMENI',ftString,40,false);
to false na konci znamena, ze polozka neni soucasti primery indexu (nutny pro deklarovani dalsich indexu). TableLevel je zase nutny, abys mohl precist tabulku napr. excellem (ten bere snad jen do level 5)
Ludek
Fce na prevod diakritiky na bez diaktritiky
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 2.7.2002 22:13:06
Nemate nekdo %subj% potrebuji se zbavit diakritiky pro zadani Name v polozce
MenuItem.
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
OT: Case insensitive SELECT s pouzitim indexu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 2.7.2002 22:16:36
Hi all,
potreboval bych nejak vytvorit neco jako "upper index", abych zrychlil
operace stylu
SELECT * FROM xxxx
WHERE UPPER(yyyy) STARTING WITH 'zzzz';
Jedine reseni, ktere me napada, je prida sloupec s daty prevedenymi na upper
pri vkladani/updatovani zaznamu.
Nedalo by se to udelat bez toho duplicitniho sloupce?
Zatim si hraju s IB6, ale idealne by to melo serverove nezavisle ;-)
Thx, pf
Pripojeni k remote IB serveru
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 2.7.2002 22:32:12
Zdravim
m�m takovej problem s Interbazi
Na serveru W2K mi bezi IB server, na IBConsoli vytvorim Local server tam nakou databazi az sem je vse OK.
Ze stanice pripojene k W2K serveru TCP/IP protokolem se chci pripojit k IB serveru. Jak mam presne psat syntaxi
do okna "Register server and connect" ?
DIk
MS Word
[*] Roland Turcan <rolo(zv)sedas.sk> - 2.7.2002 23:09:31
Hello Delphi CZ konferencia!
1.
Potreboval by som ukladat TWordDocument do databazy a ukladanie cez
SaveToFile/CopyFromFileToDB sa mi nezda ako spravne riesenie. Idealne
by bolo SaveToStream, ktore sice OleContainer ma ale nie je to v
Servers komponentach, ako by sa to dalo riesit?
2.
Mam predstavu, ze by som mal sablony s dokumentami Wordu ulozene v
databaze a ja by som dal kopiu sablony a nahradzovanie textov v kopii
sablony novym textom a nasledne ulozenie spat do databazy. Prave to
nahradzovanie textov som nikde nenasiel.
3.OleContainer je sice super univerzalny, t.j. mohol by som si pomocou
neho ukladat do databazy cokolvek ale mam tam problemy s tlacou. Napr.
vo MS Worde je aj ikona tlaciarne aj Ctrl+P ide takze to je OK, ale uz
napr. Excel je jalovy. Je univerzalny prikaz pre OleContainer na tlac ?
--
Best regards, TRoland
OT: Case insensitive SELECT s pouzitim indexu
[*] Ing. Pavel �ilinec����)b���zf���3 - 3.7.2002 05:47:17
My to delame podobne. Je to sice duplicitni, ale vetsinou se to tyka
pouze ciselniku a ne hlavnich dat, takze to zase neni az tak hrozne.
Navic to ma vyhodu, ze lze tento sloupec slozit z nekolika jinych a
hledat tak podobny text ve vice sloupcich naraz.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
PF> Hi all,
PF> potreboval bych nejak vytvorit neco jako "upper index", abych zrychlil
PF> operace stylu
PF> SELECT * FROM xxxx
PF> WHERE UPPER(yyyy) STARTING WITH 'zzzz';
PF> Jedine reseni, ktere me napada, je prida sloupec s daty prevedenymi na upper
PF> pri vkladani/updatovani zaznamu.
PF> Nedalo by se to udelat bez toho duplicitniho sloupce?
PF> Zatim si hraju s IB6, ale idealne by to melo serverove nezavisle ;-)
PF> Thx, pf
OT Trial verze SQL Serveru 2000 pod Windows ME
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2002 05:57:33
Pod WinME ti pobezi MSDE (bez administratorskych nastroju) ktere si
tam muzes doinstalovat.
Jinak na Win9x jde nainstalovat tzv. "Developer" verze, ale nevom zda
od ni existuje trial.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
2.3.2002 3dimenzion:
> Dobry den,
> nevite zda je trial verze SQL Serveru 2000, ktera beha pdo W ME?
Programove vytvoreni DBF souboru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2002 05:59:16
UG9kaXZlaiBzZSBuYSBUYWJsZS5GaWVsZHMNCkplIHRvIHNlem5hbSBwb2xpLCB0YWt6ZSBwcmVz
IEZpZWxkcy5BZGQoKSBwcmlkYXMgcG9sZSwga3RlcmUNCnBvdHJlYnVqZXMuDQoNCi0tIA0KaW5n
LiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjIuNy4yMDAyIEluZy4gUGV0
ciBTdmVqZGE6DQo+IERlbHBoaSA1IFByb2YsIEJERQ0KDQo+IFBvdHJlYnVqaSBleHBvcnRvdmF0
IGRhdGEgZG8gc291Ym9ydSBEQkYuIFBvdXppdmFtIEJERSBEZWxwaGkuIFprdXNpbCBqc2VtDQo+
IHZ6b3JvdnkgU1FMIHByaWthejoNCg0KPiBDcmVhdGUgdGFibGUgImM6XHRlbXBccG9rdXMuZGJm
Ig0KPiAoDQo+ICAgICAgICAgUFJJSk1FTkkgQ0hBUigyMCksDQo+ICAgICAgICAgSk1FTk8gQ0hB
UigxNSksDQo+ICAgICAgICAgUExBVCBOVU1FUklDKDEwLDIpLA0KPiAgICAgICAgIE9EREVMRU5J
IFNNQUxMSU5UDQo+ICAgICAgICAgKQ0KDQo+IFBvbGUgUExBVCBOVU1FUklDKDEwLDIpIHNlIHNp
Y2Ugdnl0dm9yaSwgYWxlIG5lIG8gdmVsaWtvc3RpIDEwLDIuIE5ldnl0dm9yaQ0KPiBzZSBaQURO
QSB2ZWxpa29zdCA6LSgoKCgNCg0KDQo+IERpa3kgemEgbmFrb3BudXRpDQoNCj4gRG9wbG51amlj
aSBkb3RhejogamFrIG5hc3Rhdml0IHByb2dyYW1vdmUgbGFuZ2RyaXZlcj8NCg0KDQo+IFBldHIN
Cj4gLS0tDQo+IE9kY2hveu0genBy4XZhIG5lb2JzYWh1amUgdmlyeS4NCj4gWmtvbnRyb2xvduFu
byBhbnRpdmlyb3b9bSBzeXN06W1lbSBBVkcgKGh0dHA6Ly93d3cuZ3Jpc29mdC5jeikuDQo+IFZl
cnplOiA2LjAuMzcyIC8gVmlyb3bhIGLhemU6IDIwNyAtIGRhdHVtIHZ5ZOFu7TogMjAuNi4yMDAy
DQog
Dynamicky DATASET
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 3.7.2002 06:40:30
Jenom jsem si pak vytahoval prislusnou uroven vetve. Tim padem to nacitani
bylo rozprostrene na jednotliva kliknuti uzivatele a nebylo to tak tragicke,
jako kdyz jsem to vse dal na cist na zacatku...
Sroub
> a ako si to potom riesil ?
>
> joka
>
>
> Jo to jsem kdysi zkousel a zavrhnul, protoze rezie vytvareni resp.
otevirani
> datasetu byla neunosna.
>
> Sroub
MS Word
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 03.7.2002 07:55:32
> 2.
> Mam predstavu, ze by som mal sablony s dokumentami Wordu ulozene v
> databaze a ja by som dal kopiu sablony a nahradzovanie textov v kopii
> sablony novym textom a nasledne ulozenie spat do databazy. Prave to
> nahradzovanie textov som nikde nenasiel.
Ahoj,
na riesenie podobneho problemu uspesne pouzivam format RTF.
Takyto subor (sablonu) nacitam do retazcovej premennej
a v nej nahradim urcene klucove slova konkretnou hodnotu,
vysledok ulozim ako novy dokument a cez ShellExecute
ho otvorim vo Worde. Uzivatel si podla potreby dokument
upravi alebo ho rovno posle na tlaciaren.
V pripade, ze je potrebne vytlacit dokumenty bez
obsluhy uzivatelom, mozno v ShellExecute pouzit
parameter 'print' alebo vyuzit OLE. S pouzivamim
OLE mozu byt trosku problemy pri roznych verziach
Wordu, lebo syntax ovladania sa s novymi verziami
postupne trochu zmenila.
Na nacitanie suboru, nahradu textu a zapis suboru
a jeho otvorenie Wordom pouzivam nizzsie uvedene funkcie.
Priklady ilustruju pouzitie sablon vo forme suborov,
na disku, s nacitanim takychto RTF suborov z databazy
by vsak tiez nemal byt problem.
Je to celkom jednoduche.
Vlkovic
//------------------------------------------------------------------
FUNCTION ReadStringFromFile ( const FileName: string; var Data: string
): Boolean;
// nacita obsah suboru do retazca "Data", ak sa nepodari vrati False
var
FS: TFileStream;
Size: integer;
begin
Result := False; // default
TRY
FS := TFileStream.Create ( FileName, fmOpenRead or fmShareDenyNone
);
TRY
Size := GetFileSize ( FS.Handle, nil );
if Size = -1 then
Exit;
SetLength ( Data, Size );
FS.Read ( Data[1], Size );
Result := True;
FINALLY
FS.Free();
END;
EXCEPT
END;
end;
//------------------------------------------------------------------
PROCEDURE ReplStr ( var Str: string; const OldStr,NewStr: string );
// zameni vsetky vyskyty pozadovaneho retazca,
// retazec NewStr moze obsahovat aj frazy obsahujuce
// text, ktory je identicky s obsahom OldStr
var
p: integer;
LenOld: integer;
LenNew: integer;
begin
LenOld := Length ( OldStr );
LenNew := Length ( NewStr );
p := 0;
REPEAT
p := PosFrom ( OldStr, Str, p + 1 );
if p = 0 then
Exit;
Delete ( Str, p, LenOld );
Insert ( NewStr, Str, p );
p := p + LenNew;
UNTIL False;
end;
//------------------------------------------------------------------
FUNCTION WriteStringToFile ( const FileName, Data: string ): Boolean;
// zapise obsah retazca "Data", do suboru
var
FS: TStream;
begin
Result := False; // default
TRY
FS := TFileStream.Create ( FileName, fmCreate );
TRY
FS.Write ( Data[1], Length ( Data ) );
Result := True;
FINALLY
FS.Free();
END;
EXCEPT
END;
end;
MSSQL a trigger
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.7.2002 08:16:43
Ahoj,
> souhlasim, ze logovani se na server pres ruzna jmena pro ruzne
> uzivatele je lepsi z hlediska bezpecnosti nez pres jeden "tajny"
> login, ale reseni s tajnym loginem zase umozni snadno
> pridavat/odebirat uzivatele aplikace. Pokud bude mit na SQL serveru
> kazdy svuj login, znamena operace pridani uzivatele nebo uprava jeho
> opravneni nutnost na SQL serveru provest zalozeni uzivatele a hlavne
> pregrantovat jeho prava, a to neni jednoduche.
*****To preci nemuzes myslet vazne. Od toho jsou jednak role a jednak
prava na views, stored procedures a dalsi, ktere se davaji az na
vyjimky rolim. Pokud pouziju autentifikaci Windows, nemusim pak ani
pridavat zadneho uzivatele (od toho tam ta autentifikace je!), pouze
stavajiciho uzivatele spojim s konkretni roli a to je otazka deseti
sekund, pokud dokazi rychle napsat prikaz grant a znam jmeno
uzivatele a role.
> Zvlast je li nekolik
> set tabulek, spousta ulozenych procedur, navic prava k tabulkam se
> nekryji s pristupem k funkcim programu...
*****Moment. S tabulkami prece nesmi uzivatel pracovat! Prava se
davaji na views a ulozene procedury. Co je to za bezpecnost, kdyz dam
prava na tabulky normalnimu ,,pucmidratovi``?
> V rade firem navic nikdo ani
> netusi, ze tam maji SQL server a co to vubec je a tezko by to nekdo
> delal.
*****V rade firem to ma tusit alespon spravce databaze, ktery
prideluje prava. BFU se ,,nekam`` prihlasi a nemusi nic o SQL Serveru
vedet (v tom se jiste shodnem). A pokud to nevi ani spravce databaze,
je-li nejaky, pak to se ovsem dostavame mimo diskusi.
> David Lebeda
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
OT Trial verze SQL Serveru 2000 pod Windows ME
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.7.2002 08:21:26
Neni. DB Server - byt trial - potrebuje pro svuj beh operacni system
a nejakou bezpecnost, coz playstation neumoznuji. Pod WinME
nainstalujes akorat tak baleni MSDE, Personal a tusim ze i Developer
Edition.
Slavek
> Dobry den,
> nevite zda je trial verze SQL Serveru 2000, ktera beha pdo W ME?
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
OT Trial verze SQL Serveru 2000 pod Windows ME
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.7.2002 08:37:22
> Pod WinME ti pobezi MSDE (bez administratorskych nastroju) ktere si
> tam muzes doinstalovat. Jinak na Win9x jde nainstalovat tzv.
> "Developer" verze, ale nevom zda od ni existuje trial.
*****Ne. Trial verze je pouze pro baleni MS SQL Server 2000
Enterprise.
Slavek
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Dva dotazy - EventLog, Jmeno aplikace
[*] Zach Tom� - 3.7.2002 08:39:34
Ahoj,
mam dva male dotazy
1. Neznate nekdo nahodou nejake freewarove komponenty pro praci s EventLogy?
2. Mam program v Delphi, ktery hlida spusteni urcite aplikace. Lze nejakym zpusobem zjistit, kdyz na zminenou aplikaci kliknu mysi, jeji handle a nazev okna - programove, ne pomoci WinSight
Dekuji za radu
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.373 / Virov� b�ze: 208 - datum vyd�n�: 1.7.2002
Vytvoreni zpravy el. posty
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 3.7.2002 09:31:16
Ahoj vespolek!
Vracim se jeste k tomuto tematu. Zpusob pres ShellExecute jsem tedy opustil
a zkusil tip c. 604 z knihy "1001 tipu a triku ..." nasledovne:
Const
olMailItem = 0;
Var
PomString : string;
Outlook : OLEVariant;
MailItem : Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('vodicka(zv)sagit(tec)cz');
MailItem.Subject := 'objedn�vka';
PomString := 'Produkt'+chr(9)+chr(9)+chr(9)+'obj. ks'+chr(13)+chr(10);
if UZW_N.Value>0 then
PomString := PomString+
'UZWIN'+chr(9)+chr(9)+chr(9)+'
'+IntToStr(UZW_N.AsInteger)+chr(13)+chr(10);
.
.
MailItem.Body := PomString;
MailItem.Send;
Outlook := Unassigned;
end;
Na mem PC to funguje OK (Win2000, MS Outlook 2000), jen nevim jak odchytit
udalost, ze zprava odesla OK, nebo ze doslo k chybe. Jak pripadne osetrit
stavy, kdy PC neni zrovna pripojeno, aj.
Na PC Win98 s Outlook Express to vyhazuje hlaseni "Nespravny retezec tridy".
Muzete mi nekdo poradit jak pripadne upravit kod, aby to fungovalo pro oba
postovni klienty.
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit
Tel.: 069 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.373 / Virov� b�ze: 208 - datum vyd�n�: 1.7.2002
MSSQL a trigger
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.7.2002 09:35:11
> > souhlasim, ze logovani se na server pres ruzna jmena pro ruzne
> > uzivatele je lepsi z hlediska bezpecnosti nez pres jeden "tajny"
> > login, ale reseni s tajnym loginem zase umozni snadno
> > pridavat/odebirat uzivatele aplikace. Pokud bude mit na SQL serveru
> > kazdy svuj login, znamena operace pridani uzivatele nebo uprava jeho
> > opravneni nutnost na SQL serveru provest zalozeni uzivatele a hlavne
> > pregrantovat jeho prava, a to neni jednoduche.
> *****To preci nemuzes myslet vazne. Od toho jsou jednak role a jednak
> prava na views, stored procedures a dalsi, ktere se davaji az na
> vyjimky rolim.
Ahoj,
nejsem odbornik na bezpecnost a rad se poucim.
Databaze obsahuje 200 tabulek. Jeden uzivatel prostrednictvim sady programu
muze cist i editovat data z vetsiny techto tabulek. To, na co ma a nema prava, si
definuje v modulu spravy uzivatelu. Tento modul musi umet pridavat uzivatele,
mazat uzivatele, sdruzovat je do skupin. Prava k urcitym cinnostem pak plynou
jednak z clenstvi ve skupine, ale je mozne nastavovat individualni odchylky. Prava
skupin nejsou pevne dana - uzivatel muze zakladat libovolne skupiny a davat jim
prava k libovolnym funkcim programu. Neumim si predstavit, jak by toto slo pokryt
udrzbou grantu na SQL serveru.
V programu se provadi rada SQL dotazu, ktere se sestavuji az pri behu
programu. Neumim si predstavit selecty nesmerovane primo do tabulek, ale do view
a ulozenych procedur (ztrata moznosti pouzivat indexy, navic by krome tech 200
tabulek muselo existovat nekolik tisic ruznych view a ulozenych procedurek na kazdy
drobny update.
Nekde je asi chyba. Kde?
Pokud pouziju autentifikaci Windows, nemusim pak ani
> pridavat zadneho uzivatele (od toho tam ta autentifikace je!)
Jenze autentifikace Windows predpoklada znacnou kazen uzivatelu (to uz se tu
jednou diskutovalo) a tu ma nemnoho uzivatelu pocitacu (nemluvim o odbornicich).
> *****Moment. S tabulkami prece nesmi uzivatel pracovat! Prava se
> davaji na views a ulozene procedury. Co je to za bezpecnost, kdyz dam
> prava na tabulky normalnimu ,,pucmidratovi``?
Viz vyse.
> > V rade firem navic nikdo ani
> > netusi, ze tam maji SQL server a co to vubec je a tezko by to nekdo
> > delal.
> *****V rade firem to ma tusit alespon spravce databaze, ktery
> prideluje prava.
Rada firem o pocitacich skoro nic nevi a kvuli jednomu programu pouzivajicim SQL
server si prece nebudou chtit platit spravce SQL serveru. Sef firmy bude velmi
rozezlen tim, ze nas software vyzaduje, aby se o nej nekdo pravidelne staral ne pri
reseni problemu, ale i pri beznem provozu. Vem si treba nejaky hotel, kde jsou dve
recepcni. Kde by vzali nejakeho spravce, kdyz pocitac je pro ne vec, na kterou je
treba se koukat s posvatnou uctou a chovat se tak, aby se neurazil?
David Lebeda
OT: CPP Builder linker error
[*] Antony Suransky <Suransky(zv)kios.sk> - 03.7.2002 10:08:57
Zdravim,
mame jednu prosbu mimo Delphi
pretoze nepoznam ziadnu CPP konferenciu a problem moze byt podobny aj
pre Delphi tak dufam v moznost pomoct ci poradit.
Robime na velkom projekte v CPP
kompilacia prejde OK (asi 15mil riadkov)
ale pri linkovani nam Linker vyhadzuje chybu Fatal Error LM xxx
Pouzivame BCB5 aj BCB6.
Tieto problemy nastali az ked kod narastol na tuto hranicu.
Dakujeme za akukolvek radu,
Tony
Kliknuti pravym tlacitkem na tiulku u formu
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 3.7.2002 10:11:33
Ahoj,
dovolim si Vas poprosit o radu. Rad bych po kliknuti pravym tlacitkem na titulku formu vyvolal nejakou udalost nebo treba ShowMessage.
Vasek.
hashovani
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 3.7.2002 10:13:11
dobry den
nevite nekdo zda se da provest hashovani text do 4bytu (v textu jsou pozite
pouze velke pismena a cislice, je mozno i omezeni delky textu)
predem diky za vse (nejlepe kousek kodu)
MSSQL a trigger
[*] bardon <bardon(zv)akord-soft(tec)cz> - 3.7.2002 10:13:49
1) Osobne si myslim, ze stoji za to spravcovat z aplikace nejen aplikacni
prava, ale i databazova, je na to dostatek SQL prikazu a da se to v pohode
naprogramovat (GRANT, DENY, REVOKE, sp_adduser, ap_addrolemember ... a
mnoho, mnoho dalsich).
2) Podle mych zkusenosti je nastaveni prav na urovni databaze podstatne
bezpecnejsi a ucinnejsi, nez totez realizovane na urovni aplikace (jakkoli
se bez aplikacnich prav take nelze zpravidla obejit)
3) Myslim si, ze standardni cesta by byla jeden spravcovsky uzivatelsky ucet
zalozeny v instalacnim procesu instalace aplikace a ostatni spravcovane pres
aplikaci samotnou
4) Uprednostnoval bych aplikacni role pred klasickymi uzivatelskymi ucty,
umozni to chranit data pred neopravnenym pristupem obchazejicim aplikaci
5) Pristup k datum pres view a procedury je jeste bezpecnejsi a leckdy
prinasi radu vyhod, ale u relativne jednoduchych aplikaci se da bez nej
obejit
Zde uvedene nazory nepovazuji za jedinou spravnou cestu, je to jen vycet
toho, co se mi libi.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lebeda David
Sent: Wednesday, July 03, 2002 9:35 AM
nejsem odbornik na bezpecnost a rad se poucim.
Databaze obsahuje 200 tabulek. Jeden uzivatel prostrednictvim sady programu
muze cist i editovat data z vetsiny techto tabulek. To, na co ma a nema
prava, si
definuje v modulu spravy uzivatelu. Tento modul musi umet pridavat
uzivatele,
mazat uzivatele, sdruzovat je do skupin. Prava k urcitym cinnostem pak
plynou
jednak z clenstvi ve skupine, ale je mozne nastavovat individualni odchylky.
Prava
skupin nejsou pevne dana - uzivatel muze zakladat libovolne skupiny a davat
jim
prava k libovolnym funkcim programu. Neumim si predstavit, jak by toto slo
pokryt
udrzbou grantu na SQL serveru.
V programu se provadi rada SQL dotazu, ktere se sestavuji az pri behu
programu. Neumim si predstavit selecty nesmerovane primo do tabulek, ale do
view
a ulozenych procedur (ztrata moznosti pouzivat indexy, navic by krome tech
200
tabulek muselo existovat nekolik tisic ruznych view a ulozenych procedurek
na kazdy
drobny update.
Nekde je asi chyba. Kde?hashovani
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.7.2002 10:41:15
Puvodni zprava, kterou napsal Ladislav Fitz dne 3 Jul 2002:
> nevite nekdo zda se da provest hashovani text do 4bytu (v textu jsou
> pozite pouze velke pismena a cislice, je mozno i omezeni delky textu)
4 bajty na hash jsou malo
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
hashovani
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 3.7.2002 10:46:34
> 4 bajty na hash jsou malo
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
a kolik je tak rozumne minimum?
hashovani
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.7.2002 10:53:35
Puvodni zprava, kterou napsal Ladislav Fitz dne 3 Jul 2002:
> > 4 bajty na hash jsou malo
>
> a kolik je tak rozumne minimum?
Pro hash aspon ten MD5, tj. 128 bitu, lepe vsak SHA-1, tj. 160 bitu.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
MSSQL a trigger
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.7.2002 10:56:10
Ahoj,
> Databaze obsahuje 200 tabulek. Jeden uzivatel prostrednictvim sady
> programu muze cist i editovat data z vetsiny techto tabulek.
*****To je prvni chyba. Dat libovolnemu uzivateli pravo na tabulku
muze vest k tomu, ze kdyz se uzivatel nastve ci mu rupne v bedne, tak
smaze vsechna data nebo je jinak poskodi. Pokud ma prava na ulozene
procedury, tak toliko skody nenapacha nebo mu to bude trvat
mnohonasobne dele.
> To, na co ma a nema prava, si definuje v modulu spravy uzivatelu.
*****Preci si uzivatel nebude definovat, co si povoli a co ne! To
muze delat pouze spravce!!
> Tento modul
> musi umet pridavat uzivatele, mazat uzivatele, sdruzovat je do skupin.
*****To neni preci problem. Jak jsem psal, od toho jsou role a spol.
> Prava k urcitym cinnostem pak plynou jednak z clenstvi ve skupine, ale
> je mozne nastavovat individualni odchylky.
*****Opet zadny problem. Dam pravo roli a v pripade vyjimky dalsi
pravo konkretnimu uzivateli.
> Prava skupin nejsou pevne
> dana - uzivatel muze zakladat libovolne skupiny a davat jim prava k
> libovolnym funkcim programu. Neumim si predstavit, jak by toto slo
> pokryt udrzbou grantu na SQL serveru.
*****Naprosto stejne. Predpokladam, ze prava nekam ukladas a podle
toho se aplikace chova. Tak misto ukladani budes na server posilat
prikazy GRANT. Ovsem znovu opakuji, toto ma delat administrator, ne
uzivatel.
> V programu se provadi rada SQL dotazu, ktere se sestavuji az pri behu
> programu. Neumim si predstavit selecty nesmerovane primo do tabulek,
> ale do view a ulozenych procedur (ztrata moznosti pouzivat indexy,
****To, ze pouzijes view v zadnem pripade neznamena, ze se nepouziji
indexy!!! Naopak. Navic MS SQL Server od verze 2000 uz umi delat
indexy primo nad pohledy (obdoba materializovanych indexu na ORACLE).
> navic by krome tech 200 tabulek muselo existovat nekolik tisic ruznych
> view a ulozenych procedurek na kazdy drobny update.
*****Nekolik tisic zrejme urcite ne. Na druhou stranu, bezpecnost
neco stoji. Bohuzel. Ale je co je lepsi? Napsat jednu ulozenou
procedur navic a mit to slusne zabezpecene nebo ztratit kredit firmy
jenom proto, ze nejaky magor zkousel prikaz drop ci delete?
> Nekde je asi chyba. Kde?
*****V lidech, tzv. lidsky faktor. ;-)
> Pokud pouziju autentifikaci Windows, nemusim pak ani
> > pridavat zadneho uzivatele (od toho tam ta autentifikace je!)
> Jenze autentifikace Windows predpoklada znacnou kazen uzivatelu (to uz
> se tu jednou diskutovalo) a tu ma nemnoho uzivatelu pocitacu (nemluvim
> o odbornicich).
***** "Ale pane Omacka, vy se nam neodhlasujete? Sice si beh nasi
firmy bez vas neumime predstavit, ale od pristiho mesice to zkusime."
"Pane Novacek, behem obeda nekdo z vaseho pocitace smazal celou
firemni databazi. Takze vas mame zazalovat o tri miliony nebo nam je
splatite bez soudu?"
> Rada firem o pocitacich skoro nic nevi a kvuli jednomu programu
> pouzivajicim SQL server si prece nebudou chtit platit spravce SQL
> serveru.
******Pokud to bezi na MSDE, pak neprostestuji. Ovsem i tam jde
udelat rozumna sprava. Pokud si porizuji Standard ci dokonce
Enterprise baleni, asi jsem velka firma, ktera nejakeho
administratora ma. Sef musi vedet, koho si ma zaplatit. Povest a
spravny beh firmy neco stoji.
Slavek
> David Lebeda
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
hashovani
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 3.7.2002 10:59:41
> > nevite nekdo zda se da provest hashovani text do 4bytu (v textu
jsou
> > pozite pouze velke pismena a cislice, je mozno i omezeni delky
textu)
>
> 4 bajty na hash jsou malo
Proc? zalezi prece k cemu ten hash ma slouzit. Pokud k jednoznacne
identifikaci delsich stringu pak je to opravdu malo.
Pokud ale napriklad ke zrychleni vyhledavani pak to musi stacit.
Podle pouziti bych pak odvodil zpusob vypoctu hashe. Mozna bude stacit
jen
'hloupe' poscitani ascii hodnot znaku v retezci (pripadne je mozne do
kazdeho bytu
ulozit 'sumu' ziskanou jinym zpusobem - rotovane hodnoty znaku atd).
Na internetu
je mozne sehnat i ponekud sofistikovanejsi algoritmy..
D. Toman
RecordCount=1???
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 3.7.2002 11:03:45
nazdar kluci at delam co delam IBquery mi vraci vzdy cislo v recordcount=1
ale kdyz pustim sql prikaz venku tak to jsou 3 zaznamy tak tomu je i kdyz
natvrdo nastavim cyklus na 3 tak tam ty zaznamy jsou ale recordcount je
blbe..nevite v cem to muye byt??
Nevadi tomu SQL ALIASY? Nemate nekdo podobnou zkusenost?
Pouzivam novou FB a Delphi 6 Ent IBX
Aldik Pavel
D6 Ent WXP
hashovani
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 3.7.2002 09:06:15 ut
Nechcem chytat za slovicka, ale pre istotu:
> Pokud k jednoznacne identifikaci delsich stringu pak je to opravdu malo.
Hashe v ziadnom pripade nesluzia nikdy k jednoznacnej identifikacii dlhsich
stringov.
Ale inak plne suhlasim :-)
> Pokud ale napriklad ke zrychleni vyhledavani pak to musi stacit.
>
> Podle pouziti bych pak odvodil zpusob vypoctu hashe. Mozna bude stacit
> jen
> 'hloupe' poscitani ascii hodnot znaku v retezci (pripadne je mozne do
> kazdeho bytu
> ulozit 'sumu' ziskanou jinym zpusobem - rotovane hodnoty znaku atd).
> Na internetu
> je mozne sehnat i ponekud sofistikovanejsi algoritmy..
>
> D. Toman
>
RecordCount=1???
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 3.7.2002 11:07:17
Ales Pavel dne 3 Jul 2002 v 11:03:
> nazdar kluci at delam co delam IBquery mi vraci vzdy cislo v
> recordcount=1 ale kdyz pustim sql prikaz venku tak to jsou 3 zaznamy
> tak tomu je i kdyz natvrdo nastavim cyklus na 3 tak tam ty zaznamy
> jsou ale recordcount je blbe..nevite v cem to muye byt?? Nevadi tomu
> SQL ALIASY? Nemate nekdo podobnou zkusenost?
Ahoj,
zkus nejprve IBQuery.FetchAll, pak teprve zjistuj RecordCount. U velkych dotazu (mnoho vet) to
FetchAll bude trvat dlouho a stahne spoustu dat, pozor na to.
Karel Rys
Programove vytvoreni DBF souboru
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 3.7.2002 11:07:31
a jak vytvorim napriklad pole NUMERIC(10,2) ??????????
Petr
-----Original Message-----
Podivej se na Table.Fields
Je to seznam poli, takze pres Fields.Add() pridas pole, ktere
potrebujes.
2.7.2002 Ing. Petr Svejda:
> Delphi 5 Prof, BDE
> Potrebuji exportovat data do souboru DBF. Pouzivam BDE Delphi. Zkusil jsem
> vzorovy SQL prikaz:
> Create table "c:\temp\pokus.dbf"
> (
> PRIJMENI CHAR(20),
> JMENO CHAR(15),
> PLAT NUMERIC(10,2),
> ODDELENI SMALLINT
> )
> Pole PLAT NUMERIC(10,2) se sice vytvori, ale ne o velikosti 10,2.
Nevytvori
> se ZADNA velikost :-((((
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
hashovani
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 3.7.2002 11:12:03
> > > nevite nekdo zda se da provest hashovani text do 4bytu (v textu
> jsou
> > > pozite pouze velke pismena a cislice, je mozno i omezeni delky
> textu)
> >
> > 4 bajty na hash jsou malo
>
> Proc? zalezi prece k cemu ten hash ma slouzit. Pokud k jednoznacne
> identifikaci delsich stringu pak je to opravdu malo.
> Pokud ale napriklad ke zrychleni vyhledavani pak to musi stacit.
>
> Podle pouziti bych pak odvodil zpusob vypoctu hashe. Mozna bude stacit
> jen
> 'hloupe' poscitani ascii hodnot znaku v retezci (pripadne je mozne do
> kazdeho bytu
> ulozit 'sumu' ziskanou jinym zpusobem - rotovane hodnoty znaku atd).
> Na internetu
> je mozne sehnat i ponekud sofistikovanejsi algoritmy..
>
> D. Toman
>
opravdu potrebuji jen rychlejso vyhledavani, ale ted me napadlo myslite ze
by stacilo CRC soucet?
RecordCount=1???
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 3.7.2002 11:48:04
> zkus nejprve IBQuery.FetchAll, pak teprve zjistuj
> RecordCount. U velkych dotazu (mnoho vet) to
> FetchAll bude trvat dlouho a stahne spoustu dat, pozor na to.
nebo lepe (SQL-systemoveji ;) si sestav select count... se stejnou
podminkou where jako ma dotaz v IBQuery. nemusis fetchovat vsecky
data, ale vis kolik bude radku. predpokladem je spousteni obou dotazu
pod jednou snapshot transakci (pri readcommited by ti tam nekdo mohl
mezi tema dotazama vsunout/smazat/zmenit nejaky vety).
peca
Vytvoreni zpravy el. posty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2002 12:21:37
VG9obGUgdGkgc2Ftb3pyZWptZSBuZWJ1ZGUgcHJhY292YXQgbmEgcG9jaXRhY2ksIGt0ZXJ5IG5l
dnl1eml2YSBwbG55DQpPdXRsb29rLiBPdXRsb29rIGV4cHJlc3MgbmVwb3NreXR1amUgcm96aHJh
bmkgcHJvIE9MRSBhdXRvbWF0aW9uLg0KT2JhdmFtIHNlLCB6ZSB1bml2ZXJ6YWxuaSBwcm8gb2Jh
IGtsaWVudHkgdG8gbmV1ZGVsYXMuDQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4u
ZmlhbGFAaW9sLmN6DQoNCjMuNy4yMDAyIEluZyAuICBJZ29yIFZvZGnoa2E6DQo+IEFob2ogdmVz
cG9sZWshDQoNCj4gVnJhY2ltIHNlIGplc3RlIGsgdG9tdXRvIHRlbWF0dS4gWnB1c29iIHByZXMg
U2hlbGxFeGVjdXRlIGpzZW0gdGVkeSBvcHVzdGlsDQo+IGEgemt1c2lsIHRpcCBjLiA2MDQgeiBr
bmloeSAiMTAwMSB0aXB1IGEgdHJpa3UgLi4uIiBuYXNsZWRvdm5lOg==
RecordCount=1???
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.7.2002 12:30:54
Ahoj,
pokud se nepletu, tak v pripade, ze neznam pocet vet, vraci se -1.
Pokud se vraci cokoliv vetsiho, pocet vet je znam. Pokud tedy vraci 1
a mnozina obsahuje 3 zaznamy, je nekde chyba a IBQuery.FetchAll() ji
maximalne tak obchazi, nikoliv opravuje. Nemelo by se tedy resit kde
ta chyba je a ne to, kolik tisic ruznych funkci mi z toho udela
neprehlednej kod?
Slavek
On 3 Jul 2002 at 11:07, Karel Rys wrote:
> Ales Pavel dne 3 Jul 2002 v 11:03:
>
> > nazdar kluci at delam co delam IBquery mi vraci vzdy cislo v
> > recordcount=1 ale kdyz pustim sql prikaz venku tak to jsou 3 zaznamy
> > tak tomu je i kdyz natvrdo nastavim cyklus na 3 tak tam ty zaznamy
> > jsou ale recordcount je blbe..nevite v cem to muye byt?? Nevadi tomu
> > SQL ALIASY? Nemate nekdo podobnou zkusenost?
> zkus nejprve IBQuery.FetchAll, pak teprve zjistuj RecordCount. U
> velkych dotazu (mnoho vet) to FetchAll bude trvat dlouho a stahne
> spoustu dat, pozor na to.
> Karel Rys
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
MSSQL a trigger
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.7.2002 12:34:39
> > Databaze obsahuje 200 tabulek. Jeden uzivatel prostrednictvim sady
> > programu muze cist i editovat data z vetsiny techto tabulek.
> *****To je prvni chyba. Dat libovolnemu uzivateli pravo na tabulku
> muze vest k tomu, ze kdyz se uzivatel nastve ci mu rupne v bedne, tak
> smaze vsechna data nebo je jinak poskodi.
Netvrdim, ze uzivatel musi primo editovat tabulky, ale ze potrebuje prostrednictvim
aplikace pristupovat k datum mnoha z nich.
Dale: login, kterym se aplikace prihlasuje na SQL server, by uzivatele nemeli vubec
znat. To je interni vec aplikace. Jina vec je, jak ztizit jeho zjisteni, ale to tu ted
neresme. Uzivatel by se tedy primo na SQL server nemel dostat.
> > To, na co ma a nema prava, si definuje v modulu spravy uzivatelu.
> *****Preci si uzivatel nebude definovat, co si povoli a co ne! To muze
> delat pouze spravce!!
Jiste. Spravce to ale dela v aplikaci, nikoli jeste paralelne na SQL serveru.
> > Tento modul
> > musi umet pridavat uzivatele, mazat uzivatele, sdruzovat je do
> > skupin.
> *****To neni preci problem. Jak jsem psal, od toho jsou role a spol.
No jo, ale kdyz si uzivatel zalozi nejakou skupinu, tak nekdo by musel rozhodnout, ze
je potreba nagrantovat ty a ty pohledy, ty a ty procedury, naopak odgrantovat jine pro
tuto roli... Pokud by existovalo nekolik typizovanych skupin, daly by se jim pripravit
role na miru, ale kdyby se melo analyzovat, zda kdyz chce uzivatel mit pristup k
jednomu modulu a k druhemu ne, tak ze tuhle ulozenou proceduru ten modul
pouziva a tamtu naopak ne, takze by bylo potreba odejmout opravneni... brrr. A pak
se napise dalsi funkce do programu a cely ten analyzator na granty by se musel
doplnit, aby i ta nova funkce mohla fungovat...
> > Prava skupin nejsou pevne
> > dana - uzivatel muze zakladat libovolne skupiny a davat jim prava k
> > libovolnym funkcim programu. Neumim si predstavit, jak by toto slo
> > pokryt udrzbou grantu na SQL serveru.
> *****Naprosto stejne. Predpokladam, ze prava nekam ukladas a podle
> toho se aplikace chova. Tak misto ukladani budes na server posilat
> prikazy GRANT.
Ale prava se prideluji k funkcim programu, nikoli k objektum databaze. To bych si
musel vest _PRESNOU_ a udrzovanou evidenci, ze pro tu a tu cinnost je potreba mit
prava k te a te procedure na serveru a ta procedura bude vyzadovat prava do tech a
tech tabulek..
> > V programu se provadi rada SQL dotazu, ktere se sestavuji az pri
> > behu
> > programu. Neumim si predstavit selecty nesmerovane primo do tabulek,
> > ale do view a ulozenych procedur (ztrata moznosti pouzivat indexy,
> ****To, ze pouzijes view v zadnem pripade neznamena, ze se nepouziji
> indexy!!! Naopak. Navic MS SQL Server od verze 2000 uz umi delat
> indexy primo nad pohledy (obdoba materializovanych indexu na ORACLE).
Pouzivam FireBird, i kdyz si myslim, ze na tuto diskusi by to nemelo mit zasadni vliv.
Tady ale pokud udelam select z ulozene procedury a ten select bude obsahovat
where, tak index nelze pouzit. Nebo pri joinu ulozene procedury s necim - tam taky
ne.
> > navic by krome tech 200 tabulek muselo existovat nekolik tisic
> > ruznych view a ulozenych procedurek na kazdy drobny update.
> *****Nekolik tisic zrejme urcite ne. Na druhou stranu, bezpecnost neco
> stoji. Bohuzel. Ale je co je lepsi? Napsat jednu ulozenou procedur
> navic a mit to slusne zabezpecene nebo ztratit kredit firmy jenom
> proto, ze nejaky magor zkousel prikaz drop ci delete
A jak by ta jedna ulozena procedura mela vypadat? Mam tabulku a jednou budu
delat update s jednou podminkou, pak zase s uplne jinou (mam na mysli uplne jine
where, nikoli zmenu parametru). Na dalsim miste by to chtelo delete vsech dat, na
druhem miste jen nekterych dat. Na kazdou takovou operaci by mela byt ulozena
procedura?
Nezpochybnuji bezpecnost, ani nechci napadat Tva tvrzeni. Jen si neumim
predstavit v praxi pouzitelnou realizaci, aby to programatora nebo uzivatele
nedohnalo k sebevrazde.> > Pokud pouziju autentifikaci Windows, nemusim pak ani
> > > pridavat zadneho uzivatele (od toho tam ta autentifikace je!)
> > Jenze autentifikace Windows predpoklada znacnou kazen uzivatelu (to
> > uz se tu jednou diskutovalo) a tu ma nemnoho uzivatelu pocitacu
> > (nemluvim o odbornicich).
> ***** "Ale pane Omacka, vy se nam neodhlasujete? Sice si beh nasi
> firmy bez vas neumime predstavit, ale od pristiho mesice to zkusime."
> "Pane Novacek, behem obeda nekdo z vaseho pocitace smazal celou
> firemni databazi. Takze vas mame zazalovat o tri miliony nebo nam je
> splatite bez soudu?"
Podle mych zkusenosti bude firma vyzadovat SQL autentizaci, protoze zadavatel je
ona a ne ja, a pokud ji v tom odmitnu vyhovet, najde si nekoho jineho, kdo to
ochotne udela. A kdyz se ztrati data, muze za to stejne nas program, "protoze je
mizerne zabezpecenej a s neduslednosti uzivatelu se prece musi pocitat".
> > Rada firem o pocitacich skoro nic nevi a kvuli jednomu programu
> > pouzivajicim SQL server si prece nebudou chtit platit spravce SQL
> > serveru.
> ******Pokud to bezi na MSDE, pak neprostestuji. Ovsem i tam jde
> udelat rozumna sprava. Pokud si porizuji Standard ci dokonce
> Enterprise baleni, asi jsem velka firma, ktera nejakeho
> administratora ma.
Firma si kupuje nas software a ze ten k tomu potrebuje SQL server, je jeho problem
a ne te firmy, takze firma predpoklada, ze nezbytnou udrzbu budeme provadet my.
Takove firme nevysvetlis, ze k tomu, aby program mohla pouzivat nova sekretarka,
musi zavolat nekoho, kdo jim ji na serveru zalozi.
Rozhodne netvrdim, ze to tak je ve vsech firmach, ale naslo by se nemalo takovych.
David Lebeda
RecordCount=1???
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.7.2002 12:41:31
> pokud se nepletu, tak v pripade, ze neznam pocet vet, vraci se -1.
> Pokud se vraci cokoliv vetsiho, pocet vet je znam. Pokud tedy vraci 1
> a mnozina obsahuje 3 zaznamy, je nekde chyba a IBQuery.FetchAll() ji
> maximalne tak obchazi, nikoliv opravuje.
Nemas pravdu. TDataset sam v sobe pocitani zaznamu nijak neprovadi a cele je to v
rezii implementace potomka. IBExpress to ma tak, ze RecordCount obsahuje vzdy
pocet vet, ktere se dosud nafetchovaly na klienta. Popisovane chovani tomu
odpovida a pouziti FetchAll je jedno z moznych reseni (ale muze to byt hroooozne
pomale). Nejlepsi je na velkych datasetech zjistovani poctu vet vubec nepotrebovat
nebo ho realizovat samostatnym dotazem select count(*)...
David Lebeda
RecordCount=1???
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 3.7.2002 12:42:08
Tohle neni chyba.
IB proste pracuje tak, ze nevyhodnocuje vysledek dotazu sekvencne (ze si
nacte vse do pameti a posila postupne), ale jeden zaznam po druhem, podle
toho, jak si uzivatel zada o data (pomoci Next). IBQuery vidi vzdy jen 1
zaznam, protoze mu jich server vice nezaslal (pokud si je nevyzadame pomoci
FetchAll).
Nacitani treba do gridu se resi jednoduse :
while not Query.Eof do begin
.....
Query.next;
end;
Petr
ICQ# : 119119215
> Ahoj,
>
> pokud se nepletu, tak v pripade, ze neznam pocet vet, vraci se -1.
> Pokud se vraci cokoliv vetsiho, pocet vet je znam. Pokud tedy vraci 1
> a mnozina obsahuje 3 zaznamy, je nekde chyba a IBQuery.FetchAll() ji
> maximalne tak obchazi, nikoliv opravuje. Nemelo by se tedy resit kde
> ta chyba je a ne to, kolik tisic ruznych funkci mi z toho udela
> neprehlednej kod?
>
> Slavek
MSSQL a trigger
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.7.2002 12:45:29
> 1) Osobne si myslim, ze stoji za to spravcovat z aplikace nejen
> aplikacni prava, ale i databazova, je na to dostatek SQL prikazu a da
> se to v pohode naprogramovat (GRANT, DENY, REVOKE, sp_adduser,
> ap_addrolemember ... a mnoho, mnoho dalsich).
Viz paralelni mail.
2) Podle mych zkusenosti
> je nastaveni prav na urovni databaze podstatne bezpecnejsi a
> ucinnejsi, nez totez realizovane na urovni aplikace (jakkoli se bez
> aplikacnich prav take nelze zpravidla obejit)
Souhlas.
Uprednostnoval bych aplikacni role pred
> klasickymi uzivatelskymi ucty, umozni to chranit data pred
> neopravnenym pristupem obchazejicim aplikaci
Ano, aplikacni role na MSSQL serveru se mi libi, ale ja ted vyvijim na FireBird
serveru a tam nic takoveho neni. Nebo se mylim? Jinak ale souhlas, samozrejme.
David Lebeda
RecordCount=1???
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 3.7.2002 12:50:12
> pokud se nepletu, tak v pripade, ze neznam pocet vet, vraci se -1.
> Pokud se vraci cokoliv vetsiho, pocet vet je znam. Pokud tedy vraci 1
> a mnozina obsahuje 3 zaznamy, je nekde chyba a IBQuery.FetchAll() ji
> maximalne tak obchazi, nikoliv opravuje. Nemelo by se tedy resit kde
> ta chyba je a ne to, kolik tisic ruznych funkci mi z toho udela
> neprehlednej kod?
to neni tak docela pravda. IBQuery z principu fungovani SQL nemuze
vedet kolik vet v selectu bude. leda by je server vracel predem, coz
imho nedela. IBQuery.RecordCount vraci pocet vet doposud proslych
zpracovanim. pokud tedy ty data ihned zobrazujes, tak po IBQuery.Open
se nacte prvni zaznam (nebo n potrebnych pro zobrazeni gridu). potom
ti IBQuery.RecordCount vrati 1 (nebo n). pokud potrebujes ve smycce
projet vsecky zaznamy, nedelej to "for i to IBQuery.RecordCount...", ale
"while not IBQuery.Eof...". pokud potrebujes pocet vet predhodit
uzivateli,
pouzij "select count..." nebo IBQuery.FetchAll (to si ale taky muzes
pekne pockat).
peca
Vytvoreni zpravy el. posty
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 3.7.2002 12:55:22
> Na PC Win98 s Outlook Express to vyhazuje hlaseni "Nespravny retezec
tridy".
> Muzete mi nekdo poradit jak pripadne upravit kod, aby to fungovalo pro oba
> postovni klienty.
To nejde, bo Outlook Express nepodporuje OLE.
A v dalsi verzi Outlooku to taky prestane fungovat.
Doporucuji overeny a na Outloocich nezavisly postup.
var SMTP: TNMSMTP;
begin
SMTP := TNMSMTP.Create(self);
SMTP.ClearParams := true;
SMTP.ClearParameters;
SMTP.SubType := mtPlain;
SMTP.Host := // nastavit treba z INI file
SMTP.Port := // nastavit treba z INI file
SMTP.UserID := // nastavit treba z INI file
SMTP.TimeOut := // nastavit treba z INI file
SMTP.PostMessage.Date := DateToStr(now);
SMTP.PostMessage.ToAddress.Add('vodicka(zv)sagit(tec)cz');
// pripadne attachments pres
SMTP.PostMessage.Attachments.Add(file name);
SMTP.PostMessage.Subject := 'objedn�vka';
SMTP.PostMessage.FromAddress :=
SMTP.PostMessage.FromName :=
SMTP.PostMessage.Body.Add(PomString);
try
SMTP.Connect;
except
on E: exception do
begin
Application.MessageBox(PChar(E.Message),'Chyba p�i
spojen�',MB_OK+MB_IconStop);
Application.ProcessMessages;
SomeError := true;
end; {on}
end; {try}
if not SomeError then
try
Screen.Cursor := -11;
lblStatus.Caption := 'Odes�l�m - ..........';
SMTP.SendMail;
Application.ProcessMessages;
Screen.Cursor := 0;
except
on E: exception do
begin
Application.MessageBox(PChar(E.Message),'Chyba p�i
odesl�n�',MB_OK+MB_IconStop);
Application.ProcessMessages;
SomeError := true;
end; {on}
end; {try}
if not SomeError then
try
Screen.Cursor := -11;
lblStatus.Caption := 'Odes�l�m - Odpojen�';
Application.ProcessMessages;
SMTP.Disconnect;
lblStatus.Caption := 'Odes�l�m - Odpojeno';
Application.ProcessMessages;
Screen.Cursor := 0;
except
on E: exception do
begin
Application.MessageBox(PChar(E.Message),'Chyba p�i
odpojen�',MB_OK+MB_IconStop);
Application.ProcessMessages;
SomeError := true;
end; {on}
end; {try}
SMTP.Free;
Vypada to sice pracneji, ale mas vse plne pod kontrolou a nespolehas se na
chyby M$.
Podobne mam hotovy i prijem pres POP3 pomoci TNMPOP3.
>Jak pripadne osetrit stavy, kdy PC neni zrovna pripojeno, aj.
I to lze.
Udelal jsem si vlastni implementaci RASApi. Pomoci toho resim i automaticke
pripojovani a odpojovani.
Mohu poslat na soukromy mail bude-li zajem.
V podstate nekdo potreboval maleho automatickeho mailoveho klienta do sve
aplikace, tak jsem to udelal.
Josef Cerny
********************************************
* Josef A. Cerny
* SW projects leader
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
*
* tel. : 069/661 33 33
* fax : 069/661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************Pripojeni k remote IB serveru
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.7.2002 13:04:11
Haj hou!
On 2 Jul 2002 at 22:32, Petr K. wrote:
> Na serveru W2K mi bezi IB server, na IBConsoli vytvorim Local server
> tam nakou databazi az sem je vse OK. Ze stanice pripojene k W2K serveru
> TCP/IP protokolem se chci pripojit k IB serveru. Jak mam presne psat
> syntaxi do okna "Register server and connect" ?
Nejprve registruj novy server:
- Zaskrtni remote, pokud neni
- Do server name vypis jmeno pocitace (musi byt v DNS nebo host souboru),
pripadne jeho IP adresau
- Vyber protokol TCP/IP
- Dopln alias, user name a password
Zaregistruj databazi:
- File name je cesta a jmeno databaze v kontextu vzdaleneho serveru
- user name, password atd. je jako u lokalni databaze
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Firebird nenastartuje na linuxe
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.7.2002 13:04:12
Haj hou!
On 2 Jul 2002 at 17:22, miro mrazik wrote:
> Firebird nenastartuje a v interbase.log sa objavi toto:
>
> localhost.localdomain (Client) Tue Jun 11 10:31:50 2002
> INET/inet_error: connect errno = 111
> localhost.localdomain (Client) Tue Jun 11 10:31:50 2002
> /opt/interbase/bin/ibguard: guardian starting bin/ibserver
> localhost.localdomain (Client) Tue Jun 11 10:32:05 2002
> INET/inet_error: read errno = 104
> localhost.localdomain (Client) Tue Jun 11 10:32:05 2002
> INET/inet_error: receive in try_connect errno = 104
> localhost.localdomain (Client) Tue Jun 11 10:32:05 2002
> /opt/interbase/bin/ibguard: bin/ibserver normal shutdown.
>
> FB1 superserver a RH 7.1
Co to je, ze nenastartuje ? Nespusti se pri bootu, nebo kdyz zavolas
/etc/init.d/firebird start ? Mas to overeno (podle logu se nastartuje) pres ps -A |
grep ib ? Nebo se proste nemuzes pripojit ? Pokud se nemuzes pripojit, ale
server bezi, pak nemas spravne nastavene /etc/host.equiv
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
OT: CPP Builder linker error
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 03.7.2002 13:12:22
Ahoj,
> Suransky(zv)kios.sk 3.7.02 10:08 >>>
>pretoze nepoznam ziadnu CPP konferenciu a problem moze byt podobny
http://forum.builder(tec)cz/list.php?f=12
http://forum.builder(tec)cz/list.php?f=123
http://www.pcsvet(tec)cz/diskuze/list.asp
http://www.cpp-home.com
http://www.cplusplus.com/forum/
http://www.c-plusplus.de/
>ale pri linkovani nam Linker vyhadzuje chybu Fatal Error LM xxx
>Pouzivame BCB5 aj BCB6.
>Tieto problemy nastali az ked kod narastol na tuto hranicu.
to jsi toho moc nenapsal.......z toho se toho moc posoudit neda
ale vypada to jako chyba
FATAL ERROR LINKER MISSING
zkus si vybrat tu chybu a na ni zmacknout F1....co ti to rekne
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
Vytvoreni zpravy el. posty
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 03.7.2002 13:13:03
> Doporucuji overeny a na Outloocich nezavisly postup.
[zde byl zdrojak...]
> Vypada to sice pracneji, ale mas vse plne pod kontrolou a nespolehas
> se na chyby M$.
Nebo misto straslivych NM* komponent pouzit nativni kod v Synapsi a
misto toho strasiveho zdrojaku mail odesles volanim pouze jedine
funkce SendTo z unity SMTPsend.pas ;-)
Proc jsou NM* komponenty dle mne 'straslive'? (je to pouze muj osobni
nazor... ):
- je to pro programatory 'blackbox'
- nejsou to OCXka, nebo neco takoveho,co se musi pri redistribuci na
jiny pocitac registrovat?
- jsou v nich zname chyby a problemy.. bez moznosti opravy
- jsou jen na nekterych verzich Delphi
- nejsou na Kylix
Vsechny tyto nevyhody NEMA Synapse nebo treba Indy. oboje doporucuji
jako rozumnou alternativu k NM* koponentam...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
RecordCount=1???
[*] Delphin <delphin(zv)post(tec)cz> - 3.7.2002 13:37:21
> nazdar kluci at delam co delam IBquery mi vraci vzdy cislo v
> recordcount=1 ale kdyz pustim sql prikaz venku tak to jsou 3 zaznamy
> tak tomu je i kdyz natvrdo nastavim cyklus na 3 tak tam ty zaznamy
> jsou ale recordcount je blbe..nevite v cem to muye byt?? Nevadi tomu
> SQL ALIASY? Nemate nekdo podobnou zkusenost?
nekdy funguje napred IBQuery.last a potom zjistovat, kolik je zaznamu.
RecordCount=1???
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 3.7.2002 13:39:13
Kdyz das Last, tak je to uplne to same jako FetchAll (samozrejme i nezbytna
delka "zpracovani").
Petr
ICQ# : 119119215
> nekdy funguje napred IBQuery.last a potom zjistovat, kolik je zaznamu.
Programove vytvoreni DBF souboru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2002 13:46:11
Tak potom pres SQL prikaz CreateTable
Tam jde vytvorit i tento druh poli. Doporucuji kouknout na Create
Table do helpu, ktery primo u BDE (Programm files\Common Files\Borland
shared\BDE\LocalSQL.HLP). Jsou tam primo popsany odpovidajici pole u
Paradox a dBase
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.7.2002 Ing. Petr Svejda:
> a jak vytvorim napriklad pole NUMERIC(10,2) ??????????
Vytvoreni zpravy el. posty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2002 13:49:17
Jenomze, pokud autor chce, aby mel uzivatel nad zpravou kontrolu a
zprava se mu pouze vytvorila v klientovi a uzivatel si ji sam odeslal,
tak postup primo pres SMTP to nesplnuje.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.7.2002 Josef A. Cerny:
>> Na PC Win98 s Outlook Express to vyhazuje hlaseni "Nespravny retezec
> tridy".
>> Muzete mi nekdo poradit jak pripadne upravit kod, aby to fungovalo pro oba
>> postovni klienty.
> To nejde, bo Outlook Express nepodporuje OLE.
> A v dalsi verzi Outlooku to taky prestane fungovat.
> Doporucuji overeny a na Outloocich nezavisly postup.
> var SMTP: TNMSMTP;
> begin
> ......
OT unUPX
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 3.7.2002 13:57:07
Zdravim
Bohuzel jsem zjistil, ze na vine neni UPX (k tomuto zaveru me vedlo, ze v
resourcech je pouze jedina ikona a texty do version info, jinak nic), ale MS
VisualBasic, ve kterem je to naprogramovano. Otazka tedy zni, nevite nekdo
jakym zpusobem jde zmenit form VisualBasicoveho programu?
P.S.: Jedna se o program TVProgram (tvp.exe), takze jestli ho nekdo mate,
muzete se mrknout, jestli neco nevyresite.
Zdenek
----- Original Message -----
> > Existuje nejaky program, ktery mi zjisti, cim je EXE zapakovany (UPX
> > nebo podobne pakovace) a rozpakuje ho, abych mel k dispozici
> > normalni, puvodni
>
> Cim presne to nevim, vsechny tyhle soubory osobne povazuji za poskozene
> EXE soubory (urcene ke smazani). Zjistit ze se nejedna o korektni EXE
> soubor je pomerne snadne, protoze minimalne CODE sekce nema
> Executable flag a vsechny ostatni maji taktez zcela nesmyslne flagy ;-)
Ukonceni editace bunky ve StringGridu
[*] <ice3m(zv)atlas(tec)cz> - 3.7.2002 13:58:49
Hezky den preju ...
Mohl by mi prosim nekdo poradit, jak nejlepe ukoncit editaci bunky ve StringGridu (uzivam TAdvColumnGrid)? Tim mam na mysli situaci, kdy uzivatel prave edituje jednu z bunek StringGridu a najednou napr. klikne pravou mysi na jinou bunku. V te chvili potrebuji regulerne ukoncit editaci predchozi bunky tak, aby se editovana bunka nachazela ve stejnem stavu jako po stisku klavesy Enter. Zatim jsem to resil prave simulaci stisku Enter, ale myslim ze existuje mnohem lepsi reseni. Chce to nejak sikovne ukoncit inplaceeditor dane bunky ...
Tom
OT Diamond Fire GL 1000.
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 3.7.2002 14:00:00
Zdravim
No, bezne se da jeste koupit namatkou treba GeForce 2 MX nebo TNT2 oboje
PCI, staci se podivat do nabidky prodejcu. Nebo mrkni na www.aukce(tec)cz,
urcite si vyberes a jeste za levno. (P.S.: berte to jako reklamu od velmi
spokojeneho uzivatele, ne od provozovatele) Na praci bych teda radsi i kdyz
starsi TNT2. A pochybuju, ze by tyhle karty nebezely pod W2K. Na netu je
prece Hardware Compatible List pro W2K. Staci to projet spolu s nabidkou
obchodu a aukce a do 500 se urcite vejdes.
To PV: Nekritizuj cizi HW, ne vsichni jsou tak bohati jako ty, ze si muzou
dovolit nejmodernejsi desku s AGP slotem a do ni kartu za 8kKc. Sam moc
dobre vim, v jake pozici je majitel te karty. Pokud na tom bezi obstojne
W2K, tak to za zastaraly stroj nepovazuj(i).
Zdenek
----- Original Message -----
taky me to napadlo. Kdysi to byla spicka, no ale cert to vem. Jde o to, ze
uz mam zastaraly stroj, ktery mi ale naprosto dostacuje na provozavani
Delphi, Corel a par drobnych aplikaci. No a dnes novou kartu PCI s
ovladacema pro W2k nesezenu. Jedine AGP. Jenze AGP nemam na desce. No a z
toho vyplyva, ze bych mysel vymenit cely streva pocitace. Tak mi zbyva
jedine zustat u nestabilnich W98, nebo prestavet pocitac. I tak dekuji za
radu. DZDZD.
----- Original Message -----
www.windrivers.com
FTP
[*] Krko� Marcel <krkosm(zv)zv.slposta.sk> - 3.7.2002 14:00:24
Zdravim, neviete mi niekto poradit, ako stiahnut z FTP servra viac suborv cez masku, napr. *.*(ako vo WinXX cez mget)? Vdaka za tipy.
hashovani
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 3.7.2002 14:02:58
> Nejak by to asi stacilo, ale rekl bych, ze CRC nedava natolik ruznorode
> hodnoty, aby ti to pokrylo ROVNOMERNE cely prostor 4 bytu -> budes mit
> hromadu mezer v hasovaci tabulce.
>
> Danik
jde mi o vyber polozky ze seznamu s predem neznamym poctem, polozky jsou
urceny textem
tzn, ze bych nejdriv porovnal predpocitane CRC a pokud by bylo shodne tak
porovnam text, pokud se neshoduje pokracuji dale (navic moznost setrideni a
binarniho vyhledavani)
FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 03.7.2002 14:07:51
No tak si vypises vsechny soubory co jsou na FTP serveru (v danem
adresari) a pak je jeden po druhym postupne natahas... takhle to ten
MGET dela. A nevidim problem si tohle neprogramovat.
> Zdravim, neviete mi niekto poradit, ako stiahnut z FTP servra viac
> suborv cez masku, napr. *.*(ako vo WinXX cez mget)? Vdaka za tipy.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
hashovani
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 3.7.2002 14:33:11
> jde mi o vyber polozky ze seznamu s predem neznamym poctem, polozky
jsou
> urceny textem
>
> tzn, ze bych nejdriv porovnal predpocitane CRC a pokud by bylo
shodne tak
> porovnam text, pokud se neshoduje pokracuji dale (navic moznost
setrideni a
> binarniho vyhledavani)
pokud budes chtet podle hashe tridit pak musis zajistit aby hodnota
hashe
vzrustala s pozici stringu tj aby platilo:
string1 < string2
hash(string1) < hash(string2)
netusim, zda je mozne takovy hash (rozumne kratky co se poctu bytu
tyce) vytvorit...
D. Toman
hashovani
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 3.7.2002 14:38:25
to trideni tam bude jen kvuli tomu aby slo pouzit binarni vyhledavani
hashovani
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 3.7.2002 13:47:42
Nejak by to asi stacilo, ale rekl bych, ze CRC nedava natolik ruznorode
hodnoty, aby ti to pokrylo ROVNOMERNE cely prostor 4 bytu -> budes mit
hromadu mezer v hasovaci tabulce.
Danik
-----Original Message-----
From: Ladislav Fitz
> > > nevite nekdo zda se da provest hashovani text do 4bytu (v textu
> jsou
> > > pozite pouze velke pismena a cislice, je mozno i omezeni delky
> textu)
opravdu potrebuji jen rychlejso vyhledavani, ale ted me napadlo myslite ze
by stacilo CRC soucet?
MSSQL a trigger
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 3.7.2002 15:00:46
Ahoj,
ona bezpecnost neni vetsinou ani tak o "spravcich a administratorech", ale o
tom jak moc prukazne udaje v DB jsou (jak moc se blizi stare dobre papir
dokumentaci).
Z tohoto pohledu neni jeden login a tajne heslo do aplikace zase tak spatne.
Zna jej jen ta aplikace (a programator, servisni technik, ...) a uzivatel
neni schopen ani s pomerne dobrymi znalostmi DB menit (mazat, .... ).
Naopak NT autentizace prinasi problemy, v kazdem z nastroju Office je "neco"
pro pristup k MSSQL -> prava mam, jsem clenen spravnych skupin a mohu delat
co chci (a zejmena co znam).
V aplikacich, ktere se nehonosi priponou "podnikova reseni" asi nema smysl
budovat slozity aparat pro zabezpeceni (nema ho kdo obsluhovat) a nejcasteji
vsichni delaji vsechno (takze by byl na nic).
Presto si myslim (a vrele doporucuji), ze dobrym zvykem je nepridelovat
prava primo na tabulky (maximalne SELECT), ale postavit si view a tem
pridelit prava (zase nejlepe na jen SELECT) a ulozene procedury pro ostatni
praci s DB.
Zvyk konstruovat SQL prikazy az v aplikaci je pomerne problematicky, zejmena
u prikazu pro update dat -> vyzaduje to pristupova prava pro vsechny
uzivatele. Zde bych se primlouval za striktni pouziti ulozenych procedur.
Pristupova prav k objektum DB staci nastavit jiz pri vyvoji databaze pouze
pro skupiny. Skupiny vhodne rozdelit dle problemovych oblasti (co se dela,
nikoliv dle pracovnich postupu)
Vlastni nastaveni pro jednotliveho uzivatele je potom pomerne jednoduhe ->
1. pridani noveho uzivatele (vyvolani 2 x sp_ procedury),
2. jeho zarareni do prislusnych skupin, ktere maji pravo spoustet ulozene
procedury a praci s view, dle jeho internich prav z produktu.
Pavel
> From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
> > > souhlasim, ze logovani se na server pres ruzna jmena pro ruzne
> > > uzivatele je lepsi z hlediska bezpecnosti nez pres jeden "tajny"
> > > login, ale reseni s tajnym loginem zase umozni snadno
> > > pridavat/odebirat uzivatele aplikace. Pokud bude mit na
> SQL serveru
> > > kazdy svuj login, znamena operace pridani uzivatele nebo
> uprava jeho
> > > opravneni nutnost na SQL serveru provest zalozeni
> uzivatele a hlavne
> > > pregrantovat jeho prava, a to neni jednoduche.
> > *****To preci nemuzes myslet vazne. Od toho jsou jednak
> role a jednak
> > prava na views, stored procedures a dalsi, ktere se davaji az na
> > vyjimky rolim.
>
> Ahoj,
>
> nejsem odbornik na bezpecnost a rad se poucim.
>
> Databaze obsahuje 200 tabulek. Jeden uzivatel prostrednictvim
> sady programu
> muze cist i editovat data z vetsiny techto tabulek. To, na co
> ma a nema prava, si
> definuje v modulu spravy uzivatelu. Tento modul musi umet
> pridavat uzivatele,
> mazat uzivatele, sdruzovat je do skupin. Prava k urcitym
> cinnostem pak plynou
> jednak z clenstvi ve skupine, ale je mozne nastavovat
> individualni odchylky. Prava
> skupin nejsou pevne dana - uzivatel muze zakladat libovolne
> skupiny a davat jim
> prava k libovolnym funkcim programu. Neumim si predstavit,
> jak by toto slo pokryt
> udrzbou grantu na SQL serveru.
> V programu se provadi rada SQL dotazu, ktere se
> sestavuji az pri behu
> programu. Neumim si predstavit selecty nesmerovane primo do
> tabulek, ale do view
> a ulozenych procedur (ztrata moznosti pouzivat indexy, navic
> by krome tech 200
> tabulek muselo existovat nekolik tisic ruznych view a
> ulozenych procedurek na kazdy
> drobny update.
>
> Nekde je asi chyba. Kde?
>
> Pokud pouziju autentifikaci Windows, nemusim pak ani
> > pridavat zadneho uzivatele (od toho tam ta autentifikace je!)
>
> Jenze autentifikace Windows predpoklada znacnou kazen
> uzivatelu (to uz se tu
> jednou diskutovalo) a tu ma nemnoho uzivatelu pocitacu
> (nemluvim o odbornicich).
>
> > *****Moment. S tabulkami prece nesmi uzivatel pracovat! Prava se
> > davaji na views a ulozene procedury. Co je to za
> bezpecnost, kdyz dam
> > prava na tabulky normalnimu ,,pucmidratovi``?
>
> Viz vyse.
>
> > > V rade firem navic nikdo ani
> > > netusi, ze tam maji SQL server a co to vubec je a tezko
> by to nekdo
> > > delal.
> > *****V rade firem to ma tusit alespon spravce databaze, ktery
> > prideluje prava.
>
> Rada firem o pocitacich skoro nic nevi a kvuli jednomu
> programu pouzivajicim SQL
> server si prece nebudou chtit platit spravce SQL serveru. Sef
> firmy bude velmi
> rozezlen tim, ze nas software vyzaduje, aby se o nej nekdo
> pravidelne staral ne pri
> reseni problemu, ale i pri beznem provozu. Vem si treba
> nejaky hotel, kde jsou dve
> recepcni. Kde by vzali nejakeho spravce, kdyz pocitac je pro
> ne vec, na kterou je
> treba se koukat s posvatnou uctou a chovat se tak, aby se neurazil?
>
> David Lebeda
>
Jak pri Show jednoho formu zobrazit druhy form.
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 3.7.2002 15:30:07
Zdravim,
Chci aby pri Form1.Show se mi nejdrive ukazal Form2. Tady by aplikace cekala na stisknuti Button1 na formulari Form2, pote by se Form2 zavrel. A teprve nyni by se ukazal Form1. Nevite prosim nekdo jak toho docilit?
David Michal
FTP
[*] Krko� Marcel <krkosm(zv)zv.slposta.sk> - 3.7.2002 15:37:55
No jo, lenze ja potrebujem stiahnut napr. abc?d?e.x* a neviem, ako m�m vlastne vylistovat z FTP servra prave tento zoznam, ked list a nlist zobrazi vsetko.
-----Original Message-----
From: Lukas Gebauer [mailto:gebylist(zv)mlp(tec)cz]
Sent: Wednesday, July 03, 2002 2:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: FTP
No tak si vypises vsechny soubory co jsou na FTP serveru (v danem
adresari) a pak je jeden po druhym postupne natahas... takhle to ten MGET dela. A nevidim problem si tohle neprogramovat.
> Zdravim, neviete mi niekto poradit, ako stiahnut z FTP servra viac
> suborv cez masku, napr. *.*(ako vo WinXX cez mget)? Vdaka za tipy.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Jak pri Show jednoho formu zobrazit druhy form.
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 3.7.2002 15:42:16
Y28gdGFraGxlIEZvcm0yLlNob3dNb2RhbCB2IHVkYWxvc3RpIEZvcm0xLk9uU2hvdz8NCg0KcGVj
YQ0K
FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 03.7.2002 15:49:40
Tak si stahni CELY seznam a pak jednotlive nazvy TY ve svem programu
projed a okontroluj zda-li vyhovuje tve masce. Kdyz ano, tak jej
stahni. Porad nevidim v cem je problem.
> No jo, lenze ja potrebujem stiahnut napr. abc?d?e.x* a neviem, ako m�m
> vlastne vylistovat z FTP servra prave tento zoznam, ked list a nlist
> zobrazi vsetko.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Jak pri Show jednoho formu zobrazit druhy form.
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 3.7.2002 15:49:55
procedure TForm1.OnShow(Sender: TObject);
begin
Form2.ShowModal;
...
end;
Martin Ben
> -----Original Message-----
> From: David Michal [mailto:david.michal(zv)czechwireless(tec)cz]
>
> Zdravim,
>
> Chci aby pri Form1.Show se mi nejdrive ukazal Form2. Tady by
> aplikace cekala na stisknuti Button1 na formulari Form2, pote
> by se Form2 zavrel. A teprve nyni by se ukazal Form1. Nevite
> prosim nekdo jak toho docilit?
>
> David Michal
>
Jak pri Show jednoho formu zobrazit druhy form.
[*] =?utf-8?B?xaB0ZXZsw61rIE1hcmnDoW4=?= <Marian.Stevlik(zv)merlin(tec)cz> - 3.7.2002 15:57:32
Do FormShow Formu1 napis:
...
begin
Form2 := TForm2.Create(Self {Application});
try
Form2.ShowModal;
finally
Form2.Release;
end;
end;
a do Button1Click na Forme2 napis
...
ModalResult := mrOk; // mrCancel ...
...
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
-----Původní zpráva-----
Od: David Michal [mailto:david.michal(zv)czechwireless(tec)cz]
Odesláno: 3. července 2002 15:30
Komu: delphi-l(zv)clexpert(tec)cz
Předmět: Jak pri Show jednoho formu zobrazit druhy form.
Zdravim,
Chci aby pri Form1.Show se mi nejdrive ukazal Form2. Tady by aplikace cekala
na stisknuti Button1 na formulari Form2, pote by se Form2 zavrel. A teprve
nyni by se ukazal Form1. Nevite prosim nekdo jak toho docilit?
David Michal
Programove vytvoreni DBF souboru
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 3.7.2002 16:08:54
to je prave ten problem, ze vzorovy SQL priklad NEFUNGUJE. Pole
NUMERIC(10,2) nefunguje. Nemuzete to nekdo vyzkouset? Asi nekde delam chybu,
ale uz dva dny nemuzu najit reseni.
Diky
-----Original Message-----
Tak potom pres SQL prikaz CreateTable
Tam jde vytvorit i tento druh poli. Doporucuji kouknout na Create
Table do helpu, ktery primo u BDE (Programm files\Common Files\Borland
shared\BDE\LocalSQL.HLP). Jsou tam primo popsany odpovidajici pole u
Paradox a dBase
3.7.2002 Ing. Petr Svejda:
> a jak vytvorim napriklad pole NUMERIC(10,2) ??????????
Create table "c:\temp\pokus.dbf"
(
PRIJMENI CHAR(20),
JMENO CHAR(15),
PLAT NUMERIC(10,2),
ODDELENI SMALLINT
)
Pole PLAT NUMERIC(10,2) se sice vytvori, ale ne o velikosti 10,2. Nevytvori
se ZADNA velikost :-((((
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
Re[2]: FTP
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 3.7.2002 16:13:10
function WildcardMatch (FileName, WildCard: string): Boolean;
var pSource : array [0..255] of char;
pPattern : array [0..255] of char;
function MatchPattern (Element, WildCard: PChar): Boolean;
function IsWildcard (s: PChar): Boolean;
begin
Result := StrScan (s, '*') <> nil;
if not Result then Result := StrScan (s, '?') <> nil;
end;
begin
if StrComp (WildCard, '*') = 0 then
Result := True
else
if (Element^ = #0) and (WildCard^ <> #0) then
Result := False
else
if Element^ = #0 then
Result := True
else
begin
case WildCard^ of
'*':
begin
if MatchPattern (Element, (zv)WildCard [1]) then
Result := True
else
Result := MatchPattern ((zv)Element [1], WildCard);
end;
'?': Result := MatchPattern ((zv)Element [1], (zv)WildCard [1]);
else
if Element^ = WildCard^ then
Result := MatchPattern ((zv)Element [1], (zv)WildCard [1])
else
Result := False;
end;
end;
end;
begin
if WildCard = '' then Result := True
else
begin
StrPCopy (pSource, ExtractFileName (FileName));
StrPCopy (pPattern,WildCard);
Result := MatchPattern (pSource, pPattern);
end;
end;
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Wednesday, July 3, 2002, 3:37:55 PM, you wrote:
KM> No jo, lenze ja potrebujem stiahnut napr. abc?d?e.x* a neviem, ako m�m vlastne vylistovat z FTP servra prave tento zoznam, ked list a nlist zobrazi vsetko.
KM> -----Original Message-----
KM> From: Lukas Gebauer [mailto:gebylist(zv)mlp(tec)cz]
KM> Sent: Wednesday, July 03, 2002 2:08 PM
KM> To: delphi-l(zv)clexpert(tec)cz
KM> Subject: Re: FTP
KM> No tak si vypises vsechny soubory co jsou na FTP serveru (v danem
KM> adresari) a pak je jeden po druhym postupne natahas... takhle to ten MGET dela. A nevidim problem si tohle neprogramovat.
>> Zdravim, neviete mi niekto poradit, ako stiahnut z FTP servra viac
>> suborv cez masku, napr. *.*(ako vo WinXX cez mget)? Vdaka za tipy.
KM> -- Lukas Gebauer.
KM> E-mail: gebauerl(zv)mlp(tec)cz
KM> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
MSSQL a trigger
[*] Delphin <delphin(zv)post(tec)cz> - 3.7.2002 16:19:26
> Dat libovolnemu uzivateli pravo na tabulku
Sleduji diskuzi, bezpecnost resim "spatne" univerzalnim aplikacnim uctem a
domnivam se, ze problem je nekde jinde.
Uzivatel se ma prihlasovat do aplikace, ne na server a nema v databazi co
delat, do databaze ma mit pristup jen aplikace a programator. Dat uzivateli
moznost obejit aplikaci a dostat se primo do databaze, napriklad tim, ze ho
aplikace prihlasuje na server a uzivatel pak s pomoci nejake konzole se muze
dostat primo do databaze (staci mu zadat stejny login a password, jak je
zvykly), nema opodstatneni ani smysl, prave to je obrovska dira a na jeji
eliminaci vznika zbytecna potreba duplicitniho zabezpeceni v databazi.
Jisteze existuji vyjimky, ale rad bych chtel vedet duvod, proc ma mit bezny
uzivatel pristup do databaze.
Zapis do event logu
[*] Roland Turcan <rolo(zv)sedas.sk> - 3.7.2002 16:39:13
Hello Delphi CZ konferencia!
Ako zapisem do Windows events log?
--
Best regards, TRoland
hashovani
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 3.7.2002 15:55:19
Hasovaci funkce ti rozstrka stringy do hromady skatulek.
Pro vyhledani si zpocitas znovu Has, zjistis, jaka je to skatulka a tu si
projedes sekvencne.
Rekl bych ze tak do cca (malo) stringu je sevencni projeti skatulky lepsi,
nez si udrzovat setridenou posloupnost stringu. Zalezi, ale jak casto budes
cist a jak casto zapisovat ...
Jinak Hasovaci funkce zachovavajici trideni mi pripada dost nesmyslna,
jelikoz pro hodne podobne stringy musi dat co nejrozdilnejsi vystupy ->
tezko podle toho pujde tridit. (Krome pouziti 1.-4. byte stringu jako
hasovaciho klice, ale ....)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ladislav Fitz
Sent: Wednesday, July 03, 2002 1:38 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: hashovani
to trideni tam bude jen kvuli tomu aby slo pouzit binarni vyhledavani
Handle aplikace
[*] Zach Tom� - 3.7.2002 17:03:18
Jak zjistit handle a nazev aplikace, na kterou kliknu mysi a nasledne bych to chtel ulozit napr. do Listboxu nebo tak neco? Poradite nekdo?
Tom� Zach
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.373 / Virov� b�ze: 208 - datum vyd�n�: 1.7.2002
MSSQL a trigger
[*] Erik Salaj <winsoft(zv)stonline.sk> - 3.7.2002 17:12:45
> Netvrdim, ze uzivatel musi primo editovat tabulky, ale ze potrebuje
prostrednictvim
> aplikace pristupovat k datum mnoha z nich.
> Dale: login, kterym se aplikace prihlasuje na SQL server, by uzivatele
nemeli vubec
> znat. To je interni vec aplikace. Jina vec je, jak ztizit jeho zjisteni,
ale to tu ted
> neresme. Uzivatel by se tedy primo na SQL server nemel dostat.
podla mna je skoda nevyuzit moznosti SQL serverov na zabezpecenie
udajov. Spoliehat sa na jedno heslo a vlastne zabezpecenie v aplikacii
moze byt pre niektore aplikacie uplne postacujuce, ale myslim si, ze
obecne to nie je dobry napad.
> Ale prava se prideluji k funkcim programu, nikoli k objektum databaze. To
bych si
> musel vest _PRESNOU_ a udrzovanou evidenci, ze pro tu a tu cinnost je
potreba mit
> prava k te a te procedure na serveru a ta procedura bude vyzadovat prava
do tech a
> tech tabulek..
korespondencia medzi funkciami programu a pristupnymi objektami databazy
by mala byt jednoducha.
> > > navic by krome tech 200 tabulek muselo existovat nekolik tisic
> > > ruznych view a ulozenych procedurek na kazdy drobny update.
> > *****Nekolik tisic zrejme urcite ne. Na druhou stranu, bezpecnost neco
> > stoji. Bohuzel. Ale je co je lepsi? Napsat jednu ulozenou procedur
> > navic a mit to slusne zabezpecene nebo ztratit kredit firmy jenom
> > proto, ze nejaky magor zkousel prikaz drop ci delete
>
> A jak by ta jedna ulozena procedura mela vypadat? Mam tabulku a jednou
budu
> delat update s jednou podminkou, pak zase s uplne jinou (mam na mysli
uplne jine
> where, nikoli zmenu parametru). Na dalsim miste by to chtelo delete vsech
dat, na
> druhem miste jen nekterych dat. Na kazdou takovou operaci by mela byt
ulozena
> procedura?
ak aplikacia pristupuje k udajom databazy ako k objektom, tak storovana
procedura na zmazanie zaznamu potrebuje akurat ID zaznamu (= objektu).
Ak ide o komplikovanejsie operacie, tak pribudnu dalsie storovane
procedury. Nie som zastancom "univerzalnosti", radsej nech je
5 storovanych procedur, z ktorych kazda robi jednu vec ako jedna
univerzalna, ktora robi 5 roznych veci podla toho ake parametre
dostane.
> Nezpochybnuji bezpecnost, ani nechci napadat Tva tvrzeni. Jen si neumim
> predstavit v praxi pouzitelnou realizaci, aby to programatora nebo
uzivatele
> nedohnalo k sebevrazde.
viem si taku realizaciu (aspon teda teoreticky) predstavit
Erik
ComboBox a csDropDownList style
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 3.7.2002 17:14:34
Zdravim,
Na combo boxu chci pouzit style csDropDownList. Abych zamezil mozne editaci a tak donutil uzivatele vybrat jeden z Items v combo boxu. Problem je, ze pri spusteni jsou sice Items naplneny, ale ComboBox.Text zustava prazdny. V kodu mam ComboBox1.Text := ComboBox1.Items[0], toto funguje pokud pouziji style csDropDown. Pokud vsak pouziji csDropDownList zustane text prazdny. Coz by umoznilo uzivateli vybrat prazdny text a to nechci.
Nejaky napad?
Diky za cas,
David Michal
ComboBox a csDropDownList style
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.7.2002 17:23:47
Puvodni zprava, kterou napsal David Michal dne 3 Jul 2002:
> Na combo boxu chci pouzit style csDropDownList. Abych zamezil mozne
> editaci a tak donutil uzivatele vybrat jeden z Items v combo boxu. Problem
> je, ze pri spusteni jsou sice Items naplneny, ale ComboBox.Text zustava
No musis vybrat pomoci ItemIndex.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
odesilani klavesy (Zpravy)
[*] bleak <bleak(zv)atlas(tec)cz> - 3.7.2002 18:51:54
sndkey32.pas on Delphi CD
Jak udelat aby jeden spolecny UNIT videl vsechny p
[*] Lumir Karas <lumirkaras(zv)seznam(tec)cz> - 03.7.2002 19:25:13
Ahoj ve spolek,
mam nasledujici problem, se kterym si nevim rady:
Mam jeden jediny UNIT, ve kterem mam Procedury a Funkce, ktere maji
byt vyuzivany mnoha ruznymi moduly (TWebModul). Tyto proc/func ovsem
pouzivaji a modifikuji mnoho promennych z techto vnejsich modulu a ja
nechci kazdy tento modul pridavat do klausule USES teto UNITy nebo je
predavat do kazde teto proc/func jako VAR parametr. Predstavoval bych
si to neco jako:
Vnejsi modul:
unit VnejsiModul;
interface
uses
SpolecnyUnit;
type
TWebMod = class(TWebModule)
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebMod: TWebMod;
implementation
...
Neco := MaFunkce(WebMod; ...);
...
Spolecny Unit:
unit SpolecnyUnit;
function MaFunkce(var WM: TWebModule; ...): Boolean;
var
Tmp: TQuery;
begin
Neco := WM.PromennaZVnejsihoModulu;
WM.PromennaZVnejsihoModulu := Neco;
Tmp := TQuery.Create(WM.QueryZVnejsihoModulu);
...
Result := NecoJineho;
end;
Doufam, ze jsem to napsal alespon trochu srozumitelne :o) Mozna by to
slo nejak pres pointery nebo tridu TObject, TClass ale ja nevim jak
na to. Hodila by se nejaka ukazka struktury toho modulu a unitu jako
ja napsal vyse.
Predem moc dekuji.
Lumir.
______________________________________________________________________
Reklama:
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
Nastaveni hlavniho programu
[*] =?x-user-defined?B?SmFuIIppbWVja/0=?= <jsimecky(zv)zskuldova(tec)cz> - 3.7.2002 19:45:46
Dobry den,
Chtel bych se zeptat ja v D6 personal mam udelat program, ktery se spusti a
ikonka bude ve Windows vedle hodin, a kdyz se na ni klikne, aby se
vyrolovala nabydka a podle toho co ci uzivatel vybere tak se otevre urcity
form.
Dale bych se chtel zeptat jak spostet programi aotomaticky po prihlaseni do
Windows, aniz bych kopiroval zastupce do START->PO SPUSTENI.(Ja si myslim ze
by to melo jit pomoci registru, ale jak?).
Za kazdou menci radu budu vdecny.
S pozdravem
***************************
Jan �imeck�
simecky(zv)centrum(tec)cz
http://simecky.webzdarma(tec)cz
***************************
Prevod: word -> na sesnastkove cislo
[*] Jan �imeck� - 3.7.2002 19:45:55
Dobry den,
potreboval bych v D6 personal trochu poradit. Mam v promene typu WORD
ulozene cislo, ale potebuji jej prevest na sestnastkove cislo.
Potrebuji:
1. Kterou promenou mam pouzit k ulozeni sestnastkoveho cisla
2. Jak prevod provest
3. Pujde nakonec sestnastkove cislo prevest jeste na string.
4. jak prevest sestnastkove cislo na WORD
Za kazdou radu bude velmi vsecny.
S pozdravem
***************************
Jan �imeck�
simecky(zv)centrum(tec)cz
http://simecky.webzdarma(tec)cz
***************************
Prevod: word -> na sesnastkove cislo
[*] Martin Cajbik <cajbik(zv)sct.sk> - 3.7.2002 21:26:38
Zdravim
1. Lubovolnu celociselnu, trebars typu Word :-)
2. Nie je nutny, cislo nie je zavisle na ciselnej sustave v ktorej sa zapise
3. IntToHex(Hodnota, 4) (na 4 cislice)
4. Hodnota:= $FFFF kde Hodnota je typu Word
MarCaNT (marcant(zv)sct.sk)
> Dobry den,
>
> potreboval bych v D6 personal trochu poradit. Mam v promene typu WORD
> ulozene cislo, ale potebuji jej prevest na sestnastkove cislo.
>
> Potrebuji:
>
> 1. Kterou promenou mam pouzit k ulozeni sestnastkoveho cisla
> 2. Jak prevod provest
> 3. Pujde nakonec sestnastkove cislo prevest jeste na string.
> 4. jak prevest sestnastkove cislo na WORD
>
> Za kazdou radu bude velmi vsecny.
>
QReport havaruje na W2k
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 3.7.2002 21:27:10
Mozno to tu uz vsetci viete, ale ja som to nevedel:
Na prazdny pocitac s W2k som si nahral Delphi 5 Pro (pochopitelne + posledny
servispak) a ked som do projektu chcel vlozit report, zobrazila sa chyba, ze
sa Delphi pokusa zapisovat na adresu 00070 pripadne dalsie nizke adresy,
zakazdym ine.
Okamzite som z webu stiahol poslednu verziu qreportu, ale po jej
nainstalovani to akurat hlasilo zase nejaku inu adresu, kam chcelo Delphi
pisat.
Pes bol zakopany v tlaciarni. Mal som v tom pocitaci nainstalovanu jedinu
ako vychodziu, ale ta bola sietova a v okamziku delfovania som bol od siete
odpojeny. Spravilo to doinstalovanie este jednej tlaciarne ako lokalnej a
default. Ta sice tiez v skutocnosti neexistovala podobne ako ta sietova, ale
Delphi padat prestalo.
Toz tak.
bye
vmlich http://www.rar(tec)cz
MSSQL a trigger
[*] Erik Salaj <winsoft(zv)stonline.sk> - 3.7.2002 21:29:21
> Uzivatel se ma prihlasovat do aplikace, ne na server a nema v databazi co
> delat, do databaze ma mit pristup jen aplikace a programator. Dat
uzivateli
> moznost obejit aplikaci a dostat se primo do databaze, napriklad tim, ze
ho
> aplikace prihlasuje na server a uzivatel pak s pomoci nejake konzole se
muze
> dostat primo do databaze (staci mu zadat stejny login a password, jak je
> zvykly), nema opodstatneni ani smysl, prave to je obrovska dira a na jeji
> eliminaci vznika zbytecna potreba duplicitniho zabezpeceni v databazi.
> Jisteze existuji vyjimky, ale rad bych chtel vedet duvod, proc ma mit
bezny
> uzivatel pristup do databaze.
Ja tu problem vidim v tom, ze pokial nie su definovani uzivatelia
databazy, tak sa v databaze vzdy (aj ked nepriamo cez aplikacny
server) pracuje s maximalnymi pravami, co je podla mojho nazoru
casovana bomba. Povedzme chyba aplikacneho servera by mohla
sposobit velke problemy, kedze server ma pravo robit vzdy vsetko
so vsetkym. Vhodnym definovanim pristupovych prav
na databazovom serveri je podla mna mozne taketo rizika
podstatne znizit.
Erik
ORISEK s record array
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 3.7.2002 21:40:05
Ahoj kluci mam tohle
Type
PPrava = ^TPrava;
TPrava = Record
ID:Integer;
Typ_Prava:String[6];
end;
Pak jsem si udelal S: array of TPrava
a ted bych potreboval
napsat podminku
IF nejakavalue IN [ s[low(S)..high(s)].ID ]
// Musi tam byt vsechny hodnoty, mel jsem tam if nejakavalue IN
[S[LOW(S)].ID..S[HIGH].ID ] coz je blbost protoze cisla nemusi jit po jedne
sebou a uz vubec nemusi byt low mensi nez high....
Jak na to aby v IN byly vsechny hodnoty z S[].ID???
Nastaveni hlavniho programu
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 3.7.2002 21:50:16
Zdravim
1) RxTrayIcon a RxMenu
2) HKCR/software/microsoft/windows/current version/run
Zdenek
----- Original Message -----
> Chtel bych se zeptat ja v D6 personal mam udelat program, ktery se spusti
a
> ikonka bude ve Windows vedle hodin, a kdyz se na ni klikne, aby se
> vyrolovala nabydka a podle toho co ci uzivatel vybere tak se otevre urcity
> form.
>
> Dale bych se chtel zeptat jak spostet programi aotomaticky po prihlaseni
do
> Windows, aniz bych kopiroval zastupce do START->PO SPUSTENI.(Ja si myslim
ze
> by to melo jit pomoci registru, ale jak?).
ORISEK s record array
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2002 21:51:51
A nebude lepsi si udelat funkci NejakaValue(i: Integer) : Boolean
a v ni v cyklu projit pole a porovnat ?
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.7.2002 Ales Pavel:
> Ahoj kluci mam tohle
> Type
> PPrava = ^TPrava;
> TPrava = Record
> ID:Integer;
> Typ_Prava:String[6];
> end;> Pak jsem si udelal S: array of TPrava
> a ted bych potreboval
> napsat podminku
> IF nejakavalue IN [ s[low(S)..high(s)].ID ]
Programove vytvoreni DBF souboru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2002 21:53:25
UGFrIGJ5IHNsYSB2eXV6aXQga29tcG9uZW50YSBUREJGLCBrdGVyYSBkQmFzZSBmb3JtYXQgenZs
YWRhIGJleg0KcHJvYmxlbXUsIGplIGZyZWUgYSBuZXBvdHJlYnVqZSBCREUgKGkga2R5eiB0b2hs
ZSB0aSB6cm92bmEgbmV2YWRpKS4NCg0KLS0gDQppbmcuIEphbiBGaWFsYQ0KbWFpbHRvOmphbi5m
aWFsYUBpb2wuY3oNCg0KMy43LjIwMDIgSW5nLiBQZXRyIFN2ZWpkYToNCj4gdG8gamUgcHJhdmUg
dGVuIHByb2JsZW0sIHplIHZ6b3JvdnkgU1FMIHByaWtsYWQgTkVGVU5HVUpFLiBQb2xlDQo+IE5V
TUVSSUMoMTAsMikgbmVmdW5ndWplLiBOZW11emV0ZSB0byBuZWtkbyB2eXprb3VzZXQ/IEFzaSBu
ZWtkZSBkZWxhbSBjaHlidSwNCj4gYWxlIHV6IGR2YSBkbnkgbmVtdXp1IG5haml0IHJlc2VuaS4N
Cg0KPiBEaWt5DQoNCj4gLS0tLS1PcmlnaW5hbCBNZXNzYWdlLS0tLS0NCg0KPiBUYWsgcG90b20g
cHJlcyBTUUwgcHJpa2F6IENyZWF0ZVRhYmxlDQo+IFRhbSBqZGUgdnl0dm9yaXQgaSB0ZW50byBk
cnVoIHBvbGkuIERvcG9ydWN1amkga291a25vdXQgbmEgQ3JlYXRlDQo+IFRhYmxlIGRvIGhlbHB1
LCBrdGVyeSBwcmltbyB1IEJERSAoUHJvZ3JhbW0gZmlsZXNcQ29tbW9uIEZpbGVzXEJvcmxhbmQN
Cj4gc2hhcmVkXEJERVxMb2NhbFNRTC5ITFApLiBKc291IHRhbSBwcmltbyBwb3BzYW55IG9kcG92
aWRhamljaSBwb2xlIHUNCj4gUGFyYWRveCBhIGRCYXNlDQoNCg0KPiAzLjcuMjAwMiBJbmcuIFBl
dHIgU3ZlamRhOg0KPj4gYSBqYWsgdnl0dm9yaW0gbmFwcmlrbGFkIHBvbGUgTlVNRVJJQygxMCwy
KSA/Pz8/Pz8/Pz8/DQoNCj4gQ3JlYXRlIHRhYmxlICJjOlx0ZW1wXHBva3VzLmRiZiINCj4gKA0K
PiAgICAgICAgIFBSSUpNRU5JIENIQVIoMjApLA0KPiAgICAgICAgIEpNRU5PIENIQVIoMTUpLA0K
PiAgICAgICAgIFBMQVQgTlVNRVJJQygxMCwyKSwNCj4gICAgICAgICBPRERFTEVOSSBTTUFMTElO
VA0KPiAgICAgICAgICkNCg0KPiBQb2xlIFBMQVQgTlVNRVJJQygxMCwyKSBzZSBzaWNlIHZ5dHZv
cmksIGFsZSBuZSBvIHZlbGlrb3N0aSAxMCwyLiBOZXZ5dHZvcmkNCj4gc2UgWkFETkEgdmVsaWtv
c3QgOi0oKCgoDQo+IC0tLQ0KPiBPZGNob3rtIHpwcuF2YSBuZW9ic2FodWplIHZpcnkuDQo+IFpr
b250cm9sb3bhbm8gYW50aXZpcm92/W0gc3lzdOltZW0gQVZHIChodHRwOi8vd3d3LmdyaXNvZnQu
Y3opLg0KPiBWZXJ6ZTogNi4wLjM3MiAvIFZpcm924SBi4XplOiAyMDcgLSBkYXR1bSB2eWThbu06
IDIwLjYuMjAwMg0KIA==
DBedit align left
[*] bleak <bleak(zv)atlas(tec)cz> - 3.7.2002 23:21:35
zdravim,
potreboval bych komponentu DBEdit se zarovnanim vlevo, cisel i textu.
Mate nekdo tip?
bleak
MSSQL a trigger
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 4.7.2002 00:19:57
> Dat libovolnemu uzivateli pravo na tabulku
K tomuto tematu jste zde napsali uz hodne. Ja Vam napisu svou zkusenost, kterou povazuji za nepochopitelnou :
V nasi firme jsme si koupili SW pro rizeni PPS.Celkova investice cca 5 mil Kc jedouci na ORACLE server. A ted se drzte :
- jelikoz je aplikace pri nacitani dat pomala a nepruzna, tak programatori od dodavatel uci nase uzivatele, s jakym uzivatelem a heslem se dostanou do Oracle pres Excel/MS Query/MS Access (dokonce to pisou do Access aplikace - prihlaste se pod jmenem/heslem). S timto uzivatelem byly delany create database, tabulek, dela se s nim drop,atd, dale s timto uzivatelem pristupuje program z 30 PC do Oracle, navic jsou uzivatele programu ulozeni do ORACLE se svymi hesly nekryptovane (a jelikoz kazdy pouziva vetsinou stejne heslo i do site, tak je to uplne super). Asi jsem Vam dostatecne podrobne popsal,jak se to nema delat a jak to delaj velke firmy s obrovskymi obraty.
Ludek Paral
ReportBuilder a Adonis
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 4.7.2002 03:04:12
Zdravim,
Pouzivam na sestavy knihovnu ReportBuilder a potreboval bych v navrhari v
zalozce DATA pristupovat k datum pomoci ADO.
ReportBuilder funguje jen s knihovnou ADO od Borlandu, kterou nemam. Unit
daADO.pas nejde zkompilovat.
Nechci pouzivat nativni pripojeni pres BDE.
Muzete mi nekdo poradit jak uschopnit RB aby fungoval s Adonisem?
Diky
Martin Pavera
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
ComboBox a csDropDownList style
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 4.7.2002 06:09:58
ComboBox1.ItemIndex := 0;
Takhle to delam ja ...
Rumcajs
Zdravim,
Na combo boxu chci pouzit style csDropDownList. Abych zamezil mozne editaci
a tak donutil uzivatele vybrat jeden z Items v combo boxu. Problem je, ze
pri spusteni jsou sice Items naplneny, ale ComboBox.Text zustava prazdny. V
kodu mam ComboBox1.Text := ComboBox1.Items[0], toto funguje pokud pouziji
style csDropDown. Pokud vsak pouziji csDropDownList zustane text prazdny.
Coz by umoznilo uzivateli vybrat prazdny text a to nechci.
Nejaky napad?
Diky za cas,
David Michal
---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.373 / Virová báze: 208 - datum vydání: 1.7.2002
DBEdit align left
[*] <bleak(zv)atlas(tec)cz> - 4.7.2002 06:22:38
zdravim,
mate prosim nekdo tip na komponentu zalozenou na DBEdit, ktera umi zarovnavat text i cisla vlevo?
bleak
Programove vytvoreni DBF souboru
[*] "Netu�il, Roman, Ing." - 4.7.2002 07:25:46
Zdravim,
taky jsem se popral s timto problemem. Vyresil jsem to tak, ze jsem soubor
vytvoril jako binarni (pouze hlavicka DBF souboru). Z existujiciho DBF
souboru jsem si precetl strukturu hlavicky (v mem pripade to bylo 290 bytu).
Soubor jsem pak otevrel jako TTable a naplnil ho zaznamy.
var
FileName: string;
F: File of byte;
A: Array[0..289] of byte;
I: Integer;
DataTable: TTable;
...
begin
...
A[0] :=$03;
A[1] :=$64;
A[2] :=$09;
A[3] :=$0D;
A[4] :=$00;
A[5] :=$00;
A[6] :=$00;
A[7] :=$00;
A[8] :=$21;
A[9] :=$01;
A[10] :=$3D;
A[11] :=$00;
A[12] :=$00;
A[13] :=$00;
A[14] :=$00;
A[15] :=$00;
...
A[288]:=$0D;
A[289]:=$1A;
AssignFile(F,FileName);
try
ReWrite(F);
except
end;
try
for I:=0 to 289 do
Write(F,A[I]);
except
end;
try
CloseFile(F);
except
end;
try
DataTable:= TTable.Create(self);
except
end;
if DataTable<>nil then
begin
DataTable.DataBaseName:= '...';
DataTable.TableName:= '...'
DataTable.TableType:= ttDBase;
try
DataTable.Open;
except
end;
if DataTable.Active then
begin
...
DataTable.Close;
end;
DataTable.Free;
end
end;
-----Original Message-----
From: Ing. Petr Svejda [mailto:lingvista(zv)lingvista(tec)cz]
Sent: Wednesday, July 03, 2002 11:08 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Programove vytvoreni DBF souboru
a jak vytvorim napriklad pole NUMERIC(10,2) ??????????
Petr
-----Original Message-----
Podivej se na Table.Fields
Je to seznam poli, takze pres Fields.Add() pridas pole, ktere
potrebujes.
2.7.2002 Ing. Petr Svejda:
> Delphi 5 Prof, BDE
> Potrebuji exportovat data do souboru DBF. Pouzivam BDE Delphi. Zkusil jsem
> vzorovy SQL prikaz:
> Create table "c:\temp\pokus.dbf"
> (
> PRIJMENI CHAR(20),
> JMENO CHAR(15),
> PLAT NUMERIC(10,2),
> ODDELENI SMALLINT
> )
> Pole PLAT NUMERIC(10,2) se sice vytvori, ale ne o velikosti 10,2.
Nevytvori
> se ZADNA velikost :-((((
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
ADO ?
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 4.7.2002 07:28:02
Mam mensi dotaz.
Kde se da sehnat najaka instalace ADO ? Potrebuji pouzit na pocitaci
databazi Access bez nutnosti instalace tohoto MShitu .... existuje nejaka
instalace pouze ovladacu pro pripojeni k MDB databazi (Access) ?
Petr
ICQ# : 119119215
ADO ?
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 4.7.2002 07:56:42
No taky jsem se uz po necem shanel ale bez uspechu. Kdyz jsme u toho ADO(OLE DB) a BDE tak co je lepsi volba pro pristup k accessu ?
Milos
-----Original Message-----
From: Petr [mailto:DelphiForum(zv)seznam(tec)cz]
Sent: Thursday, July 04, 2002 7:28 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: ADO ?
Mam mensi dotaz.
Kde se da sehnat najaka instalace ADO ? Potrebuji pouzit na pocitaci
databazi Access bez nutnosti instalace tohoto MShitu .... existuje nejaka
instalace pouze ovladacu pro pripojeni k MDB databazi (Access) ?
Petr
ICQ# : 119119215
ADO ?
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 4.7.2002 07:57:21
Myslim ze ADO .... BDE je jiz zastarale a dost nespolehlive ... na druhou
stranu se da bez problemu sehnat.
Petr
ICQ# : 119119215
No taky jsem se uz po necem shanel ale bez uspechu. Kdyz jsme u toho ADO(OLE
DB) a BDE tak co je lepsi volba pro pristup k accessu ?
Milos
ADO ?
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 4.7.2002 08:01:20
Hi,
u Microsoftu mdac_typ.exe (ADO 2.6, resp. ADO 2.7)
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
-----Original Message-----
Kde se da sehnat najaka instalace ADO ? Potrebuji pouzit na pocitaci
OT Diamond Fire GL 1000.
[*] <Zdenek.Gala(zv)datis.cdrail(tec)cz> - 4.7.2002 08:02:57
Ahoj,
diky za radu. Akorat si nejsem vedom, ze bych (jak pises) kritizoval cizi
HW a mezi bohate taky nepatrim.
Mej se, DZDZD.
"Zdenek
Stepanek" Komu: <delphi-l(zv)clexpert(tec)cz>
<zstepanek(zv)atlas Kopie:
(tec)cz> P�edm�t: Re: OT Diamond Fire GL 1000.
Odeslal:
delphi-l-owner(zv)c
lexpert(tec)cz
07.03.02 14:00
Odpov�zte pros�m
u�ivateli
delphi-l
Zdravim
No, bezne se da jeste koupit namatkou treba GeForce 2 MX nebo TNT2 oboje
PCI, staci se podivat do nabidky prodejcu. Nebo mrkni na www.aukce(tec)cz,
urcite si vyberes a jeste za levno. (P.S.: berte to jako reklamu od velmi
spokojeneho uzivatele, ne od provozovatele) Na praci bych teda radsi i kdyz
starsi TNT2. A pochybuju, ze by tyhle karty nebezely pod W2K. Na netu je
prece Hardware Compatible List pro W2K. Staci to projet spolu s nabidkou
obchodu a aukce a do 500 se urcite vejdes.
To PV: Nekritizuj cizi HW, ne vsichni jsou tak bohati jako ty, ze si muzou
dovolit nejmodernejsi desku s AGP slotem a do ni kartu za 8kKc. Sam moc
dobre vim, v jake pozici je majitel te karty. Pokud na tom bezi obstojne
W2K, tak to za zastaraly stroj nepovazuj(i).
Zdenek
----- Original Message -----
taky me to napadlo. Kdysi to byla spicka, no ale cert to vem. Jde o to, ze
uz mam zastaraly stroj, ktery mi ale naprosto dostacuje na provozavani
Delphi, Corel a par drobnych aplikaci. No a dnes novou kartu PCI s
ovladacema pro W2k nesezenu. Jedine AGP. Jenze AGP nemam na desce. No a z
toho vyplyva, ze bych mysel vymenit cely streva pocitace. Tak mi zbyva
jedine zustat u nestabilnich W98, nebo prestavet pocitac. I tak dekuji za
radu. DZDZD.
----- Original Message -----
www.windrivers.com
Uvolnovanie recordov alokovanych v TList
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 04.7.2002 08:02:48
Ahoj,
mam zoznam recordov napr. s takouto strukturou:
PRec = ^TRec;
TRec = record
i: integer;
S: string;
end;
Tieto recordy ukladam do TList-u cez New().
Pri uvolnovani zoznamu (cez Dispose) najskor kazdemu
zaznamu priradim do S prazdny retazec (pre istotu).
Nie som si vsak isty, ci je taketo vyprazdovanie
stringovych premennych v recorde naozaj potrebne.
Nedokaze sa o uplne uvolnenie jednotlivych prvkov
recordu postarat samotna funkcia Dispose?
Vlkovic