Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
FB rychle vkladani zaznamu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 26.6.2002 06:51:28
> kdyz IBTable je komfortni, alespon pro import dat...
no, me prijde jeste komfortnejsi TIBSQL. zvlaste pro
import dat. tedy kdyz pominu moznost externich tabulek.
nasledujici prikladek je takova jednoducha procedura
pro import dat. trvas-li na klikacim navrhu, tak muzes
mit komponentu TIBSQL na formulari a napsat si dotaz
pri navrhu.
priklad:
procedure TfImportDOS.Button5uClick(Sender: TObject);
var
t: TDBF;
q: TIBSQL;
begin
Start:=now;
t:=TDBF.Create(Self);
q:=TIBSQL.Create(Self);
try
q.Database:=fDM.IBDatabase1;
q.Transaction:=fDM.IBTransaction1;
if not q.Transaction.Active then
q.Transaction.StartTransaction;
q.SQL.Text:=
'insert into Tabulka (Pole_A, Pole_B, Pole_C)'#13+
'values (:Pole_A, :Pole_B, :Pole_C)';
q.Prepare;
t.FilePath:=CestaDOS;
t.TableName:='EXPORT.DBF';
t.Open;
t.First;
while not t.Eof do
begin
q.Params[0].AsInteger:=t.Fields[1].AsString;
q.Params[1].AsString:=t.Fields[1].AsString;
q.Params[2].AsString:=t.Fields[2].AsString;
q.ExecQuery;
t.Next;
end;
t.Close;
q.Transaction.Commit;
finally
t.Free;
if q.Transaction.Active then
q.Transaction.Rollback;
q.Free;
end;
Stop:=now;
end;> stejne pracuje IBTable i IBSQL interne s SQL dotazy, ne?
to sice ano, ale pokud vim, tak u IBTable do toho nemuzes
zasahovat. pokud vim, tak IBTable si sestavi dotaz sama.
peca
TDB - pocet poloziek
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 26.6.2002 06:56:07
> Mam komponentu TDBF. V databaze zapnem filter a v procedure
> urcite polozky. Ako teraz zistim pocet zobrazenych poloziek?
pocet:=DBF1.RecordCount;
kdyby to neslo, muzes zkusit
DBF1.Last;
pocet:=DBF1.RecNo;
peca
Sloupec typu FLOAT: hodnota 1,1 = 1,10000002384186
[*] Ing. Pavel �ilinec����)b���zf���3 - 26.6.2002 06:58:37
Nevim jak na IB, ale na SQL jsme meli podobny problem a tak jsme
zacali misto Float pouzivat Money a uz je to OK. Pokd ovsem potrebujes
vic jak 4 des. mista, tak pouzij Decimal (pokud jej IB umoznuje).
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
lcc> Zdravim,
lcc> mam tabulku v IB se sloupcem typu FLOAT.
lcc> Kdyz do nej zapisu hodnotu 1,1 , dostanu vysledek 1,10000002384186.
lcc> Kdyz do nej napisu hodnotu 1,5 , dostanu vysledek 1,5.
lcc> Je to normalni?
lcc> Bob
FB rychle vkladani zaznamu
[*] Lauko Stefan <laukosw(zv)naex.sk> - 26.6.2002 07:04:40
Ahoj,
pouzitim ibTable stracas mnoho dalsich moznosti ktore sa daju jednoducho
vyuzit pouzitim napr. IBDataSet.
V tomto momente ma napada napr. triedenie, filtracia zaznamov jednoduchou
zmenou SelectSQL v runtime.
Lauko.
From: "bleak" <bleak(zv)atlas(tec)cz>
> proc nepouzivat ibTable? Myslis, kvuli tomu, ze data nejsou ihned fyzicky
> zapsana do databaze? Mohu pouzit IbSQLTransact.Commit, to snad zapis
> provede... ne?
> ----- Original Message -----
> From: "Skopalik Slavomir" <skopalik(zv)hlubocky.del(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, June 24, 2002 9:19 AM
> Subject: RE: FB rychle vkladani zaznamu
>
>
> > NIKDY nepouzivej IBTABLE !
> > Pouzij ibsql a transakci typu readcommited pro rychlost, nebo snapshot
pro
> bezpecnost.
> > Ja jsem zkousel vkladat do tabulky jeden string v ulozne procedure a
> rychlost byla
> > >> 10000 zaznamu za sekundu (2xPIII(zv)1GHz,512MB RAM, 5xSCSI 10K otacek
RADI
> 5).
> > Dale hodne zalezi na HW, ktery je pouzit, vzhledem k tomu, ze urcite
> pouzivas
> > forced write, tak je treba mit baterii zalohovan write back cache, toto
ti
> poskytne
> > vetsina RAID 5 radicu.
> > Dalsi urychleni dosahnes, jestlize budes pouzivat parametry misto prime
> tvorby SQL.
>
>
TDB - pocet poloziek
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.6.2002 07:07:54
26.6.2002 Petr Palicka:
>> Mam komponentu TDBF. V databaze zapnem filter a v procedure
>> urcite polozky. Ako teraz zistim pocet zobrazenych poloziek?
> pocet:=DBF1.RecordCount;
Tohle nepujde. RecordCount ti bude vracet stale celkovy pocet vet.
> kdyby to neslo, muzes zkusit
> DBF1.Last;
> pocet:=DBF1.RecNo;
Takhle zjistis cislo vety posledni filtrovane polozky, ale ne pocet
filtrovanych polozek.
Ten pocet bys zjistil jejich spocitanim (projit to v cyklu), ale to
muze byt u vetsich tabulek dlouhe:
i := 0;
j := DBF1.RecNo;
DBF1.DisableControls;
DBF1.First;
while not DBF1.EOF do begin
Inc(i);
Next;
end;
DBF1.Recno := j;
DBF1.EnableControls;
ShowMessageFmt('Pocet filtrovanych vet: %d z %d', [i, DBF1.RecordCount]);
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
case Sender.Tag - error
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.6.2002 07:11:47
> Mam komponenty HCButton (ma vlastni odvozena od TGraphicControl) a
> RxSpinEdit. Celkem 6 dvojic. Kazdy prvek ve dvojici ma stejny Tag. Na
> udalosti ze vsech prvku je povesena urcita procedura, kde potrebuji
> zjistit, ktery prvek byl pouzit, je mi ale jedno, jestli HCButton nebo
> RxSpinEdit. Jinymy slovy potrebuji Tag prvku, ktery vyvolal udalost.
> Nemuzu ale pouzit pretypovani ((Sender a THCButton).Tag), protoze
> stejnou proceduru volam z ruznych prvku a nechce se mi stejnou
> proceduru psat dvakrat s pouzitim pretypovani Senderu.
Ahoj,
property Tag je zalozena v tride TComponent, takze muzes Sender pretypovat na
TComponent a pujde to.
David Lebeda
DBMemo a programove vlozeni textu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.6.2002 07:16:37
> >To skutecne prida text ahoj na konec mema. Pokud uz tomu memu nedam
> >focus, je vse OK, ale jakmile chci obsah mema jeste doopravit, tento
> >nove pridany text zmizi. Co s tim?
>
> Pri nafokuseni mema si komponenta stahne aktualni hodnotu z datasetu.
> Resenim je nedavat ten text do mema ale primo do datasetu, tedy neco
> jako:
Ahoj,
to je presne to, co jsem potreboval vedet. Nechtel jsem ale ztracet cas studovanim
zdrojaku. Zapis primo do fieldu funguje radne. Diky.
David Lebeda
TGIFImageList
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 26.6.2002 07:24:48
Cau
nevite nekdo o komponente podobne TImageList ale s podporou animovanych gifu ? Tj. aby se do ni dalo vlozit nekolik animovanych gifu a pristupovat na ne pomoci indexu na jednotlive gify a dalsiho indexu urcujici jednotlivy snimek. Vracelo by to bud handle na memory context do ktereho byla dekomprimovana bitmapa a nebo jen ukazatel na dekomprimovana data. Jediny TGIFImageList jsem nasel v komponente nebo spise tride TGIFImage od Melandera (Item a SubImage) bohuzel se mi to nedari nejak pouzit.
Milos
FB rychle vkladani zaznamu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.6.2002 07:26:16
> proc nepouzivat ibTable?
Ahoj, neco uz je v jinych mailech, ale hlavni je obecna nefektivita prace IBTable
dana nikoli tim, ze by byla blbe naprogramovana, ale tim, jak to ma fungovat.
IBTable opravdu sestavuje interne SQL prikazy, ale bez moznosti to ovlivnit, takze:
1) Stahujes vsechny sloupce. Muzes jim nastavovat Visible, ale v dotazu jsou
vsechny.
2) Stahujes vsechny radky. Muzes pouzivat Filter nebo Range, ale az na klientovi
To znamena, ze na tabulkach s hodne daty nebo hodne sloupci, ktere Te nezajimaji,
musis po siti protlacit hodne zbytecnych dat a bude to pomale.
David Lebeda
nejblizsi zaznam pomoci sql
[*] Ing. Pavel �ilinec����)b���zf���3 - 26.6.2002 07:27:00
Koukni se na funkce Soundex, Difference
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
V> Ahojte,
V> pro nekoho trivialni, ale preci jen nemuzu prijit na to jak najit v tabulce
V> zaznam, ktery je nejvice podobny memu pozadavku. Napriklad mam sloupec s
V> cislama treba od 10 do 1000 s krokem 25 a chci najit radek na kterem je
V> zaznam co nejvice podobny 623. Melo by to jit nejak pomoci LIKE, ale za boha
V> nemuzu prijit na syntax. Nebo Near By ?
V> diky
V> Vladimir, D4, W98
FB rychle vkladani zaznamu
[*] <bleak(zv)atlas(tec)cz> - 26.6.2002 07:33:53
ZEOS ibTable tohle umi...
ibTable.SortByField
ibTable.Filter
toto se provadi pres SQL
bleak
-----Original Message-----
From: "delphi-l-owner(zv)clexpert(tec)cz" <delphi-l-owner(zv)clexpert(tec)cz> V tomto momente ma napada napr. triedenie, filtracia zaznamov jednoduchou zmenou SelectSQL v runtime.
DBMemo a programove vlozeni textu
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 26.6.2002 07:36:55
> Jedine reseni je nepouzivat DB-aware, ale obycejne komponenty, ktere
> si sam plnim.
> S pozdravem Karel Horky
Nebo si napsat vlastni DB-aware komponenty jako jsem to udelal treba ja a
funguje to nadmiru dobre (az me to samotneho prekvapilo) :))))
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
FB rychle vkladani zaznamu
[*] <bleak(zv)atlas(tec)cz> - 26.6.2002 07:36:53
diky za super prikladek...
jinak ano, mam IBTable pro otevreni jedne tabulky v aplikaci, vsechny ostatni se otviraji pres ibQuery
bleak
-----Original Message-----
From: "delphi-l-owner(zv)clexpert(tec)cz" <delphi-l-owner(zv)clexpert(tec)cz> no, me prijde jeste komfortnejsi TIBSQL. zvlaste pro
import dat. tedy kdyz pominu moznost externich tabulek.
nasledujici prikladek je takova jednoducha procedura
pro import dat.
to sice ano, ale pokud vim, tak u IBTable do toho nemuzes
zasahovat. pokud vim, tak IBTable si sestavi dotaz sama.
peca
Deravy pagecontrol
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 26.6.2002 07:38:02
Ahoj,
nevite jak se dela deravy pagecontrol? Je to pouzito napriklad u nastaveni tiskaren HP, kde maji pole tzv. rychleho nastaveni (asi nejaky groupbox s comboboxem a tlacitkem), ktere prostupuje vsemi zalozkami (jako by tam byla dira, editacni prvek byl na pozadi a pri preklapavani stranek vykukuje a je stale na stejnem miste. Je tam dira nebo to plave nad pagecontrolem?
Diky
Jaro B.
Optimalizace db FB
[*] <bleak(zv)atlas(tec)cz> - 26.6.2002 07:39:21
nebude jen pro cteni, beru vas za slovo a na optimalizaci kaslu:-)
-----Original Message-----
Bude ten GDB soubor jen pro cteni ?
Pokud ne, tak na takovu "optimalizaci" muzes se vykaslat...
Unita CRT32 pro Delphi 6
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.6.2002 07:43:27
> > Nevite, prosim, co s tim provest, aby bylo mozno s CRT32 pracovat i
> > pod Delphi 6?
>
> Je opravdu nutne provozovat takoveto konzolove 'aplikace' v roce 2002
> ?
Ahoj,
je tedy nevim, co dela CRT32, ale taky se priklanim k tomu, do vyuky to
nezatahovat, protoze to je umela vec, ktera se v praxi jinak zrejme nepouziva (cest
vyjimkam).
Jakozto absolvent vasi VOS (1992 - 1996) ocenuji kvalitni zaklady Pascalu, ktere se
v te dobe ucily, ale domnivam se, ze tyto zaklady lze budovat i bez CRT32 (o co
vlastne jde? Barvu texu, gotoxy apod., nebo je v tom neco vic?)
Zdravi
David Lebeda
Async32 pod W2000
[*] Slavomir Cekel <cekel(zv)noves.sk> - 26.6.2002 08:03:22
Zdravim, neviete niekto co treba vsetko nastavit, aby som vo W2000 mohol
pracovat s COM portom pomocou komponenty Async32 ??? Slavo
Crc ze Stringu jak
[*] Jenich <jenich(zv)volny(tec)cz> - 26.6.2002 08:05:39
const Table: Array[0..255] of LongWord =
($00000000, $77073096, $EE0E612C, $990951BA,
$076DC419, $706AF48F, $E963A535, $9E6495A3,
$0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,
$09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91,
$1DB71064, $6AB020F2, $F3B97148, $84BE41DE,
$1ADAD47D, $6DDDE4EB, $F4D4B551, $83D385C7,
$136C9856, $646BA8C0, $FD62F97A, $8A65C9EC,
$14015C4F, $63066CD9, $FA0F3D63, $8D080DF5,
$3B6E20C8, $4C69105E, $D56041E4, $A2677172,
$3C03E4D1, $4B04D447, $D20D85FD, $A50AB56B,
$35B5A8FA, $42B2986C, $DBBBC9D6, $ACBCF940,
$32D86CE3, $45DF5C75, $DCD60DCF, $ABD13D59,
$26D930AC, $51DE003A, $C8D75180, $BFD06116,
$21B4F4B5, $56B3C423, $CFBA9599, $B8BDA50F,
$2802B89E, $5F058808, $C60CD9B2, $B10BE924,
$2F6F7C87, $58684C11, $C1611DAB, $B6662D3D,
$76DC4190, $01DB7106, $98D220BC, $EFD5102A,
$71B18589, $06B6B51F, $9FBFE4A5, $E8B8D433,
$7807C9A2, $0F00F934, $9609A88E, $E10E9818,
$7F6A0DBB, $086D3D2D, $91646C97, $E6635C01,
$6B6B51F4, $1C6C6162, $856530D8, $F262004E,
$6C0695ED, $1B01A57B, $8208F4C1, $F50FC457,
$65B0D9C6, $12B7E950, $8BBEB8EA, $FCB9887C,
$62DD1DDF, $15DA2D49, $8CD37CF3, $FBD44C65,
$4DB26158, $3AB551CE, $A3BC0074, $D4BB30E2,
$4ADFA541, $3DD895D7, $A4D1C46D, $D3D6F4FB,
$4369E96A, $346ED9FC, $AD678846, $DA60B8D0,
$44042D73, $33031DE5, $AA0A4C5F, $DD0D7CC9,
$5005713C, $270241AA, $BE0B1010, $C90C2086,
$5768B525, $206F85B3, $B966D409, $CE61E49F,
$5EDEF90E, $29D9C998, $B0D09822, $C7D7A8B4,
$59B33D17, $2EB40D81, $B7BD5C3B, $C0BA6CAD,
$EDB88320, $9ABFB3B6, $03B6E20C, $74B1D29A,
$EAD54739, $9DD277AF, $04DB2615, $73DC1683,
$E3630B12, $94643B84, $0D6D6A3E, $7A6A5AA8,
$E40ECF0B, $9309FF9D, $0A00AE27, $7D079EB1,
$F00F9344, $8708A3D2, $1E01F268, $6906C2FE,
$F762575D, $806567CB, $196C3671, $6E6B06E7,
$FED41B76, $89D32BE0, $10DA7A5A, $67DD4ACC,
$F9B9DF6F, $8EBEEFF9, $17B7BE43, $60B08ED5,
$D6D6A3E8, $A1D1937E, $38D8C2C4, $4FDFF252,
$D1BB67F1, $A6BC5767, $3FB506DD, $48B2364B,
$D80D2BDA, $AF0A1B4C, $36034AF6, $41047A60,
$DF60EFC3, $A867DF55, $316E8EEF, $4669BE79,
$CB61B38C, $BC66831A, $256FD2A0, $5268E236,
$CC0C7795, $BB0B4703, $220216B9, $5505262F,
$C5BA3BBE, $B2BD0B28, $2BB45A92, $5CB36A04,
$C2D7FFA7, $B5D0CF31, $2CD99E8B, $5BDEAE1D,
$9B64C2B0, $EC63F226, $756AA39C, $026D930A,
$9C0906A9, $EB0E363F, $72076785, $05005713,
$95BF4A82, $E2B87A14, $7BB12BAE, $0CB61B38,
$92D28E9B, $E5D5BE0D, $7CDCEFB7, $0BDBDF21,
$86D3D2D4, $F1D4E242, $68DDB3F8, $1FDA836E,
$81BE16CD, $F6B9265B, $6FB077E1, $18B74777,
$88085AE6, $FF0F6A70, $66063BCA, $11010B5C,
$8F659EFF, $F862AE69, $616BFFD3, $166CCF45,
$A00AE278, $D70DD2EE, $4E048354, $3903B3C2,
$A7672661, $D06016F7, $4969474D, $3E6E77DB,
$AED16A4A, $D9D65ADC, $40DF0B66, $37D83BF0,
$A9BCAE53, $DEBB9EC5, $47B2CF7F, $30B5FFE9,
$BDBDF21C, $CABAC28A, $53B39330, $24B4A3A6,
$BAD03605, $CDD70693, $54DE5729, $23D967BF,
$B3667A2E, $C4614AB8, $5D681B02, $2A6F2B94,
$B40BBE37, $C30C8EA1, $5A05DF1B, $2D02EF8D);
procedure CalcCRC32(AString: String; var ACRC32: LongWord);
var
i: Word;
begin
ACRC32 := $ffffffff;
for i := 1 to Length(AString) do
ACRC32 := (ACRC32 shr 8) xor Table[Byte(AString[i]) xor (ACRC32 and
$000000FF)];
ACRC32 := not ACRC32;
end;
----- Original Message -----
From: "ji�� B�tu��k" <viruslog(zv)volny(tec)cz>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 26, 2002 2:47 AM
Subject: Crc ze Stringu jak
> Nevi nekdo prosim jak zjistit crc stringu
> Predem diky za jakoukoliv radu
>
> Kindr
>
> Delp 5 ,Win Me,Xp
Neulozeni hodnot v KADaoTable
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 26.6.2002 08:22:49
Servus ve spolek,
mam dost blby problem:
V programu je nekolik polozek, ktere se postupne zadavaji do jednoho radku
tabulky. Pouze u jedne polozky, je-li vyplnovana jako prvni, se udaje
neulozi ...
viz kod:
Table1: TKADaoTable;
ID: Integer; - cislo daneho zaznamu
Table1.Locate('ID', ID, []);
Table1.Edit;
Table1Polozka1.Text := string;
:
:
:
:
Table1.Post; - po postu se vsak vyplnene udaje v tabulce neobjevi.
Specha ....
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virov� b�ze: 207 - datum vyd�n�: 20.6.2002
RxDBGrid-PageDown(Up)=Table is bussy
[*] Zapl�k <zaplik(zv)volny(tec)cz> - 26.6.2002 09:03:24
Zdravicko
Mam DBF tabulku a zobrazuji ji v RxDBGrid-u. pokud dabulka nen� filtrovana
tak je vse OK. Pokud ale tabulku vyfiltruji a budu rychle listovat pomoci
PageDown nebo PageUp Tak vyskoci hlaska "Table Is Bussy". Pokud listuji
pomalu tak se nic nestane. Dela to na vsech WIN. Delphi mi po te hlasce
skoci na nasledujici kod v
RXDBCtrl.pas:
procedure TRxDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
...
...
...
...
OnKeyDown := nil;
try
inherited KeyDown(Key, Shift); <<<------ Tady skonci.
finally
OnKeyDown := KeyDownEvent;
end;
Nevite nekdo co s tim?
Dik
Zaplik
D5, RX 2.75
W2K - chyba aplikace - znovu
[*] cis <cis(zv)atlas(tec)cz> - 26.6.2002 09:12:27
Hi,
taky jsem to resil, a pouzil stejne reseni bez BDE. Fungovalo to perfektne,
az na jeden maly problem. Pokud jsi to pustil na "ciste" masine. kde nebylo
BDE tak to vyhazovalo chybu, muselo se odklepnout okno a jelo to dal. Mozna,
ze jsem mel nejakou starsi verzi. Pri prechodu na D6 uz QReport neslo
pouzivat vubec, protoze pri jakekoliv zmene se bandy prekreslovaly tak
pomalu (treba 5 min) az to bylo nepoyitelne...
ales
----- Original Message -----
From: "Richard Kejval" <kejval.delphi(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 24, 2002 9:37 AM
Subject: Re: W2K - chyba aplikace - znovu
> Ahoj,
> nedavno jsem resil podobny problem, ktery report pouzit.
> Pozadavek znel :
> 1. Uzivatelska editace reportu
> 2. Nepouzivat BDE
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.371 / Virov� b�ze: 206 - datum vyd�n�: 13-6-2002
Dokovani na vsechny strany
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 26.6.2002 09:18:27
Zdravim,
potrebuju (nebo spis chci ;-) ) udelat dokovani oken v aplikaci s moznosti uchyceni na kteroukoliv stranu. Informaci jsem moc nenasel, akorat vim, ze to budu asi budu muset udelat pres TPanel (to jsem predpokladal). Jenomze kdyz umistim ctyri panely a kazdemu dam uchyceni na jednu stranu, tak to vypada tak, ze nahore a dole jsou pres celou sirku klientske oblasti, ale vpravo a vlevo se na vysku vmackou mezi horni a dolni. Ja bych ty dokovaci okna potreboval tak, aby byly mozne ruzne kombinace, treba vlevo pres celou vysku a dole aby to bylo priplacnute k tomu levemu.
Ale to asi pres panely nepujde.
Muzete mi nekdo poradit, jak teda udelat rozumne dokovani oken? Eventuelne odkaz na nejakou komponentu, ja prolez uz hodne stranek s komponentama, ale potrebuju neco free a ty vetsinou nevyhovovaly.
Nebo mi rovnou reknete, jestli to mam s dokovanim v Delphi zabalit...
Diky
Petr
Jake INDEXy pro podminku WHERE
[*] <little_bobes(zv)centrum(tec)cz> - 26.6.2002 09:37:10
Zdravim,
posledni dobou se zde probiraji veci ohledne zrychleni dotazu.
V teto souvislosti mam par otazek na INDEXy:
1. mam-li dotaz s podminkou
WHERE (sl1 = neco) AND (sl2 = neco)
mohu mit jeden INDEX (sl1, sl2) nebo musim mit INDEX (sl1) a zvlast
dalsi INDEX (sl2) ?
2. co kdyz budu mit pro predchozi priklad INDEX (sl1, jiny_sloupec),
pripadne INDEX (jiny_sloupec, sl2) ?
3. pocita se za INDEXovany sloupec i PRIMARY KEY ? (tipuju, ze ano)
4. a co CONSTRAINT UNIQUE ? (tipuju, ze ne)
5. a nebo FOREIGN KEY ? (ten asi take ne)
Diky za odpovedi, ktere snad pomohou i ostatnim.
Bob
Jake INDEXy pro podminku WHERE
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.6.2002 09:51:35
26.6.2002 little_bobes(zv)centrum(tec)cz:
> Zdravim,
> posledni dobou se zde probiraji veci ohledne zrychleni dotazu.
> V teto souvislosti mam par otazek na INDEXy:
> 1. mam-li dotaz s podminkou
> WHERE (sl1 = neco) AND (sl2 = neco)
> mohu mit jeden INDEX (sl1, sl2) nebo musim mit INDEX (sl1) a zvlast
> dalsi INDEX (sl2) ?
> 2. co kdyz budu mit pro predchozi priklad INDEX (sl1, jiny_sloupec),
> pripadne INDEX (jiny_sloupec, sl2) ?
Zalezi na SQL serveru, zda tyto skladane indexy umi vyuzit nebo ne.
Rozhodne by mel umet pouzit prvni cast indexu. S tou druhou casti SL2
uz to bude horsi
Obecne je lepsi mit samostatne indexy
> 3. pocita se za INDEXovany sloupec i PRIMARY KEY ? (tipuju, ze ano)
Ano
> 4. a co CONSTRAINT UNIQUE ? (tipuju, ze ne)
> 5. a nebo FOREIGN KEY ? (ten asi take ne)
Nevim, jak u jinych, ale u MS SQL ano
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Jake INDEXy pro podminku WHERE
[*] <little_bobes(zv)centrum(tec)cz> - 26.6.2002 10:06:48
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>> > 4. a co CONSTRAINT UNIQUE ? (tipuju, ze ne)
> > 5. a nebo FOREIGN KEY ? (ten asi take ne)
>
> Nevim, jak u jinych, ale u MS SQL ano
>
Aha, to me nenapadlo.
Konkretne mam na mysli IB.
Bob
InstallShield a BDE
[*] "Netu�il, Roman, Ing." - 26.6.2002 10:08:36
Panove,
nove pouzivam InstallShield 3.03 dodavany spolecne s D6 Prof. Drive jsem
pouzival D3 Prof a InstallShield 3. Potrebuji vytvorit instalacku pro
aplikaci postavenou na BDE. Drive jsem u kazdeho aliasu mel moznost nastavit
i parametrizovanou cestu k datum napriklad <INSTALLDIR>\DATA. Nyni jsem tuto
moznost neobjevil. K dispozici jsou pouze prime parametry aliasu, ktere se
daji nastavit pevnymi hodnotami (parametrizaci jsem zde nenasel). Pritom na
urovni instalacniho projektu jsou v sekci Specify Application Data k
dispozici preddefinovane foldery [INSTALLDIR], [DATABASEDIR] atd. Jak je
vsak pouzit k nastaveni cesty k datum BDE jsem nepochopil.
Prosim o typ, diky.
Roman
Jake INDEXy pro podminku WHERE
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 26.6.2002 10:09:39
> > 5. a nebo FOREIGN KEY ? (ten asi take ne)
>
> Nevim, jak u jinych, ale u MS SQL ano
>
Toto u IB/FB urcite take ano
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
Jake INDEXy pro podminku WHERE
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.6.2002 10:18:53
> posledni dobou se zde probiraji veci ohledne zrychleni dotazu.
> V teto souvislosti mam par otazek na INDEXy:
>
> 3. pocita se za INDEXovany sloupec i PRIMARY KEY ? (tipuju, ze ano)
>
> 4. a co CONSTRAINT UNIQUE ? (tipuju, ze ne)
>
> 5. a nebo FOREIGN KEY ? (ten asi take ne)
>
> Diky za odpovedi, ktere snad pomohou i ostatnim.
>
Ahoj,
mam pocit, ze FOREIGN KEY na FB vede k automatickemu zalozeni indexu.
UNIQUE CONSTRAINT nevim, ale existuje tez unikatni index (ted neumim rict, jaky
a jestli vubec je v tom rozdil).
Ovsem nejlepsi je sestavit zkusebni dotaz a podivat se na PLAN. Z toho je videt, kde
se pouzije index a kde ne.
David Lebeda
Deravy pagecontrol
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 26.6.2002 10:25:33
Nevim jak to resi HP, ale ja to delam takto:
- na form umistim TPageControl a mimo nej TButton
- TButton posunu na TPageControl
- v mistni nabidce TButtonu zvolim Bring to Front
Martin Ben
> -----Original Message-----
> From: Bene� Jaroslav [mailto:JBenes(zv)cpoj(tec)cz]
>
> nevite jak se dela deravy pagecontrol? Je to pouzito
> napriklad u nastaveni tiskaren HP, kde maji pole tzv.
> rychleho nastaveni (asi nejaky groupbox s comboboxem a
> tlacitkem), ktere prostupuje vsemi zalozkami (jako by tam
> byla dira, editacni prvek byl na pozadi a pri preklapavani
> stranek vykukuje a je stale na stejnem miste. Je tam dira
> nebo to plave nad pagecontrolem?
W2K - chyba aplikace - znovu
[*] Robert Suska <delphi(zv)korak.sk> - 26.6.2002 10:42:31
Ahojte!
cital som tento mail a mam k nemu otazku. To ako nepouzijem QReport bez
instalovania BDE na masinu kde budem instalovat apl. ????
Dakujem
Robo
> Hi,
> taky jsem to resil, a pouzil stejne reseni bez BDE. Fungovalo to
perfektne,
> az na jeden maly problem. Pokud jsi to pustil na "ciste" masine. kde
nebylo
> BDE tak to vyhazovalo chybu, muselo se odklepnout okno a jelo to dal.
Mozna,
> ze jsem mel nejakou starsi verzi. Pri prechodu na D6 uz QReport neslo
> pouzivat vubec, protoze pri jakekoliv zmene se bandy prekreslovaly tak
> pomalu (treba 5 min) az to bylo nepoyitelne...
>
> ales
>
>
> ----- Original Message -----
> From: "Richard Kejval" <kejval.delphi(zv)centrum(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, June 24, 2002 9:37 AM
> Subject: Re: W2K - chyba aplikace - znovu
>
>
> > Ahoj,
> > nedavno jsem resil podobny problem, ktery report pouzit.
> > Pozadavek znel :
> > 1. Uzivatelska editace reportu
> > 2. Nepouzivat BDE
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.371 / Virov� b�ze: 206 - datum vyd�n�: 13-6-2002
Jake INDEXy pro podminku WHERE
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 26.6.2002 10:44:58
> mam pocit, ze FOREIGN KEY na FB vede k automatickemu zalozeni indexu.
Ja ma pocit, ze pro vytvoreni FK je podminkou jiz predchozi vytvoreni UNIQUE
constraintu (at uz ve forme PK nebo jako uniq. index)
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Jake INDEXy pro podminku WHERE
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 26.6.2002 10:46:30
----- Original Message -----
From: "Milan Tomes" <milan.tomes(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 26, 2002 10:44 AM
Subject: RE: Jake INDEXy pro podminku WHERE
> > mam pocit, ze FOREIGN KEY na FB vede k automatickemu zalozeni indexu.
>
> Ja ma pocit, ze pro vytvoreni FK je podminkou jiz predchozi vytvoreni
UNIQUE
> constraintu (at uz ve forme PK nebo jako uniq. index)
>
> S pozdravem
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
>
FK ti nevezme v parent tabulce unique index. Musis mit bud PK nebo
unique constraint.
Radim
PCFand driver pro Win9X
[*] JIM Design <jim.design(zv)iol(tec)cz> - 26.6.2002 10:48:44
ahoj,
potreboval bych vedet jestli nekdo nevite o nejakem ODBC nebo OLEDB driveru
pro PCFand. Nebo jiny zpusob jak precist data z tak hrozneho programu aniz
bych poustel nejaky externi program.
Predem diky.
M.Jirman
Dokovani na vsechny strany
[*] Jenich <jenich(zv)volny(tec)cz> - 26.6.2002 10:54:07
...\Delhi\Demos\Docking
----- Original Message -----
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 26, 2002 9:18 AM
Subject: Dokovani na vsechny strany
Zdravim,
potrebuju (nebo spis chci ;-) ) udelat dokovani oken v aplikaci s moznosti
uchyceni na kteroukoliv stranu. Informaci jsem moc nenasel, akorat vim, ze
to budu asi budu muset udelat pres TPanel (to jsem predpokladal). Jenomze
kdyz umistim ctyri panely a kazdemu dam uchyceni na jednu stranu, tak to
vypada tak, ze nahore a dole jsou pres celou sirku klientske oblasti, ale
vpravo a vlevo se na vysku vmackou mezi horni a dolni. Ja bych ty dokovaci
okna potreboval tak, aby byly mozne ruzne kombinace, treba vlevo pres celou
vysku a dole aby to bylo priplacnute k tomu levemu.
Ale to asi pres panely nepujde.
Muzete mi nekdo poradit, jak teda udelat rozumne dokovani oken? Eventuelne
odkaz na nejakou komponentu, ja prolez uz hodne stranek s komponentama, ale
potrebuju neco free a ty vetsinou nevyhovovaly.
Nebo mi rovnou reknete, jestli to mam s dokovanim v Delphi zabalit...
Diky
Petr
Jake INDEXy pro podminku WHERE
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 26.6.2002 11:00:16
Zalezi jeste jak mnoho se hodnota indexu meni (kolik ruznych hodnot index
ma), pokud by sl2 byla nejaka hodnota z ciselniku o nekolika malo hodnotach
a v tabulce by bylo nekolik tisic zaznamu, vyuziti indexu sl2 spise zhorsi
vykon !
Pavel
> -----Original Message-----
> From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
> 26.6.2002 little_bobes(zv)centrum(tec)cz:
> > Zdravim,
>
> > posledni dobou se zde probiraji veci ohledne zrychleni dotazu.
> > V teto souvislosti mam par otazek na INDEXy:
>
> > 1. mam-li dotaz s podminkou
> > WHERE (sl1 = neco) AND (sl2 = neco)
> > mohu mit jeden INDEX (sl1, sl2) nebo musim mit INDEX
> (sl1) a zvlast
> > dalsi INDEX (sl2) ?
> > 2. co kdyz budu mit pro predchozi priklad INDEX (sl1, jiny_sloupec),
> > pripadne INDEX (jiny_sloupec, sl2) ?
>
> Zalezi na SQL serveru, zda tyto skladane indexy umi vyuzit nebo ne.
> Rozhodne by mel umet pouzit prvni cast indexu. S tou druhou casti SL2
> uz to bude horsi
> Obecne je lepsi mit samostatne indexy
>
> > 3. pocita se za INDEXovany sloupec i PRIMARY KEY ? (tipuju, ze ano)
>
> Ano
>
> > 4. a co CONSTRAINT UNIQUE ? (tipuju, ze ne)
> > 5. a nebo FOREIGN KEY ? (ten asi take ne)
>
> Nevim, jak u jinych, ale u MS SQL ano
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
>
PCFand driver pro Win9X
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 26.6.2002 11:05:36
1. viz http://www.alis(tec)cz/. Ty maji primo ODBC k Fandu.
2. nebo ve fandu pouzivat pouze *.dbf a ty lze jiz cist
Jan Sebesta
----- Original Message -----
From: "JIM Design" <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 26, 2002 10:48 AM
Subject: PCFand driver pro Win9X
> ahoj,
>
> potreboval bych vedet jestli nekdo nevite o nejakem ODBC nebo OLEDB
driveru
> pro PCFand. Nebo jiny zpusob jak precist data z tak hrozneho programu aniz
> bych poustel nejaky externi program.
>
> Predem diky.
>
> M.Jirman
>
>
>
klavesova zkratka
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 26.6.2002 11:19:45
Lidi.
Nemuzu si zaboha vzpomenout, jaka byla klavesova zkratka pro automatickou
definici procedury, funkce atd., kdyz ji mam jiz vytvorenou v tride.
Proste si ve tride napisu deklaraci nejake funkce, zmacknu tu kombinaci
klaves a Delphi mi samo vytvori v oblasti implementation definici te funkce
.... jaka je ta zkratka ????
Petr
ICQ# : 119119215
PCFand driver pro Win9X
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 26.6.2002 11:21:04
> potreboval bych vedet jestli nekdo nevite o nejakem ODBC nebo
> OLEDB driveru pro PCFand.
http://www.alis(tec)cz
nebo jeste jedna firma delala nejaky komponenty do delf,
ale ted z hlavy nevim. snad se ti ozvou.
> Nebo jiny zpusob jak precist data z tak hrozneho
> programu aniz bych poustel nejaky externi program.
neni to zas tak hrozny, ale musis znat strukturu (deklaraci
tak jak je uvedene v tom fandackym projektu) toho souboru.
peca
Dokovani na vsechny strany
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 26.6.2002 11:23:12
Diky, o tom vim, ale to je presne to, co nechci ;-)
>
> ...\Delhi\Demos\Docking
>
Jak kreslit do TToolWindow
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 26.6.2002 11:41:57
Cau
mam nasledujici proceduru
hdcc:=GetDC(AnimBar1.Handle);
BitBlt(hdcc,0,0,100,100,Image1.Canvas.Handle,0,0,SRCCOPY);
kde AnimBar1 je potomek TToolWindow, delphi mi vypisuje pri bitblt hlasku ze Can only modify an image if it contain bitmap. Hmm ja si myslil ze Ttoolwindow je klasicke okno do ktereho si muzu po ziskani HDC kreslit co chci a puzivat GDI funkce.
Milos
Chyba pri pokracovani programu po breaku2
[*] Jan P��ek������z?ܢw��̿ - 26.6.2002 11:49:06
Nepouzival jsem Local Variables okno a kdyz jsem ho otevrel, chyba se
objevila take.Nerozumim, jaky to ma mit vliv, proto prosim o vysvetelni.
Dekuji
J. Pecek
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 24, 2002 4:26 PM
Subject: Re: Chyba pri pokracovani programu po breaku2
> DD,
>
> pouzivas Local Variables okno?
>
> D. Toman
> ----- Original Message -----
> From: "Jan P��ek" <jpecek(zv)conel(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, June 24, 2002 4:10 PM
> Subject: Chyba pri pokracovani programu po breaku2
>
>
>
>
>
TGIFImageList
[*] jan cerny <jan.cerny(zv)webstation(tec)cz> - 26.6.2002 11:54:58
Odpoved ...
tusim ze RX komponenty maji nejakou komponentu pracujici s anim. gifem
....
SM> Cau
SM> nevite nekdo o komponente podobne TImageList ale s podporou animovanych gifu ? Tj. aby se do ni dalo vlozit nekolik animovanych gifu a pristupovat na ne pomoci indexu na jednotlive gify a dalsiho
SM> indexu urcujici jednotlivy snimek. Vracelo by to bud handle na memory context do ktereho byla dekomprimovana bitmapa a nebo jen ukazatel na dekomprimovana data. Jediny TGIFImageList jsem nasel v
SM> komponente nebo spise tride TGIFImage od Melandera (Item a SubImage) bohuzel se mi to nedari nejak pouzit.
SM> Milos
______________________________________________________
|C|H|H|E|M|I|K|S|
design & code +420 723 326 744
Jan Cerny jan.cerny(zv)webstation(tec)cz
Jak kreslit do TToolWindow
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 26.6.2002 11:58:53
> mam nasledujici proceduru
>
> hdcc:=GetDC(AnimBar1.Handle);
> BitBlt(hdcc,0,0,100,100,Image1.Canvas.Handle,0,0,SRCCOPY);
>
> kde AnimBar1 je potomek TToolWindow, delphi mi vypisuje pri
> bitblt hlasku ze Can only modify an image if it contain
> bitmap. Hmm ja si myslil ze Ttoolwindow je klasicke okno do
> ktereho si muzu po ziskani HDC kreslit co chci a puzivat GDI funkce.
Problem je asi v TImage a v tom, ze sa snazis pouzivat priamo
Image1.Canvas.Handle, pricom Image1.Picture nie je typu TBitmap; v tom
pripade to hadze tu vynimku (v metode TImage.GetCanvas).
Ak naozaj potrebujes pouzit TImage, skus namiesto Image1.Canvas.Handle
pouzit Image1.Picture.Bitmap.Canvas.Handle.
Inak by malo stacit pouzit iba priamo TBitmap (pripadne ineho potomka
TGraphic, podla formatu) a jeho Canvas.Handle pripadne inu vlastnost, ktorou
ta konkretna trieda spristupnuje to HDC.
HTH
TOndrej
PCFand driver pro Win9X
[*] Petr Ad�ek - 26.6.2002 12:04:59
> potreboval bych vedet jestli nekdo nevite o nejakem ODBC nebo OLEDB
driveru
> pro PCFand. Nebo jiny zpusob jak precist data z tak hrozneho programu aniz
> bych poustel nejaky externi program.
>
Ahoj,
ODBC pro PCFAND najdes na www.alis(tec)cz v sekci PCFand, doplnky.
Verze zdarma je ovsem omezena poctem radku.
Jinak se to musi koupit
P. Adasek
Chyba pri pokracovani programu po breaku2
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.6.2002 12:10:59
> Nepouzival jsem Local Variables okno a kdyz jsem ho otevrel, chyba
se
> objevila take.Nerozumim, jaky to ma mit vliv, proto prosim o
vysvetelni.
V D5 IDE je chyba, ktera zpusobuje nepredvitadelne problemy pri
krokovani programu - pokud je zobrazeno Local Variables okno pak
nektere lokalni promenne neni IDE schopno zobrazit (pokud se pamatuju
tak ty, ktere obsahuji vetsi pocet bytu -> pole, atd). Stejne promenne
ve Watch okne nezpusobi zadny problem.
D. Toman
Dokovani na vsechny strany
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 26.6.2002 12:15:47
Ahoj,
> Petr.Dana(zv)pvt(tec)cz 26.6.02 9:18 >>>
>potrebuju (nebo spis chci ;-) ) udelat dokovani oken v aplikaci s moznosti uchyceni na kteroukoliv stranu.
je to sice pro VC++, ale snad tam neco pochytis
http://www.codeproject.com/docking/sizecbar.asp
http://www.codeproject.com/docking/sizing_tabctl.asp
http://www.codeguru.com/docking
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Dokovani na vsechny strany
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 12:37:19
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> Muzete mi nekdo poradit, jak teda udelat rozumne dokovani oken?
Dokovani je primo ve VCL, od Delphi 4. Tady najdes i nejake priklady:
http://www.thedelphimagazine.com/disks/dmag63.zip
Petr Vones
klavesova zkratka
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 12:41:23
From: "Petr" <DelphiForum(zv)seznam(tec)cz>
> Nemuzu si zaboha vzpomenout, jaka byla klavesova zkratka pro automatickou
> definici procedury, funkce atd., kdyz ji mam jiz vytvorenou v tride.
Co se treba podivat do helpu ?
Najdes to v Editor keyboard shotcuts -> Editor (xxx) -> polozka Templates
pop-up menu
Petr Vones
Seriova cisla HW
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 26.6.2002 12:43:26
Ahoj
### Petr Pa��enko napsal dne 25 Jun 2002, v 20:45 :
> Potreboval bych poradit s moznosti zjistit pomoci n�jake API funkce
> seriove cislo zakladni desky pocitace. Zkousel jsem zisteni cisla
> procesouru, ale bohuzel ne vsechny procesory podporuji seriove cislo.
> Pokud by nebyla moznost zjistit cislo desky, potereboval bych zjistit
> cislo nejake jine pokud mozno nemenitelne soucasti pocitace.
Ach jo, uz zase...
ZADNA cast neni nemenitelna.
Jestli chces chranit sw proti nelegalnimu uzivani,
pouzivej treba nejaky hardwarovy klic.
Cokoliv jineho (ale on i ten hardlock :),
legalniho uzivatele nanejvys <***censored***> NASTVE.
Z.D.
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director ICQ# 135770414
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Jak kreslit do TToolWindow
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 26.6.2002 12:47:48
Hmm zkousim, sice mi Image1.Picture.Bitmap.Canvas.Handle projde OK, ale pokud je tam jpeg nebo neco jineho nez bmp tak to nic nedela. S bitmapa to slape.
Milos
-----Original Message-----
From: Ondrej Kelle [mailto:O.Kelle(zv)digitalpublishing.de]
Sent: Wednesday, June 26, 2002 11:59 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Jak kreslit do TToolWindow
> mam nasledujici proceduru
>
> hdcc:=GetDC(AnimBar1.Handle);
> BitBlt(hdcc,0,0,100,100,Image1.Canvas.Handle,0,0,SRCCOPY);
>
> kde AnimBar1 je potomek TToolWindow, delphi mi vypisuje pri
> bitblt hlasku ze Can only modify an image if it contain
> bitmap. Hmm ja si myslil ze Ttoolwindow je klasicke okno do
> ktereho si muzu po ziskani HDC kreslit co chci a puzivat GDI funkce.
Problem je asi v TImage a v tom, ze sa snazis pouzivat priamo
Image1.Canvas.Handle, pricom Image1.Picture nie je typu TBitmap; v tom
pripade to hadze tu vynimku (v metode TImage.GetCanvas).
Ak naozaj potrebujes pouzit TImage, skus namiesto Image1.Canvas.Handle
pouzit Image1.Picture.Bitmap.Canvas.Handle.
Inak by malo stacit pouzit iba priamo TBitmap (pripadne ineho potomka
TGraphic, podla formatu) a jeho Canvas.Handle pripadne inu vlastnost, ktorou
ta konkretna trieda spristupnuje to HDC.
HTH
TOndrej
PCFand driver pro Win9X
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 26.6.2002 13:14:50
> nebo jeste jedna firma delala nejaky komponenty do delf,
> ale ted z hlavy nevim. snad se ti ozvou.
tak mi to nedalo a zkusil jsem google :)
http://www.fdsystem(tec)cz/delphi/delphi.htm
peca
klavesova zkratka
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 26.6.2002 13:21:52
> Nemuzu si zaboha vzpomenout, jaka byla klavesova zkratka pro
> automatickou
> definici procedury, funkce atd., kdyz ji mam jiz vytvorenou v tride.
> Proste si ve tride napisu deklaraci nejake funkce, zmacknu tu
> kombinaci
> klaves a Delphi mi samo vytvori v oblasti implementation
> definici te funkce
> .... jaka je ta zkratka ????
Class completion: Ctrl+Shift+C
array of TStringList
[*] Jan Misek <jmdelphiforum1(zv)seznam(tec)cz> - 26.6.2002 13:28:04
Na toto je nejlepsi pouzit naslednika TList
prikladam priklad pouziti
TWarningList = Class(TObject)
private
Flist : Tlist;
function GetErrorsByIndex(index: integer): TWarningItem;
procedure SetErrorsByIndex(index: integer; const Value: TWarningItem);
function GetErrorsByWebObject(const s: string): string;
function GetErrorsByErrorCode(index: integer): TWarningItem;
procedure WriteItemToStream(Astream: TStream; index: integer);
procedure ReadItemFromStream(Astream: TStream);
public
constructor create;
destructor destroy; override;
procedure Clear;
procedure delete(i: integer);
function Add(AWarningItem: TWarningItem): integer;
function ErrorsNonCriticalCount: integer;
function ErrorsCriticalCount: integer;
function ErrorsCount: integer;
property ErrorsByIndex [index : integer] : TWarningItem read
GetErrorsByIndex write SetErrorsByIndex;
property ErrorsByWebObject [ const s : string] : string read
GetErrorsByWebObject;
property ErrorsByErrorCode [ index : integer ] : TWarningItem read
GetErrorsByErrorCode;
function Copy(AWarningItem: TWarningItem): integer;
procedure SaveToStream(Astream: TStream);
procedure LoadFromStream(Astream: TStream);
procedure SaveToFile(Afile: string);
procedure LoadFromFile(Afile: string);
end;
implementace je snad jasna
ako na LIKE v ADODAtaset?
[*] mato <mato.tino(zv)inmail.sk> - 26.6.2002 13:50:50
zdravim,
Delphi 5
mam komponentu ADODataset, SQL vyraz v nej :
SELECT SROK.ODBERATEL
FROM SROK
WHERE odberatel LIKE "MPBH*";
vtedy mi nevyberie nic , ani ak dam MP*. ak dam LIKE "MPBH" tak vyberie ten
zaznam kde odberatel = "MPBH". Ja potrebujem napr ak dam LIKE "M*" aby
vybral vsetky zaznamy zacinajuce na M. Ale nemozem to rozchodit. Poradte
prosim.
ako na LIKE v ADODAtaset?
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 26.6.2002 13:53:18
skousni LIKE "MPBH%"
^
|
>mam komponentu ADODataset, SQL vyraz v nej :
>SELECT SROK.ODBERATEL
>FROM SROK
>WHERE odberatel LIKE "MPBH*";
>vtedy mi nevyberie nic , ani ak dam MP*. ak dam LIKE "MPBH" tak vyberie
ten
>zaznam kde odberatel = "MPBH". Ja potrebujem napr ak dam LIKE "M*" aby
>vybral vsetky zaznamy zacinajuce na M. Ale nemozem to rozchodit.
Poradte
>prosim.
ako na LIKE v ADODAtaset?
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 26.6.2002 13:56:24
LIKE "MBPH%"
Sroub
> zdravim,
> Delphi 5
>
> mam komponentu ADODataset, SQL vyraz v nej :
>
> SELECT SROK.ODBERATEL
> FROM SROK
> WHERE odberatel LIKE "MPBH*";
>
> vtedy mi nevyberie nic , ani ak dam MP*. ak dam LIKE "MPBH" tak vyberie
ten
> zaznam kde odberatel = "MPBH". Ja potrebujem napr ak dam LIKE "M*" aby
> vybral vsetky zaznamy zacinajuce na M. Ale nemozem to rozchodit. Poradte
> prosim.
>
>
QReport vs. BDE
[*] Robert Suska <delphi(zv)korak.sk> - 26.6.2002 14:03:56
Ahojte!
Asi to zapadlo :) tak sa opytam este raz. Podla mna je to hlupost, ale
predsa je QReport v Delphi 6 Ent zavisle od instalacie BDE ? Myslim tak ze
ked pouzijem QReport do svojej aplikacie a nainstalujem ju clientovi
samozrejme bez BDE tak sa mu nebude zobrazovat alebo to bude hlasit nejake
chyby pri nabehu aplikacie alebo co??? Lebo nepouzivam ziadnu databazu data
dostavam zo servera v txt podobe a predsa ich nebudem ladovat do nejakej
tabulky kvoli tomu aby som ich zobrazil do QReportu alebo ako???
Dakujem
Robo
QReport vs. BDE
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 26.6.2002 14:32:37
Pokud nebudes v reportu konektovat zadnou databazi a pouzivat jen standartni QR komponenty (ne DB) tak to funguje i bez BDE.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Wednesday, June 26, 2002, 2:03:56 PM, you wrote:
RS> Ahojte!
RS> Asi to zapadlo :) tak sa opytam este raz. Podla mna je to hlupost, ale
RS> predsa je QReport v Delphi 6 Ent zavisle od instalacie BDE ? Myslim tak ze
RS> ked pouzijem QReport do svojej aplikacie a nainstalujem ju clientovi
RS> samozrejme bez BDE tak sa mu nebude zobrazovat alebo to bude hlasit nejake
RS> chyby pri nabehu aplikacie alebo co??? Lebo nepouzivam ziadnu databazu data
RS> dostavam zo servera v txt podobe a predsa ich nebudem ladovat do nejakej
RS> tabulky kvoli tomu aby som ich zobrazil do QReportu alebo ako???
RS> Dakujem
RS> Robo
Jak pretahovat ToolBar
[*] Martinec <martin108(zv)post(tec)cz> - 26.6.2002 14:50:21
Ahoj, rad bych ve sve aplikaci uzivateli umoznil umisteni ToolBaru na libovolnou stranu formulare. Nemuzu vsak prijit na to, jak to co nejjednoduseji udelat.
Muzete mi nekdo poradit?
Dik
Martinec
D5Ent, WXP
PS: Melo by to chodit i na W98
----
Open Air Techno festival - SVOJSICE 2002
Svetova techno spicka v sobotu 13.7.
Areal Svojsice u Pardubic
Vice na www.svojsice(tec)cz
ako na LIKE v ADODAtaset?
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 26.6.2002 15:04:52
SELECT SROK.ODBERATEL
FROM SROK
WHERE odberatel LIKE "MPBH%";
Ales
> -----Original Message-----
> From: mato [mailto:mato.tino(zv)inmail.sk]
>
> SELECT SROK.ODBERATEL
> FROM SROK
> WHERE odberatel LIKE "MPBH*";
>
> vtedy mi nevyberie nic , ani ak dam MP*. ak dam LIKE "MPBH"
D6 personal
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.6.2002 15:20:27
Vzdy jsem si myslel, ze D6 personal je zdarma. Az do chvile, kdy jsem
se na Delphi.CZ dozvedel, ze za nej chteji 3560 Kc :-(
--
Jan Fiala
MailTo:jan.fiala(zv)iol(tec)cz
D6 personal
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 15:25:11
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Vzdy jsem si myslel, ze D6 personal je zdarma. Az do chvile, kdy jsem
> se na Delphi.CZ dozvedel, ze za nej chteji 3560 Kc :-(
To je krabicova verze, stahnout si to samozrejme muzes zdarma
http://www.borland.com/products/downloads/download_delphi.html
Petr Vones
D6 personal
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.6.2002 15:30:56
To samozrejme vim, ze jde o krabicovou verzi, vim, ze si ji muzu
stahnout zdarma. Jen me zarazilo, ze Borland.CZ nikde neuvadi, ze se
da nekde stahnout zdarma. Pouze je tam odkaz na jejich shop.
To se mi nezda jako seriozni jednani.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
26.6.2002 Petr Vones:
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>> Vzdy jsem si myslel, ze D6 personal je zdarma. Az do chvile, kdy jsem
>> se na Delphi.CZ dozvedel, ze za nej chteji 3560 Kc :-(
> To je krabicova verze, stahnout si to samozrejme muzes zdarma
> http://www.borland.com/products/downloads/download_delphi.html
> Petr Vones
Crystal Report
[*] Robert Suska <delphi(zv)korak.sk> - 26.6.2002 15:48:42
Ahojte!
Su lepsie ako QReport ?
Dakujem
Robo
Jak pretahovat ToolBar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 15:50:18
From: "Martinec" <martin108(zv)post(tec)cz>
> Ahoj, rad bych ve sve aplikaci uzivateli umoznil umisteni ToolBaru na
> libovolnou stranu formulare. Nemuzu vsak prijit na to, jak to co
> nejjednoduseji udelat.
Dneska se to tu uz jednou objevilo, stahni si nasledujici soubor:
http://www.thedelphimagazine.com/disks/dmag63.zip
a podivej se na priklady v adresari Docking, konkretne DockedControls8.dpr
Petr Vones
Dokovani na vsechny strany
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 26.6.2002 15:55:54
Zdravim
Bez nadsazky vynikajici az dokonaly balik komponent Toolbar2000
(www.jrsoftware.org). Kam prilepis TTBDock muzes dockovat plovouci panely
nastroju. Pokud mas na mysli dokovani Formu k okrajum monitoru, tak na
www.programmersheaven.com je komponenta (aspon myslim, ze jsem ji tak kdysi
nasel). Myslel jsem, ze jednu mam, ale nemam.
----- Original Message -----
>potrebuju (nebo spis chci ;-) ) udelat dokovani oken v aplikaci s moznosti
uchyceni na kteroukoliv stranu.
je to sice pro VC++, ale snad tam neco pochytis
http://www.codeproject.com/docking/sizecbar.asp
http://www.codeproject.com/docking/sizing_tabctl.asp
http://www.codeguru.com/docking
ako na LIKE v ADODAtaset?
[*] bardon <bardon(zv)akord-soft(tec)cz> - 26.6.2002 16:13:02
[P��loha v souboru: winmail.dat]
Aniz bych se chtel prit, ale mam duvod se domnivat, ze lepsi jsou apostrofy,
nez uvozovky, tedy takto:
SELECT SROK.ODBERATEL
FROM SROK
WHERE odberatel LIKE 'MPBH%'
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ales Vasicek
Sent: Wednesday, June 26, 2002 3:05 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: ako na LIKE v ADODAtaset?
SELECT SROK.ODBERATEL
FROM SROK
WHERE odberatel LIKE "MPBH%";
W2K - chyba aplikace - znovu
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 26.6.2002 16:21:51
Ahoj,
> cital som tento mail a mam k nemu otazku. To ako nepouzijem QReport bez
> instalovania BDE na masinu kde budem instalovat apl. ????
Pokud nechces editovat report je to bez problemu, protoze je napojen primo
na TDataset. Ale existuji nastroje, kde uzivatel muze sam navrhnout report i
data a ten navrhar dat jde vetsinou pres BDE.
QRDesigner mi bez BDE normalne funguje (delphi 5), ale pokud chci pouzivat
wizard na navrh noveho reportu, pak to BDE vyzaduje :-( ale vyresil jsem to
tak, ze uzivatel nemusi navrhovat report uplne od zazatku, ale muze si ho
zkopirovat z reportu, ktery vytvorili programatori.
focus pro komponentu
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 26.6.2002 16:28:32
Zdravim
Mam vlastni komponentu tlacitko odvozenou od TGraphicControl. Potreboval
bych teto komponente pridelat ziskavani focusu pomoci tabulatoru. Ted je
tato komponenta ignorovana a focus nedostava. Muzete me nekdo nakopnout co a
jak?
P.S.:Ostatni problemy uz jsem vyresil, uz neni potreba odpovidat. Diky.
Diky
Zdenek
Re[2]: Optimalizace db FB
[*] Roland Turcan <rolo(zv)sedas.sk> - 26.6.2002 16:45:37
<<< 26. 6. 2002 16:44 - Alex Cherednichenko "cherednichenko(zv)wo(tec)cz" >>>
AC> b> ptam se proto, ze pri navrhu struktury databaze jsem ruzne laboroval
AC> b> (vkladal, mazal) a soubor s daty narostl do 63 MB. "Optimalizaci" jsem
AC> b> provedl tak, ze jsem databazi zalohoval pomoci gbak.exe a potom opet
AC> b> obnovil, soubor mel potom velikost 33 MB...
AC> A co dal ?
AC> Bude ten GDB soubor jen pro cteni ?
AC> Pokud ne, tak na takovu "optimalizaci" muzes se vykaslat...
To snad nemyslis tak, ze SWEEP staci, a B/R netreba vykonavat ?
--
Best regards, TRoland
"Interface is not supported" pri pouziti TImgEdit
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 26.6.2002 17:03:13
Zdravim,
naimportoval jsem si ActiveX prvek TImgEdit (kvuli zobrazeni TIFF
obrazku). Pri Create to jde ok, ale jakmile zavolam nejakou metodu
hodi to chybu (viz. %subj%). Ale stava se to jen pri pouziti v DLL,
pokud to dam primo do aplikace jde to ok. Vim ze pri pouziti Ole
objektu v DLL je potreba zavolat CoInitialize a CoUninitialize, ale v
tomhle pripade mi to nepomaha...
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Re[2]: Optimalizace db FB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 26.6.2002 17:09:57
> To snad nemyslis tak, ze SWEEP staci, a B/R netreba vykonavat ?
no, pokud se s databazi pracuje, tak stejne casem zase nabobtna.
neni duvod ji umele zmensovat pouzitim B/R. nebo myslis, ze nejaky
zasadni existuje?
peca
Vlastni kresleni Scrollbaru
[*] Jan Zeleny <zeleny.jan(zv)seznam(tec)cz> - 26.6.2002 17:30:58
Ahoj, mam jednoduchy dotaz.
Jak zajistit vlastni prekreslovani scrollbaru v komponentach typu
listbox, richedit. Jak vymenit klasiku za svoje vlastni bitmapy, jako
to dela IE.
Diky za info
J.Z.
D6
WXP
______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam(tec)cz
focus pro komponentu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 17:37:10
From: "Zdenek Stepanek" <zstepanek(zv)atlas(tec)cz>
> Mam vlastni komponentu tlacitko odvozenou od TGraphicControl. Potreboval
> bych teto komponente pridelat ziskavani focusu pomoci tabulatoru. Ted je
> tato komponenta ignorovana a focus nedostava. Muzete me nekdo nakopnout co a
> jak?
V tom pripade ji musis odvodit od TWinControl nebo TCustomControl.
Petr Vones
DateTimePicker
[*] <M.Babik(zv)mus(tec)cz> - 26.6.2002 17:37:53
Zdravim!
Nevite jak do nej dostat prazdny retezec? Dik
M&B
Unita CRT32 pro Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 17:39:07
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> je tedy nevim, co dela CRT32, ale taky se priklanim k tomu, do vyuky to
> nezatahovat, protoze to je umela vec, ktera se v praxi jinak zrejme
> nepouziva (cest vyjimkam).
Presne tak. Pokud to ma byt konzolova aplikace, pak at pouziva Write/Ln, jinak
klasicke GUI.
Petr Vones
Nastavovani systemoveho casu v XP
[*] vobornik(zv)apel(tec)cz - 26.6.2002 17:44:26
Preji hezky den,
ve WinXP nastavuji systemovy cas pomoci funkce SetPCSystemTime(dDateTime:
TDateTime) viz. nize.
Pokud jsem prihlasen jako admin, tak je to ok. Pokud se ale prihlasim jako
user, tak mi to vraci chybu -
"Not all privileges referenced are assigned to the caller". Nevite nekdo
prosim co stim.
Dekuji
Petr Vobornik (D3cs)
function SetPCSystemTime(dDateTime: TDateTime): Boolean;
const
SE_SYSTEMTIME_NAME = 'SeSystemtimePrivilege';
var
hToken: THandle;
ReturnLength: DWORD;
tkp, PrevTokenPriv: TTokenPrivileges;
luid: TLargeInteger;
dSysTime: TSystemTime;
begin
Result := False;
if (Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
if OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
try
if not LookupPrivilegeValue(nil, SE_SYSTEMTIME_NAME, luid) then
Exit;
tkp.PrivilegeCount := 1;
tkp.Privileges[0].luid := luid;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if not AdjustTokenPrivileges(hToken, False, tkp,
SizeOf(TTOKENPRIVILEGES),
PrevTokenPriv, ReturnLength) then
Exit;
if (GetLastError <> ERROR_SUCCESS) then
begin
raise Exception.Create(SysErrorMessage(GetLastError));
Exit;
end;
finally
CloseHandle(hToken);
end;
end;
end;
DateTimeToSystemTime(dDateTime, dSysTime);
Result := Windows.SetLocalTime(dSysTime);
focus pro komponentu
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 26.6.2002 18:04:46
TGraphicControl nemuze mit focus, ten je az od TWinControl. A u te je
potreba nastavit TabStop na True.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Wednesday, June 26, 2002, 4:28:32 PM, you wrote:
ZS> Zdravim
ZS> Mam vlastni komponentu tlacitko odvozenou od TGraphicControl. Potreboval
ZS> bych teto komponente pridelat ziskavani focusu pomoci tabulatoru. Ted je
ZS> tato komponenta ignorovana a focus nedostava. Muzete me nekdo nakopnout co a
ZS> jak?
ZS> P.S.:Ostatni problemy uz jsem vyresil, uz neni potreba odpovidat. Diky.
ZS> Diky
ZS> Zdenek
DateTimePicker
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 26.6.2002 18:29:39
Nijak. Pokud chces nejak zajistit moznost zadani prazdneho data tak dej
ShowCheckbox na True a pak kontroluj jestli je Checked.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Wednesday, June 26, 2002, 5:37:53 PM, you wrote:
MBmc> Zdravim!
MBmc> Nevite jak do nej dostat prazdny retezec? Dik
MBmc> M&B
Nastavovani systemoveho casu v XP
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 26.6.2002 18:32:44
Systemovy cas muze nastavovat jen uzivatel typu administrator.
Pochybuji ze by to slo obejit jinak nez pridelenim uzivateli
administratorska prava...
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Wednesday, June 26, 2002, 5:44:26 PM, you wrote:
vac> Preji hezky den,
vac> ve WinXP nastavuji systemovy cas pomoci funkce SetPCSystemTime(dDateTime:
vac> TDateTime) viz. nize.
vac> Pokud jsem prihlasen jako admin, tak je to ok. Pokud se ale prihlasim jako
vac> user, tak mi to vraci chybu -
vac> "Not all privileges referenced are assigned to the caller". Nevite nekdo
vac> prosim co stim.
vac> Dekuji
vac> Petr Vobornik (D3cs)
vac> function SetPCSystemTime(dDateTime: TDateTime): Boolean;
vac> const
vac> SE_SYSTEMTIME_NAME = 'SeSystemtimePrivilege';
vac> var
vac> hToken: THandle;
vac> ReturnLength: DWORD;
vac> tkp, PrevTokenPriv: TTokenPrivileges;
vac> luid: TLargeInteger;
vac> dSysTime: TSystemTime;
vac> begin
vac> Result := False;
vac> if (Win32Platform = VER_PLATFORM_WIN32_NT) then
vac> begin
vac> if OpenProcessToken(GetCurrentProcess,
vac> TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
vac> begin
vac> try
vac> if not LookupPrivilegeValue(nil, SE_SYSTEMTIME_NAME, luid) then
vac> Exit;
vac> tkp.PrivilegeCount := 1;
vac> tkp.Privileges[0].luid := luid;
vac> tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
vac> if not AdjustTokenPrivileges(hToken, False, tkp,
vac> SizeOf(TTOKENPRIVILEGES),
vac> PrevTokenPriv, ReturnLength) then
vac> Exit;
vac> if (GetLastError <> ERROR_SUCCESS) then
vac> begin
vac> raise Exception.Create(SysErrorMessage(GetLastError));
vac> Exit;
vac> end;
vac> finally
vac> CloseHandle(hToken);
vac> end;
vac> end;
vac> end;
vac> DateTimeToSystemTime(dDateTime, dSysTime);
vac> Result := Windows.SetLocalTime(dSysTime);
Optimalizace db FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 26.6.2002 18:36:13
Hello, Roland!
You wrote:
RT> To snad nemyslis tak, ze SWEEP staci, a B/R netreba vykonavat ?
Prozrad, prosim, co tim chces dosahnout ?
Prirovnat RDB$FORMAT = 1, a vynulovat OIT/OAT ?
Co jineho ?
B/R nema nic spolecneho s pojmem "optimalizace".
With best regards, Alex Cherednichenko.
W2K - chyba aplikace - znovu
[*] cis <cis(zv)atlas(tec)cz> - 26.6.2002 20:03:39
hi,
nam se to bez generace toho choveho hlaseni nepodarilo rozchodit. Posilali
jsme i dotazy, zadna odpoved. Proto jsme toto reseni zavrhli.
ales
----- Original Message -----
From: "Robert Suska" <delphi(zv)korak.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 26, 2002 10:42 AM
Subject: Re: W2K - chyba aplikace - znovu
> Ahojte!
>
> cital som tento mail a mam k nemu otazku. To ako nepouzijem QReport bez
> instalovania BDE na masinu kde budem instalovat apl. ????
>
> Dakujem
>
> Robo
>
>
> > Hi,
> > taky jsem to resil, a pouzil stejne reseni bez BDE. Fungovalo to
> perfektne,
> > az na jeden maly problem. Pokud jsi to pustil na "ciste" masine. kde
> nebylo
> > BDE tak to vyhazovalo chybu, muselo se odklepnout okno a jelo to dal.
> Mozna,
> > ze jsem mel nejakou starsi verzi. Pri prechodu na D6 uz QReport neslo
> > pouzivat vubec, protoze pri jakekoliv zmene se bandy prekreslovaly tak
> > pomalu (treba 5 min) az to bylo nepoyitelne...
> >
> > ales
> >
> >
> > ----- Original Message -----
> > From: "Richard Kejval" <kejval.delphi(zv)centrum(tec)cz>
> > To: <delphi-l(zv)clexpert(tec)cz>
> > Sent: Monday, June 24, 2002 9:37 AM
> > Subject: Re: W2K - chyba aplikace - znovu
> >
> >
> > > Ahoj,
> > > nedavno jsem resil podobny problem, ktery report pouzit.
> > > Pozadavek znel :
> > > 1. Uzivatelska editace reportu
> > > 2. Nepouzivat BDE
> >
> >
> >
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.371 / Virov� b�ze: 206 - datum vyd�n�: 13-6-2002
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.371 / Virov� b�ze: 206 - datum vyd�n�: 13-6-2002
QReport vs. BDE
[*] cis <cis(zv)atlas(tec)cz> - 26.6.2002 20:06:44
hi,
pouzivam DAO k napojeni na oracle, a i tak se tam objevuje chzbova hlaska na
BDE.
ales
----- Original Message -----
From: "Jakub Dusek" <jdev(zv)seznam(tec)cz>
To: "Robert Suska" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 26, 2002 2:32 PM
Subject: Re: QReport vs. BDE
> Pokud nebudes v reportu konektovat zadnou databazi a pouzivat jen
standartni QR komponenty (ne DB) tak to funguje i bez BDE.
>
> Jakub Dusek
>
> -------------------------------------------
> Homepage : http://dusek.zde(tec)cz
> Phone : +420604615795
> Sms email : jakub.dusek(zv)click(tec)cz
> Icq : 86063232
> Apps : Add/Remove Manager, Charmaper,
> Sms GateKeeper
> -------------------------------------------
>
> Wednesday, June 26, 2002, 2:03:56 PM, you wrote:
>
> RS> Ahojte!
>
> RS> Asi to zapadlo :) tak sa opytam este raz. Podla mna je to hlupost, ale
> RS> predsa je QReport v Delphi 6 Ent zavisle od instalacie BDE ? Myslim
tak ze
> RS> ked pouzijem QReport do svojej aplikacie a nainstalujem ju clientovi
> RS> samozrejme bez BDE tak sa mu nebude zobrazovat alebo to bude hlasit
nejake
> RS> chyby pri nabehu aplikacie alebo co??? Lebo nepouzivam ziadnu databazu
data
> RS> dostavam zo servera v txt podobe a predsa ich nebudem ladovat do
nejakej
> RS> tabulky kvoli tomu aby som ich zobrazil do QReportu alebo ako???
>
> RS> Dakujem
>
> RS> Robo
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.371 / Virov� b�ze: 206 - datum vyd�n�: 13-6-2002
FB rychle vkladani zaznamu
[*] miro mrazik <preas_w(zv)stonline.sk> - 26.6.2002 20:32:42
Ahoj
> 2) Stahujes vsechny radky. Muzes pouzivat Filter nebo Range, ale az na
klientovi
Mozna ze to tak robi TTable z BDE ale TIBTable to robi pomocou fraze where
ako kazdy iny sql prikaz . Toto je v zdrojakoch napr. k filtrovaniu (
InternalTableRefresh):
procedure TIBTable.SetFiltered(Value: Boolean);
begin
if(Filtered <> Value) then
begin
inherited SetFiltered(value);
if Active then
InternalTableRefresh;
end
else
inherited SetFiltered(value);
end;
procedure TIBTable.SetFilterText(const Value: string);
begin
if Filtered and (Value <> Filter) then
begin
inherited SetFilterText(value);
InternalTableRefresh;
end
else
inherited SetFilterText(value);
end;
procedure TIBTable.InternalRefreshRow;
begin
if CurrentDBKey.DBKey[0] <> 0 then
TOTO TU >>> QRefresh.SQL.Assign(WhereDBKeyRefreshSQL) <<<<!!!
else if WherePrimaryRefreshSQL.Text <> '' then
QRefresh.SQL.Assign(WherePrimaryRefreshSQL)
else
QRefresh.SQL.Assign(WhereAllRefreshSQL);
inherited InternalRefreshRow;
end;
> To znamena, ze na tabulkach s hodne daty nebo hodne sloupci, ktere Te
nezajimaji,
> musis po siti protlacit hodne zbytecnych dat a bude to pomale.
To zalezi asi na komponentach a ich autoroch ako to urobia. Preto je dobre
si pozriet zdrojaky danej komponenty table ako je to tam a podla toho sa
zachovat.
Miro
IBX nebo IBO?
[*] Kroutil, Michal <kroutilm(zv)wsc(tec)cz> - 26.6.2002 21:28:48
Za��n�m ps�t aplikaci v D6. Rozhodl jsem se pro komponenty IBX, proto�e jsou
l�pe dokumentovan� a p�ehledn�j��. M�te n�kdo n�jakou �patnou zku�enost s
IBX nebo z�sadn� d�vod, pro� je IBO lep��?
Michal
Re[4]: Optimalizace db FB
[*] Roland Turcan <rolo(zv)sedas.sk> - 26.6.2002 21:33:18
<<< 26. 6. 2002 21:24 - Petr Palicka "petr.palicka(zv)atlas(tec)cz" >>>
>> To snad nemyslis tak, ze SWEEP staci, a B/R netreba vykonavat ?
PP> no, pokud se s databazi pracuje, tak stejne casem zase nabobtna.
PP> neni duvod ji umele zmensovat pouzitim B/R. nebo myslis, ze nejaky
PP> zasadni existuje?
Myslim si, ze to funguje nieco ako FAT, dana tabulka s datami sa po
prekroceni page zapise na dalsom volnom priestore(po sweep),
alebo na konci databazy a IMHO nastava jav fragmentacie.
Po restore DB sa vsetky data v tabulkach,... zapisu za sebou
(defragmentuju) a HDD ked cita nemusi stepovat po povrchu. Je mi jasne
ze po case sa zase sfragmentuje, ale s tym nic nenarobime.
Tieto dojmy mam po mojich testoch, kde som spravil:
1.Vyrobil velku databazu s jednou velkou tabulkou
2.Cast data som zmazal
3.Fyzicky som si ju skopiroval z dovodu porovnania
4.Spravil som SWEEP
5.Zmeral cas SELECTU
6.Obnovil som povodnu databazu z bodu 3.
7.Urobil B/R
8.Zmeral cas selectu ako v bode 5
A robilo mi to narast rychlosti, cca. 40%
Ak sa mylim, vyvedte ma z omylu, prosim.
--
Best regards, TRoland
MDI Child formul�� se schov�v� za toolbar
[*] IT-BOSS <it-boss(zv)seznam(tec)cz> - 26.6.2002 22:35:55
> > V hlavn�m formul��i m�m komponentu ControlBar a v n� dva toolbary. Kdy�
> > otev�u Child formul�� a maximalizuji jej, tak se jeho horn� ��st schov�
> pod
> > ten Controlbar.
> > Pot�eboval bych zajistit, aby kdy� ChildForm maximalizuji, byly vid�t
jeho
> > ovl�dac� tla��tka jako je tomu t�eba ve Wordu. Ten m�j child po��d leze
> pod
> > ControlBar.
> >
> > D�ky p�edem za radu.
> > Josef Obdr��lek
> >
>
DateTimePicker.ShowCheckbox:=True & .Kind:=dtkTime
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 26.6.2002 23:10:27
> Nijak. Pokud chces nejak zajistit moznost zadani prazdneho
> data tak dej ShowCheckbox na True a pak kontroluj jestli je
> Checked.
Kdyz jsme u toho, tak takovy DateTimePicker nelze ovladat
sipkami, po kazdem kliknuti se focus presune na checkbox.
Nevite jak toto odstranit ?
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Create process a presmerovanie vystupu
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 26.6.2002 23:46:38
Cez createProcess volam moj.exe (konzolova aplikacia) a chcem aby vystup z
exe presmeroval do file vystup.txt
V DOS-e command by vypadal takto :
moj.exe >vystup.txt
Takto to robim v delphi ale vystup.txt sa nevytvara:
pCommand:='moj.exe >vystup.txt';
CreateProcess(nil,PCha(pCommand),nil,nil,FALSE,0,nil,nil,StartupInfo,Process
Information)
Neviem ako to mam spravit. Mam volat nejako command.com?
Druha otazka , (asi suvisy):
Tiez ak chem volat nejaky dosavsky prikaz napr. copy, tak ako to mam
spravit cez CreateProcess? (ja viem ze existuje copyFile win fukcia ale to
nechcem)
Dakujem
auto zolohovani po siti
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 27.6.2002 00:14:24
----- Original Message -----
From: "Petr Palicka" petr.palicka(zv)atlas(tec)cz
jestli se nepletu, tak winNT,2k,XP maji prikaz AT.
w95,98,ME maji nejakej planovac uloh.
oboji umi spustit program/batku v zadany cas (i opakovane)
Ahoj.
Dej ale pozor na zvolenou metodu kopirovani souboru a aby se to k zamcenym
souborum vratilo.
Casty problem pri zalohovani pomozi Xcopy32 (umi i "zalohovat" i
prirustkove) je, ze zrovna v dobe zalohy ma nekdo ci neco nejaky soubor
excluzivne otevreny a ten ja pak preskocen. Ze v pripade problemu je to
zrovna tech 5 nejdulezitejsich souboru z nekolika tisic snad neni potreba
dodavat.
Ludek
Nastavovani systemoveho casu v XP
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 27.6.2002 00:23:24
Zdravim
Nevim, jesli to jde i pod XP, ale mozna by mohlo jit tomu procesu nastavit
administratorska prava.
Zdenek
----- Original Message -----
> Systemovy cas muze nastavovat jen uzivatel typu administrator.
> Pochybuji ze by to slo obejit jinak nez pridelenim uzivateli
> administratorska prava...
Sifrovanie
[*] Roland Turcan <rolo(zv)sedas.sk> - 27.6.2002 01:46:27
Hello Delphi CZ konferencia!
Co by ste mi doporucili na sifrovanie textu. Ide mi o sifrovanie XML
pocas prenosu.
--
Best regards, TRoland
IBX nebo IBO?
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 27.6.2002 07:52:38
Jeden zcela zasadni duvod by tu byl - IBX podporuji jen InterBase, zatimco
IBO podporuji i FB. V tuto chvili s tim problem nebude, ale do budoucna se
tyto dva projekty budou rozhodne v necem rozchazet a Borland preci nebude
podporovat konkurencni SQL server.
IMHO dokumentace k IBO je na velice dobre urovni.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> l�pe dokumentovan� a p�ehledn�j��. M�te n�kdo n�jakou �patnou zku�enost s
> IBX nebo z�sadn� d�vod, pro� je IBO lep��?
> Michal
Nastavovani systemoveho casu v XP
[*] Gallina Lukas <Lukas.Gallina(zv)cz.danzas(tec)com> - 27.6.2002 08:16:58
Ahoj,
to je omyl, ve Windows 2000, XP je v nastrojich pro spravu konzole "Mistni
nastaveni zabezpeceni" kde v "Mistnich zasadach" v "Prirazeni uzivatelskych
prav" je properta "Zmenit systemovy cas".
Pokud jsi v AD pak na radici AD je konzole "Domain security nebo tak nejak"
kde to jde nastavit pro celou AD ci jeji cast.
S pozdravem
Lukas Gallina
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zdenek Stepanek
Sent: Thursday, June 27, 2002 12:23 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Nastavovani systemoveho casu v XP
Zdravim
Nevim, jesli to jde i pod XP, ale mozna by mohlo jit tomu procesu nastavit
administratorska prava.
Zdenek
----- Original Message -----
> Systemovy cas muze nastavovat jen uzivatel typu administrator.
> Pochybuji ze by to slo obejit jinak nez pridelenim uzivateli
> administratorska prava...
Create process a presmerovanie vystupu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 27.6.2002 08:46:00
> Cez createProcess volam moj.exe (konzolova aplikacia) a chcem aby
vystup z
> exe presmeroval do file vystup.txt
>
> V DOS-e command by vypadal takto :
> moj.exe >vystup.txt
>
> Takto to robim v delphi ale vystup.txt sa nevytvara:
> pCommand:='moj.exe >vystup.txt';
>
CreateProcess(nil,PCha(pCommand),nil,nil,FALSE,0,nil,nil,StartupInfo,P
rocess
> Information)
Jednak muzes primo odchytavat obsah konzole (pokud je vystup kratky
nemusis vystup
konzolove aplikace presmerovavat do souboru ale do bufferu konzole).
Druhak parameter StartupInfo funkce CreateProcess obsahuje polozky
urcujici handle
na vstupni/vystupni/chybovy soubor
Tady je ukazka od MS (pouziva pipy misto filu):
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q190351
Ale z vlastnich zkusenosti mohu rici, ze je tu problem s nekterymi
aplikacemi - jejich vystup nejde presmerovat. MS pak radi pouzit
berlicku - vytvorit
consolovou aplikaci jako wrapper, kteriou zavolaz aby spustila ten
cilovy program.
JInak se chovaji 32 aplikace a jinak puvodni 16 bitove DOS binarky...
> Neviem ako to mam spravit. Mam volat nejako command.com?
mozna by to taky slo - ale na WinNT command.com neexistuje (ale
cmd.exe)
>
> Druha otazka , (asi suvisy):
> Tiez ak chem volat nejaky dosavsky prikaz napr. copy, tak ako to
mam
> spravit cez CreateProcess? (ja viem ze existuje copyFile win fukcia
ale to
> nechcem)
je to potreba vyzkouset. Taky bych prohledal MS knowledge base
(msdn.microsoft.com. support.microsoft.com) a www.google.com
D. Toman
Create process a presmerovanie vystupu
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 27.6.2002 08:59:14
Uz to mam
pCommad := 'cmd.exe /C moj.exe >vystup.txt'; a vsetko funguje.
Dakujem
|| -----Original Message-----
|| From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
|| Sent: Thursday, June 27, 2002 8:46 AM
|| To: delphi-l(zv)clexpert(tec)cz
|| Subject: Re: Create process a presmerovanie vystupu
||
||
||
||
|| > Cez createProcess volam moj.exe (konzolova aplikacia)
|| a chcem aby
|| vystup z
|| > exe presmeroval do file vystup.txt
|| >
|| > V DOS-e command by vypadal takto :
|| > moj.exe >vystup.txt
|| >
|| > Takto to robim v delphi ale vystup.txt sa nevytvara:
|| > pCommand:='moj.exe >vystup.txt';
|| >
|| CreateProcess(nil,PCha(pCommand),nil,nil,FALSE,0,nil,nil,
|| StartupInfo,P
|| rocess
|| > Information)
||
|| Jednak muzes primo odchytavat obsah konzole (pokud je
|| vystup kratky
|| nemusis vystup
|| konzolove aplikace presmerovavat do souboru ale do
|| bufferu konzole).
|| Druhak parameter StartupInfo funkce CreateProcess
|| obsahuje polozky
|| urcujici handle
|| na vstupni/vystupni/chybovy soubor
||
|| Tady je ukazka od MS (pouziva pipy misto filu):
|| http://support.microsoft.com/default.aspx?scid=kb;EN-US;q190351
||
|| Ale z vlastnich zkusenosti mohu rici, ze je tu problem s
|| nekterymi
|| aplikacemi - jejich vystup nejde presmerovat. MS pak radi pouzit
|| berlicku - vytvorit
|| consolovou aplikaci jako wrapper, kteriou zavolaz aby
|| spustila ten
|| cilovy program.
|| JInak se chovaji 32 aplikace a jinak puvodni 16 bitove
|| DOS binarky...
||
|| > Neviem ako to mam spravit. Mam volat nejako command.com?
||
|| mozna by to taky slo - ale na WinNT command.com neexistuje (ale
|| cmd.exe)
||
|| >
|| > Druha otazka , (asi suvisy):
|| > Tiez ak chem volat nejaky dosavsky prikaz napr. copy,
|| tak ako to
|| mam
|| > spravit cez CreateProcess? (ja viem ze existuje
|| copyFile win fukcia
|| ale to
|| > nechcem)
||
|| je to potreba vyzkouset. Taky bych prohledal MS knowledge base
|| (msdn.microsoft.com. support.microsoft.com) a www.google.com
||
||
|| D. Toman
||
||
jak na IBGUARD?
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 27.6.2002 09:11:46
Haj hou!
On 25 Jun 2002 at 18:40, bleak wrote:
> pri pokusu o spusteni ibguard.exe program hlasi: The registry informatiom
> missing. Please run the Firebird Server Configuration Utility.
> Jaky zapis vyzaduje ibguard v registru? Co (kde) je ten konfiguracni
> nastroj?
Zrejme mas starsi verzi distribuce, ktera ma chybku v instalaku. Dopln si do klice
HKEY_LOCAL_MACHINE\Software\Borland\InterBase\CurrentVersion (uz tam
je) stringovy parametr GuardianOption s hodnotou "1".
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Optimalizace db FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 27.6.2002 09:11:46
Haj hou!
On 26 Jun 2002 at 18:36, Alex Cherednichenko wrote:
> Hello, Roland!
> You wrote:
>
> RT> To snad nemyslis tak, ze SWEEP staci, a B/R netreba vykonavat ?
>
> Prozrad, prosim, co tim chces dosahnout ?
> Prirovnat RDB$FORMAT = 1, a vynulovat OIT/OAT ?
> Co jineho ?
> B/R nema nic spolecneho s pojmem "optimalizace".
Ale ma, dojde k optimalizaci ulozeni dat / distribuci na db strankach. Operace
UPDATE a DELETE vedou po case k fragmentaci radku. Ta se da odstranit
pouze B/R.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
OT: Instalce WinXP CZ
[*] Dalibor Bednarcik <dalibor(zv)torola(tec)cz> - 27.6.2002 09:13:03
Omlouvam se za OT, ale myslim si, ze by tato informace mohla
nekomu usetrit spoustu casu a nervu.
Pokud budete instalovat ceske XP a po prvnim restartu vam
Instalacni program zobrazi hlasku typu "Vznikla zavazna chyba, v
instalaci nelze pokracovat ...", tak musite zmenit DATUM v BIOSU
aspon na UNOR.
Instalaci zdar...
Dalibor
Optimalizace db FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 27.6.2002 09:18:22
Hello, Roland!
You wrote:
[Sorry, skipped]
RT> Po restore DB sa vsetky data v tabulkach,... zapisu za sebou
RT> (defragmentuju) a HDD ked cita nemusi stepovat po povrchu. Je mi jasne
RT> ze po case sa zase sfragmentuje, ale s tym nic nenarobime.
Toto plati jen v prypade ze pro dotaz bude PLAN NATURAL.
Pro JOIN, SORT, INDEX toto je houby platne.
With best regards, Alex Cherednichenko.
OT: DB system (DAT,IX)
[*] campulka <campulka(zv)czas(tec)cz> - 27.6.2002 09:34:37
Cau,
nevite nekdo jaky databazovy system pouziva pripony .DAT a .IX ?
Aplikace, ktera tyto soubory vyuziva je napsana v Delphi, ale nemam zdrojaky
abych se podival co to pouziva za db system nebo komponenty...
Dik Jirka.
"Interface is not supported" pri pouziti TImgEdit
[*] miro mrazik <preas_w(zv)stonline.sk> - 27.6.2002 10:21:47
Ahoj,
naimportoval jsem si ActiveX prvek TImgEdit (kvuli zobrazeni TIFF
> obrazku). Pri Create to jde ok, ale jakmile zavolam nejakou metodu
> hodi to chybu (viz. %subj%). Ale stava se to jen pri pouziti v DLL
Ako to mas v tej DLL. Mas tam formular a na nom je tento IngEdit, alebo
nejak inak.
Kedysi v dobach OSR II som sa o to pokusal tiez. Nemal som ale problem pri
otvarani obrazka, ale problem bol systemove hlasenie na konci pri ukonceni
materskej aplikacie (od tej doby sa aj imaging zmenil a mozno uz to chodi
ok). Imaging mal v kazdej verzii mnozstvo trozdielov v interfacoch a az vo
verzii pre win 2000 je to uz konecne tak ze to bezproblemovo pracuje od
win95 az po win 2000.
Tie vlastnosti a metody ImgEditu by si nemal volat priamo z tvojej
aplikacie, ja som to mal tak, ze som si urobil v dll formular, an ktorom
boli activex, ten mal public metody ktore som volal z materskej aplikacie a
az v nich som sa odvolaval priamo na activex imagingu.
Miro
OT: Instalce WinXP CZ
[*] konf <kkonf(zv)email(tec)cz> - 27.6.2002 10:26:48
>Pokud budete instalovat ceske XP a po prvnim restartu vam
>Instalacni program zobrazi hlasku typu "Vznikla zavazna chyba, v
>instalaci nelze pokracovat ...", tak musite zmenit DATUM v BIOSU
>aspon na UNOR.
ja sem se dostal az na 6. dubna 2002 :-)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
Nastavovani systemoveho casu v XP
[*] vobornik(zv)apel(tec)cz - 27.6.2002 10:39:28
Je to presne tak, je potreba nastavit uzivatelska prava. User ma primarne
zakaz menit cas. Jak to zmenit programove ovsem nevim. Myslel jsem, ze
pomoci nastaveni pristupovych prav pomoci "AdjustTokenPrivileges" a
konstanty "SE_SYSTEMTIME_NAME", ale jak jsem jiz psal to nefunguje. Nebo
spatne chapu vyznam "AdjustTokenPrivileges" ?
S pozdravem
PV
-----P�vodn� zpr�va-----
u�ivatele Gallina Lukas
Ahoj,
to je omyl, ve Windows 2000, XP je v nastrojich pro spravu konzole "Mistni
nastaveni zabezpeceni" kde v "Mistnich zasadach" v "Prirazeni uzivatelskych
prav" je properta "Zmenit systemovy cas".Crystal Report
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 27.6.2002 10:41:02
Hello Robert,
Wednesday, June 26, 2002, 3:48:42 PM, you wrote:
RS> Ahojte!
RS> Su lepsie ako QReport ?
RS> Dakujem
RS> Robo
Ano sou lepsi ale drazzis. U nas v praci to pouzivame vsude.
Dokonce to umi i reporty do PDF,XLS atd..
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Nastavovani systemoveho casu v XP
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 27.6.2002 11:04:44
> Je to presne tak, je potreba nastavit uzivatelska prava. User
> ma primarne zakaz menit cas. Jak to zmenit programove ovsem
> nevim. Myslel jsem, ze pomoci nastaveni pristupovych prav
> pomoci "AdjustTokenPrivileges" a konstanty
> "SE_SYSTEMTIME_NAME", ale jak jsem jiz psal to nefunguje.
> Nebo spatne chapu vyznam "AdjustTokenPrivileges" ?
Nie je to nahodou tym, ze dany user nema prava menit si prava?
Pripadne skus TOKEN_READ or TOKEN_ADJUST_PRIVILEGES, mozno samotne
TOKEN_QUERY nestaci.
HTH
TOndrej
try--except
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 27.6.2002 11:05:42
Pokud si dobre pamatuji, v dokumentaci se pise neco takoveho:
Pokud vznikne vyjimka v Create, vyjimka vyskoci z Create a vola se
automaticky destructor. Takze se o toto nemusis starat.
Zdenek Stepanek wrote:
>
> Zdravim
>
> Diky, presne to me taky napadlo, ale rekl jsem si, co kdyby vznikla chyba
> prave v tom create? No co, tak to dam jeste pres try.
>
> Zdenek
> ----- Original Message -----
>
> > > try
> > > Registry := TRegistry.Create
> > > -
> > > Registry.Free;
> > > except
> > > Registry.Free; <<<chyba
> > > Result := false;
> > > end;
> > > D5 na me krici "Variable 'Registry' might not have been initialized".
> > Pouzit
> > > try--finally nechci, protoze za except mam i Result := false; kdyz
> funkce
> > > skonci chybne. Nevite nekdo, co delam spatne?
> >
> > D5 ma pravdu. Pokud se nezdari TRegistry.Create (cili vyvola se vyjimka),
> > pak nedojde k prirazeni do promenne Registry a hodnota teto promenne neni
> > definovana a destrukce tohoto "objektu" muze vyvolat vyjimku. Create se
> musi
> > postarat o pripadnou destrukci alokovanych prostredku pri vyjimce.
> >
> > Spravneji tedy
> > Registry := TRegistry.Create
> > try
> > ....
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Odchytenie klaves z inej aplikacie
[*] miro mrazik <preas_w(zv)stonline.sk> - 27.6.2002 11:12:58
Zdravim vsetkych,
Potreboval by som vo svojej aplikacii odchytit stisk urcitych klaves v inej
aplikacii, resp. ak nic nebezi tak v mS Windows.
Napr. Ked uzivatel bude pracovat s MS Wordom a stlaci napriklad
CTRL+medzera, potrboval by som tuto udalost odchytit.
V konferencii som nasiel len opacny postup z aplikacie do inej aplikacie.
Existuje na to nejake riesenie?
Diky Miro
Nastavovani systemoveho casu v XP
[*] vobornik(zv)apel(tec)cz - 27.6.2002 11:19:27
Pouzivam TOKEN_QUERY a je to OK. Stejny postup pouzivam na restart pres
SE_SHUTDOWN_NAME a ten funguje.
-----P�vodn� zpr�va-----
u�ivatele Ondrej Kelle
Nie je to nahodou tym, ze dany user nema prava menit si prava?
Pripadne skus TOKEN_READ or TOKEN_ADJUST_PRIVILEGES, mozno samotne
TOKEN_QUERY nestaci.
HTH
TOndrej
OT: Instalce WinXP CZ
[*] Emresz Tom� <Tomas.Emresz(zv)bsp(tec)cz> - 27.6.2002 11:24:25
>>Pokud budete instalovat ceske XP a po prvnim restartu vam Instalacni
>>program zobrazi hlasku typu "Vznikla zavazna chyba, v instalaci nelze
>>pokracovat ...", tak musite zmenit DATUM v BIOSU aspon na UNOR.
>ja sem se dostal az na 6. dubna 2002 :-)
Ja az k 31.5.2002 :-)
Re[2]: Optimalizace db FB
[*] Roland Turcan <rolo(zv)sedas.sk> - 27.6.2002 12:03:50
<<< 27. 6. 2002 12:02 - Alex Cherednichenko "cherednichenko(zv)wo(tec)cz" >>>
AC> Hello, Roland!
AC> You wrote:
AC> [Sorry, skipped]
AC> RT> Po restore DB sa vsetky data v tabulkach,... zapisu za sebou
AC> RT> (defragmentuju) a HDD ked cita nemusi stepovat po povrchu. Je mi jasne
AC> RT> ze po case sa zase sfragmentuje, ale s tym nic nenarobime.
AC> Toto plati jen v prypade ze pro dotaz bude PLAN NATURAL.
AC> Pro JOIN, SORT, INDEX toto je houby platne.
Alex, ja viem na co myslis, ale tie data ak nie su v cache a su
rozhadzane na roznych castiach HDD musi disk prejst s hlavickami na
ine miesto. To je jasne ze na zaklade indexu vie kde to je, ale napr.
aj index je ulozeny v pages a tie tie mozu byt rozhadzane.
--
Best regards, TRoland
Sifrovanie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.2002 12:11:53
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Co by ste mi doporucili na sifrovanie textu. Ide mi o sifrovanie XML
> pocas prenosu.
HTTPS protokol.
Petr Vones
Optimalizace db FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 27.6.2002 12:16:11
Hello, Pavel!
You wrote:
[Sorry, skipped]
>> B/R nema nic spolecneho s pojmem "optimalizace".
PC> Ale ma, dojde k optimalizaci ulozeni dat / distribuci na db strankach.
PC> Operace UPDATE a DELETE vedou po case k fragmentaci radku. Ta se da
PC> odstranit pouze B/R.
Jakych radku, Pavle ?
Kdyz klijent dela UPDATE a DELETE, to IB vytvori jeste jednu verse.
Pokud velikost jednoho recordu je mensi od velikosti stranky, o jake
fragmentaci
muze jit rec ?
To co chce pan bleak - jmenuje se "Clustered Index".
V pripade IB to nema smysl.
With best regards, Alex Cherednichenko.
Odchytenie klaves z inej aplikacie
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 27.6.2002 12:27:05
Na tohle se pouzivaji Hooky s filtrem WH_KEYBOARD. Nadefinujes si svoji
filtrovaci funkci v DLL a tam si muzes s tou zpravou delat co chces. Koukni
na SetWindowsHook ve Win32API.
Libor
> Potreboval by som vo svojej aplikacii odchytit stisk urcitych
> klaves v inej
> aplikacii, resp. ak nic nebezi tak v mS Windows.
>
> Napr. Ked uzivatel bude pracovat s MS Wordom a stlaci napriklad
> CTRL+medzera, potrboval by som tuto udalost odchytit.
>
> V konferencii som nasiel len opacny postup z aplikacie do
> inej aplikacie.
> Existuje na to nejake riesenie?
Chyba orezavani v Win9x?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 27.6.2002 12:54:03
Zdravim,
mam metafile a vykresluji ho na druhy metafile (respektive na
metafilecanvas). Problem je v tom, ze abych to vykreslil sparve, nastavim
si orezavaci oblast:
SetClipRgn(canvas.handle,rgn); <- nestaveni orezavani
canvas.draw(x,y,metafile); <- vykresleni metafajlu
SetClipRgn(canvas.handle,0); <- dle Win32 helpu je toto vypnuti
orezavani
problem je v tom, ze na Win2K ci WinXP se orezavani vypne. Na Win9x ne. Jen
pokud kreslim na obrazovku, vypne se. Jinak pokud kreslim do metafajlu,
nevypne se. Zkousel jsem na Win9x i nastavin jiny region, nastavit ten
puvodni co jsem si pamatoval - proste nic. Uz nejde vypnout to orezavani a
pro me je to podstatny problem.
Prosim o jakekoliv nakopnuti co s tim. Treba i reseni jak to vykreslit
jinak bez pouziti SetClipRgn. DIky.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Jak zjistit vysku neklienstke casti TFormu
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 27.6.2002 13:07:30
Cau
potrebuji do me aplikace zjistit jak ziskat vysku caption vcetne sirky okraje u TForm - poze horni cast. Potrebuji to na vypocet vzdalenosti komponenty na TFormu od leveho horniho okraje obrazovky. TForm.Top + komponenta.Top se neda pouzit nebot vyzdalenost u komponenty se udava jako vzdalenost od klientske oblasti okna.
Milos
Jak zjistit vysku neklienstke casti TFormu
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 27.6.2002 13:09:23
Lepsi je pouzit metody ClientToScreen a ScreenToClient te komponenty.
Je to konverze pozice na parentu na pozici na obrazovce a zpet.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Thursday, June 27, 2002, 1:07:30 PM, you wrote:
SM> Cau
SM> potrebuji do me aplikace zjistit jak ziskat vysku caption vcetne sirky okraje u TForm - poze horni cast. Potrebuji to na vypocet vzdalenosti komponenty na TFormu od leveho horniho okraje
SM> obrazovky. TForm.Top + komponenta.Top se neda pouzit nebot vyzdalenost u komponenty se udava jako vzdalenost od klientske oblasti okna.
SM> Milos
Optimalizace db FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 27.6.2002 13:11:00
Haj hou!
On 27 Jun 2002 at 12:16, Alex Cherednichenko wrote:
> Hello, Pavel!
> You wrote:
>
> [Sorry, skipped]
> >> B/R nema nic spolecneho s pojmem "optimalizace".
>
> PC> Ale ma, dojde k optimalizaci ulozeni dat / distribuci na db strankach.
> PC> Operace UPDATE a DELETE vedou po case k fragmentaci radku. Ta se da
> PC> odstranit pouze B/R.
>
> Jakych radku, Pavle ?
> Kdyz klijent dela UPDATE a DELETE, to IB vytvori jeste jednu verse.
> Pokud velikost jednoho recordu je mensi od velikosti stranky, o jake
> fragmentaci
> muze jit rec ?
Dobre, vysvetlim podrobneji :-)
Data jsou ulozena na strankach s pevnou delkou, datove radky na specialnim
typu stranek (type 5 - data page). Na kazde strance jsou data ulozena
nasledovne:
Stranka obsahuje data pouze jedine tabulky, a obsahuje vektor radku (uplnych
nebo fragmentu), pripadne data blobu (jen nektery typ blobu, je jich vic) nebo
array atributu.
Obsazeni stranky je nasledujici:
- Zahlavi stranky (priznaky is full, orphaned, blob nebo array na strance)
- sekvencni cislo stranky (kontrolni)
- cislo tabulky/relace (kontrolni)
- pocet radku nebo fragmentu na strance
- nasleduje vektor deskriptoru radku nebo fragmentu, kazdy ma tvar offset,
delka. Vekto je dynamicky a rozsiruje se smerem od zacatku stranky ke konci
- smerem od konce stranky k zacatku se ukladaji radky a fragmenty.
V pripade vzniku mezer (mazani radku, update) dojde v pripade potreby k jejich
setreseni / prerovnani.
Struktura radku: hlavicka radku, null priznaky, data radku
Hlavicka radku ma strukturu:
- id transakce ktera radek zapsala
- ukazatel na predchozi verzi radku
- priznaky radku
+ vymazany, logicny, ale nikoliv pres GC
+ zretezeny, toto je stara verze radku, na kterou ukazuje novejsi verze
+ fragment, toto je jen kus radku
+ nekompletni, toto je jen zacatek radku, zbyle fragmenty jsou ulozeny jinde
+ blob
+ stream blob
+ delta
+ large (blob nebo array)
+ poskozeny (zjisteno validaci)
- cislo formatu, definuje metadata radku
- ukazatel na dalsi fragment, pouze pokud je fragmentovany (kombinace page
number / line number)
Null priznaky jsou ulozeny jako bitova mapa pro jednotlive polozky. Null data
jsou vyplnena nulami pro umozneni komprese.
Data radku jsou pred ulozenim komprimovana run-length kompresi, vzdy cely
zaznam najednou.
------------
Pokud je ulozena nova verze radku, je ulozena na misto puvodni verze, pro
zachovani cisla zaznamu (dbkey), a stara verze je ulozena jinam. Nova ukazuje
na puvodni. Pro usporu mista je puvodni verze ulozena jako delta (rozdil) k
novejsi verzi, opet pouzito run-length pro popis shodnych casti. Pokud to lze, je
stara verze ulozena na stejnou stranku.
Fragmentace vznika pouze tehdy, pokud se nova verze radku nevejde na misto
puvodni, nebo pokud se novy radek nevejde na stranku. Na strankach se
standardne rezervuje 10% prostoru (page size) prave pro takove pripady
(typicky pripad vzniku je napr. pokud byl radek vytvoren bez nebo s kratsi
hodnotou VARCHAR polozky a proveden UPDATE na delsi hodnotu). Nutno
ovsem vzit v uvahu ruznou miru ucinnosti run-length komprese. Obvzlaste
tabulky s dlouhymi VARCHAR polozkami pro komentare casto trpi fragmentaci.
Dalsi faktor ktery ma vliv na fragmentaci je velky pocet soucasne pracujicich
uzivatelu ktery vede k vytvareni velkeho poctu verzi tehoz radku.
Kazdopadne fragmentace je skutecnost. Rozdil je pouze v mire fragmentace,
ktera se lisi dle struktury dat a rezimu prace. Kazdopadne se doporucuje
provadet B/R alespon jednou rocne, u velmi vytizenych databazi s castym
update a delete i casteji, pripadne po davkovem update nebo delete vice nez
30% radku databaze.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Nezelany update Editov
[*] Roman Toda <toda(zv)digitaldocuments.org> - 27.6.2002 13:18:45
Ahoj,
Mam formular plny Editov a jeden Treeview. Ako sa hybem po treeview tak sa
mi menia hodnoty v Editoch.
No a teraz potrebujem urobit zaverecne spracovanie - cyklus ktory prejde
cely treeview a pre kazdy jeho node spracuje tie hodnoty v Editoch a presne
pre toto spracovanie chcem aby sa neprekreslovali tie edity.
nieco ako:
Neprekresluj;
for i:= 1 to N do begin
Spracuj(Edit1.Text,Edit2.Text);
PosunVTree.
end;
Prekresluj;
Je nieco take mozne na urovni okna (myslim metody Neprekresluj, Prekresluj)?
Vdaka
Roman
Nezelany update Editov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.2002 13:22:25
From: "Roman Toda" <toda(zv)digitaldocuments.org>
> Mam formular plny Editov a jeden Treeview. Ako sa hybem po treeview tak sa
> mi menia hodnoty v Editoch.
> No a teraz potrebujem urobit zaverecne spracovanie - cyklus ktory prejde
> cely treeview a pre kazdy jeho node spracuje tie hodnoty v Editoch a presne
> pre toto spracovanie chcem aby sa neprekreslovali tie edity.
V tomhle pripade asi neni potrebne updatovat ty edity, ne ? Zkratka jen
zpracuj ty informace bez aktualizace GUI. Logika kodu a GUI by mela byt
oddelena, tak aby jsi mohl data zpracovat aniz je nutne je vkladat prubezne do
editu.
Petr Vones
Nezelany update Editov
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 27.6.2002 13:23:13
Predpokladam ze to mas povesene na OnSelect. Takze na zacatku dej Udalosti
hodnotu nil a na konci ji tam zase vrat...
Jeste bych pripomnel TreeView1.Items.BeginUpdate a EndUpdate
Sroub
> Ahoj,
>
> Mam formular plny Editov a jeden Treeview. Ako sa hybem po treeview tak sa
> mi menia hodnoty v Editoch.
> No a teraz potrebujem urobit zaverecne spracovanie - cyklus ktory prejde
> cely treeview a pre kazdy jeho node spracuje tie hodnoty v Editoch a
presne
> pre toto spracovanie chcem aby sa neprekreslovali tie edity.
>
> nieco ako:
> Neprekresluj;
> for i:= 1 to N do begin
> Spracuj(Edit1.Text,Edit2.Text);
> PosunVTree.
> end;
> Prekresluj;
>
> Je nieco take mozne na urovni okna (myslim metody Neprekresluj,
Prekresluj)?
>
> Vdaka
>
> Roman
Delphi 6 PE a IBO
[*] Martinec <martin108(zv)post(tec)cz> - 27.6.2002 13:33:05
Ahoj,
chci se zeptat, jestli je mozna tato kombinace pro praci s FB? Vim, ze D6PE nepodporuje praci s databazemi, ale napadlo mne, ze pomoci IBO by to jit mohlo. Potrebuji doma pracovat s FB, pripadne s jinou free databazi.
S tim souvisi dalsi otazka - je IBO zadarmo pro komercni i nekomercni pouziti?
Dik
Martinec
-----
Open Air Field 2002 s Chemical Brothers
Probo�tsk� jezera - Ctvrtek 4.7.2002.
V�ce na www.freestyle(tec)cz
Optimalizace db FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 27.6.2002 13:53:54
Hello, Roland!
You wrote:
[Sorry, skipped]
AC>> Toto plati jen v prypade ze pro dotaz bude PLAN NATURAL.
AC>> Pro JOIN, SORT, INDEX toto je houby platne.
RT> Alex, ja viem na co myslis, ale tie data ak nie su v cache a su
RT> rozhadzane na roznych castiach HDD musi disk prejst s hlavickami na
RT> ine miesto. To je jasne ze na zaklade indexu vie kde to je, ale napr.
RT> aj index je ulozeny v pages a tie tie mozu byt rozhadzane.
Toto se stane skoro vzdy ;-)
Indexy a data jsou ulozeny zvlast.
Pak IB musi na etapu prepare prohlednout systemovi tabulky
(RDB$PAGES, RDB$INDEXES, RDB$RELATION_CONSTRAINTS a jine)
Kteri take jsou zvlast. A to znamena "...musi disk prejst s hlavickami na
ine miesto."
Tak ze mluvit, ze B/R da nejakyj _znacny_ rust vykonu je nesmysl.
Opakyji, _znacny_.
Testy jako
SELECT * FROM OneTable
za argument nepovazuji. Je to PLAN NATURAL.
With best regards, Alex Cherednichenko.
Optimalizace db FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 27.6.2002 14:07:12
Hello, Pavel!
You wrote:
[Sorry, skipped]
PC> Kazdopadne fragmentace je skutecnost. Rozdil je pouze v mire
PC> fragmentace, ktera se lisi dle struktury dat a rezimu prace. Kazdopadne
PC> se doporucuje provadet B/R alespon jednou rocne, u velmi vytizenych
PC> databazi s castym update a delete i casteji, pripadne po davkovem
PC> update nebo delete vice nez 30% radku databaze.
Jo, to beru :))
Tomu se rika "udrzba" database.
With best regards, Alex Cherednichenko.
Optimalizace db FB
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 27.6.2002 14:10:55
On 27 Jun 2002 at 13:11, Pavel Cisar wrote:
> Kazdopadne se doporucuje provadet B/R alespon jednou rocne, u velmi
> vytizenych databazi s castym update a delete i casteji, pripadne po
> davkovem update nebo delete vice nez 30% radku databaze.
To rad slysim, protoze to zhruba odpovida mym laickym
predstavam. A mam pocit, ze bez B/R se obejit nelze - uz proto ze
odstraneni pripadnych chyb v GDB programem gfix se uplatni prave
az po B/R. Ale - lze se nekde docist, CO SE VLASTNE DEJE pri
restore a lze to bez rizika nejak urychlit? Kdyz ma databaze svych
pocatecnich asi 12 MB, je to legrace. Kdyz uz naroste na 300MB,
trv� restore nekolik hodin. Az bude mit nekolik 2GB souboru - Gott
mit uns.
Z.Kalhous
Chyba orezavani v Win9x?
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 27.6.2002 14:10:59
> problem je v tom, ze na Win2K ci WinXP se orezavani vypne. Na Win9x ne.
Jen
> pokud kreslim na obrazovku, vypne se. Jinak pokud kreslim do metafajlu,
> nevypne se. Zkousel jsem na Win9x i nastavin jiny region, nastavit ten
> puvodni co jsem si pamatoval - proste nic. Uz nejde vypnout to orezavani a
> pro me je to podstatny problem.
S regionmi je problem - obzvlast na Win9x.
Mal som rovnaky problem.
Pri praci s metafile vsetko OK. Pri vykreslovani na obrazovku - nevypinalo
region !
Cize presne opacne ako to co pises Ty.
Riesenie bolo zaujimave - kreslim metafile rozdielne tak - ze na Win9x
ignorujem prikaz SETMETARGN.
Potom je to v poriadku.
if (Win32Platform = VER_PLATFORM_WIN32_NT) then
PlayEnhMetaFile(FWorkingArea.Canvas.Handle, FEMFFile, _Rect)
else
EnumEnhMetaFile(FWorkingArea.Canvas.Handle, FEMFFile, (zv)EnhMetaFunc, nil,
_Rect);
a teda na Win9x sa potom pusta Callback:
function EnhMetaFunc(hDC: Windows.HDC; var lpHTable:HANDLETABLE;
var lpEMFR: ENHMETARECORD; nObj: integer; lpData: LPARAM): integer;
stdcall;
begin
case lpEMFR.iType of
EMR_SETMETARGN: Result := 0;
else Result := 1;
end;
if Result = 1 then
PlayEnhMetaFileRecord(hdc, lpHTable, lpEMFR, nObj);
Result := 1;
end;
jg
J.Grman(zv)kmer.elf.stuba.sk
PCFand driver pro Win9X
[*] =?utf-8?B?VG9tw6HFoSBIb2zDvQ==?= <KonferenceDelphi(zv)thcom(tec)cz> - 27.6.2002 14:56:34
ahoj, doporucuji pouzivat verzi 17 a ne 18, s tou jsem mel nejake potize
TH
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Sebesta Jan
Sent: Wednesday, June 26, 2002 11:06 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: PCFand driver pro Win9X
1. viz http://www.alis(tec)cz/. Ty maji primo ODBC k Fandu.
2. nebo ve fandu pouzivat pouze *.dbf a ty lze jiz cist
Jan Sebesta
----- Original Message -----
From: "JIM Design" <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 26, 2002 10:48 AM
Subject: PCFand driver pro Win9X
> ahoj,
>
> potreboval bych vedet jestli nekdo nevite o nejakem ODBC nebo OLEDB
driveru
> pro PCFand. Nebo jiny zpusob jak precist data z tak hrozneho programu
> aniz bych poustel nejaky externi program.
>
> Predem diky.
>
> M.Jirman
>
>
>
---
Pøíchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virová báze: 207 - datum vydání: 20.6.2002
---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.372 / Virová báze: 207 - datum vydání: 20.6.2002
Nefunkcnost COM objektu
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 27.6.2002 15:06:45
Hello Fredy,
Thursday, June 27, 2002, 2:31:39 PM, you wrote:
zdravim nevite ktera .dll knihovna ma na starosti COM objekt v ASP
<%
Set xls = CreateObject("Excel.Application")
%>
kdyz ji chci takto vytvorit tak to hlasi
Microsoft VBScript runtime error '800a0046'
Permission denied: 'CreateObject'
souvisi to stim ze nevim jak tyto objekty hledat a jak snimi pracovat
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Nefunkcnost COM objektu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.6.2002 15:15:41
Rekl bych, ze je to primo Excell.Exe
Jeste je mozno zkusit excel8.olb
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.6.2002 Vymazal Milan:
> Hello Fredy,
> Thursday, June 27, 2002, 2:31:39 PM, you wrote:
> zdravim nevite ktera .dll knihovna ma na starosti COM objekt v ASP
> <%
> Set xls = CreateObject("Excel.Application")
%>>
> kdyz ji chci takto vytvorit tak to hlasi
> Microsoft VBScript runtime error '800a0046'
> Permission denied: 'CreateObject'
> souvisi to stim ze nevim jak tyto objekty hledat a jak snimi pracovat
FB - jedna nebo vice databazi?
[*] Petr Jansky <delphi(zv)amzdy(tec)cz> - 27.6.2002 15:16:36
Ahoj!
Chystam aplikaci, ktera obhospodaruje vice subjektu (firem). Je lepsi mit
pro kazdy subjekt zvlastni databazi (na tomtez serveru), nebo jednu databazi
pro vsechny?
Neco mi rika (asi jsem to nekde slysel :-)), ze je lepsi jedna.
Pokud plati druha varianta, pak potrebuji nejak odlisit subjekt v datech.
Takze budu mit pole v tabulce TAB: SUBJEKT; POLE1; POLE2;...; POLEmilion
Da se nejak skryt pole SUBJEKT tak, abych mohl zadat SQL: select * from TAB
where SUBJEKT=123 a ve vysledku bych videl vsechna pole krome SUBJEKT.
Nebo proste nejak v selectu vyjmenovat ta pole, ktera nechci videt. Asi to
nejde, co!? Ale co kdyby?
Prosim o odpoved alespon na prvni otazku.
Dik
S pozdravem
Ing. Petr J�nsk�
---
Odchoz� zpr�va mo�n� neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.370 / Virov� b�ze: 205 - datum vyd�n�: 5.6.2002
Hromadne nastaveni vlastnosti u printeru
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 27.6.2002 16:09:44
ahoj,
pouzivam pro tisk vice kopii uvedenou konstrukci (D3.02,D5.01pro), protoze z TPrintDialogu se mi pocet kopii nenastavi.
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then begin
pDMode^.dmFields := pDMode^.dmFields or DM_COPIES;
pDMode^.dmCopies := PrintDialog1.Copies;
...
GlobalUnlock(hDMode);
end;
GlobalFree(hDMode);
end;
Printer.PrinterIndex := Printer.PrinterIndex;
Ale nektere veci se daji obejit a v urcitych pripadech nastavit i z TPrinterSetupDialog, ktery vola primo dialog tiskarny (daneho vyrobce).
Potreboval bych prenastavit veci primo napr. dmDuplex, dmCollate nebo dmColor. Ale ted je problem, na ktery se chci zeptat, jak poznam, ze uz neco je nastaveno z TPrinterSetupDialogu ??? A kde najdu dm_xxxx kody pro nastaveni i jinych vlastnosti? Je nekde jejich konecny seznam?
A dalsi otazka, nevite jak se primo nastavuji zasobniky papiru (1,2 rucni...)?
Diky
Jaro B.
Chyba orezavani v Win9x?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 27.6.2002 17:13:34
Jenomze ja orezavani POTREBUJI !!!! Jinak to kresli blbosti.
>S regionmi je problem - obzvlast na Win9x.
>Mal som rovnaky problem.
>Pri praci s metafile vsetko OK. Pri vykreslovani na obrazovku - nevypinalo
>region !
>Cize presne opacne ako to co pises Ty.
>
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Chyba orezavani v Win9x?
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 27.6.2002 18:07:40
> Jenomze ja orezavani POTREBUJI !!!! Jinak to kresli blbosti.
To je v poriadku. Ved ja som napisal ze je s nim problem - nie ze sa neda
pouzit. Aj ja ho potrebujem a pouzivam. Tiez sa mi nevypinalo orezavanie na
W9x. Riesenim bola uprava ktoru som poslal.
jg
Dialog "Vyber adresare"
[*] Martin Simbartl <martin.simbartl(zv)seznam(tec)cz> - 27.6.2002 18:22:07
Dobry den vsem,
nevite nekdo, jak vyvolat standardni windowsovsky dialog "Vyber adresare"? Diky za kazdou
pomoc.
Martin Simbartl
ICQ # 152589363
http://simbartl.hyperlinx(tec)cz
BDE: zmena deklarace sloupce v pdox tabulce s daty
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.6.2002 18:27:41
ahoj,
mam tabulky z n sloupci a potrebuji upravit
deklaraci sloupce m. myslel jsem, ze k tomu
slouzi funkce DbiDoRestructure, ale placam se
s tim uz cely odpoledne a prd. nemate s tim
nekdo zkusenosti? nemusi to bejt krasny ani
rychly, ale musi to fungovat. :) ted to mam:
procedure TDM.CheckAndRestructureSoubory;
var
rslt: DBIResult;
hCur: hDBICur;
TDesc: CRTblDesc;
OpType: Array of CROpType;
FDesc: FLDDesc;
FDescA: Array of FLDDesc;
db: TDatabase;
i, cnt, m: Integer;
begin
// upravit strukturu katastru na N6 !
db:=TDatabase.Create(Self);
try
db.AliasName:='SMapy_300';
db.DatabaseName:='SMapy_300';
db.Exclusive:=True;
db.HandleShared:=True;
db.LoginPrompt:=False;
db.SessionName:='Default';
db.Open;
FillChar(TDesc, sizeof(CRTblDesc), #0);
FillChar(FDesc, sizeof(FLDDesc), #0);
StrPCopy(TDesc.szTblName, TSoubory.TableName);
StrCopy(TDesc.szTblType, szParadox);
Check(DbiOpenFieldList(db.Handle, TDesc.szTblName, nil, True,
hCur));
cnt:=0;
m:=0;
repeat
rslt:=DbiGetNextRecord(hCur, dbiNOLOCK, (zv)FDesc, nil);
if rslt=DBIERR_NONE then
begin
inc(cnt);
SetLength(FDescA, cnt);
if AnsiSameText(FDesc.szName, 'Katastr') and
(FDesc.iUnits1=5) and (FDesc.iUnits2=0) then
begin
FDesc.iUnits1:=6;
m:=cnt;
end;
FDescA[cnt-1]:=FDesc;
end;
until (rslt<>DBIERR_NONE);
if m>0 then
begin // predelat Katastr na N6
TDesc.iFldCount:=cnt;
SetLength(OpType, cnt);
for i:=0 to cnt-1 do
OpType[i]:=crNOOP;
OpType[m-1]:=crMODIFY;
TDesc.pecrFldOp:=(zv)OpType;
TDesc.pfldDesc:=(zv)FDescA;
// nasledujici radek vyhodi chybu "invalid rescructure operation".
// evidentne jsem neco nepochopil, ale nevim co:
Check(DbiDoRestructure(db.Handle, 1, (zv)TDesc, nil, nil, nil,
False));
end;
Check(DbiCloseCursor(hCur));
db.Close;
finally
db.Free;
end;
end;
dekuji PeC(zv)
Re[2]: Optimalizace db FB
[*] <bleak(zv)atlas(tec)cz> - 27.6.2002 18:28:42
ano, vyssi rychlost pri pristupu k datum... urcite se data casem nejak fragmentuji
bleak
-----Original Message-----
From: "delphi-l-owner(zv)clexpert(tec)cz" <delphi-l-owner(zv)clexpert(tec)cz> on behalf of "Petr Palicka" no, pokud se s databazi pracuje, tak stejne casem zase nabobtna.
neni duvod ji umele zmensovat pouzitim B/R. nebo myslis, ze nejaky
zasadni existuje?
peca
Double Precision to SmalInt
[*] <bleak(zv)atlas(tec)cz> - 27.6.2002 18:34:07
zdravim,
datove pole ve FB double precision asi nelze zamenit na smallint?
bleak
Double Precision to SmalInt
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.6.2002 18:51:54
alter table jsi zkousel?
dekuji PeC(zv)
OT: Licencne poplatky za MP3
[*] miro mrazik <preas_w(zv)stonline.sk> - 27.6.2002 19:16:40
Ahojte,
nemate niekto prehlad o tom ako je to s licenciou na pouzivanie formatu MP3
ak ho chcem pouzizt vo svojej aplikacii, ktora bude zvuk ukladat do MP3 a
tiez ho aj prehravat?
aspon link kde by som sa to dozvedel.
Diky
Miro
Dialog "Vyber adresare"
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.6.2002 20:16:15
UG9k7XZlaiBzZSBuYSBTZWxlY3REaXJlY3RvcnkoKQ0KDQotLSANCmluZy4gSmFuIEZpYWxhDQpt
YWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQoyNy42LjIwMDIgTWFydGluIFNpbWJhcnRsOg0KPiBE
b2JyeSBkZW4gdnNlbSwNCj4gbmV2aXRlIG5la2RvLCBqYWsgdnl2b2xhdCBzdGFuZGFyZG5pIHdp
bmRvd3NvdnNreSBkaWFsb2cgIlZ5YmVyIGFkcmVzYXJlIj8gRGlreSB6YSBrYXpkb3UNCj4gcG9t
b2Mu
Zahada s INI file
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.6.2002 20:23:48
Jednoducha aplikace, jeden formular, jedno tlacitko:
procedure TForm1.Button1Click(Sender: TObject);
var F: TIniFile;
S: string;
begin
F := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
S := F.ReadString('Sekce', 'Ident', 'neco ');
F.Free;
ShowMessage(S);
end;
Dulezita je mezera na konci default hodnoty.
Zadny INI soubor neni, nebo je, ale neobsahuje prislusny klic.
Na prekladaci nezalezi, zkousel jsem
- Delphi 4 Pro UP 3
- Delphi 5 Pro UP 1
- Delphi 6 Pro UP 2
Zalezi na prostredi prekladu:
Pokud je aplikace prelozena ve Win XP, tak
- ve Win XP chodi
- ve Win ME/98 stisk tlacitka zpusobi neplatnost stranky...
Pokud je aplikace prelozena ve Win ME, tak
- ve Win XP, ME chodi
- ve Win 98 stisk tlacitka zpusobi neplatnost stranky...
Pokud je aplikace prelozena ve Win 98, tak
- ve Win XP,ME,98 chodi
Problem je na radku
S := F.ReadString('Sekce', 'Ident', 'neco ');
pokud 'neco ' je zakonceno mezerou a klic v INI neexistuje.
Mate pro to nekdo nejake vysvetleni?
Vaclav Krmela
Dialog "Vyber adresare"
[*] Bukal Tomas <ftm(zv)sw(tec)netbox(tec)cz> - 27.6.2002 20:27:43
A jaka je funkce pro zobrazeni dialogu s okolnimi pocitaci??> Pod�vej se na SelectDirectory()
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 27.6.2002 Martin Simbartl:
> > Dobry den vsem,
> > nevite nekdo, jak vyvolat standardni windowsovsky dialog "Vyber
adresare"? Diky za kazdou
> > pomoc.
>
Zahada s INI file
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.2002 21:06:26
From: "Vaclav Krmela" <krmela(zv)ustinadorlici(tec)cz>
> Zalezi na prostredi prekladu:
Tomu se mi dost dobre nechce verit, OS nema s *kompilaci* nic spolecneho.
Chyba musi byt jinde.
Petr Vones
Dialog "Vyber adresare"
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.6.2002 21:14:13
Zkus SelectDirectory('Zvolte adresar', '', s);
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.6.2002 Bukal Tomas:
> A jaka je funkce pro zobrazeni dialogu s okolnimi pocitaci??
FireBird Role a USER
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 27.6.2002 21:27:10
Pavka jeho velicenstvo Cisar:-)))
Podrobny popis by byl na dlouhy loket, takze te jen nasmeruju na dokumentaci :-
Aldik na to:
Jo dokumentaci jsem cetl ale nejak se v ni nevyznam je to na dlouhy hledani
Pavka jeho velicenstvo Cisar:-)))
> ) Na www.ibphoenix.com by mel byt odkaz na dokumentaci k IB, kde si pak
> dohledas SQL prikazy GRANT a REVOKE pro pridelovani a odnimani prav.
Ja mam zkusenosti z MS SQL Serveru.....ted jsi me hodne podcenil:-)))
Pavka jeho velicenstvo Cisar:-)))
> Vytvoreni uzivatele se provadi bud programem gsec z prikazove radky, nebo
> nejakou GUI konzoli (najdes v menu nespise jako User Management).
TO JE CO CHCI SLYSET TO JE ONOOOOOO!!!! Gsec...to jsem nevedel tam staci takovy
to CREATE NEBO ADD USER?
dekuji za tento zpev Pavkovi moc mi pomohl (konecne neco ladici memu uchu.....:-
)))
Aldik Pavel WXP D6 Ent
Zahada s INI file a jedna navic ;-)
[*] David Janko <djanko(zv)infoware(tec)cz> - 27.6.2002 22:16:54
Z toho si nic nedelej, me najednou ReadNeco() vraci default i kdyz to v
souboru je - a stane se to potom, co zavolam OpenDialog.Execute, to je
obzvlaste pikantni ;-) - (predtim to slape, pak uz to vzdy vraci default
value).
Jak souvisi OpenDialog.Execute s TIniFile, to fakt nechapu ....
zkratka programovani ve win (nebo delphi, nevim kdo za to muze) je nejen
reseni funkci aplikace ale take chyb vsude kolem :(
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, June 27, 2002 9:06 PM
Subject: Re: Zahada s INI file
> From: "Vaclav Krmela" <krmela(zv)ustinadorlici(tec)cz>
> > Zalezi na prostredi prekladu:
>
> Tomu se mi dost dobre nechce verit, OS nema s *kompilaci* nic spolecneho.
> Chyba musi byt jinde.
>
> Petr Vones
>
Zahada s INI file a jedna navic ;-)
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.6.2002 22:31:00
> From: David Janko
>
> me najednou ReadNeco() vraci default i kdyz to v
> souboru je - a stane se to potom, co zavolam OpenDialog.Execute,
> to je obzvlaste pikantni ;-) - (predtim to slape, pak uz to vzdy
> vraci default value).
> Jak souvisi OpenDialog.Execute s TIniFile, to fakt nechapu ....
OpenDialog muze zmenit aktualni adresar, takze uz potom
nemusi INI soubor najit, zalezi na tom, jak se tvori jmeno
INI souboru.
Vaclav Krmela
OT: MSDE vs. MSSQL
[*] JIM Design <jim.design(zv)iol(tec)cz> - 27.6.2002 22:40:11
ahoj,
Navrhuju jedno DB reseni a chtel bych se zeptat, jelikoz me prekvapil znacny
cenovy rozdil, cim vsim je vlastne MSDE orezane od MSSQL2000.
Zajimaji me hlavne nahledy, ulozene procedury, SQL-DMO a jestli je mozne ho
bezplatne sirit pokud budu vlastnit OFFICE XP developer edition?
Dekuji
M.Jirman
OT: MSDE vs. MSSQL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.6.2002 22:56:21
Puvodni zprava, kterou napsal JIM Design dne 27 Jun 2002:
> Navrhuju jedno DB reseni a chtel bych se zeptat, jelikoz me prekvapil
> znacny cenovy rozdil, cim vsim je vlastne MSDE orezane od MSSQL2000.
> Zajimaji me hlavne nahledy, ulozene procedury, SQL-DMO a jestli je mozne
> ho bezplatne sirit pokud budu vlastnit OFFICE XP developer edition?
O MSDE uz tu jiste bylo receno mnoho a web Microsoftu je tak rozsahly, ze
tam tech informaci najdes take spousty vcetne vsech odpovedi na sve
otazky.
Nicmene, MSDE 2000 je plne kompatibilni s MS SQL 2000 Standard s tim, ze
neobsahuje administracni nastroje (Enterprise Manager apod.), replikace
smerem k sobe (lze replikovat z MSDE na MS SQL, ne naopak) a nektere
dalsi veci, podporuje tusim jen jeden procesor a databaze je omezena
velikosti na 2GB.
Dale je MSDE omezeno z obchodnich duvodu tak, ze podporuje soucasne 5
pripojenych klientu, resp. tusim 5 bezicich procesu - konkretne tak, ze
pokud se spusti sesty proces (napr. SQL dotaz), tak ten sesty musi cekat
na dokonceni predchoziho alespon jednoho, pricemz jeste navic se po tuto
dobu snizi vykon.
Nevim, co myslis slovem "nahledy", pokud jsi snad myslel view, samozrejme
tam jsou. Samozrejme i ulozene procedury a vsechno ostatni, bez toho by
to bylo tezko kompatibilni s MS SQL 2000. SQL DMO tam je.
Ano, MSDE muzes bez dalsich licencnich poplatku sirit se svou aplikaci,
pokud mas zakoupenu licenci MS SQL 2000 Developer Edition, Office XP
Developer Edition, Visual Studio Professional/Enterprise ci Visual
nastroj (Basic, C++ apod.) Professional/Enterprise, pripadne MSDN
Professional a vyssi.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Zahada s INI file a jedna navic ;-)
[*] David Janko <djanko(zv)infoware(tec)cz> - 28.6.2002 00:15:28
Ja myslel, ze se obsah ini souboru nacte do pameti pri jeho create() ???
Sem mimo ?
Diky
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
----- Original Message -----
From: "Vaclav Krmela" <krmela(zv)ustinadorlici(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, June 27, 2002 10:31 PM
Subject: RE: Zahada s INI file a jedna navic ;-)> > From: David Janko
> >
> > me najednou ReadNeco() vraci default i kdyz to v
> > souboru je - a stane se to potom, co zavolam OpenDialog.Execute,
> > to je obzvlaste pikantni ;-) - (predtim to slape, pak uz to vzdy
> > vraci default value).
> > Jak souvisi OpenDialog.Execute s TIniFile, to fakt nechapu ....
>
> OpenDialog muze zmenit aktualni adresar, takze uz potom
> nemusi INI soubor najit, zalezi na tom, jak se tvori jmeno
> INI souboru.
>
> Vaclav Krmela
>
>