Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
PARADOX - SAMBA
[*] Pavel M. <talema(zv)top(tec)cz> - 17.3.1999 15:08:47
Jenze me ta masina slouzi skutecne jen jako soubory server.
Takze je jen jedna - tim padem jedna licence NT neni zaz az tolik
a v pripade souboroveho serveru se o stabilite ci nestabilite
neda hovorit. NT-ka tam bezely cca 14 mesicu bez jedineho vypadku
totez u linuxu cca 8 mesicu.
No a co se tyka instalace, tak ta mi zabrala minimalne 3x tolik casu
co instalace NT.
Ja bych ty okna taky nejradsi vyhazel, ale pro cloveka, ktery nema
cas si hrat se systemem je to asi porad nejpohodlnejsi reseni.
Pavel
-----P�vodn� zpr�va-----
Od: Marek Soukup <marek(zv)comberg.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. b�ezna 1999 13:24
P�edm�t: Re: PARADOX - SAMBA
>Ahoj,
>
>jestlize si nenasel vyhodu, tak te musim upozornit alespon na jednu a podle
me
>ne tak uplne nezanedbatelnou:
>
>LINUX je zadarmo, coz se o NT rict neda a myslim, ze to je i stabilnejsi
>
>Marek Soukup
INSERT INTO TABLE
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 17.3.1999 15:16:45
Preji vsem pekneho dne,
zkousim insertovat data z formulare do tabulku, le nejak mi to
nejde:
mam v data modulu TQuery:
INSERT INTO OBJEDNAVKA (C_O, C_F, OD_VYD, DO_VYD, DAT_SEP, DRUH,
CENA, PROVIZE)
VALUES (:c_o, :c_f, :od_vyd, :do_vyd, :dat_sep, :druh, :cena, :provize)
Tabulka OBJEDNAVKA existuje. Po zadani a zkontrolovani dat (spravna cisla
apodobne) pouzvam nasledujici kod:
with dm_Data.ObjInsertQuery do
begin
Params.Items [0].AsInteger = random (3000);
Params.Items [1].AsInteger = StrToInt (CisloFirmyEdit.Text);
Params.Items [2].AsInteger = StrToInt (OdVydaniEdit.Text);
Params.Items [3].AsInteger = StrToInt (DoVydaniEdit.Text);
Params.Items [4].AsDate = SepsanoDateTime.Date;
Params.Items [5].AsString = DruhComboBox.Text [1];
Params.Items [6].AsInteger = Cena;
Params.Items [7].AsInteger = 11;
ExecSQL();
end;
Tabulka je definovana nasledovne:
CREATE TABLE "Objednavka.db"
(
C_O INTEGER,
OD_VYD SMALLINT,
DO_VYD SMALLINT,
DAT_SEP DATE,
DRUH CHAR(1),
CENA MONEY,
PROVIZE SMALLINT,
PRIMARY KEY(C_O)
)
Kdyz ovsem program spustim, tak mi to na radce ExecSQL buchne s vyjimkou:
EBDEEngineError with message Type Mismatch in epression.
V cem by mohla byt chyba? (jen pro upresneni, nedochazi ke kolizi na primarnim
klici). Musim rucne zadat a definovat Params jeste v dobe navrhu programu?
Nebo je chyba nekde jinde?
Diky za odpovedi
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
funkcia POST
[*] PATAKY Ctibor <pataky(zv)asset.sk> - 17.3.1999 15:25:06
posli to aj mne, prosim Ta
Tino (pataky(zv)za.asset.sk <mailto:pataky(zv)za.asset.sk> ) -----P�vodn� zpr�va-----
Od: IKO [SMTP:iko(zv)kamarad(tec)cz]
Odesl�no: 17. marec 1999 12:10
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: funkcia POST
> no, ja podobne problemi riesim tak, ze mam nainstalovany web
server a mam
> taky sikovny CGI program ktory mi vypise vsetky dolezite
premenne :
> QUERY_STRING, REMOTE_HOST, REMOTE_USER, ... proste co chces.
Takto si to
> mozes odsusat na vlastnom servery a potom ist naostro. Mozem
ti to poslat.
> Mam to urobene v C.
>
> /LH
Keby si mi to poslal, to by bolo dobre. Mozes aj na sukromny
mail.
Diky...
IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO
PARADOX - SAMBA
[*] Jan Macej <jasencak(zv)ssl.sk> - 17.3.1999 15:46:16
> TMeno?
Jasne, ze Memo. V tom problem nie je.
Preklad bol v pohode len vysledok bol nad ocakavanie neuspesny
> Potreboval bych premapovat ENTER klavesu na TAB.
> Z klavesy Enter delam Tab nasledovne (jen pro ,,vhodne``
> komponenty):
>
> FormKeyPress(TObject Sender, var Key: char);
> begin
> if not ((Sender is TButton) or (Sender is TBitBtn) or (Sender is
> TMeno) or (Sender is TRichEdit)) then
>jestlize si nenasel vyhodu, tak te musim upozornit alespon na jednu a podle me
>ne tak uplne nezanedbatelnou:
>LINUX je zadarmo, coz se o NT rict neda a myslim, ze to je i stabilnejsi
>Marek Soukup
Lenze na Linuxe ide aj IB(Free) a dalsi soft. Cize sa da postupne prechadzat na SQL.
Linux zadarmo je dalsou vyhodou.
Jan Macej
Parametry TStoredProc
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 17.3.1999 16:54:15
Zdravim vsechny,
na serveru mam pro kazdy ciselnik jednu jednoduchou vlozenou proceduru,
kterou potrebuju volat ze sveho programu. Pouzivam komponentu TStoredProc.
Problem je v tom, ze kdyz za behu programu zmenim nazev vlozene procedury,
tak se smaze seznam parametru. Muze mi nekdo poradit, jak po zmene nazvu
procedury ziskat ze serveru i parametry?
Pouzivam D4 a Oracle.
Dik
Michal Motalik
motalik(zv)zl.inext(tec)cz
Quick Report 2.0K & nastaveni tiskarny v Delphi 3
[*] Libor Svoboda <svob(zv)fnusa(tec)cz> - 17.3.1999 17:49:25
Ahoj vsichni
Mam takovy problem s Quick reportem verze 2.0K standart v Delphi3.
Pri nastaveni
TQuickRep.Page.PaperSize:=Default
nedokaze Quick Report automaticky prevzit nastaveni velikosti stranky pokud
je v driveru tiskarny nastavena
nestand. hodnota nebo hodnota 'vlasni'.
Jedna se o vlastnosti
TQuickRep.Page.Width,TQuickRep.Page.Length,TQuickRep.Page.Orientation
U nekterych standartnich formatu (napr. A4,letter,legal) se tyto hodnoty
daji nacist podle navodu uvedeneho
v QuickReport Knowlenge Base. Ale ale pri nastaveni na Default to
nefunguje. Polozka Orientation se nenacte nikdy.
Existuje nejaky zpusob jak tyto hodnoty nacist ze systemoveho nastaveni
driveru tiskarny (nejaka API nebo neco podobnyho) ? Potrebuju tisknout i na
jine formaty nez A4 a kdyz nastaveni v QuickReportu nesouhlasi
se systemovym nastavenim, tak je sestava zmrvena.
Pomuze mi zakoupeni QuickReportu verze 2.0K professional nebo verze 3.0.4
professional ?
Libor Svoboda
svob(zv)fnusa(tec)cz
SQL
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 17.3.1999 18:27:49
V okamziku kdy pro nej vytvoris aplikaci, ktera pouziva MySQL uz free
neni... :-(
Mac
Marek Soukup wrote:
> Ahoj,
> MySQL
>
> > Existuje nejaky SQL server ale free alebo trial, aby isli aspon dvaja
> > uzivatelia naraz ?
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
HDD factory serial + model number, atd.
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 17.3.1999 18:47:56
Dalibor Toman wrote:
>>Chtel bych videt, jak by byly ty 2 minuty jen o malo delsi, kdyz bych
napr.
>>to seriove cislo HDD pouzil jako klic k desifrovani zkompresovanych
>>plug-inu, ktere bych pripojil na konec .exe a nastrkal do nich vybrane
>>funkce aplikace :-))
>
>nekdy je snad musis dekomprimovat ne? pak se budou nejspis valet nekde na
>disku v normalnim tvaru :-)
z pochopitelnych duvodu to tu nechci zbytecne rozebirat, takze jen
heslovite:
1. nejedna se o ochranu proti kopirovani, ale je to soucast mechanismu,
kontrolujiciho identitu instalace
2. dekomprimuje se do pameti
bye, pf
Import DLL (C++) do Delphi - zaverem
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 17.3.1999 18:50:20
Cauec vsichni,
dekuji vsem, kteri prispeli svym nazorem na import techto DLL.
>> 1) extern int dx_open( const char *namep, int oflags );
>function dx_open(const namep:PChar; oflags:integer):integer;
>stdcall; external ...
puvodne tam bylo PChar, ale zarizeni vubec nereagovalo. Kdyz jsem tam dal
string, tak sice se neco delo, ale navazovala na ni hlaska o potizich s
kernelem.
Ano, PChar je spravne.
>>function dx_close(var dev):integer; ...
>Opet pretizit, nebo odlisit jmena.
Ne, jak tam dam VAR, tak to zase pro zmenu zatuhne. Je to bez VAR...
Ackoliv jsem to poopravoval ruznymi zpusoby, chvili to chodilo, chvili
padalo. Ted uz je to naprosto OK a tezce dohanim ztracene tydny.>>Volani funkci je v konvenci C (extern "C" { // C Plus Plus
function bindings)
Dekuji vsem za popichnuti a zvlast Petru Brantovi (ktery trefil a kteremu
jsem timto zauzlovan), jehoz rada me na cas zbavila bezesnych noci. Na jeho
radu jsem upravil volani funkci z STDCALL na CDECL. Dalo by se rict, ze
takova prkotina, ale od zmeny to nepadlo ani jednou.
Jeste jednou dekuji vsem.
Bye Ludan
DLL a QuickReport
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 17.3.1999 19:14:58
Od: Milan Fiedler <milanf(zv)rts(tec)cz>
> volani DLL v poradku,zobrazi se text pro tisk zkonci a na FreeLibrary totalne vytuhne.
> v Delphi 2 tam je QuickReport1 tam to funguje bez problemu,
> ale v Delphi 3 QuickReport2 to takhle tuhne.
Hi,
ne ze bych nekdy neco delal z QuickReportem, ale kdyz Ti nikdo zatim neodpovedel, zkusim k tomu napsat nejake postrehy, protoze se mi nelibi necisty zpusob, kterym volas DLL a zpusob osetrovani exceptions. To Tvuj problem zrejme nevyresi, ale kdyz budes mit stesti, mohou Ti pomoci lokalizovat chybu:
1. Funkcni typ pro LoadLibrary je HMODULE a ne THandle (i kdyz jsou dnes stejne velke, ale treba v nejake dalsi verzi Delphi nebudou...)
2. LoadLibrary() vraci v pripade neuspechu hodnotu 0, GetLastError chybovy kod. Tech <=32 platilo na API16 a i tam by se melo psat <=HINSTANCE ERROR
3. Nemas osetreno volani FreeLibrary() pro invalid handle.
4. cele by to melo byt v bloku try-except
Takze za mnohem cistejsi bych povazoval toto:
procedure TForm1.Button1Click(Sender: TObject);
const
cDLLName = 'ProjectDLL.dll';
cFUNName = 'TiskDAVA';
var
LibHandle : HMODULE
TiskDAVA : TTiskDAVA;
begin
try
LibHandle := LoadLibrary(cDLLName);
try
if LibHandle=0 then
raise Exception.CreateFmt('Unable to load "%s", GetLastError=%8.8x',[cDLLName,GetLastError]);
(zv)TiskDAVA := GetProcAddress(LibHandle,cFUNName);
TiskDAVA;
finally
if LibHandle<>0 then
FreeLibrary(LibHandle);
end;
except
on E:Exception do
begin
// LOG.LogFmt('Button1Click() raised "%s"',[E.Message]);
end;
end;
Zrovna tak bych odchytil exception ve vlastni funkci TiskDAVA:
procedure TiskDAVA; Export;
begin
try
QuickReport.Preview;
except
on E:Exception do
begin
// LOG.LogFmt('TiskDAVA() raised "%s"',[E.Message]);
end;
end;
end;
Bye, pf
PARADOX - SAMBA
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 17.3.1999 19:50:42
Ahoj
Jen technicka poznamka , osobne bych prvne testoval parametr Key a pak
teprve testovat objekty
Melo by to byt rychlejsi.
Zdravim Jiri Heinisch
>FormKeyPress(TObject Sender, var Key: char);
>begin
> if not ((Sender is TButton) or (Sender is TBitBtn) or (Sender is
> TMeno) or (Sender is TRichEdit)) then
> if (Key = VK_RETURN)
> begin
> Key := 0;
> SelectNext(ActiveControl, TRUE, TRUE);
> end;
>end;
elementarny problem s C/S
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 17.3.1999 20:17:50
Zbysek Hlinka wrote
Na tohle znam jedno reseni: seznam partneru je uveden
samozrejme v samostatnem ciselniku, a do faktury se z nej
jednoduse dosadi. Na druhe strane, pokud si koupis jednou za 5
let cosi u firmy Omacka & Knedlik, je zbytecne, abys tou adresou
zaplnoval ciselnik, kdyz obdobnych nakupu nebo prodeju muzes
mit 10 000 rocne. S takovym ciselnikem by s tebou zakaznik take
asi brzy vybehl. :-)
Na to mohu poradit takovou pomucku kterou pou��vaj� mi klienti.
Do adresare dosadit fiktivn� firmu se jmenem "Drobny nakup a prodej " a tim
padem jsou osetreny
vstupy v programu kde se vyzaduje cislo zakaznika a nemusim kazdeho
trafikanta registrovat.
Akorat je potreba u ucetnich programu hlidat "Zaznamni povinnost" od FU.
S pozdravem
Heinisch Jiri
elementarny problem s C/S
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 17.3.1999 20:47:22
>Jestli dobre chapu mas na mysli to , ze v adresari u firmy budou udaje v
>tomto smyslu :
>KOD FIRMY (Ten se nemeni to je jasne)
>ADRESA FIRMY : od 12.1.1998 do 15.9.1998 =Adresaxxx
> od 16.9.1998 do 1.1.1999 = Adresayyy
> od 2.1.1999 do ted = Adresazzz
>
>No a pak pokud budes tisknout (nebo zobrazovat) kopii faktury vydane 1.2.
98
>tak tam bude Adresaxxx ale pokud budes vydavat novvou bbude tam Adresazzz
>Uznavam, ze to neni spatne.
>
>
Spatne to neni , ale ma to sva kdyby
- Co kdyz firma nezmeni jen adresu ale i nazev, respektive cokoliv jineho
- Zmeni svoji pravni subjektivitu ( z S.R.O. na A.S.) tim padem dostane
nove ICO ale pravni vztahy jsou zachovany.
Myslim ze by se vyplatilo v nekterych pripadech zalozit tuto firmu jako
novou a ve starem zaznamu mit odvolavku
na novou a naopak.
Ja osobne bych vypracoval system kdy kde a jak provadet tyto zmeny
vnitropodnikovym predpisem aby v tom bylo jasno
pro vsechny zucastnene.
Mimoto si myslim ze takoveto zmeny nejsou na dennim poradku aby se z toho
musel delat primarni problem pri tvorbe
adresare.
Spis je lepe myslet na to ze za par dni bude jaro a budou usychat meze.
Boze tak to bylo krasne pred temi lety. :-) *
>No prave ze zadne hromadne operace a zmeny se v tomto pripade delat
nesmeji.
>Danove doklady se maji archivovat 10 let a i po 10 letech by tedy vytisk
>kopie mel byt naprosto identicky s puvodnim. Takze nad temi udaji ve
fakture
>uz se zadne operace nedelaji.
Prosim o zaslani adresy firmy ktera vystavene danove doklady uchov�va POUZE
ve forme datove tabulky.
Rad bych jim zaslal zdravici s heslem " Odvaznym stesti preje" :-)))
A osobne si potrasl rukou s hlavnim ucetnim.
S pozdravem Heinisch Jiri
Parametry TStoredProc
[*] Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz> - 17.3.1999 20:10:45 met
Mam takovy pocit ze parametry ze serveru za behu jen tak
nedostanes. Lze to udelat rucne:
StoredProc.Params.CreateParam(FldType: TFieldType; const
ParamName: string; ParamType: TParamType): TParam;
Jarda
sikora(zv)kam(tec)czu(tec)cz
> Zdravim vsechny,
> na serveru mam pro kazdy ciselnik jednu jednoduchou vlozenou proceduru,
> kterou potrebuju volat ze sveho programu. Pouzivam komponentu TStoredProc.
> Problem je v tom, ze kdyz za behu programu zmenim nazev vlozene procedury,
> tak se smaze seznam parametru. Muze mi nekdo poradit, jak po zmene nazvu
> procedury ziskat ze serveru i parametry?
> Pouzivam D4 a Oracle.
>
> Dik
>
> Michal Motalik
> motalik(zv)zl.inext(tec)cz
>
>
>
>
Cached updates problem
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 17.3.1999 22:04:36
Ahoj
nezkousel jsem to, ale kdybych to zkousel tak bych zvolil
try
Database1.StartTransaction;
QueryDetail.ApplyUpdates;
QueryMaster.ApplyUpdates;
Database1.Commit;
except
QueryDetail.CancelUpdates;
QueryMaster.CancelUpdates;
Database1.Rollback;
end;
protoze s ApplyUpdates na Master tabulku ocekavam automaticky Refresh
tabulek, ktere jsou k ni v Detail vztahu.
(Od doby kdy jsem si prohlidl SQL monitorem, co vse se vola pri uziti
Master-detail vztahu, tak Master-Detail s vyjimkou malych dem nepouzivam.)
S pozdravem, Ladislav Nagy
----------------------------------------------------------------------------
--------------------Mgr. Ladislav Nagy, MFF UK & Baader Computer
lnag7384(zv)mail.kolej.mff.cuni(tec)cz
Ladislav.Nagy(zv)bcpraha(tec)cz tel: 02/24941962-3
TStore
[*] IKO <iko(zv)kamarad(tec)cz> - 17.3.1999 22:19:59
[P��loha v souboru: store.zip]
TStore
IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: store.zip
Date: 17 Mar 1999, 6:50
Size: 1962 bytes.
Type: ZIP-archive
HDD factory serial + model number, atd.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.3.1999 23:47:10
Puvodni zprava, kterou napsal Bohuslav Svancara dne 17 Mar 99,:
> Jeste bych chtel pripodotknout: Kdyz uz prodavam chraneny software a ta
> ochrana uzivatele nejak obtezuje, tak aby ho to tak nebolelo, tak mu
> vysvetlim, ze ta ochrana je tam taky proto, aby JEMU ten program nikdo
> neukradl. V pripade solo uzivatele je to sice ptakovina (tomu to nerikam),
> [..........]
Jo, napsal jsi to velmi pekne, cte se to dobre. Podstata veci je pravdiva.
Jenze kdyz na tohle pouzijes nekopirovatelnou disketu, tak to prinasi
mnohem vice neprijemnosti nez uzitku. Za prve je to nemoznost porizeni
kopie (vidis, uz k tomu Mercedesu mas dva klicky se dvema imobilizery,
dva ovladace alarmu a nekolik klicu k mechanickemu zabezpecovadlu...).
A kopie je nutna, i kdyz mas ten original v trezoru. Mimochodem, jeste
se nikdo z ucastniku nevyjadril k tomu autorskemu zakonu, protoze ja tam
opravdu vidim na vlastni oci, ze si mohu vytvorit zalozni kopii. A ja si
chci vytvaret zalozni kopie. Pokud mam v software nekolik stovek tisic,
mam nekolik desitek programu, proste nemohu v pripade problemu (treba
vyhoreni mistnosti) jednotlive kontaktovat kazdou firmu nejen z CR, ale
take z USA, Kanady, Nemecka, Spanelska... a dozadovat se nahradnich
medii. Navic cena takovych nahradnich disket by me vysla nekolikanasobne
draz nez cena zbytecnych kopii software v den nakupu. Priklad - kazdou
chvili potrebuji nejaky instalacni disk, at uz je to Windows nebo
cokoliv jineho. To je duvod, proc musim mit tato CD u sebe, tedy ne
v trezoru v bance. V pripade, ze bych vyhorel, jdu do banky pro ty
kopie nebo originaly. Zdrzim se jeden den - protoze v bance jsou jen
ve vsedni dny v otviraci dobe. Kdybych mel cekat, nez mi z celeho sveta
dojdou nahradni nekopirovatelne diskety, tak minimalne 14 dni na nic
nesahnu. Ty toto posuzujes v situaci, kdy clovek ma jednu instalaci
Tveho programu, tedy v pripade problemu vola na jedno misto. Kdyby
tech disket bylo 10 nebo 20, tak by toho reditele presel humor, kdyby
misto reditelovani musel volat po firmach a shanet 20 firem, ktere
reknou nejake kody... A zpet k autorskemu zakonu - ten plati nejen
pro uzivatele, ale take pro autora. Jednoduse nemuzes vyzadovat, aby
zakaznik pravidla dodrzoval a Ty je vesele porusujes. Kdyby soudy
u nas aspon trochu pracovaly, tak by uzivatel v pohode vyhral kazdy
soudni spor s kazdym autorem, ktery pouziva nekopirovatelne diskety
a jim tak zneprijemnuje zivot. A ver mi, ze by take vyhral kazdy
spor s kazdou distribucni firmou, ktera koduje videokazety proti
kopirovani. Zde je to take zajimave. Kdyz si koupis videokazetu,
chces se na ni obcas kouknout za ty prachy. Neni to CD, takze kdyz
si ji pustis 10x, jeji kvalita opravdu radne klesne. Brzy je ten
original nepouzitelny. Proto ma jit videokazetu okopirovat, aby sis
mohl poustet kopii a nenicil sis original.
Za druhe je to nespolehlivost. Je evidentni, ze se diskety chranene
proti kopirovani nechovaji standardne a neni garantovana jejich
citelnost na vsech mechanikach. Jako jednu z moznych uvadim prave
treba floptical od spolecnosti iomega. Ale to jsou i ruzne dalsi
nekompatibility...
Za treti je to nedostupnost autora. Uvedu jednoduse na prikladu.
Takze ja mam znameho a to je reditel jedne velke firmy. Ten samy
s tim flopticalem (to je zajimave, ten ma stesti na ochranne
mechanismy, s kterymi si uzije), kde mu to nechodilo, a musel si
koupit jeste normalni disketovou mechaniku - predstav si, ze on
si kvuli programu za asi 800 korun musel koupit disketovou mechaniku,
ktera v te dobe stala asi 1800 korun - to je paradicka, to je programek!
Takze on mel jeste dalsi program, ktery byl take chraneny nejakym
disketovym systemem. Ten program mel hrozne dlouho a asi 7 let ho
vubec nepouzil. Jenze najednou chtel. Mezitim ale pocitace lehce
vylepsil, uz nema 286, ale Pentiua. No a proste ten program nekde
skoncil na tom disku, co uz davno nema... Disketu nasel, ale byla
mu na nic, protoze to chtelo odinstalovat, aby se znovu aktivovala.
Tak zacal shanet autora. Jenze tohle uz nebyla takova legrace
s programem za 800 korun, tenhle program ho stal asi 45 tisic.
A to uz je neco penez, takze by ten program rad pouzil. Ale autor
neni k nalezeni. Ta firma je uz davno rozpustena. Ale on zaplatil,
je legalnim uzivatelem a presto nemuze program pouzivat. Vubec nic
neztratil, disketu ma, jen holt ten disk asi tenkrat odesel a nebo
ho zahodil... Nebudu Te napinat, asi po 1,5 roce !!! autora slozite
sehnal (to vis, ze ho neshanel kazdy den, ale kazdy mesic ano)
nekde ja nevim kde, no a ten mu za asi 25 tisic prodal upgrade,
ktery muze slavnostne pouzivat. Jo, jo, to je cunarna... A protoze
nikdo nevime, co se bude dit za 7 let nebo 14 let nebo 21 let,
tak je tezke neco takhle hrozneho vymyslet. Ano, muzes opravdu
odpovedet, ze jednoduche ucetnictvi to ma jiz spocitano, takze
tam tohle nehrozi, ale treba podvojne, to muze v takovehle podobe
fungovat, da se rici, stale. Proc omezujes sve uzivatele, aby jej
nemohli pouzivat po Tve smrti? Ne, ze bych Ti to pral, ale to se
opravdu muze stat kazdym dnem. Predstav si, ze mam jednoho zakaznika
z druheho konce republiky, bylo mu 31 let, nedavno jsem u nej byl,
mluvili jsme spolu o nejakych zakazkach, mel velke plany, tuhle
jsem s nim mluvil telefonem, zrovna nekam odjizdel na par dni.
A za par dni mi volala jeho manzelka, ze je po smrti.
> V Softwarovych novinach 2/1999 na strane 59 je clanek o novem perifernim
> zarizeni - cipove karte, do ktere se daji ukladat hesla, aby si je clovek
> nemusel pamatovat, nikam si je nemusel psat a tu kartu si mohl nosit s
> sebou v penezence. Karta, ctecka a software stoji asi 1000,- Kc. Myslim,
Pouze software stoji tisic korun, ctecku s kartou musis dokoupit
za 3 tisice. Je to velmi dobra vec, ale kdybys to chtel dodavat
spolu s programem, za prve by se Ti trochu prodrazil, za druhe
by to nesplnilo Tve pozadavky na ochranu programu, a za treti by
musel mit zakaznik volny seriovy port. Ja mam 4 seriove porty,
ale jen 2 jsou pouzitelne, protoze uz nemam zadna preruseni.
A z tech dvou nemam nic volneho, protoze na obou mam modemy.
Na notebooku si zase do toho jednoho serioveho portu strkam
Intelli Mouse. Takze take nevhodne pro software... to uz je lepsi
ten hardwarovy klic, kdyz uz to ma jit takto daleko, protoze
paralelni porty mam na velkem pocitaci dva a na notebooku ho
nepotrebuji vubec, kdyby jako nastaly nejake problemy i s klicem.
Ano, i klice delaji nekdy nekompatibility...
> ze se toho noveho periferniho zarizeni jeste dockame. Jenom mi prosim Vas
> nenamitejte, ze kdyz ztratim penezenku, prijdu o vsechny programy v
> pocitaci...
Vis, ja si spise rikam jinou vec - ochrana programu ma byt, ale
ma byt umerna cene programu a zisku z nej. Investice do ochrany
jsou ruzne a kombinuji se - at uz to je fyzicka porizovaci cena
hardwarovych klicu, zarizeni na niceni sektoru na disku, jiz
pripravenych inicialnich disket, nebo cas straveny nad koumanim,
jak to jeste vylepsit, kam nacpat kontroly, vyrobou specialniho
instalacniho programu, vymysleni antidebuggeru, nebo treba hodiny
stravene u zakaznika ci na telefonni lince v pripade, ze neco
nefunguje, a ja mu musim radit... a lidi jsou blbi, cpou klidne
hardwarove klice do seriovych portu, do SCSI konektoru... take
treba formatuji diskety apod. Je treba vzdy posoudit, jestli
naklady na takove ochrany (i neprime) se vubec vyplati, jestli
nahodou neprodelavam, jestli bych treba radeji nemel ten program
vylepsovat a dat mu ochranu trochu mensi. A nebo jestli bych
treba nemel s programem misto ochrany davat licenci na SQL Server,
coz me treba vyjde stejne draho, ale ma to opacny ucinek - tomu
zakaznikovi to nejen nebude zneprijemnovat zivot, ale jeste mu
to praci zprijemni... A me to v konecnem dusledku usetri dost
casu, protoze tam nebudu muset chodit spravovat tabulky Paradoxu.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Cached updates problem
[*] Jaro <jaro(zv)sinea(tec)cz> - 18.3.1999 00:29:21
Ano tohle je lepsi poradi, ale tak jako tak pouzivat to timto zpusobem
je velmi nevhodne.
Ten detail je vporadku, protoze dataset obsahuje pouze radky patrici
pro jeden master, ale
pokud master obsahuje hodne radku, tak to bude trvat zatracene dlouho.
Tam je vhodne
pouzit ExecSQL na jeden radek.
Jaro
>Ahoj
>
>nezkousel jsem to, ale kdybych to zkousel tak bych zvolil
>
>
>try
> Database1.StartTransaction;
> QueryDetail.ApplyUpdates;
> QueryMaster.ApplyUpdates;
> Database1.Commit;
>except
> QueryDetail.CancelUpdates;
> QueryMaster.CancelUpdates;
> Database1.Rollback;
>end;
>
>
>protoze s ApplyUpdates na Master tabulku ocekavam automaticky Refresh
>tabulek, ktere jsou k ni v Detail vztahu.
>
>(Od doby kdy jsem si prohlidl SQL monitorem, co vse se vola pri uziti
>Master-detail vztahu, tak Master-Detail s vyjimkou malych dem
nepouzivam.)
>
>S pozdravem, Ladislav Nagy
>
>---------------------------------------------------------------------
-------
>--------------------Mgr. Ladislav Nagy, MFF UK & Baader Computer
>lnag7384(zv)mail.kolej.mff.cuni(tec)cz
>Ladislav.Nagy(zv)bcpraha(tec)cz tel: 02/24941962-3
>Corrupt Table/Index header u PARADOX tabulky
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 18.3.1999 00:54:22
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 17. b�ezna 1999 11:33
P�edm�t: RE: Corrupt Table/Index header u PARADOX tabulky
>Obnovit to jde tak, ze na instalacnim CD Paradox 7.0 je program TUtility,
ktery dokaze tabulku alespon
>castecne obnovit.
>
Jake s tim mate prakticke zkusenosti. Paradox 7 pouzivam od uvedeni na trh a
do dokud jsem nezacal pouzivat D4 bylo vse OK a poskozene tabulky se daly
restaurovat. Od instalace D4 to vetsinou nejde, respektive tabulka se
neopravi a behem opravy totalne zatuhnou Windowsy. Pokud mate nejake
zkusenosti poradte.
eL..
elementarny problem s C/S
[*] Jaro <jaro(zv)sinea(tec)cz> - 18.3.1999 00:55:35
>Ja osobne bych vypracoval system kdy kde a jak provadet tyto zmeny
>vnitropodnikovym predpisem aby v tom bylo jasno
>pro vsechny zucastnene.
Ja zase radeji vsechny udaje danoveho dokladu ukladam do tohoto
dokladu - tedy vcetne nazvu a adresy firmy okopirovane z ciselniku
firem a dalsich udaju okopirovanych z jinych ciselniku jako ucet,
zpusob uhrady, konst. symbol. a pod.
Duvodu je hned nekolik.
1. danove doklady jsou historii zaznamu a takto je na ne potreba
nahlizet a podle toho s nimi pracovat.
2. doklad nesmi podlehat zadnam zmenam zadneho ciselniku
3. pokud chce nekdo zajistit historii pro vsechny polozky vsech
ciselniku majici vazbu do dan dokladu, tak tento problem prevadi tam,
kam nepatri a zejmena se bud "uprogramuje" nebo zblazni. Nejspis
oboj�.
4. doklad muze obsahovat adresu, ktera nemusi byt nutne zavedena v
ciselniku.
Ja rozdeluji ciselniky na povinne a nepovinne. V obou pripadech lze
zajistit integritu. Toto je druhy pripad.
>Mimoto si myslim ze takoveto zmeny nejsou na dennim poradku aby se z
toho
>musel delat primarni problem pri tvorbe adresare.
I kdyby takova zmena byla jedna za rok, tak to musi byt vyreseno.
> Spis je lepe myslet na to ze za par dni bude jaro a budou usychat
meze.
SOUHLASIM
>Prosim o zaslani adresy firmy ktera vystavene danove doklady uchovava
POUZE
>ve forme datove tabulky.
>Rad bych jim zaslal zdravici s heslem " Odvaznym stesti preje"
:-)))
>A osobne si potrasl rukou s hlavnim ucetnim.
TAK POZOR!
Asi mozna neexistuje firma, ktera by neuchovavala kopie vystavenych
faktur, ovsem to prece nemuze byt argument proto, ze to muze byt v
databazi spatne, tedy jinak nez na pisemnem originale! To bychom tu
databazi pak k nicemu nepotrebovali (nepocitam-li mateni neritele
[danoveho uradu])
Ja osobne ovsem z bezpectnostnich duvodu elektronicke forme archivace
dokladu verim daleko vice nez papirove.
Jaro
>
>S pozdravem Heinisch Jiri
>elementarny problem s C/S
[*] Jaro <jaro(zv)sinea(tec)cz> - 18.3.1999 01:06:06
Tvoji klienti to pouzivaji jen proto, ze jim asi nic lepsiho tvuj
program nenabizi.
Rozhodne to neni zadna vyhoda. Az budou delat nejake soucty, tak
zjisti,
ze nejaka suma patri "Drobny nakup a prodej ". Komu konkretne uz nikdy
nezjisti.
O problemech v saldu, nemoznosti poslani upominky a pod ani nemluvim.
Jak znamo, danovy doklad (i zkraceny) MUSI obsahovat presny udaj o
kupujicim
nebo prodavajicim a ne zadny "Drobny nakup a prodej "!
Pokud bys dovolil tem klientum tyto polozky na fakture take editovat,
urcite by
se nezlobili.
Ja osobne bych si takovej program urcite nekoupil.
Jaro
>
>Na to mohu poradit takovou pomucku kterou pou��vaj� mi klienti.
>
>Do adresare dosadit fiktivn� firmu se jmenem "Drobny nakup a prodej "
a tim
>padem jsou osetreny
>vstupy v programu kde se vyzaduje cislo zakaznika a nemusim kazdeho
>trafikanta registrovat.
>
>Akorat je potreba u ucetnich programu hlidat "Zaznamni povinnost" od
FU.
>
>S pozdravem
>
>Heinisch Jiri
>elementarny problem s C/S a neb jak objevit Amerik
[*] Jaro <jaro(zv)sinea(tec)cz> - 18.3.1999 01:17:36
>[Viktor] Ale houby, ty truhliku. Hrozne se mi libi ta idea, ze z
databaze
>se nikdy nic neodstrani. Ze jenom poroste. Vubec zadne DELETE
neexistuje.
>To se mi libi.
>
A proc?
Jaro
elementarny problem s C/S
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.1999 01:33:54
Puvodni zprava, kterou napsal Jiri Heinisch dne 17 Mar 99,:
> Do adresare dosadit fiktivn� firmu se jmenem "Drobny nakup a prodej " a
> tim padem jsou osetreny vstupy v programu kde se vyzaduje cislo zakaznika
> a nemusim kazdeho trafikanta registrovat.
No, me se to moc nezda. Ja do ucetnictvi zadavam opravdu kazdeho
trafikanta. A pak se muzu kdykoliv podivat, za kolik jsem toho
od koho koupil... V SQL databazi by to prece slo osetrit nejakym
priznakem - NAHODNY ZAKAZNIK - BEZNE NEZOBRAZOVAT...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
elementarny problem s C/S
[*] Jaro <jaro(zv)sinea(tec)cz> - 18.3.1999 04:52:37
V C/S je pro takovy pripad asi nejlepsi, kdyz odkaz do ciselniku (cizi
klic)
je NIL a udaje jsou pak zanany v hlavicce dokladu.
Tato hodnota umoznuje rozlisovat stav, kdy je na udaj odkaz do
ciselniku a kdy nikoliv.
Proto neni nutne do ciselniku zadavat nejakeho pomocneho nesmyslneho
zakaznika.
Jaro
Puvodni zprava, kterou napsal Jiri Heinisch dne 17 Mar 99,:
> Do adresare dosadit fiktivn� firmu se jmenem "Drobny nakup a prodej
" a
> tim padem jsou osetreny vstupy v programu kde se vyzaduje cislo
zakaznika
> a nemusim kazdeho trafikanta registrovat.
No, me se to moc nezda. Ja do ucetnictvi zadavam opravdu kazdeho
trafikanta. A pak se muzu kdykoliv podivat, za kolik jsem toho
od koho koupil... V SQL databazi by to prece slo osetrit nejakym
priznakem - NAHODNY ZAKAZNIK - BEZNE NEZOBRAZOVAT...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
HDD factory serial + model number, atd.
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 18.3.1999 06:03:41
>Jeste bych chtel pripodotknout: Kdyz uz prodavam chraneny software a ta
>ochrana uzivatele nejak obtezuje, tak aby ho to tak nebolelo, tak mu
>vysvetlim, ze ta ochrana je tam taky proto, aby JEMU ten program nikdo
>neukradl. V pripade solo uzivatele je to sice ptakovina (tomu to nerikam),
Nerad se do teto diskuze pletu, ale kdyz uz tedy spousta z Vas chce sve
programy
chranit, proc nepouzivate HW klic? Podle ceny programu lze vybrat levnejsi
ci drazsi,
drazsi klic (treba Sentinel SuperPro) vam tezko nekdo crackne.
Jeste bych akceptoval ochranu pri instalaci pres seriove cislo a aktivacni
klic, ktery je pote
ulozen v trezoru IT (prip. majitele firmy). Pravda - vetsinou je mozne takto
nainstalovany software
fyzicky prekopirovat (ovsem u Windows to neni zrovna dobry napad) ale pak
kazdy vidi, podle SN nebo nazvu firmy, ze pouziva kradeny software (vcetne
pripadnych zakazniku).
No a chranit program za 2000,- povazuju za nesmysl.
Leos
Velikost formu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 18.3.1999 06:39:22
Ahoj,
mam malinky problemek, zrejme jsem neco prehledl...
Mam jednoduchy form s par tlacitkym, editacnimi poli, checkboxy
atp., BorderStyle je nastaven jako bsSingle. Pokud ho spustim na pocitaci,
kde jsou anglicka Windows95 s Plus! themem (fonty jsou velke), tak se mi
zmenila velikost formu, smrsknul se, a nektera tlacitka se stala razem
nedostupna, coz je nezadouci. Jak lze tomuto stavu zamezit? Diky za kazdou
radu
Jaro B.Corrupt Table/Index header u PARADOX tabulky
[*] mbartone(zv)Synthesia(tec)cz - 18.3.1999 06:40:56
Ahoj
17.3.1999 jsem pouzil TUTILITY.exe na poskozenou Pdx tabulku. Tabulka se
opravila a prisel jsem pouze o posledni zaznam.
Tabulka predtim nesla otevrit ani v Database Desktopu.
www.inprise.com/devsupport/bde/utilities.html
Milanj
Letajici Image
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.3.1999 06:48:34
To bude asi tim, ze neni osetren okamzik fyzickeho nakresleni
presunuteho Image. Kdyz se kresli mimo dobu zatemnovaciho impulsu, je
blikani zretelne. Pomoc je asi tato: Nadefinuj si dve TBitmapy vhodne
velikosti, do jedne nakopiruj to, co se ma nakreslit, jednu nech
prazdnou. A pak staci pomoci Draw nebo CopyRect apod. nakopirovat tu
pokreslenou bitmapu do okna, smaze se tak, ze do okna nakopirujes tu
prazdnou. Vtip je v tom, ze to se provadi v okamziku zatemnovaciho
impulsu, takze zadne bliknuti neni videt. Mam to vyzkousene a funguje
to.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 17. b�ezna 1999 12:14
> Komu: #Delphi-K
> P�edm�t: Letajici Image
>
> Udelal jsem si screen saver, na kterem leta logo a odrazi se od sten,
> no, znate to... Jenomze mi ten Image tak osklive blika, nevite jak na
> to ?
>
> //Hybe se snim pomoci Image.Left a Image.Top a je tam i jeden Label
> //a ten dareba jeden blika taky.
>
> Dobra.
> HDD factory serial + model number, atd.
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 17.3.1999 22:03:49 -0800
Jeste bych chtel pripodotknout: Kdyz uz prodavam chraneny software a ta
ochrana uzivatele nejak obtezuje, tak aby ho to tak nebolelo, tak mu
vysvetlim, ze ta ochrana je tam taky proto, aby JEMU ten program nikdo
neukradl. V pripade solo uzivatele je to sice ptakovina (tomu to nerikam),
ale v pripade prodeje programu do firmy se zamestanci uz to ptakovina
zdaleka neni.
Zamestnanci totiz kradou. Kradou vsechno. A casto si zakladaji svoje vlastni
firmy, ve kterych ty ukradene veci pouzivaji. Program se ale prodava panu
rediteli nebo majiteli firmy. A ten je docela rad, kdyz do toho programu
investoval svoje prachy, ze ma od neho "klicky". Jako kdyz mu posledne
prodali felicii/octavii/mercedes - taky mu dali klicky. Ze pry aby si to
auto mohl zamknout. Pry existuji lide, kteri by mu je ukradli.
Moc se mu omlouvaji - ty klicky ho budou neustale obtezovat:
- musi s nimi zamykat dvere, paku na volantu a zamek zpatecky,
- pak to zase vsechno bude muset odemykat nez bude moci odjet,
- kdyz opusti auto, musi si je nosit s sebou a hlidat je,
- budou mu delat nepeknou bouli na kalhotach,
- nesmi si je zabouchnout v aute,
- nesmi je ztratit,
- nesmi si je nechat ukrast,
- nesmi je pujcovat cizim osobam, aby si je neokopirovaly,
- kdyz je ztrati, musi si jit domu pro druhe, ale nejdriv musi nejak
zabezpecit auto, protoze nebude vedet, jestli ty klicky ztratil, nebo mu je
ukradli,
- kdyz je ztrati podruhe, musi s takovou kartickou (kterou musi hlidat jako
oko v hlave a nesmi zapomenout, kam ji ulozil) osobne k nim do servisu (pres
celou republiku), aby mu vyrobili jine a bude jim za to muset zaplatit,
- kdyz klicky nepouzije, auto nezamkne a ukradnou mu je, jeste dostane
pokutu, ze je nezamknul.
Je to proste s temi klicky dlouha rada neprijemnosti, auto je o ne drazsi,
ale nic lepsiho pry neni. Mohli by mu sice za nejaky ten stotisic
nainstalovat rozpoznavac otisku prstu, pak by to slo i bez klicku, ale nesmi
se riznout do palce. A musi mit ochranku, aby mu zlodeji ten palec neurizli
a dokud je teply, neodemkli s nim to auto. Proste dokonaly zamykaci system
pry neni. A predstavte si! Pres vsechno to nekonecne obtezovani stejne nema
100% jistotu, ze mu auto neukradnou! Jsou totiz zlodeji, kteri prekonaji
kazdy, i ten nejslozitejsi a nejchytrejsi zabezpecovaci mechanismus.
Takze takto zivotem pouceny pan majitel je docela rad, ze ma od programu
klicky (treba v podobe nekopirovatelnych disket), pomoci kterych program
nainstaluje, a pak je ulozi do trezoru vedle nahradnich klicku od mercedesu.
A ten clovek, ktery se mu stara ve firme o pocitace, se mu postara taky o
to, ze kdyz nekde neco zhavaruje a ta ochrana znemozni pouziti programu, aby
to zase rozchodil. Za to ho plati. A pokud hodla remcat a nadavat na to, ze
ho obtezuje, ze si pan majitel firmy chrani svuj majetek, tak at si hleda
jineho zamestnavatele.
Tak me napada, ze chyba se stala nekde na zacatku, kdyz v IBM sestrojili
prvni PC, a pak kdyz vznikl prvni kompilator, nebo snad kdyz Velky Bill
napsal prvni operacni system. Ten pocitac mel mit nejake periferni zarizeni,
pomoci ktereho by se k nemu "pripojovaly" programy. Uzivatel dostane program
treba na diskete. A k programu nejaky klicek do toho periferniho zarizeni co
tam dneska tak hrozne schazi. Disketou a klickem pripoji program k pocitaci
a klicek si schova. Program mu pak v pocitaci normalne funguje. Disketa bez
klicku uz nefunguje. Ma-li se program prenest na jiny pocitac, musi se
pomoci klicku odpojit od pocitace a pripojit k druhemu pocitaci. A kdyz ma
ten program fungovat na dvou pocitacich zaroven, musi se holt zakoupit druha
instalace. Takhle nejak to melo fungovat uz od roku 1981. Vsichni by si na
to zvykli a povazovali by to za normalni. Hromadne vyrabene klicky k
programum by staly par haleru a kompilatory by ty klicky automaticky
podporovaly. A policie by mela jednodussi praci, protoze by se ji urcite lip
chytali padelatele hmotnych klicku, nez darebaci, co kopiruji nehmotne
programy.
V Softwarovych novinach 2/1999 na strane 59 je clanek o novem perifernim
zarizeni - cipove karte, do ktere se daji ukladat hesla, aby si je clovek
nemusel pamatovat, nikam si je nemusel psat a tu kartu si mohl nosit s sebou
v penezence. Karta, ctecka a software stoji asi 1000,- Kc. Myslim, ze se
toho noveho periferniho zarizeni jeste dockame. Jenom mi prosim Vas
nenamitejte, ze kdyz ztratim penezenku, prijdu o vsechny programy v
pocitaci...
Bohuslav �vancara
softprojekt(zv)bosnet(tec)cz
SQL
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.3.1999 07:39:35
Martin Lasevic wrote:
> Mam takovy dojem, ze u instalace Delphi C/S je IB pro 5 uzivatelu.Jinak
> ale snad Micosrot pripravuje nejkou verzi SQL serveru, ktery bude free a
> pouzitelny pro takovyto maly pocet uzivatelu ( ale toto neni overene -
> cetl jsem to v jednech Cigler News).
Je to tak. Kvuli tomu chystam totalni prestup na MS SQL. To si
zase Bill namasti kapsu, az zakaznici zacnou zjistovat, ze
potrebuji dokoupit administracni nastroje.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Text to html convertor
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 18.3.1999 07:43:26
Zdravim,
chtel bych se zeptat, zda nemate nekdo v podvedomi informaci o tom, zda neni
soucasti windows nejaky standartni jednoduchy konvertor cisteho txt do html
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
SQL
[*] Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 18.3.1999 07:53:46
Treba WinBase602. Da se stahnout z jejich webu.
Nebo Informix uvolnil Standard Engine 6.0 pro Linux
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/7755345
038/7512861
Letajici Image
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 18.3.1999 07:55:34
ahoj
ja jsem zkousel nize uvedeny postup, protoze tahle vec me taky zajima, ale
bitmapa, ktera
se "posunuje" po formu mi presto blika ...
Pro ilustraci uvadim podstatnou cast kodu.
Delam nekde chybu ?
Dale by me zajimalo co je "zatemnovaci impuls", s timhle pojmem jsem se
jeste nesetkal.
diky za odpoved
Zdenek Fryz
procedure TForm1.FormCreate(Sender: TObject);
begin
nLeft:=5;
nTop:=100;
bB:=TBitmap.Create;
bP:=TBitmap.Create;
bB.Height:=32;
bB.Width:=32;
bB.Canvas.Brush.Color:=Color;
bB.Canvas.FillRect(bB.Canvas.ClipRect);
bP.Height:=32;
bP.Width:=32;
bP.Canvas.Brush.Color:=Color;
bP.Canvas.FillRect(bP.Canvas.ClipRect);
bP.Canvas.Draw(0,0,image1.picture.Graphic);
end;
procedure TForm1.PaintIma;
begin
Canvas.Draw(nLeft-2,nTop,bB);
Canvas.Draw(nLeft,nTop,bP);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
nLeft:=nLeft+2;
if nLeft > Width then nLeft:=5;
PaintIma;
end;
> -----P�vodn� zpr�va-----
> Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> Odesl�no: 18.03.1999 06:49
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Letajici Image
>
> To bude asi tim, ze neni osetren okamzik fyzickeho nakresleni
> presunuteho Image. Kdyz se kresli mimo dobu zatemnovaciho impulsu, je
> blikani zretelne. Pomoc je asi tato: Nadefinuj si dve TBitmapy vhodne
> velikosti, do jedne nakopiruj to, co se ma nakreslit, jednu nech
> prazdnou. A pak staci pomoci Draw nebo CopyRect apod. nakopirovat tu
> pokreslenou bitmapu do okna, smaze se tak, ze do okna nakopirujes tu
> prazdnou. Vtip je v tom, ze to se provadi v okamziku zatemnovaciho
> impulsu, takze zadne bliknuti neni videt. Mam to vyzkousene a funguje
> to.
>
> ************************************************************************
> *******************************
>
> Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> Visual Basic
>
> ************************************************************************
> *******************************
>
>
>
> > -----P�vodn� zpr�va-----
> > Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> > Odesl�no: 17. b�ezna 1999 12:14
> > Komu: #Delphi-K
> > P�edm�t: Letajici Image
> >
> > Udelal jsem si screen saver, na kterem leta logo a odrazi se od sten,
> > no, znate to... Jenomze mi ten Image tak osklive blika, nevite jak na
> > to ?
> >
> > //Hybe se snim pomoci Image.Left a Image.Top a je tam i jeden Label
> > //a ten dareba jeden blika taky.
> >
> > Dobra.
> > funkcia POST
[*] IKO <iko(zv)kamarad(tec)cz> - 18.3.1999 08:03:12
Uz som myslel, ze mi to pojde. Ale nejak mi tak komponenta
HTTP filtruje z POST parametrov znak + (plus) a potom mi to
nerozozna cislo telefonu (+421). Da sa to nejak spravit? Alebo aku
komponentu mam pouzit? Potrebujem aj priklad na funkciu POST.
IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO
Letajici Image
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 18.3.1999 08:09:44
Resenim je double-buffering. Namlovat nove obrazky do bitmapy v pameti a pak to preprasknout. Cyklus smazat/namalovat vede k blikani. Viktor
-----Puvodni zprava-----
Od: Maly Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odeslano: 17. boezna 1999 12:14
Komu: #Delphi-K
Poedmit: Letajici Image
Udelal jsem si screen saver, na kterem leta logo a odrazi se od sten,
no, znate to... Jenomze mi ten Image tak osklive blika, nevite jak na to ?
//Hybe se snim pomoci Image.Left a Image.Top a je tam i jeden Label
//a ten dareba jeden blika taky.
Dobra.
begin 600 WINMAIL.DAT
M>)\^(BT'`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`3````4D4Z
M($QE=&%J:6-I($EM86=E`!D&`06 `P`.````SP<#`!(`" `)`"P`! `L`0$(zv)
M(zv) ,`#(zv)```,\'`P`2``(zv)`" `/``0`#(zv)$!"8 !`"$```!#0T-".$5#.3 P1$1$
M,C$Q.3-",S P,C!!1C-"1#DQ0P!4!P$#D 8`0 8``"$````+``(``0````L`
M(P```````P`F```````+`"D```````,`+(zv)```````P`V``````! `#D`(zv)-$7
M30YQO(zv)$>`' ``0````\```!,971A:FEC:2!);6%G90```(zv)%Q``$````;````
M`;YP:' BBTS!&MQ(zv)$=*1I0#(zv)*0]J] `I:>,(zv)`!X`'(zv)P!````!0```%--5% `
M````'(zv)`?# $````6````=FEK=&]R+FQO<W1A:T!C:&UI+F-Z`````P`&$"F]
M(&D#``<0M0$``!X`"! !````90```%)%4T5.24U*141/54),12U"549&15))
M3D=.04U,3U9!5$Y/5D5/0E)!6DM91$]"251-05!95E!!345424%004M43U!2
M15!205-+3D]55$-92TQ54U--05I!5"].04U!3$]6050``````(zv)$)$ $````H
M`P``) ,``)($``!,6D9U?F1GN0,`"(zv)!R8W!G,3(U%P%#`30+8&X.$# R.4T!
M]R "IP(`8V(zv)*P'. 970P(%1A: -QCP*#`% #U!"W,C,X``#J*(zv)+A80> ( <3
M`H '$R(zv)(zv)0T4"(zv)S(2)W!RWG$5,1*_$\\4U#,$1A6S_Q(1%C\700A5![("(zv)!L)
M%+-F?0J ",(zv)(zv).PEO#C ULP* "H%U8P!0"P-C`$']#P0S&+$+Q ?P!Y )\ =P
M-"!J%U!D"& "8&4MW&)U`2 &<0\(zv)+(zv)>P%S!I"0!V805 ;B- %U!O0&)R87IK
M>2'1("AB:70`P' D0'8(zv)0PJP!X!T:2!A)2%K+"!T)' 5T&45T&%S$FLCD'5T
M(N!#>6NK"D $(',`P'HC8"\7(6\'0"-#([ !`" EX )(zv):6IK`'!I(N!6*2 F
M`'+_(!4/8!'R"K$*A J$'\("T9D+PC$W*QH5(S$V*QJ9*1 S-(zv)% %=!O= 60
M!05 +2]24%PG9CF6=(zv)1P"Y G"8 (zv)>A70_3 Q,2-0+U,JMB[D+K$+$X,NY (`
M:2TQ-#0!0'$I$#$X, % #- S8V)0($]D.(zv)R#8A% 37<'0"^Q,&!$(^$#< ,1
M6V!33510.B'(zv)(>! "20`:RX5T"YD<R[&;1# -W!C>ETJM322_P>0-8$PT".0
M--<L8"+(zv)##"Q+\ X97H7(#H`.3L`63H`,CHS8#A'2P-P=8$TUR-$96QP:#-
MSDLX1R^B.I!D;3 Q+R!E--=,$2!A:(zv)W(zv))8!)^0# 9V4Q;S)Z+G08H(zv)ORW2K#
M50$`"V #(&H1$"&07P"0)W %``GA)W!A([!R_BPC(zv)"6(zv)*; $D$/A(B !D/E%
ML&]G)' EH 1P) %$(<LCP3!(zv)<R\`;BPJM".0+T4`.K$O`"7Q+DC ($K["? #
M<'H74#8P)?!$(zv)4 #^R7P)=%O)I I$".Q*0-%`>QE=B2(zv)%U!J)=$ZP28!(zv)C\J
MNB\O2'EB%U!51O%S(7)P`W!O/]8NCS]P`8 ED4[$5&]P)9%_(;$!D"&0)8 A
ML $``Z!,7P&(zv)/1!-!DQ!1(%D"L!EGF)0,E$"*0-*0GDN*KHM->)A4^L<T0!6
M$ ,`$! ``````P`1$ $````#`( 0_____T `!S#P7*(7#G&^`4 `"##P7*(7
M#G&^`0L``( (( 8``````, ```````!&``````.%`````````P`"(zv) (zv)(zv)!(zv)``
M````P ```````$8`````$(4````````#``6 "" &``````# ````````1(zv)``
M``!2A0``\ X``!X`)8 (( 8``````, ```````!&`````%2%```!````! ``
M`#(zv)N, `#`": "" &``````# ````````1(zv)`````!A0````````L`+X (( 8`
M`````, ```````!&``````Z%`````````P`P(zv) (zv)(zv)!(zv)``````P ```````$8`
M````$84````````#`#* "" &``````# ````````1(zv)`````8A0```````!X`
M08 (( 8``````, ```````!&`````#:%```!`````0`````````>`$* "" &
M``````# ````````1(zv)`````WA0```0````$`````````'(zv)!#(zv) (zv)(zv)!(zv)``````
MP ```````$8`````.(4```$````!`````````!X`/0`!````!0```%)%.B `
-`````P`--/TW``#O:84`
`
end
Text to html convertor
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.3.1999 08:28:52
Standardni soucast neznam, ale jde to prevest Wordem97. Jinak videl jsem
na nejakem CD Chip (urcite tak rok zpatky) od M.Cantu komponentu pro
prevod pascalskeho zdrojaku do HTML a snad (?) byl k tomu i zdrojak.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Linhart Petr [SMTP:Petr(zv)manwe.mius(tec)cz]
> Odesl�no: 18. b�ezna 1999 7:43
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Text to html convertor
>
> Zdravim,
> chtel bych se zeptat, zda nemate nekdo v podvedomi informaci o tom,
> zda neni
> soucasti windows nejaky standartni jednoduchy konvertor cisteho txt do
> html
>
>
> Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
> Mius a.s. (http://www.mius(tec)cz)
> Dlouha 2940
> 415 01 TEPLICE
> Czech Republic
Nahrani ikony z shell32.dll podle jmena resource
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 18.3.1999 08:44:03
Jak nahrat ikonu z shell32.dll podle jmena (respektive ciselneho
identifikatoru #xx) resource a ne podle jejiho indexu ? Funkce
LoadResource chce jako prvni parametr HModule. Jak ziskat HModule pro
shell32.dll ?DLL a QuickReport
[*] Scholze Libor <Libor.Scholze(zv)pvt(tec)cz> - 18.3.1999 08:46:50
> ----------
> Od: Petr Fejfar[SMTP:callnet(zv)telecom(tec)cz]
> Odesl�no: 17. b�ezna 1999 19:14
> Komu: Konference Delphi
> P�edm�t: Re: DLL a QuickReport
>
> Od: Milan Fiedler < milanf(zv)rts(tec)cz>
>
> �
> > volani DLL v poradku,zobrazi se text pro tisk zkonci a na FreeLibrary
> totalne vytuhne.
> > v Delphi 2 tam je QuickReport1 tam to funguje bez problemu,
> > ale v Delphi 3 QuickReport2 to takhle tuhne.
> �
> Hi,
> �
> ne ze bych nekdy neco delal z QuickReportem, ale kdyz Ti nikdo zatim
> neodpovedel, zkusim k tomu napsat nejake postrehy, protoze se mi nelibi
> necisty zpusob, kterym volas DLL a zpusob osetrovani exceptions. To Tvuj
> problem zrejme nevyresi, ale kdyz budes mit stesti, mohou Ti pomoci
> lokalizovat chybu:
> �
> 1. Funkcni typ pro LoadLibrary je HMODULE a ne THandle (i kdyz jsou dnes
> stejne velke, ale treba v nejake dalsi verzi Delphi nebudou...)
> 2. LoadLibrary() vraci v pripade neuspechu hodnotu 0, GetLastError chybovy
> kod. Tech <=32 platilo na API16 a i tam by se melo psat <=HINSTANCE_ERROR
> 3. Nemas osetreno volani FreeLibrary() pro invalid handle.
> 4. cele by to melo byt v bloku try-except
> �
> Takze za mnohem cistejsi bych povazoval toto:
> �
> procedure TForm1.Button1Click(Sender: TObject);
> const
> � cDLLName = 'ProjectDLL.dll';
> � cFUNName = 'TiskDAVA';
> var
> � LibHandle : HMODULE
> � TiskDAVA : TTiskDAVA;
> begin
> � try
> ��� LibHandle := LoadLibrary(cDLLName);
> ��� try
> ������� if LibHandle=0 then
> ��������� raise Exception.CreateFmt('Unable to load "%s",
> GetLastError=%8.8x',[cDLLName,GetLastError]);
> ������� (zv)TiskDAVA := GetProcAddress(LibHandle,cFUNName);
> ������� TiskDAVA;
> ��� finally
> ����� if LibHandle<>0 then
> ������� FreeLibrary(LibHandle);
> ��� end;
>
> � except
> ��� on E:Exception do
> ����� begin
> ��������� // LOG.LogFmt('Button1Click() raised "%s"',[E.Message]);
> ����� end;
> � end;
> �
> Zrovna tak bych odchytil exception ve vlastni funkci TiskDAVA:
> �
> procedure TiskDAVA; Export;
> begin
> � try
> ��� QuickReport.Preview;
> � except
> ��� on E:Exception do
> ����� begin
> ��������� // LOG.LogFmt('TiskDAVA() raised "%s"',[E.Message]);
> ����� end;
> � end;
> end;
> �
> �
> Bye, pf
> �
>
Kdyby Vam to neslo, tak problem byl v konferenci resen nedavno .
Jedno reseni je uz nekde v EXE, treba na zacatku, tuknout na objekt Printer,
napr. prectenim property Title. Potom se dynamicky volana DLL-ka ukoncuji v
pohode a vse funguje. V EXE se tato chyba neprojevuje, takze to se ukonci
taky bez problemu. QuickRep ale musi byt umisten do formulare - dedice
TFormu - napr. z palety Delphi, jinak nastava nejaka vyjimka, tusim pri
startu reportu.
_______________________________________________________
Libor Scholze
PVT a.s., o.z. Liberec
Voronezska 144
46171 Liberec 1
Tel. +48 5217313
Email: Libor.Scholze(zv)pvt(tec)cz
elementarny problem s C/S a neb jak objevit Amerik
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 18.3.1999 08:52:03
1. Zadna data se neztrati a nikdo po mne nebude rvat, ze si neco sam z vlastni vule smazal.
2. Kdyz DELETE neni, mam min prace. Jeste odstarnit INSERT a muzu tocit palcema mlynek.
Ale vazne: Kompletni dohledani cele historie databaze je velmi vyhodne, to snad nemusim vysvetlovat?
Viktor
-----Puvodni zprava-----
Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
Odeslano: 18. boezna 1999 1:18
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: elementarny problem s C/S a neb jak objevit Ameriku
>[Viktor] Ale houby, ty truhliku. Hrozne se mi libi ta idea, ze z
databaze
>se nikdy nic neodstrani. Ze jenom poroste. Vubec zadne DELETE
neexistuje.
>To se mi libi.
>
A proc?
Jaro
Letajici Image - zpetny beh?
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 18.3.1999 08:54:34
>Dale by me zajimalo co je "zatemnovaci impuls", s timhle pojmem jsem
>se
>jeste nesetkal.
Pri vykreslovani na monitoru, kresli paprsek radky zleva do prava
shora dolu.az dojde na konec, vrati se zpet do leveho horniho rohu.
Ok. To vraceni chvili trva a pokud mu v tuto chvili prepises obsah
videoram, nic neblikne. (nemelo by). Tento postup se vsak da pouzit
jen tam, kde se to stihne - tj. DOS - kde je program panem sveho casu
(procesorova).
Pod windows se to NEstihne z 80% :-) a pak jsou videt pulky starych
obrazovek a podobne srandy. (no - to cislo neni uplne presne spis vic
:-)
Zpetny beh paprsku lze vycitat z portu VGAcka a vracel to myslim i
BIOS.
Mti.Pomoc Grafika
[*] Josef Vopalensky <xvopale(zv)pluto.spsselib.hiedu(tec)cz> - 18.3.1999 09:05:48
Dobry den , mam maly dotaz , jak z jednoho bitmapu zkopiruji vyrez jinam a
zase spet?
Diky
Joe
PS:prosim podrobnejc sem zacatecnik :-(
Cached updates problem
[*] pjotr(zv)gratex.sk - 18.3.1999 09:06:52
nazdar
uz som na to prisiel v com bol problem.
po insertovani do mastra a pred insertovanim
do detail-u je nutne urobit QueryMaster.Post
a okrem toho poradie :
QueryDetail.ApplyUpdates;
QueryMaster.ApplyUpdates;
nie je spravne ,pretoze detail obsahuje
foreign key ktory je naviazany na rodicovsku
tabulku a teda najprv musi prebehnut
insert mastra a potom insert detail-u s ID
ukazujucim na rodicovsky zaznam.
Peter
> -----Original Message-----
> From: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Sent: Thursday, March 18, 1999 12:29 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Cached updates problem
>
>
> Ano tohle je lepsi poradi, ale tak jako tak pouzivat to timto zpusobem
> je velmi nevhodne.
> Ten detail je vporadku, protoze dataset obsahuje pouze radky patrici
> pro jeden master, ale
> pokud master obsahuje hodne radku, tak to bude trvat zatracene dlouho.
> Tam je vhodne
> pouzit ExecSQL na jeden radek.
> Jaro
>
>
> >Ahoj
> >
> >nezkousel jsem to, ale kdybych to zkousel tak bych zvolil
> >
> >
> >try
> > Database1.StartTransaction;
> > QueryDetail.ApplyUpdates;
> > QueryMaster.ApplyUpdates;
> > Database1.Commit;
> >except
> > QueryDetail.CancelUpdates;
> > QueryMaster.CancelUpdates;
> > Database1.Rollback;
> >end;
> >
> >
> >protoze s ApplyUpdates na Master tabulku ocekavam automaticky Refresh
> >tabulek, ktere jsou k ni v Detail vztahu.
> >
> >(Od doby kdy jsem si prohlidl SQL monitorem, co vse se vola pri uziti
> >Master-detail vztahu, tak Master-Detail s vyjimkou malych dem
> nepouzivam.)
> >
> >S pozdravem, Ladislav Nagy
> >
> >---------------------------------------------------------------------
> -------
> >--------------------Mgr. Ladislav Nagy, MFF UK & Baader Computer
> >lnag7384(zv)mail.kolej.mff.cuni(tec)cz
> >Ladislav.Nagy(zv)bcpraha(tec)cz tel: 02/24941962-3
> >
> Ochrana programu (WAS HDD factory serial + model n
[*] Martin Bohm <mbohm(zv)quelle.sk> - 18.3.1999 09:24:52
>Psalo se tu o HW klici, ale to se mi taky moc nelibi, protoze
>si predstavte, ze ten clovek bude mit takove programy dva/tri
>a porad lezt za bednu a vymenovat klice (a co kdyz bude chtit
>aby bezeli vsechny najednou ?), ale ochrana dle cisla disku
>taky nic neresi, i kdyz bych rekl, ze je lepsi, protoze kdyz
>menis disk, tak i znovu instalujes (tedy vetsina uzivatelu to
>tak dela), ale pokud se toto cislo disku zjisi pri instalaci,
>tak preci neni problem zkopirovat instalacni diskety a je po
>ochrane. Nekdo tu psal, ze neni problem ono programem zaznamenane
>cisilko najit a vymazat - to by asi normalni sekretarka ci skladnik
>nenasli (jiste, muzou si nekoho zjednat), ale nejaky nenapadny
>soubor s priponou treba dll se ztrati a nenajdes to... navic
>program muze mit ochranu, ze kdyz to cislo nekdo vymaze, ze se
>ihned ukonci, takze tudy by cesta nevedla, ale vazne nevim, co
>by mi branilo zkopirovat instalacni diskety (CD) /jedine moje
>vyse zminena technologie !/
>
> Dobra.
Ten HW kluc by sa mohol pouzivat len pri instalacii.
Martin
Pouziti komponenty
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.3.1999 09:26:56
Preji pekneho dne,
necha se nejakym prijemnym zpusobem zjistit, zda-li je vyuzita
nejaka komponenta?
Konkretne: mam komponentu Query1 v data modulu a potrebuji
zjistit, zda-li ji nekdo vyuziva. Prejmenovani nestaci, protoze se
prejmenuje automaticky v ostatnich vlastnostech.
Diky za odpovedi
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Letajici Image
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.3.1999 09:32:57
No to je jasne, protoze Canvas.Draw okopiruje bitmapu na Canvas a certa
se stara o to, KDY to dela. Ale CopyRect probiha v dobe, kdy na monitoru
neni zadny obrazek (to je vysvetleni pojmu "zatemnovaci impuls"). Tak
pouzij CopyRect a bude to pekne plynule. Kdyz tak posli kousek kodu,
kdyby to neslo a rad se na to mrknu.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Fryz, Zdenek [SMTP:fryz(zv)dcb(tec)cz]
> Odesl�no: 18. b�ezna 1999 7:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Letajici Image
>
> ahoj
>
> ja jsem zkousel nize uvedeny postup, protoze tahle vec me taky zajima,
> ale
> bitmapa, ktera
> se "posunuje" po formu mi presto blika ...
> Pro ilustraci uvadim podstatnou cast kodu.
> Delam nekde chybu ?
> Dale by me zajimalo co je "zatemnovaci impuls", s timhle pojmem jsem
> se
> jeste nesetkal.
>
> diky za odpoved
>
> Zdenek Fryz
>
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> nLeft:=5;
> nTop:=100;
> bB:=TBitmap.Create;
> bP:=TBitmap.Create;
> bB.Height:=32;
> bB.Width:=32;
> bB.Canvas.Brush.Color:=Color;
> bB.Canvas.FillRect(bB.Canvas.ClipRect);
>
> bP.Height:=32;
> bP.Width:=32;
> bP.Canvas.Brush.Color:=Color;
> bP.Canvas.FillRect(bP.Canvas.ClipRect);
> bP.Canvas.Draw(0,0,image1.picture.Graphic);
> end;
>
> procedure TForm1.PaintIma;
> begin
> Canvas.Draw(nLeft-2,nTop,bB);
> Canvas.Draw(nLeft,nTop,bP);
> end;
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> nLeft:=nLeft+2;
> if nLeft > Width then nLeft:=5;
> PaintIma;
> end;
>
> > -----P�vodn� zpr�va-----
> > Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> > Odesl�no: 18.03.1999 06:49
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Letajici Image
> >
> > To bude asi tim, ze neni osetren okamzik fyzickeho nakresleni
> > presunuteho Image. Kdyz se kresli mimo dobu zatemnovaciho impulsu,
> je
> > blikani zretelne. Pomoc je asi tato: Nadefinuj si dve TBitmapy
> vhodne
> > velikosti, do jedne nakopiruj to, co se ma nakreslit, jednu nech
> > prazdnou. A pak staci pomoci Draw nebo CopyRect apod. nakopirovat tu
> > pokreslenou bitmapu do okna, smaze se tak, ze do okna nakopirujes tu
> > prazdnou. Vtip je v tom, ze to se provadi v okamziku zatemnovaciho
> > impulsu, takze zadne bliknuti neni videt. Mam to vyzkousene a
> funguje
> > to.
> >
> >
> **********************************************************************
> **
> > *******************************
> >
> > Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> > Visual Basic
> >
> >
> **********************************************************************
> **
> > *******************************
> >
> >
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> > > Odesl�no: 17. b�ezna 1999 12:14
> > > Komu: #Delphi-K
> > > P�edm�t: Letajici Image
> > >
> > > Udelal jsem si screen saver, na kterem leta logo a odrazi se od
> sten,
> > > no, znate to... Jenomze mi ten Image tak osklive blika, nevite jak
> na
> > > to ?
> > >
> > > //Hybe se snim pomoci Image.Left a Image.Top a je tam i jeden
> Label
> > > //a ten dareba jeden blika taky.
> > >
> > > Dobra.
> > > Omluva - prazdny mail + TWebModule
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 18.3.1999 09:42:22
Omlouvam se za prazdny mail, nejak blbne mailserver (uz zase :-( )
Zaroven bych se rad zeptal na mozna trivialni vjec:
Kdyz si zkomplikuju priklad z D4 na WebServer Aplikaci, udelam odkaz na
cgi-bin na PersonalWeb Serveru, tak se mi podari spustit (HTML stranka) -
jakmile vsak kliknu na nejaky odkaz ktery uz ma neco provest databazove tak
mne to hodi xybu Unknown URL. Problemek je v property PathInfo. Tahlete
property odkazuje na adresar nebo co? Nejak ji nexapu a z knihy nejsem o nic
moudrejsi.
Ve web problematice jsem naprosty "greenhorn" ...
Diky
T.B.
Od: Martin <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. b�ezna 1999 9:37
P�edm�t: RE:
Dostali sme iba prazdny mail
-----P�vodn� spr�va-----
Od: tpplus(zv)zasova(tec)cz <tpplus(zv)zasova(tec)cz>
Corrupt Table/Index header u PARADOX tabulky
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 18.3.1999 09:59:36
Opravit asi ne, mozna pouzit to co uz odpovedel nekdo jiny, tj. zalozit
novou tabulku se stejnou strukturou a a addnout do ni zaznamy z te
poskozene. To lze pouzit pouze v pripade, ze jsou poskozene indexy, protoze
funkce Add v Paradoxu indexy nevyuziva.
Jak tomu predejit? Zkus nastavit v BDE Configuration|System|INIT promennou
LOCAL SHARE na True. Nam to jako prevence zabralo.
Martin
-----Puvodni zprava-----
Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
Odeslano: 18. boezna 1999 0:54
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Corrupt Table/Index header u PARADOX tabulky
-----Puvodni zprava-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 17. boezna 1999 11:33
Poedmit: RE: Corrupt Table/Index header u PARADOX tabulky
>Obnovit to jde tak, ze na instalacnim CD Paradox 7.0 je program TUtility,
ktery dokaze tabulku alespon
>castecne obnovit.
>
Jake s tim mate prakticke zkusenosti. Paradox 7 pouzivam od uvedeni na trh
a
do dokud jsem nezacal pouzivat D4 bylo vse OK a poskozene tabulky se daly
restaurovat. Od instalace D4 to vetsinou nejde, respektive tabulka se
neopravi a behem opravy totalne zatuhnou Windowsy. Pokud mate nejake
zkusenosti poradte.
eL..
Ochrana sw was:HDD factory serial + model number,
[*] Filip Jirs�k <Jirsak(zv)gymnacel(tec)cz> - 18.3.1999 10:00:23
To je podle mne jeden z nejvetsich problemu "kradeni" software - pokud nekdo
porebuje 2x za rok neco udelat v Corelu, ma si kvuli tomu kupovat Corel,
stale nove verze atd.? Mozna kdyby existovalo neco jako pujcovny SW, nebyl
by to takovy problem. Ja vim, u SW se tezko zaridi, aby si ho nenechali.
Treba nas vsemocny Microsoft nenecha dlouho ve stychu, a udela neco do
Windows 2010 SP 4.
Nejake podobne tendence zde pry byly uz u W95, ale nejak se to nelibilo.
Nebo by se to take vyresilo NC, kde by se ze serveru odecital pocet pouziti
programu. To ale ted asi nevyresime, to je otazka nekolika let.
Filip Jirsak
-----P�vodn� zpr�va-----
Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. b�ezna 1999 11:12
P�edm�t: Re: Ochrana sw was:HDD factory serial + model number, atd.>Haj hou!
>
>Osobne jsem presvedcen, ze jakakoliv ochrana SW je vyhazovani
>penez a casu oknem. Je mnohem lepsi zabyval se tim, jak zvysit
>pocet PLATICICH zakazniku nez investovat do neplaticu (ochrana
>totiz neni nic jineho). Plati to pro vsechny druhy sw produktu
>bez rozdilu.
>
>Maly ilustrativni priklad:
>Predpokladejme, ze existuje zarizeni na levne (za halere)
>kopirovani hmotnych veci (replikator ala Star Trek) a vy vyrabite
>kvalitni hi-tech vrtacky. Nutno jeste podotknout, ze vyvoj ve
>svete vrtacek jde tak rychle, ze kazdy model je za rok zastaraly
>a prekonany a max. do tri let je nutne koupit novy model. Ke
>kazde prodane vrtacce poskytujete uzivatelsky manual, lekarnicku,
>servis a slevu na koupi noveho modelu. Cena je treba 100.-
>(futuristickych) korun. Nekteri lide nemaji zbytecnych 100.-Kc
>ale potrebuji vrtacku (obcas doma vyvrtat do panelu diru na
>obrazek/policku). Ti si vrtacku nekoupi, ale pujci od kamarada a
>zreplikuji, nebo vyuziji sluzeb studentika ktery replikuje
>vrtacky za 5.-Kc (ma dokonce vsechny modely ktere vyrabite). Ted
>si predstavte, ze investujete cas a penize do ochrany proti
>replikaci, ktera ovsem neni 100% ucina a zpusobuje, ze vrtacka se
>po kazde 1 minute provozu zastavi a musi se znovu zapnout,
>pripadne funguje jen v casovem pasmu, kde byla zakoupena +-1 hod.
>(ala DVD). Vzdy kdyz uvedete novy model vrtacky na trh, je behem
>48h k dispozici upravena verze (na celem svete je jen cca 2000
>lidi schopnych teto upravy, jenze 30 z nich povazuje za otazku
>cti udelat to a poskytnout vsem zdarma. Dokonce mezi sebou
>soutezi, kdo to driv stihne), kterou lze volne replikovat. Nas
>studentik tedy muze stale vesele "obchodovat", a rovnez
>prilezitostny kutil nemusi investovat svych 100.-Kc. Navic ma
>prima vrtacku, ktera pracuje stale a ve vsech casovych pasmech.
>Absence lekarnicky mu nevadi neb je sikovny, vrtat umi i bez
>manualu a kdyz se mu vrtacka rozbije, koupi si za 5.-Kc novou
>repliku a ze stejneho duvodu nepotrebuje ani slevu na novy model.
>Legalni zakaznik se muze tesit z lekarnicky, slevy a servisu,
>bohuzel nadava na prerusovany provoz a tak si vedle legalni
>vrtacky jeste poridi "upravenou" repliku kterou bezne pouziva a
>original ulozi na pudu. Nutno jeste podotknouti, ze nekteri
>zakaznici by zaplatili max. 80.-Kc, jini jsou nesikovni a
>potrebuji lekarnicku, jini zase potrebuji aby vrtacka stale
>fungovala a servis je tedy pro ne dulezity, mnozi ale nevyuziji
>vsech sofistikovanych vlastnosti vasi vrtacky. Vsichni bez
>rozdilu by nejradeji zaplatili co nejmene, presneji kazdy by
>nejradsi platil jen za to, co nutne potrebuje (nekdo servis, jiny
>lekarnicku, dalsi zase skoleni, nekdo jen pouzdro na vrtacku nebo
>by ozelel automaticke utahovani rizene cidlem a mikroprocesorem a
>spokojil by se s utahovanim klickou).
>
>Kontrolni otazka: Kam se schovala navratnost investic do ochrany
>?
>Dalsi otazka: Jak zvysit obrat + zisk ?
>
>Problem s QuickReportem
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 18.3.1999 10:11:56
Pouzivam QuickReport v Delphi4 a obcas pri ukonceni formulare s QR to
zahlasi Access violation. Nevito nekdo, jaka je pricina tohoto stavu?
Pavel
Ochrana sw was:HDD factory serial + model number,
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.1999 10:30:24
Puvodni zprava, kterou napsal Filip Jirs�k dne 18 Mar 99,:
> To je podle mne jeden z nejvetsich problemu "kradeni" software - pokud
> nekdo porebuje 2x za rok neco udelat v Corelu, ma si kvuli tomu kupovat
> Corel, stale nove verze atd.? Mozna kdyby existovalo neco jako pujcovny
Moc to sem uz nepatri a samozrejme nema canu o tom polemizovat, protoze
vetsina nelegalnich uzivatelu si stejne nejaky duvod a omluvu sveho
kriminalniho chovani najde. Ale jsou dve vysvetleni:
Pokud se potrebuji 2x rocne projet v Chevroletu, tak ho take nepujdu
ukrast. A kdo by mi ho asi pujcil?
Ja napriklad nejsem grafik. Mam kvanta software pro programovani, Delphi,
spoustu knihoven apod. Tam investuji nejvice. Ale do grafiky tolik ne,
protoze to neni moje hlavni cinnost. Ale obcas neco potrebuji. Takze
jsem si pred roky koupil v nejake akci Corel 3.0 za asi 1500 korun
a ten stale pouzivam. Take mam Zoner Callisto, ktery stoji neco
pres 2 tisice. Pak jsem vyuzil jedne akce v USA a koupil jsem
si takovy balik grafickych programu a obrazku, vyslo me to na asi
7 tisic a je v tom trochu starsi CorelXARA, pomerne novy PhotoPaint,
nekolik dalsich programu (treba CorelSCAN) a nekolik set tisic
klipartu. Clovek muze nakoupit i levne legalni software, kdyz chce.
Jenze lidi vetsinou 2x rocne nutne potrebuji Corel 8 a to nejnovejsi.
A pak hledaji vymluvy, proc si to nemohli koupit...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Jak ulozit TStream do souboru
[*] fiser(zv)gbn(tec)cz - 18.3.1999 10:42:32
Vazeni pratele,
mam nasledujici problem. Nevim, jak ulozit Stream, ktery mi vraci jedna
komponenta, do souboru na disk. Jedna se mi o binarni zapis. Ne textovy.
Roman Fiser, developer
BCB 4 tak trochu off topic
[*] iturcan(zv)gamo.sk - 18.3.1999 11:03:41
Hi All
Uvodom sorry za tak trochu off topic
...
Tak mi vcera prislo CD s Borland C++Builder 4 Trial Edition, nuz a skamenel
som uzasom nad sposobom instalacie,
tohoto produktu.
Postup je nasledovny:
1. Musite sa zaregistrovat na www.borland.com, kde musite zadat unikatne
cislo vaseho CD , toto cislo Vam program vypise
2. Na zaklade zaregistrovania Vam pride e-mail s heslom na instalaciu
hmm, tak to ano, celkom dobra ochrana proti skopirovaniu CD, ktovie ci to
je obdobne aj u ostrej verzie ( spominam si na prieskum ktory robili v
Inprise u pobociek po celom svete, ohladom sprisnenia ochrany produktov),
nie ze by som obhajoval
pocitacove piractvo ale chudaci ktory nemaju pristup na Internet.
Zaujimave je tiez ze na strankach www.borland.com sa daju najst informacie
o troch verziach BCB 4, tj. aj o verzii Standard, ale hold, to je asi tym
ze inak sa predava v USA a inak v EU .
Mozeme len sucho skonstatovat , co prinesie D5, v BCB 4.0 toho na prvy
pohlad moc noveho nie je, prave naopak stale je VCL v Pascale a stale su tu
tie iste zastarale podporne nastroje BDE vo verzii 5.1 a Database Desktop
7.0 , ktory si v tomto stave pamatam uz od verzie Delphi 3 :)
Ivan Turcan
GAMO a.s.
Enter to TAB (was: PARADOX - SAMBA)
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 18.3.1999 11:11:37
> Potreboval bych premapovat ENTER klavesu na TAB.
> Z klavesy Enter delam Tab nasledovne (jen pro ,,vhodne``
> komponenty):
>
> FormKeyPress(TObject Sender, var Key: char);
> begin
> if not ((Sender is TButton) or (Sender is TBitBtn) or (Sender is
> TMeno) or (Sender is TRichEdit)) then
> if (Key = VK_RETURN)
> begin
> Key := 0;
> SelectNext(ActiveControl, TRUE, TRUE);
> end;
> end;
... hm, a neni sender vzdycky ta forma??? kdyz chces zjistovat, odkud
to prislo, tak by to asi melo bejt na kazdy ty komponente v
OnKeyPress... coz se mi jevi jako blbost, dat to komponente a pak
zjistovat, ze to neni ta spravna ;-))
> Vysledok bol, ze ignoroval ktora komponenta to poslala a vzdy isiel dalej, t.j. aj pri Memo, co vsak nie je vhodne.
> Na forme som dal KeyPreview=True
> V com moze byt problem?
> Delphi 3. Pri watch Sender=[].
no, ja pouzivam toto:
procedure TForm.KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then Perform(WM_NEXTDLGCTL, 0, 0);
end;
a pridam to kazde komponente na udalost OnKeyDown, ktera ma Enter
misto Tab pouzit /edit boxy.../
roman
master & slave
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 18.3.1999 11:11:41
dik za info,
presne takhle to funguje pro Paradox tab., ale ja bych to potreboval
pro tabulky dBase za pouziti TTable a tam je muj kamen urazu...
podle helpu by to melo byt stejny, pouzil jsem uplne shodny postup
jako u Paradoxu a presto se pri pouziti "IndexFieldNames:='id;jmeno'"
objevovala hlaska, ze vybrane polozky nemaji index /indexovane byly/
jde vubec v dBase vyvorit index ve tvaru "pole1;pole2"? /samozrejme,
ze expression pole1+pole2, ale to je neco jinyho ni?/
roman
> Master-Detail vazba se realizuje pres
> TTable.MasterFields
> nebo
> TQuery: select ... where id=:id
>
> Chces-li vazat podle id a tridit napr podle abecedy, muzes pouzit
>
> TTable.IndexFieldNames:='id;jmeno';
> To pujde. V Paradoxu musis navic mit prislusny index, v SQL ne.
>
> TQuery: select ... where id=:id order by jmeno
> Pokud tam bude nebude index, bude to pomale.
>
> Pres vice polozek to jde take:
> MasterFields:='id1;id2'
> nebo
> select ... where id1=:id1 and id2=:id2
Jak ulozit TStream do souboru
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.3.1999 11:14:49
Haj hou!
From: fiser(zv)gbn(tec)cz <fiser(zv)gbn(tec)cz>
>mam nasledujici problem. Nevim, jak ulozit Stream, ktery mi
vraci jedna
>komponenta, do souboru na disk. Jedna se mi o binarni zapis. Ne
textovy.
Vytvor si TFileStream a a pouzij jeho metodu CopyFrom.
Letajici Image
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 18.3.1999 11:15:08
kdyz pouziju v procedure PaintIma misto Canvas.Draw .... :
Canvas.CopyRect(Rect(nLeft-2,nTop,nLeft-2+bB.Width,nTop+bB.Height),bB.canvas
,bB.canvas.ClipRect);
Canvas.CopyRect(Rect(nLeft,nTop,nLeft+bP.Width,nTop+bP.Height),bP.canvas,bP.
canvas.ClipRect);
blika to prakticky stejne ...
.. co se da delat ?
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> Odesl�no: 18.03.1999 09:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Letajici Image
>
> No to je jasne, protoze Canvas.Draw okopiruje bitmapu na Canvas a certa
> se stara o to, KDY to dela. Ale CopyRect probiha v dobe, kdy na monitoru
> neni zadny obrazek (to je vysvetleni pojmu "zatemnovaci impuls"). Tak
> pouzij CopyRect a bude to pekne plynule. Kdyz tak posli kousek kodu,
> kdyby to neslo a rad se na to mrknu.
>
> ************************************************************************
> *******************************
>
> Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> Visual Basic
>
> ************************************************************************
> *******************************
>
>
>
> > -----P�vodn� zpr�va-----
> > Od: Fryz, Zdenek [SMTP:fryz(zv)dcb(tec)cz]
> > Odesl�no: 18. b�ezna 1999 7:56
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Letajici Image
> >
> > ahoj
> >
> > ja jsem zkousel nize uvedeny postup, protoze tahle vec me taky zajima,
> > ale
> > bitmapa, ktera
> > se "posunuje" po formu mi presto blika ...
> > Pro ilustraci uvadim podstatnou cast kodu.
> > Delam nekde chybu ?
> > Dale by me zajimalo co je "zatemnovaci impuls", s timhle pojmem jsem
> > se
> > jeste nesetkal.
> >
> > diky za odpoved
> >
> > Zdenek Fryz
> >
> >
> > procedure TForm1.FormCreate(Sender: TObject);
> > begin
> > nLeft:=5;
> > nTop:=100;
> > bB:=TBitmap.Create;
> > bP:=TBitmap.Create;
> > bB.Height:=32;
> > bB.Width:=32;
> > bB.Canvas.Brush.Color:=Color;
> > bB.Canvas.FillRect(bB.Canvas.ClipRect);
> >
> > bP.Height:=32;
> > bP.Width:=32;
> > bP.Canvas.Brush.Color:=Color;
> > bP.Canvas.FillRect(bP.Canvas.ClipRect);
> > bP.Canvas.Draw(0,0,image1.picture.Graphic);
> > end;
> >
> > procedure TForm1.PaintIma;
> > begin
> > Canvas.Draw(nLeft-2,nTop,bB);
> > Canvas.Draw(nLeft,nTop,bP);
> > end;
> >
> > procedure TForm1.Timer1Timer(Sender: TObject);
> > begin
> > nLeft:=nLeft+2;
> > if nLeft > Width then nLeft:=5;
> > PaintIma;
> > end;
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> > > Odesl�no: 18.03.1999 06:49
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: RE: Letajici Image
> > >
> > > To bude asi tim, ze neni osetren okamzik fyzickeho nakresleni
> > > presunuteho Image. Kdyz se kresli mimo dobu zatemnovaciho impulsu,
> > je
> > > blikani zretelne. Pomoc je asi tato: Nadefinuj si dve TBitmapy
> > vhodne
> > > velikosti, do jedne nakopiruj to, co se ma nakreslit, jednu nech
> > > prazdnou. A pak staci pomoci Draw nebo CopyRect apod. nakopirovat tu
> > > pokreslenou bitmapu do okna, smaze se tak, ze do okna nakopirujes tu
> > > prazdnou. Vtip je v tom, ze to se provadi v okamziku zatemnovaciho
> > > impulsu, takze zadne bliknuti neni videt. Mam to vyzkousene a
> > funguje
> > > to.
> > >
> > >
> > **********************************************************************
> > **
> > > *******************************
> > >
> > > Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> > > Visual Basic
> > >
> > >
> > **********************************************************************
> > **
> > > *******************************
> > >
> > >
> > >
> > > > -----P�vodn� zpr�va-----
> > > > Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> > > > Odesl�no: 17. b�ezna 1999 12:14
> > > > Komu: #Delphi-K
> > > > P�edm�t: Letajici Image
> > > >
> > > > Udelal jsem si screen saver, na kterem leta logo a odrazi se od
> > sten,
> > > > no, znate to... Jenomze mi ten Image tak osklive blika, nevite jak
> > na
> > > > to ?
> > > >
> > > > //Hybe se snim pomoci Image.Left a Image.Top a je tam i jeden
> > Label
> > > > //a ten dareba jeden blika taky.
> > > >
> > > > Dobra.
> > > > Eval
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 18.3.1999 11:31:45
Mam v tabulce ulozene vyrazy ve tvaru (napr):
'AA + BB >= CC'
'DD * 2 = EE'
'CC + FF = 0' , atd...
Da se nejakym zpusobem zabezpecit
vyhodnoceni teto podminky, bez toho
abych to musel rozlozit a postupne
vypocitavat?
Ve FoxPro existovala funkce EVAL
(nebo pomoci &Podminka. ),
ktera toto udelala, ale v Delphi
asi nic takovyho neni.
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+Omluva - prazdny mail + TWebModule
[*] zavada(zv)atcomp(tec)cz - 18.3.1999 11:33:00
PathInfo se tyka ISAPI dll. Pokud jsi pri vytvareni Tve WS
aplikace zvolil typ aplikace ISAPI/NSAPI dll, muze Ti byt
velmi uzitecna, pokud mas CGI nebo WinCGI aplikaci, tam je
to jinak. U ISAPI Dll jsi schopen podle hodnoty PathInfo
rozvetvit funkcnost :
napr volani v browseru
http://tvojeWSAPP.dll/Cesta1 provede kod, kter� mas
prirazen ve Webmodulu.Actions[?].OnAction u akce, jejiz
PathInfo = /Cesta1
http://tvojeWSAPP.dll/Cesta2 provede kod, kter� mas
prirazen ve Webmodulu.Actions[?].OnAction u akce, jejiz
PathInfo = /Cesta2
atd.
ISAPI Dll jsou standardem pro pridavne moduly MS Internet
Information Serveru.
Osobne povazuji ISAPI dll za velmi silny nastroj, pomoci
nejz lze dostat na Web libovolna data bez ohledu na druh a
puvod (texty, obrazky, technologicka data ctena z portu,
carove kody, atd.) diky faktu, ze cely kod je generovany z
Delphi a tedy programator muze vyuzit spoustu hotovych
komponent.
S pozdravem
Ji�� Z�vada
Kr��kova 221/2
721 00 Ostrava 21
zavada(zv)atcomp(tec)cz
> -----P�vodn� zpr�va-----
> Od: Tomas Balusek [SMTP:tpplus(zv)zasova(tec)cz]
> Odesl�no: 18. b�ezna 1999 9:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Omluva - prazdny mail + TWebModule
>
> Omlouvam se za prazdny mail, nejak blbne mailserver (uz
> zase :-( )
>
> Zaroven bych se rad zeptal na mozna trivialni vjec:
> Kdyz si zkomplikuju priklad z D4 na WebServer Aplikaci,
> udelam odkaz na
> cgi-bin na PersonalWeb Serveru, tak se mi podari spustit
> (HTML stranka) -
> jakmile vsak kliknu na nejaky odkaz ktery uz ma neco
> provest databazove tak
> mne to hodi xybu Unknown URL. Problemek je v property
> PathInfo. Tahlete
> property odkazuje na adresar nebo co? Nejak ji nexapu a z
> knihy nejsem o nic
> moudrejsi.
> Ve web problematice jsem naprosty "greenhorn" ...
>
> Diky
> T.B.
>
>
> Od: Martin <geoplan(zv)pp.sinet.sk>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 18. b�ezna 1999 9:37
> P�edm�t: RE:
>
>
> Dostali sme iba prazdny mail
>
> -----P�vodn� spr�va-----
> Od: tpplus(zv)zasova(tec)cz <tpplus(zv)zasova(tec)cz>
> Letajici Image
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 18.3.1999 11:37:12
>kdyz pouziju v procedure PaintIma misto Canvas.Draw .... :
>
>Canvas.CopyRect(Rect(nLeft-2,nTop,nLeft->2+bB.Width,nTop+bB.Height),b
B.canvas
>,bB.canvas.ClipRect);
>
>Canvas.CopyRect(Rect(nLeft,nTop,nLeft+bP.Width,
> nTop+bP.Height),bP.canvas,bP.canvas.ClipRect);
>
>blika to prakticky stejne ...
>
>.. co se da delat ?
No jenom poznamka - kdyz je Timage prekryt (nebo nevykreslovan cely -
z podokna:-) tak blika furt. Jinak - pokud je sam - uz jsem s tim cosi
zkousel a byl slusny.
Pokud je bitmapa prekryvana necim jinym, je lepsi to nez nad ni,
kreslit primo do te bitmapy.
Mti.Corba
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 18.3.1999 11:55:59
Ahoj,
nev�te pros�m n�kdo, kde z�skat informace ke Corb� - vo co go, pou�it� a
pod. ?
Va�ek
PS: P�i na�ich "excelentn�ch" link�ch nelze n�jak v�razn� hledat na netu.
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Text to html convertor
[*] Lubos <bruce(zv)pobox.sk> - 18.3.1999 11:59:37
> > Zdravim,
> > chtel bych se zeptat, zda nemate nekdo v podvedomi informaci o tom,
> > zda neni
> > soucasti windows nejaky standartni jednoduchy konvertor cisteho txt do
> > html
Z TEXTU DO HTML ?
Tak to ti urobim, ak chces. Ved je to primitivne.
Naopak je to horsie.
/LH
HDD factory serial + model number, atd.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.3.1999 12:03:49
Viliam Mlich wrote:
> > Ja bych doporucil prezervativ. Uz ho pouzivam k plne spokojenosti
> > dlouha leta. :-O
>
> Prezervativ by mali pouzivat hlavne ti debilni programatori, co
> vymyslaju do svojich programov podobne ochrany, (ako ta, o ktorej sa tu
> placa uz tyzden a kvoli ktorej si musi uzivatel do pocitaca dokupit k SCSI
> ci network este aj IDE disk a este k tomu ho mat na primary master). Aby
> sa nepremnozili.
Ja jsem kdysi slysel cosi o koulich, veseni a pruvanu...
> Kritizovat dokaze kazdy, treba povedat aj, ako to robit dobre.
>
> Staci sa podivat, ako chrania svoje programy ti, co na nich najviac
> zarobili. V celosvetovom meritku je to Microsoft, v domacom
> Software602.
Zadavani serialu pri instalaci povazuji jeste tak za nejrozumnejsi, v
nekterych zvlastnich (sic!) pripadech jsem ochoten prekousnout
jeste HW klic. Ale nekopirovatelna disketa mi nesmi do domu. A
ani nepomyslim o tom, ze bych necim obdobnym obtezoval sve
zakazniky.
Pravda, k Lokalizatoru take dodavam SW klic, ale ten se jednou
prifari k programu a dal o sobe nedava nijak vedet. A je mozne ho
migrovat spolu s programem kdykoliv kamkoliv. Kradeni tedy
nebranim, ale pripadnou kradez jsem schopen za urcitych
okolnosti poznat. :-)
A ten klic tam mam spise nez kvuli ochrane k vlastnimu pohodli,
abych nemusel kompilovat zvlast ostrou a trial verzi, a aby si
zakaznik sam mohl stahovat vsechny updaty a me to neobtezovalo
jejich rozesilanim.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
elementarny problem s C/S
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.3.1999 12:03:49
Jiri Heinisch wrote:
>> Na tohle znam jedno reseni: seznam partneru je uveden
>> samozrejme v samostatnem ciselniku, a do faktury se z nej
>> jednoduse dosadi. Na druhe strane, pokud si koupis jednou za
>
> Na to mohu poradit takovou pomucku kterou pou �vaj� mi klienti.
>
> Do adresare dosadit fiktivn� firmu se jmenem "Drobny nakup a prodej " a
> tim padem jsou osetreny vstupy v programu kde se vyzaduje cislo zakaznika
> a nemusim kazdeho trafikanta registrovat.
:-)) Nepochybne tesknis po dobach, kdy se kvuli uspore mista psal
rok pouze na dve posledni mista. Dnes se tento pristup nevyplaci.
Obdobne to muze byt s ucetnimi doklady pri navsteve hloubkove
revize z FU.
Je nesmysl setrit at to stoji co to stoji. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TWebModule
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.3.1999 12:15:32
>pokud mas CGI nebo WinCGI aplikaci, tam je to jinak
Trochu si s tim taky ted "hraju" a uplne totez zle udelat
i u CGI... netvrdim, ze to nejak vnitrne vnitrne implementovano
stejne, jsem taky zacatecnik, ale pouzivani PathInfo je v dobe
navrhu aplikace uplne stejne.
Mam k teto problematice taky jednu otazku, predstavte si
takovouto (jiz existujici) HTML stranku :
<HTML> bla bla bla
<H1> Aktualni cas : ????? </H1>
a zase bla bla bla
A nevim, jak tam ten cas dostat jinak, nez odkazem...
...potom ale musi uzivatel klepnout na ten odkaz :
<HTML> bla bla bla
<H1> Aktualni cas : <A HREF="MyWSApp.dll/GetTime"> klepni sem </A> </H1>
a zase bla bla bla
Jde to nejak udelat bez odkazu ? (reseni, vygenerovat pomoci MyWSApp
celou stranku, neni mozne s duvodu jeji priiiilisne velikosti)
Obecne : jde vlozit obsah /ne odkaz!/ jedne stranky do druhe ?
Nejakym HTML prikazem ? Jakym ?
Dobra.
> ----------
> Od: zavada(zv)atcomp(tec)cz[SMTP:zavada(zv)atcomp(tec)cz]
> Odesl�no: 18. b�ezna 1999 11:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Omluva - prazdny mail + TWebModule
>
> PathInfo se tyka ISAPI dll. Pokud jsi pri vytvareni Tve WS
> aplikace zvolil typ aplikace ISAPI/NSAPI dll, muze Ti byt
> velmi uzitecna, pokud mas CGI nebo WinCGI aplikaci, tam je
> to jinak. U ISAPI Dll jsi schopen podle hodnoty PathInfo
> rozvetvit funkcnost :
>
> napr volani v browseru
>
> http://tvojeWSAPP.dll/Cesta1 provede kod, kter� mas
> prirazen ve Webmodulu.Actions[?].OnAction u akce, jejiz
> PathInfo = /Cesta1
> http://tvojeWSAPP.dll/Cesta2 provede kod, kter� mas
> prirazen ve Webmodulu.Actions[?].OnAction u akce, jejiz
> PathInfo = /Cesta2
>
> atd.
>
> ISAPI Dll jsou standardem pro pridavne moduly MS Internet
> Information Serveru.
>
> Osobne povazuji ISAPI dll za velmi silny nastroj, pomoci
> nejz lze dostat na Web libovolna data bez ohledu na druh a
> puvod (texty, obrazky, technologicka data ctena z portu,
> carove kody, atd.) diky faktu, ze cely kod je generovany z
> Delphi a tedy programator muze vyuzit spoustu hotovych
> komponent.
>
> S pozdravem
>
>
> Ji�� Z�vada
> Kr��kova 221/2
> 721 00 Ostrava 21
>
> zavada(zv)atcomp(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: Tomas Balusek [SMTP:tpplus(zv)zasova(tec)cz]
> > Odesl�no: 18. b�ezna 1999 9:42
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Omluva - prazdny mail + TWebModule
> >
> > Omlouvam se za prazdny mail, nejak blbne mailserver (uz
> > zase :-( )
> >
> > Zaroven bych se rad zeptal na mozna trivialni vjec:
> > Kdyz si zkomplikuju priklad z D4 na WebServer Aplikaci,
> > udelam odkaz na
> > cgi-bin na PersonalWeb Serveru, tak se mi podari spustit
> > (HTML stranka) -
> > jakmile vsak kliknu na nejaky odkaz ktery uz ma neco
> > provest databazove tak
> > mne to hodi xybu Unknown URL. Problemek je v property
> > PathInfo. Tahlete
> > property odkazuje na adresar nebo co? Nejak ji nexapu a z
> > knihy nejsem o nic
> > moudrejsi.
> > Ve web problematice jsem naprosty "greenhorn" ...
> >
> > Diky
> > T.B.
> >
> >
> > Od: Martin <geoplan(zv)pp.sinet.sk>
> > Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> > Datum: 18. b�ezna 1999 9:37
> > P�edm�t: RE:
> >
> >
> > Dostali sme iba prazdny mail
> >
> > -----P�vodn� spr�va-----
> > Od: tpplus(zv)zasova(tec)cz <tpplus(zv)zasova(tec)cz>
> >
> Problem s QuickReportem
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 18.3.1999 12:19:41
>Pouzivam QuickReport v Delphi4 a obcas pri ukonceni formulare s QR to
>zahlasi Access violation. Nevito nekdo, jaka je pricina tohoto stavu?
v jejich demo prikladech (qr304) se dorucuje:
* volat Application.ProcessMessages po
MyReport.Preview;
Application.ProcessMessages;
* neuvolnovat dilci reporty kompozitni sestavy bezpostredne po
MyCompositeReport.Preview;
protoze se to pry z Preview ihned vrati a neceka na ukonceni preview form.
Ale to se mi nikdy nepodarilo navodit - ani v jejich demo.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
HDD factory serial + model number, atd.
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 18.3.1999 12:27:17
> Staci sa podivat, ako chrania svoje programy ti, co na nich najviac
> zarobili. V celosvetovom meritku je to Microsoft, v domacom
> Software602.
Jo to je fakt. Microsofti produkty se chrani minimalne a na Corel 8.0 CZ
je dokonce licencni cislo na podkladu instalatoru, takze si je staci pouze
precist.
Martin
-----Puvodni zprava-----
Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Odeslano: 18. boezna 1999 12:04
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: HDD factory serial + model number, atd.
Viliam Mlich wrote:
> > Ja bych doporucil prezervativ. Uz ho pouzivam k plne spokojenosti
> > dlouha leta. :-O
>
> Prezervativ by mali pouzivat hlavne ti debilni programatori, co
> vymyslaju do svojich programov podobne ochrany, (ako ta, o ktorej sa tu
> placa uz tyzden a kvoli ktorej si musi uzivatel do pocitaca dokupit k
SCSI
> ci network este aj IDE disk a este k tomu ho mat na primary master). Aby
> sa nepremnozili.
Ja jsem kdysi slysel cosi o koulich, veseni a pruvanu...
> Kritizovat dokaze kazdy, treba povedat aj, ako to robit dobre.
>
> Staci sa podivat, ako chrania svoje programy ti, co na nich najviac
> zarobili. V celosvetovom meritku je to Microsoft, v domacom
> Software602.
Zadavani serialu pri instalaci povazuji jeste tak za nejrozumnejsi, v
nekterych zvlastnich (sic!) pripadech jsem ochoten prekousnout
jeste HW klic. Ale nekopirovatelna disketa mi nesmi do domu. A
ani nepomyslim o tom, ze bych necim obdobnym obtezoval sve
zakazniky.
Pravda, k Lokalizatoru take dodavam SW klic, ale ten se jednou
prifari k programu a dal o sobe nedava nijak vedet. A je mozne ho
migrovat spolu s programem kdykoliv kamkoliv. Kradeni tedy
nebranim, ale pripadnou kradez jsem schopen za urcitych
okolnosti poznat. :-)
A ten klic tam mam spise nez kvuli ochrane k vlastnimu pohodli,
abych nemusel kompilovat zvlast ostrou a trial verzi, a aby si
zakaznik sam mohl stahovat vsechny updaty a me to neobtezovalo
jejich rozesilanim.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Eval
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 18.3.1999 12:51:03
On Thu, 18 Mar 1999, Jezek Petr, Ing. (DELVINA) wrote:
> Mam v tabulce ulozene vyrazy ve tvaru (napr):
> 'AA + BB >= CC'
> 'DD * 2 = EE'
> 'CC + FF = 0' , atd...
>
> Da se nejakym zpusobem zabezpecit
> vyhodnoceni teto podminky, bez toho
> abych to musel rozlozit a postupne
> vypocitavat?
> Ve FoxPro existovala funkce EVAL
> (nebo pomoci &Podminka. ),
> ktera toto udelala, ale v Delphi
> asi nic takovyho neni.
Ahoj,
Ja bych si myslel, ze by se to dalo resit pomoci nejakyho "run-time Pascal
compileru", takze bych doporucoval kouknout na prispevky se subj
"neco jako run-time Pascal compiler"
caj
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Oracle 8.0.5 typ long
[*] Michal Kaspar <mkaspar(zv)unreal(tec)cz> - 18.3.1999 13:07:37
Mame problem, nedari se nam otevrit v Delphi 4 C/S tabulku s typem long na
serveru Oracle 8.0.5.
K teto tabulce pristupujeme prostrednictvim komponenty TTable. Vsechny rady
vitame.
Odpovedi muzete posilat na adresu : mkaspar(zv)unreal(tec)cz
Letajici Image
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.3.1999 13:13:01
Hmmm, tak ted nevim. Mohl bys mi na soukromy mail poslat nejakou cast
toho projektu, ktery by byl chodivy (mam D3 standard) ?
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Fryz, Zdenek [SMTP:fryz(zv)dcb(tec)cz]
> Odesl�no: 18. b�ezna 1999 11:15
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Letajici Image
>
> kdyz pouziju v procedure PaintIma misto Canvas.Draw .... :
>
>
> Canvas.CopyRect(Rect(nLeft-2,nTop,nLeft-2+bB.Width,nTop+bB.Height),bB.
> canvas
> ,bB.canvas.ClipRect);
>
> Canvas.CopyRect(Rect(nLeft,nTop,nLeft+bP.Width,nTop+bP.Height),bP.canv
> as,bP.
> canvas.ClipRect);
>
> blika to prakticky stejne ...
>
> .. co se da delat ?
>
> Zdenek Fryz
>
> > -----P�vodn� zpr�va-----
> > Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> > Odesl�no: 18.03.1999 09:33
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Letajici Image
> >
> > No to je jasne, protoze Canvas.Draw okopiruje bitmapu na Canvas a
> certa
> > se stara o to, KDY to dela. Ale CopyRect probiha v dobe, kdy na
> monitoru
> > neni zadny obrazek (to je vysvetleni pojmu "zatemnovaci impuls").
> Tak
> > pouzij CopyRect a bude to pekne plynule. Kdyz tak posli kousek kodu,
> > kdyby to neslo a rad se na to mrknu.
> >
> >
> **********************************************************************
> **
> > *******************************
> >
> > Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> > Visual Basic
> >
> >
> **********************************************************************
> **
> > *******************************
> >
> >
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Fryz, Zdenek [SMTP:fryz(zv)dcb(tec)cz]
> > > Odesl�no: 18. b�ezna 1999 7:56
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: RE: Letajici Image
> > >
> > > ahoj
> > >
> > > ja jsem zkousel nize uvedeny postup, protoze tahle vec me taky
> zajima,
> > > ale
> > > bitmapa, ktera
> > > se "posunuje" po formu mi presto blika ...
> > > Pro ilustraci uvadim podstatnou cast kodu.
> > > Delam nekde chybu ?
> > > Dale by me zajimalo co je "zatemnovaci impuls", s timhle pojmem
> jsem
> > > se
> > > jeste nesetkal.
> > >
> > > diky za odpoved
> > >
> > > Zdenek Fryz
> > >
> > >
> > > procedure TForm1.FormCreate(Sender: TObject);
> > > begin
> > > nLeft:=5;
> > > nTop:=100;
> > > bB:=TBitmap.Create;
> > > bP:=TBitmap.Create;
> > > bB.Height:=32;
> > > bB.Width:=32;
> > > bB.Canvas.Brush.Color:=Color;
> > > bB.Canvas.FillRect(bB.Canvas.ClipRect);
> > >
> > > bP.Height:=32;
> > > bP.Width:=32;
> > > bP.Canvas.Brush.Color:=Color;
> > > bP.Canvas.FillRect(bP.Canvas.ClipRect);
> > > bP.Canvas.Draw(0,0,image1.picture.Graphic);
> > > end;
> > >
> > > procedure TForm1.PaintIma;
> > > begin
> > > Canvas.Draw(nLeft-2,nTop,bB);
> > > Canvas.Draw(nLeft,nTop,bP);
> > > end;
> > >
> > > procedure TForm1.Timer1Timer(Sender: TObject);
> > > begin
> > > nLeft:=nLeft+2;
> > > if nLeft > Width then nLeft:=5;
> > > PaintIma;
> > > end;
> > >
> > > > -----P�vodn� zpr�va-----
> > > > Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> > > > Odesl�no: 18.03.1999 06:49
> > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > P�edm�t: RE: Letajici Image
> > > >
> > > > To bude asi tim, ze neni osetren okamzik fyzickeho nakresleni
> > > > presunuteho Image. Kdyz se kresli mimo dobu zatemnovaciho
> impulsu,
> > > je
> > > > blikani zretelne. Pomoc je asi tato: Nadefinuj si dve TBitmapy
> > > vhodne
> > > > velikosti, do jedne nakopiruj to, co se ma nakreslit, jednu nech
> > > > prazdnou. A pak staci pomoci Draw nebo CopyRect apod.
> nakopirovat tu
> > > > pokreslenou bitmapu do okna, smaze se tak, ze do okna
> nakopirujes tu
> > > > prazdnou. Vtip je v tom, ze to se provadi v okamziku
> zatemnovaciho
> > > > impulsu, takze zadne bliknuti neni videt. Mam to vyzkousene a
> > > funguje
> > > > to.
> > > >
> > > >
> > >
> **********************************************************************
> > > **
> > > > *******************************
> > > >
> > > > Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi
> nebo
> > > > Visual Basic
> > > >
> > > >
> > >
> **********************************************************************
> > > **
> > > > *******************************
> > > >
> > > >
> > > >
> > > > > -----P�vodn� zpr�va-----
> > > > > Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> > > > > Odesl�no: 17. b�ezna 1999 12:14
> > > > > Komu: #Delphi-K
> > > > > P�edm�t: Letajici Image
> > > > >
> > > > > Udelal jsem si screen saver, na kterem leta logo a odrazi se
> od
> > > sten,
> > > > > no, znate to... Jenomze mi ten Image tak osklive blika, nevite
> jak
> > > na
> > > > > to ?
> > > > >
> > > > > //Hybe se snim pomoci Image.Left a Image.Top a je tam i jeden
> > > Label
> > > > > //a ten dareba jeden blika taky.
> > > > >
> > > > > Dobra.
> > > > > Corrupt Table/Index header u PARADOX tabulky
[*] Jaroslav N�dhera <csh(zv)czn(tec)cz> - 18.3.1999 13:13:55
Uz hotovy free opravovaci program na paradoxi tabulky najdete na
http://www.rksolution(tec)cz
Umi toho pomerne hodne (napr. i opravu porusenych autoinkrementu apod.)
J. Nadhera
-----P�vodn� zpr�va-----
Od: eL <eL_z_Prahy(zv)seznam(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. b�ezna 1999 1:17
P�edm�t: Re: Corrupt Table/Index header u PARADOX tabulky
>
>-----P�vodn� zpr�va-----
>Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
>Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
>Datum: 17. b�ezna 1999 11:33
>P�edm�t: RE: Corrupt Table/Index header u PARADOX tabulky
>
>
>>Obnovit to jde tak, ze na instalacnim CD Paradox 7.0 je program TUtility,
>ktery dokaze tabulku alespon
>>castecne obnovit.
>>
>
>
>Jake s tim mate prakticke zkusenosti. Paradox 7 pouzivam od uvedeni na trh
a
>do dokud jsem nezacal pouzivat D4 bylo vse OK a poskozene tabulky se daly
>restaurovat. Od instalace D4 to vetsinou nejde, respektive tabulka se
>neopravi a behem opravy totalne zatuhnou Windowsy. Pokud mate nejake
>zkusenosti poradte.
>
>
>eL..
>
>Letajici Image
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 18.3.1999 13:20:10
zkousel jsem jeste jeden zpusob - mam bitmapu velikosti formu a kreslim
obrazek primo do
bitmapy, ta se kresli v OnPaint formu:
canvas.Draw(0,0,Bmp);
prekresleni delam nasledovne:
procedure TForm1.PaintImage;
var
r: TRect;
begin
// vymazani casti bitmapy
Bmp.canvas.FillRect(<rect puvodniho obrazku>);
// nakresleni obrazku do bitmapy
Bmp.canvas.Draw(nLeft,nTop,image);
// refresh bitmapy na formu
r:=Rect(<rect pro refresh>);
InvalidateRect(handle,(zv)r,false);
end;
tohle neblika, ale nevim jak se libi systemovym zdrojum takhle velka bitmapa
...
navic porad prilis nechapu rozdil mezi timto pristupem vykreslovani a
zpusobem "vymaz a znovu nakresli primo na canvas formu"
Zdenek Fryz
Problem s QuickReportem
[*] Tu�ek Roman <TucekR(zv)p15.mepnet(tec)cz> - 18.3.1999 13:21:00
udelej si update na verzi 3.04
TRT
----------
Od: Hojda Pavel
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Problem s QuickReportem
Datum: 18. b�ezen 1999 10:11
Pouzivam QuickReport v Delphi4 a obcas pri ukonceni formulare s QR to
zahlasi Access violation. Nevito nekdo, jaka je pricina tohoto stavu?
Pavel
BCB 4 tak trochu off topic
[*] Lubos <bruce(zv)pobox.sk> - 18.3.1999 13:28:34
> Tak mi vcera prislo CD s Borland C++Builder 4 Trial Edition, nuz a skamenel
> som uzasom nad sposobom instalacie,
> tohoto produktu.
> Postup je nasledovny:
>
Ahoj.
Mna by strasne zaujimalo ci je pravda ze kod urobeny v BCB 4.0 sa da natiahnut
do MS VC 5.0
a dalej s nim pracovat, alebo to boli len keci .
A este mi porad ako si ziskal trial CD ?
vdaka.
/LH
BatchMove
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 18.3.1999 13:46:01
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Snazim se vytvolrit tabulku (Paradoxovou) pres BatchMove, vse funguje jenom bych potreboval vedet jestli tam jde nastvit LanguageDriver, tabulka se mi ulozi podle nastaveni v BDE, ale potreboval bych jinou. Jde to vubec ?
Milan Fiedler
Letajici Image
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 18.3.1999 13:49:48
>zkousel jsem jeste jeden zpusob - mam bitmapu velikosti formu a
kreslim
>obrazek primo do
>bitmapy, ta se kresli v OnPaint formu:
>
>canvas.Draw(0,0,Bmp);
>
>prekresleni delam nasledovne:
>
>procedure TForm1.PaintImage;
>var
> r: TRect;
>begin
>// vymazani casti bitmapy
> Bmp.canvas.FillRect(<rect puvodniho obrazku>);
>// nakresleni obrazku do bitmapy
> Bmp.canvas.Draw(nLeft,nTop,image);
>// refresh bitmapy na formu
>r:=Rect(<rect pro refresh>);
>InvalidateRect(handle,(zv)r,false);
>end;
>
>tohle neblika, ale nevim jak se libi systemovym zdrojum takhle velka
bitmapa
>...
>navic porad prilis nechapu rozdil mezi timto pristupem vykreslovani a
>zpusobem "vymaz a znovu nakresli primo na canvas formu"
>
>Zdenek Fryz
k poslednimu :
Primo na canvas formu - vse se "hned" provadi. Tj. smazes cast -
(smaze se (a je to videt)), nakreslis neco (nakreslise)....
Pokud to cmaras do bitmapy (nebo neceho na podobnem principu), nacmare
se to v pameti, a az to mas, nechas bitmapu at se prekresli. tj. na
monitoru by se mel objevit az konecny efekt. hm?
(idealnim na to byl v dosu rezim 13h, jez mel videoram 64kb a vse se
otocilo v jednom segmentu. - 320x200x256- uzasny rezim)
Mti.
.... hej ... slecno sekretarko .... od kdy uredni dopis zacina PUSHA
..
Text to html convertor
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 18.3.1999 13:50:56
> > chtel bych se zeptat, zda nemate nekdo v podvedomi informaci o tom,
> > zda neni soucasti windows nejaky standartni jednoduchy konvertor
> cisteho txt do html
Co treba takhle:
procedure TForm1.TxtToHtml;
var
radek:string;
Pom3, buffer: PChar;
I, Fst, Count:LongInt;
Memo:TStringList;
begin
RichEdit1.SelectAll;
Count := RichEdit1.SelLength;
GetMem(Buffer, Count);
RichEdit1.GetSelTextBuf(Buffer,Count);
// sup s tim to do stringlistu
Memo := TStringlist.Create;
Memo.SetText (Buffer);
i := 0;
while i <= Memo.Count - 1 do
begin {While}
if Memo[i]=''
then Memo[i]:='<P>'
else
if Memo[i]=' ' then
Memo[i]:=' '
else
Memo[i] := Memo [i]+'<BR>';
Inc (i);
end;
// pridam nejakou hlavicku
Memo.Insert(0,HTMLHlava);
// a paticku
Memo.Add(HTMLPata);
Pom3 := Memo.GetText;
RichEdit1.SetSelTextBuf (Pom3);
RichEdit1.SelStart:=0;
FreeMem (Buffer, Count);
Memo.Free;
end;BCB 4 tak trochu off topic
[*] Filip Jirs�k <Jirsak(zv)gymnacel(tec)cz> - 18.3.1999 13:52:30
-----P�vodn� zpr�va-----
Od: iturcan(zv)gamo.sk <iturcan(zv)gamo.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. b�ezna 1999 11:20
P�edm�t: BCB 4 tak trochu off topic
>
>
>Hi All
>
>
>Uvodom sorry za tak trochu off topic
>...
>Tak mi vcera prislo CD s Borland C++Builder 4 Trial Edition, nuz a skamenel
>som uzasom nad sposobom instalacie,
>tohoto produktu.
>Postup je nasledovny:
>
>1. Musite sa zaregistrovat na www.borland.com, kde musite zadat unikatne
>cislo vaseho CD , toto cislo Vam program vypise
Ja to CD mam taky, a na jedno vec si dejte pozor. Ono to "unikatne cislo
vaseho CD" neni cislo CD, ale nejakym zpusobem se vypocita. Ja si to chtel
nainstalovat doma a internet mam ve skole. Tak se si to vzal s sebou do
skoly, opsal si to cislo, zaregistroval se... a ono mi to doma neslo. Pak
jsem zjistil, ze je to prave tim cislem, ktere se nejak pocita, mozna prave
z cisla disku. (Kdyz spustim znovu Windows, je stale stejne, neni to tedy
zadny cas ci neso podobneho). Tim to maj ochraneny na dvakrat. Az uznaj, ze
uz si to vsichni prohledli, zablokuji prislusne www stranky, no, a pak uz se
vam jen nekdy zmeni cislo disku nebo ceho, a uz si to znovu nenainstalujete.
Filip Jirsak
>2. Na zaklade zaregistrovania Vam pride e-mail s heslom na instalaciu
>
>hmm, tak to ano, celkom dobra ochrana proti skopirovaniu CD, ktovie ci to
>je obdobne aj u ostrej verzie ( spominam si na prieskum ktory robili v
>Inprise u pobociek po celom svete, ohladom sprisnenia ochrany produktov),
>nie ze by som obhajoval
>pocitacove piractvo ale chudaci ktory nemaju pristup na Internet.
>Zaujimave je tiez ze na strankach www.borland.com sa daju najst informacie
>o troch verziach BCB 4, tj. aj o verzii Standard, ale hold, to je asi tym
>ze inak sa predava v USA a inak v EU .
>
>Mozeme len sucho skonstatovat , co prinesie D5, v BCB 4.0 toho na prvy
>pohlad moc noveho nie je, prave naopak stale je VCL v Pascale a stale su tu
>tie iste zastarale podporne nastroje BDE vo verzii 5.1 a Database Desktop
>7.0 , ktory si v tomto stave pamatam uz od verzie Delphi 3 :)
>
>
>Ivan Turcan
>GAMO a.s.
>
>
>
>BCB 4 tak trochu off topic
[*] iturcan(zv)gamo.sk - 18.3.1999 13:58:04
>Ahoj.
>kMna by strasne zaujimalo ci je pravda ze kod urobeny v BCB 4.0 sa da
natiahnut
>do MS VC 5.0
>a dalej s nim pracovat, alebo to boli len keci .
hmm, to je zaujimava otazka, nuz, i ked programujes v C++ , subory projektu
su uplne ine a tiez
je tu mnozstvo funkcii ktore podporuje BCB a VC++ nie. Inprise skorej
podporuje taktiku prechodu z
MS VC++ do BCB 4.0 , ktore ma plnu podporu MFC 4.2 , tiez je tu klasicky
wizard na tvorbu MFC projektov. Samozrejme pokial pouzivas len ANSI C++ a
nie "doplnene fn. " od Inprise tak by ti mohlo
VC++ subor *.cpp zozrat.>A este mi porad ako si ziskal trial CD ?
Takmer rok som pracoval v teame technickej podpori u Inprise CZ ...
Okrem toho prvych 100 prihlasenych na seminar "C++ Show" malo tiez dostat
toto CD.
Ivan Turcan
GAMO a.s.
Ochrana sw was:HDD factory serial + model number,
[*] Filip Jirs�k <Jirsak(zv)gymnacel(tec)cz> - 18.3.1999 14:01:29
Ja nechci zlodeje omlouvat. Ale docela se mi libi princip, ze mas software
nejakou dobu "na zkousku" (myslim, ze to tak delala - nebo jeste dela -
Software602). Do toho se jednak schova ten, kdo jej potrebuje jen 2x za rok
a hlavne program nekupujes na slepo. To se ti priznam rovnou, ze
programovaci nastroj bych si jenom podle recenzi ani prezentaci nekoupil,
ten si proste nekde musim par dni vyzkouset v praxi, bud ve skole, u
kamarada, a nebo bohuzel od kamarada, kdyz to jinak nejde.
Filip Jirsak
P.S. : Chevrolet ti v pujcovne asi pujci, kamarad treba taky, ale u softwaru
by tim vetsinou porusil licencni smlouvu.
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. b�ezna 1999 10:40
P�edm�t: Re: Ochrana sw was:HDD factory serial + model number, atd.
Puvodni zprava, kterou napsal Filip Jirs�k dne 18 Mar 99,:
> To je podle mne jeden z nejvetsich problemu "kradeni" software - pokud
> nekdo porebuje 2x za rok neco udelat v Corelu, ma si kvuli tomu kupovat
> Corel, stale nove verze atd.? Mozna kdyby existovalo neco jako pujcovny
Moc to sem uz nepatri a samozrejme nema canu o tom polemizovat, protoze
vetsina nelegalnich uzivatelu si stejne nejaky duvod a omluvu sveho
kriminalniho chovani najde. Ale jsou dve vysvetleni:
Pokud se potrebuji 2x rocne projet v Chevroletu, tak ho take nepujdu
ukrast. A kdo by mi ho asi pujcil?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Eval
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.3.1999 14:02:17
Haj hou!
From: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
>Mam v tabulce ulozene vyrazy ve tvaru (napr):
>'AA + BB >= CC'
>'DD * 2 = EE'
>'CC + FF = 0' , atd...
Existuje rada evaluatoru, bohuzel jsou vetsinou za penize a ty
free toho moc neumi. Podivej se na www.torry.ru nebo na DSP.
Pokud nijak vyrazne nespechas (cca 14 dni) a mas D3 nebo 4, pak
Nexus framework (Soucast Delphree iniciativy k nalezeni na
http://delphree.clexpert.com) bude toto obsahovat, free se
zdroji, moznost doplneni vlastnich funkci atd. Momentalne je vse
v prvni alfa (ale velice stabilni). Ocekavame uvolneni prvni
verze koncem brezna.Registracia Komponenty
[*] SICHTA Daniel <Sichta(zv)asset.sk> - 18.3.1999 14:15:25
Mam vytvorenu komponentu a chcem ju zaregistrovat. V procedure register
mam napisane do akeho balika (zalozky) ju ma dat. Po instalacii vsak
nachadzam tuto komponentu v Samples a nie tam kde ju chcem !!!
Robim nieco zle ??
) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> Corba
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 18.3.1999 14:19:34
skus www.omg.org tam by si mal najst dost vela informacii, mas tam aj
najnovsiu specifikaciu 2.2
Vlado
> -----Original Message-----
> From: Lukes V�clav [SMTP:Vaclav.Lukes(zv)pvt(tec)cz]
> Sent: Thursday, March 18, 1999 11:56 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Corba
>
>
>
> Ahoj,
>
> nev�te pros�m n�kdo, kde z�skat informace ke Corb� - vo co go, pou�it� a
> pod. ?
>
> Va�ek
>
>
> PS: P�i na�ich "excelentn�ch" link�ch nelze n�jak v�razn� hledat na netu.
>
>
>
>
>
>
> V�clav Lukes
>
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz
> Tel.: 0603-511247
StoredProc + Informix
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 18.3.1999 14:23:06
Ja jsem se s Delphi k Informixu jeste nedostal,
ale kolega rikal neco v tom smyslu,
ze TStoredProc neni pro Informix moc dobra.
Je pry lepsi volat procedury pomoci TQuery,
ale proc, to uz si nepamatuju. A on je ted
dlouhodobe pryc...
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!> -----Original Message-----
> From: Jezek Petr, Ing. (DELVINA) [mailto:PETR(zv)sevis.sk]
> Sent: Wednesday, March 17, 1999 9:37 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: StoredProc + Informix
>
>
> Mam jeden problem.
> Zkousel jsem volat ulozene procedury na Informixu
> pomoci TStoredProc, ale stale mi to haze chybu:
>
> Invalid parameter type.
>
> Parametry jsem ale nastavil presne podle definice
> procedury:
> CREATE PROCEDURE daj_por(evid CHAR(3))
> RETURNING CHAR(25), CHAR(100);
>
> Mam tedy zadefinovane tri parametry:
> 1. vstupni string;
> 2. vystupni string
> 3. vystupni string
>
>
> Kdyz ale pouziju TQuery, vse funguje bez problemu.
> Nevite kde by mohl byt pes zakopany?
>
> Pouzivam Delphi 4 + pristup pres BDE+ODBC +
> Informix na Unixu (myslim ze 5.01)
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+
> Corba
[*] muher(zv)csas(tec)cz - 18.3.1999 14:23:38
http://www.omg.org !!
http://www.inprise(tec)cz
> -----Original Message-----
> From: Lukes V�clav [SMTP:Vaclav.Lukes(zv)pvt(tec)cz]
> Sent: Thursday, March 18, 1999 11:56 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Corba
>
>
>
> Ahoj,
>
> nev�te pros�m n�kdo, kde z�skat informace ke Corb� - vo co go, pou�it� a
> pod. ?
>
> Va�ek
>
>
> PS: P�i na�ich "excelentn�ch" link�ch nelze n�jak v�razn� hledat na netu.
>
>
>
>
>
>
> V�clav Lukes
>
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz
> Tel.: 0603-511247
> TWebModule
[*] zavada(zv)atcomp(tec)cz - 18.3.1999 14:24:12
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 18. b�ezna 1999 12:16
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TWebModule
>
> >pokud mas CGI nebo WinCGI aplikaci, tam je to jinak
>
> Trochu si s tim taky ted "hraju" a uplne totez zle udelat
> i u CGI... netvrdim, ze to nejak vnitrne vnitrne
> implementovano
> stejne, jsem taky zacatecnik, ale pouzivani PathInfo je v
> dobe
> navrhu aplikace uplne stejne.
>
[Ji�� Z�vada] V tom m��e� m�t pravdu, do hloubky
jsem CGI a WinCGI nezkoumal, tuto cestu jsem opustil ...
> Mam k teto problematice taky jednu otazku, predstavte si
> takovouto (jiz existujici) HTML stranku :
>
> <HTML> bla bla bla
> <H1> Aktualni cas : ????? </H1>
> a zase bla bla bla
>
> A nevim, jak tam ten cas dostat jinak, nez odkazem...
> ...potom ale musi uzivatel klepnout na ten odkaz :
>
> <HTML> bla bla bla
> <H1> Aktualni cas : <A HREF="MyWSApp.dll/GetTime"> klepni
> sem </A> </H1>
> a zase bla bla bla
>
> Jde to nejak udelat bez odkazu ? (reseni, vygenerovat
> pomoci MyWSApp
> celou stranku, neni mozne s duvodu jeji priiiilisne
> velikosti)
>
> Obecne : jde vlozit obsah /ne odkaz!/ jedne stranky do
> druhe ?
> Nejakym HTML prikazem ? Jakym ?
>
[Ji�� Z�vada] Zminovany priklad s casem je
nestastny, tam bych asi volil skript (nebo, pokud chces jit
s kanonem na vrabce, ASP komponentu napsanou v Delphi :-))).
Ze zkusenosti vim, ze velikost stranky neni nijak na
prekazku, klidne stranku lze vygenerovat celou pomoci
MyWSApp. Pokud ale chces vlozit do stranky Content jine
stranky, jde pouzit vnitrni ramec.
<IFRAME SRC="MyWSApp.dll/GetTime" width="580"
height="430" SCROLLING="no" NAME="INFOFRAME"></IFRAME>
Mam overeno pro IE4
> Dobra.
>
> > PathInfo se tyka ISAPI dll. Pokud jsi pri vytvareni Tve
> WS
> > aplikace zvolil typ aplikace ISAPI/NSAPI dll, muze Ti
> byt
> > velmi uzitecna, pokud mas CGI nebo WinCGI aplikaci, tam
> je
> > to jinak. U ISAPI Dll jsi schopen podle hodnoty PathInfo
> > rozvetvit funkcnost :
> >
> > napr volani v browseru
> >
> > http://tvojeWSAPP.dll/Cesta1 provede kod, kter� mas
> > prirazen ve Webmodulu.Actions[?].OnAction u akce, jejiz
> > PathInfo = /Cesta1
> > http://tvojeWSAPP.dll/Cesta2 provede kod, kter� mas
> > prirazen ve Webmodulu.Actions[?].OnAction u akce, jejiz
> > PathInfo = /Cesta2
> >
> > atd.
> >
> > ISAPI Dll jsou standardem pro pridavne moduly MS
> Internet
> > Information Serveru.
> >
> > Osobne povazuji ISAPI dll za velmi silny nastroj, pomoci
> > nejz lze dostat na Web libovolna data bez ohledu na druh
> a
> > puvod (texty, obrazky, technologicka data ctena z portu,
> > carove kody, atd.) diky faktu, ze cely kod je generovany
> z
> > Delphi a tedy programator muze vyuzit spoustu hotovych
> > komponent.
> >
> WinSock
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 18.3.1999 14:24:30
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite nekdo neco o programovani WinSock (dokumentace, zdroje, priklady, vlastni zkusenosti, ...)
dekuji
Milan Fiedler
Letajici Image
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.3.1999 14:38:13
Haj hou!
From: Fryz, Zdenek <fryz(zv)dcb(tec)cz>
>tohle neblika, ale nevim jak se libi systemovym zdrojum takhle
velka bitmapa
>...
>navic porad prilis nechapu rozdil mezi timto pristupem
vykreslovani a
>zpusobem "vymaz a znovu nakresli primo na canvas formu"
Velmi proste mily Watsone ;-) Tato technika (jinak zvana
off-screen bitmap painting, nebo tez nekdy double-buffering)
vyuziva toho, ze kreslici operace jsou casove velmi narocne
(vypocet pixelu v care apod.), zatim co proste operace prenosu
bloku pameti jsou velmi rychle. Blikani, ktere zaznamenavas pri
primem kresleni na obrazovku je navic vyraznejsi, kdyz celou
plochu nejprve vymazes a pak ji znovu pokreslis. Pokud z nejakych
duvodu nepotrebujes nebo nechces pouzivat kresleni do pameti s
naslednym prenosem, doporucuji nevymazavat podklad, ale kreslit
pres uz nakresleny obrazek. Blikani pak nemusi byt vubec patrne
(zalezi ovsem na tom, co a jak se kresli). Pokud nechces
vymazavat a kreslis na WinControl, pak je nutne nadefinovat
proceduru:
procedure WMEraseBkgnd (var Message : TMessage) ; message
WM_ERASEBKGND ;
procedure TNxMultiGrid.WMEraseBkgnd(var Message: TMessage);
begin
Message.Result := 1;
end ;
ktera zajisti, ze windows nevymazou obsah controlu pred jeho
kreslenim.
Jinak muzes ledacos usetrit, pokud nebudes pouzivat TBitmap ale
primo API (obvzlaste, kdyz bitmap je povicero, nepr. mas nejakou
cache bitmap).
Bitmapu snadno vyrobis takto:
procedure CreateBitmap (AHeight, AWidth : integer) ;
var DC : HDC ;
begin
DropBitmap ;
DC := GetDC (0) ;
FBitmap := CreateCompatibleBitmap(DC, AWidth, AHeight) ;
ReleaseDC(0, DC);
end ;
A zrusi se nasledovne:
var FBitmap : HBitmap ;
procedure TNxActiveRow.DropBitmap ;
begin
if FBitmap <> 0 then begin
DeleteObject (FBitmap) ;
FBitmap := 0 ;
end ;
end ;
Kresleni na bitmapu snadno realizijes pres TCanvas, ktery si za
tim ucelem vytvoris.
var
FDC : HDC ;
FSaveBitmap : HBitmap ;
FCanvas : TCanvas ; // Nutno nekde vytvorit a zrusit.
procedure SetWorkBitmap;
var FDC : HDC ;
begin
UnassignWorkBitmap ;
FDC := CreateCompatibleDC(0);
FSaveBitmap := SelectObject(FDC, FBitmap)
FCanvas.Handle := FDC ;
end ;
end ;
Konec kresleni je nutno osetrit nasledovne:
procedure UnassignWorkBitmap ;
begin
if FDC <> 0 then begin
FCanvas.Handle := 0 ;
SelectObject(FDC, FSaveBitmap);
DeleteDC (FDC) ;
end ;
end ;
Pro prenos bitmapy na obrazovku zrealizujes snadno a nebyvale
rychle funkci BitBlt (je ve Win32 API helpu). Priklad:
BitBlt(DC, X, Y, BitmapWidth, BitmapHeight,FDC, 0, 0, SRCCOPY);
DC je device context predany Windows napr. do metody PaintWindow
nebo to muze byt Handle ciloveho Canvasu. Parametr SRCCOPY urcuje
ze jde o sproste prekopirovani bitmapy na souradnice X,Y. Muze
ale mit radu vzlastnich efektu jako skladani, inverze barev apod.
Detaily jsou v helpu Win32 API.
Hodne zdaru.
Corrupt Table/Index header u PARADOX tabulky
[*] Tom =?iso-8859-2?Q?Michal=EDk?= <tom.michalik(zv)usa(tec)net> - 18.3.1999 14:45:15
Ahoj,
verze table repair utility vzdy musi odpovidat verzi BDE ( seznam navzajem
kompatibilnich verzi je nekde na http://www.borland.com ).
Tom Michalik
eL wrote:
> -----P�vodn� zpr�va-----
> Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 17. b�ezna 1999 11:33
> P�edm�t: RE: Corrupt Table/Index header u PARADOX tabulky
>
> >Obnovit to jde tak, ze na instalacnim CD Paradox 7.0 je program TUtility,
> ktery dokaze tabulku alespon
> >castecne obnovit.
> >
>
> Jake s tim mate prakticke zkusenosti. Paradox 7 pouzivam od uvedeni na trh a
> do dokud jsem nezacal pouzivat D4 bylo vse OK a poskozene tabulky se daly
> restaurovat. Od instalace D4 to vetsinou nejde, respektive tabulka se
> neopravi a behem opravy totalne zatuhnou Windowsy. Pokud mate nejake
> zkusenosti poradte.
>
> eL..
Local SQL Join
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 18.3.1999 15:03:54
Zdravim vsetkych,
vie mi niektory z Vas poradit, co robim zle 20
Mam niekolko tabuliek, ktore su poprepajane cez jednoduche integer polia. Potrebujem zobrazit vyslednu tabulku tak, aby bolo vidno hlavnu tabulku spolu s udajmi z tych pomocnych. Pridanie lookup poli som zrusil, pretoze prezeranie vyslednej tabulky bolo strasne pomale. Nahradil som to tymto :
SELECT HNIM.*, Pracov.Meno,PRACOV.Priezvisko, HimMiest.Nazov, UTV.Popis as C Utvar,
DOD.Nazov as C Dodavatel, VYR.Nazov as C Vyrobca
from HNIM
join Pracov on (Pracov.ID = HNIM.ZodpOsoba)
join HimMiest on (HimMiest.ID = HNIM.ID MIEST)
join HimTab as UTV on (UTV.ID = HNIM.Utvar)
join Adresar as DOD on (DOD.ID = HNIM.Dodavatel)
join Adresar as VYR on (VYR.ID = HNIM.Vyrobca)
where TypHIM='N'
order by InvCislo
Tu je ale problem. Ak je cast where taka, ze prejde len malo riadkov, je vsetko O.K. Ak ale zmenim podmienku tak, ze by mal byt vysledok napr. 3000 riadkov, neukaze sa mi vobec nic, a pritom nezahlasi ziadnu chybu.
Podobne ak tam dam napr. este jeden join pre dalsie polia, tiez nedostanem ziadny vysledok.
Viete o tom ktosi cosi ? Ma local SQL nejake obmedzenia pre JOIN ? V helpe je toho uboho malo ...
Dakujem.
Quick Report 2.0K & nastaveni tiskarny v Delphi 3
[*] Libor Svoboda <svob(zv)fnusa(tec)cz> - 18.3.1999 15:06:20
Ahoj vsichni
Mam takovy problem s Quick reportem verze 2.0K standart v Delphi3.
Pri nastaveni
TQuickRep.Page.PaperSize:=Default
nedokaze Quick Report automaticky prevzit nastaveni velikosti stranky pokud
je v driveru tiskarny nastavena
nestand. hodnota nebo hodnota 'vlasni'.
Jedna se o vlastnosti
TQuickRep.Page.Width,TQuickRep.Page.Length,TQuickRep.Page.Orientation
U nekterych standartnich formatu (napr. A4,letter,legal) se tyto hodnoty
daji nacist podle navodu uvedeneho
v QuickReport Knowlenge Base. Ale ale pri nastaveni na Default to
nefunguje. Polozka Orientation se nenacte nikdy.
Existuje nejaky zpusob jak tyto hodnoty nacist ze systemoveho nastaveni
driveru tiskarny (nejaka API nebo neco podobnyho) ? Potrebuju tisknout i na
jine formaty nez A4 a kdyz nastaveni v QuickReportu nesouhlasi
se systemovym nastavenim, tak je sestava zmrvena.
Pomuze mi zakoupeni QuickReportu verze 2.0K professional nebo verze 3.0.4
professional ?
Libor Svoboda
svob(zv)fnusa(tec)cz
BatchMove
[*] reaia(zv)snt(tec)cz (REAiA CONSULTING, s. r. o.) - 18.3.1999 15:21:40
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Najdi si v archivu teto konference Zmena langdrivru v kodu
Martin Kvapilik
-----P�vodn� zpr�va-----
Od: Milan Fiedler <milanf(zv)rts(tec)cz>
Komu: Konference <delphi-l(zv)fwd(tec)cz>
Datum: 18. b�ezna 1999 15:03
P�edm�t: BatchMove
Snazim se vytvolrit tabulku (Paradoxovou) pres BatchMove, vse funguje jenom bych potreboval vedet jestli tam jde nastvit LanguageDriver, tabulka se mi ulozi podle nastaveni v BDE, ale potreboval bych jinou. Jde to vubec ?
Milan Fiedler
Tvorba webov�ch str�nek v Delphi
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 18.3.1999 15:25:37
Ahoj,
dop�edu se omlouv�m za sv�j naivn� dotaz. Nekamenujte m�, pros�m.
Lze v Delphi tvo�it webov� str�nky a pokud ano, jak ?
V sekci Internet je komponenta HTML. K �emu slou�� ?
Je�t� jednou se omlouv�m a d�ky.
Va�ek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
TWebModule
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 18.3.1999 15:35:54
On Thu, 18 Mar 1999, [iso-8859-2] Mal� Dobromil wrote:
> <HTML> bla bla bla
> <H1> Aktualni cas : <A HREF="MyWSApp.dll/GetTime"> klepni sem </A> </H1>
> a zase bla bla bla
Ahoj,
Jistym resenim by mohlo byt vlozit cas jako obrazek
<H1>Aktualni cas: <IMG SRC="MyWSApp.dll/GetTime"></H1>
Ma to svy vyhody :-), ale i nevyhody :-(
caj
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
ActiveX / ActiveForm Chyba?
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 18.3.1999 15:37:28
Zdravim,
mam nasledujici problem: D3 Prof
Vytvorim si activeX componentu zdedenou od TEdit a zaregistruji...
Vytvorim ActiveForm, na nej polozim muj TEditX a zaregistruji..
Vytvorim aplikaci, na form dam muj ActiveForm obsahujici TEditX
a svete div se po spusteni muzu editovat, mazat, ale nemuzu se v editu
pohybovat sipkami vlevo a vpravo, ihned to hodi stack overflow...
Vse je to bez jedine radky pridavneho kodu.
Delam nekde nejakou konceptualni chybu, nebo je to chyba Delphi?
Diky za rady
Petr
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
BCB 4 tak trochu off topic
[*] Lubos <bruce(zv)pobox.sk> - 18.3.1999 16:00:46
> >kMna by strasne zaujimalo ci je pravda ze kod urobeny v BCB 4.0 sa da
> natiahnut
> >do MS VC 5.0
> >a dalej s nim pracovat, alebo to boli len keci .
>
> hmm, to je zaujimava otazka, nuz, i ked programujes v C++ , subory projektu
> su uplne ine a tiez
> je tu mnozstvo funkcii ktore podporuje BCB a VC++ nie. Inprise skorej
> podporuje taktiku prechodu z
> MS VC++ do BCB 4.0 , ktore ma plnu podporu MFC 4.2 , tiez je tu klasicky
> wizard na tvorbu MFC projektov. Samozrejme pokial pouzivas len ANSI C++ a
> nie "doplnene fn. " od Inprise tak by ti mohlo
> VC++ subor *.cpp zozrat.
>
no, ja som prave kdesy cital, ze BCB 4.0 ma PLNE podporovat projekty MS VC 4.x
(alebo 5.x to si uz presne nepamatam) a po uprave v BCB sa daju znovu natiahnut
do VC
a normalne s nimi pracovat. Hned som zapochyboval, takze si to chcem overit.
Skusim ten zdroj niekde pohladat.
/LH
WinSock
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.3.1999 16:03:40
>Nevite nekdo neco o programovani WinSock (dokumentace, zdroje, >priklady,
vlastni zkusenosti, ...)
dokumentace:
WinHelp32
CD MSDN nebo MSDN online
dalsi zdroje a ukazky:
http://www.hotbot.com/?MT=WinSock
Zdravi
D. Toman
add help
[*] Lubos <bruce(zv)pobox.sk> - 18.3.1999 16:06:11
caute delfinci !
Vedel by mi niekto poradit ako pridat hlp subor do prostredia tak aby
po stlaceni F1 prehladaval aj tento ?
Mam nejake kniznice s helpom a potreboval by som ich (HLP) zaclenit
do prostredia.
/LH
Eval
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 18.3.1999 17:12:53
> Mam v tabulce ulozene vyrazy ve tvaru (napr):
> 'AA + BB >= CC'
> 'DD * 2 = EE'
> 'CC + FF = 0' , atd...
>
> Da se nejakym zpusobem zabezpecit
> vyhodnoceni teto podminky, bez toho
> abych to musel rozlozit a postupne
> vypocitavat?
> Ve FoxPro existovala funkce EVAL
> (nebo pomoci &Podminka. ),
> ktera toto udelala, ale v Delphi
> asi nic takovyho neni.
Pokud vim, neda. Ale zase neni tezky to vyhodnotit.
(Vyraz je ve Funkce, hodnotu vraci funkce Hodnota,
promenne a funkce si pridej ve funkci Faktor).
Tom
...............................................
type
typ = real;
var
x: typ;
Funkce: string;
i: integer;
procedure Chyba( s: string );
begin
ShowMessage( s );
Abort
end;
procedure Dalsi;
begin
repeat
Inc(i)
until Funkce[i]<>' '
end;
function Cislo: typ;
var x: typ;
begin
Result := 0;
while Funkce[i] in ['0'..'9'] do
begin
Result := 10*Result + ord( Funkce[i] )-ord( '0' );
Dalsi
end;
if Funkce[i]<>'.' then exit;
{ za desetinnou teckou: }
x := 0.1;
while Funkce[i] in ['0'..'9'] do
begin
Result := Result + x*( ord( Funkce[i] )-ord( '0' ) );
x := x/10;
Dalsi
end
end;
function Text: string;
begin
Result := '';
while Funkce[i] in ['a'..'z'] do
begin
Result := Result + Funkce[i];
Dalsi
end
end;
function Term: typ; forward;
function Faktor: typ; forward;
function Vyraz: typ;
var T: typ;
zn: char;
begin
T := Term;
while Funkce[i] in ['+','-'] do
begin
zn := Funkce[i];
Dalsi;
case zn of
'+': T := T+Term;
'-': T := T-Term;
end { case }
end; { while }
Vyraz := T
end;
function Term: typ;
const MAX = 9999;
var F: typ;
zn: char;
begin
F := Faktor;
while Funkce[i] in ['*','/'] do
begin
zn := Funkce[i];
Dalsi;
case zn of
'*': F := F*Faktor;
'/': try
F := F/Faktor;
except
if F > 0 then F := MAX
else
if F < 0 then F := -MAX
else F := 0
end
end { case }
end; { while }
Term := F
end;
function Faktor: typ;
var Nazev: string;
begin
case Funkce[i] of
'0'..'9': Faktor := Cislo;
'a'..'z': { promenna nebo funkce }
begin
Nazev := Text;
if Nazev = 'x' then
begin
Faktor := x;
end
else
{ funkce: }
begin
if Funkce[i]<>'(' then Chyba( 'Chybo/ "("' )
else Dalsi;
if Nazev = 'sin' then Faktor := sin( Vyraz )
else
if Nazev = 'cos' then Faktor := cos( Vyraz )
else
if Nazev = 'arctg' then
try Faktor := arctan( Vyraz ) except Faktor := 0
end
else
if Nazev = 'ln' then
try Faktor := ln( Vyraz ) except Faktor := 0 end
else
if Nazev = 'sqrt' then
try Faktor := sqrt( Vyraz ) except Faktor := 0
end
else Chyba( 'Nezn�m� funkce
"'+Nazev+'"' );
if Funkce[i]<>')' then Chyba( 'Chybo/ ")"' )
else Dalsi
end
end;
'(': begin
Dalsi;
Faktor := Vyraz;
if Funkce[i]<>')' then Chyba( 'Chybo/ ")"' )
else Dalsi
end
end { case }
end;
function Hodnota( ax: typ ): typ;
begin
x := ax;
i := 1;
Hodnota := Vyraz
end;
................................................ImageList
[*] Pavel Vakes <pavak(zv)podvodnik(tec)cz> - 18.3.1999 16:36:42
Nemuzu nacist obrazek do componenty IMAGE z Imagelistu. Potreboval bych nejaky prikaz ktery to dokaze. Diky...Comctl32
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.1999 17:13:44
Puvodni zprava, kterou napsal Jaroslav N�dhera dne 17 Mar 99,:
> >Doporucuji pouzit instalacni program, ktery toto vsechno udela
> >sam za Tebe.
>
> Mohu pozadat o tip na takovy instalacni program?
InstallShield Express, ktery mas v Delphi, nebo uplne kazdy
jiny instalacni program. Tohle proste musi umet kazdy, jinak
to neni instalacni program.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
BCB 4 tak trochu off topic
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.1999 17:19:54
Puvodni zprava, kterou napsal Filip Jirs�k dne 18 Mar 99,:
> Ja to CD mam taky, a na jedno vec si dejte pozor. Ono to "unikatne cislo
> vaseho CD" neni cislo CD, ale nejakym zpusobem se vypocita. Ja si to chtel
> nainstalovat doma a internet mam ve skole. Tak se si to vzal s sebou do
> skoly, opsal si to cislo, zaregistroval se... a ono mi to doma neslo. Pak
> jsem zjistil, ze je to prave tim cislem, ktere se nejak pocita, mozna
> prave z cisla disku. (Kdyz spustim znovu Windows, je stale stejne, neni to
> tedy zadny cas ci neso podobneho). Tim to maj ochraneny na dvakrat. Az
> uznaj, ze uz si to vsichni prohledli, zablokuji prislusne www stranky, no,
> a pak uz se vam jen nekdy zmeni cislo disku nebo ceho, a uz si to znovu
> nenainstalujete. Filip Jirsak
Tam muze byt navic i time-out. Tohle umi (mimo mnoho jineho) take
OnGuard od TurboPower - na zaklade neceho se vygeneruje kod, ktery
pak chodi. Ochrana na pocitace, datum, cas, pocet spusteni, pocet
spustenych programu v siti apod.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Registracia Komponenty
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.1999 17:26:15
Puvodni zprava, kterou napsal SICHTA Daniel dne 18 Mar 99,:
> Mam vytvorenu komponentu a chcem ju zaregistrovat. V procedure register
> mam napisane do akeho balika (zalozky) ju ma dat. Po instalacii vsak
> nachadzam tuto komponentu v Samples a nie tam kde ju chcem !!!
Nastaveni palety ma prednost pred umistenim komponenty z procedury
Register. Takze Ty jsi to nejdrive mel v Samples, pak jsi asi lehce
upravil paletu, on si to zapamatoval a ted to tam nechava. Tak si
to nastav v palete a nebo odmaz ten zaznam v registru...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Ochrana sw was:HDD factory serial + model number,
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.1999 17:26:15
Puvodni zprava, kterou napsal Filip Jirs�k dne 18 Mar 99,:
> Ja nechci zlodeje omlouvat. Ale docela se mi libi princip, ze mas software
> nejakou dobu "na zkousku" (myslim, ze to tak delala - nebo jeste dela -
> Software602). Do toho se jednak schova ten, kdo jej potrebuje jen 2x za
> rok a hlavne program nekupujes na slepo. To se ti priznam rovnou, ze
> programovaci nastroj bych si jenom podle recenzi ani prezentaci nekoupil,
> ten si proste nekde musim par dni vyzkouset v praxi, bud ve skole, u
> kamarada, a nebo bohuzel od kamarada, kdyz to jinak nejde. Filip Jirsak
Na to jsou zkusebni trial verze, dnes bezne rozsirene a pouzivane.
Zvlaste u knihoven pro Delphi ses s tim mohl setkat. Ale delaji se
i pomerne velike aplikace, ktere lze takto zkouset. Treba C++ Builder,
kdyz jsme u toho. Ale take napr. Sybase Adaptive Server, treba take
zminovany Corel DRAW, Symantec dela trial verze, Microsoft nabizi
testovani Small Business Serveru, jsou betaverze... takze ona ta
moznost vyzkouseni tady opravdu je. A pokud neni, muzes si leccos
nechat predvest apod. Jenze lidi si vzdycky najdou vymluvu, proc
to kradou...
> P.S. : Chevrolet ti v pujcovne asi pujci, kamarad treba taky, ale u
> softwaru by tim vetsinou porusil licencni smlouvu.
Od toho jsou ty zkusebni verze nebo predvedeni. Zrovna jako kdyz
si chces koupit nove auto, take Te v nem nechaji projet... Ale kdyz
si kupujes nakladak, take si ho nemuzes zkouset 14 dni a odvozit
si v nem hlinu ze stavby, stejne jako si nemuzes v pujcenem
Delphi vyvinout 3 programy...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
StoredProc
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 18.3.1999 17:04:08 met
> Volani ulozenych procedur mi v BDE chodi ze vsech cinnosti, ktere BDE
> vykonava nejlepe a velice spolehlive. Pouzivam Interbazi a nevidim v
> tom zadny problem. Vyhodou je moznost navratu "Id" pri Insert. Posilam
> kousek kodu na Insert a Update zaznamu jednoducheho ciselniku skladu a
> dale tez tvar ulozene procedury. O neco slozitjsi to je pro
> master-deatail, ale i to mi funguje zcela bezchybne.
Tohle je mi jasne ;-)
> if UpdateMod = 'INSERT' then
> StoredProc1.ParamByName('OLD_IDSSKLADY').AsInteger := -1
No a tady zacinaji potize:
vsadim se, ze ta StoredProc1 z prikladu je placnuta na formulari a
nemeni se nazev volane procedury. Tato operace totiz provede
vycisteni parametru (to je spravne), ale uz nevytvori nove tak jak
jsou definovany na serveru (to se mi nelibi, proc se to nechova jako
v design-time ?), takze se musi vytvaret, asi pomoci
PtoredProc.CreateParam. To jsem vyzkousel, a funguje to. ALE
program se chova dost divne. V datamodule, kde lezi i nase
StoredProc jsou i nejaky TQuery.
Najdrive zavolam StoredProc: vse OK.
Po nahodnem poctu otevreni a zavreni nejake Query se program
hryzne a spadne s hlaskou acces violation... no vzdyt to znate.
Takze uz jsem dost zoufaly a snazim se najit chybu treba ve volani
StoredProc.
Abych nasel chybu, osekal jsem zdrojak tak, ze z nek zbylo uz
temer jen
begin
end.
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Jak ulozit TStream do souboru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.3.1999 18:21:29
fiser(zv)gbn(tec)cz wrote:
> mam nasledujici problem. Nevim, jak ulozit Stream, ktery mi vraci jedna
> komponenta, do souboru na disk. Jedna se mi o binarni zapis. Ne textovy.
Pokud ten Stream nema uz sam o sobe neco jako SaveToFile, tak
muzes jit pres ReadBuffer nebo zalozis TFileStream a projdes to
pres CopyFrom.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nove tlacitko v MSIE
[*] Radek Sedlar <sedlar(zv)ecommerce(tec)cz> - 18.3.1999 18:24:46
Ahoj,
potreboval bych do listy se standardnimi tlacitky v Microsoft Internet
Exploreru pridat talacitko vlastni. Delal to tu nekdy nekdo? Vite jak na to?
Diky
Radek
Tvorba webov�ch str�nek v Delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.1999 18:43:24
Puvodni zprava, kterou napsal Lukes V�clav dne 18 Mar 99,:
> dop�edu se omlouv�m za sv�j naivn� dotaz. Nekamenujte m�, pros�m.
> Lze v Delphi tvo�it webov� str�nky a pokud ano, jak ?
Ne, webove stranky se delaji HTML editorem nebo treba notepadem.
> V sekci Internet je komponenta HTML. K �emu slou�� ?
K praci s HTML strankami - ukazovani...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
invalid floating point operation
[*] J.Faltynek <FS_software(zv)telecom(tec)cz> - 18.3.1999 18:57:13
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 16. b�ezna 1999 22:06
P�edm�t: Re: invalid floating point operation
>> "J.Faltynek" wrote:
>>
>> "Invalid floating point operation" - Pokud mate nekdo zkusenosti s timto
hlasenim pri
>> praci s debuggerem v Delphi 4, potrebuji poradit.
>> Pri ladeni programu pri manipulaci s databazovymi poli (Value) typu
double (TDateTime, coz
>> je totez), hlavne pri porovnavani hodnot apod. se krokovani prerusi s
touto neprijemnou
>> zpravou. Problem se projevuje jen pri ladeni po jednotlivych krocich,
jinak ne.
>> Na PC s procesorem PII 300 se pri krokovani situace vyresila jednoduse v
options/compiler
>> - volbou "Pentium-safe FDIV operations ", ale na notebooku s PII 233 ani
na PentiuMMX 200
>> se tento problem projevuje dal a asi bude treba upgradovat PC na novejsi
procesor, uz jsem vyzkousel
>> vse, co jsem znal.
>
>Ahoj,
>
>tohle se tu jiz tusim jednou objevilo. Zkousel jsi to krokovat v CPU okne
na
>urovni asm kodu ?
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
>
Ahoj,
zkousel jsem to v CPU okne, pada pri pruchodu prachobycejne fce ROUND.
J.Falt�nek
elementarny problem s C/S a neb jak objevit Amerik
[*] Jaro <jaro(zv)sinea(tec)cz> - 19.3.1999 00:03:33
Ja s tim souhlasim. Nevedel jsem, jestli to nemyslis naopak.
Jaro
>1. Zadna data se neztrati a nikdo po mne nebude rvat, ze si neco sam
z vlastni vule smazal.
>2. Kdyz DELETE neni, mam min prace. Jeste odstarnit INSERT a muzu
tocit palcema mlynek.
>
>Ale vazne: Kompletni dohledani cele historie databaze je velmi
vyhodne, to snad nemusim vysvetlovat?
>
>Viktor
>
>
>
>-----Puvodni zprava-----
>Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
>Odeslano: 18. boezna 1999 1:18
>Komu: delphi-l(zv)fwd(tec)cz
>Poedmit: Re: elementarny problem s C/S a neb jak objevit Ameriku
>
>
>>[Viktor] Ale houby, ty truhliku. Hrozne se mi libi ta idea, ze z
>databaze
>>se nikdy nic neodstrani. Ze jenom poroste. Vubec zadne DELETE
>neexistuje.
>>To se mi libi.
>>
>A proc?
>Jaro
>elementarny problem s C/S
[*] Jaro <jaro(zv)sinea(tec)cz> - 19.3.1999 00:29:19
>Tady se nabavim o tom jak vyplnovat danovy doklad,ale zpusob pri
vyplnovani
>adresare a popsani tohoto
>zpusobu ve vnitrpodnikovem predpise aby byly pri vyplnovani dodrzeny
>zakladni pravidla.
>Pokud danovy doklad uchovam v elektronicke forme tak tam musi mit
identicke
>udaje jako vydavany original. O tom neni pochyb.
----------
Myslel jsem, ze byla rec o fakturach. Dobre, tomuhle rozumim. Je to
vzdy veci konkretniho reseni. Ja chtel na priklade ukazat, ze i
kopirovani z ciselniku, tedy zdvojovani dat, ma take nekdy smysl,
resp. ze kazde toto reseni se muze hodit nekdy.
----------
>A kdo rika ze to muze byt v databazi spatne !!!!
----------
Nerika ....., ale pri odkazu do ciselniku by se to po zmene v
ciselniku mohlo stat.
----------
>S pozdravem Heinisch Jiri
Taky s pozdravem Jaro
Local SQL Join
[*] Marian Hatala <emha(zv)mailbox.sk> - 19.3.1999 06:39:46
SELECT HNIM.*, Pracov.Meno,PRACOV.Priezvisko, HimMiest.Nazov, UTV.Popis as C Utvar,
DOD.Nazov as C Dodavatel, VYR.Nazov as C Vyrobca
from HNIM
join Pracov on (Pracov.ID = HNIM.ZodpOsoba)
join HimMiest on (HimMiest.ID = HNIM.ID MIEST)
join HimTab as UTV on (UTV.ID = HNIM.Utvar)
join Adresar as DOD on (DOD.ID = HNIM.Dodavatel)
join Adresar as VYR on (VYR.ID = HNIM.Vyrobca)
where TypHIM='N'
order by InvCislo
----------------------------------------------------------------------------
Zdravim.
A nemali by sa retazce porovnavat cez LIKE (prip. MATCH - neviem co Local SQL podporuje)?
=> WHERE TypHIM LIKE 'N'
eMHa
VYTVORENI ZASTUPCE (*.lnk soubor)
[*] Karel Pechanec <ka.pecha(zv)pvtnet(tec)cz> - 19.3.1999 06:59:17
Zdravim
potreboval bych API funkci pro vytvoreni ZASTUPCE z daneho souboru
(zrejme nejaka fce, kde bude jako vstup hlavni soubor X:\XXX.exe , a
cilovy sobor X:\XXX.lnk)
Diik
==============
Karel Pechanec
ka.pecha(zv)pvtnet(tec)cz
tel:0602-950 525
==============
INSERT INTO TABLE
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.3.1999 07:17:33
>
> ... mno, moc tomu nerozumim, ale proc nahore ukladas 8 hodnot a dole
> mas tabulku definovanou jenom se 7 polozkami?
****To byl prvni problem. Na ten jsem prisel hned.
> > Kdyz ovsem program spustim, tak mi to na radce ExecSQL buchne s
> > vyjimkou: EBDEEngineError with message Type Mismatch in epression.
>
> ... v prekladu: "nekompatibilita typu ve vyrazu", lidove receno: "nekde
> cpes neco, co tam nacpat nejde" ;-)
****To byl druhy. To uz mi trvalo dele. Ale slo presne o to, co tu popisujes.
Misto AsInteger tam melo byt AsSmallInt.
Slavek
> Roman
> -------------------------
> amatersky flakac v Delphi
> email: roman.banar.fei(zv)vsb(tec)cz
> email: jozin.z.bazin(zv)email(tec)cz
> www : http://nwinfo1.vsb(tec)cz/~.l96955.sti.fei/
>
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Problem s QuickReportem
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 19.3.1999 07:21:51
> Pouzivam QuickReport v Delphi4 a obcas pri ukonceni formulare s QR to
> zahlasi Access violation. Nevito nekdo, jaka je pricina tohoto stavu?
jo, tak presne nad tim sem skripal zubama a uzivatel taky ;-)
me se to stavalo opravdu OBCAS, zcela nepravidelne /podle murphyho
zakonu se mi samozrejme nedarilo tu chybu umele vyvolat :-))/, pokud
jsem na zobrazovani QR sestavy pouzival vlastni formular.
dyz uz jsem mel vzteky vytrhany fsechny vlasy a okousany obe ruce,
vzdal sem to a pouzil ten quickreportacky preview form. a najednou
problem zmizel... :-)
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://nwinfo1.vsb(tec)cz/~.l96955.sti.fei/Letajici Image - zpetny beh?
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 19.3.1999 07:21:14
> Pri vykreslovani na monitoru, kresli paprsek radky zleva do prava
> shora dolu.az dojde na konec, vrati se zpet do leveho horniho rohu.
> Ok. To vraceni chvili trva a pokud mu v tuto chvili prepises obsah
> videoram, nic neblikne. (nemelo by). Tento postup se vsak da pouzit
> jen tam, kde se to stihne - tj. DOS - kde je program panem sveho casu
> (procesorova).
>
> Pod windows se to NEstihne z 80% :-) a pak jsou videt pulky starych
> obrazovek a podobne srandy. (no - to cislo neni uplne presne spis vic
> :-)
... to by ale znamenalo, ze z 80ti% fsechno co se hybe na obrazovce
blika ;-)
> Zpetny beh paprsku lze vycitat z portu VGAcka a vracel to myslim i
> BIOS.
v DOSu to fungovalo takhle:
while not ((Port[$3da]) and $08 = 0) do asm nop end;
while not ((Port[$3da]) and $08 <> 0) do asm nop end;
a pak kreslit, ale pod Win**? cert vi... :-)
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://nwinfo1.vsb(tec)cz/~.l96955.sti.fei/INSERT INTO TABLE
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 19.3.1999 07:21:27
caf
> Preji vsem pekneho dne,
>
> zkousim insertovat data z formulare do tabulku, le nejak mi to
> nejde:
>
> mam v data modulu TQuery:
>
> INSERT INTO OBJEDNAVKA (C_O, C_F, OD_VYD, DO_VYD, DAT_SEP, DRUH,
> CENA, PROVIZE)
> VALUES (:c_o, :c_f, :od_vyd, :do_vyd, :dat_sep, :druh, :cena, :provize)
>
> Tabulka OBJEDNAVKA existuje. Po zadani a zkontrolovani dat (spravna cisla
> apodobne) pouzvam nasledujici kod:
>
> with dm_Data.ObjInsertQuery do
> begin
> Params.Items [0].AsInteger = random (3000);
> Params.Items [1].AsInteger = StrToInt (CisloFirmyEdit.Text);
> Params.Items [2].AsInteger = StrToInt (OdVydaniEdit.Text);
> Params.Items [3].AsInteger = StrToInt (DoVydaniEdit.Text);
> Params.Items [4].AsDate = SepsanoDateTime.Date;
> Params.Items [5].AsString = DruhComboBox.Text [1];
> Params.Items [6].AsInteger = Cena;
> Params.Items [7].AsInteger = 11;
>
> ExecSQL();
> end;
... mno, moc tomu nerozumim, ale proc nahore ukladas 8 hodnot a dole
mas tabulku definovanou jenom se 7 polozkami?> Tabulka je definovana nasledovne:
> CREATE TABLE "Objednavka.db"
> (
> C_O INTEGER,
> OD_VYD SMALLINT,
> DO_VYD SMALLINT,
> DAT_SEP DATE,
> DRUH CHAR(1),
> CENA MONEY,
> PROVIZE SMALLINT,
> PRIMARY KEY(C_O)
> )
>
>
> Kdyz ovsem program spustim, tak mi to na radce ExecSQL buchne s vyjimkou:
> EBDEEngineError with message Type Mismatch in epression.
... v prekladu: "nekompatibilita typu ve vyrazu", lidove receno: "nekde
cpes neco, co tam nacpat nejde" ;-)
> V cem by mohla byt chyba? (jen pro upresneni, nedochazi ke kolizi na primarnim
> klici). Musim rucne zadat a definovat Params jeste v dobe navrhu programu?
> Nebo je chyba nekde jinde?
>
> Diky za odpovedi
>
> Slavek
>
>
> ----------------------------------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------------------------------------
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://nwinfo1.vsb(tec)cz/~.l96955.sti.fei/ Velikost formu
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 19.3.1999 07:22:30
> Ahoj,
> mam malinky problemek, zrejme jsem neco prehledl...
> Mam jednoduchy form s par tlacitkym, editacnimi poli, checkboxy
> atp., BorderStyle je nastaven jako bsSingle. Pokud ho spustim na pocitaci,
> kde jsou anglicka Windows95 s Plus! themem (fonty jsou velke), tak se mi
> zmenila velikost formu, smrsknul se, a nektera tlacitka se stala razem
> nedostupna, coz je nezadouci. Jak lze tomuto stavu zamezit? Diky za kazdou
> radu
mno, ja nevim jak tomu zamezit, pac se mi tohle jeste nestalo, ale
resil bych to asi tak, ze bych sirku /vysku/ toho formulare nastavil
na pozici+sirku /vysku/ toho nejkrajnejsiho tlacitka :-)
anebo dalsi moznost je pridat rolovatka...
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://nwinfo1.vsb(tec)cz/~.l96955.sti.fei/VYTVORENI ZASTUPCE (*.lnk soubor)
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 19.3.1999 07:39:33
tady je jedna moznost -> zkopirovano z Unoffical Delphi Developers FAQ:
How to create shortcuts?
Reid Roman <rkroman(zv)pacbell.net>
Borland Tech Doc #3234
This sample project demonstrates an easy way to add shortcuts to your
Windows 95 or Windows NT 4.0 desktop or start menu.
1.Launch Delphi 3. 2.2. In a new project, drop a TButton on the form (make
sure it's called Button1). Then double click on Button1. Now you can go
ahead and directly replace the code for Unit1 with the code for Unit1 below.
The program will set up a shortcut either (see the code) on the desktop or
on the start menu. The shortcut will be called FooBar and it will open up
your AUTOEXEC.BAT in NOTEPAD when executed.
It will read the value of the "Desktop" and "Start Menu" strings from the
registry key named (under HKEY_CURRENT_USER):
Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell Folders
--------------
The Unit1 unit
--------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses
ShlObj, ActiveX, ComObj, Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName : String;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FileName := 'NOTEPAD.EXE';
with MySLink do begin
SetArguments('C:\AUTOEXEC.BAT');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg := TRegIniFile.Create(
'Software\MicroSoft\Windows\CurrentVersion\Explorer');
// Use the next line of code to put the shortcut on your desktop
Directory := MyReg.ReadString('Shell Folders','Desktop','');
// Use the next three lines to put the shortcut on your start menu
// Directory := MyReg.ReadString('Shell Folders','Start Menu','')+
// '\Whoa!';
// CreateDir(Directory);
WFileName := Directory+'\FooBar.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;
end.
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Karel Pechanec [SMTP:ka.pecha(zv)pvtnet(tec)cz]
> Odesl�no: 19.03.1999 06:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: VYTVORENI ZASTUPCE (*.lnk soubor)
>
> Zdravim
> potreboval bych API funkci pro vytvoreni ZASTUPCE z daneho souboru
> (zrejme nejaka fce, kde bude jako vstup hlavni soubor X:\XXX.exe , a
> cilovy sobor X:\XXX.lnk)
>
> Diik
>
> ==============
> Karel Pechanec
> ka.pecha(zv)pvtnet(tec)cz
> tel:0602-950 525
> ==============
> Letajici Image
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 19.3.1999 07:42:24
ahoj
dekuji vsem, kteri prispeli k objasneni problemu vykreslovani grafiky na
canvas formu ...
zdenek fryz
Overclock
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 19.3.1999 07:58:58
Vcera jsem stahl ze site program pro softwarove (!) pretaktovani sbernice a
procesoru. Nefunguje to pro vsechny desky, ale v seznamu jich je spousta.
Ja mam samozrejme, jak na svinu, jinou, ale kupodivu to po dvou pokusech
taky zabralo.
Koho to zajima, tak jsem se na ty stranky dostal pres ZIVE a nebo mu to
muzu poslat (doporucuji ale ty stranky, je tam spousta instrukci jak na
to).
Viktor
Pomoc s DCOM
[*] APEL, Petr Vobornik <vobornik(zv)apel(tec)cz> - 19.3.1999 08:03:20
Ahoj,
zacinam s DCOM a mel bych dotaz. Kde zjistim popis vsech rozhrani. Napr.
popis funkci pro rozrani prace s pameti Imalloc.
Prosim, muzete mi nekdo poskytnout nejakou jednoduchou ukazku aplikace
DCOM. Napr. Na serveru i klientech budu mit jeden EditBox, vsechny budou
vzajemne propojene. Napisu neco na serveru a objevi se mi to na klientech a
naopak.
Koukal jsem do archivu konference, ale nejsem z toho dvakrat moudry. V
dostupne dokumentaci jsem nenasel zadny takovyto jednoduchy priklad. Prosim
pomozte. Pozivam D3 C/S.
Diky moc Petr
vobornik(zv)apel(tec)cz
Local SQL Join
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 19.3.1999 07:04:08
Skus pouzit namiesto JOIN -> LEFT OUTER JOIN.
Mozno to vyriesi Tvoj problem.
Hasta la vista
delphista
M.
Peter �IRIP wrote:
>
> Zdravim vsetkych,
>
> vie mi niektory z Vas poradit, co robim zle ?
>
> Mam niekolko tabuliek, ktore su poprepajane cez jednoduche integer polia.
> Potrebujem zobrazit vyslednu tabulku tak, aby bolo vidno hlavnu tabulku
> spolu s udajmi z tych pomocnych. Pridanie lookup poli som zrusil, pretoze
> prezeranie vyslednej tabulky bolo strasne pomale. Nahradil som to tymto :
>
> SELECT HNIM.*, Pracov.Meno,PRACOV.Priezvisko, HimMiest.Nazov, UTV.Popis as
> C_Utvar,
>
> DOD.Nazov as C_Dodavatel, VYR.Nazov as C_Vyrobca
>
> from HNIM
>
> join Pracov on (Pracov.ID = HNIM.ZodpOsoba)
>
> join HimMiest on (HimMiest.ID = HNIM.ID_MIEST)
>
> join HimTab as UTV on (UTV.ID = HNIM.Utvar)
>
> join Adresar as DOD on (DOD.ID = HNIM.Dodavatel)
>
> join Adresar as VYR on (VYR.ID = HNIM.Vyrobca)
>
> where TypHIM='N'
>
> order by InvCislo
>
> Tu je ale problem. Ak je cast where taka, ze prejde len malo riadkov, je
> vsetko O.K. Ak ale zmenim podmienku tak, ze by mal byt vysledok napr. 3000
> riadkov, neukaze sa mi vobec nic, a pritom nezahlasi ziadnu chybu.
> Podobne ak tam dam napr. este jeden join pre dalsie polia, tiez nedostanem
> ziadny vysledok.
>
> Viete o tom ktosi cosi ? Ma local SQL nejake obmedzenia pre JOIN ? V helpe
> je toho uboho malo ...
>
> Dakujem.
>
> - att-1.htm
>
> ------------------------------------------------------------
> Name: att-1.htm
> att-1.htm Type: Hypertext Markup Language (text/html)
> Encoding: quoted-printable
Tvorba =?iso-8859-2?Q?webov=FDch=20str=E1nek?= v D
[*] Lubos <bruce(zv)pobox.sk> - 19.3.1999 08:11:21
>
> dop�edu se omlouv�m za sv�j naivn� dotaz. Nekamenujte m�, pros�m.
> Lze v Delphi tvo�it webov� str�nky a pokud ano, jak ?
ano daju. Daju sa vytvorit v lubovolnom editore, to ale musis vediet
syntax HTML a musis pisat zdrojak.
;)))
Ak chces nieco ako Frontpage tak to sa v D neda.
> V sekci Internet je komponenta HTML. K �emu slou�� ?
je vlastne browser HTML. Mozes si pomocou nej napisat
vlastny inet browser, ale nevie zobrazovat ramce.
/LH
Overclock: linky
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 19.3.1999 08:42:25
Stranka v Zive s clankem : http://194.108.114.194/r-art.asp?id=4897&app=9x40210202&ref=6
Stranka producenta SW : http://www2.tky.3web.ne.jp/~nrklv/index_e.html
Ja mam desku Acorp a s tou to, zda se, funguje, i kdyz neni v seznamu.
Viktor
Overclok
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 19.3.1999 08:45:07
Jo, nevite nekdo o nejakem jednoduchem benchmarkovem softu pro NT? Jde mi
jen o to, jak co nejjednoduseji zkontrolovat narust vykonu po pretaktovani.
Viktor
VYTVORENI ZASTUPCE (*.lnk soubor)
[*] Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz> - 19.3.1999 07:50:38 met
Treba takto:
function CreateLink(pszPathLink, pszPathObj, pszWorkDir,
pszArguments, pszIconPath: PChar; IconIndex: Integer): Boolean;
var
Psl: IShellLink;
Ppf: IPersistFile;
HRes: HResult;
begin
Result := False;
HRes := OleInitialize(nil);
HRes := CoCreateInstance(CLSID_ShellLink, nil,
CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl);
if HRes <> 0 then Exit;
Psl.SetPath(pszPathObj);
Psl.SetWorkingDirectory(pszWorkDir);
Psl.SetIconLocation(pszIconPath, IconIndex);
Psl.SetArguments(pszArguments);
HRes := psl.QueryInterface(IID_IPersistFile, Ppf);
if HRes <> 0 then Exit;
HRes := Ppf.Save(PWideChar(WideString(pszPathLink)), True);
if HRes <> 0 then Exit;
Result := True;
end;
Jarda
sikora(zv)kam(tec)czu(tec)cz
> Zdravim
> potreboval bych API funkci pro vytvoreni ZASTUPCE z daneho souboru
> (zrejme nejaka fce, kde bude jako vstup hlavni soubor X:\XXX.exe , a
> cilovy sobor X:\XXX.lnk)
>
> Diik
>
> ==============
> Karel Pechanec
> ka.pecha(zv)pvtnet(tec)cz
> tel:0602-950 525
> ==============
>
>
BCB 4 tak trochu off topic
[*] iturcan(zv)gamo.sk - 19.3.1999 08:53:48
>Tam muze byt navic i time-out. Tohle umi (mimo mnoho jineho) take
>OnGuard od TurboPower - na zaklade neceho se vygeneruje kod, ktery
>pak chodi. Ochrana na pocitace, datum, cas, pocet spusteni, pocet
>spustenych programu v siti apod.
Nieco podobne tam urcite je.
BCB 4 mam nainstalovane od stredy,t.j. momentalne mi vypisuje 58 dni do
ukoncenia eval.
Skusal som z instalaciou trosku experimentovat nuz a ak BCB 4 znovu
nainstalujem vzdy mi ostava 58 dni na odskusanie.
Pokusil zaregistrovat znovu pod inym menom, ale on si pamata moje cislo nuz
a spat mi posle prave to iste heslo ako prvy raz. Vzhladom na skutocnost ze
aj po reinstalacii je pocet dni do vyprsania ten isty
usudzujem ze datum musi byt zakodovany v cisle ktore mi prislo via e-mail,
a ako dekodovaci kluc mu sluzi cislo ktore zadavam pri registracii , to je
na kazdom pocitaci ine, cize bude to asi naozaj seriove cislo nejakej
komponenty v PC ( HDD, Bios,...)
Ivan Turcan
GAMO a.s.
Pomoc s DCOM
[*] iturcan(zv)gamo.sk - 19.3.1999 09:00:11
>Ahoj,
>zacinam s DCOM a mel bych dotaz. Kde zjistim popis vsech rozhrani. Napr.
>popis funkci pro rozrani prace s pameti Imalloc.
Vemi dobre informacie sa daju najst na www.micorsoft.com/com
>Prosim, muzete mi nekdo poskytnout nejakou jednoduchou ukazku aplikace
>DCOM. Napr. Na serveru i klientech budu mit jeden EditBox, vsechny budou
>vzajemne propojene. Napisu neco na serveru a objevi se mi to na klientech
a
>naopak.
>Koukal jsem do archivu konference, ale nejsem z toho dvakrat moudry. V
>dostupne dokumentaci jsem nenasel zadny takovyto jednoduchy priklad.
Prosim
>pomozte. Pozivam D3 C/S.
Uz som raz spominal o jednom prikladiku ktory by mohol splnat to co mas na
mysli , jedna sa o
jednoduchy chat pre dvoch , prostrednictvom COM-DCOM , ak mas zaujem zaslem
ti ho ...
Ivan Turcan
GAMO a.s.
Delphi & Corba
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 19.3.1999 09:07:51
Hi,
m�te pros�m n�kdo zku�enosti s Delphi a Corbou ?
Va�ek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Overclock
[*] Tom =?iso-8859-2?Q?Michal=EDk?= <tom.michalik(zv)usa(tec)net> - 19.3.1999 09:08:39
Ahoj,
mel bych zajem ...
Diky, Tom
Viktor Lostak wrote:
> Vcera jsem stahl ze site program pro softwarove (!) pretaktovani sbernice a
> procesoru. Nefunguje to pro vsechny desky, ale v seznamu jich je spousta.
> Ja mam samozrejme, jak na svinu, jinou, ale kupodivu to po dvou pokusech
> taky zabralo.
>
> Koho to zajima, tak jsem se na ty stranky dostal pres ZIVE a nebo mu to
> muzu poslat (doporucuji ale ty stranky, je tam spousta instrukci jak na
> to).
>
> Viktor
BCB 4 tak trochu off topic
[*] Lubos <bruce(zv)pobox.sk> - 19.3.1999 09:09:24
> no, ja som prave kdesy cital, ze BCB 4.0 ma PLNE podporovat projekty MS VC 4.x
> (alebo 5.x to si uz presne nepamatam) a po uprave v BCB sa daju znovu natiahnut
> do VC
> a normalne s nimi pracovat. Hned som zapochyboval, takze si to chcem overit.
> Skusim ten zdroj niekde pohladat.
>
uz to mam.
je to na
http://www.borland(tec)cz/cbuild4t.htm
a text je :
Import projekt� z
Visual C++
NOV�! Import projekt� z Visual C++ umo��uje v�voj���m vyu��t
v�hod existuj�c�ch projekt� a
pracovn�ch prostor� z Visual C++ a importovat je p��mo do C++
Builderu jako projekty a skupiny
projekt�. P�itom projekty lze i po importu do C++ Builderu
st�le p�elo�it pod VC++.
/LH
Pomoc s DCOM
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 19.3.1999 09:27:52
Haj hou!
From: APEL, Petr Vobornik <vobornik(zv)apel(tec)cz>
>zacinam s DCOM a mel bych dotaz. Kde zjistim popis vsech
rozhrani. Napr.
>popis funkci pro rozrani prace s pameti Imalloc.
1.) Ne vsechna rozhrani jsou pouzitelna via DCOM (nebo i COM
propojeni mezi dvema .EXE na stejnem pocitaci). To jsou jen ta,
ktera maji zaregistrovane tzv. proxy/stub knihovny, tedy casti
kodu, ktere umi preaset parametry jednotlivych metod rozhrani
mezi adresnimi prostory (.EXE nebo pocitacu, to uz je za jedny
penize). Tomuto prenosu parametru se rika marshalling. Ve windows
je navic knihovna, ktera umi marshalling parametru jakehokoliv
interface, ktery pouziva jen OLE Automation datove typy v
parametrech a ma zaregistrovanou typovou knihovnu.
2.) Seznam rozhrani v pocitaci se da sehnat jen velmi tezko, neb
je to velmi dynamicka zalezitost (kazdy ma nainstalovano neco
jineho). Kazdopadne zdrojem informaci je napr. help v Delphi
(OLE.HLP), MSDN (je i on-line na webu Microsoftu), dokumentace
jednotlivych programu (Excel, Word), dost se da vycenichat i
utilitami, ktere se prehrabuji v registry, jako je napr. OLEView
(je volne ke stazeni nekde u Microsoftu).
>Prosim, muzete mi nekdo poskytnout nejakou jednoduchou ukazku
aplikace
>DCOM. Napr. Na serveru i klientech budu mit jeden EditBox,
vsechny budou
>vzajemne propojene. Napisu neco na serveru a objevi se mi to na
klientech a
>naopak.
>Koukal jsem do archivu konference, ale nejsem z toho dvakrat
moudry. V
>dostupne dokumentaci jsem nenasel zadny takovyto jednoduchy
priklad. Prosim
>pomozte. Pozivam D3 C/S.
1.) Delphi nema moznost vytvaret proxy/stub knihovny, takze je
zavysla na standardnim marshallingu via typovou knihovnu a
OLEAutomation datove typy.
2.) Dobry priklad mas na svem pocitaci mezi demo priklady v
Delphi v adresari DEMOS\OLEAUTO kde je ukazkovy klient a server.
Protoze jde o komunikaci mezi dvema .EXE (out of process), lze je
provozovat i pres DCOM. Toho dosahnes nasledovne:
a) Musis mit SPRAVNE instalovany DCOM na obou pocitacich. Win95
musi mit doinstalovan nejlepe ve verzi 1.2 k mani zdarma u MS,
Win98/NT SP4 jej nepotrebuji. Rovnez IE4.02 obsahuje DCOM ale
verzi si nejsem jist.
b) Na www.Borland.COM by mely byt TI s podrobnym popisem jak
konfigurovat DCOM. Sorry, ale tady to vypisovat nebudu, neb je to
pokazde trochu jine dle verze DCOM, ruzne security nastaveni atd.
c) Server musi byt zaregistrovan na obou pocitacich (ano, i na
klientovi), coz se dela pouhym spustenim serveru s parametrem
/REGSERVER.
d) Pokud je server na stroji s NT, pak se pusti sam na zavolani z
klienta, ale pokud je na Win95/98, musi uz bezet (tzn. musi se
pustit rucne predem).
Mnoho zdaru.
EditMask
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 19.3.1999 09:35:42
Ahojte
v komponenta TTimeField (TTable) ma vlastnost EditMask a DisplayFormat,
v EditMask mam !90:00;1; DisplayFormat hh:nn.
V DBEditu vse vypada dobre nez do neho vlezu pro upravu casu, hodiny jsou
v pohode ale minuty to ukaze nulove (nap�. mam cas 17:35 pri editaci se to zmeni
na 17:00). Uz jsem zkousel vse co me napadlo a nevim co dal. Pomozte.
Standa
Local SQL Join
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 19.3.1999 09:03:05 met
> Zdravim vsetkych,
>
> vie mi niektory z Vas poradit, co robim zle ?
>
> Mam niekolko tabuliek, ktore su poprepajane cez jednoduche integer polia. Potrebujem zobrazit vyslednu tabulku tak, aby bolo vidno hlavnu tabulku spolu s udajmi z tych pomocnych. Pridanie lookup poli som zrusil, pretoze prezeranie vyslednej tabulky bolo strasne pomale. Nahradil som to tymto :
>
> SELECT HNIM.*, Pracov.Meno,PRACOV.Priezvisko, HimMiest.Nazov, UTV.Popis as C_Utvar,
>
> DOD.Nazov as C_Dodavatel, VYR.Nazov as C_Vyrobca
>
> from HNIM
>
> join Pracov on (Pracov.ID = HNIM.ZodpOsoba)
>
> join HimMiest on (HimMiest.ID = HNIM.ID_MIEST)
>
> join HimTab as UTV on (UTV.ID = HNIM.Utvar)
>
> join Adresar as DOD on (DOD.ID = HNIM.Dodavatel)
>
> join Adresar as VYR on (VYR.ID = HNIM.Vyrobca)
>
> where TypHIM='N'
>
> order by InvCislo
>
>
> Tu je ale problem. Ak je cast where taka, ze prejde len malo riadkov, je vsetko O.K. Ak ale zmenim podmienku tak, ze by mal byt vysledok napr. 3000 riadkov, neukaze sa mi vobec nic, a pritom nezahlasi ziadnu chybu.
> Podobne ak tam dam napr. este jeden join pre dalsie polia, tiez nedostanem ziadny vysledok.
>
> Viete o tom ktosi cosi ? Ma local SQL nejake obmedzenia pre JOIN ? V helpe je toho uboho malo ...
Ja nevim, zkusil bych treba ty joiny preformulovat do klauzule
WHERE:
select ...
WHERE
(Pracov.ID = HNIM.ZodpOsoba)
AND (HimMiest.ID = HNIM.ID_MIEST)
AND (UTV.ID = HNIM.Utvar)
AND (DOD.ID = HNIM.Dodavatel)
AND (VYR.ID = HNIM.Vyrobca)
AND TypHIM='N'
treba to pak pojede ...
Jinak buh s tebou ...
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Pomoc s DCOM
[*] iturcan(zv)gamo.sk - 19.3.1999 10:08:58
>c) Server musi byt zaregistrovan na obou pocitacich (ano, i na
>klientovi), coz se dela pouhym spustenim serveru s parametrem
>/REGSERVER.
V tomto pripade ti musim oponovat. Co ta vedie k tomu ze server musis
registrovat aj na klienta ?
To vobec nie je pravda,
server staci zaregistrovat na servri, kde musis nastavit pristupove prava
pre klientov,
z klienta sa potom pripajas napriklad pomocou
fn. CreateRemoteComObject(const MachineName: WideString; const ClassID:
TGUID): IUnknown;
Ivan Turcan
GAMO a.s.
Pomoc s DCOM
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 19.3.1999 10:10:38
O ten priklad bych mel taky zajem.Diky.
> -----P�vodn� zpr�va-----
> Od: iturcan(zv)gamo.sk [SMTP:iturcan(zv)gamo.sk]
> Odesl�no: 19. b�ezna 1999 9:00
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Pomoc s DCOM
>
>
>
>
>
> >Ahoj,
> >zacinam s DCOM a mel bych dotaz. Kde zjistim popis vsech rozhrani.
> Napr.
> >popis funkci pro rozrani prace s pameti Imalloc.
>
> Vemi dobre informacie sa daju najst na www.micorsoft.com/com
>
> >Prosim, muzete mi nekdo poskytnout nejakou jednoduchou ukazku
> aplikace
> >DCOM. Napr. Na serveru i klientech budu mit jeden EditBox, vsechny
> budou
> >vzajemne propojene. Napisu neco na serveru a objevi se mi to na
> klientech
> a
> >naopak.
> >Koukal jsem do archivu konference, ale nejsem z toho dvakrat moudry.
> V
> >dostupne dokumentaci jsem nenasel zadny takovyto jednoduchy priklad.
> Prosim
> >pomozte. Pozivam D3 C/S.
>
> Uz som raz spominal o jednom prikladiku ktory by mohol splnat to co
> mas na
> mysli , jedna sa o
> jednoduchy chat pre dvoch , prostrednictvom COM-DCOM , ak mas zaujem
> zaslem
> ti ho ...
>
>
> Ivan Turcan
> GAMO a.s.Pomoc s DCOM
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 19.3.1999 10:31:21
doporucujem radsej CORBU...
> -----Original Message-----
> From: APEL, Petr Vobornik [SMTP:vobornik(zv)apel(tec)cz]
> Sent: Friday, March 19, 1999 8:03 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Pomoc s DCOM
>
> Ahoj,
> zacinam s DCOM a mel bych dotaz. Kde zjistim popis vsech rozhrani. Napr.
> popis funkci pro rozrani prace s pameti Imalloc.
> Prosim, muzete mi nekdo poskytnout nejakou jednoduchou ukazku aplikace
> DCOM. Napr. Na serveru i klientech budu mit jeden EditBox, vsechny budou
> vzajemne propojene. Napisu neco na serveru a objevi se mi to na klientech
> a
> naopak.
> Koukal jsem do archivu konference, ale nejsem z toho dvakrat moudry. V
> dostupne dokumentaci jsem nenasel zadny takovyto jednoduchy priklad.
> Prosim
> pomozte. Pozivam D3 C/S.
>
> Diky moc Petr
>
> vobornik(zv)apel(tec)cz
> Pozice kurzoru
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.3.1999 10:42:17
Zdravim,
mam na formu TRichEdit, pisu v nem a chci na pozici kurzoru zobrazit
ListView (viz editor Delphi Ctrl+J). Aktualni pozici kurzoru zjistim pomoci
GetCursorPos?==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================
Pozice kurzoru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 19.3.1999 10:45:15
Ne, GetCursorPos je pozice mysiho kurzoru. Tomu "voziku"
se rika caret, myslim. (nemyslim carrier!)
D.//Pokud jsi sam ovsem nemyslel mysi kurzor...
>mam na formu TRichEdit, pisu v nem a chci na pozici kurzoru
zobrazit
>ListView (viz editor Delphi Ctrl+J). Aktualni pozici kurzoru
zjistim pomoci
>GetCursorPos?
Pomoc s DCOM
[*] iturcan(zv)gamo.sk - 19.3.1999 10:53:35
>doporucujem radsej CORBU...
preco nie, len ktory zakaznik ju zaplati ...
Dnes zakaznici nechcu platit ani len za SQL server nie to este za CORBU, tu
si mozu dovolit len velke podniky, banky, ...
Ivan Turcan
GAMO a.s.
Pomoc s DCOM
[*] APEL, Petr Vobornik <vobornik(zv)apel(tec)cz> - 19.3.1999 11:25:24
Pokud mi ho muzes poslal, tak predem dekuji.
Petr
vobornik(zv)apel(tec)cz
-----Puvodni zprava-----
Od: iturcan(zv)gamo.sk [SMTP:iturcan(zv)gamo.sk]
Odeslano: 19. boezna 1999 9:00
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Pomoc s DCOM
>Ahoj,
>zacinam s DCOM a mel bych dotaz. Kde zjistim popis vsech rozhrani. Napr.
>popis funkci pro rozrani prace s pameti Imalloc.
Vemi dobre informacie sa daju najst na www.micorsoft.com/com
>Prosim, muzete mi nekdo poskytnout nejakou jednoduchou ukazku aplikace
>DCOM. Napr. Na serveru i klientech budu mit jeden EditBox, vsechny budou
>vzajemne propojene. Napisu neco na serveru a objevi se mi to na klientech
a
>naopak.
>Koukal jsem do archivu konference, ale nejsem z toho dvakrat moudry. V
>dostupne dokumentaci jsem nenasel zadny takovyto jednoduchy priklad.
Prosim
>pomozte. Pozivam D3 C/S.
Uz som raz spominal o jednom prikladiku ktory by mohol splnat to co mas na
mysli , jedna sa o
jednoduchy chat pre dvoch , prostrednictvom COM-DCOM , ak mas zaujem zaslem
ti ho ...
Ivan Turcan
GAMO a.s.
Metoda Paint pro CheckBox a RadioButton
[*] Martin Fr�hlich <martin.frohlich(zv)seznam(tec)cz> - 19.3.1999 11:44:34
Zdravim
----------
> > Potreboval bych vytvorit komponenty odvozene od TCheckBox a TRadioButton,
> > ktere by meli moznost stinovaneho textu a HotTracking (kdyz jsem nad ni
> > mysi zmeni text barvu). Nevim ale, jak jednoduse zmenit vykreslovani
> > komponent. CheckBox ani RadioButton nemaji metodu Paint, kterou bych mohl
> > predefinovat, a nenasel jsem ani, kde se vykresluji. Bylo by to pro Delphi
> > 3 Profesional.
>
> Zastav se nekdy na skoleni komponent u Inprise, tam tohle
> vykadam. :-)
>
Momentalne neni cas na skoleni. Mozna nekdy priste.
> Protoze se jedna o wokenni komponenty, je treba na to jit trochu
> oklikou, priblizne takto:
> V CreateParams musis nastavit
>
> with Params do Style:=Style or BS_OWNERDRAW;
>
To jsem udelal.
-----------------------------------8<--------------------------------
procedure TShadowCheckBox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do Style := Style or BS_OWNERDRAW;
end;
-----------------------------------8<--------------------------------
> Potom odchytis napriklad zpravu CN_DRAWITEM, a pod ni si
> premalujes cele okno.
>
To jsem taky udelal a nejak mi ta zprava neprichazi :-(
-----------------------------------8<--------------------------------
Protected
procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
implementation
procedure TShadowCheckBox.CNDrawItem(var Message: TWMDrawItem);
begin
DrawItem(Message.DrawItemStruct^); { <--- Tady mi to nikdy nedojde }
end;
-----------------------------------8<--------------------------------
Trochu nazornejsi priklad by mi pomohl vic.
Predem dekuji.
===============================================
Martin Frohlich, Application designer UNITES Valasske Mezirici
Tel./Fax.: +420 651 22562
+420 651 615085
E-mail:martin.frohlich(zv)seznam(tec)cz
martin.frohlich(zv)iol(tec)cz
unites(zv)telecom(tec)cz
===============================================>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Pomoc s DCOM
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 19.3.1999 12:06:10
Haj hou!
Na klientovi je nutne zaregistrovat typovou knihovnu. Protoze
Delphi ji zabaluje jako resource do .EXE serveru je nejjednodossi
spusob jak ji zaregistrovat prave registraci serveru.
Jinak mas samozrejme pravdu, neni nutne registrovat server. Ale
ta typova knihovna zaregistrovana byt proste musi.
From: iturcan(zv)gamo.sk <iturcan(zv)gamo.sk>
>>c) Server musi byt zaregistrovan na obou pocitacich (ano, i na
>>klientovi), coz se dela pouhym spustenim serveru s parametrem
>>/REGSERVER.
>
>V tomto pripade ti musim oponovat. Co ta vedie k tomu ze server
musis
>registrovat aj na klienta ?
>To vobec nie je pravda,
>server staci zaregistrovat na servri, kde musis nastavit
pristupove prava
>pre klientov,
>z klienta sa potom pripajas napriklad pomocou
>fn. CreateRemoteComObject(const MachineName: WideString; const
ClassID:
>TGUID): IUnknown;
MSSQL chyba pri tisku
[*] ing. Martin Porkert <tes(zv)pce(tec)cz> - 19.3.1999 12:20:30
Ahoj vespolek,
Mam jednu prosbu, aplikace na MS SQL6.5 SP4 hlasi pri tisku na serveru hlasku
Error 3617 ex-print unable write to Listen On connection \pipe\sql\query
Aplikace je v delphi 2, tisk z modulu SINEA, BDE 5.01, klient NT Workstation CZ
Dekuji za kazde nakopnuti kupredu
Martin
TES spol. s r. o.
ing. Martin Porkert
email: tes(zv)pce(tec)cz
tel: 040 36979
tel/fax: 040 36992
Letajici Image
[*] OceaniC <pleticha(zv)kol1.kolej.ujep(tec)cz> - 19.3.1999 13:08:00
Akojky
prave si hraju s projektem, ktery jsem ziskal od Zdenka Fryze (kteremu
touto cestou velice dekuji - dekuji take vsem co to pomohli dat do hromady)
a do projektu jsem dodal komponentu pro prehravani "pruhledneho" videa,
komponeta pri prehravani nad obrazkem funfuje normalne, ale pokud pod videem
projede letajici obrazek (canvas) video je pruhledne vuci formu a ne vuci
canvasu. Video se spravne prekresli v okamziku kdy najedu na ikonu (objevi
se bublinka) Minimalizovat,Maximalizovat nebo Zavrit a nasledne odjedu pryc.
A ted k veci jek tuto udalost vygenerovat nebo odchytit tak, aby to vedlo k
te same udalosti.
Dekuji OceaniC
Icq: 20084514
QuickReport a neviditelne buttony
[*] suvak(zv)pbko.sk - 19.3.1999 13:33:53
Ahojte,
v aplikacii pouzivam QuickReport s preview pred tlacou.
Na niektorych pocitacoch, kde som aplikaciu nainstaloval
vsak tlacitka na hornej liste v preview nie su viditelne, hoci
su funkcne.
(ide o buttony Print, Printer setup, zoom to fit atd.)
Stava sa to na pocitacoch s W95 aj W98. Ja pouzivam
Delphi C/S 4.0 SP 3. Nestretol sa s tym niekto?
Dakujem,
Peter
=============================================================
Ing. Peter Suvak, veduci oddelenia spravy systemov
Priemyselna banka, a.s. Kosice
Sturova 27
040 01 Kosice
tel: 095 / 6804 282
fax: 095 / 6804 510
mobil: 0903 610 901
e-mail: suvak(zv)pbko.sk
=============================================================
Filter on DATE
[*] Brcko <Peter.Laurinc(zv)ibaware.sk> - 19.3.1999 15:23:28
Mam vytvorenu PDOX tabulku, v nej polozku DATUM typu DATE. Pristupujem na nu pomocou std. TTable. Potrebujem nastavit filter on TTable od - do tj. od nejakeho datumu do nejakeho datumu. Ako treba nastavit property Filter v TTable?
Vdaka za pomoc
Filter on DATE
[*] Marek Soukup <marek(zv)comberg(tec)com> - 19.3.1999 15:49:56
Ahoj,
co treba
NazevDatPolozky < DoDatumu and NazevDatPolozky > OdDatumu
a OdDatumu a DoDatumu jsou TDateTime kam narves hodnotu tech datumu.
Marek
Brcko wrote:
> Mam vytvorenu PDOX tabulku, v nej polozku DATUM typu DATE.
> Pristupujem na nu pomocou std. TTable. Potrebujem nastavit filter on
> TTable od - do tj. od nejakeho datumu do nejakeho datumu. Ako treba
> nastavit property Filter v TTable? Vdaka za pomoc
Ovladani seriovych portu
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 19.3.1999 16:25:38
[P��loha v souboru: Portio.dpr]
Mam soft, ktery v pripade zajmu mohu poslat na soukrom� e
-mail, ma to 1,5 mega. P�ikl�d�m textov� popis od firmy.
Je to API32 knihovna pro cteni a zapis byte, word a dword
na libovoln� port. Nevimm jestli to pomuze, sam se tim n
ezabyvam. Ale co kdyby... Prilozen je i zdrojak unity pro
D3.
Zdravi
* Petr Ma��k ** RT electronic *
* rtepema(zv)mb
ox.vol(tec)cz *
* tel. -02-20510562 *
-----P�vodn� zpr�va-----
Od: Patrik Volhejn <volhej
n(zv)kol1.kolej.ujep(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-
l(zv)fwd(tec)cz>
Datum: 16. b�ezna 1999 18:44
P�edm�t:
Ovladani seriovych portu
QuickReport a neviditelne buttony
[*] J.Faltynek <FS_software(zv)telecom(tec)cz> - 19.3.1999 17:22:40
-----P�vodn� zpr�va-----
Od: suvak(zv)pbko.sk <suvak(zv)pbko.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. b�ezna 1999 16:12
P�edm�t: QuickReport a neviditelne buttony
>
>
>Ahojte,
>
>v aplikacii pouzivam QuickReport s preview pred tlacou.
>Na niektorych pocitacoch, kde som aplikaciu nainstaloval
>vsak tlacitka na hornej liste v preview nie su viditelne, hoci
>su funkcne.
>(ide o buttony Print, Printer setup, zoom to fit atd.)
>Stava sa to na pocitacoch s W95 aj W98. Ja pouzivam
>Delphi C/S 4.0 SP 3. Nestretol sa s tym niekto?
>
>Dakujem,
> Peter
Jednu zkusenost mam, v W95 pomohlo dat mladsi ComCtl32.DLL. Problem se tykal
vsech ImageListu.
ahoj
>
>=============================================================
>Ing. Peter Suvak, veduci oddelenia spravy systemov
>Priemyselna banka, a.s. Kosice
>Sturova 27
>040 01 Kosice
>
>tel: 095 / 6804 282
>fax: 095 / 6804 510
>mobil: 0903 610 901
>e-mail: suvak(zv)pbko.sk
>=============================================================
>
>