Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
HWND aktivniho prvku
[*] pepek_007(zv)post(tec)cz - 16.3.2001 23:13:57
Dobry den,
chci vas pozadat o radu. Jakym zpusobem je mozne zjistit HWND aktivniho prvku (myslim tim prvku, ktery ma focus klavesnice - napr. Memo, Edit atp.)? Pritom HWND obecneho formulare, na kterem se hledany prvek nachazi, znam.
Uz si s tim marne lamu hlavu nekolik dni :-(
Predem mockrat diky za odpovedi.
Petr Pokorny
TGroupControl
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 16.3.2001 23:18:29
Neni. Samozrejme si seznam umim obnovit, pokud do nej vlezu. Ale pokud do
nej nevlezu, pak se mi neopravi. Pote spustim aplikaci a nastavim moji
komponente Enabled := false, takze by se vsechny komponenty v seznamu mely
nastavit take na Enabled := false. Protoze ale nejsou opravena jmena, je to
v keli.
Jan Skopovy
----- Original Message -----
From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 15, 2001 11:54 AM
Subject: Re: TGroupControl
> On 15 Mar 2001, at 1:21, Jan Skopov� wrote:
>
> > Zrejme to nebylo dost jasne. Proto to zkusim znovu.
> >
> > Chci si napsat nevisualni komponentu do ktere v design modu budu moci
> > vyjmenovat existujici komponenty na formulari. Tato moje komponenta
> > bude na zaklade nejakych podminek ridit "property Enable" komponent v
> > jejim seznamu.
> >
> > Do seznamu me nevisualni komponenty ulozim jmena techto komponent
> > ktere chci ridit. Pokud potom zmenim jmeno nejake z komponent
> > uvedenych v mem seznamu, nemam prostredek jak tuto zmenu jmena
> > zachytit a opravit toto jmeno v mem seznamu. Takze nebudu moci ridit
> > Enable komponenty se zmenenym jmenem, protoze ji nebudu umet najit.
>
> Aha, pak bych mel takovyto navrh: ihned po vytvoreni formulare si
> na zaklade toho seznamu vytvor druhy seznam, ktery bude
> obsahovat pointry na objekty, a s temi pracuj. Pak se zmena
> jmena za pochodu da odchytit. Patrne to ma fungovat pouze v
> design modu, v runtime modu pro to nejak nevidim vyuziti. Potom
> kdykoliv pri otevirani textoveho seznamu nebo pri ukladani (IMHO
> csWriting) bych zkusil textovy seznam obnovit podle aktualniho
> stavu (muze se i stat, ze nekterou komponentu programator zrusi,
> takze je treba i testovat, zda je komponenta dostupna).
>
> Je to ono?
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>TGroupControl
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 16.3.2001 23:20:27
Dobre, ale pokud do sveho seznamu nevlezu a neulozim jej, neprovede se prece
zapis ! A zapis jinych komponent opet neumim odchytit.
Jan Skopovy
----- Original Message -----
From: Milink Otakar <otam(zv)tdat(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 15, 2001 9:15 AM
Subject: RE: TGroupControl
>
> No ja bych na to sel asi jinak. Behem design time bych si pamatoval
> jen ukazatele a jmena bych zjistoval az tesne pred zapisem. Co jsem
> se tak zbezne dival na TComponent tak by snad slo pouzit virtualni
> metodu WriteState nebo DefineProperties z TPersistent. Snad Vam to
> pomuze...
>
> s pozdravem Otakar Milink
>
>
> > Zrejme to nebylo dost jasne. Proto to zkusim znovu.
> >
> > Chci si napsat nevisualni komponentu do ktere v design modu budu moci
> > vyjmenovat existujici komponenty na formulari. Tato moje
> > komponenta bude na
> > zaklade nejakych podminek ridit "property Enable" komponent v
> > jejim seznamu.
> >
> > Do seznamu me nevisualni komponenty ulozim jmena techto
> > komponent ktere chci
> > ridit. Pokud potom zmenim jmeno nejake z komponent uvedenych
> > v mem seznamu,
> > nemam prostredek jak tuto zmenu jmena zachytit a opravit toto
> > jmeno v mem
> > seznamu. Takze nebudu moci ridit Enable komponenty se zmenenym jmenem,
> > protoze ji nebudu umet najit.
> >
> > Umim odchytit zpravu, pokud nejakou komponentu zrusim, neumim
> > ale odchytit
> > zmenu jmena komponenty. Umim sice napsat dovnitr me
> > komponenty timer, ktery
> > neustale kontroluje, zda se nejake jmeno komponenty na
> > formulari nezmenilo a
> > podle pointeru jej opravit, ale je to prasarna. Po spusteni
> > je samozrejme
> > puvodni pointer na komponentu jiny, takze mam pro vyhledani
> > komponent k
> > dispozici pouze jejich jmena.
> >
> > Je to trochu jasnejsi ?
> >OT skladani PC
[*] Erik Salaj <winsoft(zv)napri.sk> - 16.3.2001 23:48:54
> mozna se budete divit ale uz jsem videl vyhorele PC - priskripnuty kabel
od
> zdroje
Teraz som si uvedomil, ze ani k digitalnym hodinkam, co mam na ruke
som nedostal ziadny certifikat. Co treba robit podla vyhlasky 50, az mi
tento elektronicky pristroj zacne horiet (resp. ako mam tomu zabranit)?
Kedze zariadenie je pod prudom, hasit vodou by som ho zrejme nemal.
;-)
Erik
Komponenty pro DB aplikace
[*] Erik Salaj <winsoft(zv)napri.sk> - 16.3.2001 23:49:23
> > Kedysi sa to volalo Paradox Engine a aj to bol engine pre Paradox
> > tabulky. Potom z toho urobili univerzalne (skoro) rozhranie a
> > premenovali to na BDE. Enginom sa obvykle mysli databazovy "stroj"
> > (napr. Jet Engine pre Access), kdezto BDE je skor databazove rozhranie
> > (podobne ako DAO, ADO, ODBC, atd.).
>
> V MSDN jsem nasel kapitolu s nazvem "ODBC Engine Settings", dale na
Nezabudni to aj precitat. Az tam najdes informaciu, ze ODBC
je databazovy engine, daj mi vediet. Tym jednoznacne potvrdis,
ze nemam pravdu.
> nekolika mistech spojeni "DAO engine".
Ano, strucne tak volaju DAO DBEngine objekt.
Erik
OT skladani PC
[*] Erik Salaj <winsoft(zv)napri.sk> - 16.3.2001 23:52:23
> A kdyz bys otevrel nektere vybrane modely IBM, tak bys zjistil, ze
> uvnitr pocitace je jediny vodic, a tim je dvojlinka k LED. Vsehno
Preco? Zabudli na neho?
Erik
Kniha o Delphi
[*] Jaroslav Antos <jara-slava(zv)seznam(tec)cz> - 17.3.2001 00:22:52
no mistrovstvi v delphi je ponekud tlusta kniha a jeste ma dalsi dily, ale po case clovek zjisti, ze je mu lito, ze to neni tlustci a jeste vic veci tam napsanych :-)
_____________________________________________________________________
WWW stranky zdarma na http://www.sweb(tec)cz
KonfView - RichEdit line insertion error.
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 17.3.2001 03:14:57
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
> Ahoj,
>
> me to dela taky, ale az na W2000, na W4NT to nedelalo. Me se tahle chyba
> objevi vetsinou hned po prohlizeni cca 5 zprav.
Hmmm.
Mne to obcas delalo na Win9x, od prechodu na W2000 se mi to nestalo....
Lud�k
IB inak ako ROOT
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 17.3.2001 06:49:25
> do teraz sme pouzivali InterBase iba v LAN. Za niekolko malo dni musime
> zpristupnit intratetovu aplikaciu cez internet. InterBase bude behat na
> servri pripojenom rpiamo do inetu. (intranet bezi na PHP+Apache) Vsetko
co
Obecne receno asi takto:
distribuce Firebird ma v sobe primo prikazy pro zmenu uzivatele, pod kterym
bezi,
krome toho to nastavi spravna prava na soubory serveru.
Samozrejme hesla kohokoliv musi byt neodhadnutelna, heslo sysdba zmeneno.
Dale je vhodne omezit nebo zakazat pomoci ipchains logovani do serveru ze
site,
uzivatelska hesla je mozne poopravit podle
http://www.volny(tec)cz/iprenosil/interbase/ .
Dalsi tipy (UDF, backdoor) jsou popsany na Firebirdu.
Krome toho samozrejme musi byt Linux nastaven tak, jak je pro internet
zvykem.
tj. zakazany telnet a spol., omezene FTP, nikdo se nesmi hlasit dovnitr,
root se hlasi SSH,
upgradovane distribuce atd.
Leos
TGroupControl
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 17.3.2001 10:02:01
Podle mne ti Zbysek radil dobre. Ja bych sel jeste dale.
Ja bych ti poradil, aby jsi zcela vynechal seznam nazvu a udrzoval
pouze seznam pointru na objekty. V tom pripade mas kdykoliv
aktualni seznam objektu a tim i jejich nazvu, aniz by jsi se
musel starat o to, zda jsou nebo nejsou prejmenovany.
Pokud seznam chces ukladat do property typu TStrings,
staci napsat procedurku, ktera ze seznamu objektu
vycte jejich nazvy a obracene.
Druhou moznosti reseni tohoto problemy by mohlo byt
pouziti TCollection a TCollectionItem. Pak se nemusis
starat ani o to vycitani nazvu.
Vaclav Krmela
From: "Jan Skopov�" <jsdelphi(zv)atlas(tec)cz>
> Neni.
> From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> >
> > Aha, pak bych mel takovyto navrh: ihned po vytvoreni formulare si
> > na zaklade toho seznamu vytvor druhy seznam, ktery bude
> > obsahovat pointry na objekty, a s temi pracuj. Pak se zmena
> > jmena za pochodu da odchytit. Patrne to ma fungovat pouze v
> > design modu, v runtime modu pro to nejak nevidim vyuziti. Potom
> > kdykoliv pri otevirani textoveho seznamu nebo pri ukladani (IMHO
> > csWriting) bych zkusil textovy seznam obnovit podle aktualniho
> > stavu (muze se i stat, ze nekterou komponentu programator zrusi,
> > takze je treba i testovat, zda je komponenta dostupna).
> >
> > Je to ono?
HWND aktivniho prvku
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 17.3.2001 11:54:31
On 16 Mar 2001, at 23:13, pepek_007(zv)post(tec)cz wrote:
> Dobry den,
> chci vas pozadat o radu. Jakym zpusobem je mozne zjistit HWND
> aktivniho prvku (myslim tim prvku, ktery ma focus klavesnice - napr.
> Memo, Edit atp.)? Pritom HWND obecneho formulare, na kterem se hledany
> prvek nachazi, znam. Uz si s tim marne lamu hlavu nekolik dni :-(
Ze by Form.ActiveControl.Handle?
Nebo GetFocus?
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT skladani PC
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 17.3.2001 14:57:18
Ahoj,
mam nedavnou zkusenost (necely mesic starou) s kontrolou
z COI. Pozadovali okamzite (!) predlozeni Prohlaseni o shode na
1. klavesnici Samsung (obycejnou PS/2)
2. GO sadu Eurotel
Cely mechanismus kolem prohlaseni o shode mi pripada
docela potenkinovsky a na dodavatele veskrze buzeracni.
Kontrolu nezajima, jestli SKUTECNE zarizeni vyhovuje,
ale JEN A POUZE, jestli to o nem nekdo prohlasil.
Takovemu caru papiru bych stejne neveril :-)
Za cele roky platnosti zakona to na nas pozadovali
celkem dvakrat, a to:
1) kontrola COI
2) kontrola COI
Zato nam oznamili, ze se chysta nejaky vetsi zatah
prave na tzv. VYROBCE PC (assemblery) v blizke dobe.
No - uvidime.
(COI=Ceska obchodni inspekce)
### Erik Salaj napsal dne 16 Mar 01, v 23:48 :
> > mozna se budete divit ale uz jsem videl vyhorele PC - priskripnuty
> > kabel
> od
> > zdroje
>
> Teraz som si uvedomil, ze ani k digitalnym hodinkam, co mam na ruke
> som nedostal ziadny certifikat. Co treba robit podla vyhlasky 50, az mi
> tento elektronicky pristroj zacne horiet (resp. ako mam tomu zabranit)?
> Kedze zariadenie je pod prudom, hasit vodou by som ho zrejme nemal. ;-)
>
> Erik
>
>
>
--
-----------------------------------------------
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
--
TGroupControl
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 17.3.2001 15:30:53
Tim tedy myslis, ze pointer na komponentu v desing je stejny jako pointer na
komponentu po spusteni aplikace ? To prece neni vubec pravda !
Jan Skopovy
----- Original Message -----
From: Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, March 17, 2001 10:02 AM
Subject: Re: TGroupControl
> Podle mne ti Zbysek radil dobre. Ja bych sel jeste dale.
> Ja bych ti poradil, aby jsi zcela vynechal seznam nazvu a udrzoval
> pouze seznam pointru na objekty. V tom pripade mas kdykoliv
> aktualni seznam objektu a tim i jejich nazvu, aniz by jsi se
> musel starat o to, zda jsou nebo nejsou prejmenovany.
> Pokud seznam chces ukladat do property typu TStrings,
> staci napsat procedurku, ktera ze seznamu objektu
> vycte jejich nazvy a obracene.
>
> Druhou moznosti reseni tohoto problemy by mohlo byt
> pouziti TCollection a TCollectionItem. Pak se nemusis
> starat ani o to vycitani nazvu.
>
> Vaclav Krmela
>
>
> From: "Jan Skopov�" <jsdelphi(zv)atlas(tec)cz>
> > Neni.
>
> > From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> > >
> > > Aha, pak bych mel takovyto navrh: ihned po vytvoreni formulare si
> > > na zaklade toho seznamu vytvor druhy seznam, ktery bude
> > > obsahovat pointry na objekty, a s temi pracuj. Pak se zmena
> > > jmena za pochodu da odchytit. Patrne to ma fungovat pouze v
> > > design modu, v runtime modu pro to nejak nevidim vyuziti. Potom
> > > kdykoliv pri otevirani textoveho seznamu nebo pri ukladani (IMHO
> > > csWriting) bych zkusil textovy seznam obnovit podle aktualniho
> > > stavu (muze se i stat, ze nekterou komponentu programator zrusi,
> > > takze je treba i testovat, zda je komponenta dostupna).
> > >
> > > Je to ono?
>
>Zastupce na liste
[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 17.3.2001 15:32:07
Hi,
mam dotaz. Jak vytvorim na liste (vedle tl. Start) nove tlacitko programu
(nebo jak se to jmenuje)?
Neco jako kdyz ve Windows Commanderu dam kopirovani na pozadi, vytvori se
toto tlacitko(toho kopirovani) na liste.
Diky moc.
Michal PEPR Pesek
Create table podle vzoru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 17.3.2001 15:41:11
Hi all,
potreboval bych poradit, jestlineexistuje nejaky zpusob, jak pomoci
SQL jazyka vytvorit novou tabulku, ktera by zdedila vsechny vlastnosti
z jiz existujici tabulky. Idealne by to melo byt nezavisle na typu
pouziteho SQL serveru.
Thx, pf
TGroupControl
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 17.3.2001 17:57:29
On 16 Mar 2001, at 23:18, Jan Skopov� wrote:
> Neni. Samozrejme si seznam umim obnovit, pokud do nej vlezu. Ale pokud
> do nej nevlezu, pak se mi neopravi. Pote spustim aplikaci a nastavim
> moji komponente Enabled := false, takze by se vsechny komponenty v
> seznamu mely nastavit take na Enabled := false. Protoze ale nejsou
> opravena jmena, je to v keli.
Podivej se tedy, jak ma TTable udelany seznam fieldu, a udelej to
podle toho. Pak ti odpadnou popsane problemy.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Instalace BDE s Inno Setupem v silent modu?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.3.2001 18:37:05
Jo, jenze ten "priblblej InstalShield" na to ma sablonu, takze
nespousti instalaci z Borlandackyho DLL, ale aktualizuje primo knihovny a
dela zapis do registru.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
16.03.2001 KadaneM(zv)sdc.pce.cdrail(tec)cz:
> Taky jsem se o tohle snazil, ale nepodarilo se me to.Nejak to ale musi jit
> kdyz to dovede priblblej InstalShield, jestli na to prijdes tak dej vedet.
> Cau Mirek
> -----Original Message-----
> From: Tomas Vladik [mailto:tom.vladik(zv)swadvice(tec)cz]
> Sent: Friday, March 16, 2001 2:47 PM
> To: Delphi-L(zv)Fwd.Cz
> Subject: Instalace BDE s Inno Setupem v silent modu?
> Ahojte,
> je mozne nejak docilit, bez pouziti regsvr32 /s (kteryzto na nekterych
> prehistorickych Win95 nejni), aby BdeInst.DLL nehodil takovou tu anglickou
> hlasku s dotazem na cestu pro instalaci BDE? Pripadne, slo by tu hlasku
> nejak pocestit???
> Dik za radu
> Tom
> _______________________________
> Tom�# Vlad�k
> vladik(zv)swadvice(tec)cz
> ICQ# 101763081
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
Create table podle vzoru
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 17.3.2001 19:47:41
zkus create table as select * from <tabulka>. Ale ma to omezeni (nevytvori
se mnohdy indexy a nektere veci z integrity). A ne kazdy server to podporuje
v plnem rozsahu. Ale na tech vetsich by to fungovat melo ... KER
----- P�vodn� zpr�va -----
Od: "Petr Fejfar" <development(zv)callnet(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 17. b�ezna 2001 15:41
P�edm�t: Create table podle vzoru
> Hi all,
>
> potreboval bych poradit, jestlineexistuje nejaky zpusob, jak pomoci
> SQL jazyka vytvorit novou tabulku, ktera by zdedila vsechny vlastnosti
> z jiz existujici tabulky. Idealne by to melo byt nezavisle na typu
> pouziteho SQL serveru.
>
> Thx, pf
>
>
>Konverze
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 17.3.2001 20:03:56
Ahoj,
proc komponentu? Pouzij Synapsy (http://synapse.ararat(tec)cz)
Slavek
> Dobry den, nevite nekdo o nejake komponente, ktera provadi konverzi textu
> mezi ruznym kodovanim (Hlavne windows-1250 -> ISO-8859-2)
> S pozdravem, Jan Kravar
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
OT -mail client
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 17.3.2001 22:42:22
Zdravim,
zminovalo se tu quotovani, chybny format MS Outlooku a i ja pridam trosku do mlyna :-)
nemel by tu nekdo typ na nejakeho dobreho free mail clienta? Pegasus mi nesedl, Outlook je pro me zbytecne komplexni a
Outlook Express (jenz vyuzivam ted) ma zase chyby (obsas se mu nechce quotovat, obcas zmrsi seskupovani podle subjektu...). Diky,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
TGroupControl
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 18.3.2001 00:09:32
From: "Jan Skopov�" <jsdelphi(zv)atlas(tec)cz>> Tim tedy myslis, ze pointer na komponentu v desing je stejny jako pointer
na
> komponentu po spusteni aplikace ? To prece neni vubec pravda !
Nic takoveho preci netvrdim. Tak tedy priklad:
Mene elegantni, zato velice jednoducha metoda.
Seznam vybranych komponent je primarne udrzovan
jako seznam ukazatelu v FComponentList typu TList.
Pro jednoduchost je pro editaci a ukladani pouzita
property typu TStrings a interni property editor.
Protoze pracuji primo s pointry na skutecne objekty,
mam pres property ComponentList k dispozici
vzdy aktualni seznam jmen komponent a muze je
kdo chce a jak chce prejmenovavat.
type
TGroupControl = class(TComponent)
private
FComponentList: TList;
FComponentNames: TStrings;
function GetComponentList: TStrings;
procedure SetComponentList(AList: TStrings);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property ComponentList: TStrings read GetComponentList write
SetComponentList;
end;
implementation
constructor TGroupControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FComponentList := TList.Create;
FComponentNames:= TStringList.Create;
end;
destructor TGroupControl.Destroy;
begin
FComponentNames.Free;
FComponentList.Free;
Inherited Destroy;
end;
function TGroupControl.GetComponentList: TStrings;
var i: integer;
begin
FComponentNames.Clear;
for i := 0 to FComponentList.Count-1 do
FComponentNames.Add(TComponent(FComponentList[i]).Name);
Result := FComponentNames;
end;
procedure TGroupControl.SetComponentList(AList: TStrings);
var i: integer;
begin
FComponentNames.Assign(AList);
FComponentList.Clear;
for i := 0 to Owner.ComponentCount-1 do
if AList.IndexOf(Owner.Components[i].Name) >= 0 then
FComponentList.Add(Owner.Components[i]);
end;
Elegantnejsi ale pracnejsi reseni by bylo vynechat pomocnou
promennou FComponentNames a definovat vlastni
property editor primo na FComponentList a vlastni
procedury nacitani a ukladani.
Vaclav Krmela
Je tiskarna nainstalovana?
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.3.2001 07:36:48
From: "Pavol Kaka�ka" <paka(zv)aktis(tec)cz>> No takto sa programovat neda. Ne-e-e!!!!
> Neni dobre uvedomele napisat kod ktory moze spadnut.
Proc? To, co ty doporucujes, je technika tzv. ofenzivniho
programovani, ktere je zalozeno na tom, ze si pred vypoctem
zkontrolujes *vsechny* podminky stejne jako v matematice a teprve pak
vypocet uskutecnis/neuskutecnich.
To je sice tradicni zpusob, protoze pred zavedenim vyjimek jazykem ADA
programatorum nic jineho nezbyvalo, ale dnes zpusob ponekud zastaraly,
protoze ma tri nevyhody: pro programatora je pracny, v run-time ma
znacny overhead a existuje realna pravdepodobnost, ze programator
nejakou (zejmena implied) podminku prehledl, protoze na rozdil od
matematiky neexistuje vetsinou dukaz, ktere podminky jsou nezbytne
nutne a ktere postacujici.
***
Dnes lze psat v nekterych jazycich programy zpusobem, kdy vypocet
uskutecnis a doprogramujes zotaveni po chybe.
Je to jednoduzsi, bezpecnejsi, zotavit po chybe se stejne nejak musi,
z pohledu diagnostiky existuje jedine misto, odkud lze psat do system
logu, ale ma to jednu podstatnou nevyhodu: veskery kod, ktery volas,
musi byt napsat "ciste" a touto technikou, jinak se dostanes do
problemu, jako ja (viz jiny mail o tisku).
Dnes se v praxi vetsinou obe techniky kombinuji, casto jen proto, ze
osetreni vyjimky ma znacnou casovou rezii, takze v nekterych cyklech
se vyplati "testnout".
***
BTW, problem Pavla Zidka vubec neni to, ze dereferoval Printer=nil
nebo Printers=nil, protoze v unit printers to vypada takto:
function Printer: TPrinter;
begin
if FPrinter = nil then FPrinter := TPrinter.Create;
Result := FPrinter;
end;
function tPrinter.GetPrinters: tStrings;
begin
if FPrinters = nil then
begin
FPrinters := TStringList.Create;
Result := FPrinters;
....
Bye, pf
Osetreni chyby pri volani GetDeviceCaps
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.3.2001 07:37:14
Hi all,
Narazil jsem na problem, jak osetrit chybu v pripade volani
GetDeviceCaps na sitovou tiskarnu, ktera neni v dany okamzik
pripojena.
Mam notebook s W2000Prof CZ bez SP, D5.01prof a nastaveny 2 tiskarny:
Fax a sitovou HP - ta je default. Kdyz neni notebook pripojen do site
a spustim aplikaci, ktera si nastavuje pri spusteni nejake parametry
tisku podle nastavene tiskarny, tak volani
GetDeviceCaps(Printer.Handle) skonci otevrenim CPU okna v procedure
ntdll.dbgUserBreakpoint a kdyz dam run, tak nasleduje
"Access Violation at address 40003470 in module Vcl50.bpl. Write of
address 020B4684". Po jejim kvitovani a dalsim run se to chova ruzne,
nekdy to vyhazuje tuto chybu opakovane, jindy do exitne Delphi apod.
Nejhorsi je, ze uzavreni techto operaci do bloku TRY-EXCEPT nic
neresi, jedine chybovy kod se zmeni na neco jako "Too many consecutive
exceptions ..... "
Nevite nekdo, jak dostat chovani programu pod kontrolu?
Thx, pf
TGroupControl
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 18.3.2001 07:56:27
On 17 Mar 2001, at 15:30, Jan Skopov� wrote:
> Tim tedy myslis, ze pointer na komponentu v desing je stejny jako
> pointer na komponentu po spusteni aplikace ? To prece neni vubec
> pravda !
Kdyby ses podival na TCollection, tak bys zjistitl, ze v principu je.
Fyzicka adresa bude sice pokazde jina, ale bude vzdy ukazovat na
ten spravny objekt.
> ----- Original Message -----
> From: Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz>
>
> > Druhou moznosti reseni tohoto problemy by mohlo byt
> > pouziti TCollection a TCollectionItem. Pak se nemusis
> > starat ani o to vycitani nazvu.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
WinMe a volna pamet 640K
[*] Hurricane <hurricane(zv)quick(tec)cz> - 18.3.2001 14:52:37
Zdravim
No, on tam je, jelikoz WIN je porad nadstavba nad dosem (i kdyz to tak
nevypada-je to hoodne provazany). Problem je ale v tom, ze ve WinME ho MS
zakryl tak dokonale, ze uz se k nemu nedostanes. Jedine pres BOOTovaci
disketu, coz asi neni moc dobre reseni. Jako nejlepsi reseni bych videl
navrat k WIN98SE (je to temer totez, i ja jsem to udelal) nebo vytvoreni
maleho (10 MB) diskoveho oddilu s klasickym dosem a bootovat do nej pres
BOOT manager. IMHO by se tam mohl dat i DOS 7 (verze z WIN - vidi na FAT32).
Akorat do toho nepujde prebootovat z WIN. Musis rucne.
Hurricane
----- Original Message -----
From: "Martin Bobak" <bobak(zv)minv.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 12, 2001 12:27 PM
Subject: RE: WinMe a volna pamet 640K
> s WinME je problem pretoze , WinME uz totizto nema dos ako ho pozname z
9x.
> Ma len nejake terminalove okno, ale klasicky stary DOS tam uz nie je.
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Karel Kral
> Sent: Monday, March 12, 2001 11:58 AM
> To: Konference Delphi
> Subject: OT: WinMe a volna pamet 640K
>
>
> Dobry den,
> potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
> nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> kB.
>
> Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> Prosim i o odpoved, ze to zarucene nejde a proc.
> --
> ______________________________________________________
> 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
> ______________________________________________________
>
>
>Ochrana freeware proti piratstvi?
[*] Hurricane <hurricane(zv)quick(tec)cz> - 18.3.2001 14:57:55
Zdravim
Freeware to rozhodne je. Urcite je to dobry napad, jhak si overit pocet
uzivatelu programu. Akorat, ze se omezis na zainternetovane uzivatele a
SMSniky. Komu by se chtelo posila�t dopis kvuli nejakemu programu. A urcite
dam dej zkusebni dobu, me by se teda nechtelo posilat nekam mail pro cislo,
kdyz jsem ten program ani nevidel.
Kdyz jsi o tom zacal, mozna ze to dam i do sveho programu
(http://lunasoft.hyperlink(tec)cz)
Hurricane
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 9:58 AM
Subject: OT: Ochrana freeware proti piratstvi?> Preji vsem pekneho dne,
>
> obracim se na vas jako na programatory, kteri obcas nejaky
> freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
> ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
> )mail, ze program pouzivate. Bohuzel maily chodi maximalne v
> pripade, ze ma uzivatel problem nebo by rad neco noveho.
>
> Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
> registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
> vubec freeware nebo to je neco jineho?
>
> Prosim odpovedi na mou soukromou adresu.
>
> Diky
>
> Slavek
>
>
> Setrete vodou. Sprchujte se s pritelem/pritelkyni.
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> http://swnet(tec)cz
> -------------------------------------------------
Ochrana freeware proti piratstvi?
[*] Hurricane <hurricane(zv)quick(tec)cz> - 18.3.2001 15:02:13
Zdravim
Toho bych se zas tak nebal. Pokud ten program bude maly, na IT, s
bezproblemovou registraci. Program se mezi lidmi nebude sirit sam jako
takovy s cislem, ale pouze jako link na nej. Aspon ja si to myslim.
Hurricane
----- Original Message -----
> Zajimalo by mne, jak to mate technicky resene. Treba to cislo na
zpristupneni programu je stale stejne? Pak se ale neda zarucit, ze ho nejaky
uzivatel toho freewaru da volne k dispozici...MessageDlg
[*] Hurricane <hurricane(zv)quick(tec)cz> - 18.3.2001 15:07:47
Zdravim
K temto dialogum bys mel mit zdrojaky (pokud sis je nainstaloval). Tak si
najdi soubory (nejspis INC), ve kterych jsou tyto texty a uprav si je. Pak
to zkompilujes a je to.
BTW Co ti vadi na MessageBoxu? Vzdyt ten vychazi primo z jadra OS a mas ho
tim jazykem, kterym je OS.
Hurricane
----- Original Message -----
> Nevite, existuje nejaka cesla verze funkce MessageDlg? Nelibi se mi Yes,
No, chci Ano, Ne atd.
> Application.MessageBox mi nevyhovuje.orisek
[*] Hurricane <hurricane(zv)quick(tec)cz> - 18.3.2001 15:25:59
Zdravim
V registru je slozka RunOnce. Po kazdem startu se provedou aplikace v ni
uvedene a sami se vymazou. Ale IMHO tam jdou napsat jen aplikace (zastupci,
soubory), ale ne prikaz (del c:\soubor.exe). Pokud by to slo, mas vyhrano.
Takze bys tam musel zase mit nejaky programek, kterym smazes uninstalator a
motas se v zacarovanem kruhu.
Hurricane
----- Original Message -----
From: "honza.dforum" <honza.dforum(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 16, 2001 12:24 PM
Subject: RE: orisek
> Jednou jsem to videl u uniinstalatoru Winzipu. ::
>
> Takze kdyz jse spustil uninstal tak se vymazali vsechny filesy krome toho
> uninstalu. Ten pak vytvoril zaznam do registru ( v oblasti po spusteni )
> ktery po
> restartovani smazal tento soubor. Nakonec zmizel i ten zanznam.
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Radim.Holan
> Sent: Thursday, March 15, 2001 12:05 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: orisek
>
>
> Ahoj,
>
> potreboval bych poradit jednu vec : protrebuju vytvorit jeden program, kde
> bude tlacitko, kdyz na nej kliknu tak by se mel program ukoncit a sam
> smazat, je to vubec nejak mozne?????
>Vkladani hodnoty NULL
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 18.3.2001 17:10:45
Ahoj vsem kdoz chteji poradit.
Mam takovy problem. Mam komponentu TQuery a tabulku Prostredky. Do teto
tabulky chci vlozit hodnoty. Do nekterych poli chci ale vlozit hodnotu Null.
Zkousel jsem to takto priklad:
DataModul.KopirovaniD.Close;
DataModul.KopirovaniD.SQL.Clear;
DataModul.KopirovaniD.SQL.Add('Insert Into Prostredky Values' +
+ '(:Kod,:Nazev,:Varianta,:Cislo_vyk,' +
+
':Cislo_proh,:Cislo_cer,:Cislo_obs,:Cislo_mon,' +
+ ':Skupina,:Objem,:Norma,:Hruba,:Dod,' +
+
':Cista,:Uroven,:Zadal,:Datum,:Poznamka)');
...............
.............
DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= Null; <----
Takto mi to nefunguje.
..............
.............
if not (DataModul.KopirovaniD.Prepared) then
DataModul.KopirovaniD.Prepare;
DataModul.KopirovaniD.ExecSQL;
Nevite nekdo jak MS SQL server donutit, aby tam vlozil hodnotu Null.
Diky za kazdou radu.
Filip
Vkladani hodnoty NULL
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.3.2001 18:06:42
Coz zkusit:
DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
Mac
----- Original Message -----
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 18, 2001 5:10 PM
Subject: Vkladani hodnoty NULL
> Ahoj vsem kdoz chteji poradit.
> Mam takovy problem. Mam komponentu TQuery a tabulku Prostredky. Do teto
> tabulky chci vlozit hodnoty. Do nekterych poli chci ale vlozit hodnotu
Null.
> Zkousel jsem to takto priklad:
>
> DataModul.KopirovaniD.Close;
> DataModul.KopirovaniD.SQL.Clear;
> DataModul.KopirovaniD.SQL.Add('Insert Into Prostredky Values' +
> + '(:Kod,:Nazev,:Varianta,:Cislo_vyk,' +
> +
> ':Cislo_proh,:Cislo_cer,:Cislo_obs,:Cislo_mon,' +
> + ':Skupina,:Objem,:Norma,:Hruba,:Dod,' +
> +
> ':Cista,:Uroven,:Zadal,:Datum,:Poznamka)');
>
> ...............
> .............
> DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= Null;
<----
> Takto mi to nefunguje.
> ..............
> .............
> if not (DataModul.KopirovaniD.Prepared) then
> DataModul.KopirovaniD.Prepare;
> DataModul.KopirovaniD.ExecSQL;
>
> Nevite nekdo jak MS SQL server donutit, aby tam vlozil hodnotu Null.
>
> Diky za kazdou radu.
>
> Filip
>OT skladani PC
[*] Erik Salaj <winsoft(zv)napri.sk> - 18.3.2001 21:54:35
> mam nedavnou zkusenost (necely mesic starou) s kontrolou
> z COI. Pozadovali okamzite (!) predlozeni Prohlaseni o shode na
> 1. klavesnici Samsung (obycejnou PS/2)
> 2. GO sadu Eurotel
> Cely mechanismus kolem prohlaseni o shode mi pripada
> docela potenkinovsky a na dodavatele veskrze buzeracni.
> Kontrolu nezajima, jestli SKUTECNE zarizeni vyhovuje,
> ale JEN A POUZE, jestli to o nem nekdo prohlasil.
> Takovemu caru papiru bych stejne neveril :-)
> Za cele roky platnosti zakona to na nas pozadovali
> celkem dvakrat, a to:
> 1) kontrola COI
> 2) kontrola COI
> Zato nam oznamili, ze se chysta nejaky vetsi zatah
> prave na tzv. VYROBCE PC (assemblery) v blizke dobe.
> No - uvidime.
> (COI=Ceska obchodni inspekce)
Nevidim dovod aby zivnostnik, ktore sklada PC-cka,
sa mal starat o nejake prehlasenia, ci certifikaty. Ved
on tu klavesnicu iba kupi, mozno ani nevybali z krabice
a preda. Myslim, ze vyrobca, pripadne dovodca
zariadenia by sa mal postarat, aby zariadenie splnalo
tak technicke ako aj bezpecnostne parametre. A ked
jednotlive sucasti pocitaca splnaju tieto parametre,
tak podla mna ich urcite bude splnat aj poskladany
pocitac.
A certifikovat hotove pocitace, to sa mi javi ako
blbost, to vyslovene ide proti zakladnej myslienke
PC-cka ako konfigurovatelneho pocitaca. To ked
si potom uzivatel rozsiri RAM-ku alebo HDD, tak
ma zaplatit dalsich 30,000 za nejake prehlasenie
o zhode?
Mozno by bolo dobre opytat sa pri najblizsej navsteve
COI na dovody a ucel ich konania. Nemyslim tym
taky dovod, ze sa to pise niekde v zakone, nezijeme
dufam v stredoveku podla nejakych dogiem.
Erik
Vkladani hodnoty NULL
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 18.3.2001 21:57:30
To mi nefunguje. Pise mi to Field 'Cislo_proh' is of an unknown type.
Zkousel jsem jak DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
tak take
DataModul.KopirovaniD.ParamByName('Cislo_cer').IsNull; a ani jedno
nefunguje.
Zkuste jeste zapremyslet.
Filip
-----Original Message-----
From: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
Sent: Sunday, March 18, 2001 6:07 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Vkladani hodnoty NULL
Coz zkusit:
DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
Mac
----- Original Message -----
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 18, 2001 5:10 PM
Subject: Vkladani hodnoty NULL
> Ahoj vsem kdoz chteji poradit.
> Mam takovy problem. Mam komponentu TQuery a tabulku Prostredky. Do teto
> tabulky chci vlozit hodnoty. Do nekterych poli chci ale vlozit hodnotu
Null.
> Zkousel jsem to takto priklad:
>
> DataModul.KopirovaniD.Close;
> DataModul.KopirovaniD.SQL.Clear;
> DataModul.KopirovaniD.SQL.Add('Insert Into Prostredky Values' +
>
'(:Kod,:Nazev,:Varianta,:Cislo_vyk,' +
>
':Cislo_proh,:Cislo_cer,:Cislo_obs,:Cislo_mon,' +
>
':Skupina,:Objem,:Norma,:Hruba,:Dod,' +
':Cista,:Uroven,:Zadal,:Datum,:Poznamka)');
>
> ...............
> .............
> DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= Null;
<----
> Takto mi to nefunguje.
> ..............
> .............
> if not (DataModul.KopirovaniD.Prepared) then
> DataModul.KopirovaniD.Prepare;
> Try
DataModul.KopirovaniD.ExecSQL;
except
end;
>
> Nevite nekdo jak MS SQL server donutit, aby tam vlozil hodnotu Null.
>
> Diky za kazdou radu.
>
> Filip
>Kniha o Delphi
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 18.3.2001 22:05:33
> Ja jsem jako prvni a vybornou knihu pouzival Zaciname s Delphi od Grady
> Zdravim Jiri Vojtek
>
Zbezne jsem v ni listoval, je v ni spousta chyb. Nemyslim tim preklepy, ale
fakticke nesmysly. Zacatecnika muzou hodne zmast.
Radim
TMediaPlayer, CDAudio, Step
[*] Daniel Schmidt <dschmidt(zv)centrum.sk> - 18.3.2001 22:20:16
Ahojte,
snazim sa prehravat CDAudio MediaPlayerom a mam pri tom takyto problem:
spustim CD player, hra nejaky track. Sekvencia
i:=MP.Position;
SkipForward(i);//alebo SkipBackward(i)
MP.Position:=i;
MP.Play;
na NT a WIN2000 sposobi, ze sa preskoci 5 sekund skladby a Mediaplayer hra
dalej.
na W9X a ME sposobi, ze MediaPlayer odroluje na koniec CD a uz nic nezahra.
Pomoze iba Free a Open.
SkipForward a SkipBackward su moje procedury, ktore v casovom udaji vo
formate TMSF pridaju/uberu 5 sekund.
Metody Step a Back v Mediaplayeri su mi k nicomu, kedze funguju defakto len
na video.
Neviete mi niekto poradit?
Pomohol by mi asi aj nejaky iny komponent, hrajuci CD Audio aj s
preskakovanim (Skip/Back), nepoznate nejaky?
dakujem
Dano
mailto://dschmidt(zv)centrum.sk
HWND aktivniho prvku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2001 22:25:50
From: <pepek_007(zv)post(tec)cz>
> chci vas pozadat o radu. Jakym zpusobem je mozne zjistit HWND aktivniho
> prvku (myslim tim prvku, ktery ma focus klavesnice - napr. Memo, Edit atp.)?
Ahoj,
napriklad pomoci Screen.ActiveControl.Handle
Petr Vones, amatersky programator
*build - 2*exe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2001 22:28:54
From: "Vit Tichy" <vitek(zv)softok(tec)cz>
> Udelam build na projektu, vytvori se exe, vse je v poradku. Udelam
> build podruhe, bez jakehokoli zasahu do projektu a vytvorene exe je
> zcela jine. Ackoli stale pouzivam 'build with runtime packages' delphi
Ahoj,
jak jine ? Ma naprosto stejnou velikost ale rozdilny binarni obsah ? Na toto
jsem narazil pri psani JCL IDE Debug experta, vznika to patrne pri cachovani
unitu v IDE, takze pri kazdem buildu je poradi unitu v EXE jine. Na funkci
aplikace to samozrejme nema vliv. Porovnej si MAP soubory pri obou buildech.
Petr Vones, amatersky programator
Pridelovani casu threadum - AsyncFree
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2001 22:33:36
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
> Problemem je, ze pokud jsou Win prilis vytizeny, tak to vlakno dostava malo
> systemoveho casu a pro odpoved na dotaz mi vyprsi timeout. Samozrejme ho
> muzu zvetsit, ale uz ted je na 500ms i kdyz zarizeni odpovida max. do 50ms,
> predpokladam, ze tudy cesta nevede.
Ahoj,
problem bude podle mne v necem jinem. Totiz synchronizace udalosti z threadu
komunikace do thredu aplikace je realizovan pomoci zprav. Prave zde muze dojit
k situaci, ze aplikace je prilis zamestnana a k vyrizeni zprav dojde s malym
(ci vetsim) zpozdenim. Prave proto umoznuje AsyncFree zasilat usalosti i bez
synchronizace, pak ale v teto udalosti nesmis volat kod VCL ale jen zaslat
odpoved na data apod.
> Asi bych mel take zminit, ze ve smycce prijimaciho vlakna je sleep(1), bez
A to je tam proc ? Tohle vypada na zasadni chybu. V threadech se obvykle na
neco ceka, ovsem ne stylem za mas promennou a ve smycce testujes jeji stav,
nybrz pomoci funkci jadra, tedy eventu, mutexu apod.
Petr Vones, amatersky programator
CPU - vyuziti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2001 22:34:29
From: "Kov߰�k Ladislav" <Ladislav.Kovarik(zv)brno.aksignal(tec)cz>
> Potrebuji zjistit nektere inf. o procesech ( jako ve spravci uloh,
> PID, ...., uz vim z TLHelp32 ) :
Ahoj,
Toto je mozne pouze u NT, kde zase nelze dost dobre pouzit TLHelp funkce, a to
ani na Win2k.
Petr Vones, amatersky programator
COM Port: FIFO
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2001 22:35:33
From: "Bednar��k Dalibor" <dalibor(zv)torola(tec)cz>
> Jak nastavit(vypnout, zapnout) u COM portu FIFO z Delphi?
Ahoj,
neni na to zadne API, pouze nejaka nedokumentovana polozka v registru.
Petr Vones, amatersky programator
Open Tools API help
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2001 22:38:40
From: "Brano Vislocky" <delphi(zv)jdsoftware.sk>
> neviete mi poradit, ci existuje niekde Borland OpenTools API help ?
Ahoj,
napriklad tady: http://www.gexperts.org/opentools/
Petr Vones, amatersky programator
Ovladani CD-Rom mechaniky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2001 22:39:50
From: "Petr Ha#lar" <rincewind(zv)volny(tec)cz>
> mam problem s vysouvanim video CD - kdyz ho pomoci nize popsane procedury
> vysunu (ale az po prehrani videa), tak mi naskoci 'modra obrazovka smrti',
Ahoj,
tohle je znamy problem snad vsech Win9x, souvisi to tusim nejak s tim, pokud
je tomu CD prirazena zvlastni ikona.
Petr Vones, amatersky programator
TGroupControl
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 18.3.2001 23:39:47
To je presne ono. Uz jsem pochopil, ze nejlepsi je generovat si podle
seznamu jmen komponent vlastni komponenty - jako TMenu a TMenuItem, nebo
TActionList a TAction nebo TTable a jeho fieldy. Tyto vygenerovane
komponenty jsou primo uvedeny ve formulari a budou mit read-only property
neco jako focusControl, takze tim je to vyreseno !
Diky vsem moc za pomoc.
Jan Skopovy
----- Original Message -----
From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, March 17, 2001 5:57 PM
Subject: Re: TGroupControl
> On 16 Mar 2001, at 23:18, Jan Skopov� wrote:
>
> > Neni. Samozrejme si seznam umim obnovit, pokud do nej vlezu. Ale pokud
> > do nej nevlezu, pak se mi neopravi. Pote spustim aplikaci a nastavim
> > moji komponente Enabled := false, takze by se vsechny komponenty v
> > seznamu mely nastavit take na Enabled := false. Protoze ale nejsou
> > opravena jmena, je to v keli.
>
> Podivej se tedy, jak ma TTable udelany seznam fieldu, a udelej to
> podle toho. Pak ti odpadnou popsane problemy.
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
OT -mail client
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 01:23:30
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> Outlook Express (jenz vyuzivam ted) ma zase chyby (obsas se mu nechce
> quotovat, obcas zmrsi seskupovani podle subjektu...).
Ahoj,
jaka verze OE ? OE5.01SP2 mi funguje (narozdil od OE4) bez problemu.
Petr Vones, amatersky programator
OT skladani PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 01:23:34
From: "Ji�� Kr�l jr." <admin(zv)printo(tec)cz>
> prosim neznate nekdo co presne musi po pravni strance splnovat firma, ktera
> chce skladat PC z dilu a prodavat hotove sestavy?
Ahoj,
nevim jestli to tu uz nepadlo. Firma by predevsim tomu mela rozumet, coz tu
splnuje tak cca 0.5% prodejcu pocitacu.
Petr Vones, amatersky programator
Konverze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 01:23:22
From: "Jan Kravar" <honzik_x(zv)volny(tec)cz>
> Dobry den, nevite nekdo o nejake komponente, ktera provadi konverzi textu
> mezi ruznym kodovanim (Hlavne windows-1250 -> ISO-8859-2)
Ahoj,
programovat se da dobre (nekdy dokonce lepe ;-) i bez komponent. Predevsim
prinos nevizualnich komponent je prinejmensim sporny. Konverze mezi ruznymi
kodovanimi cestiny (vcetne pokusu o autodetekci kodovani) najdes tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/other/CharSetConv.zip
Petr Vones, amatersky programator
Osetreni chyby pri volani GetDeviceCaps
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 01:23:11
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> Mam notebook s W2000Prof CZ bez SP, D5.01prof a nastaveny 2 tiskarny:
> Fax a sitovou HP - ta je default. Kdyz neni notebook pripojen do site
> a spustim aplikaci, ktera si nastavuje pri spusteni nejake parametry
> tisku podle nastavene tiskarny, tak volani
> GetDeviceCaps(Printer.Handle) skonci otevrenim CPU okna v procedure
> ntdll.dbgUserBreakpoint a kdyz dam run, tak nasleduje
> "Access Violation at address 40003470 in module Vcl50.bpl. Write of
Ahoj,
projevuje se to stejne i v pripade, ze aplikace nebezi pod debugerem ? Na 99%
jsou to chybne drivery pro tiskarnu (HP je tim primo povestny). Zkus stahnout
nove nebo pouzit trochu jine.
> Nejhorsi je, ze uzavreni techto operaci do bloku TRY-EXCEPT nic
> neresi, jedine chybovy kod se zmeni na neco jako "Too many consecutive
> exceptions ..... "
To souhlasi.
Petr Vones, amatersky programator
Zmena LangDrivera tabulky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 01:25:49
From: <mms(zv)host.sk>
> 1. Ako sa da u uz existujucej tabulky zmenit langdriver?
Ahoj,
viz archiv:
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=jul&den=21&soubor=dlfaaabr.htm
Petr Vones, amatersky programator
Kontrola fontu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 01:26:57
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
> ako sa da v Delphi zistit, ci font s urcitym nazvom
> uz je v systeme instalovany?
Ahoj,
podivej se na TScreen.Fonts
Petr Vones, amatersky programator
instalace MSDE
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 19.3.2001 06:11:09
| 1. Nevite nekdo jak dosahnu toho, aby se pri instalaci
| nastavil SQL server
| service manager na autostart = true (checked)?
Pokud instalujes v "unattended" modu, tak se to na WinNT a 2000 dela
automaticky, a na W95 se me to nikdy nepodarilo automaticky nastavit, ale
uzivatel si to muze nastavit rucne :=(.
S pozdravem,
Petr Reichl
IB a collate
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 19.3.2001 06:41:47
> opacnem pripade se omlouvam. Dle meho nazoru nejcistsi reseni je
> nadefinovat si sve domeny vcetne charsetu a collation a na jejich
> zaklade pak tvorit tabulky - pouzivat pri definici tabulek hole SQL
> datove typy se nedoporucuje, ale to je asi zname pravidlo.
K posledni vete - slysim to poprve, tak se chci zeptat - proc se
nemaji pouzivat hole SQL datove typy?
Dik.
David Lebeda
orisek
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 19.3.2001 06:59:07
Hurricane wrote:
>
> Zdravim
>
> V registru je slozka RunOnce. Po kazdem startu se provedou aplikace v ni
> uvedene a sami se vymazou. Ale IMHO tam jdou napsat jen aplikace (zastupci,
> soubory), ale ne prikaz (del c:\soubor.exe). Pokud by to slo, mas vyhrano.
> Takze bys tam musel zase mit nejaky programek, kterym smazes uninstalator a
> motas se v zacarovanem kruhu.
...
Ahoj, mne sa to cez RunOnce nepodarilo rozchodit.
Nakoniec som z roznych prikladov "zlepil" nasledovne
riesenie (funguje aj pod Windows NT):
var WinInitFile, AppName: string;
...
// toto zabezpeci odstranenie prave beziaceho programu
if isWindowsNT then
MoveFileEx ( PChar(Application.ExeName), nil,
MOVEFILE_DELAY_UNTIL_REBOOT or MOVEFILE_REPLACE_EXISTING )
else
begin
WinInitFile := GetWinDir();
WinInitFile := StripBackSlash ( WinInitFile ) + '\WININIT.INI';
AppName := Application.ExeName;
AppName := GetShortName ( AppName );
WritePrivateProfileString ( 'Rename', 'NUL', PChar(AppName),
PChar(WinInitFile) );
end;
a este pomocne procedury:
function isWindowsNT: boolean;
// zisti, ci ide o Windows NT
var OS: TOSVersionInfo;
begin
OS.dwOSVersionInfoSize := SizeOf(OS);
GetVersionEx(OS);
Result := ( OS.dwPlatformId = VER_PLATFORM_WIN32_NT );
end;
function GetWinDir: string;
// zisti adresar, kde je nainstalovany OS
var mWinDirLength: integer;
begin
mWinDirLength := MAX_PATH;
SetLength ( Result, mWinDirLength );
mWinDirLength := GetWindowsDirectory(PChar(Result), mWinDirLength);
SetLength ( Result, mWinDirLength );
end;
function StripBackSlash ( const Path: string ): string;
// vypusti koncovy BackSlash
var Len: integer;
begin
Result := Path;
Len := Length ( Result );
if Len > 0 then
if Result[Len] = '\' then
delete ( Result, Len, 1 );
end;
function GetShortName ( const LongName: string ): string;
// vrati short-name prislusneho long-name souboru
var
Required: Integer;
begin
// v prvom behu zisti pozadovanu dlzku kratkeho nazvu
Result := '';
Required := GetShortPathName( PChar(LongName), nil, 0 );
if Required <> 0 then
begin
SetLength ( Result, Required );
Required := GetShortPathName( PChar(LongName), PChar(Result),
Required );
SetLength ( Result, Required );
end;
end;
---
Samozrejme, fyzicku "likvidaciu" programu urobi az
operacny system pri svojom restarte.
Vlkovic
PS: Pisal som to len tak narychlo, dufam,
ze tam nie su nejake chyby.Vkladani hodnoty NULL
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.3.2001 07:20:18
Zrejme bude treba nastavit typ parametru (vstupni/vystupni, integer,
string ...). Jak ma program vedet co po nem chces ? :-)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.03.2001 Hazuka Filip:
> To mi nefunguje. Pise mi to Field 'Cislo_proh' is of an unknown type.
> Zkousel jsem jak DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
> tak take
> DataModul.KopirovaniD.ParamByName('Cislo_cer').IsNull; a ani jedno
> nefunguje.
> Zkuste jeste zapremyslet.
> Filip
> From: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
> DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
> Mac
Video Capture pres AviCap32.dll
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 19.3.2001 07:30:56
Ahoj,
Stahl jsem si pro delphi podporu, ktera vyuziva knihovnu AviCap32.dll(plus
jeste nejake dalsi knihovny).
Chtel bych sejmou obraz z urciteho zarizeni s video vstupem (presneji Ati
Rage 128 Pro) v urcitem okamziku.
Coz by melo fungovat. Jenze na W2000CZProf to nejak nefunguje.
Pri pokusu u ulozeni obrazu do obrazku, nebo do clipboradu to zahlasi chybu.
U souboru - Chyba pri ukladani obazu do souboru xxx.BMP. Pritom se soubor
vytvori s nulovou delku.
U clipboardu - Nedostatek pameti.
Zkousel jsem to na Win98 a tam to funguje bez problemu.
Mam nainstalovane nove ovladace na Ati a pak Direct8...
D5Prof, Win2000CZ
Instalace BDE s Inno Setupem v silent modu?
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 19.3.2001 07:34:00
> > Ahojte,
>
> > je mozne nejak docilit, bez pouziti regsvr32 /s (kteryzto na nekterych
> > prehistorickych Win95 nejni), aby BdeInst.DLL nehodil takovou
> tu anglickou
> > hlasku s dotazem na cestu pro instalaci BDE? Pripadne, slo by tu hlasku
> > nejak pocestit???
No, toz jsem zjistil, ze ten switch /s s tim BdeInst nefunguje ...
Zkusil jsem si aspon pocestit hlasky. Nechtel jsem hrabat primo do DLL, tak
jsem si vytvoril BdeInst.csy, na Win 2K to slapalo, ale ve Win95 to hodilo
hlasku:"String list does not allow duplicates." ...
T.
_______________________________
Tom�# Vlad�k
vladik(zv)swadvice(tec)cz
ICQ# 101763081
Vkladani hodnoty NULL
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 19.3.2001 07:36:33
> To mi nefunguje. Pise mi to Field 'Cislo_proh' is of an unknown type.
> Zkousel jsem jak DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
> tak take DataModul.KopirovaniD.ParamByName('Cislo_cer').IsNull; a ani
> jedno nefunguje.
IsNull je funkce, ktera udava, zda udaj ma hodnotu null, cili pro
prirazovani nema vyznam. Hodnota null neni zadneho konkretniho
typu (patri do vsech domen). Pred volanim
ParamByName('Cislo_cer').Clear jeste nastav
ParamByName('Cislo_cer').DataType := dtString
nebo neco podobneho (pisu to ted z hlavy bez Delphi) - misto
dtString das samozrejme typ, ktery tam patri.
Jina moznost, nevim, nakolik pouzitelna v tomto pripade, je, jiz pri
sestavovani prikazu insert uplne vynechat sloupce, v nichz ma byt
hodnota null (pokud nemaji na serveru definovanou nejakou default
hodnotu).
David Lebeda
instalace MSDE
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 19.3.2001 07:49:52
Ahoj,
na http://msdn.microsoft.com/library/techart/deploybus_depdbsol.htm je
podrobny popis vsech zalezitosti, ktere je treba delat pri instalaci MSDE.
K tem tvym vecem, tam radi vykaslat se na nastavovani v service manageru
autostartu, ale pridat do HKLM\Software\Microsoft\Windows\CurrentVersion\Run
program (tam uvadeji script ve VB), ktery zavola metodu SQLServer.Start
(snad COM objektu SQLDMO.SQLServer) - bohuzel jsem presne nepochopil kde se
sezenou zdrojaky na ktere je v textu odkazovano.
A pokud by se MSDE spoustelo odsud, tak to mozna resi i tu druhou otazku -
poradi nekdo jak presne probiha spousteni veci v Run, RunOnce apod?
Honza +
-----Original Message-----
From: Ren� Otisk [mailto:otisk(zv)misel(tec)cz]
Sent: Friday, March 16, 2001 1:52 PM
To: delphi-l(zv)fwd(tec)cz
Subject: instalace MSDE
Hi,
D5, MS SQL7
1. Nevite nekdo jak dosahnu toho, aby se pri instalaci nastavil SQL server
service manager na autostart = true (checked)?
2. Chtel bych po instalaci MSDE a naslednem restartu hned spustit skript
databaze (osql.exe...). Jenze kdyz to dam do RunOnce, tak jeste neni
spusteny MS SQL. Nevite nekdo jak na to. Chtel bych to proste nainstalovat
vse najednou.
Sroub
C++ dialog
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 19.3.2001 07:51:53
Ahoj,
nevite nahodou nekdo, jak se urcuji souradnice v C++ dialogovych
oknech? Rozebral jsem resource dialogu a zjistil jsem, ze
souradnice neodpovidaji pixelum.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
C++ dialog
[*] voltrr1.epr(zv)mail.cez(tec)cz - 19.3.2001 08:05:09
> nevite nahodou nekdo, jak se urcuji souradnice v C++ dialogovych
> oknech? Rozebral jsem resource dialogu a zjistil jsem, ze
> souradnice neodpovidaji pixelum.
Podle mne neni problem v C++ ale ale resource souboru dialogu jako takovem (tudiz
by jsi na stejny problem narazil (v 16bitech) i v BP 7.0 for Win)
Z MS dokumentace k resource souborum a dialogum v nich :
Remarks
Horizontal dialog units are 1/4 of the dialog base width unit.
Vertical units are 1/8 of the dialog base height unit.
The current dialog base units are computed from the height and width of the current system font.
The GetDialogBaseUnits function returns the dialog base units in pixels. The coordinates are relative to the origin of the dialog box.
(z http://msdn.microsoft.com/library/psdk/winui/rc_7rlf.htm)
Toto by melo platit u vsech rozmeru pouzitych v dialogu popsanem v resource editoru.
Vysledkem je ze se vlastne ten dialog zvetsuje/zmensuje podle velikosti systemoveho fontu.
Radek
Kniha o Delphi
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.3.2001 08:09:59
Zdravim,
muj synovec (12let) zacal nyni s prgramovanim v jakemsi krouzku, ale uci se
nejdrive na PASCALu (verze 6).
Mozna by to bylo reseni pro tveho pritele zacit se zaklady programovani u
ucitele.
Zde totiz nejde o programovani konkretne v DELPHI a konkretne na nejake
verzi.
Ono je treba pochopit co to programovani vklastne je a o co tady vlastne
jde.
Ja jsem zacinal pred 15 lety a to tak, ze jsem objizdel ruzna skoleni
Pavel
----- Original Message -----
From: Milan Ri#i <milanrisi(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 16, 2001 2:33 PM
Subject: Re: Kniha o Delphi
> Hele srandisto, poprosil jsem o radu pro mladyho kluka, ktery se chce neco
> naucit a ne o "moudry" rady nekoho, kdo si mysli, ze je za vodou. Porad
> lepsi, kdyz mu nezosklivim delphi hned ze zacatku, nez aby se coural po
> hospodach ...
>
> ----- Original Message -----
> From: "�u#ka R�bert" <spravca(zv)lumen.sk>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, March 16, 2001 9:50 AM
> Subject: RE: Kniha o Delphi
>
>
> > Kamarad zacina s Delphi. Chtel pujcit nejakou knizku, tak jsem mu ukazal
> > mistrovstvi v Delphi a "malem ho porazilo" jak je "tlusta". Ja jinou
> > nepouzivam. Nevite nekdo o necem "stravitelnejsim" pro zacatecniky ?
> > ------
> >
> > ak sa to chce raz naucit tak i bude musiet raz zacat citat :))
> >
> > --------------------------------------------------------
> > Robert Suska, spravca siete, amatersky programator
> > Radio Lumen, Banska Bystrica
> > Slovenska republika
> > www.lumen.sk
> > spravca(zv)lumen.sk
> > ICQ Id: 82600022
> > mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
> > 088/41 25 739 kl.14
> > --------------------------------------------------------
> >
>Re[2]: 2*build - 2*exe
[*] voltrr1.epr(zv)mail.cez(tec)cz - 19.3.2001 08:21:16
> >> zcela jine. Ackoli stale pouzivam 'build with runtime packages' delphi
> P> jak jine ? Ma naprosto stejnou velikost ale rozdilny binarni obsah ?
> Ne. Velikosti jsou +- 30kb a 350kb. Tj pri druhem buildu delphi jeden
> balicek ignoruje a prida ho do exe. Zrejme ho bere jako soucast
> projektu.
Me to dela taky ale opacnym smerem - mam Packages vypnute a obcas
se me stane ze to D5 spatne pochopej a udelaj me build s packagema
Ja to resim tak ze proste vymazu ten seznam tech packages a pak je to
ok, mozna aby ti pomohlo tam exaktne vymenovat vsechny co pouzivas
a ne aby tam delphi neco vymejsleli sami
Radek
Re[2]: 2*build - 2*exe
[*] prajz.rumcajs(zv)quick(tec)cz - 19.3.2001 8:23:18
> nemel by tu nekdo typ na nejakeho dobreho free mail clienta? Pegasus mi
>nesedl, Outlook je pro me zbytecne komplexni a
>Outlook Express (jenz vyuzivam ted) ma zase chyby (obsas se mu nechce
>quotovat, obcas zmrsi seskupovani podle subjektu...).
Mail602 Klient - nemam s tim nejak veljke problemy - a je zadarmo!
Rumcajs
Re[2]: 2*build - 2*exe
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 19.3.2001 08:26:05
Ahoj,
>> Udelam build na projektu, vytvori se exe, vse je v poradku. Udelam
>> build podruhe, bez jakehokoli zasahu do projektu a vytvorene exe je
>> zcela jine. Ackoli stale pouzivam 'build with runtime packages' delphi
P> jak jine ? Ma naprosto stejnou velikost ale rozdilny binarni obsah ?
Ne. Velikosti jsou +- 30kb a 350kb. Tj pri druhem buildu delphi jeden
balicek ignoruje a prida ho do exe. Zrejme ho bere jako soucast
projektu.
P> Porovnej si MAP soubory pri obou buildech.
V MAP je videt, ze se balik skutecne prida.
--
Best regards,
vit tichy
Vkladani hodnoty NULL
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 19.3.2001 08:35:48
> From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
> Sent: Sunday, March 18, 2001 5:10 PM
> Subject: Vkladani hodnoty NULL
>
>
> > Mam takovy problem. Mam komponentu TQuery a tabulku
> Prostredky. Do teto
> > tabulky chci vlozit hodnoty. Do nekterych poli chci ale
> vlozit hodnotu
> Null.
> > Zkousel jsem to takto priklad:
> > ...............
> > .............
> > DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= Null;
A co takto?
DataModul.KopirovaniD.ParamByName('Cislo_cer').AsVariant:= Null;
s pozdravem Otakar Milink Vkladani hodnoty NULL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 19.3.2001 08:35:57
Ahoj,
coz takhle zkusit:
DataModul.KopirovaniD.ParamByName('Cislo_cer').Value:= Null;
Pavel
PS: Je mozno do tabulky vubec hodnotu NULL vlozit (co je to za DB ?).
-----P�vodn� zpr�va-----
Od: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Odesl�no: 18. b�ezna 2001 21:58
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Vkladani hodnoty NULL
To mi nefunguje. Pise mi to Field 'Cislo_proh' is of an unknown type.
Zkousel jsem jak DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
tak take
DataModul.KopirovaniD.ParamByName('Cislo_cer').IsNull; a ani jedno
nefunguje.
Zkuste jeste zapremyslet.
Filip
-----Original Message-----
From: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
Sent: Sunday, March 18, 2001 6:07 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Vkladani hodnoty NULL
Coz zkusit:
DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
Mac
----- Original Message -----
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 18, 2001 5:10 PM
Subject: Vkladani hodnoty NULL
> Ahoj vsem kdoz chteji poradit.
> Mam takovy problem. Mam komponentu TQuery a tabulku Prostredky. Do teto
> tabulky chci vlozit hodnoty. Do nekterych poli chci ale vlozit hodnotu
Null.
> Zkousel jsem to takto priklad:
>
> DataModul.KopirovaniD.Close;
> DataModul.KopirovaniD.SQL.Clear;
> DataModul.KopirovaniD.SQL.Add('Insert Into Prostredky Values' +
>
'(:Kod,:Nazev,:Varianta,:Cislo_vyk,' +
>
':Cislo_proh,:Cislo_cer,:Cislo_obs,:Cislo_mon,' +
>
':Skupina,:Objem,:Norma,:Hruba,:Dod,' +
':Cista,:Uroven,:Zadal,:Datum,:Poznamka)');
>
> ...............
> .............
> DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= Null;
<----
> Takto mi to nefunguje.
> ..............
> .............
> if not (DataModul.KopirovaniD.Prepared) then
> DataModul.KopirovaniD.Prepare;
> Try
DataModul.KopirovaniD.ExecSQL;
except
end;
>
> Nevite nekdo jak MS SQL server donutit, aby tam vlozil hodnotu Null.
>
> Diky za kazdou radu.
>
> Filip
>IB a collate
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 19.3.2001 08:38:50
----- Original Message -----
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
> K posledni vete - slysim to poprve, tak se chci zeptat - proc se
> nemaji pouzivat hole SQL datove typy?
Ahoj.
Protoze IB si pro kazdy novy takto zadefinovany field vytvori interni
domenu, takze pokud budes mit
5 x typ varchar(80) bude 5 domen, Pokud si zadefinujes nejprve svoji domenu
bude pak jen jedna.
Dalsim duvodem je snadna zmena struktury. POkud si totiz zdefinujes jeste
nejake vlastnosti domeny
treba kontrolu rozsahu, staci to menit jen na jednom miste.
Ludek
Konverze
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 19.3.2001 08:38:41
Komponenta je na tohle krajne nevodna. lepsi je proste unta, ktera ti
nabidne tyhle funkce... A takova unita je treba soucasti moji Synapse. :-)
> Dobry den, nevite nekdo o nejake komponente, ktera provadi konverzi
> textu mezi ruznym kodovanim (Hlavne windows-1250 -> ISO-8859-2) S
> pozdravem, Jan Kravar
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
IB a collate
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 19.3.2001 08:49:46
Ahoj,
David Lebeda wrote:
>
> > opacnem pripade se omlouvam. Dle meho nazoru nejcistsi reseni je
> > nadefinovat si sve domeny vcetne charsetu a collation a na jejich
> > zaklade pak tvorit tabulky - pouzivat pri definici tabulek hole SQL
> > datove typy se nedoporucuje, ale to je asi zname pravidlo.
>
> K posledni vete - slysim to poprve, tak se chci zeptat - proc se
> nemaji pouzivat hole SQL datove typy?
Upresneni: plati to pro IB, nevim, jak je to u ostatnich serveru. Plati
to proto, ze IB si stejne pro kazde pole v tabulce, ktere je definovano
jako standardni SQL datovy typ, vytvori domenu. V rozsahle databazi tak
zbytecne existuje mnoho duplicitnich domen, coz vede ke zbytecnemu
narustu velikosti systemovych tabulek se vsemi dusledky z toho
plynoucimi. Navic se pri definici tabulek stejne vlastnosti poli
zapisuji porad dokola, u domeny se nastavi jednou.
S pozdravem,
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
DelphiX & TBackgroundSprite
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 19.3.2001 09:07:14
Objekt TBackgroundSprite ma propertu Image: TPictureCollectionItem a objekt
TPictureCollectionItem ma Picture: TPicture.
Takze staci napsat napr.: BackSpr.Image.Picture.LoadFromFile('bla.bla').
K te pomalosti TImageListu: Kazdy TPictureCollectionItem ma propertu
SystemMemory: Boolean. Tou lze rozhodnout, kde bude obrazek uchovavan. (Me
osobne se TImageList pomaly nezda a hodne ho pouzivam).
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
Vkladani hodnoty NULL
[*] Ren� Otisk - 19.3.2001 09:16:46
Neee,
Zasada je, ze pro DB neni NULL jako NULL. To znamena ze te databazi musis
rict jestli chces NULL pro Varchar, Integer, Float...
Dataset.FieldByName(xxx).DataType := ftString - pokud je pole typu Varchar,
Char, NVarchar..., ftInteger pokud je Integer... atd;
Dataset.FieldByName(xxx).Clear;
Sroub
> > From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
> > Sent: Sunday, March 18, 2001 5:10 PM
> > Subject: Vkladani hodnoty NULL
> >
> >
> > > Mam takovy problem. Mam komponentu TQuery a tabulku
> > Prostredky. Do teto
> > > tabulky chci vlozit hodnoty. Do nekterych poli chci ale
> > vlozit hodnotu
> > Null.
> > > Zkousel jsem to takto priklad:
> > > ...............
> > > .............
> > > DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= Null;
>
> A co takto?
> DataModul.KopirovaniD.ParamByName('Cislo_cer').AsVariant:= Null;
>
> s pozdravem Otakar Milink
DelphiX & TBackgroundSprite
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 19.3.2001 09:18:06
> Ahoj,
> Osobne si myslim, ze kdyz se pouzije DXImageList, tak data do nej nahrana
> mohou byt (a vetsinou taky jsou) ulozena v pameti videokarty (videoram).
> Tudiz kopirovani a spol. je MNOHEM rychlejsi nez z operacni pameti (tam
jsou
> ulozeny az data co se nevejdou do videoram), proto nejcasteji pouzivane
data
> (sprity a pozadi) by meli byt ve videoram (a tedy DXImageList).> Jinak je mozne za behu vytvorit jeste dalsi instanci DXImageListu a do nej
> nahrat pozadi, ale pripravis se o moznosti jednoduche prace s paletou (to
> umi DXImageList) pro mody s 256 barvama a podle mne neni zaruceno co pak
> bude ve videoram a co v RAM.
Vytvorenim dalsiho DXImageListu nic nevyresite. Je to pouze componenta na
vlastnici TPictureCollection, ktery pouze shromazduje jednotlive
TPictureCollectionItem. Ulozeni do videoram docilite nastavenim property
SystemMemory u jednotlivych TPictureCollectionItem.
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
Pretekani systemovych prostredku
[*] David #�ra - 19.3.2001 09:22:26
Zdravim,
potreboval bych poradit mozna s banalni veci, ale ja se u ni pekne potim;). Muj problem spocivas v tom, ze si necham v programu vytvorit vsechny formulare automaticky a pak mezi nimi prepinam pomoci Visible:=true/false; Samozrejme krome hlavniho. Obcas se ovsem stava, ze tato procedure spotrebuje vsechny systemove prostredky. Nechapu proc, kdyz vsechnyformulare jsou jiz predem vytvorene a proc program nasledne spadne s hlaskou Out of system resources. Nevi nekdo, jak by se toto dalo osetrit? Predem dik!
David Sara
QuickReport - export
[*] Ji�� Kr�l jr. - 19.3.2001 09:31:07
Dobry den, prosim o pomoooc.
Snazim se doprogramovat si do quickreportu cudlik, ktery platnou sestavu
vyexportuje do WMF a tento file odesle e-mailem v priloze.
OK, nizeuvedeny kod je kod na ten export. Funguje. Jenze se mi nedari najit
zpusob jak vycist nazev vyexportovaneho souboru.
Potrebuji to jako jeden z parametru pro JclSimpleSendMail().
Bud moje promenna zustane '', nebo to pri psani kodu (zcela neocekavane)
pise, ze mam v kodu chybu (Code Insight) ale zkompiluje se to OK.
------orig kod. exportovaciho cudliku--------
procedure TQRStandardPreview.ToolButton3Click(Sender: TObject);
var
aExportFilter : TQRExportFilter;
var
Zprava: MailItem;
{$ifndef win32}
FileExt : string;
I : integer;
{$endif}
begin
aExportFilter := nil;
with TSaveDialog.Create(Application) do
try
Title := SqrSaveReport;
Filter := QRExportFilterLibrary.SaveDialogFilterString;
DefaultExt := cQRPDefaultExt;
if Execute then
begin
{$ifdef win32}
if FilterIndex = 1 then
QRPrinter.Save(Filename)
else
begin
try
aExportFilter := TQRExportFilterLibraryEntry(
QRExportFilterLibrary.Filters[FilterIndex -
2]).ExportFilterClass.Create(Filename);
QRPrinter.ExportToFilter(aExportFilter);
finally
aExportFilter.Free
end
end
{$else}
FileExt := ExtractFileExt(Filename);
if copy(FileExt, 1, 1) = '.' then delete(FileExt, 1, 1);
if (FileExt = '') or (FileExt = cQRPDefaultExt) then
QRPrinter.Save(Filename)
else
begin
for I := 0 to QRExportFilterLibrary.Filters.Count - 1 do
begin
if
TQRExportFilterLibraryEntry(QRExportFilterLibrary.Filters[I]).Extension =
FileExt then
try
aExportFilter := TQRExportFilterLibraryEntry(
QRExportFilterLibrary.Filters[I]).ExportFilterClass.Create(Filename);
QRPrinter.ExportToFilter(aExportFilter);
finally
aExportFilter.Free;
end;
end;
end;
{$endif}
end;
finally
Free;
end;
end;==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>Petr Vones
>>Sent: Monday, March 19, 2001 1:24 AM
>>To: Konference Delphi
>>Subject: Re: OT -mail client
>>
>>
>>From: "Adam Feistner" <feistna(zv)volny(tec)cz>
>>> Outlook Express (jenz vyuzivam ted) ma zase chyby (obsas se mu nechce
>>> quotovat, obcas zmrsi seskupovani podle subjektu...).
>>
>>Ahoj,
>>
>>jaka verze OE ? OE5.01SP2 mi funguje (narozdil od OE4) bez problemu.
>>
>>Petr Vones, amatersky programator
>>
>>
>>
OT -mail client
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 19.3.2001 09:32:09
> Zdravim,
>
> zminovalo se tu quotovani, chybny format MS Outlooku a i ja pridam
trosku do mlyna :-)
>
> nemel by tu nekdo typ na nejakeho dobreho free mail clienta? Pegasus
mi nesedl, Outlook je pro me zbytecne komplexni a
> Outlook Express (jenz vyuzivam ted) ma zase chyby (
>obsas se mu nechce quotovat
to me na nem taky vadi (zpusobuji to nektere zpravy s HTML castmi
>, obcas zmrsi seskupovani podle subjektu...).
idealni by bylo, kdyby umel tridit (seskupovat) podle message-id
(In-Reference-To, References) jako to dela Netscape Mesenger,..
Asi njschopneji vypada The Bat! (libila se mi mimo jine kontrola pravopisu
pri psani -jako ve Wordu, grupovani zprav,..) ale neni zadarmo.
D. Toman
Pretekani systemovych prostredku
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 19.3.2001 09:53:04
Ahoj,
tenhle problem jsem mel take. Musel jsem vsechny formulare (krome
hlavniho) vytvaret bez autocreate tj. pouze tehdy, kdyz bylo potreba.
Pak se snizil napor na prostredky. Pokud delas v D5 tak je taky dobre
udelat cast formularu do frames.
Jaro B.
-----Original Message-----
From: David ��ra [mailto:dsara(zv)evres(tec)cz]
Sent: Monday, March 19, 2001 9:22 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Pretekani systemovych prostredku
Zdravim,
potreboval bych poradit mozna s banalni veci, ale ja se u ni pekne
potim;). Muj problem spocivas v tom, ze si necham v programu vytvorit
vsechny formulare automaticky a pak mezi nimi prepinam pomoci
Visible:=true/false; Samozrejme krome hlavniho. Obcas se ovsem stava, ze
tato procedure spotrebuje vsechny systemove prostredky. Nechapu proc,
kdyz vsechnyformulare jsou jiz predem vytvorene a proc program nasledne
spadne s hlaskou Out of system resources. Nevi nekdo, jak by se toto
dalo osetrit? Predem dik!
David Sara
Poradi nacitani property
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 19.3.2001 09:59:55
Ahoj,
jde nejakym zpusobem ovlivnit poradi v jakem jsou
u komponenty nacitany published property? Popr. jak takove
zavislosti resit. Nejak drevacky jsem to udelal, ale neni nejaky
standardni mechanizmus?
Jiri Binder
NT service
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 19.3.2001 10:07:12
Zalezli v jakych Delphi, ale mozne to je uz od Delphi2, byt bez jakekoliv
podpory ze strany Delphi.
D4 (mozna i D3) maji v Ent (mozna i Pro) verzich podporu a nejakou
dokumentaci v Helpu.
a.
> -----Original Message-----
> From: Miroslav Barica [mailto:miroslav.barica(zv)matador.sk]
> Sent: Thursday, March 15, 2001 2:51 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: NT service
>
>
> zdravim,
> programoval niekto z vas sluzbu pod NT? urcite ano ;o). mohol by ma
> niekto kratuckym navodom, prikladom nasmerovat ako ju vytvorit,
> zaregistrovat a podobne?
> vdaka
> konik
> update explorera
[*] Tomas Bozik <tomas_bozik(zv)pobox.sk> - 19.3.2001 10:22:41
chcel by som updatnut windows explorer (nie IE) a to takym sposobom, ze do
toolbaru pridam nejake buttoniky.... poradi niekto?? vdaka...
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Zobrazeni/posilani e-mailu s HTML obsahem
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 19.3.2001 10:22:29
Zdravim,
potreboval bych pomoci se zobrazenim e-mailu, obsahujicim HTML (obrazky,
pozadi, pripadne i zvuky, atd.).
Jednotlive e-maily nacitam do tabulky (pouze tela dopisu), attachmenty
ukladam zvlast. Telo dopisy pak zobrazim pomoci TWebBrowseru.
A tady je ten problem. Outlook Express uklada odkazy na obrazky formou ID:
<BODY background=3Dcid:000a01c0ac85$31450a90$8c01a8c0(zv)pejasoft>
a dale na konec dopisu prilozi ten obrazek:
orisek
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 19.3.2001 10:23:23
a co takhle udelat to tak ze po spusteni se vytvori kopie vaseho exe souboru
do tempu, a pusti se a ta druha kopie pak zavre tu prvni napr. pres
findwindow a posle do ni message a pak soubor smaze. Ta bezici kopie pak
vykona co potrebujete a ukonci se (zustane sice nekde v tempu dokud ji nekdo
nebo OS nesmaze).
-----Original Message-----
From: Peter Vlkovic [mailto:vlkovic(zv)minv.sk]
Sent: Monday, March 19, 2001 6:59 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: orisek
Hurricane wrote:
>
> Zdravim
>
> V registru je slozka RunOnce. Po kazdem startu se provedou aplikace v ni
> uvedene a sami se vymazou. Ale IMHO tam jdou napsat jen aplikace
(zastupci,
> soubory), ale ne prikaz (del c:\soubor.exe). Pokud by to slo, mas vyhrano.
> Takze bys tam musel zase mit nejaky programek, kterym smazes uninstalator
a
> motas se v zacarovanem kruhu.
...
Ahoj, mne sa to cez RunOnce nepodarilo rozchodit.
Nakoniec som z roznych prikladov "zlepil" nasledovne
riesenie (funguje aj pod Windows NT):
var WinInitFile, AppName: string;
...
// toto zabezpeci odstranenie prave beziaceho programu
if isWindowsNT then
MoveFileEx ( PChar(Application.ExeName), nil,
MOVEFILE_DELAY_UNTIL_REBOOT or MOVEFILE_REPLACE_EXISTING )
else
begin
WinInitFile := GetWinDir();
WinInitFile := StripBackSlash ( WinInitFile ) + '\WININIT.INI';
AppName := Application.ExeName;
AppName := GetShortName ( AppName );
WritePrivateProfileString ( 'Rename', 'NUL', PChar(AppName),
PChar(WinInitFile) );
end;
a este pomocne procedury:
function isWindowsNT: boolean;
// zisti, ci ide o Windows NT
var OS: TOSVersionInfo;
begin
OS.dwOSVersionInfoSize := SizeOf(OS);
GetVersionEx(OS);
Result := ( OS.dwPlatformId = VER_PLATFORM_WIN32_NT );
end;
function GetWinDir: string;
// zisti adresar, kde je nainstalovany OS
var mWinDirLength: integer;
begin
mWinDirLength := MAX_PATH;
SetLength ( Result, mWinDirLength );
mWinDirLength := GetWindowsDirectory(PChar(Result), mWinDirLength);
SetLength ( Result, mWinDirLength );
end;
function StripBackSlash ( const Path: string ): string;
// vypusti koncovy BackSlash
var Len: integer;
begin
Result := Path;
Len := Length ( Result );
if Len > 0 then
if Result[Len] = '\' then
delete ( Result, Len, 1 );
end;
function GetShortName ( const LongName: string ): string;
// vrati short-name prislusneho long-name souboru
var
Required: Integer;
begin
// v prvom behu zisti pozadovanu dlzku kratkeho nazvu
Result := '';
Required := GetShortPathName( PChar(LongName), nil, 0 );
if Required <> 0 then
begin
SetLength ( Result, Required );
Required := GetShortPathName( PChar(LongName), PChar(Result),
Required );
SetLength ( Result, Required );
end;
end;
---
Samozrejme, fyzicku "likvidaciu" programu urobi az
operacny system pri svojom restarte.
Vlkovic
PS: Pisal som to len tak narychlo, dufam,
ze tam nie su nejake chyby.Vytvoreni DBF typu FOXPRO
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 19.3.2001 10:30:23
Pouzivam BDE, pomoci ktereho bych potreboval vytvorit tabulku DBF, kterou
nacte FoxPro 2.5.
DBF vytvarim pomoci SQL, ale nedari se mi vytvorit takove DBF, ktere by
precetla ta Foxka.
Jde to vubec nejak?
Predem dik.KonfView - RichEdit line insertion error.
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 19.3.2001 10:37:23
> Mne to obcas delalo na Win9x, od prechodu na W2000 se mi to nestalo....
Mi to dela prave na W2K EN ...
T.NT service
[*] voltrr1.epr(zv)mail.cez(tec)cz - 19.3.2001 10:38:25
Zdarvim,
mam s tim docela slusne zkusenosti.
Pracuju s tim uz od D2 ( viz. pripadova studie na webu borlandu - Elektrarny Prunerov) a
stale pouzivam stejny framework (D2>D3>D4>D5). Je s nim sice trochu vic prace nez s
tim od Borlandu (nenafrkas veci na datamodul a jedes) ale je tam mnohem lepsi
podpora napr. ladeni (spustis aplikaci s parametrem -debug a ona si vytvori sama
pro sebe jakoby prostredi pro spusteni v service modu)
Pro zacatek ti to reknu asi takhle - musis byt schopen programovat thready bezici
bez formu a zprav oken (datamoduly pouzit muzes) . Pokud to umis tak neni
se sluzbou problem, pokud ne tak se to bud naucis nebo nenaucis. No a kdyz
se to odmitnes ucit tak je lepsi udelat aplikaci jako normalni a poustet ji pres SrvAny
Pokud budes chtit ten framework tak se ozvi
Radek
> Zalezli v jakych Delphi, ale mozne to je uz od Delphi2, byt bez jakekoliv
> > programoval niekto z vas sluzbu pod NT? urcite ano ;o). mohol by ma
> > niekto kratuckym navodom, prikladom nasmerovat ako ju vytvorit,
> > zaregistrovat a podobne?
Video Capture pres AviCap32.dll
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 19.3.2001 10:51:40
From: Bednar��k Dalibor <dalibor(zv)torola(tec)cz>
> Stahl jsem si pro delphi podporu, ktera vyuziva knihovnu AviCap32.dll(plus
> jeste nejake dalsi knihovny).
> Chtel bych sejmou obraz z urciteho zarizeni s video vstupem (presneji Ati
> Rage 128 Pro) v urcitem okamziku.
> Coz by melo fungovat. Jenze na W2000CZProf to nejak nefunguje.
> Pri pokusu u ulozeni obrazu do obrazku, nebo do clipboradu to zahlasi
chybu.
Ahoj,
mozno to bude suvisiet s velkostou ukladaneho obrazku. Posielam kusok kodu,
ktory u mna funguje pre porovnanie.
AviCap: TAviCap; // delphi-wrapper pre hCapWnd
pouzivam tieto spravy na zachytenie obrazku
SendMessage(hCapWnd, WM_CAP_SET_OVERLAY, {True/False}, 0)
SendMessage(hCapWnd, WM_CAP_GRAB_FRAME_NOSTOP, 0, 0)
SendMessage(hCapWnd, WM_CAP_FILE_SAVEDIB, 0, {DibFileName})
procedure TAviCap.SaveToFile;
var
IsOverlay: Boolean;
begin
IsOverlay := Overlay;
Overlay := False;
capGrabFrameNoStop(FCapWndHandle);
capFileSaveDIB(FCapWndHandle, lParam(FDIBFileName));
Overlay := IsOverlay;
end;
procedure TLiveVideoForm.Snapshot(FileName: string);
var F: File;
begin
AviCap.SaveToFile;
AssignFile(F, AviCap.DibFileName);
Rename(F, FileName);
end;
Pavol Stolc
pstolc(zv)sc.sknet.sk
Oracle8 pres ODBC
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 19.3.2001 11:01:53
Mam potize s pristupem k Oracle 8.1.7. Enterprise pres ODBC.
Konkretne se to tyka fieldu typu NUMBER.
Pokud pouziju SELECT na tabulku kde nektery z numerickych fieldu ma hodnotu
NULL,
dostanu chybu (Oracle)(ODBC)Restricted data type attribute violation.
SQL dotaz poustim v SQL Exploreru.
Pouzivam Oracle ODBC Driver 8.01.07.00. a BDE 5.11
Chyba se vyskytuje i pri pouziti native linku od Borlandu.
Pokud pustim dotaz primo v Oraclu (napr. v SQL Plus Worksheet, tak je vse v
poradku).
modelovy priklad:
TABULKA:
CREATE TABLE pokus1(
id NUMBER(10) NOT NULL,
cislo1 NUMBER(10),
cislo2 NUMBER(15,2),
CONSTRAINT pk_pokus1 PRIMARY KEY (id)
);
DATA:
ID CISLO1 CISLO2
-- ---------- ----------
1 22123 10
10 123
3 123 100
DOTAZ:
SELECT * FROM pokus1
vrati chybu
pokud udelam UPDATE pokus1 SET cislo2=12 WHERE id=10
tak bude select fungovat v poradku
Diky za pomoc
Martin Kleiner
IB a collate
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.3.2001 11:27:07
Ahoj,
> Dalsim duvodem je snadna zmena struktury. POkud si totiz zdefinujes jeste
> nejake vlastnosti domeny
> treba kontrolu rozsahu, staci to menit jen na jednom miste.
*****Na jednom miste plus na milionech dalsich v pripade parametru pro
procedury, protoze typy parametru nemohou byt definovany domenami. :-(
Povazuji to za nedotazenost IB.
Slavek
> Ludek
--------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
* K Jezisku, panacka, ja se budu kolebati...
* Narodil jsem se, radujte se...
--------------------------------------
Registry WINDOWS
[*] "Milan Skalsk�" - 19.3.2001 10:55:04
Jasne jasne ... byl bych moc vdecnej :)))
... a za tu adresu taky dik :)
P.S:
Nejakou jinou neznas ? (Ne ze bych nebyl anglofil, ale neco v cestine,
polstine, rustine nebo nejakem jinem slovanskem jazyce ?????) :)))
>Hodne veci je na http://registry.winguides.com/, mam i offline verzi,
>jestli
>bys ji chtel poslat.
>
>RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
>ICQ # 68652380
>
>D&COMM s.r.o
>Korunova�n� 6
>Praha 7
>
> Ahoj lidi, nevite nekdo o nejakych internetovych strankach nebo
>odborne literature, ktera se zabyva registrama Windows na trosku hlubsi
>urovni ???
>
>Zajimala by mne hlavne systemova politika (kde co kdy a jak
>zakazat,povolit,
>
>zobrazit, nezobrazit, loadovat, neloadovat, spou#t�t nespou#t�t ... atd.)
> ... ale teky bych rad sehnal nejakeho kompletniho pruvodce po registrech
>... vsechno bude lepsi nez literatura od Microsoftu, kde nereknou skoro nic
>:(
>
>S pozdravem a diky MIlan
>=============
>
>
>
=============
Milan
Delphi beginner
Delphi 3, W98
orisek
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 19.3.2001 11:56:00
> function isWindowsNT: boolean;
> // zisti, ci ide o Windows NT
> var OS: TOSVersionInfo;
> begin
> OS.dwOSVersionInfoSize := SizeOf(OS);
> GetVersionEx(OS);
> Result := ( OS.dwPlatformId = VER_PLATFORM_WIN32_NT );
> end;
>
Zlepsovak:
Uses Sysutils;
function isWindowsNT: boolean;
// zisti, ci ide o Windows NT
var OS: TOSVersionInfo;
begin
Result := Win32Platform = VER_PLATFORM_WIN32_NT
end;
T.Pretekani systemovych prostredku
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 19.3.2001 11:56:49
Pro zobrazovani a zkryvani radsi pouzivej Show a Hide.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: David ��ra
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, March 19, 2001 9:22 AM
Subject: Pretekani systemovych prostredku
Zdravim,
potreboval bych poradit mozna s banalni veci, ale ja se u ni pekne potim;). Muj problem spocivas v tom, ze si necham v programu vytvorit vsechny formulare automaticky a pak mezi nimi prepinam pomoci Visible:=true/false; Samozrejme krome hlavniho. Obcas se ovsem stava, ze tato procedure spotrebuje vsechny systemove prostredky. Nechapu proc, kdyz vsechnyformulare jsou jiz predem vytvorene a proc program nasledne spadne s hlaskou Out of system resources. Nevi nekdo, jak by se toto dalo osetrit? Predem dik!
David Sara
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
C++ dialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 12:26:56
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> nevite nahodou nekdo, jak se urcuji souradnice v C++ dialogovych
> oknech? Rozebral jsem resource dialogu a zjistil jsem, ze
> souradnice neodpovidaji pixelum.
Ahoj,
pomoci dialog units. Podivej se na funkce MapDialogRect a GetDialogBaseUnits.
Petr Vones, amatersky programator
Pretekani systemovych prostredku
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 19.3.2001 12:28:45
>Zdravim,
>potreboval bych poradit mozna s banalni veci, ale ja se u ni pekne potim;). Muj problem spocivas v tom, ze si necham v programu vytvorit vsechny >formulare automaticky a pak mezi nimi prepinam pomoci Visible:=true/false; Samozrejme krome hlavniho. Obcas se ovsem stava, ze tato procedure >spotrebuje vsechny systemove prostredky. Nechapu proc, kdyz vsechnyformulare jsou jiz predem vytvorene a proc program nasledne spadne s >hlaskou Out of system resources. Nevi nekdo, jak by se toto dalo osetrit? Predem dik!
>David Sara
Kazdy formular spotrebuje pri vytvoreni vice ci mene prostredku. Takze jedine reseni je vytvorit si formular tesne pred tim, nez jej skutecne potrebuji a po uzavreni jej zase odstranit. Je to vic psani, ale asi s tim nic jineho delat neda.
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
KADAO
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 19.3.2001 12:42:15
Pouzivam.
Vcelku spokojenost, pouze se mi nedari vytvaret nove databaze (i kdyz to delam podle popisu v helpu). Syntakticky dobre ale hodi to behovou chybu. Da se to obejit distribuci prazdne databaze s programem.>>> JBenes(zv)cpoj(tec)cz 7.3.2001 10:41:50 >>>
Ahoj,
pouzivate, prosim, nekdo KADAO?
Diky
Jaro B.pocet radek v souboru
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 19.3.2001 12:44:19
Ahoj,
lze nejak jednoduse (a hlavne rychle) zjistit pocet radek v textovem souboru?
Soubory maji radove 2 MB a kolem 9 000 radek. (nejvetsi zatim mel asi 5 MB)
Dik
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================orisek
[*] voltrr1.epr(zv)mail.cez(tec)cz - 19.3.2001 12:52:37
> function StripBackSlash ( const Path: string ): string;
> // vypusti koncovy BackSlash
Nevim od jake verze D ,ale v D5 urcite jsou v sysutils
funkce IncludeTrailingBackslash a ExcludeTrailingBackslash
ktere ti bud pridaj / zrusej backslash - pokud tam neni/je
Obcas si rikam ze asi budu muset zacit cist ty kusy
helpu Co je noveho. Tady ty funkce jsem nasel
vicemene nahodou tak nedavno :-)
Radek
DelphiX & TBackgroundSprite
[*] Luis <xx1(zv)atlas(tec)cz> - 19.3.2001 13:00:45
> Objekt TBackgroundSprite ma propertu Image: TPictureCollectionItem a
objekt
> TPictureCollectionItem ma Picture: TPicture.
> Takze staci napsat napr.: BackSpr.Image.Picture.LoadFromFile('bla.bla').
Za prve : Problem je v tom, ze ja si tu Bitmapu generuju za behu, takze
LoadFromFile pouzit nemuzu. ( ulozit na disk to, co vygeneruju a pak
to nacist mi nepripada vhodny )
Za druhe : BackSpr.Image.Picture.LoadFromFile('bla.bla') sem zkousel
hned na zacatku a neslo to.
Luis
Pretekani systemovych prostredku
[*] David #�ra - 19.3.2001 13:41:55
Diky, no kdyz vytvarim formulare rucne tak se me stava ze pg pada. Jeste sem se do toho moc nedostal. Jen me zarazi, proc to pada az po delsim pouzivani pg a ne hned. Muzes me aspon v kostce popsat jak funguji frames...nejak sem to nepochopil ani pomoci chytry literatury:)
David S.
ps: jeste jednou dik;)))))
----- Original Message -----
From: Bene# Jaroslav
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, March 19, 2001 9:53 AM
Subject: RE: Pretekani systemovych prostredku
Ahoj,
tenhle problem jsem mel take. Musel jsem vsechny formulare (krome hlavniho) vytvaret bez autocreate tj. pouze tehdy, kdyz bylo potreba. Pak se snizil napor na prostredky. Pokud delas v D5 tak je taky dobre udelat cast formularu do frames.
Jaro B.
-----Original Message-----
From: David ��ra [mailto:dsara(zv)evres(tec)cz]
Sent: Monday, March 19, 2001 9:22 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Pretekani systemovych prostredku
Zdravim,
potreboval bych poradit mozna s banalni veci, ale ja se u ni pekne potim;). Muj problem spocivas v tom, ze si necham v programu vytvorit vsechny formulare automaticky a pak mezi nimi prepinam pomoci Visible:=true/false; Samozrejme krome hlavniho. Obcas se ovsem stava, ze tato procedure spotrebuje vsechny systemove prostredky. Nechapu proc, kdyz vsechnyformulare jsou jiz predem vytvorene a proc program nasledne spadne s hlaskou Out of system resources. Nevi nekdo, jak by se toto dalo osetrit? Predem dik!
David Sara
Pretekani systemovych prostredku
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 19.3.2001 13:43:43
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.[�u#ka R�bert]
Nepouzivaj AutoCreate a to uz nie prepinanie medzi form pomocou Visible:=
BOOL Jodnoducho pouzivaj Form:= TForm.Create(self); a v Option project si
nastav aby sa Ti form nevytvarali automaticky. Vytvaraj si ich sam a v
Udalosti formu OnClose nastav uvolnovenie formu a to takto>
procedure TForm.OnClose(var Action: Boolean);
begin
Action:= caFree;
end;
Mne to takto fici stale a pouyivam naoyaj velmi vela formov.
> Zdravim,
> potreboval bych poradit mozna s banalni veci, ale ja se u ni pekne
potim;). Muj problem spocivas v tom, ze si necham v > programu vytvorit
vsechny formulare automaticky a pak mezi nimi prepinam pomoci
Visible:=true/false; Samozrejme krome > hlavniho. Obcas se ovsem stava, ze
tato procedure spotrebuje vsechny systemove prostredky. Nechapu proc, kdyz >
vsechnyformulare jsou jiz predem vytvorene a proc program nasledne spadne s
hlaskou Out of system resources. Nevi nekdo, jak > by se toto dalo osetrit?
Predem dik!
> David Sara
--------------------------------------------------------
Robert Suska, spravca siete, amatersky programator
Radio Lumen, Banska Bystrica
Slovenska republika
www.lumen.sk
spravca(zv)lumen.sk
ICQ Id: 82600022
mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
088/41 25 739 kl.14
--------------------------------------------------------
Vkladani hodnoty NULL
[*] Marcant <marcant(zv)sct.sk> - 19.3.2001 14:02:15
Mne vzdy fungovala dvojica prikazov
DataModul.KopirovaniD.ParamByName('Cislo_cer').Bound:= True; // Parameter
sa pouzije
DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear; //
Obsah parametra sa zrusi (teda bude NULL)
ak sa do parametra priradi hodnota, automaticky sa nastavi Bound na True,
takze je samozrejme mozne pouzit napriklad aj konstrukciu
DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= '';
DataModul.KopirovaniD.ParamByName('Cislo_cer').Clear;
----- Original Message -----
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 18, 2001 5:10 PM
Subject: Vkladani hodnoty NULL
> Ahoj vsem kdoz chteji poradit.
> Mam takovy problem. Mam komponentu TQuery a tabulku Prostredky. Do teto
> tabulky chci vlozit hodnoty. Do nekterych poli chci ale vlozit hodnotu
Null.
> Zkousel jsem to takto priklad:
>
> DataModul.KopirovaniD.Close;
> DataModul.KopirovaniD.SQL.Clear;
> DataModul.KopirovaniD.SQL.Add('Insert Into Prostredky Values' +
> + '(:Kod,:Nazev,:Varianta,:Cislo_vyk,' +
> +
> ':Cislo_proh,:Cislo_cer,:Cislo_obs,:Cislo_mon,' +
> + ':Skupina,:Objem,:Norma,:Hruba,:Dod,' +
> +
> ':Cista,:Uroven,:Zadal,:Datum,:Poznamka)');
>
> ...............
> .............
> DataModul.KopirovaniD.ParamByName('Cislo_cer').AsString:= Null;
<----
> Takto mi to nefunguje.
> ..............
> .............
> if not (DataModul.KopirovaniD.Prepared) then
> DataModul.KopirovaniD.Prepare;
> DataModul.KopirovaniD.ExecSQL;
>
> Nevite nekdo jak MS SQL server donutit, aby tam vlozil hodnotu Null.
>
> Diky za kazdou radu.
>
> Filip
Pretekani systemovych prostredku
[*] David #�ra - 19.3.2001 14:05:10
Mohl by si me rict v cem se tato metoda lisi? Rad i vim proc to je tak lepci a nestaci me ze to funguje;))))))) Jinak diky moc dneska to vyzkousim.
----- Original Message -----
From: Petr
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, March 19, 2001 11:56 AM
Subject: Re: Pretekani systemovych prostredku
Pro zobrazovani a zkryvani radsi pouzivej Show a Hide.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: David ��ra
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, March 19, 2001 9:22 AM
Subject: Pretekani systemovych prostredku
Zdravim,
potreboval bych poradit mozna s banalni veci, ale ja se u ni pekne potim;). Muj problem spocivas v tom, ze si necham v programu vytvorit vsechny formulare automaticky a pak mezi nimi prepinam pomoci Visible:=true/false; Samozrejme krome hlavniho. Obcas se ovsem stava, ze tato procedure spotrebuje vsechny systemove prostredky. Nechapu proc, kdyz vsechnyformulare jsou jiz predem vytvorene a proc program nasledne spadne s hlaskou Out of system resources. Nevi nekdo, jak by se toto dalo osetrit? Predem dik!
David Sara
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
C++ dialog
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 19.3.2001 14:15:09
On 19 Mar 2001, at 12:26, Petr Vones wrote:
> > nevite nahodou nekdo, jak se urcuji souradnice v C++ dialogovych
> > oknech? Rozebral jsem resource dialogu a zjistil jsem, ze souradnice
> > neodpovidaji pixelum.
>
> pomoci dialog units. Podivej se na funkce MapDialogRect a
> GetDialogBaseUnits.
Tak jsem to probiral, ale MapDialogRect mi nefunguje na
standardni Delphi dialog, a GetDialogBaseUnits zase nedava
smysl, pokud je nastaven jiny nez System font - vraci mi to prilis
velke hodnoty.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
HWND aktivniho prvku
[*] pepek_007(zv)post(tec)cz - 19.3.2001 15:09:41
Zdravim!
Pokud se nemylim, tak Screen.ActiveControl.Handle funguje jen pro moji aplikaci :-( Ja to ovsem potrebuju obecne pro cely system.
Takze znovu zformuluju problem: znam HWnd nejakeho okna, ktere je prave aktivni (podotykam, ze to je obecne okno - ne moje aplikace). A na tomto okne potrebuju zjistit prvek, ktery ma focus.
Prece to nemuze byt zase takovy velky problem, prosim, poradte.
S pozdravem
Petr Pokorny
> chci vas pozadat o radu. Jakym zpusobem je mozne zjistit HWND aktivniho
> prvku (myslim tim prvku, ktery ma focus klavesnice - napr. Memo, Edit atp.)?
Ahoj,
napriklad pomoci Screen.ActiveControl.Handle
Petr Vones, amatersky programator
OnKeyDown a Free
[*] Vladislav Cadsky <delphi(zv)cadsky(tec)cz> - 19.3.2001 15:31:49
Zdravim, netusite, proc mi tento kod pris tisku klavesy ESC na komponente
kterou vytvorim pres Button1 vyjede chyba pameti ?
Pokud si komponentu vlozim rucne do formulare a povesim udalost OnKeyDown
tak mi chyba nenastane.
----------------------
procedure TForm1.Button1Click(Sender: TObject);
var
DBLookupCombo : TDBLookupComboBox;
begin
DBLookupCombo := TDBLookupComboBox.create(self);
with DBLookupCombo do begin
parent := form1;
OnkeyDown := DBLookupComboBox1KeyDown;
end;
end;
procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=27 then sender.free;
end;
-------------------------
Pouzivam Delphi5
S pozdravem Vlada
pocet radek v souboru
[*] Vladislav Cadsky <delphi(zv)cadsky(tec)cz> - 19.3.2001 15:35:35
Ahoj, ja bych to udelal asi takto:
var
StringList :TStringList;
begin
StringList := TStringList.Create;
try
StringList.LoadFromFile('c:\autoExec.bat');
ShowMessage('Pocet radku: '+InttoStr(StringList.count));
finally
StringList.free;
end;
end;
Ale mozna to pujde jeste jinak a rychleji.
Vlada
----- Original Message -----
From: "Richard Valny" <Richard.Valny(zv)oku-st(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 19, 2001 12:44 PM
Subject: pocet radek v souboru
> Ahoj,
> lze nejak jednoduse (a hlavne rychle) zjistit pocet radek v textovem
souboru?
>
> Soubory maji radove 2 MB a kolem 9 000 radek. (nejvetsi zatim mel asi 5
MB)
>
> Dik
>
> =========================================
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-323 746
> 386 22 STRAKONICE
> =========================================
>
>VCL a TCustomComboBox
[*] Jan Naiser <tua(zv)wo(tec)cz> - 19.3.2001 15:44:23
Preji pekny den,
potreboval bych vytvorit potomka TComboBoxu tak, aby byla moznost nastavit
Height a BorderStyle (na bsNone), abych mohl komponety pouzivat bez okraje
(cimz se da v nutnem pripade usetrit misto na formu - umi to napr. formulare
Accesu). Uz treti den se hrabu ve VCL a nejak nemuzu prijit na to, kde se da
ovlivnit vykresleni Borderu a proc u TComboBoxu nejde nastavit Height u
Style=csDropDown. Patrne je to zakoreneno jeste hloubeji a budu muset
vytvorit svuj TCustomComboBox a z nej potom vyjit. Pokud se kouknu na
TDBLookUpCombo, ten vychazi z TCustomEdit a zde uz by se dalo nejak
pokrocit.
Otazka: kde a cim se ovlivni vykresleni okraje komponenty?
Za pomoc dekuji.
Jan Naiser.
DelphiX & TBackgroundSprite
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 19.3.2001 15:53:12
> > Objekt TBackgroundSprite ma propertu Image: TPictureCollectionItem a
> objekt
> > TPictureCollectionItem ma Picture: TPicture.
> > Takze staci napsat napr.: BackSpr.Image.Picture.LoadFromFile('bla.bla').
>
> Za prve : Problem je v tom, ze ja si tu Bitmapu generuju za behu, takze
> LoadFromFile pouzit nemuzu. ( ulozit na disk to, co vygeneruju a pak
> to nacist mi nepripada vhodny )
> Za druhe : BackSpr.Image.Picture.LoadFromFile('bla.bla') sem zkousel
> hned na zacatku a neslo to.
Jo, promin!
Zkus to takhle:
PCItem := TPictureCollectionItem.Create(IL_System.Items);
PCItem.Picture.LoadFromFile(AFileName);
...takhle mi to uz funguje.
A pokud mas uz obrazek v pameti, tak zkus bud LoadFromStream, nebo treba
Assign.
Nekdo pry dal za LoadFromXXX(...)
Image.Restore;
a pomohlo to.
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
OT -mail client
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 19.3.2001 15:59:35
OE 5.00 - 2919 - 6700
- tusim ze je z baliku s Explorerem 5.5
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Subject: Re: OT -mail client
> From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> > Outlook Express (jenz vyuzivam ted) ma zase chyby (obsas se mu nechce
> > quotovat, obcas zmrsi seskupovani podle subjektu...).
>
> Ahoj,
>
> jaka verze OE ? OE5.01SP2 mi funguje (narozdil od OE4) bez problemu.
>
> Petr Vones, amatersky programator
Oracle8 pres ODBC
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 19.3.2001 16:19:03
To mi bohuzel nepomuze, protoze chyba nastava i u celych cisel - takze
decimal separatory na to nemaji vliv.
Martin Kleiner
> Nevim, zda-li Ti to pomuze, ale my jsme meli trochu obdobne potize a
resili
> jsme to nastavenim session (je to klasicky SQL prikaz, ktery se vzdy musi
> provest na pocatku startu aplikace):
>
> alter session set nls_numeric_characters = '.,'
>
> S pozdravem
> Jiri Goth
> >Mam potize s pristupem k Oracle 8.1.7. Enterprise pres ODBC.
> >Konkretne se to tyka fieldu typu NUMBER.
> >Pokud pouziju SELECT na tabulku kde nektery z numerickych fieldu ma
hodnotu
> >NULL,
> >dostanu chybu (Oracle)(ODBC)Restricted data type attribute violation.
> >
> >SQL dotaz poustim v SQL Exploreru.
> >Pouzivam Oracle ODBC Driver 8.01.07.00. a BDE 5.11
> >Chyba se vyskytuje i pri pouziti native linku od Borlandu.
> >Pokud pustim dotaz primo v Oraclu (napr. v SQL Plus Worksheet, tak je vse
> v
> >poradku).
OT -mail client
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 19.3.2001 17:02:09
> OE 5.00 - 2919 - 6700
> - tusim ze je z baliku s Explorerem 5.5
To samy mam ja - prave jsem zkousel instalovat IE 5.5 SP1 - a bylo mi
receno, ze pouzivam posledni verze vsech komponent cili doporucuje se SP1
neinstalovat znovu :-(
Co s tim? SP2 pro IE5.5 neni (nenasel jsem jej u MS)
D. Toman
> > jaka verze OE ? OE5.01SP2 mi funguje (narozdil od OE4) bez problemu.
Jak zjistit aktualni prava
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 19.3.2001 17:41:44
Zdravim.
Jak zjistim (u WinNT/2000) ze je program spusten s administratorskymi pravy.
Jde mi o to, ze pri registraci programu potrebuji zapisovat do klice HKLM,
kam normalni user nemuze.
Predem dik.
Ludek
Nastroj pro UML
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 19.3.2001 18:36:39
Dobry den vsem,
vim ze se uz tomhle vedla diskuse pred davnymi
casy. Muzete nekdo doporucit freeware
(klidne i v Jave) modelovaci nastroj ?
Ondrej Krajicek
--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic et {ics,fi}.muni(tec)cz
Omnia ad maiorem Informaticae gloriam.
email: okay at sourceforge.net -->>> The Nexus Framework <<<--
Of course we can, moreover we must, it is our holiest duty.
---------------------------------------------------------------------
OnKeyDown a Free
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 19.3.2001 18:39:14
----- Original Message -----
From: "Vladislav Cadsky" <delphi(zv)cadsky(tec)cz>
> Zdravim, netusite, proc mi tento kod pris tisku klavesy ESC na komponente
> kterou vytvorim pres Button1 vyjede chyba pameti ?
> Pokud si komponentu vlozim rucne do formulare a povesim udalost OnKeyDown
> tak mi chyba nenastane.
>
> ----------------------
> procedure TForm1.Button1Click(Sender: TObject);
> var
> DBLookupCombo : TDBLookupComboBox;
> begin
> DBLookupCombo := TDBLookupComboBox.create(self);
> with DBLookupCombo do begin
> parent := form1;
> OnkeyDown := DBLookupComboBox1KeyDown;
> end;
> end;
>
> procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if key=27 then sender.free;
> end;
Ahoj.
Neni nahodou potreba taky nastavit Datasource a DataField ?
Ludek
Oracle8 pres ODBC
[*] Olesia <olesia(zv)idirect(tec)com> - 19.3.2001 12:58:53 -0500
Ked tam nemas vela fieldov, skus dat select nvl(field,0) ,.... from tabulka
Potom ti null dosadi nulou
Lelitka
----- Original Message -----
From: Martin Kleiner <mkleiner(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 19, 2001 10:19 AM
Subject: Re: Oracle8 pres ODBC
> To mi bohuzel nepomuze, protoze chyba nastava i u celych cisel - takze
> decimal separatory na to nemaji vliv.
>
> Martin Kleiner
>
> > Nevim, zda-li Ti to pomuze, ale my jsme meli trochu obdobne potize a
> resili
> > jsme to nastavenim session (je to klasicky SQL prikaz, ktery se vzdy
musi
> > provest na pocatku startu aplikace):
> >
> > alter session set nls_numeric_characters = '.,'
> >
> > S pozdravem
> > Jiri Goth
>
> > >Mam potize s pristupem k Oracle 8.1.7. Enterprise pres ODBC.
> > >Konkretne se to tyka fieldu typu NUMBER.
> > >Pokud pouziju SELECT na tabulku kde nektery z numerickych fieldu ma
> hodnotu
> > >NULL,
> > >dostanu chybu (Oracle)(ODBC)Restricted data type attribute violation.
> > >
> > >SQL dotaz poustim v SQL Exploreru.
> > >Pouzivam Oracle ODBC Driver 8.01.07.00. a BDE 5.11
> > >Chyba se vyskytuje i pri pouziti native linku od Borlandu.
> > >Pokud pustim dotaz primo v Oraclu (napr. v SQL Plus Worksheet, tak je
vse
> > v
> > >poradku).
>pocet radek v souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 19:31:50
From: "Richard Valny" <Richard.Valny(zv)oku-st(tec)cz>
> lze nejak jednoduse (a hlavne rychle) zjistit pocet radek v textovem
> souboru?
Ahoj,
napriklad takhle. JclFileUtils je na (http://delphi-jedi.org/Jedi:CODELIBJCL)
uses
JclFileUtils;
function FileLinesCount(const FileName: TFileName): Integer;
var
Stream: TJclFileMappingStream;
P, EndP: PChar;
begin
Result := 0;
Stream := TJclFileMappingStream.Create(FileName, fmOpenRead or
fmShareDenyWrite);
try
P := Stream.Memory;
EndP := P + Stream.Size;
while P < EndP do
begin
if P^ = #10 then
Inc(Result);
Inc(P);
end;
finally
Stream.Free;
end;
end;
Petr Vones, amatersky programator
OT -mail client
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 19:41:15
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> OE 5.00 - 2919 - 6700
> - tusim ze je z baliku s Explorerem 5.5
Ahoj,
pochybuji, tohle spis vypada na OE5.01 bez SP. Viz verze IE:
http://support.microsoft.com/support/kb/articles/Q164/5/39.ASP
Petr Vones, amatersky programator
OT: Re: OT -mail client
[*] Hurricane <hurricane(zv)quick(tec)cz> - 19.3.2001 20:26:58
Zdravim
A tenhle to quotuje spravne? Ja mam 5.50.41.33.2400 (verze 5.5 od atlasu) a
obcas to quotuje, obcas
ne.
Hurricane
----- Original Message -----
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 19, 2001 3:59 PM
Subject: Re: OT -mail client
> OE 5.00 - 2919 - 6700
> - tusim ze je z baliku s Explorerem 5.5
>
> ----- Original Message -----
> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Subject: Re: OT -mail client
>
>
> > From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> > > Outlook Express (jenz vyuzivam ted) ma zase chyby (obsas se mu nechce
> > > quotovat, obcas zmrsi seskupovani podle subjektu...).
> >
> > Ahoj,
> >
> > jaka verze OE ? OE5.01SP2 mi funguje (narozdil od OE4) bez problemu.
> >
> > Petr Vones, amatersky programator
>
>
Pozice kurzoru a vyber v ComboBox
[*] Jan Dubsk� <hdplot(zv)seznam(tec)cz> - 19.3.2001 20:27:58
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Mam nasledujici problem.
V udalosti OnExit komponenty ComboBox potrebuji zjisti na ktere pozici se nachaz� kurzor, pripadne jestli bylo neco vybrano. Pouziti nasledujici procedury ale nefunguje Obe integer hodnoty jsou vzdy 0, vybrany text je prazdny string. A jak lze zjisti, na ktere pozici je umisten kurzor, pokud neni nic vybrano.
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
Label1.Caption := IntToStr(ComboBox1.SelStart);
Label2.Caption := IntToStr(ComboBox1.SelLength);
Edit1.Text := ComboBox1.SelText;
end;Dotaz (mozna) budouciho kolegy
[*] Martin Burle <mburle(zv)volny(tec)cz> - 19.3.2001 20:31:26
DD,
obracim se na (mozna) budouci kolegy - uzivatele Delphi:
Po letech programovani v prostredi Paradox for DOS se, konecne, chystam
dalsi veci delat pod Wokny. Windowsove verze Pdoxu mne zatim nepresvedcily
(a
bojim se, za ani nova verze 10 neprinese moc noveho), hledam tedy
alternativu. Mam par zkusenosti s Deplhi 3, takze se poohlizim timto
smerem.
Desim se ale toho, ze budu muset stravit spoustu casu (a toho mam strasne
malo) vytvarenim zakladniho aplikacniho rozhrani, mohu-li tomu tak rikat.
Potreboval bych si trochu zrychlit start. Tedy, muj dotaz zni:
1.Da se ziskat nejak knihovna, komponenta (tady v tom nemam prilis jasno)
apod., ktera resi zakladni prostredi pro multiokenni databazove aplikace,
vcetne prekladu hlasek BDE? Nebo to uz je v Delphi obsazeno? Kde?
Predstavuji si napr. komponentu (rikejme ji treba tableFrame), ktera umi v
pripade udalosti (treba touch, departRecord apod) zavolat knihovnu, ktera
obsahuje obecnou obsluhu udalosti, doplnitelne vlastni obsluznou procedurou
(na zaklade vlastnosti te volajici komponenty), take obsahuje obecne ceske
reseni datovych filtru, prepinani setrideni (indexu) apod.
2.existuje nejaka volne dostupna ukazkova aplikace, vc zdrojaku?
Diky za odpovedi,
Martin Burle
HWND aktivniho prvku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 20:44:44
From: <pepek_007(zv)post(tec)cz>
> Pokud se nemylim, tak Screen.ActiveControl.Handle funguje jen pro moji
> aplikaci :-( Ja to ovsem potrebuju obecne pro cely system.
Ahoj,
pak to lze udelat napriklad takhle:
function GetSystemFocusWindow: HWND;
var
GuiThreadInfo: TGUIThreadInfo;
_GetGUIThreadInfo: function (idThread: DWORD; var pgui: TGUIThreadinfo):
BOOL; stdcall;
ForeWnd: HWND;
ForeTID: DWORD;
begin
Result := 0;
(zv)_GetGUIThreadInfo := GetProcAddress(GetModuleHandle(user32),
'GetGUIThreadInfo');
if Assigned(_GetGUIThreadInfo) then
begin
GuiThreadInfo.cbSize := SizeOf(GuiThreadInfo);
if GetGUIThreadInfo(0, GuiThreadInfo) then
Result := GuiThreadInfo.hwndFocus
end
else
begin // Win95 does not have GetGUIThreadInfo function
ForeWnd := GetForegroundWindow;
if ForeWnd <> 0 then
begin
ForeTID := GetWindowThreadProcessId(ForeWnd, nil);
AttachThreadInput(GetCurrentThreadId, ForeTID, True);
Result := GetFocus;
AttachThreadInput(GetCurrentThreadId, ForeTID, False);
end;
end;
end;
Petr Vones, amatersky programator
Dotaz (mozna) budouciho kolegy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 20:48:12
From: "Martin Burle" <mburle(zv)volny(tec)cz>
> 1.Da se ziskat nejak knihovna, komponenta (tady v tom nemam prilis jasno)
> apod., ktera resi zakladni prostredi pro multiokenni databazove aplikace,
> vcetne prekladu hlasek BDE? Nebo to uz je v Delphi obsazeno? Kde?
Ahoj,
pokud ti mohu poradit, tak na souborove databaze typu Paradox zapomen a prejdi
na nejaky SQL server. Napriklad InterBase 6 je dokonce zdarma:
http://www.borland.com/interbase/
Petr Vones, amatersky programator
OnKeyDown a Free
[*] Hurricane <hurricane(zv)quick(tec)cz> - 19.3.2001 20:55:20
Zdravim
Ja bych to zkusil natvrdo pretypovat.
if Key = 27 then (Sender as TDBLookupComboBox).Free;
Hurricane
----- Original Message -----
> From: "Vladislav Cadsky" <delphi(zv)cadsky(tec)cz>
> > Zdravim, netusite, proc mi tento kod pris tisku klavesy ESC na
komponente
> > kterou vytvorim pres Button1 vyjede chyba pameti ?
> > Pokud si komponentu vlozim rucne do formulare a povesim udalost
OnKeyDown
> > tak mi chyba nenastane.
> >
> > ----------------------
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > DBLookupCombo : TDBLookupComboBox;
> > begin
> > DBLookupCombo := TDBLookupComboBox.create(self);
> > with DBLookupCombo do begin
> > parent := form1;
> > OnkeyDown := DBLookupComboBox1KeyDown;
> > end;
> > end;
> >
> > procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key:
Word;
> > Shift: TShiftState);
> > begin
> > if key=27 then sender.free;
> > end;Nastroj pro UML
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.3.2001 21:12:15
Jeden freeware pro osobni pouziti je D.OB (tusim ze Delphia Object
Model). Je treba se u nich zaregistrovat, ale registrace je zdarma. Z
tech freewarovych nevypadal spatne.
a nakonec www adresa:
www.ii.atos-group.com/rhone-alpes/dom/english/index.html
Muzes zkusit www.objects(tec)cz, nekde tam byl prehled OM nastroju vcetne
ceny atd.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
19.03.2001 Ondrej Krajicek:
> Dobry den vsem,
> vim ze se uz tomhle vedla diskuse pred davnymi
> casy. Muzete nekdo doporucit freeware
> (klidne i v Jave) modelovaci nastroj ?
> Ondrej Krajicek
Nastroj pro UML
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 19.3.2001 22:25:22
>
> Dobry den vsem,
>
> vim ze se uz tomhle vedla diskuse pred davnymi
> casy. Muzete nekdo doporucit freeware
> (klidne i v Jave) modelovaci nastroj ?
>
> Ondrej Krajicek
>
http://www.objectsbydesign.com/tools/umltools_byCompany.html
Radim
OnKeyDown a Free
[*] Vladislav Cadsky <delphi(zv)cadsky(tec)cz> - 19.3.2001 22:45:37
Zdravim, diky, ale ani tohle bohuzel nepomaha :(
Vlada
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 19, 2001 8:55 PM
Subject: Re: OnKeyDown a Free
> Zdravim
>
> Ja bych to zkusil natvrdo pretypovat.
>
> if Key = 27 then (Sender as TDBLookupComboBox).Free;
>
> Hurricane
> ----- Original Message -----
> > From: "Vladislav Cadsky" <delphi(zv)cadsky(tec)cz>
> > > Zdravim, netusite, proc mi tento kod pris tisku klavesy ESC na
> komponente
> > > kterou vytvorim pres Button1 vyjede chyba pameti ?
> > > Pokud si komponentu vlozim rucne do formulare a povesim udalost
> OnKeyDown
> > > tak mi chyba nenastane.
> > >
> > > ----------------------
> > > procedure TForm1.Button1Click(Sender: TObject);
> > > var
> > > DBLookupCombo : TDBLookupComboBox;
> > > begin
> > > DBLookupCombo := TDBLookupComboBox.create(self);
> > > with DBLookupCombo do begin
> > > parent := form1;
> > > OnkeyDown := DBLookupComboBox1KeyDown;
> > > end;
> > > end;
> > >
> > > procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key:
> Word;
> > > Shift: TShiftState);
> > > begin
> > > if key=27 then sender.free;
> > > end;
>
> KADAO
[*] Ludek Paral <ludek.paral(zv)telecom(tec)cz> - 19.3.2001 22:50:42
Ahoj,
chtel jsem pouzit KADAO pro SELECT Master-Detail dvou tabulek FoxPro z dvou adresaru (drive jsem pouzil BDE4.51 s Query a v selectu jsem uvedl celou cestu), ale zde mi veskere ovladace na ODBC (W2000/ODBC z Office2000) zadaji o jeden adresar. Mate nekdo zkusenosti s nastavenim ?
Ludek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Richard Valny
Sent: Monday, March 19, 2001 12:42 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: KADAO
Pouzivam.
Vcelku spokojenost, pouze se mi nedari vytvaret nove databaze (i kdyz to delam podle popisu v helpu). Syntakticky dobre ale hodi to behovou chybu. Da se to obejit distribuci prazdne databaze s programem.>>> JBenes(zv)cpoj(tec)cz 7.3.2001 10:41:50 >>>
Ahoj,
pouzivate, prosim, nekdo KADAO?
Diky
Jaro B.OnKeyDown a Free
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 22:53:55
From: "Vladislav Cadsky" <delphi(zv)cadsky(tec)cz>
> Zdravim, diky, ale ani tohle bohuzel nepomaha :(
Ahoj,
a nebylo by jednodussi jej pouze skryt pomoci Visible ?
Petr Vones, amatersky programator
Jak zjistit aktualni prava
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 23:51:07
From: "Lud�k ZITA" <konference(zv)sales(tec)cz>
> Jak zjistim (u WinNT/2000) ze je program spusten s administratorskymi
> pravy.
Ahoj,
v JCL (http://delphi-jedi.org/Jedi:CODELIBJCL) je funkce IsAdministrator.
Petr Vones, amatersky programator
OT -mail client
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2001 23:52:51
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> A tenhle to quotuje spravne? Ja mam 5.50.41.33.2400 (verze 5.5 od atlasu) a
> obcas to quotuje, obcas ne.
Ahoj,
pouzivam verzi z IE5.01SP2 US - 5.50.4522.1200. Mam nastaveno pouzivat jen
plain text a oba fonty (tedy fixed i variable) jako "Courier New" aby to vzdy
zobrazovalo font s pevnou sirkou znaku.
Petr Vones, amatersky programator
AddMenuItem za behu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 20.3.2001 01:08:38
Zdravim.
Potrebuji za behu pridavat Itemy do MainMenu.
Problem je v tom, ze pocet a obsah polozek menu, ktere se mi ma rozbalit
znam az v tom okamziku, kdy na menu kliknu.
Chtel jsem to udelat nejak takhle :
Zobrazit1.Clear;
TS := TStringList.Create;
try
TS.Text := 'PouzeJednoMeny'; //Zde naplnim TS prislusnymi Captiony,
//v tomto pripade pouze jednim
for i := 0 to TS.Count-1 do
begin
NewItem := TMenuItem.Create(self);
NewItem.Caption := TS[i];
NewItem.OnClick := ObsluhaClick;
Zobrazit1.Add(NewItem);
end;
finally
TS.Free;
end;
Jenomze se mi po kliknuti nic nerozbali.
Pokud dam pryc prikaz Zobrazit1.Clear pak se pri prvnim "clicku" nic nestane
a pri druhem jsou tam dve polozky.
Predem dik.
Ludek
Visual Assist pre Delphi
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 20.3.2001 05:17:42
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Caute
Neviem, ci niekto poznate Visual Assist k VC++ ...
Ak ano, poznate nieco podobne aj k Delphi?
Tato utilitka fakt pri programovani DOST pomaha.
S pozdravom
P.Visual Assist pre Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.3.2001 05:32:05
From: "Ing. Patrik Tesar" <tesar(zv)rainside.sk>
> Neviem, ci niekto poznate Visual Assist k VC++ ...
Ahoj,
ne, co je to zac ?
Petr Vones, amatersky programator
Poradi nacitani property
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.3.2001 05:34:38
From: "Jiri Binder" <j.binder(zv)albacon(tec)cz>
> jde nejakym zpusobem ovlivnit poradi v jakem jsou
> u komponenty nacitany published property? Popr. jak takove
Ahoj,
melo by to byt v poradi v jakem jsou uvedeny v published sekci.
> zavislosti resit. Nejak drevacky jsem to udelal, ale neni nejaky
> standardni mechanizmus?
Lze nacist hodnotu do pomocne promenne a pak v metode Loaded provest potrebne
akce.
Petr Vones, amatersky programator
Ochrana freeware proti piratstvi?
[*] daniel.hrna(zv)sme(tec)cz - 20.3.2001 06:10:17
Me se osvedcilo pri spusteni programu kontrolovat jak UserName tak v.c. HDD
(C:).
V dnesni dobe jsou v pocitaci pevne disky a ty maji v.c. Pokud ho nactes a
treba xorujes se jmenem (pripadne dalsimi informacemi o uzivateli) dostanes
nejaky kod. Pri spusteni ho zkontrolujes a spustis program pokud souhlasi.
PS: Pokud si uzivatel vymeni pevny disk (C:) pozada o nove cislo a dostane
ho, pokud je evidovany.Jinak program, samozrejme funguje (s urcitymi
omezenimi), zalezi uz jen na programatorovi, jakou politiku zvoli.
Kazdopadne mam takovy nazor, ze pokud nekdo spusti "neregistrovanou, demo"
verzi nemela by mu nabourat system (uz jsem to taky videl: program po
mesici, kdy vyprsela doba pro demo verzi, mazal *ini soubory. Takoveho
programatora .....
PS: Ale pro dnesniho programatora a crackera by asi nebyl problem cracknout
nejaky programek .... Takze jedni se snazi a druzi dokazuji, ze jsou taky
dobri. A stale dokola...
Cau Dan
Hurricane
----- Original Message -----
> Zajimalo by mne, jak to mate technicky resene. Treba to cislo na
zpristupneni programu je stale stejne? Pak se ale neda zarucit, ze ho nejaky
uzivatel toho freewaru da volne k dispozici...Detekce pohybu kamerou
[*] BONNEL TECHNOLOGIE, v�voj <bonnel(zv)telecom(tec)cz> - 20.3.2001 06:11:37
Nekdo tu pred casem shanel reseni detekce pohybu pri snimani kamerou. Mozna
by pomohl programek
Vascam v1.0 [2.7M] W9x/NT/2k FREEWARE
http://www.digitalsecurity.uk.com/cctv_system/download/vascam10.exe
{Motion detection for Webcams} Home security makes me feel so... secure.
This tool will keep an eye out for intruders -- or things that go bump in
the light. Ya know, like burglars, peeping toms, the Easter Bunny, etc. See,
it detects motion and snaps a picture when it sees something lurking in the
shadows. "Sprocket, what were you doing with that knapsack? And why were you
wearing a ski mask?" You can monitor images from the Web or FTP site,
control how many images the camera takes before it stops, and change
sensitivity so the camera doesn't start shooting whenever the lights flicker
just a little. Of course, I'd never change my own sensitivity.
Zdravim
Mira Ondrisek
PGP podporovano
OT -mail client
[*] Do�ekal Radek <RDocekal(zv)csas(tec)cz> - 20.3.2001 07:45:18
> Ahoj,
>
> pouzivam verzi z IE5.01SP2 US - 5.50.4522.1200. Mam nastaveno
> pouzivat jen
> plain text a oba fonty (tedy fixed i variable) jako "Courier
> New" aby to vzdy
> zobrazovalo font s pevnou sirkou znaku.
>
> Petr Vones, amatersky programator
>
Nevim jak OE, ale u Outlooku 2000 tohle nestaci, protoze se jeste rozlisuje
kodovani. Pokud pouzivas Central European (iso-8859-2), coz je jedine
spravne (viz http:/www.cestina(tec)cz) a nekdo Ti posle mail napr. ve Western
European, tak Outlook 2000 zobrazi i pri Tvem nastaveni fontu Arial )-8
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
OnKeyDown a Free
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 20.3.2001 07:48:48
> > > > Zdravim, netusite, proc mi tento kod pris tisku klavesy ESC na
> > komponente
> > > > kterou vytvorim pres Button1 vyjede chyba pameti ?
> > > > Pokud si komponentu vlozim rucne do formulare a povesim udalost
> > OnKeyDown
> > > > tak mi chyba nenastane.
> > > >
> > > > ----------------------
> > > > procedure TForm1.Button1Click(Sender: TObject);
> > > > var
> > > > DBLookupCombo : TDBLookupComboBox;
> > > > begin
> > > > DBLookupCombo := TDBLookupComboBox.create(self);
> > > > with DBLookupCombo do begin
> > > > parent := form1;
> > > > OnkeyDown := DBLookupComboBox1KeyDown;
> > > > end;
> > > > end;
> > > >
> > > > procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var
> > > > Key:
> > Word;
> > > > Shift: TShiftState);
> > > > begin
> > > > if key=27 then sender.free;
> > > > end;
> >
> >
>
Nepomohlo by do KeyDown do tela ifu pridat key := 0 ? Ale myslim
ze to nebude ono. Napada me, jestli problem neni v tom, ze ten
DBLookupComboBox zrusi sam sebe uvnitr sve vlastni metody,
takze si reze vetev sam pod sebou. Co kdyby misto volani free
posilal zpravu nekam do hlavniho formu a ten provadel vymaz az na
zaklade teto zpravy?
David
Pozice kurzoru a vyber v ComboBox
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 20.3.2001 08:06:00
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
[�u#ka R�bert]
Neviem ci som to spravne pochopil ale myslim ze hladas
Label1.Caption:= ComboBox1.Items.Strings[ComboBox1.ItemIndex];
Mam nasledujici problem.
V udalosti OnExit komponenty ComboBox potrebuji zjisti na ktere pozici se
nachaz� kurzor, pripadne jestli bylo neco vybrano. Pouziti nasledujici
procedury ale nefunguje Obe integer hodnoty jsou vzdy 0, vybrany text je
prazdny string. A jak lze zjisti, na ktere pozici je umisten kurzor, pokud
neni nic vybrano.
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
Label1.Caption := IntToStr(ComboBox1.SelStart);
Label2.Caption := IntToStr(ComboBox1.SelLength);
Edit1.Text := ComboBox1.SelText;
end;
Informacia od NOD32 1.74 (20010315)
Tato sprava bola preverena systemom NOD32 pre Exchange.
http://www.nod32.com
Kompilace .RC souboru
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 20.3.2001 08:35:44
Ahoj,
udelal jsem unit, ve ktere bych chtel mit k dispozici bitmapy z resourcu.
Tak jsem vyrobil unit.rc soubor a do .pas jsem pridal radek
{$R 'unit.res' 'unit.rc'}
ale to mi hlasilo, ze unit.res neexistuje. Totez kdyz jsem tam dal absolutni
cestu na .res i .rc.
Nakonec jsem skoncil u toho, ze kompilaci .rc na .res provadim rucne. Ale D5
to prece umi sama (ale vypada, ze pouze v .dpr souboru). Nevite nekdo jak
delphiny presvedcit aby mi prekompilovali .rc sami?
Diky
Jan Krizek
- D5Prof Update 1, W2K -
p.s.: tohle jsou ty pripady, kdy je videt, ze Delphi/Pascal je jenom na
hrani a na poradne programovani je C/C++ s jeho propracovanym MAKE.
Neexistuje MAKE integrovany do IDE Delphi?komponenty - nastaveni property
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 20.3.2001 08:36:17
A mas vytvoreny objekt typu TFont ???
Dale doporucuji na promenne s tim fontem nastavit obsluhu udalosti OnChange a
pak take odchytavani zpravy CM_FONTCHANGE.
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
P.S.: Muzu poslat komponentu, kde jsem s tim pracoval (potomek TCustomLabel)
> Dosel jsem do doby kdy si potrebuju udelat vlastni komponentu ale uz se oni
> snazim nekolik veceru a nic. Pro zacatek jsem si vzal jako predka
> TWinControl, pomoci create v nem vytvorim dalsi dve componenty(TEdit a
> DBLookUpListBox), zbytek dodelam az budou chodit tyto dve. A problem.
> Property jako Text, Color nebo visible mi dosadi pomoci Set bezvadne ale
> napriklad Font mi dosadi pouze pokuk v obj.insp. otevru dialog. A HLAVNE CO
> SE ZMENOU VELIKOSTI. Same Aplikace zpusobila vyjimku, nebo " nema predka.
> Zmena velikosti mi FEdit.Width = Width mi funguje pouze v porcedure Loaded.
> Muze mi nekdo poradit.Kompilace release verze
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 20.3.2001 08:42:44
Ahoj,
chtel jsem si udelat pro Delphi neco jako je v VC++ kompilace Release verze.
Tedy s pevnym nastavenim prekompilovat projekt.
Vytvoril jsem si davku, ktera by kompilovala distribucni verzi. Volam dcc32
a snazim se predavat napr. pres parametr -D nastavene promenne preprocesoru,
ale bohuzel se mi to porad kouka do .cfg souboru u projektu. Nevite jak tomu
zabranit?
Pripadne, podelte se jak delate Release kompilaci vy?
Jan Krizek
- D5Prof Update 1, W2K -
Dotaz (mozna) budouciho kolegy
[*] Martin Burle <mburle(zv)volny(tec)cz> - 20.3.2001 08:59:55
I o tom uvazuji. Proc ne. ale opet - programovani me zivi jen castecne, a
protoze jsem se pokousel vytvorit jakesi rozhrani pro PdoxWin, vim, ze je to
prace na hodne dlouho. Pokud by bylo neco hotoveho, rad bych to koupil...
Martin Burle
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Cc: Konference Delphi (test) <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 19, 2001 8:48 PM
Subject: Re: Dotaz (mozna) budouciho kolegy
> From: "Martin Burle" <mburle(zv)volny(tec)cz>
> > 1.Da se ziskat nejak knihovna, komponenta (tady v tom nemam prilis
jasno)
> > apod., ktera resi zakladni prostredi pro multiokenni databazove
aplikace,
> > vcetne prekladu hlasek BDE? Nebo to uz je v Delphi obsazeno? Kde?
>
> Ahoj,
>
> pokud ti mohu poradit, tak na souborove databaze typu Paradox zapomen a
prejdi
> na nejaky SQL server. Napriklad InterBase 6 je dokonce zdarma:
> http://www.borland.com/interbase/
>
> Petr Vones, amatersky programator
>
>Cteni teto konference
[*] Martin Burle <mburle(zv)volny(tec)cz> - 20.3.2001 09:04:31
Je mozne tuto konfenci cist primo z Outlook Expresu, bez nutnosti stahovat
zpravy? Ac ve vzlastni slozce, je to neprehledne. Ctu tak nejake jine news
(treba comp.databases...), je to mnohem prehlednejsi, stahuji jenom zahlavi
a jenom kdyz chci...
Martin Burle
----- Original Message -----
From: Vladislav Cadsky <delphi(zv)cadsky(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 19, 2001 10:45 PM
Subject: Re: OnKeyDown a Free
> Zdravim, diky, ale ani tohle bohuzel nepomaha :(
> Vlada
>
> ----- Original Message -----
> From: "Hurricane" <hurricane(zv)quick(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, March 19, 2001 8:55 PM
> Subject: Re: OnKeyDown a Free
>
>
> > Zdravim
> >
> > Ja bych to zkusil natvrdo pretypovat.
> >
> > if Key = 27 then (Sender as TDBLookupComboBox).Free;
> >
> > Hurricane
> > ----- Original Message -----
> > > From: "Vladislav Cadsky" <delphi(zv)cadsky(tec)cz>
> > > > Zdravim, netusite, proc mi tento kod pris tisku klavesy ESC na
> > komponente
> > > > kterou vytvorim pres Button1 vyjede chyba pameti ?
> > > > Pokud si komponentu vlozim rucne do formulare a povesim udalost
> > OnKeyDown
> > > > tak mi chyba nenastane.
> > > >
> > > > ----------------------
> > > > procedure TForm1.Button1Click(Sender: TObject);
> > > > var
> > > > DBLookupCombo : TDBLookupComboBox;
> > > > begin
> > > > DBLookupCombo := TDBLookupComboBox.create(self);
> > > > with DBLookupCombo do begin
> > > > parent := form1;
> > > > OnkeyDown := DBLookupComboBox1KeyDown;
> > > > end;
> > > > end;
> > > >
> > > > procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key:
> > Word;
> > > > Shift: TShiftState);
> > > > begin
> > > > if key=27 then sender.free;
> > > > end;
> >
> >
>
>Pretekani systemovych prostredku
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 20.3.2001 09:05:34
>Diky, no kdyz vytvarim formulare rucne tak se me stava ze pg pada. Jeste sem se do toho moc nedostal. Jen me zarazi, proc to pada az po delsim >pouzivani pg a ne hned.
A neni to tim, ze je po zavreni neuvolnujes?
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
MapViewOfFile & Win95 - diskuse
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.3.2001 09:30:06
DD,
MS pise na MSDN, ze mapovane fily mohou nefungovat v pripade, ze je malo
mista na disku pro zvetseni swapu:
Windows 95: MapViewOfFile may require the swapfile to grow. If the swapfile
cannot grow, the function fails.
Zajimalo by me cim to muze byt zpusobeno (diky teto poznamce mam z
mapovanych filu trochu strach). Win95 nejsou schopny namapovat file rovnou
do pametoveho prostoru? Kopiruji snad ten file do swapu ?!? Pak by to bylo
zaroven i znacne pomale...
D. Toman
OT -mail client
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.3.2001 09:43:25
> From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> > OE 5.00 - 2919 - 6700
> > - tusim ze je z baliku s Explorerem 5.5
>
Instaloval jsem IE 5.5 - a v nem je opravdu OE s touhle verzi (IE samotny
hlasi 5.50.4522.1800 coz by mel byt IE5 SP1)
> Ahoj,
>
> pochybuji, tohle spis vypada na OE5.01 bez SP. Viz verze IE:
> http://support.microsoft.com/support/kb/articles/Q164/5/39.ASP
>
> Petr Vones, amatersky programator
>
>
>
>
CAPTURE VIDEO
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 20.3.2001 10:05:54
AHOJ. tenhle dotaz jsem uz psal, ale bohuzel zatim jseem ho nevyresil,
tak ho posilam znova.
Mam ATI Rage 128 Pro s video vstupem. Potreboval bych v urcitem okamziku
sejmout obraz. Stahl jsem si nekolik prikladu pro delphi 5, ktere vyuzivaji
VfW(AviCap32). Bohuzel pri pokusu ulozit obraz to hodi chybu - Chyba pri
ukladani sninmku do souboru xx.bmp. Ppokud se to pokusim ulozit do schranky,
vyhodi to chybu - Nedostatek pameti.
pokud zvolim jiny zdroj nez ATI kartu, treba Web Kameru pres usb, tak to
probehne bez problemu. Tozn. Obraz se mi ulozi do souboru..
Predem moc dekuji.
OT -mail client
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 20.3.2001 10:07:30
Takze novejsi verze / se SPem quotujou / radi zpravy podle konverzace spravne?
Jinak s nicim jinym tu problem nemam. Mne to odpovida vzdy spravne, t.j. v plaintextu s nastavenym kodovanim...
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Subject: Re: Re: OT -mail client
> From: "Hurricane" <hurricane(zv)quick(tec)cz>
> > A tenhle to quotuje spravne? Ja mam 5.50.41.33.2400 (verze 5.5 od atlasu) a
> > obcas to quotuje, obcas ne.
>
> Ahoj,
>
> pouzivam verzi z IE5.01SP2 US - 5.50.4522.1200. Mam nastaveno pouzivat jen
> plain text a oba fonty (tedy fixed i variable) jako "Courier New" aby to vzdy
> zobrazovalo font s pevnou sirkou znaku.
>
> Petr Vones, amatersky programator
Visual Assist pre Delphi
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 20.3.2001 10:23:13
Nachadza sa to na www.wholetomato.com
a je to take nieco ako Code Insight v Delphi, ale OVELA namakanejsie
Programovanie v VC++ bez tejto utilitky si uz neviem ani predstavit
a strasne mi chyba v Delphi...
P.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Vones
> Sent: Tuesday, March 20, 2001 5:32 AM
> To: delphi-l(zv)clexpert(tec)cz
> Cc: Konference Delphi (test)
> Subject: Re: Visual Assist pre Delphi
>
>
> From: "Ing. Patrik Tesar" <tesar(zv)rainside.sk>
> > Neviem, ci niekto poznate Visual Assist k VC++ ...
>
> Ahoj,
>
> ne, co je to zac ?
>
> Petr Vones, amatersky programator
> delphi a linux, freeware komponenty
[*] tmara(zv)itsys(tec)cz - 20.3.2001 10:28:05
> Dobre jitro,
> 1) Nekde jsem zaslechl, ze existuje Delphi pod Linuxem, co je na tom
> pravdy? V pripade ze to ne neni blabol, mate s nim nekdo nejake
> zkusenosti?
> 2) Dalsi dotaz se tyka komponent. Nekde si stahnu nejakou freeware
> komponentu a pouziju ji ve svem programu. Mohu potom tento program
> komercne sirit i s touto komponentou?
> 3) Kde bych mohl najit nejakou dobrou freeware komponentu pro prehravani
> .MP3? Na Torrym jsem uspesny nebyl, vlastne ani nikde jinde :)) Nejradeji
> pro D4, ale muze byt i pro D2.
>
> tnx a lot
> -TMa-
>
> Kompilace release verze
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.3.2001 10:36:30
> Ahoj,
>
> chtel jsem si udelat pro Delphi neco jako je v VC++ kompilace Release
verze.
> Tedy s pevnym nastavenim prekompilovat projekt.
>
> Vytvoril jsem si davku, ktera by kompilovala distribucni verzi. Volam
dcc32
> a snazim se predavat napr. pres parametr -D nastavene promenne
preprocesoru,
> ale bohuzel se mi to porad kouka do .cfg souboru u projektu. Nevite jak
tomu
> zabranit?
>
> Pripadne, podelte se jak delate Release kompilaci vy?
kazdou unitu (project file) mam doplnenou na zacatku o radek:
{$I DEFINE.INC}
define.inc obsahuje veskere nastaveni kompilatoru (CtrlO-O) a definice
symbolu pro podmineny preklad (odliseni debug a ostre verze atd). Pak staci
zmenit Define.INC a nechat projekt zkompilovat znovu (provede se automaticky
rebuild, protoze vsechny casti projektu vykazuji zmenu - zmenil se include
file)
D. Toman