Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ceske zakony
[*] Josef Koke� <kokes(zv)fsid.cvut(tec)cz> - 21.10.1999 08:36:32
Zkus
www.sagit(tec)cz
Kokes
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, October 21, 1999 7:24 AM
Subject: OT: ceske zakony
nevie niekto ci sa na internete nachadza zbierka ceskych zakonov s bezplatnym pristupom ?
Martin
DCOM - Interface not supported
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.10.1999 08:42:10
Haj hou!
From: Tom� Br�dle <t.bradle(zv)pvtnet(tec)cz>
> Mam dva pocitace s Win9x (jeden Win95, druhy Win98,
> oba s IE4.01 SP 1), DCOM server a client. Server zaregistruji na obou
> pocitacich. V klientovi se pokusim pripojit pomoci
> CoClass.CreateRemote('POCITAC'). Pri teto akci mi vybehne vyjimka
Interface
> not supported. Zkusil jsem i dat na oba pocitace pouze protokol TCP/IP.
DCOM
> server jsem spustil, pry se v Win9x nedokaze sam "nahodit". Nic z toho
> nepomohlo.
Duvodu muze byt nekolik, takze postupne okontroluj nasledujici:
a) Registrace serveru je nutna pro registraci TLB. Nemusis tedy registrovat
server, ale staci jen to TLB (zvladne to RegSvr.EXE v Delphi\Bin). Podstatne
je, ze ono TLB (at uz jako samostatny file nebo zabalene v serveru jako
resource) MUSI byt dostupne na lokalni masine. Doporucuji nakopirovat TLB do
Windows\System a zaregistrovat).
b) V interface a / nebo v TLB muzes pouzivat interface definovany v jinem
TLB, ktere neni zaregistrovano (napr. STDVCL.TLB definuje IProvider,
IStrings apod. (pozor, patri k tomu i STDVCL.DLL !). K nalezeni ve
Windows\system. Postupuj nejlepe jako v bode a)
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
IB
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.10.1999 08:44:53
Haj hou!
From: Martin
nainstaloval som bde a klientsku aplikaciu, len v bde nemam alias pre IB. Ak si ho zalozim co mam napisat do nazvu serveru ? IB je na inom pocitaci.
Napr: \\JmenoServeru\cesta k databazi\jmenodatabaze
Pouzije se primarne NetBEUI
Nebo: HostName nebo IP adresa:cesta k databazi/jmeno databaze
Pouzije se TCP/IP
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
ODBC alebo BDE
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.10.1999 08:45:21
Ahoj,
ad 1) see HKEY_CURRENT_USER\Software\
ODBC\ODBC.INI\ODBC Data Sources
ad 2) umi to kmponenty mODBC, ale mel jsem
s nimi problemy; ale mozna jsem je jen
spatne pouzival.
(http://www.perio.unlp.edu.ar/modbc/ nebo
http://www.chat.ru/~ksav/
(je to open source))
Dobra.
--------------
> potreboval by som napr. do listboxu vlozit pri spusteni projektu
> vsetky
> UserDNS z ODBC resp. BDE, aby si mohol uzivatel vybrat databazu a
> connect-nut sa na
> nu. Malo by to byt string;
>
> A este jeden dotaz. Da sa napojit databaza tak, aby nevyuzivala BDE.
> Len
> cisto ODBC z Woknous
>
> ComboBox - problem
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 21.10.1999 09:00:25
1. Mam ComboBox, ve kterem ma nejake polozky. Je nastaven tak, aby tam
uzivatel nemohl nic zmenit, pouze si vybrat (csDropDownList), ale za boha
nemohu prijit na to, jak prednastavit nejakou polozku.
2. Lze do ComboBoxu vkladat obrazky k jednotlivym polozkam?
Muzete me prosim nekdo nakopnout?
Preji prijemny den.
Petr Reichl
-
E-mail: reichl(zv)centrum(tec)cz
PGP: podporov�no
Manual k MySQL
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 21.10.1999 09:17:37
>Sory za off-topic, ale celkem bych se chtel naucit delat s databazema, a
tak
>hledam na Inetu nejakej (pokud mozno ceskej) manual k MySQL pro Linux.
O ceskem nevim, anglicky je na:
http://www.mysql.com/doc.html
Leos
COM & DCOM
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 21.10.1999 09:33:49
Muzete mi prosim doporucit nejake cteni (pokud mozno v cestine) o COM a DCOM
technologiich, nejake priklady, open source v Delphi apod. Chtel bych se o
tom dozvedet neco vice a trochu to pochopit.
Preji prijemny den.
Petr Reichl
-
E-mail: reichl(zv)centrum(tec)cz
PGP: podporov�no
Array v Published
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 21.10.1999 09:44:06
Cauec,
stahl jsem si free komponentu vcetne source, kterou nemuzu pridat do palety.
Problem vezi pri kompilaci v hlaseni chyby
Published property 'GraphData' cannot be of type ARRAY
na radku
property GraphData[I:Byte]:Integer read GetGraphData write SetGraphData;
v sekci published
Psal jsem i autorovi, ale zatim klid...
Cast zdroje prikladam.
-- CUT --
const
MaxDataCount=1000;
type
TGraphData=Array [0..MaxDataCount-1] of Comp;
type
TLogGraph = class(TGraphicControl)
private
FGraphData:TGraphData;
:
function GetGraphData (I:Byte):Integer;
procedure SetGraphData (I:Byte;Value:Integer);
:
protected
:
public
:
published
property GraphData[I:Byte]:Integer read GetGraphData write SetGraphData;
Na tomto radku vylitne pri kompilaci chyba.
-- CUT --
Poradte please, co s tim... V helpu jsem cosi cetl, ale moc chytry z toho
nejsem.
Bye Ludan
ComboBox - problem
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 21.10.1999 10:05:23
> 1. Mam ComboBox, ve kterem ma nejake polozky. Je nastaven tak, aby tam
> uzivatel nemohl nic zmenit, pouze si vybrat (csDropDownList),
> ale za boha
> nemohu prijit na to, jak prednastavit nejakou polozku.
***********************************************************************
Ahoj,
jde to treba takhle:
procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
begin
// nastaveni obsahu comba
// tohle vymaze predchozi obsah comba
ComboBox1.Clear;
// tohle prida do comba polozky 0..9
for i := 0 to 9 do
begin
ComboBox1.Items.Add('Polozka ' + IntToStr(i));
end;
// tohle vlozi do comba polozku 1a za polozku 1
ComboBox1.Items.Insert(2, 'Polozka 1a');
// tohle prednastavi combo na polozku 1
ComboBox1.ItemIndex := 1;
end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
IB
[*] Zdenek Moravec <zmo(zv)telecom(tec)cz> - 21.10.1999 10:13:47
Zdravim vsechny,
mam jenom malou podotazku. Dalo by se pristoupit k IB serveru pres TCPIP
(napr. free IB 4.0 na Linuxu) bez aliasu ? Bez ODBC DSN se asi neobejdu -
nebo ano ? Jak to udelat nejlepe, abych nemusel v siti konfigurovat pro
vsechny pocitace jejich novou DSN ??
S pozdravem,
Zdenek Moravec zmo(zv)telecom(tec)cz
-----P�vodn� zpr�va-----
Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. ��jna 1999 8:54
P�edm�t: Re: IB
Haj hou!
From: Martin
nainstaloval som bde a klientsku aplikaciu, len v bde nemam alias pre IB.
Ak si ho zalozim co mam napisat do nazvu serveru ? IB je na inom pocitaci.
Napr: \\JmenoServeru\cesta k databazi\jmenodatabaze
Pouzije se primarne NetBEUI
Nebo: HostName nebo IP adresa:cesta k databazi/jmeno databaze
Pouzije se TCP/IP
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
ComboBox - problem
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 21.10.1999 10:20:53
AD 1,
Normalne si napis hodnotu, kterou chces prednastavit, do vlastnosti "Text".
Snad ti to bude stacit.
Tom
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
1. Mam ComboBox, ve kterem ma nejake polozky. Je nastaven tak, aby tam
uzivatel nemohl nic zmenit, pouze si vybrat (csDropDownList), ale za boha
nemohu prijit na to, jak prednastavit nejakou polozku.
2. Lze do ComboBoxu vkladat obrazky k jednotlivym polozkam?
Muzete me prosim nekdo nakopnout?
Preji prijemny den.
Petr Reichl
-
E-mail: reichl(zv)centrum(tec)cz
PGP: podporov�no
Odstraneni Scroll baru z DbGrid
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 21.10.1999 10:27:01
> Shodou okolnosti jsem vcera zkousel DBGrid od GExperts a pisou ze umi
to je sice pekne, ale jaka je adresa na GExperts ???
> vypnout horizontalni scrollbar (vertikalni nevim). Je to se zdrojakama a
> umi i checkboxy pro boolean hodnoty (mimo jine). Nevypada spatne - free
> w. source.
>
> Mac
>
> Pavel Bare� wrote:
>
> > Nevite nekdo jak odstranit Scroll bar z DbGridu.A proc tam vubec je,
> > kdy� se tam vsechny zaznamy vejdou ?Nekolikrat se mi dokonce stalo, za
> > sam zmizel.autoincrement - Interbase
[*] Robert Kindl <rob(zv)exec(tec)cz> - 21.10.1999 10:42:27
>Zajimalo by me, co jsem zvykly pouzivat. Myslel jsem, ze bych to mel
>vedet spis ja. A rad bych dostal odpoved. Zkusim popsat vzniklou situaci
>co nejkonkretneji.
>Mam app.exe, ktery pouziva zakaznikuv klient. Protoze tuto aplikaci
>jsi delal TY, je v ni generovani primarniho klice, jsou v ni prikazy
>UPDATE a INSERT. K teto aplikaci ma pristup par tisic zamestnancu zakaznika
>a kazdy z nich ma moznost si toto exe zobrazit v textovem editoru.
>Muze tak vysledovat neco o strukture databaze, aby se mohl efektivneji
>nabourat
>do systemu. Zajimalo by mne, jaky efektivnejsi zpusob nez ze to v tom exe
>nebude,
>mohu pouzit.
Sorry za offtopic k tematu, ale
TAK TOHLE MNE FAKT ROZESMALO.
Tisic zamestnancu hrajicich si na hackera pomoci textoveho editoru!!!
A zrovna tohle tvrdi Jura, ktery se neumi podivat do dokumentu
Wordu jestli tam Bill zasil GUID autora nebo ne!
To si opravdu myslis, ze bezny uzivatel dokaze pohledem do
EXE neco zjistit?
Ja jsem vzdy pouzival uzce specializovane
nastroje jako TD32 nebo HIEW, ale JEN si natahnout EXE
do Notepadu nebo snad do WordPadu nebo dokonce to Wordu
a koukat na to?
Bezny uzivatel se o to ani nepokusi.
Zkusenejsiho uzivatele zastavi pokud bude aplikace vyzadovat
heslo, ktere neumi obejit (neni utilita na internetu).
Prumerny programator se bezne ve firmach nevyskytuje
a pokud ano tak umi odstanit tak jeste NagScreen.
Hloupy system prolomi, chytrejsi uz nikoliv.
Zkuseneho hackera nezastavi temer nic. Alespon ne pokud
bude mit dost casu a vy budete pouzivat dnes bezne technologie
zabezpeceni.
Ale mozna, ze jste opravdu dobri a ani hacker vas nedostane.
Tak co kdyby jste vypsali nejakou odmenu za prolomeni
vaseho systemu?
Rob
Posledni verze COMCTL32.DLL
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 21.10.1999 10:44:36
Ahoj,
na CD s D5 nebo www.microsoft.com .
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
----- P�vodn� zpr�va -----
Od: <martin.falta(zv)obi(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 20. ��jna 1999 16:46
P�edm�t: OT: Posledni verze COMCTL32.DLL
>
> Ahoj,
>
> omlouvam se za OFF-TOPIC, ale potreboval bych vedet %subj%.
>
> Diky
> Martin
>
>
Odstraneni Scroll baru z DbGrid
[*] Pavel �im��ek - 21.10.1999 11:01:10
Nedavno jsem se ve zdrojacich DBGridu dost hrabal a pokud jsem to dobre pochopil tak v podstate funguje jako omezeny DBNavigator. Posun o jeden zaznam nahoru a dolu pripadne posun o pocet zaznamu danych velikosti stranky. Odstranit ho neni mozne bez zasahu do zdrojaku. Zalezi na co to chces a jak si to predstavujes.
To ze by zmizel se zatim nestalo, ale mozne je vse obzvlast u teto komponenty ktera neni bez chyb.
Ahoj Pavel
-----P�vodn� zpr�va-----
Od: Pavel Bare� <Atoll(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. ��jna 1999 20:33
P�edm�t: Odstraneni Scroll baru z DbGrid
Nevite nekdo jak odstranit Scroll bar z DbGridu.
A proc tam vubec je, kdy� se tam vsechny zaznamy vejdou ?
Nekolikrat se mi dokonce stalo, za sam zmizel.
dekuji za radu
Pavel Bare�
Atoll s.r.o.Problem: Formy
[*] Pavel �im��ek - 21.10.1999 11:06:47
Nepochopil jsem to asi dost presne, ale z toho co pises mi neni jasne jak se
muzes prepinat mezi F1 a F2, kdyz F1 je modalni.
Ahoj Pavel
-----P�vodn� zpr�va-----
Od: johndelphi(zv)atlas(tec)cz <johndelphi(zv)atlas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. ��jna 1999 20:33
P�edm�t: Problem: Formy
>
>Hi,
>
>posilam to po treti, doufejme, ze to konecne dorazi...
>
>Mam v unitu fci, ktera zavola form: F1.showmodal. Ten pak zavola F2.show a
ukonci se. Fce v unitu pak zavola F3.show a ja bych potreboval, aby se mezi
F1 a F2 (to jde) ale tez mezi F2 a F3 dalo prepinat.
>
>Nevite nekdo co s tim?
>
>S pozdravem,
>
>Lukas Gallina
>COM & DCOM
[*] Tom� Br�dle������i�^����? - 21.10.1999 11:08:28
Zdravim
jeden zajimavy zdroj je tady www.intac.com/~bly/com/index.htm . Je sice v
anglictine, zato je se spustou prikladu.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
>Muzete mi prosim doporucit nejake cteni (pokud mozno v cestine) o COM a
DCOM
>technologiich, nejake priklady, open source v Delphi apod. Chtel bych se o
>tom dozvedet neco vice a trochu to pochopit.
>
>Preji prijemny den.
>
>Petr Reichl
Bezpecnost dat (opravneni uzivatele) [long]
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 21.10.1999 10:13:47
Jak uz jsem psal nekdy do konference,
tak zajisteni dat (pristupu) na SQL serveru povazuji
za primarni, nebot
1. nainstalovat si klienta nektere DB neni problem
2. soucasti klienta byva nejaka SQL utilitka
3. Heslo pro uplny pristup k datum je vlastne verejne (maji ho v sobe programy)!
4. Nemusim chtit DB znicit, muze se jednat o snahu jej "vylepsit"
5. Sem si doplnte scenar podle vlastnich predstav
rozdelenim ROLI na SQL serveru se vyhnu nejbolavejsim mistum (ne vsem),
dalsim krokem je logovani uzivatele (a evidovani je pristupu). Toho lze
dosahnout pomoci SP a Trigru.
Tato skutecnost by mela byt znama (prevence).
Nektere casti je asi treba resit i na strane aplikace, to beru.
S vyhodou lze vyuzit systemove privilegia (vec na kterou IB nepamatuje).
Pokud mam potrebu neco zverejnit anonimnimu uzivateli, tak pres PUBLIC
a pro programy zavedu ucet GUEST.
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Fax: 068 535 23 64
e-mail:skopalik(zv)atlas(tec)cz
ComboBox - problem
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 21.10.1999 11:19:26
> 1. Mam ComboBox, ve kterem ma nejake polozky. Je nastaven tak, aby tam
> uzivatel nemohl nic zmenit, pouze si vybrat (csDropDownList), ale za boha
> nemohu prijit na to, jak prednastavit nejakou polozku.
.ItemIndex:=
> 2. Lze do ComboBoxu vkladat obrazky k jednotlivym polozkam?
Obrazky si muzes pridat do Items.Objects, ale nezapomen
na to ze Objects se sami neuvolnuji !
A jejich vykresleni provedes v OnDrawItem
Daniel
> Muzete me prosim nekdo nakopnout?
>
> Preji prijemny den.
>
> Petr Reichl
> -
> E-mail: reichl(zv)centrum(tec)cz
> PGP: podporov�no
>
>
ComboBox - problem
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 21.10.1999 10:33:02
>1. Mam ComboBox, ve kterem ma nejake polozky. Je nastaven tak, aby tam
>uzivatel nemohl nic zmenit, pouze si vybrat (csDropDownList), ale za boha
>nemohu prijit na to, jak prednastavit nejakou polozku.
>
>2. Lze do ComboBoxu vkladat obrazky k jednotlivym polozkam?
>
>Muzete me prosim nekdo nakopnout?
>
>Preji prijemny den.
>
>Petr Reichl
>-
>E-mail: reichl(zv)centrum(tec)cz
>PGP: podporov�no
Ad 1
Prednastavit nejakou polozku v design modu nelze, musis to udelat v programu.
napr. Combobox1.ItemIndex := 5;
Ad 2
Bud si na DSP najdi nejakou komponentu,
nebo existuje jednoduchy zpusob.
Potrebujes k tomu ImageList
Combobox nastav na csOwnerDrawVariable
do eventu OnDrawItem napis neco takoveho:
procedure TForm4.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var Comb:TComboBox;
begin
Comb := Control as TComboBox;
Comb.Canvas.TextRect(Rect,40,Rect.Top,Comb.Items.Strings[Index]);
ImageList1.Draw(Comb.Canvas,Rect.Left+2,Rect.Top,0);
end;
Radim Kunz
�as
[*] Martin <geoplan(zv)pp.sinet.sk> - 21.10.1999 11:54:21
Spr�va vo form�te MIME rozdelen� na viac �ast�.
zdravim
Ako v delphi4 z�skam aktu�lny �as ? Ide mi o to, zaznamen�m �as, spust�m proceduru, po skon�eni zovu zaznamenam dostanem cas potrebny pre vykonanie procedury.
Martin
COM & DCOM
[*] Pavel �im��ek - 21.10.1999 12:10:14
Zakladni komponentni technologie COM
Vydal Computer Press
1998
Ale bohuzel priklady jsou ve Visual Basicu 5.0
Ahoj Pavel
-----P�vodn� zpr�va-----
Od: Petr Reichl <reichl(zv)atlas(tec)cz>
Komu: ListServ - Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 21. ��jna 1999 11:31
P�edm�t: COM & DCOM
>Muzete mi prosim doporucit nejake cteni (pokud mozno v cestine) o COM a
DCOM
>technologiich, nejake priklady, open source v Delphi apod. Chtel bych se o
>tom dozvedet neco vice a trochu to pochopit.
>
>Preji prijemny den.
>
>Petr Reichl
>-
>E-mail: reichl(zv)centrum(tec)cz
>PGP: podporov�no
>
>Array v Published
[*] Jaroslav ��pek - 21.10.1999 12:17:30
Nevim jak v ostatnich verzich, ale v D3 nesm� b�t v sekci published property
typu pole. Doporucuji definici property GraphData presunout do sekce public.
type
TLogGraph = class(TGraphicControl)
private
FGraphData:TGraphData;
:
function GetGraphData (I:Byte):Integer;
procedure SetGraphData (I:Byte;Value:Integer);
:
protected
:
public
property GraphData[I:Byte]:Integer read GetGraphData write
SetGraphData;
published
end
To by mohlo pomoc.
S pozdravem
Jaroslav Sipek
E-mail: jaroslav.sipek(zv)idea(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ing. Ludek Florian
Sent: Thursday, October 21, 1999 9:44 AM
To: Konference Delphi
Subject: Array v Published
Cauec,
stahl jsem si free komponentu vcetne source, kterou nemuzu pridat do palety.
Problem vezi pri kompilaci v hlaseni chyby
Published property 'GraphData' cannot be of type ARRAY
na radku
property GraphData[I:Byte]:Integer read GetGraphData write SetGraphData;
v sekci published
Psal jsem i autorovi, ale zatim klid...
Cast zdroje prikladam.
-- CUT --
const
MaxDataCount=1000;
type
TGraphData=Array [0..MaxDataCount-1] of Comp;
type
TLogGraph = class(TGraphicControl)
private
FGraphData:TGraphData;
:
function GetGraphData (I:Byte):Integer;
procedure SetGraphData (I:Byte;Value:Integer);
:
protected
:
public
:
published
property GraphData[I:Byte]:Integer read GetGraphData write SetGraphData;
Na tomto radku vylitne pri kompilaci chyba.
-- CUT --
Poradte please, co s tim... V helpu jsem cosi cetl, ale moc chytry z toho
nejsem.
Bye Ludan
ComboBox - problem
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.10.1999 12:25:20
Ad 1) Property Text je v tomto pripade ReadOnly,
musis ji menit prostrednictvim ItemIndex, napr
ComboBox1.ItemIndex:=ComboBox1.IndexOf('Retezec 02');
As 2) Myslim, ze by to slo bud v OnDrawItem :
procedure TForm1.ComboBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
a nebo mozna neni nejaky ComboBox s property ImageList
soucasti Sinea component ?
D.
> ----------
> 1. Mam ComboBox, ve kterem ma nejake polozky. Je nastaven tak, aby tam
> uzivatel nemohl nic zmenit, pouze si vybrat (csDropDownList), ale za
> boha
> nemohu prijit na to, jak prednastavit nejakou polozku.
>
> 2. Lze do ComboBoxu vkladat obrazky k jednotlivym polozkam?
>
> Color Prop. editor v Rxlib v D5
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 21.10.1999 12:25:40
I po nainstalovani oficialni verze RxLib pro D5 stale zustava
nedavno diskutovana chyba v property editoru ktery RxLib
registruji pro TColor. Pri pokusu o vyber v RxLib pridanych barev
clCream .. vyber konci s chybou.
Pri nahlednuti do zdroju RxLib se mi nezdalo nic zavadneho.
Nejde sice o nic podstatneho (nakonec staci registraci editoru
v Rx zaremovat) takze spise pro informaci: nevite nekdo proc
tento property editor v D5 neprojde?
Jiri Binder autoincrement - Interbase
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 21.10.1999 12:34:30
Uz jsem nechtel na nic reagovat, ale protoze jde
o utoky na mou osobu, chci reagovat verejne.
Robe, dalsi vtipky uz posli soukrome, jo?
> -----P�vodn� zpr�va-----
> Od: Robert Kindl [mailto:rob(zv)exec(tec)cz]
> Odesl�no: 21. ��jna 1999 10:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: autoincrement - Interbase
>
> Sorry za offtopic k tematu, ale
>>Mam app.exe, ktery pouziva zakaznikuv klient. Protoze tuto aplikaci
>>jsi delal TY, je v ni generovani primarniho klice, jsou v ni prikazy
>>UPDATE a INSERT. K teto aplikaci ma pristup par tisic zamestnancu
zakaznika
>>a kazdy z nich ma moznost si toto exe zobrazit v textovem editoru.
>>Muze tak vysledovat neco o strukture databaze, aby se mohl efektivneji
>>nabourat
>>do systemu. Zajimalo by mne, jaky efektivnejsi zpusob nez ze to v tom exe
>>nebude,
>>mohu pouzit.
> TAK TOHLE MNE FAKT ROZESMALO.
> Tisic zamestnancu hrajicich si na hackera pomoci textoveho editoru!!!
Nevim, co te rozesmalo, jestli mas radost z toho spatneho stavu
anebo z toho, ze jsi negramotny. Nauc se cist, nikdo netvrdil, ze se
tisic zamestnancu snazi podvadet sveho zamestnavatele.
Mezi tisici zamestnanci staci jeden, ktery to zkusi.
A pokud bude mit jen zakladni znalosti SQL, tak se mu to podari.
>
> A zrovna tohle tvrdi Jura, ktery se neumi podivat do dokumentu
> Wordu jestli tam Bill zasil GUID autora nebo ne!
Tohle je velmi prapodivny zaver z debaty o GUID.
Nechapu, jakymi myslenkovymi pochody jsi k nemu dosel,
logickymi tezko.
>
> To si opravdu myslis, ze bezny uzivatel dokaze pohledem do
> EXE neco zjistit?
bezny uzivatel, ktery se nauci SQL ano.
A takovy bezny uzivatel taky umi vzit disketu, nakopirovat na ni
exe a prodat ji nekomu, kdo si ji objednal.
> Ja jsem vzdy pouzival uzce specializovane
> nastroje jako TD32 nebo HIEW, ale JEN si natahnout EXE
> do Notepadu nebo snad do WordPadu nebo dokonce to Wordu
> a koukat na to?
Budes se divit, ale kdyz jsem si zobrazil exe textovym
prohlizecem z Windows Commanderu a hledal v nem "SELECT",
naslo mi to vsechny selecty uvedene v programu.
Zvladne to kazdy uzivatel, ktery absolvuje tridenni kurs
obsluhy Windows.
>
> Bezny uzivatel se o to ani nepokusi.
> Zkusenejsiho uzivatele zastavi pokud bude aplikace vyzadovat
> heslo, ktere neumi obejit (neni utilita na internetu).
Ktery program po tobe pri dosovem prikazu "TYPE PROGRAM.EXE"
pozaduje heslo? Nebo uz nemluvis o ziskani selectu ale o jeho pouziti?
Ale to je neco uplne jineho.
> Prumerny programator se bezne ve firmach nevyskytuje
> a pokud ano tak umi odstanit tak jeste NagScreen.
> Hloupy system prolomi, chytrejsi uz nikoliv.
> Zkuseneho hackera nezastavi temer nic. Alespon ne pokud
> bude mit dost casu a vy budete pouzivat dnes bezne technologie
> zabezpeceni.
> Ale mozna, ze jste opravdu dobri a ani hacker vas nedostane.
> Tak co kdyby jste vypsali nejakou odmenu za prolomeni
> vaseho systemu?
Na tuhle vyzvu nereaguju umyslne, protoze je nesmyslna.
Nechce se mi tady rozepisovat moc o bezpecnosti.
Mozna bys mohl vyhledat neco v archivu, doufam, ze Ti to neco da.
Psal jsem mimo jine i o tom, ze kazda ochrana je prekonatelna.
Ale ted k nasemu pripadu:
utok zkopirovani programu zvladne utocnik sily bezny uzivatel.
utok prihlaseni k databazi a zjisteni udaju o strukture
zvladne jiste o mnoho zkusenejsi uzivatel.
Myslim, ze je zrejme, co je bezpecnejsi.
Nechapu, proc sem pletes takove nesmysly.
Jura
COM & DCOM
[*] Petr Hollay <P.Hollay(zv)Aquasoft(tec)cz> - 21.10.1999 12:54:28
> Muzete mi prosim doporucit nejake cteni (pokud mozno v cestine) o COM a
DCOM
V �e�tin� v�m o
- �l�nku Distribuovan� objekty se Softwarov�ch novin 6/1997,
kde je �vod, n�co o CORBA a pro za��tek asi dobr� pov�d�n�
o COM/DCOM a malinko o ActiveX
- �l�nku Klient/server a co d�l z CHIPu z dubna 1999,
kde je ale �e� jen o CORBA a VisiBrokeru
V angli�tin� samoz�ejm� MSDN, nap�.
http://msdn.microsoft.com/library/backgrnd/html/msdn_dcomarch.htm
a jinak m�m star�� (z �ervna) informace o knih�ch, nap�. dostupn�ch
p�es Starman Bohemia (http://www.starman.net):
- Richard T. Grimes: Professional DCOM Programming
- G. Eddon, H. Eddon: Inside Distributed COM
- Don Box: Essential COM
- Frank Redmond: Microsoft DCOM
Knihu Inside DCOM m�me, m� 550 str�nek a CD s p��klady a mysl�m je dost
dobr�.
Petr
==================================================
Petr Hollay, Aquasoft s.r.o.
Tel: (++420 2) 24 805 305
Fax: (++420 2) 24 805 310
mailto:Hollay(zv)Aquasoft(tec)cz
http://www.aquasoft(tec)cz/QuickReprt po tretie
[*] Tibor Galik <tgalik(zv)vsz.sk> - 21.10.1999 12:07:44
Sorry,
Delphi4 profesional, QR 3.0.5
tg
Zdravim Vas/Regards
Tibor Galik
tgalik(zv)vsz.sk
>>> Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> 10/21 7:11 dop. >>>
Zkus upresnit verzi Delphi, verzi QR atd. ;-)
Mac
Tibor Galik wrote:
> Existuje tu niekto, kto robi v QR. Ako ste riesili podobne zostavy, alebo take nemate?
V QR dela obcas snad kazdy ;-)
> Mam nejake zostavy v QuickReporte a mam problem:
> Nastavil som podkladovu farbu a oramovanie pre band a AutoStretch=true, AutoSize=false. AutoStretch mi funguje, cize rozdeli dlhy riadok na viac riadkov, ale podkladova farba a ramcek ostane iba v prvom riadku.
> Ako to riesit?
Hodne veci jsem mimo jine vyresil aktualizaci QR z www.qusoft.com ;-)
�as
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 21.10.1999 13:19:21
Time - vraci aktualni cas
Date - vraci aktualni datum
Now - vraci aktualni cas a datum
vse vraci hodnotu typu TDateTime
Jirka
----- P�vodn� zpr�va -----
Od: Martin
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 21. ��jna 1999 11:54
P�edm�t: �as
zdravim
Ako v delphi4 z�skam aktu�lny �as ? Ide mi o to, zaznamen�m �as, spust�m proceduru, po skon�eni zovu zaznamenam dostanem cas potrebny pre vykonanie procedury.
Martin
Vlastnost Tag
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 21.10.1999 13:28:19
Ahojky, prosim poradte ...
Mam na formulari dejme tomu 20 Editu. V urcitou chvili potrebuji 10 z nich
vymazat. Psat proceduru
edit1.text:='';
...
...
edit10.text:='';
mi pripada dost krkolomne.
Priradil jsem si tedy kazdymu Editu jiny Tag od 1 do 20 a ted bych
potreboval, aby se Edity, ktere maji Tag 1 az 10 vymazali.
Neco jako:
FOR Tag:=1 TO 10 DO
begin
Vymaze Edity s Tagem 1 az 10
end;
Nevite nekdo jak na to
Predem dik za vsechno
Tom
D3.02 C/S, W-NT 4.00, SP 4.00
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
Array v Published
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 21.10.1999 13:39:18
Cauec,
> Nevim jak v ostatnich verzich, ale v D3 nesm� b�t v sekci published
property
> typu pole. Doporucuji definici property GraphData presunout do sekce
public.
Pomohlo, dekuji...
Bye Ludan
IB
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.10.1999 13:42:18
Haj hou!
From: Zdenek Moravec <zmo(zv)telecom(tec)cz>
>mam jenom malou podotazku. Dalo by se pristoupit k IB serveru pres TCPIP
>(napr. free IB 4.0 na Linuxu) bez aliasu ? Bez ODBC DSN se asi neobejdu -
>nebo ano ? Jak to udelat nejlepe, abych nemusel v siti konfigurovat pro
>vsechny pocitace jejich novou DSN ??
ODBC DSN potrebujes jen pri pristupu pres ODBC. V Delphi je nativni link BDE
pro IB, tudiz nepotrebujes ODBC. V Delphi 5 jsou rovnez objekty pro primy
pristup (InterBase Express), pak se obejdes i bez BDE a linku, potrebujes
jen klienta IB (toho ostatne potrebujes vzdy :o). Pokud nemas D5, pak muzes
pouzit FreeIB komponenty, ktere jsou k mani napr. na www.interbase.com
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
COM & DCOM
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 21.10.1999 13:47:31
http://www.objects(tec)cz/
Je tam seznam prednasek, mj. i o subj.
Ja jsem byl zatim na jedne prednasce pana Kravala
- byla dost dobra.
Jura
> -----P�vodn� zpr�va-----
> Od: Petr Reichl [mailto:reichl(zv)atlas(tec)cz]
> Odesl�no: 21. ��jna 1999 9:34
> Komu: ListServ - Delphi
> P�edm�t: COM & DCOM
>
>
> Muzete mi prosim doporucit nejake cteni (pokud mozno v
> cestine) o COM a DCOM
> technologiich, nejake priklady, open source v Delphi apod.
> Chtel bych se o
> tom dozvedet neco vice a trochu to pochopit.
>
> Preji prijemny den.
>
> Petr Reichl
> -
> E-mail: reichl(zv)centrum(tec)cz
> PGP: podporov�no
> Graficka karta a Delphi 2.0
[*] Tomas Gura <tgura(zv)NOTIA.CZ> - 21.10.1999 13:54:02
Mam grafickou kartu Diamond G460 a kdyz ji v win95 nastavim na vic jak
256 barev,
tak je paleta komponent nekoukatelna, misto ikon komponent jsou v liste
jenom cary.
Nevite nekdo nahodou cim by to mohlo byt?
Diky
Tom�s Gura
mail: tgura(zv)notia(tec)cz
Notia IS spol. s r. o.
V Olsin�ch 709/45
100 00 Praha 10
tel. 67313764-5
fax. 67313752
Vlastnost Tag
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 21.10.1999 13:59:26
panel1 - componenta na ktere mas umisteny edity
for I:=0 to panel1.ComponentCount - 1 do
if Panel1.Components[I] is TEdit then
if (Panel1.Components[I] as TEdit).Tag < 10 {Nebo jina podminka} then
(Panel1.Components[I] as TEdit).Text :='Vymazano';
Zkus takhle nejak...
Jirka
----- P�vodn� zpr�va -----
Od: Brabec Tom� <brabec(zv)nym.pvt(tec)cz>
Komu: 'DELPHI-Konference' <delphi-l(zv)fwd(tec)cz>
Odesl�no: 21. ��jna 1999 13:28
P�edm�t: Vlastnost Tag
Ahojky, prosim poradte ...
Mam na formulari dejme tomu 20 Editu. V urcitou chvili potrebuji 10 z nich
vymazat. Psat proceduru
edit1.text:='';
...
...
edit10.text:='';
mi pripada dost krkolomne.
Priradil jsem si tedy kazdymu Editu jiny Tag od 1 do 20 a ted bych
potreboval, aby se Edity, ktere maji Tag 1 az 10 vymazali.
Neco jako:
FOR Tag:=1 TO 10 DO
begin
Vymaze Edity s Tagem 1 az 10
end;
Nevite nekdo jak na to
Predem dik za vsechno
Tom
D3.02 C/S, W-NT 4.00, SP 4.00
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
�as
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 21.10.1999 14:02:24
Pomoci API funkce GetTickCount ziskas pocet milisekund, ktere ubehly od
startu Windows. Pri spusteni procedury si ho poznamenej, po skonceni
odecti od aktualniho udaje GetTickCount a mas rovnou pocet milisekund.
Systemovy cas vubec nepotrebujes.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
> Odesl�no: 21. ��jna 1999 11:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: �as
>
> zdravim
> Ako v delphi4 z�skam aktu�lny �as ? Ide mi o to, zaznamen�m �as,
> spust�m proceduru, po skon�eni zovu zaznamenam dostanem cas potrebny
> pre vykonanie procedury.
> �
> Martin
Acces
[*] Martin <geoplan(zv)pp.sinet.sk> - 21.10.1999 14:33:32
Spr�va vo form�te MIME rozdelen� na viac �ast�.
zdravim,
skusam zabezpecenie v acces 97 . Robi to divne veci. Ak nastavim zabezpecenie na jednom pocitaci, priradim prava uzivatelom, na tom sa uzivatel dostane len k tomu co mu dovolim. Ale ak subor mdb s databazou prekopirujem na iny pocitac(je tam samozrejme iny inf. subor skupiny), uz sa hocikto dostane do databazy. Ako to vlastne funguje ?
Martin
COM & DCOM
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 21.10.1999 14:34:56
Zkuste http://www.developer(tec)cz/serial.asp?id=1 kdysi jsem tam psal maly
serial o DCOM, mozna tam jeste je.
R.Pospisil
> -----Original Message-----
> From: Petr Hollay [mailto:P.Hollay(zv)Aquasoft(tec)cz]
> Sent: Thursday, October 21, 1999 12:54 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: COM & DCOM
>
>
> > Muzete mi prosim doporucit nejake cteni (pokud mozno v
> cestine) o COM a
> DCOM
> Vlastnost Tag
[*] marcant <marcant(zv)sct.sk> - 21.10.1999 14:45:56
Predpokladam ze to chces robit v nejakej metode toho fomularu takze:
for i:= 0 to ControlCount-1 do
if (Controls[i] is TEdit) and (Controls[i].Tag >=1) and
(Controls[i].Tag <=10) then
TEdit(Controls[i]).Text:= '';
ak to chces robit mimo toho formularu tak pridaj MenoFormulara. pred
kazdy Controls a ControlCount. Ak by si nemal tie edity priamo na forme
ale napr. na paneli ktory je na tom forme pouzi Components namiesto Controls
a ComponentCount namiesto ControlCount.> Ahojky, prosim poradte ...
>
> Mam na formulari dejme tomu 20 Editu. V urcitou chvili potrebuji 10 z nich
> vymazat. Psat proceduru
> edit1.text:='';
> ...
> ...
> edit10.text:='';
> mi pripada dost krkolomne.
>
> Priradil jsem si tedy kazdymu Editu jiny Tag od 1 do 20 a ted bych
> potreboval, aby se Edity, ktere maji Tag 1 az 10 vymazali.
> Neco jako:
>
> FOR Tag:=1 TO 10 DO
> begin
> Vymaze Edity s Tagem 1 az 10
> end;
>
> Nevite nekdo jak na to
> Predem dik za vsechno
> Tom
>
> D3.02 C/S, W-NT 4.00, SP 4.00
>
> Tom� Brabec
> PVT Nymburk, a.s.
> e_mail: Tomas.Brabec(zv)pvt(tec)cz
> brabec(zv)nym.pvt(tec)cz
> tel: 0325/519639
>autoincrement - Interbase
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 21.10.1999 14:50:41
> >Mam app.exe, ktery pouziva zakaznikuv klient. Protoze tuto aplikaci
> >jsi delal TY, je v ni generovani primarniho klice, jsou v ni prikazy
> >UPDATE a INSERT. K teto aplikaci ma pristup par tisic zamestnancu
> zakaznika
> >a kazdy z nich ma moznost si toto exe zobrazit v textovem editoru.
> >Muze tak vysledovat neco o strukture databaze, aby se mohl efektivneji
> >nabourat
> >do systemu. Zajimalo by mne, jaky efektivnejsi zpusob nez ze to v tom exe
> >nebude,
> >mohu pouzit.
>
> Sorry za offtopic k tematu, ale
>
> TAK TOHLE MNE FAKT ROZESMALO.
> Tisic zamestnancu hrajicich si na hackera pomoci textoveho editoru!!!
>
> A zrovna tohle tvrdi Jura, ktery se neumi podivat do dokumentu
> Wordu jestli tam Bill zasil GUID autora nebo ne!
>
> To si opravdu myslis, ze bezny uzivatel dokaze pohledem do
> EXE neco zjistit?
> Ja jsem vzdy pouzival uzce specializovane
> nastroje jako TD32 nebo HIEW, ale JEN si natahnout EXE
> do Notepadu nebo snad do WordPadu nebo dokonce to Wordu
> a koukat na to?
>
No tak si da vyhladat v Notepade slovo UPDATE a na tom
mieste si to pekne upravi.
Mne sa to uz stalo, no proste pekne svinstvo.
A nebol to ziaden profik..takze teoria je pekna, ale realita
moze byt ina.
> Bezny uzivatel se o to ani nepokusi.
> Zkusenejsiho uzivatele zastavi pokud bude aplikace vyzadovat
> heslo, ktere neumi obejit (neni utilita na internetu).
> Prumerny programator se bezne ve firmach nevyskytuje
> a pokud ano tak umi odstanit tak jeste NagScreen.
> Hloupy system prolomi, chytrejsi uz nikoliv.
> Zkuseneho hackera nezastavi temer nic. Alespon ne pokud
> bude mit dost casu a vy budete pouzivat dnes bezne technologie
> zabezpeceni.
> Ale mozna, ze jste opravdu dobri a ani hacker vas nedostane.
> Tak co kdyby jste vypsali nejakou odmenu za prolomeni
> vaseho systemu?
>
>
JJ
�as
[*] Tomas Folprecht <tomas.folprecht(zv)iol(tec)cz> - 21.10.1999 15:01:06
Nazdar.
Rad bych se jeste zeptal, jestli lze nejak ziskat cas, po ktery byl
aplikaci pridelen procesor.
Diky multitaskingu je totiz mereni realneho casu neobjektivni a nekdy
i zavadejici.
Tomas FOLPRECHT
----- Original Message -----
From: Petr Brant <p.brant(zv)samo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 21, 1999 2:02 PM
Subject: RE: �as
Pomoci API funkce GetTickCount ziskas pocet milisekund, ktere ubehly
od
startu Windows. Pri spusteni procedury si ho poznamenej, po skonceni
odecti od aktualniho udaje GetTickCount a mas rovnou pocet milisekund.
Systemovy cas vubec nepotrebujes.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
> Odesl�no: 21. ��jna 1999 11:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: �as
>
> zdravim
> Ako v delphi4 z�skam aktu�lny �as ? Ide mi o to, zaznamen�m �as,
> spust�m proceduru, po skon�eni zovu zaznamenam dostanem cas potrebny
> pre vykonanie procedury.
>
> Martin
DIB a TBitmap
[*] Josef Dodek <dodek(zv)cbmi.cvut(tec)cz> - 21.10.1999 15:07:10
Zdravim,
mohl by mi nekdo prosim poradit (nejlip kousek kodu) jak dostat DIB (device
independent bitmap) do TBitmap ?
mam funkci (pxd_DIBCreate) ktera vraci handle DIB (handle to GlobalAlloc
memory)
zkousel jsem to takto ale nejak mi to nechce fungovat:
********************************************
var mojeTBitmap : TBitmap;
begin
mojeTBitmap:=TBitmap.create;
mojeTBitmap.HandleType:=bmDib;
mojeTBitmap.handle:=pxd_DIBCreate(0, 0, 0, -1, -1, 0, 0);
**********************************************************
muze mi nekdo prosim poradit v cem je problem
predem diky
Pepa Dodek
�as
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 21.10.1999 15:55:15
Aktualni cas ti dava funkce SysUtils.Now:TDateTime;
Pro mereni casu bych spis pouzil Windows.GetTickCount:DWord;
Daniel
----- P�vodn� zpr�va -----
Od: Martin
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 21. ��jna 1999 11:54
P�edm�t: �as
zdravim
Ako v delphi4 z�skam aktu�lny �as ? Ide mi o to, zaznamen�m �as, spust�m proceduru, po skon�eni zovu zaznamenam dostanem cas
potrebny pre vykonanie procedury.
Martin
autoincrement - Interbase
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.10.1999 16:14:06
Haj hou!
From: JAHODA Jozef <jahoda(zv)asset.sk>
> No tak si da vyhladat v Notepade slovo UPDATE a na tom
> mieste si to pekne upravi.
> Mne sa to uz stalo, no proste pekne svinstvo.
> A nebol to ziaden profik..takze teoria je pekna, ale realita
> moze byt ina.
Pokud ma nekdo SQL prikaz "natvrdo" v property nebo v kodu, pak to takhle
dopada :o) To ovsem neznamena, ze to nelze s minimem namahy zaridit tak, aby
to nebylo ani v kodu, ani primo "okate" viditelne. Prirozene, odhodlaneho
crackera s debuggerem nic nezastavi, ale kohokoliv jineho zastavi i
jednoducha ochrana. Delphi v ramci RAD podporuje radu nehezkych praktik,
vcetne takovych hnusu, jako je puruseni zapouzdreni. Stale plati, ze
aplikaci lze udelat bud rychle, nebo poradne :o)
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
�as
[*] Ji�� Kr�l jr. - 21.10.1999 16:22:52
na to slouzi funkce now:tdatetime, muzes pocitat i na milisekundy
Jiri Kral
MidWare
[*] tomas.mazurek(zv)vitkovice(tec)cz - 21.10.1999 14:39:23
Dobry den,
mohl by se nekdo podelit o zkusenosti s komp. MidWare od Fran�ois
PIETTE? Napr. ve srovnani s MIDASem...
Dik
Tom
Zahadne kousani delfina - reseni
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 21.10.1999 15:50:53
Taky s ni skoncim. Ale byl jsem hluboce nepochopen, tak to ozrejmim...
Od: Pavel Malinsk� <spiderland(zv)seznam(tec)cz>
>> a mel by prachy a jeste by na nej nikdo nenadaval a system by byl
stabilni,
>> ne?.... NE!
>A proc by to delal:-))
Proc? Protoze by mel jak prachy, tak by na nej nenadavali, jsem prece
psal... Jenze jsem s tim zaroven nesouhlasil. Odvodil jsem to z napsaneho
tebou a nesouhlasil jsem. (to tim zaverecnym NE!)...
>> Paklize si koupis od microsoftu oficialne schvaleny komp, nechas to
>Na to, abych mel slapajici stroj nepotrebuju schvaleni MS ani instalatery.
?!? Prosim? No, dobre, tvuj nazor, tvoje vec. Paklize napises, ze je to tim,
ze lidi pouzivaji no-name shity a pak me odbydes, kdyz se mi nezda mit
schvaleno od MS vsechno tim, ze nepotrebujes od MS schvalovat slapaci stroj,
nevim, jestli vis ze si protirecis... Ano, nerikal jsi primo schvaleno od
MS, ale velke firmy jako HP, s jejich vectrama, nebo Dell a tak, maji atest
od MS. A proc sem proboha tahas slapaci stroj?
> Nerek bych, ze se vsichni snazi jen rejzovat na ukor kvality.
Hmm, a ja jsem to taky nikde netvrdil. Ale z principu firmy v trznim
hospodarstvi je maximalizace zisku, takze zas tak dalece od pravdy to
neni...
>> za dva roky srot na vyhozeni.
>Dokud mi staci, proc bych tomu mel rikat srot.
... ach jo. Ano, ale za dva roky nebude stacit softu a budes-li chtit novy
soft (protoze word97 dokument ti ten 95 neumi - napr. jasne, ze muzes
stahnout nejake konvertidlo, ale taky nemusis vedet kde a navic uz je to
roubovani jablone na jahodu).
Ale paklize ti staci t602 a calc602 na vedeni podniku, pak je to fajn, 386
se sezenou pod tiskara a klidne si ho mej... Ale i tak to bude peknej srot,
ovsem ty mu tak samozrejme rikat nemusis, ale ja jo ;-).>> And btw, takova ukazka krasne funkcnosti USB scaneru je myslim docela
>Myslet si nemuzu nic, kdyz jsem tam nebyl...
Aha... No, ja taky ne, videl jsem jen ukazku. Pan technik od M$ s usmevem na
lici zapojuje do bezicich 98 scaner pres USB a s radosti oznamuje, jak je
vse snadne, jak se to samo udela (nebude to nuda? :-), jak... no a Hiwaci
nahazujou modre okno a nabizi ctrl+alt+del :-))))). Bill se zacina velice
prijeme usmivat a myslet na bill vi co...
A proc jsem to cely psal? Pac jsi tvrdil, ze vina je v podstate v hardwaru,
ze soft za to nemuze. Ja si to nemyslim, je to zalezitost obou stran...
Takze tedy dobra, nema to cenu. Vlastne je ode me pekna blbost, ze sem vubec
pisu, ale prosim kamenujte me na soukromou postu ;-) a predem se omlouvam...
Koukam, ze jak se sem hodi pravidla, tak fsichni zacnou flamerit a
offtopicovat :-(...Tuhnouci demo DELPHI 5 ENT..na W98CZ
[*] Ales Kysela <kysela(zv)softhome(tec)net> - 21.10.1999 17:12:13
> >Na Invexu jsem si zakoupil CD s demoverzi DELPHI 5.
> >Instalace probebehne OK. BDE a BDE explorer chodi
> >OK.
> > >Ale chci li spustit Delphi tak se objevi
> > >jen uvodni logo vestirny a me Windows 98 CZ zatuhnou uplne vcetne
mysi.
> > Pomuze jen RESET. Jakou delam chybu ???
> > >
> > > Dik za kazdou hlasku. A.K.
> > >
�as
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 21.10.1999 17:13:17
K tomu slouzi funkce
Windows.GetProcessTimes
Windows.GetThreadTimes
Musis mit handle procesu resp. threadu
a ziskas tyto casy
LPFILETIME lpCreationTime, // when the thread was created
LPFILETIME lpExitTime, // when the thread was destroyed
LPFILETIME lpKernelTime, // time the thread has spent in kernel mode
LPFILETIME lpUserTime // time the thread has spent in user mode
TFILETIME je 64-bitovy citac ve 100 ns
(u Creation a Exit hodnota 0 znamena 1.1.1601)
Daniel
----- P�vodn� zpr�va -----
Od: Tomas Folprecht <tomas.folprecht(zv)iol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 21. ��jna 1999 15:01
P�edm�t: Re: �as
> Nazdar.
> Rad bych se jeste zeptal, jestli lze nejak ziskat cas, po ktery byl
> aplikaci pridelen procesor.
> Diky multitaskingu je totiz mereni realneho casu neobjektivni a nekdy
> i zavadejici.
>
> Tomas FOLPRECHT
>
>
> ----- Original Message -----
> From: Petr Brant <p.brant(zv)samo(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, October 21, 1999 2:02 PM
> Subject: RE: �as
>
>
> Pomoci API funkce GetTickCount ziskas pocet milisekund, ktere ubehly
> od
> startu Windows. Pri spusteni procedury si ho poznamenej, po skonceni
> odecti od aktualniho udaje GetTickCount a mas rovnou pocet milisekund.
> Systemovy cas vubec nepotrebujes.
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
>
>
> > -----P�vodn� zpr�va-----
> > Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
> > Odesl�no: 21. ��jna 1999 11:54
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: �as
> >
> > zdravim
> > Ako v delphi4 z�skam aktu�lny �as ? Ide mi o to, zaznamen�m �as,
> > spust�m proceduru, po skon�eni zovu zaznamenam dostanem cas potrebny
> > pre vykonanie procedury.
> >
> > Martin
>
>
>
Uvolneni instance formulare - caFree
[*] Dalibor Honus <dhonus(zv)iname(tec)com> - 21.10.1999 17:18:49
Zdravim.
Mam problem. Potrebuji, kdyz uzavru form (treba stlacenim krizku), aby odkaz
na nej ukazoval na NIL. Normalne se to chova tak, ze i kdyz jeho instance
byla uvolnena, tak odkaz na form (tedy globalni promenna na Form1) ukazuje
na puvodni mito v pameti. Shrnuto - kdyz uzavru form chci,aby
assigned(Form1) = false.
Diky za rady.
----------------------------------
Dalibor Honus
FotoMorava s.r.o.
tel. office: 0656 - 721 190 kl. 45
----------------------------------
Registry
[*] Michal Hlav�� - 21.10.1999 17:47:05
Zdravim,
neviem ako presne by som mal natiahnut z registrov hodnoty z
napr.: HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources
do listboxu. Proceduru, ktora mi to tam vlozi neviem najst; Pouzil som
Tregistry.
Dik
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Vlastnost Tag
[*] tomas.skoda(zv)post.sk - 21.10.1999 17:51:33
Mozes napriklad skusit prehladat vsetky komponenty umiestnene na forme a hladat len TEdit-y s takym nastavenym tagom aky potrebujes.
procedure TForm1.VymazEdit;
var
Index: Integer;
begin
for Index:= 0 to ComponentCount - 1 do
if ((Components[Index] is TEdit) and (TEdit(Components[Index]).Tag in [1..10])) then
TEdit(Components[Index]).Clear;
end;
Tomas Skoda
tomas.skoda(zv)post.sk
> Original message:
> Ahojky, prosim poradte ...
>
> Mam na formulari dejme tomu 20 Editu. V urcitou chvili potrebuji 10 z nich
> vymazat. Psat proceduru
> edit1.text:=\'\';
> ...
> ...
> edit10.text:=\'\';
> mi pripada dost krkolomne.
>
> Priradil jsem si tedy kazdymu Editu jiny Tag od 1 do 20 a ted bych
> potreboval, aby se Edity, ktere maji Tag 1 az 10 vymazali.
> Neco jako:
>
> FOR Tag:=1 TO 10 DO
> begin
> Vymaze Edity s Tagem 1 az 10
> end;
>
> Nevite nekdo jak na to
> Predem dik za vsechno
> Tom
Acces
[*] Michal Hlav�� - 21.10.1999 18:17:36
Nazdarek,
ja som to robil tiez a rychlo som to vzdal. Pretoze podla mna je to najvasia blbost na svete (Produkt M$). Tie prava sa vztahuju na produkt Access a nie na mdb file. Takze by si to musel nastavit na kazdej masine, lebo tie prava sa neukladaju do mdb file, ale su vecou produktu. To je len moj nazor zo skusenosti.
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
-----P�vodn� zpr�va-----
Od: Martin <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. okt�ber 1999 18:38
P�edm�t: Acces
zdravim,
skusam zabezpecenie v acces 97 . Robi to divne veci. Ak nastavim zabezpecenie na jednom pocitaci, priradim prava uzivatelom, na tom sa uzivatel dostane len k tomu co mu dovolim. Ale ak subor mdb s databazou prekopirujem na iny pocitac(je tam samozrejme iny inf. subor skupiny), uz sa hocikto dostane do databazy. Ako to vlastne funguje ?
Martin
Registry
[*] p. Jirman <jim.design(zv)pvtnet(tec)cz> - 21.10.1999 20:20:26
Zdravim,
zkus pouzit TRegIniFile.ReadString
----- Original Message -----
From: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>
To: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 21, 1999 5:47 PM
Subject: Registry
> Zdravim,
> neviem ako presne by som mal natiahnut z registrov hodnoty z
> napr.: HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources
> do listboxu. Proceduru, ktora mi to tam vlozi neviem najst; Pouzil som
> Tregistry.
>
>
> Dik
>
> Michal Hlavac
> Spolocnost priatelov deti z detskych domovov
> Usmev ako dar
>
> e-mail: 7hlavac(zv)nw.fmph.uniba.sk
> web: www.usmev.sk
>
>
>hromadne pouziti SQL Update
[*] Petr Kro�a - 21.10.1999 20:30:19
Zdravim vsechny !
Na SQL mam tabulku, jejiz struktura je dejme tomu takovato:
ID Nazev Kod PocetKusu
------------------------------------------------
1 disketa ZB1 15
2 cd-rom ZB2 12
3 monitor ZB3 1
.
.
.
1000 xxxxxx xxx xxx
atd. ...
U kazde polozky s jedinecnym KODEM potrebuji zmenit aktualni pocet kusu.
Muj dotaz je:
Jaky zpusob update nejlepe pouzit, aby vse probehlo rychle a efektivne ?
Mam napr Upd : TUpdateSQL. Pro kazdou polozku naplnim zvlast Upd.ModifySQL.Add('UPDATE TableTest
SET PocetKusu = 100 WHERE kod = 'ZBx' ');
a zavolam Upd.Apply(ukModify);
Pak to vymazu a plnim prikazem pro dalsi polozky s jinym kodem.
Pripada mi ale divne to takto delat treba tisickrat za sebou. Neda se to
udelat nejak skupinove ? Abych treba napred naplnil buffer udaji a pak
spustil UPDATE ?
Jakym zpusobem navrhujete SQL dotaz ?
Diky
Mrp
services do NT4
[*] Petr Mat�jovsk�������dz�� - 21.10.1999 20:47:16
Zdravim,
Napsal sem v Delphi 4 sluzbu, ale nevim jak ji mam v NT nainstalovat
(zaregistrovat).
Nema nekdo nejake zkusenosti jak tam tu sluzbu jednoduse dostat (nechci
editovat moc registry).
Diky Petr pema(zv)seznam(tec)cz
DBGr a finddialog
[*] Menfy <menfy(zv)iol(tec)cz> - 21.10.1999 21:28:13
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Potrebuji najit retezec v dbgridu finddialogem a premistit se na zaznam, kde se retezec nachazi. Nevite nekdo, prosim ?IB
[*] Zdenek Moravec <zmo(zv)telecom(tec)cz> - 21.10.1999 21:48:09
-----P�vodn� zpr�va-----
Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
>V Delphi 5 jsou rovnez objekty pro primy
>pristup (InterBase Express), pak se obejdes i bez BDE a linku, potrebujes
>jen klienta IB (toho ostatne potrebujes vzdy :o).
Funguje tento primy zpusob pripojeni v Delphi 5 i pro Interbase 4.0 na
Linuxu ??
S pozdravem,
Zdenek Moravec zmo(zv)telecom(tec)cz
Zjisteni konfigurace DNS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.1999 23:13:50
Gebauer Lukas wrote:
> napada nekoho z vas jak v systemech WIN32 (tedy W95, NT,...)
> zjistit IP adresy DNS serveru, ktere ten pocitac prave pouziva?
> (At uz byly nekde natvrdo zapsany ci byly dynamicky prideleny
> behem DHC ci telefonickeho pripojeni...)
>
> Bojim se, ze na to bude nejaka funkce v nejakem DLL (IPCFGDLL,
> ci neco takoveho...), jenze nikde to nemuzu najit.
Ahoj,
Podle toho co importuje WINIPCFG.EXE to vypada na WsControl. Tahle funkce
ale neni nikde dokumentovana (jak uz to u M$ byva), ale tusim ze se tu uz
v konferenci probirala. Zkus prohledat archiv.
--
Petr Vones, amatersky programator
Hot-key V IDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.1999 23:15:28
Dalibor Honus wrote:
> Nevite nahodou nekdo, jak se dali vypnout(resp prenastavit)
> hotkey v delpi (myslim v IDE).
V jake verzi Delphi ?
--
Petr Vones, amatersky programator
Uvolneni instance formulare - caFree
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.1999 23:15:33
Dalibor Honus wrote:
> Mam problem. Potrebuji, kdyz uzavru form (treba stlacenim krizku), aby odkaz
> na nej ukazoval na NIL. Normalne se to chova tak, ze i kdyz jeho instance
> byla uvolnena, tak odkaz na form (tedy globalni promenna na Form1) ukazuje
> na puvodni mito v pameti. Shrnuto - kdyz uzavru form chci,aby
> assigned(Form1) = false.
Ahoj,
Napriklad takhle:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2 := nil;
end;
--
Petr Vones, amatersky programator
ceske zakony
[*] h <vpetr(zv)bigfoot(tec)com> - 21.10.1999 23:37:38
ale kdeze, zakony jsou na mujweb(tec)cz/www/pravo
je to par TXT souboru hlavnich zakonu, lehce stazitelne i na lokalni uzitit
----- Original Message -----
From: Josef Koke�
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, October 21, 1999 8:36 AM
Subject: Re: ceske zakony
Zkus
www.sagit(tec)cz
Kokes
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, October 21, 1999 7:24 AM
Subject: OT: ceske zakony
nevie niekto ci sa na internete nachadza zbierka ceskych zakonov s bezplatnym pristupom ?
Martin
zaklady C/S
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 22.10.1999 00:19:19
>> > komponentach a vkladani dat do databaze pak vyhradne pres
>> > ulozene procedury nebo pripadne pomoci SQL prikazu. Je to sice
>> > pracnejsi, ale vyplati se to.
>>
>> toto ma zaujalo... mohol by si nejaky maly priklad, preco vkladat via
>> stored proc?
>>
>No a mohl bys nejakej malej priklad proc ne??
moc zabavne.... osobne malokedy pouzivam stored proc, nakolko robim zvacsa
iba male aplikacie a preto sa chcem opytat naozajstnych odbornikov, ake to
ze len ma via stored proc vyhody.
rw
TeeChart - distributor
[*] Lubo Fule <fule(zv)sct.sk> - 22.10.1999 00:25:59
Neviete nahodou, kto na Slovensku predava komponenty od fi. TeeMach
(TeeChart Pro, TeeTree)
Lubo.
Graficka karta a Delphi 2.0
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 21.10.1999 15:37:38 -0700
>tak je paleta komponent nekoukatelna, misto ikon komponent jsou v liste
>jenom cary.
>Nevite nekdo nahodou cim by to mohlo byt?
ja mam v pocitaci G460 a presne takhle mi blbnula Eudora 4.0. Vyresil jsem
to tak, ze jsem dal True Color 16-bit pri 1024x768 a jede to. Problem budou
nejspis zpusobovat ovladace ty karty, asi by to chtelo prekonat lenost a
zkusit stahnout novejsi, jestli existuji....
Heretic-X, SOFTWARE specialist,<www.nt(tec)cz>Registry
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.10.1999 06:44:47
----- P�vodn� zpr�va -----
Od: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>> Zdravim,
> neviem ako presne by som mal natiahnut z registrov hodnoty z
> napr.: HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources
> do listboxu. Proceduru, ktora mi to tam vlozi neviem najst; Pouzil som
> Tregistry.
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
ListBox1.Items.Clear;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', False) then
Reg.GetValueNames(ListBox1.Items);
finally
Reg.CloseKey;
Reg.Free;
end;
end;===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Co je s email.seznam.cz
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 22.10.1999 06:59:32
zkus adresu pop3.seznam(tec)cz (SMTP na adrese smtp.seznam(tec)cz)
Mira
----- P�vodn� zpr�va -----
Od: Kry�tof Hoder <hoder(zv)seznam(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 20. ��jna 1999 22:11
P�edm�t: OT: Co je s email.seznam(tec)cz
> Omlouvam se za dalsi off-topic, ale vazde bych zemrel nebo by alespon
telef.
> ucty prerostly penezenku.
>
> Mate nekdo take problemy s email.seznam(tec)cz?
> Me uz druhy den u nich nefunguje POP3, ptal jsem se tamnich adminu,
ale ti
> se jaksi neobtezovali s odpovedi. Pristup pres www je v pohode, ale
> potrebuje abych byl v dobe cteni on-line.
>
> Dik za informace a jeste jednou sory.
> Krystof
>
>Binarni soubor
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.10.1999 07:04:31
Zdravim,
potrebuji najit v binarnim souboru urcity retezec a ten soubor pak ulozit az
od teto pozice. Problem je v tom, ze nevim jak na to. Napadlo me cist to
znak po znaku, coz je dost pomale.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Export vetve z registry
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.10.1999 07:05:59
Jak nejjednodussim zpusobem vyexportovat do reg fajlu nejakou vetev z
registry (samozrejme bez pouziti REGEDIT.EXE).==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== zaklady C/S
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.10.1999 07:37:04
> -----P�vodn� zpr�va-----
> Od: No Comment Group, s.r.o. / Sales Department
> [mailto:sales(zv)nocomment.sk]
> Odesl�no: 22. ��jna 1999 0:19
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: zaklady C/S
>
>
> >> > komponentach a vkladani dat do databaze pak vyhradne pres
> >> > ulozene procedury nebo pripadne pomoci SQL prikazu. Je to sice
> >> > pracnejsi, ale vyplati se to.
> >>
> >> toto ma zaujalo... mohol by si nejaky maly priklad, preco
> vkladat via
> >> stored proc?
> >>
> >No a mohl bys nejakej malej priklad proc ne??
:-))) Velmi padny argument.
> moc zabavne.... osobne malokedy pouzivam stored proc, nakolko
> robim zvacsa
> iba male aplikacie a preto sa chcem opytat naozajstnych
> odbornikov, ake to
> ze len ma via stored proc vyhody.
>
Nekdy to jinak nejde. Potrebujes napriklad validovat vzhledem k velkemu
mnozstvi jiz
existujicich dat. Jedinou rozumnou moznosti byva v techto pripadech
validovat
na DB serveru, aby se data nemusela prenaset jinam. To znamena ulozenou
procedurou.
A kvuli jednotnosti pristupu mi pripada vhodne takto udelat vsechny
modifikace dat.
Nevime, kdy se zmeni nejaka pravidla (napr. vymysli se novy koeficient pro
DPH,
uplne novy druh dane anebo pravidla v organizaci zakaznika), potom je
potreba
nektere editace predelat. Tady nam pouziti
procedur prinese vyhodu snadnejsi upravy. jsem schopen opravu provest
beznymi prostredky
(notepad), coz ma vyhody, kdyz neco potrebuji opravit primo u zakaznika,
nemusim nic kompilovat a v danem systemu provadim zmenu na jednom miste.
(toto je stejny argument jako obhajoba distribuovaneho zpracovani - doufam,
ze po
jinych mych odpovedich nekdo neziskal mylny dojem, ze jsem odpurcem
vicevrstve
architektury :-)
Jura
Vycisteni ComboBoxu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 22.10.1999 07:40:19
Ahoj,
chtel bych se, prosim, zeptat, zda-li nekdo nevi jak uzivatelem vycistit
ComboBox (<=> ItemIndex:=-1, ne Clear) je-li naplnen jako scDropDownList tj.
obsahuje n needitovatelnych polozek a neni moznost vlozit prazdnou polozku
(v seznamu neni proste nabidnuta). Existuje na to nejaka klavesova zkratka?
(W95/D2)
Diky
Jaro B.autoincrement - Interbase
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.10.1999 07:43:10
JAHODA Jozef wrote:
> No tak si da vyhladat v Notepade slovo UPDATE a na tom
> mieste si to pekne upravi.
> Mne sa to uz stalo, no proste pekne svinstvo.
> A nebol to ziaden profik..takze teoria je pekna, ale realita
> moze byt ina.
Hm.
Const
update1:WideString='update tabulka set pole="%s" where id=%d';
nebo jeste lepe:
update2='update %s set %s%s'; a parametry doplnis za behu. Co
z toho asi tak muze slidil vykoumat?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Problem: Formy
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.10.1999 07:43:10
Pavel im��ek wrote:
> Nepochopil jsem to asi dost presne, ale z toho co pises mi neni jasne
> jak se muzes prepinat mezi F1 a F2, kdyz F1 je modalni. Ahoj Pavel
>
Zkus postvat na prislusne okno tuto funkci:
EnableWindow(F2.Handle, true); (nebo F3.Handle).
> >Hi,
> >
> >posilam to po treti, doufejme, ze to konecne dorazi...
> >
> >Mam v unitu fci, ktera zavola form: F1.showmodal. Ten pak zavola
> >F2.show a
> ukonci se. Fce v unitu pak zavola F3.show a ja bych potreboval, aby se
> mezi F1 a F2 (to jde) ale tez mezi F2 a F3 dalo prepinat. > >Nevite
> nekdo co s tim? > >S pozdravem, > >Lukas Gallina >
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
autoincrement - Interbase
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.10.1999 07:46:30
Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
> Haj hou!
>
> From: JAHODA Jozef <jahoda(zv)asset.sk>
> > No tak si da vyhladat v Notepade slovo UPDATE a na tom
> > mieste si to pekne upravi.
> > Mne sa to uz stalo, no proste pekne svinstvo.
> > A nebol to ziaden profik..takze teoria je pekna, ale realita
> > moze byt ina.
>
> Pokud ma nekdo SQL prikaz "natvrdo" v property nebo v kodu, pak to takhle
> dopada :o) To ovsem neznamena, ze to nelze s minimem namahy zaridit tak, aby
> to nebylo ani v kodu, ani primo "okate" viditelne. Prirozene, odhodlaneho
> crackera s debuggerem nic nezastavi, ale kohokoliv jineho zastavi i
> jednoducha ochrana. Delphi v ramci RAD podporuje radu nehezkych praktik,
> vcetne takovych hnusu, jako je puruseni zapouzdreni. Stale plati, ze
> aplikaci lze udelat bud rychle, nebo poradne :o)
A nebo staci EXE prohnat ASPackem nebo podobnou priserou a krome rychlejsiho spousteni programu je postarano i o nezbedne uzivatele, kteri programuji ve Wordu :-)
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================hromadne pouziti SQL Update
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 22.10.1999 08:02:53
Nevim jak na jinych SQL serverech, ale u M$ muzes
do jednoho SQL dat i vice prikazu oddelenych normalne
mezerou nebo odradkovanim. Cely prikaz vsak nesmi
presahnout 32KB (nejsem si tim cislem presne jist).
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Petr Kro�a <mrp.konference(zv)compact(tec)cz>
Komu: Delphi KONFERENCE <delphi-l(zv)fwd(tec)cz>
Odesl�no: 21. ��jna 1999 20:30
P�edm�t: hromadne pouziti SQL Update
> Zdravim vsechny !
>
> Na SQL mam tabulku, jejiz struktura je dejme tomu takovato:
>
> ID Nazev Kod PocetKusu
> ------------------------------------------------
> 1 disketa ZB1 15
> 2 cd-rom ZB2 12
> 3 monitor ZB3 1
> .
> .
> .
> 1000 xxxxxx xxx xxx
> atd. ...
>
> U kazde polozky s jedinecnym KODEM potrebuji zmenit aktualni pocet kusu.
> Muj dotaz je:
>
> Jaky zpusob update nejlepe pouzit, aby vse probehlo rychle a efektivne ?
>
> Mam napr Upd : TUpdateSQL.
>
> Pro kazdou polozku naplnim zvlast Upd.ModifySQL.Add('UPDATE TableTest
> SET PocetKusu = 100 WHERE kod = 'ZBx' ');
> a zavolam Upd.Apply(ukModify);
>
> Pak to vymazu a plnim prikazem pro dalsi polozky s jinym kodem.
>
> Pripada mi ale divne to takto delat treba tisickrat za sebou. Neda se to
> udelat nejak skupinove ? Abych treba napred naplnil buffer udaji a pak
> spustil UPDATE ?
>
> Jakym zpusobem navrhujete SQL dotaz ?
>
> Diky
> Mrp
>
>
services do NT4
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 22.10.1999 08:07:31
Pokud jsi pouzil TService z Delphi 4 tak staci
aplikaci nekam umistit a spustit ji (nejlepe
z prikazove radky) s parametrem -install.
Odinstalujes to analogicky -uninstall.
Sluzbu spustis z ovl. panelu.
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Petr Mat�jovsk� <pema(zv)seznam(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 21. ��jna 1999 20:47
P�edm�t: services do NT4
> Zdravim,
>
> Napsal sem v Delphi 4 sluzbu, ale nevim jak ji mam v NT nainstalovat
> (zaregistrovat).
> Nema nekdo nejake zkusenosti jak tam tu sluzbu jednoduse dostat (nechci
> editovat moc registry).
>
> Diky Petr pema(zv)seznam(tec)cz
>
>
>
DIB a TBitmap
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 22.10.1999 08:09:56
co vlastne potrebujes provest ?
co dela fce pxd_DIBCreate a jake jsou jeji parametry ?
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Josef Dodek [SMTP:dodek(zv)cbmi.cvut(tec)cz]
> Odesl�no: 21.10.1999 15:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DIB a TBitmap
>
>
> Zdravim,
> mohl by mi nekdo prosim poradit (nejlip kousek kodu) jak dostat DIB
> (device
> independent bitmap) do TBitmap ?
>
> mam funkci (pxd_DIBCreate) ktera vraci handle DIB (handle to GlobalAlloc
> memory)
>
>
> zkousel jsem to takto ale nejak mi to nechce fungovat:
>
> ********************************************
> var mojeTBitmap : TBitmap;
> begin
>
> mojeTBitmap:=TBitmap.create;
> mojeTBitmap.HandleType:=bmDib;
>
> mojeTBitmap.handle:=pxd_DIBCreate(0, 0, 0, -1, -1, 0, 0);
>
> **********************************************************
>
> muze mi nekdo prosim poradit v cem je problem
>
> predem diky
>
> Pepa Dodek
>
>
>
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Export vetve z registry
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.10.1999 08:32:34
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>> Jak nejjednodussim zpusobem vyexportovat do reg fajlu nejakou vetev z
> registry (samozrejme bez pouziti REGEDIT.EXE).
Pokud to nepotrebujes primo do REG souboru, muzes pouzit metody SaveKey, LoadKey, RestoreKey, ale ty vytvari vlastni format souboru.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Hot-key V IDE
[*] Dalibor Honus <dhonus(zv)iname(tec)com> - 22.10.1999 08:39:03
Dik. chtelo to jen nove ovladace od supportu microsofftu.
----- Original Message -----
From: Petrik <petrik(zv)geocities.com>
To: Dalibor Honus <delphi-l(zv)fwd(tec)cz>
Sent: Friday, May 21, 1999 9:30 PM
Subject: Re: Hot-key V IDE
Nazdarek,
DH> Dale bych potreboval ovladac klavesnice pro WIN98, aby se chovala jako v
DH> UNIXU (po dobu stisknuti praveho ALT se prepne na anglickou).
dyt ho mas !!!
staci nainstalovat Ceskou klavesnici a
pravej alt (altgr) to prepina !!!
a to si muzes navic zvolit takovy ty blbosti
jako programmers a Qwerty - ve vsech to funguje
Cus,
Petrik mailto:petrik(zv)geocities.com
DIB a TBitmap
[*] Josef Dodek <dodek(zv)cbmi.cvut(tec)cz> - 22.10.1999 08:41:41
pxd_DIBCreate(buffer, ulx, uly, lrx, lry, uselut, rsvd : integer) je funkce
z knihovny pro praci s grabovaci kartou, ktera ma vytvorit Device
independent bitmap z nejakeho bufferu te karty, ulx ...lry specifikuje
oblast ze ktere ma byt DIB vytvorena. Ta funkce zkopiruje bybranou oblast
bufferu do nove vytvorene DIB v globalni pameti (pouzitim GlobalAlloc) a
handle na DIB je vracena funkci pxd_DIBCreate.
no ja bych rad tuto DIB prevedl na TBitmap abych s ni mohl snadno provadet
ruzne operace.
vi prosim nekdo jak na to ??
pepa
>co vlastne potrebujes provest ?
>co dela fce pxd_DIBCreate a jake jsou jeji parametry ?
>
>Zdenek Fryz
>
>> -----P�vodn� zpr�va-----
>> Od: Josef Dodek [SMTP:dodek(zv)cbmi.cvut(tec)cz]
>> Odesl�no: 21.10.1999 15:07
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: DIB a TBitmap
>>
>>
>> Zdravim,
>> mohl by mi nekdo prosim poradit (nejlip kousek kodu) jak dostat DIB
>> (device
>> independent bitmap) do TBitmap ?
>>
>> mam funkci (pxd_DIBCreate) ktera vraci handle DIB (handle to GlobalAlloc
>> memory)
>>
>>
>> zkousel jsem to takto ale nejak mi to nechce fungovat:
>>
>> ********************************************
>> var mojeTBitmap : TBitmap;
>> begin
>>
>> mojeTBitmap:=TBitmap.create;
>> mojeTBitmap.HandleType:=bmDib;
>>
>> mojeTBitmap.handle:=pxd_DIBCreate(0, 0, 0, -1, -1, 0, 0);
>>
>> **********************************************************
>>
>> muze mi nekdo prosim poradit v cem je problem
>>
>> predem diky
>>
>> Pepa Dodek
>>
>>
>>
>>
>>
>__________________________________________________________________
>Tato komunikace je urcena vyhradne pro adresata a je duverna.
>This communication is intended solely for the addressee and is
confidential.
>
>TTable
[*] Radim Ludv�k <radiml(zv)bnsoft(tec)cz> - 22.10.1999 08:45:59
Zdravim,
potrebuji jednu trivialni radu ohledne TTable a to sice potrebuju ji nejak setridit a nevim jak (to jsem ale hlupak ze) je v ni tabulka dBase.
(D3 C/S)
Diky.
Radim Ludv�k
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
autoincrement - Interbase
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 22.10.1999 09:11:07
Co je to> s minimem namahy?
olej
> -----Original Message-----
> From: Pavel Cisar
> Sent: 21. okt�ber 1999 16:14
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: autoincrement - Interbase
>
> Haj hou!
>
> From: JAHODA Jozef <jahoda(zv)asset.sk>
> > No tak si da vyhladat v Notepade slovo UPDATE a na tom
> > mieste si to pekne upravi.
> > Mne sa to uz stalo, no proste pekne svinstvo.
> > A nebol to ziaden profik..takze teoria je pekna, ale realita
> > moze byt ina.
>
> Pokud ma nekdo SQL prikaz "natvrdo" v property nebo v kodu, pak to takhle
> dopada :o) To ovsem neznamena, ze to nelze s minimem namahy zaridit tak,
> aby
> to nebylo ani v kodu, ani primo "okate" viditelne. Prirozene, odhodlaneho
> crackera s debuggerem nic nezastavi, ale kohokoliv jineho zastavi i
> jednoducha ochrana. Delphi v ramci RAD podporuje radu nehezkych praktik,
> vcetne takovych hnusu, jako je puruseni zapouzdreni. Stale plati, ze
> aplikaci lze udelat bud rychle, nebo poradne :o)
>
> Hodne zdaru
>
> Pavel Cisar <pcisar(zv)atlas(tec)cz>
> Delphree.org CEO
> http://delphree.clexpert.com
> Nexus project coordinator
> http://delphree.clexpert.com/pages/projects/nexus/default.htm
>
> IB
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 22.10.1999 09:15:04
Haj hou!
>>V Delphi 5 jsou rovnez objekty pro primy
>>pristup (InterBase Express), pak se obejdes i bez BDE a linku, potrebujes
>>jen klienta IB (toho ostatne potrebujes vzdy :o).
>
>Funguje tento primy zpusob pripojeni v Delphi 5 i pro Interbase 4.0 na
>Linuxu ??
Ted jsi me dostal :o) Pokud nejsou nejake drasticke rozdily v klientskem SW
IB 4.0 - 5.0 (coz bych necekal, neb API je uz dost dlouho stabilni :o), tak
nevidim duvod, proc by to nemelo fungovat. Novinky v IB 6.0 jsou v IBX
mapovany dynamicky, takze tam problem neni. Nutno ovsem vyzkouset. To same
plati pro FreeIB.
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
TTable
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.10.1999 09:16:05
Od: Radim Ludv�k
potrebuji jednu trivialni radu o
hledne TTable a to sice potrebuju ji nejak setridit a nev
im jak (to jsem ale hlupak ze) je v ni tabulka dBase.
Po
kud pouzivas BDE a index neexistuje :
1. Pres Table.In
dexDefs.Add(....) vytvorit index
2. Vytvorit index prika
zem SQL
3. Prikazem SQL primo setridit tabulku Select *
From Tabulka Order By nazev_pole
Index jiz existuje n
ebo jsi jej vytvoril, takze prirazenim Table.IndexName :=
'jmeno_indexu'
nebo Table.IndexFieldNames := 'jmeno_ind
exovaneho_pole' se ti tabulka setridi
Pokud pouzivas n
ejake komponenty pro pristup k DBF tabulkam bez BDE, je t
reba zjistit, zda podporuji indexy, SQL apod.
========
=======================
ing. Jan Fiala
fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - infor
macni system pro napojare
==============================
=
Vycisteni ComboBoxu
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 22.10.1999 09:19:43
Doufam ze ne, spoleham na to ze uzivatel si musi vybrat.
Pokud tedy seznam neni prazdny a ItemIndex je pred-
nastaveny, tak ItemIndex je v udalosti OnClick platny, tj.
nikdy ne -1.
Ale pro jistotu platnost indexu vzdy proveruji :-)
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 22. ��jna 1999 7:40
P�edm�t: Vycisteni ComboBoxu
> Ahoj,
>
> chtel bych se, prosim, zeptat, zda-li nekdo nevi jak uzivatelem vycistit
> ComboBox (<=> ItemIndex:=-1, ne Clear) je-li naplnen jako scDropDownList tj.
> obsahuje n needitovatelnych polozek a neni moznost vlozit prazdnou polozku
> (v seznamu neni proste nabidnuta). Existuje na to nejaka klavesova zkratka?
> (W95/D2)
>
> Diky
>
> Jaro B.
autoincrement - Interbase
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 22.10.1999 08:21:19
nechci byt doterny, ale je to nutne ?
Pokud nebude mit pristup na SQL server tak nic nemuze,
pokud bude, tak staci pokud se dokaze prihlasit,
a na reverse engeneering muze pouzit nejaky case
(vim co dokazi studenti, byt jen strednich skol).
Komplikovat cely program, proto abych se ochranil
jen nepatrne mi pripada prilis casove narocne -> drahe.
Slavek
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Odesl�no: 22. ��jna 1999 6:43
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: autoincrement - Interbase
JAHODA Jozef wrote:
> No tak si da vyhladat v Notepade slovo UPDATE a na tom
> mieste si to pekne upravi.
> Mne sa to uz stalo, no proste pekne svinstvo.
> A nebol to ziaden profik..takze teoria je pekna, ale realita
> moze byt ina.
Hm.
Const
update1:WideString='update tabulka set pole="%s" where id=%d';
nebo jeste lepe:
update2='update %s set %s%s'; a parametry doplnis za behu. Co
z toho asi tak muze slidil vykoumat?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TeeChart - distributor
[*] delphi(zv)htkpro(tec)cz - 22.10.1999 9:45:46
>Status: U
>
>Neviete nahodou, kto na Slovensku predava komponenty od fi. TeeMach
>(TeeChart Pro, TeeTree)
Od pristiho tydne by mel fungovat dev-shop.sk, kde bude mimo jine i
kompletni sortiment teemach za Sk.
S pozdravem
Jan Kadlecek
>
>Lubo.
>
>
>
----------------------------------------------------------------------------
Binarni soubor
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 22.10.1999 09:46:21
Namapovat do pameti (CreateFileMapping) , prohledat (nejake funkce pro
vyhledani retezce), otevrit novy soubor (CreateFile), ulozit od pozice
(Write). Nic rychlejsiho patrne neni. Viktor
----- Original Message -----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: '*** Delphi' <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 22, 1999 7:04 AM
Subject: Binarni soubor
> Zdravim,
>
> potrebuji najit v binarnim souboru urcity retezec a ten soubor pak ulozit
az
> od teto pozice. Problem je v tom, ze nevim jak na to. Napadlo me cist to
> znak po znaku, coz je dost pomale.
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================Vycisteni ComboBoxu
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.10.1999 09:47:09
----- P�vodn� zpr�va -----
Od: Daniel Rott <roxton(zv)atlas(tec)cz>> > Ahoj,
> >
> > chtel bych se, prosim, zeptat, zda-li nekdo nevi jak uzivatelem vycistit
> > ComboBox (<=> ItemIndex:=-1, ne Clear) je-li naplnen jako scDropDownList tj.
> > obsahuje n needitovatelnych polozek a neni moznost vlozit prazdnou polozku
> > (v seznamu neni proste nabidnuta). Existuje na to nejaka klavesova zkratka?
> > (W95/D2)
Co ti brani, pridat tam polozku s textem treba "libovolna hodnota" a pri vyhodnoceni na to brat ohled ?
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Problem s ADO a ulozenou procedurou
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 22.10.1999 08:56:35
Zdravim vsechny priznivce Delphi a ADO komponent
Mam na SQL serveru proceduru v tomto tvaru
CREATE PROCEDURE TEST AS
CREATE TABLE #pom ( cislo money )
INSERT #pom VALUES ( 105 )
SELECT * FROM #pom
DROP TABLE #pom
Kdyz tuto proceduru spustim v ISQL nebo v Delphi pres BDE, jede to v poradku.
Pokud to spustim v Delphi pres ADOStoredProc, vyhodi mi to hlasku:
The operation requested by the application is not allowed if the object is closed
Zkousel jsem experimentovat s nastavenim CursorLocation, CursorType, LockType
ale porad to rve.
Nevite nekdo co s tim ? Je to problem jen Adonisu nebo vseobecne ADO komponent ?
Za vsechny podnety budu velice vdecny.
Konfigurace: Delphi 4 SP 2, Win NT 4.0 SP 5, MS SQL 6.5 SP 5, Trial Adonis 3.3
Marian Jonas
jonas(zv)ji(tec)cz
DIB a TBitmap
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 22.10.1999 10:07:49
mojeTBitmap.handle:=pxd_DIBCreate(0, 0, 0, -1, -1, 0, 0);
zda se mi, ze hodnoty nekterych parametru nemusi byt spravne,
hodnotu bufferu bych cekal nenulovou a souradnice lrx, lry
kladne, mozna...
pokud jsou parametry spravne, tak data z globalni pameti by se dala ziskat:
var
bufptr : Pointer;
sData: TMemoryStream;
begin
.
.
.
sData:= TMemoryStream.Create;
bufptr := GlobalLock(hbuf);
if bufptr <> nil then begin
sData.WriteBuffer(bufptr^, GlobalSize(hbuf));
sData.Position:=0;
GlobalUnlock(hbuf);
end;
.
.
.
sData.Free;
- v prikladu se ziskaji data z globalni pameti a zapisi se do sData -
MemoryStreamu, hbuf je handle vraceny fci GlobalAlloc,
jestlize jsou data ve spravnem formatu, pak by se dalo pouzit:
mojeTBitmap.LoadFromStream(sData);
- pouze hadam, chtelo by to spise popis te funkce...
Zf
> -----P�vodn� zpr�va-----
> Od: Josef Dodek [SMTP:dodek(zv)cbmi.cvut(tec)cz]
> Odesl�no: 22.10.1999 08:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: DIB a TBitmap
>
>
> pxd_DIBCreate(buffer, ulx, uly, lrx, lry, uselut, rsvd : integer) je
> funkce
> z knihovny pro praci s grabovaci kartou, ktera ma vytvorit Device
> independent bitmap z nejakeho bufferu te karty, ulx ...lry specifikuje
> oblast ze ktere ma byt DIB vytvorena. Ta funkce zkopiruje bybranou oblast
> bufferu do nove vytvorene DIB v globalni pameti (pouzitim GlobalAlloc) a
> handle na DIB je vracena funkci pxd_DIBCreate.
>
> no ja bych rad tuto DIB prevedl na TBitmap abych s ni mohl snadno provadet
> ruzne operace.
>
> vi prosim nekdo jak na to ??
>
> pepa
>
>
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
services do NT4
[*] MODROVSKY Daniel <modrovsky(zv)asset.sk> - 22.10.1999 10:09:27
Napises z prikazoveho riadku %nazov.exe% -INSTALL pre instalaciu
a odinstalovanie %nazov.exe% -UNINSTALL
> -----Original Message-----
> From: Petr Mat�jovsk� [SMTP:pema(zv)seznam(tec)cz]
> Sent: 21. okt�ber 1999 20:47
> To: delphi-l(zv)fwd(tec)cz
> Subject: services do NT4
>
> Zdravim,
>
> Napsal sem v Delphi 4 sluzbu, ale nevim jak ji mam v NT nainstalovat
> (zaregistrovat).
> Nema nekdo nejake zkusenosti jak tam tu sluzbu jednoduse dostat (nechci
> editovat moc registry).
>
> Diky Petr pema(zv)seznam(tec)cz
> Vycisteni ComboBoxu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 22.10.1999 10:11:54
spis mi jde o to, ze uzivatel zkusi neco vybrat a pak to vubec nechce. Treba
explicitne na klavesu DEL to bubec nereaguje, ani kdyz ji osetrim onkeypress
(nevyvola se).
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Daniel Rott [SMTP:roxton(zv)atlas(tec)cz]
> Odesl�no: 22. ��jna 1999 9:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Vycisteni ComboBoxu
>
> Doufam ze ne, spoleham na to ze uzivatel si musi vybrat.
> Pokud tedy seznam neni prazdny a ItemIndex je pred-
> nastaveny, tak ItemIndex je v udalosti OnClick platny, tj.
> nikdy ne -1.
> Ale pro jistotu platnost indexu vzdy proveruji :-)
>
> Ahoj
> Daniel
>
> ----- P�vodn� zpr�va -----
> Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 22. ��jna 1999 7:40
> P�edm�t: Vycisteni ComboBoxu
>
>
> > Ahoj,
> >
> > chtel bych se, prosim, zeptat, zda-li nekdo nevi jak uzivatelem vycistit
> > ComboBox (<=> ItemIndex:=-1, ne Clear) je-li naplnen jako scDropDownList
> tj.
> > obsahuje n needitovatelnych polozek a neni moznost vlozit prazdnou
> polozku
> > (v seznamu neni proste nabidnuta). Existuje na to nejaka klavesova
> zkratka?
> > (W95/D2)
> >
> > Diky
> >
> > Jaro B.
> TIFF
[*] Roman Sladek <slado(zv)datapac.sk> - 22.10.1999 10:13:47
Potrebujem nacitat TIFF subor do Delphi programu. Nechcem to vsak ako
bitmapu, ale potrebujem ho citat po riadkoch. Na linuxe existuje
kniznica libTiff, ktora to dovoluje (dava mi dekomprimovane riadky
obrazku).
Kde to zohnat ?
---
bye
Roman Sl�dek
Export vetve z registry
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.10.1999 10:26:18
> Pokud to nepotrebujes primo do REG souboru, muzes pouzit
> metody SaveKey, LoadKey, RestoreKey, ale ty vytvari vlastni
> format souboru.
To je jasny, ale ja prave potrebuju vytvorit REG soubor.TTable
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 22.10.1999 10:28:44
Bud pouzij u tabulky index, nebo misto TTable pouzij TQuery
SELECT * FROM tabulka
ODER BY co chces
Karel
-----P�vodn� zpr�va-----
Od: Radim Ludv�k [mailto:radiml(zv)bnsoft(tec)cz]
Odesl�no: 22. ��jna 1999 8:46
Komu: Delphi Forum
P�edm�t: TTable
Zdravim,
potrebuji jednu trivialni radu ohledne TTable a to sice potrebuju ji nejak
setridit a nevim jak (to jsem ale hlupak ze) je v ni tabulka dBase.
(D3 C/S)
Diky.
Radim Ludv�k
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
hromadne pouziti SQL Update
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 22.10.1999 10:40:43
> Na SQL mam tabulku, jejiz struktura je dejme tomu takovato:
>
> ID Nazev Kod PocetKusu
> ------------------------------------------------
> 1 disketa ZB1 15
> 2 cd-rom ZB2 12
> 3 monitor ZB3 1
> .
> .
> 1000 xxxxxx xxx xxx
> atd. ...
>
> U kazde polozky s jedinecnym KODEM potrebuji zmenit aktualni pocet kusu.
> Muj dotaz je:
> Jaky zpusob update nejlepe pouzit, aby vse probehlo rychle a efektivne ?
> Mam napr Upd : TUpdateSQL.
> Pro kazdou polozku naplnim zvlast Upd.ModifySQL.Add('UPDATE TableTest
> SET PocetKusu = 100 WHERE kod = 'ZBx' ');
> a zavolam Upd.Apply(ukModify);
> Pak to vymazu a plnim prikazem pro dalsi polozky s jinym kodem.
> Pripada mi ale divne to takto delat treba tisickrat za sebou. Neda se to
> udelat nejak skupinove ? Abych treba napred naplnil buffer udaji a pak
> spustil UPDATE ?
> Mrp
>
V ORACLE na to existuje nieco ako PL/SQL Tables. Je to vlastne
array, donho si naplnis hodnoty, tie poslel ulozenej procedure, tam to
spracujes v cykle a mas to hotove..
JJ
Index, zaloha, instalace
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 22.10.1999 10:50:42
>
> (jsem v Delphi zacatecnik, takze omluvme mozna muje primitivni dotazy)
> Pisu databazovou aplikaci v D3. Mam dve svazane tabulky (Table1 a
Table2).
> Potreboval bych u te druhe (podrizene) nastavit razeni, ale nevim jak,
> protoze ta ma jiz nastaveni index na provazani tech tabulek, jde to
nejak?
Zkus si vytvorit indexy tak, aby obsahly jak svazani tabulek, tak i
indexaci druhe.
>
> Pak sem se chtel zeptat, mam vytvorenou databazi a potreboval bych ji
> zalohovat a to tam kam bude uzivatel chtit (jen na HD). Existuje na to
> nejaka unita, nebo jak to udelat?
Jednoduse. Jsou free komponenty pro format ZIP, ktere ti adresar s databazi
zkomprimuji na dane misto. Druha moznost je cely adresar prekopirovat do
jine cesty. Asi bys to muse delat tak, ze si rekurzivne prohledas celou
adresarovou strukturu a pak kopirujes jeden soubor za druhym dle nalezeneho
seznamu. Na to prohledavani mam sikovnou funkci, ktera Ti vrati stringlist
vsech nalezenych souboru.
>
> A jeste do tretice, chtel bych ze sveho programku udelat instalacky
> (datab. aplikace), ale nikde sem zatim nezjistil, jak to udelat. Jde to
> vubec?
>
Jde to pres InstallShield Express, ktery je soucasti jakekoliv instalace
DELPHI ( tusim od verze Proffesional). Tam si zalozis projekt, kde pridavas
soubory, ktere chces instalovat a zaroven si tam muzes zvolit instalaci
BDE.
> dik Filip
>
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
>
> Vycisteni ComboBoxu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 22.10.1999 10:53:10
Uz mam vyhodnoceni hotove, jedna se o cca 54 combo
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:fiala(zv)infos(tec)cz]
> Odesl�no: 22. ��jna 1999 9:47
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Vycisteni ComboBoxu
>
>
> ----- P�vodn� zpr�va -----
> Od: Daniel Rott <roxton(zv)atlas(tec)cz>
>
>
> > > Ahoj,
> > >
> > > chtel bych se, prosim, zeptat, zda-li nekdo nevi jak uzivatelem
> vycistit
> > > ComboBox (<=> ItemIndex:=-1, ne Clear) je-li naplnen jako
> scDropDownList tj.
> > > obsahuje n needitovatelnych polozek a neni moznost vlozit prazdnou
> polozku
> > > (v seznamu neni proste nabidnuta). Existuje na to nejaka klavesova
> zkratka?
> > > (W95/D2)
>
> Co ti brani, pridat tam polozku s textem treba "libovolna hodnota" a pri
> vyhodnoceni na to brat ohled ?
>
> ===============================
> ing. Jan Fiala fiala(zv)infos(tec)cz
> Prog-Soft s.r.o. Plzen
> INFOS - informacni system pro napojare
> ===============================hromadne pouziti SQL Update
[*] Petr Kro�a - 22.10.1999 11:03:02
Aha, jasne. Takze stejne nezbyva nic jineho, nez tam otrocky nasazet treba
tisic stejnych prikazu, lisicich se akorat podminkou, jestli jsem to spravne
pochopil ?
Nejspis to tak budu muset udelat. Ted mam ale jiny problem:
Pokud naplnim UpdateSQL.ModifySQL prikazem, ktery se neodkazuje na tabulku
(UPDATE Zbozi SET Nazev=:Nazev WHERE Nazev=:OLD_Nazev), ale ma primo natvrdo
zadane parametry (UPDATE Zbozi SET Nazev ='krabice' WHERE Nazev='bedna') a
spustim ExecSQL nebo Apply, zmeny v tabulce se sice provedou, ale skonci to
hlaskou UPDATE FAILED. Nevite proc ?
Diky
PK
----- Original Message -----
From: Daniel Rott <roxton(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 22, 1999 8:02 AM
Subject: Re: hromadne pouziti SQL Update
Nevim jak na jinych SQL serverech, ale u M$ muzes
do jednoho SQL dat i vice prikazu oddelenych normalne
mezerou nebo odradkovanim. Cely prikaz vsak nesmi
presahnout 32KB (nejsem si tim cislem presne jist).
Ahoj
Daniel
Export vetve z registry
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 22.10.1999 11:05:42
Win 4.0 Sp 4 D5 Enterprise
Ja jsem zkousel SaveKey ,ale nejak mi to nefunguje hlasi mi (GetLastError)
ze byl pristup odmitnu. Patricna prava (Administrators,System - vse plna
prava) u adresare mam nastavena. Muzete mi prosim nekdo poradit ? Mozna mam
spatne nastave parametry :
Savekey('HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\SERVICES\MyService\Para
meters','Regsav')
Dik Jirka
----- P�vodn� zpr�va -----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 22. ��jna 1999 10:26
P�edm�t: RE: Export vetve z registry
> > Pokud to nepotrebujes primo do REG souboru, muzes pouzit
> > metody SaveKey, LoadKey, RestoreKey, ale ty vytvari vlastni
> > format souboru.
>
> To je jasny, ale ja prave potrebuju vytvorit REG soubor.
>
Interbase a RedHat
[*] Dalibor Honus <dhonus(zv)iname(tec)com> - 22.10.1999 11:36:54
Zdravim
Mate nekdo zkusenosti s interbase 4.0 na RedHat 4.2. Jde mi o to zda to lze
provozovat na novesich distribucich RedHatu. Za odpovedi predem dekuji.
----------------------------------
Dalibor Honus
FotoMorava s.r.o.
tel. office: 0656 - 721 190 kl. 45
----------------------------------
Binarni soubor
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.10.1999 11:39:01
> Namapovat do pameti (CreateFileMapping) , prohledat (nejake funkce pro
> vyhledani retezce), otevrit novy soubor (CreateFile), ulozit od pozice
> (Write). Nic rychlejsiho patrne neni. Viktor
Pomohl by malinky prikladek. Dekuji.Problem s ADO a ulozenou procedurou
[*] Hynek Svatos <svatos(zv)kam(tec)czu(tec)cz> - 22.10.1999 11:52:15
>
>Mam na SQL serveru proceduru v tomto tvaru
>CREATE PROCEDURE TEST AS
> CREATE TABLE #pom ( cislo money )
> INSERT #pom VALUES ( 105 )
> SELECT * FROM #pom
> DROP TABLE #pom
>
>Kdyz tuto proceduru spustim v ISQL nebo v Delphi pres BDE, jede to v poradku.
>
>Pokud to spustim v Delphi pres ADOStoredProc, vyhodi mi to hlasku:
>The operation requested by the application is not allowed if the object is closed
>
>Zkousel jsem experimentovat s nastavenim CursorLocation, CursorType, LockType
>ale porad to rve.
>
>Nevite nekdo co s tim ? Je to problem jen Adonisu nebo vseobecne ADO komponent ?
>
>Za vsechny podnety budu velice vdecny.
>
>Konfigurace: Delphi 4 SP 2, Win NT 4.0 SP 5, MS SQL 6.5 SP 5, Trial Adonis 3.3
>
>Marian Jonas
>jonas(zv)ji(tec)cz
>
Ahoj,
jestli tu storedproc pustis pres AdoSp.ExecSQL tak je to jasne: ADO takhle
vola, kdyz vracis vysledky s procedury a poustis to pres ExecSQL. Takze, kdyz
chces neco vratit z procedury, musis volat SP.Open.
Jina situace nastane, kdyz se z procedury neprovadi vraceni vysledku pomoci
SELECT a v programu pouzijes SP.Open -> opet nejaka chybova zprava.
Hynek Svatos
kam(tec)czu(tec)cz
COM & DCOM
[*] code2019(zv)post(tec)cz - 22.10.1999 12:10:10
Zdravim,
Dobre je o COM psane v knize Mistrovstvi v Delphi 3 (samozdrejme vysvetluje na prikladech). Jsou tam o tom asi 3 kapitoly. Kdyz si prectes kapitolu 19 asi 10x po sobe jako ja, tak to musis pochopit. :-)
--=Code2019=-- [code2019(zv)post(tec)cz] Sledujte zpravodajstvi, TV-program, pocasi, kursy, ...:
*** http://PRESS.CZ
NT service, watchdog
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 22.10.1999 12:17:26
Zdravim vsechny!
Potykam se s problemem, jak z meho programu udelat sluzbu pod NT. Vzhledem
k tomu, ze s tim nemam zadne zkusenosti, obracim se na vas.
1) Kdyzi jsem tu zahlid zminku o nejakem programu (srvany ci tak nejak),
ktery by mel dokazat udelat service z jakehokoliv programu. Nikde se mi ho
vsak nepovedlo najit. Nevite nekdo, kde presne to roste? (CD s NT jsem
prohledal s nulovym vysledkem) A jestli je to pouzitelne?
2) Je nejaky jednoduchy zpusob, jak preklopit program v Delphi, aby se
spoustel jako service?
Prostredi: Delphi3 standard
Dale bych potreboval pro NT server udelat nejaky "watchdog", ktery by v
nastavenem intervalu delal ping na nekolik nastavenych adres, a pokud by
mu ani jedna neodpovedela, tak by restartoval pocitac.
Nevite nekdo o necem takovem jiz funkcnim? Pripdne nejake napady, jak to
udelat? Je ale potreba, aby ten watchdog nastartoval a b�el, ani� by se
musel n�jak� u�ivatel p�ihla�ovat (�ili asi jako service).
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
ADMIN: Legalni D5 od Inprise CR
[*] Burger, Tomas <tomas.burger(zv)sap(tec)com> - 22.10.1999 12:18:33
DDV,
mam tady vyjadreni Inprise CR k vasi debate o (ne)legalnich Delphi...
Berte to - prosim - jako informaci, a ne jako podnet k diskuzi.
Mam pocit, ze vsem podstatne uz bylo receno a ze problem muzeme s klidnym
svedomim uzavrit. Pokud ma nekdo jiny nazor, at se obrati na muj PRIVATNI
mailbox.
Tomas
-----Original Message-----
From: olatova(zv)inprise(tec)cz [mailto:olatova(zv)inprise(tec)cz]
Vazeni kolegove,
vidim, ze vasne uz vychladly a diskuze o legalnim uzivani a nakupu Delphi
jiz
utichla. Nicmene prispevky (a impertinence) pana Zahradnika mi nedaly a
musim na
ne reagovat - omlouvam se, ze takto pozde, ale byla jsem na dovolene.
Predpokladam, ze ti, ktere vec opravdu zajima, si muj prispevek do diskuze
precetli pozorne.
Nebudu tedy opakovat to, co jsem uz jednou rekla - dovolim si jen male,
strucne
shrnuti:
1. Inprise CR musi respektovat obchodni a marketingovou politiku, kterou pro
tento region stanovuje Inprise Corporation.
O cenove politice jsem se jiz vyjadrovala, marketingova politika (a ta
souvisi
treba s moznosti konkurencniho upgrade) je bohuzel opet vetsinou v detailech
jina pro Evropu a jina pro Spojene staty.
Chapu, ze se nasim uzivatelum muze zdat zvlastni, ze materska firma v USA
nabizi
nejake vyhody a my tyto vyhody nenabizime. Pokud nas tedy podezrivate z
toho, ze
vas chceme osidit, doporucuji peclive si precist vsechny nabidky na
americkem
webu a pak si overit, co je na webu nemeckeho Borlandu (Borland v Nemecku je
americka pobocka). VZDYCKY zjistite, ze pro USA a Evropu je marketingova
strategie ponekud jina. Drive byvalo na americkem webu u nabidek, ktere pro
Evropu neplati, napsano US only. Nyni, co se zmenil vzhled webovskych
stranek,
toto upozorneni vypadlo, ale delame vse pro to, aby to tam opet uverejnovali
a
nedochazelo tak k dezinformacim nasich uzivatelu.
Celkove je tento problem otazka duvery vas uzivatelu k nam. Mohli byste nam
verit, ze jsme hlavne obchodnici a take mame snahu prodavat co nejvice -
tudiz
proc napr. nenabidnout upgrade na zaklade vlastnictvi MS Office, kdyz bychom
udelali obchod a ziskali svoje procenta - zvlast pokud je velka
pravdepodobnost,
ze uzivatel si jinak nekoupi nic a bude nadale piratem, a my tudiz neziskame
take nic! Legalni uzivatel nakupem "Competitive upgrade" nic neziskava -
proc
bychom se asi tedy chovali takto neobchodnicky, kdybychom nemuseli? Problem
je v
tom, ze my musime respektovat pokyny, ktere pro prodej dostavame z
evropskeho
ustredi.
Obchodni a marketingova politika spolecnosti Inprise Corporation se vam muze
nebo nemusi libit - ale Inprise CR s ni nemuze prakticky nic delat a je
zasadni
omyl a velice nefer hazet nam tyto nedostatky na hlavu a tvrdit, ze "delame
z
lidi blbce".
2. Pokud se nekdo rozhodne nevyuzivat nasi obchodni site, je to jeho volba.
Jak
jsem jiz deklarovala - budeme po vsech strankach podporovat pouze ty
uzivatele,
kteri si nakoupi v ramci nasi obchodni site. Samozrejme to plati pro moznost
nakupu upgrade, ale i v pripade sporu o legalni uzivani SW atp. Nejsme
povinni
resit problemy lidem, kteri se na nas obrati az v pripade, ze se dostanou do
uzkych diky financnimu uradu, policii nebo zmenam, probihajicich v
jednotlivych
firmach (preregistrace atp.). Tito uzivatele necht se potom obrati na sveho
dodavatele a ten necht jim pomuze. Jen pro uplnost dodavam, ze veskera posta
nebo dotazy, adresovane na Inprise Corporation do USA, tykajici se naseho
regionu (tedy CR a SR) nam Americani automaticky posilaji k vyrizeni a vubec
se
jimi nezabyvaji.
A v pripade brzkeho sjednoceni cen produktu pro Evropu a USA muze uzivatel
pri
budoucim nakupu upgrade prodelat, nebot bude platit navic za dopravu a clo.
TOTO JE NASE STRATEGIE - muze nebo nemusi se vam libit. O ni se muzeme
bavit,
protoze tady se dostavame na pole, ktere ovlivnujeme my - Borland s.r.o.
3. Tento tyden sly do distribucni site prvni krabice s ceskymi registracnimi
kartami. Nejpozdeji v prubehu tydne pristiho bude zajistena moznost
registrace
uzivatele pres cesky web (www.inprise(tec)cz) diky jedinecnemu cislu, obsazenem
na
ceske registracni karte. Pokud tedy nechcete mit problemy a nevadi vam, ze
za
upgrade (protoze predpokladam, ze vsichni jste legalni uzivatele Delphi)
date o
cca 1790 Kc vice (a to nepocitam, kolik stoji doprava a clo z USA a
vychazim z
nasi doporucene ceny, ktera je vzdy o clup vyssi nez realna prodejni cena v
nasi
distribucni siti ) a chcete mit jistotu, ze vas v kazdem pripade vezmem pod
kridla, zkontrolujte si, zda v krabici, kterou od sveho dodavatele
dostanete,
najdete tuto registracni kartu a bud se registrujte pres nas web nebo ji
vyplnte
a obratem poslete k nam.
Srdecne zdravi
Olga Latova
Hot-key V IDE
[*] Petr Wogurka <alto(zv)unl.pvtnet(tec)cz> - 22.10.1999 12:23:53
>Dalibor Honus wrote:
>
>> Nevite nahodou nekdo, jak se dali vypnout(resp prenastavit)
>> hotkey v delpi (myslim v IDE).
>
>V jake verzi Delphi ?
>
>--
>
> Petr Vones, amatersky programator
>
Nejsem autorem puvodniho dotazu, ale jestli muzu, tak me by to
zajimalo ve verzi 4.03P. Nejhorsi je, kdyz pouziju Ctrl-Alt-B
a namisto znaku '{' (pri zapnute ceske klavesnici ve Win 9x) se
objevi okno na nastavovani breakpointu.
Alt-0123 to resi :) ale neni to ono.
S pozdravem
Petr Wogurka
Binarni soubor
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 22.10.1999 12:57:14
Uz jdu pryc, tak jestli se nikdo jiny nezve, tak v pondeli. Ale je to urcite
vsechno v helpu k uvedenym funkcim. Viktor
----- Original Message -----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 22, 1999 11:39 AM
Subject: RE: Binarni soubor
> > Namapovat do pameti (CreateFileMapping) , prohledat (nejake funkce pro
> > vyhledani retezce), otevrit novy soubor (CreateFile), ulozit od pozice
> > (Write). Nic rychlejsiho patrne neni. Viktor
>
> Pomohl by malinky prikladek. Dekuji.Binarni soubor
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 22.10.1999 12:00:56
kdysi jsem tohle resil pro dosovsky prohlizec,
sluzby OS jsou velmi pomale a donutilo me to
vytvorit si vlastni buffer.
Tedy: misto fukce ReadFile jsem volal vlastni
funkci napriklad GetChar.
ta uz se postarala o nacteni dostatecne velkeho
bloku souboru. Podobne by sel resit i tvuj problem,
jen je treba dat pozor pri cteni (vyhledavani) u konce
bufferu.
Slavek
-----P�vodn� zpr�va-----
Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odesl�no: 22. ��jna 1999 6:05
Komu: '*** Delphi'
P�edm�t: Binarni soubor
Zdravim,
potrebuji najit v binarnim souboru urcity retezec a ten soubor pak ulozit az
od teto pozice. Problem je v tom, ze nevim jak na to. Napadlo me cist to
znak po znaku, coz je dost pomale.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================
TIFF
[*] Milan Nemec <nemec(zv)goldcard(tec)cz> - 22.10.1999 13:33:51
Kdyz je to na linuxu, tak od toho budou patrne i zdrojaky, a to asi v C.
Zkompilujes ty zdrojaky C kompilatorem ve Windows - udela ti to OBJ
soubory a ty pak pripojis do delphi + H soubory prelozis do PAS
(to jde mozna i strojove, to nevim jiste).
Milan
----- Original Message -----
From: Roman Sladek <slado(zv)datapac.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 22, 1999 10:13 AM
Subject: TIFF
> Potrebujem nacitat TIFF subor do Delphi programu. Nechcem to vsak ako
> bitmapu, ale potrebujem ho citat po riadkoch. Na linuxe existuje
> kniznica libTiff, ktora to dovoluje (dava mi dekomprimovane riadky
> obrazku).
> Kde to zohnat ?
>
> ---
> bye
> Roman Sl�dek
>Edit
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 22.10.1999 12:34:27
Nevite jak zarovnat hodnotu v editu doprava? Dik. D5 NT4
M&B
konference o scannerech
[*] Dalibor Honus <dhonus(zv)iname(tec)com> - 22.10.1999 13:39:59
pokud chces, aby to fungovalo pres delphi , tak to funfuje pres rozrani
TWAIN muzu ti poslat asi 3 komponenty, ktere to resi.
----- Original Message -----
From: <muher(zv)csas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 22, 1999 11:56 AM
Subject: OT: konference o scannerech
Omlouvam se za off, ale jiz delsi dobu shanim nejake drivery na scener.
Neznate nekdo adresu na konferenci nebo archiv o scannerech?
Diky
Muher(zv)csas(tec)cz
tlac obrazku
[*] Miroslav BARICA <barica(zv)mail.matador.sk> - 22.10.1999 13:44:27
zdravim zas raz
potreboval by som vytlacit obrazok na tlaciaren. predstavujem si to tak
ze je ulozeny niekde na disku s parametrom pustim aplikaciu ktora ho
nacita a snad aj vytlaci ;o)
prosim o nakopnutie
dik
D5 a StringGrid
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 22.10.1999 13:54:15
> D5 (ma to 5,5 kila). Prosim vsechny, kteri maji D5, zda-li by jej
> nevyzkouseli tak, ze jej natahnou do D5, prelozi a spusti. Pak
> ukonci a zase spusti.Pak ukonci a zase spusti... a tak dale. Me
> vetsinou po tretim pokusu zamrznou delphi. Jednou, rekordne,
> zamrzli az asi po 30 pokusu. Kdyz jsem dal pryc StringGrid, ktery
Delphi 5 Trial, spustil jsem to asi 20x, bez jakychkoliv problemu.
Tom
Tuhnouci demo DELPHI 5 ENT..na W98CZ
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 22.10.1999 14:00:32
> > > >Ale chci li spustit Delphi tak se objevi
> > > >jen uvodni logo vestirny a me Windows 98 CZ zatuhnou uplne vcetne
> mysi.
> > > Pomuze jen RESET. Jakou delam chybu ???
> > > >
> > > > Dik za kazdou hlasku. A.K.
Pomohlo BusThrottle=on do SYSTEM.INI - viz archiv konference.
Tom
Binarni soubor
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 22.10.1999 14:10:38
> > Zdravim,
> >
> > potrebuji najit v binarnim souboru urcity retezec a ten
> soubor pak ulozit
> az
> > od teto pozice. Problem je v tom, ze nevim jak na to.
> Napadlo me cist to
> > znak po znaku, coz je dost pomale.
Ahoj,
zkus to takhle:
procedure TForm1.Button3Click(Sender: TObject);
const
IFN = 'C:\temp\system.dat';
OFN = 'C:\Pokus.bin';
SStr = 'Borland';
var
IFile : file;
fs : integer;
i : integer;
fb : PChar;
fpos : PChar;
Res : integer;
hnd : integer;
len : integer;
begin
AssignFile(IFile, IFN);
// zjisti velikost souboru
reset(IFile,1);
fs := FileSize(IFile);
closefile(IFile);
// zkusime alokovat pamet
try
GetMem(fb, fs + 1);
except
MessageDlg('Mam malo pameti...', mtConfirmation, [mbOK], 0);
exit;
end;
// otevreme soubor pro cteni
Hnd := FileOpen(IFN, fmOpenRead or fmShareDenyNone);
// precteme ho
Res := FileRead(Hnd, fb^, fs);
// vykopeme binarni nuly
for i := 0 to fs - 1 do
begin
if fb[i] = #0 then fb[i] := #$FF;
end;
// udelame z toho null-term string
fb[fs] := #0;
// najdeme substring
fpos := StrPos(fb, PChar(SStr));
if fpos = nil then
begin
MessageDlg('Nic jsem nenasel...', mtConfirmation, [mbOK], 0);
end
else
begin
Len := fs - (fpos - fb);
Res := FileSeek(Hnd, fpos - fb, 0);
// nacteme puvodni obsah souboru od nalezeneho stringu
Res := FileRead(Hnd, fpos^, Len);
FileClose(Hnd);
// otevreme soubor pro zapis
Hnd := FileCreate(OFN);
// zapiseme zbytek souboru
Res := FileWrite(Hnd, fpos^, Len);
FileClose(Hnd);
end;
end;
1. Nahrazeni binarnich nul se dela proto, aby se predcasne neukoncilo
hledani, jako nahrazovaci znak se da pouzit cokoli, co neni v hledanem
stringu.
2. Nacitani zbytku souboru se dela proto, aby se prepsane nuly opet
obnovily.
3. Nejsou osetreny zadne chyby, je to jen idea, jak to udelat.
4. Cele je to pro D3/WinNT, ale myslim, ze to pojede i na W9x.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Ako ulozit Memo do BLOB ?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 22.10.1999 14:19:25
Pouzivan IB5.0 a nefunguje mi ulozenie obsahu Memo1 do BLOB1 (BLOB1 BLOB SUB TYPE 1)
With Query do begin
SQL.Clear;
SQL.Add('update TEvid O set BLOB1 =' );
SQL.Add(#39+Memo1.Text+#39);
ExecSQL;
end;
Kde je chyba ?
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
autoincrement - Interbase
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.10.1999 14:59:10
> > TAK TOHLE MNE FAKT ROZESMALO.
> > Tisic zamestnancu hrajicich si na hackera pomoci textoveho editoru!!!
> >
> > A zrovna tohle tvrdi Jura, ktery se neumi podivat do dokumentu
> > Wordu jestli tam Bill zasil GUID autora nebo ne!
> >
> > To si opravdu myslis, ze bezny uzivatel dokaze pohledem do
> > EXE neco zjistit?
> > Ja jsem vzdy pouzival uzce specializovane
> > nastroje jako TD32 nebo HIEW, ale JEN si natahnout EXE
> > do Notepadu nebo snad do WordPadu nebo dokonce to Wordu
> > a koukat na to?
> >
> No tak si da vyhladat v Notepade slovo UPDATE a na tom
> mieste si to pekne upravi.
> Mne sa to uz stalo, no proste pekne svinstvo.
> A nebol to ziaden profik..takze teoria je pekna, ale realita
> moze byt ina.
Sorry,
ale zkousel jsi to TY?
Samozdrejme, ze otevrit EXE soubor v Notepadu jde,
vyhledat UPDATE jde take.
ALE OPRAVA NEJDE ZPATKY ULOZIT!!!!!!
Po ulozeni je z EXE souboru totalni sracka (To admin: jak to rici slusne?),
kterou Windows odmitnou spustit.
Nebo je snad v nejakych windowsech notepad, ktery dokaze
korektne ulozit binarni soubor? Ja ve WinNT4 a Win95 ho nemam.
Rob
NT service, watchdog
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 22.10.1999 14:59:50
Je to v reskitu. Je to maly a pitomy. Pokud vim,
tak je to beze zmen uz od 3.51.
Nejvic me na nem vadi, ze nedohlizi na spuste-
nou aplikaci (tzn. pokud takto spoustena aplika-
ce sama skonci, tak sluzba zustane spustena !)
a ukoncuje ji pres Terminate namisto PostQuit
(tzn. pokud aplikace chce neco pred ukoncenim
ulozit, nebo se napriklad rozloucit (pokud prova-
di nejakou komunikaci s vnejskem :-) tak uz to
nestihne).
Pro jednodussi pouziti to vsak staci.
Ma to 50 KB bez komprese.
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 22. ��jna 1999 12:17
P�edm�t: NT service, watchdog
> Zdravim vsechny!
>
> Potykam se s problemem, jak z meho programu udelat sluzbu pod NT. Vzhledem
> k tomu, ze s tim nemam zadne zkusenosti, obracim se na vas.
>
> 1) Kdyzi jsem tu zahlid zminku o nejakem programu (srvany ci tak nejak),
> ktery by mel dokazat udelat service z jakehokoliv programu. Nikde se mi ho
> vsak nepovedlo najit. Nevite nekdo, kde presne to roste? (CD s NT jsem
> prohledal s nulovym vysledkem) A jestli je to pouzitelne?
>
> 2) Je nejaky jednoduchy zpusob, jak preklopit program v Delphi, aby se
> spoustel jako service?
>
> Prostredi: Delphi3 standard
>
> Dale bych potreboval pro NT server udelat nejaky "watchdog", ktery by v
> nastavenem intervalu delal ping na nekolik nastavenych adres, a pokud by
> mu ani jedna neodpovedela, tak by restartoval pocitac.
> Nevite nekdo o necem takovem jiz funkcnim? Pripdne nejake napady, jak to
> udelat? Je ale potreba, aby ten watchdog nastartoval a b�el, ani� by se
> musel n�jak� u�ivatel p�ihla�ovat (�ili asi jako service).
>
> S pozdravem
> Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
> mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
> PGP podporovano a vitano
>
Vycisteni ComboBoxu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.10.1999 15:00:43
No tak tam pridej jeden PRAZDNY radek (do Items)
> ----------
> spis mi jde o to, ze uzivatel zkusi neco vybrat a pak to vubec nechce.
> Treba
> explicitne na klavesu DEL to bubec nereaguje, ani kdyz ji osetrim
> onkeypress
> (nevyvola se).
> Jaro B.
> hromadne pouziti SQL Update
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 22.10.1999 15:05:41
Obavam se, jestli nejde o nepochopeni k cemu vlastne slouzi TUpdateSQL.
TUpdateSQL slouzi k tomu, aby bylo mozne updatovat query, ktere je natolik
slozite, ze to Delphi nezvladne sam. Chces-li pouzit update tak, jak jsi to
popsal, pouzij na to TQuery, misto Open dej ExecSQL. Tam muzes dat celou
radu prikazu za sebou.
-----P�vodn� zpr�va-----
Od: Petr Kro�a [SMTP:mrp.konference(zv)compact(tec)cz]
Odesl�no: 22. ��jna 1999 11:03
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: hromadne pouziti SQL Update
Aha, jasne. Takze stejne nezbyva nic jineho, nez tam otrocky nasazet treba
tisic stejnych prikazu, lisicich se akorat podminkou, jestli jsem to
spravne
pochopil ?
Nejspis to tak budu muset udelat. Ted mam ale jiny problem:
Pokud naplnim UpdateSQL.ModifySQL prikazem, ktery se neodkazuje na tabulku
(UPDATE Zbozi SET Nazev=:Nazev WHERE Nazev=:OLD_Nazev), ale ma primo
natvrdo
zadane parametry (UPDATE Zbozi SET Nazev ='krabice' WHERE Nazev='bedna') a
spustim ExecSQL nebo Apply, zmeny v tabulce se sice provedou, ale skonci to
hlaskou UPDATE FAILED. Nevite proc ?
Diky
PK
----- Original Message -----
From: Daniel Rott <roxton(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 22, 1999 8:02 AM
Subject: Re: hromadne pouziti SQL Update
Nevim jak na jinych SQL serverech, ale u M$ muzes
do jednoho SQL dat i vice prikazu oddelenych normalne
mezerou nebo odradkovanim. Cely prikaz vsak nesmi
presahnout 32KB (nejsem si tim cislem presne jist).
Ahoj
Daniel
Uvolneni instance formulare - caFree
[*] Martin Ocenas <ocenas(zv)proces.sk> - 22.10.1999 15:06:23
Problem je ten, ze instancia typu moze mat ine meno. (f :=
TForm2.Create(self) ). Ako postupovat v tomto pripade?
Martin
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Ahoj,
>
> Napriklad takhle:
>
> procedure TForm2.FormDestroy(Sender: TObject);
> begin
> Form2 := nil;
> end;
>
> --
>
> Petr Vones, amatersky programator
>Hot-key V IDE
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.10.1999 15:09:17
Od: Petr Wogurka <alto(zv)unl.pvtnet(tec)cz>> >Dalibor Honus wrote:
> >
> >> Nevite nahodou nekdo, jak se dali vypnout(resp prenastavit)
> >> hotkey v delpi (myslim v IDE).
> >
> Nejsem autorem puvodniho dotazu, ale jestli muzu, tak me by to
> zajimalo ve verzi 4.03P. Nejhorsi je, kdyz pouziju Ctrl-Alt-B
> a namisto znaku '{' (pri zapnute ceske klavesnici ve Win 9x) se
> objevi okno na nastavovani breakpointu.
> Alt-0123 to resi :) ale neni to ono.
Zkus Pravy_ALT+Shift+{
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Export vetve z registry
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 22.10.1999 15:09:25
> > > Pokud to nepotrebujes primo do REG souboru, muzes pouzit
> > > metody SaveKey, LoadKey, RestoreKey, ale ty vytvari vlastni
> > > format souboru.
> >
> > To je jasny, ale ja prave potrebuju vytvorit REG soubor.
> >
Takze tady mas unitku, ktera ti to vyexportuje. Doufam, ze me neukamenujete za dlouhy mail
{***************************************************************
*
* Unit Name: uRegFile
* Purpose : Exports windows registry key with all subkeys to
* .REG file
* Author : ing. Jan Fiala jan.fiala(zv)iname.com
*
****************************************************************}
unit uRegFile;
interface
uses Windows, SysUtils, Classes, Registry;
{ saves RegistryKey with all its subkeys to FileName }
procedure SaveRegFile(RootKey : HKey; RegistryKey, FileName : string);
{ konversion Registry RootKey to String }
function RootKeyToString(RootKey : HKey) : string;
implementation
var Reg : TRegistry;
List : TStringList;
function RootKeyToString(RootKey : HKey) : string;
begin
case RootKey of
HKEY_CLASSES_ROOT : Result := 'HKEY_CLASSES_ROOT';
HKEY_CURRENT_USER : Result := 'HKEY_CURRENT_USER';
HKEY_LOCAL_MACHINE : Result := 'HKEY_LOCAL_MACHINE';
HKEY_USERS : Result := 'HKEY_USERS';
HKEY_CURRENT_CONFIG : Result := 'HKEY_CURRENT_CONFIG';
HKEY_DYN_DATA : Result := 'HKEY_DYN_DATA';
end;
end;
procedure AddKeyToList(KeyName: String);
var
KeyList : TStringList;
i : Integer;
Line : string;
{ sub function for conversion registry value to coresponding strind }
function RegistryValueToString(NameOfKey : string) : string;
var
Buffer : array [0..1024] of char;
j, k : Integer;
begin
case Reg.GetDataType(NameOfKey) of
rdUnknown : Result := '';
rdString : Result := '"' + Reg.ReadString(NameOfKey) + '"';
rdExpandString : Result := '"' + Reg.ReadString(NameOfKey) + '"';
rdInteger : Result := Format('dword:%.8d', [Reg.ReadInteger(NameOfKey)]);
rdBinary : begin
Result := '';
j := Reg.ReadBinaryData(NameOfKey, Buffer, SizeOf(Buffer));
if j > 0 then begin
Result := 'hex:';
for k := 0 To j do
Result := Result + IntToHex(Ord(Buffer[k]), 2) + ',';
Result := Copy(Result, 1, Length(Result) - 1);
end;
end;
end;
end;
begin
KeyList := TStringList.Create;
try
if Reg.OpenKeyReadOnly(KeyName) then
with List do begin
{ current registr key }
Add('');
Add('[' + RootKeyToString(Reg.RootKey) + '\' + Reg.CurrentPath + ']');
Reg.GetValueNames(KeyList);
{ registr values }
for i := 0 To KeyList.Count - 1 do begin
Line := RegistryValueToString(KeyList.Strings[i]);
if Line <> '' then Add('"' + KeyList.Strings[i] + '"=' + Line);
end;
{ rekursion for subkeys }
Reg.GetKeyNames(KeyList);
Reg.CloseKey;
for i := 0 To KeyList.Count - 1 do
AddKeyToList(KeyName + '\' + KeyList.Strings[i]);
end;
finally
KeyList.Free;
end;
end;
procedure SaveRegFile(RootKey : HKey; RegistryKey, FileName : string);
begin
Reg := TRegistry.Create;
List := TStringList.Create;
try
if RootKey <> 0 then Reg.RootKey := RootKey;
{ REG file header }
List.Clear;
List.Add('REGEDIT4');
AddKeyToList(RegistryKey);
try
{ and now we create REG file }
List.SaveToFile(FileName);
except
end;
finally
Reg.Free;
List.Free;
end;
end;
end.===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Ulozene procedury
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.10.1999 15:11:22
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Dobry den,
rad bych se zeptal, zda jste nekdo nepouzival %subj% v databazi
MS Accessu. Priapdne jestli by nebyl priklad. Mozna by mi pomohl
i priklad napr. z MS SQL serveru jak procedury tak kousek Delphi
kodu.
Konkretne mi jde o toto: vytvoril jsem akcni dotaz (INSRET INTO...)
v databazi Accessu a prostrednictvim StoredProc.ExecProc jej vykonam
(pote, co nastavim parametry) ale nevim, jak napriklad zpetne zjistit
jake ID bylo tomu vlozenemu radku prideleno.
Parametry nastvuji jako ptInput, ale jak nastavit neco jako ptOutput
a jeste donutit (pres ODBC) tu databazi, aby mi to vratila, to netusim.
DIKY MOC
ZA POMOC
Dobra.
tisk memo na vice stranek
[*] Honza Fiala <kvasar(zv)kvasar(tec)cz> - 22.10.1999 15:29:49
potreboval bych poradit, jak se da co nejjednoduseji vytisknout RichEdit, ktery se nevejde na jednu stranu. uz jsem zkousel Memo.paintTo(Printer.Handle, 1, 1), ale vytisklo mi to pasqil :(
Dik
Honza Fiala
fala(zv)email(tec)cz
http://members.xoom.com/falasoft
Binarni soubor
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.10.1999 15:53:57
Jednou jsem delal neco podobneho (nejaky cheat na pridani penez
v sejvu hry :-) a delal jsem to tak (zdrojak uz davno nemam :-(,
ze jsem to cetl normalne pres BlockRead po napr. 4 kB blocich
a ukladal do bufferu. Nasel-li jsem prvni znak z hledaneho retezce
napr na pozici Buf[4], porovnal jsem druhy znak s tim, co je
na pozici 5 byl-li tam konec bufferu, nacetl jsem druhy blok
a kontoloval hned od zacatku s tim, ze jsem porovnaval
Buf[1] ale uz treba se tretim znakem.
Abych takhle neplacal, _zkusim_ maly kousek kodu :
const
MaxBufSize=4096;
MaxHledSize=4;
var
Hled : array[1..MaxHledSize] of char;
Buf : array[1..MaxBufSize] of char;
F : file;
NumRead,
I, J, K : longint;
Nalezeno : boolean;
begin
Assign(F, 'Nejaky soubor');
Reset(F, 1);
// Tady nejak naplnit pole Hled daty:
Hled[1]:='D';
Hled[2]:='e';
Hled[3]:='m';
Hled[4]:='o';
K:=0;
J:=1;
Nalezeno:=false;
repeat
BlockRead(F, Buf, SizeOf(Buf), NumRead);
Inc(K);
for I:=1 to NumRead do
begin
if Buf[I]=Hled[J] then
Inc(J)
else //tohle by slo vyresit asi lepe aby se
J:=1; // J porad dokola nensatavovalo na jednicku
if J>=MaxHledSize then
// Nasel se na pozici I v K-tem bloku
begin
ShowMessage(IntToStr(((K-1)*MaxBufSize) + I - 1 ));
// s tema jednickam ted nemam uplne jasno,
// mozna to bude chtit odecist dve
Nelezeno:=true;
Break;
end;
end;
until Nalezeno or (NumRead=0);
//Jestlize nalezeno=false, tak tam neni,
//nebo jsem ten priklad napsal spatne ;-)
CloseFile(F);
end
Doufam, ze to tak nejak bylo...
Dobra.
> ----------
> potrebuji najit v binarnim souboru urcity retezec a ten soubor pak
> ulozit az
> od teto pozice. Problem je v tom, ze nevim jak na to. Napadlo me cist
> to
> znak po znaku, coz je dost pomale.
>
>
> OT: protokol Z39.50
[*] J�n Grman�������e���zW��ۛg�$ - 22.10.1999 15:53:31
Caute priatelia.
Prepacte za otazku mierne mimo DELPHI, ale naozaj len mierne.
Pre potreby kniznicneho programu by som potreboval zohnat popis alebo implementaciu protokolu pre vymenu kniznicnych informacii Z39.50.
Tento protokol by mal byt "open source" a optimisticky dufam ze existuju zdrojaky skompilovatelne pod DELPHI ci C++ Buildrom (resp. nieco skompilovatelne pre WIN32).
Vopred dakujem za kazdu uzitocnu informaciu.
JaNo, janog(zv)pluto.elf.stuba.sk
WINSOCK - TCPClient.Read
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 22.10.1999 15:57:32
Ahojte,
potreboval bych poradit s jednou veci ohledne %subj.
V ud�losti onData ceka TCPClient na data ze serveru je tam prikaz
Data:=TCPClient1.Read; // var Data:String;
Bohuzel se mi velmi casto stava, ze se data nabaluji a nemuzu je pak
rozeznat.
Napr. server posle na nove pripojeneho klienta jednotlive retezce
for i:=1 to TCPServer1.Clients.Count-1 do
begin
TCPServer1.Write("KLIP:JMENOPRIJMENI+IntToStr(I);IP_ADRRESA+IntToStr(I)");
end;
, coz jsou udaje o jinych pripojenych klientech.
Ale klientovi, kteremu to takto posila se napoprve naplni promenna Data
retezcem
"KLIP:JMENOPRIJMENI1;IP_ADRRESA1", coz je spravne, ale a po prijeti druheho
paketu, asi nez se prvni zpracuje, uz je to takto spatne nabalene
"KLIP:JMENOPRIJMENI2;IP_ADRRESA2KLIP:JMENOPRIJMENI3;IP_ADRRESA3KLIP:JMENOPRI
JMENI4;IP_ADRRESA4"...."
Proc se ty retezce vubec spojuji, kdyz kazdy by mel byt v jinem paketu?Jak
mam udelat, aby klient prijal data rozdelena tak, jak je odesila server?
Nejdrive jsem vsechno zpracovaval primo v procedure onData, pak jsem si
rikal, ze bude lepsi, kdyz pouze zjistim, co to je za data a pro kazdy
"identifikacni znak" komunikacniho protokolu budu mit jinou proceduru pro
zpracovani, ale porad si nejsu jisty, ze nemuze nastat pripad, kdy se mi
data nabali.A oni se nabaluji .-(((
Mam D4C/S.
Help me please!!!
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
TTable
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.10.1999 15:58:34
Nedelej to pres TTable, ale pres TQuery (clausule order by...)
Nebo, musi-li to byt pomoci TTable vytvor index nad sloupcem,
dle ktereho chces tridit a potom _SNAD_ staci nastavit
Table1.IndexName, ale to opravdu nevim, nikdy jsem to nedelal.
> ----------
> potrebuji jednu trivialni radu ohledne TTable a to sice potrebuju ji
> nejak setridit a nevim jak
> �
> Vycisteni ComboBoxu
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 22.10.1999 15:04:16
> > > chtel bych se, prosim, zeptat, zda-li nekdo nevi jak uzivatelem
vycistit
> > > (v seznamu neni proste nabidnuta). Existuje na to nejaka klavesova
> Co ti brani, pridat tam polozku s textem treba "libovolna hodnota" a pri
> vyhodnoceni na to brat ohled ?
Uz mam vyhodnoceni hotove, jedna se o cca 54 combo
Nevim o zadne zkratce, mozna je. Ovsem, kdyz uz mas braneno v tom, si tam
dat "libovolna hodnota", muzes prece obsadit metodu OnKeyDown a na Del, nebo
neco, patricne reagovat (minus jednickou), ne?
Pripadne si rovnou udelat zdedenou komponentu s aplikovanim te klavesy...Vycisteni ComboBoxu - priklad
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 22.10.1999 15:17:21
spis mi jde o to, ze uzivatel zkusi neco vybrat a pak to vubec nechce. Treba
explicitne na klavesu DEL to bubec nereaguje, ani kdyz ji osetrim onkeypress
(nevyvola se).
No, nedalo mi to a radsi rovnou poslu i priklad.
Totiz onKeyPress je na takovy ty normalnejsi klavesy, jako je enter a tak
;-). Nach, proste Del, Insert, ja nevim treba F1-F12 a tak nechyta. Tohle si
ale muzes sam ozkouset, proste si dej zkusmo tu udalost a nastav si do ni
break point a pak se koukni, co ti tam pousti...
Pro tyhle "divnejsi" klavesy je treba odchytavat onKeyDown (jak jsem psal).
Ten ti sice neposle primo Ascii znak v charu, ale ve word hodnote. Takovy
del tam ma 02eh, tusim (teda kalkulacka v NT to rika) 46 dekadicky. Jeste
tam je shift, to se taky hodi (jak jsou stiskly ty control a shift a tak)...
No, dost reci, dej si do OnKeyDown nize uvedenou vec a snad to bude to, co
chces...
//***********************************************************************
procedure TFrmMain.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = $2e) then
(Sender as TComboBox).ItemIndex := -1;
end;
Problem s ADO a ulozenou procedurou
[*] Erik Salaj <winsoft(zv)napri.sk> - 22.10.1999 17:04:59
Na storovanu proceduru, ktora nevracia recordset nemozete
volat Open metodu ani prikaz Active := True (co je to iste),
ale miesto toho je potrebne pouzit ExecSQL:
ADODataSet1.ExecSQL;
Este jedno upozornenie: ADO ma problemy so storovanymi
procedurami, ktore obsahuju pomocne tabulky (zacinajuce
znakom #). Neviem, ci sa to uz neodstranilo, ale pametam
sa, ze s tym boli problemy.
Ak chcete pripadne experimentovat s ADO, tak mozte
pouzit moje nove komponenty (ADO Component Suite),
tento tyzden by uz mala byt k dispozicii finalna verzia.
Ide o tenku vrstvu nad ADO, ktora umoznuje pracovat
priamo s ADO ale na urovni Delphi komponentov, t.j.
mozte interaktivne zadavat a citat ADO properties.
Komponenty najdete na http://www.cybermagic.co.nz/winsoft .
Pozdravuje
Erik Salaj
----- Original Message -----
From: Marian Jonas
To: Konference Delphi
Sent: Friday, October 22, 1999 9:56 AM
Subject: Problem s ADO a ulozenou procedurou
Zdravim vsechny priznivce Delphi a ADO komponent
Mam na SQL serveru proceduru v tomto tvaru
CREATE PROCEDURE TEST AS
CREATE TABLE #pom ( cislo money )
INSERT #pom VALUES ( 105 )
SELECT * FROM #pom
DROP TABLE #pom
Kdyz tuto proceduru spustim v ISQL nebo v Delphi pres BDE, jede to v poradku.
Pokud to spustim v Delphi pres ADOStoredProc, vyhodi mi to hlasku:
The operation requested by the application is not allowed if the object is closed
Zkousel jsem experimentovat s nastavenim CursorLocation, CursorType, LockType
ale porad to rve.
Nevite nekdo co s tim ? Je to problem jen Adonisu nebo vseobecne ADO komponent ?
Za vsechny podnety budu velice vdecny.
Konfigurace: Delphi 4 SP 2, Win NT 4.0 SP 5, MS SQL 6.5 SP 5, Trial Adonis 3.3
Marian Jonas
jonas(zv)ji(tec)cz
WINSOCK - TCPClient.Read
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.10.1999 17:47:31
>Ahojte,
> potreboval bych poradit s jednou veci ohledne %subj.
>
>V ud�losti onData ceka TCPClient na data ze serveru je tam prikaz
>Data:=TCPClient1.Read; // var Data:String;
>
>Bohuzel se mi velmi casto stava, ze se data nabaluji a nemuzu je pak
>rozeznat.
>Napr. server posle na nove pripojeneho klienta jednotlive retezce
>
>for i:=1 to TCPServer1.Clients.Count-1 do
>begin
> TCPServer1.Write("KLIP:JMENOPRIJMENI+IntToStr(I);IP_ADRRESA+IntToStr(I)");
>end;
>, coz jsou udaje o jinych pripojenych klientech.
>
>Ale klientovi, kteremu to takto posila se napoprve naplni promenna Data
>retezcem
>"KLIP:JMENOPRIJMENI1;IP_ADRRESA1", coz je spravne, ale a po prijeti druheho
>paketu, asi nez se prvni zpracuje, uz je to takto spatne nabalene
>"KLIP:JMENOPRIJMENI2;IP_ADRRESA2KLIP:JMENOPRIJMENI3;IP_ADRRESA3KLIP:JMENOPRI
>JMENI4;IP_ADRRESA4"...."
>
>Proc se ty retezce vubec spojuji,
kdyz kazdy by mel byt v jinem paketu?
a to jako proc??
kazde TCP/IP spojeni ma buffer do ktereho muzes zapisovat data. Takze zapises par bytu a system je zacne (mozna) odesilat. Pokud stihnes zapsat dalsich par bytu drive nez odejdou vsechny predchozi bylo by TCP/IP dost blbe napsane pokud by nova data nepribalila do stejneho paketu jako to co uz je v bufferu (pokud se to do nej vejde)
V optionech socketu je okonce mozne povolit/zakazat Nagle algoritmus, ktery zpusobi, ze TCPko ceka nejakou dobu, zda se neobjevi jeste nejaka data - prave kvuli minimalizaci poctu odesilanych packetu.
>Jak
>mam udelat, aby klient prijal data rozdelena tak, jak je odesila server?
jedine co se da delat je vkladat do dat separatory (CRLF se primo nabizi)
>
>Nejdrive jsem vsechno zpracovaval primo v procedure onData, pak jsem si
>rikal, ze bude lepsi, kdyz pouze zjistim, co to je za data a pro kazdy
>"identifikacni znak" komunikacniho protokolu budu mit jinou proceduru pro
>zpracovani, ale porad si nejsu jisty, ze nemuze nastat pripad, kdy se mi
>data nabali.A oni se nabaluji .-(((
ten pripad muze nastat vzdy - muze se zdat se se odesila separatne po paketech pokud jsi pripojen ethernetem, pokud ale nahradis TPcko necim vyrazne pomalejsim dojde ke zmene...
Zdravi
D. Toman
Bezpecnost dat (opravneni uzivatele) [long]
[*] Erik Salaj <winsoft(zv)napri.sk> - 22.10.1999 18:06:34
> Pokud je pozadovano zajisteni pristupu k udajum pouze opravnenym osobam,
je
> to VZDY komplikovana zalezitost. Primarne existuji dva zakladni spusoby,
jak
> problem resit:
>
> 1) Pravy k objektum SQL serveru (tabulky, procedury atd.)
> 2) Prostredky aplikace
Povedal by som, ze je potrebne chranit tak objekty SQL servera
ako aj aplikaciu. Nestaci zabezpecit len aplikaciu a pritom SQL
server ponechat bez ochrany. Takisto si myslim, ze ochrana aplikacie
by mala nadvezovat na ochranu dat, vyuzivat ju a pripadne doplnit
o dalsie aspekty, ktore suvisia s aplikaciou povedzme zabezpecenie
prenosu udajov, atd. Najvecsi problem ochrany podla mna je
na nic nezabudnut a nic nezanedbat, pretoze bezpecnost systemu
je dana bezpecnostou jeho najslabsieho clanku.
Erik Salaj
hromadne pouziti SQL Update
[*] Ing. Jaroslav �ke��k - 22.10.1999 19:05:33
> Aha, jasne. Takze stejne nezbyva nic jineho, nez tam otrocky nasazet treba
> tisic stejnych prikazu, lisicich se akorat podminkou, jestli jsem to
spravne
> pochopil ?
>
> Nejspis to tak budu muset udelat. Ted mam ale jiny problem:
No to snad ne. Na co jsou parametry nebo funkce Format().
> Pokud naplnim UpdateSQL.ModifySQL prikazem, ktery se neodkazuje na tabulku
> (UPDATE Zbozi SET Nazev=:Nazev WHERE Nazev=:OLD_Nazev), ale ma primo
natvrdo
> zadane parametry (UPDATE Zbozi SET Nazev ='krabice' WHERE Nazev='bedna')
a
> spustim ExecSQL nebo Apply, zmeny v tabulce se sice provedou, ale skonci
to
> hlaskou UPDATE FAILED. Nevite proc ?
Protoze na tohle neni ModifySQL urcen.
To je objekt, ktery je urcen pouze pro spolupraci s objektem TQuery v rezimu
CacheUpdates
Jaro
>
> Diky
>
> PK
> ----- Original Message -----
> From: Daniel Rott <roxton(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, October 22, 1999 8:02 AM
> Subject: Re: hromadne pouziti SQL Update
>
>
> Nevim jak na jinych SQL serverech, ale u M$ muzes
> do jednoho SQL dat i vice prikazu oddelenych normalne
> mezerou nebo odradkovanim. Cely prikaz vsak nesmi
> presahnout 32KB (nejsem si tim cislem presne jist).
>
> Ahoj
> Daniel
>Interbase a RedHat
[*] Zdenek Moravec <zmo(zv)telecom(tec)cz> - 22.10.1999 19:11:30
Ja jsem zkousel Interbase 4.0 na RedHat 6.0 - jenom v testovacim prostredi,
ostre nasazeni teprve planuji.
Nainstalovat a spustit to jde bez problemu, zkousel jsem se pripojit pres
ODBC od Visigenicu (standardne) a funguje. Zkousel jsem na tom nektere veci,
ktere puvodne slapaly na paradoxu (ale s pristupem pouze pres Query a SQL
prikazy) a celkem bez problemu vsechno jede.
Pak jsem zkousel vytvorit par Stored Procedur a ty fungovaly taky.
Takze zatim je muj dojem veskrze kladny. Jedine s cim jsou udajne problemy
(ale nevyzkousel jsem to takze nevim jiste) je prilinkovani UDF knihoven -
na RedHat 6.0 je udajne jiz jine pojeti libc knihoven a nejak to tomu vadi.
V tom se ale moc nevyznam a myslim, ze se bez toho da zit - zvlaste kdyz je
to cele zadarmo.
Pokud ma nekdo nejake zkusenosti s takovymto provozem, byl bych rad, aby se
tez podelil.
S pozdravem,
Zdenek Moravec zmo(zv)telecom(tec)cz
-----P�vodn� zpr�va-----
Od: Dalibor Honus <dhonus(zv)iname.com>
Komu: delphi-l <delphi-l(zv)fwd(tec)cz>
Datum: 22. ��jna 1999 11:53
P�edm�t: Interbase a RedHat
>Zdravim
>
>Mate nekdo zkusenosti s interbase 4.0 na RedHat 4.2. Jde mi o to zda to lze
>provozovat na novesich distribucich RedHatu. Za odpovedi predem dekuji.
>
>----------------------------------
>Dalibor Honus
>FotoMorava s.r.o.
>tel. office: 0656 - 721 190 kl. 45
>----------------------------------
>
>
>zaklady C/S
[*] Ing. Jaroslav Ske��k - 22.10.1999 19:34:45
> moc zabavne.... osobne malokedy pouzivam stored proc, nakolko
> robim zvacsa
> iba male aplikacie a preto sa chcem opytat naozajstnych
> odbornikov, ake to
> ze len ma via stored proc vyhody.
>
Vyhod je nekolik a zavisi velmi od pouziteho serveru a druhu procedur.
Obecne pokud jsou procedury dobre vymyslene a napsane, pak zpravidla
1. prispivaji k lepsi integrite a databaze
2. mnohdy podstatne zvysuji rychlost zpracovani
3. snizuji datove toky po siti, napr. tim, ze umoznuji validaci na serveru -
to zpravidla take velmi zrychluje tuto cinnost
4. zjednodusuji programovy kod klienta
5. umuznuji validaci na serveru
Procedury muzeme rozdelit
1. Aktualizacni: procedury pro Insert, Update, prip. Delete, dale
algoritmy pro hromodnou aktualizaci a validaci
2. Informacni. Ziskavaji infarmace zpravidla napric databaze
(pres vice tavulek)
ad1. navyseni rychlosti zejmena pri validacich a v pripade slozitejsich
aktualizaci
je zrejme. Po siti se nesoupou tolik data sem a tam. Na klientovi se
neceka az
dotecou informace z ciselniku a pod.
ad2. dohledavani informaci z vice tabulek primo na serveru je zpravidla
podstatne rychlejsi, protoze je zde vyloucena komunikace a
segregace dat
se provadi primo na serveru. Na klienta se pak poslou zpracovane
informace,
coz zpravidla je mnohem mensi objem dat.
Prikladem muze byt FOR SELECT, ktery (Interbase) byva nekolikanasobne
rychlejsi
nez slozny SELECT.
Samozrejme plati, ze jen dobre vymyslena a napsana procedura muze prinest
nejaky efekt.
Jaro
Problem s ADO a ulozenou procedurou
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.10.1999 20:31:03
Marian Jonas wrote:
> Mam na SQL serveru proceduru v tomto tvaru
> CREATE PROCEDURE TEST AS
> CREATE TABLE #pom ( cislo money )
> INSERT #pom VALUES ( 105 )
> SELECT * FROM #pom
> DROP TABLE #pom
>
> Kdyz tuto proceduru spustim v ISQL nebo v Delphi pres BDE, jede to v
> poradku.
>
> Pokud to spustim v Delphi pres ADOStoredProc, vyhodi mi to hlasku: The
A co takhle zkusit ADOCommand?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Binarni soubor
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.10.1999 20:31:03
Krayzel Libor wrote:
> > Namapovat do pameti (CreateFileMapping) , prohledat (nejake funkce
> > pro vyhledani retezce), otevrit novy soubor (CreateFile), ulozit od
> > pozice (Write). Nic rychlejsiho patrne neni. Viktor
>
> Pomohl by malinky prikladek. Dekuji.
Prohledni si demo Resxplor exeimage.pas.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
autoincrement - Interbase
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.10.1999 20:31:03
Slavomir Skopalik wrote:
> nechci byt doterny, ale je to nutne ?
:-) Mne je to fuk. Jen jsem reagoval na to, ze celkem jednoduchymi
prostredky lze celkem slusne zamezit snadnemu dohledani textu v
programu.
> Pokud nebude mit pristup na SQL server tak nic nemuze,
> pokud bude, tak staci pokud se dokaze prihlasit,
> a na reverse engeneering muze pouzit nejaky case
> (vim co dokazi studenti, byt jen strednich skol).
> Komplikovat cely program, proto abych se ochranil
> jen nepatrne mi pripada prilis casove narocne -> drahe.
Drahe - varianta ukladani sql prikazu do komponent (a tedy i
resourcu) neni az tak dobry napad, na zpraseni staci kdejaky
lokalizator (mno, pravda, ten od Borlandu ne :), takze je lepsi
vyhazet prikazy nekam mimo a zakompilovat je do programu,
napriklad, kdyz uz je v tom programu chci mit. No a pak neni nic
jednodussiho nez je rovnou deklarovat jako WideString.
>
> Slavek
>
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 22. ��jna 1999 6:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: autoincrement - Interbase
>
> JAHODA Jozef wrote:
>
> > No tak si da vyhladat v Notepade slovo UPDATE a na tom
> > mieste si to pekne upravi.
> > Mne sa to uz stalo, no proste pekne svinstvo.
> > A nebol to ziaden profik..takze teoria je pekna, ale realita
> > moze byt ina.
>
> Hm.
> Const
> update1:WideString='update tabulka set pole="%s" where id=%d';
>
> nebo jeste lepe:
> update2='update %s set %s%s'; a parametry doplnis za behu. Co
> z toho asi tak muze slidil vykoumat?
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
zaklady C/S
[*] Ing. Jaroslav Ske��k - 22.10.1999 20:37:14
> > >> > komponentach a vkladani dat do databaze pak vyhradne pres
> > >> > ulozene procedury nebo pripadne pomoci SQL prikazu. Je to sice
> > >> > pracnejsi, ale vyplati se to.
> > >>
> > >> toto ma zaujalo... mohol by si nejaky maly priklad, preco
> > vkladat via
> > >> stored proc?
> > >>
> > >No a mohl bys nejakej malej priklad proc ne??
>
> :-))) Velmi padny argument.
>
To jsem ti chtel prave naznacit. Pochopil jsi to tedy dobre.
Je to stejne tak padny argument jako jsi pouzil ty.
Neexistuje mnoho rozumnych duvodu, proc stored proc nepouzivat.
Jaro
Vycisteni ComboBoxu - priklad
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.10.1999 20:55:11
No, nedalo mi to a radsi rovnou poslu i priklad.
Totiz onKeyPress je na takovy ty normalnejsi klavesy, jako je enter a tak
;-). Nach, proste Del, Insert, ja nevim treba F1-F12 a tak nechyta. Tohle si
ale muzes sam ozkouset, proste si dej zkusmo tu udalost a nastav si do ni
break point a pak se koukni, co ti tam pousti...
Pro tyhle "divnejsi" klavesy je treba odchytavat onKeyDown (jak jsem psal).
Ten ti sice neposle primo Ascii znak v charu, ale ve word hodnote. Takovy
del tam ma 02eh, tusim (teda kalkulacka v NT to rika) 46 dekadicky. Jeste
tam je shift, to se taky hodi (jak jsou stiskly ty control a shift a tak)...
No, dost reci, dej si do OnKeyDown nize uvedenou vec a snad to bude to, co
chces...
//***********************************************************************
procedure TFrmMain.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = $2e) then
(Sender as TComboBox).ItemIndex := -1;
end;
alebo pouzi uses Windows, a mozes vyuzit definovane konstanty.
procedure TFrmMain.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK DELETE) then
(Sender as TComboBox).ItemIndex := -1;
end;
SQL dotaz
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 22.10.1999 21:06:51
Potrebuji otevrit tabulku s SQL dotazem. Vysvetlim: u ADO oteviram tabulku a
do parametru funkce Open vlozim SQL dotaz a tabulka se otevre podle nej.
pr.
ado.open "SELECT * FROM Clenove WHERE ID=1", connectionADO
... takto nejak potrebuji otevrit tabulku u BDE. Muzete mi prosim poradit?
Preji prijemny den.
Petr Reichl
-
E-mail: reichl(zv)centrum(tec)cz
PGP: podporov�no
Problem s ADO a ulozenou procedurou
[*] Marian Jonas <jonas(zv)jia(tec)czn(tec)cz> - 22.10.1999 20:06:09
Ale ta procedura vraci recordset, je tam select * from #pom.
V ISQL nebo v Delphi to vrati recordset s jednim radkem s
polozkou Cislo s hodnotou 105.
V BDE je to mozne otevrit pres Open, nechapu proc by
to nemohlo jit pres ADO.
Pokud dam ExecSQL, tak mi to probehne ok, ale nevrati
to zadna data do Gridu.
Ze by ten MSDAC nebyl schopen toho co zvladne DBLIB ?
Marian Jonas
jonas(zv)ji(tec)cz
----- Original Message -----
From: Erik Salaj
To: delphi-l(zv)fwd(tec)cz
Sent: 22. ��jna 1999 16:04
Subject: Re: Problem s ADO a ulozenou procedurou
Na storovanu proceduru, ktora nevracia recordset nemozete
volat Open metodu ani prikaz Active := True (co je to iste),
ale miesto toho je potrebne pouzit ExecSQL:
ADODataSet1.ExecSQL;
Este jedno upozornenie: ADO ma problemy so storovanymi
procedurami, ktore obsahuju pomocne tabulky (zacinajuce
znakom #). Neviem, ci sa to uz neodstranilo, ale pametam
sa, ze s tym boli problemy.
Ak chcete pripadne experimentovat s ADO, tak mozte
pouzit moje nove komponenty (ADO Component Suite),
tento tyzden by uz mala byt k dispozicii finalna verzia.
Ide o tenku vrstvu nad ADO, ktora umoznuje pracovat
priamo s ADO ale na urovni Delphi komponentov, t.j.
mozte interaktivne zadavat a citat ADO properties.
Komponenty najdete na http://www.cybermagic.co.nz/winsoft .
Pozdravuje
Erik Salaj
From: Marian Jonas
To: Konference Delphi
Sent: Friday, October 22, 1999 9:56 AM
Subject: Problem s ADO a ulozenou procedurou
Zdravim vsechny priznivce Delphi a ADO komponent
Mam na SQL serveru proceduru v tomto tvaru
CREATE PROCEDURE TEST AS
CREATE TABLE #pom ( cislo money )
INSERT #pom VALUES ( 105 )
SELECT * FROM #pom
DROP TABLE #pom
Kdyz tuto proceduru spustim v ISQL nebo v Delphi pres BDE, jede to v poradku.
Pokud to spustim v Delphi pres ADOStoredProc, vyhodi mi to hlasku:
The operation requested by the application is not allowed if the object is closed
Zkousel jsem experimentovat s nastavenim CursorLocation, CursorType, LockType
ale porad to rve.
Nevite nekdo co s tim ? Je to problem jen Adonisu nebo vseobecne ADO komponent ?
Za vsechny podnety budu velice vdecny.
Konfigurace: Delphi 4 SP 2, Win NT 4.0 SP 5, MS SQL 6.5 SP 5, Trial Adonis 3.3
Marian Jonas
jonas(zv)ji(tec)cz
Aplikacni logika was:autoincrement - Interbase
[*] Ing. Jaroslav �ke��k - 22.10.1999 21:10:10
Jenze tady je to zpravidla o necem uplne jinem.
Databazove servery zpravidla pracuji se znacnymi objemy dat a data jsou
to, oc tu bezi. Nejcastejsi cinnosti je stupidni presouvani dat, jejich
segregace
validace a pripadne zmena struktur. Jsou to mnohdy same jednoduche operace,
ktere se provadeji nad velkymi objemy dat.
Rychlost zpracovani nejakeho algoritmu je zpravidla naprosto nesoumeritelna
s casy nutnymi pro presun dat a ztraci vyznam.
Je to jako bys chtel urychlit let do Australie zkracenim odbavovaci doby na
letisti.
Pripustme jednoduchej priklad.
Vezmeme si, ze napr. potrebuji provest kontrolu rodneho cisla obcanu CR
a nastavit priznak, ze obcan byl "zkontrolovan".
A.
1. Vytvorme v C++ superefektivni algoritmus na kontrolu RC
2. Presunme 10.000.000 zaznamu o obcanech na klientsky pocitac
3. Spustme algoritmus a nastavme priznak
4. Presunme 10.000.000 zkontrolovanych a oznacenych zaznamu zpet na server.
B.
1. Pouzijme "hloupou" proceduru s "pomalym" algoritmem pro
kontrolu RC
2 Spustme proceduru na serveru
Body 2 a 4 odpadnou.
Protoze body 2 a 4 budeme pocitat na desitky minut
(u siti typu VAN na desitky hodin), je asi zreme,
ktera varinta zvitezi.
Ztratovy cas algoritmu bude naprosto nesoumeritelny
s casem pro prenos dat po siti.
Pokud bude po siti behat vice obdobnych aplikaci, a bude tam
mnoho klientu s nadupanymi PC a perfektnimi algoritmy lacnymi
hbite zpracovavat obrovske objemy dat, pak se cela podnikova sit totalne
ucpe a zhrouti. Supervykonni klienti se superdokonalymi a efektivnimi
algoritmy nebudou delat nic jineho nez cekat na data.
Jiste .... trochu to prehanim, ale doufam, ze uz jsem konecne
naznacil zastancum "silneho klienta",
jaky je rozdil mezi zpracovanim dat na serveru a na klientovi.
Opravdu je potreba velmi citlive zvazovat rozdeleni roli a vypocetniho
vykonu
mezi serverem a klientem.
Bohuzel mnoho programatoru na objem datovych toku
nebere prilis zretel.
Jaro
> Ahoj,
>
> V tehle debate to bude asi trochu off-topic, ale praci s pointery bych
> povazoval za zakladni znalost pri programovani (tyka se jak OP tak C++).
> Nechapu proc by mely byt razeny mezi "nebezpecne konstrukce". Patrne tu
> slo o to, ze libovolny kompilacni jazyk zvladne urcite ulohy lepe nez
> ulozene procedury. Samozrejme ze pri jeho pouziti se nelze schovavat za
> "blbovzdornost" interpretovaneho kodu a je treba si vice davat pozor na
> to co delam. Vysledek se ale jiste vyplati. Navic dnesni systemy umoznuji
> pomerne dobre resit pripadne kriticke chyby (viz strukturovana obsluha
> vyjimek). V databazich se nikterak moc nevyznam, nevim tedy jake jsou
> napriklad moznosti ladeni kodu ulozenych procedur, ale pri pouziti OP
> ci C++ je zde i pomerne dost moznosti ladeni (napriklad moznost ladeni
> vice procesu a podobne).
>
> --
>
> Petr Vones, amatersky programator
>ceske zakony
[*] Miroslav NETRAIDER Mares <mmares(zv)mbox.vol(tec)cz> - 22.10.1999 21:25:35
Ahoj,
neco by mohlo byt na http://www.sbirka(tec)cz , ale jestli to je bezplatne nevim. NETRAIDER
-----------------------------------
Kdyby Bill Gates sefoval NASA......
http://www.geocities.com/TimesSquare/Tower/5190/nasa.html
-----------------------------------
Paradox versus Access
[*] Miroslav Evj�k <evjak(zv)atlas(tec)cz> - 22.10.1999 21:32:54
Zdrav�m a pros�m o radu zkusenejsich.
Pisu databazovou aplikaci maleho formatu (radove tisice vet v databazi, 2 -
3 stanice v siti M$ Windows). Zacal jsem v tabulkach Paradox, nejsem moc
odvazanej z kvanta indexovych a jinych souboru, bez kterych se to neobejde
(data se budou posilat ne prilis zkusenym uzivatelum a na poradne osetrene
zalohovami a obnovu jsem linej). Proto bych chtel vyzkusit Access *.mdb, kde
se vsechno schova do jednoho souboru.
Mam tyto otazky:
1) Pomuzu si nebo si zkomplikuju zivot (diky M$) ?
2) Je lepsi pouzit native driver nebo ODBC ?
3) Musim kvuli tomu instalovat Access nebo se bez nej obejdu a datab�zi
vytvorim treba v Database Desktopu ?
4) Pokud by mne nekdo nasmeroval v konfiguraci driveru, moc bych byl vdecny.
Uz mam za sebou nekolik neuspesnych pokusu o konfiguraci a pouziti databaze
Access v BDE, takze predem moc dekuji za usetreny cas.
"Mirecek" Evjak
evjak(zv)volny(tec)cz
Problem s ADO a ulozenou procedurou
[*] Marian Jonas <jonas(zv)jia(tec)czn(tec)cz> - 22.10.1999 20:33:33
> > Mam na SQL serveru proceduru v tomto tvaru
> > CREATE PROCEDURE TEST AS
> > CREATE TABLE #pom ( cislo money )
> > INSERT #pom VALUES ( 105 )
> > SELECT * FROM #pom
> > DROP TABLE #pom
> >
> > Kdyz tuto proceduru spustim v ISQL nebo v Delphi pres BDE, jede to v
> > poradku.
> >
> > Pokud to spustim v Delphi pres ADOStoredProc, vyhodi mi to hlasku: The
>
> A co takhle zkusit ADOCommand?
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
To jsem zkousel, nechodi to ani pres TADOStoredProc ani TADOQuery ani
TADODataset
Marian Jonas
jonas(zv)ji(tec)cz