Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Rychlejsi cteni z DBF
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 9.7.2001 12:20:10
A co takhle pouzit pole ?
var s : array[1..100] of string;
a : integer;
for a := 1 to 100 do
s[a] := FieldByName ('S' + IntToStr (a)).AsString;
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
ICQ# : 119119215
> s1,s2,s3...... :string
>
> s1:=FieldByName('S1').AsString;
> s2:=FieldByName('S2').AsString;
> s3:=FieldByName('S3').AsString;
> . . .
> s100:=FieldByName('S100').AsString
>
> tohle se mi moc nelibi a hlavne je to moc textu.
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 02.07.01
Databazova aplikacia na CD
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 9.7.2001 12:29:38
Ahoj,
vyrobili sme databazovu aplikaciu pouzivajucu BDE a Paradox. Pretoze
niektori zakaznici nemaju pravo na svoje pocitace instalovat aplikacie je
potreba to cele aj s BDE spustit z CD.
A) Je mozne spustit (nie instalovat) BDE z CD?
B) Aka ina databaza to umoznuje?
Pavol Stolc
pstolc(zv)sc.sknet.sk
Rychlejsi cteni z DBF
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 9.7.2001 12:34:37
> s1:=FieldByName('S1').AsString;
> . . .
> s100:=FieldByName('S100').AsString
>
No, treba neco takoveho:
const
POCET_POLI = 100;
var
s: array [1..POCET_POLI] of string;
i:Integer;
begin
for I:=1 to POCET_POLI do
s[I] := FieldByName(Format('S%s',[I])).AsString;
end;
Bez zaruky, mozna je tam preklep ...
T.Rychlejsi cteni z DBF
[*] "Mirek Drej�ek"���v#�q��#�d�ʿ - 09.7.2001 12:37:24
pole:array[0..99]of String;
for I:=0 to 99 do
pole[I]:=Table1.Fields[I].asString;
To bude mene narocne na zdrojak, ale o rychlosti bych docela pochyboval
Doufam, ze jsem tam neudelal zadnou chybu. Kdyztak napoveda a nebo napis.
S pozdravem
Mirek Drejcek.
*********** REPLY SEPARATOR ***********
>s1,s2,s3...... :string
>
>s1:=FieldByName('S1').AsString;
>s2:=FieldByName('S2').AsString;
>s3:=FieldByName('S3').AsString;
>. . .
>s100:=FieldByName('S100').AsString
PING
[*] Erik Salaj <winsoft(zv)stonline.sk> - 9.7.2001 12:40:29
> Ping ma zmerit cas mezi odslanim a prijetim PING packetu. Jenze jak
> ja, tak Indy jsme pouzivali blbou funkci na mereni casu.
>
> Vysledek byl, ze jsme misto casu pingu zmerili kolik za tu dobu nase
> aplikace sezrala STROJOVEHO CASU!!! To byl duvod, proc muj ping pod
> Linuxem vytrvale ukazoval 0ms (protoze od odeslani do prijeti packetu
> aplikace poctive spi a nezere nic), zatimco Indy ukazoval pomerne
> odpovidajici cisla.
programoval som jednoduche Ping demo pre Palm-a (podla nejakeho
MS prikladu) a tam sa to riesilo tak, ze do ICMP paketu sa vlozil cas
jeho vytvorenia a po prijati paketu sa urcil rozdiel voci aktualnemu casu.
Erik
PlaySound parametry ?
[*] Petr�j Zden�k <ZPetruj(zv)Qgir(tec)cz> - 9.7.2001 12:43:28
Nevim v cem je popis funkce v helpu skoupy na informace.
Jsou tam uvedeny vsechny prametry i s hodnotami, ktere mohou nabyvat.
Nevim co vice bys jeste chtel :
The PlaySound function plays a sound specified by the given filename,
resource, or system event. (A system event may be associated with a
sound in the registry or in the WIN.INI file.)
BOOL PlaySound(
LPCSTR pszSound,
HMODULE hmod,
DWORD fdwSound
);
Parameters
pszSound
A string that specifies the sound to play. If this parameter is NULL,
any currently playing waveform sound is stopped. To stop a non-waveform
sound, specify SND_PURGE in the fdwSound parameter.
Three flags in fdwSound (SND_ALIAS, SND_FILENAME, and SND_RESOURCE)
determine whether the name is interpreted as an alias for a system
event, a filename, or a resource identifier. If none of these flags are
specified, PlaySound searches the registry or the WIN.INI file for an
association with the specified sound name. If an association is found,
the sound event is played. If no association is found in the registry,
the name is interpreted as a filename.
hmod
Handle of the executable file that contains the resource to be loaded.
This parameter must be NULL unless SND_RESOURCE is specified in
fdwSound.
fdwSound
Flags for playing the sound. The following values are defined:
SND_APPLICATION
The sound is played using an application-specific association.
SND_ALIAS
The pszSound parameter is a system-event alias in the registry or the
WIN.INI file. Do not use with either SND_FILENAME or SND_RESOURCE.
SND_ALIAS_ID
The pszSound parameter is a predefined sound identifier.
SND_ASYNC
The sound is played asynchronously and PlaySound returns immediately
after beginning the sound. To terminate an asynchronously played
waveform sound, call PlaySound with pszSound set to NULL.
SND_FILENAME
The pszSound parameter is a filename.
SND_LOOP
The sound plays repeatedly until PlaySound is called again with the
pszSound parameter set to NULL. You must also specify the SND_ASYNC flag
to indicate an asynchronous sound event.
SND_MEMORY
A sound event's file is loaded in RAM. The parameter specified by
pszSound must point to an image of a sound in memory.
SND_NODEFAULT
No default sound event is used. If the sound cannot be found, PlaySound
returns silently without playing the default sound.
SND_NOSTOP
The specified sound event will yield to another sound event that is
already playing. If a sound cannot be played because the resource needed
to generate that sound is busy playing another sound, the function
immediately returns FALSE without playing the requested sound.
If this flag is not specified, PlaySound attempts to stop the currently
playing sound so that the device can be used to play the new sound.
SND_NOWAIT
If the driver is busy, return immediately without playing the sound.
SND_PURGE
Sounds are to be stopped for the calling task. If pszSound is not NULL,
all instances of the specified sound are stopped. If pszSound is NULL,
all sounds that are playing on behalf of the calling task are stopped.
You must also specify the instance handle to stop SND_RESOURCE events.
SND_RESOURCE
The pszSound parameter is a resource identifier; hmod must identify the
instance that contains the resource.
SND_SYNC
Synchronous playback of a sound event. PlaySound returns after the sound
event completes.
Return Values
Returns TRUE if successful or FALSE otherwise.
Remarks
The sound specified by pszSound must fit into available physical memory
and be playable by an installed waveform-audio device driver. PlaySound
searches the following directories for sound files: the current
directory; the Windows directory; the Windows system directory;
directories listed in the PATH environment variable; and the list of
directories mapped in a network. For more information about the
directory search order, see the documentation for the OpenFile function.
If it cannot find the specified sound, PlaySound uses the default system
event sound entry instead. If the function can find neither the system
default entry nor the default sound, it makes no sound and returns
FALSE.PDF a cestina
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 9.7.2001 12:47:43
> Puvodni zprava, kterou napsal FAIT Ji��, ml. dne 9 Jul 2001,:
>
> > Mam problem, nevite nahodou nekdo jak dostat do PDF cestinu. Pri
> > generovani do PDF vse funguje OK az na cestinu. Problem je
> podle mne v
> > sekci Encoding (viz nize). Nevite nekdo jak to nastavit spravne?
>
> No ja to generuji pres Acrobat Distiller a nemam zadny problem
> s diakritikou. Ty to delas rucne nebo co?
>
No, rucne, mam v tiskovem manazeru moznost odeslat sestavu jako prilohu
emajlu, takze pomoci exportni funkce prevedu QReport sestavu do PDF a tu
pak spolecne s email adresou pouziji na odeslani majlu. Mohl bych treba
pouzit PDF tiskarnu z 602 ale ta z toho
1. dela obrazek (je to velky)
2. nevim jak obejit to aby se me tiskove stroje na vyrobu PDF neptaly na
nazev souboru atd...
S tim prevodem mi to vsechno funguje spolehlive, pouzivam PsQRFilters ve
spojeni ReportDesingerem od THSD. Pokud jde o HTML nebo RTF tak je to OK
ale s tim PDF nemuzu hnout.
Jiri Fait
OT: Inno Setup2
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 09.7.2001 12:51:35
Vzdyt je to primo na oficialnich strankach Inno Setup!
http://www.jrsoftware.org/files/istrans/
Miroslav Dran��k wrote:
>
> Ahoj,
> nevite nekdo, kde se da sehnat cestina.isl pro Inno Setup2?
> Pokud by nekdo mel a byl by ochotny to poslat, prosim na adresu
> mailto:dmiroslav(zv)seznam(tec)cz
>
> predem diky
>
> Mirek Drancak
> ______________________________________________________________________
> Profesion�lov� sv�tov�ho skateboardingu na ramp�ch. Z�vody, triky,
> z�bava. Exkluzivn� na http://0g(tec)cz/0107/mystic_sk8_cup_worldonline
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
PDF a cestina
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.7.2001 12:52:43
Puvodni zprava, kterou napsal FAIT Ji��, ml. dne 9 Jul 2001,:
> S tim prevodem mi to vsechno funguje spolehlive, pouzivam PsQRFilters ve
> spojeni ReportDesingerem od THSD. Pokud jde o HTML nebo RTF tak je to OK
> ale s tim PDF nemuzu hnout.
No jo, to je problem tech exportovacu do PDF, ze nepodporuji cestinu
a jine jazyky (asijske apod.). Ja PDF format neznam, nikdy jsem se tim
nezabyval, ale zkousel jsem jednu a tu samou vec prevest takovym
jednoduchym exportovacem a Distillerem - bylo to dost odlisne.
Tezko rici, zda by to slo jednoduse nebo slozite.
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
============================================================Delphi vs. animacni program .......
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 9.7.2001 13:01:10
Ahoj,
zacinam se stavat castym dopisovatelem, ale doufam, ze to prezijete.
Potreboval bych resit nasledujici problem. Budu psat aplikaci, ktera by mela
zahrnovat jakesi matematicke vypocty a zaroven by mela obsahovat prezentace
a animace. Stojim proto pred nasledujicimi problemy. Jaky nastroj pouzit pro
animace aby byl kompatibilni s Delphi ? Jak vyresit komunikaci s
powerpointem ? Neresil jste uz nekdo takovy problem. Potreboval bych nejake
namety a poradit, jaky animacni nastroj pouzit ? Jedine omezeni, ktere pro
to mam je, aby nebyl prilis drahy.
Prosim, poradte, kdo mate napad. Budu vdecny i za odkazy.
Diky.
Fila
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
Pascal
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 9.7.2001 13:42:58
Podivej se na Frendly Pascal, kdysi jej dodaval Brnensky
Turbo Consult, tam byla podpora vyresena velmi dobre.
Jinak se pouzivaly zavadece znakove sady, bylo jich
velke mnozstvi a v ruznych znakovych sadach, ale nebyly
free, byly za nejaky peniz a vetsina z techto firem uz zanikla.
To by melo take stacit.
Slavek
> Zdravim Vas,
>
> musim upravit jeden program v Pascalu a nevim jak na to.
>
> Celej programek jede v grafickym rezimu, takze vsechny texty se
> "vykreslujou". Pomoci standardnich fontu v Pascalu nejsem (alespon ja)
> schopen dostat na obrazovku plnohodnotnou cestinu.
> Vyresi se to nejakym jinym fontem? Jestli jo, nemate nekdo takovej?
>
> Diky za kazdou radu.
>
> Danny
> Rusena seriova komunikace
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 9.7.2001 13:54:42
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> existuje spousta protokolu (Zmodem,...) pripadne by nemel byt napsat
> protokol vlastni sity na miru (rozsekat komunikaci na kratsi pakety,
> zajistit dorucovani potrvzeni o doruceni, opakovani prenosu,...)
>
No to je prave to na co nemam cas a pokusy, ktere jsem provadel jsou sice
fajn, ale neni to ono...
Ten Zmodem je nekde stvoreny jako Unit, komponenta?
Diky
Zdenek
Databazova aplikacia na CD
[*] Roman Toda <toda(zv)digitaldocuments.org> - 9.7.2001 14:06:24
mozes pristupit k paradoxovej DB na CD tak, ze tam das paradox.lck a
pdoxusrs.lck spolu s nou. V projekte si potom daj tabulky ako readonly. Tie
lck subory vies vyrobit pomocou nejakeho examplu co som nasiel myslim na
borland.com Mozem poslat ked chces. Minimalne BDE ale nainstalovat budes
musiet (myslim)
Roman
----- Original Message -----
From: "Pavol Stolc" <pstolc(zv)sc.sknet.sk>
To: "Delphi Konferencia" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 09, 2001 12:29 PM
Subject: Databazova aplikacia na CD
> vyrobili sme databazovu aplikaciu pouzivajucu BDE a Paradox. Pretoze
> niektori zakaznici nemaju pravo na svoje pocitace instalovat aplikacie je
> potreba to cele aj s BDE spustit z CD.
>
> A) Je mozne spustit (nie instalovat) BDE z CD?
> B) Aka ina databaza to umoznuje?
Rusena seriova komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.2001 14:23:17
> > existuje spousta protokolu (Zmodem,...) pripadne by nemel byt
napsat
> > protokol vlastni sity na miru (rozsekat komunikaci na kratsi
pakety,
> > zajistit dorucovani potrvzeni o doruceni, opakovani prenosu,...)
> >
>
> No to je prave to na co nemam cas a pokusy, ktere jsem provadel jsou
sice
> fajn, ale neni to ono...
> Ten Zmodem je nekde stvoreny jako Unit, komponenta?
Urcite. Dival ses nekde?
D. Toman
Databazova aplikacia na CD
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.7.2001 14:26:33
Puvodni zprava, kterou napsal Pavol Stolc dne 9 Jul 2001,:
> A) Je mozne spustit (nie instalovat) BDE z CD?
Ne.
> B) Aka ina databaza to umoznuje?
Treba FlashFiler.
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
============================================================Rychlejsi cteni z DBF
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 9.7.2001 14:30:03
Zdravim,
> No, treba neco takoveho:
>
> const
> POCET_POLI = 100;
> var
> s: array [1..POCET_POLI] of string;
> i:Integer;
> begin
> for I:=1 to POCET_POLI do
> s[I] := FieldByName(Format('S%s',[I])).AsString;
>
> end;
Pripadne, pokud polozky S1 az S100 jsou v tabulce za sebou (od zacatku) tak
spise neco takoveho (bude to vyrazne rychlejsi):
for I:=1 to POCET_POLI do
S[I] := Fields [I-1].AsString;
Pokud nezacinaji od zacatku tabulky (jsou pred nimi jeste jine polozky), pak
prislusne upravit index v poli Fields.
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
DELPHI 6 a FF2
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.7.2001 14:38:54
Puvodni zprava, kterou napsal Pavel ZIDEK dne 9 Jul 2001,:
> jak v dnesni dobe nainstalovat FF2 do DELPHI 6.
> DELPHI 6 jsem jeste od Borlandu nedostal, takze si to nemohu vyzkouset.
No vzhledem k tomu, ze Delphi 6 jeste nemas, tak asi dost
tezko :) Jinak FF2 jeste pro D6 neni...
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
============================================================simulace kliknuti mysi
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 9.7.2001 15:07:00
From: BLAU [mailto:blau(zv)emdat(tec)cz]
> takto ji volam:
> I20_BMouseDown(Mouse, mbLeft, TShiftState(ssLeft),x,y);
> problem mam se tretim parametrem - neprisel jsem na to v jakem tvaru jej
predavat aby to proslo kompilatorem. V borlandi napovede jsem to hledal do 2
do > rana ale vysledek je 0 na zadny funkcni priklad jsem take nenarazil.
Ahoj, mel jsi se radeji vyspat, nez to hledat ve dve hodiny rano. Rano
moudrejsi vecera :)))
Z napovedy je
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight,
ssMiddle, ssDouble);
Tedy volani funkce:
I20_BMouseDown(Mouse, mbLeft, [ssLeft],x,y);
S pozdravem Pavel Koukal.Odchytavani chyb u DBExpress
[*] Ji�� Wendl - 9.7.2001 15:47:57
Ahoj
Mohl by mi prosim nekdo poradit jak co nejlepe odchytavat chyby u
komponent dbExpress pod D6, ktere vrati databaze (Interbase)?
Jako napriklad Foreign key violation atd.
predem mockrat dekuju
Jirka
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lan#kroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
/OT/: multitasking v DOSu
[*] Jackie X <jackie.x(zv)seznam(tec)cz> - 9.7.2001 15:55:40
Jak lze zjistit CS:IP a hodnoty dalsich registru programu, ktery byl
prerusen hardwarovym prerusenim (klavesnice, casovac, ...)?/OT/: multitasking v DOSu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.2001 16:27:27
> Jak lze zjistit CS:IP a hodnoty dalsich registru programu, ktery byl
> prerusen hardwarovym prerusenim (klavesnice, casovac, ...)?
>
ze stacku. Adresa instrukce pred kterou bylo akceptovano preruseni je
ulozena na stacku.
Ovsem problem vznikne ve chvili, kdy Tvoje rutina obsluhujici
preruseni neni prvni na rade - coz je typicky pripad preruseni od
casovace ci klavesnice (instaluje se vice handleru po sobe). Pak
totiz nevis kolik bytu je mezi tou navratovou adresou a aktualni
pozici SP -> nevis kde vlastne tu adresu hledat.
D. Toman
/OT/: multitasking v DOSu
[*] Ji�� HAVELKA����*���zY�W�#�� - 9.7.2001 16:52:32
----- Original Message -----
From: Jackie X <jackie.x(zv)seznam(tec)cz>
To: Delphi Konference <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 09, 2001 3:55 PM
Subject: RE /OT/: multitasking v DOSu
> Jak lze zjistit CS:IP a hodnoty dalsich registru programu, ktery byl
> prerusen hardwarovym prerusenim (klavesnice, casovac, ...)?
>
FLAGS, CS a IP jsou ulozeny na zasobnik v tom poradi jak jsou napsany
S pozdravem Jiri HAVELKA
FFTable v DLL, jak na data v DBGrid na TForm ?
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 9.7.2001 16:55:46
Haj hou,> Co zavolat funkci v DLL, ktera dany table vrati? Zkousel jsi to?
Zkousel jsem oba zpusoby, popsany v mailech. Oba funguji. Ale oba jen do
chvile, kdy kliknu na posuvnik v DBGrid, pak to padne na hubu. Zatim to
nejak obejdu a budu koumat dal. Jak na neco prijdu, poslu.
Dekuji za rady.
Bye Ludan
> > V DLL knihovne mam FFEngine, FFSession a FFTable. Zavedeni, pripojeni k
> > tabulce atd. funguje.
> >
> > Mam TForm, na ktery umistim DataSource a DBGrid.
> >
> > Ted potrebuju nejak propojit DataSource.DataSet na FFTable resp. TTable.
Qreport - lokalizace II
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 9.7.2001 16:57:46
Z prispevku p. Vonese mi svitla jiskricka nadeje, ale neuspel jsem.
Potrebuji po vygenerovani nahledu stisknout tlacitko 100% -
ZoomTo100Click, nenasel jsem co to je za Unit, ci udalosti to jsou. Vite jak
na to ?
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
DelphiX
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 09.7.2001 17:09:07
Werki wrote:
> Poznam, mozes priamo cez asm na zobrazovac cez windoze.....celkom rychly bod
> oproti klasickemu
> canvasu. (http://gfoody.com/)
spravne ma byt http://gfody.com/
Vaclav Sazima
/OT/: multitasking v DOSu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 09.7.2001 17:22:51
Ahoj,
Pri vyvolani preruseni se na stack postupne ulozi (realny rezim):
flags,cs,ip. Zaroven se preruseni zakaze. Obnovu ostatnich registru
zajistuje obsluzna rutina preruseni.
Vaclav Sazima
Jackie X wrote:
>
> Jak lze zjistit CS:IP a hodnoty dalsich registru programu, ktery byl
> prerusen hardwarovym prerusenim (klavesnice, casovac, ...)?OT: Zakladni deska
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 9.7.2001 17:28:40
----- Original Message -----
From: "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 09, 2001 9:15 AM
Subject: Re: OT: Zakladni deska
Ahoj, ja pouzivam MSI K7T Turbo. Zatim jsem to sice moc neladil. Coz by
chtelo, ale je to stabilni a ja jsem moc spokojeny.
S pozdravem
Mirek Drejcek
*********** REPLY SEPARATOR ***********
>resim problem upgrade pixly. Muzete mi prosim sdelit sve pripadne
zkusenosti
>s motherboardy pro Socket A (AMD Duron/T-Bird), ktere pouzivate ?
**************************ROBO SEPARATOR*****************************
FUJ, BLE, HNUS - AMD a daj k tomu chipset VIA a budes spokojny az to raz
vyhodis z okna....
Ja som si minuly tyzden kupil ABIT BX 133 RAID a proste to je DOSKA AKA MA
BYT. V kombinacii s PIII 733 MHz a 256 MB RAM je to nieco uzasne. Este
rozmyslam ze tam dam PIII 866 MHz ten procesor ma moj sef a je o dost
rychlejsi ako ta 733 - jka. Nehnevajte sa za moj nazor, viem ze je dost
svojsky ale mal som tu cest s AMD a VIA takze tolko, Dakujem
Robo
simulace kliknuti mysi
[*] Ji�� HAVELKA����*���zY�W�#�� - 9.7.2001 17:32:44
----- Original Message -----
From: BLAU
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, July 09, 2001 12:03 PM
Subject: simulace kliknuti mysi
>takto ji volam:
>I20_BMouseDown(Mouse, mbLeft, TShiftState(ssLeft),x,y);
>problem mam se tretim parametrem - neprisel jsem na to v jakem tvaru jej pr
edavat aby to
>proslo kompilatorem. V borlandi napovede jsem to hledal do 2 do rana ale vy
sledek je 0 na
>zadny funkcni priklad jsem take nenarazil.
priste se zkus podivat na definici vaseho problemu:
TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssD
ouble);
z toho je celkem patrne jak dal, takze tvoje volani je (clovek nikdy nevi):
I20_BMouseDown(Mouse, mbLeft, [ssLeft]),x,y);
S pozdravem Jiri HAVELKA
Pascal
[*] Danny <delphiforum(zv)atlas(tec)cz> - 9.7.2001 17:36:38
Nemuzes me nasmerovat, kde to mam hledat?
> Podivej se na Frendly Pascal, kdysi jej dodaval Brnensky
> Turbo Consult, tam byla podpora vyresena velmi dobre.A zase Excel a DBGrid
[*] Martin Macko, M-PRO s.r.o. <martinm(zv)m-pro(tec)cz> - 9.7.2001 16:43:01
var
ex1: Variant; ex1 := VarArrayCreate([1,pocet_radek,1,pocet_sloupcu],varVariant);
...
excel.WorkBooks[1].sheets[1].Range['A1:~pocet_sloupcu~~pocet_radek~'+].Value
:= ex1;
~pocet_sloupcu~~pocet_radek~ = napr AH45
___________________________________
Martin MACKO,
M-PRO s.r.o.
U m�sta Chersonu 1595/1
tel.: +420 (35) 610 79 48,
610 72 31 a� 33
martinm(zv)m-pro(tec)cz
+420 (603) 48 39 40
___________________________________
-----Original Message-----
Neco jako :
"ColumnRange := WS.Columns;"
---
Avast: Odchoz� zpr�va vyhodnocena jako �ist�
Datum a �as testov�n�: 9.7.2001 16:43:01
Datum virov� datab�ze (VPS): 28.3.2001
D�kujeme za pou��v�n� programu Avast!
Avast32 (VPS 28.3.2001): zprava neobsahuje virus
Databazova aplikacia na CD
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 9.7.2001 17:44:30
On 9 Jul 2001, at 14:26, Petr Zahradnik wrote:
> > A) Je mozne spustit (nie instalovat) BDE z CD?
>
> Ne.
Mno, staci upravit registry, BDE pak muze byt na CD. Ale vrele
pred tim varuji, toto je prasarna non + ultra.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: Zakladni deska
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.7.2001 17:56:34
From: "Robert Suska, KORAK slovakia" <robert(zv)korak.sk>
> FUJ, BLE, HNUS - AMD a daj k tomu chipset VIA a budes spokojny az to raz
> vyhodis z okna....
:-))))) Intel uz je v tehle kategorii mrtev. ABIT KT7-RAID s nepretaktovanym
procesorem a Windows 2000 SP2, naprosto bez problemu. Nevim proc utracet za
Intel, kdyz je to za tu cenu tak pomale. Nehlede na to ze nenabizi do budoucna
nic zajimaveho, Pentium 4 bude technicky asi nejhorsi procesor co kdy vyrobil.
Samozrejme ze diky marketingu ho proda: http://www.emulators.com/pentium4.htm
Jina situace muze nastat u 64bit procesoru, ale ani tam AMD nespi.
Petr Vones, amatersky programator
Pascal
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.2001 18:09:25
> Nemuzes me nasmerovat, kde to mam hledat?
>
> > Podivej se na Frendly Pascal, kdysi jej dodaval Brnensky
> > Turbo Consult, tam byla podpora vyresena velmi dobre.
Friendly Pascal vyrabel Turbo Consult, Brno. Ale je to uz dost davno
a tezko se da koupit.
Na praci s textovym ( a ve verzi 2.0 i grafickym) vystupem to bylo
dost dobry - perfektni neobjektova nahrada TurboVision (+ ten graficky
mod)
Jinak tu cestinu v DOSu muzes obejit i bez grafickeho rezimu (pokud
jej na nic jineho nepotrebujes). Staci jen do VGA natahnout fontovou
sadu s diakritikou. Funguje to spolehlive (jen je treba vyladit tu
rutinu na natazeni fontu). Natahovat novej font muzes bud ve svem
programu - nebo pouzit nejaky rezidentni zavadec.
D. Toman
Databazova aplikacia na CD
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.7.2001 19:29:48
From: "Pavol Stolc" <pstolc(zv)sc.sknet.sk>
> B) Aka ina databaza to umoznuje?
Ahoj,
pokud je to neco mensiho co treba pouzit TClientDataSet a data v CDS/XML.
Petr Vones, amatersky programator
OT: Zakladni deska
[*] Monika Krehlikova <obchod(zv)moniak(tec)cz> - 09.7.2001 20:09:20
>:-))))) Intel uz je v tehle kategorii mrtev. ABIT KT7-RAID s nepretaktovanym
>procesorem a Windows 2000 SP2, naprosto bez problemu. Nevim proc utracet za
Jsem fanda AMD, je jasny ze neni co resit, necmene KT7-RAID neni zrovna
nejlepsi ukazka bezproblemoveho boardu pro Athlona .....je s tim opravdu
hodne problemu, nove verze chipsetu a biosu sice uz spoustu veci opravily,
nicmene porad jsou s tim docela problemy, mohl byt zacit problemy se SBLive
IDE kanaly a skoncit problemy s USB vs scannery apod. Docela jsem si s tim
boardem za posledni 1/2 roku uzil (zatimco na BX chipsetu chodi vsechno bez
problemu), nicmene i pres vyse uvedene problemy nelituju ze sem si ho
koupil, co se tyce vykonu, je to ve srovnani s Intelem suprova deska za
slusny prachy....
Abych nebyl uplne ofttopic, D5 (D6 jsem jeste nemel cas zkusit) chodi pod
Win2K s K7kou suprove :) Jen bych mozna doporucil doinstalovat do Win2K
nejaky cache managment (treba CLEVERCACHE), pokud mate trosku vic RAMky,
uvidite ze se to vyplati.
s
pozdravem Radoslav Krehlik
***********************************
MoniAK - tvorba web str�nek
mailto:obchod(zv)moniak(tec)cz
http://www.moniak(tec)cz
tel.: +420-604-562884
***********************************
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 9.7.2001 20:41:36
Mam problem (a asi nebudu sam), jak dobre chranit program. Dokoncuji sw,
ktery bych chtel sirit v nekolika rovinach:
1) jako shareware bez jakekoliv ochrany.
2) jako ostrou verzi s sifrovanym klicem
Bod 1 a 2 je tentyz program, pouze se bude lisit pridanym sifrovanym klicem.
Muj navrh je takovy: Kazdy by si mohl stahnout sharewarovou verzi programu
na webu. Kdo bude chtit program zakoupit, tak po zaplaceni dostane klic
(napr. soubor licence.key), kde by krome ruznych odemykacich udaju bylo
uvedeno jmeno a firma zakaznika. Licencni data v tomto souboru by byla
sifrovana (XORem nebo necim komplikovanejsim - o to asi ted nejde) a v
rozsifrovane podobe by slouzila ke zpristupneni ne-sharewarovych funkci a
hlavne by se na formulari (nebo v About...) zobrazovalo jmeno zakaznika.
Navic by klic byl vybaveni kontrolnim souctem (hashovaci tabulka nebo neco
jednodussiho).
Vychazim z premisy, ze po svete se sice mohou toulat nelegalni plne verze
(tomu asi nelze zabranit), ale tito nelegalni uzivatele budou vlastnit klic,
ktery bude obsahovat CIZI jmeno. Budou tedy neustale vystaveni mucivemu
pocitu, ze kdokoliv uvidi, jaky je ten dotycny kopirak darebak. (ted jsem
tak naivni, az to prasti...).
Bez klice by se aplikace chovala jako shareware a pokud by se klic nekdo
pokusil zmenit, tak rovnez.
Ma nekdo nejaky napad nebo poznamku? Vite o necem spolehlivejsim? Popripade
mate inspiraci pro ostatni? Delam nekde nejakou fatalni chybu, kvuli ktere
bych mel na sifrovany klic zapomenout?
PS: nemam jeste dost cinkacku abych si poridil napr. neco od TurboPower,
takze musim vystacit pouze s napady a rychlymi programatorskymi prsty.
:-))))))
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
Pascal
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 9.7.2001 20:52:31
> Jinak tu cestinu v DOSu muzes obejit i bez grafickeho rezimu (pokud
> jej na nic jineho nepotrebujes). Staci jen do VGA natahnout fontovou
> sadu s diakritikou. Funguje to spolehlive (jen je treba vyladit tu
> rutinu na natazeni fontu). Natahovat novej font muzes bud ve svem
> programu - nebo pouzit nejaky rezidentni zavadec.
>
Ahoj.
Pokud potrbujes stabilni ,bezproblemovou a konfigurovatelnou podporu
cestiny mrkni se na http://www.sales(tec)cz/download/ Mam tam cestinu od
R. Karaffy, ktera funguje bez problemu od DOSu az k W2000 a je free.
Ludek
Re[2]: RE /OT/: multitasking v DOSu
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 9.7.2001 21:01:23
Hello Ji��,
Monday, July 09, 2001, 4:52:32 PM, you wrote:>> Jak lze zjistit CS:IP a hodnoty dalsich registru programu, ktery byl
>> prerusen hardwarovym prerusenim (klavesnice, casovac, ...)?
>>
JH> FLAGS, CS a IP jsou ulozeny na zasobnik v tom poradi jak jsou napsany
Ale jak daleko???
Pokud bude zavolano preruseni, obsluznej program muze zavolat napr.
fci. dosu a uz by jste dostal jine hodnoty.OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.7.2001 21:02:49
Puvodni zprava, kterou napsal Ing. Petr �vejda dne 9 Jul 2001,:
> Ma nekdo nejaky napad nebo poznamku? Vite o necem spolehlivejsim? Popripade
> mate inspiraci pro ostatni? Delam nekde nejakou fatalni chybu, kvuli ktere
> bych mel na sifrovany klic zapomenout?
No hlavne to musis poradne zasifrovat nejakym sifrovacim algoritmem
a ne XORovat, kdyz uz...
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
============================================================OCHRANA SW - pouziti sifrovaneho klice
[*] brant(zv)dcomm(tec)cz - 9.7.2001 21:05:04
Pro podobny ucel pouzivam hashovaci algoritmus MD5 ve spojeni se
zasifrovanym INI. Tj. pokud nekdo zmeni onen INI resp. jeho otisk, program
nepracuje. Je to ovsem snadno "piratitelne", ovsem vzhledem k tomu, ze jde o
velmi specificky SW, bylo by to bez prislusneho HW a dalsich nalezitosti k
nicemu. Chces-li, napis na soukromy mail, poslu zdrojak.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Mam problem (a asi nebudu sam), jak dobre chranit program. Dokoncuji sw,
ktery bych chtel sirit v nekolika rovinach:
1) jako shareware bez jakekoliv ochrany.
2) jako ostrou verzi s sifrovanym klicem
Bod 1 a 2 je tentyz program, pouze se bude lisit pridanym sifrovanym klicem.
Muj navrh je takovy: Kazdy by si mohl stahnout sharewarovou verzi programu
na webu. Kdo bude chtit program zakoupit, tak po zaplaceni dostane klic
(napr. soubor licence.key), kde by krome ruznych odemykacich udaju bylo
uvedeno jmeno a firma zakaznika. Licencni data v tomto souboru by byla
sifrovana (XORem nebo necim komplikovanejsim - o to asi ted nejde) a v
rozsifrovane podobe by slouzila ke zpristupneni ne-sharewarovych funkci a
hlavne by se na formulari (nebo v About...) zobrazovalo jmeno zakaznika.
Navic by klic byl vybaveni kontrolnim souctem (hashovaci tabulka nebo neco
jednodussiho).
Vychazim z premisy, ze po svete se sice mohou toulat nelegalni plne verze
(tomu asi nelze zabranit), ale tito nelegalni uzivatele budou vlastnit klic,
ktery bude obsahovat CIZI jmeno. Budou tedy neustale vystaveni mucivemu
pocitu, ze kdokoliv uvidi, jaky je ten dotycny kopirak darebak. (ted jsem
tak naivni, az to prasti...).
Bez klice by se aplikace chovala jako shareware a pokud by se klic nekdo
pokusil zmenit, tak rovnez.
Ma nekdo nejaky napad nebo poznamku? Vite o necem spolehlivejsim? Popripade
mate inspiraci pro ostatni? Delam nekde nejakou fatalni chybu, kvuli ktere
bych mel na sifrovany klic zapomenout?
PS: nemam jeste dost cinkacku abych si poridil napr. neco od TurboPower,
takze musim vystacit pouze s napady a rychlymi programatorskymi prsty.
:-))))))
Petr
Round ??
[*] Erik Salaj <winsoft(zv)stonline.sk> - 9.7.2001 22:32:17
> nechapu o cem se tady vlastne hadate. Je jasne ze programy jsou z Ameriky,
> kde se jinak zaokrouhluje.
> Jestlize se zajimate o zaokrouhlovani v Cesku a to Ceske penize, tak 14.50
> Kc je skutecne 15.00 Kc. A na ti si misi kazky naprogramovat nejakou
> utilitu.
Zda sa, ze aj v Amerike sa pouziva zaokruhlovanie 5 nahor. Napr. Excel
to tak robi; kalkulacka, co mam z Kanady tiez; Palm, co mam z USA
takisto. Tento system sa aj momentalne vyucuje na slovenskych skolach
(aj ked ja som sa v skole este ucil zaokruhlovanie na parnu cislicu, ale to
bolo tak pred 20 rokmi). Podla mna je tento system jednoduchsi a teda
ovela vyhodnejsi na prakticke pouzitie, preto ma dost prekvapilo, ked
niekto prehlasil, ze "je to nezmysel" (samozrejme bez vysvetlenia preco).
Erik
childNodes
[*] Erik Salaj <winsoft(zv)stonline.sk> - 9.7.2001 22:38:24
> Problem mam s metodou childNodes korenoveho uzla xmlRoot, ktora ma vratit
> zoznam detskych uzlov, v tomto pripade jedineho uzla <employee>.
> Na systeme W98 kde mam MSXML.DLL verzie 5.0.2614.3500 funguje spravne, ale
> na systeme W2K s MSXML.DLL verzie 5.0.2920.0 vrati hodnotu "undefined". V
> MSDN som nenasiel ziadnu informaciu o zmene implementacii objektu
> Microsoft.XMLDOM.
Pouzi novsi parser, napr. MSXML4.DLL, da sa to stiahnut z MSDN.
Erik
Pridanie obrazku do db cez Query
[*] Skalka Jan <jskalka(zv)ukf.sk> - 9.7.2001 23:21:14
Zdravim,
ako dostanem do paradoxovej tabulky obrazok (bitmapovy) cez query pomocou
SQL prikazov, napr INSERT alebo UPDATE? Sksual som nejake pretypovania ale
za moc to nestalo.
Vdaka.
Jan Skalka
Delphi 7 release: 10/2002
[*] Erik Salaj <winsoft(zv)stonline.sk> - 10.7.2001 00:49:52
> > Toto je jedna z charakteristickych vlastnosti Eiffel-u: dokumentacia
> > sa generuje priamo zo zdrojoveho kodu (co znizuje naklady
> > spojene s vytvaranim dokumentacie a odstranuje problemy
> > s nezrovnalostami medzi kodom a jeho dokumentaciou hlavne
> > v procese udrzby).
>
> Jen poznamka:
> Zkousel jsem psat DOC primo do kodu - a jedine co se stalo bylo silene
> zneprehledneni zdrojaku (moc komentaru okolo kazde funkce, typu atd).
> Cili dokumentace zdrojaku ANO ale jedine v externim souboru, ktery je
> sice pevne spjat se souborem zdrojaku ale neprodluzuje jej..
To bude asi tym, ze Eiffel je navrhnuty (na rozdiel od Delphi) aby cosi take
umoznoval. V Eiffely programujes pomocou kontraktov (DBC = Design By
Contract). Kontrakt predstavuje akysi dohovor medzi poskytovatelom
sluzby a pouzivatelom sluzby (klientom). DBC urcuje prava aj povinnosti
tychto partnerov. Klient musi suhlasit so splnenim urcitych kriterii (napr.
musi pri volani metody zabezpecit korektne parametre) a poskytovatel
v takom pripade garantuje korektne vykonanie danej sluzby.
Kontrakty vlastne riesia dilemu, kde sa maju kontrolovat parametre, ci
na strane volajuceho alebo volaneho (v programoch to niekedy byva
bud na obidvoch stranach, alebo to tam nie je vobec). DBC tento
problem riesi spominanym pravidlom, pricom Eiffel umoznuje toto
pravidlo aj zapisat do programu a kontrolovat.
Tu je jednoduchy priklad:
---------------------------------------------
class COUNTER
feature
count: INTEGER
increment_by (inc: INTEGER) is
-- increments count by inc
require
positive_inc: inc > 0
do
count := count + inc -- implementacia
ensure
count = old count + inc
end
end -- class COUNTER
---------------------------------------------
Podmienky kontraktu su tu specifikovane pomocou klucovych slov "require"
a "ensure". Klient musi splnit podmienky "require" (teda, ze hodnota o ktoru
chce pocitadlo inkrementovat je kladna). V takom pripade trieda COUNTER
zaruci po vykonani sluzby podmienky v "ensure" (teda, ze hodnota pocitadla
za zvysi o hodnotu inc).
V Eiffely si mozes urcit (zapnut/vypnut), ci sa tieto podmienky maju pocas
vykonavania programu kontrolovat. Tieto kontroly umoznuju rychlu lokalizaciu
chyby i v zlozitych programoch. Napr. ak require je splnene a ensure nie je,
tak vies, ze prislusna metoda (v Eiffely "feature") je nespravne
implementovana.
V Delphi by si to ako riesil? But by si to nekontroloval, len nechal
napisane niekde vedla v komentari (alebo niekde inde v dokumentacii).
Alebo by si doplnil kod, napr.:
{$IFDEF DEBUG}
if inc <= 0 then raise Exception.Create('Nespravny parameter inc');
{$ENDIF DEBUG}
Samozrejme tento pristup sa zdaleka nevyrovna pristupu v Eiffely.
Dokumentaciou je potom samotny kontrakt, ktory je mozne ziskat
automaticky zo zdrojoveho kodu. V pripade triedy COUNTER
je kontrakt takyto:
----------------------------------------------
class interface COUNTER
feature
count: INTEGER
increment_by (inc: INTEGER) is
-- increments count by inc
require
positive_inc: inc > 0
ensure
count = old count + inc
end
end interface -- class COUNTER
------------------------------------------------
Erik
D6 a podpora PNG,GIF,...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.2001 01:08:42
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> Nevite nahodou, zda v D6 je podpora grafiockych formatu PNG a GIF ?
Ahoj,
Graphics library (shareware):
http://www.lischke-online.de/Graphics.html
Petr Vones, amatersky programator
Delphi 7 release: 10/2002
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.2001 01:15:53
From: "Erik Salaj" <winsoft(zv)stonline.sk>
> Alebo by si doplnil kod, napr.:
>
> {$IFDEF DEBUG}
> if inc <= 0 then raise Exception.Create('Nespravny parameter inc');
> {$ENDIF DEBUG}
Ahoj,
Jina moznost je:
Assert(Inc > 0, 'Nespravny parameter inc');
Petr Vones, amatersky programator
OCHRANA SW - pouziti sifrovaneho klice
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.7.2001 06:42:01
> Vychazim z premisy, ze po svete se sice mohou toulat nelegalni plne
verze
> (tomu asi nelze zabranit), ale tito nelegalni uzivatele budou
vlastnit klic,
> ktery bude obsahovat CIZI jmeno. Budou tedy neustale vystaveni
mucivemu
> pocitu, ze kdokoliv uvidi, jaky je ten dotycny kopirak darebak. (ted
jsem
> tak naivni, az to prasti...).
>
> Bez klice by se aplikace chovala jako shareware a pokud by se klic
nekdo
> pokusil zmenit, tak rovnez.
Z vlastni zkusenosti vim, ze pokud bude o program zajem vzdy se najde
nejaky hacker, ktery to nejakym zpusobem obejde (generator klicu ci
hacknute verze). Cili bych se nejprve zamyslel zda potrebujes nejakou
super ochranu nebo ne.
Chystam se taky nekdy predelat system tvorby a kontroly klice ale ne
proto, ze exituji hacky (vim zatim o 3 key genech :-( ), ale proto, ze
potrebuje revizi.
Byt Tebou spise bych se zameril na to, aby se s klicem jednoduse
manipulovalo atd:
1) zamezit generovani klicu se zamenitelnymi znaky - napriklad 'l'
(male L) 'I' (Idahoo) a '1' (jednicka) vypadaji v bezpatkovych fontech
naprosto stejne. Klic obsahujici takove znaky urcite zakaznik nezada
spravne (zvlaste pokud jej obdrzi na papire) a bude otravovat dotazem
a sam bude nastvany.
2) rezervovat si dostatecnou delku polozek klice - zaznamenal jsem
pripady, kdy jmeno spolecnosti ci dokonce email(!) se mi nevesel do
mnou vyhrazenych 40 bytu.
3) vyrobit "oboustranny klic": klic by mel obsahovat 2 casti (privatni
a verejnou). Verejna slouzi k tomu, aby se ji zakaznik mohl prokazovat
jako dokladem o nabyti platneho klice (pri zadostech o technickou
podporu atd) bez rizika prozrazeni vlastniho klice.
4) je dobre pomatovat na nejakou alternativni metodu zadani klice,
ktera zcela vylouci moznost jeho spatneho zadani (import ze souboru,
moznost importu do registru primo z txt souboru (jde to automaticky
regeditem - staci kliknout na xyz.reg))
Pozn: jeste jednou: registracni klice ano - ale travit tydny
vymyslenim a pilovanim nejakeho sileneho zabezpeceni (jakmile je
jednou prolomeno pak je Tva prace k nicemu) je nesmyslne. Hackeri maji
k dispozici kvalitni nastroje (WinICE je opravdu Debugger s velkym D)
a umeji s nimi perfektne zahazet.
D. Toman
Zdravi
D. Toman
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.7.2001 06:44:25
> > Ma nekdo nejaky napad nebo poznamku? Vite o necem spolehlivejsim?
Popripade
> > mate inspiraci pro ostatni? Delam nekde nejakou fatalni chybu,
kvuli ktere
> > bych mel na sifrovany klic zapomenout?
>
> No hlavne to musis poradne zasifrovat nejakym sifrovacim algoritmem
> a ne XORovat, kdyz uz...
a rozsekat ten aloritmus do spousty rutin - jinak si jej hacker
vytahne primo z Tve aplikace - nepujde-li o nesymetricjkou sifru.
Jinymi slovy znamena to, ze kod ktery generuje klic se musi lisit od
kodu, ktery jej overuje
D. Toman
Re[2]: RE /OT/: multitasking v DOSu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.7.2001 06:54:12
> JH> FLAGS, CS a IP jsou ulozeny na zasobnik v tom poradi jak jsou
napsany
>
> Ale jak daleko???
>
> Pokud bude zavolano preruseni, obsluznej program muze zavolat napr.
> fci. dosu a uz by jste dostal jine hodnoty.
??
Jak jsem jiz psal pokud jsi si jist, ze Tvuj kod je prvni na rade (tj
nepredbehl Te jiny ISR kod, kter Te vola az po svem ukonceni) pak jsou
ty 3 wordy ulozeny hned na vrsku stacku (samozrejme, ze pokud neco na
stack ulozis musis na to pamatovat).
Vubec nezalezi na tom kolik jsi zavolal sluzeb dosu (ale volat Int21 a
dalsi z HW obsluhy preruseni je zakazano (pokud ovsem nevis presne co
delas a jak to udelat)) - kazde takove volani musi skoncit tak, ze SP
bude mirit na stejnou pozici jako pred volanim jinak to pekne vytuhne.
Zalezi pouze na tom co jsi uz stihl ulozit na stack primo nebo
zanorovanim do nejakych Tvych subrutin.
D. Toman
PING
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.7.2001 06:59:53
> programoval som jednoduche Ping demo pre Palm-a (podla nejakeho
> MS prikladu) a tam sa to riesilo tak, ze do ICMP paketu sa vlozil
cas
> jeho vytvorenia a po prijati paketu sa urcil rozdiel voci aktualnemu
casu.
Linuxovy 'ping' se chova podobne (i kdyz ne vzdy):
If the data space is at least eight bytes large, ping uses the
first
eight bytes of this space to include a timestamp which it uses in
the
computation of round trip times. If less than eight bytes of pad
are
specified, no round trip times are given.
Pokud je delka paketu nasilne snizena (ping x.x.x.x -s 1) pak
timestamp nevklada do paketu a ani jej nemeri (nezobrazuje)
D. Toman
p�ipojen� dvou PC k Internetu
[*] <dave.fm(zv)atlas(tec)cz> - 10.7.2001 07:12:17
Ahoj,
pokud to chce# p�es jeden modem, ak mus�# m�t s�#ovou kartu a pak j� osobn�
pou��v�m program WinProxy, ted presne nevim stranku kde ho najdes ale maj�
sv� a na strankach se dozvis o tom zda je freeware nebo placeny.
David
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jackie X
> Sent: Thursday, July 05, 2001 1:02 PM
> To: Delphi Konference
> Subject: OT: p�ipojen� dvou PC k Internetu
>
>
> Jak za��dit to, aby dva po��ta�e mohli sd�let p�ipojen� (vyt��en�) k
> Internetu? Mus� m�t oba s�#ovou kartu nebo to jde i bez n� jinak?
>
> D�ky
>
> J. X.
>omezeni BDE
[*] �ipel Miroslav <Cipel(zv)Gumokov(tec)cz> - 10.7.2001 07:46:11
Dobry den, existuje nejake OFICIALNI doporuceni od Borlandu pro kolik soucasne
pracujicich uzivatelu je vhodne BDE a Paradoxova databaze ?
M.Delphi 7 release: 10/2002
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 10.7.2001 07:52:23
Jasne, jen je treba nejdrive direktivou kompilatoru Assertion povolit
(Assertions are OFF by default!)
$ASSERTIONS ON/OFF (long form)
$C +/- (short form)
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Vones
>
> Jina moznost je:
>
> Assert(Inc > 0, 'Nespravny parameter inc');simulace stisku klavesy Mysi
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 10.7.2001 08:00:46
>mam proceduru povesenou na tlacitku na udalosti onMouseDown
>procedure TForm1.IxxMouseDown(Sender : TObject; Button: TMouseButton;
>Shift: TShiftState; X, Y : Integer);
>begin
>bla bla bla...
>end;
>
> IxxMouseDown(Mouse, mbLeft, ?, x, y);
Oprava: - parametr TShiftState je POLE - tedy [ssShift,...] nebo pokud nic,
tak []
IxxMouseDown(Mouse, mbLeft, [ ], x, y); S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
OT:Grafy funkcii
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 10.7.2001 08:29:40
ahojte,
neviete nahodou, odkial by som si mohol stiahnut program, ktory dokaze
zobrazit 2D/3D grafy funkcii, ktore mu zadam?
napr: 2 2
z = x + y a zobrazi mi 3D paraboloid
moc diky
jozo
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.Jak zabranit ALT+TAB apod.?
[*] RNDr. Milan Vor�sek <vorisek(zv)igtt(tec)cz> - 10.7.2001 08:36:38
> jak bych mohl udelat, aby ma aplikace ignorovala klavesove zkratky, jako
> CTRL+Esc, ALT+TAB apod., ci klavesu Windows, zkratka aby se uzivatel nemohl z
> aplikace(pokryva celou obrazovku) dostat do windows aniz by program ukoncil?
pro Win 9x:
SystemParametersInfo(97,word(true),(zv)B,0); // disables
SystemParametersInfo(97,word(false),(zv)B,0); // enables
SPI_SCREENSAVERRUNNING=97
pro Win NT:
http://support.microsoft.com/support/kb/articles/Q226/3/59.ASP
Windows NT 4.0 Service Pack 3 and Later and Windows 2000:
Applications can disable ALT+TAB or CTRL+ESC by installing a low-level keyboard
hook.
A low-level keyboard hook (WH_KEYBOARD_LL{=13}) is installed by calling
SetWindowsHookEx.
M.Vorisek
Re[2]: RE /OT/: multitasking v DOSu
[*] Ji�� HAVELKA����*���zY�W�#�� - 10.7.2001 08:45:07
----- Original Message -----
From: Stanislav PETR <glux(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 09, 2001 9:01 PM
Subject: Re[2]: RE /OT/: multitasking v DOSu
> Ale jak daleko???
> Pokud bude zavolano preruseni, obsluznej program muze zavolat napr.
> fci. dosu a uz by jste dostal jine hodnoty.
Musis se nastavit jako prvni handler preruseni a nejlepe to pokazde jeste
zkontrolovat (!?), pripadne se tam znovu vratit.
S pozdravem Jiri HAVELKA
Delphi 7 release: 10/2002
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 10.7.2001 08:52:38
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Vones
> From: "Erik Salaj" <winsoft(zv)stonline.sk>
> > Alebo by si doplnil kod, napr.:
> >
> > {$IFDEF DEBUG}
> > if inc <= 0 then raise Exception.Create('Nespravny parameter inc');
> > {$ENDIF DEBUG}
>
> Jina moznost je:
>
> Assert(Inc > 0, 'Nespravny parameter inc');
>
Ja bych to v Pascalu jeste radeji udelal takto:
var Count: integer;
type TPositiveInt = 1..MaxInt;
procedure increment_by(inc: TPositiveInt);
begin
Count := Count + inc;
end;
a zapnul bych Range Checking, nebo kdybych to chtel vzdy pri zapnutem
Assertions, dal bych na zacatek jeste:
{$IFOPT C+} {$R+} {$ENDIF}
Pavel Kriz
D6 a podpora PNG,GIF,...
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 10.7.2001 09:12:07
Diky, ale mne hlavne zajimalo, jestli je tato podpora i v D6, v prehledu vlastnosti
jsem nic nenasel.
Slavek
> From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> > Nevite nahodou, zda v D6 je podpora grafiockych formatu PNG a GIF ?
>
> Ahoj,
>
> Graphics library (shareware):
> http://www.lischke-online.de/Graphics.html
>
> Petr Vones, amatersky programator
> SQL export do xls + opet :)
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 10.7.2001 09:44:08
Cau,
podle archivu konference jsem si udelal export dat z SQL tabulky do xls souboru. Pouzil jsem syntaxi z konference a bohuzel mi to nefunguje.
SQL.Clear;
SQL.Add('SELECT * INTO Zarizeni IN "c:\Zarizeni.xls" "Excel 8.0;HDR=YES;" FROM Zarizeni');
ExecSQL;
vyhodi to na me chybu blizko prikazu IN, podle konference by to melo fungovat, muzete mi prosim poradit kde mam chybu ?
dik Ladap
WIN2K Eng SP1
D5Ent UP1
MSDE2k
Delphi 7 release: 10/2002
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 10.7.2001 10:21:44
Haj hou!
On 10 Jul 2001,, Erik Salaj wrote:
> To bude asi tym, ze Eiffel je navrhnuty (na rozdiel od Delphi) aby cosi take
> umoznoval. V Eiffely programujes pomocou kontraktov (DBC = Design By
> Contract).
DBC lze realizovat i v Delphi. Pomoci Assert lze snadno definovat
jak pre-condition tak post-condition. Invariant se da kontrolovat
samostatnou metodou (nejlepe pojmenovanou Invariant :-) volanou
jako assert (v pre- a/nebo post-condition bloku). Jedinou vyhodou
Eiffelu je snadna realizace invariantu, pre- i post-conditions v
prepsanych (overriden) metodach, ale i to se da s trochou snahy
realizovat v Delphi (Invariant je trivialita, pre- a post- jen "tak
napul"). Prirozene by bylo hezke mit primo v OP podporu pro DBC
(vedou se o tom cas od casu diskuze mezi vyvojari a Borlandem v
NG's), ale jak vidno, neni to az tak dalece nezbytne.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Delphi speed - pozri
[*] Werki <delphi(zv)minv.sk> - 10.7.2001 10:37:58
Zdravim
Mam taky vnutorny pocit, ze este v dobach ked som robil s D3 bola v
menu, options akasi moznost
na prepnutie generacie kodu na velkost/rychlost. V D4 sa mi to nepodarilo
najst. Je v Delphi este nieco
take k dispozicii alebo som mimo?
Robim aplikaciu ktora sa toci v slucke tak 160 000 krat.
Posielam data rovno na HW. Proste nic moc. Problem je v tom, ze
ked to spravim vo Visual C++ tak to ide na 25 krat za sec a v Delphi 6 krat
za sec.
To je na moj vkus obrovsky rozdiel. Nevie niekto v com by to mohol byt
problem? (mozno aj hipopoteticky)
Mam dynamicke pole of Single pekne nasackovane datami a normalne ich
posielam do device cez directx.
Dik
Werki
Kde mam chybu v rekurzi? (a takova krasna byla..
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 10.7.2001 10:58:47
Pouzivam bez problemu tuto rekurzi, ktera hleda vsechny soubory podle masky
vcetne podslozek a objevil jsem vaznou chybu.
Rekurzi volam napr. takro: AddFiles('E:\Temp', '*.*', True);
V C:\Temp si vytvorim slozku C:\Temp\XXXYYYZZZ a kdyz spustim rekuzi, nejde
tato slozka smazat. Jde ale smazat okamzite, jakmile ukoncim program. Jakoby
ta rekurze zablokovala pristup ke slozce. Soubory jsou bez problemu.
Asi nekde neuvolnim spravne TSearchRec, ale kde a jak??????
Zde je rekurze:
procedure TForm1.AddFiles(aPath, aMask: String; aRecursion: Boolean);
var
FSearchRec, DSearchRec: TSearchRec;
FindResult: Integer;
begin
aPath := aPath + '\';
FindResult := FindFirst(aPath + aMask, faAnyFile +
faHidden + faSysFile + SysUtils.faReadOnly, FSearchRec);
try
while (FindResult = 0) do FindResult := FindNext(FSearchRec);
FindResult := FindFirst(aPath + '*.*', faDirectory + faHidden +
faSysFile + SysUtils.faReadOnly, DSearchRec);
while (FindResult = 0) do
begin
if ((DSearchRec.Attr and faDirectory) = faDirectory) and
(DSearchRec.Name <> '.') and (DSearchRec.Name <> '..') then
if aRecursion then AddFiles(aPath + DSearchRec.Name, aMask,
aRecursion);
FindResult := FindNext(DSearchRec);
end;
finally
FindClose(FSearchRec);
end;
end;
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
Delphi 7 release: 10/2002
[*] Erik Salaj <winsoft(zv)stonline.sk> - 10.7.2001 10:59:44
> Jina moznost je:
>
> Assert(Inc > 0, 'Nespravny parameter inc');
To mas jedno. Zasadny rozdiel je ten, ze v Eiffely
su taketo konstrukcie sucastou jazyka a v Delphi nie.
Erik
Podobnost slov (jmen, prijmeni, rc)
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 10.7.2001 11:38:48
Ahoj,
na takovy problem se zavadi pojem metrika slov. To jest funkce, ktera ti
spocita vzdalenost mezi dvema slovy. Ja jsem se setkal s dvema definicema.
Prvni definuje vzdalenost jako pocet operaci Insert a Remove znaku ve slove,
aby se preslo z jednoho slova do druheho. Ta dalsi definice navic pridava i
operaci Replace.
A jak zjistit pocet techto operaci? Na to se vytvari nedeterministicky
automat (ktery se snadno prevede na deterministicky) podle prvniho slova a
podle druheho jej projedes.
Na matfyzu je o tom jedna prednaska, jestli chces, zkusim se kouknout zda
nejsou nejake podklady v elektronicke podobe.
Honza +
> -----Original Message-----
> From: Alois.Jirasek(zv)atlas(tec)cz [mailto:Alois.Jirasek(zv)atlas(tec)cz]
> Sent: Wednesday, July 04, 2001 4:44 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Podobnost slov (jmen, prijmeni, rc)
>
>
> Ahoj,
> mam databazi osob. U kazde osoby mam uvedeno jmeno, prijmeni
> a rodne cislo. Potrebuji v teto databazi najit duplicitni zaznamy.
> Najit identicke zaznamy neni problem, ale ja bych potreboval
> algoritmus, ktery najde i zaznamy velice podobne. Napriklad
> preklep, prohozena pismenka, drobna chyba v rodnem cisle.
> Treba aby mi ten algoritmus nasel vsechny zaznamy s urcitym
> procentem podobnosti.
>
> Nevite nekdo link na nejake informace o takovychto algoritmech?
> Nebo nemate nekdo dokonce takovou free knihovnicku? ;-)
>
> Diky za kazdou informaci.
> Kde mam chybu v rekurzi? (a takova krasna byla..
[*] Miloslav Sk�cel <delphicz(zv)stereo(tec)cz> - 10.7.2001 11:39:42
> procedure TForm1.AddFiles(aPath, aMask: String; aRecursion: Boolean);
> var
> FSearchRec, DSearchRec: TSearchRec;
> FindResult: Integer;
> begin
> aPath := aPath + '\';
> FindResult := FindFirst(aPath + aMask, faAnyFile +
> faHidden + faSysFile + SysUtils.faReadOnly, FSearchRec);
> try
> while (FindResult = 0) do FindResult := FindNext(FSearchRec);
> FindResult := FindFirst(aPath + '*.*', faDirectory + faHidden +
> faSysFile + SysUtils.faReadOnly, DSearchRec);
> while (FindResult = 0) do
> begin
> if ((DSearchRec.Attr and faDirectory) = faDirectory) and
> (DSearchRec.Name <> '.') and (DSearchRec.Name <> '..') then
> if aRecursion then AddFiles(aPath + DSearchRec.Name, aMask,
> aRecursion);
> FindResult := FindNext(DSearchRec);
> end;
***********************
FindClose(DSearchRec);
***********************
> finally
> FindClose(FSearchRec);
> end;
> end;
S pozdravem
Miloslav Sk�cel
skacel(zv)stereo(tec)cz
Sortovani ceskych stringu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.7.2001 12:08:22
Zde pozor, je samozrejme potreba mit spravne nastavene Locales...
Slavek
> TStringList a jeho metoda Sort pouziva ve trideni ANSICompareText,
> takze by melo byt trideni bez problemu
> ing. Jan Fiala
> 4.7.2001 Fredy Crueger:
> > Mam hromadu stringu s diakritikou a potrebuju je seradit podle abecedy.
> > Jeste nevim do ceho je ulozim, ale zatim jsou v souboru. Kam bych je mel asi
> > tak natahnout (napr. TStrings)? Hlavne aby to bralo ohled i na ty hacky a
> > carky.
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Kapacita TRichEdit
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.7.2001 12:08:22
Ahoj,
tak tohle neni pravda, pokud tim myslis, ze Ti TSyn* zobrazi
formatovani rtf, nikoliv jeho surovou podobu. Navic TSynMemo je
potomkem TSynEditu, takze proc by mel byt omezenejsi?
TSynMemo dela to same co TSynEdit, pouze ma nekolik vlastnosti
navic, ktere ma klasicke TMemo (coz je velmi prijemne, pokud jsi
dosud pouzival memo/richedit a rad bys synedit, sam jsem toho
vyuzival pri tvorbe rkEditu).
Slavek
> Jinak ale SynEdit je urcen i pro RTF
> format. BEz podpory RTF je SynMemo.
> Hurricane
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Kde mam chybu v rekurzi? (a takova krasna byla...)
[*] iturcan(zv)gamo.sk - 10.7.2001 12:08:02
Hi,
chyba ti tam
FindClose(DSearchRec);
bye
It
Ivan Turcan
Development Specialist
Phone: +421 905 500958
Email: iturcan(zv)gamo.sk
Kde mam chybu v rekurzi? (a takova krasna byla..
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.7.2001 12:08:52
> Pouzivam bez problemu tuto rekurzi, ktera hleda vsechny soubory
podle masky
> vcetne podslozek a objevil jsem vaznou chybu.
>
> Rekurzi volam napr. takro: AddFiles('E:\Temp', '*.*', True);
>
> V C:\Temp si vytvorim slozku C:\Temp\XXXYYYZZZ a kdyz spustim
rekuzi, nejde
> tato slozka smazat. Jde ale smazat okamzite, jakmile ukoncim
program. Jakoby
> ta rekurze zablokovala pristup ke slozce. Soubory jsou bez problemu.
>
> Asi nekde neuvolnim spravne TSearchRec, ale kde a jak??????> procedure TForm1.AddFiles(aPath, aMask: String; aRecursion:
Boolean);
> var
> FSearchRec, DSearchRec: TSearchRec;
> FindResult: Integer;
> begin
> aPath := aPath + '\';> FindResult := FindFirst(aPath + aMask, faAnyFile +
> faHidden + faSysFile + SysUtils.faReadOnly, FSearchRec);
> try
> while (FindResult = 0) do FindResult := FindNext(FSearchRec);
a to je co??
> FindResult := FindFirst(aPath + '*.*', faDirectory + faHidden +
> faSysFile + SysUtils.faReadOnly, DSearchRec);
> while (FindResult = 0) do
> begin
> if ((DSearchRec.Attr and faDirectory) = faDirectory) and
> (DSearchRec.Name <> '.') and (DSearchRec.Name <> '..') then
> if aRecursion then AddFiles(aPath + DSearchRec.Name,
aMask,
> aRecursion);
> FindResult := FindNext(DSearchRec);
> end;
> finally
> FindClose(FSearchRec);
> end;
> end;
1) chybi FindClose(DSearchRec)
2) aRecursion neni nikde inicializovana (kompilator urcite generuje
Warning)
D. Toman
MessageDlg ... frm
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 10.7.2001 12:20:28
nevite nekdo jestli nekde je a jak se jmenuje dfm soubor od MessageDlg ?
slo by mi o prepsani tlacitek Yes No na Ano, Ne
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
MessageDlg ... frm
[*] daniel.hrna(zv)sme(tec)cz - 10.7.2001 12:26:55
A co treba MessageBox ??? Ten je cesky ...
D.
-----Original Message-----
From: Valenta Patrik [mailto:valentapat(zv)volny(tec)cz]
Sent: Tuesday, July 10, 2001 12:20 PM
To: Delphi konference
Subject: MessageDlg ... frm
nevite nekdo jestli nekde je a jak se jmenuje dfm soubor od MessageDlg ?
slo by mi o prepsani tlacitek Yes No na Ano, Ne
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
###########################################
Tato zprava byla oskenovana F-Secure Anti-Virem pro Microsoft Exchange.
Vice informaci na adrese http://www.F-Secure.com/MessageDlg ... frm
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.2001 12:28:13
From: "Valenta Patrik" <valentapat(zv)volny(tec)cz>
> nevite nekdo jestli nekde je a jak se jmenuje dfm soubor od MessageDlg ?
> slo by mi o prepsani tlacitek Yes No na Ano, Ne
Ahoj,
MessageDlg se vytvari programove. Asi lepsi reseni je pouzit API funkci
MessageBox nebo jeste lepe TApplication.MessageBox. Tyto dialogy jsou totiz
lokalizovane dle Windows.
Petr Vones, amatersky programator
D6 a podpora PNG,GIF,...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.2001 12:31:28
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> Diky, ale mne hlavne zajimalo, jestli je tato podpora i v D6, v prehledu
> vlastnosti jsem nic nenasel.
Ahoj,
ne ve VCL neni. Je tam pouze JPEG, ovsem s opravenou chybou kde neslo ulozit
vysledek ktery mel velikost cca 1..2 MB. CLX aplikace ale umi pracovat s PNG.
Petr Vones, amatersky programator
MessageDlg ... frm
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 10.7.2001 12:31:55
Ahoj,
> nevite nekdo jestli nekde je a jak se jmenuje dfm soubor od MessageDlg ?
nijak. Podivej se do zdrojaku unity Dialogs, funkce CreateMessageDialog.
Formular se vytvari pomoci metody CreateNew.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Delphi speed - pozri
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.2001 12:35:29
From: "Werki" <delphi(zv)minv.sk>
> Mam taky vnutorny pocit, ze este v dobach ked som robil s D3 bola v
> menu, options akasi moznost na prepnutie generacie kodu na velkost/rychlost.
Ahoj,
To jsis asi spletl s C++ Builderem. V Delphi je jedina moznost zapnout
Optimalizaci (coz je vychozi nastaveni). Na vykon ma take negativni vliv
pouzivani Range a Overflow checking.
Petr Vones, amatersky programator
Qreport - lokalizace II
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 10.7.2001 12:51:45
On 9 Jul 2001, at 16:57, Valenta Patrik wrote:
> Z prispevku p. Vonese mi svitla jiskricka nadeje, ale neuspel jsem.
> Potrebuji po vygenerovani nahledu stisknout tlacitko 100% -
> ZoomTo100Click, nenasel jsem co to je za Unit, ci udalosti to jsou.
> Vite jak na to ?
http://www.localizator.com
Pokud je text v resourcestrings nebo ve formulari, funguje to
spolehlive. Pokud je text zapraseny ve zdrojaku, pak pomuze snad
pouze prival nadavek na QuSoft, aby to opravili
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OCHRANA SW - pouziti sifrovaneho klice
[*] Lauko #tefan <laukosw(zv)naex.sk> - 10.7.2001 13:19:45
Ahoj,
videl som takuto ochranu:
Cislo licencie : 00001
Uzivatel : Lauko
Datum platnosti : XXXXX
Verzia : 1.0
Z tychto informacii sa vygeneruju licencne kody specialnym - tvojim
programcekom.
Uzivatelovy potom posles v textovej podobe licencne ujednanie s udajmi:
Cislo licencie : 00001
Uzivatel : Lauko
Datum platnosti : XXXXX
Verzia : 1.0
Kod : XYXYXYXYXYXYXYXYXYXYXYXYX.
V distribuovanom programe pouzijes ten isty algoritmus - vygenerujes kod zo
zadanych userinfo a porovnas so zadanym.
Vsetko to moze byt v obycajnom textaku - ziadne tajomstvo. Sposob akym
vygenerujes kod zalezi na tebe... experti prelomia akukolvek barieru (ak to
stoji za to). Ale pri tomto sposobe nebudu k dispozicii ziadne zasifrovane
subory - bede sa musiet patrat po sposobe generovania kodu.
Lauko.
From: Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz>> Mam problem (a asi nebudu sam), jak dobre chranit program. Dokoncuji sw,
> ktery bych chtel sirit v nekolika rovinach:
>
> 1) jako shareware bez jakekoliv ochrany.
> 2) jako ostrou verzi s sifrovanym klicem
>
> Bod 1 a 2 je tentyz program, pouze se bude lisit pridanym sifrovanym
klicem.
>
> Muj navrh je takovy: Kazdy by si mohl stahnout sharewarovou verzi programu
> na webu. Kdo bude chtit program zakoupit, tak po zaplaceni dostane klic
> (napr. soubor licence.key), kde by krome ruznych odemykacich udaju bylo
> uvedeno jmeno a firma zakaznika. Licencni data v tomto souboru by byla
> sifrovana (XORem nebo necim komplikovanejsim - o to asi ted nejde) a v
> rozsifrovane podobe by slouzila ke zpristupneni ne-sharewarovych funkci a
> hlavne by se na formulari (nebo v About...) zobrazovalo jmeno zakaznika.
> Navic by klic byl vybaveni kontrolnim souctem (hashovaci tabulka nebo neco
> jednodussiho).
>
> Vychazim z premisy, ze po svete se sice mohou toulat nelegalni plne verze
> (tomu asi nelze zabranit), ale tito nelegalni uzivatele budou vlastnit
klic,
> ktery bude obsahovat CIZI jmeno. Budou tedy neustale vystaveni mucivemu
> pocitu, ze kdokoliv uvidi, jaky je ten dotycny kopirak darebak. (ted jsem
> tak naivni, az to prasti...).
>
> Bez klice by se aplikace chovala jako shareware a pokud by se klic nekdo
> pokusil zmenit, tak rovnez.
MessageDlg ... frm
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 10.7.2001 13:42:14
Tyto informace jsou ulozeny v souboru consts.pas v adresari source (Prof.,
Entr.) a nikoliv v souboru dfm.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> nevite nekdo jestli nekde je a jak se jmenuje dfm soubor od
> MessageDlg ?
> slo by mi o prepsani tlacitek Yes No na Ano, Ne
Proc nefunguje delete ?
[*] Karel Horky <horkyk(zv)razdva(tec)cz> - 10.7.2001 14:08:52
Mam IB6.0.1, IBX 4.42, W2K/SP1, D5Ent.
Na datovem modulu ('DM') mam komponenty TIBDatabase ('IBDB'), TIBTransaction
('IBTrans'), TIBDataSet ('IBDSetMista'). Pro zobrazeni mam na jinem
formulari TDBGrid a prislusny TDataSource. Zobrazeni tabulky po spusteni
programu je v poradku.
Pokud nasledujicim zpusobem zavolam proceduru Delete, veta zobrazena v Gridu
zmizi a neni videt.
Ovsem po nasledujicim spusteni programu vidim opet vsechny vety v puvodnim
stavu.
V Create datamodulu mam StartTransaction a v Destroy Datamodulu jeste
Commit.
Parametry transakce jsou Read_commited, rec_version, nowait.
Proc se smazane vety opravdu nesmazou ?
procedure TMisto.ZrusSe;
begin
if not DM.IBTrans.InTransaction then
DM.IBTrans.StartTransaction;
DM.IBDSetMista.Delete;
DM.IBTrans.CommitRetaining ;
DM.IBDSetMista.Refresh;
end;
------
S pozdravem Karel Horky
horkyk(zv)razdva(tec)cz
RXLib for D6
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 10.7.2001 14:24:58
Neznate nekdo nejakou adresu, kde je mozne nahrat %subj% pro D6? Na adrese,
ktera probehla konferenci http://202.102.249.218/control/rx275d6.zip je
soubor poskozen, alespon mne to tak po stazeni hlasi.
Diky.
Petr Klinger
OCHRANA SW - pouziti sifrovaneho klice
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 10.7.2001 14:45:34
Ahoj,
zrovna resim podobny problem. Mam Client/Server aplikaci (nad IB6) a
potrebuji zamezit behu vice klientu, nez je zakoupeno. Lze to resit
zamykanim zaznamu s klicem, ale s SQL databazi to asi neni to prave
orechove. Samozrejme to musi byt odolne proti padu klienta.
Urcite to uz nekdo resil, jak to mam udelat?
Chranit server umim, proste na vsechny papiry se tiskne majitel licence a
hotovo. Je vsak potreba omezit pocet spustenych (nikoli nainstalovanych)
klientu.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Jackie X <jackie.x(zv)seznam(tec)cz> - 10.7.2001 15:09:28
> > > Ma nekdo nejaky napad nebo poznamku? Vite o necem spolehlivejsim?
> Popripade
> > > mate inspiraci pro ostatni? Delam nekde nejakou fatalni chybu,
> kvuli ktere
> > > bych mel na sifrovany klic zapomenout?
> >
> > No hlavne to musis poradne zasifrovat nejakym sifrovacim algoritmem
> > a ne XORovat, kdyz uz...
Dle meho nazoru nema cenu delat jakoukoli ochranu aplikaci pred nelegalnim pouzivani. Kazda je totiz prolomitelna (viz Windows XP).
Jackie
______________________________________________________________________
Tic Tac predstavuje nove originalni stranky plne soutezi o
znackove ceny Tic Tac a Ferrari - http://www.tictac(tec)cz
Nastaveni TSQLClientDataSet
[*] Ji�� Wendl - 10.7.2001 15:39:32
Ahoj
Nevite nekdo jak nastavit TSQLClientDataSet u dbExpressu tak aby mi
nekontroloval
Unikatni klice?
Popis:
Mam tabulku
CREATE TABLE T1
( SL1 VARCHAR(5) NOT NULL,
SL2 VARCHAR(5),
CONSTRAINT UK_T1 UNIQUE (SL1)
)
Pokud chci Provest update ne Insert v TSQLClientDataSetu a zadam duplicitni
SL1 tak mi vrati chybu
Client ("Key violation"), ale ja chci aby mi tu chybu vratila databaze
("violation of PRIMARY or UNIQUE KEY constaint UK_T1 ..").
Z toho totiz poznam lip kde se stala chyba.
predem diky za radu
Jirka
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lan#kroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
PING
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.7.2001 15:46:33
> > Vysledek byl, ze jsme misto casu pingu zmerili kolik za tu dobu nase
> > aplikace sezrala STROJOVEHO CASU!!! To byl duvod, proc muj ping pod
> > Linuxem vytrvale ukazoval 0ms (protoze od odeslani do prijeti
> > packetu aplikace poctive spi a nezere nic), zatimco Indy ukazoval
> > pomerne odpovidajici cisla.
> programoval som jednoduche Ping demo pre Palm-a (podla nejakeho
> MS prikladu) a tam sa to riesilo tak, ze do ICMP paketu sa vlozil cas
> jeho vytvorenia a po prijati paketu sa urcil rozdiel voci aktualnemu
> casu.
Tak to si objevil ameriku, protoze takhle to delame vsichni.. a hlavne
to s vuse uvedenym problemem NIJAK nesouvisi.
VZDY kdyz delas PING, tak meris cas od odeslani packetu do prijeti
odpovedi. Tedy zjistis si cas na zacatku (a jestli si jej poznamenas
do packetu je zcela lhostejne!), pak si zjistis cas hned po prijeti
odpovedi a tyto dva casy od sebe odectes a mas hodnotu Pingu. je
tedy jedno, jestli cas odeslani packetu prectes z dat v odpovedi ci z
nejake tve promenne, vzdy ziskas stejny cas!
kazdopadne ja jsem upozornoval na problem, ktery si asi prehledl...
a tim problemem je prave zjistovani aktualniho casu. Indy necte
aktualni cas, ale citac spotrebovaneho strojoveho casu procesem.
tedy kdyz ja jsem odeslal packet a poznamenal si cas odeslani, tak
sjem se v zapeti uspal, tedy prestal jsem konzumovat strojovy cas.
Po trebas jedne vterine jsme se probudil, rotoze prisla odpoved.
zjistil jsem si cas, ale ten se diky uspani procesu nijak nezmenil!
Tedy cas pingu mi to ukazovbalo 0ms, i kdyz byl trebas 1000ms!
Chapes?
A cele Indy takto pracuje.. nemeri cas pingu, ale spotrebovany
strojovy cas...
L.
XML: childNodes
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 10.7.2001 15:48:21
----- Original Message -----
From: Jio� Koeara <pazout(zv)sport(tec)cz>
> Na strankach Microsoftu si stahnete nejlepe posledni verzi msxml3.dll
> Z tohoto duvodu nedoporucuji pouzivat MS knihovnu pro parsovani v
> klientskych aplikacich, ale pouze na serveru kde si muzete potrebnou verzi
> ohlidat.
Problem je v tom ze na tom serveri len hostujem, nemam vplyv na verziu
nainstalovaneho software.
Doteraz som pouzival pre pracu s XML dokumentami podla roznej literatury o
XML (z roku 2000, teda asi uz trocha prestarlej :-) objekt
"Microsoft.XMLDOM". Malo by sa spravne pouzivat objekt
"Msxml2.DOMDocument"?, alebo je tu este nieco ine?
Pavol Stolc
pstolc(zv)sc.sknet.sk
omezeni BDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.2001 16:04:21
From: "#ipel Miroslav" <Cipel(zv)Gumokov(tec)cz>
> existuje nejake OFICIALNI doporuceni od Borlandu pro kolik soucasne
> pracujicich uzivatelu je vhodne BDE a Paradoxova databaze ?
Ahoj,
"Some current internal limits of BDE":
http://community.borland.com/article/0,1410,15159,00.html
Nicmene Paradox ci dBase jsou znacne nevhodne pro sitovy provoz. V dnesni dobe
uz neni problem pouzit nejaky SQL server.
Petr Vones, amatersky programator
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.7.2001 16:28:01
Puvodni zprava, kterou napsal Jackie X dne 10 Jul 2001,:
> Dle meho nazoru nema cenu delat jakoukoli ochranu aplikaci pred nelegalnim pouzivani. Kazda je totiz
> prolomitelna (viz Windows XP).
Takze ani nezamykas byt, kdyz kazde dvere se daji otevrit?
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
============================================================OCHRANA SW - pouziti sifrovaneho klice
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.7.2001 16:39:07
Puvodni zprava, kterou napsal Ota Maly dne 10 Jul 2001,:
> zrovna resim podobny problem. Mam Client/Server aplikaci (nad IB6) a
> potrebuji zamezit behu vice klientu, nez je zakoupeno. Lze to resit
> zamykanim zaznamu s klicem, ale s SQL databazi to asi neni to prave
> orechove. Samozrejme to musi byt odolne proti padu klienta.
Na to se da pouzit fuj fuj hardwarovy klic nebo treba OnGuard od
TurboPoweru to umi (ten to resi tak, ze na siti je ve sdilenem
adresari nejaky soubor, ktery se incrementuje apod.). Jinak ja
bych to asi resil tak, ze bych na server nasadil jeste nejaky
licencni server jako service a tomu by se klienti hlasili svymi
IP adresami. Ten uz by snadno zjistil, jestli jich neni vic,
nez jich ma byt...
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
============================================================OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.7.2001 16:40:55
> Dle meho nazoru nema cenu delat jakoukoli ochranu aplikaci pred
nelegalnim
>pouzivani. Kazda je totiz prolomitelna (viz Windows XP).
Ona je ochrana a ochrana.
Chces-li software prodavat pomoci internetu klasickou metodou (stahni
ozkousej a pokud chces aby To chces pouzivat tak si zaplat za nejake
funkce, ktere ve free verzi nejsou) pak musis nejaky mechanismus
implementovat (registracniklic ktery vypne omezeni). Je celkem jedno
jestli to nekdo prolomi nebo ne - vzdycky ma moznost krast cizi klice
a nemusi nic lamat. Jde o to, ze procento platicich je tak velke, ze
na hackery neni treba brat ohled (resp. je nesmyslne vymyslet
"neprolomitelne" metody - ty vedou k buzeraci platicich zakazniku, coz
je nezadouci)
D. Toman
OCHRANA SW - pouziti sifrovaneho klice
[*] brant(zv)dcomm(tec)cz - 10.7.2001 16:40:23
Mam na to free komponentu se zdrojakem. Sice jsem jeste plne nepochopil, jak
funguje, ale funguje a to i pri tom padu. Vyzaduje read/write pristup do
nejakeho sitoveho adresare, coz muze byt treba adresar s daty. Chces-li ji
zkusit, napis. Je to velmi jednoduche, zadne potize zatim nebyly.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Tel. 0724/007234
Ahoj,
zrovna resim podobny problem. Mam Client/Server aplikaci (nad IB6) a
potrebuji zamezit behu vice klientu, nez je zakoupeno. Lze to resit
zamykanim zaznamu s klicem, ale s SQL databazi to asi neni to prave
orechove. Samozrejme to musi byt odolne proti padu klienta.
Urcite to uz nekdo resil, jak to mam udelat?
Chranit server umim, proste na vsechny papiry se tiskne majitel licence a
hotovo. Je vsak potreba omezit pocet spustenych (nikoli nainstalovanych)
klientu.Lokalni nastaveni [carka
[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 10.7.2001 16:46:55
tecka] - klient, serve|Mate nekdo navod jak z tohoto zacarovaneho kruhu ven?
SQL server pouziva nastaveni oddelovace desetinych mist (dale ODM) podle
lokalniho nastaveni (dale LN) stroje na kterem bezi. Klient muze mit odlisne
nastaveni ODM v LN.
V helpu k MSSQL je psano ze je nutne ve WHERE pouzivat ODM dle LN. Ale jak
to je u INSERTU nebo UPDATE?
Pouziva se take ODM dle LN? Jaka je potom syntaxe SQL kdyz je oddelovac
carka, protoze carka slouzi jako oddelovac parametru dotazu?
Pazout
problem s SetMenuItemInfo
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 10.7.2001 17:50:00
Ahoj,
zkousim menit ikonu polozky v kontextovem menu ale stale se mi to
nedari. Tenhle kod mi sice ikonu zmeni, ale zmizi mi u ni textovy popis.
Pokud dam fType MFT_STRING, nemuzu uz menit ikonu, protoze podle
napovedy nemohu menit text a ikonu soucasne ("The MFT_BITMAP,
MFT_SEPARATOR, and MFT_STRING values cannot be combined with one
another."), jak to teda mam udelat?
var
SystemMenu : HMenu;
MyMenuItemInfo : TMenuItemInfo;
CloseBitmap : TBitmap;
begin
CloseBitmap := TBitmap.Create;
CloseBitmap.LoadFromFile('c:\test.bmp');
SystemMenu := GetSystemMenu(Form1.Handle, FALSE);
FillChar(MyMenuItemInfo,SizeOf(TMenuItemInfo),#0);
MyMenuItemInfo.cbSize := SizeOf(TMenuItemInfo);
MyMenuItemInfo.fMask := MIIM_TYPE;
MyMenuItemInfo.fType := MFT_BITMAP;
MyMenuItemInfo.dwTypeData := Pointer(CloseBitmap.Handle);
SetMenuItemInfo(SystemMenu,
SC_CLOSE,
FALSE,
MyMenuItemInfo);
Diky, Ales Lokalni nastaveni [carka
[*] Fiala Milan <Milan.Fiala(zv)pvt(tec)cz> - 10.7.2001 18:40:51
tecka] - klient, serve|> V helpu k MSSQL je psano ze je nutne ve WHERE pouzivat ODM
> dle LN. Ale jak to je u INSERTU nebo UPDATE?
Dovolim si otazku - kdyz udelam
SELECT 2,5 FROM tabulka
vypise to jako jeden sloupec nebo jako dva?
Mam zkusenost z MSSQL a O8i, ze to budou dva sloupce, prestoze tento dotaz
spoustim z CZ prostredi.
Cili ja z toho usuzuji, ze je vzdy deset. oddelovacem tecka.
Milan Fiala
OCHRANA SW - pouziti sifrovaneho klice
[*] David Men��k <mensikd(zv)seznam(tec)cz> - 10.7.2001 18:45:26
> 1) jako shareware bez jakekoliv ochrany.
> 2) jako ostrou verzi s sifrovanym klicem
>
> Bod 1 a 2 je tentyz program, pouze se bude lisit pridanym
> sifrovanym klicem.
Zdar,
no, zakladni chyba je sirit shareware jako ostrou verzi se zablokovanymi
fcemi. Staci v podstate par minut na odblokovani. Pokud chces neco skutecne
dobreho, doporucuji knihu "Cracking a jak se proti nemu branit" od Pavla
Cervene (nesklonovane jmeno je Pavol Cerven). Az si ji prectes pochopis,
proc tvuj postup by byl zbytecny. Jen tak nadhodim myslenku ze zminovane
knihy: co takhle aby ten klic (licenci soubor) treba rozkodoval kus kodu
tveho exace?
Ozon
Delphi vs. animacni program .....
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 10.7.2001 22:41:35
Ahoj,
zacinam se stavat castym dopisovatelem, ale doufam, ze to prezijete.
Potreboval bych resit nasledujici problem. Budu psat aplikaci, ktera by mela
zahrnovat jakesi matematicke vypocty a zaroven by mela obsahovat prezentace
a animace. Stojim proto pred nasledujicimi problemy. Jaky nastroj pouzit pro
animace aby byl kompatibilni s Delphi ? Jak vyresit komunikaci s
powerpointem ? Neresil jste uz nekdo takovy problem. Potreboval bych nejake
namety a poradit, jaky animacni nastroj pouzit ? Jedine omezeni, ktere pro
to mam je, aby nebyl prilis drahy.
Prosim, poradte, kdo mate napad. Budu vdecny i za odkazy.
Diky.
Fila
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
Delphi 7 release: 10/2002
[*] Erik Salaj <winsoft(zv)stonline.sk> - 11.7.2001 00:56:12
> > To bude asi tym, ze Eiffel je navrhnuty (na rozdiel od Delphi) aby cosi
take
> > umoznoval. V Eiffely programujes pomocou kontraktov (DBC = Design By
> > Contract).
>
> DBC lze realizovat i v Delphi. Pomoci Assert lze snadno definovat
Velmi optimisticky povedane. Myslim, ze vecina programatorov
by rychlo zmenila nazor, az by sa pokusila to implementovat.
> jak pre-condition tak post-condition. Invariant se da kontrolovat
> samostatnou metodou (nejlepe pojmenovanou Invariant :-) volanou
> jako assert (v pre- a/nebo post-condition bloku). Jedinou vyhodou
Assert sa da jednoducho definovat len pre pre-condition. Ovsem
preconditions sa vecsinou nechavaju vzdy zapnute (aj v ostrom kode),
takze pokial by som robil vsetko cez assert, tak hned tu mam jeden
(mensi) problem, ze precondition asserty chcem mat zapnute a ostatne
nie vo vyslednom kode (v Eiffely si mozem selektivne vybrat, co sa
ma/nema testovat).
Definovat post-condition je uz celkom slusny problem, minimalne
z dvoch pricin:
1. aby si mohol kontrolovat zmenu atributov potrebujes si odlozit
ich hodnoty, cize deklarovat nove premenne (to uz s Assert nespravis
ale potrebujes nejaky ten $ifdef $endif blok) a doplnit priradenia
2. potrebujes zabezpecit aby sa post-conditions vzdy vykonali,
teda musis tam dat try-finally block
Okrem toho existuju class invarianty, ktore je potrebne testovat pred
a po vykonani kazdej metody. Cize definovat metodu s tymito podmienkami
a zavolat ju po spusteni a pred ukoncenim KAZDEJ metody. Dalej system
vynimiek musi fungovat uplne odlisne aby bol kompatibilny s DBC. Tu
som si nie isty, ci by nebolo potrebne pouzit nejake to goto na zabezpecenie
zvlastneho toku riadenia.
> Eiffelu je snadna realizace invariantu, pre- i post-conditions v
> prepsanych (overriden) metodach, ale i to se da s trochou snahy
> realizovat v Delphi (Invariant je trivialita, pre- a post- jen "tak
> napul"). Prirozene by bylo hezke mit primo v OP podporu pro DBC
> (vedou se o tom cas od casu diskuze mezi vyvojari a Borlandem v
> NG's), ale jak vidno, neni to az tak dalece nezbytne.
Dovolim si tvrdit, ze vysledny kod by bol tak neprehladny, ze nema
ziaden vyznam nieco take robit. Maximalne vlozit sem-tam nejaky
ten Assert (tak je to napr. vo VCL) ale zase je otazne, ci to ma
vyznam robit to takto nesystematicky.
Erik
OCHRANA SW - pouziti sifrovaneho klice
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.7.2001 07:03:16
> Zdar,
> no, zakladni chyba je sirit shareware jako ostrou verzi se
zablokovanymi
> fcemi.
zalezi na aplikaci a zpusobu prodeje/sireni. V mnoha pripadech je
vhodnejsi a unosnejsi (neobtezuju zakazniky nutnosti dalsiho downloadu
(tim je to pro ne levnejsi), nezatezuju tolik sve inet linky, spravuju
mene verzi software,...)
>Staci v podstate par minut na odblokovani.
To je sice pravda, ale je to vcelku nezajimave. At udelas cokoliv na
warez servery se vzdy (pokud ten software za to stoji) dostane nejaka
verze, ktera bude funkcni.
Prodej software po internetu (mam na mysli software, ktery se pouziva
ve vetsim meritku a prodava opravdu ciste po Internetu) probiha
vetsinou tak, ze vystavim software vsude kde to jde (nekolik desitek
serveru se shareware/freeware jako je www.download.com.
www.tucows.com,...). Tim padem se muj software dostane do prime
konkurence s podobne zamerenymi programy, ktere jsou tamtake ulozeny.
Jestlize vetsina jich je zde ulozena jako freeware verze (bez klice je
s nejakymi mensimi ci vetsimi omezenimi program zdarma) musim to
udelat taky. Ti co si takove programy stahuji vzdy daji prednost
verzi, ktera jim zaruci dlouhodobou funkci, byt s trochou omezeni
(trial klic, ktery je na nejakou dobu odboura samozrejme poskytnu
zdarma a co nejmene obtezujici cestou).
D> Toman
SQL export do xls + opet :)
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 11.7.2001 07:15:53
Bud nikdo nevi, nebo muj mail zapadl, jak by ste vyresili export jedne tabulky z SQL do xls souboru ? Potrebuju aby si ten soubor vytvorilo SQL a tak jak sem to napsal by ho udajne vytvorit melo. Nake jine reseni ? Myslim ze v te syntaxi je problem v te ceste k tomu souboru, jak mu tedy rict kde ten soubor ma hledat ?
dik Ladap
>>> Ladislav.Parizsky(zv)access-it(tec)cz 10.7. 2001 9:44:08 >>>
Cau,
podle archivu konference jsem si udelal export dat z SQL tabulky do xls souboru. Pouzil jsem syntaxi z konference a bohuzel mi to nefunguje.
SQL.Clear;
SQL.Add('SELECT * INTO Zarizeni IN "c:\Zarizeni.xls" "Excel 8.0;HDR=YES;" FROM Zarizeni');
ExecSQL;
vyhodi to na me chybu blizko prikazu IN, podle konference by to melo fungovat, muzete mi prosim poradit kde mam chybu ?
dik Ladap
WIN2K Eng SP1
D5Ent UP1
MSDE2k
Lokalni nastaveni [carka
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 11.7.2001 07:17:27
tecka] - klient, serve|podivej se do historie, uz mi tu na toto tema radili. Pouzivej vyhradne
syntaxi SQL tedy tecku. A nastaveni prostredi si zmenis sam pomoci
promennzch napr. DecimalSeparator : = ' . '
> SQL server pouziva nastaveni oddelovace desetinych mist (dale ODM) podle
......
> Jaka je potom syntaxe SQL kdyz je oddelovac
> carka, protoze carka slouzi jako oddelovac parametru dotazu?
> Pazout
Format souboru XLS
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 11.7.2001 07:40:46
Ahoj,
nevi nahdodu nekdo kde sehnat format XLS souboru (verze 97, verzi 4.0
mam). Potrebuji z nej cista data bez nejakeho OLE. Tam kde ty data budu
cist, nebude excel nainstalovany.
Predem diky za jakoukoliv radu. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Formulare v knihovne
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 11.7.2001 07:48:57
Ahoj,
mam nasledujici problem. Mel jsem program v Delphi 5 ktery mel formular
v DLL knihovne a volal jsem jej asi takto:
procedure Zobraz(apph:THandle);
begin
Application.Handle:=apph;
Form:=TTestForm.Create(application);
Form.ShowModal;
Form.Free;
end;
Vse fungovalo OK, ale kdyz jsem toto portoval na Kylix program se
zhrouti na jakemkoliv dalsim prikazu po TTestForm.Create - at je to
Form.ShowModal, ci Form.Caption:='safsdfs'; - proste cokoliv s Form.
Zkousel jsem i bez Application.Handle, vzdy to spadne :(
Diky za jakekoliv nakopnuti.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
p�ipojen� dvou PC k Internetu
[*] David Men��k <mensikd(zv)seznam(tec)cz> - 11.7.2001 07:50:04
Zdar,
ja pouzivam tohle:
pocitac pripojeny k interneru pres modem - Windows 2000 + nastaveni sdileni
modemu.
Druhy komp pripojeny k prvnimu koaxem (v obou kompech tedy sitovky).
Mozna by slo spojit je pres null-modem, ale to by chtelo vyzkouset.
Ozon
> Ahoj,
> pokud to chce# p�es jeden modem, ak mus�# m�t s�#ovou kartu a pak
> j� osobn�
> pou��v�m program WinProxy, ted presne nevim stranku kde ho najdes ale maj�
> sv� a na strankach se dozvis o tom zda je freeware nebo placeny.
> > Jak za��dit to, aby dva po��ta�e mohli sd�let p�ipojen� (vyt��en�) k
> > Internetu? Mus� m�t oba s�#ovou kartu nebo to jde i bez n� jinak?Delphi speed - pozri
[*] David Mens�k <mensikd(zv)seznam(tec)cz> - 11.7.2001 07:50:06
Hi,
drobna pripominka: programy, lepe receno binarni kod, ktery pristupuje k
hardware se pise jako driver.
Je to prave z duvodu vykonu (v pripade pouziti rozumnejsich OS dostava uplne
jine priority apod.).
Ozon
P.S. Nicmene driver v delphi nenapises (teda aspon myslim).
> Mam taky vnutorny pocit, ze este v dobach ked som robil s D3 bola v
> menu, options akasi moznost
> na prepnutie generacie kodu na velkost/rychlost. V D4 sa mi to nepodarilo
> najst. Je v Delphi este nieco
> take k dispozicii alebo som mimo?
>
> Robim aplikaciu ktora sa toci v slucke tak 160 000 krat.
> Posielam data rovno na HW. Proste nic moc. Problem je v tom, ze
> ked to spravim vo Visual C++ tak to ide na 25 krat za sec a v
> Delphi 6 krat
> za sec.
> To je na moj vkus obrovsky rozdiel. Nevie niekto v com by to mohol byt
> problem? (mozno aj hipopoteticky)
> Mam dynamicke pole of Single pekne nasackovane datami a normalne ich
> posielam do device cez directx.Format souboru XLS
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 11.7.2001 08:01:23
Ahoj,
podivej se na adresu http://www.wotsit.org/. Nejaky popis tam je,
ale nemohu zarucit jaky presne.
Petr Kuklik
> nevi nahdodu nekdo kde sehnat format XLS souboru (verze 97, verzi 4.0
______________________________________________________________________
Tic Tac predstavuje nove originalni stranky plne soutezi o
znackove ceny Tic Tac a Ferrari - http://www.tictac(tec)cz
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.7.2001 08:31:11
On 10 Jul 2001, at 16:40, Dalibor Toman wrote:
> > Dle meho nazoru nema cenu delat jakoukoli ochranu aplikaci pred
> nelegalnim
> >pouzivani. Kazda je totiz prolomitelna (viz Windows XP).
>
> Ona je ochrana a ochrana.
> Chces-li software prodavat pomoci internetu klasickou metodou (stahni
> ozkousej a pokud chces aby To chces pouzivat tak si zaplat za nejake
> funkce, ktere ve free verzi nejsou) pak musis nejaky mechanismus
> implementovat (registracniklic ktery vypne omezeni). Je celkem jedno
> jestli to nekdo prolomi nebo ne - vzdycky ma moznost krast cizi klice
> a nemusi nic lamat. Jde o to, ze procento platicich je tak velke, ze
> na hackery neni treba brat ohled (resp. je nesmyslne vymyslet
> "neprolomitelne" metody - ty vedou k buzeraci platicich zakazniku, coz
> je nezadouci)
Myslim, ze urcite primerene usili neni na skodu. Kdyz udelas
ochranu prilis jednoduchou, pak ti to Cinani cracknou a vystavi to
pak na vsech svych strankach k volnemu stazeni. To se mi stalo s
Lokalizatorem 4 (pro ty, kteri by si to chteli stahnout, je to v
cinstine :).
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
XML: childNodes
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 11.7.2001 08:57:41
> Doteraz som pouzival pre pracu s XML dokumentami podla roznej literatury o
> XML (z roku 2000, teda asi uz trocha prestarlej :-) objekt
> "Microsoft.XMLDOM". Malo by sa spravne pouzivat objekt
> "Msxml2.DOMDocument"?, alebo je tu este nieco ine?
>
> Pavol Stolc
> pstolc(zv)sc.sknet.sk
Jenom male upozorneni:
Pro nasi aplikaci na www.ebyznys(tec)cz pouzivame Microsoft.XMLDOM.
Vyjimecne importujeme XML dokumenty az nekolik desitek MB velke.
Tam jsme ovsem narazili - pro tyto ucely to neni vhodne, musime dokument predem nejak rozdelit na mensi (nastesti je to mozne).
Uvazujeme o pouziti SAX (bohuzel, nemam po ruce odkaz), ale neni zatim cas.
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, 692 931, (0601 203084]
=========================================MessageDlg ... frm
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 11.7.2001 09:19:58
> From: "Valenta Patrik" <valentapat(zv)volny(tec)cz>
> > nevite nekdo jestli nekde je a jak se jmenuje dfm soubor od MessageDlg ?
> > slo by mi o prepsani tlacitek Yes No na Ano, Ne
>
> MessageDlg se vytvari programove. Asi lepsi reseni je pouzit API funkci
> MessageBox nebo jeste lepe TApplication.MessageBox. Tyto dialogy jsou totiz
> lokalizovane dle Windows.
>
> Petr Vones, amatersky programator
Souhlasim s Petrem, ale MessageBox ma i sve nevyhody:
Nema bitmapky na knoflikach a neumi "YesToAll", "NoToAll", ...
Resenim muze byt taky treba nasledujici procedurka:
(Aby nam Zbysek Hlinka opravnene nevynadal, meli bychom jeste retezcove konstanty prevest na resourcestring.)
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, 692 931, (0601 203084]
=========================================
function MsgDlg(AText, ACaption: String;
DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TModalResult;
var
B:TButton; i:Integer;
begin
with CreateMessageDialog(AText,DlgType,Buttons) do
try
Caption:=ACaption;
for i:=0 to ControlCount-1 do begin
try
B:=Controls[i] as TButton;
except
continue;
end;
case B.ModalResult of
mrCancel : B.Caption:='&Storno';
mrAbort : B.Caption:='&P�eru#it';
mrRetry : B.Caption:='&Znovu';
mrIgnore : B.Caption:='&Ignorovat';
mrYes : B.Caption:='&Ano';
mrNo : B.Caption:='&Ne';
mrAll : B.Caption:='&V#echno';
mrYesToAll : B.Caption:='An&o v#em';
mrNoToAll : B.Caption:='N&e v#em';
end;
end;
Result:=ShowModal;
finally
Free;
end
end;Ib_objects chyba pri zobrazovani TIB_QUERY pri rev
[*] Slavomir Hutyra <svafko(zv)pobox.sk> - 11.7.2001 09:23:18
Pouzivam D5 enterprise, IB6 , Ib_objects
Chcem prostrednictvom prav uzivatelov (grant/revoke) riesit pristup k
tabulkam (IUD). Ak nastavim ze JOZO nemoze modifikovat tabulku PSC:
revoke Update ON PSC FROM JOZO
v TIB_GRID pri zobrazovani PSC(TIB_QUERY) nastane chybova hlaska:
ISC ERROR CODE:335544352
NO PERMISSION FOR UPDATE/WRITE ACCESS TO TABLE PSC
pritom nepouzijem Insert ani Update iba zobrazim formular s gridom PSC
tato chyba nastava iba ak je v TIB_QUERY zadefinovany vlastny EditSQL
Uvedena chyba sposobuje ze ak uzivatel nema prava na Update nemoze ani
prezerat data.(v QSL monitore sa objavuje :
---------------------------------
SELECT ID_PSC
, NAZOV_MESTA
, PSC
FROM PSC
ORDER BY PSC.NAZOV_MESTA ASC
PLAN SORT ((PSC NATURAL))
FIELDS = [ Version 1 SQLd 3 SQLn 3
PSC.ID_PSC = <NIL>
PSC.NAZOV_MESTA = <NIL>
PSC.PSC = <NIL> ]
SECONDS = 0,020
----*/
/*---
EXECUTE STATEMENT
TR_HANDLE = 15540656
STMT_HANDLE = 15540492
PARAMS = [ ]
----*/
/*---
PREPARE STATEMENT
TR_HANDLE = 15540656
STMT_HANDLE = 15548796
UPDATE PSC SET
NAZOV_MESTA = ? /* NAZOV_MESTA */ ,
PSC = ? /* PSC */
WHERE
ID_PSC= ? /* ID_PSC */
FIELDS = [ Version 1 SQLd 3 SQLn 0 ]
ERRCODE = 335544352
---------------------------
Diky za radu
Svafko
svafko(zv)pobox.sk
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Ib_objects chyba pri zobrazovani TIB_QUERY pri rev
[*] Ing. Jarom�r Sola� <solar(zv)magion(tec)cz> - 11.7.2001 09:54:55
Nepracuji s IBObjects, ale rekl bych, ze kdyz tam nadefinujes to
aktualizacni SQL, tak on vytvori objekt s timto prikazem a provede jeho
prepare. A to je ta chyba, protoze IB nepovoli ani prepare. Zkus vyhodit ty
aktualizacni dotazy, popr. modifikuj tak, aby tam nebyla ani zminka o
"blokovanem" sloupci.
S pozdravem
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
Magion system a.s. (http://www.magion(tec)cz)
tel./fax :0657/614 289
> Chcem prostrednictvom prav uzivatelov (grant/revoke) riesit pristup k
> tabulkam (IUD).
>
> Ak nastavim ze JOZO nemoze modifikovat tabulku PSC:
>
> revoke Update ON PSC FROM JOZO
>
> v TIB_GRID pri zobrazovani PSC(TIB_QUERY) nastane chybova hlaska:
>
> ISC ERROR CODE:335544352
> NO PERMISSION FOR UPDATE/WRITE ACCESS TO TABLE PSC
>
> pritom nepouzijem Insert ani Update iba zobrazim formular s gridom PSC
Ib_objects chyba pri zobrazovani TIB_QUERY pri rev
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 11.7.2001 10:30:46
----- Original Message -----
From: Slavomir Hutyra <svafko(zv)pobox.sk>
Sent: Wednesday, July 11, 2001 9:23 AM
> revoke Update ON PSC FROM JOZO
> v TIB_GRID pri zobrazovani PSC(TIB_QUERY) nastane chybova hlaska:
> ISC ERROR CODE:335544352
> NO PERMISSION FOR UPDATE/WRITE ACCESS TO TABLE PSC
Ahoj,
nepouzivam IB_Objects, ale podobne sa chova aj IBExpress. Skus pouzit
nasledovnu konstrukciu (pisem z hlavy):
try
qryPSC.Open; // pokusi sa otvorit query
except
on E: Exception do // tu dosad spravny typ pre IB_Objects
if (E.Error=335544352) then // nedostatocne prava
begin
qryPSC.UpdateSQL.Clear; // vymazat SQL pre update
qryPSC.Open; // pokusit sa opat otvorit
end
else raise;
end;
Pavol Stolc
pstolc(zv)sc.sknet.sk
Pouzivam D5 enterprise, IB6 , Ib_objects
Chcem prostrednictvom prav uzivatelov (grant/revoke) riesit pristup k
tabulkam (IUD). Ak nastavim ze JOZO nemoze modifikovat tabulku PSC:
pritom nepouzijem Insert ani Update iba zobrazim formular s gridom PSC
tato chyba nastava iba ak je v TIB_QUERY zadefinovany vlastny EditSQL
Uvedena chyba sposobuje ze ak uzivatel nema prava na Update nemoze ani
prezerat data.(v QSL monitore sa objavuje :
---------------------------------
SELECT ID_PSC
, NAZOV_MESTA
, PSC
FROM PSC
ORDER BY PSC.NAZOV_MESTA ASC
PLAN SORT ((PSC NATURAL))
FIELDS = [ Version 1 SQLd 3 SQLn 3
PSC.ID_PSC = <NIL>
PSC.NAZOV_MESTA = <NIL>
PSC.PSC = <NIL> ]
SECONDS = 0,020
----*/
/*---
EXECUTE STATEMENT
TR_HANDLE = 15540656
STMT_HANDLE = 15540492
PARAMS = [ ]
----*/
/*---
PREPARE STATEMENT
TR_HANDLE = 15540656
STMT_HANDLE = 15548796
UPDATE PSC SET
NAZOV_MESTA = ? /* NAZOV_MESTA */ ,
PSC = ? /* PSC */
WHERE
ID_PSC= ? /* ID_PSC */
FIELDS = [ Version 1 SQLd 3 SQLn 0 ]
ERRCODE = 335544352
---------------------------
Diky za radu
Svafko
svafko(zv)pobox.sk
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Spatne strankovani v QuickReportu
[*] Ing. Vladim�r R��i�ka���#��rF#v("#�� - 11.7.2001 10:51:51
Ahoj fseci,
nam QuickReport a na nem jsou polozene:
TitleBand
DetailBand
SummaryBand
ChildBand1
ChildBand2 (obsahuje QRMemo)
ChildBand3
PageFooterBand
A ted problem: Kdyz mam v tabulce, ze ktere tisknu, maximalne 2 radky (vse
se vleze na jednu stranku), vytiskne se sestava spravne.
Kdyz ale mam radku vic, rozhodi se mi sestava nasledovne:
1. strana - Title + Detaily + summary
2. strana - nic
3. strana - ChildBand2 (obsahuje QRMemo)
4. strana - ChildBand3
Ma nekdo nejaky lek ? Co delam spatne ?
jedu na W98, D4Profi,QR 3.0.3
Ing. Vladimir Ruzicka
www.digitus(tec)cz - Biometricke systemy
Kylix Help update
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.7.2001 11:04:14
Haj hou!
Server Developer
{HYPERLINK "http://www.borland.com/techpubs/kylix/v1/updates/sdev.html"}http://www.borland.com/techpubs/kylix/v1/updates/sdev.html
Desktop Developer
{HYPERLINK "http://www.borland.com/techpubs/kylix/v1/updates/ddev.html"}http://www.borland.com/techpubs/kylix/v1/updates/ddev.html
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Ib_objects chyba pri zobrazovani TIB_QUERY pri rev
[*] Slavomir Hutyra <svafko(zv)pobox.sk> - 11.7.2001 11:32:41
Ano je pravda ze tento problem vznika pri PREPARE(OPEN) ale ak zakazen
prava na INSERT alebo DELETE tento problem nevznika.
To query je vskutocnosti omnoho zlozitejsie ako tabulka PSC, vskutocnosti
je to tabulka ku ktorej su priJOINovane dalsich sest. Vtomto pripade musim
mat zadefinovany EDITSQL. Da sa query rozdelit na dve jedno na prezeranie
a jedno pre zapis ale preco je tam potom EDITSQL.
Nakoniec si spravim vlastnu tabulku uzivatelov a vykaslem sa na cele
REVOKE/GRANT.
Da sa nejako zablokovat pristup do databazy ibterbase nie cez uzivatelov,
nieco ako ze pri otvarani databazy zadam heslo a nedostane sa tam nikto
ani SYSDBA ak toto heslo nezada.> Nepracuji s IBObjects, ale rekl bych, ze kdyz tam nadefinujes to
> aktualizacni SQL, tak on vytvori objekt s timto prikazem a provede jeho
> prepare. A to je ta chyba, protoze IB nepovoli ani prepare. Zkus vyhodit
ty
> aktualizacni dotazy, popr. modifikuj tak, aby tam nebyla ani zminka o
> "blokovanem" sloupci.
>
> S pozdravem
>
> Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
> Magion system a.s. (http://www.magion(tec)cz)
> tel./fax :0657/614 289
>
> > Chcem prostrednictvom prav uzivatelov (grant/revoke) riesit pristup k
> > tabulkam (IUD).
> >
> >
> > Ak nastavim ze JOZO nemoze modifikovat tabulku PSC:
> >
> > revoke Update ON PSC FROM JOZO
> >
> > v TIB_GRID pri zobrazovani PSC(TIB_QUERY) nastane chybova hlaska:
> >
> > ISC ERROR CODE:335544352
> > NO PERMISSION FOR UPDATE/WRITE ACCESS TO TABLE PSC
> >
> > pritom nepouzijem Insert ani Update iba zobrazim formular s gridom PSC
>
>
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
XML: childNodes
[*] Erik Salaj <winsoft(zv)stonline.sk> - 11.7.2001 11:40:58
> Doteraz som pouzival pre pracu s XML dokumentami podla roznej literatury o
> XML (z roku 2000, teda asi uz trocha prestarlej :-) objekt
> "Microsoft.XMLDOM". Malo by sa spravne pouzivat objekt
> "Msxml2.DOMDocument"?, alebo je tu este nieco ine?
Ja pouzivam DOMDocument objekt (IXMLDOMDocument2 interface).
Objekt XMLDOM vobec nemam v typovej kniznici.
Erik
Ib_objects chyba pri zobrazovani TIB_QUERY pri rev
[*] Slavomir Hutyra <svafko(zv)pobox.sk> - 11.7.2001 11:51:49
Diky cez to Try... to zatial funguje. Svafko. :-)> ----- Original Message -----
> From: Slavomir Hutyra <svafko(zv)pobox.sk>
> Sent: Wednesday, July 11, 2001 9:23 AM
> > revoke Update ON PSC FROM JOZO
> > v TIB_GRID pri zobrazovani PSC(TIB_QUERY) nastane chybova hlaska:
> > ISC ERROR CODE:335544352
> > NO PERMISSION FOR UPDATE/WRITE ACCESS TO TABLE PSC
>
> Ahoj,
> nepouzivam IB_Objects, ale podobne sa chova aj IBExpress. Skus pouzit
> nasledovnu konstrukciu (pisem z hlavy):
>
> try
> qryPSC.Open; // pokusi sa otvorit query
> except
> on E: Exception do // tu dosad spravny typ pre IB_Objects
> if (E.Error=335544352) then // nedostatocne prava
> begin
> qryPSC.UpdateSQL.Clear; // vymazat SQL pre update
> qryPSC.Open; // pokusit sa opat otvorit
> end
> else raise;
> end;
>
> Pavol Stolc
> pstolc(zv)sc.sknet.sk
>
>
>
> Pouzivam D5 enterprise, IB6 , Ib_objects
>
>
> Chcem prostrednictvom prav uzivatelov (grant/revoke) riesit pristup k
> tabulkam (IUD).
>
>
> Ak nastavim ze JOZO nemoze modifikovat tabulku PSC:
>
> pritom nepouzijem Insert ani Update iba zobrazim formular s gridom PSC
>
> tato chyba nastava iba ak je v TIB_QUERY zadefinovany vlastny EditSQL
>
> Uvedena chyba sposobuje ze ak uzivatel nema prava na Update nemoze ani
> prezerat data.
>
>
> (v QSL monitore sa objavuje :
> ---------------------------------
> SELECT ID_PSC
> , NAZOV_MESTA
> , PSC
> FROM PSC
> ORDER BY PSC.NAZOV_MESTA ASC
>
> PLAN SORT ((PSC NATURAL))
>
> FIELDS = [ Version 1 SQLd 3 SQLn 3
> PSC.ID_PSC = <NIL>
> PSC.NAZOV_MESTA = <NIL>
> PSC.PSC = <NIL> ]
>
> SECONDS = 0,020
> ----*/
> /*---
> EXECUTE STATEMENT
> TR_HANDLE = 15540656
> STMT_HANDLE = 15540492
> PARAMS = [ ]
> ----*/
> /*---
> PREPARE STATEMENT
> TR_HANDLE = 15540656
> STMT_HANDLE = 15548796
>
> UPDATE PSC SET
> NAZOV_MESTA = ? /* NAZOV_MESTA */ ,
> PSC = ? /* PSC */
> WHERE
> ID_PSC= ? /* ID_PSC */
>
> FIELDS = [ Version 1 SQLd 3 SQLn 0 ]
>
> ERRCODE = 335544352
> ---------------------------
>
>
>
> Diky za radu
>
> Svafko
>
>
> svafko(zv)pobox.sk
>
> ____________________________________
> P. S. V. P. U.
> http://www.pobox.sk/
>
>
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Jackie X <jackie.x(zv)seznam(tec)cz> - 11.7.2001 11:52:39
> > Dle meho nazoru nema cenu delat jakoukoli ochranu aplikaci pred nelegalnim pouzivani. Kazda je totiz
> > prolomitelna (viz Windows XP).
>
> Takze ani nezamykas byt, kdyz kazde dvere se daji otevrit?
Tato anologie mi nepripada prilis presna. Pokud zlodej narazi na dobre zabezpeceni riskuje, ze ho pri loupezi nekdo chytne, jelikoz ho to stoji cas. Jestlize pirat stahne crack na muj program, neriskuje nic. Proto je softwarove piratstvi tak rozsirene. To jestli clovek za muj program zaplati nebo ho ukradne zavisi pouze na jeho moralce. A jeste neco - myslite ze by dnes byl OS Windows nejrozsirenejsim systemem, kdyby byl od zacatku dokonale zabezpecen proti piratum?
Jackie X
______________________________________________________________________
Milovnikum rychlych aut a krasnych zen vstup prikazan!
http://0g(tec)cz/0108/Formule1
OT FoxBase, Borland Pascal 7
[*] Zaplik <zaplik(zv)volny(tec)cz> - 11.7.2001 12:09:31
Pratele nemate nekdo nahodou legalne FoxBase 2.0 nebo Borland Pascal 7 a
chcete se jich zbavit? Mel bych zajem.
Zaplik
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.7.2001 12:30:26
Proc to posilas 4x ???
Puvodni zprava, kterou napsal Jackie X dne 11 Jul 2001,:
> > Takze ani nezamykas byt, kdyz kazde dvere se daji otevrit?
>
> Tato anologie mi nepripada prilis presna. Pokud zlodej narazi na dobre zabezpeceni riskuje, ze ho
> pri loupezi nekdo chytne, jelikoz ho to stoji cas. Jestlize pirat stahne crack na muj program,
Pokud cracker narazi na dobre zabezpeceni software, riskuje, ze tim
stravi daleko vic casu, nez by chtel. V kazdem pripade, pokud nedas
zadnou ochranu, riskujes to, ze kdejake ucho tvuj soft bude pouzivat
uplne v pohode. Stejne jako kdyz vyhodis dvere, budou ti domu chodit
spat bezdomovci.
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
============================================================OT FoxBase, Borland Pascal 7
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.7.2001 13:15:20
I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne je
nebudes mit legalne, protoze ono puvodne koupene pravo onen softwar
pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
> Pratele nemate nekdo nahodou legalne FoxBase 2.0 nebo Borland Pascal 7
> a chcete se jich zbavit? Mel bych zajem.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Helper
[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 11.7.2001 13:22:12
Svymi jednotlivymi dotazy, ktere jste zde mohli spatrit, jsem nakonec vytvoril program Helper. Ale narazil sem na problem, ze na nekterych konfiguracich to hlasi EWin32Error. Nevim jestli je tohle skryta reklama, ale link ke stazeni je http://gw.osec.lipnet(tec)cz/~helper/helper.rar (1,2 Mb).
Pokud by se nekomu chtelo to stahnout, otestovat a poslat na soukromy mail fredycrueger(zv)volny(tec)cz byl bych rad.
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 4
______________________________________________________________________
Milovnikum rychlych aut a krasnych zen vstup prikazan!
http://0g(tec)cz/0108/Formule1
OT FoxBase, Borland Pascal 7
[*] Zaplik <zaplik(zv)volny(tec)cz> - 11.7.2001 14:25:26
> I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne je
> nebudes mit legalne, protoze ono puvodne koupene pravo onen softwar
> pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
Tomu celkem nerozumim. Chces tim rict, ze pokud ja si koupim takovy produkt
a prestanu v tomto oboru podnikat ,chtel bych se tohoto sw zbavit a prodat
jej, tak je to vsechno na pytel, protoze kupujici by se na nej mohla tak
akorat divat, a prava na uzivani budu mit porat ja?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
OT FoxBase, Borland Pascal 7
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.7.2001 14:43:53
> > I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne
> > je nebudes mit legalne, protoze ono puvodne koupene pravo onen
> > softwar pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
>
> Tomu celkem nerozumim. Chces tim rict, ze pokud ja si koupim takovy
> produkt a prestanu v tomto oboru podnikat ,chtel bych se tohoto sw
> zbavit a prodat jej, tak je to vsechno na pytel, protoze kupujici by
> se na nej mohla tak akorat divat, a prava na uzivani budu mit porat
> ja?
Ano, to presne chci rict. Uvedom si, ze ty kdyz si koupis program, tak si
NEKOUPIS PROGRAM, ale ZA POPLATEK ZISKAS OPRAVNENI ten
program pouzivat. (u freewaru to opravneni ziskas bezuplatne, tedy
zadarmo...) A opravneni na cokoliv tezko muzes prodat nekomu jinemu.
Opravneni je preci nehmotna vec, takze jej nemuzes prodavat jako cetku
na blesaku.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
MessageDlg ... frm
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.7.2001 14:55:01
On 11 Jul 2001, at 9:19, Jan �ebel�k wrote:
> > From: "Valenta Patrik" <valentapat(zv)volny(tec)cz>
> > > nevite nekdo jestli nekde je a jak se jmenuje dfm soubor od
> > > MessageDlg ? slo by mi o prepsani tlacitek Yes No na Ano, Ne
> >
> Souhlasim s Petrem, ale MessageBox ma i sve nevyhody:
> Nema bitmapky na knoflikach a neumi "YesToAll", "NoToAll", ...
> Resenim muze byt taky treba nasledujici procedurka:
> (Aby nam Zbysek Hlinka opravnene nevynadal, meli bychom jeste
> retezcove konstanty prevest na resourcestring.)
Mno, ono staci program spravne lokalizovat, a neni treba vymyslet
ruzne pomocne procedurky a obezlicky. Staci nahlednout do
vnitrku MessageDlg, kde je deklarace pouzitych textu z tlacitek
takovato:
ButtonCaptions: array[TMsgDlgBtn] of Pointer = (
(zv)SMsgDlgYes, (zv)SMsgDlgNo, (zv)SMsgDlgOK,
(zv)SMsgDlgCancel, (zv)SMsgDlgAbort,
(zv)SMsgDlgRetry, (zv)SMsgDlgIgnore, (zv)SMsgDlgAll,
(zv)SMsgDlgNoToAll, (zv)SMsgDlgYesToAll,
(zv)SMsgDlgHelp);
Tyto texty jsou uz deklarovane jako resourcestring, takze neni
zadny problem. Tohle umi zlokalizovat dokonce i ITE z D5/6
Enterprise.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT FoxBase, Borland Pascal 7
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.7.2001 14:59:35
Jo, ale tim si tomu nekomu TY ten program neprodal, ale Novell tom
nekmu udelil pravo ten program pouzivat s tim, ze vam to pravo sebral.
protoze jen a jen Novell ma pravo udelovat licence na jejich produkt.. ne
ty. ;-)
L.> Nekdy v roce 1995 jsme chteli prodat nevyuzitou licenci na NetWare
> 4.01. Aby to bylo legalni optali jsme se Novelu CR, co je treba udelat
> pro prevod licence. Stacila jim kopie faktury (te puvodni a te nove) a
> seriove cislo. Pak jeste chteli vyplnit formular o prevodu. Tim to
> bylo OK.
> >I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne
> >je nebudes mit legalne, protoze ono puvodne koupene pravo onen
> >softwar pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
MessageDlg ... frm
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 11.7.2001 15:42:05
Nabizena funkce ma sve kouzlo zejmena pro moznost prizpusobeni vzhledu
formulare a moznost nastaveni poctu tlacitek a default tlacitka. Neexistuje
oproti CreateMessageDialog funkce, ktera by pracovala s BitBtn (pro bitmapy
na tlacitkach)?
Petr Klinger
> Souhlasim s Petrem, ale MessageBox ma i sve nevyhody:
> Nema bitmapky na knoflikach a neumi "YesToAll", "NoToAll", ...
> Resenim muze byt taky treba nasledujici procedurka:
> function MsgDlg(AText, ACaption: String;
OT FoxBase, Borland Pascal 7
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 11.7.2001 14:44:25
Nekdy v roce 1995 jsme chteli prodat nevyuzitou licenci na NetWare 4.01. Aby
to bylo legalni optali jsme se Novelu CR, co je treba udelat pro prevod
licence. Stacila jim kopie faktury (te puvodni a te nove) a seriove cislo.
Pak jeste chteli vyplnit formular o prevodu. Tim to bylo OK.
Marian Jonas
Lukas Gebauer napsal:
>I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne je
>nebudes mit legalne, protoze ono puvodne koupene pravo onen softwar
>pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
Zaplik napsal:
>> Pratele nemate nekdo nahodou legalne FoxBase 2.0 nebo
>> Borland Pascal 7
>> a chcete se jich zbavit? Mel bych zajem.OT FoxBase, Borland Pascal 7
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.7.2001 16:16:36
Puvodni zprava, kterou napsal Gebauer Lukas dne 11 Jul 2001,:
> I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne je
> nebudes mit legalne, protoze ono puvodne koupene pravo onen softwar
> pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
Jak jsi na to prisel? Majitel autorskych prav si v licencni smlouve
vetsinou stanovuje podminky, za jakych lze (nebo pokud nelze) licenci
software prevest na jinou osobu. Vetsinou u beznych produktu lze
s tim, ze predas vsechny kopie a souvisejici materialy. Jsou
i licence, ktere to neumoznuji, ale nelze striktne rici, ze to nelze,
zalezi na majiteli autorskych prav.
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
============================================================OT FoxBase, Borland Pascal 7
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.7.2001 16:17:37
Puvodni zprava, kterou napsal Zaplik dne 11 Jul 2001,:
> Tomu celkem nerozumim. Chces tim rict, ze pokud ja si koupim takovy produkt
> a prestanu v tomto oboru podnikat ,chtel bych se tohoto sw zbavit a prodat
> jej, tak je to vsechno na pytel, protoze kupujici by se na nej mohla tak
> akorat divat, a prava na uzivani budu mit porat ja?
Pokud ti licencni smlouva s majitelem autorskych prav umozni licenci
prevest na jinou osobu, pak to lze, pokud ti to neumozni, pak to nelze.
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
============================================================OT FoxBase, Borland Pascal 7
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.7.2001 16:19:02
Puvodni zprava, kterou napsal Jon�# Mari�n dne 11 Jul 2001,:
> Ano, spravne. Ja jsem tim jenom myslel, ze pro prevod prav na ten
> TurboPascal a FoxBasi, by bylo dobre optat se na stanovisko Borlandu a
> Microsoftu.
Neni potreba ptat se na stanoviska, protoze ta jsou definovana
v licencnich smlouvach. Takze precti licencni smlouvu a tam bude
jiste napsano, jak lze s pravem k uziti software nakladat, zda
ho lze prevest nebo ne, a za jakych podminek.
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
============================================================OT FoxBase, Borland Pascal 7
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 11.7.2001 15:48:04
Ano, spravne. Ja jsem tim jenom myslel, ze pro prevod prav na ten
TurboPascal a FoxBasi, by bylo dobre optat se na stanovisko Borlandu a
Microsoftu.
Marian Jonas
Gebauer Lukas napsal:
>Jo, ale tim si tomu nekomu TY ten program neprodal, ale Novell tom
>nekmu udelil pravo ten program pouzivat s tim, ze vam to pravo sebral.
>protoze jen a jen Novell ma pravo udelovat licence na jejich
>produkt.. ne ty. ;-)konverze latin2
[*] <vaclav.sykora(zv)accidis(tec)cz> - 11.7.2001 16:53:52
jakym zpusobem se da v delphi konvertovat soubor v kodovani latin2 do
kodovani pro windows 1250? ke cteni dat ze souboru pouzivam proc BlockRead a
data nasledne ukladam jako blob do DB.
dik, v. sykora
konverze latin2
[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 11.7.2001 17:06:03
Staci zamenit znaky
$ISO = "?lR><aCA";
$WIN = "�#�#�#";
O problemetice kodovani si muzete pocist na www.cestina(tec)cz. Jsou tak ke
stazeni i kodove tabulky.
Pazout
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of vaclav.sykora(zv)accidis(tec)cz
> Sent: 11. eervence 2001 16:54
> To: delphi-l(zv)clexpert(tec)cz
> Subject: konverze latin2
>
>
> jakym zpusobem se da v delphi konvertovat soubor v kodovani latin2 do
> kodovani pro windows 1250? ke cteni dat ze souboru pouzivam proc
> BlockRead a
> data nasledne ukladam jako blob do DB.
>
> dik, v. sykora
simulace kliknuti mysi
[*] JIM Design <jim.design(zv)iol(tec)cz> - 11.7.2001 17:33:41
Ahoj,
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,
Point.x, Point.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,
Point.x, Point.y, 0, 0);
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of BLAU
Sent: Monday, July 09, 2001 12:03 PM
Ahojky
jak nasimulovat kliknuti mysi na button?
potrebuji zavolat proceduru, ktera je povesena na udalosti tlacitka
onMouseDown, resp. ji zavolat a predat do ni parametry
procedure TForm1.I20MouseDown(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
bla bla bla ...
end;
takto ji volam:
I20_BMouseDown(Mouse, mbLeft, TShiftState(ssLeft),x,y);
problem mam se tretim parametrem - neprisel jsem na to v jakem tvaru jej
predavat aby to proslo kompilatorem. V borlandi napovede jsem to hledal do 2
do rana ale vysledek je 0 na zadny funkcni priklad jsem take nenarazil.
Poradte, pokud na to jdu spatne poradte take klidne jak jinak to udelat.
S
pozdravem Petr Blau software developer
speaker a mazani souboru
[*] JIM Design <jim.design(zv)iol(tec)cz> - 11.7.2001 17:33:44
ahoj,
ahoj,
uses shellapi;
var opstruct : _SHFILEOPSTRUCT ;
begin
opstruct.Wnd:=0;
opstruct.wFunc:=FO_DELETE;
opstruct.pFrom:=PChar(path2+'*.*');
opstruct.pTo:=nil;
opstruct.fFlags:=FOF_NOCONFIRMATION;
SHFILEOperation(opstruct);
end
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Roman
Sent: Thursday, July 05, 2001 9:31 AM
Jde v delphi pouzivat PC speaker? A druhy dotaz jak smazat soubory uplne (ne
pouze do kose) v delphi?
array in memory
[*] Peter Surovy <psurovy(zv)uevora.pt> - 11.7.2001 16:52:04
Chcel by som sa spytat ako funguju jednotlive recordy pola v pamati ?
Kedy sa uvolnuju a kedy nie.
Problem : Moj program pracuje s polom ktoreho prvky su typu record.
Ten ma cca 20 poloziek a pole okolo 5000 riadkov(recordov)
Pole sa obmiena(nie doplna!) v cykle ktory nadobuda hodnoty od 40 do 100.
Ked tento cyklus spadne t.j. ze nedojde do konca a spustim ho nanovo bez
restartu programu
par razy sa mi stalo ze windows dosli k poznaniu ze su dangerously low in
resources.
Trosku ma to trapi lebo je to na : PIII 1Mhz, 256 MB RAM a 32 MB graphic
win98me
a user-ovia asi budu na tom horsie.
co si mam o tom mysliet alebo to mam ignorovat - nedeje sa to vzdy.
Okrem toho pri kazdom prechode cyklu prekreslujem image metodou repaint
nemoze to mat suvis?
Dakujem.
S pozdravom
----------------------------------
Ing. Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
Delphi speed - pozri
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.2001 18:08:02
> > Robim aplikaciu ktora sa toci v slucke tak 160 000 krat.
> > Posielam data rovno na HW. Proste nic moc. Problem je v tom, ze
Ahoj,
z aplikace rozhodne neposilas data primo na HW, to totiz neni dost dobre
mozne. Patrne to posilas pres nejaky driver, takze problem bude spise v tom.
Petr Vones, amatersky programator
OT FoxBase, Borland Pascal 7
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.7.2001 18:28:10
On 11 Jul 2001, at 13:15, Gebauer Lukas wrote:
> I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne je
> nebudes mit legalne, protoze ono puvodne koupene pravo onen softwar
> pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
Se souhlasem vlastnika autorskych prav to mozne je.
> > Pratele nemate nekdo nahodou legalne FoxBase 2.0 nebo Borland Pascal
> > 7 a chcete se jich zbavit? Mel bych zajem.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nastroj pro UML modelovani
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 11.7.2001 17:44:37
Hledam nejaky sikovny a cenove dostupny nastroj pro UML modelovani. Predem
dekuji za odpovedi typu RationalRose nebo VisualModeller.
Marian Jonas
Nastroj pro UML modelovani
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.7.2001 19:27:00
Ahoj,
UML umi ted v posledni verzi i Visio (tedy Visio 2002), ale to uz
radeji toho Roseho nebo neco naprogramovat vlastniho...
Slavek
> Hledam nejaky sikovny a cenove dostupny nastroj pro UML modelovani. Predem
> dekuji za odpovedi typu RationalRose nebo VisualModeller.
>
> Marian Jonas
>
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
konverze latin2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.2001 20:35:26
From: <vaclav.sykora(zv)accidis(tec)cz>
> jakym zpusobem se da v delphi konvertovat soubor v kodovani latin2 do
> kodovani pro windows 1250? ke cteni dat ze souboru pouzivam proc BlockRead a
> data nasledne ukladam jako blob do DB.
Ahoj,
pokud se jedna o Windows nastavene jako ceske tak lze pouzit API funkci
OemToAnsi
Petr Vones, amatersky programator
konverze latin2
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 11.7.2001 21:10:03
----- Original Message -----
> jakym zpusobem se da v delphi konvertovat soubor v kodovani latin2 do
> kodovani pro windows 1250? ke cteni dat ze souboru pouzivam proc BlockRead
a
> data nasledne ukladam jako blob do DB.
>
Mam udelanou unit, jenz to umi temer odkudkoliv kamkoliv.
Rekni - poslu
Zdenek
QuickRep
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 11.7.2001 21:37:41
Ahoj,
mam prosbu. Nevite nekdo, jestli jde a jak vytisknout QRLabel pod urcitym
uhlem?
(Mozna jsem jen slepy, ale nenasel jsem to.)
predem diky
Mirek Drancak
OT: OCHRANA SW - pouziti sifrovaneho klice
[*] David Majda <david.majda(zv)seznam(tec)cz> - 11.7.2001 21:53:40
Doporucuji knihu od Pavola Cervene "Cracking a jak se proti nemu branit"
(Computer Press, 2001, ISBN 80-7226-382-X, cca 250 Kc). Je tam toho dost
podrobne popsano i s priklady v ASM. Taky na Builder(tec)cz vychazi serial
Cracker proof, mohl by vam mozna pomoct.
Ing. Petr �vejda wrote:
> Mam problem (a asi nebudu sam), jak dobre chranit program. Dokoncuji sw,
> ktery bych chtel sirit v nekolika rovinach:
>
> 1) jako shareware bez jakekoliv ochrany.
> 2) jako ostrou verzi s sifrovanym klicem
>
> Bod 1 a 2 je tentyz program, pouze se bude lisit pridanym sifrovanym
klicem.
>
> Muj navrh je takovy: Kazdy by si mohl stahnout sharewarovou verzi
programu
> na webu. Kdo bude chtit program zakoupit, tak po zaplaceni dostane klic
> (napr. soubor licence.key), kde by krome ruznych odemykacich udaju bylo
> uvedeno jmeno a firma zakaznika. Licencni data v tomto souboru by byla
> sifrovana (XORem nebo necim komplikovanejsim - o to asi ted nejde) a v
> rozsifrovane podobe by slouzila ke zpristupneni ne-sharewarovych funkci a
> hlavne by se na formulari (nebo v About...) zobrazovalo jmeno zakaznika.
> Navic by klic byl vybaveni kontrolnim souctem (hashovaci tabulka nebo
neco
> jednodussiho).
>
> Vychazim z premisy, ze po svete se sice mohou toulat nelegalni plne verze
> (tomu asi nelze zabranit), ale tito nelegalni uzivatele budou
vlastnit klic,
> ktery bude obsahovat CIZI jmeno. Budou tedy neustale vystaveni mucivemu
> pocitu, ze kdokoliv uvidi, jaky je ten dotycny kopirak darebak. (ted jsem
> tak naivni, az to prasti...).
>
> Bez klice by se aplikace chovala jako shareware a pokud by se klic nekdo
> pokusil zmenit, tak rovnez.
>
> Ma nekdo nejaky napad nebo poznamku? Vite o necem spolehlivejsim?
Popripade
> mate inspiraci pro ostatni? Delam nekde nejakou fatalni chybu, kvuli
ktere
> bych mel na sifrovany klic zapomenout?
>
> PS: nemam jeste dost cinkacku abych si poridil napr. neco od TurboPower,
> takze musim vystacit pouze s napady a rychlymi programatorskymi prsty.
> :-))))))
>
>
> Petr
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
>
>
>
>
--
--------------------------------------------------
E-mail: david.majda(zv)seznam(tec)cz
WWW: http://dmajda.hyperlink(tec)cz
Live long and prosper!
--------------------------------------------------
childNodes
[*] David Majda <david.majda(zv)seznam(tec)cz> - 11.7.2001 21:53:23
> V zasade ale ide o to, ze ten XMLDOM nerobi to co slubuje
dokumentacia. Co s
> tym?
Jen bych dodal, ze XMLDOM je podle me velmi malo pouzitelny. Zkousel
jsem v nem delat nejake XSLT transformace, a ztroskotal na uplne
zakladnich vecech (ktere v jinem parseru sly dobre a byly podle
specifikaci).
Bohuzel ale nevim o nejakem jinem XML parseu funkcim pod ASP :-(
--
--------------------------------------------------
E-mail: david.majda(zv)seznam(tec)cz
WWW: http://dmajda.hyperlink(tec)cz
Live long and prosper!
--------------------------------------------------
MessageDlg ... frm
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.2001 22:06:55
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Mno, ono staci program spravne lokalizovat, a neni treba vymyslet
> ruzne pomocne procedurky a obezlicky. Staci nahlednout do
Ahoj,
jedna z obezlicek muze vypadat treba takhle:
uses
Consts;
type
TLocalizeResString = record
ResString: PResStringRec;
LocalizedText: string;
end;
const
CzResStrings: array[0..1] of TLocalizeResString = (
(ResString: (zv)SMsgDlgYes; LocalizedText: '&Ano'),
(ResString: (zv)SMsgDlgNo; LocalizedText: '&Ne')
);
procedure LocalizeResStrings(const Strings: array of TLocalizeResString);
var
I: Integer;
OldProtect, Dummy: DWORD;
begin
for I := Low(Strings) to High(Strings) do
with Strings[I] do
begin
Win32Check(VirtualProtect(ResString, SizeOf(TResStringRec),
PAGE_READWRITE, OldProtect));
try
ResString^.Identifier := Integer(PChar(LocalizedText));
finally
VirtualProtect(ResString, SizeOf(TResStringRec), OldProtect, Dummy);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('Message', mtInformation, [mbYes, mbNo], 0);
end;
initialization
LocalizeResStrings(CzResStrings);
end.
Petr Vones, amatersky programator
Active Server Objects
[*] Michal Hampl <DELPHI(zv)WSC.CZ> - 11.7.2001 22:16:14
Nazdar delphari,
zacinam s ActiveX objekty a uz jsem uplne zoufaly... (W2000 Prof CZ, Delphi
5 Ent)
Snazim se prevest 2 delphi objekty jako Active Server Object, ale nejak se
mi to porad nedari. Zkusim to popsat co nejlepe:
Mam 2 delphi objekty napriklad TDum a TRodina, ktere maji spoustu
vlastnosti. Jedna z vlastnosti objektu TDum je Rodina, ktere se priradi
objekt typu TRodina asi takto:
Dum1 := TDum.Create;
Rodina1 := TRodina.Create;
Dum1.Rodina := Rodina1;
Sem zadny problem, ale:
Potreboval bych to same implementovat jako Active Server Objects a
predstavoval bych si to asi takto:
IARodina = interface(IDispatch)
property Jmeno: WideString read Get_Jmeno write Set_Jmeno;
...
end;
IADum = interface(IDispatch)
property Rodina: IARodina read Get_Rodina write Set_Rodina;
...
end;
+ vygenerovane DispInterface
Dale implementace Interfacu:
//------------------------------------------------------------
TARodina = class(TASPMTSObject, IARodina)
private
FRodina : TRodina; // DELPHI objekt TRodina
protected
function Get_Jmeno : WideString; safecall;
procedure Set_Jmeno(const Value: WideString); safecall;
public
procedure Initialize; override;
destructor Destroy; override;
property Rodina : TRodina read FRodina;
end;
procedure TARodina.Initialize;
begin inherited; FRodina := TRodina.Create; end;
procedure TARodina.Destroy;
begin FRodina.Free; inherited; end;
function TARodina.Get_Jmeno : WideString;
begin Result := FRodina.Jmeno; end;
procedure TARodina.Set_Jmeno(const Value: WideString);
begin FRodina.Jmeno := Value; end;
//------------------------------------------------------------
TADum = class(TASPMTSObject, IADum)
private
FDum : TDum; // DELPHI objekt TDum
FRodinaI: IARodina; // interface Rodina
protected
function Get_Rodina: IRodina; safecall;
procedure Set_Rodina(const Value: IRodina); safecall;
public
procedure Initialize; override;
destructor Destroy; override;
end;
procedure TADum.Initialize;
begin inherited; FDum := TDum.Create; end;
procedure TADum.Destroy;
begin FDum.Free; inherited; end;
function TARodina.Get_Rodina :IARodina;
begin Result := FRodinaI; end;
procedure TARodina.Set_Rodina(const Value: IARodina);
begin
FRodinaI := Value;
// !!!!!!! no a krome toho bych potreboval neco jako
FDum.Rodina := (Value as TARodina).Rodina;
// !!!!!!! ale zjistil jsem, ze tudy cesta asi nevede,
// protoze to potom na strankach hlasi ruzna katastrofalni
// selhani a podobne
end;
DOTAZ:
==========================
Lze nejak pretypovat Interface na tridu, ktera ho implementuje, podobne jako
to jde naopak (trida, ktera implementuje interface, na interface).
Pripadne kudy se mam vydat, kdyz potrebuju, aby mi fungovalo toto:
set Dum = Server.CreateObject("Lib.ADum")
set Rodina = Server.CreateObject("Lib.ARodina")
Rodina.Jmeno = "Novakovi"
set Dum.Rodina = Rodina
1) aby se Dum.Rodina.Jmeno = "Novakovi"
2) aby Delphi objekt TDum vytvoreny pri vytvareni ASP obj. ADum ziskal po
prirazeni ASP obj. ARodina odkaz na Delphi objekt TRodina vytvoreny pri
vytvareni ASP obj. ARodina
Pripadne kudy se mam vydat, aby mi to fungovalo, tak jak si predstavuju. Oba
objekty jsou ve skutecnosti hodne slozite a ja jsem si takhle chtel jen
zjednodusit praci, abych nemusel vsechny property a metody implementovat
primo do interface.
Diky za kazde nakopnuti
Michal Hampl (HAMPL(zv)WSC.CZ)
WinSoft Company spol. s r.o.ICS a pos�l�n� souboru p�es Http
[*] Lukasek <lukasek(zv)domazlice(tec)cz> - 11.7.2001 22:50:16
Pot�ebuji poslat na server soubor protokolem http. V podstat� nasimulovat
chov�n� html formul߰e:
<form action=neco.php method=post enctype="multipart/form-data">
<input type=text name=t1>
<input type=file name=f1>
<input type=submit>
</form>
Skript na serveru (neco.php) modifikovat nem��u.
Porad�te pros�m? Neexistuje n�kde demo zdroj pro takov� p��pad?
Nastroj pro UML modelovani
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.7.2001 05:48:58
Podivej se sem http://www.objectsbydesign.com/tools/umltools_byCompany.html
Je tam prehled modelovacich nastroju s popisem a cenou. Je tam i par
freeware nastroju.
Treba D.OM (Delphia object modeler) www.ii.atos-group.com/rhone-alpes/dom/english/index.html
je pro osobni pouziti zdarma a nevypada nejhur.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
11.7.2001 Jon�# Mari�n:
> Hledam nejaky sikovny a cenove dostupny nastroj pro UML modelovani. Predem
> dekuji za odpovedi typu RationalRose nebo VisualModeller.OT FoxBase, Borland Pascal 7
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 12.7.2001 07:32:37
> > I kdyby ti nekdo takhle prodal legane koupene tyto programy, stejne
> > je nebudes mit legalne, protoze ono puvodne koupene pravo onen
> > softwar pouzivat je dle nasich zakonu NEPRENOSNE! ;-)
>
> Se souhlasem vlastnika autorskych prav to mozne je.
PISEMNYM souhlasem. Alespon tak to rika zakon. ;-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library