Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Delphi a JAVA
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 6.10.1999 14:11:47
> -----P�vodn� zpr�va-----
> Od: Josef Koke� [mailto:kokes(zv)fsid.cvut(tec)cz]
> Odesl�no: 5. ��jna 1999 14:35
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OT: Delphi a JAVA
>
>
> Omlouvam se za mirny off-topic. Chtel bych v Delphi napsat
> aplikaci, ktera
> by se spojila s www serverem a komunikovala s nim stejne,
> jako to dnes dela
> clovek.
:-))
Tzn aby aplikace sedela za stolem a zurive klikala mysi po obrazovce?
>
> Muj problem je v tom, ze neumim zjistit, co ta aplikace
> vlastne ma delat.
> Kdyz si pomoci IE5 zobrazim prislusnou stranku, vidim tam spoustu dat,
> grafu, tlacitek atd. Ale kdyz si to necham vypsat jako
> zdrojak, tak tam je
> jenom jakysi JavaScript, kteremu sice moc nerozumim, ale
> nezda se mi, ze by
> primo obsahoval nejakou grafiku a data.
Grafiku neobsahuje zadny HTML dokument. Nejspis si to taha
> jeste odnekud
> zvlast? Ale neumim zjistit, odkud a jak. A uz vubec nechapu,
> co tomu www
> serveru odpovida.
To je naopak, server odpovida na dotazy klientovi.
>
> Dokazal by mi v tom nekdo poradit?
Mozna by to nekdo dokazal, kdybys aspon naznacil, co bylo v tom scriptu.
Jura
Borlandi kouzlo s cyklem
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 6.10.1999 14:24:33
S tim jsem se uz setkal pred casem. Bohuzel neni pravda,
ze se tak deje pouze pokud promennou nepouzijes,
a navic krom toho ze smysl cyklu je opacny, tak je jeste
posunutej o jednicku, takze ti to vyletne OutOfRange !
Zajimavy je, ze je to cele zavisle, na umisteni pole
(zda je global, ci deklarovano na okne).
Psal jsem to i Borlandum, ty vysvetlovali ze se jedna
o "optimalizaci". Fakt skvely. Radeji jsem svuj program
prepsal jinak aby mi to kompiler "neoptimalizoval".
Ahoj
Daniel
P.S. Pro ty kdo si chteji vyzkouset maly priklad:
(Delphi 4 Prof UdatePack 3)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
const MaxRadio=5;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
iRadioState:array[0..MaxRadio] of Integer;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var iRadio:Integer;
begin
for iRadio:=0 to MaxRadio do begin
iRadioState[iRadio]:=-2; // sem si dejte breakpoint a pri prvnim pruchodu
// budete mit v iRadio=6 !!!!!!!!!!!!!!!!!
end;
end;
end.
----- P�vodn� zpr�va -----
Od: <petr.fischer(zv)email(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 6. ��jna 1999 12:43
P�edm�t: Borlandi kouzlo s cyklem
> Zdravim,
>
> Necht je napsano nasledujici:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> i: Integer;
> begin
> for i := 1 to 10000 do
> begin
> // jakasi akce
> sleep(0); <- tady je breakpoint
> end;
> end;
>
> Ve WATCH Listu ma mpromenou "i".
> Kdyz to spustim, tak promenna i nesvisti od 1 do 10000 ale prave naopak!
> Ptam se jak je to mozny, kdyz sem tam jasne napsal, ze chci aby se i
> zvysovalo!?!
> Jedina mozne vysvetleni: pokud kompilator zjisti, ze uvnitr cyklu
> promennou nepouzivam, tak si s tim udela co chce (optimalizace?)...
>
> Petr Fischer
>
> Delphi 4 (SP2), Win95 OSR2
>
> P.S. Neni to zadnej bug, ale rozhodne me to dostalo...
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
>
Modularnost pomoci EXE souboru
[*] Jan Najvarek <najvarek(zv)seznam(tec)cz> - 6.10.1999 08:41:30 -0400
Zkusenosti, jak to delame v nas (Manulife Financial).
Aplikace je transakcni program pro realizovani koupe fondu mezi agentem a
pojistovnou. Puvodne byla aplikace rozdelena na hlavni program a funkce
(moduly) v DLL (16-bit - pres 100 000 radku kodu, 18 MB installace).
S prechodem na 32-bit jsme presli na balicky pro spolecny kod a jelikoz byly
nejake potize s DLL a balicky (zda se mi, ze to generovalo chyby po uzavreni
aplikace), presli jsme na samostatne EXE - jelikoz je v balickach vetsina
spolecneho kodu, exe jsou male (50-200 kB). Jedinym problemem je casova
narocnost spousteni EXE, mame tam spoustu COM objektu a otevirame dve
databaze (SQL anywhere + Paradox), pro Paradox je planovano vytvoreni
automation server.
Instalace mam nyni 10 MB.
Honza Najvarek
----- Original Message -----
> Ahoj,
>
> mate nekdo zkusenost nebo nejaky nazor na rozdeleni programu do vice
> samostatnych EXE souboru? Jevi se mi to jako dalsi moznost ( krome DLLs a
> balicku), jak rozdelit program na moduly.
> Zajima me jestli v tom je nejaky zadrhel, respektive v cem jsou vyhodnejsi
> DLLs pokud je nechci sdilet ve vice programech, ale chci mit svuj program
> modularni - duvody pro modularitu tady jiz byly nekolikrat diskutovany a
> nerad bych timto dotazem spustil diskusi o jejim smyslu.
> V souvislosti s v�ce EXE bych jeste potreboval navest jak nastavit na
> aktivni (focus) urcity modul (program) pri ukonceni nektereho jineho
modulu
> a pak
> jak ukoncit vsechny moduly pri ukonceni hlavniho (startovaciho) modulu.
>
> Predem diky za nazory na napovedu
>
> Petr Gadourek
Monitorov�n� b�hu aplikace
[*] Radek Dostal <Dostal(zv)GyZamb(tec)cz> - 6.10.1999 15:24:49
Zdravim
Proc nepouzit EDIT1.OnChange
S pozdravem Radek Dostal
Ps: Pokud bys to ma byt hodne zvlastni pak zkusit TTimer.
-----P�vodn� zpr�va-----
Od: Vaclav_Lukes(zv)EUROTEL.CZ <Vaclav_Lukes(zv)EUROTEL.CZ>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. ��jna 1999 15:16
P�edm�t: Monitorov�n� b�hu aplikace
>Ahoj,
>
>m��u se na n�co zeptat ?
>Jde mi o tohle. Na Formu m�m Button a n�kolik edit�. Cht�l bych, aby mi
"n�co"
>hl�dalo, jsou-li edity vypln�n� a pokud ano, aby byl Button.Disable v Tru,
jinak
>ve False.
>
>Va�ek
>
>SQL
[*] Hole�ek Radek <holecek.radek(zv)seznam(tec)cz> - 06.10.1999 15:25:13
Viliam Mlich wrote:
> Mam databazu casovych vzoriek z viacerych meracich sond:
> cas sonda hodnota
> 10 4 5.7
> atd...a potrebujem z toho vyrobit tabulku, kde pre kazdy cas bude jeden
> riadok s
> hodnotami pre kazdu sondu:
> cas H4 H7 H9
> 10 5.7 0.4 1.7
Nevim jestli to bude fungovat pod LocalSQL (pod Oraclem to funguje):
SELECT Cas as CasMereni, sum(Son1) As PrvniSonda, sum(Son2) As DruhaSonda,
.....
FROM (
SELECT Cas as CasMereni, Sum(hodnota) as PrvniSonda, 0 as DruhaSonda, ....
FROM tabulkavsechmereni
WHERE sonda = 1
GROUP BY Cas, Hodnota
SELECT Cas as CasMereni, 0 as PrvniSonda, sum(Hodnota) as DruhaSonda, ...
FROM tabulkavsechmereni
WHERE sonda = 2
GROUP BY Cas, Hodnota
UNION ALL
....)
GROUP BY Cas
Kdyz si tento select doplnis podle poctu sond misto tecek, melo by to vytvorit
tabulku, kterou pozadujes.
Kdyby to nefungovalo nebo bylo neco nejasne, tak se ozvi, pokusim se to napsat
lip.
--
Zaslal : Radek Hole�ek
e-mail : holecek.radek(zv)seznam(tec)cz
ICQ : 45610992
Telefon : 0658 / 412 213
Borlandi kouzlo s cyklem
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 06.10.1999 15:28:51
Takovehle veci me vzdycky vydesej. Ale tenhle pripad nakonec dopadne
dobre. Kdyz se podivas na obsah toho pole, tak se plni spravne od [0]
do [5] a to i ve spravnem poradi. Takze spis to je problem spoluprace
debageru a optimalizace. OutOfRange se mi vubec nepovedlo.
Vaclav Sazima
P.S. mam D3 profi
Daniel Rott wrote:
>
> S tim jsem se uz setkal pred casem. Bohuzel neni pravda,
> ze se tak deje pouze pokud promennou nepouzijes,
> a navic krom toho ze smysl cyklu je opacny, tak je jeste
> posunutej o jednicku, takze ti to vyletne OutOfRange !
> Zajimavy je, ze je to cele zavisle, na umisteni pole
> (zda je global, ci deklarovano na okne).
> Psal jsem to i Borlandum, ty vysvetlovali ze se jedna
> o "optimalizaci". Fakt skvely. Radeji jsem svuj program
> prepsal jinak aby mi to kompiler "neoptimalizoval".
>
> Ahoj
> Daniel
>
> P.S. Pro ty kdo si chteji vyzkouset maly priklad:
> (Delphi 4 Prof UdatePack 3)
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
>
> const MaxRadio=5;
>
> type
> TForm1 = class(TForm)
> procedure FormCreate(Sender: TObject);
> private
> public
> end;
>
> var
> Form1: TForm1;
> iRadioState:array[0..MaxRadio] of Integer;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> var iRadio:Integer;
> begin
> for iRadio:=0 to MaxRadio do begin
> iRadioState[iRadio]:=-2; // sem si dejte breakpoint a pri prvnim pruchodu
> // budete mit v iRadio=6 !!!!!!!!!!!!!!!!!
> end;
> end;
>
> end.
>TRadioButtony
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 6.10.1999 15:29:40
Hi,
mam malou otazku.
Na formu mam nekolik TRadioButtonu, dejme tomu 3 a jeden TButton.
Chtel bych po kliknuti na TButton, aby se mi treba do ShowMessage vypsal ten
TRadionButton, ktery je checked.
Diky
Vasek
Borlandi kouzlo s cyklem
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 06.10.1999 16:04:45
Ahoj,
jednu dobu jsem se zabyval podobnym problemem a snazil jsem se prijit na to, jak Delphi
optimalizuji cykly, takze bych rad sdelil nektere svoje poznatky (viz. dale). Netvrdim, ze je
vsechno 100% pravda, ale jeste jsem se nesetkal s nejakym zasadnim problemem kodoveho
optimalizatoru Delphi, ktery by zpusobil nefunkcnost programu...
Daniel Rott wrote:
>
> P.S. Pro ty kdo si chteji vyzkouset maly priklad:
> (Delphi 4 Prof UdatePack 3)
>
> procedure TForm1.FormCreate(Sender: TObject);
> var iRadio:Integer;
> begin
> for iRadio:=0 to MaxRadio do begin
> iRadioState[iRadio]:=-2; // sem si dejte breakpoint a pri prvnim pruchodu
> // budete mit v iRadio=6 !!!!!!!!!!!!!!!!!
> end;
> end;
>
Zkusil jsem a funguje to, jen s jednim podotknutim - debugger pri techto optimalizacich selhava
(a je to deokumentovana featurka)!
Tady je opsan prelozeny strojovy kod toho cyklu:
FMain.pas.35: for iRadio:= 0 to MaxRadio do begin
mov edx, $6 // cyklus probiha 6x
mov eax, $44381C // (zv)iRadioState[0]
FMain.pas.37: iRadioState[iRadio]:= -2;
(zv)(zv)cyklus:
mov [eax], -2 // ulozi -2 do soucasne polozky
iRadioState
FMain.pas.38: end;
add eax, 4 // posune adresu soucasne polozky
iRadioState na dalsi o SizeOf polozky
FMain.pas.35: for iRadio:= 0 to MaxRadio do begin
dec edx // a cyklus se opakuje 6x
jnz (zv)(zv)cyklus
Jak je videt, opravdu zde doslo k optimalizaci, nejprve jake:
- pro cyklus je pouzito ridici promenne (registr edx), ktera jde od 6 do 1, cyklus tedy
probehne pouze 5x, jak je pozadovano
- dale je pouzito pomocne promenne (registr eax), ktera urcuje adresu prave meneho prvku pole
tj. (zv)iRadioState[n]
A jak to funguje:
- inicializace ridici promenne na 6 (tuto hodnotu pak zobrazuje debugger, prestoze pro
prirazeni hodnoty prvku NENI pouzita tato hodnota (viz edx kontra eax registr), ale pomocna
promenna, o ktere debugger NEVI)
- inicializace pomocne promenne na zacatek pole, tj (zv)iRadioState[0]
- v cyklu je dekrementovana hodnota ridici promenne o 1 a zaroven je zvysovana adresa meneho
prvku o SizeOf(iRadioState[n])=4
- konec cyklu je testovan nulovosti ridici promenne tesne po dekrementaci, odtud tedy ta 6 pri
inicializaci
K cemu je to dobre:
Kodovy optimalizator zde vlastne dela neco, co se normalne pise v Ccku s pomoci pointerove
aritmetiky a clovek ma nad tim kontrolu - tj. pole jsou v cecku vlastne ukazatele na prvni
prvek v poli a s pomoci iRadioState++ dosahujeme zmenu adresy na nasledujici prvek. Je to skoro
to nejrychlejsi, jak to udelat, protoze pri odkazovani na prvek pole se nemusi pocitat jeho
adresa s pomoci inedxu a adresy zacatku pole, jak se to normalne dela (tj. neco jako
((zv)iRadioState[0] + index*SizeOf(iRadioState[0])).
Tato optimalizace je kompilatorem pouzita pouze tehdy, neni-li v cyklu pouzito nejakeho
prikazu, ktery se explicitne odvolava na indexovou promennou cyklu, vyjimku tady tvori prave
indexy do poli, ktere se daji takto urychlit.
V prikladu uvedenm v predchozim prispevku staci pridat napr. nasledujici radek:
Caption:= Format('Cycle in %d.', [iRadio]);
A promenna cyklu iRadio jiz bude probihat od 0 do 5... :) (pominu fakt, ze kompilator stale
jeste ma moznost, a vyuziva ji, pristupovat do pole opet pres inkrementovany ukazatel na dany
prvek pole).
Nechce se mi to ted hledat v helpu, ale urcite tam je poznamka k Optimalizacim a Debugovani -
obecne se to nedoporucuje, protoze nektere promenne se vkladaji do registru procesoru,
nealokuji se na zasobniku, a hodnoty zobrazovane debuggerem pak nemusi mit temer nic spolecneho
s puvodni promennou. Takze pozor na to!
K.C.
PS: Jinak, "Optimalizace" provadene v Delphi nejsou nic proti tomu co delaji lepsi kompilatory
C++ (treba od Mrkvosoftu nebo i GCC pod Linuxem). Tam se provadi optimalizace mnohem
dukladneji, do registru se toho cpe mnohem vice, pouziva se prohazovani instrukci pro lepsi
vyuziti pipeline v CPUckach (Pentia a lepsi...) a mnohe dalsi. Pak ty prelozene soubory mnohdy
ani nejde prilis pochopit. :)
Dlouho uz cekam, kdy se takoveto optimalizace dostanou i do Delphi a kdy se konecne zacnou
pozuivat i instrukce ze 486 a lepsich, a zatim je ta kodova optimalizace na urovni Delphi2. No,
ale porad je to lepsi nez ve starem Turbo Pascalu.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
Rychlost INSERTu pres ADO
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 6.10.1999 16:42:39
>1) mam pro ukazku jednoduchou TTable (paradox pres BDE) s polozkama JMENO
>(CHAR 20) a PRIJMENI (CHAR 20). Pokud do ni v cyklu pridam 10000 polozek
>(Append -> Post) tak to trva asi 3 vteriny a vysledna velikost *.DB
>souboru je asi 500kB
Jak bylo nastaveno LocalShare?
Tabulka nemela indexy, ze?
Takovy test muze byt zavadejici pokud generovani x0 000 zaznamu do lokalnich
tabulek neni presne to co potrebujes.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
www.stereo(tec)cz
Jeste jednou Delphi 5 - legalni uzivani
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.10.1999 16:21:49
Ahoj,
mam jeste neco. Nevite nekdo, proc jsou v USA jine podminky
pro upgrade na Delphi? Podivejte se schvalne na stranky
ceskeho Inprise, z ceho se da upgradovat na D5, a pak se
podivejte na americky Inprise, z ceho se da upgradovat...
Na krabici D5 Professional Upgrade je napsano:
Who qualifiers: Owners of any Borland development tool;
Windows development tool; or Java development tool.
Je to proste competetive upgrade. Navic majitele libovolneho
vyvojoveho nastroje od Borlandu (tedy podle me treba klidne
Delphi Standard nebo treba Turbo Assembleru) dostavaji dalsi
slevu $50.
Takze americky Borland prodava Delphi 5 Special Upgrade
pro uzivatele libovolneho vyvojoveho nastroje Borland
a take libovolneho vyvojoveho nastroje pro Windows
a pro Javu...
Konkretne uvadi pro upgrade tyto podminky:
- This upgrade is available to owners of any other Borland
product.
A pro competetive upgrade tyto podminky:
- Visual Basic
- Access
- FoxPro
- Microsoft Office
- Corel Office
- Lotus Smart Suite
Upgrade od Competetive upgrade se lisi pouze v tom, ze majitel
libovolneho produktu Borland muze narokovat v USA kupon $50,
jinak krabice je stejna. I pro CR.
Naproti tomu cesky Inprise prodava toto:
DELPHI 5 PROFESSIONAL UPGRADE
A uvadi:
Upgrade pro u�ivatele Developer/Development Suite/Professional
a C/S verz� produkt� Borland. Do 31.10.1999 bude dostupn�
i u�ivatel�m konkuren�n�ch produkt� v�etn� v�ech verz� FoxPro.
A nahore uvadi:
Na verze "Standard" v�vojov�ch n�stroj� �ady Borland se neposkytuj�
upgrade; z t�to verze je v�ak mo�no prov�st "Competitive upgrade",
je-li k dan�mu produktu k dispozici.
*** Takze jak je mozne, ze z USA odejde produkt jako SPECIAL
UPGRADE = UPGRADE + COMPETETIVE UPGRADE v jednom baleni, ale
cesky Inprise ho prodava vyhradne jako UPGRADE? Neni nahodou
tady neco shnileho? Proc jsou ceskemu zakaznikovi nabizeny
uplne jine podminky, pritom krabice je stejna a licence take?
Vysvetluji si to jednoduse. Prvni moznost je, ze u Inprise neumeji
anglicky. Ale tomu bych moc neveril. Takze spise to bude druha
moznost - delaji z nas totalni blbce. Nejen, ze nam rikaji, ze
musime koupit Delphi od nich, jinak je to nelegalni. Ale navic
nam zamlcuji skutecnost, z ceho lze upgrade provest.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Granty a Role na Interbase versus BDE
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 6.10.1999 17:40:28
ERROR 10^*&^&Borlandi kouzlo s cyklem
[*] Santik <santik(zv)pronetix.sk> - 6.10.1999 18:43:52
> PS: Jinak, "Optimalizace" provadene v Delphi nejsou nic proti tomu co
delaji lepsi kompilatory
> C++ (treba od Mrkvosoftu nebo i GCC pod Linuxem). Tam se provadi
optimalizace mnohem
> dukladneji, do registru se toho cpe mnohem vice, pouziva se prohazovani
instrukci pro lepsi
> vyuziti pipeline v CPUckach (Pentia a lepsi...) a mnohe dalsi. Pak ty
prelozene soubory mnohdy
> ani nejde prilis pochopit. :)
> Dlouho uz cekam, kdy se takoveto optimalizace dostanou i do Delphi a kdy
se konecne zacnou
> pozuivat i instrukce ze 486 a lepsich, a zatim je ta kodova optimalizace
na urovni Delphi2. No,
> ale porad je to lepsi nez ve starem Turbo Pascalu.
Ahoj
pre ukazku - nieco podobne prelozi Visual C++ od M$ takto:
92: int arr[6];
93: for ( int i = 0; i < 6; i++ )
94: arr[i] = -2;
00401565 B9 06 00 00 00 mov ecx,6
0040156A B8 FE FF FF FF mov eax,0FFFFFFFEh // -2
0040156F 57 push edi
00401570 8D 7C 24 04 lea edi,dword ptr [esp+4] // adresa
pola
00401574 F3 AB rep stos dword ptr es:[edi]
Bye
Santik
Ikona pri drag'n'drop
[*] Mojmir Nemecek <xmojmr(zv)volny(tec)cz> - 06.10.1999 18:54:16
At 10:17 6.10.1999 +0200, Lukas Voborsky wrote:
>netusite, jak zmenit ikonu objektu tazenem pri drag'n'drop? Standardne
>se mi tam objevi takovy bily list papiru (asi A4). Musi se to delat pres
>vlastni cursor mysi nebo jak?
Podivej se na TDragObject ( v helpu je popis jak se nainstaluje vlastni ) a TDragControlObject a projdi si zdrojaky VCL jak a kde to pouzivaji.Borlandi kouzlo s cyklem
[*] petr.motlicek(zv)bcbrno(tec)cz - 6.10.1999 18:59:25
From: petr.fischer(zv)email(tec)cz
Date sent: Wed, 6 Oct 1999 12:43:17 +0200
Subject: Borlandi kouzlo s cyklem
To: delphi-l(zv)fwd(tec)cz
Send reply to: delphi-l(zv)fwd(tec)cz
> Zdravim,
>
> Necht je napsano nasledujici:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> i: Integer;
> begin
> for i := 1 to 10000 do
> begin
> // jakasi akce
> sleep(0); <- tady je breakpoint
> end;
> end;
Zdravim,
mam podobnou zkusenost, a to s Delphi 3.0... Bohuzel, nemohu
najit prislusny kod, tak pisu z hlavy.
Mel jsem proceduru s dvemi cykly:
procedure MyProcedure(const Pole : array of Txxx???);
var
x.integer;
begin
//cyklus 1
for x:=0 to High(Pole) do begin
.....
end;
//cyklus 2
for x:=0 to High(Pole) do begin
end;
end;
prvni cyklus probehl bez problemu, ale druhy uz byl v .... Totiz
hodnota v x byla po prvni inicializaci promenne x v cyklu 2
nastavena nanejake vetsi nez High(Pole) - jestli si dobre pamatuji
tak na High(Pole)+1. Takze pri Pole[x] nastala vyj�mka....
Zkusil jsem cyklus 1 zmenit na:
// cyklus 1
for x:=High(Pole) downto 0 begin
end;
Nepochodil jsem: po inicializaci x bylo zaporne cislo, snad -1 atd.
Zkousel jsem vsechno mozne - pouzit pro druhy cyklus jinou
promennou, vypnou optimalizaci, dalsi "blbosti", ktere me jen
napadly - nic se nezmenilo, stale stejny vysledek.
Uz jsem chtel cykly nahradit while x <= ... do inc(x);, ale napadlo
mne posledni z nejposlednejsich:
var
x:longint;
begin
end;
A najednou vse fungovalo jak melo.
S pozdravem Petr Motlicek
OT: Microsoft Data Engine
[*] Mojmir Nemecek <xmojmr(zv)volny(tec)cz> - 06.10.1999 19:21:56
At 09:29 6.10.1999 +0200, Petr Reichl wrote:
>Nedavno jsem se docetl, ze Microsoft uvolnil nove databazove jadro Microsoft
>Data Engine jako freeware. Je pry zcela kompatibilni s jadrem Microsoft SQL
>Serveru 7.0 a je urceno pro mensi pocet uzivatelu.
>
>Nemate s nim nekdo zkusenosti? Znate nekdo adresu, abych nemusel dlouze
>hledat na strankach Microsoftu?
1. Hodne zajimava objektova databaze je tady: http://www.odi.com/objectstore/
2. Nejdal sem se u Microsoftu dostal k:
Microsoft Data Engine
This software is available to MSDN Universal subscribers from MSDN Subscriber Downloads.
File Last Updated: May 1, 1999
Location: Office Test Platform and Development Tools, U.S. Pack, Disc 21
Path: \SQL\X86\SETUP\SETUPSQL.EXE
Disc Label: Microsoft Office 2000 Premium, Disc 3: PhotoDraw� Disc 1, Office Server Extensions
Disc Last Updated: June 1999
ListBox a TEdit
[*] Michal Hlav�� - 6.10.1999 19:52:51
Zdravim,
problem: mam listbox potrebujem aby sa mi pri pridani polozky do listboxu
vytvoril vedla nej (ale v listboxu) TEdit. To znamena kazda item bude mat
svoj Tedit.
Dik moc,
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Jak pracuje SUBST
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 6.10.1999 21:18:13
Nevi nekno jak pracuje prikaz subst?
Vim ze vytvori virtualni jednotku a presmerovava pozadavky na ni nekam
jinam.
Ale jak tu virtualni jednotku vytvorit??
A jak chytat pozadavky???
Pujde to v Delphi, nebo jsou na to potreba VXDs????
Thanx for help.
Krystof
Delphi5 VCL-> ActiveX: neprebira metody - prosim
[*] SMID Oldrich, Ing. <SMIDO(zv)tpro(tec)cz> - 6.10.1999 23:40:55
> Vazeni, zkousim to jeste jednou.
Vytvarim z VCL, (pro jednoduchost treba TPanel) pomoci wizardu novy ActiveX
Control.
V Delphi 4 to automaticky, krome vsech propert a udalosti, prevedlo do
ActiveX i vsechny metody, namatkou treba FlipChildren.
Delphi 5 Enterprise Trial prevadi jen property a udalosti. Metody nikoliv.
Nevite nekdo proc ?
Samozrejme, mne zajimaji jen metody, ktere si ja pridavam do svych VCL
potomku.
Ty bych si sice mohl v ActiveX znovu vytvorit rucne. Ale proc to delat, kdyz
jich mam znacne mnozstvi, a v D4 to slo ?
Novinky v D5 mne lakaji a mame jiz upgrade objednan, lec tato uvedena
malickost mi ubira elan.
Pro zajimavost: takto vytvarenymi VCL komponentami a naslednymi ActiveXy se
snazime vykreslovat a tisknout mapy z ruznych datovych zdroju (Topol,
ArcView shapefiles, pripadne Microstation DGN...).s moznosti zmeny meritka,
posouvani, vyhledavani atd.
Data jsou uvnitra nactena do objektoveho modelu s moznosti pristupu a
manipulace. Kdo by mel zajem, rad mu nekterou komponentu poslu na
vyzkouseni.
> Diky,
> Olda
>
> Ing Old�ich �m�d
> Topol Pro s.r.o. http://www.tpro(tec)cz
> 250 01 Brand�s nad Labem P.O.Box �. 4
> tel.: 0202 800 168, fax: 0202 800 166, mobil: 0603 219 272
> e-mail: smido(zv)tpro(tec)cz
Rychlost INSERTu pres ADO
[*] Erik Salaj <winsoft(zv)napri.sk> - 7.10.1999 00:07:27
Zdravim,
velmi zalezi od nastavenia parametrov ADO objektov,
napr. s pouzitim adCmdTableDirect som dosiahol tieto casy:
1.893s !!!
1.913s !!!
1.893s !!!
Tu je testovaci program (pouzite su moje nove ADODS komponenty),
u ADORecordsetu bol nastaveny CommandType na adCmdTableDirect,
a LockType na adLockOptimistic:
procedure TForm1.Button1Click(Sender: TObject);
var
t: TDateTime;
h, m, s, ms: Word;
i: Integer;
begin
t := Time;
ADOConnection.BeginTrans;
for i := 1 to 10000 do
begin
ADORecordset.AddNew(EmptyParam, EmptyParam);
ADOFieldMeno.Value := 'Erik';
ADOFieldPriezvisko.Value := 'Salaj';
ADORecordset.Update(EmptyParam, EmptyParam);
end;
ADOConnection.CommitTrans;
DecodeTime(Time-t,h,m,s,ms);
ShowMessage(Format('%d:%.2d:%.2d:%.3d',[h,m,s,ms]));
end;
Access database (vo formate Jet 4.0) mala pred zaciatkom tychto
troch merani velkost 13.6 MB po ukonceni (t.j. pridani spolu 30000
zaznamov) bola jej velkost 14,4 MB, cize ani nie o megabajt viac
(po skonceni tychto troch merani v nej bolo presne 150000 zaznamov).
Je celkom mozne, ze dalsou optimalizaciou by bolo mozne tento
cas este zlepsit, ale to by si vyzadovalo testovat na vecsom pocte
zaznamov aby sa zmeny mohli prejavit vyraznejsie.
No neviem, ci Paradox by to takto zvladal (plus transakcne spracovanie,
vcelku seriozne moznosti, spolahlivost a bezpecnost databazoveho stroja
Accessu atd.).
V Adonise budu vysledky o nieco horsie (pribudne rezia DataSetu), odhadujem
maximalny cas 5-10s.
Ak si to chce niekto vyskusat, ADODS komponenty najde na mojej stranke,
a priklad mu mozem poslat e-mailom.
Erik Salaj
----- Original Message -----
From: <petr.fischer(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, October 06, 1999 1:03 PM
Subject: Rychlost INSERTu pres ADO
> Delphi 4 (SP2), Win95 OSR2, MDAC 2.1, Adonis
>
> Cau,
>
> 1) mam pro ukazku jednoduchou TTable (paradox pres BDE) s polozkama JMENO
> (CHAR 20) a PRIJMENI (CHAR 20). Pokud do ni v cyklu pridam 10000 polozek
> (Append -> Post) tak to trva asi 3 vteriny a vysledna velikost *.DB
> souboru je asi 500kB
>
> 2) mam TADOTable (z Adonisu) se stejnyma polozkama jako v pripade (1) pres
> ODBC Driver for Paradox. Pridani 10000 polozek (Append -> Post) trva
> nekolik minut a velikost souboru je stejna...
>
> 3) nebyl jsem spokojen a pripojil jsem se pres ADOTable,
> Microsoft.JET.4.0.Driver (nebo tak nejak) na *.MDB soubor v ocekavani
> brutalni rychlosti. Vysledek: pridani 10000 polozek trvalo opet minuty a
> vysledna velikost souboru byla pres 7 (slovy SEDM!!!) mega...
>
> Ono se na BDE obcas pekne nadava (i kdyz je proc), ale ted mi nekdo
> poradte, co si mam zvolit za format souborovy databaze a pres co na ni
> pristupovat, abych nemusel roky cekat nez se neco provede (a to se mi ten
> Adonis tak libil). Svizny pridavani tisicu zaznamu do tabulky neni vymysl,
> to bych opravdu potreboval...
>
> Petr Fischer
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
Jak pracuje SUBST
[*] Jaroslav Ostadal <jaroslav.ostadal.fs(zv)vsb(tec)cz> - 7.10.1999 00:14:36
Na disku (C) mam adresar DiskD z ktere chci udelat jednotku D
do auotexecu vlozim priklaz
subst d: c:\DiskD
S pozdravem
Jaroslav O���dal
jaroslav.ostadal.fs(zv)vsb(tec)cz
http://home.vsb(tec)cz/JamesT
----- Original Message -----
From: Kry�tof Hoder <hoder(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, October 06, 1999 9:18 PM
Subject: Jak pracuje SUBST
> Nevi nekno jak pracuje prikaz subst?
> Vim ze vytvori virtualni jednotku a presmerovava pozadavky na ni nekam
> jinam.
> Ale jak tu virtualni jednotku vytvorit??
> A jak chytat pozadavky???
> Pujde to v Delphi, nebo jsou na to potreba VXDs????
>
> Thanx for help.
> Krystof
>
>
>TRadioButtony
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 7.10.1999 00:19:38
var S: String;
begin
S := '';
if rb1.Checked then
S := rb1.Caption
else if rb2.Checked then
S := rb2.Caption
else if rb3.Checked then
S := rb3.Caption;
ShowMessage(S);
end;
:-)))
-----P�vodn� spr�va-----
Od: Vaclav Lukes(zv)EUROTEL.CZ <Vaclav Lukes(zv)EUROTEL.CZ>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 6. okt�ber 1999 16:09
Predmet: TRadioButtony
Hi,
mam malou otazku.
Na formu mam nekolik TRadioButtonu, dejme tomu 3 a jeden TButton.
Chtel bych po kliknuti na TButton, aby se mi treba do ShowMessage vypsal ten
TRadionButton, ktery je checked.
Diky
Vasek
VersionInfo
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 7.10.1999 01:08:41
Env: Delphi3
Ahoj,
Linkovanim je mozne do modulu typu EXE umiestnit informaciu o verzii. Je definovana v Project Options. Taktiez je mozne definovat verziu pre modul typu DLL. V skutocnosti ale linker tuto informaciu prida len do EXE modulov. Ako to dosiahnut aj pre DLL moduly?
Vdaka, Palo.Out of resources
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.10.1999 06:28:26
Ahoj,
mam problem s D1, pouzivam RxCheckListBox z RxLib 2.60 pod W95. Pridavam
retezce cca 15-16 tisic zaznamu. Obcas mi to po pridani 4/5 retezcu (delky
240 zn) zkolabuje v metode Add() ze nemuze pridat retezec pro vyjimku
nedostatek zdroju. Pote se to stale opakuje. Po restartu pocitace nebo
nacteni kratsiho seznamu je vse OK. Drive jsem si toho nevsiml, vyuzival
jsem to jen pro kratke seznamy do cca 500 polozek. Nefunguji mi tez udavane
limity pro Items, nepojme 16384 polozek ale asi tak o 100 mene (zrejme je to
zavisle jeste na necem jinem).
Lze nejak uvedene vyjimce zamezit nebo je to nejaka moucha masarka?
Diky
Jaro B.
mailto:JBenes(zv)cpoj(tec)cz
VersionInfo
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 7.10.1999 06:42:41
Ahoj,
na totez jsem se pred casem ptal taky. Je to tim, ze v *.dpr musi byt na
vhodnem miste napsano {$R *.RES}. Ve standardnim EXE se to pridava
automaticky, u DLL se to usi napsat rucne.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Pavol Stolc [SMTP:pstolc(zv)sc.sknet.sk]
> Odesl�no: 7. ��jna 1999 1:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: VersionInfo
>
> Env: Delphi3
> �
> Ahoj,
> �
> Linkovanim je mozne do modulu typu EXE umiestnit informaciu o verzii.
> Je definovana v Project Options. Taktiez je mozne definovat verziu pre
> modul typu DLL. V skutocnosti ale linker tuto informaciu prida len do
> EXE modulov. Ako to dosiahnut aj pre DLL moduly?
> �
> Vdaka, Palo.ImageList straca obrazky
[*] Roman Sladek <slado(zv)datapac.sk> - 7.10.1999 07:07:05
Mam takyto problem:
Do normalnej aplikacie dam toolbar a urobim na nom zopar buttonov.
Vytvorim si ImageList, dam donho obrazky a buttonom nastavim
ImageIndexy.
Skompilujem a vsetko ide ok. Prekopirujem hotovy .exe na iny pocitac,
spustim a obrazky z buttonov su prec. Robi to D3 aj D4. Co s tym ?
---
bye
slado
Vyhledavani textu
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 7.10.1999 08:12:23
Mam nasledujici problem - v aplikaci je jakysi seznam retezcu, kterych je
cca nekolik milionu. Pochopitelne lezi nekde na disku, ale to neni
podstatne. Dulezite je, ze chci z techto retezcu vybrat ty, ktere obsahuje
nejaky podretezec. Samozrejme to muzu udelat sekvencnim prochazenim, ale,
jak sami nahlednete, je to pro takove mnozstvi ponekud zdlouhave. Proto
touzim po nejakem algoritmu, pomoci nehoz bych k tem retezcum vytvoril
nejaky rafinovany index, v nemz by se to pak vyhledavalo skoro samo. Nevite
o nejakem takovem postupu?
Viktor
P.S. Reseni zalozena na SQL serverech a takovych zbesilostech me nezajimaji,
jde mi prave jen o ten algoritmus.H to Pas
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 07.10.1999 08:26:18
Ahojte,
nevite nahodou nekdo o nejakem programu, ktery by umel prelozit hlavickove soubory z C obsahujici
interface k DLL knihovne do pascalskych deklaraci? Nechce se mi to delat rucne, je to pekna pakarna.
Pavel
------------------------------
Pavel K�ehula <pavel(zv)mas(tec)cz>
M&S spol. s r.o. Boskovice
------------------------------
Velikost adresare
[*] Jaroslav ��pek - 7.10.1999 08:31:57
Ahoj,
nevite nekdo, jak co nejjednoduseji zjistit v D3 velikost adresare?
Jaroslav Sipek
e-mail: jaroslav.sipek(zv)idea(tec)cz
ImageList straca obrazky
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 7.10.1999 08:31:55
Jestli mas NT tak tam nainstaluj alespon SP4.
Jestli mas 95 tak musis aktualizovat nejakou DLL,
pouzivam vyhradne NT, takze nevim presne kterou
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Roman Sladek <slado(zv)datapac.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. ��jna 1999 7:07
P�edm�t: ImageList straca obrazky
> Mam takyto problem:
>
> Do normalnej aplikacie dam toolbar a urobim na nom zopar buttonov.
> Vytvorim si ImageList, dam donho obrazky a buttonom nastavim
> ImageIndexy.
> Skompilujem a vsetko ide ok. Prekopirujem hotovy .exe na iny pocitac,
> spustim a obrazky z buttonov su prec. Robi to D3 aj D4. Co s tym ?
>
> ---
> bye
> slado
>
RAS pocet prenesenych bajtu
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 7.10.1999 08:41:32
Lze z RAS nejak dostat statistiku pripojeni, predevsim pocet
prenesenych bajtu ? Vim ze se tu jiz nekdo na to ptal, ale
odpoved jsem nenasel.
Diky
Daniel
ImageList straca obrazky
[*] Bohdan Pomsah�r <bpomsahar(zv)nocomment.sk> - 7.10.1999 09:13:19
Tento isty problem som mal na d3 a nakonec po dlhom skusani na 5 pocitacoch
sa mi podarilo prist na akesi takesi riesenie.
Skus nasledovny postup:
1. dvojitym poklepanim otvor dany imagelist
2. nastav sa na hociktoru z ikon a uchop ju
3. trosku ju presun z povodneho miesta ale nemen poradie ikon to asi
nepotrebujes
4. pusti ikonu
Po tomto postupe by mal byt aktivny buton Apply ktory potlac (v tomto
okamziku sa mali ikonky akosi lepsie usporiadat) potom uz nic ine nerob len
znovu skompiluj program (build all - je lepsie) a vysledny exe file by mal!!
funguvat. Varujem niekedy nepomohlo ani to a po takom roznom nastavovani a
skusani vsetkeho moznoho sa to podarilo.
Varujem aj pred tym ze obcas neviem ani preco sa stalo ze sa ikonky z
imagelistu pokazily a potom nastalo tazke hladanie zaloh.
-----Original Message-----
From: Roman Sladek <slado(zv)datapac.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 7. okt�ber 1999 8:04
Subject: ImageList straca obrazky
>Mam takyto problem:
>
>Do normalnej aplikacie dam toolbar a urobim na nom zopar buttonov.
>Vytvorim si ImageList, dam donho obrazky a buttonom nastavim
>ImageIndexy.
>Skompilujem a vsetko ide ok. Prekopirujem hotovy .exe na iny pocitac,
>spustim a obrazky z buttonov su prec. Robi to D3 aj D4. Co s tym ?
>
>---
>bye
> slado
ImageList straca obrazky
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.10.1999 09:17:14
Ahoj,
ja myslel, ze to nejak souvisi s knihovnou comctl32.dll,
jejiz nova verze je napr. i soucasti IE 4.0. Ze staci nahrat
tuto novejsi verzi teto knihovny a ze by to melo byt v poradku.
Dobra.> ----------
> Tento isty problem som mal na d3 a nakonec po dlhom skusani na 5
> pocitacoch
> sa mi podarilo prist na akesi takesi riesenie.
>
>
> Skus nasledovny postup:
>
> 1. dvojitym poklepanim otvor dany imagelist
> 2. nastav sa na hociktoru z ikon a uchop ju
> 3. trosku ju presun z povodneho miesta ale nemen poradie ikon to asi
> nepotrebujes
> 4. pusti ikonu
>
> Po tomto postupe by mal byt aktivny buton Apply ktory potlac (v tomto
> okamziku sa mali ikonky akosi lepsie usporiadat) potom uz nic ine
> nerob len
> znovu skompiluj program (build all - je lepsie) a vysledny exe file by
> mal!!
> funguvat. Varujem niekedy nepomohlo ani to a po takom roznom
> nastavovani a
> skusani vsetkeho moznoho sa to podarilo.
>
> Varujem aj pred tym ze obcas neviem ani preco sa stalo ze sa ikonky z
> imagelistu pokazily a potom nastalo tazke hladanie zaloh.
>
>
>
> -----Original Message-----
> From: Roman Sladek <slado(zv)datapac.sk>
> To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Date: 7. okt�ber 1999 8:04
> Subject: ImageList straca obrazky
>
>
> >Mam takyto problem:
> >
> >Do normalnej aplikacie dam toolbar a urobim na nom zopar buttonov.
> >Vytvorim si ImageList, dam donho obrazky a buttonom nastavim
> >ImageIndexy.
> >Skompilujem a vsetko ide ok. Prekopirujem hotovy .exe na iny pocitac,
> >spustim a obrazky z buttonov su prec. Robi to D3 aj D4. Co s tym ?
> >
> >---
> >bye
> > slado
> ImageList straca obrazky
[*] Karel Kral <kral(zv)purus(tec)cz> - 07.10.1999 09:25:43
Podle mne je to spatnou verzi knihovny CTL3D32.DLL. Zkus ji tam
nakopirovat od tebe.
Daniel Rott wrote:
>
> Jestli mas NT tak tam nainstaluj alespon SP4.
> Jestli mas 95 tak musis aktualizovat nejakou DLL,
> pouzivam vyhradne NT, takze nevim presne kterou
>
> Ahoj
> Daniel
>
> ----- P�vodn� zpr�va -----
> Od: Roman Sladek <slado(zv)datapac.sk>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 7. ��jna 1999 7:07
> P�edm�t: ImageList straca obrazky
>
> > Mam takyto problem:
> >
> > Do normalnej aplikacie dam toolbar a urobim na nom zopar buttonov.
> > Vytvorim si ImageList, dam donho obrazky a buttonom nastavim
> > ImageIndexy.
> > Skompilujem a vsetko ide ok. Prekopirujem hotovy .exe na iny pocitac,
> > spustim a obrazky z buttonov su prec. Robi to D3 aj D4. Co s tym ?
> >
> > ---
> > bye
> > slado
> >
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
ImageList straca obrazky
[*] Libor Junek <libor(zv)thsoft(tec)cz> - 7.10.1999 09:37:29
ve W95 je to knihovna comctl32.dll.
-----P�vodn� zpr�va-----
Od: Daniel Rott <roxton(zv)atlas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. ��jna 1999 9:04
P�edm�t: Re: ImageList straca obrazky
>Jestli mas NT tak tam nainstaluj alespon SP4.
>Jestli mas 95 tak musis aktualizovat nejakou DLL,
>pouzivam vyhradne NT, takze nevim presne kterou
>
>Ahoj
>Daniel
>
>----- P�vodn� zpr�va -----
>Od: Roman Sladek <slado(zv)datapac.sk>
>Komu: <delphi-l(zv)fwd(tec)cz>
>Odesl�no: 7. ��jna 1999 7:07
>P�edm�t: ImageList straca obrazky
>
>
>> Mam takyto problem:
>>
>> Do normalnej aplikacie dam toolbar a urobim na nom zopar buttonov.
>> Vytvorim si ImageList, dam donho obrazky a buttonom nastavim
>> ImageIndexy.
>> Skompilujem a vsetko ide ok. Prekopirujem hotovy .exe na iny pocitac,
>> spustim a obrazky z buttonov su prec. Robi to D3 aj D4. Co s tym ?
>>
>> ---
>> bye
>> slado
>>
>
>Jak pracuje SUBST
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 07.10.1999 09:55:47
Subst je MS-DOSovsky prikaz, ktory funguje aj vo Windows. Spusti si
pr�kazovy riadok a zadaj "subst /?".
Kry�tof Hoder wrote:
> Nevi nekno jak pracuje prikaz subst?
> Vim ze vytvori virtualni jednotku a presmerovava pozadavky na ni nekam
> jinam.
> Ale jak tu virtualni jednotku vytvorit??
> A jak chytat pozadavky???
> Pujde to v Delphi, nebo jsou na to potreba VXDs????
>
> Thanx for help.
> Krystof
RAS pocet prenesenych bajtu
[*] Iko <iko(zv)kamarad(tec)cz> - 7.10.1999 09:59:28
> Lze z RAS nejak dostat statistiku pripojeni, predevsim pocet
> prenesenych bajtu ? Vim ze se tu jiz nekdo na to ptal, ale
> odpoved jsem nenasel.
Ja som sa na to pytal, ale nikto neodpovedal. Ale zistil som, kde a
ako a co. Vsetko je to v registroch v kluci
HKEY_DYN_DATA\PerfStats\StatData.
Mam ale jednu otazku. Nevie prosim vas niekto, ako zistim, ktore
udaje na tel. pripojenie su tie spravne? Zistil som totiz, ze nazvy
tych poloziek su zavisle od jazykovej verzie windowsu. Poradte
prosim... Hladal som v registroch nejake info, ale nenasiel som
nic...
iko
iko(zv)kamarad(tec)cz
Virtual query
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 7.10.1999 10:07:04
D4 C/S Sp3 - NT 4.0 Sp 4 - SQL 7.0
Zajimalo by mne jak zabranit nacteni vsech recordu ze serveru do pameti.
Pokud mam na serveru tabulku obsahujici 4 miliony zaznamu a v DBGridu se
chci presunout na konec (DBGrid neni podminkou ) zacnou se vsechny recordy
presouvat do pameti klientskeho pocitace. Pri tomto objemu dat ale pamet
nemusi stacit a aplikace se zhrouti.
Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala jenom
cast dat ?
Dekuji za kazdou radu
Jirka M.
BDE Private Directory
[*] Petr Jand�k <Petr.Jandik(zv)merlin(tec)cz> - 7.10.1999 10:26:43
Ahoj,
mam problem s nastavenim privatniho adresare BDE. Pokud zadam nejaky adresar
v Session.PrivateDir, ulozi se do nej soubory PDOXUSERS.LCK a par dalsich,
ale v okamziku, kdyz spustim druhou instanci teze aplikace, objevi se hlaska
'Directory is busy'.
Pokud vsak zadnou hodnotu PrivateDir nespecifikuji, privatni soubory se
ukladaji do aktualniho adresare (tj. adresar na sdilenem disku, v nemz je
aplikace ulozena), a najednou mohu dotycnou aplikaci spustit, kolikrat chci.
Zvlastni, ale budiz.
Problem nastane pro zmenu v okamziku, kdy aplikaci chteji soucasne spustit
dva uzivatele - tomu druhemu se objevi chyba 'Directory controlled by
another prdoxusers.lck file'.
Potrebuji, aby mohlo vice uzivatelu soucasne provozovat stejnou aplikaci, a
aby ji kazdy z nich mohl pripadne spustit vicekrat, ale podle nastaveni
PrivateDir dosahnu bud jednoho, nebo druheho. Da se s tim neco delat?RAS pocet prenesenych bajtu
[*] Miroslav Mares <sm(zv)sct(tec)cz> - 7.10.1999 10:56:23
Obavam sem, ze nemas pravdu. Kuprikladu doma mi to tyto informace ukazuje
W98, ale v praci ne W95 OSR2. Takze se na to neda absolutne spolehat :-((
Miroslav Mares
----- Original Message -----
From: Iko <iko(zv)kamarad(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 07, 1999 9:59 AM
Subject: Re: RAS pocet prenesenych bajtu
> Ja som sa na to pytal, ale nikto neodpovedal. Ale zistil som, kde a
> ako a co. Vsetko je to v registroch v kluci
> HKEY_DYN_DATA\PerfStats\StatData.
>
> Mam ale jednu otazku. Nevie prosim vas niekto, ako zistim, ktore
> udaje na tel. pripojenie su tie spravne? Zistil som totiz, ze nazvy
> tych poloziek su zavisle od jazykovej verzie windowsu. Poradte
> prosim... Hladal som v registroch nejake info, ale nenasiel som
> nic...
>
> iko
> iko(zv)kamarad(tec)cz
Nevim, jak to popsat ...
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 7.10.1999 11:14:55
Ahojda,
muzete ni prosim nekdo poradit ?
Na Formu mam dejme tomu tri DGGridy. Vsechny tri maji spolecne PopupMenu.
Jak zjistim, kdyz kliknu pravym tlacitkem na nekterem z nich, na ktery jsem
kliknul ?
Diky
Vasek
BDE Private Directory
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 7.10.1999 11:28:57
Ja mam podobny problem a tiez by ma to zaujimalo.
Mam IB 5.0 a D3.
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/
-----P�vodn� zpr�va-----
Od: Petr Jand�k <Petr.Jandik(zv)merlin(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 7. okt�ber 1999 11:11
P�edm�t: BDE Private Directory
>Ahoj,
>
>mam problem s nastavenim privatniho adresare BDE. Pokud zadam nejaky
adresar
>v Session.PrivateDir, ulozi se do nej soubory PDOXUSERS.LCK a par dalsich,
>ale v okamziku, kdyz spustim druhou instanci teze aplikace, objevi se
hlaska
>'Directory is busy'.
>Pokud vsak zadnou hodnotu PrivateDir nespecifikuji, privatni soubory se
>ukladaji do aktualniho adresare (tj. adresar na sdilenem disku, v nemz je
>aplikace ulozena), a najednou mohu dotycnou aplikaci spustit, kolikrat
chci.
>Zvlastni, ale budiz.
>Problem nastane pro zmenu v okamziku, kdy aplikaci chteji soucasne spustit
>dva uzivatele - tomu druhemu se objevi chyba 'Directory controlled by
>another prdoxusers.lck file'.
>
>Potrebuji, aby mohlo vice uzivatelu soucasne provozovat stejnou aplikaci, a
>aby ji kazdy z nich mohl pripadne spustit vicekrat, ale podle nastaveni
>PrivateDir dosahnu bud jednoho, nebo druheho. Da se s tim neco delat?
>RAS pocet prenesenych bajtu
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 7.10.1999 11:49:10
A jak lze tyto data vycitat ? Je nekde popis ?
Zkousel jsem pres TRegistry precist co ten klic
obsahuje, ale nedari se mi ho otevrit.
Reg.RootKey:=HKEY_DYN_DATA;
if Reg.OpenKey('PerfStats\StatData',False) then begin
Reg.GetValueNames(List); <-- sem se to nikdy nedostane !
Reg.CloseKey;
end;
Daniel
----- P�vodn� zpr�va -----
Od: Iko <iko(zv)kamarad(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. ��jna 1999 9:59
P�edm�t: Re: RAS pocet prenesenych bajtu
> > Lze z RAS nejak dostat statistiku pripojeni, predevsim pocet
> > prenesenych bajtu ? Vim ze se tu jiz nekdo na to ptal, ale
> > odpoved jsem nenasel.
>
> Ja som sa na to pytal, ale nikto neodpovedal. Ale zistil som, kde a
> ako a co. Vsetko je to v registroch v kluci
> HKEY_DYN_DATA\PerfStats\StatData.
>
> Mam ale jednu otazku. Nevie prosim vas niekto, ako zistim, ktore
> udaje na tel. pripojenie su tie spravne? Zistil som totiz, ze nazvy
> tych poloziek su zavisle od jazykovej verzie windowsu. Poradte
> prosim... Hladal som v registroch nejake info, ale nenasiel som
> nic...
>
> iko
> iko(zv)kamarad(tec)cz
>
IB5
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 7.10.1999 11:55:23
Spr�va vo form�te MIME rozdelen� na viac �ast�.
zdravim,
skusal som u kamarata nainstalovat SQL server IB 5. Vzdy mi pri instalacii vypise chybu Internal error near.IBCheck.
neviete v com je chyba ?
Martin
Nevim, jak to popsat ...
[*] Mirun <forcom(zv)telecom(tec)cz> - 7.10.1999 12:08:36
Grid := TDGGrid(PopupMenu1.PopupComponent)
PopupComponent je TEN nad kym se menu vyvolalo.
Mirun
-----P�vodn� zpr�va-----
Od: Vaclav_Lukes(zv)EUROTEL.CZ <Vaclav_Lukes(zv)EUROTEL.CZ>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. ��jna 1999 11:29
P�edm�t: Nevim, jak to popsat ...>Ahojda,
>
>muzete ni prosim nekdo poradit ?
>
>Na Formu mam dejme tomu tri DGGridy. Vsechny tri maji spolecne PopupMenu.
>Jak zjistim, kdyz kliknu pravym tlacitkem na nekterem z nich, na ktery jsem
>kliknul ?
>
>Diky
>
>Vasek
>
>
>SNMP agent
[*] Jaroslav Ostadal <jaroslav.ostadal.fs(zv)vsb(tec)cz> - 7.10.1999 12:09:55
Dobry den,
nevite nekdo co je SNMP agent a jak pracuje... pripadne jak by se dal obejit.
musim jej tu mit naistalovaneho, a nelibi se mi to, protoze to povazuji za zasadni zasah do sveho soukromi.
S pozdravem
Jaroslav O���dal
jaroslav.ostadal.fs(zv)vsb(tec)cz
http://home.vsb(tec)cz/JamesT
Virtual query
[*] Mirun <forcom(zv)telecom(tec)cz> - 7.10.1999 12:11:53
Napis si Query tak, aby ti vracela jen pocet zaznamu se kterymi POTREBUJES
pracovat. Mit v gridu tabulku se 4 miliony zaznamu je preci nesmysl - co s
nimi bude uzivatel delat ?
Mirun
-----P�vodn� zpr�va-----
Od: Jirka Majvald <majvald(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. ��jna 1999 10:17
P�edm�t: Virtual query
>D4 C/S Sp3 - NT 4.0 Sp 4 - SQL 7.0
>
>Zajimalo by mne jak zabranit nacteni vsech recordu ze serveru do pameti.
>Pokud mam na serveru tabulku obsahujici 4 miliony zaznamu a v DBGridu se
>chci presunout na konec (DBGrid neni podminkou ) zacnou se vsechny recordy
>presouvat do pameti klientskeho pocitace. Pri tomto objemu dat ale pamet
>nemusi stacit a aplikace se zhrouti.
>
>Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
>Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala jenom
>cast dat ?
>
>Dekuji za kazdou radu
> Jirka M.
>
>
>Handle okna
[*] jof(zv)email(tec)cz - 7.10.1999 12:16:10
Jak mam zjistit handle okna, kteremu by chodily message, kdyby tam nebylo
moje (vrchni) okno. (Chci, aby se windowsy chovaly, jako ze tam to moje
okno neni a zpravy o pohybu mysi ci stisku klavesy posilaly oknu pod nim.)
Dekuji.
-jof-
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
ImageList straca obrazky
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 07.10.1999 12:22:39
Na tento problem upozornuje v Delphach subor readme.txt alebo deploy.txt.
Roman Sladek wrote:
> Mam takyto problem:
>
> Do normalnej aplikacie dam toolbar a urobim na nom zopar buttonov.
> Vytvorim si ImageList, dam donho obrazky a buttonom nastavim
> ImageIndexy.
> Skompilujem a vsetko ide ok. Prekopirujem hotovy .exe na iny pocitac,
> spustim a obrazky z buttonov su prec. Robi to D3 aj D4. Co s tym ?
>
> ---
> bye
> slado
Prepnuti kl. na overwrite
[*] Honza Fiala <kvasar(zv)kvasar(tec)cz> - 7.10.1999 12:24:48
Caute,
potreboval bych prepnout klavesnici pri zobrazeni dialogu s RichEditem na
OVERWRITE a po ukonceni to vratit zpet. Vubec netusim jak na to.
Dik za kazdou radu
Honza Fiala
Nevim, jak to popsat ...
[*] Konference DELPHI <vyvoj(zv)atlascon(tec)cz> - 7.10.1999 12:39:01
> Na Formu mam dejme tomu tri DGGridy. Vsechny tri maji spolecne PopupMenu.
> Jak zjistim, kdyz kliknu pravym tlacitkem na nekterem z nich, na ktery
jsem
> kliknul ?
>
TPopupMenu.PopupComponent
Delphi 5 a BDE 5.01
[*] voltrr1.epr(zv)mail.cez(tec)cz - 7.10.1999 11:53:36
Mate nekdo s timdle nejake zkusenosti ??
Kdyz pustim exe z D5 na masine s instalovanym BDE 5.01 tak to slape ale
nevim jestli to nebude delat treba burdel v datech atd...
Diky za info
Radek
Komponenty Servers
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.10.1999 13:04:44
> -----P�vodn� zpr�va-----
> Od: tomas.mazurek(zv)vitkovice(tec)cz [mailto:tomas.mazurek(zv)vitkovice(tec)cz]
> Odesl�no: 7. ��jna 1999 13:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Komponenty Servers
>
>
> Hello,
>
> mam dotaz ohledne komponent Servers pro praci s MSOfficem v D5. Tak
> jsem si napr. napsal kousek pro Word:
>
> WordApplication.Connect;
> WordApplication.Visible := True;
> WordApplication.Documents.Open('c:\working\047.doc',....
>
> a zde nasleduje spousta parametru...
>
> Nevite, kde se da najit nejaka dokumentace k temto komponentam? Asi
> nekde u Microsoftu?
V MS Office Professional jsou helpy
VBA*.HLP, tam to je. Je to sice psano pro
Visual Basic, ale je to dobre citelne i pascalistum.
Stejne soubory jsou, myslim, i ve Standard,
ale tam neobsahuji popisy Office objektu.
Jura
Borlandi kouzlo s cyklem
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 7.10.1999 13:07:03
> Ahoj
>
> pre ukazku - nieco podobne prelozi Visual C++ od M$ takto:
>
> 92: int arr[6];
> 93: for ( int i = 0; i < 6; i++ )
> 94: arr[i] = -2;
>
> 00401565 B9 06 00 00 00 mov ecx,6
> 0040156A B8 FE FF FF FF mov eax,0FFFFFFFEh // -2
> 0040156F 57 push edi
> 00401570 8D 7C 24 04 lea edi,dword ptr [esp+4] // adresa
> pola
> 00401574 F3 AB rep stos dword ptr es:[edi]
Nechybi tam cld (nastaveni smeru pro stos)?
Tom
Virtual query
[*] Robert Kindl <rob(zv)exec(tec)cz> - 7.10.1999 13:19:19
> Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
> Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala jenom
> cast dat ?
> Dekuji za kazdou radu
> Jirka M.
Takovouto virtualni query je komponenta TTable.
Tato komponenta totiz vlastne pouziva virtualni selecty k brouzdani v datech
(zkouseno direct linkem na MSSQL BDE 5.10 a Delphi 3.02 ).
V podstate mohou nastat 3 pripady:
1) jsem na zacatku (zavolano First) - pak pouzije
SELECT seznam sloupcu
FROM table
WHERE filter
ORDER BY index ASC
2) skocil jsem na konec zavolanim metody Last - pak se pouzije
SELECT seznam sloupcu
FROM table
WHERE filter
ORDER BY index DESC
tedy totez setridene opacne!
3) zavolal jsem metodu Locate - pak componenta posle na SQL server tri query
zhruba takto:
a) timto se vyzvedne aktualni record
SELECT seznam sloupcu
FROM table
WHERE primarykey=locatekey AND filter
b) timto si vybere recordy pred aktualnim recordem
SELECT seznam sloupcu
FROM table
WHERE primary key<locatekey AND filter
ORDER BY index DESC
c) timto si vybere record za aktualnim recordem
SELECT seznam sloupcu
FROM table
WHERE primary key>locatekey AND filter
ORDER BY index ASC
Vyhoda?
Lze skocit na konec a BDE to v pameti prehazi tak,
ze se to tvari jako bych nacital jen cast databaze
(ve skutecnosti kdyz budu dostatecne dlouho drzet PgUp nebo PgDn
tak se stejne prenesou vsechny recordy).
Nevyhoda?
Nelze nijak ovlivnit zamykaci strategii.
Vzdy se queruji vsechny sloupce i kdyz se pak pouzije jen jeden.
Rob
BDE Private Directory
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 7.10.1999 13:24:01
Nespecifikuj PrivateDir aby si mohol spustit aplikaciu na tom istom PC viackrat, ale nastav pracovny adresar na lokalny disk, aby si kazde PC vytvaralo tieto privatne subory u seba a nie v adresari odkial bola spustena aplikacia. Na to sa da pouzit zastupca aplikacie, kde mozes definovat pracovny adresar.
Palo.
-----P�vodn� spr�va-----
Od: Petr Jand�k <Petr.Jandik(zv)merlin(tec)cz>
Pre: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
D�tum: 7. okt�ber 1999 11:10
Predmet: BDE Private Directory
Ahoj,
mam problem s nastavenim privatniho adresare BDE. Pokud zadam nejaky adresar
v Session.PrivateDir, ulozi se do nej soubory PDOXUSERS.LCK a par dalsich,
ale v okamziku, kdyz spustim druhou instanci teze aplikace, objevi se hlaska
'Directory is busy'.
Pokud vsak zadnou hodnotu PrivateDir nespecifikuji, privatni soubory se
ukladaji do aktualniho adresare (tj. adresar na sdilenem disku, v nemz je
aplikace ulozena), a najednou mohu dotycnou aplikaci spustit, kolikrat chci.
Zvlastni, ale budiz.
Problem nastane pro zmenu v okamziku, kdy aplikaci chteji soucasne spustit
dva uzivatele - tomu druhemu se objevi chyba 'Directory controlled by
another prdoxusers.lck file'.
Potrebuji, aby mohlo vice uzivatelu soucasne provozovat stejnou aplikaci, a
aby ji kazdy z nich mohl pripadne spustit vicekrat, ale podle nastaveni
PrivateDir dosahnu bud jednoho, nebo druheho. Da se s tim neco delat?Virtual query
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 7.10.1999 13:25:44
Ja jsem chtel jestli by neslo nacitat to po blocich a jestli to neumi
TQuery.
Ja bych jich nacetl treba jen tisic a pri prohlizeni by se nacetlo dalsich
tisic ...
A kdyz bude chtet na konec tak se nacte treba jen tisic od konce ...
----- P�vodn� zpr�va -----
Od: Mirun <forcom(zv)telecom(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. ��jna 1999 12:11
P�edm�t: Re: Virtual query
Napis si Query tak, aby ti vracela jen pocet zaznamu se kterymi POTREBUJES
pracovat. Mit v gridu tabulku se 4 miliony zaznamu je preci nesmysl - co s
nimi bude uzivatel delat ?
Mirun
-----P�vodn� zpr�va-----
Od: Jirka Majvald <majvald(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. ��jna 1999 10:17
P�edm�t: Virtual query
>D4 C/S Sp3 - NT 4.0 Sp 4 - SQL 7.0
>
>Zajimalo by mne jak zabranit nacteni vsech recordu ze serveru do pameti.
>Pokud mam na serveru tabulku obsahujici 4 miliony zaznamu a v DBGridu se
>chci presunout na konec (DBGrid neni podminkou ) zacnou se vsechny recordy
>presouvat do pameti klientskeho pocitace. Pri tomto objemu dat ale pamet
>nemusi stacit a aplikace se zhrouti.
>
>Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
>Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala jenom
>cast dat ?
>
>Dekuji za kazdou radu
> Jirka M.
>
>
>Nevim, jak to popsat ...
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 7.10.1999 13:38:36
Skus nasledovne:
var
AGrid: TDBGrid; // lokalna premenna unity alebo formularu.
procedure TForm.PopupMenu1Popup(Sender: TObject);
begin
AGrid := nil;
if DBGrid1.Focused then
AGrid := DBGrid1
else if DBGrid2.Focused then
AGrid := DBGrid2
else if DBGrid3.Focused then
AGrid := DBGrid3;
...
end;
-----P�vodn� spr�va-----
Od: Vaclav Lukes(zv)EUROTEL.CZ <Vaclav Lukes(zv)EUROTEL.CZ>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 7. okt�ber 1999 11:49
Predmet: Nevim, jak to popsat ...
Ahojda,
muzete ni prosim nekdo poradit ?
Na Formu mam dejme tomu tri DGGridy. Vsechny tri maji spolecne PopupMenu.
Jak zjistim, kdyz kliknu pravym tlacitkem na nekterem z nich, na ktery jsem
kliknul ?
Diky
Vasek
Komponenty Servers
[*] tomas.mazurek(zv)vitkovice(tec)cz - 7.10.1999 11:43:53
Hello,
mam dotaz ohledne komponent Servers pro praci s MSOfficem v D5. Tak
jsem si napr. napsal kousek pro Word:
WordApplication.Connect;
WordApplication.Visible := True;
WordApplication.Documents.Open('c:\working\047.doc',....
a zde nasleduje spousta parametru...
Nevite, kde se da najit nejaka dokumentace k temto komponentam? Asi
nekde u Microsoftu?
Dik
TM
BDE Private Directory
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 07.10.1999 13:49:35
Ahoj,
ak chces zdielany pristup uzivatelov k paradoxovskym tabulkam cez BDE, nastav si
do NET DIR sietovy adresar.
Petr Jand�k wrote:
> Ahoj,
>
> mam problem s nastavenim privatniho adresare BDE. Pokud zadam nejaky adresar
> v Session.PrivateDir, ulozi se do nej soubory PDOXUSERS.LCK a par dalsich,
> ale v okamziku, kdyz spustim druhou instanci teze aplikace, objevi se hlaska
> 'Directory is busy'.
> Pokud vsak zadnou hodnotu PrivateDir nespecifikuji, privatni soubory se
> ukladaji do aktualniho adresare (tj. adresar na sdilenem disku, v nemz je
> aplikace ulozena), a najednou mohu dotycnou aplikaci spustit, kolikrat chci.
> Zvlastni, ale budiz.
> Problem nastane pro zmenu v okamziku, kdy aplikaci chteji soucasne spustit
> dva uzivatele - tomu druhemu se objevi chyba 'Directory controlled by
> another prdoxusers.lck file'.
>
> Potrebuji, aby mohlo vice uzivatelu soucasne provozovat stejnou aplikaci, a
> aby ji kazdy z nich mohl pripadne spustit vicekrat, ale podle nastaveni
> PrivateDir dosahnu bud jednoho, nebo druheho. Da se s tim neco delat?Virtual query
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 07.10.1999 13:53:16
Delphi automaticky nacitaju iba cast dat. Ked vsak uzivatel skoci na koniec
zoznamu - nuz, smola, treba nacitat vsetky data. Ak uzivatel potrebuje skakat
na koniec zoznamu stale, treba si opacne usporiadat vysledok SQL prikazu.
Jirka Majvald wrote:
> D4 C/S Sp3 - NT 4.0 Sp 4 - SQL 7.0
>
> Zajimalo by mne jak zabranit nacteni vsech recordu ze serveru do pameti.
> Pokud mam na serveru tabulku obsahujici 4 miliony zaznamu a v DBGridu se
> chci presunout na konec (DBGrid neni podminkou ) zacnou se vsechny recordy
> presouvat do pameti klientskeho pocitace. Pri tomto objemu dat ale pamet
> nemusi stacit a aplikace se zhrouti.
>
> Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
> Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala jenom
> cast dat ?
>
> Dekuji za kazdou radu
> Jirka M.Jak dostat obrazky WMF do Pdx tabulky
[*] mbartone(zv)Synthesia(tec)cz - 7.10.1999 13:55:08
Ahoj
mam okolo 8000 obrazku ve formatu WMF a potrebuji je dostat do Paradoxove
tabulky.
Table1Obr.LoadFromFile() - je jen pro BMP
zkousel jsem to obejit pres Clipboard a take jsem neuspel
Image1.Picture.LoadFromFile('d:\s2.wmf');
Clipboard.Assign(Image1.Picture);
Table1Obr.Assign(Clipboard);
Nevite jak by to melo jit ?
Milan
RAS pocet prenesenych bajtu
[*] Iko <iko(zv)kamarad(tec)cz> - 7.10.1999 14:14:26
> A jak lze tyto data vycitat ? Je nekde popis ?
> Zkousel jsem pres TRegistry precist co ten klic
> obsahuje, ale nedari se mi ho otevrit.
>
> Reg.RootKey:=HKEY_DYN_DATA;
> if Reg.OpenKey('PerfStats\StatData',False) then begin
> Reg.GetValueNames(List); <-- sem se to nikdy nedostane !
> Reg.CloseKey;
> end;
---------------------------------------------------------
Neviem, preco ti to neslo, mne ano. Mam W98. Aky system mas
ty?
---------------------------------------------------------
> Obavam sem, ze nemas pravdu. Kuprikladu doma mi to tyto
> informace ukazuje
> W98, ale v praci ne W95 OSR2. Takze se na to neda absolutne
> spolehat :-((
---------------------------------------------------------
Trosku som sa s tym prave hral a zistil som to takto. Mam W98,
na 95 som to neskusal zatial:
Pred citanim samotnych dyn. dat musim tu sluzbu spustit takto:
procedure Start;
var R:TRegistry;
b:array[1..4] of byte;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_DYN_DATA;
R.OpenKey('PerfStats\StartStat',false);
R.ReadBinaryData('KERNEL\CPUUsage',b,4);
R.CloseKey;
R.Free;
end;
Po skonceni testovania musim sluzbu ukoncit:
procedure Stop;
var R:TRegistry;
b:array[1..4] of byte;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_DYN_DATA;
R.OpenKey('PerfStats\StopStat',false);
R.ReadBinaryData('KERNEL\CPUUsage',b,4);
R.CloseKey;
R.Free;
end;
a citam udaje takto:
function CPU_usage:integer;
var R:TRegistry;
b:array[1..4] of byte;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_DYN_DATA;
R.OpenKey('PerfStats\StatData',false);
R.ReadBinaryData('KERNEL\CPUUsage',b,4);
Result:=Integer(b);
R.CloseKey;
R.Free;
end;
----------------------------------------------------------
Viac zatial neviem. Ak niekto nieco vie, nech povie...
iko
iko(zv)kamarad(tec)cz
Z PARADOXU do SQL
[*] Pavel Medek <talema(zv)top(tec)cz> - 7.10.1999 14:25:20
Rozhodl jsem se prevest nasi firemni aplikaci z Paradoxu do SQL, ani
ne z duvodu nestability ci nedostatku rychlosti jako spis z duvodu
bezpecnosti dat.
Prece jenom adresar s tabulkama, do ktereho maji vsichni neomezeny pristup
neni
pro bezpecnost to nejlepsi, ale k veci.
Neb mam D5 premyslim o Interbase. Muzete me nekdo par slovy upozornit na
ocekavana uskali tohoto, prevodu a Interbase jako takove. Je mozno IB
doporucit - jestli
ne proc a v cem jineho lepsi. Ceka me kompletni prepsani programu nebo jen
hrube
upravy ? Muzete uvest priklady v cem se zasadne lisi kod pro lokolni
databaze a pro SQL ?
Vim, ze logika SQL je odlisna, ale v dnesni dobe se na SQL nahlizi i
pohledem lokalnich
databazi viz komponenty IBTable ci demo IBMast v D5, ktere se programove
nelisi mnoho
od dema pro Paradox.
Dekuji za Vase podnety a pripominky
Pavel Medek
Virtual query
[*] Ing. Jaroslav �ke��k - 7.10.1999 14:32:24
Myslim, ze zasadni chyba je jiz v otevirani tabulky se 4 miliony zaznamy!
To opravdu nejde vymyslet jinak?
Kdyz uz nejde (urcite jde) vymyslet zadna jina rozumna podminka, ktera
by dotahovala jen v danem okamziku potrebna data
(nevim, jak muze nekdo listovanim v 4 milionech zaznamech v rozumnem
case neco rozumneho najit)
tak alespon natahuj jenom hodnotu ID (tim bude potreba pameti mnohem mensi)
a pak si udelej druhej TQuery do ktereho otevres vzdy jen vylistovany
pocet vet (treba 15: Query2ID > Query1ID and Query2ID < Query1ID + 15 ).
DBGrid pripojis na ten druhej a pak se ti do nej otevre jenom poslednich 15
vet,
pripadne tam kde se zastavis.
Jaro
> D4 C/S Sp3 - NT 4.0 Sp 4 - SQL 7.0
>
> Zajimalo by mne jak zabranit nacteni vsech recordu ze serveru do pameti.
> Pokud mam na serveru tabulku obsahujici 4 miliony zaznamu a v DBGridu se
> chci presunout na konec (DBGrid neni podminkou ) zacnou se vsechny recordy
> presouvat do pameti klientskeho pocitace. Pri tomto objemu dat ale pamet
> nemusi stacit a aplikace se zhrouti.
>
> Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
> Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala jenom
> cast dat ?
>
> Dekuji za kazdou radu
> Jirka M.
>
>Problem s PRIVATE DIR
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 7.10.1999 15:10:03
Problem:
Ak sa nastavi PrivateDir, aplikacia (BDE) si uzamkne
tento adresar a preto druha aplikacia musi nastavit
PrivateDir do ineho adresara - to nie je velmi prijemne.
Riesenie - je celkom jednoduche. Treba nastavit
pracovny adresar volanim DbiInit. Potom mozu
vyuzivat tento adresar ako privatny rozne aplikacie,
ako aj ta ista aplikacia spustena viackrat.
Problem je v tom, ze raz sa ten pracovny adresar
nastavi a raz nie (myslim tym ze u jednej aplikacii ak
sa nastavi raz, potom sa uz nastavi pri takmer kazdom
spusteni, podla mojich skusenosti, ale u inej aplikacii
to nemusi byt vzdy to iste.) Kontrola, ci sa nastavil je
taktiez jednoducha, staci, ak sa pozriete do toho
adresara a musi v nom byt subor InmemXXX.rem.
Ak tam nie je, tak ho urcite najdete vo Windows\Temp.
Taktiez zalezi na tom, do ktoreho suboru vlozite initialization
a finalization. Zrejme by to malo ist na miesto, kde to
"predbehne" vytvorenie globalneho Session.
takze - napriklad:
procedure InitPrivateDir;
var
Env: DbiEnv;
cosnt
sWorkDir = 'C:\XXX';
begin
// nezabudni otestovat, ci existuje
if not DirectoryExists(sWorkDir) then
ForceDirectories(sWorkDir);
// niekedy pomoze, ak sa zavola nasledujuce:
//Check(DbiExit);
// niekedy to vsak zblbne, takze...
FillChar(Env, SizeOf(Env), 0);
StrPLCopy(Env.szWorkDir, sWorkDir, SizeOf(Env.szWorkDir) - 1);
// dalej mozete vyplnit aj ine polozky Env, ale nie je to nutne
Check(dbiInit((zv)Env));
// pripadne pre testovanie: status := dbiInit((zv)Env);
end;
Initialization
InitPrivateDir;
Finalization
// nezabudnut volat!!!
Check(DbiExit);
Ine riesenie - pozrite si procedurku TSession.InitializeBDE,
tam sa __nikde__ tento adresar nenastavuje, takze to mozno
niekoho napadne. Mna zial uz nie.
forgo
RAS pocet prenesenych bajtu
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 7.10.1999 15:10:06
>> A jak lze tyto data vycitat ? Je nekde popis ?
>> Zkousel jsem pres TRegistry precist co ten klic
>> obsahuje, ale nedari se mi ho otevrit.
>
> Neviem, preco ti to neslo, mne ano. Mam W98. Aky system mas
> ty?
Promin ze jsem to neuvedl. Mam WinNT4.0 ws sp4 cz.
Ale muj zajem samozrejme je aby to chodilo na Win9x/NT.
Daniel
Jeste jednou Update Pack 1 pro D3
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 7.10.1999 15:27:04
Nevim, jestli dotaz zapadl proto, ze je nesmyslny nebo ze fakt nikdo nic
nevi... kazdopadne to zkusim jeste jednou - prosim nekamenovat, nova
verze GExperts bez toho fakticky nejede.
***************************************************************
Ahoj,
stahl jsem si posledni verzi GExperts a po instalaci jsem narazil na
problem - nespusti se (krici neco o tom, ze nenasel nejaky vstupni bod
ve VCL30). Protoze v README se striktne pozaduje instalace Update Pack 1
a 2, budu to asi muset udelat. Update Pack 2 jsem nasel u Borlandu v
USA, ale Update Pack 1 tam neni- respektive pisi, ze po USA a Kanade ho
posilaji na CD za $15. Nemate to nekdo nebo nevite, kde to roste u nas
nebo na netu?
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Sledov�n� b�hu aplikace
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 7.10.1999 15:37:51
Ahojda,
m�m mal� dotaz. Pot�eboval bych "n�co" co neust�le sleduje d�n� aplikace, nap�.
zm�nu hodnoty prom�nn� a n�sledn� na to je schopen reagovat.
D�ky
Va�ek
TListView a rychlost
[*] delphi(zv)dingo(tec)cz - 07.10.1999 14:06:19 gmt
Ahojte,
cim muze byt zpusobena pomalost pri mazani polozek z TListViewu?
Delam to metodot ...Items.Clear?
Diky Bob
Delphi 4.0 SP3
Proxy server
[*] Frantisek Fojtik <fera(zv)kolej.mff.cuni(tec)cz> - 7.10.1999 16:13:51
Nazdar vsici,
nezkousel jste nekdo naprogramovat proxy server? Pokud ano a
byl by jste ochoten mi poslat zdrojaky, byl bych za ne vdecny.
Franta
PS:Vim ze proxy server se da sehnat, ale chci ho zkusit
naprogramovat sam
TFileListBox
[*] Tibor Galik <tgalik(zv)vsz.sk> - 07.10.1999 15:14:54
Diky,
take nieco som zhanal
cao
tg
Zdravim Vas/Regards
Tibor Galik
tgalik(zv)vsz.sk
>>> Petr Vones <pvones(zv)mbox.vol(tec)cz> 10/03 9:32 odp. >>>
Tibor Galik wrote:
>
> Ahoj,
> existuje nejaka ina komponenta ako TFileListBox, alebo da sa TFileListBox nastavit tak aby som mal subory usporiadane podla datumu. Mozno som nieco prehliadol, ale nenasiel som tam ziadna triedenie.
Ahoj,
Treba tady:
http://www.gexperts.com/GXExplorer/
--
Petr Vones, amatersky programator
Jeste jednou Update Pack 1 pro D3
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 7.10.1999 16:23:32
> Ahoj,
>
> stahl jsem si posledni verzi GExperts a po instalaci jsem narazil na
> problem - nespusti se (krici neco o tom, ze nenasel nejaky vstupni bod
> ve VCL30). Protoze v README se striktne pozaduje instalace Update Pack 1
> a 2, budu to asi muset udelat. Update Pack 2 jsem nasel u Borlandu v
> USA, ale Update Pack 1 tam neni- respektive pisi, ze po USA a Kanade ho
> posilaji na CD za $15. Nemate to nekdo nebo nevite, kde to roste u nas
> nebo na netu?
Pokud se dobre pamatuji, tak jsem to kdysi kupi�val u Bolanfu CZ za cca 1 000 (nebo 1500??) Kc.
Dostanes CD s kompletne novymi Delphi, ktere se znova naistaluji. U pozdeji koupenych verzi se primo prodavala verze 3.01.
Zda jiz nahodou nemas verzi 3.01 (a tedy muzes aplikovat UP2) poznas tak, ze ze cas vytvoreni DELPHI32.EXE je 3:01 hod. ===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne, neco dela a je zcela zdarma :-)Virtual query
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 7.10.1999 16:47:44
Pisete ze je nezmysel mat 4 million. zaznamov v DBGride.
Ale to predsa tam nie je. Je tam vzdy iba jeden buffer.
Delphi ma chybu v tom, ze ak niekto chce skocit na koniec tak postupne taha
zaznamy. Mal by to rozpoznat a ist od konce.
Mozno ze by sa to dalo opravit v source code ?
Aj prikaz Query.Last funguje tak zle?
Ak nie potom staci osetrit DBGride,
ak ano potom je to vazny nedostatok.
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/
-----P�vodn� zpr�va-----
Od: Ing. Jaroslav �ke��k <jaro(zv)sinea(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. okt�ber 1999 14:57
P�edm�t: Re: Virtual query
>
>Myslim, ze zasadni chyba je jiz v otevirani tabulky se 4 miliony zaznamy!
>To opravdu nejde vymyslet jinak?
>Kdyz uz nejde (urcite jde) vymyslet zadna jina rozumna podminka, ktera
>by dotahovala jen v danem okamziku potrebna data
>(nevim, jak muze nekdo listovanim v 4 milionech zaznamech v rozumnem
>case neco rozumneho najit)
>tak alespon natahuj jenom hodnotu ID (tim bude potreba pameti mnohem mensi)
>a pak si udelej druhej TQuery do ktereho otevres vzdy jen vylistovany
>pocet vet (treba 15: Query2ID > Query1ID and Query2ID < Query1ID + 15 ).
>DBGrid pripojis na ten druhej a pak se ti do nej otevre jenom poslednich 15
>vet,
>pripadne tam kde se zastavis.
>
>Jaro
>
>> D4 C/S Sp3 - NT 4.0 Sp 4 - SQL 7.0
>>
>> Zajimalo by mne jak zabranit nacteni vsech recordu ze serveru do pameti.
>> Pokud mam na serveru tabulku obsahujici 4 miliony zaznamu a v DBGridu se
>> chci presunout na konec (DBGrid neni podminkou ) zacnou se vsechny
recordy
>> presouvat do pameti klientskeho pocitace. Pri tomto objemu dat ale pamet
>> nemusi stacit a aplikace se zhrouti.
>>
>> Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
>> Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala
jenom
>> cast dat ?
>>
>> Dekuji za kazdou radu
>> Jirka M.
>>
>>
>>
>
>TListView a rychlost
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 7.10.1999 16:52:53
Skus
Free a Create
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/
-----P�vodn� zpr�va-----
Od: delphi(zv)dingo(tec)cz <delphi(zv)dingo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. okt�ber 1999 16:43
P�edm�t: TListView a rychlost
>Ahojte,
>
>cim muze byt zpusobena pomalost pri mazani polozek z TListViewu?
>Delam to metodot ...Items.Clear?
>
>Diky Bob
>
>Delphi 4.0 SP3
>Virtual query
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 7.10.1999 16:59:12
Bohuzel i prikaz Query.Last ... query ani nemusi byt pripojeno k Datasource
Jirka M.
----- P�vodn� zpr�va -----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. ��jna 1999 16:47
P�edm�t: Re: Virtual query
Pisete ze je nezmysel mat 4 million. zaznamov v DBGride.
Ale to predsa tam nie je. Je tam vzdy iba jeden buffer.
Delphi ma chybu v tom, ze ak niekto chce skocit na koniec tak postupne taha
zaznamy. Mal by to rozpoznat a ist od konce.
Mozno ze by sa to dalo opravit v source code ?
Aj prikaz Query.Last funguje tak zle?
Ak nie potom staci osetrit DBGride,
ak ano potom je to vazny nedostatok.
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/
-----P�vodn� zpr�va-----
Od: Ing. Jaroslav �ke��k <jaro(zv)sinea(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. okt�ber 1999 14:57
P�edm�t: Re: Virtual query
>
>Myslim, ze zasadni chyba je jiz v otevirani tabulky se 4 miliony zaznamy!
>To opravdu nejde vymyslet jinak?
>Kdyz uz nejde (urcite jde) vymyslet zadna jina rozumna podminka, ktera
>by dotahovala jen v danem okamziku potrebna data
>(nevim, jak muze nekdo listovanim v 4 milionech zaznamech v rozumnem
>case neco rozumneho najit)
>tak alespon natahuj jenom hodnotu ID (tim bude potreba pameti mnohem mensi)
>a pak si udelej druhej TQuery do ktereho otevres vzdy jen vylistovany
>pocet vet (treba 15: Query2ID > Query1ID and Query2ID < Query1ID + 15 ).
>DBGrid pripojis na ten druhej a pak se ti do nej otevre jenom poslednich 15
>vet,
>pripadne tam kde se zastavis.
>
>Jaro
>
>> D4 C/S Sp3 - NT 4.0 Sp 4 - SQL 7.0
>>
>> Zajimalo by mne jak zabranit nacteni vsech recordu ze serveru do pameti.
>> Pokud mam na serveru tabulku obsahujici 4 miliony zaznamu a v DBGridu se
>> chci presunout na konec (DBGrid neni podminkou ) zacnou se vsechny
recordy
>> presouvat do pameti klientskeho pocitace. Pri tomto objemu dat ale pamet
>> nemusi stacit a aplikace se zhrouti.
>>
>> Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
>> Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala
jenom
>> cast dat ?
>>
>> Dekuji za kazdou radu
>> Jirka M.
>>
>>
>>
>
>pristup k oracle v Thread
[*] Bohdan Pomsah�r <bpomsahar(zv)nocomment.sk> - 7.10.1999 17:07:29
Mam takyto problem:
potrebujem pracovat s databazou v threade ale ma to problem a to ten ze program mrzne. Napriklad pouzijem klasicky prikaz select * from data, parkrat to bezproblemov funguje ale uz ked ten isty prikaz chcem pouzit 5 krat tak cely program zmzne.
Za kazdu pomoc budem vdacny
Bohdan
Titulkov� pruh v MDI child oknu
[*] Petr Ga�ourek <gadourek(zv)centrum(tec)cz> - 7.10.1999 17:10:28
Ahoj,
da se nejak zuzit titulkovy pruh v MDI child oknu. V helpu jsem nasel
nasledujici:
Changing the border style of an MDI child form to bsDialog or bsNone has no
effect.
Ale zadny efekt nema ani bsSizeToolWin. Delam neco spatne ja?
A pak jeste jeden podobny stupidni dotaz. Myslel jsem, ze pokud vyberu u
okna BorderStyle - bsSizeToolWin, tak budou zobrazeny vsechny ikony, ale je
zobrazena pouze ikona biSystemMenu ikony biMinimize,biMaximize se
nezobrazuji. Je to tak spravne? V helpu pisou: bsSizeToolWin - like
bsSizeable with a smaller caption.
Petr Gadourek
Z PARADOXU do SQL
[*] Ing. Jaroslav �ke��k - 7.10.1999 17:53:38
Jestli tvrdis, ze ti krome bezpecnosti Paradox tabulky vyhovovaly,
pak ti bude Interbaze bohate stacit.
Problemy z prevodem by nastat nemely. Jedinym problemem
muze byt zkusenost/nezkusenost s programovanim databazovych stroju,
tak aby mohly byt vyuzity jejich vyhody.
To je ovsem pripad jakehokoliv stroje. V tomto ohledu je Interbaze spise
jednodussi. Navic pokud mas D5, tak je tam primy pristup do IB a
nepotrebujes
tudiz BDE ani nic jineho
Ja si vzpominam na svuj pripad pred tremi lety, kdy nastvanost jednoho meho
zakaznika
(i moje - ze tam musim porad jezdit - index ma prosle datum a podobne
lahudky)
dostoupila takoveho stupne, ze jsem cely projekt narzchlo preklopil do
Interbaze.
Zvladnul jsem to za dva dny. Samozrejme nebyly zadne ulozene procedury,
zadne
trigry ani deklarativni integrita. Nebyl na to cas ani jsem tomu tenkrat moc
nerozumel.
Jen jsem to proste preklopil. Od te doby se tam uz nejelo krome instalaci
novych verzi.
To byla takova nouzovka. Postupne jsem prisel na to, ze z hlediska vykonu
a zajisteni integrity se urcite vyplati neco o tom vedet a delat to rovnou
poradne.
Jaro
> Rozhodl jsem se prevest nasi firemni aplikaci z Paradoxu do SQL, ani
> ne z duvodu nestability ci nedostatku rychlosti jako spis z duvodu
> bezpecnosti dat.
> Prece jenom adresar s tabulkama, do ktereho maji vsichni neomezeny pristup
> neni
> pro bezpecnost to nejlepsi, ale k veci.
> Neb mam D5 premyslim o Interbase. Muzete me nekdo par slovy upozornit na
> ocekavana uskali tohoto, prevodu a Interbase jako takove. Je mozno IB
> doporucit - jestli
> ne proc a v cem jineho lepsi. Ceka me kompletni prepsani programu nebo jen
> hrube
> upravy ? Muzete uvest priklady v cem se zasadne lisi kod pro lokolni
> databaze a pro SQL ?
> Vim, ze logika SQL je odlisna, ale v dnesni dobe se na SQL nahlizi i
> pohledem lokalnich
> databazi viz komponenty IBTable ci demo IBMast v D5, ktere se programove
> nelisi mnoho
> od dema pro Paradox.
>
> Dekuji za Vase podnety a pripominky
>
> Pavel Medek
>
>Jeste jednou Update Pack 1 pro D3
[*] Robert Kindl <rob(zv)exec(tec)cz> - 7.10.1999 18:07:29
> stahl jsem si posledni verzi GExperts a po instalaci jsem narazil na
> problem - nespusti se (krici neco o tom, ze nenasel nejaky vstupni bod
> ve VCL30). Protoze v README se striktne pozaduje instalace Update Pack 1
> a 2, budu to asi muset udelat. Update Pack 2 jsem nasel u Borlandu v
> USA, ale Update Pack 1 tam neni- respektive pisi, ze po USA a Kanade ho
> posilaji na CD za $15. Nemate to nekdo nebo nevite, kde to roste u nas
> nebo na netu?
> Ing. Jiri Foldyna
Update Pack 1 byl placeny (cca 1000 az 2000 bez rozdiluStd/Prof/CS).
Pokud vim tak nebyl tedy stahnutelny.
Rob
Virtual query
[*] Robert Kindl <rob(zv)exec(tec)cz> - 7.10.1999 18:48:06
> Nevite nekdo jestli se neda query nastavit tak aby toto nedelala ?
> Neexistuje nejaka moznost vitvorit virtualni query ktera by nacitala jenom
> cast dat ?
> Dekuji za kazdou radu
> Jirka M.
Takovouto virtualni query je komponenta TTable.
Tato komponenta totiz vlastne pouziva virtualni selecty k brouzdani v datech
(zkouseno direct linkem na MSSQL BDE 5.10 a Delphi 3.02 ).
V podstate mohou nastat 3 pripady:
1) jsem na zacatku (zavolano First) - pak pouzije
SELECT seznam sloupcu
FROM table
WHERE filter
ORDER BY index ASC
2) skocil jsem na konec zavolanim metody Last - pak se pouzije
SELECT seznam sloupcu
FROM table
WHERE filter
ORDER BY index DESC
tedy totez setridene opacne!
3) zavolal jsem metodu Locate - pak componenta posle na SQL server tri query
zhruba takto:
a) timto se vyzvedne aktualni record
SELECT seznam sloupcu
FROM table
WHERE primarykey=locatekey AND filter
b) timto si vybere recordy pred aktualnim recordem
SELECT seznam sloupcu
FROM table
WHERE primary key<locatekey AND filter
ORDER BY index DESC
c) timto si vybere record za aktualnim recordem
SELECT seznam sloupcu
FROM table
WHERE primary key>locatekey AND filter
ORDER BY index ASC
Vyhoda?
Lze skocit na konec a BDE to v pameti prehazi tak,
ze se to tvari jako bych nacital jen cast databaze
(ve skutecnosti kdyz budu dostatecne dlouho drzet PgUp nebo PgDn
tak se stejne prenesou vsechny recordy).
Nevyhoda?
Nelze nijak ovlivnit zamykaci strategii.
Vzdy se queruji vsechny sloupce i kdyz se pak pouzije jen jeden.
Rob
Virtual query
[*] Robert Kindl <rob(zv)exec(tec)cz> - 7.10.1999 18:49:32
>Pisete ze je nezmysel mat 4 million. zaznamov v DBGride.
>Ale to predsa tam nie je. Je tam vzdy iba jeden buffer.
>Delphi ma chybu v tom, ze ak niekto chce skocit na koniec tak postupne taha
>zaznamy. Mal by to rozpoznat a ist od konce.
>Mozno ze by sa to dalo opravit v source code ?
>Aj prikaz Query.Last funguje tak zle?
>Ak nie potom staci osetrit DBGride,
>ak ano potom je to vazny nedostatok.
>TUNGLI J�nos
Zdrejme nevis o cem mluvis.
To bych se pekne zlobil, kdyby mi Delphi (BDE) nejak zasahovali
do Query (tedy prikazu, ktery jsem poslal/otevrel na SQL server).
Jednosmernost SELECTu je prece vlastni vsem SQL implementacim.
To, ze muzeme v Delphi v DBGridu jezdit tam a zpet je zasluha BDE,
ktere vse cachuje v pameti.
Pri 4 milionech zaznamu za to zaplatime tim,
ze se to nevejde do pameti klienta.
Je jasne ze skok na konec svadi k tomu, ze by to mohl nekdo nejak
optimalizovat, ale prece nejsou zaznamy jen na zacatku a na konci!
Jsou prece zaznamy i uprostred!!!
Kolik casu by mu asi tak zabralo kdyby
chtel opravit zaznam cislo 2000000?
Jak se dostanes v DBGridu na zaznam 2000000 z 4000000?
Pomoci PgUp nebo PgDn? Dekuji nechci!!!
Pomoci vyhledavani? Ano!!!
Ale v tom pripade na co DBGrid kdyz vim, ktery zaznam chci?
Neni lepsi radeji implementovat poradne vyhledavani?
Rob
UnixToDos
[*] voltrr1.epr(zv)mail.cez(tec)cz - 7.10.1999 18:07:41
Zdar,
nemate nekdo port procedury UnixToDos do Pascalu ??
Diky
Radek
TClientSocket pouzity jako funkce
[*] Stanislav �mejkal <S.Smejkal(zv)sh.cvut(tec)cz> - 7.10.1999 19:24:26
Potrebuju provest TCP/IP komunikaci (pristup na server) tak, aby se
pripojit, cosi vycetl a zase odpojil. Komponenta TClientSocket umoznuje
praci v tzv. ctBlocking nebo ctNonBloking modu.
Vytvarim komponentu za chodu programu a ownera nastavuji na nil (je to jen
funkce). Pokud pracuji v ctBlocking modu tak vse funguje az do chvile, kdy
se chci dostat na adresu ktera neexistuje (je to v lokalni siti na jednom
segmentu) a nez komponenta pochopi, ze se nepripoji, tak to trva cca 30 s a
nejde to shodit. Pokud pracuji v ctNonBlocking modu, tak mi pro zmenu
neprijde ani Event OnConnect, ani zadna jina.
Vite nekdo co s tim?
Standa
Ochrana softwaru
[*] Tom� Br�dle������i�^����? - 7.10.1999 19:47:57
Zdravim,>>Ing. Jaroslav �ke��k wrote:
>>> Eticke neeticke - ja bych takovy software nikdy nekoupil!
>>> Software, ktery z meho pocitace odesila jakekoliv informace
>>> bez meho vedomi nekomu jinemu, ja povazuji za VIR!
>
>Jeste k tomuto:
>Myslis ze generator GUID je taky VIR?
>
>Rob
>
Co mas presne na mysli s tim generatorem ? Priznam se, ze netusim, jak
funguje, nikde jsem na to jeste nenarazil. Jak tedy vlastne funguje ?
diky
Tomas
t.bradle(zv)pvtnet(tec)cz
Blob v DBEditu
[*] Tom� Br�dle������i�^����? - 7.10.1999 19:50:24
Zdravim
mozna pomoci calculated fieldu, do DBEdit BLOB nejde.
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Ren� Otisk <otisk(zv)misel(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. ��jna 1999 10:58
P�edm�t: Blob v DBEditu
Hi,
Delphi 1 Win 3.11, Delphi 3 C/S WIN95/NT, Paradox
Da se nejak udelat, aby se mi v DBEditu zobrazovaly ty znaky Blob polozky, ktere mam v DB souboru. V definici pole si definuji, kolik znaku budu mit ulozeno v DB a ty tam prave chci dostat.
Dekuji
Sroub
Aktualni radek DBMema
[*] Tom� Br�dle������i�^����? - 7.10.1999 19:50:18
Zdravim
zkus :
LineNo:=SendMessage(dbmemo.handle, EM LINEFROMCHAR, dbmemo.SelStart, 0);
nebo pro >64k (RichEdit) :
LineNo:=SendMessage(dbmemo.handle, EM EXLINEFROMCHAR, 0, dbmemo.SelStart);
Tomas
t.bradle(zv)pvtnet(tec)cz
Hi,
Delphi 3 C/S, Delphi1, Win95, W3.11.
Prosim poradte,
1.. Jak zjistim, na kterem radku (db)mema prave jsem20
2.. Jaky pouzit prikaz, aby se mi po nejake akci zobrazil v (db)memu prvni radek, ktery se pri predchozi editaci posunul nahoru? Nejsou (a nechci) tam ScrollBary.
Dekuji
Sroub
----------------------------------------------------------------------------
Jak dostat obrazky WMF do Pdx tabulky
[*] Tom� Br�dle������i�^����? - 7.10.1999 19:50:29
Zdravim
> Image1.Picture.LoadFromFile('d:\s2.wmf');
zkus :
> Image1.Picture.Metafile.LoadFromFile('d:\s2.wmf');
Tomas
t.bradle(zv)pvtnet(tec)cz
Ikona pri drag'n'drop
[*] Tom� Br�dle������i�^����? - 7.10.1999 19:50:26
Zdravim,
zkus vlastnost DragCursor (vsechny TControl a naslednici)
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. ��jna 1999 10:27
P�edm�t: Ikona pri drag'n'drop
>Ahojte,
>netusite, jak zmenit ikonu objektu tazenem pri drag'n'drop? Standardne
>se mi tam objevi takovy bily list papiru (asi A4). Musi se to delat pres
>vlastni cursor mysi nebo jak?
> Lukas
>
>-==============================================================-
> mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
> www: http://come.to/voborsky tel. 8551040-9 l. 393
>-==============================================================-
>
>
>
MSSQL 7.0 linked server
[*] Tom� Br�dle������i�^����? - 7.10.1999 21:10:17
Zdravim,>nejsem si uplne jist, ale jak si delal to pripojeni? Pres EM? To mi slo,
ale
>kdyz jsem to zkousel pres ulozene procedury, tak mi to taky nechtelo chodit
a
>pak jsem zjistil, ze jsem tam nenastavil prava. Na Access se dostanu takto
>(jestli to pujde pro DBF fakt nevim, zkus a dej mi vedet)
>
Diky za tip. Zkusil jsem ten Access podle Tebe a bylo to OK. Ale pokusil
jsem se to predelat na Foxku, ale nechodilo to, porad stejna chyba:
Server: Msg 7313, Level 16, State 1, Line 1
Invalid schema or catalog specified for provider 'MSDASQL'.
Pouzil jsem tento predelany skript :
USE master
GO
-- Pripoji soubor v Accessu
EXEC sp_addlinkedserver
(zv)server = 'FOX',
(zv)provider = 'MSDASQL',
(zv)srvproduct = 'ODBC Fox provider',
(zv)datasrc = 'MadleFP'
GO
-- Prida login na linked server
EXEC sp_addlinkedsrvlogin 'FOX', 'false'
GO
select * from fox...Faktury
GO
EXEC sp_dropserver 'FOX', 'droplogins'
GO
---------------------------------------------------------------------
Ale i tak diky
Tomas
t.bradle(zv)pvtnet(tec)cz
Struktura s dynamic array jako konstanta ?
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 7.10.1999 21:14:00
Casto pouzivam ruzne seznamy vytvarene dynamicky pomoci
array of TMujRecord. Nekdy potrebuju aby i TMujRecord mel
v sobe takovy seznam. I to v Delphi neni problem vse bez
problemu funguje. Lze vsak takovouto strukturu vytvorit jako
konstantu ? Domnivam se ze asi ne, ale doufam ze ANO.
type TSubEntry=record
seIntA:Integer;
seIntB:Integer;
seIntC:Integer;
end;
type TEntry=record
eName:String;
eInt:Integer;
eSubs:array of TSubEntry;
end;
const Entries:array[1..2] of TEntry=((
eName:'alfa';
eInt:1;
eSubs:array[1..3]=((seIntA:1;seIntB:2;seIntC:3), <-- jaka by mela byt sytnaxe ?
(seIntA:4;seIntB:5;seIntC:6),
(seIntA:7;seIntB:8;seIntC:9))
),(
eName:'beta';
eInt:2;
eSubs:array[1..2]=((seIntA:9;seIntB:8;seIntC:7),
(seIntA:6;seIntB:5;seIntC:4))
));
Ahoj
Daniel
TSession
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 7.10.1999 21:27:47
ahoj,
skusal som sa cvicne hrat s komponentami TSession ... V zasade je to v manuali opisane zrozumitelne, ale nie som si isty ci som spravne pochopil kedy pouzivat vlastne objekty TSession. Pri pristupe k databaze v jednej aplikaci z viacerych vlakien je to pomerne logicke, ale co myslel autor vetou "concurent connections or threads"? Co su to tie konkurentne konekty? Ved aplikacia predsa bezi v jednom threade, ako je mozne docielit paralelny pristup vramci jednej aplikacie bez pouzitia viacerych vlakien?
rw
TClientSocket pouzity jako funkce
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 7.10.1999 21:29:29
>funkce). Pokud pracuji v ctBlocking modu tak vse funguje az do chvile, kdy
>se chci dostat na adresu ktera neexistuje (je to v lokalni siti na jednom
>segmentu) a nez komponenta pochopi, ze se nepripoji, tak to trva cca 30 s a
myslim ze to je ok.
>nejde to shodit. Pokud pracuji v ctNonBlocking modu, tak mi pro zmenu
>neprijde ani Event OnConnect, ani zadna jina.
OnConnect by sa ani zavolat nemala, je potrebne nastavit prislusny debug
level a odchitit spravu chyby pripojenia...
rw
UnixToDos
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 7.10.1999 20:34:18
Ahoj,
> nemate nekdo port procedury UnixToDos do Pascalu ??
****Podivej se na funkci AdjustLineBreaks
Slavek
> Radek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
pristup k oracle v Thread
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 7.10.1999 20:36:41
> potrebujem pracovat s databazou v threade ale ma to problem a to ten =
> ze program mrzne. Napriklad pouzijem klasicky prikaz select * from data, =
> parkrat to bezproblemov funguje ale uz ked ten isty prikaz chcem pouzit =
> 5 krat tak cely program zmzne.
****Nemel bys mit pro kazdy thread vlastni TSession? Priklad je tusim
v MS v D3.
Slavek
> Bohdan
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Web browser
[*] Frantisek Fojtik <fera(zv)kolej.mff.cuni(tec)cz> - 7.10.1999 21:39:25
Nazdar vsici,
mohl by nkdo poradit kterou komponentu pouzit pro stahovani web
stranek, zkousel jsem TClientSocket, ale ta snad funguje jen pres
proxy.
Franta
Ulozeni TTreeNodes
[*] Pavel Cink <apscomp(zv)login(tec)cz> - 07.10.1999 21:52:06
Dobromil Maly p�e:
> Dobry den vsem,
>
> poradte prosim. Potreboval bych ulozit
> do souboru vlastnost Items u TreeView vcetne
> ImageIndex, Selected Index a podobne.
> Zkousel jsem metosu SaveToFile, ale ta
> ulozi pouze nadpisy polozek (property Text).
>
Ahoj,
tady to mas. Je to bez osetreni chyb.
procedure TForm1.UlozTreeClick(Sender: TObject);
var
TreeStream: TFileStream;
begin
TreeStream := TFileStream.Create('TREE.STR',fmOpenWrite or fmCreate);
TreeStream.WriteComponent(TreeView1);
TreeStream.Free;
end;
procedure TForm1.NactiTreeClick(Sender: TObject);
var
TreeStream: TFileStream;
begin
TreeStream := TFileStream.Create('TREE.STR',fmOpenRead);
TreeStream.ReadComponent(TreeView1);
TreeStream.Free;
end;
Pavel
dbgrid s jednim fieldem
[*] Ren� Otisk - 7.10.1999 23:55:59
Hi,
Chtel bych poprosit, jak bych mel resit nasledujici problem. Mam nejaky ciselnik (Pdox databaze) a ten taham pres TQuery. Na neho mam napichnuty DBGrid s jedinym sloupcem (DataType ftString) a DBMemo. Po insertu mam focused DBMemo, tam neco zapisu, presunu se na DBGrid a tam taky neco napisu. Tak a ted prichazi pri ulozeni muj problem. Kdyz zustanu na tom DBGridu, tak on mi potvora usata to, co jsem tam napsal (do toho DBGridu), neulozi. Ulozi se to jen v pripade, ze se pred ulozenim presunu na jiny field te databaze (tzn. kliknu na jedine jine pole - DBMemo), nebo kdyz jako prvni edituji ten DBGrid (pak uz nemusim ani preskakovat na DBMemo). Uz jsem z toho cela na vetvicce. Help...
Potreboval bych to pro D1.
Predem dekuji
Sroub
TClientSocket pouzity jako funkce
[*] Stanislav Smejkal <S.Smejkal(zv)sh.cvut(tec)cz> - 8.10.1999 00:21:25
A to se prosim Te dela jak?
Standa
> >funkce). Pokud pracuji v ctBlocking modu tak vse funguje az do chvile,
kdy
> >se chci dostat na adresu ktera neexistuje (je to v lokalni siti na jednom
> >segmentu) a nez komponenta pochopi, ze se nepripoji, tak to trva cca 30 s
a
> myslim ze to je ok.
>
> >nejde to shodit. Pokud pracuji v ctNonBlocking modu, tak mi pro zmenu
> >neprijde ani Event OnConnect, ani zadna jina.
> OnConnect by sa ani zavolat nemala, je potrebne nastavit prislusny debug
> level a odchitit spravu chyby pripojenia...
>
> rw
>OT: COM Port
[*] Bednar��k Dalibor - 8.10.1999 05:59:09
Ahoj
Jde se nejak napichnout na jiz pouzivany COM Port.
Presneji: chtel bych se napichnout na port modemu a sledovat vsechno co na nej chodi....
Predem dik
Dalibor.....
Ikony
[*] Milan Kotaska <mkotaska(zv)post(tec)cz> - 8.10.1999 07:06:28
Ahoj.
Shanim nejaky archiv ikon, ktere se daji pouzit jako obrazky na tlacitka.
Pokud nekdo vi, kde se daji takove ikonky sehnat, prosim dejte mi vedet.
Milan KOTASKA
mkotaska(zv)post(tec)cz
Virtual query
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 8.10.1999 07:28:19
>>Pisete ze je nezmysel mat 4 million. zaznamov v DBGride.
>>Ale to predsa tam nie je. Je tam vzdy iba jeden buffer.
>>Delphi ma chybu v tom, ze ak niekto chce skocit na koniec tak postupne
taha
>>zaznamy. Mal by to rozpoznat a ist od konce.
>>Mozno ze by sa to dalo opravit v source code ?
>
>>Aj prikaz Query.Last funguje tak zle?
>>Ak nie potom staci osetrit DBGride,
>>ak ano potom je to vazny nedostatok.
>>TUNGLI J�nos
>
>Zdrejme nevis o cem mluvis.
>To bych se pekne zlobil, kdyby mi Delphi (BDE) nejak zasahovali
>do Query (tedy prikazu, ktery jsem poslal/otevrel na SQL server).
>Jednosmernost SELECTu je prece vlastni vsem SQL implementacim.
>To, ze muzeme v Delphi v DBGridu jezdit tam a zpet je zasluha BDE,
>ktere vse cachuje v pameti.
>Pri 4 milionech zaznamu za to zaplatime tim,
>ze se to nevejde do pameti klienta.
>Je jasne ze skok na konec svadi k tomu, ze by to mohl nekdo nejak
>optimalizovat, ale prece nejsou zaznamy jen na zacatku a na konci!
>Jsou prece zaznamy i uprostred!!!
>Kolik casu by mu asi tak zabralo kdyby
>chtel opravit zaznam cislo 2000000?
>Jak se dostanes v DBGridu na zaznam 2000000 z 4000000?
>Pomoci PgUp nebo PgDn? Dekuji nechci!!!
>Pomoci vyhledavani? Ano!!!
>Ale v tom pripade na co DBGrid kdyz vim, ktery zaznam chci?
>Neni lepsi radeji implementovat poradne vyhledavani?
>
>Rob
TQuery funguje podle mne dobre, protoze pri dotazu na data
select jmeno, prijmeni from MojeVelkaTabulka
se na serveru provede tento prikaz s tim, ze si BDE natahne
jen tolik zaznamu, kolik potrebuje. Pri rolovani smerem dolu
se vzdy natahne ze serveru jen potrebny pocet zaznamu.
Nemusim snad vysvetlovat, ze tento pristup dosti setri sit.
Takze pokud uzivatel najede do ciselniku materialu, celkova
velikost asi 3000 vet, prenese se na klienta jen prvnich 50 zaznamu.
Pokud je treba natahnout vsechny zaznamy najednou, staci dat
Query1.FetchAll, samozrejme toto ma cenu jen v pripade,
ze tech zaznamu je tak tisic.
Muj osobni nazor je, ze aplikaci je treba vyladit tak, aby prenasela
mezi serverem a klientem co nejmene zbytecnych dat. Aplikace,
ktera chodi na LAN dobre, na WAN uz pokulhava, nemluve o vzdalenem
pripojeni pres modem.
Lidicky ted me napadlo, ze nepadlo ani slovo o tom proc,
by se tech 4 000 000 zaznamu melo zobrazit najednou ?
Marian Jonas
jonas(zv)ji(tec)cz
Nevim, jak to nazvat II
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 8.10.1999 08:33:39
Ahojda,
diky tem, kteri me odpovedeli na moji predchozi otazku. Mam tu neco podobneho.
Na Formu mam napr. 3 x DBGrid a 1 x Button. Kliknu na nejaky DBGrid a potom an
Button a chtel bych, aby mi Button vypsal, na jaky DBGrid jsem kliknul.
Jde to nejak a pokud ano, existuje nejake spolecne reseni nejen pro DBGridy a
Buttony ?
Diky moc
Vasek
Naslouchani
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 8.10.1999 08:36:12
Ahoj,
muzete mi prosim poradit ?
V aplikaci mam promenou napr. STAV typu Boolean. Potreboval bych "neco", co bude
neustale v aplikaci naslouchat a jakmile tuto promennou nekde zmenim, zareaguje
to napr. hlaskou.
Diky
Vasek
Ikony
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 8.10.1999 09:08:27
Zkus nasledujici odkazy, neco se tam najde
http://bestdownload.com/
http://www.pixelplace.com/
http://www.clubunlimited.com/freegallery/index.htm
http://website.lineone.net/~andrew-watts/happy.html
http://members.xoom.com/webworm/index.html
Martina a Karel Vlckovi
---------------------------------------------------------------
poskytovani software
mailto: podhradi(zv)telecom(tec)cz
telefon: ++420 329 781 631
mobil ++420 602 264 812
---------------------------------------------------------------
----- Original Message -----
From: Milan Kotaska <mkotaska(zv)post(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 08, 1999 7:06 AM
Subject: Ikony
> Ahoj.
> Shanim nejaky archiv ikon, ktere se daji pouzit jako obrazky na tlacitka.
> Pokud nekdo vi, kde se daji takove ikonky sehnat, prosim dejte mi vedet.
>
> Milan KOTASKA
> mkotaska(zv)post(tec)cz
DBCtrlGrid a jeho controls
[*] Vladimir Rohan <lucas(zv)lbc.pvtnet(tec)cz> - 8.10.1999 09:12:41
[Lenka Rohanova]
V komponente TDBCtrlGrid je mezi gridem a komponentami na nem jeste jeden
mezistupen
rodicu, ktery zrejme predstavuje panel pro radek gridu.
Proto je Grid.ControlCount=1.
Doporucuji proto pouzit TWinControl(Grid.Controls[0]).ControlCount.
Lenka Rohanova
-----Original Message-----
From: Tomas Balusek [mailto:tpplus(zv)zasova(tec)cz]
Sent: Tuesday, October 05, 1999 5:55 PM
To: delphi-l(zv)fwd(tec)cz
Subject: DBCtrlGrid a jeho controls
nevite nahodou nekdo jak pristupovat k jednotlivym Controls, ktere jsou
umisteny
na DBCtrlGrid (mne to hodi ControlCount =1 at jich tam dam kolik chci)?
Programove vytvoreni ODBC Data Source
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.10.1999 09:33:50
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 vsem,
vytvoril jsem v MS Accessu databazi a ovladacich panelech
jsem v ODBC vytvoril pro tuto databazi Data Source, na ktery
se lze potom v Delphi napojit.
Lze tento Data Source vytvorit programove z Delphi ?
Diky za odpoved...
Dobra.Jeste jednou Update Pack 1 pro D3
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 8.10.1999 09:36:39
Diky Richarde, to bylo to prave orechove.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> Zda jiz nahodou nemas verzi 3.01 (a tedy muzes aplikovat UP2)
> poznas tak, ze ze cas vytvoreni DELPHI32.EXE je 3:01 hod.
> Richard Valny richard.valny(zv)oku-st(tec)cz
Nevim, jak to nazvat II
[*] Martin Bodlak (delphi-l) <vyvoj(zv)atlascon(tec)cz> - 8.10.1999 09:38:10
> Na Formu mam napr. 3 x DBGrid a 1 x Button. Kliknu na nejaky DBGrid a
potom an
> Button a chtel bych, aby mi Button vypsal, na jaky DBGrid jsem kliknul.
>
> Jde to nejak a pokud ano, existuje nejake spolecne reseni nejen pro
DBGridy a
> Buttony ?
>
Nevim jak na to odpovedet 3a1/2... :))) Ale vazne:
Ja to delam tak, ze pri kliku na Grid si pamatuju posledni grid - na vsech
gridech mam v OnEnter neco jako LastGridClicked := (Sender as TGrid).
Pak pri vyvolani urciteho dialogu vim, ktery grid byl naposledy aktivni a
muzu pracovat vesele (nebo smutne) dal.
No a tento pristup lze pochopitelne aplikovat na kdeco a modifikovat az k
uspesnemu zvladnuti projektu (resp. prevezeni do Bohnic :) ).
Hezky den!
---
Martin Bodlak, +420-603-490135
http://members.xoom.com/bodlak
martin.bodlak(zv)iname.com
OT: COM Port
[*] Petrik <petrik(zv)geocities(tec)com> - 8.10.1999 09:42:25
Nazdarek,
Odpoved na mail z Friday, October 08, 1999:
BD> Ahoj
BD> Jde se nejak napichnout na jiz pouzivany COM Port.
BD> Presneji: chtel bych se napichnout na port modemu a sledovat vsechno co na nej chodi....
BD> Predem dik
BD> Dalibor.....
Uz sem si s tim hral kdysi ... NEJDE ...
Dokonce, kdyz sem si ho otevrel sam s parametrem
Share, tak sem pak na nej druhou aplikaci taky nemoh.
Pro sledovani pouzij RAS.
P.S. Pokud nekdo vi, ze to opravdu de, tak to chci taky vedet ! ;)
Cus,
Petrik mailto:petrik(zv)geocities.com
Nevim, jak to nazvat II
[*] Bednar��k Dalibor - 8.10.1999 09:42:31
No podle toho jak to chapu ja, tak bych to udelal asi nejak podobne...
Na vsech DBGridech bych nastavil udalost OnCLick na nazev stejne procedury
treba ...DBGRIDOnClick(Sender : TObject ...)
takze
procedure DBGridOnClick(Sender ; TObject ....);
begin
Jmeno := Sender as TDBGrid.Name
end;
No a pri Kliku tlacitka.....
ShowMessage(Jmeno)...treba
Jmeno je Globalni promenna
Win95
[*] Tibor Galik <tgalik(zv)vsz.sk> - 08.10.1999 08:44:24
Skusal som HP LJ4, Epson FX850 ovladace. Nepomohlo. Stale ten isty problem pretrvava.
tg
Zdravim Vas/Regards
Tibor Galik
tgalik(zv)vsz.sk
>>> Petr Vones <pvones(zv)mbox.vol(tec)cz> 09/23 10:49 odp. >>>
Tibor Galik wrote:
>
> Diky,
>
> pocul som vsak aj o OSR2.5
> nevies nieco o tom.
> Preco sa vlastne pytam ? Nainstaloval som W95 a tvrdili mi ze jeto OSR 2.5. Ale odvtedy mam problemy s QuickReportom. Predtym mi vsetlo fungovalo a teraz ked otvorim Frm s QuickReportom a umiestnim tam nejaku jeho komponentu padne mi to na chybe (pisem to s prace takze sa ospravedlnujem ale nepamatam si znennie) a chce Zavrit alebo Ignorovat. Niekolko krat stlacim Ignorovat a mozem robit. O chvilu je tam zase chyba, niekolkokrat ignore....Uz ma to prestava bavit.
> Inac mam nainstalovane vsetky servispacky pre Delphi4 a pre QuickReport.
Ahoj,
Mozna je to nesmysl, ale neni to spis chyba driveru aktualni tiskarny, ktery
QR nejakym zpusobem inicializuje ? Jinak posledni verze QR pro D4 je 3.0.5.
--
Petr Vones, amatersky programator
OT: Delphi a JAVA
[*] Lubos <bruce(zv)pobox.sk> - 08.10.1999 09:52:46
> Omlouvam se za mirny off-topic. Chtel bych v Delphi napsat aplikaci, ktera
> by se spojila s www serverem a komunikovala s nim stejne, jako to dnes dela
> clovek.
> Muj problem je v tom, ze neumim zjistit, co ta aplikace vlastne ma delat.
> Kdyz si pomoci IE5 zobrazim prislusnou stranku, vidim tam spoustu dat,
> grafu, tlacitek atd. Ale kdyz si to necham vypsat jako zdrojak, tak tam je
> jenom jakysi JavaScript, kteremu sice moc nerozumim, ale nezda se mi, ze by
> primo obsahoval nejakou grafiku a data. Nejspis si to taha jeste odnekud
> zvlast? Ale neumim zjistit, odkud a jak. A uz vubec nechapu, co tomu www
> serveru odpovida.
hmhm, najprv by si mal specifikovat, co vlastne chces robit.
Je rozdiel, ked chces programovo vyplnit nejaky formular, alebo simulovat
browsovanie, prip. chces stiahnut stranku na lokal.
/LH
--
"We are Microsoft. Resistance is futile. Open your source code and prepare for
assimilation."
Ikony
[*] Petr Bozek <bozek(zv)box(tec)cz> - 8.10.1999 09:53:05
Ahoj.
Muzu ti poslat archiv ikon se Simpsonama. :-)
Je jich asi 350.
Petr Bozek
----- Original Message -----
From: Milan Kotaska <mkotaska(zv)post(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 08, 1999 7:06 AM
Subject: Ikony
> Ahoj.
> Shanim nejaky archiv ikon, ktere se daji pouzit jako obrazky na tlacitka.
> Pokud nekdo vi, kde se daji takove ikonky sehnat, prosim dejte mi vedet.
>
> Milan KOTASKA
> mkotaska(zv)post(tec)cz
>
>
Naslouchani
[*] Roman Sladek <slado(zv)datapac.sk> - 8.10.1999 09:54:26
Sprav si to ako property a v nejakej metode na write do tejto premennej
si vypis co chces.
---
bye
Roman Sl�dek
-----Original Message-----
From: Vaclav_Lukes(zv)EUROTEL.CZ [mailto:Vaclav_Lukes(zv)EUROTEL.CZ]
Sent: Friday, October 08, 1999 8:36 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Naslouchani
Ahoj,
muzete mi prosim poradit ?
V aplikaci mam promenou napr. STAV typu Boolean. Potreboval bych "neco",
co bude
neustale v aplikaci naslouchat a jakmile tuto promennou nekde zmenim,
zareaguje
to napr. hlaskou.
Diky
Vasek
Ikony
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.10.1999 10:05:49
Treba tady:
http://www.purescience.com/delphi/download.htm
(je toho asi 10000 obrazku, ale nikdy jsem je
nepouzil; jsou tam treba helmy fotbalovych
druzstev a podobne...)
nebo tady
http://mujweb(tec)cz/pocitace/dcomp/download/delphi/glyphs1.zip
az glyphs3.zip
(tyhle obcas pouzivam, tam jsou obrazky typu hledej (dalekohled),
a podobne...)
Dobra.
> > Ahoj.
> > Shanim nejaky archiv ikon, ktere se daji pouzit jako obrazky na
> tlacitka.
> > Pokud nekdo vi, kde se daji takove ikonky sehnat, prosim dejte mi
> vedet.
> >
> Komp. WordApplication
[*] tomas.mazurek(zv)vitkovice(tec)cz - 8.10.1999 08:08:23
Hello,
v D5 mam pouzitou komponentu WordApplication z palety Servers. Kod
je takovyto:
var
aaa : variant;
begin
aaa := false;
WordApplication.Connect;
WordApplication.Visible := True;
WordApplication.Documents.Open('c:\working\047.doc',,,,,,,,,,);
Na poslednim radku mi komp. neustale hlasi:
[Error] Unit1.pas(34): Types of actual and formal var parameters must
be identical
Pricemz dle borlandiho zluteho hintu i microsofti napovedy by melo
byt vse s parametry OK. Tech parametru je 10 a jen prvni - tj. jmeno
souboru je povinne. Muze nekdo poradit? V tech parametrech jsem uz
zkousel ledacos True, False, promennou aaa... Snad mam neco spatne,
nechce se mi verit, ze by borlandi vypustili D5 s takovou chybou...
Dik
TM
Naslouchani
[*] Pavel �im��ek - 8.10.1999 10:17:50
Udelal bych to jako property nejakeho objektu, treba hlavniho formulare nebo
neceho co je pristupne odevsat.
Nevim kde mas tu STAV nadeklarovanou.
type
MyObject = class()
private
FSTAV: boolean;
procedure SetStav(Value: boolean);
public
property STAV: boolean read FSTAV write SetStav;
end;
procedure MyObject.SetStav(Value: boolean);
begin
if FSTAV <> Value then
begin
FSTAV:= Value;
Messagedlg('Promenna Stav zmenena blablabla, .........);
end;
end;
-----P�vodn� zpr�va-----
Od: Vaclav_Lukes(zv)EUROTEL.CZ <Vaclav_Lukes(zv)EUROTEL.CZ>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. ��jna 1999 9:31
P�edm�t: Naslouchani
>Ahoj,
>
>muzete mi prosim poradit ?
>
>V aplikaci mam promenou napr. STAV typu Boolean. Potreboval bych "neco", co
bude
>neustale v aplikaci naslouchat a jakmile tuto promennou nekde zmenim,
zareaguje
>to napr. hlaskou.
>
>Diky
>
>
>Vasek
>
>
>Resource a systemove prostredky
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 8.10.1999 10:17:55
Mam problem s komponentou (potomek TSpeedButton) ktera si natahuje bitmapy z
resource.
Po dynamickem odstraneni komponenty (free) se neuvolnuji systemove
prostredky (W95 i NT),
takze po opakovanem create a free postupne vycerpam pamet.
Ma nekdo stejny problem, popripade vi jak ho resit?
Mam D4Prof SP3 a z duvodu prace na vetsim projektu nemohu prejit na D5
Priklad
implementation
{$R *.RES}
procedure A;
var
BM: TBitmap;
begin
BM := TBitmap.Create;
try
BM.LoadFromResourceName('obrazek');
...neco...
finally
BM.Free;
BM := nil;
end;
end;
diky za kazde nakopnuti
Martin Kleiner
Naslouchani
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.10.1999 10:21:56
Miesto premennej daj komponent napr. CheckButton1.visible:=false;
a potom mas udalost OnChange.
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/
-----P�vodn� zpr�va-----
Od: Vaclav_Lukes(zv)EUROTEL.CZ <Vaclav_Lukes(zv)EUROTEL.CZ>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. okt�ber 1999 9:03
P�edm�t: Naslouchani
>Ahoj,
>
>muzete mi prosim poradit ?
>
>V aplikaci mam promenou napr. STAV typu Boolean. Potreboval bych "neco", co
bude
>neustale v aplikaci naslouchat a jakmile tuto promennou nekde zmenim,
zareaguje
>to napr. hlaskou.
>
>Diky
>
>
>Vasek
>
>
>Prvy zobrazeny zaznam v DBGride
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.10.1999 10:24:18
Caute,
da sa v D3 zistit RecNo zaznamu, ktory je prave zobrazeny
v nejakom DBGride na prvom riadku ?
Peter
Ochrana softwaru
[*] Robert Kindl <rob(zv)exec(tec)cz> - 8.10.1999 10:31:53
>>>Ing. Jaroslav �ke��k wrote:
>>>> Eticke neeticke - ja bych takovy software nikdy nekoupil!
>>>> Software, ktery z meho pocitace odesila jakekoliv informace
>>>> bez meho vedomi nekomu jinemu, ja povazuji za VIR!
>>
>>Jeste k tomuto:
>>Myslis ze generator GUID je taky VIR?
>>Rob
>Co mas presne na mysli s tim generatorem ? Priznam se, ze netusim, jak
>funguje, nikde jsem na to jeste nenarazil. Jak tedy vlastne funguje ?
>Tomas
GUID je global unique identifier
je generovan na zaklade cisla sitove karty jehoz unikatnost zarucuji jejich
vyrobci
plus zhruba cas pocitace
napr:
8D239F57-7258-11D3-A637-00A024EFEB08
ta prvni cast zavisi na case posledni 12 cisel je primo cislo sitove karty.
Proto jsem se plal zda vise uvedene prohlaseni zahrnuje take GUID,
nebot pri jejich pouziti dochazi k poslani "jakekoliv informace nekomu
jinemu".
Pouziti?
typicky COM/DCOM/ActiveX nebo v distribuovanych aplikacich client server
napr. MSSQL 7.0 je funkce NEWID() a type uniqueidentifier, ktere
dovoluji identifikovat zaznamy jednoznacne v distrubuovanem prostredi,
ktere neni spojeno online.
Rob
Parametre kompilatoru a linkeru
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 8.10.1999 10:37:45
D3 C/S
Vie niekto vyplut parametre ake pouziva Delphi pri kompilacii a linkovani v
prostredi ?
Ak to kompilujeme s makefile, program sa potom nechova rovnako ako pri
kompilacii v prostredi
Ide hlavne o konzolove aplikacie
Pravdepodobne niektory s parametrov nie je spravny ...
olej
Nevim, jak to nazvat II
[*] petr.motlicek(zv)bcbrno(tec)cz - 8.10.1999 11:00:05
From: Vaclav_Lukes(zv)EUROTEL.CZ
To: delphi-l(zv)fwd(tec)cz
Date sent: Fri, 8 Oct 1999 08:33:39 +0200
Subject: Nevim, jak to nazvat II
Send reply to: delphi-l(zv)fwd(tec)cz
> Na Formu mam napr. 3 x DBGrid a 1 x Button. Kliknu na nejaky DBGrid a potom an
> Button a chtel bych, aby mi Button vypsal, na jaky DBGrid jsem kliknul.
>
> Jde to nejak a pokud ano, existuje nejake spolecne reseni nejen pro DBGridy a
> Buttony ?
Zdravim,
podle mne by si mohl vyuzit globalni promenou Screen a jeji udalost
property OnActiveControlChange: TNotifyEvent;
Viz help.
.....a v teto udalosti si odchytavat komponenty
(if Screen.ActiveControl is TButton then xxxx else xxx),
ktereho typu chces neco jako
FLastButton := TButton(Screen.ActiveControl)
a to cele tedy udelat v tvem pripade i pro TDBGrid....
Petr Motlicek
SQL server pro Windows zdarma
[*] Milan Nemec <nemec(zv)goldcard(tec)cz> - 8.10.1999 11:07:20
Ahoj,
chtel jsem se zeptat, jestli jste zkouseli PostgreSQL (pgsql)
a jak se vam libi? Take by me zajimalo, jestli by jste
chteli tento server pouzivat?
Pripominam, ze pgsql je k dispozici zdarma i pro komercni
pouziti bez omezeni.
Zkompilovany port pro Windows NT je na
http://milan70.tripod.com/
Pgsql me funguje dobre.
Jestli to nekdo nemohl rozchodit, napiste u ktereho kroku
jste narazili. Pokud to nebude informace prinosna pro
vsechny v konferenci, odpovidejte na milan70(zv)email(tec)cz .
Predem diky za pozitivni i negativni ohlasy.
Milan
Programove vytvoreni ODBC Data Source
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 8.10.1999 11:16:51
Na to by mela existovat funkce SQLConfigDataSource, ale vic
ti neporadim nebot to nepouzivam. Pripojuji se k databazi
bez DSN (Data Source Name), takze nemusis nic nastavovat
v ovladacich panelech, nastavis to primo v aplikaci.
Misto funkce SQLConnect pouzijes SQLDriverConnect,
a jako parametr das ConnectionString, ktery v pripade
Accessu muze vypadat napriklad takto:
'Driver={Microsoft Access Driver (*.mdb)};'+
'DBQ=D:\Data.mdb;UID=admin;PWD=heslo'
Cele to plati pokud pouzivas primo ODBC, pokud jej
pouzivas prostrednitvim BDE, tak nevim zda lze
pouzit pripojeni pres ConnectionString.
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: #Delphi-K <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. ��jna 1999 9:33
P�edm�t: Programove vytvoreni ODBC Data Source
> Dobry den vsem,
>
> vytvoril jsem v MS Accessu databazi a ovladacich panelech
> jsem v ODBC vytvoril pro tuto databazi Data Source, na ktery
> se lze potom v Delphi napojit.
>
> Lze tento Data Source vytvorit programove z Delphi ?
>
> Diky za odpoved...
>
> Dobra.
>
OT: COM Port
[*] Bednar��k Dalibor - 8.10.1999 11:42:33
No, ja mam program, ktery se napichne na port, kterej mu zadam a on potom
znazornuje graficky stav registru...
Takze by to nejakym zpusobem mohlo jit. Nebo to je neco jineho, jako jina
situace...
-----P�vodn� zpr�va-----
Od: Petrik <petrik(zv)geocities.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. ��jna 1999 11:06
P�edm�t: Re: OT: COM Port
>Nazdarek,
>
>Odpoved na mail z Friday, October 08, 1999:
>
>BD> Ahoj
>
>BD> Jde se nejak napichnout na jiz pouzivany COM Port.
>BD> Presneji: chtel bych se napichnout na port modemu a sledovat vsechno co
na nej chodi....
>BD> Predem dik
>
>BD> Dalibor.....
>
>
>Uz sem si s tim hral kdysi ... NEJDE ...
>Dokonce, kdyz sem si ho otevrel sam s parametrem
>Share, tak sem pak na nej druhou aplikaci taky nemoh.
>
>Pro sledovani pouzij RAS.
>
>P.S. Pokud nekdo vi, ze to opravdu de, tak to chci taky vedet ! ;)
>
>Cus,
> Petrik mailto:petrik(zv)geocities.com
>
>
>
Jak ulozit obrazek v PaintBoxu do BMP
[*] mbartone(zv)Synthesia(tec)cz - 8.10.1999 11:43:23
Ahoj,
mam obrazek nakresleny v PaintBoxu a potrebuji ho ulozit do souboru BMP.
v archivu konference jsem nasel od P.Vonese
procedure PaintBoxToBitmap(PaintBox: TPaintBox; Bitmap: TBitMap);
var
DC: HDC;
begin
Bitmap.Height := PaintBox.Height;
Bitmap.Width := PaintBox.Width;
PaintBox.Canvas.Lock;
DC := Bitmap.Canvas.Handle;
PaintBox.Perform(WM_ERASEBKGND, DC, 0);
PaintBox.Perform(WM_PAINT, DC, 0);
PaintBox.Canvas.UnLock;
end;
Image1.Picture.LoadFromFile('c:\x.wmf');
PaintBox1.Canvas.Draw(0,0,Image1.Picture.Graphic);
PaintBoxToBitmap(PaintBox1, Image2.Picture.Bitmap);
Image2.Picture.Bitmap.SaveToFile('c:\x.bmp');
Ulozi mi to pouze bile pozadi. Pritom v PaintBoxu je obrazek dobry.
Milan
Prepnuti kl. na overwrite
[*] Kvasar, spol. s r. o. <kvasar(zv)kvasar(tec)cz> - 8.10.1999 11:44:57
Caute,
potreboval bych prepnout klavesnici pri zobrazeni dialogu s RichEditem na
OVERWRITE a po ukonceni to vratit zpet. Vubec netusim jak na to.
Dik za kazdou radu
Honza Fiala
Tlac - koniec stranky
[*] J�n Grman�������e���zW��ۛg�$ - 8.10.1999 11:58:38
Caute.
V programe na ktorom pracujeme mame implementovany vlastny system na tlac zostav.
Jedna z moznych zostav je tlacenie uctovneho dokladu. Na komunikaciu s tlaciarnou sa pouziva objekt TPrinter.
Problem: pri tlaci na ihlickovu tlaciaren by som ju potreboval donutit aby po skonceni tlace NEODSTRANKOVALA papier.
Neviem ci sme niekde prehliadli nejake nastavenie, alebo to jednoducho pouzitim tohoto objektu nejde.
Vdaka za kazdu dobru radu.
JaNo:-)
Programove vytvoreni ODBC Data Source
[*] suvak(zv)pbko.sk - 8.10.1999 11:18:22
Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> on 08.10.99 08:33:50
Please respond to delphi-l(zv)fwd(tec)cz
To: #Delphi-K <delphi-l(zv)fwd(tec)cz>
cc: (bcc: Peter Suvak/0110/pbko/sk)
Subject: Programove vytvoreni ODBC Data Source
Dobry den vsem,
vytvoril jsem v MS Accessu databazi a ovladacich panelech
jsem v ODBC vytvoril pro tuto databazi Data Source, na ktery
se lze potom v Delphi napojit.
Lze tento Data Source vytvorit programove z Delphi ?
Diky za odpoved...
Dobra.
[Peter Suvak]
Tato cast kodu vytvori potrebne ODBC DSN pre ACCESS databazu.
Je to nutne vylepsit, napr. zistit, ci je instalovane ODBC, ci DSN uz
existuje atd. Ale ako priklad by to malo stacit. takto vytvoreny ODBC DSN
sa objavi aj v ovladacich paneloch v ODBC.
Reg.RootKey := HKEY CURRENT USER;
if not Reg.OpenKey('SOFTWARE\ODBC\ODBC.INI\MOJE DSN', False) then
begin
Reg.CreateKey('SOFTWARE\ODBC\ODBC.INI\MOJE DSN');
Reg.CreateKey('SOFTWARE\ODBC\ODBC.INI\MOJE DSN\ENGINES\JET');
Reg.CloseKey;
Reg.OpenKey('SOFTWARE\ODBC\ODBC.INI\MOJE DSN', False);
// tu sa zapise absolutna cesta ku databaze
Reg.WriteString('DBQ',
ExtractFilePath(Application.ExeName)+'Data\MojaDatabaza.mdb');
// tu je nutne najs� SYS adresar pomocou API funkcie, nie
priamo, ako uvadzam o riadok nizsie
Reg.WriteString('Driver', 'C:\WIN98\SYSTEM\odbcjt32.dll');
Reg.WriteInteger('DriverID', 25);
Reg.WriteInteger('SafeTransactions', 0);
Reg.WriteString('FIL', 'MS Access;');
Reg.WriteString('UID', 'meno');
Reg.WriteString('PWD', 'heslo');
Reg.CloseKey;
Reg.OpenKey('SOFTWARE\ODBC\ODBC.INI\MOJE DSN\ENGINES\JET',
False);
// Reg.WriteString('ImplicitCommitSync', 'Yes');
Reg.WriteString('UserCommitSync', 'Yes');
Reg.WriteInteger('MaxBufferSize', 8192);
Reg.WriteInteger('PageTimeout', 5);
Reg.WriteInteger('Threads', 3);
Reg.CloseKey;
end
=============================================================
Ing. Peter Suvak, veduci oddelenia spravy systemov
Priemyselna banka, a.s. Kosice
Sturova 27
040 01 Kosice
tel: 095 / 6804 282
fax: 095 / 6804 510
mobil: 0903 610 901
============================================================
Programove vytvoreni ODBC Data Source
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.10.1999 12:20:23
Asi nerozumiem. V Delphi cez ODBC je mozne robit s MS Accessem bez problemu.
O co Vam ide?
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/
-----P�vodn� zpr�va-----
Od: Daniel Rott <roxton(zv)atlas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. okt�ber 1999 12:08
P�edm�t: Re: Programove vytvoreni ODBC Data Source
>Na to by mela existovat funkce SQLConfigDataSource, ale vic
>ti neporadim nebot to nepouzivam. Pripojuji se k databazi
>bez DSN (Data Source Name), takze nemusis nic nastavovat
>v ovladacich panelech, nastavis to primo v aplikaci.
>Misto funkce SQLConnect pouzijes SQLDriverConnect,
>a jako parametr das ConnectionString, ktery v pripade
>Accessu muze vypadat napriklad takto:
>'Driver={Microsoft Access Driver (*.mdb)};'+
>'DBQ=D:\Data.mdb;UID=admin;PWD=heslo'
>Cele to plati pokud pouzivas primo ODBC, pokud jej
>pouzivas prostrednitvim BDE, tak nevim zda lze
>pouzit pripojeni pres ConnectionString.
>
>Ahoj
>Daniel
>
>----- P�vodn� zpr�va -----
>Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
>Komu: #Delphi-K <delphi-l(zv)fwd(tec)cz>
>Odesl�no: 8. ��jna 1999 9:33
>P�edm�t: Programove vytvoreni ODBC Data Source
>
>
>> Dobry den vsem,
>>
>> vytvoril jsem v MS Accessu databazi a ovladacich panelech
>> jsem v ODBC vytvoril pro tuto databazi Data Source, na ktery
>> se lze potom v Delphi napojit.
>>
>> Lze tento Data Source vytvorit programove z Delphi ?
>>
>> Diky za odpoved...
>>
>> Dobra.
>>
>
>SQL server pro Windows zdarma
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.10.1999 12:22:15
Nema ODBC ?
Ak ano, tak Delphi vie pouzivat.
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/
-----P�vodn� zpr�va-----
Od: voltrr1.epr(zv)mail.cez(tec)cz <voltrr1.epr(zv)mail.cez(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. okt�ber 1999 12:08
P�edm�t: Re: SQL server pro Windows zdarma
>
>
>Nechtel by treba nekdo kdo ovlada tvorbu datasetu udelat TDataset pro
>tendle server (treba v ramci Delphree) ???
>
>
>Radek
>
>
>StretchDraw vykresluje predosly image
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.10.1999 12:23:51
Ahojte !
Vo fragmente kodu (v D3):
var JPG: TJpegImage;
IMG1: TImage;
IMG2: TImage;
begin
JPG := TJpegImage.Create;
IMG1 := TImage.Create ( self );
IMG1.Parent := self;
IMG1.width := 100;
IMG1.height := 100;
IMG1.Top := 5;
IMG1.Left := 5;
IMG2 := TImage.Create ( self );
IMG2.Parent := self;
IMG2.width := 100;
IMG2.height := 100;
IMG2.Top := 5;
IMG2.Left := 110;
JPG.LoadFromFile ( 'test1.jpg' );
IMG1.Canvas.StretchDraw ( Rect ( 0, 0, IMG1.Width, IMG1.Height ), JPG
);
JPG.LoadFromFile ( 'test2.jpg' );
IMG2.Canvas.StretchDraw ( Rect ( 0, 0, IMG2.Width, IMG2.Height ), JPG
);
si neviem dat rady. StretchDraw mi do IMG2 stale vykresluje predosly
obrazok, hoci v JPG je uz naloadovany druhy obrazok. Neviete, cim to
moze byt ?
Do JPEG-u sa obrazky nacitavaju spravne (Overil som si to cez
SaveToFile).
Potrebujem jeden JPegImage objekt pouzivat pre plnenie viacerych
TImages.
Ziadam od Delphi tak vela ?
Poradi mi niekto ?
Peter
SQL server pro Windows zdarma
[*] voltrr1.epr(zv)mail.cez(tec)cz - 8.10.1999 11:29:43
Nechtel by treba nekdo kdo ovlada tvorbu datasetu udelat TDataset pro
tendle server (treba v ramci Delphree) ???
Radek
Naslouchani
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 8.10.1999 12:35:55
Doporucuji udelat z promenne Vlastnost a napsat si set proceduru.
To pouzivam ja a vetsinou to bohate vyhovuje.
From: Vaclav_Lukes(zv)EUROTEL.CZ
To: delphi-l(zv)fwd(tec)cz
Date sent: Fri, 8 Oct 1999 08:36:12 +0200
Subject: Naslouchani
Send reply to: delphi-l(zv)fwd(tec)cz
> Ahoj,
>
> muzete mi prosim poradit ?
>
> V aplikaci mam promenou napr. STAV typu Boolean. Potreboval bych "neco", co bude
> neustale v aplikaci naslouchat a jakmile tuto promennou nekde zmenim, zareaguje
> to napr. hlaskou.
>
> Diky
>
>
> Vasek
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Resource a systemove prostredky
[*] Ivo Janal�k <janalik(zv)nam(tec)cz> - 8.10.1999 12:47:46
Podobny problem ma komponenta TRichEdit v D3. Resili jsme ten problem s P.Vonesem a psal jsem to i v konferenci.
Tato komponenta pridanim alokuje 2097152 bytes, po free uvolni ale jen 1048576 bytes. Necha tam proste pulku prostoru, kerou alokovala. Dalsi create a free se chova uplne stejne, vzdy zustane neuvolneno 1048576 bytes.
Aplikace je v D3 se SP DCS302, chova se to stejne v W95 i v NT4.
Vysledek: D5 to jiz nedela.
O D4 nevim, nemam.
Ivo Janalik
-----P�vodn� zpr�va-----
Od: Martin Kleiner [SMTP:mkleiner(zv)seznam(tec)cz]
Odesl�no: 8. ��jna 1999 10:18
Komu: Konference2; Konference Delphi
P�edm�t: Resource a systemove prostredky
Mam problem s komponentou (potomek TSpeedButton) ktera si natahuje bitmapy z
resource.
Po dynamickem odstraneni komponenty (free) se neuvolnuji systemove
prostredky (W95 i NT),
takze po opakovanem create a free postupne vycerpam pamet.
Ma nekdo stejny problem, popripade vi jak ho resit?
Mam D4Prof SP3 a z duvodu prace na vetsim projektu nemohu prejit na D5
Priklad
implementation
{$R *.RES}
procedure A;
var
BM: TBitmap;
begin
BM := TBitmap.Create;
try
BM.LoadFromResourceName('obrazek');
...neco...
finally
BM.Free;
BM := nil;
end;
end;
diky za kazde nakopnuti
Martin Kleiner
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.71 / Virov� b�ze: 38 - datum vyd�n�: 26.7.1999
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.71 / Virov� b�ze: 38 - datum vyd�n�: 26.7.1999
Mizejici ImageList obrazky v Delphi4
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 8.10.1999 13:23:58
Ahoj,
odstranili jsme dbnavigatory za ucelem obejiti nedostatku GDI zdroju a
pomohlo to. Ovsem jen do okamziku, kdy na nekterych zakaznickych pocitacich
(vsechny s W95), zacaly mizet obrazky z cudliku na toolbaru (pres
ImageList). Nekde pomohla vymena CTL3D32.DLL. Jinde pomohlo vymazat obrazky
z ImageList a znovu je tam dodat a prelozit to. Nekde nepomohlo nic.
Na Windows98 fungovalo vsechno a vzdy.
Setkal jste se s tim nekdo? Nevite co s tim?
Leos
Parametre kompilatoru a linkeru
[*] J�n Grman�������e���zW��ۛg�$ - 8.10.1999 13:36:27
Pozri subor s priponou DOF ktory sa nachadza spolu s DPR suborom.
JaNo
>Vie niekto vyplut parametre ake pouziva Delphi pri kompilacii a linkovani v
>prostredi ?
SQL server pro Windows zdarma
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 8.10.1999 14:17:57
zdravim,
ako sa k nemu pripojim z delphi ?
martin
-----P�vodn� spr�va-----
Od: Milan Nemec <nemec(zv)goldcard(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 8. ��jna 1999 12:24
Predmet: SQL server pro Windows zdarma
>Ahoj,
>
>chtel jsem se zeptat, jestli jste zkouseli PostgreSQL (pgsql)
>a jak se vam libi? Take by me zajimalo, jestli by jste
>chteli tento server pouzivat?
>
>Pripominam, ze pgsql je k dispozici zdarma i pro komercni
>pouziti bez omezeni.
>Zkompilovany port pro Windows NT je na
>http://milan70.tripod.com/
>
>Pgsql me funguje dobre.
>
>Jestli to nekdo nemohl rozchodit, napiste u ktereho kroku
>jste narazili. Pokud to nebude informace prinosna pro
>vsechny v konferenci, odpovidejte na milan70(zv)email(tec)cz .
>
>Predem diky za pozitivni i negativni ohlasy.
>
>Milan
Vyhledavani textu
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 8.10.1999 13:18:29
Je neco znamo o tech retezcich, podretezcich ?
Snad by se dal pouzit Bitmapovy index (princip), ale je treba znat neco o retezci
(alespon), predpokladam, ze by bylo nejlepe kdyby tam fungovaly zastupne znaky. :(
Jsou ty retezce tvoreny ze slov ? Pokud ano, tak vytvorit BMP index nad temi slovy.
Pocet slov v beznem zivote neni nijak zavratny (asi tisice).
Jak vytvorit obdobu BMP indexu:
1.rozdelit soubor na 65536 (256) stejnych dilu
2.Pro kazde slovo bude treba vektor 65536(256)x1Bit
3.Projit soubor po dilech, a tam kde se vyskytne prislusne slovo nastavit bit na 1.
4.Hledat nejprve ve slovniku, a potom teprve v BMP indexu, a pak v prislusnych dilech
5.Pro kratka slova to bude mnohem pomalejsi nez full scan
Slavek
-----P�vodn� zpr�va-----
Od: Viktor Lostak [SMTP:Viktor.Lostak(zv)chmi(tec)cz]
Odesl�no: 7. ��jna 1999 7:12
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Vyhledavani textu
Mam nasledujici problem - v aplikaci je jakysi seznam retezcu, kterych je
cca nekolik milionu. Pochopitelne lezi nekde na disku, ale to neni
podstatne. Dulezite je, ze chci z techto retezcu vybrat ty, ktere obsahuje
nejaky podretezec. Samozrejme to muzu udelat sekvencnim prochazenim, ale,
jak sami nahlednete, je to pro takove mnozstvi ponekud zdlouhave. Proto
touzim po nejakem algoritmu, pomoci nehoz bych k tem retezcum vytvoril
nejaky rafinovany index, v nemz by se to pak vyhledavalo skoro samo. Nevite
o nejakem takovem postupu?
Viktor
P.S. Reseni zalozena na SQL serverech a takovych zbesilostech me nezajimaji,
jde mi prave jen o ten algoritmus.Z PARADOXU do SQL
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 8.10.1999 14:19:07
<color><param>7F00,0000,0000</param>> Interbase. Muzete me nekdo par slovy upozornit na ocekavana uskali tohoto,
> prevodu a Interbase jako takove.<paraindent><param>right</param><flushboth></color>Na CD z Inprise konference je clanek</paraindent></flushboth>
<paraindent><param>right</param><flushboth>Upsizing Paradox Databases to InterBase by James Arias-La Rheir</paraindent></flushboth>
Dale tam je napr.
Introduction to InterBase, Markus Kemper
v nem jsou informace uzitecne k precteni pred koupi IB.
Myslim ze by to melo byt na webu Borlandu nebo Interbase, popr. mohu i
poslat.<italic></italic>Osobne si myslim, ze prechod na IB pusobi zcela urcite mene problemu a
zdrzeni nez ta, ktera jsou dennim chlebem pri praci se souborovou databazi.> Je mozno IB doporucit -
Myslim ze ano. Nemam sice porovnani s jinymi databazemi, ale prechod na IB
jsem absolvoval zhruba pred rokem stale nemam zadny duvod proc volby
litovat. Myslim ze duvody uvadene ve firemnich materialech o IB nelzou -
vyhody multigeneracni architektury, snadna (temer nulova) sprava,
bezproblemovy provoz ... Za podstatny argument ve prospech IB pro
programatora v Delphi osobne povazuji tez komponenty IBX. Jiri Binder<bold>
<nofill>SQL server pro Windows zdarma
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 8.10.1999 13:50:08
Zkousel jsem pod Linuxem z DELPHI,
Vyhody: Cena, Dedicnost tabulek, datove typy, moznosti
Nevyhody: ODBC, nepodporuje jej RKS CASE, referencni integrita a trigry se nepisi standartne, na pomalych strojich vykon.
Je poznat, ze to nebylo navrhovano jako SQL databaze.
Pouzivam verzi 6.3.
Zatim neplanuji zadne nasazeni. Jeste bych chtel provest test nad vetsimy obemy dat, ale neni cas (srovni z IB4, oboji pod Linuxem). Slavek
-----P�vodn� zpr�va-----
Od: Milan Nemec [SMTP:nemec(zv)goldcard(tec)cz]
Odesl�no: 8. ��jna 1999 10:07
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: SQL server pro Windows zdarma
Ahoj,
chtel jsem se zeptat, jestli jste zkouseli PostgreSQL (pgsql)
a jak se vam libi? Take by me zajimalo, jestli by jste
chteli tento server pouzivat?
Pripominam, ze pgsql je k dispozici zdarma i pro komercni
pouziti bez omezeni.
Zkompilovany port pro Windows NT je na
http://milan70.tripod.com/
Pgsql me funguje dobre.
Jestli to nekdo nemohl rozchodit, napiste u ktereho kroku
jste narazili. Pokud to nebude informace prinosna pro
vsechny v konferenci, odpovidejte na milan70(zv)email(tec)cz .
Predem diky za pozitivni i negativni ohlasy.
Milan
OT: COM Port
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.10.1999 15:00:16
>
>Uz sem si s tim hral kdysi ... NEJDE ...
>Dokonce, kdyz sem si ho otevrel sam s parametrem
>Share, tak sem pak na nej druhou aplikaci taky nemoh.
>
>Pro sledovani pouzij RAS.
>
>P.S. Pokud nekdo vi, ze to opravdu de, tak to chci taky vedet ! ;)
Napsat si vlastni COM port driver ? :-) To bude fungovat urcite...
Zdravi
D. Toman
Proc nejsou videt ikony?
[*] Petr Danek <petrd(zv)atlas(tec)cz> - 8.10.1999 15:01:41
Mam v okne toolbar s tlacitky. U me na ruznych pocitacich s W95, W98 i NT jsou na tlacitkach zobrazeny ikony. U zakaznika na pocitacich s W95 a NT se ikony na stejne verzi programu i po opakovanem prekladu nezobrazuji. Nevite cim to muze byt. Dik za radu.
Petr Danek
petrd(zv)atlas(tec)cz
Otevreni noveho sesitu MS Excel z Delphi
[*] martin.falta(zv)obi(tec)cz - 8.10.1999 15:01:07
Zdravim,
mam nasledujici problem: V D3 potrebuji otevrit novy sesit MS Excel 97 podle
urcite sablony, kterou si uzivatel vybere za behu programu. Nevedel by nekdo z
Vas, jak na to?
Diky.
Martin
Parametre kompilatoru a linkeru
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 8.10.1999 15:02:27
Dik
Uz som na to prisiel
Je to v Helpe
v Editore staci stlacit CTRL+O O (oo nie nuly)
a na zaciatok zdrojaku sa hodia aktualne nastavenia kompilatoru
olej
> -----Original Message-----
> From: J�n Grman
> Sent: 8. okt�ber 1999 13:36
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Parametre kompilatoru a linkeru
>
> Pozri subor s priponou DOF ktory sa nachadza spolu s DPR suborom.
> JaNo
>
> >Vie niekto vyplut parametre ake pouziva Delphi pri kompilacii a linkovani
> v
> >prostredi ?
> Mizejici ImageList obrazky v Delphi4
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 8.10.1999 15:15:48
Na zaklade mojich skusenosti nikdy nie
su problemy, ked:
1. je nainstalovana spravna DLL
2. ImageList sa naplni az za behu programu
Jednoducho to staci urobit tak, ze pri navrhu aplikacie sa naplni
ImageList, exportne sa do suboru XXX.BMP a ten sa prida do res (rc).
Potom sa z ImageList vyhadzu vsetky obrazky a skompiluje.
V aplikacii volat napriklad ImageList.ResourceLoad.
forgo
>odstranili jsme dbnavigatory za ucelem obejiti nedostatku GDI zdroju a
>pomohlo to. Ovsem jen do okamziku, kdy na nekterych zakaznickych pocitacich
>(vsechny s W95), zacaly mizet obrazky z cudliku na toolbaru (pres
>ImageList). Nekde pomohla vymena CTL3D32.DLL. Jinde pomohlo vymazat obrazky
>z ImageList a znovu je tam dodat a prelozit to. Nekde nepomohlo nic.
��seln� hodnoty bun�k StringGridu
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 8.10.1999 15:32:54
Toto je v Helpu k TStringGrid
OnGetEditMask occurs when the in-place editor requests an edit mask.
type TGetEditEvent = procedure (Sender: TObject; ACol, ARow: Longint; var
Value: string) of object;
property OnGetEditMask: TGetEditEvent;
Description
Write an OnGetEditMask event handler to provide the in-place editor with an
edit mask that describes the valid input strings a user can type into a
cell. Set the Value parameter to the string that describes the edit mask
for the cell specified by the ACol and ARow parameters. If the cell does
not have an edit mask, set the Value parameter to an empty string.
OnGetEditMask does not occur unless the Options property includes
goEditing.
-----P�vodn� zpr�va-----
Od: Fryz, Zdenek [SMTP:fryz(zv)dcb(tec)cz]
Odesl�no: 4. ��jna 1999 13:58
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: ��seln� hodnoty bun�k StringGridu
neco podobneho jsem delal tak, ze jsem pro vstup hodnot do StringGridu
pouzil TCurrencyEdit (myslim, ze je to z RX),
ktery umoznuje ruzny format vstupu hodnot, napriklad
jenom cisla atd.
timto editem jsem pak prekryl prislusnou bunku gridu
zobrazeni editu jsem delal takto:
procedure TForm1.GridSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
var
Rect:TRect;
begin
Rect:=Grid.CellRect(col,row);
fldEdit.Height:=Grid.DefaultRowHeight;
fldEdit.Width:=Grid.ColWidths[Col];
if (Rect.top=0) or (Rect.Top+fldEdit.Height>Grid.Height)then
fldEdit.visible:=False else fldEdit.visible:=True;
fldEdit.left:=Grid.Left+Rect.Left+2;
fldEdit.top:=Grid.top+Rect.top+2;
fldEdit.Text:=Grid.Cells[Col,Row];
end;
procedure TForm1.GridTopLeftChanged(Sender: TObject);
var b:Boolean;
begin
GridSelectCell(Sender,Grid.Col,Grid.Row,b );
end;
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Ren� Otisk [SMTP:otisk(zv)misel(tec)cz]
> Odesl�no: 04.10.1999 11:55
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: ��seln� hodnoty bun�k StringGridu
>
> Hi,
>
> Delphi 1 Win 3.11, Delphi 3 C/S WIN95/NT
>
> Potreboval bych prosim zajistit u StringGridu, aby uzivatel mohl zadat
> pouze hodnoty typu Extended. Zkousel jsem to pres OnKeyDown, Up i Press,
> ale to mi po zadani jen ukazalo, ze je ta hodnota blba. Ja bych
> potreboval, abych mohl stisknout jen cisla a carku tzn. nejak odchytavat
> ostatn� klavesy a rusit je (kdyz mam StringGrid.Focused)
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is
confidential.
Mizejici ImageList obrazky v Delphi4
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 8.10.1999 15:35:13
Ahoj,
mel jsem pred casem stejny problem. Viz. archiv a pomohla vymena
knihovny comctl32.dll ve WIN95 za novejsi verzi. Na CD Delphi je
40comupd.exe, ktery by mel provest update na "chodivou" verzi.
Honza.
----- P�vodn� zpr�va -----
Od: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. ��jna 1999 13:23
P�edm�t: Mizejici ImageList obrazky v Delphi4
> Ahoj,
> odstranili jsme dbnavigatory za ucelem obejiti nedostatku GDI zdroju
a
> pomohlo to. Ovsem jen do okamziku, kdy na nekterych zakaznickych
pocitacich
> (vsechny s W95), zacaly mizet obrazky z cudliku na toolbaru (pres
> ImageList). Nekde pomohla vymena CTL3D32.DLL. Jinde pomohlo vymazat
obrazky
> z ImageList a znovu je tam dodat a prelozit to. Nekde nepomohlo nic.
> Na Windows98 fungovalo vsechno a vzdy.
> Setkal jste se s tim nekdo? Nevite co s tim?
> Leos
Jak pracuje SUBST
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 8.10.1999 15:42:53
Ja vim jak se ovlada subst. Co me zajima, jak pracuje UVNITR - jak je
naprogramovan - jak rekne systemu ze chce pridat virtualni disk a
presmerovat pozadavky jinam. Chci to proto, ze subst nelze pouzit na CD-ROM.
----- Original Message -----
From: Zdeno Jasek <zdeno.jasek(zv)corinex.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 07, 1999 9:55 AM
Subject: Re: Jak pracuje SUBST
> Subst je MS-DOSovsky prikaz, ktory funguje aj vo Windows. Spusti si
> pr�kazovy riadok a zadaj "subst /?".
>
> Kry�tof Hoder wrote:
>
> > Nevi nekno jak pracuje prikaz subst?
> > Vim ze vytvori virtualni jednotku a presmerovava pozadavky na ni nekam
> > jinam.
> > Ale jak tu virtualni jednotku vytvorit??
> > A jak chytat pozadavky???
> > Pujde to v Delphi, nebo jsou na to potreba VXDs????
> >
> > Thanx for help.
> > Krystof
>
>