Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Spusteni DCOM a MDAC v InstallShieldu
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 1.6.2000 11:22:48
> D3, InstallShield Express for D3
>
> Uz jsem tady s tim otravoval, ale k vysledku to nevedlo. Potreboval
> bych v prubehu instalace meho programku instalovat DCOM a MDAC (pouze
> ODBC ovladac pro MS SQL7), ale nevim jak nakonfigurovat IS, aby se mu
> na pozadi spustil DCOM a MDAC. DCOM bych tam mel spustit prikazem
> DCOM95.EXE /r:n /q:u, ale nevim jakym prikazem spustit MDAC aby mi tam
> necpal vse, ale jen ten ovladac a hlavne kde tyto prikazy umistit a
> kde by mely byt ty spustitelne soubory (DCOM95.exe a MDAC_typ.exe)?
Na zaklade svych drivejsich snah bych skoro dal ruku do ohne za
to, ze s pomoci InstallShieldu to nedokazes, protoze nenabizi
nejaky standardni zpusob, jak ze sebe spustit jinou aplikaci a jeste
k tomu vyhodnotit, jak to dopadlo. Nejsem si ted jist, zda DCOM95
nevyzaduje po skonceni instalace restart pocitace, a pokud ho
neudelas, zda uspejes s instalaci MDAC (ktera mimochodem taky
vyzaduje restart, ale ten by sis obvykle mohl nechat na pozdeji).
Nevim, zda by nejak pomohl Inno Setup, vubec ho neznam, ale
spis bych veril tomu, ze Ti nejaky standardni instalator nepomuze.
Ja se v podobne (jeste komplikovanejsi) situaci rozhodl pro
vytvoreni vlastniho instalacniho programu pro svou aplikaci.
David
Problemy s ref. integritou u Paradoxu
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 1.6.2000 11:41:52
Mohu se zeptat co to je ???
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Jaroslav Nadhera
> Sent: Thursday, June 01, 2000 8:58 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Problemy s ref. integritou u Paradoxu
>
>
> Ja bych si vybral MSDE.
>
> J. N�dhera
>
> CSH spol. s r.o.
> Velflikova 10, 160 00 Praha 6
> tel: 02/2431 2344-5, fax: 02/652 28 92
> Nedbalova 14, 701 00 Ostrava
> tel: 069/663 56 87
> e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
>
> ----- Original Message -----
> From: Pavel Kahle <kahle(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, May 31, 2000 12:07 PM
> Subject: Re: Problemy s ref. integritou u Paradoxu
>
>
> > Nerad bych vyvolal flame war, ale presto se zeptam:
> >
> > Jakou pouzivat databazi,
> > aby byla zadarmo, umela vnoreny select,
> > a byla spolehliva ?
> >
> > Diky P.Kahle
> >
> >Paradox
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 1.6.2000 12:39:32
Menu View - Document Source :)))
Milan Tomes
P.S.: Taky delam v Paradoxu, takze bychom si mohli v pripade potizi pomahat.
Ale bude to vhodne asi pres soukr. mail.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> azeleny(zv)csas(tec)cz
> Sent: Thursday, June 01, 2000 10:00 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Paradox
>
>
> DDV,
> nevite nekdo prosim (moc), jak z PX formulare, knihovny... (fsl, lsl...)
> vydumpovat cely zdrojak?
> Standardne je totiz treba v Object expolreru najit nejaky objekt, zobrazit
> si jeho metodu a o je ten kamen urazu, vzdy je videt zdrojak pouze od teto
> jedne metody, neznam zadny zpusob, jak si prohlidnout nejaky
> vypis, aby byla
> videt implementace vsech metod.
> Nejaka funkce v PX7, kterou jsem nenasel, nebo utilita, ktera by
> to umela...
>
> Za kazdou uzitecnou radu _VELMI_ dekuji.
>
> ----------------------------------------------------------------------
> Ale� Zelen�
> �esk� spo�itela a.s
> Na Per�t�n� 1
> 113 98 Praha 1
> Email: azeleny(zv)csas(tec)cz
> tel: +420 2 24995 236
> ----------------------------------------------------------------------
> Due to technical difficulties tomorrow has been postponed indefinitely.OT: Paradox
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 01.6.2000 12:56:34
Paradox ma na to funkciu, ktora urobi cely report o vsetkych pouzitych metodach
a vypise aj ich obsah. Nemam tu po ruke paradox, ale na 100 % to tam je. Takze,
hladaj...
azeleny(zv)csas(tec)cz wrote:
> DDV,
> nevite nekdo prosim (moc), jak z PX formulare, knihovny... (fsl, lsl...)
> vydumpovat cely zdrojak?
> Standardne je totiz treba v Object expolreru najit nejaky objekt, zobrazit
> si jeho metodu a o je ten kamen urazu, vzdy je videt zdrojak pouze od teto
> jedne metody, neznam zadny zpusob, jak si prohlidnout nejaky vypis, aby byla
> videt implementace vsech metod.
> Nejaka funkce v PX7, kterou jsem nenasel, nebo utilita, ktera by to umela...
>
> Za kazdou uzitecnou radu _VELMI_ dekuji.
>
> ----------------------------------------------------------------------
> Ale� Zelen�
> �esk� spo�itela a.s
> Na Per�t�n� 1
> 113 98 Praha 1
> Email: azeleny(zv)csas(tec)cz
> tel: +420 2 24995 236
> ----------------------------------------------------------------------
> Due to technical difficulties tomorrow has been postponed indefinitely.TextWidth s kurzivou
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 01.6.2000 07:01:29 -0400
Ahoj
Nevim zrovna jestli je tohle reseni, ale pri pouziti neproporcionalniho pisma mi to taky delalo problemy skus pouzit pouze proporcionalni.
Ladap
>>> tonyk(zv)atlas(tec)cz 31.5.00 9:27 >>>
Zdravim vsechny a dekuji za pripadnou odpoved:
Otazka je prakticky cela v predmetu. Zjistil jsem, ze mi funkce textwidth
spatne pocita delku textu, pokud je napsan (TCanvas je tak nastaven) fontem
s kurzivou. Lisi se skoro presne prave o to nakloneni, coz u velkych fontu
(size 50 a vice) uz je slusny pocet pixelu. Nevite nekdo, jak to spocitat
presne?
Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz
Aktualni okno
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 1.6.2000 13:08:31
Funkce GetForegroundWindow vraci jako parametr HWND okna, ktere je v
popredi. Takze pak uz staci jenom porovnat...
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of r.tesar(zv)atlas(tec)cz
> Sent: Thursday, June 01, 2000 10:39 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Aktualni okno
>
>
> Ahojte Delf�ni
>
> Potreboval mam aplikaci, kde projizdim vsechna okna, funkci
> IsWindowVisible(Handle). Jakym zpusobem zjistim, ze prave
> kontrolovane okno je aktivni
> Dik za vsechny rady
> Radek Tesar
Open - Close
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 1.6.2000 13:25:55
ahoj
delam neco podobneho bezne, a funguje to bez problemu...
udelam txt a spustim win aplikaci. wapp si ohlida jednu instanci a
zpracuje txt.
problem bude asi v te dos app.
-----Original Message-----
From: Lauko �tefan [mailto:lauko(zv)salamon.sk]
Sent: Thursday, June 01, 2000 9:52 AM
To: Delphi CZ konferencia
Subject: Open - Close
Dobry,
vedel by mi niekto poradit v tomto probleme:
- jeden proces vytvory subor na lokalnom disku zapise obsah uzatvory ho.
- druhy proces ho chce otvorit ale Windows ho fizycky este neuzatvoril.
V druhom procese je tento kod:
Var
F :File;
Result:Integer;
begin
AssignFile(F,'Subor.txt');
{$I-}
Reset(F,1);
Result:= IoResult;
While Result <> 0 do
begin
Reset(F,1);
Result:= IoResult;
Application.ProcessMessages;
end;
{$I+}
CloseFile(F);
SpracujSubor('Subor.txt');
end;
Subor existuje, prvy proces ho uzatvoril ale pre druhy je este
nezdielatelny???
Doba nezdielatelnosti je rozna 10s,15s,5s... (nahodna).
Je mozne v druhom procese poslat spravu (SendMessage...) pre Windows
aby aktualizoval subor aj na fizyckej urovni.
Pre uplnost:
Prvy proces je DOS-applikacia, druhy je program v D5 ktory ma spracovat
TXT-subor.
Odozva je niekedy neuveritelne dlha...
Za odpovede vopred dakujem.
Lauko.Spusteni DCOM a MDAC v InstallShieldu
[*] Ren� Otisk - 1.6.2000 13:26:21
Omlouvam se. Je to unattended mode dcm95cfg.exe /r:n /q:u
Sroub
Ahoj,
myslim ze omnoho vhodnejsi na tento ucel je instalacny program InnoSetup
http://www.jordanr.dhs.org/isinfo.htm (freeware) aj s nadstavbou SkripMaker
http://www.tafweb.com/scriptmaker.html .
Ak chces uzivatelsku instalaciu mdac hladaj v MSDN "MDAC unattended". Mozem
poslat ak to nenajdes.
Na co su prepinace /r:n /q:u ? Moje dcom95.exe v napovede (dcom95 /?) uvadza
iba /q /t /c.
Palo.
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Ren� Otisk
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, June 01, 2001 8:56 AM
Subject: Spusteni DCOM a MDAC v InstallShieldu
> Hi,
>
> D3, InstallShield Express for D3
>
> Uz jsem tady s tim otravoval, ale k vysledku to nevedlo. Potreboval bych v
> prubehu instalace meho programku instalovat DCOM a MDAC (pouze ODBC
> ovladac pro MS SQL7), ale nevim jak nakonfigurovat IS, aby se mu na pozadi
> spustil DCOM a MDAC. DCOM bych tam mel spustit prikazem DCOM95.EXE /r:n
> /q:u, ale nevim jakym prikazem spustit MDAC aby mi tam necpal vse, ale jen
> ten ovladac a hlavne kde tyto prikazy umistit a kde by mely byt ty
> spustitelne soubory (DCOM95.exe a MDAC_typ.exe)?Spusteni DCOM a MDAC v InstallShieldu
[*] Ren� Otisk - 1.6.2000 13:31:43
Zase jsem pred chvilkou kecal, je unattended mode i pro DCOM95.exe
Sroub
----- Original Message -----
From: Pavol Stolc <pstolc(zv)sc.sknet.sk>
To: Delphi Konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 10:09 AM
Subject: RE: Spusteni DCOM a MDAC v InstallShieldu
Ahoj,
myslim ze omnoho vhodnejsi na tento ucel je instalacny program InnoSetup
http://www.jordanr.dhs.org/isinfo.htm (freeware) aj s nadstavbou SkripMaker
http://www.tafweb.com/scriptmaker.html .
Ak chces uzivatelsku instalaciu mdac hladaj v MSDN "MDAC unattended". Mozem
poslat ak to nenajdes.
Na co su prepinace /r:n /q:u ? Moje dcom95.exe v napovede (dcom95 /?) uvadza
iba /q /t /c.
Palo.
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Ren� Otisk
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, June 01, 2001 8:56 AM
Subject: Spusteni DCOM a MDAC v InstallShieldu
> Hi,
>
> D3, InstallShield Express for D3
>
> Uz jsem tady s tim otravoval, ale k vysledku to nevedlo. Potreboval bych v
> prubehu instalace meho programku instalovat DCOM a MDAC (pouze ODBC
> ovladac pro MS SQL7), ale nevim jak nakonfigurovat IS, aby se mu na pozadi
> spustil DCOM a MDAC. DCOM bych tam mel spustit prikazem DCOM95.EXE /r:n
> /q:u, ale nevim jakym prikazem spustit MDAC aby mi tam necpal vse, ale jen
> ten ovladac a hlavne kde tyto prikazy umistit a kde by mely byt ty
> spustitelne soubory (DCOM95.exe a MDAC_typ.exe)?Athlon
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.6.2000 14:09:35
DD,
Setkal se nekdo s nejakymi problemy s aplikacemi pasanymi v Delphi (5) na
strojich s procesorem AMD Athlon? Napr, ze by program nesel vubec spustit?
Zdravi
D. Toman
OT: Paradox
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 1.6.2000 13:11:20
Velmi me prekvapuje, ze dnes jeste nekdo programuje pod Paradoxem.
Sam jsem to kdysi delal, ale jeste pod verzi 5. Vim, ze jsem obcas
delal, to co je predmetem dotazu a ze to slo. Nyni mam verzi 7 (pod
kterou neprogramuji), ale najit jsem to tam nemohl. Jen si vzpominam,
ze se to delalo nejak jako report. Ale ted jsem na to nemohl proste
prijit.
> DDV,
> nevite nekdo prosim (moc), jak z PX formulare, knihovny... (fsl, lsl...)
> vydumpovat cely zdrojak?
> Standardne je totiz treba v Object expolreru najit nejaky objekt, zobrazit
> si jeho metodu a o je ten kamen urazu, vzdy je videt zdrojak pouze od teto
> jedne metody, neznam zadny zpusob, jak si prohlidnout nejaky vypis, aby byla
> videt implementace vsech metod.
> Nejaka funkce v PX7, kterou jsem nenasel, nebo utilita, ktera by to umela...
>
> Za kazdou uzitecnou radu _VELMI_ dekuji.
>
>
> ----------------------------------------------------------------------
> Ale� Zelen�
> �esk� spo�itela a.s
> Na Per�t�n� 1
> 113 98 Praha 1
> Email: azeleny(zv)csas(tec)cz
> tel: +420 2 24995 236
> ----------------------------------------------------------------------
> Due to technical difficulties tomorrow has been postponed indefinitely.
>
Milan Dvo��k
dvorak(zv)gymzn(tec)cz
Odkaz na TTreeNode
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 1.6.2000 14:27:49
Ahoj
(BCB 5.0)
Mam formular obsahujici TreeView, tento TreeView ma jiz v dobe navrhu
nejake zakladni vetve. V OnCreate formulare si zapamatuji nejakou
vetev:
nEntity = tvComponents->Items->Item[nnEntity];
V tomto okamziku je vse OK, nEntity ukazuje na spravnou vetev (Ve
watchi mam nEntity->Text a ten je "Entity").
Pozdeji, kdyz chci vyuzit tento odkaz na vetev TreeView (abych pridal
nejake ty Childy), tak tento ukazatel ukazuje nejspise nekam uplne
jinam, nebot ve Watchi mam:
nEntity->Text = Nejake nesmysly pripadne NULL.
Muze mi to nekdo objasnit, co se tam deje? Pripadne co delam spatne a
jak to napravit?
Diky
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Paradox - dik
[*] azeleny(zv)csas(tec)cz - 1.6.2000 14:28:32
DDV,
diky vsem za odpoved, toto jem prehlidl a _VELMI_ mi to pomohlo.
Jinak, proc vlastne jeste porad Paradox... je to historickych duvodu, udrzba
aplikace, ktera uz bezi... radost z toho nemam, nove utilitky jsou jiz psany
pod Delphi...
Svet je obcas slozitej, ale diky vsem za pomoc!!!> Menu View - Document Source :)))
>
> Milan Tomes
>
> P.S.: Taky delam v Paradoxu, takze bychom si mohli v pripade
> potizi pomahat.
> Ale bude to vhodne asi pres soukr. mail.OT: Data z formulare pres email v HTML
[*] Ing. Radim Bro�ek <radim.brozek(zv)berit(tec)cz> - 1.6.2000 14:30:33
Omlouvam se za OT, ale mam nasledujici problem.
Pro snadnou registraci zakoupeneho produktu chceme zakaznikum nabidnout formular
v HTML, ktery vyplni a odeslou kliknutim na buton poslat, nebo ho vytisknou a zafaxuji.
Mame vsak nasledujici problem. Po stisku odeslat se aktivuje okno s novou zpravou
v MS Outlook 97, ale data z formulare se neprenesou. Naplni se jen email.
Pokud se pouzije Outlook Express, tak je vse v poradku.
<FORM ENCTYPE="text/plain" ACTION="mailto:radim.brozek(zv)berit(tec)cz" method=post>
<INPUT type="checkbox" name="em" value="email" chcecked>Odeslat emailem<BR>
.
.
.
<BUTTON name="tlacitko" type="submit" accesskey="O">
<B><U>O</U>deslat data ke zpracov�n�</B><BR>
</BUTTON>
</FORM>
Muzete nekdo poradit co s tim ?
Browser je IE 5.0
Diky.
Radim Brozek
Spusteni DCOM a MDAC v InstallShieldu
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 1.6.2000 13:32:26
Spustit jinou aplikaci z IS Express asi (?) nepujde,
ale pokud mas IS for M$ C++, ktery je soucasti
instalace Visual Studia, tak s tim uz to dokazes.
Tahle verze totiz umoznuje spoustet funkce z
jakekoli DLL knihovny. Takze zavolas funkci
a ta uz spusti to co potrebujes...
Ahoj Tomas Bihary
----- Original Message -----
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 10:22 AM
Subject: Re: Spusteni DCOM a MDAC v InstallShieldu
> > D3, InstallShield Express for D3
> >
> > Uz jsem tady s tim otravoval, ale k vysledku to nevedlo. Potreboval
> > bych v prubehu instalace meho programku instalovat DCOM a MDAC (pouze
> > ODBC ovladac pro MS SQL7), ale nevim jak nakonfigurovat IS, aby se mu
> > na pozadi spustil DCOM a MDAC. DCOM bych tam mel spustit prikazem
> > DCOM95.EXE /r:n /q:u, ale nevim jakym prikazem spustit MDAC aby mi tam
> > necpal vse, ale jen ten ovladac a hlavne kde tyto prikazy umistit a
> > kde by mely byt ty spustitelne soubory (DCOM95.exe a MDAC_typ.exe)?
>
> Na zaklade svych drivejsich snah bych skoro dal ruku do ohne za
> to, ze s pomoci InstallShieldu to nedokazes, protoze nenabizi
> nejaky standardni zpusob, jak ze sebe spustit jinou aplikaci a jeste
> k tomu vyhodnotit, jak to dopadlo. Nejsem si ted jist, zda DCOM95
> nevyzaduje po skonceni instalace restart pocitace, a pokud ho
> neudelas, zda uspejes s instalaci MDAC (ktera mimochodem taky
> vyzaduje restart, ale ten by sis obvykle mohl nechat na pozdeji).
> Nevim, zda by nejak pomohl Inno Setup, vubec ho neznam, ale
> spis bych veril tomu, ze Ti nejaky standardni instalator nepomuze.
> Ja se v podobne (jeste komplikovanejsi) situaci rozhodl pro
> vytvoreni vlastniho instalacniho programu pro svou aplikaci.
>
> David
Athlon
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.6.2000 14:32:39
Ahoj,
na Athlonu provozuji W2k, D5, IB, Oracle a aplikace z D5, a s zadnym
problemem jsem se nesetkal. Vse v naproste pohode.
Slavek
> Setkal se nekdo s nejakymi problemy s aplikacemi pasanymi v Delphi (5) na
> strojich s procesorem AMD Athlon? Napr, ze by program nesel vubec spustit?
> D. Toman
Spusteni DCOM a MDAC v InstallShieldu
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 1.6.2000 14:38:09
Ahoj,
teda dcm95cfg.exe som nenasiel. Co je to? Nasiel som len dcomcnfg.exe.
Nemyslel si nahodou na to ?
A co su tie prepinace ?
Ale napadlo ma ako by sa dala aj pomocou ISX spustit instalacia DCOM a MDAC,
ale za cenu dvoch restartov. Do registry do sekcie
HKLM/Software/Microsoft/Windows/CurrentVersion/RunOnce zapises obe tieto
aplikacie, a nastavis ISX aby po instalacii vzdy restartoval. Po restarte
system spusti aplikacie zapisane v registry a nasledne vymaze tieto zaznamy.
Instalacia MDAC opat vyziada restart a je to. Trochu komplikovane ale
funguje. Pomocou InnoSetup to ide hladko aj s jednym restartom.
Palo.
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Ren� Otisk <otisk(zv)misel(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 1:26 PM
Subject: Re: Spusteni DCOM a MDAC v InstallShieldu
> Omlouvam se. Je to unattended mode dcm95cfg.exe /r:n /q:u
Automaticke ukonceni programu
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 1.6.2000 15:23:17
Ahoj,
prave jsem narazil na podobny problem.
Aplikace nesla ukoncit v OnShow main formu
ani Close ani Apllication.Terminate.
Pomohlo az post message (WM_CLOSE)
### p. Jirman napsal dne 31 May 00, v 16:29 :
> ahoj,
>
> nebylo by lepsi si to dat do OnShow. Me totiz pri OnCreate nefungujou
> ruzne TQuery apod.
>
> M.Jirman
>
> ----- Original Message -----
> From: Petr Smol�k <psmolik(zv)fides(tec)cz>
>
>
> > Ahoj,
> > delam program, ktery v prikazovem radku dostane jmeno souboru ke
> zpracovani.
> > Po zpracovani
> > se program musi ukoncit. Problem je, ze program musi bezet jako
> > minimalizovany a tak se
> > neuplatni zadne FormActivate atd.
> >
> > Nevim kam dat prikaz Close, nebo jak jinak mu dat prikaz k zavreni.
> >
> > procedure TForm1.FormCreate(Sender: TObject);
> > begin
> > Sestava := '';
> > if ParamCount>0 then
> > begin
> > WindowState := wsMinimized;
> > Sestava := ParamStr(1);
> > Tiskni;
> > Close; // Tohle close nefunguje.
> > end;
> > end;
> >
> >
> >
> > Diky
> > Michal Kus
> >
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
HTTP komponenta (HTTPDemo) pro nektere adresy nefu
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 1.6.2000 15:32:41
Ahoj,
narazil jsem na jeden problem u HTTP.
V ukazkove aplikaci D3 (internet) HTTPDemo je stahovani
souboru pres HTTP. Stahovani funguje, ale kdyz jsem zkusil
napr. http://www.televize(tec)cz/program/ctvrtek.htm
natahla se misto EXISTUJICI stranky (muzete si
overit, v MSIE 5 to jde) jen chybova hlaska serveru,
ze soubor neexistuje:
----------
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML
2.0//EN">
<HTML><HEAD>
<TITLE>404 Not
Found</TITLE>
</HEAD><BODY>
<H1>Not Found</H1>
The requested URL
/program/ctvrtek.htm was not found on this
server.<P>
<P>Additionally, a 404 Not Found
error was encountered
while trying to use an ErrorDocument to handle the
request.
<HR>
<ADDRESS>Apache/1.3.6 Server at <A
HREF="mailto:web(zv)cesnet(tec)cz">www.ringier(tec)cz</A> Port
80</ADDRESS>
</BODY></HTML>
--------------
Je chyba v aplikaci (ActiveX komponente), nebo
na serveru? Ocekava snad nejake udaje v hlavicce
pozadavku, ktere tam komponenta nedava?
Opakuji, ze jine stranky stahnout jdou bez problemu.
Diky.
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.6.2000 15:45:54
Ahoj all,
v navaznosti na nize uvedenou zpravu bych mel takovyto navrh: ja
sam potrebuji vyresit blbuvzdorne instalaci DCOM (ci IExploreru),
MDAC a MSDE. Protoze na kazdem pocitaci se to instaluje trochu
jinak (stare 95 vs 98 vs NT4 vs 2000), potreboval by clovek cele
vypocetni stredisko, nebo MSDN a hromadu casu na neustale
presinstalace.
Domnivam se, ze spolecne otevrene reseni vice programatoru by
prineslo vice, nez si toto pracne delat sam a tutlat si to jako rychle
zastaravajici know-how. Krome toho je tu rada lidi, kteri mohou
alespon testovat, kdyz uz nic sami nepridaji. Protoze ani kod by
nemel byt neunosne dlouhy, myslim, ze by ho tato konference
pohodlne unesla. Vyhlasuji tedy verejny projekt na spolehlive a
blbuvzdorne reseni techto tri veci. A doufam, ze se nekdo prida,
abychom to spolu zdarne dotahli k zarnym zitrkum. :-) Zaroven se
hlasim jako koordinator projektu. Vysledek by pak mohl skoncit na
http://delphi(tec)cz/addfaq.asp.
Abych jenom netlachal, pripojuji k prvni diskusi svuj, zatim znacne
neumely a rozhodne ne-blbuvzdorny kod. Myslim, ze vsechny kody
by mely projit konferenci (tedy ne pouze na mou adresu), aby se k
tomu mohl kazdy vyjadrit.
resourcestring
SCanNotCreate='Cannot create %s';
SIsSQL='This machine contains build %s of Microsoft SQL Server
or SQL Server compatible technology (MSDE).';
SNoResponse='There is no response from the command line
statement. Process Terminated';
SErr0='Success';
SErr1='General error';
SErr2='Invalid mode';
SErr3='Required data not found in the %s file';
SErr4='Not enough memory available';
SErr5='File does not exist';
SErr6='Cannot write to the response file';
SErr7='Unable to write to the log file';
SErr8='Invalid path to the InstallShield Silent response file';
SErr9='Not a valid list type (string or number)';
SErr10='Data type is invalid';
SErr11='Unknown error occurred during setup';
SErr12='Dialog boxes are out of order';
SErr51='Cannot create the specified folder';
SErr52='Cannot access the specified file or folder';
SErr53='Invalid option selected';
SErrUnkn='Unknown error';
function Shell(ACommand:PChar; const ShowError:boolean =
true):THandle;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
ret:DWORD;
i:integer;
begin
Result:=0;
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do
begin
cb := SizeOf(TStartupInfo);
end;
i:=0;
if CreateProcess(nil, ACommand, nil, nil, true,
NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo)
then
while i<=999999 do
begin
ret := MsgWaitForMultipleObjects(1, ProcessInfo.hProcess,
false, INFINITE,
(QS_POSTMESSAGE or QS_SENDMESSAGE));
if ret=(WAIT_OBJECT_0) then break;
if i = 999999 then
begin
if ShowError then
begin
CloseHandle(ProcessInfo.hProcess);
raise Exception.Create(SNoResponse);
end else
Result:=ProcessInfo.hProcess;
break;
end;
Inc(i);
end;
if Result=0 then
CloseHandle(ProcessInfo.hProcess);
end;
instalace MSIE:
----------------------
Shell(PChar(MSIEPath), false);
// kde MSIEPath je cesta k instalacnimu souboru
instalace MDAC:
-------------------------
Shell(PChar(MDACPath), false);
// stejne jako MSIE
instalace MSDE:
------------------------
var
Timer: TTimer;
MSDEPath:string; // cesta k instalaci
MSDEiss:string; // cesta k iss souboru
TempDir:string;
TempMSDE:string;
Tempiss:string;
Hnd:THandle;
------
Timer.OnTimer = TimerTimer
procedure TSetupFrm.MSDELabelClick(Sender: TObject);
var
Reg:TRegIniFile;
DBVersion, CSDVersion:string;
RunMSDE:string;
begin
Reg:=TRegIniFile.Create('');
Reg.RootKey:=HKEY_LOCAL_MACHINE;
DBVersion:=Reg.ReadString('SOFTWARE\Microsoft\MSSQLServer\
MSSQLServer\CurrentVersion',
'CurrentVersion', '');
if DBVersion<>'' then
begin
CSDVersion:=Reg.ReadString('SOFTWARE\Microsoft\MSSQLServ
er\MSSQLServer\CurrentVersion',
'CSDVersion', '');
if CSDVersion<>'' then DBVersion:=CSDVersion;
end;
Reg.Free;
if DBVersion<>'' then MessageDlg(Format(SIsSQL, [DBVersion]),
mtInformation, [mbOk], 0) else
with MsdeFrm do
if ShowModal=mrOk then
try
Animate.Active:=true;
Animate.Visible:=true;
Application.ProcessMessages;
Screen.Cursor:=crHourGlass;
TempDir:='C:\CardTemp';
if not DirectoryExists(TempDir) then
if not CreateDir(TempDir) then
raise Exception.Create(Format(SCanNotCreate, [TempDir]));
Tempiss:=TempDir+'\'+ExtractFileName(MSDEiss);
CopyFile(PChar(MSDEiss), PChar(Tempiss), false);
SetFileAttributes(PChar(Tempiss),
FILE_ATTRIBUTE_ARCHIVE);
Ini:=TIniFile.Create(Tempiss);
Ini.WriteString('SetupTypeSQL-0', 'szDir', ProgramDir.Text);
// cesta, kam MSDE instalovat
Ini.WriteString('SetupTypeSQL-0', 'szDataDir', DataDir.Text);
// cesta, kde budou data
Ini.WriteInteger('DlgCpSortUnicode-0', 'SortId', GetSortID);
// zpusob trideni, viz dokumentaci k instalaci MS SQL
Ini.WriteInteger('DlgServerNetwork-0', 'NetworkLibs', GetNetLib);
// podporovane protokoly
Ini.Free;
Ini:=TIniFile.Create('setup.log');
if Ini.ValueExists('ResponseResult', 'ResultCode') then
Ini.DeleteKey('ResponseResult', 'ResultCode');
Ini.Free;
RunMSDE:=Format('%s -a -f1 "%s"', [MSDEPath, Tempiss]);
Hnd:=Shell(PChar(RunMSDE), false);
Timer.Enabled:=true;
except
Animate.Active:=false;
Animate.Visible:=false;
Screen.Cursor:=crDefault;
end;
end;
procedure TSetupFrm.TimerTimer(Sender: TObject);
var
ValEx:boolean;
Res:integer;
Msg:string;
begin
Ini:=TIniFile.Create('setup.log');
ValEx:=Ini.ValueExists('ResponseResult', 'ResultCode');
if ValEx then Res:=Ini.ReadInteger('ResponseResult',
'ResultCode', 0);
Ini.Free;
if ValEx then
begin
Timer.Enabled:=false;
if Hnd>0 then CloseHandle(Hnd);
DeleteFile(Tempiss);
DeleteFile(TempMSDE);
RemoveDir(TempDir);
Animate.Active:=false;
Animate.Visible:=false;
Screen.Cursor:=crDefault;
case Res of
0: Msg:=SErr0;
-1: Msg:=SErr1;
-2: Msg:=SErr2;
-3: Msg:=Format(SErr3, [ExtractFileName(MSDEiss)]);
-4: Msg:=SErr4;
-5: Msg:=SErr5;
-6: Msg:=SErr6;
-7: Msg:=SErr7;
-8: Msg:=SErr8;
-9: Msg:=SErr9;
-10: Msg:=SErr10;
-11: Msg:=SErr11;
-12: Msg:=SErr12;
-51: Msg:=SErr51;
-52: Msg:=SErr52;
-53: Msg:=SErr53;
else Msg:=SErrUnkn;
end;
ShowMessage(Msg);
end;
end;
----------------
function TMsdeFrm.GetNetLib: integer;
var
i:integer;
begin
Result:=0;
with NetLib do
for i:=0 to 5 do
if (ItemIndex and (1 shl i))<>0 then Result:=Result or ($F shl (4*i));
end;
object NetLib: TDFCheckGroup
Left = 16
Top = 184
Width = 289
Height = 81
Columns = 2
ItemIndex = 7
Items.Strings = (
'Name Pipes'
'TCP/IP Sockets'
'Multiprotocol'
'NWLink IPX/SPX'
'AppleTalk'
'Banyan Vines')
Caption = 'Network Libraries'
TabOrder = 1
end
function TMsdeFrm.GetSortID: integer;
begin
with SortID do
case ItemIndex of
0: Result:=52;
1: Result:=84;
2: Result:=94;
else Result:=0;
end;
end;
object SortID: TRadioGroup
Left = 16
Top = 104
Width = 289
Height = 73
Caption = 'Sort Order IDs'
ItemIndex = 1
Items.Strings = (
'ISO 1252 dictionary order, case-insensitive'
'Czech dictionary order, case-insensitive'
'Slovak dictionary order, case-insensitive')
TabOrder = 0
end
--------------------------------
On 1 Jun 2001, at 8:56, Ren� Otisk wrote:
> Uz jsem tady s tim otravoval, ale k vysledku to nevedlo. Potreboval
> bych v prubehu instalace meho programku instalovat DCOM a MDAC (pouze
> ODBC ovladac pro MS SQL7), ale nevim jak nakonfigurovat IS, aby se mu
> na pozadi spustil DCOM a MDAC. DCOM bych tam mel spustit prikazem
> DCOM95.EXE /r:n /q:u, ale nevim jakym prikazem spustit MDAC aby mi tam
> necpal vse, ale jen ten ovladac a hlavne kde tyto prikazy umistit a
> kde by mely byt ty spustitelne soubory (DCOM95.exe a MDAC_typ.exe)?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Open - Close
[*] Lauko �tefan <lauko(zv)salamon.sk> - 1.6.2000 17:20:24
----- Original Message -----
From: Petr Palicka <petr.palicka(zv)atlas(tec)cz>
> ahoj
>
> delam neco podobneho bezne, a funguje to bez problemu...
> udelam txt a spustim win aplikaci. wapp si ohlida jednu instanci a
> zpracuje txt.
>
> problem bude asi v te dos app.
Ahoj,
takym sposobom to funguje, ale u mna je situacia taka, ze moja wapp bezi na
pozadi a timer kontroluje
adresar na pritomnost suboru. Od momentu zistenia suboru a otvorenia ubehne
niekolko sekund co si neviem inak vysvetlit len ako som to popisal. Tento
problem sa neprejavuje rovnako na vsetkych PC.
Skusenosti su take, ze cim vacsia RAM a rychlejsi procesor tym vacsia
"prestavka".
{Zjednodusene... vola sa kazdu sekundu}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If FileExists('Subor.txt') then
begin
Timer1.enabled:=false;
Spracuj('Subor.txt'); {Procedura ktora je popisana dole}
Timer1.enabled:=True;
end;
end;
Samozrejme ked spustam treti program elebo nieco otvaram v tretom procese -
v tom momente ozije aj druhy proces (spracovanie "Subor.txt"). Zda sa ako by
system pred spustenim niecoho (aktivita) "pre istotu" zaktualizoval subory
aj na fizyckej urovni. Preto to tebe funguje bez problemu...
Ako mam nasimulovat taky stav? Program nemoze pracovat inak (z historickych
dovodov).
Lauko.
> -----Original Message-----
> From: Lauko �tefan [mailto:lauko(zv)salamon.sk]
> Sent: Thursday, June 01, 2000 9:52 AM
> To: Delphi CZ konferencia
> Subject: Open - Close
>
>
> Dobry,
> vedel by mi niekto poradit v tomto probleme:
> - jeden proces vytvory subor na lokalnom disku zapise obsah uzatvory ho.
> - druhy proces ho chce otvorit ale Windows ho fizycky este neuzatvoril.
>
> V druhom procese je tento kod:
>
> Var
> F :File;
> Result:Integer;
> begin
> AssignFile(F,'Subor.txt');
> {$I-}
> Reset(F,1);
> Result:= IoResult;
> While Result <> 0 do
> begin
> Reset(F,1);
> Result:= IoResult;
> Application.ProcessMessages;
> end;
> {$I+}
> CloseFile(F);
> SpracujSubor('Subor.txt');
> end;
>
> Subor existuje, prvy proces ho uzatvoril ale pre druhy je este
> nezdielatelny???
> Doba nezdielatelnosti je rozna 10s,15s,5s... (nahodna).
> Je mozne v druhom procese poslat spravu (SendMessage...) pre Windows
> aby aktualizoval subor aj na fizyckej urovni.
> Pre uplnost:
> Prvy proces je DOS-applikacia, druhy je program v D5 ktory ma spracovat
> TXT-subor.
> Odozva je niekedy neuveritelne dlha...
>
> Za odpovede vopred dakujem.
> Lauko.
>Problemy s ref. integritou u Paradoxu
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 1.6.2000 17:28:19
> Mohu se zeptat co to je ???
>
> Milan Tomes
>
Microsoft Data Engine. Je to jadro SQL serveru 7.0 a je mozno jej sirit s
aplikaci, pokud mas nejaky vyvojovy prostredek od MS (napr, neco Visual...
nebo Office developer apod). Blize na Microsoftim webu a i v archivu
konference.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Athlon
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 1.6.2000 17:30:40
> DD,
>
> Setkal se nekdo s nejakymi problemy s aplikacemi pasanymi v Delphi (5) na
> strojich s procesorem AMD Athlon? Napr, ze by program nesel vubec spustit?
>
> Zdravi
> D. Toman
>
Nevim jestli to byl Athlon, ale asi pred rokem nase aplikace v D4 nekdy (10x
za den) padala na AMD s vyjimkou Chyba v pohyblive radove carce. Po vymene
procesoru za Intel chyba zmizela. Nikdy se neprislo cim to bylo.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
aplikace pro MS SQL 7
[*] Robert Kindl <rob(zv)exec(tec)cz> - 1.6.2000 17:34:54
> ja to resim takto:
> 1. uzivatel zada username a password
> 2. jeste pred nalogovanim na server nejakym zpusobem zasifruji heslo a na
> server poslu user name a zasifrovane heslo. V databazi maji vsichni prava
ke
> vsemu a to kam je pustim nebo ne, o to se stara aplikace.
>
> Dulezite je, ze si uzivatele nemohou pustit ISQL/Query Analyzer a delat si
s
> DB co chteji, protoze jejich heslo nefunguje.
> Vyjimkou je sa, kteremu heslo nesifruji.
>
> S pozdravem, Lada
Delame to take tak, jen s tim rozdilem,
ze stejne nemohou vsichni vsechno tj. pouzivame opravneni
na urovni tabulek/storedprocedur/view.
Kazdy uzivatel ma k dispozici dialog pro zmenu hesla, ale opet se
heslo ve skutecnosti zakoduje (i prazdne, ale to mu vynadame).
SA take nekodujeme (ani to principialne nejde), ale pokud
SA spusti nasi aplikaci muze jen menit vytvaret/odebirat loginy a
menit hesla (i cizi).
Do jinych modulu se nedostane (zajisteno aplikaci).
Utok odbornika to nevydrzi, ale ten dokaze heslo zjistit i jinak,
nez reverzovanim sifrovaciho algoritmu v aplikaci...
Rob
Spusteni URL apod. pod WinNT
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 01.6.2000 18:07:07
Ja bych rekl, ze spusteni URl pomoci ShellExecute urcite jde i pod W2000 a pod.
napr.
ShellExecute(handle, 'open', PChar(URLAdresa), '', '', SW_SHOWDEFAULT);
Dodo
______________________________________________________________
> Od: "DiGi" <DiGi(zv)MujMail(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Thu, 1 Jun 2000 11:14:23 +0200
> P�edm�t: Spusteni URL apod. pod WinNT
>
> Ahoj,
>
> Pomoci ceho se da pod WinNT/2k spustit URL nebo treba mailto: ?
> Pod win9x to funguje v pohode pres WinEXEC ale pod NT to hazi chybu
> ERROR_FILE_NOT_FOUND. Ostatni veci (soubory) se spousti pomoci
> ShellExecute a chodi to celkem v pohode..
>
> D5/ Windows-System-kde-furt-neco-nechodi (api funkce)
>
> DiGi
>
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Paradox - dik
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.6.2000 18:34:55
On 1 Jun 2000, at 14:28, azeleny(zv)csas(tec)cz wrote:
> diky vsem za odpoved, toto jem prehlidl a _VELMI_ mi to pomohlo.
> Jinak, proc vlastne jeste porad Paradox... je to historickych duvodu,
> udrzba aplikace, ktera uz bezi... radost z toho nemam, nove utilitky
> jsou jiz psany pod Delphi... Svet je obcas slozitej, ale diky vsem za
> pomoc!!!
Drobna poznamka - pokud mi nejaka stara aplikace dela vazne
problemy, tak sednu a napisu ji znovu a lepe, vyhlasim upgrade a
postupne ukonceni podpory stare verze.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Unicode + Oracle
[*] Cozl, Mirek <Mirek.Cozl(zv)oriflame(tec)cz> - 1.6.2000 18:38:15
Ahoj,
Mam nasledujici problem:
Potrebuji udelat (nejlepe tedy v Delphi) udelatko, ktere sbira (opakovane
samo) nekolik dbfacu v ruznych znakovych sadach (jeden dbfac rusky, jeden
cesky Latin2 nebo Kamenici, jeden arabsky ap.- codepage se pozna dejmetomu z
nazvu dbface), a tyto dbface nejakym zpusobem napumpuje do Oracle database
(Charset UTF8 - UniCode). Setkali jste se s timto problemem nekdo, nebo
dokazete poradit ? Pristup pres BDE samozrejme neni podminkou.
D5Ent, zaplata 1, Oracle 8.1.6
Diky,
Mirek
Jak nastavit Form2.Active := true
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 01.6.2000 19:26:56
Kdyz je budes zobrazovat modalni rzn. Form.ShowModal tak to bude pravdepodobne Ok. ted jde o to,
jestli ti to bude vyhovat mit je modalni.
Ale nastavit aktvni okno pomoci API urcite pujde.
Dodo
______________________________________________________________
> Od: "Michal David" <michal(zv)access-it(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Thu, 01 Jun 2000 18:49:23 -0400
> P�edm�t: Jak nastavit Form2.Active := true
>
> Zdravim,
>
> Mam Form1 z toho volam Form2 a z toho pak Form3.
> Pokud ukoncim cinnost Form3 prikazem close, neni aktivni Form2 nybrz Form1.
> Pokousim- li se ho donutit prikazem v %subj. vrati mi chybu ReadOnly.
> Nevite nekdo jak toto vyresit?
> Dekuji a preji pekny den.
> Michal David
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
aplikace pro MS SQL 7
[*] VOTAVA Jan <Jan.Votava(zv)epe(tec)cz> - 1.6.2000 19:33:25
Ahoj.
A co se stane, az budete chtit data zobrazovat / upravovat pres intranet?
Nebo nacist data do Wordu, Excelu, Accessu, ... ? Kodovanim loginu a hesel
si krome toho zavirate vratka pouzit NT autentikaci pro MSSQL, kterou pro
intranetove aplikace s vyhodou pouzivame.
I z hlediska bezpecnosti je podle mne cistsi a lepe spravovatelne nastavovat
prava pro pristup datum v SQL serveru.
Nebijte mne, jen dalsi nazor.
Honza.
-----Original Message-----
From: Robert Kindl [mailto:rob(zv)exec(tec)cz]
Sent: Thursday, June 01, 2000 5:35 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: aplikace pro MS SQL 7
> ja to resim takto:
> 1. uzivatel zada username a password
> 2. jeste pred nalogovanim na server nejakym zpusobem zasifruji heslo a na
> server poslu user name a zasifrovane heslo. V databazi maji vsichni prava
ke
> vsemu a to kam je pustim nebo ne, o to se stara aplikace.
>
> Dulezite je, ze si uzivatele nemohou pustit ISQL/Query Analyzer a delat si
s
> DB co chteji, protoze jejich heslo nefunguje.
> Vyjimkou je sa, kteremu heslo nesifruji.
>
> S pozdravem, Lada
Delame to take tak, jen s tim rozdilem,
ze stejne nemohou vsichni vsechno tj. pouzivame opravneni
na urovni tabulek/storedprocedur/view.
Kazdy uzivatel ma k dispozici dialog pro zmenu hesla, ale opet se
heslo ve skutecnosti zakoduje (i prazdne, ale to mu vynadame).
SA take nekodujeme (ani to principialne nejde), ale pokud
SA spusti nasi aplikaci muze jen menit vytvaret/odebirat loginy a
menit hesla (i cizi).
Do jinych modulu se nedostane (zajisteno aplikaci).
Utok odbornika to nevydrzi, ale ten dokaze heslo zjistit i jinak,
nez reverzovanim sifrovaciho algoritmu v aplikaci...
Rob
Jak nastavit Form2.Active := true
[*] igor klepoch <klepoch(zv)ba.sknet.sk> - 1.6.2000 20:18:59
A co tak do Onclose form3 dat
form1.show ?
-----P�vodn� zpr�va-----
Od: Michal David [SMTP:michal(zv)access-it(tec)cz]
Odesl�no: 2. j�n 2000 0:49
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Jak nastavit Form2.Active := true
Zdravim,
Mam Form1 z toho volam Form2 a z toho pak Form3.
Pokud ukoncim cinnost Form3 prikazem close, neni aktivni Form2 nybrz Form1.
Pokousim- li se ho donutit prikazem v %subj. vrati mi chybu ReadOnly.
Nevite nekdo jak toto vyresit?
Dekuji a preji pekny den.
Michal David
QReport
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 01.6.2000 14:56:00 -0400
Ahoj
Nevite nekdo jak sa da v qreportu nastavit label tak aby se tiskl jen na posledni strance ?
Diky
Ladap
Data z formulare pres email v HTML
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 1.6.2000 21:14:20
ahoj,
ja pouzivam CGI skript na odesilani formulare a chodi me vse v pohode (viz www.opalglass(tec)cz).
jestli chces tak ti ho poslu (je free).
M.Jirman
----- Original Message -----
From: Ing. Radim Bro�ek
To: Konference Delphi
Sent: Thursday, June 01, 2000 2:30 PM
Subject: OT: Data z formulare pres email v HTML
Omlouvam se za OT, ale mam nasledujici problem.
Pro snadnou registraci zakoupeneho produktu chceme zakaznikum nabidnout formular
v HTML, ktery vyplni a odeslou kliknutim na buton poslat, nebo ho vytisknou a zafaxuji.
Mame vsak nasledujici problem. Po stisku odeslat se aktivuje okno s novou zpravou
v MS Outlook 97, ale data z formulare se neprenesou. Naplni se jen email.
Pokud se pouzije Outlook Express, tak je vse v poradku.
<FORM ENCTYPE="text/plain" ACTION="mailto:radim.brozek(zv)berit(tec)cz" method=post>
<INPUT type="checkbox" name="em" value="email" chcecked>Odeslat emailem<BR>
.
.
.
<BUTTON name="tlacitko" type="submit" accesskey="O">
<B><U>O</U>deslat data ke zpracov�n�</B><BR>
</BUTTON>
</FORM> Muzete nekdo poradit co s tim ?
Browser je IE 5.0
Diky.
Radim Brozek
OT: Hondoceni obsahu v IE5
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 1.6.2000 22:30:20
Zdravim mam problem. Po reinstalaci Win98 SE se mi samo zaplo hodnoceni obsahu v Internet Exploreru 5.01 a nemuzu to vypnout. Co je ale horsi to hodnoceni obsahu me nepusti ta zadny WWW.
Diky
Petr Jelinek - amatersky programator
http://pjmodos.hyperlink(tec)cz
Open - Close
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 1.6.2000 22:40:40
Tento problem je podle me chybou but ve Windows nebo v Delphi.
Ja to vyresil tak, ze tu jsem proceduru ktera ten soubor vytvori a pak ho zase zavre, udelal jako normalni proceduru a ne procedure of object.
Pokud nevis jaky je rozdil tak to tady pisu: to to mas nejak takhle Procedure TForm1.cokoli, ale ty to predelas na Procedure cokoli. Potom tam nepouzivas AssignFile, ale jenom Assign a Closefile, ale jenom Close - pouzivas jenom pascal a ne WinAPI. A ta prodleva zmizi.
Mozna by mohlo jit jeste v ty prvni procedure otevirat nebo vytvaret soubor s parametrem (fmShareDenyNone).
Zdravi
Petr Jelinek - amatersky programator
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Lauko �tefan
To: Delphi CZ konferencia
Sent: Thursday, June 01, 2000 9:51 AM
Subject: Open - Close Dobry,
vedel by mi niekto poradit v tomto probleme:
- jeden proces vytvory subor na lokalnom disku zapise obsah uzatvory ho.
- druhy proces ho chce otvorit ale Windows ho fizycky este neuzatvoril.
V druhom procese je tento kod:
Var
F :File;
Result:Integer;
begin
AssignFile(F,'Subor.txt');
{$I-}
Reset(F,1);
Result:= IoResult;
While Result <> 0 do
begin
Reset(F,1);
Result:= IoResult;
Application.ProcessMessages;
end;
{$I+}
CloseFile(F);
SpracujSubor('Subor.txt');
end;
Subor existuje, prvy proces ho uzatvoril ale pre druhy je este nezdielatelny???
Doba nezdielatelnosti je rozna 10s,15s,5s... (nahodna).
Je mozne v druhom procese poslat spravu (SendMessage...) pre Windows
aby aktualizoval subor aj na fizyckej urovni.
Pre uplnost:
Prvy proces je DOS-applikacia, druhy je program v D5 ktory ma spracovat TXT-subor.
Odozva je niekedy neuveritelne dlha...
Za odpovede vopred dakujem.
Lauko.
Bezpecnost programov
[*] igor klepoch <klepoch(zv)ba.sknet.sk> - 1.6.2000 22:42:03
Ide ti o ochranu pred crakovanim,
alebo staci, aby si program uzivatelia nemohli
volne instalovat kedy a kam chcu ?
-----P�vodn� zpr�va-----
Od: nnfapso(zv)kios.sk [SMTP:nnfapso(zv)kios.sk]
Odesl�no: 31. m�j 2000 12:39
Komu: delphi konferencia
P�edm�t: Bezpecnost programov
Ahojte,
Rad by som otvoril diskusiu na temu 'Bezpecnost programov' (resp.
'Ochrana proti crackovaniu'). Ak ma niekto dobre napady, ako ochranit
programy pred crackermi, velmi rad by som sa dozvedel viac informacii z
tejto oblasti.
Za pomoc vopred dakujem.
<<Soubor: ATT00001.htm>>
Problem s ceckem
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 1.6.2000 23:02:44
Ahoj
Mam nasledujici problem s jazykem C(++):
Mam formular (cpp+h) = F, a jeste jeden zdrojak (cpp + h) = O, ktery
obsahuje jisty objekt. Odkaz na tento objekt potrebuji mit v definici
formulare. tj. F.h musi mit inkludovany O.h a v objektu potrebuji mit
zase odkaz na formular tj. v O.h musi byt includovany
F.h.....nasledkem cehoz je, ze to nefunguje :-( Hlasi to v F.h ze typ
toho formulare neni definovan....
Muze mi nekdo poradit jak to obelstit? Nejaka direktiva nebo neco?
Diky moc
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Hlidani pristupu na IP adresu
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 1.6.2000 23:07:05
Diky. Ale tohle muj problem neresi. Budu muset vymyslet neco, co bude patrne
na stanici s proxy (nebo napsat primo nakonec proxy?) co si ohlida, z ktere
IP adresy jde pozadavek a podle zadanych kriterii ho budto pusti nebo ne. Ta
kriteria se mohou menit. Napr. je provoz od 13:00-16:00 pro deti a tam
potrebuju mit zakaz internetu treba na 8 stanicich a od 16:00-18:00 ho napr.
na 4 z nich povolit. To uz by si nastavil dozor dalkove po siti. Ale cele to
vymyslet a napsat bude asi pekna fuska.
Mne se hlavne jedna o to, zda to vubec jde. Budu si muset asi nastudovat
poradne TCP/IP. Napadlo me, zda by se to nedalo resit nejakou aplikaci,
ktera bude prijimat na jedne adrese (nebo portu?) pozadavky smerovane na IP
proxy, ktery by jel na jine adrese (nebo portu?) a poustela mu to nebo ne,
ale nevim vubec, odkud zacit, protoze jsem se zatim inetem a TCP/IP zabyval
jenom tim nejnutnejsim, co jsem potreboval. Proto bych uvital nejaky priklad
nebo strucny popis, jak vlastne tahle komunikace a pripadne jednoduchy
(zakladni) proxy server vlastne chodi.
Honza.
----- Original Message -----
From: Slavomir Skopalik <skopalik(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 31, 2000 6:34 PM
Subject: RE: Hlidani pristupu na IP adresu
> Melo by to jit spravnym nastavenim routovani, tedy
> rozdelit sit do subnetu tak, aby stanice nevideli proxy
> napriklad:
> proxy: 192.168.1.233
> stanice s pristupem 192.168.2.1 maska 255.255.0.0
> stanice bez pristupu 192.168.2.2 maska 255.255.255.0 (tady tento pocitac
vidi jen
> subnet 192.168.2.xx
>
> Snad ti to pomuze, jen je otazkou, zda je toto schudne.
>
> Slavek
>
Jak nastavit Form2.Active := true
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.6.2000 23:14:29
From: "Michal David" <michal(zv)access-it(tec)cz>
> Mam Form1 z toho volam Form2 a z toho pak Form3.
> Pokud ukoncim cinnost Form3 prikazem close, neni aktivni Form2 nybrz Form1.
> Pokousim- li se ho donutit prikazem v %subj. vrati mi chybu ReadOnly.
Ahoj,
Pouzij metodu Show nebo BringToFront.
Petr Vones, amatersky programator
Spusteni DCOM a MDAC v InstallShieldu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.6.2000 23:14:15
From: "Tomas Bihary" <tomas(zv)wige-mic(tec)cz>
> Spustit jinou aplikaci z IS Express asi (?) nepujde,
> ale pokud mas IS for M$ C++, ktery je soucasti
> instalace Visual Studia, tak s tim uz to dokazes.
> Tahle verze totiz umoznuje spoustet funkce z
> jakekoli DLL knihovny. Takze zavolas funkci
> a ta uz spusti to co potrebujes...
Ahoj,
ISX pro D5 umoznuje u souboru v Properties zaskrtnout "Allow Express to
self-register this file". Tim lze spusit bud male EXE (asi by sla i DLL
pokud by jsi exportoval prislusne funkce pro registraci a tim ji vlastne
nasimuloval).
Petr Vones, amatersky programator
Bezpecnost programov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.6.2000 23:23:45
From: <nnfapso(zv)kios.sk>
> Rad by som otvoril diskusiu na temu 'Bezpecnost programov' (resp. 'Ochrana
> proti crackovaniu'). Ak ma niekto dobre napady, ako ochranit programy pred
> crackermi, velmi rad by som sa dozvedel viac informacii z tejto oblasti.
Ahoj,
Jedina opravdu spolehliva ochrana je sirit aplikaci zadarmo ;-) Neexistuje
zadny zpusob jak tomu 100%ne zabranit. Bude samozrejme zalezet na tom, jak
"atraktivni" bude takovou aplikaci cracknout. Nikdo asi nebude travit cas
nad aplikaci typu Poznamkovy blok. Existuji ale postupy jak zneprijemnit
praci potencialnim hackerum. Nedavno jsem na toto tema videl diskuzi, tusim
ze to bylo na borland.public.delphi.non-technical newsech.
Petr Vones, amatersky programator
Jak nastavit Form2.Active := true
[*] Michal David <michal(zv)access-it(tec)cz> - 01.6.2000 18:49:23 -0400
Zdravim,
Mam Form1 z toho volam Form2 a z toho pak Form3.
Pokud ukoncim cinnost Form3 prikazem close, neni aktivni Form2 nybrz Form1.
Pokousim- li se ho donutit prikazem v %subj. vrati mi chybu ReadOnly.
Nevite nekdo jak toto vyresit?
Dekuji a preji pekny den.
Michal David
Spusteni DCOM a MDAC v InstallShieldu
[*] Ren� Otisk - 1.6.2001 08:56:27
Hi,
D3, InstallShield Express for D3
Uz jsem tady s tim otravoval, ale k vysledku to nevedlo. Potreboval bych v prubehu instalace meho programku instalovat DCOM a MDAC (pouze ODBC ovladac pro MS SQL7), ale nevim jak nakonfigurovat IS, aby se mu na pozadi spustil DCOM a MDAC. DCOM bych tam mel spustit prikazem DCOM95.EXE /r:n /q:u, ale nevim jakym prikazem spustit MDAC aby mi tam necpal vse, ale jen ten ovladac a hlavne kde tyto prikazy umistit a kde by mely byt ty spustitelne soubory (DCOM95.exe a MDAC typ.exe)?
Poradi mi nekdo?
Predem dekuji
Sroub
pomale spravy
[*] Miroslav Cipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 31.12.1997 22:34:31
jo to me taky - nekdy to je docela zabava podle odpovedi vydedukovat jaka
byla otazka :-)
M.
----- Original Message -----
From: "Jirka" <jnagy(zv)nh-trans(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, June 16, 2000 9:03 AM
Subject: Re: pomale spravy
.
.
> Taky
> se mi stava, ze odpoved (nebo nekolik odpovedi) na zpravu prijde driv,
> nez samotna zprava.
.
.
Proxy
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 02.6.2000 01:36:23
Zdravim,
muze nekdo poradit, jakym zpusobem udelat jednoduchy proxy server. Jeden PC pripojen do internetu a za nim nekolik PC. Zajima me, jakym zpusobem se to programuje, vim, ze takove produkty existuji, ale zajima me princip. Cely archiv jsem prohledal, ale nic se tam o tom nepise. Dekuji za namety ..
D5 Prof SP1 + W98 CZ SE
Daniel Resler
D�kuji za prostudov�n� m� zpr�vy a p�eji p�kn� den.
Certified Novell Engeneer 3,4,5
Soudn� znalec v oboru v�po�etn� technika a software.
Daniel Resler
ATC Group
Kejzlarova 1677
Hradec Kr�lov�
500 12
Mail: daniel resler(zv)atcgroup(tec)cz
WWW: www.atcgroup(tec)cz
Mobil: +420 603 45 66 65
Tel.fax: +420 49 527 11 00
GetMessage nebo Hook fce
[*] r.tesar(zv)atlas(tec)cz - 2.6.2000 06:58:13
Ahojte Delf�ni
Mam problem, snazim se udelat aplikaci, ktera by mi protokolovala vypocty na kalkulacce (udaje zadavam klavesnici). To znamena, ze bych potreboval monitorovat vstup z k�lavesnice pro aplikaci kalkulacky. Nemam vubec zadne zkusenostni ani s Hook fce ani s odchytavani Message. Muze mi nekdo poskytnout podrobnejsi radu, nebo nejaky zdrojak ?? Jestli se to treba resi fci GetMessage tak nevim kam ji zaradit do jake procedury nebo udalosti aby monitorovala neustale atd.
Dik za vsechny rady
Radek Tesar
Problem s ceckem
[*] Miroslav Cipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 2.6.2000 07:37:16
do f.cpp za #include "f.h" dopis #include "o.h" a do o.cpp za #include "o.h"
dopis #include "f.h", do *.h nic nezapisuj
M.
----- Original Message -----
From: "Petr Vaclavek" <bla(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 11:02 PM
Subject: Problem s ceckem
> Ahoj
>
> Mam nasledujici problem s jazykem C(++):
> Mam formular (cpp+h) = F, a jeste jeden zdrojak (cpp + h) = O, ktery
> obsahuje jisty objekt. Odkaz na tento objekt potrebuji mit v definici
> formulare. tj. F.h musi mit inkludovany O.h a v objektu potrebuji mit
> zase odkaz na formular tj. v O.h musi byt includovany
> F.h.....nasledkem cehoz je, ze to nefunguje :-( Hlasi to v F.h ze typ
> toho formulare neni definovan....
> Muze mi nekdo poradit jak to obelstit? Nejaka direktiva nebo neco?
> Diky moc
>
> Petr
.
.
Timage a zobrazen� obr�zku vedle sebe
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.6.2000 07:48:37
A kdyz si das zobrazeni okraju toho pozadi roztahne se pri zvetseni ???
Milan Tomes
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ale� Kresta
Sent: Wednesday, May 31, 2000 5:43 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Timage a zobrazen� obr�zku vedle sebe
Ahoj,
m�m takov� probl�m: Vlo��m na Form dva TImage (jeden pojmenuji "obrazek"
druhy "pozadi"). Pozadi bude mit Align alClient a chci do n�j povkl�dat
obrazek vedle sebe. Ud�lal jsem to takhle:
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
for x:=0 to round(pozadi.width/obrazek.width)+1 do
for y:=0 to round(pozadi.height/obrazek.height)+1 do
begin
pozadi.canvas.copyrect(rect(x*obrazek.width,y*obrazek.height,(x+1)*obrazek.w
idth,(y+1)*obrazek.height),obrazek.canvas,rect(0,0,obrazek.width,obrazek.hei
ght));
Application.ProcessMessages;
end;
end; Ale kdy� aplikaci spust�m, zm��knu Button1 a ono se to nakop�ruje dob�e,
potom zv�t��m okno aplikace a zm��knu Button1 a ono to nakop�ruje tak jak
p�edt�m, ne p�es cel� okno aplikace. Cht�l bych aby se to nakop�rovalo p�es
celou plochu aplikace, ale nev�m jak to ud�lat. M�m Delphi 5.
P�edek d�kuji za radu
proxy server
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 2.6.2000 07:52:44
-----P�vodn� zpr�va-----
Od: nnfapso(zv)kios.sk [mailto:nnfapso(zv)kios.sk]
Odesl�no: 31. kv�tna 2000 12:23
Komu: delphi konferencia
P�edm�t: proxy server
Ahojte,
Potreboval by som spravit proxy server, cez ktory by som sa mohol
napajat na internet. Ten program by bol na jednom pocitaci v LAN. Prosim,
pomozte mi.
Proc chces delat neco, co jiz nekolikrat existuje a je jich spousta k
dispozici free?
Jura
transakce
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 2.6.2000 08:02:02
Dobry den,
mohl by mi nekdo objasnit jestli transakce jsou vzdy zalezitosti database
nebo take nekdy recordsetu?Paradox - dik
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 2.6.2000 08:03:38
To je ponekud unahleny zaver. Ve firme se na prechod do Delphi chystame, ale
brani tomu velka slozitost agend, ktere jsou vytvoreny v Pdx. Je nutno
absolutne plynule navazat novou verzi na predchozi a tento prechod je
natolik obtizny (nese sebou i zmenu databaze na IB a hlavne kompletni zmenu
datoveho modelu), ze je nemyslitelne aby byl prechod hotov v prubehu 2-3
mesicu. Bude to zalezitost minimalne 1/2 roku na jeden ze stezejnich
programu.
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Zbysek Hlinka
> Sent: Thursday, June 01, 2000 6:35 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Paradox - dik
>
>
> On 1 Jun 2000, at 14:28, azeleny(zv)csas(tec)cz wrote:
>
> > diky vsem za odpoved, toto jem prehlidl a _VELMI_ mi to pomohlo.
> > Jinak, proc vlastne jeste porad Paradox... je to historickych duvodu,
> > udrzba aplikace, ktera uz bezi... radost z toho nemam, nove utilitky
> > jsou jiz psany pod Delphi... Svet je obcas slozitej, ale diky vsem za
> > pomoc!!!
>
> Drobna poznamka - pokud mi nejaka stara aplikace dela vazne
> problemy, tak sednu a napisu ji znovu a lepe, vyhlasim upgrade a
> postupne ukonceni podpory stare verze.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
seznam prihlasenych uzivatelu v Accesu
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 2.6.2000 08:03:15
Dobry den
je mozne zjistit seznam prihlasenych uzivatelu k Acessovske databazi. (neco
jako tu bylo pro MSSQL)Problem s ceckem
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 2.6.2000 08:04:53
> do f.cpp za #include "f.h" dopis #include "o.h" a do o.cpp za #include "o.h"
> dopis #include "f.h", do *.h nic nezapisuj
> M.
*** Zkusil jsem, ale nepomohlo to :-(
Protoze pokud v f.h neni includovan o.h, tak tady nezna typ (ten
objekt), ktery je definovan v o.h a naopak.
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 2.6.2000 08:13:30
> Abych jenom netlachal, pripojuji k prvni diskusi svuj, zatim znacne
> neumely a rozhodne ne-blbuvzdorny kod. Myslim, ze vsechny kody by mely
> projit konferenci (tedy ne pouze na mou adresu), aby se k tomu mohl
> kazdy vyjadrit.
No, mne se to libi, ja se ani nesnazil MSDE nejak neimplicitne
nastavovat nebo vytvorit program, ktery automaticky podle potreby
predem nainstaluje DCOM, MDAC, IE. Muj instalak to, zrejme
podobne jako Tvuj, jen dava uzivateli k dispozici jako moznost.
Pokud to bude uzivatele zajimat, najde rady v prirucce, popr. zavola
(nejde v mem pripade o masovy prodej). Problemy (ktere jsou
samozrejme resitelne, viz jine maily v posledni dobe) vidim v tomto:
- potreba nekolika restartu behem instalace (DCOM, MDAC,
MSDE).
- instalace MSDE nepobezi bez IE alespon verze 4, pokud se
nepletu.
- po instalaci MSDE je treba jej rozbehnout a nezjistil jsem
zpusob, jak to udelat programove. Zatim to tedy dela uzivatel na
zaklade vyzvy. Pote, co je MSDE running, muze uzivatel spustit
SP2 pro MSDE.
Jak uz jsem posilal v drivejsich mailech, rozeznavam konec
instalace MSDE podle ukonceni procesu MSDEx86.exe, pricemz
nesmi jit o obycejne WaitForSingleObject(... INFINITE), ale o
cyklus neustale testujici WaitForSingleObject(...0):
procedure TMainForm.RxLabel1Click(Sender: TObject);
var
err: integer;
msg: string;
f: TForm;
SI: TStartupInfo;
PI: TProcessInformation;
reserved: cardinal;
hToken: THandle;
tkp, pom: TOKEN_PRIVILEGES;
begin
//instalace MSDE
ZeroMemory((zv)SI, SizeOf(SI));
SI.cb := SizeOf(SI);
SI.dwFlags := STARTF_USESHOWWINDOW;
SI.wShowWindow := sw_SHOWMINNOACTIVE;
if not CreateProcess(nil, PChar(ExtractFilePath(ParamStr(0)) +
'MSDE\msdex86.exe -s -a -f1 "' + ExtractFilePath(ParamStr(0)) +
'MSDE\unattend.iss"'),
nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then
begin
err := GetLastError;
msg := 'Nepoda�ilo se spustit instal�tor MSDE. ';
case err of
0: msg := msg + #10'Opera�n� syst�m nem� dostatek pam�ti
nebo prost�edk�.';
ERROR_FILE_NOT_FOUND: msg := msg + #10'Soubor
MSDEx86.exe nenalezen.';
ERROR_PATH_NOT_FOUND: msg := msg + #10'Cesta
nenalezena: ' + ExtractFilePath(ParamStr(0)) + 'MSDE';
ERROR_BAD_FORMAT: msg := msg + #10'Exe soubor je
po�kozen. (MSDEx86.exe)';
SE_ERR_ACCESSDENIED: msg := msg + #10'P��stup k
souboru MSDEx86.exe odep�en.';
SE_ERR_OOM: msg := msg + #10'Nen� dost pam�ti na
dokon�en� operace.';
SE_ERR_SHARE: msg := msg + #10'N�jak� chyba sd�len�.';
else
msg := msg + 'Vr�cen� k�d chyby: ' + IntToStr(err);
end;
MessageDlg(msg, mtError, [mbOk], 0);
exit;
end;
f := CreateMessageDialog('Prob�h� instalace MSDE. M��e to trvat
i d�le ne� 10 minut. ' +
'Vy�kejte, dokud toto hl�en� nezmiz�...',
mtInformation, []);
f.Height := trunc(f.Height * 0.65);
f.FormStyle := fsStayOnTop;
f.Show;
f.Update;
repeat
reserved := WaitForSingleObject(PI.hProcess, 0);
Application.ProcessMessages;
until reserved <> WAIT_TIMEOUT;
f.Free;
if MessageDlg('Instalace MSDE byla dokon�ena. Aby se MSDE
stalo aktivn�, je t�eba ' +
'restartovat po��ta�. Pokud m�te spu�t�n� n�jak� jin�
aplikace, nejprve je ukon�ete, ' +
'jinak by mohlo doj�t ke ztr�t� jejich dat. M� se prov�st
restart nyn�?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
if OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, PChar('SeShutdownPrivilege'),
tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, FALSE, tkp,
sizeof(TOKEN_PRIVILEGES), pom, reserved);
end;
ExitWindowsEx(EWX_REBOOT or EWX_FORCE, reserved);
end;
end;> resourcestring
> SCanNotCreate='Cannot create %s';
> SIsSQL='This machine contains build %s of Microsoft SQL Server or
> SQL Server compatible technology (MSDE).';
> SNoResponse='There is no response from the command line
> statement. Process Terminated';
> SErr0='Success';
> SErr1='General error';
> SErr2='Invalid mode';
> SErr3='Required data not found in the %s file';
> SErr4='Not enough memory available';
> SErr5='File does not exist';
> SErr6='Cannot write to the response file';
> SErr7='Unable to write to the log file';
> SErr8='Invalid path to the InstallShield Silent response file';
> SErr9='Not a valid list type (string or number)'; SErr10='Data type
> is invalid'; SErr11='Unknown error occurred during setup';
> SErr12='Dialog boxes are out of order'; SErr51='Cannot create the
> specified folder'; SErr52='Cannot access the specified file or
> folder'; SErr53='Invalid option selected'; SErrUnkn='Unknown error';
>
> function Shell(ACommand:PChar; const ShowError:boolean =
> true):THandle;
> var
> StartupInfo: TStartupInfo;
> ProcessInfo: TProcessInformation;
> ret:DWORD;
> i:integer;
> begin
> Result:=0;
> FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
> with StartupInfo do
> begin
> cb := SizeOf(TStartupInfo);
> end;
> i:=0;
> if CreateProcess(nil, ACommand, nil, nil, true,
> NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo)
> then
> while i<=999999 do
> begin
> ret := MsgWaitForMultipleObjects(1, ProcessInfo.hProcess,
> false, INFINITE,
> (QS_POSTMESSAGE or QS_SENDMESSAGE));
> if ret=(WAIT_OBJECT_0) then break;
> if i = 999999 then
> begin
> if ShowError then
> begin
> CloseHandle(ProcessInfo.hProcess);
> raise Exception.Create(SNoResponse);
> end else
> Result:=ProcessInfo.hProcess;
> break;
> end;
> Inc(i);
> end;
> if Result=0 then
> CloseHandle(ProcessInfo.hProcess);
> end;
>
> instalace MSIE:
> ----------------------
> Shell(PChar(MSIEPath), false);
> // kde MSIEPath je cesta k instalacnimu souboru
>
> instalace MDAC:
> -------------------------
> Shell(PChar(MDACPath), false);
> // stejne jako MSIE
>
> instalace MSDE:
> ------------------------
> var
> Timer: TTimer;
> MSDEPath:string; // cesta k instalaci
> MSDEiss:string; // cesta k iss souboru
> TempDir:string;
> TempMSDE:string;
> Tempiss:string;
> Hnd:THandle;
> ------
> Timer.OnTimer = TimerTimer
>
> procedure TSetupFrm.MSDELabelClick(Sender: TObject);
> var
> Reg:TRegIniFile;
> DBVersion, CSDVersion:string;
> RunMSDE:string;
> begin
> Reg:=TRegIniFile.Create('');
> Reg.RootKey:=HKEY_LOCAL_MACHINE;
>
> DBVersion:=Reg.ReadString('SOFTWARE\Microsoft\MSSQLServer\
> MSSQLServer\CurrentVersion',
> 'CurrentVersion', '');
> if DBVersion<>'' then
> begin
>
> CSDVersion:=Reg.ReadString('SOFTWARE\Microsoft\MSSQLServ
> er\MSSQLServer\CurrentVersion',
> 'CSDVersion', '');
> if CSDVersion<>'' then DBVersion:=CSDVersion;
> end;
> Reg.Free;
> if DBVersion<>'' then MessageDlg(Format(SIsSQL, [DBVersion]),
> mtInformation, [mbOk], 0) else
> with MsdeFrm do
> if ShowModal=mrOk then
> try
> Animate.Active:=true;
> Animate.Visible:=true;
> Application.ProcessMessages;
> Screen.Cursor:=crHourGlass;
> TempDir:='C:\CardTemp';
> if not DirectoryExists(TempDir) then
> if not CreateDir(TempDir) then
> raise Exception.Create(Format(SCanNotCreate, [TempDir]));
> Tempiss:=TempDir+'\'+ExtractFileName(MSDEiss);
> CopyFile(PChar(MSDEiss), PChar(Tempiss), false);
> SetFileAttributes(PChar(Tempiss),
> FILE_ATTRIBUTE_ARCHIVE);
> Ini:=TIniFile.Create(Tempiss);
> Ini.WriteString('SetupTypeSQL-0', 'szDir', ProgramDir.Text);
> // cesta, kam MSDE instalovat
> Ini.WriteString('SetupTypeSQL-0', 'szDataDir', DataDir.Text); //
> cesta, kde budou data
> Ini.WriteInteger('DlgCpSortUnicode-0', 'SortId', GetSortID);
> // zpusob trideni, viz dokumentaci k instalaci MS SQL
> Ini.WriteInteger('DlgServerNetwork-0', 'NetworkLibs', GetNetLib);
> // podporovane protokoly
> Ini.Free;
> Ini:=TIniFile.Create('setup.log');
> if Ini.ValueExists('ResponseResult', 'ResultCode') then
> Ini.DeleteKey('ResponseResult', 'ResultCode');
> Ini.Free;
> RunMSDE:=Format('%s -a -f1 "%s"', [MSDEPath, Tempiss]);
> Hnd:=Shell(PChar(RunMSDE), false);
> Timer.Enabled:=true;
> except
> Animate.Active:=false;
> Animate.Visible:=false;
> Screen.Cursor:=crDefault;
> end;
> end;
>
> procedure TSetupFrm.TimerTimer(Sender: TObject);
> var
> ValEx:boolean;
> Res:integer;
> Msg:string;
> begin
> Ini:=TIniFile.Create('setup.log');
> ValEx:=Ini.ValueExists('ResponseResult', 'ResultCode');
> if ValEx then Res:=Ini.ReadInteger('ResponseResult',
> 'ResultCode', 0);
> Ini.Free;
> if ValEx then
> begin
> Timer.Enabled:=false;
> if Hnd>0 then CloseHandle(Hnd);
> DeleteFile(Tempiss);
> DeleteFile(TempMSDE);
> RemoveDir(TempDir);
> Animate.Active:=false;
> Animate.Visible:=false;
> Screen.Cursor:=crDefault;
> case Res of
> 0: Msg:=SErr0;
> -1: Msg:=SErr1;
> -2: Msg:=SErr2;
> -3: Msg:=Format(SErr3, [ExtractFileName(MSDEiss)]);
> -4: Msg:=SErr4;
> -5: Msg:=SErr5;
> -6: Msg:=SErr6;
> -7: Msg:=SErr7;
> -8: Msg:=SErr8;
> -9: Msg:=SErr9;
> -10: Msg:=SErr10;
> -11: Msg:=SErr11;
> -12: Msg:=SErr12;
> -51: Msg:=SErr51;
> -52: Msg:=SErr52;
> -53: Msg:=SErr53;
> else Msg:=SErrUnkn;
> end;
> ShowMessage(Msg);
> end;
> end;
>
> ----------------
> function TMsdeFrm.GetNetLib: integer;
> var
> i:integer;
> begin
> Result:=0;
> with NetLib do
> for i:=0 to 5 do
> if (ItemIndex and (1 shl i))<>0 then Result:=Result or ($F shl
> (4*i));
> end;
>
> object NetLib: TDFCheckGroup
> Left = 16
> Top = 184
> Width = 289
> Height = 81
> Columns = 2
> ItemIndex = 7
> Items.Strings = (
> 'Name Pipes'
> 'TCP/IP Sockets'
> 'Multiprotocol'
> 'NWLink IPX/SPX'
> 'AppleTalk'
> 'Banyan Vines')
> Caption = 'Network Libraries'
> TabOrder = 1
> end
>
> function TMsdeFrm.GetSortID: integer;
> begin
> with SortID do
> case ItemIndex of
> 0: Result:=52;
> 1: Result:=84;
> 2: Result:=94;
> else Result:=0;
> end;
> end;
>
> object SortID: TRadioGroup
> Left = 16
> Top = 104
> Width = 289
> Height = 73
> Caption = 'Sort Order IDs'
> ItemIndex = 1
> Items.Strings = (
> 'ISO 1252 dictionary order, case-insensitive'
> 'Czech dictionary order, case-insensitive'
> 'Slovak dictionary order, case-insensitive')
> TabOrder = 0
> end
>
>
> --------------------------------
> On 1 Jun 2001, at 8:56, Ren� Otisk wrote:
>
> > Uz jsem tady s tim otravoval, ale k vysledku to nevedlo. Potreboval
> > bych v prubehu instalace meho programku instalovat DCOM a MDAC
> > (pouze ODBC ovladac pro MS SQL7), ale nevim jak nakonfigurovat IS,
> > aby se mu na pozadi spustil DCOM a MDAC. DCOM bych tam mel spustit
> > prikazem DCOM95.EXE /r:n /q:u, ale nevim jakym prikazem spustit MDAC
> > aby mi tam necpal vse, ale jen ten ovladac a hlavne kde tyto prikazy
> > umistit a kde by mely byt ty spustitelne soubory (DCOM95.exe a
> > MDAC_typ.exe)?
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
mbYesNoCancel v BCB5
[*] Miroslav Cipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 2.6.2000 08:33:24
da se to opravit v souboru dialogs.cpp na radku 426
prepsat
#define mbYesNoCancel (System::Set<TMsgDlgBtn, mbYes, mbHelp> () )
na
#define mbYesNoCancel (System::Set<TMsgDlgBtn, mbYes, mbHelp> () << mbYes <<
mbNo << mbCancel)
M.
----- Original Message -----
From: "Petr Vaclavek" <bla(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 31, 2000 10:18 AM
Subject: mbYesNoCancel v BCB5
> Ahoj
>
> Pri prechodu mezi BCB4 a BCB5 jsem narazil na jeden problem a
> to je
> konstanta mbYesNoCancel.
>
> Drive jsem mohl mit neco takoveho:
> Res = (MessageDlg("Update Record?", mtConfirmation,
> mbYesNoCancel,
> 0));
> Ale ted mi to tam zahlasi Expression Error prave na te konstante.
>
> Pokud predtim nadefinuji mbYesNoCancel presne podle toho, jak
> to je v
> helpu:
> #define mbYesNoCancel (System::Set<TMsgDlgBtn, mbYes,
> mbHelp> () <<
> mbYes << mbNo << mbCancel )
>
> tak se zase objevi warning:
> Redefinition of 'mbYesNoCancel' is not identical
>
> Jediny zpusob na jaky jsem prisel, je predefinovat tu konstantu a
> nazvat ji treba _mbYesNoCancel ale to se mi vubec nelibi.
>
> Muze mi nekdo poradit? Treba nejaky amatersky programator :-)
> Diky
>
> Petr
>
> P.S. Jsou nejake opravne packy na BCB 5.0?
>
> [-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
> [-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]
>
Bezpecnost programov
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.6.2000 08:45:16
> Rad by som otvoril diskusiu na temu 'Bezpecnost programov' (resp.
'Ochrana proti crackovaniu'). Ak ma niekto dobre napady, ako >ochranit
programy pred crackermi, velmi rad by som sa dozvedel viac informacii z
tejto oblasti.
Podle me jakakoliv ochrana pred cracknutim programu bude drive ci pozdeji
prolomena. Doba jakou to bude hackerum trvat zavisi spise na tom jak moc je
program popularni. Cim vic hackeru bude mit pocit, ze je treba program
cracknout tim driv se to stane. A nic proti tomu nenadelas.
Je lepe stravit cas venovany pokusum napsat program tak, aby jej hackeri
nemohli jednoduse cracknout, necemu uzitecnejsimu, z ceho budou mit prospech
uzivatele programu (a nakonec tedy i Ty)
Jinak na Internetu existuje nekolik stranek venovanych metodam ztizeni
crackovani - myslim, ze URL probehlo probehlo i touto konferenci...
Zdravi
D. Toman
HTTP komponenta (HTTPDemo) pro nektere adresy nefu
[*] delphi konference <delphi(zv)energotek(tec)cz> - 2.6.2000 08:46:11
Dobry den
chyba je na strane serveru, ne na vasi strane, maji to udelane nejak
nestandartne. Mam vypracovana takovato kriteria. Pokud nejde ze servru
stahovat bez chyb s programy GetRight, /Godzila/, IE5 jedna se o
nestandartni server. Obecne plati, za pomoci IE5 toho jde stahnout nejvice z
nejvice serveru, nevyhoda je vsak ta, ze napriklad nelze navazovat stahovane
soubory, pokud to v 1/2 stahovani spadne.
Petr Blau
----- Original Message -----
From: Zdenek Drvota <drvota(zv)zds(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 3:32 PM
Subject: HTTP komponenta (HTTPDemo) pro nektere adresy nefunguje?> Ahoj,
> narazil jsem na jeden problem u HTTP.
> V ukazkove aplikaci D3 (internet) HTTPDemo je stahovani
> souboru pres HTTP. Stahovani funguje, ale kdyz jsem zkusil
> napr. http://www.televize(tec)cz/program/ctvrtek.htm
> natahla se misto EXISTUJICI stranky (muzete si
> overit, v MSIE 5 to jde) jen chybova hlaska serveru,
> ze soubor neexistuje:
> ----------
> <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML
> 2.0//EN">
> <HTML><HEAD>
> <TITLE>404 Not
> Found</TITLE>
> </HEAD><BODY>
> <H1>Not Found</H1>
> The requested URL
> /program/ctvrtek.htm was not found on this
> server.<P>
> <P>Additionally, a 404 Not Found
> error was encountered
> while trying to use an ErrorDocument to handle the
> request.
> <HR>
> <ADDRESS>Apache/1.3.6 Server at <A
> HREF="mailto:web(zv)cesnet(tec)cz">www.ringier(tec)cz</A> Port
> 80</ADDRESS>
> </BODY></HTML>
>
> --------------
> Je chyba v aplikaci (ActiveX komponente), nebo
> na serveru? Ocekava snad nejake udaje v hlavicce
> pozadavku, ktere tam komponenta nedava?
> Opakuji, ze jine stranky stahnout jdou bez problemu.
> Diky.
>
> -----------------------------------------------
> Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
> director
> ZDS, spol. s r.o.
> Hronovicka 708 tel:+420-40-6613756
> 530 02 Pardubice fax:+420-40-6613756
> Czech Republic http://www.zds(tec)cz
> e-mail: info(zv)zds(tec)cz
> Pripojte se k hledani mimozemskych civilizaci:
> SETI(zv)Home http://setiathome.ssl.berkeley.edu
> Darek, ktery nezklame? CeDecko od nas!
> http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
>
Bezpecnost programov
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.6.2000 08:47:36
>From: <nnfapso(zv)kios.sk>
>> Rad by som otvoril diskusiu na temu 'Bezpecnost programov' (resp.
'Ochrana
>> proti crackovaniu'). Ak ma niekto dobre napady, ako ochranit programy
pred
>> crackermi, velmi rad by som sa dozvedel viac informacii z tejto oblasti.
>
>Ahoj,
>
>Jedina opravdu spolehliva ochrana je sirit aplikaci zadarmo ;-)
ovsem zatim musime z neceho zit. Dokud nebudou rohliky taky free :-)
>Neexistuje
>zadny zpusob jak tomu 100%ne zabranit. Bude samozrejme zalezet na tom, jak
>"atraktivni" bude takovou aplikaci cracknout.
>Nikdo asi nebude travit cas
>nad aplikaci typu Poznamkovy blok.
no myslim, ze to uz tady bylo (EasyPad pokud se nemylim nekdy vloni?) :-)
Zdravi
D> Toman
Proxy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.6.2000 08:51:01
>Zdravim,
>muze nekdo poradit, jakym zpusobem udelat jednoduchy proxy server. Jeden PC
pripojen do internetu a za nim nekolik PC. Zajima me, >jakym zpusobem se to
programuje, vim, ze takove produkty existuji, ale zajima me princip. Cely
archiv jsem prohledal, ale nic se tam o >tom nepise. Dekuji za namety ...
princip je vetsinou pomerne jednoduchy. Vse co potrebujes je ovladat TCP/IP
a precist si nejakou dokumentaci a pak hlavne testovat a testovat.
Napriklad: HTTP proxy je popsana (alespon pricipialne) v definici protkolu
HTTP (RFC 2068 - HTTP1.1 nebo radeji pro zacatek RFC1945 - HTTP1.0, ktera je
podstatne kratsi :-)
Zdravi
D>Toman
proxy server
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 2.6.2000 08:52:57
> Ahojte,
>
> Potreboval by som spravit proxy server, cez ktory by som sa mohol
> napajat na internet. Ten program by bol na jednom pocitaci v LAN. Prosim,
> pomozte mi.
>
Ahoj, ja ti sice nepomozem (lebo o tom nic neviem), ale mam taky
napad.
Ked to uz budes robit, nemozes tam dorobit taku vec,
ze ten tvoj proxy bude kaskadovatelny s MS Proxy?
Teda bude vediet posielat (sam od seba) doplnkove udaje, ktore ten
shit MS Proxy
pozaduje? Podla mojich info MS Exploder este posiela domenove
username a password
daneho usera a potom ho MS Proxy pusti von. Netscape to nevie a tak
sa s nim neda
browsovat. Mam slubene nejake zdrojaky statickeho web servera, ktory
sa ze vraj da jednoducho
prerobit na proxy. Ked pridu, tak ti ich mozem poslat ak chces.
/LH Odkaz na TTreeNode
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 2.6.2000 08:56:02
Ja to vacsinou robim tak, ze aj polozky ktore budu v tom strome vzdy
pridavam az pocas behu programu a nie v OnCreate ale az v OnShow. Jediny
problem ktory som zaregistroval bol pri pokuse o zmenu Parenta toho stromu
pocas behu programu z formularu na iny formular - vtedy som musel vsetky
polozky vytvorit odznova.
> Ahoj
> (BCB 5.0)
>
> Mam formular obsahujici TreeView, tento TreeView ma jiz v dobe navrhu
> nejake zakladni vetve. V OnCreate formulare si zapamatuji nejakou
> vetev:
> nEntity = tvComponents->Items->Item[nnEntity];
> V tomto okamziku je vse OK, nEntity ukazuje na spravnou vetev (Ve
> watchi mam nEntity->Text a ten je "Entity").
>
> Pozdeji, kdyz chci vyuzit tento odkaz na vetev TreeView (abych pridal
> nejake ty Childy), tak tento ukazatel ukazuje nejspise nekam uplne
> jinam, nebot ve Watchi mam:
> nEntity->Text = Nejake nesmysly pripadne NULL.
>
> Muze mi to nekdo objasnit, co se tam deje? Pripadne co delam spatne a
> jak to napravit?
>
> Diky
>
> Petr
>
Problem s ceckem
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 2.6.2000 08:57:30
Nepouzivat krizove vazby. To myslim vazne
DELPHI to sice umoznuji, ale zprava takoveho
projektu je naproste silenstvi.
Slavek
> Ahoj
>
> Mam nasledujici problem s jazykem C(++):
> Mam formular (cpp+h) = F, a jeste jeden zdrojak (cpp + h) = O, ktery
> obsahuje jisty objekt. Odkaz na tento objekt potrebuji mit v definici
> formulare. tj. F.h musi mit inkludovany O.h a v objektu potrebuji mit
> zase odkaz na formular tj. v O.h musi byt includovany
> F.h.....nasledkem cehoz je, ze to nefunguje :-( Hlasi to v F.h ze typ
> toho formulare neni definovan....
> Muze mi nekdo poradit jak to obelstit? Nejaka direktiva nebo neco?
> Diky moc
>
> Petr
> aplikace pro MS SQL 7
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 2.6.2000 09:27:36
Ahoj,
> A co se stane, az budete chtit data zobrazovat / upravovat pres intranet?
> Nebo nacist data do Wordu, Excelu, Accessu, ... ? Kodovanim loginu a hesel
> si krome toho zavirate vratka pouzit NT autentikaci pro MSSQL, kterou pro
> intranetove aplikace s vyhodou pouzivame.
ve skutecnosti pracujeme se dvema skupinami uzivatelu. V prvni skupine jsou
vsichni uzivatele, ketri pracuji s nasim systemem, ve druhe skupine je
uzivatel gast, ktery ma read-only prava ke vsemu.
Gastovi a sa heslo nekodujeme. Gast se nemuze nalogovat do naseho systemu.
Abychom nemusely delat ruzne grafy a reporty, tak ma zakaznik moznost
pristupu z Accessu k nasim MS SQL-tabulkam (o zlehcujici pohledy kupodivu
zajem neprojevili). Z Accessu pristupuji pomoci uzivatele gast.
O NT autentifikaci u daneho projektu nestojime, protoze pak si staci sednout
k pocitaci nalogovaneho kolegy, ktery odesel na obed a dostanu se do DB ...
Proc jste se rozhodli pouzivat NT-autentifikaci ??
> I z hlediska bezpecnosti je podle mne cistsi a lepe spravovatelne
nastavovat
> prava pro pristup datum v SQL serveru.
S tou bezpecnosti souhlasim, taky si rikam, ze kdyz nekdy zbyde cas ...
S tou spravovatelnosti ovsem nesouhlasim. V databazi mame cca 130 relaci a
cca 1500 atributu. Manazeri zakaznika jsou velmi vynalezavi a obcas chteji
neco zmenit. To bychom pak musely vzdy ke vsemu jeste menit nastavovani prav
a na nic nezapomenout (to souvisi s rozpoctem projektu, kapacitou lidi,
...). Takhle nam tato starost odpada.
S pozdravem, Lada
aplikace pro MS SQL 7
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 2.6.2000 09:30:46
Ahoj,
> Takove reseni se mi libi :-)
>
> Ale vidim tam problemy
>
> a) V kazdem pripade existuje sifrovaci algoritmus
> ve smeru uzivatel -> ucet. Jak ale vzniknou ty ucty - resp. kdo jim zada
> heslo?
> Mela by to delat Tvoje aplikace, aby si uzivatel mohl zvolit heslo do
> aplikace a pritom
> zasifrovane heslo bylo pro vsechny tajne. Mas v aplikaci funkci "zmena
> hesla"?
Ano nase aplikace umoznuje zadavani uzivatelu (jen uzivatel sa) a zmenu
hesla.
> b) V MS SQL Serveru je heslo konstantni - proto to sifrovani musi byt
pouze
> nejaky kodovaci
> tajny algoritmus a to neni bezpecna ochrana.
>
> Kdyz to shrnu, moje pripominka b) neni vazna, protoze asi neuvazujeme
> soustredeny utok
> odbornika a myslim, ze takova ochrana dostacuje. A jestli je vyresen bod
a),
> aby vubec
> nikdo neznal heslo k databazi a heslo k aplikaci zna jenom prislusny
> uzivatel,
> je to myslim, dobre reseni, ktere pokryva vsechny od pocatku kladene
> pozadavky,
> teda lze se prihlasit pouze pomoci aplikace a v db je znama identita
> prihlaseneho uzivatele.
>
> Fakt se mi to libi, i kdyz jsem spise konzervativni a asi bych nepovolil v
> databazi prava na vsechno
> (Co kdyz nekdo zalozi novy ucet, nekdo zjisti sve db heslo - napr kvuli
> chybe v aplikaci
> se vypise zasifrovane heslo do logu? Nebo se nekdo dostane k sifrovacimu
> algoritmu
> a zjisti si heslo sam?) Bojim se byt optimistou a radeji vzdycky pocitam s
> tim,
> ze neco nezafunguje tak jak ma, takze bych neprideloval zbytecne velka
prava
> na databazove
> objekty.
>
> V otazce bezpecnosti je lepsi, kdyz je nejaka sluzba nedostupna,
> nez kdyz ma nekdo dostupnou sluzbu na niz by nemel mit pravo. Na to se
totiz
> hned prijde,
> ten dotycny si stezuje, ze "neco nemuzu udelat, ONO mi to pise....".
Kdezto
> druhy pripad
> je bezpecnostni dira, o ktere nikdo nevi. A je tam tak dlouho, nez nekdo
> zautoci...
Tady souhlasim s mailem Roberta Kindla:
> Utok odbornika to nevydrzi, ale ten dokaze heslo zjistit i jinak,
> nez reverzovanim sifrovaciho algoritmu v aplikaci...
S pozdravem, Lada
Zabirani systemovych prostredku (podruhe)
[*] Pavel �ern� - 02.6.2000 09:35:21
Vracim se k tematu, ktere jsem tady nakousnul asi pred
tremi tydny. Slo o neumerne zabirani systemovych prostredku
pod Win9x ( Delphi 5 ).
Petr Vones me navedl na DBNavigator, SpeedButton a BitBtn.
Udelal jsem ( za prispeni kolegy Skopalika ) testy a dopadlo to takhle
Komponenta Poc.inst. SP UP GDI
DBNavigator 20 15 0 18
SpeedButton 120 0 0 0
BitBtn 60 0 2 0
Button 60 0 5 0
Poc.inst ... pocet instanci
SP ... systemove prostredky
UP ... uzivatelske prostredky
Takze DBNavigator je opravdu extra zrout.
Ale napr SpeedButton nebere prakticky nic.
A obycejny Button bere z tech ruznych
knofliku nejvic.
Tak nevim, jestli blbnu, nebo jsou to realne
vysledky. Komponenty jsou generovane v
runtime a nechane v defaultnim stavu.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 2.6.2000 09:38:41
Ahoj,
myslim, ze v procedure Shell v slucke pouzivat counter nie je vhodne lebo
trvanie zavisi od procesoru. Lepsie bude pouzit timer a definovat si
konstantu pre timeout. Upravil by som to takto:
const
ShellTimeout = 300000; // 5 min
...
var
Ticks: DWord;
...
Ticks := GetTickCount;
repeat
if MsgWaitForMultipleObjects(1, ProcessInfo.hProcess, false, INFINITE,
(QS_POSTMESSAGE or QS_SENDMESSAGE))=(WAIT_OBJECT_0) then break;
if (GetTickCount-Ticks > ShellTimeout) then begin
if ShowError then begin
CloseHandle(ProcessInfo.hProcess);
raise Exception.Create(SNoResponse);
end else
Result:=ProcessInfo.hProcess;
break;
end;
until False;
...
Palo.
pstolc(zv)sc.sknet.sk
Spusteni DCOM a MDAC v InstallShieldu
[*] Ren� Otisk - 2.6.2000 09:40:03
Hi,
To jo, ty registry pouziju, az budu plakat zoufalstvim, ale aby z toho potom
nekdo nezblb, kdyz tam jeste pribude restart me aplikace... I kdyz uz vim
jak spustit bez restartu DCOM i MDAC (parametr /QN1). Ten souborek je z
nejakeho CD dodavaneho MS. Ty prepinace jsem cast nasel nekde na
http://support.microsoft.com a cast je v Microsoft News 2/2000. Je to tam
docela dobre popsane (teda na webu)...
Sroub
Ahoj,
teda dcm95cfg.exe som nenasiel. Co je to? Nasiel som len dcomcnfg.exe.
Nemyslel si nahodou na to ?
A co su tie prepinace ?
Ale napadlo ma ako by sa dala aj pomocou ISX spustit instalacia DCOM a MDAC,
ale za cenu dvoch restartov. Do registry do sekcie
HKLM/Software/Microsoft/Windows/CurrentVersion/RunOnce zapises obe tieto
aplikacie, a nastavis ISX aby po instalacii vzdy restartoval. Po restarte
system spusti aplikacie zapisane v registry a nasledne vymaze tieto zaznamy.
Instalacia MDAC opat vyziada restart a je to. Trochu komplikovane ale
funguje. Pomocou InnoSetup to ide hladko aj s jednym restartom.
Palo.
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Ren� Otisk <otisk(zv)misel(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 1:26 PM
Subject: Re: Spusteni DCOM a MDAC v InstallShieldu
> Omlouvam se. Je to unattended mode dcm95cfg.exe /r:n /q:u
Paradox - dik
[*] Ren� Otisk - 2.6.2000 09:44:54
Hi,
Kez by to bylo takto snadne ve vsech pripadech...
Sroub
> On 1 Jun 2000, at 14:28, azeleny(zv)csas(tec)cz wrote:
>
> > diky vsem za odpoved, toto jem prehlidl a _VELMI_ mi to pomohlo.
> > Jinak, proc vlastne jeste porad Paradox... je to historickych duvodu,
> > udrzba aplikace, ktera uz bezi... radost z toho nemam, nove utilitky
> > jsou jiz psany pod Delphi... Svet je obcas slozitej, ale diky vsem za
> > pomoc!!!
>
> Drobna poznamka - pokud mi nejaka stara aplikace dela vazne
> problemy, tak sednu a napisu ji znovu a lepe, vyhlasim upgrade a
> postupne ukonceni podpory stare verze.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Athlon
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 2.6.2000 09:45:46
Ahoj,
> Nevim jestli to byl Athlon, ale asi pred rokem nase aplikace v D4 nekdy
> (10x za den) padala na AMD s vyjimkou Chyba v pohyblive radove carce. Po
> vymene procesoru za Intel chyba zmizela. Nikdy se neprislo cim to bylo.
to mohlo byt sposobene nedostatocnym chladenim procesora. Mal som ten isty
problem, vymena ventilatora za vacsi a pouzitie pasty medzi procesor a
chladic problemy vyriesil. Je to znama vlastnost AMD procesorov.
Palo.
pstolc(zv)sc.sknet.sk
Timage a zobrazen� obr�zku vedle sebe
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 2.6.2000 09:45:39
A.Kresta wrote:
>...
>Ale kdy� aplikaci spust�m, zm��knu Button1 a ono se to nakop�ruje dob�e,
potom zv�t��m okno aplikace a zm��knu Button1 a >ono to nakop�ruje tak jak
p�edt�m, ne p�es cel� okno aplikace.
Ahoj
problem bude v tom, ze TImage pouziva k zobrazeni bitmapu, jejiz rozmery se
nastavi pri prvnim kresleni
do TImage. Kdyz se provede resize TImage, rozmery bitmapy se nezmeni, to
musis udelat Ty sam:
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
if pozadi.Picture.Graphic <> nil then begin
pozadi.Picture.Bitmap.Width:=pozadi.Width;
pozadi.Picture.Bitmap.Height:=pozadi.Height;
end;
for x:=0 to round(pozadi.width/obrazek.width)+1 do
for y:=0 to round(pozadi.height/obrazek.height)+1 do
begin
pozadi.canvas.copyrect(rect(x*obrazek.width,y*obrazek.height,(x+1)*obrazek.w
idth,(y+1)*obrazek.height),obrazek.canvas,rect(0,0,obrazek.width,obrazek.hei
ght));
Application.ProcessMessages;
end;
end;
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
aplikace pro MS SQL 7
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 2.6.2000 09:46:46
> -----P�vodn� zpr�va-----
> Od: Ladislav Nagy [mailto:lnag7384(zv)mail.kolej.mff.cuni(tec)cz]
> Odesl�no: 2. �ervna 2000 9:28
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: aplikace pro MS SQL 7
>
>
> Ahoj,
> O NT autentifikaci u daneho projektu nestojime, protoze pak
> si staci sednout
> k pocitaci nalogovaneho kolegy, ktery odesel na obed a
> dostanu se do DB ...
Pak je ten kolega nezodpovedny, kdyz umoznil zneuzit svoje sezeni.
Mne se (myslim:-) jeste nestalo, ze bych odesel od odemceneho pocitace
s mym sezenim. Vyjimkou jsou testovaci stroje, kde ale mam
rozjeto sezeni na nejaky testovaci ucet a umoznuji ho pouzivat ostatnimi
schvalne.
> S tou bezpecnosti souhlasim, taky si rikam, ze kdyz nekdy
> zbyde cas ...
> S tou spravovatelnosti ovsem nesouhlasim. V databazi mame cca
> 130 relaci a
> cca 1500 atributu. Manazeri zakaznika jsou velmi vynalezavi a
> obcas chteji
> neco zmenit. To bychom pak musely vzdy ke vsemu jeste menit
> nastavovani prav
> a na nic nezapomenout (to souvisi s rozpoctem projektu,
> kapacitou lidi,
> ...). Takhle nam tato starost odpada.
To je snad zakaznikova starost - nebo vy zabezpecujete i provoz aplikace?
Jura
zji��ov�n� p��stupu k soubor�m
[*] Jan Hovorka <hovorka(zv)ltm.pvt(tec)cz> - 2.6.2000 08:48:44
Ahoj,
Pot�eboval bych "h�kovat" p��stup k soubor�m ve Win9x (D4) aby bylo
mo�n� p�ed jakoukoli operac� soubor zpracovat (nap�. dek�dovat). Pokud n�kdo
v�te jak na to, ozv�te se.
D�k, Honza
Spusteni DCOM a MDAC v InstallShieldu
[*] Ren� Otisk - 2.6.2000 09:50:01
Hi,
Mno jo D5. Jenze ja mam D3. Nicmene tusim Pavel Stolc
(http://www.jordanr.dhs.org/isinfo.htm (freeware) aj s nadstavbou SkripMaker
http://www.tafweb.com/scriptmaker.html) me odkazal na stranky Inno Setupu a
hlavne Script Makeru (kteryzto Inno Setup vyzaduje), a je to to, co jsem
hledal. Myslim, ze to stoji za to se na ty stranky podivat...
Sroub
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 11:14 PM
Subject: Re: Spusteni DCOM a MDAC v InstallShieldu
> From: "Tomas Bihary" <tomas(zv)wige-mic(tec)cz>
> > Spustit jinou aplikaci z IS Express asi (?) nepujde,
> > ale pokud mas IS for M$ C++, ktery je soucasti
> > instalace Visual Studia, tak s tim uz to dokazes.
> > Tahle verze totiz umoznuje spoustet funkce z
> > jakekoli DLL knihovny. Takze zavolas funkci
> > a ta uz spusti to co potrebujes...
>
> Ahoj,
>
> ISX pro D5 umoznuje u souboru v Properties zaskrtnout "Allow Express to
> self-register this file". Tim lze spusit bud male EXE (asi by sla i DLL
> pokud by jsi exportoval prislusne funkce pro registraci a tim ji vlastne
> nasimuloval).
>
> Petr Vones, amatersky programator
>
>Proxy
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 2.6.2000 09:58:39
Ahoj
> >muze nekdo poradit, jakym zpusobem udelat jednoduchy proxy server. Jeden
PC
> pripojen do internetu a za nim nekolik PC. Zajima me, >jakym zpusobem se
to
> programuje, vim, ze takove produkty existuji, ale zajima me princip. Cely
> archiv jsem prohledal, ale nic se tam o >tom nepise. Dekuji za namety ...
> Napriklad: HTTP proxy je popsana (alespon pricipialne) v definici protkolu
> HTTP (RFC 2068 - HTTP1.1 nebo radeji pro zacatek RFC1945 - HTTP1.0, ktera
je
> podstatne kratsi :-)
Tak ja jsem z RFC maximalne vzdycky uplne zblbnuty, ze ani nevim, co
je nutne a co ne.
Kterak si tedy obecne postavit jednoduchou proxy.
1. Nepocitej, ze budes mit za tyden funkcni model, to je beh na delsi trat,
nez
jen napraskat par okynek do formu a stisknout F9.
2. proxy je takovy maly www server s nekolika rozdily
3. kterak zacit poslouchat....
if WSAStartup(MakeWord(1,1), WData) <> 0 then Exit;
ServerSocketHandle := socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
if ServerSocketHandle = INVALID_SOCKET then Exit;
Addr.sin_family := AF_INET;
Addr.sin_port := htons(BindPort);
Addr.sin_addr.s_addr := INADDR_ANY;;
if bind(ServerSocketHandle, Addr, SizeOf(Addr)) = SOCKET_ERROR then Exit;
while not Terminated do begin
listen(ServerSocketHandle, 5);
J := SizeOf(Addr);
NewSocketHandle := accept(ServerSocketHandle, (zv)Addr, (zv)J);
if NewSocketHandle = INVALID_SOCKET then Exit;
(* 4. *)
end;
closesocket(ServerSocketHandle);
end;
4. ted mas poslech na portu BindPort (napr 3128 jako u winproxy)
NewSocket Handle musis predat threadu, ktery bude delat nasledujici...
5. .. bude poslouchat co mu IE, NN a jine posilaji za pozadavky.
6. pokud tuto adresu nezna, on sam se jako klient spoji s timto serverem a
pozadavek preda tak jak je. Pocka si na odpoved a posle ji na klienta,
jen tak mimochodem, si to co preposlal ulozi (a nebo neulozi, pokud
je jako proxy staven tak, ze ma jen blokovat nejake adresy).
Kdyz pak dostane pozadavek znova na tu samou adresu, zkusi tam poslat
uz jednou ulozena data aniz by musel navazovat spojeni ven.
7. Protokol HTTP deklaruje, ktere zahlavi muze proxy zmenit a jak, ktere
hlavicky se tykaji velikosti dat, datumu vytvoreni a pod.
8. Pokud vsak tvoris jen proxy, ktera ma blokovat urcite IP adresy staci,
kdyz
si jen otestujes par headeru, zjistis si od koho (z ktere IP) pozadavek
prisel
a pak se rozhodnes, jestli provedes spojeni nebo ne.
Martin
GetMessage nebo Hook fce
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 02.6.2000 09:59:45
Kdysi jsem si s Hookama hrala, ale jenom chvilku, moc me to
nebavilo. ohle hyslim zahookovalo klavesy. Ty pak treba podle asi
Hnadle, ktery to posila zjistis, jestli je to okno kalkula�ky
(treba v soucinnosti s FindWindow, GetActiveWindow) nebo tak neco
a pokud ano, tak si ty klavesy zapises.
Dodo
Zahookovani se provede - nejdriv deklarace
HookHandle:LongInt;
Function Hak
(Code:Integer;wParam:Word;lParam:LongInt):LongInt;Export;
A kod:
Zahookovani
HookHandle:=SetWindowsHookEx (wh_Keyboard,Hak,hInstance, 0);
if HookHandle = 0 then
MessageBox(0, 'Unable to set hook!', 'Error', mb_Ok);
End;
Ohookovani
UnhookWindowsHookEx(HookHandle);
Obsluha - tem kodum uz sam skoro neruzmim, musis dostudovat
jinde. Jen ty podminky si musis napasovat na tvou potrebu - treba
zjistit praktickym pokusem.
function TForm1.Hak(Code: Integer; wParam: Word; lParam:
Integer): LongInt;
begin
if Code >= 0 then
begin
if ((wParam = VK_ADD)or(wParam = VK_SUBTRACT)) and
(lParam and $40000000 = 0) then
begin
tady asi obsluha klaves, ale uz nevim jakych
end;
End;
Result := CallNextHookEx(HookHandle,Code, wParam, lParam);
End;
______________________________________________________________
> Od: r.tesar(zv)atlas(tec)cz
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Fri, 2 Jun 2000 06:58:13 +0200
> P�edm�t: GetMessage nebo Hook fce
>
> Ahojte Delf�ni
>
> Mam problem, snazim se udelat aplikaci, ktera by mi
protokolovala vypocty na kalkulacce (udaje zadavam klavesnici).
To znamena, ze bych potreboval monitorovat vstup z k�lavesnice
pro aplikaci kalkulacky. Nemam vubec zadne zkusenostni ani s Hook
fce ani s odchytavani Message. Muze mi nekdo poskytnout
podrobnejsi radu, nebo nejaky zdrojak ?? Jestli se to treba resi
fci GetMessage tak nevim kam ji zaradit do jake procedury nebo
udalosti aby monitorovala neustale atd.
>
> Dik za vsechny rady
> Radek Tesar
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Problem s ceckem
[*] Miroslav Cipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 2.6.2000 10:32:34
dat veci spolecne pro O a F do noveho *.h a *.cpp a pak includovat do O i F
?
M.
----- Original Message -----
From: "Petr Vaclavek" <bla(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, June 02, 2000 8:04 AM
Subject: Re: Problem s ceckem
> > do f.cpp za #include "f.h" dopis #include "o.h" a do o.cpp za #include
"o.h"
> > dopis #include "f.h", do *.h nic nezapisuj
> > M.
> *** Zkusil jsem, ale nepomohlo to :-(
> Protoze pokud v f.h neni includovan o.h, tak tady nezna typ (ten
> objekt), ktery je definovan v o.h a naopak.
>
.
.
transakce
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 2.6.2000 11:45:14
Mohou byt i i DataSetu (viz Cached Update, ktere lze k tomu pouzit), v pripade vicevrstve archytektury
muze byt transakcnich mechanizmu vice (zpravidla co vrstva, to jedna uroven
transakcniho zpracovani).
Pro OnLine Client Server doporuciji transakce na serveru a KAZDY updatovany, nebo vkladany zaznam
validovat DB.
Slavek
> Dobry den,
>
> mohl by mi nekdo objasnit jestli transakce jsou vzdy zalezitosti database
> nebo take nekdy recordsetu?rozhadzane ikony v palete komponent
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 2.6.2000 13:23:58
Po naistalovany komponentov Raize (do C++ Builderu 5) sa mi rozhadzali ikony v palete komponent. Robi to aj s AHM 2000 komponentami. Nevie niekto ako sa to da opravit ?
dik
set ?
[*] Ko�� Michal <KociM(zv)Radiomobil(tec)cz> - 2.6.2000 14:07:02
Zdrav�m v�echny,
s Delphi za��n�m a cht�l bych poradit s jednou v�c�. Pot�ebuju z Delph�na
zapsat prom�nnou do prost�ed�, t�eba AAA s hodnotou 1. Na p��kazovou ��dku
DOSu bych norm�ln� napsal "SET AAA=1" ale jak na to ve Delphi?
p�edem d�ky za odpov��
Ko�� Michal
PS:existuje seznam p��kaz� s mal�m vysv�tlen�m?Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.6.2000 14:27:40
On 2 Jun 2000, at 9:38, Pavol Stolc wrote:
> myslim, ze v procedure Shell v slucke pouzivat counter nie je vhodne
> lebo trvanie zavisi od procesoru. Lepsie bude pouzit timer a definovat
> si konstantu pre timeout. Upravil by som to takto:
Podivam se na to.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ADO
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 2.6.2000 14:29:07
Dobry den
nevytenekdo jak se pracuje s eventama primo pomoci ADO komponent, melo by to
byt neco s objektem ConnectionEvents v unite ADODB_TLB.
predem diky za kazdou radu
Proxy
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 2.6.2000 14:48:56
caves,
mozno by bolo zaujimave, keby si povedal, co vsetko by to malo robit. ja som
teraz dokoncil program, ktory by ti mozno pomohol - bezi ako service na
windows nt a umoznuje pripojenie viacerych uzivatelov do i-net(u) cez jeden
pc (+logovanie, +autentifikacia uzivatelov a adries). ak by ti to stacilo
...
lubos
> Ahoj
>
> > >muze nekdo poradit, jakym zpusobem udelat jednoduchy proxy
> server. Jeden
> PC
> > pripojen do internetu a za nim nekolik PC. Zajima me, >jakym zpusobem se
> to
> > programuje, vim, ze takove produkty existuji, ale zajima me
> princip. Cely
> > archiv jsem prohledal, ale nic se tam o >tom nepise. Dekuji za
> namety ...
>
...predefinovanie WM_PAINT
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 2.6.2000 14:58:17
Ahoj !
Chcel by so predefinovat vykreslovanie komponenty tbutton (alebo nejakej inej, ide o princip), napr. vykreslit dovnutra farebny obdlznik. Skusal som sa zavesit na spravu WM PAINT a robit nieco ako
procedure TBut1.Paint(var message:twmpaint);
var FrameBrush:HBRUSH;
hd:HDC;
PS:paintstruct;
begin
hd:=message.DC;
if hd=0 then
begin
hd:=BeginPaint(handle,PS);
FrameBrush := CreateSolidBrush(ColorToRGB(clRED));
FrameRect(hd, Rect(Left - 1, Top - 1, Left + Width, Top + Height),
FrameBrush);
DeleteObject(FrameBrush);
FrameBrush := CreateSolidBrush(ColorToRGB(clBtnHighlight));
FrameRect(hd, Rect(Left, Top, Left + Width + 1, Top + Height + 1),
FrameBrush);
DeleteObject(FrameBrush);
EndPaint(handle,PS);
end;
end;
ale nefuguje to. Mozte mi niekto poradit ?
Komunikace via TCP/IP
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 2.6.2000 15:03:37
Zdravim vsechny. Potrebuji svazat vice pocitacu na siti pomoci IP protokolu.
Konkretne se jedna o posilani a prijem textu, neco jako chat. Mam dve na
sobe nezavisle LAN. Na obou funguje proxy a router s OS Linux. Pouzil jsem
komponenty ServerCocket a ClientSocket, ale nepodarilo se mi to rozchodit.
Jestli jste uz nekdo tohle pouzivali, dejte mi prosim vedet. Diky. Batex
OT: C syntax
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 2.6.2000 15:07:57
/* Variablen Deklaration */
short sError_Code = 0;
double fOp1,fOp2,fOp3;
*fAXZML = 0.0;
fOp1 = afAO??(NXZL??)??(sTechAlter??);
fOp2 = afAO??(NXZL??)??(sTechAlter + sLaufzeitjahre - 1??);
fOp3 = afAO??(DXZL??)??(sTechAlter??);
if ((fOp1 <= 0) ??!??! (fOp2 <= 0) ??!??! (fOp3 <= 0))
??<
sError_Code = 23;
*fAXZML = 0;
Vysvetlite mi prosim Vas co znamenaju otazniky v tycho priradeniach??TTimer v TThread
[*] Oceanic <oceanic(zv)azit(tec)cz> - 2.6.2000 15:55:37
Ahojky,
lidi�ky jak mam nastavit ci priradit ke TThread TTimer, tak aby se urcita
operace provadena cyklicky v TThread.Play volane z TThread.Execute ???
OceaniC
OT: C syntax
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.6.2000 16:12:08
Nevim nevim, v C moc nepisu, ale nemelo by byt misto '??' '<<' a
misto '!' '1'?
Slavek
> /* Variablen Deklaration */
> short sError_Code = 0;
> double fOp1,fOp2,fOp3;
>
> *fAXZML = 0.0;
>
> fOp1 = afAO??(NXZL??)??(sTechAlter??);
> fOp2 = afAO??(NXZL??)??(sTechAlter + sLaufzeitjahre - 1??);
> fOp3 = afAO??(DXZL??)??(sTechAlter??);
>
> if ((fOp1 <= 0) ??!??! (fOp2 <= 0) ??!??! (fOp3 <= 0))
> ??<
> sError_Code = 23;
> *fAXZML = 0;
>
>
> Vysvetlite mi prosim Vas co znamenaju otazniky v tycho priradeniach??
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
proxy server
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.6.2000 16:18:03
>
>> Ahojte,
>>
>> Potreboval by som spravit proxy server, cez ktory by som sa mohol
>> napajat na internet. Ten program by bol na jednom pocitaci v LAN. Prosim,
>> pomozte mi.
>>
> Ahoj, ja ti sice nepomozem (lebo o tom nic neviem), ale mam taky
>napad.
> Ked to uz budes robit, nemozes tam dorobit taku vec,
> ze ten tvoj proxy bude kaskadovatelny s MS Proxy?
> Teda bude vediet posielat (sam od seba) doplnkove udaje, ktore ten
>shit MS Proxy
> pozaduje? Podla mojich info MS Exploder este posiela domenove
>username a password
> daneho usera a potom ho MS Proxy pusti von. Netscape to nevie a tak
>sa s nim neda
> browsovat.
Pravdepodobne je na MS Proxy zapnuta NTLM authentifikace. Ale, ze by ji
Netscape neumel.... Je to sice (alespon myslim) MS proprietarni zalezitost,
ale pak by se Netscape nepripojil ani na zaheslovanej IIS, kterej implitne
taky pozaduje NTLM
>Mam slubene nejake zdrojaky statickeho web servera, ktory
>sa ze vraj da jednoducho
> prerobit na proxy. Ked pridu, tak ti ich mozem poslat ak chces.
Nebo si stahni zdrojaky Squida (squid.nlanr.net) je to sice v Ccku a napsany
dost necitelne, ale je to funkcni proxy :-)
Zdravi
D. Toman
TNMHTTP
[*] Daniel Schmidt <danson(zv)atlas(tec)cz> - 2.6.2000 17:04:38
Dobry den,
mam v D5 problem s touto komponentou.
Snazim sa metodou Post pristupovat na stranku, ktora
a.) vyzaduje autorizaciu
b.) nasledne ulozi Cookie
Pri a. mam problem takyto :
bud dopredu naplnim HeaderInfo.Password + HeaderInfo.UserID, potom je
autorizacia (mozno) OK
ale ked tie polia necham prazdne, vobec mi neprebehne procedura pri evente
onAuthorizationNeeded.
Je to velmi podivne, lebo header prichadzajuceho dokumentu obsahuje
"HTTP/1.1 401".
Druha vec - Cookie sa nedockam ani v jednom pripade. Nevidim tu nijaku
zjavnu pricinu.
Predtym som pouzival D4 spolu s komponentou uAdvHttp - tam to v pohode
ficalo. Ta je ale od nejakeho manika z Argentiny a uz to (asi) dalej nerobi.
Nevedeli by ste mi niekto pomoct?
Dakujem
Daniel Schmidt
mailto://danson.(zv)atlas(tec)cz
mailto://schmidt(zv)gtsi.sk
Bezpecnost programov
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 2.6.2000 17:47:23
ahoj,
dobre to maj udelany treba v oblibenem TRIAL verze Delphi5 (princip
jednotneho ID pocitace) myslim ze takova ochrana programu uplne postaci.
(pochybuju o milionu prodanych kusu aby se s tim nakej hacker zacal zabyvat)
Nevyhodou je zase potreba nakeho serveru a ruznych softu kolem neho.
M.Jirman
Jestli si teda myslel zamezit sireni.
----- Original Message -----
From: nnfapso(zv)kios.sk
Ahojte,
Rad by som otvoril diskusiu na temu 'Bezpecnost programov' (resp.
'Ochrana proti crackovaniu'). Ak ma niekto dobre napady, ako ochranit
programy pred crackermi, velmi rad by som sa dozvedel viac informacii z
tejto oblasti.
Za pomoc vopred dakujem.
InstallShield Express
[*] WEB ATLAS - SUKY <suky(zv)atlas(tec)cz> - 2.6.2000 18:07:30
Ahoj,
Netusite nekdo jak pocestit instalaci vytvorenou programem InstallShield
Express v baleni Delphi 5 ?
Michal Soukup
begin 666 B.online s.r.o..vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..G,N<BYO+CM"+F]N;&EN90T*
M1DXZ0BYO;FQI;F4(zv)<RYR+F\N#0I/4D<Z0BYO;FQI;F4(zv)<RYR+F\N#0I4251,
M13IJ961N871E; T*3D]413I796)(;W-T:6YG+"!796)$97-I9VXL(%=E8D%P
M<&QI8V%T:6]N+"!);G1E<FYE="P(zv)26YT<F%N970-"E1%3#M73U)+.U9/24-%
M.C V,#((zv)+R X,C8(zv)-SDX#0I414P[2$]-13M63TE#13HP,S4(zv)+R W-S,R(#0Q
M-PT*5$5,.T-%3$P[5D])0T4Z,#8P,B O(#(zv)R-B W.3(zv)-"E1%3#M73U)+.T9!
M6#HP,S4(zv)+R W-R S,B T,3<-"E1%3#M(3TU%.T9!6#HP,S4(zv)+R W-S,R(#0Q
M-PT*0412.U=/4DLZ.SM3='5D96YT<VOA(#(P.3 [3&ET=NUN;W8[34]35#LT
M,S8(zv),#$[0WIE8V(zv)(zv)4F5P=6)L:6,-"DQ!0D5,.U=/4DL[14Y#3T1)3D<]455/
M5$5$+5!224Y404),13I3='5D96YT<VL]13$(zv),C Y,#TP1#TP04QI='8]141N
M;W8L($U/4U0(zv)-#,V(# Q/3!$/3!!0WIE8V(zv)(zv)4F5P=6)L:6,-"D%$4CM(3TU%
M.CL[4W1U9&5N='-KX2 R,#DP.TQI=';M;F]V.TUO<W0[-#,V(# Q.T-Z96-H
M(%)E<'5B;&EC#0I,04)%3#M(3TU%.T5.0T]$24Y'/5%53U1%1"U04DE.5$%"
M3$4Z4W1U9&5N='-K/44Q(#(P.3 ],$0],$%,:71V/45$;F]V+"!-;W-T(#0S
M-B P,3TP1#TP04-Z96-H(%)E<'5B;&EC#0I54DPZ:'1T<#HO+W=W=RYB;VYL
M:6YE+F-Z#0I54DPZ:'1T<#HO+W=W=RYB;VYL:6YE+F-Z#0I%34%)3#M04D5&
M.TE.5$523D54.FEN9F] <VML860N8WH-"D5-04E,.TE.5$523D54.G-O=6MU
M<$!B;VYL:6YE+F-Z#0I2158Z,C P,# V,#)4,38P-S,P6(zv)T*14Y$.E9#05)$
"#0H`
`
end
GetMessage nebo Hook fce
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.6.2000 18:51:57
On 2 Jun 2000, at 9:59, Ladislav Dole�el wrote:
> Zahookovani se provede - nejdriv deklarace
>
> HookHandle:LongInt;
> Function Hak
> (Code:Integer;wParam:Word;lParam:LongInt):LongInt;Export;
Tuto deklaraci Hak bych vyhodil.
> A kod:
>
> Zahookovani
> HookHandle:=SetWindowsHookEx (wh_Keyboard,Hak,hInstance, 0); if
Namisto hInstance bych dal nulu. Do posledniho parametru by bylo
vhodnejsi dat ID threadu kalkulacky, aby se tam nemotaly klavesy
z jinych aplikaci.
> HookHandle = 0 then
> MessageBox(0, 'Unable to set hook!', 'Error', mb_Ok);
> End;
>
> Ohookovani
> UnhookWindowsHookEx(HookHandle);
>
> Obsluha - tem kodum uz sam skoro neruzmim, musis dostudovat
> jinde. Jen ty podminky si musis napasovat na tvou potrebu - treba
> zjistit praktickym pokusem.
>
> function TForm1.Hak(Code: Integer; wParam: Word; lParam:
> Integer): LongInt;
Zde bych na konec pripsal stdcall, a wParam je longint.
> begin
> if Code >= 0 then
> begin
> if ((wParam = VK_ADD)or(wParam = VK_SUBTRACT)) and
> (lParam and $40000000 = 0) then
> begin
> tady asi obsluha klaves, ale uz nevim jakych
> end;
> End;
> Result := CallNextHookEx(HookHandle,Code, wParam, lParam);
> End;
Jake hodnoty mohou nabyvat wParam a lParam je popsano ve
WinAPI helpu, lze postupovat od funkce SetWindowsHookEx, pres
povidani k WH_KEYBOARD.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Paradox - dik
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.6.2000 18:51:57
On 2 Jun 2000, at 8:03, Milan Tomes wrote:
> To je ponekud unahleny zaver. Ve firme se na prechod do Delphi
> chystame, ale brani tomu velka slozitost agend, ktere jsou vytvoreny v
> Pdx. Je nutno absolutne plynule navazat novou verzi na predchozi a
> tento prechod je natolik obtizny (nese sebou i zmenu databaze na IB a
> hlavne kompletni zmenu datoveho modelu), ze je nemyslitelne aby byl
> prechod hotov v prubehu 2-3 mesicu. Bude to zalezitost minimalne 1/2
> roku na jeden ze stezejnich programu.
Mno - unahleny... Zalezi na okolnostech. Ja to tak delam "bezne",
zrovna ted jsem dokoncil novou verzi jednoho velkeho projektu,
ktery jsem psal uplne cely znovu, se vsim vsudy (cca 3/4 roku).
Samozrejme i s konverznim programem ze stare databaze do
nove. Prineslo mi to ty vyhody, ze jsem mohl zahrnout nove
technologie a nove zkusenosti, ktere bych pri udrzbe stare verze v
podstate nemohl uplatnit. Ted uz jen zbyva upgradovat stavajici
zakazniky, abych se zbavil problemu se starou verzi. Na tu
samozrejme musim take plynule navazat, ovsem s tim, ze si
uzivatel znovu vytvori nektere vazby, ktere jsou v nove verzi uplne
jinak. Dulezita data samozrejme prevadim tak, aby to bylo co
nejmene bolestive.
Totez me ted ceka s novou verzi Lokalizatoru, kde pouziju pouze
minimum ze stavajici verze, na druhe strane mi to umozni zvysit
naskok pred konkurenci. Nova verze bude muset byt vyrazne
drazsi nez stavajici, ale vazne uvazuji o tom, ze tem, kteri si koupi
stavajici verzi, nabidnu takovou cenu upgrade, ze soucet bude nizsi
nez cena za novou verzi.
> > Drobna poznamka - pokud mi nejaka stara aplikace dela vazne
> > problemy, tak sednu a napisu ji znovu a lepe, vyhlasim upgrade a
> > postupne ukonceni podpory stare verze.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
seznam prihlasenych uzivatelu v Accesu
[*] Erik Salaj <winsoft(zv)napri.sk> - 2.6.2000 20:01:30
> je mozne zjistit seznam prihlasenych uzivatelu k Acessovske databazi.
(neco
> jako tu bylo pro MSSQL)
Q94 na http://www.cybermagic.co.nz/winsoft/adofaq.htm
Erik Salaj, WINSOFT
InstallShield Express
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 02.6.2000 21:13:54
> Netusite nekdo jak pocestit instalaci vytvorenou programem InstallShield
> Express v baleni Delphi 5 ?
Jakasi firma ze Zamberka nabizi za par stovek "pocestovak". Doporucuji, pocesti to temer vse a je to bez potizi pouzitelne. Jiste se v konferenci nachazi zastupce dane firmy. Pokud se ti nepodari sehnat kontakt, tak ti jej poslu, pocesteni jsem si jiz zakoupil.
Daniel Resler
OT Hondoceni obsahu v IE5
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 2.6.2000 21:52:38
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Jde to pres RegEdit. Na HKEY LOCAL MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings je ulozeno zasifrovane heslo. Pokud obsah klice vymazes, sice je hodnoceni stale zapnuto, ale bez hesla, takze si jej muzes v IE vypnout.
Jan Fiala
----- Original Message -----
From: Petr Jel�nek Konf
Zdravim mam problem. Po reinstalaci Win98 SE se mi samo zaplo hodnoceni obsahu v Internet Exploreru 5.01 a nemuzu to vypnout. Co je ale horsi to hodnoceni obsahu me nepusti ta zadny WWW.
Diky
Petr Jelinek - amatersky programator
http://pjmodos.hyperlink(tec)cz
Komunikace via TCP/IP
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 2.6.2000 22:19:41
Diky za radu,ale DelphiX ani DirectInput nemam pouzivam Delphi 3 a tam to
jeste neni, nebo je ? Jestli znate jiny zpusob, ci vite kde DelphiX pro D3
sehnat, budu vam vdecny. Batex.
-----P�vodn� zpr�va-----
Od: Hurricane <hurricane(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. �ervna 2000 2:25
P�edm�t: Re: Komunikace via TCP/IP
>Zkus komponenty DelphiX a posilat to pres DirectInput. Mam pocit, ze se tam
>jenom zadalo cislo clienta a serveru a nejakej string a hotovo. V posilani
>paketu pres Linux navidim problem.
>----- Original Message -----
>From: Peter Luk�cs <batex(zv)astrafren(tec)cz>
>To: <delphi-l(zv)fwd(tec)cz>
>Sent: Friday, June 02, 2000 3:03 PM
>Subject: Komunikace via TCP/IP
InstallShield Express
[*] Surfman <surfman(zv)volny(tec)cz> - 2.6.2000 22:43:19
> Netusite nekdo jak pocestit instalaci vytvorenou programem InstallShield
> Express v baleni Delphi 5 ?
Ahoj,
zkus www.sinea(tec)cz
Pavel
Asynchronous socket error10061
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 3.6.2000 01:26:00
Pouzivam ServerCocket a ClientSocket. Server aplikace asi bezi, ale Client
pri startu (client.open) hlasi Asynchronous socket error10061. Nevi nekdo,
so s tim ? active= true; adress=192.168.1.11, -adresa serveru;
host=192.168.1.2 adresa clienta; port=22222 stejny jako u serveru; ostatni
hodnoty jsou default. Batex
InstallShield Express
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.6.2000 08:22:49
On 2 Jun 2000, at 18:07, WEB ATLAS - SUKY wrote:
> Netusite nekdo jak pocestit instalaci vytvorenou programem
> InstallShield Express v baleni Delphi 5 ?
Nijak. Musis pocestit ISE jeste pred vytvorenim instalacniho
balicku.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Dalsi problemy s TreeView
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 3.6.2000 09:37:52
Mam opet problem s TreeView (Delphi 5 nebo Builder 5).
V dobe navrhu programu mam definovanych � zakladnich slozek v
TreeView. Pozdeji bych chtel dynamicky pridavat polozky do techto
slozek. Rad bych si tedy v OnCreate formulare obsahujici TreeView
udelal nejake odkazy na tyto zakladni slozky.
Moznosti je nekolik:
1) Node0 = TreeView.Nodes.Node[0]; <-- Zapamatovani si prvni vetve
- V dobe vytvoreni je to ok, ale kdyz chci pozdeji neco pridat tak
to ukazuje nekam, kde drive byla ta vetev, ale uz neni
2) Zapamatovat si ItemId:
NodeId0 = (TreeView.Items.Item[0]).ItemId;
Ziskani prislusne vetve:
TreeView.Items.GetNode(NodeId0)
Opet to funguje v dobe vytvoreni, ale potom uz ne....GetNode potom
vraci nesmysly a kdyz ten nesmysl pouziju v AddNode, tak mi to tu
novou polozku vrazi do Rootu
3) Vyuzit AbsoluteIndex
To by bylo o usta, neb ten se u kazde vetve porad meni podle toho,
jestli se pred ni prida (ubere) dalsi polozka...
4) Uz me vazne nic nenapada!
Velice by pomohlo treba pole rootovych polozek, jenze to tu asi neni
(aspon jsem to nenasel), leda ze bych udelal jeste jeden rootovy
uzel, jenze to vubec nechci!
Muze mi tedy nekdo poradit? Uz jsem nad tou blbostio ztravil nekolik
hodin (bezuspesne)
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Dalsi problemy s TreeView
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 3.6.2000 10:16:45
Pouzivam 1) a bez akychkolvek problemov. Akurat si aj zakladne polozky
vytvaram dynamicky.
Vysledny kod potom moze vyzerat zhruba takto (mam to z jedneho mojho
programu - mierne upravene):
TreeObj.Items.BeginUpdate;
nodTypy:= TreeObj.Items.Add(nil, 'Typy zariaden�'); // odkaz na zakladnu
polozku
nodTypy.ImageIndex:= iiSkupina;
nodTypy.SelectedIndex:= iiSkupina;
with QueryTypy do
begin
ParamByName('Pracovisko').AsInteger:= Pracovisko;
Open;
while not EOF do
begin
nod:= TreeObj.Items.AddChild(nodTypy, FieldByName('Nazov').AsString);
nod.ImageIndex:= iiTyp;
nod.SelectedIndex:= iiTyp;
nod.Data:= Pointer(FieldByName('Id').AsInteger);
Next;
end;
Close;
... // atd. pre ostatne vetvy
end;
jediny problem bol pri pokuse zmenit Parenta takto vytvoreneho stromu, vtedy
sa odkazy narusili a musel som strom vytvarat odznova. Mam sice D4, ale
pochybujem, ze tento sposob prestal v D5 fungovat.
> Mam opet problem s TreeView (Delphi 5 nebo Builder 5).
> V dobe navrhu programu mam definovanych � zakladnich slozek v
> TreeView. Pozdeji bych chtel dynamicky pridavat polozky do techto
> slozek. Rad bych si tedy v OnCreate formulare obsahujici TreeView
> udelal nejake odkazy na tyto zakladni slozky.
> Moznosti je nekolik:
>
> 1) Node0 = TreeView.Nodes.Node[0]; <-- Zapamatovani si prvni vetve
> - V dobe vytvoreni je to ok, ale kdyz chci pozdeji neco pridat tak
> to ukazuje nekam, kde drive byla ta vetev, ale uz neni
>
> 2) Zapamatovat si ItemId:
> NodeId0 = (TreeView.Items.Item[0]).ItemId;
> Ziskani prislusne vetve:
> TreeView.Items.GetNode(NodeId0)
> Opet to funguje v dobe vytvoreni, ale potom uz ne....GetNode potom
> vraci nesmysly a kdyz ten nesmysl pouziju v AddNode, tak mi to tu
> novou polozku vrazi do Rootu
>
> 3) Vyuzit AbsoluteIndex
> To by bylo o usta, neb ten se u kazde vetve porad meni podle toho,
> jestli se pred ni prida (ubere) dalsi polozka...
>
> 4) Uz me vazne nic nenapada!
> Velice by pomohlo treba pole rootovych polozek, jenze to tu asi neni
> (aspon jsem to nenasel), leda ze bych udelal jeste jeden rootovy
> uzel, jenze to vubec nechci!
>
> Muze mi tedy nekdo poradit? Uz jsem nad tou blbostio ztravil nekolik
> hodin (bezuspesne)
>
> Petr
>
> ,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
> --=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
> `======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
> `======----( read: http://www.swnet(tec)cz )=-- -- -
>Dalsi problemy s TreeView
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 3.6.2000 10:40:16
> Pouzivam 1) a bez akychkolvek problemov. Akurat si aj zakladne polozky
> vytvaram dynamicky.
> Vysledny kod potom moze vyzerat zhruba takto (mam to z jedneho mojho
> programu - mierne upravene):
*** Zkusil jsem to tedy takto dynamicky a opet to nefunguje...
Lepe receno, chvili to funguje, ale potom se to nejak zblazni:
OnCreate formulare mam toto:
tnEntity = tvComponents->Items->Add(NULL, "Entity");
A pak tam pridavam takto
TTreeNode *Node = tvComponents->Items->AddChild (
tnEntity,
"Caption"
);
Ze zacatku to funguje, pozdeji mi to pridava ty polozky primo do
Rootu....takze tudy cesta nevede :-(
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
InstallShield Express
[*] WEB ATLAS - SUKY <suky(zv)atlas(tec)cz> - 3.6.2000 11:59:48
Jak to cele funguje? Pocesti to celej program, nebo jenom vyslednou instalaci?
-----P�vodn� zpr�va-----
Od: Daniel Resler <daniel(zv)atcgroup(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 2. �ervna 2000 22:48
P�edm�t: Re: InstallShield Express
> Netusite nekdo jak pocestit instalaci vytvorenou programem InstallShield
> Express v baleni Delphi 5 ?
Jakasi firma ze Zamberka nabizi za par stovek "pocestovak". Doporucuji, pocesti to temer vse a je to bez potizi pouzitelne. Jiste se v konferenci nachazi zastupce dane firmy. Pokud se ti nepodari sehnat kontakt, tak ti jej poslu, pocesteni jsem si jiz zakoupil.
Daniel Resler
Tray Icon v horni liste
[*] Ivomir <Ivomir(zv)seznam(tec)cz> - 3.6.2000 15:54:29
Zdravim,
Nevite jak dostat (napr. v D5) ikonu na minimalizovani do traye na hroni
listu programu
vedle minimalizovani a maximalizovani a zavirani? Nektere programy maji
jeste jednu ikonu
prave na min. do tray takovou tecku v dolnim rohu. Dival jsem se do Object
insp. je tam
nastavovani BORDER ICONS ale tam jdou akorat vypnou,zapnout min,max,clos tot
vse.
ALE JAK TAM PRIDAT IKONU??? ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
InstallShield Express
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.6.2000 19:05:21
On 3 Jun 2000, at 11:59, WEB ATLAS - SUKY wrote:
> Jak to cele funguje? Pocesti to celej program, nebo jenom vyslednou
> instalaci?
Vysledna instalace je slozena z 16bitoveho zavadece a ze
zapakovanych dat. Zapakovany je i vlastni instalator, ktery pri
instalaci vidi uzivatel.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DATA Z KONFERENCE: KVETEN 2000
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.6.2000 19:37:00
Preji vsem pekneho dne,
jako obvykle zacatkem noveho mesice, naleznete
na adrese
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
posledni data z teto konference pro programek
KonfView. Pres cetne dotazy pripominam, ze pouze
dodavam data, autorem programu je Petr Vaclavek
(bla(zv)atrey.karlin.mff.cuni(tec)cz).
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
InstallShield Express
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 03.6.2000 20:08:39
> Jak to cele funguje? Pocesti to celej program, nebo jenom vyslednou instalaci?
Podrobne informace lze nalezt na www.sinea(tec)cz
Mrkni tam a je vsechno jasne.
Daniel Resler
InstallShield Express
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 3.6.2000 20:45:15
From: WEB ATLAS - SUKY
> Jak to cele funguje? Pocesti to celej program,
> nebo jenom vyslednou instalaci?
Pocesti to vyslednou instalaci,
temer vse, co vidi koncovy zakaznik.
Pocesteni se netyka prostredi IS, to zustava anglicke.
Vaclav Krmela
Tray Icon v horni liste
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 03.6.2000 23:21:32
Obycejnym nastavenim v border icons ani nijak jinak to nejde. je
to proste finta - wokna to vlasne taky neumi - je to nakreslenej
obrazek na liste a ten si kompletne sam obsluhujes.
Jsou na to hotovy komponenty - hledej neco jako "captionbutton"
treba na www.torry.ru
Dodo
______________________________________________________________
> Od: "Ivomir" <Ivomir(zv)seznam(tec)cz>
> Komu: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Sat, 3 Jun 2000 15:54:29 +0200
> P�edm�t: Tray Icon v horni liste
>
> Zdravim,
>
> Nevite jak dostat (napr. v D5) ikonu na minimalizovani do
traye na hroni
> listu programu
> vedle minimalizovani a maximalizovani a zavirani? Nektere
programy maji
> jeste jednu ikonu
> prave na min. do tray takovou tecku v dolnim rohu. Dival jsem
se do Object
> insp. je tam
> nastavovani BORDER ICONS ale tam jdou akorat vypnou,zapnout
min,max,clos tot
> vse.
> ALE JAK TAM PRIDAT IKONU???
>
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Zmazanie image
[*] Delphy confera na MV SR <delphi(zv)minv.sk> - 4.6.2000 08:03:10
Ahoj
Vie si niketo spomenut na zmazanie image??
Bolo to nieco ako image1.canvas.setcosi:=2...alebo podobne. Neviem si
spomenut.
Werki
Tray Icon v horni liste
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 4.6.2000 07:27:27
>
> Nevite jak dostat (napr. v D5) ikonu na minimalizovani do traye na hroni
> listu programu
> vedle minimalizovani a maximalizovani a zavirani? Nektere programy maji
> jeste jednu ikonu
> prave na min. do tray takovou tecku v dolnim rohu. Dival jsem se do Object
> insp. je tam
> nastavovani BORDER ICONS ale tam jdou akorat vypnou,zapnout min,max,clos tot
> vse.
> ALE JAK TAM PRIDAT IKONU???
>
>
Nevim, jestli jsem zcela pochopil tvuj dotaz, ale jde ti o to, aby
jsi mel vedle standardnich tlacitek na titulkovem pruhu okna jeste
nejake dalsi. V tom pripade existuji komponenty, ktere ti ho tam
dodaji, ale co bude to nove tlacitko konkretne delat, se musis
postarat sam. Na delphi super pages tu ikonu urcite najdes.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
ClientSocket a Error 11001
[*] bures <bures(zv)ssakhk(tec)cz> - 4.6.2000 09:11:56
Ano mas pravdu, uz vime kdy to nastane ale co s tim ????
Toto nempomuze :
try
ClientSocket1.Host := form2.Edit1.Text;
ClientSocket1.Active := true;
StatusBar1.Panels[0].Text := 'Conectinng...'
except end;
a ClientSocket1.OnError to nezchyti :(
Vlada
----- Original Message -----
From: Petr Smol�k <psmolik(zv)fides(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 05, 2000 8:09 AM
Subject: Re: ClientSocket a Error 11001
> > Ahoj, uz nejako dobu se zlobim se komponentama TClientScoket a
> > TServerSocket. Kdyz nastane chyba tak se rozeznava podle Errorcode v
> > procedure OnError a pak se Errorcode nastavi na 0. Ale je jedna chyba
> ktera
> > se v teto procedure neda osetrit a to je chyba : Windows socket error:
> > (11001), On Api 'Async Lookup' . A proto se ptam jestli nekdo ma se
> Sockety
> > nejakou zkusenost a poradil by mi, co s touto chybou mam delat ???
> >
> > Predem dekuji Vlada
> >
>
> Kdy se ta chyba objevuje?
> Taky se s tim zacinam trapit. Zatim jsem na ni narazil jen pokud se snazim
> pripojit k neexistujicimu jmenu. Je to jeste nekde jinde?
>
> Petr Smol�k
> psmolik(zv)fides(tec)cz
>Tray Icon v horni liste
[*] Ivomir <Ivomir(zv)seznam(tec)cz> - 4.6.2000 11:10:22
Jasne, potrebuju konkr. ikonu s puntikem v jednom ze spodnich rohu ikony, ktera je prave
na horni liste formulare hned vedle krizku pro zavreni app, minimalizovaci a max. ikony ktera
mi bude minimalizovat app. do tray. Tu fci uz mam samozrejme hotovou. Pouzivam RXtrayicon
ta je vyborna a mam tam jeste veci, jako schovani aplikace z win listy apod.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> Nevim, jestli jsem zcela pochopil tvuj dotaz, ale jde ti o to, aby
> jsi mel vedle standardnich tlacitek na titulkovem pruhu okna jeste
> nejake dalsi. V tom pripade existuji komponenty, ktere ti ho tam
> dodaji, ale co bude to nove tlacitko konkretne delat, se musis
> postarat sam. Na delphi super pages tu ikonu urcite najdes.
>
> Milan Dvorak
> dvorak(zv)gymzn(tec)cz
Athlon
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.6.2000 12:36:25
Athlona jsem pro Delphi 5 (Windows 2000 cz) take zkousel.
Vykon je super. Pocitac slape perfektne a dlohodobe stabilne.
Athlon rozhodne nema zadne problemy s chlazenim nebot podobne
jako Pentium III Coppermine je vyroben 0.18 mikronovou technologii
a tudiz se prilis nehreje ani pri vysokych frekvencich.
Krome dobreho procesoru je take velmi dulezita zakladni deska,
jeji vykon a stabilita. Ta je spolu s nekvalitnimi pametmi castejsi
pricinou zatuhavani pocitace. Mnoho lidi ma vsak tendenci to svadet na
Windows.
Pro Delphi 5 je rozhodne vhodnejsi operacni system Windows 2000
nez Win9x kvuli vyssim narokum na systemove zdroje.
Proto jsem provedl test 6 zakladnich desek a zjistoval jsem,
ktere jsou vhodnejsi pro system Windows 2000, potazmo Delphi.
Vysledky jsou opravdu zajimave.
Koho to zajima, necht se podiva na www.techbox(tec)cz, kde jsou vysledky
narocnych testu. Tematu se tykaji zejmena clanky "Jakou zakladni desku
pro Athlon" a "Testy zakladnich desek"
Jaro
----------------------------------------------------------------------
------------------
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC
> Ahoj,
>
> > Nevim jestli to byl Athlon, ale asi pred rokem nase aplikace v D4
nekdy
> > (10x za den) padala na AMD s vyjimkou Chyba v pohyblive radove
carce. Po
> > vymene procesoru za Intel chyba zmizela. Nikdy se neprislo cim to
bylo.
>
> to mohlo byt sposobene nedostatocnym chladenim procesora. Mal som
ten isty
> problem, vymena ventilatora za vacsi a pouzitie pasty medzi procesor
a
> chladic problemy vyriesil. Je to znama vlastnost AMD procesorov.
>
> Palo.
> pstolc(zv)sc.sknet.sk
>
>D3 a W2000
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.6.2000 12:39:39
Muzes byt bez obav. Drobne rozdily jsou napr. v nastaveni formatu
datumu,
kde je za tecku vkladana mezera, ale na nic problematickeho jsem
nenarazil
Jaro
----------------------------------------------------------------------
------------------
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC
>
> Pred casem jsem vznesl dotaz na provoz D3 a W2000. Jelikoz jsem
nedostal
> odpoved, ptam se pro jistoto jeste jednou, pokud to lze, ci zda jsou
nejaka
> omezeni.
>
> Diky vsem
>
> RT electronic
> Petr Marik
> rtepema(zv)mbox.vol(tec)cz
>
>IbObjects & Interbase
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.6.2000 12:53:00
> Ahoj,
> nainstaloval jsem si Interbase 6.0 a IbOjects a mam nekolik dotazu.
> 1. V komponente TIB_Connection (umistene v TDataModule) se nastavuji
vlastnosti (Server, Path, DatabaseName, atd.)v dobe navrhu programu.
Jak tyto parametry nastavit pri behu programu? Potreboval bych, aby se
TIB_Connection nastavila napr. podle hodnot zapsanych v INI souboru
pri startu aplikace.
---------
No ja to delam pomoci objektu IBDatabase1, ktery muzes editovat a
vygenerovat tak udaje do vlastnosti Params. Na tento objekt pak
pripojujes IBTransaction1 a TIBQuery. Nevim, zda jsou IbOjects
lepsi, ale tusim, ze se staly zakladem pro IB objety v Delphi 6. V tom
pripade by to melo byt obdobne.
> 2. Prostrednictvim komponenty TIB_Query vyberu jistou mnozinu
zaznamu z databaze. Nasledne tuto mnozinu potrebuji "projizdet" od
zacatku do konce (TIB_Query.Next). V archivu konference jsem se
docetl, ze tento zpusob prochazeni neni z hlediska client/server prave
to prave. Jak mam tedy postupovat?
---------
Metoda Next je vporadku. Z hlediska client/server je dulezite, aby
byla vybrana relativne mala mnozina dat, kterou je potrebne prochazet
v danem okamziku. Pokud totiz hledas napr. jednu informaci a udelas to
tak, ze otevres celou tabulku, pak pprochazis jeden zaznam po ruhem a
hledas, ktery odpovida tvemu zadani, pak je vsechno spatne. Mnohem
rychlejsi je napsat dobrou podminku pro dota, ktery vrati jeden nebo
mensi pocet zaznamu lepe odpovifajici hledane informaci
Jaro
----------------------------------------------------------------------
------------------
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC
>
>
> Dekuji za kazdy namet
>
> Milan KOTASKA
> mkotaska(zv)atlas(tec)cz
Optimalizace kodu v Delphi (link)
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 13:55:28
Zdravim
Uz chapu, ja sem cekal nejakej programek, kterym prozenu muj zdrojak a on
neco vyplivne. Kazdopadne dekuji.
Hurricane
----- Original Message -----
From: Petr Fischer <fifa(zv)praguesoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, May 26, 2000 6:45 PM
Subject: Re: Optimalizace kodu v Delphi (link)> >
> > Byl sem tam, ale nic zajimavyho sem tam nenasel. Hledal sem neco jako
> navod
> > nebo programek, ale v sekci Guides bylo jenom spousta textu a nekolik
> odkazu
> > na jiny stranky. Kdybys vedel, jak to pouzivat, tak to muzes napsat do
> > konference.
> >
>
> No tak tedy:
>
> samozrejme ze je tam spousta textu. Mozna by chtelo si v tom trosku pocist
> :)))) Je tam popis urcitych zasad, veci kterych se vyvarovat, optimalizace
> cyklu, promennych apod. Pro zkusene programatory (TY?) na strance mozna
nic
> zajimaveho nebude, ale jak uz sem napsal, rozhodne nezaskodi si ve
strankach
> pocist a verim, ze spousta lidi tam najde zajimavy tipy na zefektivneni
> svych algoritmu (a nebo taky ne, tak uz to na tom nasem bozim svete chodi
> :).
>
> Za zminku stoji hlavne sekce "GUIDE" (zasady pro praci s cykly, Integery,
> Stringy, cisly v plovouci carce apod.) a "Distributed computing" - tam sou
> tri odkazy na stranky o COMu.
>
> Petr Fischer
> E-Mail: fifa(zv)praguesoft(tec)cz, ICQ#: 24154715
>
> > Hurricane
> > ----- Original Message -----
> > > Mozna nekoho bude zajimat nasledujici link:
> > >
> > > http://www.optimalcode.com/
>
>Maximalizace okna
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 14:51:01
Proc na to jit slozite, kdyz to de jednodusse:
Application.Minimize;
Form1.WindowState := wsMinimized;
Form1.WindowState := wsMaximized;
Form1.WindowState := wsNormal;
Hurricane
----- Original Message -----
From: <r.tesar(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 7:11 AM
Subject: Maximalizace okna
Ahojte Delf�ni
Potreboval bych vedet zda nekdo nevite jak maximalizovat nebo nahodit okno
normalni velikosti z minimalizovaneho okna jakekoliv bezici aplikace. (Pokud
se nepletu tak minimalizaci jsem udelal jako CloseWindow(Handle Okna).
Dik za vsechny rady
Radek Tesar
P.S. priklad ze vcerejska posilat oknu WM_MAXIMIZE (RESTORE atd.) nefunguje.
Delphi mi hlasi ze takove konstanty nezna !!
Tisk na tiskarne na com portu
[*] Tomas Vesely <veselyt(zv)atlas(tec)cz> - 4.6.2000 17:51:28
Ahoj,
chtel jsem se zeptat, jestli jste nekdo resil tento proble - tiskarna na seriovem kabelu. Je to tiskarna specielne urcena na tisk stitku konkretne se jedna o Eltron TLP 2642. Neni nekde nejaky program jiz udelan?
Diky moc za kazdy tip.
Vesna Zjisteni otevrenych souboru
[*] Jan Kirchner <imconr(zv)volny(tec)cz> - 4.6.2000 18:47:20
Ahoj!
nejak jsem se zakous a potreboval bych poradit jestli neexistuje nejaky prog
ramek ktery dokaze zjistit vsechny soubory ktere jsou momentalne v systemu p
otevrene pro W98 na jednom PC (nesitove).
Zajimalo by me ktera aplikace a v kdy mi pristupuje k nekterym souborum.
Diky za radu
Jan Kirchner, program�tor amat�r
imconr(zv)volny(tec)cz
Maximalizace okna
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 04.6.2000 19:46:08
Tady ale byl dotaz, jak tohle udelat u jakekoliv bezici aplikace. Timhle zpusobem, co pises, to udelas jen
ve sve aplikaci.
S timhle napr. u maximnalizace okna PhotoShopu, Wordu a pod. nepochodis....
Dodo
______________________________________________________________
> Od: "Hurricane" <hurricane(zv)email(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Sun, 4 Jun 2000 14:51:01 +0200
> P�edm�t: Re: Maximalizace okna
>
> Proc na to jit slozite, kdyz to de jednodusse:
>
> Application.Minimize;
> Form1.WindowState := wsMinimized;
> Form1.WindowState := wsMaximized;
> Form1.WindowState := wsNormal;
>
> Hurricane
> ----- Original Message -----
> From: <r.tesar(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, June 01, 2000 7:11 AM
> Subject: Maximalizace okna
>
>
> Ahojte Delf�ni
>
> Potreboval bych vedet zda nekdo nevite jak maximalizovat nebo nahodit okno
> normalni velikosti z minimalizovaneho okna jakekoliv bezici aplikace. (Pokud
> se nepletu tak minimalizaci jsem udelal jako CloseWindow(Handle Okna).
>
> Dik za vsechny rady
> Radek Tesar
>
> P.S. priklad ze vcerejska posilat oknu WM_MAXIMIZE (RESTORE atd.) nefunguje.
> Delphi mi hlasi ze takove konstanty nezna !!
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Obdelniky v grafice
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 20:33:54
Zkus misto cavasu pouzit TShape a potom to spocitat z jejich Width, Height,
Left a Top.
----- Original Message -----
From: Parizsky Ladislav <parizsky(zv)access-it(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 31, 2000 2:28 PM
Subject: Obdelniky v grafice
> Jak zjistim ze v canvasu mi jeden obdelnik zasahl do druheho ?
>
> ladap
>
>Problem s grafikou
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 20:38:04
Jestli nechces, aby se mazal, nepouzivej Canvas ale TShape, je to vlastne
zapouzdreny Canvas, ale ma uz osetrerno prekreslovani.
----- Original Message -----
From: Parizsky Ladislav <parizsky(zv)access-it(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 31, 2000 9:15 PM
Subject: Problem s grafikou
> Ahoj
>
> Mam problem s kresleni obdelniku. Mam dva obdelniky pricemz s nima mohu
pohybovat po canvasu. Pokud tim jednim prejedu pres ten druhy tak se smaze.
Nevite nekdo jak zjistit zda tim obdelnikem nejedu pres ten druhej ?
>
> Ladap
>
>TextWidth s kurzivou
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 20:40:33
Zdravim
Obavam se, ze to nepude, ani Office ti to nereknou. U velkyho kurzivniho
pisma mas kurzor treba i uprostred pismenka TextWidth pocita sirku ke
kurzoru.
Hurricane
----- Original Message -----
From: Anton�n Blatn� <tonyk(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 31, 2000 3:27 PM
Subject: TextWidth s kurzivou
Zdravim vsechny a dekuji za pripadnou odpoved:
Otazka je prakticky cela v predmetu. Zjistil jsem, ze mi funkce textwidth
spatne pocita delku textu, pokud je napsan (TCanvas je tak nastaven) fontem
s kurzivou. Lisi se skoro presne prave o to nakloneni, coz u velkych fontu
(size 50 a vice) uz je slusny pocet pixelu. Nevite nekdo, jak to spocitat
presne?
Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz
Spusteni URL apod. pod WinNT
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 20:49:52
Zdravim
Pouzij ShellExecute i pro tohle, nebo to nejde? kdyz das jako jmeno souboru
napr http://www.abc(tec)cz/soubor.htm, tak se ti otevre IE s timhle souborem. s
mailto:acb(zv)dt(tec)cz to jde taky. (otevre se nova zprava)
Hurricane
----- Original Message -----
From: DiGi <DiGi(zv)MujMail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 01, 2000 11:14 AM
Subject: Spusteni URL apod. pod WinNT
> Ahoj,
>
> Pomoci ceho se da pod WinNT/2k spustit URL nebo treba mailto: ?
> Pod win9x to funguje v pohode pres WinEXEC ale pod NT to hazi chybu
> ERROR_FILE_NOT_FOUND. Ostatni veci (soubory) se spousti pomoci
> ShellExecute a chodi to celkem v pohode..
>
> D5/ Windows-System-kde-furt-neco-nechodi (api funkce)
>
> DiGi
>
>
>Hondoceni obsahu v IE5
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 20:52:54
Zdravim
To po tobe chce heslo, nebo co? Je tam prece zatrzitko.
Hurricane
----- Original Message -----
Zdravim mam problem. Po reinstalaci Win98 SE se mi samo zaplo hodnoceni
obsahu v Internet Exploreru 5.01 a nemuzu to vypnout. Co je ale horsi to
hodnoceni obsahu me nepusti ta zadny WWW.
Bezpecnost programov
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 20:54:48
Zdravim
Mrkni se naASPPack nebo podonbny pakovac EXEacu, ten ti totiz znemozni
dekompilovani a zjisteni vitrnich resources (ResourceExplorerem z Delph)
Hurricane
----- Original Message -----
Rad by som otvoril diskusiu na temu 'Bezpecnost programov' (resp.
'Ochrana proti crackovaniu'). Ak ma niekto dobre napady, ako ochranit
programy pred crackermi, velmi rad by som sa dozvedel viac informacii z
tejto oblasti.Presmerovanie focusu.
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 4.6.2000 20:55:57
Zdravim.
Ako presuniem focus na dalsiu viditelnu komponentu v poradi TabOrder, lebo
"Perform(WM_NEXTDLGCTL,0,0);" mi posiela focus na dalsi object ktory nie je
viditelny. Objavi sa hlasenie "Cannot focus a disabled or invisible
window.".
Riesenie DalsiaKomponenta.SetFocus nie je schodna, lebo by som musel
testovat ci aj ta komponenta kam by mal ist focus je visible.
Dakujem.
Roland.Athlon
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 21:00:51
Zdravim
No jasne, pasta musi bejt vzdy. Ja mam AMD K6II 400 (asi) a zadne problemy
vetsi nemam. Stejne jako na s jinymi procesory.
Hurricane
----- Original Message -----
> > Nevim jestli to byl Athlon, ale asi pred rokem nase aplikace v D4 nekdy
> > (10x za den) padala na AMD s vyjimkou Chyba v pohyblive radove carce. Po
> > vymene procesoru za Intel chyba zmizela. Nikdy se neprislo cim to bylo.
>
> to mohlo byt sposobene nedostatocnym chladenim procesora. Mal som ten isty
> problem, vymena ventilatora za vacsi a pouzitie pasty medzi procesor a
> chladic problemy vyriesil. Je to znama vlastnost AMD procesorov.set ?
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 21:03:50
Zdravim
A k cemu to potrebujes? Chces to cist z jinyho programu? Musi to bejt
stejnej typ promenny, jako tam ktera se zapisuje DOSovym SET , nebo nejaka
jina. Nestacilo by to vzit pres registr. Tam ti navic vydrzi i po vypnuti.
Hurricane
----- Original Message -----
From: Ko�� Michal <KociM(zv)Radiomobil(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, June 02, 2000 2:07 PM
Subject: set ?
Zdrav�m v�echny,
s Delphi za��n�m a cht�l bych poradit s jednou v�c�. Pot�ebuju z Delph�na
zapsat prom�nnou do prost�ed�, t�eba AAA s hodnotou 1. Na p��kazovou ��dku
DOSu bych norm�ln� napsal "SET AAA=1" ale jak na to ve Delphi?
p�edem d�ky za odpov��
Ko�� Michal
PS:existuje seznam p��kaz� s mal�m vysv�tlen�m?
InstallShield Express
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 21:05:09
Slysel sem, ze cestina do ISE je na www.sinea(tec)cz, ale nikdy sem to
nepotreboval, takze ti o tom vic nereknu.
----- Original Message -----
> Netusite nekdo jak pocestit instalaci vytvorenou programem InstallShield
> Express v baleni Delphi 5 ?Komunikace via TCP/IP
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 21:14:15
Zkus komponenty DelphiX a posilat to pres DirectInput. Mam pocit, ze se tam
jenom zadalo cislo clienta a serveru a nejakej string a hotovo. V posilani
paketu pres Linux navidim problem.
----- Original Message -----
From: Peter Luk�cs <batex(zv)astrafren(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, June 02, 2000 3:03 PM
Subject: Komunikace via TCP/IP
> Zdravim vsechny. Potrebuji svazat vice pocitacu na siti pomoci IP
protokolu.
> Konkretne se jedna o posilani a prijem textu, neco jako chat. Mam dve na
> sobe nezavisle LAN. Na obou funguje proxy a router s OS Linux. Pouzil jsem
> komponenty ServerCocket a ClientSocket, ale nepodarilo se mi to rozchodit.
> Jestli jste uz nekdo tohle pouzivali, dejte mi prosim vedet. Diky. Batex
>
>Tray Icon v horni liste
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 21:15:48
R&A Library (http://www.infa.ru/black)
Je tam presne to , co potrebujes
----- Original Message -----
From: Ivomir <Ivomir(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, June 03, 2000 3:54 PM
Subject: Tray Icon v horni liste
> Zdravim,
>
> Nevite jak dostat (napr. v D5) ikonu na minimalizovani do traye na
hroni
> listu programu
> vedle minimalizovani a maximalizovani a zavirani? Nektere programy maji
> jeste jednu ikonu
> prave na min. do tray takovou tecku v dolnim rohu. Dival jsem se do Object
> insp. je tam
> nastavovani BORDER ICONS ale tam jdou akorat vypnou,zapnout min,max,clos
tot
> vse.
> ALE JAK TAM PRIDAT IKONU???
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
>Timage a zobrazen� obr�zku vedle sebe
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 4.6.2000 22:23:39
Ahoj,
co kdybys na to sel trochu jinak. Vynech TImage pro pozadi a nastav
Canvas.Brush.Bitmap a do OnPaint dal Canvas.FillRect(ClientRect) Viz help.
Bitmap points to a TBitmap object that holds a BMP image. If Bitmap is
nonempty, the BMP image (rather than the Style property) defines the brush's
pattern. If the image is larger than eight pixels by eight pixels, only the
top left eight-by-eight region is used.
Changing the image does not affect the brush until the TBitmap is reassigned
to the Bitmap property. Be sure to free the TBitmap after finishing with the
brush, since TBrush will not free it.
S pozdravem
========================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>======================================<
> ...The Truth Is Out There... <
========================================
GSM: 0602 652 203
Zjisteni otevrenych souboru
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 04.6.2000 23:05:55
> nejak jsem se zakous a potreboval bych poradit jestli neexistuje nejaky prog
> ramek ktery dokaze zjistit vsechny soubory ktere jsou momentalne v systemu p
> otevrene pro W98 na jednom PC (nesitove).
> Zajimalo by me ktera aplikace a v kdy mi pristupuje k nekterym souborum.
Mrkni se sem, zcela urcite tam najdes mnoho zajimavych programu, velice zajimave a uzitecne systemove programy, doporucuji vsem.
Daniel Resler
Sledovani otevrenych souboru
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 04.6.2000 23:17:45
K sledovani otevrenych souboru, zapomel jsem adresu a tady je ...
http://www.sysinternals.com/
Daniel Resler
Presmerovanie focusu.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2000 23:29:03
From: "Roland Tur�an (RoTurSoft)" <rotursoft(zv)nextra.sk>
> Ako presuniem focus na dalsiu viditelnu komponentu v poradi TabOrder, lebo
> "Perform(WM_NEXTDLGCTL,0,0);" mi posiela focus na dalsi object ktory nie je
> viditelny. Objavi sa hlasenie "Cannot focus a disabled or invisible
Ahoj,
podivej se na metodu TWinControl.SelectNext
Petr Vones, amatersky programator
Zabirani systemovych prostredku (podruhe)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2000 23:31:34
From: "Pavel �ern�" <cerny(zv)cerny-ps(tec)cz>
> Vracim se k tematu, ktere jsem tady nakousnul asi pred
> tremi tydny. Slo o neumerne zabirani systemovych prostredku
> pod Win9x ( Delphi 5 ).
>
> Takze DBNavigator je opravdu extra zrout.
> Ale napr SpeedButton nebere prakticky nic.
> A obycejny Button bere z tech ruznych
> knofliku nejvic.
Ahoj,
Stahni si nasledujici upravu, soucasti je i demo aplikace kde vidis spotrebovane
zdroje:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=14485
Petr Vones, amatersky programator
set ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2000 23:32:15
From: "Ko�� Michal" <KociM(zv)Radiomobil(tec)cz>
> s Delphi za��n�m a cht�l bych poradit s jednou v�c�. Pot�ebuju z Delph�na
> zapsat prom�nnou do prost�ed�, t�eba AAA s hodnotou 1. Na p��kazovou ��dku
> DOSu bych norm�ln� napsal "SET AAA=1" ale jak na to ve Delphi?
Ahoj,
Pokud vim, tak tak promenna zapsana v procesu nebude 'globalni', tedy po
jeho ukonceni nebude uchovana. Pokud ti staci toto tak pouzij API funkci
SetEnvironmentVariable.
> PS:existuje seznam p��kaz� s mal�m vysv�tlen�m?
Napriklad v helpu a v dokumentaci (tistene ci v PDF na instalcnim CD).
Petr Vones, amatersky programator
zji��ov�n� p��stupu k soubor�m
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2000 23:32:01
From: "Jan Hovorka" <hovorka(zv)ltm.pvt(tec)cz>
> Pot�eboval bych "h�kovat" p��stup k soubor�m ve Win9x (D4) aby bylo
> mo�n� p�ed jakoukoli operac� soubor zpracovat (nap�. dek�dovat). Pokud n�kdo
> v�te jak na to, ozv�te se.
Ahoj,
na aplikacni urovni toto pravdepodobne udelat nelze. Musel by jsi napsat
specialni driver coz nelze v Delphi. Existuje napriklad aplikace FileMon
(http://www.sysinternals.com/filemon.htm).
Petr Vones, amatersky programator
predefinovanie WM_PAINT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2000 23:32:42
From: "Peter Mojdis" <mojdis(zv)colnicapo.sk>
> Chcel by so predefinovat vykreslovanie komponenty tbutton (alebo nejakej
> inej, ide o princip), napr. vykreslit dovnutra farebny obdlznik. Skusal
> som sa zavesit na spravu WM_PAINT a robit nieco ako
Ahoj,
Univerzalni zpusob v tomto neexistuje, zalezi na danem ovl.prvku. Napriklad
button umoznuje vlastni vykreslovani pomoci stylu BS_OWNERDRAW, priklad mas
treba ve zdrojaku TBitBtn. Jiny priklad pro edit najdes v TDBEdit, obsluha
zpravy TDBEdit.WMPaint
Petr Vones, amatersky programator
Bezpecnost programov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2000 23:32:29
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> >Jedina opravdu spolehliva ochrana je sirit aplikaci zadarmo ;-)
>
> ovsem zatim musime z neceho zit. Dokud nebudou rohliky taky free :-)
Prirozene, z obchodniho hlediska je to asi nepouzitelne reseni, ale z
technickeho jedine funkcni :-)
Ted zrovna probiha v borland.public.delphi.basm newsech o tomto diskuze,
pod nazevem "Registration key crackers". Pokud nechces mit pripojene
newsy, lze pouzit WWW prohledavani (http://www.deja.com/home_ps.shtml).
Petr Vones, amatersky programator
TTimer v TThread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2000 23:32:51
From: "Oceanic" <oceanic(zv)azit(tec)cz>
> lidi�ky jak mam nastavit ci priradit ke TThread TTimer, tak aby se urcita
> operace provadena cyklicky v TThread.Play volane z TThread.Execute ???
Ahoj,
Tohle mi nepripada jako stastne reseni (navic neni ani tak jednoduche). Co
to treba resit tak, ze cekani provedes pomoci Sleep ci WaitForSingleObject
(aby bylo mozne thread ukoncit) s timeoutem v metode Execute.
Petr Vones, amatersky programator
Tray Icon v horni liste
[*] Gadourek <gadourek(zv)centrum(tec)cz> - 4.6.2000 23:39:02
Ahoj,
ja pouzivam komponentu WidGet. Nejspise jsem ji stahl z
http://home.sprynet.com/sprynet/rrm
kdyz tak hledej WidGets.zip, nebo ti ji muzu poslat
Petr
gadourek(zv)centrum(tec)cz
| Zdravim,
|
| Nevite jak dostat (napr. v D5) ikonu na minimalizovani do traye na hroni
| listu programu
| vedle minimalizovani a maximalizovani a zavirani? Nektere programy maji
| jeste jednu ikonu
| prave na min. do tray takovou tecku v dolnim rohu. Dival jsem se do Object
| insp. je tam
| nastavovani BORDER ICONS ale tam jdou akorat vypnou,zapnout min,max,clos tot
| vse.
| ALE JAK TAM PRIDAT IKONU???
|
|
| ....... s pozdravem Ivomir
| --------------------------------------------------
| EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
| WWW: http://www.iwebs(tec)cz ICQ: 28872917
|
|
|
|Maximalizace okna
[*] Hurricane <hurricane(zv)email(tec)cz> - 4.6.2000 23:48:12
Zdravim
To m�lo bejt pro jiny programy, nez pro ten ze kteryho se to vola? Sorry, to
mi uniklo, musi se pouzit jiz zmineny postup s handlema, taky to funguje.
Hurricane
----- Original Message -----
Tady ale byl dotaz, jak tohle udelat u jakekoliv bezici aplikace. Timhle
zpusobem, co pises, to udelas jen
ve sve aplikaci.
S timhle napr. u maximnalizace okna PhotoShopu, Wordu a pod. nepochodis....
Dodo
Presmerovanie focusu.
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 04.6.2000 23:50:44
Je to takovy divny reseni, ale co kdybys formu poslal klavesu
tabelator - neco jako SendKeys (tabel�tor) - syntaxi presne
neznam.
Dodo
______________________________________________________________
> Od: "Roland Tur�an \(RoTurSoft\)" <rotursoft(zv)nextra.sk>
> Komu: "Delphi CZ konferencia" <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Sun, 4 Jun 2000 20:55:57 +0200
> P�edm�t: Presmerovanie focusu.
>
> Zdravim.
>
> Ako presuniem focus na dalsiu viditelnu komponentu v poradi
TabOrder, lebo
> "Perform(WM_NEXTDLGCTL,0,0);" mi posiela focus na dalsi object
ktory nie je
> viditelny. Objavi sa hlasenie "Cannot focus a disabled or
invisible
> window.".
>
> Riesenie DalsiaKomponenta.SetFocus nie je schodna, lebo by som
musel
> testovat ci aj ta komponenta kam by mal ist focus je visible.
>
>
> Dakujem.
>
>
> Roland.
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Bezpecnost programov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2000 00:39:24
From: "Hurricane" <hurricane(zv)email(tec)cz>
> Mrkni se naASPPack nebo podonbny pakovac EXEacu, ten ti totiz znemozni
> dekompilovani a zjisteni vitrnich resources (ResourceExplorerem z Delph)
Ahoj,
pred timto (a podobnymi programy) bych chtel varovat. Nejen ze by jsi pak
musel uzivatelum pridat nusi pameti, protoze ve svem vysledku pak aplikace
bude zabirat daleko vice pameti, ale vznikaji tak i jine problemy. Jeden z
clanku je tady (http://www.jordanr.dhs.org/striprlc.htm)
Petr Vones, amatersky programator
Bezpecnost programov
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 5.6.2000 01:46:16
Na ASPack bych moc nesazel - da se strasne lehce dekomprimovat.
Pokud by si chtel vyuzit komprese exe souboru (je to docela slusna ochrana
bez namahy) tak ti muzu poslat UPX (homepage neznam) - k nemu pokud vim
zadny dekompresor neexistuje, navic komprimovany program nepotrebuje zadnou
pamet navic jak psal Petr Vones (alespon na mem pocitaci a na my pokusny 486
s 8MB RAM se take nezdalo, ze by program chtel vice pameti).
A taky umi komprimovat i EXE soubory pro DOS, Linuxovske soubory a dalsi
Jedine minus je, ze se program startuje dele, protoze se musi rozbalovat,
ale to je obecny problem komprese EXE souboru.
Zdravi
Petr Jelinek - amatersky programator
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Hurricane <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, June 04, 2000 8:54 PM
Subject: Re: Bezpecnost programov
> Zdravim
>
> Mrkni se naASPPack nebo podonbny pakovac EXEacu, ten ti totiz znemozni
> dekompilovani a zjisteni vitrnich resources (ResourceExplorerem z Delph)
>
> Hurricane
> ----- Original Message -----
>
> Rad by som otvoril diskusiu na temu 'Bezpecnost programov' (resp.
> 'Ochrana proti crackovaniu'). Ak ma niekto dobre napady, ako ochranit
> programy pred crackermi, velmi rad by som sa dozvedel viac informacii z
> tejto oblasti.
>
>
Styly v Excelu
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 5.6.2000 01:50:02
Potrebuji dostat nejka data do Excelu, pres Dlephi 5, a rad bych jim zrovna zmenil i fonty, ovsem podle Stylu, nebot pak je jednodussi jejich uprava. Vyuzivam k tomu komponentu TExcelApplication. Problem je v tom, ze mi nejde pridat novy styl. Pokousim se o to pres funkci ExcelApplication1.ActiveWorkbook.Styles.Add(Name: Widestring; BasedOn: OleVariant); Vstupni parametry podle me jsou jmeno noveho stylu a jmeno nebo index stylu, na nemz chci ten novy zalozit. Ovsem at zadam cokoli, vzdy mi to ohlasi chybu. Nevite proc, pripadne jakym jinym zpusobem bych na to mel jit? Uvital bych i radu, jak lepe zalozit v Excelu novy sesit, nez nize uvedenym vytvorenim souboru.
procedure TForm1.Button1Click(Sender: TObject);
const
Soub = 'C:\test.xls';
var
f: textfile;
begin
if not FileExists(Soub) then
begin
AssignFile(f, Soub);
Rewrite(f);
CloseFile(f);
end;
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := true;
ExcelApplication1.Workbooks.Add(Soub, 0);
ExcelApplication1.ActiveWorkbook.Activate(0);
ExcelApplication1.Range['F22', 'E25'].Select;
ExcelApplication1.ActiveCell.NumberFormat := '(zv)';
ExcelApplication1.ActiveWorkbook.Styles.Add('MujStyl', 'normalni'); <--- CHYBA
ExcelApplication1.ActiveWorkbook.Styles.Item['MujStyl'].Font.Bold := true;
ExcelApplication1.Save(Soub, 0);
ExcelApplication1.Disconnect;
end;
MIKMIK company
Petr Voborn�k - P�tr
vobornik(zv)ssakhk(tec)cz
ICQ: #23132120
www.ssakhk(tec)cz/home/vobornik/Posta
[*] Surfman <surfman(zv)volny(tec)cz> - 5.6.2000 02:41:42
Ahoj,
nevite nekdo jak vyvolat mailovyho klienta z delphi a donutit ho vytvorit
novou zpravu
a dat do adresata adresu? A to samozrejme nevim, jakyho klienta ma user
nainstalovanyho.
Diky moc
Pavel