Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ADMIN: Re: Simulace behu prostredi Delphi
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 28.1.2000 09:59:32
> > mam problem. Potrebuji "nasimulovat" to, ze bezi prostredi
> Delphi. Mam
> > to kvuli jedne komponente, kterou potrebuju odzkouset
> jinde, ale neni
> > prijemne vsude instalovat Delphi.
> > Zpravidla se to pry dela, ze se vytvori objekty TApplication,
> > Tneco,....., - zpravidla tak to i ty komponenty testuji. Mate nekdo
> > nekde zdrojak, odkazy ci ripadne cenne rady ? nebo jestli
> se to tu uz
> > probiralo, tak me nasmerujte.
>
> VAZENI, TOTO TU NECHCI VIDET. TA KOMPONENTA MA OCHRANU PRAVE
> KVULI TOMU, ABYS TO NESPUSTIL BEZ DELPHI. TAKZE TOTO SEM DO
> KONFERENCE NEPATRI.
>
>
Pane Zahradniku,
domnivam se, ze se mylite. Tento problem do konference o programovani v
Delphi (ne o prodeji komercniho software napsaneho v Delphi nebo pro Delphi)
podle meho nazoru zcela jednoznacne patri. Vede mne k tomu jednoducha uvaha
vyplyvajici ze zkusenosti - zdaleka ne vsechno, co bezi pod IDE, pobezi i v
run-time na pocitaci s jinou konfiguraci. Pokud si myslite, ze nemam pravdu,
zkuste si zkompilovat aplikaci pod D5 na masine s rozlisenim displeje
rekneme 1280x1024, 128 MB RAM, PII/350 se vsemu updaty (COMCTL, MDAC a
spol.) a pak tuto aplikaci bez otestovani pustit na jinych konfiguracich
(zejmena s jinym rozlisenim displeje, pripadne bez updatu). Rucim vam za to,
ze pokud perfektne neosetrite problemy vznikajici pri pouziti ruznych verzi
systemovych knihoven, konverzich rozliseni displej - tiskarna, mala/velka
systemova pisma, zmena DPI pro ruzne obrazovky atd., tak se nedoberete
opakovatelnych vysledku. Toto samozrejme muzete udelat pouze tehdy, pokud
mate v ruce bud zdrojove texty vseho, co pouzivate, nebo alespon moznost
otestovat aplikaci na jinych konfiguracich. Souhlasim s autorem puvodniho
prispevku v tom, ze je znacne neprakticke instalovat Delphi vsude tam, kde
chci funkcnost aplikace overit. Mam-li koupit jakykoli SW, ktery pak budu
pouzivat pro vyvoj aplikaci, pak chci mit taky alespon predstavu, jestli
bude fungovat vsude, kde jej chci nasadit. Proto povazuji pozadavek autora
puvodniho prispevku za legitimni. Predstava, ze bych se pokusil distribuovat
aplikaci s komponentami urcenymi pouze pro IDE s vyuzitim nejakych klicek
simulujicich pritomnost IDE a snazil se tak usetrit neco malo penez na
nakladech, mi pripada natolik absurdni, komicka a neprofesionalni, ze o ni
odmitam uvazovat.
Takze, aby nedoslo k nedorozumeni, shrnuji - v tomto prispevku nepodporuji
kradeni SW ani jeho nelegalni pouzivani, pouze se stavim za pravo zakaznika
nekupovat zajice v pytli.
Ing. Jiri Foldyna
Oddeleni informacnich systemu
AVIZO, a.s., Slavikova 6142, 708 00 Ostrava - Poruba
mailto:jiri.f(zv)avizo(tec)cz
http://www.AVIZO(tec)cz
tel.: +420 69 690 6612
mobil: +420 602 507 839
fax: +420 69 690 6313
ICQ#: 14919238
Tisk do grafic. souboru
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 28.1.2000 10:03:01
Rve mi to na TQRWMFExportFilter undeclared identifier. Nemuzu ani v helpu
nic najit. Pouzivam QR 3 a D5 prof.
----- Original Message -----
From: Petr.Motlicek(zv)bcbrno(tec)cz
How do I use the WMF export filter outside of the preview?
A. The WMF export filter works differently than the other filters. The other export
filters render the report using the filter. The WMF filter takes the pages rendered to
the preview and saves each page as a metafile. To use this filter outside of the preview,
you have to render the report first using Prepare.
Example:
quickrep1.Prepare;
quickrep1.qrprinter.ExportToFilter( TQRWMFExportFilter.Create('c:\repor t'));
quickrep1.qrprinter.Free;
quickrep1.qrprinter := nil;
obrys okna
[*] Petr Kiss <petr.kiss(zv)vslib(tec)cz> - 28.1.2000 10:07:59
ahoj,
vytvoril jsem si aplikaci ktera ma borderStyle na bsNone a po okne ji
presouvam pomoci onmousedown, up. A problem je v tom ze nevidim jeji obrys
kdyz ji presouvam. No a ten bych tam nejakym zpusobem potreboval dostat.
diky
---------------------
Petr Kiss
Technical Univerzity of Liberec
Czech Republic
ADMIN: Re: Simulace behu prostredi Delphi
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 28.1.2000 10:15:11
Dovolim si odporovat.
Podle mne do konference patri vsechny dovednosti a zkusenosti. Nikdo
nikoho nenuti to pouzivat. Zbrane se take prodavaji a nikdo nikoho
nenuti strilet lidi. To co predvadis, je potlacovani svobody slova.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 28. ledna 2000 2:24
> Komu: delphi-l(zv)fwd(tec)cz
> Kopie: tomas.burger(zv)sap.com
> P�edm�t: ADMIN: Re: Simulace behu prostredi Delphi
>
> Puvodni zprava, kterou napsal Ladislav Dolezel dne 26 Jan 00,:
>
> > mam problem. Potrebuji "nasimulovat" to, ze bezi prostredi Delphi.
> Mam
>
> VAZENI, TOTO TU NECHCI VIDET. TA KOMPONENTA MA OCHRANU PRAVE
> KVULI TOMU, ABYS TO NESPUSTIL BEZ DELPHI. TAKZE TOTO SEM DO
> KONFERENCE NEPATRI.
>
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> generovani nazvu
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 28.1.2000 10:42:29
Zkus toto :
function TForm1.Incn(n: String): String;
Var
z : Integer;
c : String;
begin
c := n;
z := Length(n);
While (True) Do Begin
c[z] := Chr(Ord(c[z])+1);
If c[z] = '[' Then Begin
c[z] := '0';
Result := c;
Exit;
End;
If c[z] = ':' Then Begin
If z = 1 Then Begin
Result := 'A';
For z := 1 To Length(n) Do
Result := Result +'A';
Exit;
End Else Begin
c[z] := 'A';
dec(z);
Continue;
End;
End;
Result := c;
Exit;
End;
end;
From: sup(zv)svitap(tec)cz
Date sent: Fri, 28 Jan 2000 8:28:22 +0100
To: delphi-l(zv)fwd(tec)cz
Subject: generovani nazvu
Send reply to: delphi-l(zv)fwd(tec)cz
> Dobry den, mam malinkaty problem. Mam za ukol vygenerovat nazvy v tomto
> rozmezi : A...ZZZZZZZZ.
> Asi takhle: A,B,C...Z,AA,AB,AC...AZ,BA,BB,BC az po
> ZZZZZZZX,ZZZZZZZY,ZZZZZZZZ.
> Jsem az po usi zamotanej do vselijakejch for...end, if...else...end a
> repeat...until, ale furt se mi to nedari... :-(((((( Poradte mi prosim
> nejakej algoritmus, nez se z toho zblaznim...
> W98,D3Profi.
>
> PS: Prave jsem se dozvedel, ze nejen interval A..Z, ale A..Z + 0..9.
> Bueeeee!
>
> Jaroslav Weiss
> odd. informatiky
>
> SVITAP J.H.J. s.r.o.
> Kijevska 6-8
> SVITAVY
> 568 02
>
> tel: ++420-461-568 202
> fax: ++420-461-568 300
> E-mail: sup(zv)svitap(tec)cz
> URL: www.svitap(tec)cz
> FTP: ftp.svitap(tec)cz
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
RxMemoryData
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 28.1.2000 10:51:58
Ahoj,
prosim o odpoved na jednoduchy dotaz. Pouzivam komponentu
TRxMemoryData, ktera podle helpu nepouziva BDE. Je to ale
potomek TDatasetu.
Znamena to, ze trida TDataset jeste neni oprena o BDE?
Dik.
David Lebeda
obrys okna
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 28.1.2000 11:08:13
P.Kiss wrote:
>vytvoril jsem si aplikaci ktera ma borderStyle na bsNone a po okne ji
>presouvam pomoci onmousedown, up. A problem je v tom ze nevidim jeji obrys
>kdyz ji presouvam.
Ahoj
nevim, jakym zpusobem formular presouvas Ty, ale
kdyz nastavim BorderStyle na bsNone, a pro presunuti pouziju:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, 61458, 0);
end;
end;
tak ramecek formulare vidim.
W95, D3, bez nastaveni FULLWINDOWDRAG
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
ADMIN: Re: Simulace behu prostredi Delphi
[*] Karel Kral <kral(zv)purus(tec)cz> - 28.1.2000 11:17:52
Radsi si poradne precti tu zpravu, nez zacnes nadavat.
Petr Zahradnik wrote:
>
> VAZENI, TOTO TU NECHCI VIDET. TA KOMPONENTA MA OCHRANU PRAVE
> KVULI TOMU, ABYS TO NESPUSTIL BEZ DELPHI. TAKZE TOTO SEM DO
> KONFERENCE NEPATRI.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> === mobilni telefon GSM (hotline): 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================
> ICQ: 21215917, PGP vitano
--
______________________________________________________
Karel Kral, informatik
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
______________________________________________________
ADMIN: Re: Simulace behu prostredi Delphi
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 28.1.2000 11:21:24
VAZENI, TOTO TU NECHCI VIDET. TA KOMPONENTA MA OCHRANU PRAVE
KVULI TOMU, ABYS TO NESPUSTIL BEZ DELPHI. TAKZE TOTO SEM DO
KONFERENCE NEPATRI.
-----------------------------------------------
Stejne tak to muze slouzit k ochrane vlastnich komponent, ze?
Je v pravidlech konference, ktery kod je mozno publikovat a ktery ne?
S pzodravem
Miloslav Skacel
skacel(zv)iol(tec)cz
RxMemoryData
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 28.1.2000 11:27:32
Myslim ze ano.
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
Organization: ComArr spol. s r.o. Pardubice
To: delphi-l(zv)fwd(tec)cz
Date sent: Fri, 28 Jan 2000 10:51:58 +0100
Subject: RxMemoryData
Send reply to: delphi-l(zv)fwd(tec)cz
> Ahoj,
>
> prosim o odpoved na jednoduchy dotaz. Pouzivam komponentu
> TRxMemoryData, ktera podle helpu nepouziva BDE. Je to ale
> potomek TDatasetu.
> Znamena to, ze trida TDataset jeste neni oprena o BDE?
>
> Dik.
>
> David Lebeda
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
ADMIN: Re: ADMIN: Re: Simulace behu prostredi Delp
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.1.2000 11:28:07
Puvodni zprava, kterou napsal Miloslav Sk�cel dne 28 Jan 00,:
> Stejne tak to muze slouzit k ochrane vlastnich komponent, ze?
> Je v pravidlech konference, ktery kod je mozno publikovat a ktery ne?
REAKCE NA ZPRAVY OD ADMINISTRATORA NEMAJI V KONFERENCI
CO DELAT, TO JE PRVNI VEC. ZA DRUHE, REAGOVAL JSEM
ZAMITAVE NA ZPRAVU, JAK NASIMULOVAT SPUSTENE DELPHI,
NIKOLIV NA DALSI DVE ZPRAVY, KTERE DELALY OPAK, TEDY
KONTROLOVALY SPUSTENOST DELPHI - TO JE V PORADKU.
TAKZE OPAKUJI MOJE VYJADRENI - NECHCI TU VIDET ZPRAVY,
JAK NASIMULOVAT SPUSTENE DELPHI. ZPRAVY KONTROLUJICI
SPUSTENOST DELPHI MI NEVADI A PROTI NIM NIC NEMAM.
REAKCE NA ZPRAVY "ADMIN" NIKDY DO KONFERENCE...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Zvuk
[*] Jakub M�lek <malek(zv)ssakhk(tec)cz> - 28.1.2000 11:45:07
Toto prehraje Wavko...
with MediaPlayer1 do
begin
Filename := 'bum.wav'; {soubor ktery ches prehrat}
DeviceType := dtWaveAudio;
Open;
Play;
end
----- Original Message -----
From: Marek Robert <robert.marek(zv)vsp(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 27, 2000 3:09 PM
Subject: Zvuk
> Cau lidi.
> Jsem tu v konferenci novy, proto nevim, jestli toto tema tady nahodou
> nebezi.
> Nemate n�kdo zkusenosti s praci se soubory WAV v Delphi ? Interni help o
> praci se zvukem mlci a
> komponenta MediaPlayer slouzi jen k praci se zvukovym CD,
> Diky
> Robin
>ADMIN: RE: ADMIN: Re: Simulace behu prostredi Delp
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.1.2000 11:48:37
Puvodni zprava, kterou napsal Martin Fron�k dne 28 Jan 00,:
> Dovolim si odporovat.
> Podle mne do konference patri vsechny dovednosti a zkusenosti. Nikdo
> nikoho nenuti to pouzivat. Zbrane se take prodavaji a nikdo nikoho
> nenuti strilet lidi. To co predvadis, je potlacovani svobody slova.
NAPOMENUTI ADMINISTRATORA KONFERENCE DELPHI - TOTO ZDE NEMA
CO DELAT. POKUD CHCES REAGOVAT NA ZPRAVY "ADMIN", PAK JEDINE
MIMO KONFERENCI, TADY NEMAJI CO DELAT.
ZA DRUHE TAKOVE RECI, KTERE NESOUVISI S NICIM, NATOZ S DELPHI,
ZDE VUBEC NEMAJI CO DELAT. O ZBRANICH MI NEVYKLADEJ V KONFERENCI
O DELPHI. TOTO NENI POTLACOVANI SVOBODY SLOVA, TOTO JE KONFERENCE,
KDE SE DODRZUJI JISTA PRAVIDLA. PRAVIDLA JSOU NUTNA, PROTOZE
JE TU NEKOLIK STOVE LIDI, KTERI CHTEJI DOSTAVAT INFORMACE
A NE SMETI.
ZPRAVY, JAK SIMULOVAT BEH PROSTREDI DELPHI PRO UCELY, ABY
CHODILA KOMPONENTA, U KTERE AUTOR STANOVIL, ZE CHODIT NEMA,
POVAZUJI ZA PORUSENI AUTORSKYCH PRAV A TO TADY PROSTE NEMA
MISTO. BUD SE S TIM SMIRIS A NEBO NE. POKUD SE TI TU NELIBI,
MUZES ODEJIT. POKUD SE NELIBIM VETSINE UCASTNIKU, PROTOZE
TVRDE JDU PROTI KRADENI SOFTWARE, MUZETE POZADAT TOMASE
BURGERA, ABY ME ODVOLAL. BUDE-LI TO POZADAVEK VETSINY,
PAK TO URCITE UDELA A MUZETE SI TU PROGRAMOVAT TREBA VIRY
A POSILAT KRADENE KOMPONENTY NEBO DELPHI ENTERPRISE. DOKUD
TU JSEM KVULI DODRZOVANI PRAVIDEL KONFERENCE, BUDU TO TU
PROSTE DELAT...
POKUD NEKDO NAPISE ZPRAVY, JAK SVE KOMPONENTY CHRANIT
A TESTOVAT SPUSTENOST DELPHI, JE TO NAPROSTO V PORADKU.
ALE NIKOLIV OBCHAZENI KONTROL, TO TU NEBUDE, PROTOZE
JE TO V ROZPORU S PRAVIDLY TETO KONFERENCE.
REAKCE NA TUTO ZPRAVU JEDINE PRIMO NA MUJ MAIL A CC:
PRO TOMASE BURGERA...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
ADMIN: RE: ADMIN: Re: Simulace behu prostredi Delp
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.1.2000 12:12:45
Puvodni zprava, kterou napsal Foldyna Ji�� dne 28 Jan 00,:
> chci funkcnost aplikace overit. Mam-li koupit jakykoli SW, ktery pak budu
> pouzivat pro vyvoj aplikaci, pak chci mit taky alespon predstavu, jestli
> bude fungovat vsude, kde jej chci nasadit. Proto povazuji pozadavek autora
> puvodniho prispevku za legitimni. Predstava, ze bych se pokusil distribuovat
> aplikaci s komponentami urcenymi pouze pro IDE s vyuzitim nejakych klicek
> simulujicich pritomnost IDE a snazil se tak usetrit neco malo penez na
> nakladech, mi pripada natolik absurdni, komicka a neprofesionalni, ze o ni
> odmitam uvazovat.
> Takze, aby nedoslo k nedorozumeni, shrnuji - v tomto prispevku nepodporuji
> kradeni SW ani jeho nelegalni pouzivani, pouze se stavim za pravo zakaznika
> nekupovat zajice v pytli.
TAKZE DOUFAM POSLEDNI ZPRAVA S TIMTO SUBJEKTEM DO KONFERENCE.
JA JSEM NIKOHO NENARKL, ZE CHCE KRAST SOFTWARE. JA JSEM ZDE
PROHLASIL, ZE TO TU NEMA CO DELAT A ZE JE TO V ROZPORU
S PRAVIDLY. PRITOM TOTO TVRZENI NEZAKLADAM NA SKUTECNOSTI,
ZE NEKDO KRADE NEBO NEKRADE, ALE NA TOMTO:
AUTOR KOMPONENTY SI PREJE, ABY TO NESLO SPUSTIT BEZ DELPHI.
POKUD SE NEKDO SNAZI TOTO OBEJIT, PAK PROSTE DELA NECO, CO
SE DELAT NEMA. NARUSUJE AUTORUV OCHRANNY SYSTEM. JE UPLNE
JEDNO, ZDA TO NEKDO DELA V DOBRE VIRE, ZE SI TO KOUPI,
NEBO PROSTE PROTO, ZE TO CHCE UKRAST.
TAKE SI NEMUZU "V NOCI PUJCIT" V AUTOSALONU AUTO V DOBRE VIRE,
ZE SE S NIM PROJEDU PO SIBIRI, PROTOZE PRECE ON MI TO AUTO
NEPUJCI NA SIBIR, ALE MUZU SE S NIM LEDA PROJET ZKUSEBNE NEKDE
KOLEM AUTOSALONU.
TAKZE ZAVER - UZAVIRAM TUTO DEBATU, UZ JSEM TO VYSVETLIL
NALEZITE, DALSI DISKUSE NA TOTO TEMA NENI VITANA ZDE
V KONFERENCI, ALE PISTE MI SOUKROME A KOPIE TOMASI BURGEROVI.
TO TOMAS: PROSIM POSLI SEM PRAVIDLA...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Skript pre MSSQL
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 28.1.2000 12:33:12
Tyto prikazy muzes klidne dat do query. Pokud potrebujes vedet vysledek,
tak napriklad takto:
with Query1 do
begin
Close ;
SQL.Clear ;
SQL.Add(''DECLARE (zv)Prom1 int, (zv)Prom2 int, (zv)Vysledek Char(3));
SQL.Add('SELECT (zv)Prom1 = 20, (zv)Prom2 = :PROM_2');
SQL.Add('if (zv)Prom1 > (zv)Prom2');
SQL.Add(' SELECT (zv)Vysledek = 'ANO');
SQL.Add('ELSE');
SQL.Add(' SELECT (zv)Vysledek = ''NE');
SQL.Add('SELECT VYSLEDEK=(zv)Vysledek');
ParamByName('PROM_2').AsInteger := 25 ;
try
Open ;
ShowMessage( FieldByName('VYSLEDEK').AsString ) ;
Close ;
except
...atd...
end ;
end ;
-----P�vodn� zpr�va-----
Od: Miroslav Hro��o [SMTP:hrossik(zv)atlas(tec)cz]
Odesl�no: 27. ledna 2000 14:49
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Skript pre MSSQL
M�m na mysli prikazy typu :
While ... do ...
If ... then ... else ...
Case ... of ...
Begin ... end
Tieto �tukt�ry neviem posla� cez ADOQuery.
Ja by som potreboval vlatne vedie� vysledok programu OSQL, a to tipu TRUE
alebo FALSE.
Miro.
-----P�vodn� spr�va-----
Od: Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 27. janu�r 2000 10:59
Predmet: RE: Skript pre MSSQL
A mohl by jsi mi priblizit co myslis tou "celou skalou prikazov jazyka
Tansact-SQL, ktor� podporuje MSSQL 7.0" ?
Ja az do tedka zil v tom, ze pres adoquery lze pustit jakykoliv prikaz
T-SQL.
Navic, jak se domnivam (po kratkem nahlednuti do dokumentace), je
utilita OSQL urcena pro volani davek na SQL z ruznych command-line skriptu
a tedy pro noramlni pouziti v Delphi programu nevhodne.
Jinak informace o utilite OSQL zjistis v SQL Server Books OnLine.
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
<<Soubor: ATT00000.htm>>
generovani nazvu
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 28.1.2000 13:04:56
> > Dobry den, mam malinkaty problem. Mam za ukol vygenerovat
> nazvy v tomto
> > rozmezi : A...ZZZZZZZZ.
> > Asi takhle: A,B,C...Z,AA,AB,AC...AZ,BA,BB,BC az po
> > ZZZZZZZX,ZZZZZZZY,ZZZZZZZZ.
> > PS: Prave jsem se dozvedel, ze nejen interval A..Z, ale
> A..Z + 0..9.
Ahoj,
pokud ti nevadi, ze stringy budou generovany v poradi '0', '1', .. 'A',
'B'.. 'Z', '10', .. 'A0', A1',..'B0' atd, tak pouzij prilozenou funkci,
ktera konvertuje Int64 do alfanumerickeho stringu (cislo nesmi byt zaporne),
treba v cyklu. Urcite by to slo vylepsit, je to jen princip. Misto Int64
muzes pouzit integer, ale pak to bude fungovat je do 5-tiznakovych stringu
(s Int64 takhle vygenerujes az 12-tiznakove retezce).
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
(*********************************************************)
function Int2Alfa(Number : Int64) : string;
const
AlfaChars = ord('Z') - ord('A') + 1;
NumChars = ord('9') - ord('0') + 1;
Base = AlfaChars + NumChars;
var
CA : array [0..Base-1] of char;
n : Int64;
i : integer;
s : string;
p : integer;
begin
Result := '';
// pouze cisla >= 0
if Number < 0 then exit;
// inicializace prevodni tabulky
for i := 0 to NumChars-1 do
begin
CA[i] := chr(i + $30);
end;
for i := 0 to AlfaChars - 1 do
begin
CA[i + NumChars] := chr(i + $41);
end;
// prevod Number do "alfanumericke" soustavy
s := '';
n := Number;
repeat
p := n mod Base;
s := CA[p] + s;
n := n div Base;
until n = 0;
Result := s;
end;Office 97
[*] Radek Lev� - 28.1.2000 13:08:58
Ahoj,
se svym programem v Delphi potrebuju zaroven distribuovat nejaka makra pro
Word.
Delam to prvne, takze vubec nevim, jak a cim zacit. Ted mam makra pouze ve
svym Wordu.
Popostrci me nekdo ?
Dik
Radek
Nahrada SYSUTILS
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.1.2000 13:11:51
On 27 Jan 00, at 22:39, lustyl1.edu(zv)mail.cez(tec)cz wrote:
> Ano, tohle je to samozrejme mozne, ale jen pro
> pripad primeho volani funkce z projektu nebo nove unity.
> Ale co delat v pripade neprimeho volani, napr. pri
> editaci DBGRID. Asi jsem nebyl konktretni: potrebuji
Zobrazit to muzes pres OnGetText. Editaci si uz musis upravit
sam. Krome toho, editovat prave v DBGridu nepovazuji za rozumny
napad.
> Zkousel jsem ten Y2K.ZIP, tam je hlavne ten zkompilovany FFMT.OBJ, ali
> i SYSUTILS.DCU. To sa mi pak podarilo zkompilovat, novy SYSUTILS.DCU
> jsem dal do \Lib. Zkompilovany byly i vsechny VCL komponenty. Ale pak
> jsem narazil: aby se zmena promitla do napr. TDBEDIT neno TDBGRID,
> bylo by nutne zrejme vytvorit run-time package VCL30.DPL nebo run-time
> package collection VCL30.DCP. A tady jsem skoncil, neb nemam zdroj
> VCL30.DPK . Tak toto nebude to prave orechove, asi by se musela
> prekompilovat cela soustava VCL vcetne packages to se mi vubec nelibi.
Muzes si vytvorit potomky tech komponent, v nich si upravit
prislusne vlastnosti, dat je do svych balicku, a pak to bude delat co
potrebujes.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
VG VCL Library
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 28.1.2000 13:40:28
Ja jsem napriklad oblibil vgDBGrid, potom se mi
jevi jako velmi zajimava komponenty ExplorerTree
(ListView, Node, Item,... ) ale spoustu jsem
naproti tomu jeste nikd ynepouzil...
Jenom mam ted zminovany problem s kompilaci...> ----------
> Od: Lukas Voborsky[SMTP:xvobl03(zv)vse(tec)cz]
>
> mel bych takovy otevreny dotaz. Po nekolika zminkach v konferenci o VG VCL
> Library jsem na tyto knihovny kouknul a shledal je docela zajimavymi.
> Chtel bych se vas zeptat, jake s ni mate zkusenosti, pouzivat/nepouzivat,
> co je tam vlastne hodne zajimave a pouzitelne, a tak...
> Distribuce COMCTL32
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 28.1.2000 13:42:48
Ahoj,
potrebuji se svou aplikaci distribuovat i COMCTL32. U M$ jsem se dozvedel,
ze pro distribuci musim pouzit jejich balik 50comupd.exe, v konferenci se
psalo o tom, ze mohu pouzit instalacni program IS Express - jak je to tedy ?
Pokud bych musel pouzit 50comupd, slo by to tak, ze bych jej spustil na
zaver setupu (mam IS Express z D5) - Launch Application Dialog - Run Command
? Eh, to jsem se nejak zapletl - proste nemate nekdo nejakou kucharku, jak
to udelat, aby to spolehlive fungovalo na NT i W9x ? IS Express chci puzit
kvuli castecne instalaci BDE.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
QuickReport k D3+HP laserJet 4+
[*] David Maly <david(zv)archa(tec)com> - 28.1.2000 15:22:46
Ahoj,
Tuesday, September 28, 1999, 5:10:31 PM, you wrote:
VSkc> Po nainstalovani originalnich driveru od HP (4.3.0.19) namisto
VSkc> Microsoftich do Windows NT 4.0 US SP5 kvuli vyreseni problemu
VSkc> s tiskem z Wordu (bold, italic vyskakovali mimo radku) prestal
VSkc> v D3 fungovat QuickReport. Hlasi to chybu:
VSkc> Initialization of d:\winnt\system32\spool\drivers\w32x86\2\hpBLAF0.dll
VSkc> failed
Omlouvam se, ze reaguju trosklu zpozdene, ale moc by me zajimalo, jak
jste si s tim poradili. Meli jsme (a mame) naprosto stejne problemy.
Tyhle ovladace proste s Delphi nefunguji (a neni to jen otazka
QuickReportu), hlasi to presne tu chybu, co jsi popsal. Prozatimne to
resime bud instalaci starsich ovladacu nebo instalaci PostScriptovych
ovladacu, ktere to nedelaji (ale zase nezvladaji vetsi rozsahy tisku,
treba radove tisice stran).
Kdyz jsem tuhle chybu hlasil na Borlandu na HotLine, tak se tvarili,
ze to neni jejich problem.
Diky za rady.
David mailto:david(zv)archa.com
Office 97
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 28.1.2000 15:51:05
Makra jsou ve Wordu ulozena v souboru Normal.dot na listu ( Modul)
NewMacros.
Je dobre si sva makra naskladat na svuj list (Modul), ktery je mozne si
pojmenovat jak je libo (hacky a carky radeji ne), tento modul se da z Wordu
exportovat jako zdrojak Word VisualBasicu = textak s priponou .bas, ten se
da u nekoho jineho zase imporovat.
Dalsi moznosti je ta, ze se tento list s makry nakopiruje pres organizatora
do prazdneho dokumentu a do tohoto dokumentu se prida jeste jeden modul s
makrem, ktere se jmenuje AutoOpen(), tohle makro se automaticky provede pri
otevirani dokumentu a v nem muze byt prikaz na nakopirovani Modulu s
potrebnymi makry do Normal.dot uzivatele. ( hodi se na prenos dat - Modul
muze obsahovat i data )
Dalsi moznost spociva v tom, ze se stejne jako v predchozim pripade makra
ulozi do prazdneho dokumentu (bez AutoRun makra), ale ten se ulozi jako
soubor typu .dot (sablona), tim vznikne doplnek Wordu, ktery staci
nakopirovat do adresare, ktery je ve Wordu pojmenov�n Spousteni = vse co
bude v tomto adresari ve formatu *.dot a jsou to doplnky, automaticky se pri
startu Wordu spusti ( jsou v dialogu Nastaveni/Sablony a doplnky ). (hodi se
jako jednoducha distribuce sikovnych utilitek, vcetne vlastnich dialogu a
list - touto metodou se nedaji prenaset data )
Doplnky se daji zaheslovat aby je nemohl nikdo jiny cist.
Pisu to dost narychlo, tak nevim jestli je to dost srozumitelne.
Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Radek Lev�
Odesl�no: 28. ledna 2000 13:09
Komu: Konference Delphi
P�edm�t: Office 97
Ahoj,
se svym programem v Delphi potrebuju zaroven distribuovat nejaka makra pro
Word.
Delam to prvne, takze vubec nevim, jak a cim zacit. Ted mam makra pouze ve
svym Wordu.
Popostrci me nekdo ?
Dik
Radek
Zvuk
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 28.1.2000 16:09:48
Cauec,> Toto prehraje Wavko...
ale ne v D5, tam je chyba
> with MediaPlayer1 do
> begin
> Filename := 'bum.wav'; {soubor ktery ches prehrat}
> DeviceType := dtWaveAudio;
pro D5 musi byt:
DeviceType := dtAutoSelect;
> Open;
> Play;
> end
>
Bye Ludan
Komponenty bez BDE
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 28.1.2000 16:25:53
Ahoj,
stahl jsem si z Torry balik komponent pro
pristup na MS SQL server pres ODBC - jmenuje se
to mODBC.
Nedari se mi ale zaridit prihlaseni se k SQL
serveru z kodu bez prihlasovaciho dialogu tak,
aby to neskoncilo chybou.
1) Dam-li u komponenty mDatabaze vlastnost
DriverCompletion jinak, nez na sdNoPrompt,
objevi se prihlasovaci dialog. Vyplnim jmeno,
heslo a prihlaseni se v poradku provede.
V Params je uveden radek DSN=MojeDSN.
2) Dam-li ale DriverCompletion na sdNoPrompt a
Params obsahuje tri radky:
USER NAME=aaaa
PASSWORD=bbbb
DSN=MojeDSN
Pri pokusu o pripojeni vznikne chyba s textem
Datasource name not found and no default driver
specified.
Upravim-li Params na
DSN=MojeDSN
USER NAME=aaaa
PASSWORD=bbbb
vznikne chyba Connection failed for user
'(null').
Nemate nekdo po ruce nejake reseni? Postacil by
mi i nejaky help k ODBC knihovnim funkcim.
A jeste: pokud pouzivate nekdo nejake freeware
komponenty pro pripojeni na MS SQL server a jste
s nimi vice ci mene spokojeni, dejte mi prosim
vedet. Je mi jedno, zda by slo o ODBC nebo OLEDB.
Diky moc za pomoc.
David Lebeda
Clipboard
[*] Tibor Varga (Bratislava) [winco(zv)datapac.sk] <winco(zv)datapac.sk> - 28.1.2000 16:36:24
Zdravim,
neviem ako by som mohol dostat nazov suboru a cestu k nemu, ked ho
ulozim do clipboardu napr v exploreri pomocou CTRL+C. SQL server zdarma
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 28.1.2000 16:42:23
Ahoj,
Ja jsem se nechal navnadit a koupil jsem ten balik v ramci nejakych
povodnovych slev, hlavne kvuli mail-klientovi, na ktery byly dobre recenze a
byl jsem rad, ze se mi podarilo zbavit se ho.
Neustale jsem narazel na nejake drobne, ale velmi neprijemne problemy. Jeden
priklad za vsechny: pripravil jsem mail, ten se zaradil do slozky Posta k
odeslani a pak uz nebylo zadnym zpusobem mozne zpravu zeditovat.
Zkousel jsem i editor a spreadsheet, ale vzdycky tam byly nejake drobne
zadrhely - napr. pri importu std. M$ souboruu. Vzhledem k tomu, ze vetsina
lidi mi posila soubory v M$ formatu to bylo dost neprijemne.
Navic to kazdou chvili generovalo application error (PC166/64 MB).
Databazove veci jsem nezkousel, takze nevim.
Celkovy umelecky dojem: mne to nepresvedcilo.
Mirek
----- Original Message -----
From: Zdenek Drvota <drvota(zv)zds(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 28, 2000 9:14 AM
Subject: SQL server zdarma
| Ahoj,
| dostala se ke mne informace, ze pry
| Winbase602 ma byt uz brzy zdarma nejen na
| Linuxu, ale i na Windows!
| Stoji to za tu cenu?
|
| -----------------------------------------------
| Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
| director
| 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
|
|Win 2000 (was RE: pripojeni k internetu)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.1.2000 17:34:41
Ahoj,
> Urcite jsi nainstaloval RC1 a pak pres nej RC2.
****Ne e. Je to rovnou RC2.
> Podivej se do adresare
> WinNT\System32\DLLCache a vse co tam je muzes vymazat - jsou to starsi
> verze DLL, ktere byly nahrazeny novejsimi (asi 200 MB)
****Ale ty soubory tam presto jsou. Jak jsi zjistil, ze to muze
smazat?
Slavek
> Jan Fiala
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Co je to za blbost? (FillRect)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.1.2000 17:39:23
> ja bych rekl, ze to je docela logicke - asi se mi nepodari nakreslit caru,
> jejiz sirka je jeden pixel a ktera by byla adresovana v intersticialnich
> souradnicich - to by musela jit rozsviti pulka pixelu :-).
Ano, toto chapu. Ale pokud si canvas predstavim jako treba
cvereckovany papir, kde kazdy ctverecek predstavuje jednoho
pixela, pak mi to jiz logicke nepripadne (omlouvam se, ze pusobim
jako pitomec):
Chci linku od 0,0,10,10, pak bod musi vyplnovat vsechny body
takove, kde x-ova souradnice = y-souradnice, x je od 0 do 10
vcetne.
Pokud chci vyplnit oblast 0,0,10,10, pak predpokladam, ze i na
souradnici 10,10 to bude vyplnene.
Ale asi to chapu moc matematicky. :-)
Slavek
> Analogicky pro
> vyplnovani plochy musim jednoznacne rici, kde plocha konci a to zase
> nemuze byt souradnice stredova, protoze jak jiz receno, neumim vysvitit
> pulku pixelu. Tim padem musim pouzivat oba druhy souradnic a z kontextu
> ulohy musim zvolit ten spravny. Takhle to aspon vidim ja...
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Data z konference
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.1.2000 17:42:46
Preji vsem pekneho dne,
chtel bych upozornit vsechny, ze maji posledni moznost stahnout
si data z teto konference de facto od jejiho pocatku na mych
strankach a nasledne si je umistit do KonfView. V pondeli behem
dne zmizi a budou tam jiz jen (nova) data za leden.
Pro pripomenuti adresa:
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
QuickReport k D3+HP laserJet 4+
[*] Fiedler, Milan (CAP, GCF) <Milan.Fiedler(zv)gecapital(tec)com> - 28.1.2000 17:48:39
To asi nen� pro mne.
Preji kr�sn� den.
-----P�vodn� zpr�va-----
Od: David Maly [mailto:david(zv)archa.com]
Odesl�no: 28. ledna 2000 15:23
Komu: Vladislav.Skalicka(zv)koncept(tec)cz
P�edm�t: Re: QuickReport k D3+HP laserJet 4+
Ahoj,
Tuesday, September 28, 1999, 5:10:31 PM, you wrote:
VSkc> Po nainstalovani originalnich driveru od HP (4.3.0.19) namisto
VSkc> Microsoftich do Windows NT 4.0 US SP5 kvuli vyreseni problemu
VSkc> s tiskem z Wordu (bold, italic vyskakovali mimo radku) prestal
VSkc> v D3 fungovat QuickReport. Hlasi to chybu:
VSkc> Initialization of d:\winnt\system32\spool\drivers\w32x86\2\hpBLAF0.dll
VSkc> failed
Omlouvam se, ze reaguju trosklu zpozdene, ale moc by me zajimalo, jak
jste si s tim poradili. Meli jsme (a mame) naprosto stejne problemy.
Tyhle ovladace proste s Delphi nefunguji (a neni to jen otazka
QuickReportu), hlasi to presne tu chybu, co jsi popsal. Prozatimne to
resime bud instalaci starsich ovladacu nebo instalaci PostScriptovych
ovladacu, ktere to nedelaji (ale zase nezvladaji vetsi rozsahy tisku,
treba radove tisice stran).
Kdyz jsem tuhle chybu hlasil na Borlandu na HotLine, tak se tvarili,
ze to neni jejich problem.
Diky za rady.
David mailto:david(zv)archa.com
Combobox.text
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 28.1.2000 18:03:19
From: Zak Robert <nrsys(zv)psn.sk>> Combobox je nastaveny na DropDown, zabudol som ale pripisat ze potrebujem
> variantu, kedy to co do textu potrebujem napisat nie je v list-e. Mam tam
z
> dovodu uspory miesta na obrazovke ako prve napisane "NAZOV PREVODU". Potom
> ako na combobox kliknem a nasledne to zrusim, chcem aby sa mi tam znova
> objavilo "NAZOV PREVODU", ibaze v OnChange to priradit nejde (aspon nie
tak
> ako by som to vedel ja). Skusal som to priradit v OnExit, tam to funguje
ale
> to by som musel vzdy ten Combobox opustit, co nechcem, nehovoriac o tom ze
> pokial v OnChange priradim SetFocus inam, to priradenie do comboboxu
> neprebehne, funguje to iba vtedy pokial odidem z comboboxu tabulatorom, co
> teda ale naozaj nepotrebujem.
> Viete niekto ako na to?
>
> R.Zak
Ahoj,
Neni to sice nejcistsi, ale slo by to udelat se zapojenim komponenty Timer s
nastavenim maleho intervalu:
takze si natahnes na Form Timer, nastavis interval na 1
a vyplnis tyto 2 procedury takhle;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ComboBox1.Text:='NAZOV PREVODU';
Timer1.Enabled:=False;
end;
a funguje to
M. Jirman
Clipboard
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 28.1.2000 18:40:40
From: <winco(zv)datapac.sk>> Zdravim,
>
> neviem ako by som mohol dostat nazov suboru a cestu k nemu, ked ho
> ulozim do clipboardu napr v exploreri pomocou CTRL+C.
>
ahoj,
Slo by to pres OleContainer metodou OleContainer1.Paste
Musis si ovsem prostudovat jak z toho OleContaineru dostat udaje o tom
objektu
Interbase a prechod na ni - podruhe
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 28.1.2000 19:30:42
K memu predchoziho dotazu mam dalsi problem.
Mam v tabulce pole, ktere se generuje pomoci triggeru
CREATE TRIGGER set_typ_no FOR typ_sml
BEFORE INSERT AS
BEGIN
new.typ_no = gen_id ( g_typ_sml, 1);
END !!
Pokud do tabulky pridam treba z DBGridu zaznam a po postu bych chtel
zjistit hodnotu generovaneho pole, tak pomoci RefreshSQL to nejde (nebo
nevim jak) a pomoci GetBookmark, Close, Open,SetBookmark take ne. V obou
pripadech chapu proc, o tom nechci mluvit, ale jak to zaridit? To je
prece bezny postup.... V Paradoxu jsem alespon po postu hodnotu
autoinkrementu zjistil.
Jedine co me napada, je generovat typ_no jeste pred postem a zrusit
trigger (nebo ho poustet pouze pokud je typ_no=null), ale pak nechapu,
proc je metoda s triggerem BEFORE INSERT ilustrovana nekolikrat v
dokumentaci InterBase.
Jak to resite vy?
Diky
Ales
CSV Files
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 28.1.2000 20:36:47
Zdravim vsechny,
muzete mi prosim poradit jak nejlepsim zpusobem zpracovavat csv soubory
(hodnoty oddelene strednikem)? Mam takovy dojem, ze na to je i ODBC ovladac,
ale jisty si nejsem.
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
Report Builder 4.23
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 28.1.2000 11:48:06 -0800
Uz 2 dny je venku novy Report Builder 4.23
Fixes
-----
1. Previewing reports would sometimes cause a 'List Index out of bounds error'
when the report contained keep together groups.
2. When printing a Master/Detail report where the master data pipeline was
set to current record, no records were found for the detail, and the
master
data pipeline was set to SkipWhenNoRecords, an infinite loop resulted.
3. Automatic linking support in the JIT pipeline showed the incorrect first
record.
4. When no join records existed, the Joins tab of the Data Dictionary builder
would raise an error.
5. When the Designer.TabsVisible property was set to False, an index error
occurred when running the application
Heretic-X, SOFTWARE specialist
OT: Word dokument
[*] Michal Hlav�� - 28.1.2000 21:05:54
Zdravim,
velka omluva, ale v rychlosti som ani nevedel, co pisem. Samozrejme ten
subor nejde editovat, ani otvarat. Iba kopirovat.
Takze este raz:
sorry za OffTopic, ale mam jeden velky problem. mame wordowsky file s
dolezitymi datami a nejde otvorit. Chyba pri otvoreni suboru. Pritom
kopirovat ide. Pravdepodobne hlavicka suboru. Neviem
co mam robit.
Vdaka Miso
SQL server zdarma
[*] Ladislav Linhart <delphin.hce(zv)atlas(tec)cz> - 28.1.2000 21:19:50
Ahoj,
musim potvrdit, predchozi informace. Take podporuji radsi ceske produkty,
ale po mych zkusenostech se Software602 musim rici, ze jejich produkty chodi
pouze pod WinNT docela slusne, teda spise receno nedokazi je schodit.
Delal jsem nekolik let spravce site a verte mi, ze takovych problemu jako se
Soft602 jsem nezazil. Je to draze zaplacena levna vec.
Pozor nyni je na trhu nova verze Soft602 i tu jsem jiz instaloval na
nekolika PC
a jiz behem instalace mi spadly a to jsem ji instaloval nekolikrat z trech
ruznych
instalacnich CD. Nestalo se tak pouze pod WinNT !!! Ale jinak tento balik
nezkousel
a Software 602 o nem tvrdi, ze zde budou odstraneny nektere chyby. Ja jsem
zatim jiz na nekolik starych narazil. Z techto duvodu se rozhodl nas podnik
ustoupit
od produktu Software 602 a prejit na M$. Je to skoda, nebot bychom radsi
podporovali
ceske programatory, nezli Mrkvosofty.
Ladis
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Mirek Junek
> Sent: Friday, January 28, 2000 4:42 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL server zdarma
>
>
> Ahoj,
> Ja jsem se nechal navnadit a koupil jsem ten balik v ramci nejakych
> povodnovych slev, hlavne kvuli mail-klientovi, na ktery byly
> dobre recenze a
> byl jsem rad, ze se mi podarilo zbavit se ho.
>
> Neustale jsem narazel na nejake drobne, ale velmi neprijemne
> problemy. Jeden
> priklad za vsechny: pripravil jsem mail, ten se zaradil do slozky Posta k
> odeslani a pak uz nebylo zadnym zpusobem mozne zpravu zeditovat.
>
> Zkousel jsem i editor a spreadsheet, ale vzdycky tam byly nejake drobne
> zadrhely - napr. pri importu std. M$ souboruu. Vzhledem k tomu, ze vetsina
> lidi mi posila soubory v M$ formatu to bylo dost neprijemne.
>
> Navic to kazdou chvili generovalo application error (PC166/64 MB).
>
> Databazove veci jsem nezkousel, takze nevim.
>
> Celkovy umelecky dojem: mne to nepresvedcilo.
>
> Mirek
>
> ----- Original Message -----
> From: Zdenek Drvota <drvota(zv)zds(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, January 28, 2000 9:14 AM
> Subject: SQL server zdarma
>
>
> | Ahoj,
> | dostala se ke mne informace, ze pry
> | Winbase602 ma byt uz brzy zdarma nejen na
> | Linuxu, ale i na Windows!
> | Stoji to za tu cenu?
> |
> | -----------------------------------------------
> | Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
> | director
> | 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
> |
> |
>Default usesname and password for Intebase ?
[*] �ern� Roman - 28.1.2000 23:10:48
Gdyz si prectes prvni radka readme nebo helpu tak mas fsude napsano ze
default je "SYSDBA" a "MASTERKEY"
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 28, 2000 3:58 AM
Subject: Default usesname and password for Intebase ?> Ake je Default usesname and password for Intebase ?
> Meno pyta SYSDBA ale ake je heslo
>
>
> Hi Roland ?
>
>Interbase a prechod na ni - podruhe
[*] Jaro <jaro(zv)sinea(tec)cz> - 28.1.2000 20:58:32 -0800
To je ale problem BDE, ktery tuto hodnotu neni schopen zjistit.
Ja to v tech pripadech, kdy hodnotu potrebuji znat volam uloznou procedurou
a ta mi id vrati v output promenne. Zpravidla tuto proceduru tez spojuji
s aktualizaci dat (insert, update )
Jaro
>
>
> K memu predchoziho dotazu mam dalsi problem.
> Mam v tabulce pole, ktere se generuje pomoci triggeru
>
> CREATE TRIGGER set_typ_no FOR typ_sml
> BEFORE INSERT AS
> BEGIN
> new.typ_no = gen_id ( g_typ_sml, 1);
> END !!
>
> Pokud do tabulky pridam treba z DBGridu zaznam a po postu bych chtel
> zjistit hodnotu generovaneho pole, tak pomoci RefreshSQL to nejde (nebo
> nevim jak) a pomoci GetBookmark, Close, Open,SetBookmark take ne. V obou
> pripadech chapu proc, o tom nechci mluvit, ale jak to zaridit? To je
> prece bezny postup.... V Paradoxu jsem alespon po postu hodnotu
> autoinkrementu zjistil.
>
> Jedine co me napada, je generovat typ_no jeste pred postem a zrusit
> trigger (nebo ho poustet pouze pokud je typ_no=null), ale pak nechapu,
> proc je metoda s triggerem BEFORE INSERT ilustrovana nekolikrat v
> dokumentaci InterBase.
>
> Jak to resite vy?
>
> Diky
>
> Ales
> SQL & Commit & RoolBack
[*] Jaro <jaro(zv)sinea(tec)cz> - 28.1.2000 20:58:36 -0800
> Sorry psal jsem fsude TQuery atd. ale samozrejme pouzivam
> TIBQuery atd.,....
> Otazka je to u nich stejne ???
Tak to je uplne neco jineho. Tady zadne AutoCommit po zaznamech
neni, protoze bez transakce tabulku ani neotevres.
Na TIBQuery je vsak implicitne nastaveno AutoCommit pri Close.
>
> Muzu to mit na jine transakci nez default u dqatabase ?
>
> Musim delat StartTransaction, kdyz transakce uz je spustena
> automaticky ????
Nemusis. TIBtransaction := true je totez
a pokud odelas Open, tak se to na tuto hodnotu nastavi i samo.
Pri Clouse se pak provede Commit, pokud jsi ho neprovedl drive
a pokud jsi nezmenil vychozi nastaveni na RollBack
>
> Co se stane, kdyz jeste nedam commit a jiny uzivatel se to
> pokusi zmenit ???
Zalezi zda mas transakci otevrenou pro cteni nebo i pro zapis.
Typ lze nastavit na TIBtransaction. Implicitne je tusim jen na cteni.
Pokud to zmenis, tak to jineho uzivatele nepusti k ulozeni.
Vyhoda spciva i v tom, ze muzes provest Close a Open
(zmenit napr Order By) a dokud neudelas Commit,
tak se to drzi cele na klientovi a nedochazi ke zbytecne komunikaci
se serverem. Je to stale v jedne transakci. Ale to by bylo nadlouho
Jaro
>
> Mohl by nekdo zkusit popsat neco strucne o tom jak pouzit ty
> zatraceny transakce, tak aby mi to fungovalo. Ja do ted delal na
> paradoxu a kdyz uz delat na interbase tak poradne. Trigery a
> podobne veci uz jsem pochopil a tam funguje fsechno sqele, jen ty
> transakce mi nedaj spat. Princiiip samozrejme chapu, ale detaily
> realizace ne. Diky Radek
>
> Windows 2000 vs Delphi4
[*] Jaro <jaro(zv)sinea(tec)cz> - 28.1.2000 20:58:33 -0800
Zkus nejdrive nainstalovat D5 a pak teprve D4 (pokud ovsem mas i D5)
Jaro
>
> Pozdravujem vsetkych ucastnikov diskusie ako aj vsetkych okoloiducich.
>
> Prosim Vas, neskusal niekto z Vas pracovat v Delphi 4 C/S pod Windows 2000
> Premium ? Ja som to skusal, ale na rozdiel od RC2 a RC3, kde D4 chodilo bez
> problemov, ostra verzia W2000 priniesla so sebou take zmeny, ktore D4
> nedokaze bez problemov zvladnut.
>
>
> Dakujem za kazdy napad.
>
>
> Marek Sedliak
> msedliak(zv)softip.sk
> Poskytnite informacne ceny InterBase sietovej verz
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 29.1.2000 08:17:45
Jak to myslis ? Do verze 5.6 je to komercni produkt, od verze 6.0
to je Open Source. Podminky distribuce zatim nejsou zname.
Pavel
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
Subject: OT: Poskytnite informacne ceny InterBase sietovej verzie.> Zdravim, aka je cenova politika InterBase ?
>
> Tenk j� veri ma�.
>
> H�j. Roland Tur�an
Default usesname and password for Intebase ?
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 29.1.2000 08:59:09
masterkey
Pavel
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
> Ake je Default usesname and password for Intebase ?
> Meno pyta SYSDBA ale ake je heslo
>
>
> Hi Roland ?
>Clipboard
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.1.2000 10:51:25
From: <winco(zv)datapac.sk>
>
> neviem ako by som mohol dostat nazov suboru a cestu k nemu, ked ho
> ulozim do clipboardu napr v exploreri pomocou CTRL+C.
>
Ja bych to udelal nejak takhle:
uses ....Clipbrd;
function GetClipboardFileName: string;
var W: word;
MyHandle: THandle;
begin
Result := '';
W := RegisterClipboardFormat('FileName');
if W = 0 then Exit;
Clipboard.Open;
try
MyHandle := Clipboard.GetAsHandle(W);
Result := StrPas(GlobalLock(MyHandle));
GlobalUnlock(MyHandle);
finally
Clipboard.Close;
end;
end;
Vaclav Krmela
OT:Nabidka zamestnani
[*] Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz> - 29.1.2000 11:44:14
Hledame programatora pro databazove aplikace (delphi 3-5 Ent, MSSQL). Prace
v kolektivu asi 15ti programatoru, na ruznych projektech vsech velikosti.
Jen na plny uvazek, pracoviste Praha 1.
Lehce neaktualni prezentace firmy vcetne seznamu projektu na www.aquasoft(tec)cz
Odpovedi prosim na soukromy mail <masa(zv)aquasoft(tec)cz>pripojeni k internetu
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 29.1.2000 12:09:17
Kdyz pro vsechny tak ja mel problem pripojit se pres modem z W2k RC1. Pak
jsem to upgradoval na RC2 a furt to neslo. Nakonec jsem udelal cistou
instalaci a vse chodi OK. Zrejme se tam neco 'pripos..lo' ;-)
RC3 jsem nemel, ted mam na masine finalni verzi (build 2195 - pozor RC3 NENI
finalni ;-) a vse chodi naprosto pohodove. Zatim mi to slitlo jen jednou a
to tusim pri instalaci Adaptec CD Creatoru 4.0, kdyz jsem si hral zaroven
jeste s dalsima programama - tak se mi to jednou resnulo. Jinak W2k drzi
(mame je na 2 stolnich masinach a na notebooku a je to IMHO stejne mozna
vice stabilni nez NT 4). D5 chodi ok. D4 jsem na finalni verzi jeste
nezkousel (a asi ani nebudu ;-).
Mac
----- Original Message -----
From: "Jaro" <jaro(zv)sinea(tec)cz>> Myslim, ze by to mohlo zajimat i nektere jine ucastniky konference.
> Na Internet jsem se pripojil zcela bez problemu.
> I tento mail je posilan z W2000 RC2
> Zajimave je i to, ze pouzivam RC2 jiz dele nez mesic
> a za tuto dobu mi system ani jednou nespadnul.
> 17.2.2000 budou W2000 oficialne k dispozici
> a udajne to ma byt RC3.
> Delphi 5 na tom chodi velmi dobre a D4 se da take zprovoznit.
> Jaro
>
> >
> > Ahoj,
> >
> > pripojil se nekdo k internetu z Windows2000 RC2? Ja to nemohu
> > rozchodit, a i privolany technik odesel se sklopenyma usima...
> >
> > Odpovedi prosim na muj mail.
Win 2000 (was RE: pripojeni k internetu)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 29.1.2000 12:10:37
HA, to by odpovidalo i mym zkusenostem ;-)
Mac
----- Original Message -----
From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>> Urcite jsi nainstaloval RC1 a pak pres nej RC2. Podivej se do adresare
> WinNT\System32\DLLCache a vse co tam je muzes vymazat - jsou to starsi
verze
> DLL, ktere byly nahrazeny novejsimi (asi 200 MB)
Simulace behu prostredi Delphi
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 29.1.2000 13:00:07
Sorry sorry, taky jsem to mohl napsat takto s vyuzitim archivu konference
(ale je tam blbe cestina ;-):
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\sep\30\dlfaaabr.htm
(doufam, ze to nebude dodatecne cenzurovano, pac to uz bych se fakt dozral
;-)
Osobne si myslim, ze je to zrovna MOOOC pekny priklad, jakou ochranu svych
komponent NEPOUZIT. Ten kod jako takovy IMHO nelegalni v zadnem pripade
neni, tak jako nejsou nelegalni ruzne cracky (jestli jsou nebo nejsou
moralni, to je druha vec). Ja napr. ani nevim, jestli ten uvedeny kod je
funkcni nebo ne, ale poznamenal jsem si ho pro pripad, ze budu nekdy delat
nejakou komercni komponentu a budu ji chtit publikovat na webu. A proto to
do koference PATRI (ADMIN ma samozrejme pravdu - pise se to prece v
pravidlech ;-).
... a prece se toci ...
Pred nedavnem jsem napr. zkousel testovat nejake DBLookupCombo a to mi zase
pro zmenu hlasilo, ze nemam spustene Delphi, kdyz jsem to z nich poustel
(fakt super komponenta ;-).
Petr tady o tom zakazal mluvit (takze se verejne vystavuju pripadnemu
vylouceni, ale na tyhle 'zakazy' a 'prikazy' jsem ponekud alergicky). Silne
mi to pripomina causu DeCSS + DVD. Nezapominejme, ze prevazne diky hackerum
mame stabilnejsi OS...
Prece si tu nebudeme zakryvat oci a delat ze to neexistuje a pritom vsichni
(nebo aspon vetsina) o tom vi ...
No a protoze jsem to asi vyprovokoval, tak to timto uzaviram ;-) Opovazte se
na to nekdo reagovat ;-)))
Mac
P.S. Sorry Petre, ale ja fakt musel ...
----- Original Message -----
From: "Martin Kubecka" <martin.kubecka(zv)amenit(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 27, 2000 5:06 PM
Subject: Re: Simulace behu prostredi Delphi
> Mam pocit, ze jsi chtel nejspise toto:
> Simuluje Delphi IDE running.
Nova verze KonfView
[*] Ma��k Petr <rtepema(zv)mbox.vol(tec)cz> - 29.1.2000 16:18:03
> ----- P�vodn� zpr�va -----
> > Od: Jiri Kozubik <jiri_k(zv)mrp(tec)cz>
> > Komu: <delphi-l(zv)fwd(tec)cz>
> > Odesl�no: 27. ledna 2000 16:00
> > P�edm�t: Re: Nova verze KonfView
> >
> >
> > > Stejne problemy jako Zdenek, tedy Invalid parametr,
> > > pri 1532 zprave z DELPHI.TXT
> > > Konfigurace W98 4.10.1998, BDE 5.01
> > >
> > > Jirka
> > >
> >
Zkusil jsem nacitat data ze zari az prosinec postupne zasebou. Pridavani
jde
az do Error:
"Invalid parametr". Pridavani dalsich mesicu jde dobre, pokud jednotlive
vyvolani funkce pridat nenacitava vic zaznamu nez tech magickych 1530.
Archiv zari az prosinec ma v databazi pres 5000 zaznamu. Zda se , ze chyba
je ve funkci pridavani. jezto mam D3prof, neslo mi nacist projekt a
odkrokovat tu funkci. Neni ta hlaska od TStringList?
Konfigurace W98, BDE 5.01
Zdravi
Petr Mar�k
e-mail rtepema(zv)mbox.vol(tec)cz
tel. 02-20510562
FPiette - soubor na server pres FTP
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 29.1.2000 18:03:49
Potrebuji poslat soubor na server pres protokol FTP. Spustil jsem demo,
ktere je dodavano s ICS pro FTP a pripojil se (OK), poslal soubor (OK), ale
pak jsem zjistil, ze soubor se ulozil na root serveru a ne do
preddefinovaneho adresare.
HostDirName := '/realnet/';
... zkousel jsem vsechno mozne, ale nejde me to. Muzete mi prosim poradit?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
OT:Napoveda
[*] Roman �ev��k����� �Ȥ�*%�̿ - 29.1.2000 21:41:05
Hi,
nevite nekdo kde bych nasel "navod" jak vytvorit napovedu HLP.
stale na to nemuzu prijit.
Dik
Interbase kniha.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 29.1.2000 22:19:16
Zdravim.
Som s Intebase uplny magor a neviem kde zacat, viete mi poradit ako a kde
zacat, pripadne nejaku knihu, najlepsie lokalizovanu.
Tenk j� veri ma�.
H�j. Roland Tur�an
Napoveda
[*] Lud�k ZITA - 29.1.2000 22:49:58
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Roman
�ev��k
>Hi,
>nevite nekdo kde bych nasel "navod" jak vytvorit napovedu HLP.
>stale na to nemuzu prijit.
Zkus se mrknout na disk do adresare C:\Program
Files\Borland\Delphi*\Help\Tools
(* = cislo verze)
POP-UP - bitmapa
[*] katerina.zankova(zv)post(tec)cz - 29.1.2000 23:16:30
Ahoj vsichni,
chtela bych udelat pop-up menu, ktere by
melo po strane pruh s bitmapou.
Neco jako v nabidce Start u WINDOWS.
Poradi nekdo?
Delphi 4, standart
Diky moc. Katka
Sledujte zpravodajstvi, TV-program, pocasi, kursy, ...:
*** http://PRESS.CZ
OT:Napoveda
[*] �ern� Roman - 29.1.2000 23:23:06
....\Program Files\Borland\Delphi"X"\Demos\Db\Mastapp
Je to jakysi demo projekt ale je u nej i popis napovedy, pres soubor *.rtf
----- Original Message -----
From: Roman �ev��k
To: Delphi konference
Sent: Saturday, January 29, 2000 9:41 PM
Subject: OT:Napoveda
Hi,
nevite nekdo kde bych nasel "navod" jak vytvorit napovedu HLP.
stale na to nemuzu prijit. Dik
Prechod z Paradoxu na InterBase.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 30.1.2000 00:19:53
Zdravim.
Zakazdym ked si precitam ze napisete fuj suborove databazy, prejdi na SQL.
Ja som presiel iba nedavno z FoxPro, ale hned som sa vrhol na Paradox. Teraz
sa bojim pustit aplikaciu do predaja lebo ze je tam vela problemov s PDX.Ja
som za kazdym ked som mal problem pouzil Paradox Rebuilder od Romana
Krejciho a bolo to opravene. Ale moja udajova zakladna nie je velka, ta bude
velka az v plnej prevadzke bude to toho tlct vela amaterov, bude im vypadat
elektrika, budu resetovat,..., co ak potom budu problemy?
No dobre ale zaujima ma:
1. Pisete ze Interbase ma byt opensource, to znamena ze bude free aj
lubovolnej sietovej konfiguracii. Jedna sa mi o to, ze nie je mozne donutit
zakaznika kupu draheho servera, ked cena ako pri MSSQL je pre dealera cca
51tis. to je moc. Pokial zakaznik dostane aplikaciu ktora stoji v sietovej
verzii cca 30tis. a mi mu povieme nech si kupi od nas program za 10 tis a
este zial si musi kupit server pre pat uzivatelov za "len" 60tis. Je to
nemozne. Aj napriek tomu "prachy tady mluvi a hovno bezi maraton",
zakaznikovi darmo budeme vysvetlovat ze to za 30tis. je napisane v 16bitovom
MSAccess. Ale ta cena.
2. Ja uz mam skoro 50% programu napisanych s pouzitim Table a paradoxy. Ako
to previest, v pripade ze sa rozhodneme na serverovu verziu (Interbase). Nie
je mi jasne, ze ako funguje
- lock record
- lock databazy
- stale musim pri zmene vety pouzit "update" z SQL alebo to ide riesit
nejakym ludskym sposobom, napr tak ako u table ? Nastavim tam Tedit zavolam
dam do stavu [dsInsert,dsEdit] a pisem.
- autoincrement vytvorim pouzitim "max(chacha)+1"
- uz mi bude fungovat funkcia transakcii
- je mozne pri single uzivatelskom mode pristupovat k datam aj cez ODBC ?
Proste nepouzit Interbase server.
Ja viem ze vas nebude vela ktory mi odpisete, ale napriek tomu vam vsetkym
dakujem.
PS: Ja som napisal ze nemam rad SQL, a bolo mi odpisane, ze "ZMEN VYZNANI",
z toho tento mail vznikol.
Best regard.
Hi. Roland, uplny zaciatocnik v SQL serveroch.
Nov� WinBase602 SQL SERVER bude zdarma nejen pro L
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 30.1.2000 00:27:55
Nov� WinBase602 SQL SERVER bude zdarma nejen pro Linux, ale i pro NetWare a
Windows!
tieto informacie su v www.software602(tec)cz
Hi Roland.
generovani nazvu
[*] Bejvlov� Martina <M.Bejvlova(zv)cra(tec)cz> - 30.1.2000 02:23:50
Co je to za prisernej ukol? Zkusila jsem to udelat tak, ze jsem nejprve
vytvorila jednoznakove moznosti, ke kazde pridala kombinaci vsech moznosti,
cimz vznikly vsechny dvouznakove kombinace. Potom opet znovu kazdou
zkombinovala s jednoznakovyma moznostma a vznikly triznakove kombinace.
atd. Zadne if then else tam nebylo. Problem je v tom, ze soubor, do kterych
jsem si ulozila ctyrznakove kombinace mel pres 10 MB, petiznakovy pres 420MB
a pak jsem vychcipala na nedostatek pameti. Nijak jsem pamet nesetrila,
nebyl cas si s tim moc hrat, ale odhaduji, ze i kdybych usetrila polovicku,
stejne se mi to na disk nevejde. Uz si ze skoly z kombinatoriky moc
nepamatuji, ale tech variaci musi byt strasne moc.
Protoze jsem se do toho uz trochu namocila, docela by mi zajimalo, jestli to
nekdo udelal a jak veliky byl vysledny soubor.
>Dobry den, mam malinkaty problem. Mam za ukol vygenerovat >nazvy v tomto
>rozmezi : A...ZZZZZZZZ.
>Asi takhle: A,B,C...Z,AA,AB,AC...AZ,BA,BB,BC az po
>ZZZZZZZX,ZZZZZZZY,ZZZZZZZZ.
>Jsem az po usi zamotanej do vselijakejch for...end, >if...else...end a
>repeat...until, ale furt se mi to nedari... :-(((((( Poradte >mi prosim
>nejakej algoritmus, nez se z toho zblaznim...
>W98,D3Profi.
>PS: Prave jsem se dozvedel, ze nejen interval A..Z, ale A..Z >+ 0..9. POP-UP - bitmapa
[*] Lud�k ZITA - 30.1.2000 05:32:28
> chtela bych udelat pop-up menu, ktere by
> melo po strane pruh s bitmapou.
> Neco jako v nabidce Start u WINDOWS.
Zkus treba toto :
soubor Unit1.pas :
==================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdActns, ActnList, Menus, ImgList, StdCtrls;
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
ImageList1: TImageList;
ActionList1: TActionList;
EditCopy1: TEditCopy;
EditCut1: TEditCut;
EditPaste1: TEditPaste;
Copy1: TMenuItem;
Cut1: TMenuItem;
Paste1: TMenuItem;
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
======================
Soubor Unit1.dfm
======================
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 0
Top = 0
Width = 688
Height = 453
Align = alClient
Lines.Strings = (
'Memo1')
PopupMenu = PopupMenu1
TabOrder = 0
end
object PopupMenu1: TPopupMenu
Images = ImageList1
Left = 45
Top = 28
object Copy1: TMenuItem
Action = EditCopy1
end
object Cut1: TMenuItem
Action = EditCut1
end
object Paste1: TMenuItem
Action = EditPaste1
end
end
object ImageList1: TImageList
Left = 82
Top = 28
Bitmap = {
494C010103000500040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000002000000001001000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000040000009B59FB7F0D00000000000000231D3C28B2272729A12600232926
A529BC26A921B227B327262A80272623A92125191018102E2F23A624A322BC18
1019192E2F26A6262F2213198E22B82200000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000088000000030000005F53FC7F4F15703F6415573F0200
00002700FE7F0800000000000000231D3C28B2272729A12600232926A5293C21
2F29AC202E223C2225263024291A3C2129273C2225263024A9191217252C2500
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000001115573F040000009B59FB7F0D00
000000000000231D3C28B2272729A12600232926A529BC26A921B227B327262A
80272623A92125191018102E2F23A624A322BC181019192E2F26A6262F221319
8E22B82200000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00008800000008000000AF43FB7F4F157C3FB227B327262A80272623A9212519
1018102E2F23A624A322BC181019192E3723B826332936298E22B82200000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000880000000600
00009B59FB7F4F157F3F1F15573F040000005F35FC7F0800000000000000231D
3C28B2272729A12600232926A529BC26A9210000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000008800000004000000E35EF97F4F15
723F6F15573F030000005F35FC7F0800000000000000231DBC2B2927A427B729
BC26B320A7222E2ABC20A7222E2A332B3217252C250000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F10200508439E740B001E9400000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000424442FF7F
7F00000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000807F7F000000000000424442807F
7F00000000000042444200000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000044000042444244000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000042000044424442000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000042440000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000444200424400444200000000
00000000000000000000000000000000000044424400FF7F000000424442FF7F
7F00000044424400FF7F00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000042444244000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000010001000
0000000000000000000000000000000000000000000000000000000000001000
1000100010001000100010001000100010000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
1000100010001000100010001000100010000000000000000000100000000000
1000000000001000100000000000000000000000000000000000000000001000
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1000FF7F7F00FF7F44424400FF7FFF7F
7F42444244424442444244424400000000000000000000000000000000000000
1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000100000000000
1000000010000000000010000000000000000000104200421042004210421000
FF7F000000000000000000000000FF7F1000FF7F807FFF7FFF7F807FFF7FFF7F
807FFF7FFF7F807FFF7FFF7F0000004244420000000000000000000000000000
1000FF7F00000000000000000000FF7F10000000000000000000100000000000
1000000010000000000010000000000000000000004210420042104200421000
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000010001000
1000000010000000000010000000000000000000104200421042004210421000
FF7F000000000000FF7F1000100010001000000000424442FF7F7F424442807F
7F424442807FFF7FFF7F807F7F00FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F
1000FF7F00000000000000000000FF7F10000000000000000000000000000000
1000000010001000100000000000000000000000004210420042104200421000
FF7FFF7FFF7FFF7FFF7F1000FF7F1000000000420000C47FFF7F807FFF7FFF7F
807FFF7FFF7F807FFF7FFF7F00000042444200000000FF7F0000000000000000
1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000000000000
1000000010000000000000000000000000000000104200421042004210421000
FF7FFF7FFF7FFF7FFF7F10001000000000000000000000000000000000000000
00000000000000000000000000000000004200000000FF7FFF7FFF7FFF7FFF7F
1000FF7F00000000FF7F10001000100010000000000000000000000000000000
0000000000000000000000000000000000000000004210420042104200421000
100010001000100010001000000000000000FF7F7F000000FF7F7F424442807F
FF7FFF7F807FFF7FFF7F807F7F00FF7FFF7F00000000FF7F0000000000000000
1000FF7FFF7FFF7FFF7F1000FF7F100000000000000000000000000000000000
0000000000000000000000000000000000000000104200421042004210420042
104200421042004210420042000000000000FF7F444244000042807FFF7FFF7F
00000000000000000000000000000042444200000000FF7FFF7FFF7FFF7FFF7F
1000FF7FFF7FFF7FFF7F10001000000000000000000000000000000000000000
0000000000000000000000000000000000000000004210420000000000000000
0000000000000000104210420000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7F00000000FF7F0000
1000100010001000100010000000000000000000000000000000000000000000
0000000000000000000000000000000000000000104210420000000000000000
000000000000000010420042000000000000000000000000FF7F7F00FF7FFF7F
7F00FF7FFF7F7F00FF7FFF7F7F00FF7F000000000000FF7FFF7FFF7FFF7F0000
FF7F000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000042104200420000E07F0000
0000E07F0000104200421042000000000000FF7F807FFF7FFF7F807FFF7FFF7F
0000006366630000807FFF7F00000042444200000000FF7FFF7FFF7FFF7F0000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000E07F
E07F000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7F7F00FF7FFF7F
7F00FF7FFF7F7F00FF7FFF7F7F00FF7F00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000424442424D3E000000000000003E000000
2800000040000000200000000100010000000000000100000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFFFFFFFFFF0000FFFFF9FFFC000000
FE00F6CF80000000FE00F6B700000000FE00F6B7000000008000F8B700000000
8000FE8F000100008000FE3F000300008000FF7F000300008001FE3F00030000
8003FEBF000300008007FC9F0FC30000807FFDDF0003000080FFFDDF80070000
81FFFDDFF87F0000FFFFFFFFFFFF0000}
end
object ActionList1: TActionList
Images = ImageList1
Left = 8
Top = 28
object EditCopy1: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = 'Copy'
ImageIndex = 0
ShortCut = 16451
end
object EditCut1: TEditCut
Category = 'Edit'
Caption = 'Cu&t'
Hint = 'Cut'
ImageIndex = 1
ShortCut = 16472
end
object EditPaste1: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = 'Paste'
ImageIndex = 2
ShortCut = 16470
end
end
end
==============================generovani nazvu
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 30.1.2000 11:55:09
On Sun, 30 Jan 2000, [iso-8859-2] Bejvlov� Martina wrote:
> stejne se mi to na disk nevejde. Uz si ze skoly z kombinatoriky moc
> nepamatuji, ale tech variaci musi byt strasne moc.
Ahojte,
jestli se nepletu
8 k
sum 36 = 2,901,713,047,668
k=1
coz je docela velky cislo.
> >Dobry den, mam malinkaty problem. Mam za ukol vygenerovat >nazvy v tomto
> >rozmezi : A...ZZZZZZZZ.
> >Asi takhle: A,B,C...Z,AA,AB,AC...AZ,BA,BB,BC az po
> >ZZZZZZZX,ZZZZZZZY,ZZZZZZZZ.
> >Jsem az po usi zamotanej do vselijakejch for...end, >if...else...end a
> >repeat...until, ale furt se mi to nedari... :-(((((( Poradte >mi prosim
> >nejakej algoritmus, nez se z toho zblaznim...
> >W98,D3Profi.
>
> >PS: Prave jsem se dozvedel, ze nejen interval A..Z, ale A..Z >+ 0..9.
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
OT:Napoveda
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 30.1.2000 12:05:43
Ahoj
From: Roman ev �k <r.sevcik(zv)iol(tec)cz>
> nevite nekdo kde bych nasel "navod" jak vytvorit napovedu HLP.
> stale na to nemuzu prijit.
snad v kazde knize o Delphi, popr. o programovani pro WIN. Ale
tvorit Help soubor napr. ve Wordu je hodne silene.
Zkus si stahnout
http://www.adept.co.za/~oasisdev
Oasis SE is a Freeware Help Authoring Tool for
Windows 95/98 and Windows NT 4.0.
Pokud tam nepotrebujes vkladat BMP soubory, tak je fakt dobry
- za ty penize :-)))
nepodporuje ani vkladani tabulek, ale lze je tam prekopirovat pres
clipboard.
Jarek Uher
OT: Rodna cisla
[*] bohous m <bohous_m(zv)seznam(tec)cz> - 30.1.2000 14:17:56
Sorry za OT, uz se to tu asi
probiralo, ale shanim na semestralni
projekt libovolnou teorii o rodnych
cislech. Jak se pocitaji,
jaky maji format (obzvlaste ted
v roce 2000 a dal).
Take jsem slysel, ze v posledni
koncovce je zakodovane misto
narozeni, co je na tom pravda?
Mwelo by to jit asi najit nekde u matrik,
ale zatim jsem vubec nic nenasel.
Muzete mi prosim poradit nejake zdroje?
Diky moc a Delphi zdar.
Bohous
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Komponenty bez BDE
[*] bozek(zv)box(tec)cz (Bozek Petr) - 30.1.2000 14:12:53
Cao.
Pouzivam taky mODBC pro pristup k SQL serveru (MS SQL 6.5).
V PARAMS ale pouzivam:
UID=sa
PWD=sa
a DSN mam uvedeno v published property DataBaseName.
A funguje ...
Zdar a silu
Petr Bozek
----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 28, 2000 4:25 PM
Subject: Komponenty bez BDE
> Ahoj,
>
> stahl jsem si z Torry balik komponent pro
> pristup na MS SQL server pres ODBC - jmenuje se
> to mODBC.
>
> Nedari se mi ale zaridit prihlaseni se k SQL
> serveru z kodu bez prihlasovaciho dialogu tak,
> aby to neskoncilo chybou.
>
> 1) Dam-li u komponenty mDatabaze vlastnost
> DriverCompletion jinak, nez na sdNoPrompt,
> objevi se prihlasovaci dialog. Vyplnim jmeno,
> heslo a prihlaseni se v poradku provede.
> V Params je uveden radek DSN=MojeDSN.
>
>
> 2) Dam-li ale DriverCompletion na sdNoPrompt a
> Params obsahuje tri radky:
>
> USER NAME=aaaa
> PASSWORD=bbbb
> DSN=MojeDSN
>
> Pri pokusu o pripojeni vznikne chyba s textem
> Datasource name not found and no default driver
> specified.
>
> Upravim-li Params na
>
> DSN=MojeDSN
> USER NAME=aaaa
> PASSWORD=bbbb
>
> vznikne chyba Connection failed for user
> '(null').
>
> Nemate nekdo po ruce nejake reseni? Postacil by
> mi i nejaky help k ODBC knihovnim funkcim.
>
> A jeste: pokud pouzivate nekdo nejake freeware
> komponenty pro pripojeni na MS SQL server a jste
> s nimi vice ci mene spokojeni, dejte mi prosim
> vedet. Je mi jedno, zda by slo o ODBC nebo OLEDB.
>
> Diky moc za pomoc.
>
> David Lebeda
popup bitmapa - to neni ono
[*] katerina.zankova(zv)post(tec)cz - 30.1.2000 14:14:17
Diky moc za tip, ale asi jsem to spatne pochopila.
Nejde mi o obrazky vedle jednotlivych polozek,
(to umim), ale jde mi o jednolity bitmapovy pruh
s napisem napriklad muj program, stejne jako
ho maji windowsy ve start menu modry prouzek
WINDOWS 98.
Diky moc. Katka
Dne 30. ledna 2000 v 5:32 Lud�k ZITA napsal(a):
>
> > chtela bych udelat pop-up menu, ktere by
> > melo po strane pruh s bitmapou.
> > Neco jako v nabidce Start u WINDOWS.
>
> Zkus treba toto :
>
> soubor Unit1.pas :
> ==================
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdActns, ActnList, Menus, ImgList, StdCtrls;
>
> type
> TForm1 = class(TForm)
> PopupMenu1: TPopupMenu;
> ImageList1: TImageList;
> ActionList1: TActionList;
> EditCopy1: TEditCopy;
> EditCut1: TEditCut;
> EditPaste1: TEditPaste;
> Copy1: TMenuItem;
> Cut1: TMenuItem;
> Paste1: TMenuItem;
> Memo1: TMemo;
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> end.
> ======================
> Soubor Unit1.dfm
> ======================
> object Form1: TForm1
> Left = 192
> Top = 107
> Width = 696
> Height = 480
> Caption = \'Form1\'
> Color = clBtnFace
> Font.Charset = DEFAULT_CHARSET
> Font.Color = clWindowText
> Font.Height = -11
> Font.Name = \'MS Sans Serif\'
> Font.Style = []
> OldCreateOrder = False
> PixelsPerInch = 96
> TextHeight = 13
> object Memo1: TMemo
> Left = 0
> Top = 0
> Width = 688
> Height = 453
> Align = alClient
> Lines.Strings = (
> \'Memo1\')
> PopupMenu = PopupMenu1
> TabOrder = 0
> end
> object PopupMenu1: TPopupMenu
> Images = ImageList1
> Left = 45
> Top = 28
> object Copy1: TMenuItem
> Action = EditCopy1
> end
> object Cut1: TMenuItem
> Action = EditCut1
> end
> object Paste1: TMenuItem
> Action = EditPaste1
> end
> end
> object ImageList1: TImageList
> Left = 82
> Top = 28
> Bitmap = {
> 494C010103000500040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
> 0000000000003600000028000000400000002000000001001000000000000010
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000040000009B59FB7F0D00000000000000231D3C28B2272729A12600232926
> A529BC26A921B227B327262A80272623A92125191018102E2F23A624A322BC18
> 1019192E2F26A6262F2213198E22B82200000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000088000000030000005F53FC7F4F15703F6415573F0200
> 00002700FE7F0800000000000000231D3C28B2272729A12600232926A5293C21
> 2F29AC202E223C2225263024291A3C2129273C2225263024A9191217252C2500
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000001115573F040000009B59FB7F0D00
> 000000000000231D3C28B2272729A12600232926A529BC26A921B227B327262A
> 80272623A92125191018102E2F23A624A322BC181019192E2F26A6262F221319
> 8E22B82200000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 00008800000008000000AF43FB7F4F157C3FB227B327262A80272623A9212519
> 1018102E2F23A624A322BC181019192E3723B826332936298E22B82200000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000880000000600
> 00009B59FB7F4F157F3F1F15573F040000005F35FC7F0800000000000000231D
> 3C28B2272729A12600232926A529BC26A9210000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000008800000004000000E35EF97F4F15
> 723F6F15573F030000005F35FC7F0800000000000000231DBC2B2927A427B729
> BC26B320A7222E2ABC20A7222E2A332B3217252C250000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 000000000000000000000000000000000000F10200508439E740B001E9400000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 000000000000000000000000000000000000000000000000000000424442FF7F
> 7F00000000000000000000000000000000000000000000000000000000000000
> 000000000000000000000000000000000000807F7F000000000000424442807F
> 7F00000000000042444200000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000044000042444244000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000042000044424442000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000042440000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000444200424400444200000000
> 00000000000000000000000000000000000044424400FF7F000000424442FF7F
> 7F00000044424400FF7F00000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000042444244000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000010001000
> 0000000000000000000000000000000000000000000000000000000000001000
> 1000100010001000100010001000100010000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 1000100010001000100010001000100010000000000000000000100000000000
> 1000000000001000100000000000000000000000000000000000000000001000
> FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1000FF7F7F00FF7F44424400FF7FFF7F
> 7F42444244424442444244424400000000000000000000000000000000000000
> 1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000100000000000
> 1000000010000000000010000000000000000000104200421042004210421000
> FF7F000000000000000000000000FF7F1000FF7F807FFF7FFF7F807FFF7FFF7F
> 807FFF7FFF7F807FFF7FFF7F0000004244420000000000000000000000000000
> 1000FF7F00000000000000000000FF7F10000000000000000000100000000000
> 1000000010000000000010000000000000000000004210420042104200421000
> FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000010001000
> 1000000010000000000010000000000000000000104200421042004210421000
> FF7F000000000000FF7F1000100010001000000000424442FF7F7F424442807F
> 7F424442807FFF7FFF7F807F7F00FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F
> 1000FF7F00000000000000000000FF7F10000000000000000000000000000000
> 1000000010001000100000000000000000000000004210420042104200421000
> FF7FFF7FFF7FFF7FFF7F1000FF7F1000000000420000C47FFF7F807FFF7FFF7F
> 807FFF7FFF7F807FFF7FFF7F00000042444200000000FF7F0000000000000000
> 1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000000000000
> 1000000010000000000000000000000000000000104200421042004210421000
> FF7FFF7FFF7FFF7FFF7F10001000000000000000000000000000000000000000
> 00000000000000000000000000000000004200000000FF7FFF7FFF7FFF7FFF7F
> 1000FF7F00000000FF7F10001000100010000000000000000000000000000000
> 0000000000000000000000000000000000000000004210420042104200421000
> 100010001000100010001000000000000000FF7F7F000000FF7F7F424442807F
> FF7FFF7F807FFF7FFF7F807F7F00FF7FFF7F00000000FF7F0000000000000000
> 1000FF7FFF7FFF7FFF7F1000FF7F100000000000000000000000000000000000
> 0000000000000000000000000000000000000000104200421042004210420042
> 104200421042004210420042000000000000FF7F444244000042807FFF7FFF7F
> 00000000000000000000000000000042444200000000FF7FFF7FFF7FFF7FFF7F
> 1000FF7FFF7FFF7FFF7F10001000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000004210420000000000000000
> 0000000000000000104210420000000000000000000000000000000000000000
> 00000000000000000000000000000000000000000000FF7F00000000FF7F0000
> 1000100010001000100010000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000104210420000000000000000
> 000000000000000010420042000000000000000000000000FF7F7F00FF7FFF7F
> 7F00FF7FFF7F7F00FF7FFF7F7F00FF7F000000000000FF7FFF7FFF7FFF7F0000
> FF7F000000000000000000000000000000000000000000000000000000000000
> 00000000000000000000000000000000000000000042104200420000E07F0000
> 0000E07F0000104200421042000000000000FF7F807FFF7FFF7F807FFF7FFF7F
> 0000006366630000807FFF7F00000042444200000000FF7FFF7FFF7FFF7F0000
> 0000000000000000000000000000000000000000000000000000000000000000
> 000000000000000000000000000000000000000000000000000000000000E07F
> E07F000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 000000000000000000000000000000000000000000000000FF7F7F00FF7FFF7F
> 7F00FF7FFF7F7F00FF7FFF7F7F00FF7F00000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 000000000000000000000000000000424442424D3E000000000000003E000000
> 2800000040000000200000000100010000000000000100000000000000000000
> 000000000000000000000000FFFFFF0000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 0000000000000000000000000000000000000000000000000000000000000000
> 00000000000000000000000000000000FFFFFFFFFFFF0000FFFFF9FFFC000000
> FE00F6CF80000000FE00F6B700000000FE00F6B7000000008000F8B700000000
> 8000FE8F000100008000FE3F000300008000FF7F000300008001FE3F00030000
> 8003FEBF000300008007FC9F0FC30000807FFDDF0003000080FFFDDF80070000
> 81FFFDDFF87F0000FFFFFFFFFFFF0000}
> end
> object ActionList1: TActionList
> Images = ImageList1
> Left = 8
> Top = 28
> object EditCopy1: TEditCopy
> Category = \'Edit\'
> Caption = \'&Copy\'
> Hint = \'Copy\'
> ImageIndex = 0
> ShortCut = 16451
> end
> object EditCut1: TEditCut
> Category = \'Edit\'
> Caption = \'Cu&t\'
> Hint = \'Cut\'
> ImageIndex = 1
> ShortCut = 16472
> end
> object EditPaste1: TEditPaste
> Category = \'Edit\'
> Caption = \'&Paste\'
> Hint = \'Paste\'
> ImageIndex = 2
> ShortCut = 16470
> end
> end
> end
> ==============================
>
>
Najit informace na internetu je snadne:
*** http://NAJDI.TO
Rodna cisla
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 30.1.2000 15:54:54
Prajem prijemny slnecny den :)
----- Original Message -----
From: bohous m <bohous_m(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, January 30, 2000 1:17 PM
Subject: OT: Rodna cisla
> projekt libovolnou teorii o rodnych
> cislech. Jak se pocitaji,
> jaky maji format (obzvlaste ted
> v roce 2000 a dal).
Sucet vsetkych cislic je delitelny 11 (rrmmdd/abcd (r+r+m+m+d+d+a+b+c+d)
mod 11 = 0).
To ovsem neplati pre starsie rodne cisla (minule a zac. tohto storocia),
ktore maju na konci len trojcislie (rrmmdd/abc).
> koncovce je zakodovane misto
> narozeni, co je na tom pravda?
Ano (videl som zoznam ludi narodenych v tom istom meste a v tom istom roku -
vsetci mali prve dve cisla zo stvorcislia rovnake).
Presne informacie by si mohol hladat na i na statistickom urade. :)))
Prezri si minuly rocnik Softwarovych novin (http://swn.softnov(tec)cz/) -
nachadza sa tam clanok venovany rodnym cislam (bol tusim castou Cover Story
o roku 2000) (presnejsie si nepamatam).
Lovu zdar
Ondrej
[ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]Rodna cisla
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.1.2000 16:16:37
Ahoj,
veskere dulezite informace o rodnych cislech jsou na strankach
Uradu pro statni informacni system:
http://www.usiscr(tec)cz/cz/standardy/datprv27.html
Debata o rodnych cislech jiz zde konferenci probihala a nevedla k
rozumnemu vysledku. Snad jen to, ze kontrola na delitelnost 11 je
k nicemu, nebot jsou vyjimky, stejne tak, ze nelze rc vydavat za
primarni klic v databazi.
Slavek
> Sucet vsetkych cislic je delitelny 11 (rrmmdd/abcd (r+r+m+m+d+d+a+b+c+d)
> mod 11 = 0). To ovsem neplati pre starsie rodne cisla (minule a zac. tohto
> storocia), ktore maju na konci len trojcislie (rrmmdd/abc). > koncovce je
> zakodovane misto > narozeni, co je na tom pravda? Ano (videl som zoznam
> ludi narodenych v tom istom meste a v tom istom roku - vsetci mali prve
> dve cisla zo stvorcislia rovnake).
>
> Presne informacie by si mohol hladat na i na statistickom urade. :)))
> Prezri si minuly rocnik Softwarovych novin (http://swn.softnov(tec)cz/) -
> nachadza sa tam clanok venovany rodnym cislam (bol tusim castou Cover
> Story o roku 2000) (presnejsie si nepamatam).
>
> Lovu zdar
> Ondrej
>
> [ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
popup bitmapa - to neni ono
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.1.2000 16:22:01
Ahoj,
pokud bych to resil, tak pomoci vlastniho vykreslovani. Kazda
polozka menu ma vlastnost OnDrawItem pripadne
OnAdvancedDrawItem a pak jeste OnMeasureItem, pokud by mela
byt (u kazdeho clenu) jina velikost. Blize zkus napovedu k danym
udalostem.
Slavek
> Diky moc za tip, ale asi jsem to spatne pochopila.
>
> Nejde mi o obrazky vedle jednotlivych polozek,
> (to umim), ale jde mi o jednolity bitmapovy pruh
> s napisem napriklad muj program, stejne jako
> ho maji windowsy ve start menu modry prouzek
> WINDOWS 98.
>
> Diky moc. Katka
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Rodna cisla
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 30.1.2000 16:38:17
Cauec,
> > cislech. Jak se pocitaji,
> > jaky maji format (obzvlaste ted
> > v roce 2000 a dal).
> Sucet vsetkych cislic je delitelny 11 (rrmmdd/abcd (r+r+m+m+d+d+a+b+c+d)
> mod 11 = 0).
Tos napsal spatne - (rrmmdd + abcd) / 11 musi vyjit cele cislo.
> To ovsem neplati pre starsie rodne cisla (minule a zac. tohto storocia),
> ktore maju na konci len trojcislie (rrmmdd/abc).
Jak je to u roku 2000 nevim, nepidil jsem se po tom, a co se tyce
trojcisli - to maji vsichni narozeni do roku 53 vcetne.
> > koncovce je zakodovane misto
> > narozeni, co je na tom pravda?
Hadat se nebudu, ale podle me neni.
> Ano (videl som zoznam ludi narodenych v tom istom meste a v tom istom
roku -
> vsetci mali prve dve cisla zo stvorcislia rovnake).
Kdo urcuje, jaka cisla se prideli, to netusim.
Bye Ludan
Rodna cisla
[*] Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> - 30.1.2000 17:01:59 -0000
Preju hezkou nedeli!
S temi RC je to trosku jinak. Neni pravda ze by byl ciferny soucet delitelne
11, ale cele rodne cislo i s priponou (nebo jak to nazvat) je delitelne 11.
Prechod z devitimistnych na desitimistna probehl myslim nekdy na
zacatku 50. let. Ale jak to je s jejich delitelnosti nevim. Asi bych se
obratil na matriku nebo statistickej urad, ale tezko rict jestli jsou
ochotny...
Pripadne bych obehal svoje pribuzny, sepsal si jejich RC a zkousel bych
na to prijit.
Posledni predcisli opravdu urcuje misto narozeni, ale s jednim kamaradem
mame ty prvni dve cisla posledni ctyrcisli stejny i kdyz nejsme narozeny ve
stejnym roce. Takze to mozna plati porad a ne jenom v jednom roce.
Tohle je uz jenom moje domnenka, kdyztak me vyvedte z omylu:
ty posledni dve cisla uz asi neobsahuji zadnou informaci, ale slouzi jenom
na nastaveni vyse zminene delitelnost 11.
Ahoj
tomas.bihary(zv)vslib(tec)cz
> Prajem prijemny slnecny den :)
>
> ----- Original Message -----
> From: bohous m <bohous_m(zv)seznam(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Sunday, January 30, 2000 1:17 PM
> Subject: OT: Rodna cisla
>
>
> > projekt libovolnou teorii o rodnych
> > cislech. Jak se pocitaji,
> > jaky maji format (obzvlaste ted
> > v roce 2000 a dal).
> Sucet vsetkych cislic je delitelny 11 (rrmmdd/abcd (r+r+m+m+d+d+a+b+c+d)
> mod 11 = 0).
> To ovsem neplati pre starsie rodne cisla (minule a zac. tohto storocia),
> ktore maju na konci len trojcislie (rrmmdd/abc).
> > koncovce je zakodovane misto
> > narozeni, co je na tom pravda?
> Ano (videl som zoznam ludi narodenych v tom istom meste a v tom istom
roku -
> vsetci mali prve dve cisla zo stvorcislia rovnake).
>
> Presne informacie by si mohol hladat na i na statistickom urade. :)))
> Prezri si minuly rocnik Softwarovych novin (http://swn.softnov(tec)cz/) -
> nachadza sa tam clanok venovany rodnym cislam (bol tusim castou Cover
Story
> o roku 2000) (presnejsie si nepamatam).
>
> Lovu zdar
> Ondrej
>
> [ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
>Komponenty bez BDE
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 30.1.2000 18:02:50
> Pouzivam taky mODBC pro pristup k SQL serveru (MS SQL 6.5).
> V PARAMS ale pouzivam:
> UID=sa
> PWD=sa
> a DSN mam uvedeno v published property DataBaseName.
Pripadne muzes zkusit vyhodit to DSN a dat tam
DRIVER={SQL Server}
SERVER=jmenoserveru
Pak nemusis nic nastavovat v ovladacich panelech, staci
instalovat MDAC a je to.
Pozn. S mODBC jsem to nezkousel, pouzivam ODBC API.
Ahoj
Daniel
Prechod z Paradoxu na InterBase.
[*] Jaro <jaro(zv)sinea(tec)cz> - 30.1.2000 09:50:13 -0800
> Zdravim.
>
> Zakazdym ked si precitam ze napisete fuj suborove databazy, prejdi na SQL.
> Ja som presiel iba nedavno z FoxPro, ale hned som sa vrhol na Paradox. Teraz
> sa bojim pustit aplikaciu do predaja lebo ze je tam vela problemov s PDX.Ja
> som za kazdym ked som mal problem pouzil Paradox Rebuilder od Romana
> Krejciho a bolo to opravene. Ale moja udajova zakladna nie je velka, ta bude
> velka az v plnej prevadzke bude to toho tlct vela amaterov, bude im vypadat
> elektrika, budu resetovat,..., co ak potom budu problemy?
To asi budou. Podle mych drivejsich zkusenosti je Paradox for Windows
v sitich nachylnejsi na problemy vice nez DBF pod FOX. Nicmene datova
bezpecnost neni jedinym kriteriem pri rozhodovani, jakou databazi zvolit.
> No dobre ale zaujima ma:
> 1. Pisete ze Interbase ma byt opensource, to znamena ze bude free aj
> lubovolnej sietovej konfiguracii. Jedna sa mi o to, ze nie je mozne donutit
> zakaznika kupu draheho servera, ked cena ako pri MSSQL je pre dealera cca
> 51tis.
Kde jsi k te cene prisel? To je cena tak pro 15 user pack. Jedna licence stoji
neco kolem 6.000,-. Vice-uzivatelske licence nevznikaji prostym nasobenim,
protoze existuji tzv. zvyhodnene baliky. Existuji take ovsem i levnejsi
servery.
to je moc. Pokial zakaznik dostane aplikaciu ktora stoji v sietovej
> verzii cca 30tis.
Jestli prodavas aplikaci pro 10 - 15 user za 30 tisic, tak jsi snad mecenas.
Nevim a jaky program se jedna, ale pro 15 pocitacu koupis za 30 tisic tak
antivirovy program. U patnacti pocitacu sedi 15 lidi. Spocitej jejich rocni
naklady na mzdy a zjistis, ze se jedna o dost velkou firmu. Mzdove i hardware
naklady na provoz tveho programu mnohonasobne previsi naklady na tvuj program,
na nemz oni budou vydelavat, pokud napr. tvuj program snizi pracnost a tudiz i
mzdove naklady. U nas je zazity zvyk, ze za software se nemusi platit - a kdyz
tak jenom malo. Kdyz si to ovsem vyvojari nechaji libit? Co se tyka serveru, ten
by se mel vzdy pocitat navic. Chcete levne reseni? Prosim - nekupujte server,
ale mozna se vam to velmi prodrazi na prostojich, pri obnnove dat nebo z duvodu
nedostatecne integrity. Mozna budete muset hodne investovat do rozvoje pretizene
site a pod. Mnoho firem, ktere neco podobneho znaji jiz uvazuje jinak a nevahaji
vydat podstatne vyssi castky za spolehlivy a bezproblemovy provoz, protoze si
uvedomuji cenu dat, cenu jejich porizeni a vyznam historie dat pro vlastni
firmu. To by meli byt potencialni zakaznici. Ostatni je dobre prenechat
konkurenci, protoze pripadny neuspech ma zakaznik vzdy tendeci svest na
dodavatele. Tim si ovsem dodavatel poskozuje dobre jmeno. O tom, ze zakaznik
setril a nasadil neadekvatni technologii zpravidla nechce slyset. Vzdy vsak na
to musi byt dva! Ten, kdo chce levne reseni byt treba i nevhodne a ten, kdo to
pripusti, naprogramuje a doda jen proto, aby neprisel o zakaznika.
a mi mu povieme nech si kupi od nas program za 10 tis a
> este zial si musi kupit server pre pat uzivatelov za "len" 60tis. Je to
> nemozne. Aj napriek tomu "prachy tady mluvi a hovno bezi maraton",
> zakaznikovi darmo budeme vysvetlovat ze to za 30tis. je napisane v 16bitovom
> MSAccess. Ale ta cena.
1. Pro 5 user nestoji Interbase 60 tisic.
2. Nemohu s tebou souhlasit. Vsechno ma sve meze. Kdyz si za 30 tisic nekdo
pujde koupit dobre auto, tak mu ho proste neprodaji, ale dostane jen starej
kram. Mozna se nekdo spokoji se starym kramem, mozna si na cas necha od nejakeho
prodejce nakukat, ze to neni kram a ze mu pro jeho potreby bohate staci a ty
prijdes o kseft. On brzo ale zjisti, ze ho podvedli a poohlidne se po
serioznejsim prodejci.
Prechod na technologie C/S je prechod do jine kategorie a struktury zakazniku.
Mozna o nektere stavajici zakazniky prijdes, ale vytvoris si potencial pro
ziskani novych, vetsich a zpravidla lepsich, kteri ti zajisti rovnomene prijmy
za technickou podporu a sluzby. Zakaznici, kteri by nejradeji ziskali program
zadarmo, zpravidla nechteji nic platit ani za sluzby. Domnivaji se, ze data
patri do zaruky programu a argumentuji tim, ze havarie dat je zpusobena
nekvalitou software. O tom, ze je to dano levnym resenim nechteji nic slyset.
Prijedte to okamzite opravit a zadarmo! To jsou pak caste telefony. Za nizkou
cenu programu musis ziskat hodne takovychto zakazniku a protoze zpravidla
problemy na sebe nedaji dlouho cekat, budes potrebovat vice servisnich lidi.
Prijem z jejich sluzeb ovsem nepokreje naklady na tuto cinnost. Budete se stale
hadat se zakazniky o tom, ci je vina, kdo ma platit. Najdou se i taci, kteri
budou tvrdit, ze jim mate uhradit prostoje a jine skody. Rozmrzelost bude na
obou stranach a nakonec to nektere zakazniky prestane bavit. Vasi firmu pomluvi
a k tvemu uzasu najednou koupi jine mnohonasobne drazsi reseni. Ze pred casem o
takovem reseni nic nechteli ani slyset, o tom uz nebudou nic vedet.
V sitovych resenich je lepe soustredit se na kvalitni zpravidla vetsi zakazniky
a nabizet souvisejici placene sluzby. Mene takovych zakazniku pak zprvidla
znamena vyssi prijmy a spokojenost na obou stranach - o dobrem jmenu firmy
nemluve. Ja vim, ze se to hezky pise a hure realizuje, ale rozhodnout se musi
kazdy za sebe.
> 2. Ja uz mam skoro 50% programu napisanych s pouzitim Table a paradoxy. Ako
> to previest, v pripade ze sa rozhodneme na serverovu verziu (Interbase). Nie
> je mi jasne, ze ako funguje
To je zpravidla (pokud se nejedna o velmi jednoduchy program) potreba predelat
uplne od zakladu.
> - lock record
> - lock databazy
To neni potreba (vetsinou), protoze se o to stara databaze sama. Zamykani
probiha automaticky v souvislosti s transakcemi. Transakcni zpusob prace a tim
zajistovana datova integrita je jednim z vyznamnych duvodu proc se kupuji
servery. Podobne se databaze sama stara o spravu indexu, integritu a pod. Nekde
se programovani zkomplikuje a nekde zase zjednodusi.
> - stale musim pri zmene vety pouzit "update" z SQL alebo to ide riesit
> nejakym ludskym sposobom, napr tak ako u table ? Nastavim tam Tedit zavolam
> dam do stavu [dsInsert,dsEdit] a pisem.
> - autoincrement vytvorim pouzitim "max(chacha)+1"
To je blbost. Tim nezajistis jedinecnost ID. Klient nemuze nastavovat
autoincrement. Na to je tam generator ID
> - uz mi bude fungovat funkcia transakcii
> - je mozne pri single uzivatelskom mode pristupovat k datam aj cez ODBC ?
> Proste nepouzit Interbase server.
Udelat jednoho klienta, ktery by bylo mozne napojit jak na Paradox, tak na
server je holy nesmysl. V tom pripade bys nemohl pouzit ulozene procedury,
triggery, transakce a radu jinych vymozenosti serveru. Pak by ovsem pouziti
databazoveho serveru bylo zbytecne a opravdu drahe reseni.
>
> Ja viem ze vas nebude vela ktory mi odpisete, ale napriek tomu vam vsetkym
> dakujem.
Nejdrive by bylo dobre prostudovat moznosti databazovych serveru, konzultovat s
nekym zkusenosti, zajet na skoleni ..... Jinak mozna udelas spoustu zbytecne
prace. C/S je prece jenom uplne jiny svet. Je potreba zmenit zpusob prace a
komunikace s daty. Je tak trochu potrrba zmenit zpusob mysleni prograsmatora.
>
> PS: Ja som napisal ze nemam rad SQL, a bolo mi odpisane, ze "ZMEN VYZNANI",
> z toho tento mail vznikol.
Nevim, kdo ti to napsal. To neni o vyznani, ale o potrebach prace s daty. Jiste
existuji programy pro nez se tato technologie prilis nehodi nebo je to jako jit
s delem na vrabce. Jsou vsak reseni, zejmena sitova, kde je to presne naopak.
Existuji projekty, kde ani toto nestaci a proto vznikaji vicevrstve technologie.
To neni opravdu o vyznani. Abych se vsak mohl spravne rozhodnout pro spravnou
technologii a pro spravnou databazi, musim tyto technologie dobre znat. Ja
neznam tvuj program ani cile jeho nasazeni, tak ti nemohu poradit. Vim pouze to,
ze tve obavy z provozu paradoxu na siti jsou opodstatnene. Interbase nebo jiny
server muze tyto problemy dobre vyresit, ale pouze za predpokladu vhodneho
pouziti!
Jaro
>
> Best regard.
>
> Hi. Roland, uplny zaciatocnik v SQL serveroch.
>Co je to za blbost? (FillRect)
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 30.1.2000 19:31:16
> Ano, toto chapu. Ale pokud si canvas predstavim jako treba
> cvereckovany papir, kde kazdy ctverecek predstavuje jednoho
> pixela, pak mi to jiz logicke nepripadne (omlouvam se, ze pusobim
> jako pitomec):
>
> Chci linku od 0,0,10,10, pak bod musi vyplnovat vsechny body
> takove, kde x-ova souradnice = y-souradnice, x je od 0 do 10
> vcetne.
>
> Pokud chci vyplnit oblast 0,0,10,10, pak predpokladam, ze i na
> souradnici 10,10 to bude vyplnene.
>
> Ale asi to chapu moc matematicky. :-)
Ahoj,
Pokusim se pouzit analogii ctvereckovaneho papiru. Pokud budes kreslit
linku, tak musis pouzit stredove souradnice, to znamena ze nebudes cislovat
linky oddelujici ctverecky, ale ctverecky same. Tj, levy horni ctverecek
bude mit souradnice 0,0, pravy dolni bude mit souradnice 10, 10. U
vyplnovani plochy je situace trosku jina. Jelikoz musis pouzit
intersticialni souradnice, nebudes cislovat ctverecky, ale linky. Pak je
situace kapku jina - pixel se stredovou souradnici 0,0 je ohranicen linkami
s vodorovnymi souradnicemi 0 a 1, svislymi rovnez 0 a 1. Analogicky pixel se
stredovou souradnici 10, 10 je ohranicen vodorovne linkami 10 a 11, svisle
tez 10 a 11. Pokud tedy budes chtit vyplnit pravouhelnik se souradnicemi
0,0,10,10, nebude do nej zahrnut pixel se souradnicemi 10, 10, protoze ten
je ohranicen az linkami 10 a 11, 10 a 11. Nevim, jestli jsem to vysvetlil
dost srozumitelne, kdyz tak si to zkus namalovat na onen ctvereckovany
papir, pokud si zvlast ocislujes ctverecky a zvlast linky, bude ti to jasne.
Plocha bude skutecne vyplnena az po souradnici 10,10 vcetne - ovsem po
souradnice plochy, ne pixelu.
Jeste k poznamce o prilis matematickem chapani - pro zobrazovani na
displejich s pixelove orientovanou grafikou nelze jednoduse aplikovat beznou
analytickou geometrii z jednoho jednoducheho duvodu - bod nebo cara v
analyticke geometrii nemaji rozmer, kdezto pixel ano (proto se ostatne
nazyva pixel - zkratka z picture element, ne point). Z vyse uvedeneho
prikladu ctvereckovaneho papiru myslim vyplyva, v cem je podstata rozdilu.
Pro pouziti pri vyplnovani plochy by jiste slo prijmout dohodu o analogickem
chovani souradnic pixelu a plochy, jsem si ale jist, ze u komplikovanejsich
uloh by vznikly problemy. Matematicky dukaz ti ovsem nepodam, jsem uz dost
dlouho ze skoly.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Val a Currency
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 30.1.2000 20:45:45
Prajem prijemny podvecer :) Procedura Val nema rada currency?
Val(s, c, i);
s: string;
c: currency;
i: integer;
Delphi na mna hodia hlasku: "Left side cannot be assigned to" (Ale ved
Currency je real-type.)
Ak to nepojde tymto smerom, ako previest string na cislo, bez straty
presnosti, ktoru ponuka Currency (nehcem ziadne priblizne hodnoty - vid
"""presnost""" real ci double).
Dakujem za zachranne kolesa
Ondrej Jaura
[ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
omezeni databazi paradoxu
[*] Petr Mat�jovsk�����隲����ej�� - 30.1.2000 20:49:53
Ahoj
chtel bych se zeptat jestli ma PARADOX 7 nejaka omezeni (pocet zaznamu, veli
kost memo, atd) chci udelat trochu vetsi souborovou databazi.
Petr Matejovsky
D5 & Excel
[*] Petrik <petrik(zv)geocities(tec)com> - 30.1.2000 23:14:35
Nazdarek,
muzete mi nekdo poradit jak muzu z Delphi5 Ent.
naladovat svymi daty tabulku v excelu ??
Je tam hromada komponent (ExcelApplication, ExcelWorkSheet,......)
Co mam pouzit ????
Neco z toho hlasi pri .connect "interface not supported" a tak
podobne ... vubec si s tim nevim rady a v Helpu vo tom neni vubec
nic!
DIKY !
Cus,
Petrik mailto:petrik(zv)geocities.com
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
omezeni databazi paradoxu
[*] Marian Winkler <ag.art(zv)iol(tec)cz> - 31.1.2000 00:49:45
Ahoj,
podle "Delphi3 in 14 days":
Maximum records ..... 2billion
Field per table ........... 255
Characters per field ... Not applicable
Bytes per record ....... 32.750
Pokud to bude sitova aplikace, muzes mit pri vetsim poctu uzivatelu
a objemu dat problemy (viz archiv konference).
Marian
ag.art
Marian Winkler
ag.art(zv)iol(tec)cz
GSM: +42 0604 880 555
----- Original Message -----
From: Petr Mat�jovsk� <pemasoft(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, January 30, 2000 8:49 PM
Subject: omezeni databazi paradoxu
| Ahoj
|
| chtel bych se zeptat jestli ma PARADOX 7 nejaka omezeni (pocet zaznamu,
veli
| kost memo, atd) chci udelat trochu vetsi souborovou databazi.
|
| Petr Matejovsky
|
|omezeni databazi paradoxu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.1.2000 01:13:57
Puvodni zprava, kterou napsal Marian Winkler dne 31 Jan 00,:
> Maximum records ..... 2billion
> Field per table ........... 255
> Characters per field ... Not applicable
> Bytes per record ....... 32.750
Zde jsou limity BDE a tabulek Paradox i dBase:
http://www.borland.com/devsupport/bde/ti/TI159B.html
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
POP-UP - bitmapa
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 31.1.2000 07:04:58
Ahoj,
Lze pouzit z RX-Library TRxPopupMenu, kde lze udelat totez co je v menu
Start Windows (pruh s vertik�ln�m n�pisem, u polozek ikonky), nevypada to
vubec spatne, priklad je v demonstracnim programu k RX
Jaro B.
> -----P�vodn� zpr�va-----
> Od: katerina.zankova(zv)post(tec)cz [SMTP:katerina.zankova(zv)post(tec)cz]
> Odesl�no: 29. ledna 2000 23:16
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: POP-UP - bitmapa
>
> Ahoj vsichni,
>
> chtela bych udelat pop-up menu, ktere by
> melo po strane pruh s bitmapou.
> Neco jako v nabidce Start u WINDOWS.
>
> Poradi nekdo?
>
>
> Delphi 4, standart
>
> Diky moc. Katka
>
> Sledujte zpravodajstvi, TV-program, pocasi, kursy, ...:
> *** http://PRESS.CZ
> OPENGL
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 31.1.2000 07:51:49
Hello All!
Freeware kniznica komponent so zdrojakmi (ver.0.99):
http://www.flygl.newmail.ru/zip/flygl099.zip
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Clipboard
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 31.1.2000 07:54:35
V.Krmela wrote:
>Ja bych to udelal nejak takhle:
>uses ....Clipbrd;
>function GetClipboardFileName: string;
>var W: word;
> MyHandle: THandle;
>begin
> Result := '';
> W := RegisterClipboardFormat('FileName');
> if W = 0 then Exit;
> Clipboard.Open;
> try
> MyHandle := Clipboard.GetAsHandle(W);
> Result := StrPas(GlobalLock(MyHandle));
> GlobalUnlock(MyHandle);
> finally
> Clipboard.Close;
> end;
>end;
prima, to funguje, ale v pripade ze kopiruji vice souboru
dostanu nazev pouze jednoho ( toho, ktery je zobrazen ve)
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
generovani nazvu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 31.1.2000 07:55:21
> -----P�vodn� zpr�va-----
> Od: Bejvlov� Martina [mailto:M.Bejvlova(zv)cra(tec)cz]
> Odesl�no: 30. ledna 2000 2:24
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: generovani nazvu
>
>
> stejne se mi to na disk nevejde. Uz si ze skoly z kombinatoriky moc
> nepamatuji, ale tech variaci musi byt strasne moc.
> Protoze jsem se do toho uz trochu namocila, docela by mi
> zajimalo, jestli to
> nekdo udelal a jak veliky byl vysledny soubor.
>
:-) To zase neni potreba si tak moc pamatovat :-)
Cislo uz napsal Lukas Voborsky, ted jeste jak
k nemu dojit jednoduchou uvahou:
pocet vsech moznosti je soucet poctu
1 znakovych slov,
2 znakovych slov,
...
8 znakovych slov
pro 1-znakove slovo je pocet moznosti 36 (26 pismen a 10 cislic)
pro 2-znakove slovo je pocet 36^2 (na prvni pozici vybiram ze 36,
na druhou taky, tedy 36*36) //symbol ^ je mocnina
...
pro n-znakove slovo je pocet moznosti 36^n
pocet vsech moznosti je tedy
36 + 36^2 + 36^3 + 36^4 + 36^5 + 36^6 + 36^7 + 36^8
kdyz to spocitate, vyjde cislo, ktere poslal Lukas,
tedy 2,901,713,047,668.
z toho vetsina jsou 8 znakova slova, tedy odhadem
by velikost toho souboru musela byt osmkrat vice bytu
(samozrejme myslim bez komprimace).
Tak velky disk, aby se to na nej veslo, bych chtel mit.
A stroj, na kterem bych se dozil vysledku taky :-)
Jura
Clipboard
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 31.1.2000 07:58:33
V.Krmela wrote:
>Ja bych to udelal nejak takhle:
>uses ....Clipbrd;
>function GetClipboardFileName: string;
>var W: word;
> MyHandle: THandle;
>begin
> Result := '';
> W := RegisterClipboardFormat('FileName');
> if W = 0 then Exit;
> Clipboard.Open;
> try
> MyHandle := Clipboard.GetAsHandle(W);
> Result := StrPas(GlobalLock(MyHandle));
> GlobalUnlock(MyHandle);
> finally
> Clipboard.Close;
> end;
>end;
Omlouvam se za muj predchozi neuplny mail, tady je cely:
prima, to funguje, ale v pripade ze kopiruji vice souboru
dostanu nazev pouze jednoho ( toho, ktery je zobrazen ve schrance )
ale kde vzit ty ostatni nazvy a nekrast :-) ?
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
popup bitmapa - to neni ono
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 31.1.2000 07:59:30
Ahoj,
jestli mas rxLib, tak si prohledni to rxDemo,
kde je pouzita komponenta rxPopupMenu, kde to
neni problem udelat.
Dobra.
> ----------
> Od: katerina.zankova(zv)post(tec)cz[SMTP:katerina.zankova(zv)post(tec)cz]
>
> Nejde mi o obrazky vedle jednotlivych polozek,
> (to umim), ale jde mi o jednolity bitmapovy pruh
> s napisem napriklad muj program, stejne jako
> ho maji windowsy ve start menu modry prouzek
> WINDOWS 98.
>
> OT: Foxpro a hlaseni
[*] Zbynek Ceska <zbyces(zv)physics.muni(tec)cz> - 31.1.2000 08:00:38
Zdravim vsechny. Omlouvam se za Off Topic, ale nevim, kde jinde
bych se ptal.
Mam FOX PRO pro DOS. Mam v nem jednu aplikaci. Potrebuji, aby byla
plne automaticka ( trva dlouho, uzivatel si chce skocit na kafe). Ta
aplikace pri sve cinosti prepisuje nejake soubory a vzdy kdyz ma neco
prepsat, tak se zepta, jestli to ma skutecne udelat ( to jsem nedelal ja,
to je automaticke ve FOXPRO ).
Potreboval bych si na to odpovedet automaticky - neco jako je v
ARJ kdyz se odpovi misto YES ALL. Ale aby to bylo v programu. Nejake
nastaveni ci co. Jde mi konkretne o prepis souboru a ignoraci nenalezeneho
indexoveho souboru. V Delphi to delat nemuzu, uzivatel ma DOS.
Nemate nekdo nejaky napad. Verim (nic jineho mi konecne nezbyva),
ze dost Delphistu zna FOXPRO.
Predem moc moc moc dekuji za kazdou radu.
Zbynek Ceska.
*************************************************************************
** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
** Plasma Physics ** High Technology Physics ** Microwave Physics **
*************************************************************************Komponenty bez BDE
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 31.1.2000 08:10:19
> > Pouzivam taky mODBC pro pristup k SQL serveru (MS SQL 6.5).
> > V PARAMS ale pouzivam:
> > UID=sa
> > PWD=sa
> > a DSN mam uvedeno v published property DataBaseName.
>
> Pripadne muzes zkusit vyhodit to DSN a dat tam
> DRIVER={SQL Server}
> SERVER=jmenoserveru
>
> Pak nemusis nic nastavovat v ovladacich panelech, staci
> instalovat MDAC a je to.
>
Zbavit se i toho DSN by mi nebylo proti mysli, i kdyz i s nim, tak
jak je to popsano vyse, to funguje. Zeptam se tedy:
1) Co je to DSN a proc se to pouziva, kdyz to jde i bez toho?
2) Nenarazim na nejake problemy, kdyz pojedu bez DSN? Mam
nekolik aplikaci bezicich nad ODBC - kazda pristupuje k jine
databazi na tomtez serveru. Mel jsem za to, ze DSN napr. urcuje,
se kterou databazi se bude pracovat.
Diky moc za rady :)
David Lebeda
Komponenty bez BDE
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 31.1.2000 08:13:11
> Cao.
> Pouzivam taky mODBC pro pristup k SQL serveru (MS SQL 6.5).
> V PARAMS ale pouzivam:
> UID=sa
> PWD=sa
> a DSN mam uvedeno v published property DataBaseName.
>
> A funguje ...
Dik za zachranu :), taky mi to v teto podobe funguje.
David Lebeda
Foxpro a hlaseni
[*] Jiri Kozubik <jiri_k(zv)mrp(tec)cz> - 31.1.2000 08:29:02
> Mam FOX PRO pro DOS. Mam v nem jednu aplikaci. Potrebuji, aby byla
> plne automaticka ( trva dlouho, uzivatel si chce skocit na kafe). Ta
> aplikace pri sve cinosti prepisuje nejake soubory a vzdy kdyz ma neco
> prepsat, tak se zepta, jestli to ma skutecne udelat ( to jsem nedelal ja,
> to je automaticke ve FOXPRO ).
> Potreboval bych si na to odpovedet automaticky - neco jako je v
> ARJ kdyz se odpovi misto YES ALL. Ale aby to bylo v programu. Nejake
> nastaveni ci co. Jde mi konkretne o prepis souboru a ignoraci nenalezeneho
> indexoveho souboru. V Delphi to delat nemuzu, uzivatel ma DOS.
Nastav SET SAFETY OFF.
Jirka
Foxpro a hlaseni
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 31.1.2000 08:30:50
Ahoj,
Tohle skutecne dela FoxPro automaticky.
Muzes to vypnout prikazem SET SAFETY OFF a potom zase zapnout prikazem SET
SAFETY ON
Podivej se na to do helpu Foxky
Pavel Koukal
Zdravim vsechny. Omlouvam se za Off Topic, ale nevim, kde
jinde
bych se ptal.
Mam FOX PRO pro DOS. Mam v nem jednu aplikaci. Potrebuji,
aby byla
plne automaticka ( trva dlouho, uzivatel si chce skocit na kafe). Ta
aplikace pri sve cinosti prepisuje nejake soubory a vzdy kdyz ma
neco
prepsat, tak se zepta, jestli to ma skutecne udelat ( to jsem
nedelal ja,
to je automaticke ve FOXPRO ).
Potreboval bych si na to odpovedet automaticky - neco jako
je v
ARJ kdyz se odpovi misto YES ALL. Ale aby to bylo v programu. Nejake
nastaveni ci co. Jde mi konkretne o prepis souboru a ignoraci
nenalezeneho
indexoveho souboru. V Delphi to delat nemuzu, uzivatel ma DOS.
Nemate nekdo nejaky napad. Verim (nic jineho mi konecne
nezbyva),
ze dost Delphistu zna FOXPRO.
Predem moc moc moc dekuji za kazdou radu.
Zbynek Ceska.
*************************************************************************
** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces
******
** Plasma Physics ** High Technology Physics ** Microwave Physics
**
*************************************************************************RxLib
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 31.1.2000 08:53:39
Ahojte vsichni,
Narazail jsem na problem s RxMemoryData z RxLib 2.75. Po
dvojkliknuti na komponentu RxMemoryData nastavim seznam poli
jako u normalni TTable, vyplnim mimo jine DisplayLabel.
Presto po spusteni aplikace je v TDBGrid navazane na toto
RxMemoryData ignoruje jak tyto DisplayLabely, tak i
DisplayValues u poli s hodnotami typu Boolean.
Setkali jste se s tim nekdo?
David Lebeda
Komponenty bez BDE
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 31.1.2000 09:05:27
> Zbavit se i toho DSN by mi nebylo proti mysli, i kdyz i s nim, tak
> jak je to popsano vyse, to funguje. Zeptam se tedy:
>
> 1) Co je to DSN a proc se to pouziva, kdyz to jde i bez toho?
DSN ti pouze doplni informace z ovladacich panelu, ale ty je
muzes zadat primo. DSN muze byt vyhodne ze aplikace se
nemusi konfigurovat, pouze v ovl. panelech vytvoris prislusne
DSN. Ja jsem se s DSN rozloucil asi pred dvema lety, protoze
aplikace distribuuji s ini souborem, takze to DSN je prace
navic, kterou ke vsemu nelze udelat pres sit. U mensich jedno-
uzivatelske aplikaci pouzivam MDB databaze ktere lezi ve ste-
jnem adresari jako aplikace a pristupuji k nich take bez DSN.
Muzu ti poslat ODBC explorer, se kterym se muzes pripojit
k libovolne databazi pres ODBC driver a tak zjistis jake
vsechny parametry ten ktery driver potrebuje z DSN ziskat,
a muzes mu je poskytnout primo. (Nebo muzes primo pouzit
funkci SQLDriverConnect s parametrem Prompt).
> 2) Nenarazim na nejake problemy, kdyz pojedu bez DSN? Mam
> nekolik aplikaci bezicich nad ODBC - kazda pristupuje k jine
> databazi na tomtez serveru. Mel jsem za to, ze DSN napr. urcuje,
> se kterou databazi se bude pracovat.
Viz. predesly bod. Veskere parametry muzes urcit primo.
Existuji vlastne dve moznosti jak se pripojit:
a) DSN + UID + PWD
b) DRIVER + UID + PWD a udaje specificke pro konkretni driver,
u SQL Serveru je to parametr SERVER, u souborovych databazi
predevsim DBQ (adresar).
Daniel Rott
Co je to za blbost? (FillRect)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 31.1.2000 09:06:04
Ahoj,
> Pokusim se pouzit analogii ctvereckovaneho papiru.
****Tech se ted za vikend pokreslil. :-))
Ale diky za vysvetleni. Nejak jsem se k tomu dostal, ale narazil
jsem jeste na jednu vec. Funkce Canvasu LineTo (x,y) nakresli
linku do bodu [x, y], ale prave bod [x,y] do vykreslovani nezahrne.
Cele to ma ten dusledek, ze napr:
MoveTo (5,7);
LineTo (15,7);
nakresli tu linku jinak nez:
MoveTo (15,7);
LineTo (5,7);
A to me pekne vytaci. Neexistuje neco jednoducheho, jak rozumne
udelat linku vcetne toho posledniho bodu?
Slavek
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Co je to za blbost? (FillRect)
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 31.1.2000 09:30:29
S.Rydval wrote:
>jsem jeste na jednu vec. Funkce Canvasu LineTo (x,y) nakresli
>linku do bodu [x, y], ale prave bod [x,y] do vykreslovani nezahrne.
Ahoj
na tohle jsem taky narazil, a pise se o tom snad i v napovede
Win32.hlp . Musel jsem to vyresit dokreslenim posledniho bodu
pomoci SetPixel :-(
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Val a Currency
[*] Lud�k ZITA - 31.1.2000 09:35:25
> Ondrej Jaura
> Procedura Val nema rada currency?
>
> Val(s, c, i);
> s: string;
> c: currency;
> i: integer;
>
> Delphi na mna hodia hlasku: "Left side cannot be assigned to" (Ale ved
> Currency je real-type.)
>
> Ak to nepojde tymto smerom, ako previest string na cislo, bez straty
> presnosti, ktoru ponuka Currency (nehcem ziadne priblizne hodnoty - vid
> """presnost""" real ci double).
>
Ahoj
Pou�ij typ Extended, ten ma taky 19-20 signifikantnich cislic
Ze to tak je uvidis tady, a zaroven je to dukaz nepresnosti
funkce format string (ta ma evidentne je 16 sig. cislic.
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
x, y, z, t: Extended;
i : Integer;
begin
s := '1.234567890123456789' ;
Val(s, x, i);
ShowMessageFmt('%e',[x]);
// Tady je nepresnost Format String
y := x - 1.234567890123456789;
ShowMessageFmt('%e',[y]);
// dukaz, ze prevod funkci Val probehl na plny pocet znaku
z := x - 1.23456789012345678;
ShowMessageFmt('%e',[z]);
t := x - 1.2345678901234567;
ShowMessageFmt('%e',[t]);
end;
Ludek ZITA
CadoDraw
[*] Ing. Keder Vladim�r <keder(zv)columbex.sk> - 31.1.2000 09:41:07
Ahoj
Skusal som komponentu CadoDraw a celkom sa mi pacila. Je to CAD
komponenta. Potreboval by som pomoc :
1) ako vykreslovat objekty (ciara, obdlznik, kruznica) pocas behu programu
na zaklade vstupov od uzivatela do roznych vrstiev
2) priradit jednotlivym objektom poradove cisla cez ktore sa na tie objekty
budem odvolavat
3) ked vyberiem v ListView objekt s urcitym poradovym cislo, tak ho vyberie
a oznaci
4) ako prejst vsetky objekty podla vrstiev, zistit typ objektu (ciara,
obdlznik, kruznica) a jeho suradnice
Skumal som demo priklady aj help ale nic podobne som nenasiel, resp. ak
mate skusenosti s inymi CAD komponentami pomozte mi.
Diky, vytrhnete mi velky trn z paty.
Vlado
SQL server zdarma
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 31.1.2000 09:45:25
Zaujimave je posudzovat jeden produkt podla produktu ineho tej istej firmy.
Nezda sa mi totizto ze nizsie popisane odpovede na povodny %SUBJECT% sa tykaju
WinBase602.
Podla toho co som precital jedna sa skorej o produkt "602 Pro Office Server"
pretoze ten obsahuje
niektore prvky ktore tu boli popisane ako chybne (mail602). Pre buducnost by
hadam bolo lepsie keby
sa pri podobnych otazkach aka tu padla autor odpovede drzal temy a neplietol
hrusky z jablkami.
Takze este raz:
WinBase602 nie je 602Pro Office Server, v tom baliku WB602 dokonca ani nie je (
je tam WB602 iba ako demo verzia!!!)
Vratme sa ale k povodnej otazke, ci pouzit WinBase602 alebo nie. Ja pouzivam
WinBase uz 1.5 roka , mozem povedat
ze napriek problemov ktore som za ten cas s WB602 mal som spokojny.
Tu su hlavne dovody pre ktore som si vybral prave WB602
- "takmer" domaci produkt. Pre mna je to velke plus pretoze ked mam alebo som
mal lubovolny problem
tak mam takmer okamzite riesenie a to ci uz obycajnou radou alebo patchom
ktory tu chybu riesi. A to
nek sa na mna nikto nehneva neroby ziadna firma ktora DB produkty vyvyja. Vo
vacsine pripadov sa chyby len zbieraju
a ked ich je dostatocny pocet opravenych (niekedy az po pol roku) vyda sa
upgrade ktory chyby riesi. Pre mna to je
neprijatelne
- spolahlivost a stabilita WB602
- rychlost vykonavania SQL prikazov (INSERT, UPDATE, SELECT). Pri testovani
mojej aplikacie pod inymi strojmi
Access, InterBase, ADS mi dopadla WinBase ako druha najlepsia (prve bolo ADS).
Aplikacia ktoru som testoval
ma par tabuliek ktore maju v priemere kazda 800 000 zaznamov .
- WinBase umoznuje importy a exporty dat do inych formatov (nativny WB,TXT,
DBF). Tiez funkcia ktora mi
inde chyba.
- Upravovanie velkosti databaze (kompaktovanie) , funkcia ktoru povazujem u DB
stroja za potrebnu. Napriklad toto
nie je poriadne vyriesene ani v Interbase.
ai.
Ak by som sa vsak drzal subjektu "SQL server zdarma" a rozmislal ktory SQL
server si vybrat tak radcej ako InterBase si zvolim WinBase pretoze
Software602 neprestava WinBase602 vyvyjat nadalej, je to len zmenena licencna
politika. Kdezto Interbase ako vyvoj skoncil a verzia ktora bude uvolnena moze
byt funkcna a bezchybna ale nie je to iste. Spolahliva bude mozno az
vtedy ked ju niekto "vezme pod palec" a nieco z nej urobi. Brat technicku
podporu na Interbase ako 100% riesenie
problemov ?
- urcite to nebude zadarmo
- dlhe cakanie na riesenie problemu , ak vobec riesenie bude
- mam strach ze budu podporovat aj mutacie Interbase ktore medzicasom
vzniknu :(
>Ladislav Linhart napisal:
>musim potvrdit, predchozi informace. Take podporuji radsi ceske produkty,
>ale po mych zkusenostech se Software602 musim rici, ze jejich produkty chodi
>pouze pod WinNT docela slusne, teda spise receno nedokazi je schodit.
>Delal jsem nekolik let spravce site a verte mi, ze takovych problemu jako se
>Soft602 jsem nezazil. Je to draze zaplacena levna vec.
>Pozor nyni je na trhu nova verze Soft602 i tu jsem jiz instaloval na
>nekolika PC
>a jiz behem instalace mi spadly a to jsem ji instaloval nekolikrat z trech
>ruznych
>instalacnich CD. Nestalo se tak pouze pod WinNT !!! Ale jinak tento balik
>nezkousel
>a Software 602 o nem tvrdi, ze zde budou odstraneny nektere chyby. Ja jsem
>zatim jiz na nekolik starych narazil. Z techto duvodu se rozhodl nas podnik
>ustoupit
>od produktu Software 602 a prejit na M$. Je to skoda, nebot bychom radsi
>podporovali
>ceske programatory, nezli Mrkvosofty.> Mirek Junek napisal:
> Ja jsem se nechal navnadit a koupil jsem ten balik v ramci nejakych
> povodnovych slev, hlavne kvuli mail-klientovi, na ktery byly
> dobre recenze a
> byl jsem rad, ze se mi podarilo zbavit se ho.
>
> Neustale jsem narazel na nejake drobne, ale velmi neprijemne
> problemy. Jeden
> priklad za vsechny: pripravil jsem mail, ten se zaradil do slozky Posta k
> odeslani a pak uz nebylo zadnym zpusobem mozne zpravu zeditovat.
>
> Zkousel jsem i editor a spreadsheet, ale vzdycky tam byly nejake drobne
> zadrhely - napr. pri importu std. M$ souboruu. Vzhledem k tomu, ze vetsina
> lidi mi posila soubory v M$ formatu to bylo dost neprijemne.
>
> Navic to kazdou chvili generovalo application error (PC166/64 MB).
>
> Databazove veci jsem nezkousel, takze nevim.
>
> Celkovy umelecky dojem: mne to nepresvedcilo.
i.t.
------------------------------------------------------------------------------------------
Ivan Turcan
Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase602)
WDE HomePage: www.software602(tec)cz/wde
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
WWW Server: www.gamo.sk
GAMO a.s.
Slovakia
SQL server zdarma
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 31.1.2000 09:51:52
Ahoj, tady je upresneni:
koukal jsem na www.software602(tec)cz a je tam jen
info, ze BUDE zdarma verze 6.1, ta ovsem neni ke
stazeni (jen v6.0). Dale je tam je jeste ponekud
mlhava zminka, ze se nebude plati za technologii
(rozumej asi Winbase602 server -instalace?). ale
je za vyuzivani technologie.
Znamena to, ze bude nutne zakoupit klienske licence,
jinak asi budu mit server, na ktery nikdo nesmi nic
ulozit a nic z nej vytahnout? :-)
O cenach tam neni ani slovo :-))
### Ladislav Linhart napsal dne 28 Jan 00, v 21:19 :
> Ahoj,
> musim potvrdit, predchozi informace. Take podporuji radsi ceske produkty,
> ale po mych zkusenostech se Software602 musim rici, ze jejich produkty
> chodi pouze pod WinNT docela slusne, teda spise receno nedokazi je
> schodit. Delal jsem nekolik let spravce site a verte mi, ze takovych
> problemu jako se Soft602 jsem nezazil. Je to draze zaplacena levna vec.
> Pozor nyni je na trhu nova verze Soft602 i tu jsem jiz instaloval na
> nekolika PC a jiz behem instalace mi spadly a to jsem ji instaloval
> nekolikrat z trech ruznych instalacnich CD. Nestalo se tak pouze pod WinNT
> !!! Ale jinak tento balik nezkousel a Software 602 o nem tvrdi, ze zde
> budou odstraneny nektere chyby. Ja jsem zatim jiz na nekolik starych
> narazil. Z techto duvodu se rozhodl nas podnik ustoupit od produktu
> Software 602 a prejit na M$. Je to skoda, nebot bychom radsi podporovali
> ceske programatory, nezli Mrkvosofty.
>
> Ladis
>
>
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> > Behalf Of Mirek Junek
> > Sent: Friday, January 28, 2000 4:42 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: SQL server zdarma
> >
> >
> > Ahoj,
> > Ja jsem se nechal navnadit a koupil jsem ten balik v ramci nejakych
> > povodnovych slev, hlavne kvuli mail-klientovi, na ktery byly dobre
> > recenze a byl jsem rad, ze se mi podarilo zbavit se ho.
> >
> > Neustale jsem narazel na nejake drobne, ale velmi neprijemne
> > problemy. Jeden
> > priklad za vsechny: pripravil jsem mail, ten se zaradil do slozky Posta
> > k odeslani a pak uz nebylo zadnym zpusobem mozne zpravu zeditovat.
> >
> > Zkousel jsem i editor a spreadsheet, ale vzdycky tam byly nejake drobne
> > zadrhely - napr. pri importu std. M$ souboruu. Vzhledem k tomu, ze
> > vetsina lidi mi posila soubory v M$ formatu to bylo dost neprijemne.
> >
> > Navic to kazdou chvili generovalo application error (PC166/64 MB).
> >
> > Databazove veci jsem nezkousel, takze nevim.
> >
> > Celkovy umelecky dojem: mne to nepresvedcilo.
> >
> > Mirek
> >
> > ----- Original Message -----
> > From: Zdenek Drvota <drvota(zv)zds(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Friday, January 28, 2000 9:14 AM
> > Subject: SQL server zdarma
> >
> >
> > | Ahoj,
> > | dostala se ke mne informace, ze pry
> > | Winbase602 ma byt uz brzy zdarma nejen na
> > | Linuxu, ale i na Windows!
> > | Stoji to za tu cenu?
> > |
> > | -----------------------------------------------
> > | Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
> > | director
> > | 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
> > |
> > |
> >
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
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
Co je to za blbost? (FillRect)
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 31.1.2000 09:54:15
> Ale diky za vysvetleni. Nejak jsem se k tomu dostal, ale narazil
> jsem jeste na jednu vec. Funkce Canvasu LineTo (x,y) nakresli
> linku do bodu [x, y], ale prave bod [x,y] do vykreslovani nezahrne.
> Cele to ma ten dusledek, ze napr:
>
> MoveTo (5,7);
> LineTo (15,7);
>
> nakresli tu linku jinak nez:
>
> MoveTo (15,7);
> LineTo (5,7);
>
> A to me pekne vytaci. Neexistuje neco jednoducheho, jak rozumne
> udelat linku vcetne toho posledniho bodu?
Ahoj,
tohle neumim udelat jinak, nez ze zkousim az se trefim. Ale co bys taky
chtel, jsou to jen Windows. Mimochodem, vis proc B.G. nejbohatsi clovek na
svete ? Za blbost se plati...
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
omezeni databazi paradoxu
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 31.1.2000 10:07:20
> Maximum records ..... 2billion
> Field per table ........... 255
> Characters per field ... Not applicable
> Bytes per record ....... 32.750
hmm, raz som testoval Paradox format. Pre objemne databazy je nevhodny.
mal som tabulku kde bolo IDcko a dve memo polia do ktorych som vkladal jednu
vetu. Nuz a ked
som nainsertoval cca. 750 000 zaznamov tak sa mi cela tabulka zrutila a ani boh
ju uz nedal
do poriadku.
Ivan Turcan
CadoDraw
[*] Ing. J�n Kuch�r�����!j��G - 31.1.2000 11:05:31
cau
kde si prisiel ku tej komponente, nieco podobne som hladal, ale
bezuspesne
QR-txt,HTML...
[*] tomas.mazurek(zv)vitkovice(tec)cz - 31.1.2000 10:19:39
Hello,
Staci vlozit prislusnou komponentu na form. s QR a na
zaklade toho se pak u Save dialogu objevi prisl. format. Ovsem mam
pocit, ze ty exportni komponenty se objevily az po nejakem upgrade
QR, ze v puvodnim jeste nejsou...
D4 Prof-QR 3.0.5
Cteni e-mailu pomoci MAPI
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 31.1.2000 11:24:24
Ahoj vsem,
potrebuji pomoci Delphi 4 Std. stahnout vsechny e-maily (pomoci MAPI) a pak
projit vsechny nove zpravy a precist si jejich predmet. Nevite nekdo jak na
to?
O neco jsem se pokousel. Predmet e-mailu umim precist, ale jen pokud se dany
e-mail nachazi ve slozce dorucena posta v Outlooku, ale ja potrebuji abych
nove e-maily stahnul (Odeslat/Prijmout) a jeden po druhem si prosel.
Za kazdou odpoved predem dekuji
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
Komponenty bez BDE 2
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 31.1.2000 12:00:46
Ahoj,
opet jen jeden jednoduchy dotaz: pouzivam komponenty obdobne
standardnim (TDatabase, TQuery, TStoredProc), ale nevyuzivajici
BDE.
Mohu nad nimi pouzivat databazove komponenty z Delphi
(TDBEdit, TDBGrid apod.), aniz by bylo treba BDE? Neboli - nejsou
tyto komponenty nahodou nejakym zpusobem o BDE opreny?
Dik.
David Lebeda
Komponenty bez BDE
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 31.1.2000 12:30:33
> Muzu ti poslat ODBC explorer, se kterym se muzes pripojit
> k libovolne databazi pres ODBC driver a tak zjistis jake
> vsechny parametry ten ktery driver potrebuje z DSN ziskat,
> a muzes mu je poskytnout primo.
To je zajimave, mohl bys ten ODBC Explorer soupnout na ftp?
Dik Martin
Komponenty bez BDE 2
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 31.1.2000 12:38:59
Dle meho nazoru jsou opreny o TDataSource, ktery
je zase opren o TDataSet, takze o BDE opreny nejsou.
O BDE jsou opreny az TTablem TQuery, a TStoredProc;
vychazim z toho ze TTable je v hierarchii zapsana
takto: TObject->TPersistent->TComponent->TDataSet->
TBDEDataSet->TDBDataSet
^^^^^^^^^^^
(stejne jako TQuery a TStoredProc)
Dobra.
> ----------
> Od: David Lebeda[SMTP:david.lebeda(zv)comarr(tec)cz]
>
> opet jen jeden jednoduchy dotaz: pouzivam komponenty obdobne
> standardnim (TDatabase, TQuery, TStoredProc), ale nevyuzivajici
> BDE.
> Mohu nad nimi pouzivat databazove komponenty z Delphi
> (TDBEdit, TDBGrid apod.), aniz by bylo treba BDE? Neboli - nejsou
> tyto komponenty nahodou nejakym zpusobem o BDE opreny?
>
> Dik.
> David Lebeda
> LMD-Tools
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 31.1.2000 13:00:12
Ahoj,
k Delphi 5 je dodavano CD na kterem je i soubor komponent LMD-Tools (Tools
special edition for Delphi 5). Pokud tento balik nekdo pouzivate, jak lze
udelat aktualizaci (existuje-li http://www.lmd.de), nebo je potreba neco
dokoupit?
Diky
Jaro B.DisplayFormat
[*] mbartone(zv)Synthesia(tec)cz - 31.1.2000 13:01:37
Ahoj,
jak mohu pri behu programu definovat vlastnost DisplayFormat u datumovych a
numerickych polozek pri pouziti Query.
Bez toho abych to pri navrhu definoval ve Fields Editoru.
Milan
Komponenty bez BDE
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 31.1.2000 13:02:04
> > Muzu ti poslat ODBC explorer, se kterym se muzes pripojit
> > k libovolne databazi pres ODBC driver a tak zjistis jake
> > vsechny parametry ten ktery driver potrebuje z DSN ziskat,
> > a muzes mu je poskytnout primo.
>
> To je zajimave, mohl bys ten ODBC Explorer soupnout na ftp?
>
Soupnul jsem to na volnase.
http://volny(tec)cz/roxton/sw.htm
Ahoj
Daniel
Clipboard
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 31.1.2000 13:08:17
Ahoj
dnes jsem se ptal, jak z clipboardu precist nazvy
vsech zkopirovanych souboru, a tak si sam
odpovidam funkci:
function GetFilesFromHGlobal(var Files: TStringList): boolean;
var
DropFiles: PDropFiles;
Filename: PChar;
s: string;
HGlob: HGlobal;
begin
if not ClipBoard.HasFormat(CF_HDROP) then exit;
HGlob := Clipboard.GetAsHandle(CF_HDROP);
DropFiles := PDropFiles(GlobalLock(HGlob));
try
Filename := PChar(DropFiles) + DropFiles^.pFiles;
while (Filename^ <> #0) do
begin
if (DropFiles^.fWide) then // -> NT4 compatability
begin
s := PWideChar(FileName);
inc(Filename, (Length(s) + 1) * 2);
end else
begin
s := Filename;
inc(Filename, Length(s) + 1);
end;
Files.Add(s);
end;
finally
GlobalUnlock(HGlob);
end;
if Files.count > 0 then
result := true else
result := false;
end;
struktura PDropFiles je v "shlobj.pas" definovana takto:
PDropFiles = ^TDropFiles;
TDropFiles = packed record
pFiles: DWORD; { offset of file list }
pt: TPoint; { drop point (client coords) }
fNC: BOOL; { is it on NonClient area }
{ and pt is in screen coords }
fWide: BOOL; { WIDE character switch }
end;
dale je potreba pouzit jednotku "Clipbrd"
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Komponenty bez BDE
[*] Ren� Otisk - 31.1.2000 13:50:50
Hi,
W95
Pri instalaci mi to hazi chybicku:
CRC failed in ODBCExplorer.exe
Co s tim?> > > Muzu ti poslat ODBC explorer, se kterym se muzes pripojit
> > > k libovolne databazi pres ODBC driver a tak zjistis jake
> > > vsechny parametry ten ktery driver potrebuje z DSN ziskat,
> > > a muzes mu je poskytnout primo.
> >
> > To je zajimave, mohl bys ten ODBC Explorer soupnout na ftp?
> >
> Soupnul jsem to na volnase.
> http://volny(tec)cz/roxton/sw.htm
>
> Ahoj
> Daniel
>
> PowerPoint prezentace
[*] rjunga(zv)oku-ka(tec)cz - 31.1.2000 13:57:41
Ahoj lidickove,
poradi mi nekdo, jak pomoci DELPHI 5 prohlednout prezentaci vytvorenou
pomoci Microsoft PowerPoint?
Dekuji, Roman Junga
OkU Karvina
TIBTransaction
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 31.1.2000 13:57:34
Po velmi dlouhem hledani jsem nasel jak se daji nastavovat
parametry v TIBTransaction. Neni to nikde popsany, primo, clovek
jde z jednoho odkazu na druhej a nakonec si musi prolezt zdrojaky.
Nakonec jsem nasel parametry uvedene na konci mailu.
Je schopen nekdo napsat ke kazdemu dva tri radky co vlastne
delaji ( cesky a pochopitelne ). pokud maji paramentry napr.
lock_write=tttt, tak i popis toho parametru. Snad je mezi nami
nekdo kdo to bezne pouziva a dokonale zna.
Lidi kteri zacinaji s interbase je urcite hodne a neverim, ze by to
nekdo z nich nevyuzil.
Dekuji.
Nasleduje seznam parametru.
'consistency',
'concurrency',
'shared',
'protected',
'exclusive',
'wait',
'nowait',
'read',
'write',
'lock_read',
'lock_write',
'verb_time',
'commit_time',
'ignore_limbo',
'read_committed',
'autocommit',
'rec_version',
'no_rec_version',
'restart_requests',
'no_auto_undo'
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
OT: (castecny) : Athena
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 31.1.2000 14:50:15
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
<OT>
Nevite prosim nekdo URL obrazku ateny
nebo kolosea (barevnem) velikem cca
300x300 pixelu ?
</OT>
Diky moc...
...Dobra
Algoritmus pro vypocet znameni
[*] Michal �viga <info(zv)cd-amper(tec)cz> - 31.1.2000 14:55:38
Neznate nekdo algoritmus pro vypocet postaveni slunce a popripade dalsich
planet ve znamenich.
Po zadani data a casu narozeni, by to spocitalo v jakem znameni je dotycny.
Pokud by byl i alg. na postaveni merkuru, venuse, marsu, saturnu, jupiteru a
mesice bylo by to dost dobre.
S pozdravem
Michal �viga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 65 15 052 mobil: 0602/ 207 557
DAMA.CZ - Internetovy casopis pro vsechny zeny
http://www.dama(tec)cz mailto:reklama(zv)dama(tec)cz
======ICQ: 57557677 =======================
Psani pomoci TextOut do Bitmapy
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 31.1.2000 15:07:28
Jde nejakym zpusobem psat do BitMapy pomoci TextOut aby mi zustalo zachovano pozadi. (obdoba vyplnovani formulare rukou)?
Zvonda.
PROSOFT Kromeriz s.r.o.
Soudni 1293
KROMERIZ 767 01
Czech Republic
tel/fax 0420 (0)634 333545
GSM: 0420 (0)602 305919
GSM 0420 (0)602 305920
e-mail: prosoft(zv)prosoft(tec)cz
ICQ:49532930
FPiette - soubor na server pres FTP
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 31.1.2000 15:10:24
Mam takovy dojem, ze to zpetne lomitko by tam nemelo byt.
Mirek
----- Original Message -----
From: Petr Reichl <reichl(zv)atlas(tec)cz>
To: ListServ - Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, January 29, 2000 6:03 PM
Subject: FPiette - soubor na server pres FTP
> Potrebuji poslat soubor na server pres protokol FTP. Spustil jsem demo,
> ktere je dodavano s ICS pro FTP a pripojil se (OK), poslal soubor (OK),
ale
> pak jsem zjistil, ze soubor se ulozil na root serveru a ne do
> preddefinovaneho adresare.
>
> HostDirName := '/realnet/';
>
> ... zkousel jsem vsechno mozne, ale nejde me to. Muzete mi prosim poradit?
>
> P�eji p��jemn� den.
>
> Petr Reichl
> ---
> * E-mail: reichl(zv)centrum(tec)cz
> * PGP: support
> * ICQ: 56430979
> ---
DisplayFormat
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 31.1.2000 15:21:10
Je to celkem jednoduchy
(tabulka.FieldByName('nazpol') as TDateField).displayFormat:=hodnota;
-----Original Message-----
From: mbartone(zv)Synthesia(tec)cz [mailto:mbartone(zv)Synthesia(tec)cz]
Sent: Monday, January 31, 2000 1:02 PM
To: delphi-l(zv)fwd(tec)cz
Subject: DisplayFormat
Ahoj,
jak mohu pri behu programu definovat vlastnost DisplayFormat u datumovych a
numerickych polozek pri pouziti Query.
Bez toho abych to pri navrhu definoval ve Fields Editoru.
Milan
Rodna cisla
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 31.1.2000 15:32:32
Je to trochu jinak
ne soucet cislic ale soucet dvojic cislic je (vetsinou ) celociselne
delitelny 11. takze
pro rrmmdd/abcd
plati rr+mm+dd+ab+cd mod 11 = 0
Prechod na 4 mistna rodna cisla byl myslim v roce 1953.
Na delitelnost 11 se bohuzel nelze spolehat (a lide narozeni v jinych
zemich casto r.c. nemaji vubec). Navic se (tusim pri kuponove privatizaci)
prislo na to, ze existuji lide s
identickymi rodnymi cisly. Chybicka se obcas vloudi.
Nektere aplikace pouziti r.c. vyzaduji, protoje dobre delitelnost 11
kontrolovat pri zadavani dat, ale kdyz to nevyjde, tak se pouze zeptat
obsluhy, jestlti to je tak spravne.
Hodne zdaru
Mirek
----- Original Message -----
From: Ondrej Jaura <jaura(zv)datalock.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, January 30, 2000 3:54 PM
Subject: Re: Rodna cisla
| Prajem prijemny slnecny den :)
|
| ----- Original Message -----
| From: bohous m <bohous_m(zv)seznam(tec)cz>
| To: <delphi-l(zv)fwd(tec)cz>
| Sent: Sunday, January 30, 2000 1:17 PM
| Subject: OT: Rodna cisla
|
|
| > projekt libovolnou teorii o rodnych
| > cislech. Jak se pocitaji,
| > jaky maji format (obzvlaste ted
| > v roce 2000 a dal).
| Sucet vsetkych cislic je delitelny 11 (rrmmdd/abcd (r+r+m+m+d+d+a+b+c+d)
| mod 11 = 0).
| To ovsem neplati pre starsie rodne cisla (minule a zac. tohto storocia),
| ktore maju na konci len trojcislie (rrmmdd/abc).
| > koncovce je zakodovane misto
| > narozeni, co je na tom pravda?
| Ano (videl som zoznam ludi narodenych v tom istom meste a v tom istom
roku -
| vsetci mali prve dve cisla zo stvorcislia rovnake).
|
| Presne informacie by si mohol hladat na i na statistickom urade. :)))
| Prezri si minuly rocnik Softwarovych novin (http://swn.softnov(tec)cz/) -
| nachadza sa tam clanok venovany rodnym cislam (bol tusim castou Cover
Story
| o roku 2000) (presnejsie si nepamatam).
|
| Lovu zdar
| Ondrej
|
| [ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
|
|
Adonis a asynchronni vykonavani prikazu
[*] DELPHI <DELPHI(zv)dingo(tec)cz> - 31.1.2000 14:48:23 gmt
Ahoj,
nevite jak zjistit ukonceni synchronniho vykonavani
SQL dotazu prikazem ExecSQL?
Chapu-li to dobre, tak v takovem pripade prikaz
CompleteSQL ceka na dokonceni.
Lze to zjistit i nejakym priznakem,
abych nemusel blokovat program?
Diky
Bob
DisplayFormat
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 31.1.2000 15:56:11
Zcela normalne, tj. napr. Query1.FieldByName( 'BleBle').DiplayFormat := '#0.0';
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
> Odesl�no: 31. ledna 2000 13:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DisplayFormat
>
>
>
> Ahoj,
>
> jak mohu pri behu programu definovat vlastnost DisplayFormat u datumovych a
> numerickych polozek pri pouziti Query.
> Bez toho abych to pri navrhu definoval ve Fields Editoru.
>
> Milan
>
> Default usesname and password for Intebase ?
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 31.1.2000 16:00:19
Heslo je "masterkey"
Jaromir Cermak
-----Original Message-----
From: Roland Tur�an (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
Sent: Friday, January 28, 2000 3:58 AM
To: Delphi CZ konferencia
Subject: Default usesname and password for Intebase ?
Ake je Default usesname and password for Intebase ?
Meno pyta SYSDBA ale ake je heslo
Hi Roland ?Delitelnost (was Re: Rodna cisla)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 31.1.2000 16:11:50
> > Je to trochu jinak
> > plati rr+mm+dd+ab+cd mod 11 = 0
>
> (alebo 11)
****Delis-li celociselne jakekoliv cele cislo jedenacti, NIKDY Ti
nevyjde zbytek 11 (leda ze bys tam mel chybu).> Werki
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Psani pomoci TextOut do Bitmapy
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 31.1.2000 16:25:46
Brush.Style:=bsClear;
Daniel
Jde nejakym zpusobem psat do BitMapy pomoci TextOut aby mi zustalo zachovano pozadi. (obdoba vyplnovani formulare rukou)?
Zvonda.
DCOM na Novellu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 31.1.2000 16:42:12
Ahoj,
resil jste nekdo vicevrstvou aplikaci na Novellu, kde jsou W95?
Mejme nejaky COM server, na klientu je program, ktery se na nej
odvolava. Muzete nekdo poradit, co kde nastavit, aby si klient umel
najit svuj servrik?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TControl.OnMouseDown ?
[*] Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> - 31.1.2000 16:21:51 -0000
Zdravim vsechny!
Mozna bude muj dotaz znit dost trivialne, ale nevim si s tim rady.
Potreboval bych za behu promenne typu TControl priradit udalost OnMouseDown.
Kdyby to byl napriklad TButton tak by to samozrejme nebyl zadny problem,
ale TControl ma OnMouseDown v private sekci a je tak pro mne nedostupna.
Jedno z reseni, ktere me napadlo, je uprava VCL a preneseni OnMouseDown
v TControl do public (nebo published?) sekce, ale nezda se mi to moc
koser...
Jestli mate nejake reseni a nebo jestli se vam zda to moje schudne, dejte
prosim vedet.
Tomas Bihary
Find v db
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 31.1.2000 17:42:37
Zdravim,
mam jednu otazocku. Akymi sposobmi sa da vyhladavat v TDataset. V podstate,
ze co sa musi urobit po stlaceni najdi prvy,
1. ak hladam iba v jednom poli
2. vo vsetkych poliach
Dik, Miso
Pomale kreslenie na Canvas ... ?
[*] J�n Grman�������e���zW��ۛg�$ - 31.1.2000 18:03:54
Priatelia, mam nasledujuci problem...D5 Enterprise, MS SQL 7.0, BDE 5.01
- jedna sa o viacvrstvovu aplikaciu
- klient komunikuje so serverom aplikacie cez DCOM
- server taha data pouzitim BDE z MS SQL servera
- klient ziska komplet DATA jedneho riadku tabulky (obycajny selekt * from
tabulka where ID = 56)
- hlavna informacia v tomo riadku je kodovana v MEMO poli
- tato informacia sa dekoduje a pouzije sa v "nahlade objektu"
- ten nahlad moze obsahovat rozne prvky - ciary, obdlzniky, texty staticke,
texty vytvorene z dekodovanej informacie, ... - typicky sa napriklad da
definovat napr. legitimacia zakaznika organizacie ...
- jednotlive prvky sa kreslia na CANVAS (bud TImage, alebo TPrinter - podla
toho ci ide o nahlad alebo tlac)
Problem:
- u mna na pocitaci chodi vsetko ako na "dratkach" (NT 4.0 Worstation,
SP5.0, IE5.0)
- na inom pocitaci vo firme (NT 4.0 Server, SP5.0, IE4.0, s instalaciou
D3) to tiez slape dobre...
- u zakaznika1 pri rovnakom pocte zaznamov (skratka zhodnej databaze) cela
operacia nahladu trva radovo 3-5krat dlhsie... (NT 4.0 Enterprise Server,
SP6.0, IE (neviem presne ale min. 4.0), DELPHI tam nikdy neboli
samozrejme...)
- u zakaznika2 je to to iste - rozdiely SP5
Este som zabudol ze:
- u mna bezim 1152 x 864x65536 color, na nasom serveri 800x600x65536
color, zakaznik 1 800x600x16 color!!! a zakaznik 2 na 800x600x65536
color....
Ziskanie riadku na stranu klienta je vo vsetkych pripadoch velmi rychle,
potom to vsak na niecom stoji...
Zacinam mat podozrenie na verzie niektorych systemovych DLLiek...
Ja som s toho hotovy.... nestretol sa s niecim podobnym niekto... s hocicim
co by sa priznakmi aspon podobalo ??
Za vsetky napady vrela VDAKA.
JaNo.
Vdaka
Shareware,registracie
[*] Majo Petrik <zajodelphi(zv)hotmail(tec)com> - 31.1.2000 17:13:26 gmt
Zdravim!
Rad by som poznal nejaky normalny sposob
ako zo svojej aplikacie vytvorit casovo limitovany
shareware...
help!
pozn: Nemyslim pomocou nejakej shareware componenty!!!
Dakujem...
Majo
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
PowerPoint
[*] boro(zv)gratex.sk - 31.1.2000 18:26:53
Ahoj !
Niekto tu dnes potreboval spustit z Delphi 5 Powerpoint slideshow.
Tento priklad otvori prezentaciu a spusti. Podrobnejsie info o metodach
objektov PP na
http://msdn.microsoft.com/isapi/msdnlib.idc?theURL=/library/officedev/office
97/output/f1/d5/s5ae28.htm
Unit1.pas
....
type
TForm1 = class(TForm)
Button1: TButton;
PowerPointApplication1: TPowerPointApplication;
procedure Button1Click(Sender: TObject);
........
procedure TForm1.Button1Click(Sender: TObject);
begin
with PowerPointApplication1.Presentations do
begin
Open('c:\testme.ppt', Unassigned, Unassigned, Unassigned);
Item(1).SlideShowSettings.Run;
Item(1).Close;
end;
end;
.....
S pozdravom
Ing. Boris Becvarov
Gratex International
mailto:boro(zv)gratex.sk
Jak zrusit dedicnost
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 31.1.2000 18:29:50
Zdravim,
mam jeden formular a od nej odvozene dalsi. No a ted
bych potreboval aby ten odvozeny se stal nezavisly na
tom prvnim to znamena aby se polozky inherited staly object.
Dalo by se to prepsat v dfm, ale neexistuje neco jednoduzsiho ?
Dekuji za vase podnety.
Pavel M.TControl.OnMouseDown ?
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 31.1.2000 18:49:13
On Mon, 31 Jan 2000, Tomas Bihary wrote:
> Zdravim vsechny!
>
> Mozna bude muj dotaz znit dost trivialne, ale nevim si s tim rady.
>
> Potreboval bych za behu promenne typu TControl priradit udalost OnMouseDown.
> Kdyby to byl napriklad TButton tak by to samozrejme nebyl zadny problem,
> ale TControl ma OnMouseDown v private sekci a je tak pro mne nedostupna.
>
> Jedno z reseni, ktere me napadlo, je uprava VCL a preneseni OnMouseDown
> v TControl do public (nebo published?) sekce, ale nezda se mi to moc
> koser...
>
> Jestli mate nejake reseni a nebo jestli se vam zda to moje schudne, dejte
> prosim vedet.
>
> Tomas Bihary
Ahoj,
co takhle pouzit stary trik:
type
THackControl = class(TControl)
end;
var
C: TControl;
begin
...
THackControl(C).OnMouseDown:=....
...
end;
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
FPiette - soubor na server pres FTP
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 31.1.2000 20:24:37
Porad to nefunguje, ale uz jsem to vyresil tim, ze jsem pouzil jine
komponenty.
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
> Mam takovy dojem, ze to zpetne lomitko by tam nemelo byt.
>
> Mirek
>
> > Potrebuji poslat soubor na server pres protokol FTP. Spustil jsem demo,
> > ktere je dodavano s ICS pro FTP a pripojil se (OK), poslal soubor (OK),
> ale
> > pak jsem zjistil, ze soubor se ulozil na root serveru a ne do
> > preddefinovaneho adresare.
> >
> > HostDirName := '/realnet/';
> >
> > ... zkousel jsem vsechno mozne, ale nejde me to. Muzete mi prosim
poradit?
> >
> > P�eji p��jemn� den.
> >
> > Petr Reichl
> > ---
> > * E-mail: reichl(zv)centrum(tec)cz
> > * PGP: support
> > * ICQ: 56430979
> > ---
>Shareware,registracie
[*] Lud�k ZITA - 31.1.2000 21:17:20
> Majo Petrik
> Zdravim!
> Rad by som poznal nejaky normalny sposob
> ako zo svojej aplikacie vytvorit casovo limitovany
> shareware...
Ahoj.
Jednim z postupu je napr tento:
1) Pri prvnim spusteni (nebo pri instalaci)zapises do registru datum
instalace a kodovane ho zapises do dalsiho (muze jich byt i vice) souboru na
disku. Soubor by mel byt nenapadny napr. jedna ze free component BlindGuard
(kterou najdes na www.utilmind.com) umistuje tento soubor do
C:\WINDOWS\spool\PRINTERS.
No a pak jiz jen kontrolujes, zda souhlasi zapis v registru s zapisem v
souboru a pocitas dobu pouzivani a pod.
Pochopitelne je dobre se drzet techto zasad:
1) Cesta a nazev souboru nesmi byt v exe zapsana jako holy string. Je treba
to aspon oXORovat.
2) Je dobre u toho souboru zmenit datum vytvoreni nekam do minulosti.
3) Je dobre pokud nazev souboru nejak asocijuje s nazvy systemovych souboru
Windows.
Je to samozrejme to nejjednodussi, co muze byt. Ovsem zdatnejsi uzivatel to
dokaze obejit.
Zakladnim kamenem je vzdy pri prvnim susteni nebo pri prvni instalaci nekam
utajene zapsat informaci o datumu a to pokud mozno "nesmazatelne". Aby
nebylo mozne opakovane instalovat a tim prodluzovat lhutu.
Slysel jsem i o SW, ktere udajne vedelo kdy bylo na PC instalovano pri dalsi
instalaci i po vymene HDD.
Asi si to psali nekam do BIOSU ci kam.
Vzdy je ale dobre uvazit, jestli se Ti prace s ochranou vubec vyplati.
Taky je dobre myslet na zakaznika - aby ho tvoje ochrany neotravily.
Podivej se taky na domovskou stranku InstalShieldu. Mysli, ze mak�ji nejaky
produkt, ktery tohle umi na celkem dobre urovni.
Ovsem je za penize.
Jeste je mozne , pokud to budes distribuovat pouze stazenim z Internetu,
zadavat expiracni datum rovnou pri kompilaci. a prubezne soubor na webu
menit. (napriklad pri expiracni lhute 30 dnu dat kazdyh 14 dni na web exe
ktere expiruje o 45 dni pozdeji). Pak lhuta samozrejme nevyprsi kazdemu
presne, ale to nevadi. Jednou to chcipne stejne.
Pokud se nebude chti hrabat v exaci a delat nejaky crack, tak ho to prinuti
stahnout pokazde novou instalaci, coz ho muze casem prestat bavit a treba si
to koupi.
Jinak ti doporucuji projit v archivu konference debyty na toto tema (napr.
Ochrana programu (WAS HDD factory serial + model number, atd.)). Mozna ze
prides na to, ze nekdy je lepsi program nechranit vubec nez ho chranit blbe.
Ludek ZITA
DCOM na Novellu
[*] Tom� Br�dle������i�^����? - 31.1.2000 21:25:14
Zdravim,
pokousel jsem se o neco podnobneho - server Novell, klienti z 98cek. Tam by
se to melo resit v ramci Microsofti site, cili s vyloucenim Novellu. V
nastaveni site musi byt sdileni souboru a tiskaren v sitich Microsoft a ne v
sitich Novell, zkratka aby se ty pocitace navzajem videli. DCOM Win98 ->
Win98 se mi vsak nepovedlo rozchodit, tak jsem presel na NT 4 server jako
DCOM server a s tim je to OK.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Ahoj,
resil jste nekdo vicevrstvou aplikaci na Novellu, kde jsou W95?
Mejme nejaky COM server, na klientu je program, ktery se na nej
odvolava. Muzete nekdo poradit, co kde nastavit, aby si klient umel
najit svuj servrik?
CSV Files
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 31.1.2000 21:27:35
From: "Petr Reichl" <reichl(zv)atlas(tec)cz>
> muzete mi prosim poradit jak nejlepsim zpusobem zpracovavat csv soubory
> (hodnoty oddelene strednikem)? Mam takovy dojem, ze na to je i ODBC ovladac,
> ale jisty si nejsem.
Ahoj,
nevim, jestli nejlepe (protoze jsem to
nezkousel), ale nekde jsem stahnul
komponentu TjvCSVBase + dalsi pro
"create, restructure, browse and edit CSV
database files without any coding"
Kdyz tak mohu zaslat
Petr Motlicek
TControl.OnMouseDown ?
[*] Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> - 31.1.2000 20:28:25 -0000
Vlastne desne jednoduchy!!!
Dik moc
Tomas
----- P�vodn� zpr�va -----
Od: Lukas Voborsky <xvobl03(zv)vse(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 31. ledna 2000 17:49
P�edm�t: Re: TControl.OnMouseDown ?> On Mon, 31 Jan 2000, Tomas Bihary wrote:
>
> > Zdravim vsechny!
> >
> > Mozna bude muj dotaz znit dost trivialne, ale nevim si s tim rady.
> >
> > Potreboval bych za behu promenne typu TControl priradit udalost
OnMouseDown.
> > Kdyby to byl napriklad TButton tak by to samozrejme nebyl zadny problem,
> > ale TControl ma OnMouseDown v private sekci a je tak pro mne nedostupna.
> >
> > Jedno z reseni, ktere me napadlo, je uprava VCL a preneseni OnMouseDown
> > v TControl do public (nebo published?) sekce, ale nezda se mi to moc
> > koser...
> >
> > Jestli mate nejake reseni a nebo jestli se vam zda to moje schudne,
dejte
> > prosim vedet.
> >
> > Tomas Bihary
>
> Ahoj,
> co takhle pouzit stary trik:
>
> type
> THackControl = class(TControl)
> end;
>
> var
> C: TControl;
> begin
> ...
> THackControl(C).OnMouseDown:=....
> ...
> end;
> Lukas
>
> -==============================================================-
> mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
> www: http://come.to/voborsky tel. 8551040-9 l. 393
> -==============================================================-
> PGP podporovano
>omezeni databazi paradoxu
[*] Delphy confera na MV SR <delphi(zv)minv.sk> - 1.2.2000 15:18:33
> > Maximum records ..... 2billion
> > Field per table ........... 255
> > Characters per field ... Not applicable
> > Bytes per record ....... 32.750
>
>
> hmm, raz som testoval Paradox format. Pre objemne databazy je nevhodny.
>
> mal som tabulku kde bolo IDcko a dve memo polia do ktorych som vkladal
jednu
> vetu. Nuz a ked
> som nainsertoval cca. 750 000 zaznamov tak sa mi cela tabulka zrutila a
ani boh
> ju uz nedal
> do poriadku.
>
> Ivan Turcan
WOW, tak to bude zrejme zalezat aj od HW...mne sa zrutila pri 200K
Werki
Rodna cisla
[*] Delphy confera na MV SR <delphi(zv)minv.sk> - 1.2.2000 15:55:38
> Je to trochu jinak
> plati rr+mm+dd+ab+cd mod 11 = 0
(alebo 11)
> ne soucet cislic ale soucet dvojic cislic je (vetsinou ) celociselne
> delitelny 11. takze
do roku 1953 ziadne a potom maju vsetky modulo 11
> Prechod na 4 mistna rodna cisla byl myslim v roce 1953.
Presne
>> Na delitelnost 11 se bohuzel nelze spolehat (a lide narozeni v jinych
> zemich casto r.c. nemaji vubec). Navic se (tusim pri kuponove privatizaci)
> prislo na to, ze existuji lide s
> identickymi rodnymi cisly. Chybicka se obcas vloudi.
To by nevadilo, ale maju rovnake meno, trvaly pobyt...a kua..niektory sa tak
podobaju ze ta ide rozhodit. Je ich par tisic a kopec ludi o tom ani nevie.
> Nektere aplikace pouziti r.c. vyzaduji, protoje dobre delitelnost 11
> kontrolovat pri zadavani dat, ale kdyz to nevyjde, tak se pouze zeptat
> obsluhy, jestlti to je tak spravne.
Ako som povedal, zistis ci je 3 miestne zacislie, ak hej, modulo
nekontrolujes, inac kontrolujes.
> Hodne zdaru
> Mirek
> | > projekt libovolnou teorii o rodnych
> | > cislech. Jak se pocitaji,
> | > jaky maji format (obzvlaste ted
> | > v roce 2000 a dal).
> | Sucet vsetkych cislic je delitelny 11 (rrmmdd/abcd
(r+r+m+m+d+d+a+b+c+d)
> | mod 11 = 0).
> | To ovsem neplati pre starsie rodne cisla (minule a zac. tohto storocia),
> | ktore maju na konci len trojcislie (rrmmdd/abc).
> | > koncovce je zakodovane misto
> | > narozeni, co je na tom pravda?
> | Ano (videl som zoznam ludi narodenych v tom istom meste a v tom istom
> roku -
> | vsetci mali prve dve cisla zo stvorcislia rovnake).
V SR bude system duplicit coskoro vyrieseny a podobne sa na tom pracuje aj v
Czexax.
Xyby vznikali napr. na matrikach kde si matrikarky poziciavali RC.
V sucastnej dobe sa duplicitne RC nevydavaju.
Werki
tabulka z volneho textu bez BDE
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 25.4.2000 09:23:54
Popis komponenty TMemData od Developer Express. http://www.devexpress.com/.
----------------------------------------------------------------------------
----------------------------------------
Ever wish you could use standard data aware controls with or without the
Borland Database Engine?
Ever wish you could display data from multiple file formats, from multiple
database engines, and bypass the Borland Database Engine entirely?
Well, TMemData may be your solution...It does all of this, and best of all,
TMemData only adds a couple dozen KB to your exe!
Since it only works with Memory, TMemData allows you to work with small
amounts of data with lightening fast speeds.
TMemData supports:
Calculated and lookup fields
Sorting by any field, including calculated and lookup fields
Bookmarks (multiple select for grid controls)
Locate method
This powerful non-visual component allows you to save/restore data to text
files, to the registry, binary format and anything else you wish to think
up.
----------------------------------------------------------------------------
----------------------------------------
Pavel
----- Original Message -----
From: Richard Valny <Richard.Valny(zv)oku-st(tec)cz>
> potrebuji rychle napsat chroupak-prohlizec na tabulky, ktere jsou ulozeny
ve volnem textu, polozky oddelene tabelatorem, vety ukoncene EOF.
> Jedna polozka je datumova (dd.mm.yyyy) a podle ni potrebuji tridit a
hledat.
> Cele to chci bez BDE
>
> Nevite o nejake vhodne komponente (abych ji nemusel dlouze hledat a
vybirat)?
WordWrap pro DbGrid
[*] bc.Svoboda Jarom�r <svoboda(zv)okfas(tec)cz> - 25.12.2000 10:25:24
Nevite prosim nekdo jak zalomit urcite sloupce resp. radky v DbGridu.
Neni nejaka komponenta ?
Predem dik J.Svoboda
mailto:svoboda(zv)okfas(tec)cz
None
[*] Vojt�ch Br�zda <xbrazda(zv)gymzr(tec)cz> - 4.2.2094 14:13:49
Cht�l bych ud�lat men�� aplikaci, kter� by po��tala pen�n� poplatky za p�ipojen� k Internetu. Nev�m ov�em jak zjistit, �e byl aktivov�n modem a tud�, �e mohu zapo��t s po��t�n�m.
Za jakoukoli radu d�kuji: Br�zda V.autorun
[*] charon / smidek <charon(zv)ipex(tec)cz> - 7.2.1995 13:55:30
Preji hezky den,
muzete mi, prosim poradit jakym zpusobem naprogramovat autorun pro urcity i nekym jinym
dodany program.
(delphi 3 - standart)
predem diky, charon II
autorun
[*] charon / smidek <charon(zv)ipex(tec)cz> - 8.2.1995 07:06:19
Ano presne tak
----- Original Message -----
From: Petr Hodbod <hodbod(zv)mendelu(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 07, 2000 3:10 PM
Subject: Re: autorun
> Zdravim,
> pokud to chapu spravne, tak se jedna o autorun na CD pro spusteni
> aplikace po zasunuti do mechaniky???
> Pokud ne muzete lepe specifikovat problem?
> Zdravim Petr Hodbod
>
> charon / smidek wrote:
>
> > Preji hezky den, muzete mi, prosim poradit jakym zpusobem
> > naprogramovat autorun pro urcity i nekym jinym dodany program.
> > (delphi 3 - standart) predem diky, charon II
>
> --
> __________________________________
>
> Ing. Petr Hodbod
> Dep. of Computer Science
> Mendel University of Agriculture
> fax : +420 5 4513 5008
> email: hodbod(zv)mendelu(tec)cz
> ___________________________________
> autorun
[*] charon / smidek <charon(zv)ipex(tec)cz> - 8.2.1995 12:45:26
Diky za podnet,
chtel bych se jeste zeptat, da se pomoci delphi osetrit nasledujici problemek.
Dostala se mi do ruky aplikace cela udelana v html.
potreboval bych a by po zasunuti CD do mechaniky prinutil "autorun" defaultni.htm soubor
spusteni pod prohlizecem (explorer). V pripade ze na pocitaci neni prohlizec nainstalovan,
to oznamit.
Diky charon II
----- Original Message -----
From: bures
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, February 07, 2000 3:08 PM
Subject: Re: autorun
Ahoj tvuj dotaz je velmi obecny ale pokusim se napsat aspon par veci co k tomu budes potrebovat
1) cestu k programu muzes ji odvodit treba z cestu k tvymu menu na ktery se budes odvolavat autorunem na CD (doufam ze jsem to spravne pochopil)
a to je Application.ExeName. To ti vrati cestu k tvojemu menu,
ExtractFileDrive(Application.ExeName) zjisti disk odkud jsi spustil svoje menu
ExtractFilePath(Application.ExeName) zjisti cestu do adresare tveho menu (vcetne disku)
2) zda ssoubor ktery chces spustit opravdu existuje zjistis traba If FileExists(nejaky soubor) then .....
3) Soubor programu na ktery chces spustit, spusis treba WinExec(Pchar(nejaky soubor),SW SHOWNORMAL);
4) Soubory ktere chces spoustet si traba zapis do Ini Souboru viz http://www.ssakhk(tec)cz/home/bures/delphi/hint20.htm
5) pokud chces to menu spoustet z CD pomoci autorunu tak nezapomen ze tam zadavas 'relativni' cestu
a proto pro zjiskani cestu k tvemu projektu nemuzes pouzit GetCurrentDir protoze ten bude z nejvetsi pravdepodobnosti
korenovy adresar toho CD, to same plati kdyz se na svuj projekt odvolavas z MSIE.
Doufam ze ti to pomuze Vlada
----- Original Message -----
From: charon / smidek
To: konference delphi
Sent: Tuesday, February 07, 1995 1:55 PM
Subject: autorun
Preji hezky den,
muzete mi, prosim poradit jakym zpusobem naprogramovat autorun pro urcity i nekym jinym
dodany program.
(delphi 3 - standart)
predem diky, charon II
Otazka - Palety v Delphi
[*] Petr Va���ek���s7��+h��ޙ���̿ - 5.2.1999 13:46:08
Dobry den,
Mam takovy problem a byl bych strasne vdecny, kdyby mi s nim nekdo pomohl.
Potreboval bych vedet, jak v Delphi u nejakeho Projectu muzu menit napriklad
barvu Menu, Buttonu apod. Vim, ze normalne je to zavisle na nastaveni
Windows, ale muzu si nejak nastavit v mem Projectu, aby napriklad barva menu
byla clNavy a text v menu clWhite?
Dekuju moc za odpoved
Petr Vasicek
Form ve formu
[*] Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> - 24.2.1999 14:51:43
Ahoj
Asi bych si na puvodnim formu dal uplne vsechno na
panel se zarovnanim alClient a ten pak prenes na
danej tabsheet a az budu potrebovat tak zase zpatky:
procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.Panel1.Parent := TabSheet1;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.Panel1.Parent := Form2;
end;
Doufam ze jsem tvuj problem spravne pochopil.
Jeste by treba slo odchytavat WM_MOVE na tom
formu s PageControlem a nastavovat spravne pozici
druheho formu, ktery by ale musel by StayOnTop.
Pak by se jeste muselo zajistit aby se s nim nedalo
pohnout a nesel zavrit a aby se prepinaly pri zmene
stranky v PageControlu. Tohle reseni je sice trochu
krkolomny, ale dosahnul by si toho, ze bude viditelna
Caption druhyho formu (jestil ti jde prave o tohle).
ahoj
Tomas Bihary
----- P�vodn� zpr�va -----
Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 24. �nora 2000 13:06
P�edm�t: Form ve formu
> Ahoj,
>
> vyskytl se mi problem. Mam formular, na kterem jsou edit.pole, checkboxy
aj
> a pole maji vlastni eventy. Potreboval bych nejak jednoduse vlozit tento
> formular do stranky na TPageControl (a to na 3 az 7 stranek jak by bylo
> treba, tj. 3-7 krat) pri zachovani funkcionality pri editovani (a aby to
> zachovalo i jmena editacnich poli) ale na kazde strance s jinymi daty (asi
> neco jako naslednicek TForm ale jako podrizene okno).
> Jak bych to mel udelat? Existuje na podobne nejaky priklad?
> Mam D2.
>
> Dekuji
> Jaro B.Real v INI
[*] Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> - 25.2.1999 14:37:09
Ahoj,
Real ma 8 bytu a integer 4.
Zkusil bych teda takovouhle deklaraci:
var
RealHodnota: Real;
IntHodnota: Array[0..1] of Integer absolute RealHodnota;
pak bych jednoduse do RealHodnota priradil hodnotu kterou
chci ulozit, ale ulozil bych IntHodnota[0] a IntHodnota[1].
A pri nacitani obarcene nactu do IntHodnota[0]
a IntHodnota[1] a v RealHodnota budu mit moji ulozenou
hodnotu.
Ahoj Tomas Bihary
----- P�vodn� zpr�va -----
Od: Lumir Karas
Komu: Konference Delphi
Odesl�no: 25. �nora 2000 9:55
P�edm�t: Real v INI
Ahoj,
Zajimalo by me jestli se da z INI souboru precist cislo Real. Pro cisla
jsem nasel pouze ReadInteger(). Zatim to resim tak, ze ctu String a ten
prevadim na Real. Mohl by mi nekdo poradit jestli na to existuje lepsi
zpusob?
Diky, Lumir.Autorun jinak!
[*] Tom� Mi�kovsk�����)"��ޮ�� - 10.10.1999 19:29:54
> No uplne stejne jako u normalni aplikace, nebo alespon myslim. Pokud se
> to neotevre tak tam explorer neni.
> [autorun]
> OPEN=explorer.exe app.htm
> ICON=IKONA.ICO
No to prece ne!!!
Co kdyz je *.htm svazano s Netscapem?
Ve Win95 a vyssich existuje uz davno prikaz START.
Takze spravne to bude takhle:
[autorun]
OPEN=start app.htm
ICON=IKONA.ICO
--------------------------------------------------------------------
Miki
http://www.oberro(tec)cz
generovani nazvu
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 28.1.2000 10:01:17
Slo by to rekurzi, nebo radeji bych napsal tech 8 foru, ale jinak
k cemu je cca 36^8 nazvu ( 2 821 109 907 456 ) dobrych ?
To se bude generovat pekne dlouho.
Reseni:
definuj si string pro vsechny znaky, jenz mas generovat;
setLenght(s,36);
for i:=1 to 26 do s[i]:=char($40+i);
for i:=0 to 9 do s[i+27]:=char($30+i); // cisla na konec
for i:=1 to Length(s)
for j:=1 to Length(s)
.
.
.
s2:=s[i]+s[j]+.....;
snad ti to pomuze. slavek
-----P�vodn� zpr�va-----
Od: sup(zv)svitap(tec)cz [SMTP:sup(zv)svitap(tec)cz]
Odesl�no: 28. ledna 2000 8:28
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: generovani nazvu
Dobry den, mam malinkaty problem. Mam za ukol vygenerovat nazvy v tomto
rozmezi : A...ZZZZZZZZ.
Asi takhle: A,B,C...Z,AA,AB,AC...AZ,BA,BB,BC az po
ZZZZZZZX,ZZZZZZZY,ZZZZZZZZ.
Jsem az po usi zamotanej do vselijakejch for...end, if...else...end a
repeat...until, ale furt se mi to nedari... :-(((((( Poradte mi prosim
nejakej algoritmus, nez se z toho zblaznim...
W98,D3Profi.
PS: Prave jsem se dozvedel, ze nejen interval A..Z, ale A..Z + 0..9.
Bueeeee!
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
TControl.OnMouseDown ?
[*] J�n Tungli - 28.1.2000 13:13:24
Deklaruj v objekte proceduru MyMouseDown
a potom tuto proceduru prirad na dany component.
Object = Class( ...)
private
procedure MyMouseDown(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer)
Component.OnMouseDown:=MyMouseDown;
tungli(zv)datapac.sk
----- Original Message -----
From: Tomas Bihary <tomas.bihary(zv)vslib(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 31, 2000 5:21 PM
Subject: TControl.OnMouseDown ?> Zdravim vsechny!
>
> Mozna bude muj dotaz znit dost trivialne, ale nevim si s tim rady.
>
> Potreboval bych za behu promenne typu TControl priradit udalost
OnMouseDown.
> Kdyby to byl napriklad TButton tak by to samozrejme nebyl zadny problem,
> ale TControl ma OnMouseDown v private sekci a je tak pro mne nedostupna.
>
> Jedno z reseni, ktere me napadlo, je uprava VCL a preneseni OnMouseDown
> v TControl do public (nebo published?) sekce, ale nezda se mi to moc
> koser...
>
> Jestli mate nejake reseni a nebo jestli se vam zda to moje schudne, dejte
> prosim vedet.
>
> Tomas Bihary
Informace v "hlavicce" souboru
[*] Petr Poto�ek <pp1(zv)volny(tec)cz> - 30.1.2000 14:51:42
Zdravim vsechny,
poradil by mi, prosim, nekdo, jak v D4 se dostanu k informacim v "hlavicce"
souboru. Jedna se mi o datum a cas vytvoreni digitalni fotky. Kdyz soubor
JPG otevru pres WordPad vidim datum,cas,typ fotoaparatu atd., ale nevim jak
se k temto informacim dostat ( a dale zpracovavat ) z Delphi.
Predem dekuji za kazdy namet.
Petr
Potocek