Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.12.2001 14:41:23
Nechapu.....
> C++ primo nepodporuje dynamicka pole a navic neni mozne chtit po
^^^^^^^^^
tohle je co
DynamicArray<int> pole;
pole.Length = 5;
nebo
int *pole;
pole = new int(5); /* pole = (int *) malloc(sizeof(int)*5); */
DLLku aby pripadne menilo alokovanou velikost pole. Jde o stejny
pripad jako s AnsiString.
DLLko pouziva vlastni pametovy prostor (a vlastni pametovy manazer)
takze pri realokaci pole (stringa) by doslo
k pozadavku na uvolneni ciziho prostoru dat (DLLko jej nema v seznamu
alokovanych bloku heapu)>Ja tech 98 longint hodnot z toho pole bez problemu prectu, ale pri
ukonceni
>procedury nebo pri zavolani SetLength(aParam,0) nebo aParam:=NIL se
Delphi
>snazi uvolnit pamet podle toho length-indikatoru a spadne to na hubu
>(pointer error).
delka pameti je soucasti deskriptoru bloku pameti na heapu - staci
tedy znat jen pointer
na uvolnovanou pamet (indikator delky v hlavice stringa ci pole slouzi
jen ke zjisteni
obsazenosti alokovaneho bloku - tedy ke zjisteni skutecne delky
promenne, ktera
nemusi nutne zabrat cely alokovanu blok (at jiz zduvodu nedelitelnosti
16 ci optimalizace rychlosti zpracovani)
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.12.2001 14:54:52
>> C++ primo nepodporuje dynamicka pole a navic neni mozne chtit po
> ^^^^^^^^^
>tohle je co
no dobre melo tam byt nepodporuje dynamicka pole tak, aby byla
kompatibilni s implementaci v Delphi
>
> DynamicArray<int> pole;
> pole.Length = 5;
Ccko neznam - tohle mi nic nerika
>nebo
> int *pole;
tak tohle s dynamickym polem z delohi moc kompatibilni nebude
(samozrejme pokud vim jak s tim zachazet muzu to pouzit)
> pole = new int(5); /* pole = (int *) malloc(sizeof(int)*5); */
to same
D. Toman
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.12.2001 15:03:37
> Header te funkce v DLLku je
> /*
> Obtains a list of all parameters supported by the camera
> (zv)param hCamera a valid camera handle
> (zv)param pnCount pointer to a variable that will receive the number of
> parameters present
> (zv)param ppLong indirect pointer to an array of longs. This array
> will be allocated internally by the SDK and must be freed with a
call to <A
> HREF =
>
http://msdn.microsoft.com/library/psdk/com/cmf_a2c_63l1.htm>CoTaskMemF
ree</A
> >
> (zv)reentrant yes
> */
> TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned
long*
> pnCount, long** ppnParams);
Ja bych to prepsal do Delphi takto:
Function DigitaListAllParameters(hCamera : HDIGITA; VAR pnCount :
DWORD; VAR ppnParams : Pointer) : TDigitaResult;stdcall;
pripadne takto:
TYPE
PArrayOfLongs = ^TArrayOfLongs;
TArrayOfLongs = Array[0..1] of Integer;
Function DigitaListAllParameters(hCamera : HDIGITA; VAR pnCount :
DWORD; VAR ppnParams : PArrayOfLongs) : TDigitaResult;stdcall;
ppnParams je promenna, ktera dostane pointer na pole alokovane tou
funkci (musi se nekdy uvolnit "rucne" pomoci CoTaskMemFree)
PS: co to je za funkci? na MSDN ji nejak nemuzu najit ...
Pokud je to podle nazvu opravdu neco na praci s digitalni kamerou tak
me to zajima...
Zdravi
D. Toman
Bezpecnost
[*] Tom Lebr <tom.lebr(zv)volny(tec)cz> - 13.12.2001 15:05:49
Dobry den,
pro ztizeni bohate staci zabalit UPX, Petitem ...
par uzitecnych informaci se da najit na
http://www.builder(tec)cz/art/asembler/crack_uvod.html
ale proti zkusenemu crackerovi mate asi podobnou sanci jako vyhrat nad
skorapkarem :(
cracknout cokoli je otazka casu a motivace
Tom L.
----- Original Message -----
From: "Martin �d�rsk�" <zdary(zv)seznam(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 12, 2001 10:48 PM
Subject: Bezpecnost
Ahoj, potrebuju nejaky nastroj pro zacryptovani programu. Nebo nejaky
jiny zpusob, jak se branit proti hackerum. (alespon jim to ztizit...)
Diky
______________________________________________________________________
Vyberte Vas "Nejoblibenejsi automobil roku 2002 v CR"
a hlasujte na adrese http://www.autoroku(tec)cz. Hlavni vyhra 600 000 Kc!!!
Lock tabulky pri Selectu
[*] Michal Michal <delphi-konference(zv)bcpraha(tec)com> - 13.12.2001 15:21:36
Ahoj vsem,
D3 Prof, BDE, MSSQL 7.0
Mam dotaz:
SELECT ... FROM A join B ..., ktery vraci mnoho dat.
Pokud tento dotaz (TQuery) spustim v programu 1 (jen Open) a v programu
2 (napr. Query Analyzer) spustim UPDATE na tabulku A nebo B, tak zamrzne
(chovani jako by ho program 1 zamknul transakci. Program 2 by dosel az k
"Lock time out"). Pokud ale v programu 1 po Updatu spustim jiny dotaz
(napr. "Select 1" nebo i "--" - proste neco), tak se to uvolni a UPDATE
probehne.
Dale jsem zjistil, ze mohu hned po OPEN zavolat FetchAll a tim se
odblokuje. Po OPEN se nic nezobrazi v Profileru, ale po FetchAll se tam
uz ten dotaz zobrazi.
Rozumim tomu tak, ze se data z toho dotazu stahnou do nejake velikosti a
potom Delphi cekaji co bude dal, jestli ty data budu chtit opravdu
vsechny. Ale nevim proc mi to blokuje ostatni aplikace?
Program 2 nema sanci toto zjistit a program 1, protoze neni v transakci,
tak asi take ne.
Da se tomu nejak zabranit (krome toho, abych za kazdym OPEN volal
FetchAll) ??? Mozna, ze existuje nejake nastaveni v BDE, ale nic jsem
nenasel.
Predem dekuji za odpovedi
Michal
Bezpecnost
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.12.2001 15:32:05
> pro ztizeni bohate staci zabalit UPX, Petitem ...
>
> par uzitecnych informaci se da najit na
> http://www.builder(tec)cz/art/asembler/crack_uvod.html
>
> ale proti zkusenemu crackerovi mate asi podobnou sanci jako vyhrat
nad
> skorapkarem :(
>
> cracknout cokoli je otazka casu a motivace
presne tak. Uz ponekolikate musim v teto konferenci opakovat, ze je
nutne poradne zvazit zda ma opravdu smysl
nejakou ochranu implementovat (cas a prostredky vynalozene na jeji
vyvoj musi mit smysl a ochrana nesmi
obtezovat legalni uzivatele). Inspirace MS a WinXP nedoporucuju....
D> Toman
Dynamic arrays - Delphi6 vs C++
[*] Simek Jir� <Jiri.Simek(zv)czech-tv(tec)cz> - 13.12.2001 15:37:20
> je-li v C++ pole typu int (longint) je 32-bit, pokud je to
> pole smallint tak je 16-bit
>
> pokud chces 16-bit
> aParams: array of smallint; - ale pokud je vsechny v pohode prectes?
Ja to pole chci Longint, ale funkce C++ tam spatne zapise length-indicator
(mimo jine). Dela me to i u typu String, nejenom u poli. To pole je spravne
(co do obsahu), ale ma zmrsenou hlavicku.
>
> jo jinak dynamincky pole vytvoreny SetLength se uvolnuje
> samo......ve svem pametovem prostoru.....
Jasne, kdyz to pole mam deklarovany jako lokalni v procedure, tak se pri
ukonceni procedury snazi to pole uvolnit.
A prave v tom okamziku to spadne do kyticek na Invalid pointer operation.
JirkaS
Lock tabulky pri Selectu
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 13.12.2001 15:38:50
TDatabase.TransIsolation := tiDirtyRead
Marek Muller
-----Original Message-----
Da se tomu nejak zabranit (krome toho, abych za kazdym OPEN volal
FetchAll) ??? Mozna, ze existuje nejake nastaveni v BDE, ale nic jsem
nenasel.Dynamic arrays - Delphi6 vs C++
[*] #imek Ji�� <Jiri.Simek(zv)czech-tv(tec)cz> - 13.12.2001 15:56:36
No, ja tam, ten pointer prece predavam, resp. Delphi u typu array vzdycky
predava pointer. A kdyz mam v deklaraci te fce parametr odkazem (var
ppnParams: aLongint), takze se vlastne predava pointer na pointer ;-)
To volani je urcite dobre, kdyz pouziju tu konstrukci cos napsal, spadne to
hned pri volani te fce, to uz sem zkousel.
> ppnParams je promenna, ktera dostane pointer na pole alokovane tou
> funkci (musi se nekdy uvolnit "rucne" pomoci CoTaskMemFree)
Kdyz na konci procedury zavolam CoTaskMemFree((zv)aParam) z ole32.dll tak to
dopadne uplne stejne.
>
>
> PS: co to je za funkci? na MSDN ji nejak nemuzu najit ...
> Pokud je to podle nazvu opravdu neco na praci s digitalni kamerou tak
> me to zajima...
Je to pro praci s digitalnima fotoaparatama ktery maji OS Digita (nektery
Minolta 1500, starsi Kodaky rady 2xx, HP 618 a 912, Pentax EI-200 a
EI-2000). Ja se to snazim rozjet pro HP912-ku.
JirkaS
Uvolneni pameti
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.12.2001 16:15:32
Ahojky, chtel jsem se zeptat, kdyz udelam neco takovyho, jestli to jde...
Je to vykonstruovanej priklad, neberte to tak vazne...
function TMyObject.Neco(ANeco:integer):TMyObject;
begin
Result:=TMyObject.Create(ANeco);
end;
a:=MyObject.Neco(1);
a.Destroy;
A tohle uz asi nejde.....
a:=2+MyObject.Neco(1).GetNeco;
tady asi nemam jak zavolat Destroy
(Ja jsem zvyklej z C++, ze se mi destructory zavolaji automaticky)
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
Lock tabulky pri Selectu
[*] bardon <bardon(zv)akord-soft(tec)cz> - 13.12.2001 16:20:45
Ano, je to presne tak, pokud vraci select mnoho vet a davas je do nejakeho
Gridu, tak se Ti nafetchuje jen neco a zbytek se zamkne.
Mozna, ze pomuze, pokud si pred tim selectem das
SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED
Ale nejlepsi reseni je omezovat pocet vet. Napriklad alespon pomoci SET
ROWCOUNT, lepe vsak pomoci vhodneho WHERE.
Kdybys mel ADO, tak se Ti to nestane, ale klientsky kursor Ti vsechno
nafetchuje a serverovy podle toho jak ho nastavis.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Michal Michal
Sent: Thursday, December 13, 2001 3:22 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Lock tabulky pri Selectu
Ahoj vsem,
D3 Prof, BDE, MSSQL 7.0
Mam dotaz:
SELECT ... FROM A join B ..., ktery vraci mnoho dat.
Pokud tento dotaz (TQuery) spustim v programu 1 (jen Open) a v programu
2 (napr. Query Analyzer) spustim UPDATE na tabulku A nebo B, tak zamrzne
(chovani jako by ho program 1 zamknul transakci. Program 2 by dosel az k
"Lock time out"). Pokud ale v programu 1 po Updatu spustim jiny dotaz
(napr. "Select 1" nebo i "--" - proste neco), tak se to uvolni a UPDATE
probehne.
Dale jsem zjistil, ze mohu hned po OPEN zavolat FetchAll a tim se
odblokuje. Po OPEN se nic nezobrazi v Profileru, ale po FetchAll se tam
uz ten dotaz zobrazi.
Rozumim tomu tak, ze se data z toho dotazu stahnou do nejake velikosti a
potom Delphi cekaji co bude dal, jestli ty data budu chtit opravdu
vsechny. Ale nevim proc mi to blokuje ostatni aplikace?
Program 2 nema sanci toto zjistit a program 1, protoze neni v transakci,
tak asi take ne.
Da se tomu nejak zabranit (krome toho, abych za kazdym OPEN volal
FetchAll) ??? Mozna, ze existuje nejake nastaveni v BDE, ale nic jsem
nenasel.
Predem dekuji za odpovedi
Michal
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.12.2001 16:34:53
>TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned long*
>pnCount, long** ppnParams);
a nebude to treba tim, ze v C <unsigned long> je v pascalu <longword>
zkus to....
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
Uvolneni pameti
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.12.2001 16:39:34
>Ahojky, chtel jsem se zeptat, kdyz udelam neco takovyho, jestli to
jde...
>Je to vykonstruovanej priklad, neberte to tak vazne...
>
>function TMyObject.Neco(ANeco:integer):TMyObject;
>begin
> Result:=TMyObject.Create(ANeco);
>end;
>
>a:=MyObject.Neco(1);
>a.Destroy;
>
>A tohle uz asi nejde.....
>
>a:=2+MyObject.Neco(1).GetNeco;
>
>tady asi nemam jak zavolat Destroy
mozna takhle:
With MyObject.Neco do
begin
GetNeco;
Destroy;
end;
Pripadne predelat GetNeco aby vracelo TMyObject:
MyObject.Neco(1).GetNeco(a).Destroy;
Inc(A,2);
D. Toman
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.12.2001 16:40:39
> No, ja tam, ten pointer prece predavam, resp. Delphi u typu array
vzdycky
> predava pointer. A kdyz mam v deklaraci te fce parametr odkazem (var
> ppnParams: aLongint), takze se vlastne predava pointer na pointer
;-)
> To volani je urcite dobre, kdyz pouziju tu konstrukci cos napsal,
spadne to
> hned pri volani te fce, to uz sem zkousel.
mohl jsem se splest ale podle me by to melo tak byt. Ono je to jedno
jestli je v zapise VAR P : Pointer
nebo VAR P : LongInt. Dulezite jejak s tim P pak zachazis. Vzdy se s
nim musi zachazet jako s ukazatelem
na nejakou pamet
Vsiml jsem si, ze v deklaraci mas "cdecl". Mozna by tam melo byt
stdcall (pokud ta DLL neni nestandardne napsana) jak je
zvykem u API a spol.
> > ppnParams je promenna, ktera dostane pointer na pole alokovane tou
> > funkci (musi se nekdy uvolnit "rucne" pomoci CoTaskMemFree)
>
> Kdyz na konci procedury zavolam CoTaskMemFree((zv)aParam) z ole32.dll
tak to
> dopadne uplne stejne.
Vychazel jsem z toho uryvku z helpu. Tam pisi, ze jde o DLLkem
alokovany buffer, ktery je nutne uvolnit.
D. Toman
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.12.2001 16:45:54
>>TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned
long*
>>pnCount, long** ppnParams);
>a nebude to treba tim, ze v C <unsigned long> je v pascalu <longword>
Pokud je unsigned long 32 bit promenna muze v Delphi 4+ misto ni byt
cokoliv z:
integer
LongInt
dword
cardinal
pointer
zkratka cokoliv co je zabira 4 byty.
D. Toman
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.12.2001 16:45:09
>TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned long*
>pnCount, long** ppnParams);
long **ppnParams
tohle je dvourozmerny pole (pole ukazatelu na long, proste ukazatel na ukazatel longu)
>Function DigitaListAllParameters(hCamera: HDIGITA; var pnCount: Longint; var ppnParams: aLongint):Longword; cdecl; external 'digitacamW.dll';
aLongint mas jen jednorozmerny
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.12.2001 16:51:01
Ja uz taky kecam......
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
>>> Jaroslav.Blazek(zv)access-it(tec)cz 13.12.01 16:45 >>>
>TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned long*
>pnCount, long** ppnParams);
>long **ppnParams
>tohle je dvourozmerny pole (pole ukazatelu na long, proste ukazatel na ukazatel longu)
^^^^^^^
pole ukazatelu na ukazatel na long
>Function DigitaListAllParameters(hCamera: HDIGITA; var pnCount: Longint; var ppnParams: aLongint):Longword; cdecl; external 'digitacamW.dll';
>aLongint mas jen jednorozmerny
Uvolneni pameti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.12.2001 16:56:31
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
> (Ja jsem zvyklej z C++, ze se mi destructory zavolaji automaticky)
Ahoj,
pouzivej interface.
Petr Vones
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.12.2001 16:59:09
>>TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned
long*
>>pnCount, long** ppnParams);
>
>long **ppnParams
>
>tohle je dvourozmerny pole (pole ukazatelu na long, proste ukazatel
na ukazatel longu)
>
>>Function DigitaListAllParameters(hCamera: HDIGITA; var pnCount:
Longint; var ppnParams: aLongint):Longword; cdecl; external
>'digitacamW.dll';
>
>aLongint mas jen jednorozmerny
pokud jej pouzije jako ukazatel na neco (pole v tomto pripade) je to
OK
I := PPointerNaPoleIntegeru(ppnParams)^[1];
(tedy pokud aLongint je integer)
D. Toman
RichEdit komponenta
[*] bardon <bardon(zv)akord-soft(tec)cz> - 13.12.2001 17:03:23
Tohle me zaujalo. Skusil jsem si stahnout trial. Dal jsem to na form a
natahl jsem si tam text pres LoadRTFFromStream - ale nic mi to neukazuje.
Dival jsem se na Demo, ale tam jsem zadne demo na LoadRTFFromStream nenasel.
Nemas s tim nejake zkusenosti?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jaroslav Pospisil
Sent: Wednesday, December 12, 2001 7:18 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: RichEdit komponenta
Podle mne je nejlepsi placena TRichView Package od Sergey Tkachenko.
http://www.trichview.com/
Jarda Pospisil
JAPOS
Lock tabulky pri Selectu
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 13.12.2001 17:32:38
To bohuzel nepomaha.
Viz help - popis mapovani TDatabase.TransIsolation
na TransIsolation Level na MS SQL Serveru:
tiDirtyReadt ... iReadCommitted
tiRepeatableRead ... tiReadCommitted
tiReadCommitted ... Not supported
U TQuery, TDatabase ani v BDE nastaveni jsme zadny prepinac,
ktery by problem resil nenalezli. Nesetkali jste se s tim nekdo?
S pozdravem, Lada
----- Original Message -----
From: "Marek Muller" <delphi-konference(zv)bcpraha.com>> TDatabase.TransIsolation := tiDirtyRead
>
> Marek Muller
>
> -----Original Message-----
> Da se tomu nejak zabranit (krome toho, abych za kazdym OPEN volal
> FetchAll) ??? Mozna, ze existuje nejake nastaveni v BDE, ale nic jsem
> nenasel.
>
Programovanie na LAN
[*] Robert Suska <robert(zv)korak.sk> - 13.12.2001 17:35:49
no takze moja otazka je prosta, uz davnejsie sa tu spominalo programovanie
na sieti a to tak ze vypisat zoznam PC nejake tie servre a zdielane zdroje.
Bolo tu uverejnenych aj par zdrojakov ale nejako mi nechceli fungovat takze
kto ma a chce pomoct tak ho prosim nech mi posle maila. Inac moj problem je
trosku vacsi ja potrebujem take nieco ze sa to zavesi na masinu v sieti a
zisti aky tam je OS aky hardware je na tej masine no prosite taky checker.
Dakujem krasne za vsetky napady.
S pozdravom Robert Suska
Lock tabulky pri Selectu
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 13.12.2001 17:41:26
pak jeste jak uz bylo zminovano
SET TRANSACTION ISOLATION LEVEL ...
nebo jeste do dotazu pridat
SELECT ... WITH (NOLOCK)
Marek Muller
-----Original Message-----
To bohuzel nepomaha.
Viz help - popis mapovani TDatabase.TransIsolation
na TransIsolation Level na MS SQL Serveru:
tiDirtyReadt ... iReadCommitted
tiRepeatableRead ... tiReadCommitted
tiReadCommitted ... Not supported
----- Original Message -----
TDatabase.TransIsolation := tiDirtyRead
Soubor v databazi MS Access
[*] JIM Design <jim.design(zv)iol(tec)cz> - 13.12.2001 18:03:30
Ahoj,
kdysi jsem to delal takhle:
v datamodulu jsem si vytvoril ADOCOnnection a ADOTable (popr. AdoDataset),
dale uz nevim presne jak, ale nejak si musis automaticky vytvorit v tom
datamodulu promenou typu TMemoField vedouci primo na sloupec typu Memo v tom
.MDB
to TMemoField totiz umoznuje: TMemofield.LoadFromFile() //ulozi soubor do db
jako memo polozku
TMemofield.SaveToFile() //nacte tu memo
polozku co je v db a ulozi ji do souboru
M.Jirman
radil jsem pro Memo polozku, ale pro OLE Objekt to bude fungovat urcite
stejne
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Martin Falta
Ahoj,
nevite nekdo, jak dostat do Accessu, do pole typu OLE Object, soubor? Predem
dekuji.
Martin
Delphi 6 Pro + SP1, W2k + SP2, Access 2k
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.306 / Virov� b�ze: 166 - datum vyd�n�: 4.12.2001
rozliseni obrazovky
[*] JIM Design <jim.design(zv)iol(tec)cz> - 13.12.2001 18:03:31
Ahoj,
ten kod co si poslal jsem zkusil a funguje na mem Matrox MilleniumII a ve
w2k, jediny co nefunguje je tech 85Hz, skocilo to jen na 800x600 na 60Hz.
Duvodem tedy muze byt skutecne pouze a jen ta ATI (s XPertem a jeho
driverama jsem si uzil svoje :-((()
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of kuchar(zv)unicodesys(tec)cz
caute,
pomoci nasledujiciho kodu menim rozliseni obrazovky, problem je ale s tim ze
nedojde ke zmene frekvence monitoru, nastavovana frekvence je povolena, ale
ve woknech se stejne nasravi frekvence 60 Hz, poradte jak na to ?
DIK
----------------------------------------------------------------------------
-------------
>procedure TForm1.Button1Click(Sender: TObject);
>var
> lpDevMode : TDeviceMode;
> aResult : integer;
>begin
> EnumDisplaySettings( nil, 0, lpDevMode );
> with lpDevMode do
> begin
> dmBitsPerPel := 15;
> dmPelsWidth := 800;
> dmPelsHeight := 600;
> dmDisplayFrequency:=85;
> dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
> end;
> aResult := ChangeDisplaySettings( lpDevMode, 0 );
>end;
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.12.2001 19:40:09
jasne, ze 4B, me se spis jednalo o tohle
<C>
unsigned long - LONG_MIN = 0
LONG_MAX = 2^32
<pascal>
longint - LONG_MIN = -2^31
LONG_MAX = 2^31-1
longword - LONG_MIN = 0
LONG_MAX = 2^32
pak by mohl mit taky spatny udaje...>>> dtoman(zv)fortech(tec)cz 12/13/01 17:24 PM >>>>>TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned
long*
>>pnCount, long** ppnParams);
>a nebude to treba tim, ze v C <unsigned long> je v pascalu <longword>
Pokud je unsigned long 32 bit promenna muze v Delphi 4+ misto ni byt
cokoliv z:
integer
LongInt
dword
cardinal
pointer
zkratka cokoliv co je zabira 4 byty.
D. Toman
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.12.2001 19:51:14
To nebude to pravy orechovy....
pro pascalisty je docela nepochopitelny jako v C ukazatel na ukazatel
v pascalu je jen ukazatel na nejakou hodnotu
var plong:^longint;
-ale tohle uz nejde
var pplong:^^longint; /* long **pplong; */
mozna bych rekl, ze tomu odpovida
<C> unsigned long **pplong;
<pascal> var pplong:array of array of longword;
ale nejsem si jisty....
>>> dtoman(zv)fortech(tec)cz 12/13/01 18:02 PM >>>
>>TDigitaResult DigitaListAllParameters(HDIGITA hCamera, unsigned
long*
>>pnCount, long** ppnParams);
>
>long **ppnParams
>
>tohle je dvourozmerny pole (pole ukazatelu na long, proste ukazatel
na ukazatel longu)
>
>>Function DigitaListAllParameters(hCamera: HDIGITA; var pnCount:
Longint; var ppnParams: aLongint):Longword; cdecl; external
>'digitacamW.dll';
>
>aLongint mas jen jednorozmerny
pokud jej pouzije jako ukazatel na neco (pole v tomto pripade) je to
OK
I := PPointerNaPoleIntegeru(ppnParams)^[1];
(tedy pokud aLongint je integer)
D. Toman
Programovanie na LAN
[*] Tom Lebr <tom.lebr(zv)volny(tec)cz> - 13.12.2001 20:27:18
Dobry den,
snad to neni moc OT...
vyzaduje se Windows Script Host , ale ten ma, jak usuzuji podle uspesnosti
wormu, naistalovany kdekdo
priklad - ulozit do "scan.vbs":
---8<---
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Domain = " & WshNetwork.UserDomain
WScript.Echo "Computer Name = " & WshNetwork.ComputerName
WScript.Echo "User Name = " & WshNetwork.UserName
WScript.Echo
WScript.Echo "Sitove disky:"
For i = 0 to oDrives.Count - 1 Step 2
WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next
WScript.Echo
WScript.Echo "Sitove tiskarny:"
For i = 0 to oPrinters.Count - 1 Step 2
WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next
---8<---
a spustit prikazem
cscript scan.vbs
na prikazove radce, pripadne s vystupem presmerovanym do souboru (a odeslat
mailem nebo dal zpracovat)
primo z Delphi pres ActiveX - musi byt naimportovana Type Library pro
Windows Script Host 1.0 pres menu Component/Import ActiveX control... a pak
lze volat:
var
...
WshNetwork: Variant;
...
begin
...
WshNetwork := CreateOleObject('WScript.Network');
if not VarIsEmpty(WshNetwork) then begin
ShowMessage(WshNetwork.UserName);
end;
...
ale je-li to vetsi sit (a nepotrebujete neco velmi specialniho) je rozumejsi
pouzit hotovou aplikaci, treba Intel LANDesk Management Suite 6.5 -
http://www.intel.com/network/products/landesk/index.htm nebo w2k server a
Active Directory sluzby, ktere prinejmensim automaticke konfigurovani
aplikaci a sdilenych zdroju a dalkovou spravu a evidenci licenci zvladaji
take
s pozdravem
Tom Lebr
----- Original Message -----
From: "Robert Suska" <robert(zv)korak.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, December 13, 2001 5:35 PM
Subject: Programovanie na LAN
> no takze moja otazka je prosta, uz davnejsie sa tu spominalo programovanie
> na sieti a to tak ze vypisat zoznam PC nejake tie servre a zdielane
zdroje.
> Bolo tu uverejnenych aj par zdrojakov ale nejako mi nechceli fungovat
takze
> kto ma a chce pomoct tak ho prosim nech mi posle maila. Inac moj problem
je
> trosku vacsi ja potrebujem take nieco ze sa to zavesi na masinu v sieti a
> zisti aky tam je OS aky hardware je na tej masine no prosite taky checker.
> Dakujem krasne za vsetky napady.
>
> S pozdravom Robert Suska
>
>Remote time
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 13.12.2001 21:33:20
> nevite nekdo jak zjistim aktualni cas na jinem pocitaci
(sorry, ze reagujem na mesiac stary dotaz, nestiham citat :-)
Napadlo ma, ze ak na tom stroji nebezi ziaden servis schopny poskytnut udaj
o case, ale daju sa na nom zdielat subory, skusil by som na nom vytvorit
subor a potom sa spytat na cas jeho vytvorenia.
bye
vmlich http://www.rar(tec)cz
Licence, freeware, komponenty ze zahranici
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.2001 02:54:00
Ahoj,
preposilam mail od Jardy Skerika, ktery v soucasne dobe neni
clenem konference Delphi, proto nemuze reagovat primo.
Diakritiku nebudu
------- Forwarded message follows -------
From: Jaroslav �ke��k <jaro(zv)sinea(tec)cz>
To: <petr(zv)zahradnik(tec)cz>
Subject: Fw: Licence, freeware, komponenty ze zahranici
Date sent: Fri, 14 Dec 2001 02:42:38 +0100
Muj vlastni nazor je tento:
--------------------------
1. Podstatna chyba spociva v tom, ze dotycny se obratil na danove poradce a
dohaduje
se s uredniky FU, tedy s lidmi, kteri problematice SW a dokonce i autordkemu
pravu pramalo rozumi. Je potreba se obratit na pravni poradny.
2. Vse se toci kolem tzv. ceny obvykle, coz je nejvetsi zhovadilost naseho
ucetniho
a danoveho systemu. Bohuzel tento pojem existuje a danove urady zde maji
znacne pravomoci.
3. Je take pravda, ze pokud nelze prokazatalne dolozit danove zaklady (napr.
mnozstvi
a hodnotu poskytnutych daru) maji danove urady opet dost siroke pravomoci
vytvorit vlastni vymery na zaklade odhadu. Presnejsi metodiky neznam.
4. Spolu s Vonesem zastavam nazor, ze obvykla cena freeware software je 0
Kc, coz
vyplyva z jeho podstaty. Dale pak freeware programy povazuji za velmi levne
a ucinne "nosice reklamy" podobne, jako treba papir. To, ze prinaseji
uzitnou hodnotu je
vedlejsi, nebot papir i potisknuty take. Bohuzel danove urady se mym nazorem
nemusi ridit.
5. Pripadnemu konfliktu s FU je tedy potreba predejit
Dle meho nazoru to nejlepe resi software 602 s jejich free balikem Office,
tim, ze poskytuje legalni
a bezplatnou licenci kazdemu, kdo se registruje a pouze tomu, kdo se
zaregistruje.
Pokud si tedy stahnu software a zaregistruji se, teprve obdrzim registracni
cislo.
Diky registraci nesu pripadnou odpovednost za priznani daru ja sam,
coby obdarovany, nikoliv vsak SW 602. Nevim, jaka je limitni castka pro
priznani daru,
ale zrejme se vejdu. Se stanovenim ceny bude problem, jelikoz nelze urcit
"obvyklou cenu"
dle srovnatelneho software, ktere neni freeware, nebot freeware miva
omezenou funkcnost,
neposkyteje servis, zaruky a pod. Dle meho nazoru je prave proto jeho cena
nulova,
coz je vzdy a proto je to cena obvykla.
Pokud nekdo pouziva takovy freeware bez registrace, pouziva ho nelegalne a
opet
je to tedy mimo danovou povinnost poskytovtele freeware.
Jestlize tedy nekde stanovim, ze podminkou uziti meho freeware je nutnost
registrace,
jsem z toho venku a nemusim se s nikym dohadovat o cene.
Dale povazuji za podstatne, ze freeware je atorske dilo, ktere se ridi
autorskym zakonem
a musi se s nim nakladat jako s jakymkoliv jiny,m autorskym dilem.
Takze podle stejneho principu musi zaplatit darovaci dan za nezname
uzivatele autori napr. hudebnich del.
Dan musi zaplatit za kazdeho obcana teto zeme, ktery si u taboraku zazpiva
jejich pisnicku.
Prokazatelne tak vyuziva uzitne hodnoty dila, nebot si zlepsil naladu,
zdravi, pobavil sebe i druhe,
coz je jasne uziti autorskeho dila. Pocet licenci by se mohl stanovit napr.
statistickym poctem lidi
v teto zemi, kteri mohou zpivat, coz je opet obdoba snahy vypocitat dan dle
pocitadla web stranky :-)
Konecne proc by tento stat mel bohatnout pouze na programatorech, kdyz dle
stejneho zakona
muze bohatnout na vsech autorech jakychkoliv del, ktere mohou byt vyuzivany
i bez
vedomi autora = obdoba definice freeware
Jaro
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Freeware a Petr Vones
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.2001 03:38:39
Pratele,
uvedomujete si vubec, v jake situaci je ted Petr Vones?
On tady nejvic radi a zadarmo, a vy z tech rad neplatite
dane, takze ted za nim muze prijit financak a pekne to
od nej vsechno vybere... a je tu skoro tisic ucastniku,
to bude mastny...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Lock tabulky pri Selectu
[*] ing. Pavel #ilinec����)b���zf�#�3 - 14.12.2001 05:50:35
Zkus se podivat u MSSQL v helpu na SET TRANSACTION ISOLATION LEVEL.
Podle jeho nasatveni na SQL se prave muze stat takova situace, jakou
popisujes.
------
ing. Pavel �ilinec
mailto:zilinec(zv)email(tec)cz
13.12.2001 Michal Michal:
> D3 Prof, BDE, MSSQL 7.0
> Pokud tento dotaz (TQuery) spustim v programu 1 (jen Open) a v programu
> 2 (napr. Query Analyzer) spustim UPDATE na tabulku A nebo B, tak zamrzne
> (chovani jako by ho program 1 zamknul transakci. Program 2 by dosel az k
> "Lock time out"). Pokud ale v programu 1 po Updatu spustim jiny dotaz
> (napr. "Select 1" nebo i "--" - proste neco), tak se to uvolni a UPDATE
> probehne.
> Dale jsem zjistil, ze mohu hned po OPEN zavolat FetchAll a tim se
> odblokuje. Po OPEN se nic nezobrazi v Profileru, ale po FetchAll se tam
> uz ten dotaz zobrazi.Delphi neni instalovano - upresneni
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.12.2001 07:17:25
> Ten program mi nejede, dokud nenaistaluji Delphi. Pomoc�
> PreFuncExample z JCL jsem si zjistil jake knihovny to pry pouziva. Na
> zkousenem pocitaci chybely. Zkopirovani knihovny nepomaha - mus� byt
> zaregistrovana a nevim jak na to.
Tak jeste jednou: bez konkretnejsich informaci se neda nic
rozumneho poradit. S takto velmi neurcitou specifikaci problemu se
ani nema smysl zabyvat hledanim spravneho reseni a jde dat jen
odpovedi, ktere Ti v konfere uz prisly.
To je tak tajne, uvest aspon o ktere knihovny jde? Osobne si
stale myslim, i kdyz to jiste nemusi byt pravda, ze prekopirovani dll
ziskanych takto netradicnim zpusobem mozna vyresi ten problem
a aplikace pujde spustit, ale verim, ze ve skutecnosti jde o soucast
nejakeho baliku, ktery je vyzadovan. At uz BDE, ODBC, ADO nebo
neco jineho. Kopirovani jen vybranych knihoven pak muze byt jen
castecnym resenim problemu, navic to muze byt nelegalni.
Pokud se pletu, sorry.
David Lebeda
NT domena
[*] EFG developer <developer(zv)efg(tec)cz> - 14.12.2001 07:21:05
Zdravim, potreboval bych overit jestli uzivatel existuje v NT domene.
Vim domenu, jmeno a heslo.
Nejlepe nejakou API fci s kratkym prikladkem....
dekuji
Petr Sikola
RichEdit komponenta
[*] DARVIS konference Delphi <delphi(zv)darvis(tec)cz> - 14.12.2001 07:25:09
>
> Tohle me zaujalo. Skusil jsem si stahnout trial. Dal jsem to na form a
> natahl jsem si tam text pres LoadRTFFromStream - ale nic mi
> to neukazuje.
> Dival jsem se na Demo, ale tam jsem zadne demo na
> LoadRTFFromStream nenasel.
> Nemas s tim nejake zkusenosti?
Po Load musis dat tusim Format nebo neco podbneho. Pak se to teprve zobrazi.
Vlada win 2K
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 14.12.2001 07:32:01
Cauec,
beru to po pameti, jedu pod Win NT...
>
> Pokusne jsem presel na W2K. Neznate nekdo stranky, kde se nachazeji tipy a
> navody, jak tento system nastavit tak, aby se dal slusne pouzivat.
Napriklad
> chci zrusit tu pitomost s Ctrl+Alt+Del pred prihlasenim do systemu.
Potazmo
> bych chtel prihlasovani zrusit uplne a nechat jen administratora.
V ovladacich panelech jsou Uzivatele a hesla. Tam zapisujes vsechny usery s
pristupem. Koukni, jestli tam neni zaskrtnut checkbox "prihlasovat pri
startu" ci tak nejak. Pokud jo, tak to zrus.
Bye Ludan
Dynamic arrays - Delphi6 vs C++
[*] #imek Ji�� <Jiri.Simek(zv)czech-tv(tec)cz> - 14.12.2001 07:47:24
> var plong:^longint;
> -ale tohle uz nejde
> var pplong:^^longint; /* long **pplong; */
ale jde to takhle
var plong: ^longint;
pplong: pointer;
pplong:=(zv)plong;
Ja ale nemam problem se ctenim hodnot z toho pole,
ja mam problem s udaji o delce toho pole a padani programu pri uvolnovani
pole z pameti.
JirkaS
Freeware a Petr Vones
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 14.12.2001 08:00:09
> uvedomujete si vubec, v jake situaci je ted Petr Vones?
> On tady nejvic radi a zadarmo, a vy z tech rad neplatite
> dane, takze ted za nim muze prijit financak a pekne to
> od nej vsechno vybere... a je tu skoro tisic ucastniku,
> to bude mastny...
Bezna cena rady v teto konferenci je 0 Kc, nebo ne?
T.Ukazuje UNC na lokalny pocitac?
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 14.12.2001 08:02:21
Ahoj,
v programe pracujem so subormi na sieti, na ktore
sa odkazujem pomocou UNC specifikacie
\\computer\shareddirectory\filename.
Subory si spristupnujem cez WNetAddConnection.
Problem nastane, ak je niektory z tychto suborov na lokalnom pocitaci.
Vtedy mi WNetAddConnection vrati chybu.
Da sa nejak zistit, ci UNC ukazuje na niektory
lokalny subor a urcit jeho skutocnu cestu v tvare
Disk:\directory\filename ?
Vdaka.
Vlkovic
Lock tabulky pri Selectu
[*] Michal Michal <delphi-konference(zv)bcpraha(tec)com> - 14.12.2001 08:03:39
Bohuzel, ja nechci uncommitted data. Ja chci udelat jeden obycejnej
update na data, ktery nejsou v transakci aktualizovana. Myslel jsem, ze
tak moc po serveru nechci.
Docela je zajimavy, ze pokud si takto udelam velky select (na napr.
milion zaznamu, ktery se mi jasne nepodari stahnout) a dam open a close,
tak to probehne rychle a nic se nedeje. Ale pokud dam open a potom open
na jiny dotaz (napr. select 1), tak se ten prvni kousne (kvuli mnozstvi
dat). Paradoxni mi prijde (a ohavne na ladeni), ze ten mali nicotny
dotaz to vsechno spusti?!
Michal
> pak jeste jak uz bylo zminovano
>
> SET TRANSACTION ISOLATION LEVEL ...
>
> nebo jeste do dotazu pridat
>
> SELECT ... WITH (NOLOCK)
>
> Marek Muller
>
> -----Original Message-----
> To bohuzel nepomaha.
> Viz help - popis mapovani TDatabase.TransIsolation
> na TransIsolation Level na MS SQL Serveru:
> tiDirtyReadt ... iReadCommitted
> tiRepeatableRead ... tiReadCommitted
> tiReadCommitted ... Not supported
>
> ----- Original Message -----
> TDatabase.TransIsolation := tiDirtyRead
>
Class -> Interface
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 14.12.2001 08:11:24
Ahoj,
protoze obcas mivam problem s uvolnovanim objektu, ktere mam zapsany ve
vice seznamech apod. chtel bych zkusit svoje objekty naucit reference
couting - jestli jestli jsem pochopil, tak to delphi podporuje, pokud
misto promennych typu Class zacnu pouzivat Interface. Neni mi ale uplne
jasny jak je spravne udelat ten presun.
Mam-li objekt TMyObject a k nemu promennou MyObject : TMyObject, tak mam
udelat co? Staci pouze udelat :
type
IMyObject = interface( TMyObject );
var
MyObject : IMyObject;
Nebo je nekde potreba udelat podedeni od IUnknown? A jak kdyz mam
TMyObject2 = class( TMyObject ) (tedy naslednika), tak pak IMyObject2 =
interface( TMyObject2 )? A funguje, ze muzu IMyObject2 dat tam kde
ocekavam IMyObject?
Honza +Ukazuje UNC na lokalny pocitac?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.12.2001 08:30:04
Jedne me napada porovnat jmeno pocitace se jmenem pocitace v UNC
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.12.2001 Peter Vlkovic:
> Ahoj,
> v programe pracujem so subormi na sieti, na ktore
> sa odkazujem pomocou UNC specifikacie
> \\computer\shareddirectory\filename.
> Subory si spristupnujem cez WNetAddConnection.
> Problem nastane, ak je niektory z tychto suborov na lokalnom pocitaci.
> Vtedy mi WNetAddConnection vrati chybu.
> Da sa nejak zistit, ci UNC ukazuje na niektory
> lokalny subor a urcit jeho skutocnu cestu v tvare
> Disk:\directory\filename ?
> Vdaka.
> Vlkovic
Prevod cisla tydne
[*] Radek Zdrazil <radek.zdrazil(zv)vitkovice(tec)cz> - 14.12.2001 08:38:39
{ Prevod tydne na datum - je treba zadat rok a den v tydnu }
function WeekToDateTime(const Year, Week, Day: Integer): TDateTime;
const
FirstWeekDay = 2;
FirstWeekMinDays = 4;
begin
Result := EncodeDate(Year, 1, FirstWeekMinDays);
Result := Result + (Week - 1) * 7 - ((DayOfWeek(Result) + (7 -
FirstWeekDay)) mod 7) + Day - 1;
end;
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Sebesta Jan
> Sent: Tuesday, December 11, 2001 9:24 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Prevod cisla tydne
>
>
> Zdrav�m Delphiky,
>
> M�m probl�m - pot�ebuji z roku a ��sla t�dne vr�tit datumy
> PO a NE toho
> zadan�ho t�dne.
>
> P�. rok 2001 a t�den 50 = 10.12.2001 - 16.12.2001 pro CZ
>
> Ne�e#il jste to ji� n�kdo?
> Nelezl jsem rozd�l v ��slovan� pro �esk� a nap�. n�meck� kalend߰.
> Jsou n�jak� pravidla pro ��sla t�dne?
> Pro� n�kdy za��n� �. 1 a n�kdy 2 ?
>
> D�kuji za cokoli Jan �ebesta
>Ukazuje UNC na lokalny pocitac?
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 14.12.2001 08:41:29
> ing. Jan Fiala
> Jedne me napada porovnat jmeno pocitace se jmenem pocitace v UNC
O tom som uz uvazoval.
Ale ako UNC previest na tvar "disk:\directory\filename" ?
Zdielana cesta nemusi presne zodpovedat nazvu lokalnej
cesty (nehovoriac o tom, ze neviem, na ktorom vlastne
disku je subor umiestneny).
Jedine, co ma napadlo je hladat v registri.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan
Kde mam vsak zaruku, ze tato cesta je na vsetkych OS rovnaka?
Vlkovic
> > v programe pracujem so subormi na sieti, na ktore
> > sa odkazujem pomocou UNC specifikacie
> > Problem nastane, ak je niektory z tychto suborov na lokalnom pocitaci.
> > Vtedy mi WNetAddConnection vrati chybu.Licence, freeware, komponenty ze zahranici
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 14.12.2001 08:47:00
Problematika, kterou tu probirame, je docela dobrym prikladem, v jakem duchu
a kam se ubiraji nase zakony a statni administrativa. Samozrejme, ze se
vetsina obtizi da vyresit, nebo po cesku obejit, kamenem urazu se ale stava
fakt, ze zakony jsou ve sve snaze postihnout kdejakou drobnost natolik
komplikovane (aby nedej boze poplatnik treba neco malo neusetril), ze jim
proste malokdo opravdu rozumi, vcetne vetsiny specialistu. A to se ani
nezminuji o tempu, s jakym dochazi k jejich zmenam. Takze namisto toho, aby
prumerny clovek byl schopen zakon precist, porozumet mu a efektivne se jim
dlouhodobe ridit, jsme odkazani na ruzne nezavazne pravni nazory a v
konecnem dusledku vydani na milost urednika. Za dobry pravni predpis
povazuji napriklad Pravidla silnicniho provozu - ty se celkem rychle naucite
a muzete jezdit. Jsou zalozeny na jasnych principech, ktere pokryvaji
podstatu problematiky.
Proc to sem pisi? Protoze se mi nelibi stav, kdy namisto podpory produktivni
lidske cinnosti vitezi byrokracie. Vsimnete si, ze vzdy byly ekonomicky
prosperujici ty staty, ktere se snazili primet sve obcany k praci. Co
udelaly USA za velke krize 30. let - intenzivne podporily ty, kteri se
snazili pracovat a podnikat. Nam se ale muze stat, ze za par let bude
jakakoliv normalni lidska snaha o samostatnou cinnost (nejen podnikani) tak
svazana silenymi zakony a predpisy, za opet bude nejlepsi vykazovat
minimalni aktivitu a nekde v tichu prezivat. Opet zduraznuji, ze se nejedna
jen o podnikani - vemte si treba predpisy, kterymi se ridi letni detske
tabory, podle nichz je v podstate nemyslitelne, aby nekolik dospelych jelo s
detmi svych kamaradu na tyden na cundr nebo se jen tak valeli nekde na louce
(nemaji zajiste spravny zdroj pitne vody, latriny, ...).
Jedna z variant, jak tento neblahy stav zmenit, je kontaktovat sve poslance
a senatory, vysvetlovat, presvedcovat, urgovat, atd. Od toho tady jsou, aby
plnili spolecenskou objednavku, a ta vypada tak, ze prednost dostava ten,
kdo se ozve. Mlcici vetsina ma proste smulu. Ja jsem si dopisoval se svym
senatorem panem Outratou (mimochodem velmi sympatickym a zrejme chytrym
panem) a hodlam v tom pokracovat. Toto je tedy moje dlouhodobe reseni
problemu freeware. Nebylo by to hned (mozna ze nikdy), ale prijde mi to
perspektivnejsi v celkovych souvislostech, nez cely zivot premyslet nad tim,
na co mne urednici zase dostanou.
S pozdravem D.Redlich
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.12.2001 08:54:18
>jasne, ze 4B, me se spis jednalo o tohle
><C>
>unsigned long - LONG_MIN = 0
> LONG_MAX = 2^32
><pascal>
>longint - LONG_MIN = -2^31
> LONG_MAX = 2^31-1
>longword - LONG_MIN = 0
> LONG_MAX = 2^32
Nejsem si jist, zda jsem Te pochopil, ale pri pretypovani v Pascalu se
zadne orezavani nedela ( nedavno jsem hledal chybu v jednom C zdroji a
v zivote me nenapdalo ze unsigned char promenna nikdy nebude obsahovat
znaky vussi nez 127 (tedy ceske) protoze je C kod urizne). Cili je bez
problemu mozne prevest hodnotu Integeru na Pointer a naopak bez ztraty
kvetinky...
D. Toman
Freeware a Petr Vones
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 14.12.2001 09:00:17
On 14 Dec 2001 at 8:00, Tomas Vladik wrote:
> > uvedomujete si vubec, v jake situaci je ted Petr Vones?
> > On tady nejvic radi a zadarmo, a vy z tech rad neplatite
> > dane, takze ted za nim muze prijit financak a pekne to
> > od nej vsechno vybere... a je tu skoro tisic ucastniku,
> > to bude mastny...
>
> Bezna cena rady v teto konferenci je 0 Kc, nebo ne?
No jo, ale kdyz se to ohodnoti beznou sazbou konzultace, treba 1000 Kc/hodinu, pak Petr tomu
venuje dejme tomu 10 hodin mesicne, * 1000 ucastniku, to je 10 000 000 ke zdaneni za mesic,
120 000 000 za rok. No te pr......
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Lock tabulky pri Selectu
[*] Michal Michal <delphi-konference(zv)bcpraha(tec)com> - 14.12.2001 09:04:02
Jeste jsem udelal takovy mali pokus. Udelal jsem malou aplikaci se dvema
query: q1 je blokujici select a q2 je update. Pokud v programu 1 spustim
q1 a programu 2 q2 tak update probehne. V tehle male zkusebni aplikaci
to vubec nevadi a nic se neblokuje??!!
Pokud se ale toto spusti v tom nasem vetsim programu (cehoz se tykala
prvotni otazka), tak se to sekne.
Dekuji za odpovedi
Michal
Lock tabulky pri Selectu
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.12.2001 09:25:23
Ale ono je to chovani BDE svym zpusobem logicke, snaz se ho pochopit...
Pokud udelas select - Open a hned Close, pak jsi nepotreboval zadna data,
neprovadel se Fetch a proto to bylo rychle.
Pokud udelas select - Open, nedas Close a udelas jiny select - Open - tak
bys asi ocekaval, ze BDE vytvori novy connection na databazi a v nem ten
druhy select, ale to se nestane, BDE udela ten druhy select ve stejnem
connectu (to neni tak hloupe, jak by se mohlo zdat, kdybys mel SQL
Workstation s max. 15 connecty, tak by Ti brzy doslo, ze tudy cesta nevede).
Aby mohlo BDE otevrit novy select musi se nejak vyporadat s tim starym, ale
ten jsi jeste nezavrel - no a tak BDE nema jinou sanci, musi si vsechna data
presypat na lokalni PC aby zustala pro Tebe pristupna i pote, co na tento
connect pusti novy select.
Jedina cesta je zacit premyslet client - serverove. Snaz se neptat na data,
ktera nepotrebujes. Jestlize udelas select na milion vet, pak se ptam k cemu
Ti je milion vet, prece neni nikdo, kdo by si je dokazal prohlednout. Kdyz
budes delat select na 50 vet (coz je tak asi maximum, ktere muze normalni
clovek videt a uvazovat najednou), tak nebudes mit zadny problem.
Dale - pokud udelas select s hintem WITH (NOLOCK) jak dobre radil predchozi
mail, tak o nic neprijdes, jen se zbavis toho lockovani, ktere je take
celkem pochopitelne.
K tomu lockovani - pokud das SET TRANSACTION ISOLATION LEVEL READ COMMITED -
tak bys mozna ocekaval, ze uvidis zmeny az po COMMIT TRAN a do te doby
uvidis puvodni podobu vet. Ale tak tomu neni, ve skutecnosti se stane, ze
jakmile nekdo zacne pracovat s danou vetou tak ji zamkne a ty ji nemuzes
videt vubec, dokud neda COMMIT TRAN. Tohle je hodne neprijemne a v podstate
je tahle izolacni uroven pro beznou praxi nepouzitelna. Kdyby aspon server
nahlasil, ze je veta zamknuta a dal programatorovi sanci nejak se s tim
vyporadat, ale to on neudela, jen ceka dokud mu nevyprsi timeout.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Michal Michal
Sent: Friday, December 14, 2001 8:04 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Lock tabulky pri Selectu
Bohuzel, ja nechci uncommitted data. Ja chci udelat jeden obycejnej
update na data, ktery nejsou v transakci aktualizovana. Myslel jsem, ze
tak moc po serveru nechci.
Docela je zajimavy, ze pokud si takto udelam velky select (na napr.
milion zaznamu, ktery se mi jasne nepodari stahnout) a dam open a close,
tak to probehne rychle a nic se nedeje. Ale pokud dam open a potom open
na jiny dotaz (napr. select 1), tak se ten prvni kousne (kvuli mnozstvi
dat). Paradoxni mi prijde (a ohavne na ladeni), ze ten mali nicotny
dotaz to vsechno spusti?!
Michal
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.12.2001 09:29:45
> Ja ale nemam problem se ctenim hodnot z toho pole,
> ja mam problem s udaji o delce toho pole a padani programu pri
uvolnovani
> pole z pameti.
Myslel jse, ze je jasne, ze nemuzes to pole pouzivat jako dynamicke.
Proste proto, ze ta funkce nevraci
dynamicke pole ale pointr na obycejne pole. Pocet radku pole vraci
jina hodnota toho pole.
Neni problem si to pole natypovat jako staticke:
TPole = Array[0..1] of PChar;
(pokud to pole obsahuje pointry na zero-terminated stringa)
a pak jej pouzivat:
ppnParams : ^TPole;
I,pnCount : DWord;
DigitaListAllParameters(hCamera,pnCount,ppnParams);
For I := 0 to pnCount do
begin
writeln (ppnParams^[I]);
end;
CoTaskMemFree(ppnParams,...) (nedival jsem se na syntaxi....)
D. Toman
Freeware a Petr Vones
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.12.2001 09:32:26
Rekl bych, ze je to jinak. Petr dela podporu pro Borland, ktery ji dostal
zaplacenu, kdyz nam prodaval licence Delphi. Protoze Borland neni schopen
zajistit tak kvalitni podporu ve vlastni rezii, dela ji Petr pro nej (ze to
dela zdarma, je jaksi jeho problem). Takze by to mel zdanit Borland a to
pokud mozno v dolarech, at si financaci trochu uziji. Borland nam pak zdrazi
licence (coz uz preventivne dela dlouho), cimz stoupne HDP a vlada se bude
jeste vice chlubit svymi uspechy. Touto cestou se nejrychleji priblizime
svym HDP urovni EU a budeme moci zavest Euro. Coz bude dalsi dobry duvod ke
zdrazeni SW a tim i k rustu HDP, takze brzy nejen predstihneme prumer EU,
ale ve stopach Irska vysplhame na spici. No a pak uz jen porucime vetru,
desti...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zbysek Hlinka
Sent: Friday, December 14, 2001 9:00 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Freeware a Petr Vones
On 14 Dec 2001 at 8:00, Tomas Vladik wrote:
> > uvedomujete si vubec, v jake situaci je ted Petr Vones?
> > On tady nejvic radi a zadarmo, a vy z tech rad neplatite
> > dane, takze ted za nim muze prijit financak a pekne to
> > od nej vsechno vybere... a je tu skoro tisic ucastniku,
> > to bude mastny...
>
> Bezna cena rady v teto konferenci je 0 Kc, nebo ne?
No jo, ale kdyz se to ohodnoti beznou sazbou konzultace, treba 1000
Kc/hodinu, pak Petr tomu
venuje dejme tomu 10 hodin mesicne, * 1000 ucastniku, to je 10 000 000 ke
zdaneni za mesic,
120 000 000 za rok. No te pr......
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Presun Formu
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 14.12.2001 09:36:20
Ahoj lidi,
mam TForm bez okraje (BorderStyle=bsNone) a pohybuji s nim. Vse funguje ale
pri pohybu se form kompletne prekresluje. To je v poradku ale ja bych chtel
aby pri presunu nedochazelo k uplnemu prekreslovani ale jen k vykresleni
jeho obrysu (ctyruhelnik). K uplnemu prekresleni by doslo az na konci
presunu. Pouzitim LockWindowUpdate() jsem sice schopen uplne zakazat
prekreslovani ale to neni ono a ja bych chtel pri presunu zviditelnit okraj
podobne jak to delaji Windows se standardnim formem. Nevite jak na to?
Jara.
svehla(zv)spelza(tec)cz
Freeware a Petr Vones
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 14.12.2001 09:36:53
Houbelec, tohle je hodne pritazene za vlasy a velmi
nepravdepodobne...
Co mam rikat my, kteri produkujeme hromady freeware??? proti tomu
jsou potencalni problemy Petra Vonese prochazka ruzovym sadem!
> uvedomujete si vubec, v jake situaci je ted Petr Vones?
> On tady nejvic radi a zadarmo, a vy z tech rad neplatite
> dane, takze ted za nim muze prijit financak a pekne to
> od nej vsechno vybere... a je tu skoro tisic ucastniku,
> to bude mastny...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Freeware a Petr Vones
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.12.2001 09:45:09
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
> Pratele,
>
> uvedomujete si vubec, v jake situaci je ted Petr Vones?
> On tady nejvic radi a zadarmo, a vy z tech rad neplatite
> dane, takze ted za nim muze prijit financak a pekne to
> od nej vsechno vybere... a je tu skoro tisic ucastniku,
> to bude mastny...
Az zije Oceanie.
Jenze tam byla totalita vynucena nasilim. My si ji ovsem (jak se zda) volime
sami.
Ludek
P.S. Mozna je v teto souvislosti vhodne oznamit tem, kteri to jeste nevedi,
ze minulou sobotu zemrel ve veku 56 let Ladislav Zajicek.
Kontroverzni postava ceskeho internetu (m.j. autor knizky Bity do bytu o
programovani v assembleru Z80), ktereho by podobne absurdita a IMHO zasah do
elementarnich lidskych prav urcite nenechala v klidu.
Bohuzel od nej se jiz zadneho poradne kousaveho clanku na tohle tema
nedockame.
Pos a AnsiPos
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.12.2001 09:46:34
Ahoj,
jaky je vlastne rozdil mezi Pos a AnsiPos? Z helpu jsem to
nedokazal zjistit.
Dik.
David Lebeda
Dynamic arrays - Delphi6 vs C++
[*] Simek Jir� <Jiri.Simek(zv)czech-tv(tec)cz> - 14.12.2001 09:47:00
> >jasne, ze 4B, me se spis jednalo o tohle
> ><C>
> >unsigned long - LONG_MIN = 0
> > LONG_MAX = 2^32
> ><pascal>
> >longint - LONG_MIN = -2^31
> > LONG_MAX = 2^31-1
> >longword - LONG_MIN = 0
> > LONG_MAX = 2^32
>
>
> Nejsem si jist, zda jsem Te pochopil, ale pri pretypovani v Pascalu se
> zadne orezavani nedela ( nedavno jsem hledal chybu v jednom C zdroji a
> v zivote me nenapdalo ze unsigned char promenna nikdy nebude obsahovat
> znaky vussi nez 127 (tedy ceske) protoze je C kod urizne). Cili je bez
> problemu mozne prevest hodnotu Integeru na Pointer a naopak bez ztraty
> kvetinky...
Tohle ma prece vyznam jenom pri matematickych operacich.
V pameti zabiraji vzdycky 4byte a muzou mit hodnotu od $00000000 do
$FFFFFFFF.
Kdyz scitate unsigned long, vysledek bude vzdycky kladne cislo.
Kdyz scitate long, tak cisla >2^31 se berou jako zaporna a podle toho pak
vypada vysledek.
JirkaS
OT: W@P a cestina
[*] Jirka Kr�l jr. <admin(zv)printo(tec)cz> - 14.12.2001 09:51:28
Ahoj vespolek,
marne hledam po netu jaky tag pouzit pro ozn. kodove stranky na sve W(zv)P
strance. Oskari zpravy mam na mobilu cesky, ale ja se zmuzu jen na ctverecky
misto tech nasich (zv)!%$%(zv)$% nabodenicek
Nevite nekdo
a) reseni
b) kde hledat
je to OT, takze kdyz tak odpovedi prosim tady: mailto:admin(zv)printo(tec)cz
diky moc
J.
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)mujoskar(tec)cz
ICQ# 15303940
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.12.2001 09:52:49
Pockej, ted jsem te zas nepochopil ja.....
pascal zase neni tak moje parketa, ale nic mi nezbyva nez v nem delat...
unsigned znamena neznamenkovy
takze kdyz udela neco takovyho
<C>
unsigned long *pole;
pole[0]=4294960000;
<pascal> -pak se to ulozi pres do DLL do tohoto pole
var pole:array of longint;
tak musim zakonite udelat tohle, protoze cekam hodnotu vis
a:=pole[0]; // v tomhle je ted hodnota -XXXXXXXX
longword(pole[0]); // a proc, kdyz uz ho muzu rovnou deklarovat longword
nebo se mylim.....
s tim unsigned char to taky nechapu
<C> char <pascal> ShortInt
<C> unsigned char <pascal> Byte
v C jsou char definovany trochu jinak nez v pascalu
tak potom uz to zalezi jen na kodovani cestiny....proc by to mel orezavat....
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
>>> dtoman(zv)fortech(tec)cz 14.12.01 8:54 >>>
>jasne, ze 4B, me se spis jednalo o tohle
><C>
>unsigned long - LONG_MIN = 0
> LONG_MAX = 2^32
><pascal>
>longint - LONG_MIN = -2^31
> LONG_MAX = 2^31-1
>longword - LONG_MIN = 0
> LONG_MAX = 2^32
Nejsem si jist, zda jsem Te pochopil, ale pri pretypovani v Pascalu se
zadne orezavani nedela ( nedavno jsem hledal chybu v jednom C zdroji a
v zivote me nenapdalo ze unsigned char promenna nikdy nebude obsahovat
znaky vussi nez 127 (tedy ceske) protoze je C kod urizne). Cili je bez
problemu mozne prevest hodnotu Integeru na Pointer a naopak bez ztraty
kvetinky...
D. Toman
Pos a AnsiPos
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.12.2001 09:58:44
ANSIPos pocita i multibyte znaky. Jinak v tomto pripade jiny rozdil
asi nebude, protoze funkce je case sensitive
Horsi uz je to ve funkcich, ktere nejsou case sensitive.
Tam uz mezi CompareText a AnsiCompareText nebo SameText a AnsiSameText
rozdil je. ANSI budou pracovat i s diakritikou.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.12.2001 Lebeda David:
> jaky je vlastne rozdil mezi Pos a AnsiPos? Z helpu jsem to
> nedokazal zjistit.OT: W@P a cestina
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.12.2001 10:01:10
Musis diakriticke znaky prevadet do tvaru á je to hexa unicode.
Jinak tohle za tebe dokaze udelat PSPad http://pspad.zde(tec)cz.
Nastroje/konverze textu/Konverze znaku pro WML
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.12.2001 "Jirka Kr�l jr.":
> Ahoj vespolek,
> marne hledam po netu jaky tag pouzit pro ozn. kodove stranky na sve W(zv)P
> strance. Oskari zpravy mam na mobilu cesky, ale ja se zmuzu jen na ctverecky
> misto tech nasich (zv)!%$%(zv)$% nabodenicek
Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.12.2001 10:04:12
A nebude potom problem s tim predanym ukazatelem
void CoTaskMemFree(void *pv /*Points to memory block to be freed*/);
>Kdyz na konci procedury zavolam CoTaskMemFree((zv)aParam) z ole32.dll tak to
>dopadne uplne stejne.
ani nevim jestli v pascalu existujou neco jako bazove, genericke ukazatele
(zv)aParam - rekl bych, ze tohle je bazovej ukazatel....
void *pv; - to je genericky ukazatel - mam takovej dojem, ze obsahuje jen segment
Ale to asi nebude ten problem, jinak uz fakt nevim.....
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
Presun Formu
[*] ing. Pavel #ilinec����)b���zf�#�3 - 14.12.2001 10:05:36
Zrovna predevcirem jsem si vyzkousel, ze mnou vytvorene formulare se
pri zmene velikosti chovaji prave podle nastaveni vlastnosti plochy ve
Windows (W2k), kde jsem si zaskrtaval "Behem pretahovani zobrazit
obsah okna".
------
ing. Pavel �ilinec
mailto:zilinec(zv)email(tec)cz
14.12.2001 SPELZA s.r.o.:
> Ahoj lidi,
> mam TForm bez okraje (BorderStyle=bsNone) a pohybuji s nim. Vse funguje ale
> pri pohybu se form kompletne prekresluje. To je v poradku ale ja bych chtel
> aby pri presunu nedochazelo k uplnemu prekreslovani ale jen k vykresleni
> jeho obrysu (ctyruhelnik). K uplnemu prekresleni by doslo az na konci
> presunu. Pouzitim LockWindowUpdate() jsem sice schopen uplne zakazat
> prekreslovani ale to neni ono a ja bych chtel pri presunu zviditelnit okraj
> podobne jak to delaji Windows se standardnim formem. Nevite jak na to?
> Jara.
> svehla(zv)spelza(tec)cz
Lock tabulky pri Selectu
[*] Michal Michal <delphi-konference(zv)bcpraha(tec)com> - 14.12.2001 10:39:41
Nechtel bych ani nedoslo k omylu, ale ten problemovy dotaz je velky co
do vyhodnoceni a ne co do objemu (cca 341 zaznamu), to byl jen priklad
jak ten problem otesovat (zkousel jsem uz vsechno mozne). A "client -
serverove jsem zacal premyslet", ale pokud by me chtel nekdo nejak
zaskolit, tak si muzeme pokecat o C/S.
Ten priklad s velkym objemem dat jsem uvadel jako priklad: jak je mozne
ze select (at je velky jak chce) mi blokuje cizi update. Snaz se
pochopit me, hledam vysvetleni jak je mozne, ze jedna aplikace otevre
dotaz (Open) a nic nedela (uzivatel udejde). Ta aplikace netusi ze neco
blokuje, protoze je to select ???!!!!
Vsechny updaty jsou v kratickych transakcich udelany tak, aby nikoho
neblokovali !!!! To je jasne !!!!
Problem je jasny: ta aplikace, ktera chce neco aktualizovat, tak uz s
tim nemuze nic udelat (jak jsi rekl), ale bohuzel ta co blokuje tak taky
ne, protoze to nevi, ze neco blokuje. Jedine je po kazdem Open zavolat
FetchAll, ale to je take spatne reseni (jak jsi psal - to je jasne).
Jeste neco, to problemove query je CacheUpdates a update se provadi
pomoci UpdateSQL (jestli to nemuze mit na to vliv).
Michal
> Ale ono je to chovani BDE svym zpusobem logicke, snaz se ho
pochopit...
>
> Pokud udelas select - Open a hned Close, pak jsi nepotreboval zadna
data,
> neprovadel se Fetch a proto to bylo rychle.
>
> Pokud udelas select - Open, nedas Close a udelas jiny select - Open -
tak
> bys asi ocekaval, ze BDE vytvori novy connection na databazi a v nem
ten
> druhy select, ale to se nestane, BDE udela ten druhy select ve stejnem
> connectu (to neni tak hloupe, jak by se mohlo zdat, kdybys mel SQL
> Workstation s max. 15 connecty, tak by Ti brzy doslo, ze tudy cesta
nevede).
> Aby mohlo BDE otevrit novy select musi se nejak vyporadat s tim
starym, ale
> ten jsi jeste nezavrel - no a tak BDE nema jinou sanci, musi si
vsechna data
> presypat na lokalni PC aby zustala pro Tebe pristupna i pote, co na
tento
> connect pusti novy select.
>
> Jedina cesta je zacit premyslet client - serverove. Snaz se neptat na
data,
> ktera nepotrebujes. Jestlize udelas select na milion vet, pak se ptam
k cemu
> Ti je milion vet, prece neni nikdo, kdo by si je dokazal prohlednout.
Kdyz
> budes delat select na 50 vet (coz je tak asi maximum, ktere muze
normalni
> clovek videt a uvazovat najednou), tak nebudes mit zadny problem.
>
> Dale - pokud udelas select s hintem WITH (NOLOCK) jak dobre radil
predchozi
> mail, tak o nic neprijdes, jen se zbavis toho lockovani, ktere je take
> celkem pochopitelne.
>
> K tomu lockovani - pokud das SET TRANSACTION ISOLATION LEVEL READ
COMMITED -
> tak bys mozna ocekaval, ze uvidis zmeny az po COMMIT TRAN a do te doby
> uvidis puvodni podobu vet. Ale tak tomu neni, ve skutecnosti se stane,
ze
> jakmile nekdo zacne pracovat s danou vetou tak ji zamkne a ty ji
nemuzes
> videt vubec, dokud neda COMMIT TRAN. Tohle je hodne neprijemne a v
podstate
> je tahle izolacni uroven pro beznou praxi nepouzitelna. Kdyby aspon
server
> nahlasil, ze je veta zamknuta a dal programatorovi sanci nejak se s
tim
> vyporadat, ale to on neudela, jen ceka dokud mu nevyprsi timeout.
>
Class -> Interface
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.12.2001 10:50:01
> Odes�latel: Jan Krizek <krizek(zv)vitasw(tec)cz>
> Mam-li objekt TMyObject a k nemu promennou MyObject : TMyObject, tak mam
> udelat co? Staci pouze udelat :
> type
> IMyObject = interface( TMyObject );
> var
> MyObject : IMyObject;
Takhle jednoduchy to neni.
Zhruba receno by to melo vypadat nasledovne:
IMyObject = interface (IUnknown)
deklarace metod....
end;
TMyObject = class (TInterfacedObject, IMyObject)
stejne metody...
end;
// TInterfaced object implementuje IUnknown
implementation
procedure TMyObject.Metoda1;
begin
...
end;
Pokud chces umoznit, aby takovy COM object byl volan ze skriptovacich jazyku (JScript, ...), mel bys dedit od IDispatch, TAutoObject (nebo jak se to jmenuje, pisu to z hlavy).
TAutoObject implementuje IDispatch.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
NT domena
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 14.12.2001 10:53:48
> Zdravim, potreboval bych overit jestli uzivatel existuje v NT domene.
> Vim domenu, jmeno a heslo.
>
> Nejlepe nejakou API fci s kratkym prikladkem....
Cau,
takto dostanes zoznam uzivatelov definovanych na servri:
const
netapi32 = 'netapi32.dll';
MAX_PREFERRED_LENGTH = Cardinal(-1);
type
PNetDisplayUser = ^TNetDisplayUser;
TNetDisplayUser = record
usri1_name: PWideChar;
usri1_comment: PWideChar;
usri1_flags: Cardinal;
usri1_full_name: PWideChar;
usri1_user_id: Cardinal;
usri1_next_index: Cardinal;
end;
function NetApiBufferFree(Buffer: Pointer): Integer; stdcall; external
netapi32 name 'NetApiBufferFree';
function NetQueryDisplayInformation(ServerName: PWideChar; Level, Index,
EntriesRequested,
PreferredMaximumLength: Cardinal; var ReturnedEntryCount: Cardinal; var
SortedBuffer: Pointer): Integer; stdcall;
external netapi32 name 'NetQueryDisplayInformation';
procedure GetUsers(const ServerName: string; Users: TStrings);
var
NetResult: Integer;
ServerNameW: WideString;
Index: Integer;
Returned: Cardinal;
Buffer: Pointer;
begin
Users.BeginUpdate;
try
Users.Clear;
ServerNameW := ServerName;
Returned := 1;
Index := 0;
while True do
begin
NetResult := NetQueryDisplayInformation(PWideChar(ServerNameW), 1,
Index, 1, MAX_PREFERRED_LENGTH,
Returned, Buffer);
case NetResult of
ERROR_SUCCESS, ERROR_MORE_DATA:
begin
try
if Returned = 0 then
Break;
with PNetDisplayUser(Buffer)^ do
begin
Index := usri1_next_index;
Users.Add(usri1_name);
end;
finally
NetApiBufferFree(Buffer);
end;
end;
else
raise Exception.CreateFmt('NetQueryDisplayInformation error: %d',
[NetResult]);
end;
end;
finally
Users.EndUpdate;
end;
end;
ServerName by mal byt UNC (napr. '\\MYSERVER') alebo prazdny string, co
znamena lokalny stroj.
HTH
TOndrej
IBQuery a Kopie polo�ky
[*] Josef Semera <semera(zv)atlas(tec)cz> - 14.12.2001 11:01:52
potrebuji si ulozit pro pozdejsi potrebu kopii aktualniho radku, ale
vubec nevim jak na to. Kopii bude vic a tak se snazim o neco podobneho
..
procedure TForm1.butOKClick(Sender: TObject);
var
buf: PChar;
begin
buf := StrNew(IBQuery1.ActiveBuffer);
IBQuery1.Insert;
CopyMemory(IBQuery1.ActiveBuffer, buf, IBQuery1.RecordSize);
DestDataSet.Post;
StrDispose(buf);
end;
ale nikdy jsem nedelal s PChar a ukazatelem vubec. Muze me nekdo
nacutnout jak dal..
Josef Semera
None
[*] <aldik(zv)quick(tec)cz> - 14.12.2001 11:06:10
Ahoj kluci mam service pro W2000 a potrebuji tam hodit ADOQuery jenze...
ackoliv kompilace projde OK tak mi to pri behu zarve chybu initializace,jak to
udelam? V cem je chyba vsimnul jsem si ze se moje service lisi od klasicke
aplikace ze nema Application.Initialize, da se initializovat jen cast nebo jak
initializuji svoji service?
Diky moc....
Ales PAVEL
D5 Ent W2000
Technical Specialist
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
Dynamic arrays - Delphi6 vs C++
[*] #imek Ji�� <Jiri.Simek(zv)czech-tv(tec)cz> - 14.12.2001 11:08:41
Abysme se teda zase vratili k tomu mymu problemu ;-)
No, asi bude nejlepsi, kdyz to vysvetlim na tom, jak to vypada v pameti.
Po zavolani te fce z DLL se v pameti alokuje prostor pro promennou aParam a
nastavi se podle toho jeji pointer.
Ted je uplne jedno, jakeho typu ta promenna je.
Pointer ukazuje na $4A64F0.
Vypis casti pameti:
004A64E8 01 00 00 00 8C 01 00 A0 ........
004A64F0 61 6E 65 77 64 6F 6D 77 anewdomw
004A64F8 6F 72 63 6D 61 72 73 69 orcmarsi
atd.
nemusi to byt pole longint, klidne to muze byt string, nebo cokoli jinyho.
Na adrese $4A64EC je 4-bytova hodnota $018C = delka pole(retezce) - to vim,
ze je spravne.
Jenze Delphi bere delku 4-bytovou = $A000018C
No a v tom je asi cely ten problem. Nevim, co znamena to $A0 na adrese
$4A64EF, proc me to tam ta C funkce dala.
A nevim, jaky typ v Delphi na tohle pouzit, aby nemel problemy pri
dealokovani te promenne.
Doufam, ze uz je to jasnejsi.
Zatim sem to "ohnul" pomoci ASM (proste to $A0 prepisu na $00 ;-). Ale je to
drbani pravou rukou ...
JirkaS
NT domena
[*] EFG developer <developer(zv)efg(tec)cz> - 14.12.2001 11:14:06
omlouvam se, asi jsem se spatne vyjadril,
potreboval bych overit HESLO uzivatele pro NT domenu.
vstup: jmeno x, heslo z, domena z; vystup: ucet je platny (tj. uzivatel x s
heslem y ma platny ucet v domene z)
Petr sikola
> > Zdravim, potreboval bych overit jestli uzivatel existuje v NT domene.
> > Vim domenu, jmeno a heslo.
> >
> > Nejlepe nejakou API fci s kratkym prikladkem....
>
> Cau,
>
> takto dostanes zoznam uzivatelov definovanych na servri:
>
.....
> ServerName by mal byt UNC (napr. '\\MYSERVER') alebo prazdny string, co
> znamena lokalny stroj.
Freeware a Petr Vones
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.2001 11:42:08
Puvodni zprava, kterou napsal Zbysek Hlinka dne 14 Dec 2001:
> No jo, ale kdyz se to ohodnoti beznou sazbou konzultace, treba 1000 Kc/hodinu, pak Petr tomu
> venuje dejme tomu 10 hodin mesicne, * 1000 ucastniku, to je 10 000 000 ke zdaneni za mesic,
> 120 000 000 za rok. No te pr......
No a kdysi tomu venoval i 10 hodin denne, takze kdyz
se financaci podivaji zpetne... :)
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
NT domena
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 14.12.2001 12:04:20
> potreboval bych overit HESLO uzivatele pro NT domenu.
>
> vstup: jmeno x, heslo z, domena z; vystup: ucet je platny
> (tj. uzivatel x s heslem y ma platny ucet v domene z)
potom by malo stacit pouzit LogonUser napriklad takto:
function IsDomainUserValid(const DomainName, UserName, Password: string):
Boolean;
var
Token: THandle;
begin
Result := LogonUser(PChar(UserName), PChar(DomainName), PChar(Password),
LOGON32_LOGON_NETWORK,
LOGON32_PROVIDER_DEFAULT, Token);
CloseHandle(Token);
end;
HTH
TOndrej
IBQuery a Kopie polo�ky
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.12.2001 12:05:54
> Odes�latel: Josef Semera <semera(zv)atlas(tec)cz>
> potrebuji si ulozit pro pozdejsi potrebu kopii aktualniho radku, ale
> vubec nevim jak na to. Kopii bude vic a tak se snazim o neco podobneho
> ..
Mozna je to az moc "neefektivni", ale treba by stacilo:
V:=TStringList.Create;
with DataSet do
for i:=0 to FieldCount-1 do
V.Values[Fields[i].FieldName]:=Fields[i].asString;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.12.2001 12:09:59
> > Nejsem si jist, zda jsem Te pochopil, ale pri pretypovani v
Pascalu se
> > zadne orezavani nedela ( nedavno jsem hledal chybu v jednom C
zdroji a
> > v zivote me nenapdalo ze unsigned char promenna nikdy nebude
obsahovat
> > znaky vussi nez 127 (tedy ceske) protoze je C kod urizne). Cili je
bez
> > problemu mozne prevest hodnotu Integeru na Pointer a naopak bez
ztraty
> > kvetinky...
>
> Tohle ma prece vyznam jenom pri matematickych operacich.
> V pameti zabiraji vzdycky 4byte a muzou mit hodnotu od $00000000 do
> $FFFFFFFF.
> Kdyz scitate unsigned long, vysledek bude vzdycky kladne cislo.
> Kdyz scitate long, tak cisla >2^31 se berou jako zaporna a podle
toho pak
> vypada vysledek.
V Ccku to ma vyznam i jindy. Napriklad mnou zminovany unsigned char je
definovan
v rozsahu 0..127 dekadicky. Znaky s vyssi ordinalni hodnotou do nej
nenacpes. Trosku
mi pak ale nedochazi logika Ccka, kdyz unsigned int ma mit rozsah
0..2^32-1 ( a
ne 0..2^31-1).
D. Toman
Property editor
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.12.2001 12:17:55
Neum�l by n�kdo poradit?
Naprogramoval jsem si novou StringGrid komponentu a do n� krom� jin�ho
sloupce (Columns) a do sloupce (potomka TCollectionItem) jsem si cht�l d�t
property EditMask.
Pro zaregistrov�n� property editoru pomoc�
RegisterPropertyEditor(TypeInfo(string), TMujGridColumn, 'EditMask',
TMaskProperty);
jsem musel p�ipojit knihovny DsgnIntf a MaskProp.
Komponenta #la p�elo�it a v DesignTimeu fungoval i property editor, ale
project p�elo�it ne#el a hl�sil mi, �e chyb� file MaskProp - a skute�n� jsem
jej nikde nena#el.
Jakto, �e komponenta p�elo�it jde a funguje a project pot�ebuje file?
Nelze to n�jak obej�t nebo ten file mus�m opravdu m�t?
{*********************}
{ greissler(zv)prenet(tec)cz }
{ P�erov }
{*********************}
Lock tabulky pri Selectu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.12.2001 12:20:11
> Ten priklad s velkym objemem dat jsem uvadel jako priklad: jak je
> mozne ze select (at je velky jak chce) mi blokuje cizi update. Snaz se
> pochopit me, hledam vysvetleni jak je mozne, ze jedna aplikace otevre
> dotaz (Open) a nic nedela (uzivatel udejde). Ta aplikace netusi ze
> neco blokuje, protoze je to select ???!!!!
Ahoj,
asi jsem prehledl zacatek diskuse - o jaky jde server? A rozumim
dobre, ze pristup k nemu je pres BDE?
Ja jsem totiz zatim podobny problem nepozoroval, skoro bych rekl,
ze to opravdu bude nejakym nestastnym nastavenim query se
selectem, ale protoze mi utekl zacatek, nechci jen tak placat do
vody.
David Lebeda
NT domena
[*] "Grubhoffer Jind�ich" - 14.12.2001 12:21:04
>
> potreboval bych overit HESLO uzivatele pro NT domenu.
>
> vstup: jmeno x, heslo z, domena z; vystup: ucet je platny
> (tj. uzivatel x s heslem y ma platny ucet v domene z)
>
NetUserChangePassword kde oldpassword=newpassword
JG
None
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 14.12.2001 12:23:32
Zkus dat na zacatek dpr CoInitialize.
Marian Jonas
> aldik(zv)quick(tec)cz napsal :
>
> Ahoj kluci mam service pro W2000 a potrebuji tam hodit
> ADOQuery jenze...
> ackoliv kompilace projde OK tak mi to pri behu zarve chybu
> initializace,jak to
> udelam? V cem je chyba vsimnul jsem si ze se moje service
> lisi od klasicke
> aplikace ze nema Application.Initialize, da se initializovat
> jen cast nebo jak
> initializuji svoji service?
> Diky moc....Lock tabulky pri Selectu
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.12.2001 12:32:46
Tak jeste jednou -
select Ti muze a nemusi blokovat, to zalezi na Tobe - jestli das selectu
WITH (HOLDLOCK), nebo WITH (NOLOCK) popripade pouzijes ISOLATION LEVEL ... a
t pod.
select Ti ale bude blokovat v zavislosti na tom, jestli si mysli, ze je to
potrebne, nebo si to nemysli.
Jestli si otevres select a prectes si ho (=nafetchujes), pak neni duvod
cokoli blokovat. Jestli ale otevres select, prectes si cast vet, tak Ti v
zavislosti podle okolnosti muze server zamknout zaznamy, protoze
predpoklada, ze ty ostatni zaznamy jeste budes cist a to v podobe, v jake
jsi je vyselektoval a proto je nedovoli zmenit, dokud si je neprectes.
Pomoci ISOLATION LEVEL nebo pomoci hintu v selectu muze serveru rict, ze Ti
nevadi, kdyz ti nekdo zmeni vety drive, nez si je prectes a on ke pak
nezamkne. Co je na tom nelogickeho?
Existuje navic rada zpusobu jak to obejit. Napriklad vyselectovat si to do
docasne tabulky a pak prohlizet tu docasnou tabulku - tak se pochopitelne
nic nezamkne, ikdyz zase zalezi na tom, jak to napisu. Jestli napisu
napriklad
BEGIN TRAN
SELECT * FROM TABULKA1 WITH (HOLDLOCK) INTO #TABULKA1
SELECT * FROM #TABULKA1
tak se to myslim zamkne dokud nedas COMMIT
atd... atd... neni toho malo, je to docela zajimave a ne vzdy je to na prvni
pohled logicke, ale da se na to zvyknout a da se s tim pracovat.
Ale ze by to drzela aplikace sama sobe, tomu neverim, kdyz totiz otevres
dalsi Query, napriklad na ten update, tak se data z prvniho Query nafetchuji
na lokal a tim se zpravidla odemknou (pokud neni v SQL prikazu stanoveno
neco jineho). Takze za normalnich okolnosti aplikace sama sebe neblokuje.
Nicmene da se napsat program tak, aby sam sebe blokoval.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Michal Michal
Sent: Friday, December 14, 2001 10:40 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Lock tabulky pri Selectu
Ten priklad s velkym objemem dat jsem uvadel jako priklad: jak je mozne
ze select (at je velky jak chce) mi blokuje cizi update. Snaz se
pochopit me, hledam vysvetleni jak je mozne, ze jedna aplikace otevre
dotaz (Open) a nic nedela (uzivatel udejde). Ta aplikace netusi ze neco
blokuje, protoze je to select ???!!!!
Vsechny updaty jsou v kratickych transakcich udelany tak, aby nikoho
Frekvence monitoru
[*] kuchar(zv)unicodesys(tec)cz - 14.12.2001 12:43:14
cau,
jak zjistim prave nastavenou frekvenci monitoru ve woknech, je na to nejaka
funkce ?
DIK
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.12.2001 12:47:11
>><C> char <pascal> ShortInt
><C> unsigned char <pascal> Byte
>v C jsou char definovany trochu jinak nez v pascalu
>tak potom uz to zalezi jen na kodovani cestiny....proc by to mel
orezavat....
trosku jsem to zvrtal - problem byl v tom, ze char v C je definovan
pro znaky 0..127 . Unsigned char
pak pro cely rozsah.
program psany v C pod linuxem (prekladany pomoci GCC) mel buffer
deklarovany jako *char.
do nej se dostavaly znaky 0..255. z bufferu se vybiraly znaky pomoci
promenne
deklarovane jako pointr na unsigned char:
char* scanargs(char *aLine)
{
char *getP;
getP = aLine;
if ((unsigned char)*getP < ' ') *getP = ' '; /*remove all special
chars*/
pokud tam nebylo to pretypovani na unsigned tak vsechny znaky nad #127
sly do kytek (nahrazeny mezerou
a diakritika v tahu)
D. Toman
Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.12.2001 12:50:38
> No, asi bude nejlepsi, kdyz to vysvetlim na tom, jak to vypada v
pameti.
> Po zavolani te fce z DLL se v pameti alokuje prostor pro promennou
aParam a
> nastavi se podle toho jeji pointer.
> Ted je uplne jedno, jakeho typu ta promenna je.
>
> Vypis casti pameti:
> 004A64E8 01 00 00 00 8C 01 00 A0 ........
> 004A64F0 61 6E 65 77 64 6F 6D 77 anewdomw
> 004A64F8 6F 72 63 6D 61 72 73 69 orcmarsi
> atd.
> Pointer ukazuje na $4A64F0.
tak proc proboha nectes tu pamet od te adresy? To co je pred tim je
nejspis jen deskriptor
alokovaneho bloku pameti kam si pametovy manezer poznamenava delku
bloku, zacatek dalsiho bloku atd.
Ze Pascal dynamic array ma pred fyzickym zacatkem dat jeste vlastni
hlavicku neznamena, ze ji tam ma kazda
dynamicky alokovana (pointrem adresovana) promenna.
Pro tento pripad zapomen na dynamicke pole v delphi - musis pouzit
statickou variantu!> Zatim sem to "ohnul" pomoci ASM (proste to $A0 prepisu na $00 ;-).
Ale je to
> drbani pravou rukou ...
Navic si takhle koledujes o nejaky dalsi prusvih...
D. Toman
Property editor
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 14.12.2001 12:53:45
> Pro zaregistrov�n� property editoru pomoc�
> RegisterPropertyEditor(TypeInfo(string), TMujGridColumn, 'EditMask',
> TMaskProperty);
> jsem musel p�ipojit knihovny DsgnIntf a MaskProp.
>
> Komponenta #la p�elo�it a v DesignTimeu fungoval i property
> editor, ale project p�elo�it ne#el a hl�sil mi, �e chyb� file MaskProp
od verzie 6 musi byt v Delphi designtime kod oddeleny od runtime:
http://community.borland.com/article/0,1410,27779,00.html
http://community.borland.com/article/0,1410,27717,00.html
HTH
TOndrej
Freeware a Petr Vones
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 14.12.2001 13:02:32
On 14 Dec 2001 at 11:42, Petr Zahradnik wrote:
> > No jo, ale kdyz se to ohodnoti beznou sazbou konzultace, treba 1000
> > Kc/hodinu, pak Petr tomu venuje dejme tomu 10 hodin mesicne, * 1000
> > ucastniku, to je 10 000 000 ke zdaneni za mesic, 120 000 000 za rok.
> > No te pr......
>
> No a kdysi tomu venoval i 10 hodin denne, takze kdyz
> se financaci podivaji zpetne... :)
Tak ted jsem dostal strach, ze az Petr zase pojede kvuli praci ven, ze tam radeji zustane. A to
vsechno jen kvuli bernaku. :-))
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
NT domena
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.12.2001 13:13:02
----- Original Message -----
From: "Grubhoffer Jind�ich"
<grubhoffer(zv)software602(tec)czgrubhoffer(zv)software602(tec)cz>
>> potreboval bych overit HESLO uzivatele pro NT domenu.
>>> NetUserChangePassword kde oldpassword=newpassword
Ahoj.
Pozor. Pokud bude nastaveno v politice sledovani historie hesel, tak to
neprojde.
Ludek
Licence, freeware, komponenty ze zahranici
[*] miromr <miromr(zv)hotmail(tec)com> - 14.12.2001 13:21:19
ahojte,
mam taky dojem, ze tento problem je treba vidiet v dvoch rovinach. Jedna je
autorsky zakon (ktory zrejme mozna niekedy v minulosti mal chranit najme
autorov) a problem ze ak napism SW a niekto ho pouziva bezplatne a mne to je
fuk tak neni co riesit. Problem vznika tym, ze zakon chrani aj urcite
skupiny - ktorym sa cestou toho spomuinaneho uradnika - podarilo presadit
aj take veci do zakona ze fax je zariadenie na rozmnozovanie diel a teda sa
musi aj z neho autorskym zvazom odvadzat prispevok. Potom ustanovenia
zakona, ktore si presadili tito "bojovnici za autorske prava" sa mozeu
vztahovat aj na pocitacove programy a my sa nestacime divit.
Druhy problem su uradnici na min. financii-ktori su vo svojej snahe aby
mali co najviac prostriedkov ktore by mohli rozdelovat vymysliet akekolvek
nezmysly a skryvat sa pri tom za svoj urad a poslancov no vsak ved to
odhlasovali - ked to nebolo dobre nemali predsa hlasovat za. Preto si myslim
ze pokial sa bude hovorit len o "uradnikovi" ako povodcovi zla len obecne
bude stav taky aky je. Neviem ci by nebolo v pripade takehoto podobneho
choreho ustanovenia v zakone alebo inom predpise dobre zaujimat sa hromadne
o meno alebo mena uradnikov, ktory takuto "novelu" pripravili a aj o to ci
vobec je na mieste aby z nasich penazi boli tito odbornici - menovite -
plateni.
Otazka je ci jednotlivec, alebo par nadsencov ma moznost v tomto smere
nieco urobit. Na taky lobing aby sa do zakona dostal kuchynsky robot ako
zariadenie na rozmnozovanie diel zrejme treba vela penazi.
Miro
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 14, 2001 2:54 AM
Subject: Fw: Licence, freeware, komponenty ze zahranici
> Ahoj,
>
> preposilam mail od Jardy Skerika, ktery v soucasne dobe neni
> clenem konference Delphi, proto nemuze reagovat primo.
> Diakritiku nebudu
>
> ------- Forwarded message follows -------
> From: Jaroslav �ke��k <jaro(zv)sinea(tec)cz>
> To: <petr(zv)zahradnik(tec)cz>
> Subject: Fw: Licence, freeware, komponenty ze zahranici
> Date sent: Fri, 14 Dec 2001 02:42:38 +0100
>
> Muj vlastni nazor je tento:
> --------------------------
> 1. Podstatna chyba spociva v tom, ze dotycny se obratil na danove poradce
a
> dohaduje
> se s uredniky FU, tedy s lidmi, kteri problematice SW a dokonce i
autordkemu
> pravu pramalo rozumi. Je potreba se obratit na pravni poradny.
>
> 2. Vse se toci kolem tzv. ceny obvykle, coz je nejvetsi zhovadilost naseho
> ucetniho
> a danoveho systemu. Bohuzel tento pojem existuje a danove urady zde maji
> znacne pravomoci.
>
> 3. Je take pravda, ze pokud nelze prokazatalne dolozit danove zaklady
(napr.
> mnozstvi
> a hodnotu poskytnutych daru) maji danove urady opet dost siroke pravomoci
> vytvorit vlastni vymery na zaklade odhadu. Presnejsi metodiky neznam.
>
> 4. Spolu s Vonesem zastavam nazor, ze obvykla cena freeware software je 0
> Kc, coz
> vyplyva z jeho podstaty. Dale pak freeware programy povazuji za velmi
levne
> a ucinne "nosice reklamy" podobne, jako treba papir. To, ze prinaseji
> uzitnou hodnotu je
> vedlejsi, nebot papir i potisknuty take. Bohuzel danove urady se mym
nazorem
> nemusi ridit.
>
> 5. Pripadnemu konfliktu s FU je tedy potreba predejit
>
> Dle meho nazoru to nejlepe resi software 602 s jejich free balikem Office,
> tim, ze poskytuje legalni
> a bezplatnou licenci kazdemu, kdo se registruje a pouze tomu, kdo se
> zaregistruje.
> Pokud si tedy stahnu software a zaregistruji se, teprve obdrzim
registracni
> cislo.
> Diky registraci nesu pripadnou odpovednost za priznani daru ja sam,
> coby obdarovany, nikoliv vsak SW 602. Nevim, jaka je limitni castka pro
> priznani daru,
> ale zrejme se vejdu. Se stanovenim ceny bude problem, jelikoz nelze urcit
> "obvyklou cenu"
> dle srovnatelneho software, ktere neni freeware, nebot freeware miva
> omezenou funkcnost,
> neposkyteje servis, zaruky a pod. Dle meho nazoru je prave proto jeho cena
> nulova,
> coz je vzdy a proto je to cena obvykla.
>
> Pokud nekdo pouziva takovy freeware bez registrace, pouziva ho nelegalne a
> opet
> je to tedy mimo danovou povinnost poskytovtele freeware.
>
> Jestlize tedy nekde stanovim, ze podminkou uziti meho freeware je nutnost
> registrace,
> jsem z toho venku a nemusim se s nikym dohadovat o cene.
>
> Dale povazuji za podstatne, ze freeware je atorske dilo, ktere se ridi
> autorskym zakonem
> a musi se s nim nakladat jako s jakymkoliv jiny,m autorskym dilem.
> Takze podle stejneho principu musi zaplatit darovaci dan za nezname
> uzivatele autori napr. hudebnich del.
>
> Dan musi zaplatit za kazdeho obcana teto zeme, ktery si u taboraku zazpiva
> jejich pisnicku.
> Prokazatelne tak vyuziva uzitne hodnoty dila, nebot si zlepsil naladu,
> zdravi, pobavil sebe i druhe,
> coz je jasne uziti autorskeho dila. Pocet licenci by se mohl stanovit
napr.
> statistickym poctem lidi
> v teto zemi, kteri mohou zpivat, coz je opet obdoba snahy vypocitat dan
dle
> pocitadla web stranky :-)
>
> Konecne proc by tento stat mel bohatnout pouze na programatorech, kdyz dle
> stejneho zakona
> muze bohatnout na vsech autorech jakychkoliv del, ktere mohou byt
vyuzivany
> i bez
> vedomi autora = obdoba definice freeware
> Jaro
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ============================================================
> Petr Zahradnik, Computer Laboratory
> Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
> Telefony: 047-5500610, 047-5501627, 0602-409601
> Fax: 047-5511338
> WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
> E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
> ICQ: 21215917
> ============================================================
>
>Dynamic arrays - Delphi6 vs C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.12.2001 13:25:17
To je presne ono, ........ten tvuj predchozi e-mail ........????
<C>
unsigned char c; // to je opravdu rozmezi 0..255
Ale nechme toho, jde tady o uplne jinej problem.....
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
>>> dtoman(zv)fortech(tec)cz 14.12.01 12:47 >>>
>><C> char <pascal> ShortInt
><C> unsigned char <pascal> Byte
>v C jsou char definovany trochu jinak nez v pascalu
>tak potom uz to zalezi jen na kodovani cestiny....proc by to mel
orezavat....
trosku jsem to zvrtal - problem byl v tom, ze char v C je definovan
pro znaky 0..127 . Unsigned char
pak pro cely rozsah.
program psany v C pod linuxem (prekladany pomoci GCC) mel buffer
deklarovany jako *char.
do nej se dostavaly znaky 0..255. z bufferu se vybiraly znaky pomoci
promenne
deklarovane jako pointr na unsigned char:
char* scanargs(char *aLine)
{
char *getP;
getP = aLine;
if ((unsigned char)*getP < ' ') *getP = ' '; /*remove all special
chars*/
pokud tam nebylo to pretypovani na unsigned tak vsechny znaky nad #127
sly do kytek (nahrazeny mezerou
a diakritika v tahu)
D. Toman
CoInitialize
[*] <aldik(zv)quick(tec)cz> - 14.12.2001 13:28:05
No fajn a jeste mi prosim rekni kam,nejak mi to nechce spolknout a vysvetli mi
prosim proc to:-))
Aldik Pavel
D5 ENT W2000
Marian Jonas napsal :
Zkus dat na zacatek dpr CoInitialize.
aldik(zv)quick(tec)cz napsal :
Ahoj kluci mam service pro W2000 a potrebuji tam hodit
ADOQuery jenze...
ackoliv kompilace projde OK tak mi to pri behu zarve chybu
initializace,jak to
udelam? V cem je chyba vsimnul jsem si ze se moje service
lisi od klasicke
aplikace ze nema Application.Initialize, da se initializovat
jen cast nebo jak
initializuji svoji service?
Diky moc....
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.281 / Virov� b�ze: 149 - datum vyd�n�: 18.9.2001
Dynamic arrays - Delphi6 vs C++
[*] #imek Ji�� <Jiri.Simek(zv)czech-tv(tec)cz> - 14.12.2001 13:40:06
> Pro tento pripad zapomen na dynamicke pole v delphi - musis pouzit
> statickou variantu!
Statickou variantu nemuzu pouzit, protoze nevim, jak velke pole me to vrati.
>
>
> > Zatim sem to "ohnul" pomoci ASM (proste to $A0 prepisu na $00 ;-).
> Ale je to
> > drbani pravou rukou ...
>
> Navic si takhle koledujes o nejaky dalsi prusvih...
Ok. Uz mu nic neprepisuju, ctu v asm postupne obsah pameti a hodnoty skladam
do jineho dynamickeho pole.
Dokonce uz funguje i ta CoTaskMem(), takze je to Ok...
JirkaS
Frekvence monitoru
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 14.12.2001 13:55:59
> jak zjistim prave nastavenou frekvenci monitoru ve woknech,
> je na to nejaka funkce ?
var
DC: HDC;
DC := GetDC(0);
Frequency := GetDeviceCaps(DC, VREFRESH);
ReleaseDC(0, DC);
Ma to ale problemy:
1. V MSDN pisu, ze je to len pre Windows NT/2000/XP
2. Moze to vratit hodnotu 0 alebo 1, ak je momentalne aktivna frekvencia
hardware default
Druha moznost je EnumDisplaySettings s parametrom ENUM_CURRENT_SETTINGS.
Tam je ale tiez problem, ze v pripade hardware default mozes dostat hodnotu
0 alebo 1.
Mozno sa to da najst niekde v registry, napr.
\HKEY_CURRENT_CONFIG\Display\Settings\RefreshRate
(to som neskusal).
HTH
TOndrej
DLL - nove okno
[*] <suky(zv)atlas(tec)cz> - 14.12.2001 14:00:43
Ahoj,
potrebuji poradit s banalitou (pro vas). Volam ze sve aplikace formular, ktery mam v DLL knihovne. Novy formular se mi otevre, ale jako nova aplikace, sice nemohu pak pracovat v te puvodni aplikaci, ale mohu se na ni prepnout a ten otevreny formular se schova. Chtel bych otevrit formular z DLL knohovny, ale tak aby se tvaril jako normalni dialogove okno aplikace. Jak mam tohle provest?
To byla jedna vec a ta druha je podobna. Lze otevrit okno z DLL knihovny jako MDIChild vne volajici aplikace? Zase, pokud ano, prosim poradte, popripade nakopnete malou ukazkou.
Dekuji vsem a preji krasny a stastny jak Vanoce tak Novy rok.
Michal
OT: licence DELPHI 6 Personal
[*] Marek Vilda Jelen <marek.jelen(zv)mybox(tec)cz> - 14.12.2001 14:30:59
Necetl jsem to vsechno, protoze nemam cas, ale myslel jsem, ze D6PE jsou
freeware. Nebo ne?
Frekvence monitoru
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 14.12.2001 14:34:48
Ja toto pouzivam a na W98 i ME to funguje.
Jan Sebesta
> Mozno sa to da najst niekde v registry, napr.
> \HKEY_CURRENT_CONFIG\Display\Settings\RefreshRate
> (to som neskusal).
>
> HTH
> TOndrej
> Dynamic arrays - Delphi6 vs C++
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.12.2001 14:34:00
> > Pro tento pripad zapomen na dynamicke pole v delphi - musis pouzit
> > statickou variantu!
> Statickou variantu nemuzu pouzit, protoze nevim, jak velke pole me
to vrati.
ale to prece nicemu nevadi. Posilal jsem nejakej priklad - proste to
pole nadeklaruj staticky
- interval polozek 0..1 nebo treba 0..65535. Ten mensi interval
kompilator sezere (ted nevim jestli
nemam vyply nejaky range checky) a jedina nevyhoda je, ze watch okno
nebude chtet pri ladeni
zobrazit indexi vyssi nez definovana mez. V podstate si tim pevnym
polem jen definujes typ
jednotlivych polozek - pro nic jinyho to neni dulezity
D. Toman
Modalne okna
[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 14.12.2001 14:56:59
Nazdar,
mam nasledujuci problem. Ak otvorim nad form-om dalsi modaly form, chcel
by som, aby tento blokoval len jeho vlastnika, ale nie ostatne.
Je to vobec mozne? Ak nie, je nejaky sposob, ako to urobil inak?
Roman
Property editor
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.12.2001 15:07:02
diky, ale to byl bohuzel D5... takze otazka asi trva
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ondrej Kelle
Sent: Friday, December 14, 2001 12:54 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Property editor
> Pro zaregistrov�n� property editoru pomoc�
> RegisterPropertyEditor(TypeInfo(string), TMujGridColumn, 'EditMask',
> TMaskProperty);
> jsem musel p�ipojit knihovny DsgnIntf a MaskProp.
>
> Komponenta #la p�elo�it a v DesignTimeu fungoval i property
> editor, ale project p�elo�it ne#el a hl�sil mi, �e chyb� file MaskProp
od verzie 6 musi byt v Delphi designtime kod oddeleny od runtime:
http://community.borland.com/article/0,1410,27779,00.html
http://community.borland.com/article/0,1410,27717,00.html
HTH
TOndrej
Oracle a Kylix
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 14.12.2001 15:11:15
Ahoj,
nemate nekdo nejake informace o moznostech pristupu k Oracle serveru z
aplikaci bezicich pod Linuxem ? Pro vyvoj aplikaci predpokladam pouziti
Kylixu.
Odkazy, zkusenosti...
Diky
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Insert/overwrite v RichEditu
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.12.2001 15:27:20
Nevite prosim nekdo jak zjistim jak je zapnuty v RichEditu Insert/Overwrite
?
(Kdysi to tudy tusim proslo, ale nemuzu si vzpomenout, mam dojem, ze to byla
nejaka windows message...)
Oracle a Kylix
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 14.12.2001 16:06:41
From: "Martinec" <martin108(zv)post(tec)cz>
> > nemate nekdo nejake informace o moznostech pristupu k Oracle serveru z
> > aplikaci bezicich pod Linuxem ? Pro vyvoj aplikaci predpokladam pouziti
Kylixu.
> > Odkazy, zkusenosti...
Kylix to podporuje (dbExpress).
> > Odkazy
http://www.borland.com/kylix/
> > zkusenosti...
Trochu to pada, torchu je to drahe ale inak fajn. ;-))
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Property editor
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 14.12.2001 16:20:33
>> od verzie 6 musi byt v Delphi designtime kod oddeleny od runtime:
> diky, ale to byl bohuzel D5... takze otazka asi trva
V tomto pripade to plati aj pre D5; Unita MaskProp nie je dostupna ani vo
forme zdrojaku, ani vo forme .dcu.
Jediny sposob, ako ju mozes pouzit, je v designtime package: pomocou
requires dclstd50.dcp.
HTH
TOndrej
Frekvence monitoru
[*] Rado Benc <bego(zv)pobox.sk> - 14.12.2001 17:10:40
Ahojte,
> Behalf Of Sebesta Jan
> Sent: Friday, December 14, 2001 2:35 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Frekvence monitoru
> Ja toto pouzivam a na W98 i ME to funguje.
>
> Jan Sebesta
>
> > Mozno sa to da najst niekde v registry, napr.
> > \HKEY_CURRENT_CONFIG\Display\Settings\RefreshRate
> > (to som neskusal).
> >
> > HTH
> > TOndrej
Na Windows 2000 to nie je.
FWIW,
Rado
____________________________________
http://www.pobox.sk/ - prvy slovensky freemail
Lock tabulky pri Selectu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 14.12.2001 17:20:38
> > Ten priklad s velkym objemem dat jsem uvadel jako priklad: jak je
> > mozne ze select (at je velky jak chce) mi blokuje cizi
> update. Snaz se
> > pochopit me, hledam vysvetleni jak je mozne, ze jedna
> aplikace otevre
> > dotaz (Open) a nic nedela (uzivatel udejde). Ta aplikace netusi ze
> > neco blokuje, protoze je to select ???!!!!
>
Zde se jedna o nekolik problemu:
1. aplikace v pripade ze je otevren SELECT
neco dela = fetchuje zaznamy a protoze i jini mohou
neco delat az do konce je pristup k zaznamum tabulky
uzamcen (pokud se nenastavi, ze mi nevadi
nekonzistence pri cteni).
2. v jakych objemech se zaznamy ctou:
a) pokud se vse presune na klienta je
tabulka po presunu volna (pokud neni pozadovan
zamek !),
b) prevzata byla pouze cast v zavislosti na nastaveni
(viz vyse) je blokovana.
Tj. vyhoda umisteni recordsetu na serveru se muze
obratit proti dobremu umyslu autora.
Obecne se pri praci se SQL servery doporucuje, presunout vselijake prehledy
na klienta nebo povolit DIRTY READ (tj. netrvat na konzistenci cele
mnoziny). Pred update si znovu nacist meneny zaznam (pro zobrazeni
uzivateli). Zde muze nastat zajimave prekvapeni - zaznam jiz neexituje
pripadn� obsahuje uplne jine hodnoty.
Proto se doporucuje pokud to jen trochu jde vyhybat se prehled�m zvlaste pak
velkym = s velkym poctem radek !. Jen velmi opatrne pouzivat vyssi urovne
ISOLATION LEVEL
(paradoxne plati ze nejvyssi urovne se hodi na vselijake prehledy a reporty
vice nez na update).
(:-) vim, ze uzivatele to pozaduji a je jen velmi tezke se jim ubranit, ale
obcas se podari vymyslet kompromis, napr. se nezobrazi prehled vsech 5000
faktur vsech partneru, ale pouze 15 jednoho, nebo je nutno zadat nejake jine
omezeni.
(nuly k celkovym poctum si primaluj sam).
Dtto plati pro transakce, zejmena proto, ze zamky transakci ridi vetsinou
server sam a moc si do toho nenecha kecat. Umisti takove zamky, jake se mu
zda nejefektivnejsi, coz nekdy dela problemy na malych tabulkach (je zamcena
cela).
Nepouzivat update na slozitych view (mnoho tabulek) nebot server velmi casto
pozamyka kde co, v dobre vire, ze uzivatel muze kde co updateovat.
Celkem neni problem databazi zablokovat jako celek nekolika malo selecty a
udate ve spolupraci s transakcemi a pokud se pouzije v jedne aplikaci vice
pripojeni i aplikaci jedinnou.
Ahoj Pavel
Batch a MS SQL
[*] Jaroslav Pospisil <delphi(zv)japos(tec)com> - 14.12.2001 20:54:41
Ahoj vsem,
potreboval bych poradit jak z programu vytvo�en�ho v Delphi Profesional
spustit Batch soubor pro MS SQL 2000 (typicky soubor s priponou sql).
Jarda Pospisil
JAPOS
Dataze
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 14.12.2001 21:17:17
Poradi nekdko jak vyresit tuto situaci?
Na dvou ruznych pocitacich bezi databazova aplikace. Kazdy z uzivatelu si do
databaze klape sva data. Pak si ale vzpomenou, ze ve dvou se to lepe tahne a
ze by bylo dobre data spojit. Jde o to, ze kazdy ma zhruba "+-" 5000 zaznamu
a mozna tak 1000 je stejnych. Jak provest dosypani dat do databaze, tak aby
se zapsaly jen zaznamy ktere v databazi nejsou obsazeny. Jen pro upresneni -
pouzivam databazi DBISAM a aplikace je nesitova.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 11.12.2001
Dataze
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.12.2001 22:15:29
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Na dvou ruznych pocitacich bezi databazova aplikace. Kazdy z uzivatelu si
do
> databaze klape sva data. Pak si ale vzpomenou, ze ve dvou se to lepe tahne
a
> ze by bylo dobre data spojit. Jde o to, ze kazdy ma zhruba "+-" 5000
zaznamu
> a mozna tak 1000 je stejnych. Jak provest dosypani dat do databaze, tak
aby
> se zapsaly jen zaznamy ktere v databazi nejsou obsazeny. Jen pro
upresneni -
> pouzivam databazi DBISAM a aplikace je nesitova.
>
Ahoj.
Asi bude potreba vice informaci:
Mluvis o databazi takze o kolik a jak provazanych tabulek se jedna ?
Rikas cca 1000 stejnych zaznamu takze JAK stejnych, jsou vsechny polozky
tech zaznamu uplne stejne (to asi v praxi nebude) kdyz tak podle kterych
polozek tech zaznamu budes urcovat ze se jedna o tentyz zaznam.
Jak se zachovas pokud na obou pocitacich jsou klicove polozky stejne a
ostatni jine. Bode mit prednost jeden z uzivatelu, nebo se bude takovy
zaznam zapisovat jako dve verze tehoz zaznamu, nebo nestejne polozky nejak
sloucis.
Nejprve si musis poradne ujasnit celou situaci, a to je vzdy IMHO tezsi nez
samotne natukani nejakeho kodu.
Ludek
OT: Zadost o pomoc pri testovani CPU
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 14.12.2001 22:59:54
Zdravim
kamarad se na me obratil s nasledujici prosbou:
Dobry den,
nezlobte se, ze Vas obtezujeme, ale jelikoz velmi nutne(k uplnemu
vyladeni Hnet Info CPU) potrebujeme odladit nektere typy CPU/jejich tridy
kvuli podrobne detekci CPU, chtel bych Vas poprosit zda by bylo mozne
stahnout soubor http://www.hnetinfo.com/download/cpu.zip, rozbalit, pote
spustit HInfoCPU.exe a poslat nam na adresu
krpata(zv)hnetinfo.com vsechny dum a log soubory, ktere vzniknou po ukonceni
aplikace. Velmi nam tim pomuzete.
Predem dekujeme
S pozdravem
Hnet Software, Ltd.
Radim Krpata
www.hnetinfo.com
ICQ:3995043
tel.:0604/835418
Presun Formu
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 15.12.2001 05:54:51
To je problem windows - zalezi jak to tam mas nastavene
Pavel
> mam TForm bez okraje (BorderStyle=bsNone) a pohybuji s nim. Vse funguje
ale
> pri pohybu se form kompletne prekresluje. To je v poradku ale ja bych
chtel
> aby pri presunu nedochazelo k uplnemu prekreslovani ale jen k vykresleni
> jeho obrysu (ctyruhelnik). K uplnemu prekresleni by doslo az na konci
> presunu. Pouzitim LockWindowUpdate() jsem sice schopen uplne zakazat
> prekreslovani ale to neni ono a ja bych chtel pri presunu zviditelnit
okraj
> podobne jak to delaji Windows se standardnim formem. Nevite jak na to?
>
> Jara.
> svehla(zv)spelza(tec)cz
>Property editor
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 15.12.2001 09:24:57
Vyrobil jsem komponentu odvozenou od IBClientDataset a potreboval bych
registrovat u nove property stejny editor, jako je u CommandTextu - tedy
nabidku tabulek a fieldu v databazi pro snadnejsi zadani SQL. Vzhledem k
tomu, ze nova property je zcela analogicka jako CommandText, bylo by mozne
pouzit ten samy editor. Bohuzel se mi nepodarilo najit ve zdrojovych
souborech Delphi odpovidajici registraci. Muzete mi poradit ?
Diky
D.Redlich
Property editor
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.12.2001 11:45:49
> Vyrobil jsem komponentu odvozenou od IBClientDataset a potreboval bych
> registrovat u nove property stejny editor, jako je u CommandTextu - tedy
> nabidku tabulek a fieldu v databazi pro snadnejsi zadani SQL.
> Vzhledem k tomu, ze nova property je zcela analogicka jako
> CommandText, bylo by mozne pouzit ten samy editor. Bohuzel se mi
> nepodarilo najit ve zdrojovych souborech Delphi odpovidajici registraci.
> Muzete mi poradit ?
Do svojej designtime package pridaj klauzulu requires dclib;
potom mozes pouzit nieco taketo:
procedure Register;
begin
RegisterComponents('My IB', [TMyIBClientDataSet]);
RegisterPropertyEditor(TypeInfo(string), TMyIBClientDataSet,
'MyNewProperty', TIBCDSCommandTextProperty);
end;
HTH
TOndrej
DLL - nove okno
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 15.12.2001 14:50:58
musis nastavit Application.handle := handle okna, ktere ma "vlastnit"
zobrazovany formular (ziskas napr. SELF.HANDLE) ...
Martin MACKO,
M-PRO s.r.o.
U mesta Chersonu 1595/1
tel.: +420 (35) 610 79 48,
610 72 31 az 33
martinm(zv)m-pro(tec)cz
+420 (603) 48 39 40
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of suky(zv)atlas(tec)cz
Subject: DLL - nove okno
Ahoj,
potrebuji poradit s banalitou (pro vas). Volam ze sve aplikace formular,
ktery mam v DLL knihovne. Novy formular se mi otevre, ale jako nova
aplikace, sice nemohu pak pracovat v te puvodni aplikaci, ale mohu se na ni
prepnout a ten otevreny formular se schova. Chtel bych otevrit formular z
DLL knohovny, ale tak aby se tvaril jako normalni dialogove okno aplikace.
Jak mam tohle provest?
To byla jedna vec a ta druha je podobna. Lze otevrit okno z DLL knihovny
jako MDIChild vne volajici aplikace? Zase, pokud ano, prosim poradte,
popripade nakopnete malou ukazkou.
Dekuji vsem a preji krasny a stastny jak Vanoce tak Novy rok.
Michal
Licence, freeware, komponenty ze zahranici
[*] Lud�k P�ral - 15.12.2001 20:39:35
1. Licence zahranicniho software.
Moje prakticka zkusenost je tato:
Pokud jste koupili software a ten mel pouze licencni ujednani, ktere nebylo
standardne dodavano v ceskem jazyce, tak je pro uzivatele nezavazne a pripad
se posuzuje pouze podle nasich platnych zakonu a ne podle textu v
cizojazycnem licencnim ujednani.
- To souhlasi v Cechach, pozor ovsem na to, pokud se ocitnete v Haagu a
budete celit obvineni, ze v licenci bylo ujednani, ze smlouva je dle
mezinarodniho standartu
Takze pripadne omezeni zaruky nebo pouzitelnosti programu pokud neni
definovano cesky a neni dodano a znamo pri koupi produktu pro vas neni
zavazne.
- To bychom mohli "fakovat" libovolneho vyrobce SW v anglicke verzi - staci
si nainstalovat W2000 v AJ verzi zdarma, ze?
Takze pokud s Delphi 6PE neni dodavano upozorneni v cestine na omezeni uziti
programu, ktera si kupujici muze precist pred koupi produktu, muzete si v
teto verzi vyvijet co chcete a prodavat to nebo spotrebovavat jak chcete.
Vyvynut� program je totiz v tomto okamziku vase autorske dilo. Nemuzete se
jako tvurce vzdat autorstvi a nikdo treti vam nemuze narizovat jak se svym
autorstvim nalozite.
- Ano, ale pak to musim asi zkompilovat na registrovane verzi. Pokud jedu
napr. do Anglie a jezdim vpravo, tak mne nic na svete neomluvi, ze neumim
anglicky a neznam silnicni zakon dane zeme. Pokud si stahnu z internetu
program a je tam licence, tak je mou povinnosti si ji precist nebo dat
prelozit. Pokud si napr. dovezu ze zahranici stroj, tak musim nechat udelat
"Prohlaseni o shode", musim mit cesky popis (jinak jej nesmim uvest do
provozu). Pokud vim, tak se v jedne projektove kancelari na takovou vec
vubec neptali a chteli po nich 3 mil. Kc za neopravnene uzivani softwaru.
Ma to samozrejme logiku, protoze leckdo z nas rozumi programatorske BASIC
anglictine, ale malo kdo rozumi pravnicke anglictine licencnich ujednani. (A
coz nektera licencni ujednani v cestine? To jsou dilka!)
2. Freeware a nase danove zakony
Kdo programuje, tak obcas udela nejaky freeware a dokonce jej da i na
internet. Pro mne to bohuzel jiz znamena prakticky problem s nasimi urady -
hadejte s kterymi.
a. Nemohu si uplatnit naklady na vyvoj freeware, protoze neslouzi k dosazeni
a udrzeni ... bla bla ... Je to problem, pokud napriklad mate nakoupen
software, ve kterem jste "zatim" udelali jenom freeware (neni podstatne, ze
se tak ucite), pokud mate WWW server, na kterem je prevazne freeware, pokud
jste zaplatili zamestnance, ktery naprogramoval freeware atd.
ANO, SOUHLASI. Pokud byly naklady zaplaceny registrovanymi uzivateli, dal
bych tam 3 hodiny prace na www strankach.
b. Uzivatel co si stahl freeware by mel zaplatit darovaci dan.
... kde mame cca 100 000 stazeni a to v odhadnute
cene $5-$20 za kus.)
Zde si myslim, ze co neni na papire, pro FU nemuze platit. Platit muzete jen
za registrovane verze (tj. predane s Vasim podpisem). Ja bych rekl - citac
stahnutych verzi preskocil 99.900, at FU vyhleda vsechny uzivatele, kteri
doopravdy program uzivaji. Navic muzete mit program omezen necim, takze se
jedna treba o DEMO a je to jediny zpusob, jak proniknout na trh. Vyvojove
naklady tohoto freewaru jsou napr. 30 hodin, jelikoz ostatni jiz byly
zaplaceny v plne verzi. Navic se jedna o produkt, ktery ma jiz dnes vetsi
problemy s OS a je zastaraly - tj. neprodejny v plne cene. NAVIC, muze to
byt soucast nakladu na uvedeni dalsiho produktu na trh - pokud zaplatim 1
mil. za INVEX, take mi to jde do nakladu.
Rozhodli jsme se s freeware skoncit a budeme radi, pokud dojde k nejake
rozumne dohode. Zatim se jedna a ceka na zavazny vyklad.
- Nejhorsi na cele veci je. Pokud mas navic napr. 100 tis.Kc a pripravis si
"papiry" spravne, tak te nikdo nedostane. Pokud zacinas a zapomenes na
fakture jednu vetu (ktera nikdy nikomu nepomuze), tak Te mohou z FU
zruinovat
Ludek Paral
Lupasoft
(zaroven ekonom a controlling jedne vetsi firmy)
PS: Patrim take k jednumu stahovateli. Program se mi ale nepodarilo hned
rozchodit na W2000, tak jsem jej smazal
Licence, freeware, komponenty ze zahranici
[*] Ludek Paral <ludek.paral(zv)telecom(tec)cz> - 15.12.2001 20:39:37
Ahoj,
o vsem, co tady pisete, lze vest dlouhe diskuze a vzdy zalezi na osobe,
ktera bude tve ucetnictvi zkoumat. Jasne je, ze zalezi, jak se veci nazvou a
kdo prijde na kontrolu (jinak bude nahlizet pracovnice fu, ktera je tvoji
tetou a uplne jinak financni reditelstvi). Nechci veci podcenovat, ale co se
nam zda logicke, nemusi byt vzdy pravda. Jeden priklad - pocitacova sit se
musi pridat k hodnote budovy a odepisovat 30 let, protoze na to vysel pokyn
MF
Muzes prodavat pod cenou.
- do nakladu se muze dat pouze "naklady bezpodminecne nutne k dosazeni a
udrzeni prijmu". Pokud koupis PC za 50 tis a druhy den jej prodas za 1 Kc,
pak jde o to, zda byla prodejni cena "bezna" na trhu - znam dan.poradce ,
ktery drive pracoval na FU, ktery by takovyto naklad neuznal (tj. po trech
letech to dela dan z prijmu z 50 tis. za tri roky, sankci za neodvedeni
dane)
- pokud se Ti ale PC po pul roce rozbije a ty jej vyradis (ovsem s papirem o
likvidaci nebezpecneho odpadu), tak neni problem
> Pokud se provede sleva 100%, tak to sice konecny uzivatel dostane zadarmo,
- u daru a nedanovych nakladu se nesmi odecist DPH. Pokud zaplatim skole
vylet autobusem nebo pujdu na repre obed, tak si DPH odecist nesmim. Radsi
bych zarizeni "zapujcil" za min. poplatek, nebo jej po roce vyradil a vubec
bych o nejakem daru nebo prodeji za 1 Kc nepsal
> Jak to delaji vetsi firmy se mi nepodarilo zjistit, protoze je to dosti
> citliva otazka a nikdo se k ni radeji nevyjadril.
Zalezi, co se prodava. Pokud u softwaru urcim trzni cenu na 300 Kc, tak se
asi nenajde odbornik, ktery to vyvrati. Pokud ale prodavam dum za 300 Kc,
tak to vyvrati kdokoliv
Toto je zatim nase jedina nadeje, ze se jim nepodari prokazat
> skutecny pocet a tak nebude mozne vycislit presne hodnotu. (Vytistena
> stranka z internetu pravdepodobne nebude dostatecny argument u soudu.)
- V zakonu o ucetnictvi existuje veta "prukazne vedene ucetnictvi" Znam
firmy, kterym to napsal fu - v praxi jde o to, ze skrtnou potom 100 %
nakladu a zaplati se dan z prukaznych vynosu (slo radove o 7 mil. Kc dani).
Po takove zkusenosti si da clovek pozor
- U SW a Internetu je situace komplikovana. Napr. 90 % lidi prodavajicich PC
z druhe ruky nema zadny zivnost.list - musel by se najit bonzak, ktery jim
dokaze, ze jich prodali uz dvacet a jedna se o opakovanou cinnost.> pravdepodobne dostaneme jenom pokutu za neprukazne vedeni casti
dokumentace
> a bude nam ulozen prikaz k naprave. Doufam a vse tomu zatim nasvedcuje, ze
> to skonci takovouto dohodou. Pro nas je to ale velke varovani, ze s
> freewarem je nutne zatim skoncit.
- Otazka zni - pokud ten freeware nabizis, dokaze ti nekdo, kolik nakladu s
tim bylo, nebo napr. se jedna o kampan na ziskani zakaznika s tim, ze dalsi
verze bude placena ?? Pokud zaplati firma nekomu napr. 1000 Kc za tvorbu
freeware a i by to dala do nedanovych nakladu, tak ma snad vse kryte.
No to jsem sam zvedav. Zajimalo by me, kdo na takovou ptakovinu vubec
prisel. Evidentne urednici nemaji co delat... pres 100 miliard od
velkych podniku nevyberou, tak prudej.
- CO TO ZNAMENA TAKOVE FAMY OD VELKYCH PODNIKU ????? DELAM VE FIRME O 300
ZAMESTNANCICH, PLATIME STATU URCITE PRES 30 MIL ROCNE. VSICHNI MALI
SOUKROMNICI HLEDAJI KLICKY,JAK PLATIT CO NEJMIN - LIDI DOSTAVAJI NACERNO A
VETSINA PODNIKATELU PLATI MENSI DANE NEZ NAS ZAMESTNANEC.
- MOZNA MYSLIS ZKRACHOVALE STATNI PODNIKY (BANKY, ATD.)
- MILIARDY UTIKAJI SPISE PRES MAFIE - UKRAJINCI, VIETNAMCI. TI NEPLATI VUBEC
ZADNE DANE, ALE VYUZIVAJI UPLNE STEJNYCH SLUZEB NEMOCNIC, SKOL, ATD.
S pozdravem
Ludek Paral
Licence, freeware, komponenty ze zahranici
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.12.2001 21:28:14
Puvodni zprava, kterou napsal Ludek Paral dne 15 Dec 2001:
> nam zda logicke, nemusi byt vzdy pravda. Jeden priklad - pocitacova sit se
> musi pridat k hodnote budovy a odepisovat 30 let, protoze na to vysel pokyn
> MF
Pokyn MF je sice pekna vec, ale zavazny je zakon, pokud
to neni v zakone, tak to u soudu "mozna" neprojde...
> No to jsem sam zvedav. Zajimalo by me, kdo na takovou ptakovinu vubec
> prisel. Evidentne urednici nemaji co delat... pres 100 miliard od
> velkych podniku nevyberou, tak prudej.
> - CO TO ZNAMENA TAKOVE FAMY OD VELKYCH PODNIKU ????? DELAM VE FIRME O 300
> ZAMESTNANCICH, PLATIME STATU URCITE PRES 30 MIL ROCNE. VSICHNI MALI
> SOUKROMNICI HLEDAJI KLICKY,JAK PLATIT CO NEJMIN - LIDI DOSTAVAJI NACERNO A
> VETSINA PODNIKATELU PLATI MENSI DANE NEZ NAS ZAMESTNANEC.
> - MOZNA MYSLIS ZKRACHOVALE STATNI PODNIKY (BANKY, ATD.)
Ja myslim tech 100 miliard nedoplatku na dani, co je znamo.
To je jedno od koho, ale jsou to velci, protoze na male si
snadno doslapnou.
Ale tohle je asi dost off...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Databaze2
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 15.12.2001 23:17:27
> Na dvou ruznych pocitacich bezi databazova aplikace. Kazdy z uzivatelu si
do databaze klape sva data. Pak si ale vzpomenou, ze ve dvou se to lepe
tahne a ze by bylo dobre data spojit. Jde o to, ze kazdy ma zhruba "+-"
5000
zaznamu a mozna tak 1000 je stejnych. Jak provest dosypani dat do databaze,
tak aby se zapsaly jen zaznamy ktere v databazi nejsou obsazeny.
Jedna se o jednu tabulku. Mam takous predstavu, ze data z druhe aplikace
natahnu do StringListu a pak budu kazdy zaznam kontrolovat na shodnost vsech
polozek v tabulce v prvni aplikaci. Paklize ze by uzivazel v druhe aplikaci
udelal za totoznym textem byt i mezeru navic nebo by zapomel na diakriticke
znamenko, bude to jiny zaznam. Jenom nevim kolik zaznamu snese
StringList nebo existuje-li jina efektivnejsi metoda?
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 11.12.2001
OT:Licence a freeware
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 16.12.2001 00:23:11
Se zajmem sleduji diskuzi kolem licenci a freeware. Jelikoz je moje
polovicka danovy poradce, zkusim jejimi slovy trosku prispet do diskuse.
Nejdrive ale neco z mych myslenek, za ktere jak doufam nebudu kamenovan.
Legalnost SW - asi nikomu z nas by se nelibilo kdyby se v den vyplaty u
okenka objevil neznamy, ktery by si odnesl cast, nebo celou moji vyplatu.
Jina otazka je ale cenova politika SW firem a nechutny kurz nasi Kc vuci
jinym menam. Mame pomalu a jiste svetove ceny, ale nase odmeny za praci jsou
jen demoverzi. Tim nechci rici, ze pokud by ceny SW priblizily nasim
financnim moznostem ustalo by uplne SW piratstvi, ale urcite by podstatne
kleslo.
Co se tyka konference a rad zadarmo. Jsem nesmirne vdecny vsem, kteri mi
pomohli a pomahaji radou jak uplacat v Delphi neco co se rozebehne a plni to
co jsem si predstavoval. Myslim si ze tento druh vymeny informaci nas tak
trochu odlisuje od od ostatnich zemi a udrzuje cesky narod na vysi (tim
nemyslim je konferenci, ale vzpomente si na ruzna byvala sdruzeni jako
radioamateri, elektronici, modelari .....) Cesky clovek si vzdy umel poradit
se spoustou veci .
Pokud by konference mela byt placenou sluzbou asi bych se nebranil. Vemte si
kolik stoji ruzna skoleni a knizky. Jinou otazkou je, kolik lidi by na
konferenci zustalo a zda by se pripadny ubytek diskutujicich neodrazil na
kvalite. Ono nekdy staci diskuzi sledovat a pak cloveka napadne a co to
udelat takhle. Nebo jinymi slovy kdyz nevim na co se zeptat tak se nezeptam.
******
Financni urad pri kontrole sotva vyhodi nakup SW jenom proto, ze licencni
ujednani je psane v cizim jazyce. Protoze zakon o ucetnictvi stanovi, ze
ucetnictvi ma byt vedeno v ceskem jazyce, muze pri kontrole vyzvat k
doplneni ucetniho dokladu. Tim je i preklad podkladu napr. smlouvy) do
cestiny.
Co se tyka zaruky za SW, pokud je zakoupen treba v zahranici, ale legalne,
neni duvod proc neuplatnit v pripade potreby zaruku, pripadne rozsireni o
nove verze. Radna licence neni zavisla na miste, kde jsem program koupila.
Uplatneni zaruky uz z mistem nakupu samozrejme muze spojitost mit.
Asi by bylo na miste trochu si priblizit, jak se muze freeware v
ucetnictvi chovat.
Poridim-li si program, ktery nezaplatim ani s autorem nemam uzavrenou
smlouvu o pouzivani jeho autorskeho dila, nevznikly mi zadne naklady, ktere
bych v ucetnictvi mela uplatnit. (pokud nepocitam svuj cas nebo cas
spolupracovniku, ktery byl venovat stazeni, kopirovani a naslednou instalaci
programu do meho pocitace).
A pokud neuplatnuji zadne naklady, nema mi financni urad pri kontrole co
vyhodit.
Je tu maly problem, jestli mi nevznikl majetkovy prospech. To je ale citliva
oblast, a do nej by se FU pravdepodobne pustil pouze vyjimecne.
Program, ktery vytvorim a nekomu jej poskytnu zadarmo �
- v danich se vychazi ze zasady, ze v podnikani nikdo nikomu nic
neda zadarmo. A kdyz, tak za to urcite je nejaka protisluzba..
Jestlize umistim na svych strankach demoverze sveho programu, nedavam nikomu
nic zadarmo. Je jedno, jestli se jedna o plne funkcni program casove
omezeny, nebo o program, ktery neni plne funkcni. Jedna se o obchodni
nabidku a veskere vydaje s tim spojene jsou danove uznatelne.
Jina vec je, jake naklady mi vznikly, kdyz jsem program vymyslela. Pokud
jsem program napsala a nabidla v prubehu roku a naklady prokazatelne nebyly
vyssi nez 60 tis.Kc, potom je muzu nechat v nakladech.
Pokud ale naklady s vyvojem SW jsou vyssi, musim naklady casove rozlisit.
Vyssi naklady se mohou nascitat a zalezi na tom, jak dokazu v ucetnictvi
dolozit svoji praci.
Rozhodnuti financnich uradu jsou ruzna. Pokud pri kontrole nabudou dojmu,
ze jste ziskali nejaky majetkovy prospech, muzou v zasade domerit
spoustu veci. Pokud jsem ale v ramci obchodni prezentace nabidla vysledky
svoji prace s tim, ze kdo bude mit zajem program pouzivat, musi zaplatit
dohodnutou (smluvni) cenu, potom nedavam nic zadarmo.
Samozrejme, ze to ma svoje hacky. Je to jako v obchode. Pokud si nekdo
vybere zbozi a odejde bez zaplacen�, mus�m zvazovat, jestli porizovaci cena,
za kterou jsem zbozi nakoupila je pro mne danovym nakladem. Nebo musim
zlodeje chytnout a potom mi vuci nemu vznikne pohledavka, kterou mi musi
zaplatit, protoze ja ji zdanuju.
Vseobecne receno, pokud budu uplatnovat ve svem ucetnictvi naklady, spojene
s tvorbou SW a nebudu nic prodavat, potom mi FU tezko uzna naklady, o
kterych uctuju. Navic muze nabyt dojmu, ze zatajuju nejake prijmy a potom mi
muze domerit dan.
Budu-li mit trzby z prodeje SW a v ramci sve nabidky budu prezentovat svoje
programy napr. na internetu, s nejvetsi pravdepodobnosti nikdo nezpochybni
mnou vedene prijmy ani vydaje s tim spojene.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 12.12.2001
OT:Licence a freeware
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.12.2001 01:27:38
Puvodni zprava, kterou napsal Viktor Marek dne 16 Dec 2001:
> Samozrejme, ze to ma svoje hacky. Je to jako v obchode. Pokud si nekdo
> vybere zbozi a odejde bez zaplacen�, mus�m zvazovat, jestli porizovaci cena,
> za kterou jsem zbozi nakoupila je pro mne danovym nakladem. Nebo musim
> zlodeje chytnout a potom mi vuci nemu vznikne pohledavka, kterou mi musi
> zaplatit, protoze ja ji zdanuju.
Jen kratce - myslim si, ze nejvetsi problem vsech danovych poradcu
a uredniku financniho uradu je prave v tom, ze software je uplne
o necem jinem nez bezne zbozi. Ale nejvice me zaujal prave tento
odstavec, protoze pokud by si toto urednici precetli, hned by bylo
veselo. Protoze by hned zasli treba do Microsoftu a podle procenta
uvazovanych nelegalnich licenci jim hezky pekne zkratili naklady
na 5% :))) Protoze spousta lidi krade software, takze se neplati
a za tyto lidi si preci nemohou davat do nakladu vstupy...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Licence, freeware, komponenty ze zahranici
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 16.12.2001 09:31:51
On 15 Dec 2001 at 20:39, Lud�k P�ral wrote:
> Takze pokud s Delphi 6PE neni dodavano upozorneni v cestine na omezeni
> uziti programu, ktera si kupujici muze precist pred koupi produktu,
> muzete si v teto verzi vyvijet co chcete a prodavat to nebo
> spotrebovavat jak chcete.
Ja vidim nejvetsi problem v takovemto zpusobu uvazovani. Ono je to o obecne moralce. Kazdy,
kdo takhle uvazuje, at se zamysli sam nad sebou, zda neco nahodou nedela spatne. Pokud
existuji lide, kteri vymysleji takovehle uniky, pak neni divu, ze na druhe strane bernaci vymysleji
jine obezlicky. Dusledkem je, ze se nam vsem pak zije o neco hur...
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Jak osetrit jakoukoliv vyjimku ?
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 16.12.2001 11:29:30
> Odes�latel: Ing. Vladim�r R��i�ka <ruzicka(zv)digitus(tec)cz>
> P�edm�t: Jak osetrit jakoukoliv vyjimku ?
Uz to tady bylo mnohokrat, takze jeste jednou.
AppEvents nepouzivam, radsi se spolehnu sam na sebe.
type
TForm1 = class (TForm)
procedure MyExceptionHandler(Sender:TObject; E:Exception);
...
end;
procedure TForm1.MyExceptionHandler(Sender:TObject; E:Exception);
begin
ShowMessage(E.Message);
// nebo cokoli jineho
end;
TForm1.OnCreate:
Application.OnException:= MyExceptionHandler;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Property editor
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 16.12.2001 12:54:28
Dekuji panu Ondrejovi Kellemu - rada pomohla. Pouze pro upresneni dodavam,
ze je zapotrebi zaradit do uses i IBDBReg z dclib. Reknete mi ale - JAK
prichazite na nazvy trid editoru - zdrojaky nejsou, v helpu jsem je nenasel
a jasnovidec (bohuzel) nejsem.
Diky
D.Redlich
----- Original Message -----
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, December 15, 2001 11:45 AM
Subject: RE: Property editor
> > Vyrobil jsem komponentu odvozenou od IBClientDataset a potreboval bych
> > registrovat u nove property stejny editor, jako je u CommandTextu - tedy
> > nabidku tabulek a fieldu v databazi pro snadnejsi zadani SQL.
> > Vzhledem k tomu, ze nova property je zcela analogicka jako
> > CommandText, bylo by mozne pouzit ten samy editor. Bohuzel se mi
> > nepodarilo najit ve zdrojovych souborech Delphi odpovidajici registraci.
> > Muzete mi poradit ?
>
> Do svojej designtime package pridaj klauzulu requires dclib;
> potom mozes pouzit nieco taketo:
>
> procedure Register;
> begin
> RegisterComponents('My IB', [TMyIBClientDataSet]);
> RegisterPropertyEditor(TypeInfo(string), TMyIBClientDataSet,
> 'MyNewProperty', TIBCDSCommandTextProperty);
> end;
>
> HTH
> TOndrej
>Licence, freeware, komponenty ze zahranici
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 16.12.2001 13:30:33
> Odes�latel: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> pak neni divu, ze na druhe strane bernaci vymysleji
> jine obezlicky. Dusledkem je, ze se nam vsem pak zije o neco hur...
Svata pravda, Zbysku,
a vubec nejde jenom o software, samozrejme.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Licence, freeware, komponenty ze zahranici
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 16.12.2001 14:54:26
no jo - proboha, kdyt jsou Vanoce a ja budu darovat spoustu darku. A z
kazdeho zaplatim bernaku darovaci dan a potom si za zbyvajici penize pujdu
koupit provaz.
PS: Vazne - jaky je rozdil mezi tim, kdyz nekomu daruji freeware a darek k
Vanocum?
Petr
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Sebel�k
Sent: Sunday, December 16, 2001 1:31 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Licence, freeware, komponenty ze zahranici
> Odes�latel: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> pak neni divu, ze na druhe strane bernaci vymysleji
> jine obezlicky. Dusledkem je, ze se nam vsem pak zije o neco hur...
Svata pravda, Zbysku,
a vubec nejde jenom o software, samozrejme.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 11.12.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 11.12.2001
Modalne okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.2001 14:57:56
From: "Roman Budinec" <roman(zv)ttc-telecom.sk>
> mam nasledujuci problem. Ak otvorim nad form-om dalsi modaly form, chcel
> by som, aby tento blokoval len jeho vlastnika, ale nie ostatne.
> Je to vobec mozne? Ak nie, je nejaky sposob, ako to urobil inak?
Ahoj,
podle popisu by to mohlo byt tohle:
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=oct&den=03&soubor=dlfaaaaz.htm
Petr Vones
USB printer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.2001 15:02:59
From: "Robert Suska" <robert(zv)korak.sk>
> Ahojte, prepacte ze sa pytam na inu vec ako je Delphi ale proste uz som v
> koncoch. Jedna sa o USB tlaciarne ci uz laserove alebo tryskove konkretne o
> typ HP LaserJet 1000 a HP DeskJet 940C su pripojene ku PC cez USB a kazdy s
Ahoj,
S drivery od HP jsou problemy porad, cehoz dusledkem jsou i prispevky v teto
konferenci. Mozna je jeste problem s USB driverem na te desce. Jinak v pripade
ze to potrebujes uvest do funkcniho stavu za kazdou cenu bych asi volil jineho
vyrobce tiskarny, bohuzel. S USB tiskarnami obecne jinak problem neni.
Petr Vones
Seriove cislo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.2001 15:04:22
From: "Martin �d�rsk�" <zdary(zv)seznam(tec)cz>
> Ahoj, jak lze zjistit vyrobni cislo lib. hardwaru? Pokousim se o
> zabezpeceni produktu.
Ahoj,
v tomhle pripade by slo asi o seriove cislo disku. Nicmene takovehle ochrany
se nakonec obrati vzdy jen proti legalnim uzivatelum.
Petr Vones
Licence, freeware, komponenty ze zahranici
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.2001 15:17:06
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Ja vidim nejvetsi problem v takovemto zpusobu uvazovani. Ono je to o obecne
> moralce. Kazdy, kdo takhle uvazuje, at se zamysli sam nad sebou, zda neco
> nahodou nedela spatne. Pokud existuji lide, kteri vymysleji takovehle uniky,
> pak neni divu, ze na druhe strane bernaci vymysleji jine obezlicky.
> Dusledkem je, ze se nam vsem pak zije o neco hur...
Tohle je bohuzel pravda. Nekdy uz je ale tezke rozlisit, ktera strana v danem
pripade zavdala pricinu a ktera z toho pak vyvodila dusledek. V praxi to ale
zatim vypada tak, ze toho svinstva je prece jen vic ze strany statu a moci
uredni, kterazto je navic placena z penez tech, proti kterym se to pak obraci.
Petr Vones
Kopirovani textu do Edit poli cizi aplikace
[*] <morzol(zv)atlas(tec)cz> - 16.12.2001 15:36:26
Muzete poradit jak kopirovat text do edit poli cizi aplikace, popripade cist hodnotu z techto poli ?
Diky
Existuji API funkce pro praci s typy souboru?
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 16.12.2001 15:40:12
Ahoj,
osobne jsem sice nic nenasel, ale zkusenejsi treba vi... (pro jistotu)
At nepisu neco zbytecne. Neexistuji nejake API funkce treba pro pridani
akce k danemu typu atd.?
Neco jako:
PridejAkci (PriponaTypu, MojeAkce, Prikaz)
ZaregistrujTyp (Pripona, Popis)
...
Miroslav Novosad
mirnov(zv)atlas(tec)cz
Licence, freeware, komponenty ze zahranici
[*] Roman Toda <toda(zv)digitaldocuments.org> - 16.12.2001 15:41:26
Uz je ta debata ide inde. Podla mna je tu kazdemu jasne, ze ked zijem z
programovania, tak si Delphi, Win atd musim kupit a som presvedceny ze
vacsina tak skor ci neskor urobi. (resp. ked zarobi aspon tolko aby na to
mal :-) ) Ked z niecoho nezijem, nebudem si uplatnovat naroky na vratenie
DPH, nebudem si to davat do nakladov. Vyroba freeware, web stranok,
reklamnych letakov, pisanie mailov - to vsetko mne sluzi na vytvaranie zisku
a preto si to do nakladov dam. A nebudem z toho platit dan, lebo tu zaplatim
z toho co predam.
Kazdy musi z niecoho zit, preto aj freeware nie je celkom zadarmo. Jeho cena
je niekde uplne inde (reklama na www strankach, raklama v aboute, podchyteny
potencionalny zakaznici atd.)
Som presvedceny, ze ked budem prosperovat = platit dane nikto nebude odo mna
chciet aby som platil za kazdeho cloveka ktory si precita moje stranky,
ktoremu poradim, pripadne mu zaspievam :)
Takze chyba je len v tom, ze danovy uradnik, poradca atd. neruzumeju tomu
naco ten freeware vyrabate.
Roman
> Tohle je bohuzel pravda. Nekdy uz je ale tezke rozlisit, ktera strana v
danem
> pripade zavdala pricinu a ktera z toho pak vyvodila dusledek. V praxi to
ale
> zatim vypada tak, ze toho svinstva je prece jen vic ze strany statu a moci
> uredni, kterazto je navic placena z penez tech, proti kterym se to pak
obraci.
>
Inside BPL Was: Property editor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.2001 15:42:58
From: "Redlich Software" <RedlichDaniel(zv)seznam(tec)cz>
> Dekuji panu Ondrejovi Kellemu - rada pomohla. Pouze pro upresneni dodavam,
> ze je zapotrebi zaradit do uses i IBDBReg z dclib. Reknete mi ale - JAK
> prichazite na nazvy trid editoru - zdrojaky nejsou, v helpu jsem je nenasel
> a jasnovidec (bohuzel) nejsem.
Ahoj,
zmineny unit MaskProp je videt v souboru DBreg.pas. Dale k balickum:
Z kazdeho balicku lze ziskat seznam unitu ktere obsahuje a dalsi informace.
Lze k tomu pouzit treba PE Viewer (http://www.volweb(tec)cz/pvones/delphi/) v nem
otevrit balicek, v menu dat View | View Resources, ve stromu pak kliknout na
RCData -> PACKAGEINFO a vysledkem bude zhruba toto:
Contains
-----------------------------------------------------------------------------
DCLIB50 [Main, Package]
IBDatabaseEdit []
IBDBReg []
IBEventsEditor []
IBGeneratorEditor []
IBTransactionEdit []
IBUpdateSQLEditor []
SysInit []
Requires
-----------------------------------------------------------------------------
dcldb50
dsnide50
vcl50
VCLDB50
VCLIB50
Package Info flags
-----------------------------------------------------------------------------
Options : NeverBuild, DesignOnly
Module type: Package
Producer : Delphi 4 or later
Jednoduchy priklad jak toto udelat programove muzes vypadat treba takhle, unit
JclPeImage pochazi z JCL (http://delphi-jedi.org/Jedi:CODELIBJCL):
uses
JclPeImage;
procedure TForm1.Button1Click(Sender: TObject);
var
BorImage: TJclPeBorImage;
begin
Memo1.Lines.Clear;
BorImage := TJclPeBorImage.Create;
try
BorImage.FileName := 'vcl50.bpl';
if BorImage.PackageInfo.Available then
Memo1.Lines.Assign(BorImage.PackageInfo.Contains);
finally
BorImage.Free;
end;
end;
Podobne je to i s nazvy trid, typu, resourcestringu apod, viz priklad
UnmangleNameExample.dpr z jiz vyse uvedene knihovny.
Petr Vones
Property editor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.2001 15:46:03
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> od verzie 6 musi byt v Delphi designtime kod oddeleny od runtime:
Ahoj,
k tomu jen poznamka. Tohle platilo uz v dobe Delphi 5, lepe receno bylo to
doporucovano, ale bohuzel z duvodu (jakesi pofiderni) zpetne kompatibility byl
design-time kod stale v zakladnim VCL50.BPL balicku. V Delphi 6 uz je to
konecne tak, jak to melo byt od zacatku. Bohuzel existuje dost kodu, ktery je
psan spatne a pri prechodu na Delphi 6 toto vyslo na povrch.
Petr Vones
Licence, freeware, komponenty ze zahranici
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.12.2001 16:11:49
From: "Roman Toda" <toda(zv)digitaldocuments.org>
> Takze chyba je len v tom, ze danovy uradnik, poradca atd. neruzumeju tomu
> naco ten freeware vyrabate.
Ano, debata je sice uz jinde, ale jak znamo vsechno souvisi se vsim a to plati
i v tomto pripade. Chyba je predevsim v tom, ze tento stat by nejradeji okradl
i mrtveho, jen aby mohl penize prerozdelovat/rozhazovat. Takze je tu evidentni
snaha zdanit cokoliv, pomalu uz i vzduch. Tim myslim tahle debata taky zacala.
Petr Vones
Databaze2
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.12.2001 16:49:10
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Jedna se o jednu tabulku. Mam takous predstavu, ze data z druhe aplikace
> natahnu do StringListu a pak budu kazdy zaznam kontrolovat na shodnost
vsech
> polozek v tabulce v prvni aplikaci. Paklize ze by uzivazel v druhe
aplikaci
> udelal za totoznym textem byt i mezeru navic nebo by zapomel na
diakriticke
> znamenko, bude to jiny zaznam. Jenom nevim kolik zaznamu snese
> StringList nebo existuje-li jina efektivnejsi metoda?
>
Ahoj.
Mozna "dvoucestne".
1) Jednu databazi vyexportovat do textov�ho souboru, nejlepe s pevnou delkou
(pokud tam nejsou blob pole).
2) Necist radek z tohohle souboru, zkontrolovat polozky a insertovat nebo
zahodit.
Ludek
Licence, freeware, komponenty ze zahranici
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.12.2001 18:24:17
From: "Ing. Petr �vejda" <lingvista(zv)lingvista(tec)cz>
> PS: Vazne - jaky je rozdil mezi tim, kdyz nekomu daruji freeware
> a darek k Vanocum?
Nejspis jen v tom, ze darky k vanocum davame vetsinou lidem z
pribuzenske kategorie I a ti jsou osvobozeni od dane do 1 000 000,-
a i pribuznym v kategorii II se do 60 000,- ledacos vejde.
Podivej se napr. sem:
http://www.penize(tec)cz/zivot/dane/darovaci/default.asp
Bye, pf
Oracle a Kylix
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 16.12.2001 18:38:45
> > > nemate nekdo nejake informace o moznostech pristupu k
> Oracle serveru z
> > > aplikaci bezicich pod Linuxem ? Pro vyvoj aplikaci
> predpokladam pouziti
> Kylixu.
> > > Odkazy, zkusenosti...
> Kylix to podporuje (dbExpress).
> > > Odkazy
> http://www.borland.com/kylix/
> > > zkusenosti...
> Trochu to pada, torchu je to drahe ale inak fajn. ;-))
> Kaka�ka Pavol
Diky,
ale podpora pro Oracle (resp. driver pro dbExpress) je podle datashetu az u
Enterprise Edition (cili bratru 70 kKc). Nevite nekdo o necem, co by
fungovalo i s Professional Edition ?
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
OT - Chyba v Event logu Win2000
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.12.2001 19:19:11
Ahojte.
Co to sposobuje ?
Procedura Open slu�by Nbf v knihovn DLL C:\WINNT\System32\perfctrs.dll
selhala. V�konnostn data tto slu�by nebudou k dispozici. Vr�cen� data k�du
stavu: DWORD 0.
PS: Vstko funguje ako ma ale tato chyba sa generuje kazdu sekundu v urcitych
casovych intervaloch, preco ?
Dakujem.
Roland.Licence, freeware, komponenty ze zahranici
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.12.2001 19:23:40
----- Original Message -----
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> From: "Ing. Petr �vejda" <lingvista(zv)lingvista(tec)cz>
>
> > PS: Vazne - jaky je rozdil mezi tim, kdyz nekomu daruji freeware
> > a darek k Vanocum?
>
> Nejspis jen v tom, ze darky k vanocum davame vetsinou lidem z
> pribuzenske kategorie I a ti jsou osvobozeni od dane do 1 000 000,-
> a i pribuznym v kategorii II se do 60 000,- ledacos vejde.
>
> Podivej se napr. sem:
>
> http://www.penize(tec)cz/zivot/dane/darovaci/default.asp
>
Ahoj.
No jestli dobre vidim, od darovaci dane je III. skupina osvobozena do 20000
K�.
III. p��buzensk� skupina
- fyzick� osoby bez p��buzensk�ho vztahu
- pr�vnick� osoby
Tak�e by freeware muselo mit hodnotu pres 20 000,- Kc aby mohl po Vas nekdo
chtit zaplatit dan.
Takze snad neni diskuze o tom, ze vetsina freeware vetsi hodnotu nema
respektive by FU jen velmi tezko dokazoval, ze muj SW presahuje hodnotu 20
000 Kc i kdyby podobny SW byl prodavan za stejne penize uz jen pro to, ze
(jak spravne poznamenal P.Vones) soucasti ceny freeware neni technicka
podpora, zaruky a pod.
Takze doufejme, ze jde jen o plany poplach.
Ludek
OT:Licence a freeware
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 16.12.2001 19:37:15
Byla rec o nakupu SW v zahranici. To mi pripomnelo jeden (mozna
vzdalene) souvisejici dotaz. Admine, promin.
Tusim ze to bylo nejak pred rokem, kdy Borland CZ prohlasil, ze v
zahranici koupene (= jim nedovezene) kopie Delphi budou povazovany za
nelegalni. To me tehdy celkem nadzvedlo.
Kdyz jsme u tech licenci, je toto vubec pravne mozne?
Miroslav Novosad
mirnov(zv)atlas(tec)cz
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
To: "Konference Delphi 2000" <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, December 16, 2001 12:23 AM
Subject: OT:Licence a freeware
> Co se tyka zaruky za SW, pokud je zakoupen treba v zahranici, ale
legalne,
> neni duvod proc neuplatnit v pripade potreby zaruku, pripadne
rozsireni o
> nove verze. Radna licence neni zavisla na miste, kde jsem program
koupila.
Oracle a Kylix II.
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 16.12.2001 19:54:40
Ahoj,
nasel jsem odkaz na netu na Oracle Data Access Components
(http://www.crlab.com/odac.html). Udajne to funguje i s Kylixem, mate nekdo
nejake zkusenosti ?
Diky
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
TThread a TPopupMenu, TMainMenu
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 16.12.2001 20:09:31
Dobry den,
v aplikaci by se mi hodilo TPopupMenu, ktere by se zavrelo po urcite chvili
a nebo okamzite pri "vyjeti" mysi mimo plochu TPopupMenu vcetne i dalsich
vnorenych nabidek.
Napadla me moznost vytvorit potomka a pomoci TThread cekat a pak
zkontrolovat zda ukazatel mysi je jeste v okne TPopupMenu, ale pro
universalnost jsem chtel vytvorit potomka TThread a v property zadavat
TPopupMenu nebo TMainMenu, taktez jsem chtel, aby pri "zustani" mysi na
polozce se za urcity cas provedla (jako kliknuti). Lec nejak netusim jak na
to. Zda mam ve vlakne testovat zda je menu zobrazeno a nebo zda by to slo
resit nejak jinak - elegantneji...
Jak zjistim, ze menu je zobrazeno?
Jak jej uzavru? Pomoci WM_CLOSE?
Jak resit na ktere polozce je mys?
Jak zjistit, ze je mysi ukazatel na nejakem z dalsich oken menu?
A nebo existuje jiz neco takoveho?
Dekuji
Zdenek Janish, D6, SP1
Licence, freeware, komponenty ze zahranici
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 16.12.2001 20:37:31
On 16 Dec 2001 at 15:17, Petr Vones wrote:
> From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> > Ja vidim nejvetsi problem v takovemto zpusobu uvazovani. Ono je to o
> > obecne moralce. Kazdy, kdo takhle uvazuje, at se zamysli sam nad
> > sebou, zda neco nahodou nedela spatne. Pokud existuji lide, kteri
> > vymysleji takovehle uniky, pak neni divu, ze na druhe strane bernaci
> > vymysleji jine obezlicky. Dusledkem je, ze se nam vsem pak zije o
> > neco hur...
>
> Tohle je bohuzel pravda. Nekdy uz je ale tezke rozlisit, ktera strana
> v danem pripade zavdala pricinu a ktera z toho pak vyvodila dusledek.
> V praxi to ale zatim vypada tak, ze toho svinstva je prece jen vic ze
> strany statu a moci uredni, kterazto je navic placena z penez tech,
> proti kterym se to pak obraci.
Pro me to v praxi znamena, ze kdyz si Borland u PE verze preje, aby vyvojar nejakym zpusobem
zachazel s programy, ktere pod touto verzi napise, pak je duvod toto prani akceptovat, i kdyz neni
napsane v cestine. Jestlize ja budu mit ciste svedomi, pak mam urcite moralni pravo chtit po
bernaku slusne zachazeni. Ovsem pokud bernak musi postihovat i vycuranky, pak mam asi holt
smulu...
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Licence, freeware, komponenty ze zahranici
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.12.2001 20:37:08
From: "Lud�k ZITA" <konference(zv)sales(tec)cz>
> No jestli dobre vidim, od darovaci dane je III. skupina
> osvobozena do 20000 K�.
Souhlasim: vsechno, co uvadel autor puvodniho prispevku Jaroslav
Pospisil, by bylo logicke, kdyby obvykla cena presahla tech 20000,-
Pak by ho stat asi docela pravem bral k odpovednosti jako rucitele
za nezaplacenou darovaci dan.
Ale takhle? Potiz je nejspis v tom, ze zakon presne nestanovi, jak
postupovat v pripade "hromadneho obdarovani" blize
neidentifikovatelnych nabyvatelu.
Tady zrejme zbyva jen se soudit a doufat, ze zdravy rozum zvitezi.
Bye, pf
Licence, freeware, komponenty ze zahranici
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.12.2001 20:45:44
From: "Lud�k ZITA" <konference(zv)sales(tec)cz>
> Tak�e by freeware muselo mit hodnotu pres 20 000,- Kc
> aby mohl po Vas nekdo chtit zaplatit dan.
Maly detail: ceny vsech daru se scitaji za dva roky a z castky nad
20000 (u kategorie III) se pak plati dan.
Bye, pf
OT:Licence a freeware
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 16.12.2001 20:47:57
> Puvodni zprava, kterou napsal Viktor Marek dne 16 Dec 2001:
>
> > Samozrejme, ze to ma svoje hacky. Je to jako v obchode. Pokud si nekdo
> > vybere zbozi a odejde bez zaplacen�, mus�m zvazovat, jestli porizovaci
cena,
> > za kterou jsem zbozi nakoupila je pro mne danovym nakladem. Nebo musim
> > zlodeje chytnout a potom mi vuci nemu vznikne pohledavka, kterou mi musi
> > zaplatit, protoze ja ji zdanuju.
>
> Jen kratce - myslim si, ze nejvetsi problem vsech danovych poradcu
> a uredniku financniho uradu je prave v tom, ze software je uplne
> o necem jinem nez bezne zbozi. Ale nejvice me zaujal prave tento
> odstavec, protoze pokud by si toto urednici precetli, hned by bylo
> veselo. Protoze by hned zasli treba do Microsoftu a podle procenta
> uvazovanych nelegalnich licenci jim hezky pekne zkratili naklady
> na 5% :))) Protoze spousta lidi krade software, takze se neplati
> a za tyto lidi si preci nemohou davat do nakladu vstupy...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
Stanovisko danoveho poradce reg cislo 127
Podle vasi odpovedi je zrejme, ze kazdy mluvime o necem jinem. Vy hajite
prava podle autorskeho zakona a vyuzivate sveho prava zachazet se svym
dusevnim vlastnictvim podle sveho uvazeni.
Tohle vsechno muzete a ani obdarovanemu v podstate nehrozi vazne nebezpeci,
pokud se nejedna o majetkovy prospech vetsiho rozsahu. V obcanskych
zalezitostech financni urad ma velice malo moznosti dokazat a domerit.
Jina situace ale nastava, jestli o svem dusevnim vlastnictvi uctujete.
Maly priklad:
kdyz si koupite Delphi jako nepodnikatel (tj. nebudete porizovaci cenu
uplatnovat jako vydaj na dosazeni, zajisteni a udrzeni svych prijmu) a
budete si v nem programovat ve svem volnem case, je to vase zalezitost a
jestli vysledek sve prace nekomu nechate zadarmo, zadny FU vas nebude
domerovat. (samozrejme i tady by se nasly vyjimky).
V okamziku, kdy za vysledek svoji cinnosti dostanete od nekoho zaplaceno uz
musite zvazovat, co ze to vlastne prijimate za pozitek.
Vy nazyvate tento prijem autorskym pravem, nelibi se vam pojem zbozi.
Na teto terminologii se spolu shodneme, pokud v oboru nepodnikate.
Jestlize jste podnikatel, svuj program nakopirujete na nosic, protom bez
ohledu na skutecnost, ze v podstate opravdu davate k dispozici licenci ke
svemu tvurcimu dilku, v ucetnictvi ma tato obchodni transakce stejny dopad
jako prijem za zbozi.
Je to logicke. Vy jste na vyvoj tohoto sveho dilka vynakladal po urcitou
dobu urcite naklady. Ve svem stanovisku jste ovsem tuto skutecnost velice
podcenil a zlehcil:
'' "... protoze spousta lidi krade software, takze se neplati a za tyto lidi
si preci nemohu davat do nakladu vstupy....." "
V tehle vete jste spojil dohromady autora i uzivatele.
V ucetnictvi a v danich musite vzdycky oddelit jednotlive pripady. Jako
autor, ktery prodava, samozrejme nemuzete byt zdanovan za to, ze vase
myslenky nekdo krade. Neslysela jsem o pripade, ze by tohle nejaky financni
urad chtel domerit (i kdyz pokusit se muze, vy se ale muzete branit)
Predstavte si ale situaci, kdyz nekoho dopadnete a usvedcite, ze ukradl
(zkopiroval) vas program.
Muzete se s nim soudit a v takove chvili musite vycislit, jaka skoda vam
vznikla. A tahle skoda uz je vasim potencialnim prijmem, pokud spor
vyhrajete a soud vam da za pravdu.
Vase prohra v soudni pri by ale v zadnem pripade neznamenala, ze si
nemuzete nechat v nakladech vstupy,
dokonce i naklady na prohrany spor.
Problem nakladu na vstupu je v jejich casove vazbe na predpokladane nebo
skutecne prijmy.
To o cem pochybujete, neni problem danovych poradcu ani financnich
uredniku.
Je to vykladovy problem mezi p r a v e m autora ke svemu dilu podle
autorskeho zakona
a p o v i n n o s t i autora vuci statni kase v pripade prijmu za svoje
dilo.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 11.12.2001
Zarovnani TEdit doprava
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 16.12.2001 21:35:17
Potrebuji zadavat do TEditu castky v korunach a halerich. Potreboval bych
tedy zarovnani doprava a kontrolu (hlavne to doprava). V tomto projektu
nemuzu pouzit komponenty tretich stran.
V knze 1001 tipu a triku jsem nasel tip 832, ktery vsak nedokazu
implementovat.
PS: Petre - kam to mam dat, aby mi to chodilo? Please .....
Muzete mi nekdo poslat malou ukazku? Dva edity na formulari a budou
zarovnavat doprava s moznosti zadavat halere.
Diky
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 11.12.2001
Sifrovanie
[*] Du�an Andr����s��v#�� ��w� - 16.12.2001 21:47:01
Zdravim.
Potrebujem upravit jednu aplikaciu :
D5 -> ADO -> MSDE2000 (Provider=SQLOLEDB)
tak, aby data boli (aspon trocha) chranene, t.j. aby bolo aspon nejako
stazene ich pripadne vyuzitie v inej aplikacii.
Skusame ich "sifrovat" - v podstate ide len o to, ze pred ulozenim ich
prezenieme cez nejaku sifrovaciu funkciu a samozrejme pri citani to
iste, ale v opacnom smere. Problem je pri citani - "niekto" (neviem ci
prave ADO - alebo OLEDB - alebo kto resp. co) nam ich konvertuje, t.j.
napr. ak mam uloceny ('zasifrovany') retazec (varchar) ktory obsahuje
znak 0x89 - tak namiesto neho mi ADO poda znak 0x30. K takymto
"konverziam" dochadza aj pri nvarchar.
Neviete niekto poradit preco k tomu dochadza resp. ako by sa to dalo
oklamat/zrusit ?
Dusan Andras
PS: V SQL to asi nebude, pretoze ked dekodujem priamo v SP - tak je to v
poriadku - samozrejme by som radsej chcel mat dekoder az v delfach - z
tamade ho pripadny "narusitel" dostane o nieco tazsie ako zo SP (hoc
sifrovanej) - a okrem tohe je aj prenos "sifrovany".
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.306 / Virov� b�ze: 166 - datum vyd�n�: 4.12. 2001
Licence, freeware, komponenty ze zahranici
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.12.2001 22:14:02
----- Original Message -----
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> Maly detail: ceny vsech daru se scitaji za dva roky a z castky nad
> 20000 (u kategorie III) se pak plati dan.
>
> Bye, pf
"Cena majetku darovan�ho jednomu nabyvateli od jednoho d�rce se s��t� v
pr�b�hu dvou kalend߰n�ch rok�. Tento sou�et je z�kladem dan�."
Vzhledem k tomu, ze uzivaci pravo k SW (to plati i u freeware) lze jaksi
pouzit jen jednou pro danou osobu, staci tedy mit jistotu, ze celkova
hodnota mnou nabizeneho freeware v prubehu dvou let neprekroci onech 20 000
Kc, Pak mohu byt klidny jelikoz zadny nabyvatel nemohl tuhle hranici
prelezt.
Ludek
OT:Licence a freeware
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.12.2001 22:25:07
Puvodni zprava, kterou napsal Miroslav Novosad dne 16 Dec 2001:
> Tusim ze to bylo nejak pred rokem, kdy Borland CZ prohlasil, ze v
Borland CZ tohle klidne muze prohlasovat o Delphi asi tak jako
o bananech, ktere si nekoupis od nich. A to je asi tak vsechno,
co s tim muze delat...
> zahranici koupene (= jim nedovezene) kopie Delphi budou povazovany za
> nelegalni. To me tehdy celkem nadzvedlo.
Ze je Borland CZ bude povazovat za nelegalni, to vsak jeste
neznamena, ze jsou nelegalni. Nedivim se vubec Borlandu CZ,
ze se jim nelibi, ze prichazeji o chleba. Nemam ale rad, kdyz
nekdo hlasa nepravdy. Pokud si pamatujes tu diskusi pred
rokem nebo dvema (neni problem dohledat), pak se zde mnoho
lidi proti tomu ohradilo vcetne me.
> Kdyz jsme u tech licenci, je toto vubec pravne mozne?
Neni to mozne. Prodejce krabic si nemuze cokoliv diktovat
nebo menit licencni ujednani od majitele autorskych prav,
ktere je uzavreno v krabici.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Sifrovanie
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.12.2001 22:29:20
----- Original Message -----
From: "Du#an Andr�#" <d.andras(zv)gmc.net>
>prave ADO - alebo OLEDB - alebo kto resp. co) nam ich konvertuje, t.j.
>napr. ak mam uloceny ('zasifrovany') retazec (varchar) ktory obsahuje
>znak 0x89 - tak namiesto neho mi ADO poda znak 0x30. K takymto
>"konverziam" dochadza aj pri nvarchar.
>Neviete niekto poradit preco k tomu dochadza resp. ako by sa to dalo
>oklamat/zrusit ?
Ahoj.
Pokud Ti nebude vadit, ze data jsou 2x delsi, tak za vystup sifrovaci
procedury dodej jeste prekodovani do pisemneho HEXA vyjadreni a totez opacne
pri dekodovani. Budez tim padem ukladat ciste ASCII znaky a ty uz asi
cokoliv vraci dobre.
Ludek
Zarovnani TEdit doprava
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 17.12.2001 06:01:22
Nazdar
jewdnu komponentu z treti strany, ktera prachy umi zarovnat doprava
http://www.kopr(tec)cz/delphi/index.htm
> Potrebuji zadavat do TEditu castky v korunach a halerich. Potreboval bych
> tedy zarovnani doprava a kontrolu (hlavne to doprava). V tomto projektu
> nemuzu pouzit komponenty tretich stran.
>
> V knze 1001 tipu a triku jsem nasel tip 832, ktery vsak nedokazu
> implementovat.
>
> PS: Petre - kam to mam dat, aby mi to chodilo? Please .....
>
> Muzete mi nekdo poslat malou ukazku? Dva edity na formulari a budou
> zarovnavat doprava s moznosti zadavat halere.
>
> Diky
>
> Petr
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.307 / Virov� b�ze: 168 - datum vyd�n�: 11.12.2001
Vytoceni tel. cisla pomoci modemu
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 17.12.2001 07:23:36
On 10 Dec 2001, at 11:48, Jaroslav Kuba wrote:
> Posilam na port prirazeny modemu AT prikaz ATDT + telefonni cislo a
> myslel jsem si ze mi to cislo vytoci ale nefunguje mi to poradite mi
> co delam blbe.
To je dost strucne. Za predpokladu ze modem funguje a je opravdu
na tom portu muze byt pricinou nespravna inicializacni sekvence
modemu, spatne nastavene parametry komunikace na portu,
pripojeni na linku s pulsni volbou (pak je potreba ATDP misto
ATDT) a spousta jinych. Bylo by potreba videt, jak se ten modem
pri odeslani prikazu chova a v jakem je stavu.
Z.Kalhous
Chyba IDAPI32.DLL a jak na ni
[*] kuchar(zv)unicodesys(tec)cz - 17.12.2001 07:29:48
Caute,
v programu pomoci table2.Batchmove presouvam data, obcas dojde k chyba v
IDAPI32.dll, chybu zachytavam pomoci try except, a nasleduje shozeni cele
aplikace a jeji nasledny restart
( vse je kontrolovane mnou, i kdyz se mi tento postup moc nelibi ) problem
je ale v tom ze i kdyz takto postupuji, tak mi stejne porad ( uz
skompilovany exac ) zobrazi nejdriv okno s hlaskou chyby IDAPI a pak s
hlaskou run time error a nasledne dojde k restartu aplikace, kdyz jsem vse
zacal krokovat v delphach, tak mi tyto hlasky vyskocili az pri poslednim
prikazu "END." v dpr souboru, nevite co s tim ?
DIK