Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] Ren� Otisk - 5.6.2000 07:37:12
Hi,> On 2 Jun 2000, at 8:13, David Lebeda wrote:
>
> > 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,
>
> Muj pripad je takovy, ze by to meli instalovat i delareri. Jejich
> dukladne zaskoleni je samozrejme na dlouhe lokty a penize,
> nektere to muze i otravit. Dalsi vec je ta, ze pri stavajicim stavu
> nelze sirit demoverze, protoze uzivateli to zhavaruje a odradi ho to.
>
> > viz jine maily v posledni dobe) vidim v tomto:
> > - potreba nekolika restartu behem instalace (DCOM, MDAC,
> > MSDE).
>
> S tim my nic nenadelame, to jsou hold mikrosofti instalatory. Ale
> nemel by byt problem napriklad po restartu znovu nahodit vlastni
> instalak, dokud se nenainstaluje finalni program.
DCOM i MDAC lze spustit v modu, kdy se nemusi restartovat po skunceni
instalace, nicmene MDAC vyzaduje DCOM a MSDE resp. MS SQL vyzaduje MDAC. Ale
prece existuje nejaka tajna finticka Microsoftu, protoze kdyz jsem si na
ciste W95 A instaloval MS SQL, tak mi tam nabusil jak DCOM tak MSDE a bez
prislusnych restartu... Probehl jen zaverecny restart...
>
> > - instalace MSDE nepobezi bez IE alespon verze 4, pokud se
> > nepletu.
>
> Tak, tak.
>
> > - 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.
>
> To take zatim nevim, ale treba nekdo ano a prozradi nam to? :-)
>
> > 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):
>
> Otestuji, a pokud se osvedci, zahrnu to do celeho kodu, ktery opet
> zverejnim
>
Sroub
ClientSocket a Error 11001
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 5.6.2000 08:09:50
> 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
Komunikace via TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.6.2000 08:17:18
Ne ze bych se chtel vnucovat, ale nemel-li bych problemy s jinymi
TCP/IP komponentami, nenapsal bych si vlastni -> Synapsi. (viz
podpis)
> 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
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
Probl�m s TCP/IP
[*] Ond�ej �t�rba - 5.6.2000 08:32:38
Nazdar lidi,
mam docela velky problem s jednou sitovou aplikaci. Mam dva pocitace v
lokalni siti a chci, aby jeden pocitac sbiral data z jakychsi senzoru
(radove 50 bajtu) a poslal je pres sit. Problem je v tom, ze ta data nutne
potrebuju posilat synchronne, treba 50 krat za sekundu. Zatim to delam
pomoci komponent TClientSocket a TServerSocket s pomoci funkci SendBuf a
ReceiveBuf (v D4 Prof), viz dole. Problemem je to, ze Windows na to pouziva
cache, takze ve vysledku mi chodi data jenom 5x za sekundu. Nejhorsi je, ze
ja poslu treba 10 balicku dat, ale na druhy komp mi prijde jen jeden o
desetinasobne delce. Navic se mi do toho mota nejaky timeout, ktery je nekde
nastaveny na 200ms (proto to chodi jenom 5x za sekundu a je jedno jestli
posilam 50 nebo 5000 bajtu).
Predem diky za namety.
Ondrej Sterba
procedure MNetworkC.ReceiveData(Sender: TObject;Socket: TCustomWinSocket);
var l1:longint;
ss:string;
begin
l1:=Socket.ReceiveLength;
Socket.ReceiveBuf(dat,sizeof (dat));
ss:=floattostr(dat[1]);
GetData(ss);
end;
procedure MNetworkC.SendData(data:string);
var d:double;
begin
d:=MMath.Mstrtofloat(data);
dat[1]:=d;
if IsServer then begin
ServerSocket.Socket.Connections[0].SendBuf(dat,sizeof (dat));
end;
if IsClient then begin
ClientSocket.Socket.SendBuf(dat,sizeof (dat));
end;
end;
Sdileni slozek pod Win 2000
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 5.6.2000 08:34:33
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Sdilet slozky pod Windows 9x uz umim, ale pod Win 2000 mi diky teto procedure nejde program ani spustit. Jakym zpusobem mam tedy sdilet slozky ve Windovs 2000 pripadne ve Windovs NT.
uses SvrApi95;
procedure Nasdilej(Adresar, Nazev, Heslo: string; Zapisovat: boolean);
var
ShareInfo: Tshare info 50;
CompName: array[0..MAX COMPUTERNAME LENGTH] of Char;
FComputerName: string;
L: DWORD;
begin
ZeroMemory((zv)ShareInfo, Sizeof(ShareInfo));
with ShareInfo do
begin
StrPCopy(shi50 netname, Trim(Nazev)); // n�zev sd�len� slo�ky
shi50 type := 0; // 0 = adresar, 1 = tiskarna ...
if not Zapisovat then
shi50 flags := shi50 flags or SHI50F RDONLY
else
shi50 flags := shi50 flags or SHI50F FULL;
shi50 flags := shi50 flags or SHI50F PERSIST;
shi50 remark := PChar(KomentNet); // koment�� u sd�len� slo�ky
shi50 path := PChar(Adresar); // adresar
StrPCopy(shi50 ro password, Heslo); // heslo pouze pro cteni
StrPCopy(shi50 rw password, Heslo); // heslo pro zapis
end;
L := Sizeof(CompName);
Win32Check(GetComputerName((zv)CompName, L));
FComputerName := CompName;
NetShareDel(PChar(AddDveLomena(FComputerName)), ShareInfo.shi50 netname, 0);
NetShareAdd(PChar(AddDveLomena(FComputerName)), 50, (zv)ShareInfo, Sizeof(ShareInfo));
end;
vobornik(zv)ssakhk(tec)cz
Rychlost InterBase
[*] Lu�ek Tenkr�t - 5.6.2000 08:39:21
Mam jeden dodaz k rychlosti InterBase. V databazi mam proceduru, ktera
provadi vypocet stavu konta lidi - trva cca 5 sec. Staci ale provest backup,
pak restore a ta sama procedura na stejnem pocitaci trva 1 minutu. Jde o IB
5.6 na 6 beta se to chovalo stejne.
A druhy problem:
V procedure mam SELECT ...... INTO :PARAMETR. Select ale vraci zaznamu vice
a konci to chybou (nelze pouzit WHERE - neznam presne podminku aby se vratil
jeden zaznam). Ma SELECT nejaky parametr aby vratil pouze jeden zaznam?
Diky
Honza Seifert
OT: C syntax
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 5.6.2000 09:11:28
Tak jsem si vzpomnel, ze jsem kdysi na prednasce o jazyce C slysel
cosi o tzv. "trichars", ktere slouzi pro zadani nekterych znaku
na terminalech, kde tyto znaky nelze zadat....
Tak jsem nechal ten kousek zdrojaku probehnout preprocesorem
(ve VC++ je to cl.exe /P u borlandu na to je samostatny exe,
ale ponevadz ted nenam borlandi C, tak nevim jake)
A hle vypadlo toto: (to uz je o neco citelnejsi ze (:-) 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;
s pozdravem Otakar Milink
> /* 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;
>
> Probl�m s TCP/IP
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 5.6.2000 09:12:23
Problem, ktery zde popisujes je tzv. Nagle algoritmus.
V podstate je to takovy chytrolin, ktery omezuje traffic jam na
TCP/IP. Rekneme, ze posilas 20b co 100 ms. Funguje tak,
ze prijme 20b, pocka nejaky interval a pokud do te doby nedojde
nic dalsiho, tak je odesle po siti. Pokud ale neco prijde, pocka,
data spoji k sobe a ceka jeste chvilku. Tak se stane, ze se data
spojuji a tim minimalizuje rezie site. Velikost do jake balickuje
je MTU. Tento algoritmus se da na strane Windows potlacit.
Martin
> (radove 50 bajtu) a poslal je pres sit. Problem je v tom, ze ta data nutne
> potrebuju posilat synchronne, treba 50 krat za sekundu. Zatim to delam
> ReceiveBuf (v D4 Prof), viz dole. Problemem je to, ze Windows na to
pouziva
> cache, takze ve vysledku mi chodi data jenom 5x za sekundu. Nejhorsi je,
ze
> ja poslu treba 10 balicku dat, ale na druhy komp mi prijde jen jeden o
> desetinasobne delce. Navic se mi do toho mota nejaky timeout, ktery je
nekde
> nastaveny na 200ms (proto to chodi jenom 5x za sekundu a je jedno jestli
> posilam 50 nebo 5000 bajtu).
TDBGraf, TGraf
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 5.6.2000 09:17:06
Chtel bych se zeptat jak se da vyvolat v programu 'Print Preview' nebo 'Edit
Chart' volby,
ktere jsou dostupne v dobe navrhu pres Popup menu komponenty. Pripadne zda
nevite
o nejake jine "Graf" komponente.
Petr
Paradox - dik
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 5.6.2000 09:47:32
Ja bych se tomu take nebranil, ale znate to - vedeni firmy se brani co muze.
Jedna se o to, ze ja nemuzu vyvijet aplikaci 3/4 roku, protoze to neni
jedina aplikace. Mam ted na starost cca 10 aplikaci a nektere jsou skutecne
dost analyticky a metodicky rozsahle a narocne a podlehaji legislativnim
zmenam, takze bych musel prechazet z Delphi zpet do Paradoxu atd...
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: Friday, June 02, 2000 6:52 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Paradox - dik
>
>
> 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
Zav�en� Internet exploreru
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 5.6.2000 09:52:37
Ale muzes si zjistit class okna, ktere IE pouziva a tak muzes ve FindWindow
pouzit to...
Milan Tomes
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of korin
Sent: Sunday, June 03, 2001 4:06 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Zav�en� Internet exploreru
Ahoj, mohli byste mi poradit, jak vypnout Internet Explorer, kdy� m�m jen
handle programu? Na toto nem��u pou��t postm
essage(findwindow(xxx),wm_close,0,0) proto�e nezn�m jeho caption.Posta
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 5.6.2000 10:01:33
ShellExecute("mailto:Emailova_Adresa") Asi to nebude uplne presne, ale
podivej se do helpu na ShellExecute.
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Surfman
> Sent: Monday, June 05, 2000 2:42 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Posta
>
>
> 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
Paradox - ztraceni zaznamu
[*] Martin Lasevie <vyvoj(zv)atlascon(tec)cz> - 5.6.2000 10:06:54
Zkus taky Metodu TTable.FlushBuffers;
Martin
Pekny den a pilotum stastne pristani ...
============================
ML Software - Martin Lasevie
Budovatelska 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
OK2 CLM
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
Ahoj dej do Table1.AfterPost tento kod dbisavechanges(table1.handle);
Vlada
> Vazeni pratele,
>
> mam na Vas prosbu tykajici se Paradoxu. Rekneme, ze mam table1 a
DBNaviator,
> pripojeny pres DataSource k table1. Vse je zobrazeno v DBGridu. Poradte
mi
> prosim, jak lze udelat, aby kdyz vlozim novy zaznam a stisknu Post, a
potom
> treba po minute resetuji pocitac, aby mi zaznamy nezmizely. Neco jako aby
> se to ulozilo na disk ? Je to asi neco jednoducheho, ale ja opravdu
netusim,
> jak to zaridit. Mockrat dekuji.
>
> Premysl Neuman
>
> W NT 4.0 + D5prof.
>Zjisteni otevrenych souboru
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 5.6.2000 09:07:58
> Date: Sun, 04 Jun 2000 23:05:55 +0200
> From: "Daniel Resler" <daniel(zv)atcgroup(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Subject: Re: Zjisteni otevrenych souboru
> Reply-to: delphi-l(zv)fwd(tec)cz
> > 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
>
>
Nevim, ale ja tam zadnou adresu nemel napsanou, takze nevim kam bych
se mohl mrknout. Mohl by jsi tu odpoved napsat jeste jednou i s tou
adresou?
Dekuji.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Nacteni dialogu z library
[*] Ren� Otisk - 5.6.2000 10:08:53
Hi,
D3, MS SQL, ODBCe
Mam v DLL-ku ciselniky me aplikace. Lec kdyz je zavolam a zobrazi se (Show modal), tak se mi nezobrazi jako soucast te volajici aplikace, ale mimo (kdyz kliknu na liste na volajici aplikaci, tak mi to uspesne prekryje ten modalni dialog). Japato to udelat, aby se to to bylo v ramci jednoho procesu?
Dekuji
Sroub
InstallShield Express
[*] Martin Lasevie <vyvoj(zv)atlascon(tec)cz> - 5.6.2000 10:13:33
Obrat se na Sineu ( http://www.sinea(tec)cz). Ti maji pocestene DLL a jdou i na ISX s D5.
Martin
Pekny den a pilotum stastne pristani ...
============================
ML Software - Martin Lasevie
Budovatelska 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
OK2 CLM
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
-----Puvodni zprava-----
Od: WEB ATLAS - SUKY [SMTP:suky(zv)atlas(tec)cz]
Odeslano: 2. eervna 2000 18:08
Komu: DELPHI - Konference
Poedmit: InstallShield Express
Ahoj,
Netusite nekdo jak pocestit instalaci vytvorenou programem InstallShield
Express v baleni Delphi 5 ?
Michal Soukup
<<Soubor: B.online s.r.o..vcf>>
Prehravac akci
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 05.6.2000 10:17:12
Ahoj lidi!
Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
Tutorial, ktery ukaze jak se ma s prislusnou aplikaci pracovat. Je mozne
napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
jinou aplikaci? Vyvola nabidku, vyplni editacni pole, stiskne tlacitko
OK atd. Nic takoveho jsem zatim nikde nevidel.
Dik predem za kazdou radu. Jirka
Probl�m s TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.6.2000 10:34:13
Nevim jak konkretne funguje NAGLE u Windows,ale vim docela
presne, jak funguje na routerech CISCO.
predne pro vysvetlenou... TCP protokol obecne funguje tak,z e
osles nejaky datvy paket a ten jakmile adresat uspesne prijme,
osle nazpet zvlasni malinky packet ACK, kterym potvrdi prijem.
A na Ciscu NAGLE funguje tak, ze posle-li jeden packet
adresatovi, pozdrzi posilani dalsich packetu do doby, dokud mu
neprijde potvrzeni o prijeti toho prvniho packetu. Az tehdy posle
jako dalsi packet vsechna dosud nahromadena data k odeslani.. a
tak porad dokolecka.
Tedy zadne cekani na intervaly, ci neco podobneho.. jen cekani na
potvrzeni prijmu paketu.
Nicmene puvodni problem muze byt zpusobeny i necim zcela
jinym. Ono spojeni vice packetu do jednoho nemusi vubec dojit na
prenosove ceste, ale treba az na cilovem pocitaci. Uvedomme si,
ze kdyz prijdou nejake data, a my je nestihneme precist, tak se
hrimadi v bufferu winsocku a pri cteni se prectou vsechny data,
ktere se nahromadily ke cteni.
A kdyz si k tomu vezmeme v potas multitasking windowsu
(prepinani mezi ulohama je radove 20ms, nekdy klidne i vic), muze
se stat,z e klidne vase aplikace se nedostane ke cteni ze socketu
drive, nez treba az za 100ms.. a za tu dobu uz stacilo pribehout
nekolik datovych paketu, ktere pak precteme najednou.
> Problem, ktery zde popisujes je tzv. Nagle algoritmus.
>
> V podstate je to takovy chytrolin, ktery omezuje traffic jam na
> TCP/IP. Rekneme, ze posilas 20b co 100 ms. Funguje tak,
> ze prijme 20b, pocka nejaky interval a pokud do te doby nedojde
> nic dalsiho, tak je odesle po siti. Pokud ale neco prijde, pocka, data
> spoji k sobe a ceka jeste chvilku. Tak se stane, ze se data spojuji a
> tim minimalizuje rezie site. Velikost do jake balickuje je MTU. Tento
> algoritmus se da na strane Windows potlacit.
>
> Martin
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
Sledovani otevrenych souboru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.6.2000 10:36:09
>K sledovani otevrenych souboru, zapomel jsem adresu a tady je ...
>
>http://www.sysinternals.com/
V jednom projektu pouzivam jako pojistku dve procedury, ktere primitivni
(lec praxi proverenou) metodou zjisti, zda program pred ukoncemim zavrel
vsechny soubory a sockety. Obe procedury vyuzivaji toho, ze ocekavaji ze
hodnoty handle na otevrene soubory jsou relativne mala cisla z rozsahu 0 az
neco. Takze v cyklu proleti zmineny rozsah a pouziji na testovanou hodnotu
handle nejakou neskodnou prihodnou funkci. Podle navratoveho kodu funkce se
urci, zda handle je otevren nebo neni. Takze je mozne pripadne zarvat, ze
doslo k nejakym problemum (nezavreny handle).
Bohuzel tento postup odchytavanych handlu je pomerne narocny na cas. Proto
je treba nastavit rozumny strop pro nejvyssi hodnotu handle. Lze take s
vyhodou vyuzit toho, ze kazdy handle me hodnotu delitelnou 4.
U socketu lze takto detekovat i typ atd.
Zdravi
D. Toman
Nacteni dialogu z library
[*] Bc. Libor Filip <filip(zv)agrokonzulta(tec)cz> - 5.6.2000 10:41:26
Musis do DLL predat z EXE Application.Handle a nastavit v DLL Application.Handle na ten handle z EXE
-----P�vodn� zpr�va-----
Od: Ren� Otisk [SMTP:otisk(zv)misel(tec)cz]
Odesl�no: 5. �ervna 2000 10:09
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Nacteni dialogu z library
Hi,
D3, MS SQL, ODBCe
Mam v DLL-ku ciselniky me aplikace. Lec kdyz je zavolam a zobrazi se (Show modal), tak se mi nezobrazi jako soucast te volajici aplikace, ale mimo (kdyz kliknu na liste na volajici aplikaci, tak mi to uspesne prekryje ten modalni dialog). Japato to udelat, aby se to to bylo v ramci jednoho procesu?
Dekuji
Sroub
<<Soubor: ATT00011.htm>>
Probl�m s TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.6.2000 10:42:37
> Nazdar lidi,
>mam docela velky problem s jednou sitovou aplikaci. Mam dva pocitace v
>lokalni siti a chci, aby jeden pocitac sbiral data z jakychsi senzoru
>(radove 50 bajtu) a poslal je pres sit. Problem je v tom, ze ta data nutne
>potrebuju posilat synchronne, treba 50 krat za sekundu. Zatim to delam
>pomoci komponent TClientSocket a TServerSocket s pomoci funkci SendBuf a
>ReceiveBuf (v D4 Prof), viz dole. Problemem je to, ze Windows na to pouziva
>cache, takze ve vysledku mi chodi data jenom 5x za sekundu. Nejhorsi je, ze
>ja poslu treba 10 balicku dat, ale na druhy komp mi prijde jen jeden o
>desetinasobne delce.
Zrejme pouzivas TCP stream komunikaci. Tam ke zvyseni efektivnosti muze
dochazet k slepovani malych bloku do velkych. Size lze tuto vlastnost
potlacit vypnutim Nagle algoritmu ale jde-li opravdu o cas pouzil bych UDP
sockety. U nich neni zadna systemova rezie, protoze jde o prenos s
nezarucenym dorucenim. Co odesles to se posle, ale zda to prislo skutecne
tam kam melo si musis zajistit sam (je-li to treba).
> Navic se mi do toho mota nejaky timeout, ktery je nekde
>nastaveny na 200ms (proto to chodi jenom 5x za sekundu a je jedno jestli
>posilam 50 nebo 5000 bajtu).
Podivej se do napovedy k SetSockOpt() - TCP_NODELAY
D. Toman
Zjisteni otevrenych souboru
[*] Karel Kral <kral(zv)purus(tec)cz> - 05.6.2000 10:45:05
Pouz�vam www.sysinternals.com, program se jmenuje OpenList. Tez
doporucuji vyborny RegMon pro monitorovani zapisu a cteni z registru
(tamtez).
Jan Kirchner wrote:
>
> 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
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
TDBGraf, TGraf
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 5.6.2000 10:49:26
> Chtel bych se zeptat jak se da vyvolat v programu 'Print Preview' nebo
'Edit
> Chart' volby,
> ktere jsou dostupne v dobe navrhu pres Popup menu komponenty. Pripadne zda
> nevite
> o nejake jine "Graf" komponente.
> Petr
Pouzivam TChart (TeeChart) a jsem moooc spokojeny.
Ten ma taky Preview a Edit. Pro zpristupneni techto moznosti uzivateli lze
prepsat zdrojove *.dfm na ceske, pripadne si udelat vlastni interface.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* private : cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
QR 3.0.6.
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 5.6.2000 10:56:25
Zdravim.
Chtel bych se zeptat, zda jeste nekdo nema update na QuickReport 3.0.6. Na
QuSoftu uz je 3.0.7., ale ja potrebuju 3.0.6., abych mohl vyzkouset demo
QRDesign.
Prosim, poslete mi to pripadne na adresu dole.
Diky.
Martin.
==============================================================
= Ing. Martin Kuska - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 710545 =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================Prehravac akci
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 5.6.2000 11:09:30
> Ahoj lidi!
> Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
> Tutorial, ktery ukaze jak se ma s prislusnou aplikaci pracovat. Je mozne
> napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
> jinou aplikaci? Vyvola nabidku, vyplni editacni pole, stiskne tlacitko
> OK atd. Nic takoveho jsem zatim nikde nevidel.
> Dik predem za kazdou radu. Jirka
Rozhodne by to mel zvladnout AutoIt
Pouzival jsem asi starsi verzi ale uz tenkrat to bylo vymakany -
napises proste jednoduchy script v jeho jazyce (podpora mysi,
klavesnice, oken...) a pak to spustis...
Ted to ma snad i nejakej prevodnik do exace, ale tim si nejsem jisty
http://www.hiddensoft.com/AutoIt/
Petr
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]TThread a TTimer
[*] Oceanic <oceanic(zv)azit(tec)cz> - 5.6.2000 11:09:32
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
Komunikace via TCP/IP
[*] Ond�ej �t�rba - 5.6.2000 11:13:53
[P��loha v souboru: Chat.zip]
Presne na to je v Delphi 4 Prof. priklad. Najdes ho v adresari \Program
Files\Borland\Delphi4\Demos\Internet\Chat\.
Zdravi
Ondrej Sterba
----- 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
>
Rimska cisla
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 5.6.2000 11:32:49
Prijemny den,
D4 Standard, W95 OSR2.
Delam takovy programek, ktery umi prevadet cisla do 100 000 na slovni
vyjadreni (neco jako na slozenkach). A k tomuto programku bych chtel jeste
doplnit funkci na prevod do a rimskych cisel. Dobry navod, i kdyz nefunkcni
byl pred casem v konferenci. Po drobne uprave ale funguje bezvedne. Problem
mam ale v syntaxi rimskych cisel. Nevi nekdo, kde vycist presna pravidla pro
zapis rimskych cisel. Nezda se mi totit aby napr 800 slo vyjadrit jednak
DCCC a zaroven CCM. Myslim, ze druha varianta neni spravne. Chtel bych tuto
funkci omezit pouze na spravny zapis rimskych cisel.
Jestli nekdo vite o pravidlech pro zapis rimskych cisel, dejte, prosim,
vedet.
Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
instalace BDE
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 5.6.2000 10:57:25
Zdravim a mam dotaz.
Vytvorili jsme aplikaci pouzivajici BDE, vse pod Delphi3. Instalaci
jsme provedli v InstallShieldu, kdy instalace BDE byla soucasti
instalace cele aplikace.
Nyni jsme upgradovali jednak z D3 na D5 (a diky tomu jsme museli
upgradovat i BDE), ale upgradujeme i nasi aplikaci pro zakazniky.
Musime jim tedy upgradovat i BDE a s tim se objevily problemy.
Prestoze obe instalace byly provedeny pres IS a da se tedy
predpokladat, ze si vse zapsal do registru, zahlasi to chybu ve
smyslu spatne verze BDE. NEda se to jeste osetrit nejak vlastnim
zasahem do registru resp. nemate nekdo konkretni zkusenosti s
preechdem na vysi verzi BDE?
Dekuji za namety.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Probl�m s TCP/IP
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 5.6.2000 12:06:27
No. Odsouhlasim cokoliv, jenom na multitasking windows .... bych to nesvadel
(byt by si to zaslouzil :-).
Zkousel jsem pomoci DelphiX udelat "co nejrychlejsi" vykecavani. Neslo o
mnozstvi dat ale o pocet malych bloku. (predpokladane vyuziti - hry :-)
Aplikace - pokud dostala zpravu, "okamzite" odpovidala. Propojil sem takhle
dve proti sobe. (mala domaci sit - cca 3PC na 10MBIT BNC, zadny router) a
pres IPX/SPX to udelalo asi 80 zprav za sec. a pres TPC/IP asi 5-6.
(datova cast paketu byla asi 0.5kB)
(kdyz sem proti sobe povesil 3 masiny, tak to udelalo vesele asi 300 zprav
za sec. ale po 20 sec. to shodilo vwindoze :-) ... holt to bylo blbe napsane
:-))))
Informace z predchozich mailu jsem zatim nevyzkousel, a jestli to pomoze,
budu jenom rad, protoze ne vsude (internet :-) se da IPX/SPX vyuzit ,,,,
(pro uplnost : win95/D4 - a byl zapojen Celeron 330 proti AMD 300 , takze
procesor to asi nezdrzoval a pameti bylo taky dost... jine aplikace
nebezely, zejmena po siti ne, nicmene kdyz 'sem pustil kopirovani "vetsich"
souboru, tcp/ip se nezpomalilo.... ipx uz jo.).
Martin
>-----P�vodn� zpr�va-----
>
>Nevim jak konkretne funguje NAGLE u Windows,ale vim docela
>presne, jak funguje na routerech CISCO.
>
>predne pro vysvetlenou... TCP protokol obecne funguje tak,z e
>osles nejaky datvy paket a ten jakmile adresat uspesne prijme,
>osle nazpet zvlasni malinky packet ACK, kterym potvrdi prijem.
>
>A na Ciscu NAGLE funguje tak, ze posle-li jeden packet
>adresatovi, pozdrzi posilani dalsich packetu do doby, dokud mu
>neprijde potvrzeni o prijeti toho prvniho packetu. Az tehdy posle
>jako dalsi packet vsechna dosud nahromadena data k odeslani.. a
>tak porad dokolecka.
>
>Tedy zadne cekani na intervaly, ci neco podobneho.. jen cekani na
>potvrzeni prijmu paketu.
>
>Nicmene puvodni problem muze byt zpusobeny i necim zcela
>jinym. Ono spojeni vice packetu do jednoho nemusi vubec dojit na
>prenosove ceste, ale treba az na cilovem pocitaci. Uvedomme si,
>ze kdyz prijdou nejake data, a my je nestihneme precist, tak se
>hrimadi v bufferu winsocku a pri cteni se prectou vsechny data,
>ktere se nahromadily ke cteni.
>
>A kdyz si k tomu vezmeme v potas multitasking windowsu
>(prepinani mezi ulohama je radove 20ms, nekdy klidne i vic), muze
>se stat,z e klidne vase aplikace se nedostane ke cteni ze socketu
>drive, nez treba az za 100ms.. a za tu dobu uz stacilo pribehout
>nekolik datovych paketu, ktere pak precteme najednou.
>
>> Problem, ktery zde popisujes je tzv. Nagle algoritmus.
>>
>> V podstate je to takovy chytrolin, ktery omezuje traffic jam na
>> TCP/IP. Rekneme, ze posilas 20b co 100 ms. Funguje tak,
>> ze prijme 20b, pocka nejaky interval a pokud do te doby nedojde
>> nic dalsiho, tak je odesle po siti. Pokud ale neco prijde, pocka, data
>> spoji k sobe a ceka jeste chvilku. Tak se stane, ze se data spojuji a
>> tim minimalizuje rezie site. Velikost do jake balickuje je MTU. Tento
>> algoritmus se da na strane Windows potlacit.Zav�en� Internet exploreru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.6.2000 12:12:54
Caption neni nutny, staci jen trida okna...
... FindWindow(PChar('IEFrame'), nil)
..ale psalo se tu o tom, ze pouzivat FindWindow
neni to prave orechove... (uz nevim proc :-)
D.> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of korin
>
> Ahoj, mohli byste mi poradit, jak vypnout Internet Explorer, kdy> � m�m jen
> handle programu? Na toto nem��u pou��t postm
> essage(findwindow(xxx),wm_close,0,0) proto�e nezn�m jeho caption.
> ClientSocket a Error 11001
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 5.6.2000 12:49:00
>> 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?
>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;
>
Problem je ve VCL (ScktComp.pas).
Konkretne v TCustomWinSocket a jeho metode CMLookupComplete.
Nepises jakou mas verzi D, tak nevim jestli muzes upravit tuhle metodu.
Ja si ji upravil tak, aby mi tato chyba vyvolala udalost OnError.
To co jsem doplnil je oznaceno {doplneno}
Nevim, jestli to vznika jen pri pripojovani. Pokud ne je eeConnect spatna
chyba.
procedure TCustomWinSocket.CMLookupComplete(var Message: TCMLookupComplete);
var
ErrorCode: Integer; {doplneno}
begin
if Message.LookupHandle = FLookupHandle then
begin
FLookupHandle := 0;
if Message.AsyncError <> 0 then
begin
Error(Self, eeConnect, ErrorCode); {doplneno}
Disconnect(FSocket);
if ErrorCode<>0 then {doplneno}
raise ESocketError.CreateResFmt((zv)sWindowsSocketError,
[SysErrorMessage(Message.AsyncError), Message.ASyncError, 'ASync
Lookup']);
end else {doplneno else}
if FLookupState = lsLookupAddress then
begin
FAddr.sin_addr.S_addr :=
Integer(Pointer(PHostEnt(FGetHostData).h_addr^)^);
ASyncInitSocket('', '', FService, FPort, FQueueSize, FClient);
end else if FLookupState = lsLookupService then
begin
FAddr.sin_port := PServEnt(FGetHostData).s_port;
FPort := 0;
FService := '';
ASyncInitSocket('', '', '', 0, FQueueSize, FClient);
end;
end;
end;Prehravac akci
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.6.2000 12:57:37
Ahoj,
AutoIt ma jednu (IMHO velkou) nevyhodu a to, ze neumi
prevadet mezi absolutnimy a "okenimy" souradnicemi.
Jinak je to vazne sikovny soft (BTW:ten prevodnik existuje;
a existuje i script-maker).
Ale zpet k tematu, na strance
http://www.cyamon.com/recorder.html
je zdrama ke stazeni Delphi objekt, pomoci nehoz
si muzes takovy prehravac sam naprogramovat.
Dobra.
> ----------
> Od: Petr Vaclavek[SMTP:bla(zv)atrey.karlin.mff.cuni(tec)cz]
>
> > Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
> > Tutorial, ktery ukaze jak se ma s prislusnou aplikaci pracovat. Je mozne
> > napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
> > jinou aplikaci? Vyvola nabidku, vyplni editacni pole, stiskne tlacitko
> > OK atd. Nic takoveho jsem zatim nikde nevidel.
>
> Rozhodne by to mel zvladnout AutoIt
> Pouzival jsem asi starsi verzi ale uz tenkrat to bylo vymakany -
> napises proste jednoduchy script v jeho jazyce (podpora mysi,
> klavesnice, oken...) a pak to spustis...
> Ted to ma snad i nejakej prevodnik do exace, ale tim si nejsem jisty
> COM Threading
[*] Ond�ej Male�ek - 5.6.2000 13:02:24
Vazeni,
mam dotaz tykajici se volani metod COM objektu. U out-of-process serveru se
mi nedari ovlivnit z jakeho vlakna budou obsluhovana volani jeho metod.
Laboroval jsem s parametrem ThreadingModel konstruktoru TComObjectFactory,
ale bez valneho vysledku => volani metod je obsluhovano vzdy z primarniho
vlakna serveru. Da se nejak ovlivnit, z jakeho (jineho nez primarniho
vlakna) budou volani provadena. Pripadny prikladek potesi.
Diky
:tento dotaz jsem jiz jednou posilal, ale mam pocit, ze nedoslo k jeho
zarazeni do konference.
Ond�ej Male�ek
Problemy s ref. integritou u Paradoxu
[*] Filip <delphi007(zv)angelfire(tec)com> - 05.6.2000 04:11:52 -0700
---
Filip, student
On Thu, 1 Jun 2000 08:57:54 Jaroslav Nadhera wrote:
>Ja bych si vybral MSDE.
>
>J. Nadhera
>
>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
>>
>>
>
>
Angelfire for your free web-based e-mail. http://www.angelfire.com
Rychlost InterBase
[*] VOTAVA Jan <Jan.Votava(zv)epe(tec)cz> - 5.6.2000 13:13:01
> -----Original Message-----
> From: Lu�ek Tenkr�t [mailto:tenkrat(zv)mvcr(tec)cz]
> Sent: Monday, June 05, 2000 8:39 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Rychlost InterBase
>
>
> Mam jeden dodaz k rychlosti InterBase. V databazi mam proceduru, ktera
> provadi vypocet stavu konta lidi - trva cca 5 sec. Staci ale
> provest backup,
> pak restore a ta sama procedura na stejnem pocitaci trva 1
> minutu. Jde o IB
> 5.6 na 6 beta se to chovalo stejne.
>
> A druhy problem:
> V procedure mam SELECT ...... INTO :PARAMETR. Select ale
> vraci zaznamu vice
> a konci to chybou (nelze pouzit WHERE - neznam presne
> podminku aby se vratil
> jeden zaznam). Ma SELECT nejaky parametr aby vratil pouze
> jeden zaznam?
SELECT TOP 1 .... ORDER BY ...
Vrac� prvn� (nebo ��dn�) z�znam.
honza
Rychlost InterBase
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 5.6.2000 13:13:28
A co pouzit Select distinct .... Ale pozor: pokud uvedete toto tak vrati pou
ze unikatni zaznamy a to v ramci vybiranych udaju. Takze pokud pouzijete Sel
ect distinct * from .... tak vam vrati vsechny zaznamy, ktere jsou alespon v
jednom udaji rozdilne.
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Lu�ek Tenkr�t
> Sent: Monday, June 05, 2000 8:39 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Rychlost InterBase
>
>
> Mam jeden dodaz k rychlosti InterBase. V databazi mam proceduru, ktera
> provadi vypocet stavu konta lidi - trva cca 5 sec. Staci ale
> provest backup,
> pak restore a ta sama procedura na stejnem pocitaci trva 1
> minutu. Jde o IB
> 5.6 na 6 beta se to chovalo stejne.
>
> A druhy problem:
> V procedure mam SELECT ...... INTO :PARAMETR. Select ale vraci
> zaznamu vice
> a konci to chybou (nelze pouzit WHERE - neznam presne podminku
> aby se vratil
> jeden zaznam). Ma SELECT nejaky parametr aby vratil pouze jeden zaznam?
>
> Diky
> Honza Seifert
>Rychlost Qreportu pri master/detail
[*] Filip <delphi007(zv)angelfire(tec)com> - 05.6.2000 04:16:25 -0700
Dobry den!
Mam takovy drobny rychlostni problem. Mam PDOX databazi na siti (jen 4 pocitace, 1 master(asi 1000 recordu) + 10 detail tabulek). Vse beha celkem rychle. Problem nastane kdyz chci tisknout nebo preview v QR. Nez nacte cely tisk tak to trva pres pul minuty. Pritom nevidim duvod proc by to melo trvat tak dlouho. Pri editaci, prohlizeni a dalsich vecech je to krasne rychle.
---
Filip, student
Angelfire for your free web-based e-mail. http://www.angelfire.com
HTTP komponenta (HTTPDemo) pro nektere adresy nefu
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 5.6.2000 13:43:13
No, sam jsem odhadoval, ze tam maji nejake skryte
presmerovani, cookies, kontrolu klienta z hlavicky
nebo jinou kulisarnu.
Zjistil jsem dalsim experimentovanim, ze podobne
se chova i treba http://www.idnes(tec)cz
a http://svet.namodro(tec)cz, jen hlaska je trochu jina:
-----
<html><head><title>Error</title></head><body>The system cannot find
the file specified. </body></html>
-----
To je proste &(zv)#^$�(zv)!!! ...ach, jo, zase uz je neco jinak!
### delphi konference napsal dne 2 Jun 00, v 8:46 :
> 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
FileName z Handlu
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 5.6.2000 13:45:46
Ahoj,
nevite prosim nekdo, jak lze ziskat jmeno souboru,
pokud znam jen Handle. Soubor je samozrejme otevreny.
API funkce GetFileInformationByHandle vraci vsechno
mozne, jen ne jmeno. Dik.
Martin Dupal
Rimska cisla
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.6.2000 13:52:20
Pred vyssim ciselm by se nemelo vyskytovat vice jak jedno nizzi, (jak jsi spravne napsal DCCC a ne CCM). Druhym pravidlem je , ze pred vyssim ciselm by melo byt nizsi pouze o jeden rad (nepouzivaji se 5-kove, jako jsou V, L,D), takze ne MIM jako 1999
Jan Fiala
----- Original Message -----
From: "Straka Josef" <strakaj(zv)hba(tec)czn(tec)cz>> Prijemny den,
> D4 Standard, W95 OSR2.
>
> Delam takovy programek, ktery umi prevadet cisla do 100 000 na slovni
> vyjadreni (neco jako na slozenkach). A k tomuto programku bych chtel jeste
> doplnit funkci na prevod do a rimskych cisel. Dobry navod, i kdyz nefunkcni
> byl pred casem v konferenci. Po drobne uprave ale funguje bezvedne. Problem
> mam ale v syntaxi rimskych cisel. Nevi nekdo, kde vycist presna pravidla pro
> zapis rimskych cisel. Nezda se mi totit aby napr 800 slo vyjadrit jednak
> DCCC a zaroven CCM. Myslim, ze druha varianta neni spravne. Chtel bych tuto
> funkci omezit pouze na spravny zapis rimskych cisel.
>
> Jestli nekdo vite o pravidlech pro zapis rimskych cisel, dejte, prosim,
> vedet.
>
> Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
> Zacinajici programator Straka Josef
> email: strakaj(zv)hba(tec)czn(tec)cz
> www: http://mujweb(tec)cz/www/strakaj/
>
>
>
>
>
> Zav�en� Internet exploreru
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 05.6.2000 13:55:11
FindWindow je totalne debilni fce, prtoze neumoznuje hledani okna
podle podretezce, ale jen podle retezce a tzn. ze pokud aplikace
meni caption napr. podle nazvu prave otevreneho souboru
nap�. "Microsoft Internet Exploder - Moje str�nka", ak kdyz das
hledat FindWindow "Microsoft Internet Exploder" tak to nenajde.
Ja jsem to sveho casu resit tak, ze jem si udelal fci, ktera ty
titulky oken prohledavala sama. Pouzival jsem tam API fci
EnumWindows a postupne jsem si sma kontrolovalk caption vracenych
oken.
Jde na to pouzit i komponenta - myslim TWindowList - nekde na
www.torry.ru.
Tak ti vraci seznam vsech okem a ty uz s nima muzes delat co
chces.
Dodo
______________________________________________________________
> Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> CC:
> Datum: Mon, 5 Jun 2000 12:12:54 +0200
> P�edm�t: RE: Zav�en� Internet exploreru
>
> Caption neni nutny, staci jen trida okna...
> ... FindWindow(PChar('IEFrame'), nil)
>
> ..ale psalo se tu o tom, ze pouzivat FindWindow
> neni to prave orechove... (uz nevim proc :-)
>
> D.
>
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
Behalf Of korin
> >
> > Ahoj, mohli byste mi poradit, jak vypnout Internet Explorer,
kdy> � m�m jen
> > handle programu? Na toto nem��u pou��t postm
> > essage(findwindow(xxx),wm_close,0,0) proto�e nezn�m jeho
caption.
> >
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Nacteni dialogu z library
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 5.6.2000 13:56:40
Predej te DLL knihovne handle te aplikace a pri volani Form1 = TForm.Create
() dej do zavorek ten handle. Dalsi moznosti (s tou jsem se setkal) je to, z
e mas neco zakompilovane pro pouziti s RunTime balickama a neco bez nich. To
je prave zdroj problemu. Ja jsem to tusim mel tak, ze jsem aplikaci mel s a
DLL knihovny bez a delalo se uplne to same jako u tebe...
Milan Tomes
P.S.: Rad bych vedel jak toto osetrit.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Ren
� Otisk
Sent: Monday, June 05, 2000 10:09 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Nacteni dialogu z library
Hi,
D3, MS SQL, ODBCe
Mam v DLL-ku ciselniky me aplikace. Lec kdyz je zavolam a zobrazi se (Show
modal), tak se mi nezobrazi jako soucast te volajici aplikace, ale mimo (kdy
z kliknu na liste na volajici aplikaci, tak mi to uspesne prekryje ten modal
ni dialog). Japato to udelat, aby se to to bylo v ramci jednoho procesu?
Dekuji
Sroub
Zm�na caption v fontdialogu
[*] Maly(zv)pds.pce.cdrail(tec)cz - 5.6.2000 14:17:27
Potreboval bych zmenit titulek okna v standardnim FONTDIALOGu.Jak na to ? D3
sp2.
Diky LM
potize s NMSMTP
[*] Zapl�k���ͪe�?�Y��̿ - 5.6.2000 14:30:43
Zdravicko .
D5 profi, W98
Mam nasledujici problem. V me aplikaci pouzivam komponentu NMSMTP ze zalozky FastNet pro odesilani e-mailu. Vsechno chodi celkem v pohode, ale:
1) po odeslani e-mailu spojeni porad drzi, i kdyz pouziji Disconnect. Jak tedy ukoncim spojeni?
2) v e-mailu prijateho od teto aplikace je spatne zobrazena diakritika, i kdyz jsem nastavil CharSet na evropsky. Jaky CharSet tedy pouzit20
3) font e-mailu nedodrzuje mezery. Vim ze je to fontem ktery pouziva, ale jak u takto odeslaneho e-mailu nastavit font treba Courier Now?
Predem dekuji za pripadne namety.
Zaplik
Zaplik(zv)volny(tec)cz
Problem pri pretypovani
[*] kinekus <kinekus(zv)nextra.sk> - 5.6.2000 15:01:48
Dobry,
Vopred dakujem za radu.
Pri pouziti prikazu FindNearest(nieco), ked nieco je obsah fieldu z inej
databazy vyupisuje konflikt typov ARRAY a string. Nejde mi to vsak
pretypovat. Ako mam ist na to ?
MAF.OT:interbase 6.0 Beta SS
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 5.6.2000 15:46:46
zdravim mate nekdo zkusenosti s IB 6.0 beta pro linux ? J ji ted testuju,
ale mam takovy problem. Pri nacitani dat pres ODBC (klient windows a ODBC
pro IB 5.6) mi to hlasi u nekterych tabulek tvrdohlave error in row. Nevim
proc, podle IB by mel tento driver fungovat normalne, pouze by nemel
podporovat nove datove typy V IB6 ty ale v tabulkach nemam. Nevi nekdo co s
tim, mozna delam nekde chybu ja.
dik
Rychlost InterBase
[*] Miroslav Hostinsk� <abcsoft(zv)rychnov(tec)cz> - 5.6.2000 16:06:12
Zdravim,
1. prvni problem by mohl byt zpusoben nepritomnosti vhodneho indexu, ktery
si interbase musi vytvorit sama. Doporucuji vyuzivat referencni integritu,
ktera sama vytvari potrebne indexy. Rychlost se pak muze nekolikanasobne
zvysit.
2. druhy problem resim podminkou na primarni klic nebo ve vasem pripade,
protoze TOP 1 nelze v interbasi pouzit (viz. help) volim SELECT MAX(neco)
FROM ... TO :neco
S pozdravem
Hostinsky Miroslav
mobil: 0603/507439
----- Original Message -----
From: Lu�ek Tenkr�t <tenkrat(zv)mvcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 05, 2000 8:39 AM
Subject: Rychlost InterBase
> Mam jeden dodaz k rychlosti InterBase. V databazi mam proceduru, ktera
> provadi vypocet stavu konta lidi - trva cca 5 sec. Staci ale provest
backup,
> pak restore a ta sama procedura na stejnem pocitaci trva 1 minutu. Jde o
IB
> 5.6 na 6 beta se to chovalo stejne.
>
> A druhy problem:
> V procedure mam SELECT ...... INTO :PARAMETR. Select ale vraci zaznamu
vice
> a konci to chybou (nelze pouzit WHERE - neznam presne podminku aby se
vratil
> jeden zaznam). Ma SELECT nejaky parametr aby vratil pouze jeden zaznam?
>
> Diky
> Honza Seifert
>
Blikajici kurzor mysi
[*] bures <bures(zv)ssakhk(tec)cz> - 5.6.2000 17:34:52
Ahoj, mam toakovy problemek, ve svoji aplikaci mam Image kterej se stale
prekresluje a kdys zmenim kurzor mysi na nejaky svuj kurzor, tak zacne nad
tim image blikat a kdys mam cursor crDefault tak ten neblika ....
Predem dekuji za odpoved Vlada
instalace BDE
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 05.6.2000 13:34:26 -0400
Cau
Na strance borlandu je primo update BDE staci ho stahnout a nainstalovat.
Ladap
>>> Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz 5.6.00 5:57 >>>
Zdravim a mam dotaz.
Vytvorili jsme aplikaci pouzivajici BDE, vse pod Delphi3. Instalaci
jsme provedli v InstallShieldu, kdy instalace BDE byla soucasti
instalace cele aplikace.
Nyni jsme upgradovali jednak z D3 na D5 (a diky tomu jsme museli
upgradovat i BDE), ale upgradujeme i nasi aplikaci pro zakazniky.
Musime jim tedy upgradovat i BDE a s tim se objevily problemy.
Prestoze obe instalace byly provedeny pres IS a da se tedy
predpokladat, ze si vse zapsal do registru, zahlasi to chybu ve
smyslu spatne verze BDE. NEda se to jeste osetrit nejak vlastnim
zasahem do registru resp. nemate nekdo konkretni zkusenosti s
preechdem na vysi verzi BDE?
Dekuji za namety.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Proxy
[*] nnfapso(zv)kios.sk - 6.6.2000 12:14:02
Ahoj,
Mohol by si mi prosim ta poslat zdrojak? alebo aspon nejake zakladne
info o programovani proxacov?
Diky moc
S pozdravom Miso nnfapso(zv)kios.sk
----- Original Message -----
Od: Lubos Dusanic <lubos(zv)iname.com>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 2. j�n 2000 14:48
Predmet: RE: Proxy
> 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 ...
> >
>
> ...
>Locate a loPartialKey
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.6.2000 12:58:13
Ahoj,
Narazil jsem na problem s Locate. Mam DBGrid opreny o query
(ODBCe) a snazim se implementovat to, aby se aktualni radek
nastavoval podle toho, co uzivatel zadava z klavesnice. Tj. po
stisku klavesy K to najede na prvni zaznam zacinajici pismenem K
(v prislusnem poli), po stisku R na prvni zaznam zacinajici KR atd.
Pouzivam Locate s loPartialKey. Na vhodnych datech to
funguje spravne, ale jsou pripady, kdy vznikne problem:
1) Necht v prislusnem sloupci jsou data (string):
4
41
415
Pak Locate s retezcem napr. '41' skoci jen na 4. Proste jakmile ma
vyhledavaci retezec jako prvni znak '4', ignoruji se vsechny dalsi
znaky. Jak se tedy postavit na napr. 41?
2) Jak dosahnout efektu podobneho FindNearest? Budou-li data
Karel
Kamil
Kevin
a vyhledavaci retezec 'Kb', jak se umistit na Kamil? Locate v tomto
pripade necha aktivni radek, tak jak byl predtim.
Dik,
David
OT: Mail server
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 6.6.2000 13:10:48
Ahoj,
omlouvam se OT, ale hledame nahradu MS Exchange pro nasi firmu. Pokud byste
nekdo mel tip (do 100 schranek, pod W$ nebo Linuxem), prosim dejte mi vedet.
Diky.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
FindNearest a polozka databazy.
[*] kinekus <kinekus(zv)nextra.sk> - 6.6.2000 13:18:18
Dobry den,
prosim o radu.
Potrebujem pouzit vyhladavaci mechanizmus v databaze FindNearest(kluc), kde
kluc je obsah fieldu indej databazy.
Ked pouzijem Table1.FindNearest(Table2kluc.value), tak mi to vypisuje
konflikt ARRAY so STRING-om.
Vie mi niekto poradit, co tu robim zle?
Som iba zaciatocnik. Dakujem za trpezlivost a ochotu.
Bezpecnost programov
[*] nnfapso(zv)kios.sk - 6.6.2000 13:29:00
Caute,
V prvom rade dakujem za vase prispevky. Neviem, ci niekto z vas uz skusil nieco cracknut, takze:
1) To, ze existuje nejaky komprimator exe suborov este neznamena, ze je vas program ochraneny. Aj ked ste este na internete nevideli dekompresor, tak vzdy to ide slaavnym programom od firmy NuMega: Softice. Je to asi najlepsi windowsacky debugger. Kedze kazdy spakovany subor sa najprv rozpakuje do pamate, a potom sa z nej spusta, Softice ho dokaze bezproblemov v pamati najst a potom uz len staci cracknut program v pamati. Takze tento sposob ochrani akurat tak pred zacinajucimi crackermi.
2) Nechapem, preco maju vsetky hry taku slabu ochranu pred cracknutim. Niekto sa narobi pri ich programovani a pritom vobec nemysli na ochranu svojho vytvoru.
3) Za registraciu niektorych programov si ich tvorcovia pytaju obrovske sumy a pritom castokrat staci prepisat jednu sestnastkovu hodnotu v subore. To je nuda.
4) Ak bude chciet niekto z vas robit dake trial verzie alebo cosi podobneho, nezabudajte tam doplnit pri kazdom spusteni programu kontrolu jeho velkosti. Nieze by sa to nedalo obist, ale aby vam to zasa necrackol hociaky zaciatocnik.
P. S.: Mal som skorej na mysli nejaku pokrocilejsiu ochranu pred crackermi.
----- Original Message -----
Od: nnfapso(zv)kios.sk
Komu: delphi konferencia
Odoslan�: 31. m�j 2000 12:38
Predmet: 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.ADO a klauzule IN v SQL
[*] Petr Sadovsk� <petr(zv)slunce(tec)cz> - 6.6.2000 13:37:46
Ahojte,
prosim o radu.Cely den se morim s jednim problemem.Pristupuji k tabulke
dBASE pres ADOz D5Entr. a mam takovyto SQL prikaz:
insert into 'tabulka1'
select * from 'tabulka2'
Celkem to funguje, ale jenom kdyz jsou obe tabulky v jednom adresari. V BDE
se napise 'c:\adresar1\tabulka1' a jede to .ODBC to nesce sezrat. :o(
Nasel jsem v helpu toto:
Fr�zi IN muzete pouz�t pro pripojen� soucasne pouze k jedn� extern�
datab�zi.
V nekter�ch pr�padech odkazuje parametr cesta na adres�r obsahuj�c�
datab�zov� soubory. Pokud napr�klad pracujete s datab�zov�mi tabulkami
syst�mu dBASE, FoxPro nebo Paradox, parametr cesta urcuje adres�r obsahuj�c�
soubory s pr�ponou .dbf nebo .db. N�zev souboru tabulky je odvozen z
parametru c�l nebo tabulkov� v�raz.
Pokud chcete urcit jinou datab�zi nez datab�zi Microsoft Jet, pripojte ke
jm�nu stredn�k (;) a uzavrete jej do jednoduch�ch (' ') nebo dvojit�ch (" ")
uvozovek. Napr�klad 'dBASE IV;' nebo "dBASE IV;" jsou pr�pustn� v�razy.
Pro urcen� extern� datab�ze muzete tak� pouz�t vyhrazen� slovo DATABASE.
N�sleduj�c� r�dky urcuj� stejnou tabulku:
... FROM Tabulka IN "" [dBASE IV; DATABASE=C:\DBASE\DATA\PRODEJ;];
... FROM Tabulka IN "C:\DBASE\DATA\PRODEJ" "dBASE IV;"..ale ani to se mi nepodarilo rozchodit.
Setkali jste se s timto nekdo?
Predem diky.
Petr Sadovsky
Locate a loPartialKey
[*] Lubo Fule <fule(zv)sct.sk> - 6.6.2000 14:00:44
> 1) Necht v prislusnem sloupci jsou data (string):
>
> 4
> 41
> 415
>
> Pak Locate s retezcem napr. '41' skoci jen na 4. Proste jakmile ma
> vyhledavaci retezec jako prvni znak '4', ignoruji se vsechny dalsi
> znaky. Jak se tedy postavit na napr. 41?
Prave som to skusal, funguje mi to tak ako ma. Mozno by pomohla ukazka kodu
a nastavenia TODBCQuery.
> 2) Jak dosahnout efektu podobneho FindNearest? Budou-li data
>
> Karel
> Kamil
> Kevin
>
> a vyhledavaci retezec 'Kb', jak se umistit na Kamil? Locate v tomto
> pripade necha aktivni radek, tak jak byl predtim.
Toto si musis oprogramovat rucne, napr. takto:
try
Query.DisableControls;
Query.BlockReadSize := 20; //zrychli prechod po riadkoch, ale "odstavi"
DB controls
while not Query.Eof do
begin
if AnsiCompareText(Query.FieldByName('Meno').AsString, 'Karel')>=0 then
break;
Query.Next;
end;
finally
Query.BlockReadSize := 0; //po skonceni treba vzdy nastavit na 0
Query.EnableControls;
end;
Toto urobi v podstate to co potrebujes, ale za predpokladu, ze prislusny
SELECT je utriedeny podla stlpca 'Meno'.
Prehravac akci
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 6.6.2000 14:09:21
> Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
> Tutorial, ktery ukaze jak se ma s prislusnou aplikaci pracovat. Je mozne
> napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
> jinou aplikaci? Vyvola nabidku, vyplni editacni pole, stiskne tlacitko
> OK atd. Nic takoveho jsem zatim nikde nevidel.
>
Cau!
Principialne by som to riesil takto:
Zistim handle pozadovanej aplikacie.
Potom posielam cez SendMessage alebo PostMessage potrebne spravy
aplikacii.
Spravy mysi som este nerobil, takze neviem.
Ale uz sa nieco podobne preberalo v konferencii, takze skus pozriet
v archive.
Priklad:
//zistim handle aplikacie
ghwnd = FindWindow("#32770","");
//poslem stlacenie klavesy Enter
PostMessage(ghwnd,WM_KEYDOWN ,VK_RETURN ,0);
PostMessage(ghwnd,WM_KEYUP ,VK_RETURN ,0);
/LH
TMenuEditor
[*] Honza <delphi(zv)mis-net(tec)cz> - 6.6.2000 14:18:08
Ahoj
Na popupu k popupu v designu je nahore polozka "Menu designer ..." a ja bych
potreboval pridat jeste jednu ktera by me defaultne nasypala do toho menu 4
itemy, ale pouze v designu.
Vubec ale netusim jak to provest, prosim help
............Honza
PS: Nasledujici jsem nasel v archivu a predelal k me potrebe, ale creator me
vzdy shodi Delphi - PROC ???
unit DemoComponent;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DB, DBTables;
type
TDemoComponent = class;
TDemoCollection = class(TCollection)
private
FDemoComponent: TDemoComponent;
protected
function GetOwner: TPersistent; override;
public
constructor Create(DemoComponent: TDemoComponent);
end;
TDemoComponent = class(TTable)
private
FItems: TDemoCollection;
FItemsTwo: TDemoCollection;
procedure SetItems(const Value: TDemoCollection);
procedure SetItemsTwo(const Value: TDemoCollection);
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Items: TDemoCollection read FItems write SetItems;
property ItemsTwo: TDemoCollection read FItemsTwo write SetItemsTwo;
end;
procedure Register;
implementation
uses
DsgnIntf, TypInfo;
type
TDemoComponentEditor = class(TComponentEditor)
private
FTableEditor: TComponentEditor;
procedure EnumPropEditors(Prop: TPropertyEditor);
public
constructor Create(AComponent: TComponent; ADesigner: IFormDesigner);
override;
destructor Destroy; override;
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
procedure Register;
begin
RegisterComponents('Samples', [TDemoComponent]);
RegisterComponentEditor(TDemoComponent, TDemoComponentEditor);
end;
{ TDemoCollection }
constructor TDemoCollection.Create(DemoComponent: TDemoComponent);
begin
inherited Create(TCollectionItem);
FDemoComponent := DemoComponent;
end;
function TDemoCollection.GetOwner: TPersistent;
begin
Result := FDemoComponent;
end;
{ TDemoComponent }
constructor TDemoComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FItems := TDemoCollection.Create(Self);
FItemsTwo := TDemoCollection.Create(Self);
end;
destructor TDemoComponent.Destroy;
begin
FItems.Free;
FItemsTwo.Free;
inherited Destroy;
end;
procedure TDemoComponent.SetItems(const Value: TDemoCollection);
begin
FItems.Assign(Value);
end;
procedure TDemoComponent.SetItemsTwo(const Value: TDemoCollection);
begin
FItemsTwo.Assign(Value);
end;
{ TDemoComponentEditor }
type
TDirtyComponentEditor = class(TInterfacedObject)
private
FComponent: TComponent;
end;
constructor TDemoComponentEditor.Create(AComponent: TComponent;
ADesigner: IFormDesigner);
var
C: TComponent;
begin
inherited Create(AComponent, ADesigner);
C := TTable.Create(nil); // !!!
try
FTableEditor := GetComponentEditor(C, Designer);
TDirtyComponentEditor(FTableEditor).FComponent := Component;
finally
C.Free;
end;
end;
destructor TDemoComponentEditor.Destroy;
begin
FTableEditor.Free;
inherited Destroy;
end;
procedure TDemoComponentEditor.EnumPropEditors(Prop: TPropertyEditor);
begin
if Prop.GetName = 'Items' then Prop.Edit;
end;
procedure TDemoComponentEditor.ExecuteVerb(Index: Integer);
var
CompList: TComponentList;
begin
if Index < FTableEditor.GetVerbCount then
FTableEditor.ExecuteVerb(Index)
else
begin
CompList := TComponentList.Create;
try
CompList.Add(Component);
GetComponentProperties(CompList, [tkClass], Designer,
EnumPropEditors);
finally
CompList.Free;
end;
end;
end;
function TDemoComponentEditor.GetVerb(Index: Integer): string;
begin
if Index < FTableEditor.GetVerbCount then
Result := FTableEditor.GetVerb(Index)
else
Result := 'Items editor';
end;
function TDemoComponentEditor.GetVerbCount: Integer;
begin
Result := FTableEditor.GetVerbCount + 1;
end;
end.Mail server
[*] Doller.Jozef(zv)zsr.sk - 6.6.2000 14:21:58
Napriklad toto
http://www.ice.hp.com/cyc/om/00/showfile.cgi?100-1458
Pod linuxom, do 50 u��vatelov zdarma, existuje ak�si driver pre Outlook
ktor� si potom mysl� ze komunikuje s Exchangeom
(nesk��al som, ale ohlasy od in�ch som mal pozit�vne)
> -----P�vodn� zpr�va-----
> Od: Foldyna Ji�� [SMTP:jiri.f(zv)avizo(tec)cz]
> Odesl�no: 6. j�n 2000 13:11
> Komu: Delphi konference
> P�edm�t: OT: Mail server
>
> Ahoj,
>
> omlouvam se OT, ale hledame nahradu MS Exchange pro nasi firmu. Pokud
> byste
> nekdo mel tip (do 100 schranek, pod W$ nebo Linuxem), prosim dejte mi
> vedet.
> Diky.
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
> Posta
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 6.6.2000 14:28:00
> ShellExecute("mailto:Emailova_Adresa") Asi to nebude uplne presne, ale
> podivej se do helpu na ShellExecute.
>
A je mozne takto (pomoci ShellExecute) poslat z meho programu do mailu i
predmet, text zpravy a popr. i pripojene soubory?
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
FindNearest a polozka databazy.
[*] stingp1.eti(zv)mail.cez(tec)cz - 6.6.2000 13:33:05
>Dobry den,
>
>prosim o radu.
>
>Potrebujem pouzit vyhladavaci mechanizmus v databaze FindNearest(kluc), kde
>kluc je obsah fieldu indej databazy.
>
>Ked pouzijem Table1.FindNearest(Table2kluc.value), tak mi to vypisuje
>konflikt ARRAY so STRING-om.
>
>Vie mi niekto poradit, co tu robim zle?
>
>Som iba zaciatocnik. Dakujem za trpezlivost a ochotu.
Pokud se v metode objevi jako parametr pole (cili array) hodnot,
pri pouziti metody se tento parametr predava v hranatych zavorkach,
cili, ve vasem pripade
Table1.FindNearest([Table2Kluc.Value]);
-----------------------------------------
Pavel Stingl
programator, analytik
CEZ a.s., Elektrarna Tisova
EMail : stingp1.eti(zv)mail.cez(tec)cz
-----------------------------------------
Nabidka prace
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 6.6.2000 14:36:22
Na pozici programatora hledame cloveka se zkusenosti programovani
databazovych aplikaci, aplikaci pro internet, serverovych i klientskych
komponent. Alespon zakladni znalost databazi a jazyka SQL. Znalost ActiveX,
COM, ISAPI, DCOM vitana. Orientace v HTML a problematice tvorby www aplikaci
vitana. Nabizena pozice je idealni pro programatora, kteremu vyhovuje
samostatna a ruznoroda prace na drobnych modulech a aplikacich mensiho
rozsahu vice nez tymova dlouhodoba prace na velkych projektech.
Hledame cloveka spolehliveho, s bezkonfliktnim vystupovanim, s aktivnim
pristupem k problemum, se schopnosti vybrat a obhajit zpusob reseni pro
danou zakazku a s chuti ucit se neustale nove veci ve svem oboru.
Nabizime zajimavou praci v mladem kolektivu v dynamicke firme, moznost
seberealizace a osobniho rozvoje, volnou pracovni dobu,
dobre platove ohodnoceni a specialni premie navic ve forme provizi z
prodaneho softwaru. Krome specialnich programu na zakazky totiz pracujeme na
dvou softwarech pro komercni prodej a to v oblastech, kde neni silna
konkurence.
Zajemci z Prahy, kteri mate zajem o tuto praci na hlavni pracovni pomer,
kontaktujte primo me na mem mailu nebo ICQ.
================================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
ICQ: 41879325
================================
Bezpecnost programov
[*] L. ZITA <konference(zv)sales(tec)cz> - 6.6.2000 14:38:28
Behalf Of Petr Jel�nek Konf
> 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
>
Ahoj.
V tom bych si Ti po sve zkusenosti troufal oponovat.
UPX take obcas pouzivam, ale dle meho nazoru je vhodny pouze pokud se jedna
o mene rozsahle projekty.
Konkretne se mi stalo, ze jsem potreboval poslat zakaznikovi mailem malinko
poupraveny exac rozsahlejsiho programu
(exe melo cca 3MB) a tak abych si usetril odeslilani jsem ho spakoval UPXem.
U mne doma bylo vse OK ale
zakaznika to velmi zlobilo. Tak jsem musel jet k nemu a tam jsem zjistil, ze
na jeho masine, kde toho jelo trochu vice
najednou (WinFax Pro, Office, a nejake snimani dat z tel. ustredny) a nemel
tolik pameti co ja program skutecne tuhnul.
Kdyz jsem mu nainstaloval tentyz nespakovany problemy zmizely. Pro jistotu
jsem jeste jednou totez chodici exe na miste zapakoval a do 5 minut Win
krasne vytuhavaly.
Nezkoumal jsem proc, ale od te doby na vetsi projekty pakovani nepouzivam.
Jinak pokud se dobre pamatuji probehl tady konferenci odkaz nebo alespon
zminka na dekompresor UPX.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Query a relace
[*] Roman Svoboda <roman.svoboda(zv)atlas(tec)cz> - 6.6.2000 14:41:07
Zdravim.
Mam 2 tabulky v FoxPro 2.5 (indexy jsou pomerne jednoduche, nicmene nepouzitelne, nastesti nebrani otevreni v Delphi).
V Delphi je potrebuji zobrazit relacne svazane, (1 ku n).
Pou�il jsem pro 2. tabulku "select * from... where..." p�i kazdem presunu z vety na vetu v prvni tabulce. (Je to ale pomale)
Rad bych pouzil "Query", ale nevim, jak se da k vysledku "Query" pridat index pro pozadovanou relaci.
Obavam se, ze bych musel vysledek "Query" "nasypat" do dalsi tabulky a teprve k ni pridat index.
Nevim ale, jestli se nedrbu pravou rukou za levym uchem.
Za radu dekuji
Roman Svoboda
D4 Pro, W98, PII 266, 64RAM
roman.svoboda(zv)atlas(tec)cz
FindNearest a polozka databazy.
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 6.6.2000 14:46:32
Staci se podivat do helpu - example k FindNearest:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.FindNearest([Edit1.Text]);
end;
Z toho plyne, ze je treba ze stringu udelat jednoprvkove
pole uzavrenim do [].
s pozdravem Otakar Milink
> Dobry den,
>
> prosim o radu.
>
> Potrebujem pouzit vyhladavaci mechanizmus v databaze
> FindNearest(kluc), kde
> kluc je obsah fieldu indej databazy.
>
> Ked pouzijem Table1.FindNearest(Table2kluc.value), tak mi to vypisuje
> konflikt ARRAY so STRING-om.
>
> Vie mi niekto poradit, co tu robim zle?
>
> Som iba zaciatocnik. Dakujem za trpezlivost a ochotu.Mail server
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 6.6.2000 14:59:21
Pod Windows funguje 602 pro Internet, ktery obsahuje proxy a mail server a
tusim ze i WinRoute.
Jinak je Mail server standardni soucasti vetsiny distribuci Linuxu (urcite
je v RedHatu i Debianu).
Jaromir Cermak
-----Original Message-----
From: Foldyna Ji�� [mailto:jiri.f(zv)avizo(tec)cz]
Sent: Tuesday, June 06, 2000 1:11 PM
To: Delphi konference
Subject: OT: Mail server
Ahoj,
omlouvam se OT, ale hledame nahradu MS Exchange pro nasi firmu. Pokud byste
nekdo mel tip (do 100 schranek, pod W$ nebo Linuxem), prosim dejte mi vedet.
Diky.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Prehravac akci
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 6.6.2000 15:46:19
na to existuje komponenta TMagicMacros
http://magicmacros.8m.com
ale je to shareware
a este jedna
Macrorecordercomponent for Delphi32
HOME: www.uni-jena.de/~i7lema/program.htm
HOME: http://www.happyarts.com
olej
> -----Original Message-----
> From: Hubka Lubos [mailto:L.Hubka(zv)trenkwalder.com]
> Sent: Tuesday, June 06, 2000 2:09 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Prehravac akci
>
>
> > Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
> > Tutorial, ktery ukaze jak se ma s prislusnou aplikaci
> pracovat. Je mozne
> > napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
> > jinou aplikaci? Vyvola nabidku, vyplni editacni pole,
> stiskne tlacitko
> > OK atd. Nic takoveho jsem zatim nikde nevidel.
> >
> Cau!
> Principialne by som to riesil takto:
> Zistim handle pozadovanej aplikacie.
> Potom posielam cez SendMessage alebo PostMessage potrebne spravy
> aplikacii.
> Spravy mysi som este nerobil, takze neviem.
> Ale uz sa nieco podobne preberalo v konferencii, takze
> skus pozriet
> v archive.
>
> Priklad:
> //zistim handle aplikacie
> ghwnd = FindWindow("#32770","");
> //poslem stlacenie klavesy Enter
> PostMessage(ghwnd,WM_KEYDOWN ,VK_RETURN ,0);
> PostMessage(ghwnd,WM_KEYUP ,VK_RETURN ,0);
>
> /LH
> __________ Informacia od NOD32 __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.nod32.com
> Kylix
[*] pcb(zv)atlas(tec)cz - 6.6.2000 16:00:56
Haj hou!
Linux Day - ZM�NA M�STA!
V�en� z�jemci, ��astn�ci konference Linux Day,
vzhledem k obrovsk�mu z�jmu o konferenci "Linux Day" jsme byli
nuceni naj�t v�t�� s�l, abychom uspokojili co nejv�t�� po�et
z�jemc�.
Konference se p�esunuje na tuto adresu: Kino Kv�ten, Vinohradsk�
40, Praha 2
Pokud jste netrpelivi, a chete se dovedet o Kylixu vice hned ted
(pripadne videt prvni zverejnene obrazky IDE), pak se podivejte na
adresu
htt://delphree.clexpert.com/pages/
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.OT: Mail server
[*] pcb(zv)atlas(tec)cz - 6.6.2000 16:00:56
Haj hou!
On 6 Jun 2000, at 13:10, Foldyna Ji � wrote:
> omlouvam se OT, ale hledame nahradu MS Exchange pro nasi firmu. Pokud
> byste nekdo mel tip (do 100 schranek, pod W$ nebo Linuxem), prosim
> dejte mi vedet. Diky.
Podivej se na http://www.pmail.com/ na Mercury (Novell, WinNT). Velmi dobry
produkt a je zadarmo.
"Mercury Mail Transport System: Mercury is a free, standards-based mail
server solution, providing comprehensive, fast server support for all major
Internet e-mail protocols. It is supplied in two versions, one hosted on Windows
systems, the other running as a set of NLMs on Novell NetWare file servers."
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.Mail server
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 6.6.2000 16:15:10
> omlouvam se OT, ale hledame nahradu MS Exchange pro nasi firmu. Pokud
> byste
> nekdo mel tip (do 100 schranek, pod W$ nebo Linuxem), prosim dejte mi
> vedet.
> Diky.
>
V linuxe je sendmail.
A pre win pozri na www.winfiles.com, www.tucows.com, ...
/LH
Znakovy tisk
[*] Jan Jochman <Jan.Jochman(zv)ais(tec)cz> - 6.6.2000 16:43:57
Pratele poradte,
jak tisknout z Delphi 3 na tiskarnu na LPT znakove.
Diky
Honza
Problem se ziskanim uzivatelskeho jmena v WinNT Do
[*] Luk� Gallina <johndelphi(zv)atlas(tec)cz> - 6.6.2000 20:48:03
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Zdravim Vas.
Panove a damy, problem je nasledujici:
Znam WinNT domenu, znam uzivatelske jmeno, co ale nevim a potrebuji zjistit jsou informace o uzovateli na NT serveru. Jako je jmeno, prijmeni, adresa, telefon atd. Koukal jsem se do MSDN ale neporadilo se mi nic najit :( Potreboval bych fci ktera jede jak pod Win95 a vyse tak pod NTckami. Nebo klidne 2 fce... ale proste aby to fungovalo pod vsemi systemy MS (krome Dosu a Wfw :)))) ).
S pozdravem
Lukas Gallina
Zobrazeni cisla pri vyzvaneni na modem
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 6.6.2000 20:49:15
Ahoj
Na podzim minuleho roku probihala diskuze na tema dle subjektu.
Pokud vim, nedoslo k nejakemu zaveru.
Jelikoz nyn� resim podobny problem, chtel jsem se zeptat zda "doba
pokrocila"
a nekdo vi jak na to.
S pozdravem Heinisch Jiri
Rimska cisla
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 6.6.2000 21:55:39
> Pred vyssim ciselm by se nemelo vyskytovat vice jak jedno nizzi, (jak jsi
spravne napsal DCCC a ne CCM). Druhym pravidlem je , ze pred vyssim ciselm
by melo byt nizsi pouze o jeden rad (nepouzivaji se 5-kove, jako jsou V,
L,D), takze ne MIM jako 1999
>
> Jan Fiala
Diky. Ale jeste jednu vec. Nemohu prece zapsat DCCCC, ale CM. Plati tedy
take pravidlo, ze se nesmi pouzit stejny znak vicekrat jak trikrat? Vcetne
Tisice M?
Zat�m se m�jte moc p�kn�.
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
> From: "Straka Josef" <strakaj(zv)hba(tec)czn(tec)cz>
> > Jestli nekdo vite o pravidlech pro zapis rimskych cisel, dejte, prosim,
> > vedet.Znakovy tisk
[*] Lud�k P�ral - 6.6.2000 22:29:50
Pouzivam s uspechem generator Sestav Sinea. Umi i znakovy tisk. Ovsem zkus
si i tisk na "Obecnou nebo znakovou tiskarnu" (nainstaluj z W95)
S pozdravem
Ludek Paral
ludek.paral(zv)telecom(tec)cz
www.mujweb(tec)cz/pocitace/lupasoft
----- P�vodn� zpr�va -----
Od: "Jan Jochman" <Jan.Jochman(zv)ais(tec)cz>
Komu: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
Odesl�no: 6. �ervna 2000 16:43
P�edm�t: Znakovy tisk
> Pratele poradte,
> jak tisknout z Delphi 3 na tiskarnu na LPT znakove.
>
> Diky
> Honza
>
aplikace pro MS SQL 7
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 6.6.2000 22:31:59
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.
V tom pripade blahopreji k Tve zodpovednosti :-).
Nechci polemizovat, to nema s programovanim nic spolecneho.
Ale existuje mnoho chvil, ktere jsou na toto haklive.
Jdu na obed.
Mam necekany pohovor se sefem.
Pustim pres noc nejaky narocny import dat nebo nejaky slozity vypocet.
...
> > 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?
Ne. My jsme nainstalovali a nakonfigurovali SQL server a nainstalovali Joby
pro automaticke zalohovani.
Dalsi administraci serveru umoznujeme jen pres nase aplikace - napr.
aktualizaci statistik indexu, instalace novych verzi triggeru, ulozenych
procedur, zmeny datoveho schematu, ...
Vyreseni prav je nas problem.
U Vas to ma nastarost specialni SQL administrator, ktery je zamestnancem
zakaznika ?
Pokud zakaznik neni nejaka velka organizace, tak nemusi zamestnavat takoveho
odbornika.
Takovy odbornik by v male organizaci pravdepodobne nenasel uplatneni na plny
uvazek a
spolupracovat s dalsi externi osobou pri vsech updatech muze byt zbytecne
zdlouhave.
(Za takovyto typ sluzeb mame samozrejme zaplaceno, tak co bychom to
nedelali.)
Jak to probiha u Vas?
S pozdravem, Lada
Bezpecnost programov
[*] Hurricane <hurricane(zv)email(tec)cz> - 6.6.2000 22:34:52
Zdravim
S tim naprosto souhlasim, ja takove programy nepouzivam, opravdu je to
narocne na pamet. Ale navrhnul jsem to jako mozne reseni, rada komercnich
programu (WindowsCommander) jsou tim taky zapakovany. Na ASPack ale pozor, o
tom se v�, ze lze dekompilovat, jak je to s jin�mi to nevim, ale mysl�m, ze
nejdou, nebo zatim nikdo neprisel jak na to.
Hurricane
> 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)Posta
[*] Hurricane <hurricane(zv)email(tec)cz> - 6.6.2000 22:37:01
Zdravim
Ted se to tady probiralo, pouzij ShellExecute a jako jmeno souboru dej
mailto:aaa(zv)bbb(tec)cz.
Hurricane
----- Original Message -----
> 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.Komunikace via TCP/IP
[*] Hurricane <hurricane(zv)email(tec)cz> - 6.6.2000 22:42:36
Zdravim
Mam D3 a DelphiX funguje bez problemu, je to na adrese
http://www.ingjapan.ne.jp/hori/.
Hurricane
----- Original Message -----
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-----
>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.IMHO
[*] Hurricane <hurricane(zv)email(tec)cz> - 6.6.2000 22:50:55
presne nevim, ale vim ze v EasyPadu je celej seznam techto vyrazu, je jich
tam asi kolem 50
Hurricane
----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 05, 2000 2:34 PM
Subject: OT: IMHO
> Ahoj,
>
> sorry za OT, ale neda mi to: obcas se tu v konferenci pouziva
> zkratka IMHO. Co to znamena? :)
>
> David
>Prehravac akci
[*] Hurricane <hurricane(zv)email(tec)cz> - 6.6.2000 22:56:48
Zdravim
Me napadlo mozna jine reseni. Zkus nejak presne nastavit umisteni te
aplikace (top 0, Left 0, Width 800, Height 600) a potom pomoci WIN fci
hejbej s mysi a posilej windlim zpravy jako ze si kliknul misi. Byla by to
sice silena prace psat vsechny t ysouradnice, ale mozna je to dobry napad.
Hurricane
----- Original Message -----
> > Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
> > Tutorial, ktery ukaze jak se ma s prislusnou aplikaci pracovat. Je mozne
> > napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
> > jinou aplikaci? Vyvola nabidku, vyplni editacni pole, stiskne tlacitko
> > OK atd. Nic takoveho jsem zatim nikde nevidel.
> >
> Cau!
> Principialne by som to riesil takto:
> Zistim handle pozadovanej aplikacie.
> Potom posielam cez SendMessage alebo PostMessage potrebne spravy
> aplikacii.
> Spravy mysi som este nerobil, takze neviem.
> Ale uz sa nieco podobne preberalo v konferencii, takze skus pozriet
> v archive.
>
> Priklad:
> file://zistim handle aplikacie
> ghwnd = FindWindow("#32770","");
> file://poslem stlacenie klavesy Enter
> PostMessage(ghwnd,WM_KEYDOWN ,VK_RETURN ,0);
> PostMessage(ghwnd,WM_KEYUP ,VK_RETURN ,0);
>
> /LH
>
>Zobrazeni cisla pri vyzvaneni na modem
[*] Hurricane <hurricane(zv)email(tec)cz> - 6.6.2000 23:05:47
Zdravim
To myslis, jako ze kdyz ti nekdo vola na modem, tak ty chces, aby ti program
napsal, kdo vola? Zklamu t�, nejde to, po normalni telef. lince se to
nepos�l�. Jenom po ISDN nebo na mobilu. A pochybuju, �e existuje n�jak�
sekvence, kterou kdy� po�le� do �st�edny, tak ti vr�t� ��slo volaj�c�ho.
Zkur..... telekomunisti !
Hurricane
----- Original Message -----
Na podzim minuleho roku probihala diskuze na tema dle subjektu.
Pokud vim, nedoslo k nejakemu zaveru.
Jelikoz nyn� resim podobny problem, chtel jsem se zeptat zda "doba
pokrocila"
a nekdo vi jak na to.TMenuEditor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:14:35
From: "Honza" <delphi(zv)mis-net(tec)cz>
> Na popupu k popupu v designu je nahore polozka "Menu designer ..." a ja bych
> potreboval pridat jeste jednu ktera by me defaultne nasypala do toho menu 4
> itemy, ale pouze v designu.
>
> Vubec ale netusim jak to provest, prosim help
Ahoj,
Zjednodusene treba takhle:
unit MenuCompEdit;
interface
uses
Windows, SysUtils, Classes, Menus;
procedure Register;
implementation
uses
DsgnIntf, TypInfo;
type
TMyMenuComponentEditor = class(TComponentEditor)
private
procedure EnumPropEditors(Prop: TPropertyEditor);
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
{ TMyMenuComponentEditor }
procedure TMyMenuComponentEditor.EnumPropEditors(Prop: TPropertyEditor);
begin
if Prop.GetPropType^.Name = 'TMenuItem' then Prop.Edit;
end;
procedure TMyMenuComponentEditor.ExecuteVerb(Index: Integer);
var
CompList: TDesignerSelectionList;
Item: TMenuItem;
begin
case Index of
0: begin
CompList := TDesignerSelectionList.Create;
try
CompList.Add(Component);
GetComponentProperties(CompList, [tkClass], Designer, EnumPropEditors);
finally
CompList.Free;
end;
end;
1: begin
Item := TMenuItem.Create(Component);
Item.Caption := 'Item ...';
(Component as TMenu).Items.Add(Item);
Designer.Modified;
end;
end;
end;
function TMyMenuComponentEditor.GetVerb(Index: Integer): string;
begin
case Index of
0: Result := 'Menu designer';
1: Result := 'Add an item';
end;
end;
function TMyMenuComponentEditor.GetVerbCount: Integer;
begin
Result := 2;
end;
procedure Register;
begin
RegisterComponentEditor(TPopupMenu, TMyMenuComponentEditor);
end;
Petr Vones, amatersky programator
COM Threading
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:14:52
> From: "Ond�ej Male�ek" <ondrej.malecek(zv)radom-cz(tec)cz>
> > mam dotaz tykajici se volani metod COM objektu. U out-of-process serveru se
> > mi nedari ovlivnit z jakeho vlakna budou obsluhovana volani jeho metod.
>
> Ahoj,
>
> http://www.techvanguards.com/com/concepts/multithreading.htm
> http://www.techvanguards.com/files/Threading.zip
>
> Petr Vones, amatersky programator
Znakovy tisk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:14:50
From: "Jan Jochman" <Jan.Jochman(zv)ais(tec)cz>
> Pratele poradte,
> jak tisknout z Delphi 3 na tiskarnu na LPT znakove.
Ahoj,
neco takoveho resila http://www.sinea(tec)cz
Petr Vones, amatersky programator
TThread a TTimer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:15:18
> 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 uz tu tusim jednou bylo, co treba takhle:
>
> procedure TDemoThread.Execute;
> begin
> while not Terminated do
> begin
> Sleep(1000);
> Play;
> end;
> end;
>
> Petr Vones, amatersky programator
Zm�na caption v fontdialogu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:15:11
> From: <Maly(zv)pds.pce.cdrail(tec)cz>
> > Potreboval bych zmenit titulek okna v standardnim FONTDIALOGu.Jak na to ? D3
>
> Ahoj,
>
> Do udalosti TFontDialog.OnShow dej:
>
> procedure TForm1.FontDialog1Show(Sender: TObject);
> var
> S: string;
> begin
> S := 'Titulek';
> SendMessage(FontDialog1.Handle, WM_SETTEXT, 0, LPARAM(PChar(S)));
> end;
>
> Petr Vones, amatersky programator
Tisk na tiskarne na com portu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:15:03
From: "Tomas Vesely" <veselyt(zv)atlas(tec)cz>
> 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?
Ahoj,
Zkus hledat po Internetu (AltaVista & spol). V nouzi muzes zkusit pouzit
genericky ovladac (ve Win95CZ je to v seznamu Vyrobci: "obecna"), ale
vysledek nebude asi nijak oslnivy.
Petr Vones, amatersky programator
FileName z Handlu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:15:15
> From: "Martin Dupal" <mdupal(zv)vision(tec)cz>
> > nevite prosim nekdo, jak lze ziskat jmeno souboru,
> > pokud znam jen Handle. Soubor je samozrejme otevreny.
> > API funkce GetFileInformationByHandle vraci vsechno
> > mozne, jen ne jmeno. Dik.
>
> Ahoj,
>
> Obavam se ze toto je (minimalne na urovni aplikace) nemozne. K cemu to
> vlastne potrebujes ?
>
> Petr Vones, amatersky programator
Zav�en� Internet exploreru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:15:08
> From: "Mal� Dobromil" <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> > Caption neni nutny, staci jen trida okna...
> > ... FindWindow(PChar('IEFrame'), nil)
> >
> > ..ale psalo se tu o tom, ze pouzivat FindWindow
> > neni to prave orechove... (uz nevim proc :-)
>
> Ahoj,
>
> To bylo patrne v pripade, ze se pouziva pro kontrolu behu predchozi instance
> aplikace, kde je to opravdu krajne nevhodne reseni. Jinak je to samozrejme
> uzitecna funkce a lze ji pouzivat bez obav :-)
>
> Petr Vones, amatersky programator
Zobrazeni cisla pri vyzvaneni na modem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.6.2000 23:16:36
From: "Heinisch Jiri" <deis(zv)deis(tec)cz>
> Na podzim minuleho roku probihala diskuze na tema dle subjektu.
> Pokud vim, nedoslo k nejakemu zaveru.
>
> Jelikoz nyn� resim podobny problem, chtel jsem se zeptat zda "doba
> pokrocila"
Ano, doba pokrocila .. s vyjimkou v Ceske Republiky :-) Diky nasi vlade byl
konec monopolu vicemene prodlouzen temer o 2 roky, takze ocekavat CallerID
lze opravdu jen tezko. Pokud by se vsak od 1.1.2001 prece jen nasel nejaky
operator, tak lze pocitat s opetovnym vyskemranim zakazu teto sluzby ze
strany monopolu (protoze on se to prece jeste nestihl naucit, tak je treba
to zakazat ostatnim, coz by nebyl zdaleka prvni pripad, ze :-). Urcita
moznost spociva ve zrizeni pobockove ustredny. Z klasicke telefonni linky
ale cislo nedostanes.
Krom technicke neshopnosti je tu jeste i dalsi problem. Nevim k cemu chces
tyto cisla dale vyuzivat. Napriklad VOLny pouziva cislo volajiciho ucastnika
jako jeho identifikaci (samozrejme ne tajne, je to uvedeno v podminkach) a
meli problemy s tim to tu pravne prosadit.
> a nekdo vi jak na to.
Rychle reseni uz ted bohuzel asi neni, snad jen tlak ze strany EU. Vzpomen
si na to ale az pujdes zase nekdy k volbam :-))
Mimochodem, aby te blbosti nebylo nahodou malo, tak min.financi pry uvazuje
o zvyseni DPH u SW na 22% (http://www.lupa(tec)cz/komentare/ukaz.php3?k_id=862)
Petr Vones, amatersky programator
Zobrazeni cisla pri vyzvaneni na modem
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 6.6.2000 23:21:38
Cauec,
pokud budes mit ISDN linku, tak to na kartu chytnes pomerne lehce. Pokud
buds mit normalni analogovou linku, asi mas smulu.
Bye Ludan
>
> Na podzim minuleho roku probihala diskuze na tema dle subjektu.
> Pokud vim, nedoslo k nejakemu zaveru.
>
> Jelikoz nyn� resim podobny problem, chtel jsem se zeptat zda "doba
> pokrocila"
> a nekdo vi jak na to.
IMHO
[*] Michal Sviga <info(zv)cd-amper(tec)cz> - 7.6.2000 00:39:58
Celkem slusny seznam pouzivanych zkratek s ceskym popisem je na Atlasu:
http://rozum.atlas(tec)cz/akraemot.asp
S pozdravem
Michal Sviga (Sviga)
=============================[PROTON]====
DAMA.CZ - Internetovy casopis pro vsechny zeny
http://www.dama(tec)cz mailto:reklama(zv)dama(tec)cz
tel.,fax: +420 2 72 76 98 48 mobil: 0602/ 207 557
======ICQ: 57557677 =======================
----- Original Message -----
From: Hurricane <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, June 06, 2000 10:50 PM
Subject: Re: IMHO
> presne nevim, ale vim ze v EasyPadu je celej seznam techto vyrazu, je jich
> tam asi kolem 50
>
> Hurricane
> ----- Original Message -----
> From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, June 05, 2000 2:34 PM
> Subject: OT: IMHO
>
>
> > Ahoj,
> >
> > sorry za OT, ale neda mi to: obcas se tu v konferenci pouziva
> > zkratka IMHO. Co to znamena? :)
> >
> > David
> >
Import do EXCELu
[*] rommet(zv)post(tec)cz - 7.6.2000 06:26:56
Ahoj Delphinari,
potrebuji pomoc s jednou snad pro vas malickosti pro mne oriskem. Mam potrebu importovat tabulku s Excelu (97) do DELPHI 3 jako. Chtel bych ale abych k tomu nepotreboval zadne ODBC, zadne OLE, instalaci EXCELu, spusteny EXCEL a zadne slozite techniky. Proste jednoduse reseno nacist soubor *.XLS. Umim exportovat do Excelu pomoci komponenty XLSfile (nepotrebuje nic) ale ona neumi importovat. Prosim poradte mi.
Diky moc a mejte se David
Prohledavac, ktery Vam rozumi.
*** http://NAJDI.TO
Znakovy tisk
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.6.2000 06:57:52
From: "Jan Jochman" <Jan.Jochman(zv)ais(tec)cz>
Subject: Znakovy tisk
> Pratele poradte,
> jak tisknout z Delphi 3 na tiskarnu na LPT znakove.
>
> Diky
> Honza
>
Zalezi na dvou zasadnich vecech:
1. co se bude tisknout
- prosty text bez diakritiky
- prosty text s diakritikou
- text se zmenou hustoty a stylu pisma (standardni sekvence)
- specialni sekvence na rizeni specialnich tiskaren
2. v jakem prostredi se bude tisknout
- Win 95/98
- Win NT, anglicke Win2000
- ceske Win2000
Kazde prostredi se chova jinak ke znakum s diakritikou
a nabizi jine moznosti pro posilani ridicich sekvenci.
Jedine, co funguje vsude, je napsat si to sam.
Vaclav Krmela
Znakovy tisk
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.6.2000 07:30:09
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>> From: "Jan Jochman" <Jan.Jochman(zv)ais(tec)cz>
> > Pratele poradte,
> > jak tisknout z Delphi 3 na tiskarnu na LPT znakove.
>
> Ahoj,
>
> neco takoveho resila http://www.sinea(tec)cz
>
> Petr Vones, amatersky programator
>
>
Sinea umoznuje znakovy tisk dvema zpusoby.
1. pres ovladac obecne textove tiskarny
Musi byt nainstalovan ovladac obecne tiskarny.
Pouziva se funkce Print. Predloha pro tisk musi splnovat
nektera omezujici pravidla (zarovnani do znakoveho
rastru, pouziti pisma Roman 10, 12 nebo 17 cpi).
Dosazeny vysledek bude zaviset na prostredi:
- Win 95/98/ceske Win2000 umoznuje volit hustotu
znaku, tucne pismo, tiskne diakrititku na Latin2,
(u Win95/98 lze i Kamenicky) pouziva se interni
znakova sada tiskarny.
- anglicke (beta?) Win2000 neumi cestinu
- na NT se musi zapomenout na cestinu i zmenu typu pisma.
2. pomoci funkce WriteTo
Jedna se o primy zapis do portu, nevyzaduje zadny ovladac.
Pristup na nizsi urovni nabizi vice moznosti, ale je
pracnejsi. Uzivatel sam musi zajistit prislusne ridici
sekvence, coz lze ve stavajici verzi dosti nesikovne.
Sinea pracuje na verzi, ktera umozni vkladani ridicich
sekvenci jiz do grafickeho editoru predloh.
Tato verze ma byt k dispozici v zari 2000.
Vaclav Krmela
aplikace pro MS SQL 7
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.6.2000 07:35:03
> -----P�vodn� zpr�va-----
> Od: Ladislav Nagy [mailto:lnag7384(zv)mail.kolej.mff.cuni(tec)cz]
> Odesl�no: 6. �ervna 2000 22:32
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: aplikace pro MS SQL 7
>
> V tom pripade blahopreji k Tve zodpovednosti :-).
>
> Nechci polemizovat, to nema s programovanim nic spolecneho.
> Ale existuje mnoho chvil, ktere jsou na toto haklive.
> Jdu na obed.
> Mam necekany pohovor se sefem.
> Pustim pres noc nejaky narocny import dat nebo nejaky slozity vypocet.
> ...
e vsech pripadech, pokud nechces cekat, az se pocitac
zamkne sam (spustenim screensaveru)
je to otazka stisku Ctrl-Alt-Del a nasledne Enteru.
Rozhodne mi tato ctvrtvterinova akce stoji za to,
abych nemusel vysvetlovat svym obchodnim partnerum,
sefum a znamym, ze jsem jim zamejloval sprosty dopis,
protoze jsem sel na pohovor k sefovi (a mezitim se
k memu stroji dostal nekdo, kdo mi zavidi karieru :-)
A to by asi nebylo to nejhorsi, co by se mohlo stat ...
Jura
Tisk na tiskarne na com portu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.6.2000 07:52:46
> From: "Tomas Vesely" <veselyt(zv)atlas(tec)cz>
> > 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?
>
> Ahoj,
>
> Zkus hledat po Internetu (AltaVista & spol). V nouzi muzes zkusit pouzit
> genericky ovladac (ve Win95CZ je to v seznamu Vyrobci: "obecna"), ale
> vysledek nebude asi nijak oslnivy.
>
> Petr Vones, amatersky programator
>
>
Genericky ovladac mu v tomto pripade nepomuze.
Uvedenou tiskarnu neznam, ale myslim si, ze vyzaduje
posilani specialnich ESC sekvenci. Bohuzel, genericky
ovladac vyhazuje znaky ESC, cimz znemoznuje
jine rizeni tiskarny, nez umoznuje samotny genericky
ovladac, tj. hustotu 10,12 a 17 cpi, tucne, kurziva
a podtrzene, zacatek a konec dokumentu. Vic nic.
Myslim, ze by mel existovat graficky ovladac tiskarny
do Windows. V tom pripade by byl mozny tisk v grafickem
rezimu. To ale trochu degraduje moznosti tiskarny.
Nejlepsim resemim by asi byl primy zapis do portu.
Viz. prispevky na tema Znakovy tisk.
Vaclav Krmela
potize s NMSMTP
[*] Zapl�k���ͪe�?�Y��̿ - 7.6.2000 08:02:54
Zdravicko .
D5 profi, W98
Mam nasledujici problem. V me aplikaci pouzivam komponentu NMSMTP ze zalozky FastNet pro odesilani e-mailu. Vsechno chodi celkem v pohode, ale:
1) po odeslani e-mailu spojeni porad drzi, i kdyz pouziji Disconnect. Jak tedy ukoncim spojeni?
2) v e-mailu prijateho od teto aplikace je spatne zobrazena diakritika, i kdyz jsem nastavil CharSet na evropsky. Jaky CharSet tedy pouzit20
3) font e-mailu nedodrzuje mezery. Vim ze je to fontem ktery pouziva, ale jak u takto odeslaneho e-mailu nastavit font treba Courier Now?
Predem dekuji za pripadne namety.
Zaplik
Zaplik(zv)volny(tec)cz
Komunikace via TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 7.6.2000 08:04:55
> Mam D3 a DelphiX funguje bez problemu, je to na adrese
> http://www.ingjapan.ne.jp/hori/.
Pripada mi nestastne vazat jednoduchou komunikaci se siti s
HERNIM enginem DirectX...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
ADO a klauzule IN v SQL
[*] Petr Sadovsk� <petr(zv)slunce(tec)cz> - 7.6.2000 08:08:49
> ... FROM Tabulka IN "" [dBASE IV; DATABASE=C:\DBASE\DATA\PRODEJ;];
> ... FROM Tabulka IN "C:\DBASE\DATA\PRODEJ" "dBASE IV;"
Ahojte,
tak toto uz jsem rozchodil.Chyba�cka byla v apostrofech :-(
Ale ted se objevil jiny problem. V nasledujicim kodu:
(vysledek dotazu je zobrazen v DBgridu i v prubehu zprac. tohoto kodu)
SQL.Clear;
SQL.Add('select * from stat0211');
Open;
if RecordCount>0 then
begin
First;
PomJDaa:=FieldByName('JDAA').AsString;
for I:=0 to RecordCount-1 do
begin
Edit;
FieldByName('PRACOVISTE').AsString:=Copy(PomJdaa,2,6);
// nenasel jsem zadnou fci SUBSTRING nebo COPY pro SQL takze prochazim
celou tabulku a doplnuju, co potrebuju
a zhruba na 9 zaznamu tabulky vyskoci toto
... class EOleException with message "Insuficient key column information for
updating or refreshing".Process stopped.
a nepomuze ani Post po kazde zmene. Co s tim mam provest, aby to projelo
az do konce?
Post;
Next;
if PomJDaa=FieldByName('JDAA').AsString then
Delete;
PomJDaa:=FieldByName('JDAA').AsString;
Refresh;
end;
Diky
Petr Sadovsky
Paradox - dik
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.6.2000 08:14:51
On 5 Jun 2000, at 9:47, Milan Tomes wrote:
> Ja bych se tomu take nebranil, ale znate to - vedeni firmy se brani
> co muze. Jedna se o to, ze ja nemuzu vyvijet aplikaci 3/4 roku,
> protoze to neni jedina aplikace. Mam ted na starost cca 10 aplikaci
> a nektere jsou skutecne dost analyticky a metodicky rozsahle a
> narocne a podlehaji legislativnim zmenam, takze bych musel prechazet
> z Delphi zpet do Paradoxu atd...
Neznam. :-)) Ja sam jsem vedeni firmy. :-)
Jde o to poradne propocitat (a pak to umet zduvodnit), co je
levnejsi - zda cim dal tim problematictejsi udrzba stareho projektu,
nebo to napsat znovu, nad jinou databazi, v jinem prostredi atp. Ale
to u tvych projektu takhle na dalku nepoznam, to muze byt u
kazdeho
pripadu jine.
Nekdy muze "nove napsani" byt i to, ze se pouzije maximum
vnitrniho kodu, ktery je dobre odladeny a osvedcil se, ale napise se
znovu uzivatelske rozhrani (coz by nepochybne byl pripad
prechodu z
Paradoxu do Delphi) a databazove rozhrani. A samozrejme se zvoli
takove usporadani, aby se zjednodusila dalsi udrzba.
> > -----Original Message-----
> > Mno - unahleny... Zalezi na okolnostech. Ja to tak delam "bezne",
> > zrovna ted jsem dokoncil novou verzi jednoho velkeho projektu,
> > ktery
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
Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.6.2000 08:14:51
On 5 Jun 2000, at 7:37, Ren� Otisk wrote:
> > S tim my nic nenadelame, to jsou hold mikrosofti instalatory. Ale
> > nemel by byt problem napriklad po restartu znovu nahodit vlastni
> > instalak, dokud se nenainstaluje finalni program.
>
> DCOM i MDAC lze spustit v modu, kdy se nemusi restartovat po
> skunceni instalace, nicmene MDAC vyzaduje DCOM a MSDE resp. MS SQL
> vyzaduje MDAC. Ale prece existuje nejaka tajna finticka Microsoftu,
> protoze kdyz jsem si na ciste W95 A instaloval MS SQL, tak mi tam
> nabusil jak DCOM tak MSDE a bez prislusnych restartu... Probehl jen
> zaverecny restart...
MSDE je vycuc z MS SQL. :-) Nemel jsi na mysli MDAC? MS SQL
ale MDAC uz IMHO obsahuje, MSDE ne. Ruku do ohne za to vsak
nedam. :-) Ale MS SQL vyzaduje nainstalovany IE 4.1 (nejmene), a
ten
obsahuje DCOM.
Ale pokud nekdo prijde na to, jak to nainstalovat v pripade MSDE,
sem
s tim. Take by bylo vhodne osahat, zda pocitadlo uz obsahuje
prislusnou verzi (nebo vyssi) MDAC a IE.
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 a klauzule IN v SQL - oprava
[*] Petr Sadovsk� <petr(zv)slunce(tec)cz> - 7.6.2000 08:36:59
> ... FROM Tabulka IN "" [dBASE IV; DATABASE=C:\DBASE\DATA\PRODEJ;];
> ... FROM Tabulka IN "C:\DBASE\DATA\PRODEJ" "dBASE IV;"
Ahojte,
tak toto uz jsem rozchodil.Chybicka byla v apostrofech :-(
Ale ted se objevil jiny problem. V nasledujicim kodu:
(vysledek dotazu je zobrazen v DBgridu i v prubehu zprac. tohoto kodu)
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from stat0211');
Open;
if RecordCount>0 then
begin
First;
PomJDaa:=FieldByName('JDAA').AsString;
for I:=0 to RecordCount-1 do
begin
Edit;
FieldByName('PRACOVISTE').AsString:=Copy(PomJdaa,2,6);
// nenasel jsem zadnou fci SUBSTRING nebo COPY pro SQL takze prochazim
celou tabulku a doplnuju, co potrebuju
Post;
Next;
if PomJDaa=FieldByName('JDAA').AsString then
Delete;
Chybicka je tady : vyhazuje toto "Insuficient or incorect key column
information: too many rows affected by update"
Po provedeni Delete; se zmensi ReccordCount ale v RowsAffected zustane
puvodni hodnota a to se mu asi nelibi.Nevite, co s tim?
PomJDaa:=FieldByName('JDAA').AsString;
end;
Diky
Petr Sadovsky
P.S. D5Entr,W98
Rychlost Qreportu pri master/detail
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 7.6.2000 08:47:37
QReport totiz vytvari ne jenom prvni stranku, ale rovnou vsechny stranky a
to je ta dost pomala operace. Ja bych taky potreboval aby si vytvoril pouze
prvni a dalsi pouze v pripade potreby...
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Filip
> Sent: Monday, June 05, 2000 1:16 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Rychlost Qreportu pri master/detail
>
>
> Dobry den!
> Mam takovy drobny rychlostni problem. Mam PDOX databazi na siti
> (jen 4 pocitace, 1 master(asi 1000 recordu) + 10 detail tabulek).
> Vse beha celkem rychle. Problem nastane kdyz chci tisknout nebo
> preview v QR. Nez nacte cely tisk tak to trva pres pul minuty.
> Pritom nevidim duvod proc by to melo trvat tak dlouho. Pri
> editaci, prohlizeni a dalsich vecech je to krasne rychle.
> ---
> Filip, student
>
>
>
> Angelfire for your free web-based e-mail. http://www.angelfire.com
DDE communication
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 7.6.2000 08:48:57
Zdravim,
potrebuji v D5 napsat DDE server, nejak mi nechodi spolehlive. Pri pouziti HotLinku pro cteni z DDE severu nejak fuhguje, pokud pouziji manual rezim Request na DDE server taky funguje, ale pri PokeData aplikace skonci chybou. Vyvojove prostredi D5 procozuji pod Win95.
Ma nekdo prosim jeste nejake zkusenosti s DDE pro apl.(Server a Client) psanou v D5? Timto bych vas chtel pozadat o jakoukoliv informaci ohledne DDE komunikace, pripadne zda by nekdo nemohl poskytnout zdrojovi demo kod DDE Serveru a DDE Clienta.
Predem za jakou koliv informaci predem dekuji.
Martin
Problem pri pretypovani
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.6.2000 08:57:43
Napis presne co jsi pouzil ve zdrojaku
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> kinekus
> Sent: Monday, June 05, 2000 3:02 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Problem pri pretypovani
>
>
> Dobry,
>
> Vopred dakujem za radu.
>
> Pri pouziti prikazu FindNearest(nieco), ked nieco je obsah fieldu z inej
> databazy vyupisuje konflikt typov ARRAY a string. Nejde mi to vsak
> pretypovat. Ako mam ist na to ?
>
> MAF.Posta
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 7.6.2000 09:02:50
Zkus toto:
ShellExecute("mailto:Milan.Tomes(zv)haida(tec)cz?subject=Pokusny mail?body=telo
zpravy") Ty mezery tam mozna nebudou chodit takze je muzes zkusit nahradit
znakem %20
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: Tuesday, June 06, 2000 2:28 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Posta
>
>
> > ShellExecute("mailto:Emailova_Adresa") Asi to nebude uplne presne, ale
> > podivej se do helpu na ShellExecute.
> >
>
> A je mozne takto (pomoci ShellExecute) poslat z meho programu do mailu i
> predmet, text zpravy a popr. i pripojene soubory?
>
> 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
>Cestina v IB
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.6.2000 09:15:15
Nemas nastavene codovani prostredi (Tusim v dialogu IBDatabase), pro
ISQL je to set names win1250 a musi se volat PRED pripojeni k DB.
Slavek
> -----Puvodni zprava-----
> Od: Petr Kellner [SMTP:kellner(zv)praktik(tec)cz]
> Odeslano: 7. eervna 2000 10:14
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Cestina v IB
>
> Zdravim,
>
> pouzivam W98, D5, IB 6 Beta, IBExpress.
>
> Kdyz zalozim databazi s DEFAULT CHARACTER SET WIN1250 (zkousel jsem i
> DOS852), do ni zalozim tabulku s jednim sloupcem typu varchar a pokusim se
> do teto tabulky ulozit string, ktery obsahuje cesky znak, vypadne mi chyba
> 'arithmetic exception, numeric overflow, or string truncation Cannot
> transliterate character between character sets'. Co s tim?
> Dik za odpoved.
>
> Zdenek
aplikace pro MS SQL 7
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.6.2000 09:17:53
> > V tom pripade blahopreji k Tve zodpovednosti :-).
> >
> > Nechci polemizovat, to nema s programovanim nic spolecneho.
> > Ale existuje mnoho chvil, ktere jsou na toto haklive.
> > Jdu na obed.
> > Mam necekany pohovor se sefem.
> > Pustim pres noc nejaky narocny import dat nebo nejaky slozity
> > vypocet. ...
>
> e vsech pripadech, pokud nechces cekat, az se pocitac
> zamkne sam (spustenim screensaveru)
> je to otazka stisku Ctrl-Alt-Del a nasledne Enteru.
> Rozhodne mi tato ctvrtvterinova akce stoji za to,
> abych nemusel vysvetlovat svym obchodnim partnerum,
> sefum a znamym, ze jsem jim zamejloval sprosty dopis,
> protoze jsem sel na pohovor k sefovi (a mezitim se
> k memu stroji dostal nekdo, kdo mi zavidi karieru :-)
> A to by asi nebylo to nejhorsi, co by se mohlo stat ...
>
> Jura
Jiste, ale... Ty muzes byt zodpovedny a poctive se odhlasovat, ale
jak k tomu dokopes zakaznika? Rekl bych obecne, ze to dopadne
asi takhle:
- zakaznikovi se preda verze s NT autentikaci a vysvetli se mu,
ze zabezpeceni spociva v tom, ze si vsichni zamestnanci budou pri
kazdem odbehnuti zamykat pocitac (zjednodusene).
- zakaznik to akceptuje, ale po nejake dobe se ozve s tim, ze
nedokaze zamestnance primet k tomu, aby to delali dusledne,
zvlaste v pripade, kdy aplikaci pouziva nejaka sekretarka (holky
prominou). Vetsina "nepocitacovych" zamestnancu to bude
pokladat za zbytecnou buzeraci, kterou nebude delat. "Vzdyt se
tady prece vsichni zname" apod.
- v dusledku toho bude zakaznik pozadovat dalsi stupen
zabezpeceni (napr. heslem) pri kazdem spusteni aplikace, takze
NT autentikaci odhodime a hledame jiny zpusob, protoze
zakaznikovi je treba vyhovet.
Nebo ma nekdo jine zkusenosti?
David
Posta
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 7.6.2000 09:22:27
A jeste jeden problem. Delka retezce je omezena, tusim na 128 nebo 256 znaku. Tzn. ze dlouhe body tam
nedostanete. Klient ( alespon MS Outlook 97 ) potom zahlasi, ze nelze otevrit.
Pokud nekdo zjistite, jak to obejit, dejte vedet. Resil jsem totiz problem posilani emailu po kliknuti
na buton v HTML formulari - a prave na tomto omezeni jsem vyhorel. Viz historie konference.
S pozdravem
Miki
-----Original Message-----
Zkus toto:
ShellExecute("mailto:Milan.Tomes(zv)haida(tec)cz?subject=Pokusny mail?body=telo
zpravy") Ty mezery tam mozna nebudou chodit takze je muzes zkusit nahradit
znakem %20
Milan Tomes
FileName z Handlu
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 7.6.2000 09:24:34
Mam k dispozici jen ukazatel na TFileStream.
A potreboval bych z toho dostat jmeno souboru.
Martin Dupal
> Obavam se ze toto je (minimalne na urovni aplikace) nemozne. K cemu to
> vlastne potrebujes ?
Posta
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.6.2000 09:41:32
Ahoj,
obecne to nelze. Ale neni tezke napsat
vlastni program, zvlaste, pouzijes-li
SMTP komponentu od F. Pietteho. Dobra.> ----------
> Od: Jaroslav Nadhera[SMTP:nadhera(zv)csh(tec)cz]
>
> > ShellExecute("mailto:Emailova_Adresa") Asi to nebude uplne presne, ale
> > podivej se do helpu na ShellExecute.
> >
>
> A je mozne takto (pomoci ShellExecute) poslat z meho programu do mailu i
> predmet, text zpravy a popr. i pripojene soubory?
> Paradox - dik
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 7.6.2000 09:42:49
> Neznam. :-)) Ja sam jsem vedeni firmy. :-)
> Jde o to poradne propocitat (a pak to umet zduvodnit), co je
> levnejsi - zda cim dal tim problematictejsi udrzba stareho projektu,
> nebo to napsat znovu, nad jinou databazi, v jinem prostredi atp. Ale
> to u tvych projektu takhle na dalku nepoznam, to muze byt u
> kazdeho
> pripadu jine.
>
> Nekdy muze "nove napsani" byt i to, ze se pouzije maximum
> vnitrniho kodu, ktery je dobre odladeny a osvedcil se, ale napise se
> znovu uzivatelske rozhrani (coz by nepochybne byl pripad
> prechodu z
> Paradoxu do Delphi) a databazove rozhrani. A samozrejme se zvoli
> takove usporadani, aby se zjednodusila dalsi udrzba.
>
Ono je tu jeste mnoho dalsich problemu. Jednak kdyz se zmeni uzivatelske
rozhrani, na ktere jsou uzivatele zvykli, tak se s tim nekteri uzivatele
nesmiri. Dale pokud se zmeni struktura dat, musi se stara prevest. A pokud
je to trochu slozitejsi aplikace tak se to urcite u nekoho (a pokud mozno u
nejvzdalenejsiho uzivatele) nepovede. A uplne novy program ma oproti
zabehnutemu staremu urcite vic chyb. Nemam nic proti novym resenim (jiz jsme
prechod na nove predelani aplikace absolvovali), jen chci podotknout, ze je
nekde lepsi rozvazit, zda je stare reseni opravdu tak nevyhodne, nez se
vrhnout do noveho technologicky skveleho reseni, ale prijit o polovinu
zakazniku, kteri se s novym resenim nesmiri, protoze jim stare prece
vyhovovalo a "kdyz ta firma porad meni program a ja se musim porad ucit neco
noveho, tak si radsi koupim neco od nekoho, kdo to ma porad stejne".
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
Zav�en� Internet exploreru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.6.2000 09:50:20
Ano, myslim, ze ano, ale proc ?
Dobra.
> ----------
> Od: Petr Vones[SMTP:pvones(zv)mbox.vol(tec)cz]
>
> > From: "Mal> � Dobromil" <dodo(zv)rak.pr.ds.mfcr(tec)cz>
>
> > > ..ale psalo se tu o tom, ze pouzivat FindWindow
> > > neni to prave orechove... (uz nevim proc :-)
> >
>
> > To bylo patrne v pripade, ze se pouziva pro kontrolu behu predchozi instance
> > aplikace, kde je to opravdu krajne nevhodne reseni.
>
> Cestina v IB
[*] Petr Kellner <kellner(zv)praktik(tec)cz> - 7.6.2000 08:13:55 -0000
Zdravim,
pouzivam W98, D5, IB 6 Beta, IBExpress.
Kdyz zalozim databazi s DEFAULT CHARACTER SET WIN1250 (zkousel jsem i
DOS852), do ni zalozim tabulku s jednim sloupcem typu varchar a pokusim se
do teto tabulky ulozit string, ktery obsahuje cesky znak, vypadne mi chyba
'arithmetic exception, numeric overflow, or string truncation Cannot
transliterate character between character sets'. Co s tim?
Dik za odpoved.
Zdenek
ImageList
[*] Petr Kellner <kellner(zv)praktik(tec)cz> - 7.6.2000 08:18:34 -0000
Zdar,
mam svoji komponentu ve svem balicku. Ta kompinenta obsahuje imagelist, do
kter�ho pot�ebuji za chodu p�id�vat ikony ze zdroj�. N�jak se mi v�ak
neda��, zkuste mi poradit jako blbci (n�kter� v�ci jen tu��m, n�kter� v�m
ale co kdy� ne spr�vn�). Tedy jak p�ipojit zdrojov� soubor, kterou metodou
p�idat ikonu do toho image listu a jak� j� p�edat p�esn� parametry.
d�ky Pekol
Znakovy tisk
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 07.6.2000 10:25:16
[P��loha v souboru: marekhr.vcf]
Toto je zpr�va z v�ce ��st� ve form�tu MIME.
Jan Jochman p�e:
> Pratele poradte,
> jak tisknout z Delphi 3 na tiskarnu na LPT znakove.
>
> Diky
> Honza
Umi to i QReport,
Pouzij pro navrh sestavy font fixedsys a panely vysky 16 ( pripadne
nasobky).
Jakestakes to funguje.
aplikace pro MS SQL 7
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.6.2000 10:27:23
> -----P�vodn� zpr�va-----
> Od: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
> Odesl�no: 7. �ervna 2000 9:18
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: aplikace pro MS SQL 7
>
>
> - zakaznik to akceptuje, ale po nejake dobe se ozve s tim, ze
> nedokaze zamestnance primet k tomu, aby to delali dusledne,
> zvlaste v pripade, kdy aplikaci pouziva nejaka sekretarka (holky
> prominou). Vetsina "nepocitacovych" zamestnancu to bude
> pokladat za zbytecnou buzeraci, kterou nebude delat. "Vzdyt se
> tady prece vsichni zname" apod.
> - v dusledku toho bude zakaznik pozadovat dalsi stupen
> zabezpeceni (napr. heslem) pri kazdem spusteni aplikace, takze
> NT autentikaci odhodime a hledame jiny zpusob, protoze
> zakaznikovi je treba vyhovet.
Zakaznikovi neni treba vyhovet. Jednou je dano na papire, co ma
objednana aplikace delat a kdyz chce zakaznik zmenu, musi se
s nim sepsat nova smlouva. A za dalsi zmeny si zaplati.
Ovsem zalezi na tom, jestli jestli smlouva na zakazku obsahuje
dobrou specifikaci pozadavku (a v nekterych ohledech by asi mela byt
hodne podrobna, treba jakym zpusobem se bude overovat identita uzivatele:-).
A jestli moje aplikace splnuje tyto pozadavky, neni duvod se zakaznikem
nechat vydirat. V autosalonu taky nedostane zadarmo alarm,
kdyz si ho predtim v novym aute neobjednal.
Myslim, ze uz se hodne vzdalujeme puvodnimu tematu.
Nevim presne, jak jsme se k NTLM autentikaci
dostali, ale mam dojem, ze nekdo tvrdil, ze to je nebezpecne.
Neni tomu tak.
Samozrejme pozadavky konkretnich zakazek je
treba zvazit a podle nich navrhnout optimalni reseni.
Zalezi take na tom, co zakaznik naspecifikoval,
pripadne co jste mu pred implementaci zakazky
navrhli a on to schvalil (asi nejsem jediny kdo
se potyka s neschopnosti zakazniku rict co vlastne chteji).
Kazda zakazka je jina a jako ja netvrdim, ze by se vzdy mela
pouzivat NTLM autentikace, neda se tvrdit, ze by se nemela pouzivat
nikdy. Nekteri zakaznici ji dokonce vyzaduji.
Jura
Paradox - dik
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 7.6.2000 10:48:15
No jenomze tady nejde o jeden projekt - je to nekolik na sobe nezavislych
programu avsak spolecne tvori jeden IS.
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: Wednesday, June 07, 2000 8:15 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Paradox - dik
>
>
> On 5 Jun 2000, at 9:47, Milan Tomes wrote:
>
> > Ja bych se tomu take nebranil, ale znate to - vedeni firmy se brani
> > co muze. Jedna se o to, ze ja nemuzu vyvijet aplikaci 3/4 roku,
> > protoze to neni jedina aplikace. Mam ted na starost cca 10 aplikaci
> > a nektere jsou skutecne dost analyticky a metodicky rozsahle a
> > narocne a podlehaji legislativnim zmenam, takze bych musel prechazet
> > z Delphi zpet do Paradoxu atd...
>
> Neznam. :-)) Ja sam jsem vedeni firmy. :-)
> Jde o to poradne propocitat (a pak to umet zduvodnit), co je
> levnejsi - zda cim dal tim problematictejsi udrzba stareho projektu,
> nebo to napsat znovu, nad jinou databazi, v jinem prostredi atp. Ale
> to u tvych projektu takhle na dalku nepoznam, to muze byt u
> kazdeho
> pripadu jine.
>
> Nekdy muze "nove napsani" byt i to, ze se pouzije maximum
> vnitrniho kodu, ktery je dobre odladeny a osvedcil se, ale napise se
> znovu uzivatelske rozhrani (coz by nepochybne byl pripad
> prechodu z
> Paradoxu do Delphi) a databazove rozhrani. A samozrejme se zvoli
> takove usporadani, aby se zjednodusila dalsi udrzba.
>
> > > -----Original Message-----
>
> > > Mno - unahleny... Zalezi na okolnostech. Ja to tak delam "bezne",
> > > zrovna ted jsem dokoncil novou verzi jednoho velkeho projektu,
> > > ktery
>
>
> 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
TMenuEditor
[*] Honza <delphi(zv)mis-net(tec)cz> - 7.6.2000 11:08:49
Diky za pomoc.
Jiste je to to spravne funkci reseni ktere potrebuji, zacoz jsem vdecen.
ale
Zapomel jsem napsat, ze mam jenom D3
a trida TDesignerSelectionList me jaksi schazi.
Takze se velice omlouvam a prosim o drobnou radu nebo poslani deklarace teto
tridy kterou bych tam pripadne celou vlozil .... mam D3 a porebuji
funkcnost na W95, W98, NT, W2000.
predem dekuji
......Honza
>unit MenuCompEdit;
>
>interface
>
>uses
> Windows, SysUtils, Classes, Menus;
>
>procedure Register;
>
>implementation
>
>uses
> DsgnIntf, TypInfo;
>
>type
> TMyMenuComponentEditor = class(TComponentEditor)
> private
> procedure EnumPropEditors(Prop: TPropertyEditor);
> public
> procedure ExecuteVerb(Index: Integer); override;
> function GetVerb(Index: Integer): string; override;
> function GetVerbCount: Integer; override;
> end;
>
>{ TMyMenuComponentEditor }
>
>procedure TMyMenuComponentEditor.EnumPropEditors(Prop: TPropertyEditor);
>begin
> if Prop.GetPropType^.Name = 'TMenuItem' then Prop.Edit;
>end;
>
>procedure TMyMenuComponentEditor.ExecuteVerb(Index: Integer);
>var
> CompList: TDesignerSelectionList;
> Item: TMenuItem;
>begin
> case Index of
> 0: begin
> CompList := TDesignerSelectionList.Create;
> try
> CompList.Add(Component);
> GetComponentProperties(CompList, [tkClass], Designer,
EnumPropEditors);
> finally
> CompList.Free;
> end;
> end;
> 1: begin
> Item := TMenuItem.Create(Component);
> Item.Caption := 'Item ...';
> (Component as TMenu).Items.Add(Item);
> Designer.Modified;
> end;
> end;
>end;
>
>function TMyMenuComponentEditor.GetVerb(Index: Integer): string;
>begin
> case Index of
> 0: Result := 'Menu designer';
> 1: Result := 'Add an item';
> end;
>end;
>
>function TMyMenuComponentEditor.GetVerbCount: Integer;
>begin
> Result := 2;
>end;
>
>procedure Register;
>begin
> RegisterComponentEditor(TPopupMenu, TMyMenuComponentEditor);
>end;
>
>Petr Vones, amatersky programator
>OT: Mail server
[*] Pavel �ern� - 07.6.2000 11:12:46
Ne vzdy je idelani prave to, co je zadarmo.
Existuje 602Messaging server, coz je ceske reseni na velmi slusne
technicke urovni. Bohuzel mnoho lidi si predstavuje ze 602 je jen
prastary DOSovsky textak. Ale dnesni produkty teto firmy jsou
velmi zajimave. A ceske.
Dost jsme jich nainstalovali, v pripade blizsiho zajmu se na me
obratte na soukromy email nebo telefon.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
>>> <pcb(zv)atlas(tec)cz> 6.6.2000 16:00:56 >>>
Haj hou!
On 6 Jun 2000, at 13:10, Foldyna Ji ! wrote:
> omlouvam se OT, ale hledame nahradu MS Exchange pro nasi firmu. Pokud
> byste nekdo mel tip (do 100 schranek, pod W$ nebo Linuxem), prosim
> dejte mi vedet. Diky.
Podivej se na http://www.pmail.com/ na Mercury (Novell, WinNT). Velmi dobry
produkt a je zadarmo.
"Mercury Mail Transport System: Mercury is a free, standards-based mail
server solution, providing comprehensive, fast server support for all major
Internet e-mail protocols. It is supplied in two versions, one hosted on Windows
systems, the other running as a set of NLMs on Novell NetWare file servers."
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.
aplikace pro MS SQL 7
[*] Robert Kindl <rob(zv)exec(tec)cz> - 7.6.2000 11:26:00
> > > 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.
>
> V tom pripade blahopreji k Tve zodpovednosti :-).
>
> Nechci polemizovat, to nema s programovanim nic spolecneho.
> Ale existuje mnoho chvil, ktere jsou na toto haklive.
> Jdu na obed.
> Mam necekany pohovor se sefem.
> Pustim pres noc nejaky narocny import dat nebo nejaky slozity vypocet.
Ja tedy pouzivam NTWorkstation a funkci "Lock Workstation".
Ta se da vyvolat prakticky kdykoliv na stisk Ctrl+Alt+Delete a Enter.
Tim je stanice uzamcena behem 2 sekund...
Pritom jakakoliv dlouhodoba uloha bezi dale...
Odemknout stanici mohu ja a adminstrator coz jsem take ja :-).
Tak kde je problem?
Existuje snad nejaky podvodny zpusob jak takovou stanici odemknout?
Pokud ano, rad bych ho znal...
Rob
Locate na vice fieldu
[*] Pavel �ern� - 07.6.2000 11:27:01
Prosim o radu s funkci LOCATE.
Jak funguje pro vice sloupcu ?
Lze pomoci ni napr najit zaznam kde
ICO = '12345678' and CISLO = 253 ?
Pokud ano, jakou formou predat parametry ?
Diky za odpoved predem.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
CPU meridlo
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 7.6.2000 11:45:04
Nazdar,
rad bych trosku polemizoval o CPU mericich.
Potrebuji napsat merak CPU. Ve Win9x to resim periodickym
ctenim registru. Neni to spatne, ale na nekterych PC a to jen nekdy
je procesor na 100% i kdyz evidentne nic nebezi. Po par minutach
ho to obcas prestane bavit. Jeste horsi je situace ve WinNT. Tam se
ten samy merak vubec nechyta (lepe receno jeho odchylka od
Spravce uloh a jeho meraku je velmi vyrazna).
Zkousel jsem navazat merak CPU na casovac 100ms a sledoval
o kolik % je odchylka oproti casu merenem z presneho registru
Pentium CPU. Ale to se taky nesetkalo s velkou odezvou.
Ma nekdo napad jak realizovat dobry merak, funkcni ve vsech
verzich Windows a pravdive zobrazujicich vyuziti procesoru
nebo lepe zatizeni systemu.
Ne takoveho, ktery pri pohybu mysi automaticky dava 100.
Martin
TButton a caption na vice radku
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.6.2000 11:46:20
Ahoj,
u TBitBtn, kdyz chci Caption na vice radku, jsem pouzival toto:
BitBtn1.Caption := 'Prvni'#10'Druhy';
U TButton to ale nefunguje a misto odradkovani to vlozi paznak.
Cim to je? Da se vubec nejak u TButton dosahnout viceradkoveho
textu?
Dik
David
Locate na vice fieldu
[*] iturcan(zv)gamo.sk - 7.6.2000 11:54:50
nizsie uvedene j z helpu delphi , Locate pouzite podla toho
Ivan Turcan
-----------------------------------------------------------------------------------------------------------------------------------------------------
Searches the dataset for a specified record and makes that record the
current record.
function Locate(const KeyFields: String; const KeyValues: Variant; Options:
TLocateOptions): Boolean;
Description
Call Locate to search a dataset for a specific record and position the
cursor on it.
KeyFields is a string containing a semicolon-delimited list of field names
on which to search.
KeyValues is a variant array containing the values to match in the key
fields. If KeyFields lists a single field, KeyValues specifies the value
for that field on the desired record. To specify multiple search values,
pass a variant array as KeyValues, or construct a variant array on the fly
using the VarArrayOf routine. For example:
with CustTable do
Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P',
'408-431-1000']), [loPartialKey]);
Options is a set that optionally specifies additional search latitude when
searching on string fields. If Options contains the loCaseInsensitive
setting, then Locate ignores case when matching fields. If Options contains
the loPartialKey setting, then Locate allows partial-string matching on
strings in KeyValues. If Options is an empty set, or if the KeyFields
property does not include any string fields, Options is ignored.
Locate returns True if it finds a matching record, and makes that record
the current one. Otherwise Locate returns False.
Locate uses the fastest possible method to locate matching records. If the
search fields in KeyFields are indexed and the index is compatible with the
specified search options, Locate uses the index. Otherwise Locate creates a
filter for the search.Locate na vice fieldu
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.6.2000 12:12:37
function Locate(const KeyFields: string; const KeyValues: Variant; Options:
TLocateOptions): Boolean; virtual;
Description
This function returns False, indicating that a matching record was not
found and the cursor is not repositioned.
Descendant classes override this method so that it locates the record where
the fields identified by the comma-delimited string KeyFields have the
values specified by the Variant or Variant array KeyValues. Options
indicates whether the search is case insensitive and whether partial
matches are supported. Locate should return True if a record is found that
matches the specified criteria and the cursor repositioned to that record. Slavek
> -----Puvodni zprava-----
> Od: Pavel Eerny [SMTP:cerny(zv)cerny-ps(tec)cz]
> Odeslano: 7. eervna 2000 11:27
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Locate na vice fieldu
>
> Prosim o radu s funkci LOCATE.
>
> Jak funguje pro vice sloupcu ?
> Lze pomoci ni napr najit zaznam kde
>
> ICO = '12345678' and CISLO = 253 ?
>
> Pokud ano, jakou formou predat parametry ?
>
> Diky za odpoved predem.
>
> Pavel Eerny
> email: pavel(zv)cerny-ps(tec)cz
Posta
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 7.6.2000 12:31:31
Ahoj,
zkousel jsem to na svych W95 OSR2 a D4.
procedure TForm1.Button1Click(Sender: TObject);
begin
{do USES nutno zapsat "ShellAPI"}
ShellExecute(Handle, nil, PChar('mailto:strakaj(zv)hbnet(tec)cz?subject=Predmet
pokusneho mailu&body=Telo pokusneho mailu'), nil,nil, SW_SHOW );
end;
Ten druhy oddelovac (pred BODY) musi byt & a ne otaznik, jinak to nefunguje.
Poslat takto pripojeny soubor se mi nepodarilo.
Jeste jsou mozne podle MS i dalsi parametry CC (kopie) a DCC (skryta kopie),
ale take se mi to nepodarilo rozchodit.
Zat�m se mejte moc pekne.
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
>----- Original Message -----
> Zkus toto:
> ShellExecute("mailto:Milan.Tomes(zv)haida(tec)cz?subject=Pokusny mail?body=telo
> zpravy") Ty mezery tam mozna nebudou chodit takze je muzes zkusit nahradit
> znakem %20
> Milan Tomes
> > A je mozne takto (pomoci ShellExecute) poslat z meho programu do mailu i
> > predmet, text zpravy a popr. i pripojene soubory?
> > J. N�dhera
Locate na vice fieldu
[*] Ren� Otisk - 7.6.2000 12:31:43
Hi,
if Query1.Locate('ICO;Cislo',
VarArrayOf(['12345678', 253]), [loPartialKey, loCaseInsensitive]) then
Je to z me derave hlavy, zakze doufam, ze je to spravne...
Sroub
Prosim o radu s funkci LOCATE.
Jak funguje pro vice sloupcu ?
Lze pomoci ni napr najit zaznam kde
ICO = '12345678' and CISLO = 253 ?
Pokud ano, jakou formou predat parametry ?
Diky za odpoved predem.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Prehravac akci
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 7.6.2000 12:32:28
Neni to moc programatorske reseni, ale nestacilo by proste udelat nejake
video, kde by bylo videt jak se to dela ?
S pozdravem
Marek Soukup
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Jiri Novacek
> Odesl�no: 5. �ervna 2000 10:17
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Prehravac akci
>
>
> Ahoj lidi!
>
> Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
> Tutorial, ktery ukaze jak se ma s prislusnou aplikaci pracovat. Je mozne
> napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
> jinou aplikaci? Vyvola nabidku, vyplni editacni pole, stiskne tlacitko
> OK atd. Nic takoveho jsem zatim nikde nevidel.
>
> Dik predem za kazdou radu. Jirka
>Paradox - dik
[*] Ren� Otisk - 7.6.2000 12:49:45
Hi,
D3, MS SQL, ODBCe
Pridam trosku do mlyna. Delal jsem aplikace (dohromady 6 - tvori vlastne
taky IS) na bazi paradoxu pro nasi firmu, az se mi jednou bloklo nekolik
secondary indexu a byl jsem v haji (a uzivatele a data take). Pak jsem
jednou zkusil Client-Server databazi a ted si nedovedu predstavit navrat k
paradoxu, i kdyz na zacatku jsem skripal zubama jak se co dela a zaplatpanbu
za konferenci a lidi v ni. Ty aplikace z paradoxu jsem mel nastesti
postavene na TQuery a nerikam ze to slo hladce, ale odpadlo mi napriklad BDE
(grrr...) a mimochodem "temer co druhy den" natahovat data z nocnich zaloh.
Ziskal jsem rychlost, stabilitu, virtualni tabulky, bezpecnost (relativni -
nicmene proti Paradoxu tam narust je) a zadny uzivatel mi nemuze umazat ze
sdileneho disku soubor Paradox.lck, indexove, *.MB soubory apod. Za cely rok
jsem nezazil nejake hlasky Index is Out Of Date apod. (Sakra to je skoro
jako reklama...). Myslim, ze z hlediska udrzby dat a IS jsem casove na
nejakych 5-10% oproti puvodnimu vytizeni. Nicmene vzdycky bude zalezet na
typu projektu a casto na souhlasu vedeni firmy, pokus si clovek neveli sam.
Sroub
----- Original Message -----
From: Milan Tomes <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, June 07, 2000 10:48 AM
Subject: RE: Paradox - dik
> No jenomze tady nejde o jeden projekt - je to nekolik na sobe nezavislych
> programu avsak spolecne tvori jeden IS.
>
> 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: Wednesday, June 07, 2000 8:15 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: RE: Paradox - dik
> >
> >
> > On 5 Jun 2000, at 9:47, Milan Tomes wrote:
> >
> > > Ja bych se tomu take nebranil, ale znate to - vedeni firmy se brani
> > > co muze. Jedna se o to, ze ja nemuzu vyvijet aplikaci 3/4 roku,
> > > protoze to neni jedina aplikace. Mam ted na starost cca 10 aplikaci
> > > a nektere jsou skutecne dost analyticky a metodicky rozsahle a
> > > narocne a podlehaji legislativnim zmenam, takze bych musel prechazet
> > > z Delphi zpet do Paradoxu atd...
> >
> > Neznam. :-)) Ja sam jsem vedeni firmy. :-)
> > Jde o to poradne propocitat (a pak to umet zduvodnit), co je
> > levnejsi - zda cim dal tim problematictejsi udrzba stareho projektu,
> > nebo to napsat znovu, nad jinou databazi, v jinem prostredi atp. Ale
> > to u tvych projektu takhle na dalku nepoznam, to muze byt u
> > kazdeho
> > pripadu jine.
> >
> > Nekdy muze "nove napsani" byt i to, ze se pouzije maximum
> > vnitrniho kodu, ktery je dobre odladeny a osvedcil se, ale napise se
> > znovu uzivatelske rozhrani (coz by nepochybne byl pripad
> > prechodu z
> > Paradoxu do Delphi) a databazove rozhrani. A samozrejme se zvoli
> > takove usporadani, aby se zjednodusila dalsi udrzba.
> >
> > > > -----Original Message-----
> >
> > > > Mno - unahleny... Zalezi na okolnostech. Ja to tak delam "bezne",
> > > > zrovna ted jsem dokoncil novou verzi jednoho velkeho projektu,
> > > > ktery
> >
> >
> > 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
aplikace pro MS SQL 7
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 7.6.2000 13:04:56
ahoj,
mam prihlasovani primo v aplikaci (neni to SQL).
proste jem kod a heslo, aby se vedelo kdo co po**al.
rano pusti program a odpoledne ukonci...
zadne odhlasovani/prihlasovani behem dne se nekona... :(
proste zbytecna prace...
> Jiste, ale... Ty muzes byt zodpovedny a poctive se odhlasovat, ale
> jak k tomu dokopes zakaznika? Rekl bych obecne, ze to dopadne
> asi takhle:
> - zakaznikovi se preda verze s NT autentikaci a vysvetli se mu,
> ze zabezpeceni spociva v tom, ze si vsichni zamestnanci budou pri
> kazdem odbehnuti zamykat pocitac (zjednodusene).
> - zakaznik to akceptuje, ale po nejake dobe se ozve s tim, ze
> nedokaze zamestnance primet k tomu, aby to delali dusledne,
> zvlaste v pripade, kdy aplikaci pouziva nejaka sekretarka (holky
> prominou). Vetsina "nepocitacovych" zamestnancu to bude
> pokladat za zbytecnou buzeraci, kterou nebude delat. "Vzdyt se
> tady prece vsichni zname" apod.
> - v dusledku toho bude zakaznik pozadovat dalsi stupen
> zabezpeceni (napr. heslem) pri kazdem spusteni aplikace, takze
> NT autentikaci odhodime a hledame jiny zpusob, protoze
> zakaznikovi je treba vyhovet.
>
> Nebo ma nekdo jine zkusenosti?
>
> David
Optimalizace kodu v Delphi (link)
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 7.6.2000 13:12:06
nechapu proc by mel byt naivni?
imho nic nebrani tomu neco takoveho napsat.
akorat ze optimalizace *.pas je ponekud slozitejsi nez optimalizace
nejakeho asm...
> -----Original Message-----
> From: Ladislav Dole3el" [mailto:dodo(zv)centrum(tec)cz]
> Sent: Sunday, June 04, 2000 7:36 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Optimalizace kodu v Delphi (link)
>
>
> No tak to jsi docela naivni :-))
>
>
> ______________________________________________________________
> > Od: "Hurricane" <hurricane(zv)email(tec)cz>
> > Komu: <delphi-l(zv)fwd(tec)cz>
> > CC:
> > Datum: Sun, 4 Jun 2000 13:55:28 +0200
> > Predmet: Re: Optimalizace kodu v Delphi (link)
> >
> > Zdravim
> >
> > Uz chapu, ja sem cekal nejakej programek, kterym prozenu
> muj zdrojak a on
> > neco vyplivne. Kazdopadne dekuji.
dekuji peca
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
******* Hi! I'm a signature virus. Copy me into your signature, please.
*******
The signature virus says: Love isn't only blind, it's also deaf, dumb,
and stupid.Tisk na tiskarne na com portu
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 07.6.2000 07:15:37 -0400
Cau
Nemel by byt problem tisknout na tiskarne na comportu. Mel by ses podivat na stranku vyrobce a tam sehnat programovy manual. Manual je volne ke stazeni a podle nej si ten program udelas. Zdrojak k jine tiskarne ti bude knicemu, protoze sem se jeste nesetkal stim, aby dve seriove tiskarny meli stejnou syntaxi posilani dat.
Ladap
>>> veselyt(zv)atlas(tec)cz 4.6.00 11:51 >>>
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
CPU meridlo
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.6.2000 13:20:18
J abych to resil jako THread s nejnissi moznou prioritou a meril cas CPU a
celkovy cas behu. No a pro pripad vice CPU bych tech THreadu udelel
tak 8 (16). a hodnoty casu procesu bych scital.
Ve WinNT tim prevezmes cas Necinnych procesu.
Ma jednu nevyhodu, zvysuje to odber energie a to dost podstatne.
Vyuziti CPU=(Celkovy cas-(cas threadu/pocet CPU))/(celkovy cas)
Slavek
> -----Puvodni zprava-----
> Od: Martin Nedopil [SMTP:nedopil(zv)eskon(tec)cz]
> Odeslano: 7. eervna 2000 11:45
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: CPU meridlo
>
>
> Nazdar,
>
> rad bych trosku polemizoval o CPU mericich.
>
> Potrebuji napsat merak CPU. Ve Win9x to resim periodickym
> ctenim registru. Neni to spatne, ale na nekterych PC a to jen nekdy
> je procesor na 100% i kdyz evidentne nic nebezi. Po par minutach
> ho to obcas prestane bavit. Jeste horsi je situace ve WinNT. Tam se
> ten samy merak vubec nechyta (lepe receno jeho odchylka od
> Spravce uloh a jeho meraku je velmi vyrazna).
>
> Zkousel jsem navazat merak CPU na casovac 100ms a sledoval
> o kolik % je odchylka oproti casu merenem z presneho registru
> Pentium CPU. Ale to se taky nesetkalo s velkou odezvou.
>
> Ma nekdo napad jak realizovat dobry merak, funkcni ve vsech
> verzich Windows a pravdive zobrazujicich vyuziti procesoru
> nebo lepe zatizeni systemu.
> Ne takoveho, ktery pri pohybu mysi automaticky dava 100.
>
> Martin
>
>
> Cas prideleni IP adresy DHCP serverem
[*] martin.falta(zv)atlas(tec)cz - 7.6.2000 13:21:02
Ahoj,
nevedel by nekdo z vas o nejake fci, kterou lze z DHCP serveru zjistit v kolik hodin byla urcite stanici pridelena IP adresa?
Predem vsem dekuji.
D5 Std., WinNT SP4
Martin
aplikace pro MS SQL 7
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 7.6.2000 13:22:45
> > Nechci polemizovat, to nema s programovanim nic spolecneho.
> > Ale existuje mnoho chvil, ktere jsou na toto haklive.
> > Jdu na obed.
> > Mam necekany pohovor se sefem.
> > Pustim pres noc nejaky narocny import dat nebo nejaky slozity vypocet.
>
> Ja tedy pouzivam NTWorkstation a funkci "Lock Workstation".
> Ta se da vyvolat prakticky kdykoliv na stisk Ctrl+Alt+Delete a Enter.
> Tim je stanice uzamcena behem 2 sekund...
> Pritom jakakoliv dlouhodoba uloha bezi dale...
> Odemknout stanici mohu ja a adminstrator coz jsem take ja :-).
> Tak kde je problem?
> Existuje snad nejaky podvodny zpusob jak takovou stanici odemknout?
Ano.
Existuje program, ktery monitoruje sit a posleze rozlouskne hesla uzivatelu.
(tzn. ze sveho PC jsem schopen zjistit hesla vsech uzivatelu, kteri
pracovali na siti; logovali se; pripojovali sitove disky atd.)
Znam pripad, kdy pracovnikovi ktery si odskocil na obed a lock-nul PC,
kolegove zmenili jeho heslo a PC opet lock-nuli. Ten se pak nestacil divit,
kdyz se vratil a nemohl se prihlasit.
Chtel jsem tim jen naznacit, ze pokud si udelam vlastni ochranu (i slabou),
najde se malo lidi, kteri se budou snazit o prolomeni (natoz schopnych). Ale
na MS si kazdy rad smlsne a jeste to s humbukem zverejni. U algoritmu
pouzitych v produktech MS je to vzdy jen otazka casu.
Petr Smol�k
psmolik(zv)fides(tec)cz
Posta
[*] Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz> - 7.6.2000 13:42:00
Slab�, Petr (Pilsen), 07.06.2000 13:22:37
Radim Brozek wrote:
> ... ShellExecute("mailto:Milan.Tomes(zv)haida(tec)cz?subject=Pokusny mail?body=telozpravy")
>
> A jeste jeden problem. Delka retezce je omezena, tusim na 128 nebo 256 znaku. Tzn. ze dlouhe body tam
> nedostanete. Klient ( alespon MS Outlook 97 ) potom zahlasi, ze nelze otevrit.
Ahoj,
da se to obejit tim, ze nepouzijes ShellExecute, ale sam si prectes registry a udelas to same co ShellExecute pomoci CreateProcess. Je ale treba pocitat s postranimy efekty, nektery klient napriklad muze pro ShellExecute pouzivat DDE. Skoda, ze Windows nejsou Open Source, dalo by se ukrast (ADMIN promine, to bylo nevhodne slovo) ^H^H^H^H vypujcit si ShellExecute a jenom ho upravit aby fungovalo i s nazvy souboru delsimi nez 256 znaku.
I kdyz ale tohle vsechno uspokojive vyresis, je tu jeste problem s tim, ze ne vsichni klienti chapou rozsirenou notaci v mailto. Kuprikladu Outlook nainstalovany s Office 97 (aspon myslim, ze to byl on) nacpal pri testech vsechny parametry do adresy prijemce.
Best regards,
PS.
======================================================================== Softwarova firma se zahranicni ucasti a sidlem v Plzni hleda programatory Delphi, C a Java. Znalost nemciny nebo anglictiny podminkou. Vice o nas na www.kadel(tec)cz, pripadne se ozvete na kadelds(zv)kadel(tec)cz.
{ ******************************************************************** }
procedure SendAsEMail(const sSubject, sText: string);
var
sPgm, sMessage: string;
sPgmExp: array [0..255] of char;
aStartUpInfo : TStartUpInfo;
aProcessInformation : TProcessInformation;
aRegistry: TRegistry;
iPos: integer;
begin
aRegistry := TRegistry.Create;
try
aRegistry.RootKey := HKEY_CLASSES_ROOT;
if not aRegistry.OpenKeyReadOnly('\mailto\shell\open\command') then
Raise ESendMailError.Create(ERR_SMREGISTRY, C_ERRSMREGISTRY);
sPgm := aRegistry.ReadString('');
if sPgm = '' then
Raise ESendMailError.Create(ERR_SMNOCLIENT, C_ERRSMNOCLIENT);
finally
aRegistry.Free;
end; sMessage := 'mailto:?';
sMessage := sMessage + 'subject=' + PrepareText(sSubject);
sMessage := sMessage + '&body=' + PrepareText(sText);
FillChar (aStartUpInfo,sizeof(aStartUpInfo),#0);
FillChar (aProcessInformation,sizeof(aProcessInformation),#0);
aStartUpInfo.cb := sizeof(aStartUpInfo);
ExpandEnvironmentStrings(PChar(sPgm), sPgmExp, 255);
sPgm := sPgmExp;
iPos := Pos('%1', sPgm);
if iPos > 0 then
begin
Delete(sPgm, iPos, 2);
Insert(sMessage, sPgm, iPos);
end else begin
sPgm := sPgm + ' ' + sMessage;
end;
CreateProcess(NIL, PChar(sPgm), NIL, NIL, FALSE, 0, NIL, NIL, aStartUpInfo, aProcessInformation);
end;
{ ******************************************************************** }
function PrepareText(const s: string): string;
var
i, iLen: integer;
begin
iLen := Length(s);
Result := '';
for i := 1 to iLen do
case s[i] of
#0..#9, #11, #12, #14 .. ' ': Result := Result + '%20';
#13: Result := Result + '%0D';
#10: Result := Result + '%0A';
else Result := Result + s[i];
end;
end;
Prehravac akci
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 7.6.2000 14:08:37
To co tady pise Hurricane nemusi byt strasna prace - existuje freeware
komponenta ktera to umi nahrat. Myslim ze je na tehle adrese
http://www.cyamon.com
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: Tuesday, June 06, 2000 10:56 PM
Subject: Re: Prehravac akci
> Zdravim
>
> Me napadlo mozna jine reseni. Zkus nejak presne nastavit umisteni te
> aplikace (top 0, Left 0, Width 800, Height 600) a potom pomoci WIN fci
> hejbej s mysi a posilej windlim zpravy jako ze si kliknul misi. Byla by to
> sice silena prace psat vsechny t ysouradnice, ale mozna je to dobry napad.
>
> Hurricane
> ----- Original Message -----
>
> > > Mam tento zajimavy problem. Chci u sveho programu mit neco jaku
> > > Tutorial, ktery ukaze jak se ma s prislusnou aplikaci pracovat. Je
mozne
> > > napsat aplikaci, ktera podle nejakeho "scenare" bude provadet akce s
> > > jinou aplikaci? Vyvola nabidku, vyplni editacni pole, stiskne tlacitko
> > > OK atd. Nic takoveho jsem zatim nikde nevidel.
> > >
> > Cau!
> > Principialne by som to riesil takto:
> > Zistim handle pozadovanej aplikacie.
> > Potom posielam cez SendMessage alebo PostMessage potrebne spravy
> > aplikacii.
> > Spravy mysi som este nerobil, takze neviem.
> > Ale uz sa nieco podobne preberalo v konferencii, takze skus pozriet
> > v archive.
> >
> > Priklad:
> > file://zistim handle aplikacie
> > ghwnd = FindWindow("#32770","");
> > file://poslem stlacenie klavesy Enter
> > PostMessage(ghwnd,WM_KEYDOWN ,VK_RETURN ,0);
> > PostMessage(ghwnd,WM_KEYUP ,VK_RETURN ,0);
> >
> > /LH
> >
> >
>
>
Clip vo Win98
[*] J�n Grman�������e���zW��ۛg�$ - 7.6.2000 14:09:24
D5Ent.
Ahoj.
Kod ktory uvadzam na konci je volany napriklad 5 krat na stranku, pricom
_RegionRect vlastne definuje postupne 5 obdlznikov (ide o pruzky tlacovej
zostavy).
Tieto obdlzniky mozu presahovat sirku strany ci pozadovanu vysku pruzku,
preto sa obdlzniky upravuju na mensie a cielom je vykreslit obsah EMF soboru
tak aby sa zobrazila len tato zmensena cast.
Na WinNT to ako uz byva zvykom ide bez problemov.
Na Win98 (na Win95 som neskusal) vsak vykresli len prvy obdlznik na strane,
dalsie uz nie !
Tvari sa to tak, akoby sa nepodarilo zrusit klipovanie na oblast prveho
obdlznika.
PORADTE PROSIM !
Vdaka.
JaNo.
{daj rozmery kreslenej oblasti}
_RegionRect := EMFHeader.rclBounds;
{uprav rozmery na specifikovanu sirku a vysku - v zasade sa hodnoty Bottom a
Right znizia }
_RegionRect.Bottom := _RegionRect.Top + _PartHeight;
_RegionRect.Right := _RegionRect.Left + _PartWidth;
{neprekroc rozmery stranky}
if _RegionRect.Bottom > FPageProps.PixelsY then
_RegionRect.Bottom := FPageProps.PixelsY;
if _RegionRect.Right > FPageProps.PixelsX then
_RegionRect.Right := FPageProps.PixelsX;
{ vytvor region pre Clip a nastav ho }
_Region := CreateRectRgn(0, 0, _RegionRect.Right, _RegionRect.Bottom);
file://_RegionRect.Left, _RegionRect.Top
ExtSelectClipRgn(FPageDC, _Region, RGN_COPY);
{ prehraj EMF subor na Device context}
PlayEnhMetaFile(FPageDC, EMFData, EMFHeader.rclBounds);
{ nastav region na ziadny }
ExtSelectClipRgn(FPageDC, 0, RGN_COPY)
{ odstran region z GDI }
DeleteObject(_Region);aplikace pro MS SQL 7
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.6.2000 14:12:38
> -----P�vodn� zpr�va-----
> Od: Petr Smol�k [mailto:psmolik(zv)fides(tec)cz]
> Odesl�no: 7. �ervna 2000 13:23
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: aplikace pro MS SQL 7
>
>
> > > Nechci polemizovat, to nema s programovanim nic spolecneho.
> > > Ale existuje mnoho chvil, ktere jsou na toto haklive.
> > > Jdu na obed.
> > > Mam necekany pohovor se sefem.
> > > Pustim pres noc nejaky narocny import dat nebo nejaky
> slozity vypocet.
> >
> > Ja tedy pouzivam NTWorkstation a funkci "Lock Workstation".
> > Ta se da vyvolat prakticky kdykoliv na stisk
> Ctrl+Alt+Delete a Enter.
> > Tim je stanice uzamcena behem 2 sekund...
> > Pritom jakakoliv dlouhodoba uloha bezi dale...
> > Odemknout stanici mohu ja a adminstrator coz jsem take ja :-).
> > Tak kde je problem?
> > Existuje snad nejaky podvodny zpusob jak takovou stanici odemknout?
>
> Ano.
> Existuje program, ktery monitoruje sit a posleze rozlouskne
> hesla uzivatelu.
Existuje spousta zlocineckych programu, jiste. Kdo je ale povoli spustit,
ha?
Chyba je na strane firmy, ktera povoluje svym zamestnancum delat takove
veci.
BTW - existuje taky program, ktery umoznuje logovat vytukane klavesy
(a tim primo zjistit natukane heslo v aplikaci, ktera nepouziva NTLM
autentikaci,
ale jmeno s heslem...)
A co treba - kdyz ti kolega da nuz na krk, tak mu reknes svoje heslo sam a
rad.
Myslis, ze je to duvod zahodit moznost zadavat jmeno a heslo a reagovat
pouze na snimani otisku palce? Myslim ze to jsou argumenty tak na stejne
urovni.
> (tzn. ze sveho PC jsem schopen zjistit hesla vsech uzivatelu, kteri
> pracovali na siti; logovali se; pripojovali sitove disky atd.)
>
> Znam pripad, kdy pracovnikovi ktery si odskocil na obed a lock-nul PC,
> kolegove zmenili jeho heslo a PC opet lock-nuli. Ten se pak
> nestacil divit,
> kdyz se vratil a nemohl se prihlasit.
> Chtel jsem tim jen naznacit, ze pokud si udelam vlastni
> ochranu (i slabou),
> najde se malo lidi, kteri se budou snazit o prolomeni (natoz
> schopnych). Ale
Protoze jim asi nestoji mrhat prostredky bez vidiny zisku.
Delal bys vlastni slabou ochranu treba do Komercni banky?
Asi tezko.
> na MS si kazdy rad smlsne a jeste to s humbukem zverejni. U algoritmu
> pouzitych v produktech MS je to vzdy jen otazka casu.
???
A co treba sifrovaci technologie? Ty se take pouzivaji v produktech MS
a jsou to pritom verejne algoritmy. A pritom jsou (teda prave proto)
bezpecnejsi
nez jakykoliv algoritmus, jehoz bezpecnost je primo zavisla na jeho utajeni.
Jura
Restart Win98 z programu
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 07.6.2000 14:13:31
Mrkni na API fci ExitWindowsEx
______________________________________________________________
> Od: "Kuzelka Filip" <kuzelka(zv)access-it(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Wed, 07 Jun 2000 11:14:54 -0400
> P�edm�t: Restart Win98 z programu
>
> Zdrav�m,
> cht�l bych se touto cestou zeptat, zda nev�te, jak�m zp�sobem
> se d� restarovat Win z programu.
>
> Filip Ku�elka
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
MSSQL7 a sp_password
[*] Ren� Otisk - 7.6.2000 14:14:03
Hi,
D3, MS SQL7, ODBCe
Mam nasledujici problem. Jsem v aplikaci kterou mam napojenou na databazi MS
SQL serveru. Kazdy uzivatel si muze zmenit sve heslo (pomoci sp_password),
ale jenom poprve. Pak mi to zarve, ze "login failed for user 'tralala'". A
uzivatel jest v troube. Pomuze jen zavrit aplikaci a znovu spustit (s
pouzitim noveho hesla), nebo dat Database.Close a znovu se nalogovat, coz ma
misty dost velkou rezii. Nevite nekdo co s tim? Jo, ten dialog na zmenu
hesla a tu procedurku, ktera tak cini mam v dll...
Sroub
Rychlost InterBase
[*] Jaro <jaro(zv)sinea(tec)cz> - 7.6.2000 14:23:51
> Mam jeden dodaz k rychlosti InterBase. V databazi mam proceduru,
ktera
> provadi vypocet stavu konta lidi - trva cca 5 sec. Staci ale provest
backup,
> pak restore a ta sama procedura na stejnem pocitaci trva 1 minutu.
Jde o IB
> 5.6 na 6 beta se to chovalo stejne.
-----------
Hmm ... mas tam dobre indexy. Podivej se, aby polozky za WHERE byly
pokud
mozno indexovane.
>
> A druhy problem:
> V procedure mam SELECT ...... INTO :PARAMETR. Select ale vraci
zaznamu vice
> a konci to chybou (nelze pouzit WHERE - neznam presne podminku aby
se vratil
> jeden zaznam). Ma SELECT nejaky parametr aby vratil pouze jeden
zaznam?
----------
:) Ano ma - WHERE :) Jenze je to presne to, co uvadis, ze nelze
pouzit.
Zrejme bude potreba se zamyslet nad analyzou, protoze pokud
dostanes vice zaznamu
a pouze vysledek jednoho muze byt uplatnen pro INTO, pak podle
jakeho pravidla
zvolis ten spravny?
Pokud tedy dostanes vice zaznamu, jde vzdy o chybovy stav a muzes
snadno osetrit,
aby nevzniknul
Declare Variable Pocet intege
......
SELECT Count(*) FROM tabulka WHERE ...nepresna podminka ... INTO
Pocet
IF (Pocet = 1) THEN
BEGIN
SELECT ....WHERE ...nepresna podminka ... INTO :PARAMETR.
END
Pokud chces vybrat napr. vzdy prvni zaznam, pak je mozne udelat jeste
jednu proceduru
FOR SELECT, ktera provede SUSPEND jenom u prvniho zaznamu. Jmeno teto
procedury pouzejes Za selct misto tabulky, viz priklad
create procedure sel_tab1 (Pocet integer)
returns (, ID integer, DATUM date, DalsiPolozka char(30))
as
declare variable i integer;
begin
i = 0;
FOR SELECT ID, DATUM, DalsiPolozka , FROM Tabulka
INTO :ID, :DATUM, :DalsiPolozka
DO
BEGIN
i = i + 1;
if (i > Pocet ) then begin
suspend;
end
END
end
Pak to bude vypydat takto
SELECT * FROM sel_tab1(1) ....WHERE ...nepresna podminka ... INTO
:PARAMETR.
Vrati vzdy pouze prvni zaznam ze vsech vybranych
Jaro
---------------------------------------------------------
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC
>
> Diky
> Honza Seifert
>
Paradox - dik
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.6.2000 14:43:29
On 7 Jun 2000, at 9:42, Jaroslav Nadhera wrote:
> > Nekdy muze "nove napsani" byt i to, ze se pouzije maximum
> > vnitrniho kodu, ktery je dobre odladeny a osvedcil se, ale napise se
> > znovu uzivatelske rozhrani (coz by nepochybne byl pripad prechodu z
> > Paradoxu do Delphi) a databazove rozhrani. A samozrejme se zvoli
> > takove usporadani, aby se zjednodusila dalsi udrzba.
>
> Ono je tu jeste mnoho dalsich problemu. Jednak kdyz se zmeni
> uzivatelske rozhrani, na ktere jsou uzivatele zvykli, tak se s tim
> nekteri uzivatele nesmiri. Dale pokud se zmeni struktura dat, musi se
To je sice pravda, ale pokud se ti to podari zmenit k lepsimu, tak
mam zase zkusenosti, ze jini uzivatele to kvituji s povdekem.
Takze si vyber. :-)
> stara prevest. A pokud je to trochu slozitejsi aplikace tak se to
> urcite u nekoho (a pokud mozno u nejvzdalenejsiho uzivatele) nepovede.
To je take pravda, na druhe strane pokud tim vyresis bezpecnost
dat (coz pri prechodu z Paradoxu na SQL urcite ano), pak to stoji
za pripadne dilci trable. Protoze v dusledku spise usetris.
> A uplne novy program ma oproti zabehnutemu staremu urcite vic chyb.
> Nemam nic proti novym resenim (jiz jsme prechod na nove predelani
> aplikace absolvovali), jen chci podotknout, ze je nekde lepsi
> rozvazit, zda je stare reseni opravdu tak nevyhodne, nez se vrhnout do
> noveho technologicky skveleho reseni, ale prijit o polovinu zakazniku,
> kteri se s novym resenim nesmiri, protoze jim stare prece vyhovovalo a
> "kdyz ta firma porad meni program a ja se musim porad ucit neco
> noveho, tak si radsi koupim neco od nekoho, kdo to ma porad stejne".
:-) Ja netvrdim, ze by se mel program prepisovat kdykoliv znovu.
Ale pokud problemy se starou verzi prerustaji rozumnou mez, tedy
kdyz udrzba vychazi neumerne draho, je pak lepsi to napsat znovu
(a samozrejme lepe) i za vyse uvedenych rizik. Tak velke ztraty
zakazniku bych se urcite nebal, kdyz se jim to spravne poda, tak
jeste budou radi, ze je to jine (a samozrejme lepsi! :).
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
OLE DB, MSDE, Novell
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.6.2000 14:43:29
Ahoj all,
mate nekdo zkusenosti s nasledujicim?
Situace: sit Novell (obvykle 4.1), stanice vetsinou W95 a 98, nekdy i
2000. Na nejaky pocitac nainstaluji MSDE. Na stanice pak instaluji
obvykle (je-li to treba) MDAC a program. Program pristupuje primo k
OLE DB (situace by mela byt stejna jako pri pouziti ADO). MSDE
instaluji s podporou IPX/SPX, dale nastavim Cliconfg. Nastartuji
SQL Server.
Problem: program na stanici by mel umet najit pri prihlasovani SQL
Server. Na nekterem pocitaci se to povede, na nekterem ne, a to i v
ramci jedne site. Nevite nekdo, v cem by mohl byt zadrhel?
Pripadne mate odkaz na stranku, kde se o tom podrobneji pise?
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
aplikace pro MS SQL 7
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.6.2000 14:43:28
On 7 Jun 2000, at 10:27, Polak Jiri wrote:
> > - zakaznik to akceptuje, ale po nejake dobe se ozve s tim, ze
> > nedokaze zamestnance primet k tomu, aby to delali dusledne, zvlaste
> > v pripade, kdy aplikaci pouziva nejaka sekretarka (holky prominou).
> > Vetsina "nepocitacovych" zamestnancu to bude pokladat za zbytecnou
> > buzeraci, kterou nebude delat. "Vzdyt se tady prece vsichni zname"
> > apod. - v dusledku toho bude zakaznik pozadovat dalsi stupen
> > zabezpeceni (napr. heslem) pri kazdem spusteni aplikace, takze NT
> > autentikaci odhodime a hledame jiny zpusob, protoze zakaznikovi je
> > treba vyhovet.
> Zakaznikovi neni treba vyhovet. Jednou je dano na papire, co ma
> objednana aplikace delat a kdyz chce zakaznik zmenu, musi se
> s nim sepsat nova smlouva. A za dalsi zmeny si zaplati.
> Ovsem zalezi na tom, jestli jestli smlouva na zakazku obsahuje
> dobrou specifikaci pozadavku (a v nekterych ohledech by asi mela byt
> hodne podrobna, treba jakym zpusobem se bude overovat identita
> uzivatele:-). A jestli moje aplikace splnuje tyto pozadavky, neni
> duvod se zakaznikem nechat vydirat. V autosalonu taky nedostane
> zadarmo alarm, kdyz si ho predtim v novym aute neobjednal.
Myslim, ze problem spatne identifikujes. :-) Pokud muze program
pouzivat kdokoliv jiny, nez peclive zaskoleny inteligentni a
spolehlivy clovek (tedy kdyz s tim bude delat kdejaky BFU), je
lepsi rovnou postavit aplikaci tak, aby s tim byly co nejmensi
problemy hned od zacatku. Jinak se ti snadno stane, ze te uzivatel
nebude vydirat, ale prejde ke konkurenci, ktera ne ten problem
myslela lepe.
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
Optimalizace kodu v Delphi (link)
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 07.6.2000 15:41:08
Jde o to, co po tom chces. Jestli optimalizovat spatne ci
ledabyle napsane algoritmy, tak to smula. Ale jako optimalizovat
prelozeny kod, to by slo..
Dodo
______________________________________________________________
> Od: Petr Palicka <petr.palicka(zv)atlas(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> CC:
> Datum: Wed, 7 Jun 2000 13:12:06 +0200
> P�edm�t: RE: Optimalizace kodu v Delphi (link)
>
> nechapu proc by mel byt naivni?
> imho nic nebrani tomu neco takoveho napsat.
> akorat ze optimalizace *.pas je ponekud slozitejsi nez
optimalizace
> nejakeho asm...
>
> > -----Original Message-----
> > From: Ladislav Dole3el" [mailto:dodo(zv)centrum(tec)cz]
> > Sent: Sunday, June 04, 2000 7:36 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Optimalizace kodu v Delphi (link)
> >
> >
> > No tak to jsi docela naivni :-))
> >
> >
> > ______________________________________________________________
> > > Od: "Hurricane" <hurricane(zv)email(tec)cz>
> > > Komu: <delphi-l(zv)fwd(tec)cz>
> > > CC:
> > > Datum: Sun, 4 Jun 2000 13:55:28 +0200
> > > Predmet: Re: Optimalizace kodu v Delphi (link)
> > >
> > > Zdravim
> > >
> > > Uz chapu, ja sem cekal nejakej programek, kterym prozenu
> > muj zdrojak a on
> > > neco vyplivne. Kazdopadne dekuji.
>
> dekuji peca
>
> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
> |[smtp:petr.palicka(zv)atlas(tec)cz]|
> |[smtp:peca(zv)email(tec)cz] |
> \~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
> ******* Hi! I'm a signature virus. Copy me into your
signature, please.
> *******
> The signature virus says: Love isn't only blind, it's also
deaf, dumb,
> and stupid.
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz