Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TWebBrowser a zapamatanie typovanych hesiel
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 30.4.2004 13:24:47
ahoj ludkovia,
vie niekto z vas ako nastavit alebo ako docielit aby sa komponenta
TWebBrowser chovala tak ako explorer, ze ked niekde zadavate heslo aby
si ho zapamatalo a pri dalsom pristupe ho ponuklo, chcem aby sa to
chovalo ako v IE, ale akosi mi to stale ignoruje.
dik
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
XSQLDA index out of range
[*] Dalibor <dalibor(zv)torola(tec)cz> - 30.4.2004 12:24:43
Tohle mi hlasi, kdyz se snazim dosadit do Query parametr, ktery vubec neni v
SQL dotazu te Query
----- Original Message -----
From: "David Klodner" <d.klodner(zv)sofico(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 30, 2004 11:26 AM
Subject: XSQLDA index out of range
> Nevite nekdo, co znamena chyba XSQLDA index out of range.
> Mam program, ktery v minutovych intervalech cte z FTP serveru
> objednavky, zpracovava je a zapisuje je do IB6 databaze.
> Zhruba u 1% objednavek to hodi uvedenou chybu.
>
> insert into Objednavka VALUES ('6625', '890010', '2', '26.4.2004',
> '11:57', '5164.99', 'BARTOS Zdenek -Hostinec"U Bart', 'Maletin 112',
> '78901', 'Zabreh', '', '27.4.2004', '', '', 'Dodat: 27.4.2004 ',
> 'Kolar', '')
>
> Chyba:
> XSQLDA index out of range
>
>
> David Klodner
> Win2000, IB6, D5 Prof.
>
>XSQLDA index out of range
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 30.4.2004 11:36:39
Nebudou tio delat uvozovky (Hostinec"U Bart)?
Sroub
Nevite nekdo, co znamena chyba XSQLDA index out of range.
Mam program, ktery v minutovych intervalech cte z FTP serveru
objednavky, zpracovava je a zapisuje je do IB6 databaze.
Zhruba u 1% objednavek to hodi uvedenou chybu.
insert into Objednavka VALUES ('6625', '890010', '2', '26.4.2004',
'11:57', '5164.99', 'BARTOS Zdenek -Hostinec"U Bart', 'Maletin 112',
'78901', 'Zabreh', '', '27.4.2004', '', '', 'Dodat: 27.4.2004 ',
'Kolar', '')
Chyba:
XSQLDA index out of range
XSQLDA index out of range
[*] David Klodner <d.klodner(zv)sofico(tec)cz> - 30.4.2004 11:26:38
Nevite nekdo, co znamena chyba XSQLDA index out of range.
Mam program, ktery v minutovych intervalech cte z FTP serveru
objednavky, zpracovava je a zapisuje je do IB6 databaze.
Zhruba u 1% objednavek to hodi uvedenou chybu.
insert into Objednavka VALUES ('6625', '890010', '2', '26.4.2004',
'11:57', '5164.99', 'BARTOS Zdenek -Hostinec"U Bart', 'Maletin 112',
'78901', 'Zabreh', '', '27.4.2004', '', '', 'Dodat: 27.4.2004 ',
'Kolar', '')
Chyba:
XSQLDA index out of range
David Klodner
Win2000, IB6, D5 Prof.OT: Downgrade z Win2003 Svr OEM na Win2000SvrOEM
[*] Martin Nedopil <delphi(zv)hon(tec)cz> - 30.4.2004 10:40:34
Omluva za OT, ale zajima mne, je tu nekdo,
kdo zkousel vyresit s firmou Microsoft %subj%
a uspel? Ja se vcera vytocil jak sroubek.
Dik
Martin
Generator dokumentacie zdrojoveho kodu
[*] Martin Cajbik <cajbik(zv)sct.sk> - 30.4.2004 10:32:33
Zdravim,
poznate niekto nejaky dobry generator dokumentacie zdrojoveho kodu v Delphi
(najlepsie free) ?
Martin Cajbik
Simple MAPI - odesilani zpravy bez potvrzovaciho o
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 30.4.2004 10:20:31
Jo, da se. Zobraz si v OE dialog Moznosti/Zabezpeceni/ a zakaz "Upozornit,
pokud se jina aplikace pokusi odeslat zpravu mym jmenem"
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant>
> posilam e-mail do Outlook Expres pomoci funkce MapiSendMail.
> V parametrech funkce NEuvadim "Mapi_Dialog", aby se nezobrazovalo okno
> Outlook Expresu pro odesilani posty. Presto Outlook Expres zobrazi male
> okynko pro potvrzeni odeslani e-mailu.(Program se pokousi odeslat e-mail
> vasim jmenem. Chcete tuto zpravu odeslat? Odeslat/Neodeslat)
> Da se nejak tohoto okynka zbavit?
>
Simple MAPI - odesilani zpravy bez potvrzovaciho o
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 30.4.2004 10:08:29
Zdravim,
posilam e-mail do Outlook Expres pomoci funkce MapiSendMail.
V parametrech funkce NEuvadim "Mapi_Dialog", aby se nezobrazovalo okno
Outlook Expresu pro odesilani posty. Presto Outlook Expres zobrazi male
okynko pro potvrzeni odeslani e-mailu.(Program se pokousi odeslat e-mail
vasim jmenem. Chcete tuto zpravu odeslat? Odeslat/Neodeslat)
Da se nejak tohoto okynka zbavit?
Dekuji
Martin Pavera
Firebird - Linux term - kto je online
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 30.4.2004 10:00:28
Haj hou!
On 30 Apr 2004 at 9:46, Martin Matous wrote:
> Prosim pomozte mi, potrebujem to koli vzdialenej sprave, aby som
> zistil kto je online, ak potrebujem zhodit databazu a aby som ho
> pred tym informoval, nech sa odhlasi ...
Nekolik moznosti:
1) Nejaky administratorsky nastroj ktery dokaze vypsat seznam
prihlasenych uzivatelu. Muze byt i na Windows a pripojit se vzdalene.
2) Pomoci netstat nebo jinym nastrojem se da zjistit seznam stroju
(IP adres) pripojenych k prislusnemu portu na kterem bezi FB.
3) Netreba se obtezovat s vyledavanim uzivatelu. Staci zaslat zpravu
na vsechny pripojene konzole a pouzit gfix pro odpojeni databaze (off-
line) s timeoutem (viz dokumentace).
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Nahrazeni retezce ve vice souborech
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.4.2004 09:58:27
Ahoj,
pokud pouzivas FAR, tak existuje plugin
SearchReplace, ktery k temto ucelum pouzivam.
Pokud ne, tak ho zkus :o)
1. http://www.farmanager.com
2. http://www.rarlab.com
3. ftp://ftp.elf.stuba.sk/pub/pc/utilfile/
4. http://plugring.farmanager.com/
Peca
Firebird - Linux term - kto je online
[*] Martin Matous <matrix(zv)inmail(tec)cz> - 30.4.2004 09:46:25
Dobry den,
Na linuxe, kde bezi firebird 1.5SS
ako zistim z konzole (terminalu) aktualny zoznam prave pripojenych
uzivatelov ku konkretnej databaze?
Skusal som ./gsec a potom "display" , ale to mi vypise vsetkych
uzivatelov - aj nepripojenych.
Neexistuje nejaka finta cez SELECT nieco FROM RDB$.... ?????
Viem, ze to pojde cez API funkcie, ale z konzole taky prikaz
nepoznam a API funkciu z bash-u neviem volat ;)
Nemate na to niekto nejaky perl skript alebo cosi co je funkcne?
Prosim pomozte mi, potrebujem to koli vzdialenej sprave, aby som
zistil kto je online, ak potrebujem zhodit databazu a aby som ho
pred tym informoval, nech sa odhlasi ...
Dakujem.
Mato.
----------
* www.inMail(tec)cz - Vase emailova adresa na cely zivot ZDARMA
* Mail neobsahuje viry. Zkontrolovano antivirem NOD32 (www.nod32(tec)cz)OT: Hleda se programator
[*] martin.ben(zv)ge(tec)com - 30.4.2004 08:36:20
GE Capital hleda programatora se znalosti Delphi a DB Oracle (vcetne
PL/SQL) pro pracoviste v Praze.
Odpovedi na osobni e-mail
Martin Ben
martin.ben(zv)ge.com
Nastaveni Sweep interval a Page buffers na FB
[*] horky(zv)cominn(tec)cz - 30.4.2004 06:56:11
> Lze nejak nastavit Sweep interval a Page buffers primo z Delphi ?
> Nejakou komponentou ?
Odpovim si sam, kdyby to nekdo hledal, tak jako ja.
Komponenty IBExpert, zalozka Interbase Admin, komponenta IBConfigService.
Priklady pouziti v Delphi v manualu Interbase 6 Developer's Guide.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Nahrazeni retezce ve vice souborech
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 30.4.2004 01:55:51
Jasne ze jo, stahni si treba PSPad.
S tim delam spoustu takovych uprav a on to umi opravdu dobre :-)
--
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Thursday, April 29, 2004, 5:33:11 PM, bylo napsano:
JR> potreboval bych v kodu hromadne nahradit asi 10 vyrazu v celem projektu.
JR> Hledam neco jako Replace, ale napr. pro vsechny soubory v
JR> projektu. Existuje neco podobneho, moc by mi to pomohlo..
JR> V GExperts jsem nic podobneho neobjevil.
JR> JR
Presny timer
[*] tondrej(zv)t-online.de - 29.4.2004 20:27:26
> mohl byste me nekdo odkazat na nejaky presny timer, ktery zcela
> zdarma (pokud nejaky takovy existuje) ?
>
> Timer se sekundovou smyckou bude bezet i nekolik hodin, a v pripade
> TTimeru z Delphi by byla skutecna odchylka dosti vysoka.
Multimedia Timers, popisane v dokumentacii Platform SDK.
HTH
TOndrej
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 29.4.2004 19:03:20
skuste: http://peterstasko.unas(tec)cz/startwin.rar
mozno to hladate :)
> zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
> pocitac snad mohl bezet delsi dobu :-)
> FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..
Ja vim, ale pokud to nema slouzit k necemu exaktnimu a predpoklada se,
ze pocitac se kazdy den zapina a vypina, je to pouzitelne...
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Presny timer
[*] David Kraina <dkx(zv)seznam(tec)cz> - 29.4.2004 18:19:15
Dobry den,
mohl byste me nekdo odkazat na nejaky presny timer, ktery zcela zdarma
(pokud nejaky takovy existuje) ?
Timer se sekundovou smyckou bude bezet i nekolik hodin, a v pripade TTimeru
z Delphi by byla skutecna odchylka dosti vysoka.
Diky
S pozdravem
David Kraina, DKx
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.MX-3(tec)cz
http://www.MX-3(tec)cz
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 29.4.2004 18:15:14
29.4.2004 Dalibor Toman:
> zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
> pocitac snad mohl bezet delsi dobu :-)
> FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..
Ja vim, ale pokud to nema slouzit k necemu exaktnimu a predpoklada se,
ze pocitac se kazdy den zapina a vypina, je to pouzitelne...
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Nahrazeni retezce ve vice souborech
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 29.4.2004 17:33:11
potreboval bych v kodu hromadne nahradit asi 10 vyrazu v celem projektu.
Hledam neco jako Replace, ale napr. pro vsechny soubory v projektu. Existuje neco podobneho, moc by mi to pomohlo..
V GExperts jsem nic podobneho neobjevil.
JR
Prepinani jazku za behu
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 29.4.2004 16:47:07
> > - po nastaveni jazyka mi zmizi z menu polozky ktere jsem
> > vytvoril za behu aplikace Da se toto chovani nejak ovlivnit?
>
> Jo. Tyto polozky je nutne vytvorit znovu.
Diky,
jeste sem se chtel zeptat zda se da nejak vyhnout neprijemnemu
preblikavani vsech formularu definovanych v aplikaci (i
jeste nevytvorenych) pri prepinani jazyku?
Diky
Pavel Polak
Zavreni formulare v CREATE nebo SHOW
[*] aldik(zv)quick(tec)cz - 29.4.2004 16:37:05
Aldik:
Souhlasim...jen upresnim jde to i zevnitr;-)
Ludek:
> Jedine tak, ze si posles zpravu pres PostMessage (ne pres
> SendMessage!) nekam
> jinam, nez do toho formulare a a zavres to z venku jako rekaci na
> tu zpravu.
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 29.4.2004 15:43:01
> zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
> pocitac snad mohl bezet delsi dobu :-)
> FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..
nas server bezi aj po preteceni pocitadla
Erik
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 29.4.2004 15:20:58
Nee, kouknete se do Tipu a triku, tip c. , tam se da zjistit, jak dlouho uz
Wokna bezi a pak to odectes od Now() a mas datum a cas, kdy byly wokna
nastartovane
Martin
> -----Original Message-----
> From: Vasek Mlynar [mailto:v.mlynar(zv)seznam(tec)cz]
> Sent: Thursday, April 29, 2004 2:59 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Jak zjistit v Delphi datum a cas spusteni Windows ?
>
>
> Co takhle napsat kod, ktery by pri kazdem spusteni windows
> napsal cas bud do registru anebo na soubor na disk?
>
> Vaclav Muller
>
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 29.4.2004 15:20:59
>Co takhle napsat kod, ktery by pri kazdem spusteni windows napsal cas bud
>do registru anebo na soubor na disk?
a co takhle zkusit Google????
GetTickCount [Windows]
The GetTickCount function retrieves the number of milliseconds that
have elapsed since the system was started. It ... GetTickCount. The ...
msdn.microsoft.com/library/en-us/ sysinfo/base/gettickcount.asp - 14k -
Archiv - Podobne stranky
Pravda, sam MS pise ze po 47 dnech se to vyresetuje znovu od nuly, ale take
uvadi odkaz na dalsi fce ktere mohou poslouzit.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 29.4.2004 15:10:57
Napis mi na petulo_moj<ryba>centrum<bodka>sk
Dam ti program aj zdrojaky :)
Co takhle napsat kod, ktery by pri kazdem spusteni windows napsal cas bud do registru anebo na soubor na disk?
Vaclav Muller
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Vasek Mlynar <v.mlynar(zv)seznam(tec)cz> - 29.4.2004 14:58:55
Co takhle napsat kod, ktery by pri kazdem spusteni windows napsal cas bud do registru anebo na soubor na disk?
Vaclav Muller
modulo11
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 29.4.2004 14:10:49
:-) To urcite take souhlasi, ale predpokalda to, ze je ucet zadany na
plny pocet mist s uvodnimi nulami a bez pomlcek.
Me fce predpokladaji take spravne zadany ucet, ale napsany s
pripustnymi (!) pomlckami a s moznym (!) vynechanim tech uvodnich nul.
--
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Thursday, April 29, 2004, 1:46:46 PM, bylo napsano:
h> ja som zohnal takuto funkciu,
h> vrati 0 ak je ucet ok
h> FUNCTION modulo(CUs:string):integer;
h> var s1:string[20];
h> c1, c2, kc,i,j:integer;
h> BEGIN
h> j:=length(CUs)+1;
h> kc:=0;
h> for i:=1 to j-1 do
h> begin
h> j:=j-1; c1:= strtoint(CUs[j]);
h> if i=1 then kc:=1*c1;
h> if i=2 then kc:=kc+(2*c1);
h> if i=3 then kc:=kc+(4*c1);
h> if i=4 then kc:=kc+(8*c1);
h> if i=5 then kc:=kc+(5*c1);
h> if i=6 then kc:=kc+(10*c1);
h> if i=7 then kc:=kc+(9*c1);
h> if i=8 then kc:=kc+(7*c1);
h> if i=9 then kc:=kc+(3*c1);
h> if i=10 then kc:=kc+(6*c1);
h> end;
h> c1:=floor(kc/11); c2:=ceil(kc/11);
h> kc:=c2-c1;
h> result:=kc;
h> END;
h> __________ Informace od NOD32 1.742 (20040428) __________
h> Tato zprava byla proverena antivirovym systemem NOD32.
h> http://www.nod32(tec)cz
Zavreni formulare v CREATE nebo SHOW
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 29.4.2004 13:34:43
Tak sa zamysli nad tym co si napisal.. to nieje utok, ale proces ucenia.. mozno sa tym naucis, ze aj iny zacinaju...
Proces ucenia :)
Stasko Peter wrote:
> Hlavne, ze ty si spadol z neba uceny
Nikdo nespadl uceny z nebe, ale upozorneni na to,
ze reseni je suboptimalni, je prece soucasti procesu uceni
a nemelo by byt chapano jako osobni utok.
pf
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.4.2004 13:34:44
> zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
> pocitac snad mohl bezet delsi dobu :-)
> FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..
Na NT sa da pouzit performance counter 'System Up Time'. Priklad
(GetSystemUpTime) je v archive.
HTH
TOndrej
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Sommer Pavel <psommer(zv)cpoj(tec)cz> - 29.4.2004 14:18:51
>Neco takovyho zkousim, ale porad to pada na chybu EConvertError ( pri
tom prevodu TimeStampToDateTime).
>Tady je zdrojak
>function TForm5.GetLastBoot(Sender : TObject) : string; var
> pom : TDateTime;
>
>begin
> pom := TimeStampToDateTime(MSecsToTimeStamp(GetTickCount));
> pom := Date - pom;
> GetLastBoot := DateTimeToStr(pom);
>end;
Toto mi chodi perfekne:
ShowMessage(DateTimeToStr(TimeStampToDateTime(MSecsToTimeStamp(TimeStamp
ToMsecs(DateTimeToTimeStamp(Now())) - GetTickCount()))));
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Miroslav Sojka <sojka(zv)transoft(tec)cz> - 29.4.2004 13:22:42
Neco takovyho zkousim, ale porad to pada na chybu EConvertError ( pri tom
prevodu TimeStampToDateTime).
Tady je zdrojak
function TForm5.GetLastBoot(Sender : TObject) : string;
var
pom : TDateTime;
begin
pom := TimeStampToDateTime(MSecsToTimeStamp(GetTickCount));
pom := Date - pom;
GetLastBoot := DateTimeToStr(pom);
end;
----- Original Message -----
From: "Sommer Pavel" <psommer(zv)cpoj(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 29, 2004 12:46 PM
Subject: Re: Jak zjistit v Delphi datum a cas spusteni Windows ?> >Jak zjistit v Delphi datum a cas spusteni Windows ?
>
> Pomoci funkce GetTickCount zjistis pocet milisekund, ktere ubehly od
> spusteni Windows, prevedes si je na datum a pak toto datum odectes od
> aktualniho data na pocitaci. Vysledkem bude datum, kdy byly spusteny
> Windows.
>
> PaS.
>
>
>sledovani stavu aplikace
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 29.4.2004 14:08:48
zdravim
rad bych sledoval stav aplikace, predstavoval jsem si ta asi takhle: na
vybranych mistech by mi aplikace zapsala informaci o stavu do nejakeho okna
ktere pokud by bylo neaktivni tak by se mi zobrazoval vzdy novy radek a
pokud by bylo aktivni tak by se size novy radek pripsal nakonec ale na
obrazovce by zustala aktualni pozice v seznamu, neco jsem si udelal pres
memo ale jednak mam strach pred limitem velikosti ve w98 a jednak to pri
zachovavani pozice priserne blikalo
nedelal uz nekdo neco podobneho?Jak zjistit v Delphi datum a cas spusteni Windows
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.4.2004 13:22:41
On Thursday, April 29, 2004 12:46 PM [CET], Sommer Pavel
<psommer(zv)cpoj(tec)cz> wrote:
>> Jak zjistit v Delphi datum a cas spusteni Windows ?
>
> Pomoci funkce GetTickCount zjistis pocet milisekund, ktere ubehly od
> spusteni Windows, prevedes si je na datum a pak toto datum odectes
od
> aktualniho data na pocitaci. Vysledkem bude datum, kdy byly spusteny
> Windows.
>
zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
pocitac snad mohl bezet delsi dobu :-)
FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..
D. Toman
WS_EX_APPWINDOW a modalni okna
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.4.2004 13:36:45
Ahoj,
ve sve aplikaci mam zobrazene nemodalni okno a chci, aby bylo pristupne z taskbaru.
Neni problem, delam v OnCreate toto:
SetWindowLong(Self.Handle, GWL_EXSTYLE, GetWindowLong(Self.Handle,
GWL_EXSTYLE) or WS_EX_APPWINDOW);
Funguje to dobre - je-li okno zobrazeno, na taskbaru jsou dve ikony - jedna pro hlavni
okno, druha pro ono nemodalni okno. No a ted z toho nemodalniho okna zavolam
modalni okno.
Pak se aplikace zacne chovat chybne - po kliknuti na ikonu nemodalniho okna v
taskbaru se nemodalni okno zobrazi a prekryje to modalni okno. Tohle je znamy
problem, nasel jsem ho popsany v archivu.
Nasel jsem pomerne jednoduche reseni - obslouzit Application.OnActivate a v nem se
udela Screen.ActiveForm.SetFocus. On totiz Screen.ActiveForm kupodivu stale
ukazuje na ten modalni form, i kdyz na vrsku je disablovane nemodalni okno.
Tohle reseni funguje dobre na W2000 - modalni okno vzdy vypluje na povrch. Ale na
WinXP to uz nefunguje - modalni okno stale zustava nekde vespod. Zjistil jsem
nasledujici:
1) Application.OnActivate je jedina udalost, o ktere se mi podarilo zjistit, ze se pri
kliknuti na ikonu na taskbaru vyvola. Zadna jina udalost na okne zrejme nenastava.
2) V Application.OnActivate se mi zaboha nepodarilo to modalni okno dostat nahoru -
aby nebylo prekryto. Nepomohlo ani odeslani vlastni message pres PostMessage a
delani pokusu az tam.
3) Zduraznuji, ze W2000 neni problem, jen na XP.
4) Neuspel jsem ani s SetWindowPos, SetForegroundWindow ani s nicim jinym.
Nevite nekdo, co je to za zverstvo a pripadne co by s tim slo udelat?
Diky
David Lebeda
modulo11
[*] hlas <hlas(zv)inmail.sk> - 29.4.2004 13:46:46
ja som zohnal takuto funkciu,
vrati 0 ak je ucet ok
FUNCTION modulo(CUs:string):integer;
var s1:string[20];
c1, c2, kc,i,j:integer;
BEGIN
j:=length(CUs)+1;
kc:=0;
for i:=1 to j-1 do
begin
j:=j-1; c1:= strtoint(CUs[j]);
if i=1 then kc:=1*c1;
if i=2 then kc:=kc+(2*c1);
if i=3 then kc:=kc+(4*c1);
if i=4 then kc:=kc+(8*c1);
if i=5 then kc:=kc+(5*c1);
if i=6 then kc:=kc+(10*c1);
if i=7 then kc:=kc+(9*c1);
if i=8 then kc:=kc+(7*c1);
if i=9 then kc:=kc+(3*c1);
if i=10 then kc:=kc+(6*c1);
end;
c1:=floor(kc/11); c2:=ceil(kc/11);
kc:=c2-c1;
result:=kc;
END;
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Miroslav Sojka <sojka(zv)transoft(tec)cz> - 29.4.2004 12:02:31
Dobry den,
nevite nekdo jak zjistit datum a cas spusteni Windows ( to co ukazou WinNT+
po CTRL-ALT-DEL) ?
Dekuji za pripadne odpovedi.Optimalizace kompilerem
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 29.4.2004 12:02:30
Martin Pisarik napsal(a):
>Ahoj *,
>
>Mam dotaz, pokud zapnu optimalizaci kompilerem - optimalization: Speed. A
>vypnu vsechny debug nastaveni, zkratka nastavim linker pro release verzi,
>muzu si byt jist, ze bude aplikace fungovat stejne jako kdyz byla buildovana
>v debug rezimu?
>
>Jde mi o to, ze mam otestovanou vetsi aplikaci buildovanou ve full debug
>rezimu a ted mam obavy, zda kdyz to zbuilduju jako "Full release" bude
>aplikace fungovat stejne. Jsou zde nejake problemy? Stoji to za to? Je tu
>nejake riziko? Nemam casove ani financni prostredky na otestovani noveho
>buildu, ale patnacti procentni zrychleni, ktere jsem pri Full release buildu
>pozoroval se mi zda zajimave. Takze muzu to zbuildovat s release nastavenim
>a dat zakaznikovi bez dukladneho testovani?
>
>Dik za rady.
>
>
>
Muze se zmenit chovani, pokud tam mas chybu, treba neinicializovanou
promennou.
Radim
Nastaveni Sweep interval a Page buffers na FB
[*] horky(zv)cominn(tec)cz - 29.4.2004 12:52:39
Zdravim vsechny !
Lze nejak nastavit Sweep interval a Page buffers primo z Delphi ?
Nejakou komponentou ?
Nastaveni pomoci gfix se mi moc nelibi, kdyz databazi tvorim a plnim primo z programu.
Po vytvoreni je Sweep interval = 0 a Page buffers take = 0.
Diky za kazde info.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Sommer Pavel <psommer(zv)cpoj(tec)cz> - 29.4.2004 12:46:38
>Jak zjistit v Delphi datum a cas spusteni Windows ?
Pomoci funkce GetTickCount zjistis pocet milisekund, ktere ubehly od
spusteni Windows, prevedes si je na datum a pak toto datum odectes od
aktualniho data na pocitaci. Vysledkem bude datum, kdy byly spusteny
Windows.
PaS.Jak zjistit v Delphi datum a cas spusteni Windows
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.4.2004 12:22:35
> nevite nekdo jak zjistit datum a cas spusteni Windows ( to co
> ukazou WinNT+ po CTRL-ALT-DEL) ?
To je asi cas, kedy sa uzivatel prihlasil, nie cas spustenia Windows.
Da sa na to asi ist viacerymi sposobmi, ja by som skusil NetWkstaUserGetinfo
na zistenie servera, ktory uzivatela autentikoval, a potom na nom
NetUserGetInfo level 2, tam je last_logon.
Neskusal som to.
HTH
TOndrej
Zavreni formulare v CREATE nebo SHOW
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 29.4.2004 12:26:35
Stasko Peter wrote:
> Hlavne, ze ty si spadol z neba uceny
Nikdo nespadl uceny z nebe, ale upozorneni na to,
ze reseni je suboptimalni, je prece soucasti procesu uceni
a nemelo by byt chapano jako osobni utok.
pf
Jak zjistit v Delphi datum a cas spusteni Windows
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 29.4.2004 12:20:34
29.4.2004 Miroslav Sojka:
> Dobry den,
> nevite nekdo jak zjistit datum a cas spusteni Windows ( to co ukazou WinNT+
> po CTRL-ALT-DEL) ?
Funkce GetTickCount() vraci pocet ms od spusteni Windows
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Zavreni formulare v CREATE nebo SHOW
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 29.4.2004 12:12:33
Hlavne, ze ty si spadol z neba uceny
to je prasecina, standardne se to dela vlastni uzivatelskou message a vlastni udalosti..."amater" Vones to tu ukazoval uz milionkrat;-)
Aldik
> Zavirat formular v Creatu nema smysl, protoze jeste neni otevren.
> Proste nedam Show a zavolam na nej Free. Napr. podle nejakeho
> priznaku. V show mi to neslo, takze jsme to vyresili tak ze se jen
> aktivuje Timer, ktery okno po chvili zavre.
>
Zavreni formulare v CREATE nebo SHOW
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 29.4.2004 12:00:29
aldik(zv)quick(tec)cz wrote:
> to je prasecina, standardne se to dela vlastni uzivatelskou message a
> vlastni udalosti..."amater" Vones to tu ukazoval uz milionkrat;-)
Jak psal uz TR: standardne na to snad je message WM_CLOSE, ne?
pf
Zavreni formulare v CREATE nebo SHOW
[*] jsdelphi(zv)creatix(tec)cz - 29.4.2004 11:24:26
> Dobry den, pri otevirani formulare testuji prava uzivatele a na zaklade
> tohoto vysledku potrebuji v metode OnCreate nebo OnSHow zrusit
> otvirani
> tohoto formulare. Muzete me nakopnout kterak na to?
Ja bych test provadel jeste pred vytvorenim formulare:
TListForm = class(TForm)
...
public
class procedure ShowList;
end;
...
class procedure TListForm.ShowList;
begin
if myTestPrava then
with Create(Application) do
try
ShowModal;
finally
Free;
end;
end;
Jan Skopovy
co by mohlo zpusobovat Access violation at 0000000
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 29.4.2004 11:22:25
Pristup na okjekt, ktery neni vytvoren (nebo record), proste operace s
nil referenci.
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: 724 207 851
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
> Ahoj,
>
> posledni dobou mi zacala aplikace vyhazovat hlasku
> Access violation at adress 00000004. Da se nekde
> zjisti (nebo nevi to nekdo z hlavy?) co by to asi
> pravdepodobne mohlo zpusobovat?
> Zda semi, ze vse, co jsem si alokoval, uvolnuju
> korektne a snad jen jednou (doufam :o)Zavreni formulare v CREATE nebo SHOW
[*] aldik(zv)quick(tec)cz - 29.4.2004 11:28:26
to je prasecina, standardne se to dela vlastni uzivatelskou message a vlastni udalosti..."amater" Vones to tu ukazoval uz milionkrat;-)
Aldik
> Zavirat formular v Creatu nema smysl, protoze jeste neni otevren.
> Proste nedam Show a zavolam na nej Free. Napr. podle nejakeho
> priznaku. V show mi to neslo, takze jsme to vyresili tak ze se jen
> aktivuje Timer, ktery okno po chvili zavre.
>
Optimalizace kompilerem
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 29.4.2004 11:20:22
Ja to netestuji a nebojim se toho.
Martin Pisarik wrote:
>
> Ahoj *,
>
> Mam dotaz, pokud zapnu optimalizaci kompilerem - optimalization: Speed. A
> vypnu vsechny debug nastaveni, zkratka nastavim linker pro release verzi,
> muzu si byt jist, ze bude aplikace fungovat stejne jako kdyz byla buildovana
> v debug rezimu?
>
> Jde mi o to, ze mam otestovanou vetsi aplikaci buildovanou ve full debug
> rezimu a ted mam obavy, zda kdyz to zbuilduju jako "Full release" bude
> aplikace fungovat stejne. Jsou zde nejake problemy? Stoji to za to? Je tu
> nejake riziko? Nemam casove ani financni prostredky na otestovani noveho
> buildu, ale patnacti procentni zrychleni, ktere jsem pri Full release buildu
> pozoroval se mi zda zajimave. Takze muzu to zbuildovat s release nastavenim
> a dat zakaznikovi bez dukladneho testovani?
>
> Dik za rady.
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Zavreni formulare v CREATE nebo SHOW
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 29.4.2004 10:34:18
>Jedine tak, ze si posles zpravu pres PostMessage (ne pres SendMessage!) nekam
>jinam, nez do toho formulare a a zavres to z venku jako rekaci na tu zpravu.
>
?!?!? Proc z venku?
Staci uplne normalne dat v metodach OnCreate ci OnShow toto:
PostMessage(Handle,WM_CLOSE,0,0);
tedy pokud naaaahodou nepouzivas Application.ProcessMessages - to by
znamenalo ze se zprava WM_CLOSE muze zpracovat jeste pred dobehnutim
OnCreate. Jinak to je samozrejmne vpohode, protoze zpravy se nezpracuji nez
dobehne OnCreate + OnShow a pak se okno zavre.
> > Dobry den, pri otevirani formulare testuji prava uzivatele a na zaklade
> tohoto vysledku potrebuji v metode OnCreate nebo OnSHow zrusit otvirani
> tohoto formulare. Muzete me nakopnout kterak na to?
> > Dik
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Zavreni formulare v CREATE nebo SHOW
[*] Ludek <delphi-konference(zv)bcpraha(tec)com> - 29.4.2004 09:50:12
Jedine tak, ze si posles zpravu pres PostMessage (ne pres SendMessage!) nekam
jinam, nez do toho formulare a a zavres to z venku jako rekaci na tu zpravu.> Dobry den, pri otevirani formulare testuji prava uzivatele a na zaklade tohoto vysledku potrebuji v metode OnCreate nebo OnSHow zrusit otvirani tohoto formulare. Muzete me nakopnout kterak na to?
> Dik
Zavreni formulare v CREATE nebo SHOW
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 29.4.2004 10:18:16
> Dobry den, pri otevirani formulare testuji prava uzivatele a na zaklade tohoto vysledku potrebuji v metode
>OnCreate nebo OnSHow zrusit otvirani tohoto formulare. Muzete me nakopnout kterak na to?
Nemuzu to presne najit, ale jen schematicky mi fungovalo:
procedure TForm1.FormActivate;
begin
if NemaPrava then
begin
Close;
exit;
end;
end;
Optimalizace kompilerem
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 29.4.2004 10:10:15
Ahoj *,
Mam dotaz, pokud zapnu optimalizaci kompilerem - optimalization: Speed. A
vypnu vsechny debug nastaveni, zkratka nastavim linker pro release verzi,
muzu si byt jist, ze bude aplikace fungovat stejne jako kdyz byla buildovana
v debug rezimu?
Jde mi o to, ze mam otestovanou vetsi aplikaci buildovanou ve full debug
rezimu a ted mam obavy, zda kdyz to zbuilduju jako "Full release" bude
aplikace fungovat stejne. Jsou zde nejake problemy? Stoji to za to? Je tu
nejake riziko? Nemam casove ani financni prostredky na otestovani noveho
buildu, ale patnacti procentni zrychleni, ktere jsem pri Full release buildu
pozoroval se mi zda zajimave. Takze muzu to zbuildovat s release nastavenim
a dat zakaznikovi bez dukladneho testovani?
Dik za rady.
co by mohlo zpusobovat Access violation at 0000000
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 29.4.2004 09:52:13
Ahoj,
posledni dobou mi zacala aplikace vyhazovat hlasku
Access violation at adress 00000004. Da se nekde
zjisti (nebo nevi to nekdo z hlavy?) co by to asi
pravdepodobne mohlo zpusobovat?
Zda semi, ze vse, co jsem si alokoval, uvolnuju
korektne a snad jen jednou (doufam :o)
dekuji
Peca
Zavreni formulare v CREATE nebo SHOW
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 29.4.2004 09:48:12
> Dobry den, pri otevirani formulare testuji prava uzivatele a na zaklade tohoto vysledku potrebuji v metode OnCreate nebo OnSHow zrusit otvirani tohoto formulare. Muzete me nakopnout kterak na to?
> Dik
Ahoj,
mnohem lepsi mi sice prijde testovat, prava, nez se zahaji samotna akce otevirani formulare. Ale skryt formular lze takhle.
TFomr2=class(TForm)
.....
procedure Mess(var Mes:TWMShowWindow);message WM_SHOWWINDOW;
end;
.....
procedure TForm2.Mess(var Mes: TWMShowWindow);
begin
PostMessage(handle,WM_CLOSE,0,0);
end;
Zavreni formulare v CREATE nebo SHOW
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.4.2004 09:42:10
> From: Jaromir Cermak
>
> V show mi to neslo, takze jsme to vyresili
> tak ze se jen aktivuje Timer, ktery okno po chvili zavre.
Nebylo by jednodussi udelat:
PostQuitMessage(0);
Probliknuti hlavniho oka aplikace to ale nezabrani.
To by se dalo potlacit pouze v OnCreate:
Application.ShowMainForm := false;
PostQuitMessage(0);
Vaclav Krmela
sprava uzivatelov v Delphi
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 29.4.2004 09:04:06
: Nejsem si jist, ale mozna je to chyba v FB1.5.
: Zkus posilat DDL v samostatnych transakcich (tj. ne po commit retaining,
: ale start strans....). Jak pridavas uzivatele do securyty DB ?
:
: Slavek
Zdravim,
skusil som to posielat v samostatnych transakcich a zabralo to. Dakujem za radu
;).
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
Zavreni formulare v CREATE nebo SHOW
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 29.4.2004 09:32:09
Zavirat formular v Creatu nema smysl, protoze jeste neni otevren. Proste nedam Show a zavolam na nej Free. Napr. podle nejakeho priznaku. V show mi to neslo, takze jsme to vyresili tak ze se jen aktivuje Timer, ktery okno po chvili zavre.
Jaromir Cermak
-----Original Message-----
From: delphak(zv)centrum(tec)cz [mailto:delphak(zv)centrum(tec)cz]
Dobry den, pri otevirani formulare testuji prava uzivatele a na zaklade tohoto vysledku potrebuji v metode OnCreate nebo OnSHow zrusit otvirani tohoto formulare. Muzete me nakopnout kterak na to?
Dik
Zavreni formulare v CREATE nebo SHOW
[*] delphak(zv)centrum(tec)cz - 29.4.2004 09:18:07
Dobry den, pri otevirani formulare testuji prava uzivatele a na zaklade tohoto vysledku potrebuji v metode OnCreate nebo OnSHow zrusit otvirani tohoto formulare. Muzete me nakopnout kterak na to?
Dik
Komponenty pro pristup k Firebird
[*] Ludek <delphi-konference(zv)bcpraha(tec)com> - 29.4.2004 09:02:05
Mate nekdo zkusenosti s pouzitim ZeosLibrary nebo UIB komponent pro pristup k
Firebird? Snesou bezchybne i urcitou zatez? Potrebuji pristupovat ke standardnimu
serveru i Embedded verzi. Pripadne ktere jine kompoennty byste podle svych
zkusenosti pro pristup k FB doporucili, preferuji free, ale neni podminkou.
Diky,
Ludek
obnovovanie dbgridu
[*] mato <mato.tino(zv)inmail.sk> - 29.4.2004 08:54:04
zdravim,
D7, ADoexpres s D7
mam aplikaciu v nej form s dbgridom, pod nim tlacitka s pridavanim a
odoberanim zaznamov s datasetu. Ak pridam alebo vylucim zaznam prvy krat od
zobrazenia form / cez externu funkciu nie rovno v dbgride/ tak sa mi tieto
udaje v dbgride neobnovia. Ak to urobim druhy krat tak uz sa obnovia a aj
tie co som urobil pred tym uz su pridane alebo odobrate. V com moze byt
problem ? Skusal som aj refres formu a pod. ale stale to blbne.
QuickReport Pro 4(QuSoft) vs QuickReport Export(Gn
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 29.4.2004 08:44:02
Prosim nevite nekdo, jak kvalitni jsou exporty ve verzi QR 4. Zajima mne
hlavne export do PDF, RTF a TXT. Ve verzi 3 se RTF a TXT prakticky nedaly
pouzit, jednotliva pole a hlavicky poli se spojovala a oddelovani polozek
take nebylo nic moc. Take by mne zajimalo zda nekdo pouzivate QuickReport
Export od Gnostice a jak si tento v exportech stoji(ele neumi XML). Vim ze
QuickReport sam o sobe neni nic moc, ale exporty potrebuji a nic jineho
zatim nemohu pouzit. Tak mne prosim nepremlouvejte na FastReport, Sineu nebo
jine.(zatim)
Zapletal Martin
Vyvoj SW, Technik
________________________________
VSE O TELEFONNICH HOVORECH
INOMA - Brno, s.r.o.
Skacelova 18, 61200, Brno
Telefon : 541 211 337
Fax : 541 240 721
Mobil : 605 246 750
e-mail : zapletal(zv)inoma(tec)cz
http : www.inoma(tec)cz
modulo11
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 29.4.2004 06:20:37
Sice jsou tam jeste nejake specialni fce, ale ty si lehce nahradis za
klasicke ...
procedure ExtractUcet(const AUcet : string; var APredcisli, ACisUctu : string);
var MyPomStr : string;
begin
MyPomStr := ReplaceStr(AUcet, ' ', '');
{Z poslaneho uctu odstranim pomlcku vzadu}
if LeftStr(RightStr(MyPomStr, 4), 1) = '-' then
MyPomStr := LeftStr(MyPomStr, Length(MyPomStr) - 4) + RightStr(MyPomStr, 3);
{Pokud je tam '-', tak je to hned jasne}
if Occurs('-', MyPomStr) > 0 then
begin
APredcisli := LeftStr(MyPomStr, Pos('-', MyPomStr) - 1);
ACisUctu := RightStr(MyPomStr, Length(MyPomStr) - Length(APredcisli) - 1);
end
{Jinak to vezmu podle poctu znaku zprava}
else
begin
ACisUctu := RightStr(MyPomStr, 10);
if Length(MyPomStr) <= 10 then APredcisli := ''
else APredcisli := LeftStr(MyPomStr, Length(MyPomStr) - 10);
end;
{Pokud je neco moc dlouhe, jde o chybu a vse bude nulove}
if (Length(APredcisli) > 6) or (Length(ACisUctu) > 10) then
begin
APredcisli := '';
ACisUctu := '';
end;
{Doplnim zleva nuly}
APredcisli := StrPadL(APredcisli, 6, '0');
ACisUctu := StrPadL(ACisUctu, 10, '0');
end;
function ValidateUcet(const AUcet : string; AHlaseni : Boolean) : Boolean;
const
MyVahy : array [1..10] of Byte = (6, 3, 7, 9, 10, 5, 8, 4, 2, 1);
MyVahyP : array [1..6] of Byte = ( 10, 5, 8, 4, 2, 1);
var
i : Byte;
MyVysledek : Integer;
MyPredcisli, MyCisUctu : string;
begin
Result := True;
if Trim(AUcet) = '' then Exit;
MyVysledek := 0;
{Vytahnu si predcisli a samotne cislo}
ExtractUcet(AUcet, MyPredcisli, MyCisUctu);
{Musi tam byt jen cislice a nesmi to byt prazdne (pak tam byla chybna delka)}
Result := StrToInt64Def(MyPredcisli + MyCisUctu, -1) > 0;
{Kontrola predcisli}
if Result then
begin
for i := 1 to 6 do
MyVysledek := MyVysledek + StrToInt(MyPredcisli[i])*MyVahyP[i];
if MyVysledek mod 11 <> 0 then Result := False;
end;
{Kontrola cisla uctu}
if Result then
begin
for i := 1 to 10 do
MyVysledek := MyVysledek + StrToInt(MyCisUctu[i])*MyVahy[i];
if MyVysledek mod 11 <> 0 then Result := False;
end;
{Pripadna hlaska, pokud to chtel}
if not Result and AHlaseni then
PS_Upoz('', Format(PSApp.LocStr(9002), [AUcet]));
end;
--
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Wednesday, April 28, 2004, 11:13:39 PM, bylo napsano:
h> Neviete niekto poradit s algoritmom, resp. funkciou pre modulo11,
h> kontrola bankoveho uctu?
sprava uzivatelov v Delphi
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 29.4.2004 03:48:27
Nejsem si jist, ale mozna je to chyba v FB1.5.
Zkus posilat DDL v samostatnych transakcich (tj. ne po commit retaining,
ale start strans....). Jak pridavas uzivatele do securyty DB ?
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: 724 207 851
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
> mam nasledujuci problem. V aplikacii si spravujem uzivatelov
> databazy (Firebird 1.5, WinXP, IBX); mam tri rozne skupiny
> uzivatelov (uzivatel, administrator,
> vysetrovatel) -- tieto skupiny maju pridelene pravomoci
> pomocou zaradenia do urcitej role (UZIVATEL, ADMINISTRATOR,
> VYSETROVATEL). Vsetko funguje tak ako ma, akurat ked chcem FB: sprava uzivatelov v Delphi
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 29.4.2004 03:22:22
Zdravim,
mam nasledujuci problem. V aplikacii si spravujem uzivatelov databazy (Firebird
1.5, WinXP, IBX); mam tri rozne skupiny uzivatelov (uzivatel, administrator,
vysetrovatel) -- tieto skupiny maju pridelene pravomoci pomocou zaradenia do
urcitej role (UZIVATEL, ADMINISTRATOR, VYSETROVATEL). Vsetko funguje tak ako ma,
akurat ked chcem napr. novo-vytvorenemu uzivatelovi priradit rolu UZIVATEL,
poslem na server dotaz tvaru GRANT UZIVATEL TO LOGIN_UZIVATELA. Z nejakeho, mne
neznameho dovodu, sa tento dotaz ale neprevedie resp. sa prevedie, ale nema
ziaden ucinok -- novo-vytvoreny uzivatel nie je vlastnikom role UZIVATEL. Ked
vsak rovnaky dotaz GRANT UZIVATEL TO LOGIN_UZIVATELA prevediem napr. v IB
Expert, tak sa dotaz prevedie spravne a uzivatel je clenom zadanej role.
Podotykam, ze v mojej aplikacii sa prihlasujem uzivatelom, ktory ma plne prava
(WITH ADMIN OPTIONS a pod.) -- tie iste prihlasovacie parametre mam aj v IB
Expert. Neviete v com by mohol byt "zakopany pes" -- preco to z Delphi nefunguje
a z IB Expert ide?
Kod, ktorym pridavam noveho uzivatela a pridelujem rolu:
try
with sprava_uzivatelov.ib_users do
begin
Active := true;
SecurityAction := ActionAddUser;
//prekonvertujem diakritiku
UserName := slovakToAscii( priezvisko.Text + '_' + meno.Text );
Password := slovakToAscii( self.heslo.Text );
FirstName := slovakToAscii( self.meno.Text );
LastName := slovakToAscii( self.priezvisko.Text );
//pridam uzivatela
AddUser;
Active := false;
end;
finally
//opravim diakritiku a pridelim prava novemu uzivatelovi
sprava_uzivatelov.transaction.CommitRetaining; //potvrdim transakciu
sprava_uzivatelov.doQuery( sprava_uzivatelov.query_security_db, 'UPDATE users
SET first_name = ''' + self.meno.Text + ''', last_name = ''' +
self.priezvisko.Text + ''' WHERE user_name = ''' + UpperCase(
sprava_uzivatelov.ib_users.UserName ) + '''');
if role = 'ADMINISTRATOR'
then admin := ' WITH ADMIN OPTION'
else admin := '';
sprava_uzivatelov.doQuery( sprava_uzivatelov.query_security_db, 'GRANT ' +
role + ' TO ' + UpperCase( sprava_uzivatelov.ib_users.UserName ) + admin );
sprava_uzivatelov.doQuery( sprava_uzivatelov.query_database, 'GRANT ' + role +
' TO ' + UpperCase( sprava_uzivatelov.ib_users.UserName ) + admin );
sprava_uzivatelov.transaction.Commit; //potvrdim transakciu
end;
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
modulo11
[*] hlas <hlas(zv)inmail.sk> - 28.4.2004 23:13:39
Neviete niekto poradit s algoritmom, resp. funkciou pre modulo11,
kontrola bankoveho uctu?
LockWindowUpdate a styl Windows XP
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.4.2004 22:01:27
28.4.2004 Vaclav Sykora:
> v MDI aplikaci pouzivam LockWindowUpdate na MainForm pri vytvareni MDI
> children, abych zabranil nehezkemu problikavani. Problem je, ze na WinXP
> s klasickym stylem Windows je to v poradku, ale jakmile zmenim styl na
> WindowXP, tak jakoby funkce prestane fungovat. Musim pouzit ve Windows
> XP nejakou jinou funkci nez LockWindowUpdate?
Tuhle funkci pouzivam i na WinXP. Pokud chces vytvaret MDI okna a
maximalizovat je bez problikavani, zkus si do OnCreate MDI child okna
dat neco takoveho (okno nema nastaven wsMaximize primo na formu):
var
R:TRect;
begin
Win32Check(Windows.GetClientRect(fPSpad.ClientHandle, R));
FBlockPoint := Point(0, 0);
BoundsRect:=R;
WindowState := wsMaximized;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
LockWindowUpdate a styl Windows XP
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 28.4.2004 20:39:19
Dobry den,
v MDI aplikaci pouzivam LockWindowUpdate na MainForm pri vytvareni MDI
children, abych zabranil nehezkemu problikavani. Problem je, ze na WinXP
s klasickym stylem Windows je to v poradku, ale jakmile zmenim styl na
WindowXP, tak jakoby funkce prestane fungovat. Musim pouzit ve Windows
XP nejakou jinou funkci nez LockWindowUpdate?
Vaclav Sykora
vaclav.sykora(zv)accidis(tec)cz
WordApp - vyvolani dialogu pro Tisk
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 28.4.2004 19:23:11
Zdravim,
oteviram pomoci programu v Delphi dokument v MS Word:
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Open(Soubor);
...
Po otevreni potrebuji vyvolat dialog pro Tisk (Ctrl+P).
Zkousel jsem
WordApp.ActiveDocument.Print;
nebo
WordApp.ActiveDocument.PrintOut;
ale MS Word rovnou tiskne...
-----------------------------------------------------------
Mohl bych dokument otevrit a tisknout pomoci
ShellExecute(Application.handle,'Print',PChar(CestaAMenoSuboruDOC),Nil,Nil,S
W_SHOW)
ale nevim co napsat misto slova 'Print', aby Word otevrel dialog pro tisk.
Diky
Martin Pavera
Zjisteni datumu aplikace
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.4.2004 19:05:06
28.4.2004 Dalibor Toman:
> samozrejme zalezi cim se kopiruje. Pokud kopirujici utilita precte
> nastaveni casu ze stareho souboru a nastavi ho po kopirovani na novem
> souboru pak se samozrejme naoko nic nezmeni.
Pokud to ovsem nekopirujes (neinstalujes) na jiny pocitac, aby ses v
About dozvedel datum a cas kompilace. A to bylo zrejem predmetem
dotazu
--
ing. Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Zjisteni datumu aplikace
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 28.4.2004 17:14:55
> jak zjistit datum kompilace aplikace?
> Verzi uz vim jak, chci jeste to datum dat do about..
Priamo v PE headri je na to vymedzene miesto, delphi ho vsak nevyplna.
Tu je IDE wizard, ktory ho tam po uspesnej kompilacii doplni:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=19823
Najdes tam aj priklad, ako tu hodnotu potom precitat.
HTH
TOndrej
Rozdil velikosti fontu na tiskarne
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 28.4.2004 16:58:52
Ahoj,
pokud vytisknu nejaky text na monitor a stejny text take na tiskarnu, tak nejsou uplne stejne velke. Coz lze zjistit na priklade dole. Nevite nekdo co to zpusobuje? Tisknu text do ctverce na obrazovce a nasledne na tiskarnu, pokud se mi na obrazovce vleze text do daneho prostoru a na tiskarne ne, pak je problem. :-(
Diky Petr Daricek
function TForm1.ToMMX(Value: Integer; Canvas: TCanvas): Integer;
begin
Result:=Round(Value*GetDeviceCaps(Canvas.Handle,LOGPIXELSX)/254);
end;
function TForm1.ToMMY(Value: Integer; Canvas: TCanvas): Integer;
begin
Result:=Round(Value*GetDeviceCaps(Canvas.Handle,LOGPIXELSY)/254);
end;
procedure TForm1.Button1Click(Sender: TObject);
const Text='Nejaky text raz dva tri';
begin
Image1.Canvas.Rectangle(ToMMX(10,Image1.Canvas),ToMMY(10,Image1.Canvas),ToMMX(200,Image1.Canvas),ToMMY(50,Image1.Canvas));
Image1.Canvas.TextOut(ToMMX(20,Image1.Canvas),TOMMY(20,Image1.Canvas),Text);
Printer.BeginDoc;
Printer.Canvas.Rectangle(ToMMX(10,Printer.Canvas),ToMMY(10,Printer.Canvas),ToMMX(200,Printer.Canvas),ToMMY(50,Printer.Canvas));
Printer.Canvas.TextOut(ToMMX(20,Printer.Canvas),TOMMY(20,Printer.Canvas),Text);
Printer.EndDoc;
end;
Zjisteni datumu aplikace
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 28.4.2004 16:52:51
On Behalf Of Lahoda Radek
> jak zjistit datum kompilace aplikace?
> Verzi uz vim jak, chci jeste to datum dat do about..
> dekuji
Ahoj.
Napad : pridat si polozku do version info (prave tlacitko na hodnotami -
add key).
Mozna by na to slo napsat nejake udelatko do IDE, ktere by polozku
automaticky aktualizovalo.
Ludek SQL reference
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 28.4.2004 16:40:50
Ahoj,
na webu ne, ale <reklama> vrele doporucuju
knihu Interbase/Firebird Tvorba, programovani
a sprava databazi od Pavla Cisare. Jeji
soucasti je SQL referencak v cestine </reklama>
Peca
Zjisteni datumu aplikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.4.2004 15:36:40
On Wednesday, April 28, 2004 1:54 PM [CET], Jiri Virt <virt(zv)volny(tec)cz>
wrote:
> nenasel sem nikde v MSDN co je co ...
>
> ale kopirovanim se tyto casy nemeni .. meni se jen dalsi cas .. cas
> souboru
>
> ftCreationTime structure that contains the time of file creation.
> ftLastAccessTime structure that contains the time that the file was
> last accessed.
> ftLastWriteTime structure that contains the time of the last write
> operation.
>
> vic tam neni ...
>
> zkousel sem, ale kopirovani se opravdu tyto casy nemeni ..
samozrejme zalezi cim se kopiruje. Pokud kopirujici utilita precte
nastaveni casu ze stareho souboru a nastavi ho po kopirovani na novem
souboru pak se samozrejme naoko nic nezmeni.
pokud existuje datum kompilace tak je v PE hlavicce (nikoliv v
adresarove polozce). Cili je potreba prohlednout PE hlavicku (PE
Viewer od P. Vonese, knihovny z JEDI ci jak se to jmenuje atd)
Zdravi
D. Toman
DBGrid, multine, rowheights
[*] Jozef Strnadik <strnadik(zv)mbox.mrp.sk> - 28.4.2004 15:26:38
Zdravim,
v DBGride potrebujem zobrazit memo pole, kt. text moze byt viacriadkovy.
Toto riesim v udalosti OnDrawColumnCell. Avsak ako nastavit vysku
jednotlivych riadkov tak aby odpovedala vyske textu v memo poli neviem.
Je mi jasne, ze cesta vedie cez TStringGrid(DBGrid).Rowheight[Index], avsak
ako urcim index riadku v metode OnDrawColumnCell neviem.
Poradi niekto?
---
S pozdravom
Jozef Strnadik
rozdil mezi clear a count
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.4.2004 14:34:35
28.4.2004 Fitz Ladislav:
> mam jeden doplnujici dotaz - pouzil jsem tListView v rezimu OwnerData, pro
> zmenu poctu polozek jsem pouzival konstrukci
> ale trvalo to prilis dlouho, tak jsem zkusil items.clear vyhodit a je to
> mnohonasobne rychlejsi (z 1 minuty na pul vteriny)
P%okud pouzivas OwnerData, staci nastavit Count. ListView si pak rekne
o 0 polozek. O data se staras ty.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
SQL reference
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 28.4.2004 14:34:34
Zdravim.
Existuje niekde na webe popis vacsiny SQL prikazov, nalepsie v cestine
alebo slovencine, pripadne aj s nejakymi kratkymi ukazkami pre firebird?
Dakujem.Zjisteni datumu aplikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.4.2004 13:38:26
On Wednesday, April 28, 2004 10:50 AM [CET], Jiri Virt <virt(zv)volny(tec)cz>
wrote:
> to si myslim, ze dela obsahuje ftCreationTime
tezko.
Soubor ulozeny v NTFS (asi i v FAT32) ma nekolik polozek s casem ktere
se vztahuji k ruznym vecem:
- vytvoreni souboru (creation time) - coz obecne nema nic spolecneho s
casem kompilace (nepot po zkopirovani/instalaci kompilovaneho execka
se samozrejme vytvari novy soubor, ktery logicky muze dostat creation
data odlisne od compile time)
- posledni modifikace (last write time)
- posledni pristup (posledni cteni, posledni zapis - last access time)
pokud se nepletu.
D. Toman
Zjisteni datumu aplikace
[*] Jiri Virt <virt(zv)volny(tec)cz> - 28.4.2004 13:54:28
nenasel sem nikde v MSDN co je co ...
ale kopirovanim se tyto casy nemeni .. meni se jen dalsi cas .. cas souboru
ftCreationTime structure that contains the time of file creation.
ftLastAccessTime structure that contains the time that the file was last
accessed.
ftLastWriteTime structure that contains the time of the last write
operation.
vic tam neni ...
zkousel sem, ale kopirovani se opravdu tyto casy nemeni ..
Jirka Virt
Lze v Delphi zjistit vytizeni CPU ?
[*] Miroslav Sojka <sojka(zv)transoft(tec)cz> - 28.4.2004 12:34:21
Diky, jdu se na to podivat.
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 28, 2004 12:00 PM
Subject: Re: Lze v Delphi zjistit vytizeni CPU ?> CPU Usage Measurement routines for Delphi and C++ Builder
>
> Author: Alexey A. Dynnikov
> EMail: aldyn(zv)chat.ru
> WebSite: http://www.aldyn.ru/
> Support: Use the e-mail aldyn(zv)chat.ru
> or support(zv)aldyn.ru
>
> Ales
>
> > -----Original Message-----
> > From: Miroslav Sojka [mailto:sojka(zv)transoft(tec)cz]
> >
> > Dobry den,
> > lze nejak v Delphi zjistit vytizeni CPU ?
>
>
>
>
exoprt z MSSQL do Paradox DB
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 28.4.2004 12:26:20
Mozna je to trochu krkolomne, ale me se osvedcilo toto.
Udelej si ODBC alias na tu SQL databazi.
Pak si pust Access a vytvor novou databazi. Do te pak naimportuj data z ODBC
zdroje (nebo muzes udelat propojeni misto importu) a pak ty data vyexportuj
do paradox formatu.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Tomas Fajman
Sent: Wednesday, April 28, 2004 9:42 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: exoprt z MSSQL do Paradox DB
Nevite prosim nekdo jak vyexportovat tabule z MS SQL do paradox DB zkousim
to pres export data , pres driver microsoft paradox ale to nejak nemaka
vytvorej se mi tak 4 tabule z 50 :O(
Komponenty pre el. podpis
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 28.4.2004 10:48:03
Na seminari v Belohrade ukazoval Petr Zahradnik vyuziti CAPICOM, coz je tusim soucast Windows. Odkaz na jeho prezentaci najdes na www.haes(tec)cz.
Jaromir Cermak
-----Original Message-----
From: MMS [mailto:preas_w(zv)stonline.sk]
Mohli by ste mi niekto poradit komponenty k Delphi na zaistenie
elektronickeho podpisu s ktorymi mate dobre skusenosti?
rozdil mezi clear a count
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 28.4.2004 12:20:19
zdravim
mam jeden doplnujici dotaz - pouzil jsem tListView v rezimu OwnerData, pro
zmenu poctu polozek jsem pouzival konstrukci
items.beginupdate;
try
items.clear;
items.count:=;
finally
items.endupdate;
end;
ale trvalo to prilis dlouho, tak jsem zkusil items.clear vyhodit a je to
mnohonasobne rychlejsi (z 1 minuty na pul vteriny)
chtel bych se zeptat jestli se v tom nekde neschovava nejaka zrada typu
neuvolnovani pameti
Lze v Delphi zjistit vytizeni CPU ?
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 28.4.2004 12:00:16
CPU Usage Measurement routines for Delphi and C++ Builder
Author: Alexey A. Dynnikov
EMail: aldyn(zv)chat.ru
WebSite: http://www.aldyn.ru/
Support: Use the e-mail aldyn(zv)chat.ru
or support(zv)aldyn.ru
Ales
> -----Original Message-----
> From: Miroslav Sojka [mailto:sojka(zv)transoft(tec)cz]
>
> Dobry den,
> lze nejak v Delphi zjistit vytizeni CPU ?Jak spojit dva retezce v SQL
[*] Jiri Virt <virt(zv)volny(tec)cz> - 28.4.2004 11:32:11
smarja,
nejak nemuzu prijit na takovou banalitu
v IB SQL jak spojit dva retezce
SELECT CAST(15 AS char(2)) +CAST(15 AS char(2))
vysledek je porad 30 a ne 1515 ?
Kdepak delam chybu
diky
Jirka Virt
Komponenty pre el. podpis
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.4.2004 11:32:12
Puvodni zprava ze dne 28.4.2004:
> Na seminari v Belohrade ukazoval Petr Zahradnik vyuziti CAPICOM,
> coz je tusim soucast Windows. Odkaz na jeho prezentaci najdes na
> www.haes(tec)cz.
Tady je to primo, prezentace, zdrojaky, odkazy:
http://www.clexpert(tec)cz/podpora/belohrad2004/
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Jak spojit dva retezce v SQL
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 28.4.2004 11:40:13
Cau, zkus select '15'||'15' .... u toho, co delas, se
provede zase automaticka konvereze na cislo a proto vysledek
30. Vice o slucovani retezcu viz (mala reklama:)) )
http://www.dbsvet(tec)cz/view.php?cisloclanku=2004030303
KER
----- Original Message -----
From: "Jiri Virt" <virt(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 28, 2004 11:32 AM
Subject: Jak spojit dva retezce v SQL
> smarja,
>
> nejak nemuzu prijit na takovou banalitu
>
> v IB SQL jak spojit dva retezce
>
> SELECT CAST(15 AS char(2)) +CAST(15 AS char(2))
>
> vysledek je porad 30 a ne 1515 ?
>
> Kdepak delam chybu
>
> diky
>
> Jirka Virt
>OT: Komponenty pre el. podpis
[*] MMS <preas_w(zv)stonline.sk> - 28.4.2004 10:41:59
Mohli by ste mi niekto poradit komponenty k Delphi na zaistenie
elektronickeho podpisu s ktorymi mate dobre skusenosti?
Dakujem
Miro
cannot attach to password database
[*] horky(zv)cominn(tec)cz - 28.4.2004 11:06:07
Omlouvam se vsem, chyba byla na me strane :-(
Zjistil jsem, ze ISC4.gdb na serveru opravdu neni. Nakopiroval jsem ji odjinud a pripojeni k FB uz funguje.
( Jak je to jednoduche, kdyz vite, v cem je chyba :-)).
Diky za pripadne rady, dal v tomto vlaknu neni nutne pokracovat.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz] > From: Libor Junek, Medisoft International
> [mailto:libor.junek(zv)medisoft(tec)cz]
> Sent: Wednesday, April 28, 2004 10:42 AM
> Problem bych hledal spise na serveru.
Tam jsem se podival a problem byl detekovan a vyresen. Diky.
Zjisteni datumu aplikace
[*] Jiri Virt <virt(zv)volny(tec)cz> - 28.4.2004 10:50:04
to si myslim, ze dela obsahuje ftCreationTime
jinak k tomu chybelo
function GetFileLastWriteTime(const sFileName:string):TdateTime;
var
ffd:Twin32Finddata;
dft:dword;
lft:Tfiletime;
h:Thandle;
begin
result := 0;
h := windows.findfirstfile(Pchar(sFilename),ffd);
if INVALID_HANDLE_VALUE <> h then
begin
windows.FindClose(h);
filetimetolocalfiletime(ffd.ftLastWriteTime,lft);
filetimetodosdatetime(lft,longrec(dft).hi,longrec(dft).lo);
result := FileDateToDateTime(dft);
end;
end;
verze:= DateToStr(GetFileLastWriteTime(Application.ExeName));
Jirka Virt
> Upozorneni - FileAge ani GetFileLastWrite nevraci datum kompilace
> aplikace - ale datum zapisu souboru na disk. Cili prostym
> prekopirovanim (instalaci) souboru dojde kjeho zmene.
>
> Datum kompilace by snad melo byt v PE hlavicce souboru (ale je otazka,
> zda kompilatory vzdy tuhle polozku nastavuji - netestoval jsem)
>
> D. Toman
>
>
>
>
>
Lze v Delphi zjistit vytizeni CPU ?
[*] Miroslav Sojka <sojka(zv)transoft(tec)cz> - 28.4.2004 10:46:02
Dobry den,
lze nejak v Delphi zjistit vytizeni CPU ?
Dekuji za odpovedi.
cannot attach to password database
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 28.4.2004 10:41:58
Problem bych hledal spise na serveru. Kdyz se pokusis nakonektovat na
serveru je to OK nebo to taky padne? Ja jsem se s tim setkal kdyz nastane
nejaky bordel v registrech. Idealni asi je na serveru odinstalovat FB
,vycistit registr, restart a znovu nainstalovat. Tak jsem to vzdy vyresil.
Jeste bych si provedl kontrolu knihoven gds32.dll jestli je tam ta knihovna
pro verzi FB kterou mas na serveru.
Libor
----- Original Message -----
From: <horky(zv)cominn(tec)cz>
Sent: Wednesday, April 28, 2004 10:29 AM
> Na svem pocitaci (WXP) jsem drive mel nainstalovany Firebird server, full
instalation. Nyni jsem ho odinstaloval a opet nainstaloval jen klientskou
knihovnu GDS32.dll. No a od te doby se nemohu prihlasit k FB databazi na
serveru, hlasi mi to %SUBJ%.Zjisteni datumu aplikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.4.2004 10:37:57
On Wednesday, April 28, 2004 9:53 AM [CET], Lahoda Radek
<lahodar(zv)uniplet(tec)cz> wrote:
> to z helpu taky funguje, ale vase je kratsi :)
> to GetFileLastWriteTime je v cem?
>
> ----- Puvodni zprava -----
> Od: "Jiri Virt" <virt(zv)volny(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> Odeslano: 28. dubna 2004 9:19
> Predmet: Re: Zjisteni datumu aplikace
>
>
>> verze:= DateToStr(GetFileLastWriteTime(Application.ExeName));
Upozorneni - FileAge ani GetFileLastWrite nevraci datum kompilace
aplikace - ale datum zapisu souboru na disk. Cili prostym
prekopirovanim (instalaci) souboru dojde kjeho zmene.
Datum kompilace by snad melo byt v PE hlavicce souboru (ale je otazka,
zda kompilatory vzdy tuhle polozku nastavuji - netestoval jsem)
D. Toman
cannot attach to password database
[*] horky(zv)cominn(tec)cz - 28.4.2004 10:29:56
Zdravim vsechny!
Na svem pocitaci (WXP) jsem drive mel nainstalovany Firebird server, full instalation. Nyni jsem ho odinstaloval a opet nainstaloval jen klientskou knihovnu GDS32.dll. No a od te doby se nemohu prihlasit k FB databazi na serveru, hlasi mi to %SUBJ%.
Lokalne jiz ISC4.gdb neni, je jen na serveru.
V isql pouzivam prikaz (soubor existuje, driv jsem se k nemu pripojoval):
connect "jmenoserveru:d:\lokalni_cesta\soubor.gdb" user sysdba password masterkey;
Jde nejak zadat cesta, kde se ma ISC4.gdb hledat ? A je to vubec nutne ?
Zil jsem dosud v presvedceni, ze k pripojeni na FB server staci mit naistalovany GDS32.dll a o overeni identity se postara server sam.
Diky za jakekoliv info nebo nazor.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
tisk vlastni grafiky pomoci Siney
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 28.4.2004 09:53:48
Ahoj,
> S prvkem KresliciPlocha se pracuje jako s platnem.
> Kresli se na nej. Je predevsim urcen pro vektorovou
> grafiku, ale rastrovy obrazek lze take pouzit:
> ACanvas.StretchDraw(Rect(x, y, w, h), Bitmap);
StretchDraw neumoznuje definovat zdrojovy vyrez,
proto pouzivam StretchBlt. Bohuzel jsem to v zapalu
boje cele prekopal, takze to uz neoverim, ale
v tomto pripade je na vine asi moje vlastni debilita.
V metode Assing meho vlastniho objektu jsem si
nepredaval ukazatel na rastrovy obrazek, takze byl
nil a tudiz se ani memohl nakreslit. Omlouvam se,
solidne jsem se ustrelil :-(
> Pokud to kreslis sam, muzes se svobodne rozhodnout,
> zda presahnes okraje nebo ne.
to bohuzel dost dobre nemuzu, pokud si nechci pocitat
kazdej prusecik cary s okrajem. jednoduse pocitam
s tim, ze mi to pri vykreslovani oreze system, coz
opet u TPintBoxu na formulari funguje jak ma (alespon
podle helpu). Ocekaval jsem proto stejne chovani u
KresliciPlochy Siney. nicmene v tomto pripade jsou
okraje stejne urcene k odstrizeni/slepeni velkeho
brazu z jednotlivych listu, takze to fakt nijak
zvlast nevadi.
> Protoze jsi do predlohy vlozil prazdny prvek Obrazek.
> Neuvedl jsi, co ma byt obsahem obrazku.
> Muzes si vybrat:
> - odkaz na soubor
> - odkaz na datovou polozku obsahujici nazev souboru
> - odkaz na funkci, ktera vypocte nazev souboru
> - prime nacteni obrazku odkudkoliv pomoci OnGetPicture
uz jsem to asi vykoumal. nejprve si nakreslim obrazky a
ulozim do bmp v pozadovanem dpi, pak to predhodim Sinee.
> Muzes vyuzit konferenci Sinea na
> http://www.sinea(tec)cz/default.asp?page=70
> Jenom za posledni dva tydny tam naleznes vice nez
> 10 odpovedi na vsechny tvoje vyse polozene otazky.
krom toho, ze v tomto pripade povazuju to www
rozhrani za opravdu nestastne a velmi me mrzi zruseni
maillistu, tak ty dotazy jsou vsecky ode me. asi mi
zpocatku unikala sama podstata problemu. do delphi
konfery jsem se obratil, protoze jsem doufal, ze
podobny problem uz nekdo vyresil a nakopne me tim
spravnym smerem. :o)
dekuji vsem zucastnenym
Petr Palicka aka Peca
Zjisteni datumu aplikace
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 28.4.2004 09:53:47
to z helpu taky funguje, ale vase je kratsi :)
to GetFileLastWriteTime je v cem?
----- Puvodni zprava -----
Od: "Jiri Virt" <virt(zv)volny(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odeslano: 28. dubna 2004 9:19
Predmet: Re: Zjisteni datumu aplikace
> verze:= DateToStr(GetFileLastWriteTime(Application.ExeName));
>
> Jirka Virt
>
>
>OT: MS-WORD vs. PC SUITE 602
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.4.2004 09:47:46
Pro vystup do wordu pouzivam zhruba todle nevite nekdo ekvivalent pro PC
SUITE 602?
cont.CreateObject('Word.Basic',False);
MyWord:=cont.OleObject;
MyWord.FileOpen(FrmName);
MyWord.EditFind(wname)
MyWord.StartOfDocument;
MyWord.FilePrintSetup(tiskarna);
MyWord.FilePrint;
OT: exoprt z MSSQL do Paradox DB
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.4.2004 09:41:44
Nevite prosim nekdo jak vyexportovat tabule z MS SQL do paradox DB zkousim
to pres export data , pres driver microsoft paradox ale to nejak nemaka
vytvorej se mi tak 4 tabule z 50 :O(
Zjisteni datumu aplikace
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 28.4.2004 09:33:42
pardon, v helpu jsem to prehlidl
DateTimeToStr(FileDateToDateTime(FileAge(FileName)));
----- Puvodni zprava -----
Od: "Lahoda Radek" <lahodar(zv)uniplet(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odeslano: 28. dubna 2004 9:15
Predmet: Zjisteni datumu aplikace
> zdravim,
> jak zjistit datum kompilace aplikace?
> Verzi uz vim jak, chci jeste to datum dat do about..
> dekuji
>
> Radek Lahoda
>
>
>
>
>Zjisteni datumu aplikace
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 28.4.2004 09:15:40
zdravim,
jak zjistit datum kompilace aplikace?
Verzi uz vim jak, chci jeste to datum dat do about..
dekuji
Radek Lahoda
Zjisteni datumu aplikace
[*] Jiri Virt <virt(zv)volny(tec)cz> - 28.4.2004 09:19:41
verze:= DateToStr(GetFileLastWriteTime(Application.ExeName));
Jirka Virt
Jak doopravdy ulozit data na disk
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 28.4.2004 07:19:31
Procedura Flush(Soubor) prepise data ze souboroveho bufferu na disk, aniz by
doslo k uzavreni souboru.
Kokes
----- Original Message -----
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 27, 2004 8:44 PM
Subject: Jak doopravdy ulozit data na disk
> mam maly problem s ukladanim dat na disk (disketu).
> Jakmile ulozim soubor, vse se tvari ze je ulozeno, ale obcas se stava, ze
> data jsou stale v pameti windows ale data na diskete nejsou ulozena.algoritmus modulo 97-10
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 28.4.2004 07:09:29
viz. http://www.cnb(tec)cz/pdf/EBS204_V3_IBAN.pdf (anglicky)
V tomto dokumentu je popsana kontrola kontrolnich cislic IBAN a kompletni
tvorba IBAN pro CR vcetne vypoctu modulo 97 na cislech o >18 cislicich.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Martin Pavera
> Sent: Tuesday, April 27, 2004 7:35 PM
>
> Nezna nekdo algoritmus "modulo 97-10" pro kontrolu zahranicniho uctu
> (pro kontrolu tuzemskeho uctu "modulo 11" znam).Mozilla public licence
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 27.4.2004 21:38:47
Uz se to tu nekdy probiralo, MPL umoznuje pouzit zdrojovy kod jako
soucast vetsiho projektu, ktery je po jinou licenci. Tedy i komercniho
projektu bez zdrojoveho kodu.
...
Larger Works.
You may create a Larger Work by combining Covered Code with other code
not governed by the terms of this License and distribute the Larger
Work as a single product. In such a case, You must make sure the
requirements of this License are fulfilled for the Covered Code.
...
BTW, nedavno jsem neco potreboval najit v archivu konference na webu,
jsem slepy nebo tam neni rok 2004? :)
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Tuesday, April 27, 2004, 5:46:26 PM, you wrote:
L> Chci pouzit nejake casti zdrojoveho kodu nebo binarky, ktere jsou distribuovane po
L> MPL (Mozilla public licence). Mohu to pouzit i v komercni aplikaci, aniz by to melo
L> vliv na jeji komercni distribuci? (Jedna se mi primo o FlashFiler.) Z anglickeho
L> pravnickeho textu MPL nejsem moc moudry a ani nektera ceska zkratkovita
L> vysvetleni jsem moc nepochopil.
L> Diky za info.
L> Ludek
Jak nastavit InnoSetup - posledni cesta instalace
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 27.4.2004 21:02:44
Zdravim,
na instalaci pouzivam InnoSetup ver. 3.0.6.
Potrebuji, aby si instalacka pamatovala cestu posledni instalace. Toho
docilim pouze za predpokladu, ze se bude vytvaret odinstalacni program
unist000.exe (nastaveni Uninstallable=yes).
Ja ale odinstalacni program nepotrebuji a navic ma jeste pitomy nazev. Dale
unist000.dta pekne po kazde dalsi instalaci nejak roste.
Pomozte jak soi pamatovat cestu a nemit odinstalaci
Diky Pavel ZIDEK
Jak doopravdy ulozit data na disk
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 27.4.2004 20:44:42
Zdravim,
mam maly problem s ukladanim dat na disk (disketu).
Jakmile ulozim soubor, vse se tvari ze je ulozeno, ale obcas se stava, ze
data jsou stale v pameti windows ale data na diskete nejsou ulozena.
Dale mam problemy s antivirovymi programy. Asi nesmim jmenovat konkretni.
Antiviraky mi prerusuji jak ukladani dat tak i zasilana data do tiskarny.
Jak mam na tvrdo ulozit data na disk ?
Pavel ZIDEK
Soucty sloupcu v DBGridu
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 27.4.2004 20:38:41
Musis sa k tomu datasetu pripojit cez SQL komponentu a tam zadat select
sum(moj_stlpec) into sucet from moja_tabulka a potom uz mozes pouzit polozku
sucet.
Pekny den praje www.MartinKasman.sk
----- Original Message -----
From: "Lasevic, Martin" <mlasevic(zv)ratiopharm(tec)cz>
> Ahojek, resim problem, jak zobrazovat soucty numerickych sloupcu v
dbgridu.
> Dival jsem se tady do archivu a kdysi se neco resilo trosku krkolomnym
> zpusobem, ktery nemuzu pouzit
> Existuje nejaky klon DBGridu, ktery tohle umi ( data taham pres TDataSet)
a
> nebo mi nezbyde, nez se na to vrhnout a napsat si to?
>
> Jo, je to V D5Profi, beha pod W9x, W2k, WXPP, data jsou tahana z MSSQL
2000
> pres ODBC.
OT: algoritmus modulo 97-10
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 27.4.2004 19:34:36
Zdravim,
omlouvam se za off-topic, ale uz nevim kde se mam zeptat...
Nezna nekdo algoritmus "modulo 97-10" pro kontrolu zahranicniho uctu
(pro kontrolu tuzemskeho uctu "modulo 11" znam).
Dekuji
Martin Pavera
Soucty sloupcu v DBGridu
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 27.4.2004 18:22:29
On 27 Apr 2004 at 17:38, Lasevic, Martin wrote:
> Ahojek, resim problem, jak zobrazovat soucty numerickych sloupcu v
> dbgridu. Dival jsem se tady do archivu a kdysi se neco resilo trosku
> krkolomnym zpusobem, ktery nemuzu pouzit Existuje nejaky klon DBGridu,
> ktery tohle umi ( data taham pres TDataSet) a nebo mi nezbyde, nez se
> na to vrhnout a napsat si to?
ja pouzivam TSMDBGrid, freeware komponenta by
Mike Shkolnik, Scalabium Software
http://www.scalabium.com
a ta ma mj. i Footer, viz
DBGrid2DrawFooterCell(Sender: TObject;
Canvas: TCanvas; FooterCellRect: TRect; Field: TField;
var FooterText: String; var DefaultDrawing: Boolean);
begin
if Assigned(Field) AND (Field.FieldName = 'CENAN1') then
begin
DefaultDrawing := False;
Canvas.FillRect(FooterCellRect);
Canvas.Font.Color := clRed;
FooterText := FormatFloat(Format_Real,Sumar_Zbozi);
FooterCellRect.Left := FooterCellRect.Left + 2;
FooterCellRect.Top := FooterCellRect.Top + 1;
// or DT_WORDBREAK or DT_EXPANDTABS or
DT_NOPREFIX or DT_VCENTER
DrawText(Canvas.Handle, PChar(FooterText), Length(FooterText),
FooterCellRect, DT_RIGHT)
end;
end;
kde si muzes vse zobrazit/vykreslit.
Uprimne receno, zatim jsem ale nenasel zpusob jak to (spolu s
DBGridem) vytiskout.
Jarek Uher
Mozilla public licence
[*] Ludek <delphi-konference(zv)bcpraha(tec)com> - 27.4.2004 17:46:26
Chci pouzit nejake casti zdrojoveho kodu nebo binarky, ktere jsou distribuovane po
MPL (Mozilla public licence). Mohu to pouzit i v komercni aplikaci, aniz by to melo
vliv na jeji komercni distribuci? (Jedna se mi primo o FlashFiler.) Z anglickeho
pravnickeho textu MPL nejsem moc moudry a ani nektera ceska zkratkovita
vysvetleni jsem moc nepochopil.
Diky za info.
Ludek
Soucty sloupcu v DBGridu
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 27.4.2004 17:38:25
Ahojek, resim problem, jak zobrazovat soucty numerickych sloupcu v dbgridu.
Dival jsem se tady do archivu a kdysi se neco resilo trosku krkolomnym
zpusobem, ktery nemuzu pouzit
Existuje nejaky klon DBGridu, ktery tohle umi ( data taham pres TDataSet) a
nebo mi nezbyde, nez se na to vrhnout a napsat si to?
Jo, je to V D5Profi, beha pod W9x, W2k, WXPP, data jsou tahana z MSSQL 2000
pres ODBC.
Martin
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
Porty com
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 27.4.2004 17:06:22
Stineni nepomuze, a alobalem uz vubec ne. Pomohla by ocelova trubka
s dostatecne silnou stenou :((((.
Duvod je ten, ze stine dlouzi proti elektrostatickemu ruseni.
Jedinne co funguje, tak je kroucena dvoulinka a diferencialni
zapojeni (bez zeme).
Dale hodne pomaha zatlumeni (treba RC filter) a ukoncovaci odpory.
Dale pak ti muze pomoci filter v aplikaci.
Pokud je ruseni, a signal od rele alespon 50 ms, tak by jsi mel
vzorkovat po 5ms a plovoucim medianem z 10 vzorku urcit udalost
(staciu 6 pozitivnich vzorku ve vyberu).
Slavek
> Dekuji za reakci, mel bych ted jeste takovou mensi otazku, je
> fakt ze draty (5ti zilove vedeni) vedou v miste kolem el.
> vedeni 220V, staci je odrusit alobalem nebo je vymenit za
> nejake specialne stinene vedeni.
>
> > Zkus to nastavit takto:
> >
> > DTR - LO
> > RTS - HI
> > mezi DTR a CTS zapojit odpor asi tak 10K
> > reke by melo spinat mezi RST a CTS.
> > Monitorovat pouze CTS.
> > Rele by melo sepnout alespon po dobu 50 ms.
> > Rele mit co nejblize a hlavne nevezt draty kolem
> > jinych (moznost indukce a falesnych signalu).
> > Osciloskopem zkontrolavet kvalitu signalu na CTS.tisk vlastni grafiky pomoci Siney
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.4.2004 14:54:12
> From: petr palicka
>
> Poud pouziju prvek KresliciPlocha (TPaintBox),
> tak se mi vygresli to co nakreslim ja, ale ne
> bitmapa vlozena pomoci StretchBlt.
S prvkem KresliciPlocha se pracuje jako s platnem.
Kresli se na nej. Je predevsim urcen pro vektorovou
grafiku, ale rastrovy obrazek lze take pouzit:
ACanvas.StretchDraw(Rect(x, y, w, h), Bitmap);
> Navic, pokud
> "pretahnu", tak se mi kresli cara i mimo hranice
> prvku, coz neni 2x esteticke,
Pokud to kreslis sam, muzes se svobodne rozhodnout,
zda presahnes okraje nebo ne.
> Pokud zkusim pouzit prvek Obrazek (TPicture),
> tak se nevykresli vubec nic.
Protoze jsi do predlohy vlozil prazdny prvek Obrazek.
Neuvedl jsi, co ma byt obsahem obrazku.
Muzes si vybrat:
- odkaz na soubor
- odkaz na datovou polozku obsahujici nazev souboru
- odkaz na funkci, ktera vypocte nazev souboru
- prime nacteni obrazku odkudkoliv pomoci OnGetPicture
Obrazek je mozne za behu jeste modifikovat, napr. dithering,
pomoci OnPreparePicture
> Nemam zdrojove kody, sef letos jejich nakup
> zamitnul :/, takze se nemuzu koukat dovnitr a
> hledat, kde by mohl byt zakopanej pes.
Muzes vyuzit konferenci Sinea na
http://www.sinea(tec)cz/default.asp?page=70
Jenom za posledni dva tydny tam naleznes vice nez
10 odpovedi na vsechny tvoje vyse polozene otazky.
Vaclav Krmela
tisk vlastni grafiky pomoci Siney
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.4.2004 15:00:13
> From: petr palicka
>
> OnNactiObraz(Sender: TSestava; const ANazev: String;
> APicture: TPicture): Boolean;
>
> ale to, jestli se nepletu, je pro nacteni/kresleni obrazku
> pro podklad cele sestavy. ja doufal v kresleni do prvku
> umisteneho v tele sestavy.
Tato funkce se vola pro vsechny obrazky nezavisle
na jejich umisteni. Samozrejme i v tele sestavy.
Vaclav Krmela
Porty com
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 27.4.2004 14:52:11
Dekuji za reakci, mel bych ted jeste takovou mensi otazku, je fakt ze draty
(5ti zilove vedeni) vedou v miste kolem el. vedeni 220V, staci je odrusit
alobalem nebo je vymenit za nejake specialne stinene vedeni.
diky
Radek Szurman
> Zkus to nastavit takto:
>
> DTR - LO
> RTS - HI
> mezi DTR a CTS zapojit odpor asi tak 10K
> reke by melo spinat mezi RST a CTS.
> Monitorovat pouze CTS.
> Rele by melo sepnout alespon po dobu 50 ms.
> Rele mit co nejblize a hlavne nevezt draty kolem
> jinych (moznost indukce a falesnych signalu).
> Osciloskopem zkontrolavet kvalitu signalu na CTS.
>
> Slavek
>
> Ing. Slavomir Skopalik
> Jednatel spolecnosti
> Elekt Labs s.r.o.
> Chaloupky 158
> 783 72 Velky Tynec
> Czech Republic
> --------------------------------------------
> Mobil: 724 207 851
> e-mail:skopalik(zv)elektlabs(tec)cz
> http://www.elektlabs(tec)cz
> \
>
> > Ahoj,
> > mel bych na vas dotaz, delame jukebox kde mincovnik ma davat
> > informaci o vhozene minci do portu com, delam to ted tak ze
> > nahodim signal RTS a za pouziti komponenty TAfComPort sleduju
> > zmenu signalu na zbylych 4rech vstupech
> > (AfComPort1CTSChanged), kdyz se hodi mince tak se sepne rele
> > a spoji napr. RTS+CTS, problem je ze se obcas stava ze rele
> > se nesepne ale dojde k AfComPort1CTSChanged, asi delame neco
> > spatne, nevite jde to udelat i jinak ? (nebo je to problem
> > hw?) predtim sem to skousel pres knihovnu Port.dll ale to zas
> > delalo problem ze rele seplo ale nic se nezaznamenalo, muselo
> > by to rele byt sepnute delsi dobu, mel jsem timer 1ms a
> > sledoval if CTS=True then...
>
>
>Jak zablokovat/odblokovat klavesnici
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 27.4.2004 14:14:07
Zablokuj i ActionList zmenou property State. Lukas
----- Original Message -----
From: "Ivan Kozak" <ivan(zv)boucek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 26, 2004 3:54 PM
Subject: Re: Jak zablokovat/odblokovat klavesnici
> Nevim, jestli disablovani formu zabrani take zadani shortcutu a klicu
(napr.
> F11, F12). Kdz6 pro form dam enabled:= false,
> zaklokuje to vsetchny visualni komponenty, ne vsak F11, F12
>
> Koyak
>CLX a Alt-TAB
[*] Viktor Doubek <viktordoubek(zv)centrum(tec)cz> - 27.4.2004 13:48:05
Nevite prosim nekdo, jak se zbavit u CLX aplikace toho, aby po Alt-TAB byla videt v seznamu aplikaci ikona me aplikace vicekrat? Je tam vzdy tolikrat, kolik je zobrazeno formularu a pokud je jeden z nich modalni, tak se lze timto zpusobem prepnout i na ty pod nim(!). Umite se tohoto chovani nekdo zbavit?
Samozrejme by to chtelo nejake reseni compatible s Kylixem, ale pro zacatek budu rad i za kod patrici pod {ifdef mswindows}.
Diky moc za pripadne odpovedi. VD.
(W2k/WXP, Delphi7-CLX, FB, DBX)tisk vlastni grafiky pomoci Siney
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 27.4.2004 13:46:04
>to tady nikde nevidim (Sinea 2004) vidim tu jenom OnNactiObraz(Sender:
TSestava; const ANazev: String; APicture: TPicture): Boolean;
sorry, delaj jsem to z hlavy, to je ono.
>ale to, jestli se nepletu, je pro nacteni/kresleni obrazku pro podklad
cele sestavy. ja doufal v kresleni do prvku umisteneho v tele sestavy. asi
to nakonec udelam generovanim bmp a vlozenim na pozadi.
ne, hodi se to vsude, v hlave i v tele, obrazek si muzes polozit kam chces
a pojmenovat si ho po svem
>Sinea je vyborna, jenom obcas, pokud potrebujes nejaky "spek", tak se musi
trosku ocuravat ^_^
Plne souhlasim, ale zatim to vzdy slo, (skoda toho casu) ucurat (krome
tisku obrazku na starsich HP na W95 a zrejme i W98, jsou jen cerne fleky)
Vaclav Riha
IB/FB - zmena procedury ulozene na serveru z aplik
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 27.4.2004 13:24:01
Musis u te komponenty nastavit ParamCheck na false.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of js-delphi(zv)quick(tec)cz
> Sent: Tuesday, April 27, 2004 1:16 PM
>
> No a problem je, ze nejsem schopen napsat takovy SQL, ktery
> pustim z meho programu a ktery mi zapise do zavorky k VALUES ty
> parametry - ":TITUL" atd. IB/FB - zmena procedury ulozene na serveru z aplik
[*] js-delphi(zv)quick(tec)cz - 27.4.2004 13:16:00
Ahoj panove.
Potrebuji umet zmenit proceduru z me aplikace a mam nasledujici problem.
Procedura ma vstupni hodnoty, ktere nejak zpracuji a dale pouzivam k ulozeni do urcitych tabulek - to delam parametrem.
No jo, ale ja nejsem schopen (jsem jen samouk) napsat SQL, ktery bych mohl pustit pres IBSQL nebo IBQuery, abych tu proceduru vytvoril spravne.
Ma to vypadat asi takto:
alter procedure INSERT_OSOBA(
TITULPRED VARCHAR(10) CHARACTER SET WIN1250,
JMENO VARCHAR(20) CHARACTER SET WIN1250,
PRIJMENI VARCHAR(30) CHARACTER SET WIN1250,
TITULZA VARCHAR(10) CHARACTER SET WIN1250,
...
) AS
BEGIN
...
INSERT INTO OSOBA (TITULPRED, JMENO, PRIJMENI, TITULZA, atd.) VALUES
(:TITULPRED, :JMENO, :PRIJMENI, :TITULZA, atd.);
END
No a problem je, ze nejsem schopen napsat takovy SQL, ktery pustim z meho programu a ktery mi zapise do zavorky k VALUES ty parametry - ":TITUL" atd.
At jsem uz zkousel co jsem zkousel, tak mi to SQL predaji jako prazdny string, takze pak ma v mnou zmenene procedure toto:
alter procedure INSERT_OSOBA(
TITULPRED VARCHAR(10) CHARACTER SET WIN1250,
JMENO VARCHAR(20) CHARACTER SET WIN1250,
PRIJMENI VARCHAR(30) CHARACTER SET WIN1250,
TITULZA VARCHAR(10) CHARACTER SET WIN1250,
...
) AS
BEGIN
...
INSERT INTO OSOBA (TITULPRED, JMENO, PRIJMENI, TITULZA, atd.) VALUES
(?, ?, ?, ?, atd.);
END
Muzete mi nekdo pomoct?
Dekuji predem!
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
ClassExplorer Pro pre D7
[*] Lubomir Fule <fule(zv)humansoft.sk> - 27.4.2004 12:49:58
Zdravim, v D6 som bol zvyknuty na podla mna skveleho experta ClassExplorer
Pro, ktory ma podstatne sirsie moznosti ako Code Explorer (hlavna vyhoda je,
ze zobrazuje strom celeho projektu s navaznostou na zdrojaky, nie len
aktualny subor ako Code Explorer). Chcel by som ho nadalej pouzivat aj v D7,
ale kedze je robeny pre D6, tak v D7 nefunguje celkom bezproblemovo.
Neveiete, ci neexistuje aj verzia pre D7, pripadne nieco podobne?
L.
tisk vlastni grafiky pomoci Siney
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.4.2004 12:39:56
> Tisknu pomoci OnGetPicture(APictName: String; APicture: TPicture): Boolean;
to tady nikde nevidim (Sinea 2004) vidim tu jenom
OnNactiObraz(Sender: TSestava; const ANazev: String;
APicture: TPicture): Boolean;
ale to, jestli se nepletu, je pro nacteni/kresleni obrazku
pro podklad cele sestavy. ja doufal v kresleni do prvku
umisteneho v tele sestavy. asi to nakonec udelam vygenerovanim
bmp a vlozenim na pozadi.
> a funguje to. Problemy mohou nastat s Metafiles, nektere ovladace tiskaren
> nepodporuji vsechny funkce (napr nalejvani barvy nebo vzoru do regionu).
to me teprve ceka, zatim jsen vyplne neresil :o)
> Jinak Sinea neni spatna, jak formulare, tak obrazky jsou pod kontrolou,
> mohou byt v BD i v souborech, dobre se lokalizuji.
Sinea je vyborna, jenom obcas, pokud potrebujes nejaky "spek",
tak se musi trosku ocuravat ^_^
Peca
Text chyb pres WinInet
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 27.4.2004 12:35:55
>
> nejak jsem rozchodil HTTP komunikaci pres WinInet a ted se zabyvam osetrovanim
> chyb. Chtel bych pro zacatek v pripade vyskytu chyby (zjistim kod v GetLastError)
> zobrazit kod a textovy popis.
Tohle je to, co potrebujes:
resourcestring
sUnknownWinINetErr = 'Chyba knihovny WinINet RYslo %d';
sErrIConnAbort = 'P?ipojenY k internetu bylo p?eruUeno';
sErrIConnReset = 'P?ipojenY k internetu bylo p?eruUeno';
{ System error messages }
function ClearSysMessage(S: string): string;
begin
while (Length(S) > 0) and (S[Length(S)] in [#0..#32, '.']) do
SetLength(S, Length(S) - 1);
Result := S;
end;
// moje doplneni nekterych chybovych kodu
function WinINetCustMessage(ErrorCode: integer): string;
begin
case ErrorCode of
ERROR_INTERNET_CONNECTION_ABORTED: Result := sErrIConnAbort;
ERROR_INTERNET_CONNECTION_RESET: Result := sErrIConnReset;
else
Result := Format(sUnknownWinINetErr, [ErrorCode]);
end; // case
end; // func
function WinINetErrorMessage(ErrorCode: Integer): string;
var
ModuleHandle: HModule;
Len: Integer;
Buffer: array[0..255] of Char;
begin
ModuleHandle := GetModuleHandle('wininet');
Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_ARGUMENT_ARRAY or FORMAT_MESSAGE_FROM_HMODULE,
pointer(ModuleHandle), ErrorCode, LOCALE_USER_DEFAULT, Buffer,
SizeOf(Buffer), nil);
SetString(Result, Buffer, Len);
Result := ClearSysMessage(Result);
if Result = '' then
Result := WinINetCustMessage(ErrorCode);
end;
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
tisk vlastni grafiky pomoci Siney
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 27.4.2004 12:25:54
>chci se zeptat, jestli nekdo z pritomnych delal,
>a s jakymi vysledky, tisk vlastni grafiky pomoci Sinea sestav.
Tisknu pomoci OnGetPicture(APictName: String; APicture: TPicture): Boolean;
a funguje to. Problemy mohou nastat s Metafiles, nektere ovladace tiskaren
nepodporuji vsechny funkce (napr nalejvani barvy nebo vzoru do regionu).
Jinak Sinea neni spatna, jak formulare, tak obrazky jsou pod kontrolou,
mohou byt v BD i v souborech, dobre se lokalizuji.
S pozdravem Vaclav Riha
Zadanie pozicie tabelatorov
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 27.4.2004 12:03:52
Na nastavenie tabelatorov pouzivam funkciu
var Tabs: Array [0..7] of Integer;
Perform(EM_SETTABSTOPS, 7, LongInt((zv)Tabs));
Myslel som si, ze Tabs obsahuje poziciu tabelatorov v pixeloch (a kedze
pozadovanu poziciu som mal zadanu v centimetroch, myslel som si, ze staci
centimetre -- s vyuzitim znameho poctu 96 pixelov per inch -- prepocitat
na pixely). Ale zda sa, ze to tak nie je.
Neivete mi niekto strucne napisat, ako to teda je: ako zadat pozadovanu
poziciu tabelatorov?
Zmena Autoinkrementace
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 27.4.2004 11:37:50
> mam v tabulce autoinkrementacni field. Vsechno funguje jak ma. Potrebuju
> vsak obcas udelat v te autoinkrementacni posloupnosti mezeru. Proste
> potrebuju kdyz je napr posledni autoinc hodnota 51 aby dalsi byla napr
1052
> tj aby se mi vynechalo 1000 hodnot.
> Delam to tak, ze tam vlozim zaznam, ten dostane 52, prepisu to na 1051 a
> postnu to. Pak to smazu a dal uz to dava 1052,1053...
>
> Pripada mi, ze to asi neni moc kosher reseni. Existuje nejaky jiny cistsi
> zpusob?
IMHO by si nemal pouzivat autoinkrementacne polozky na zapis
neautoinkrementacnych hodnot ale doplnil dalsiu polozku ak to potrebujes.
Erik
tisk vlastni grafiky pomoci Siney
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.4.2004 11:25:47
Ahoj,
chci se zeptat, jestli nekdo z pritomnych delal,
a s jakymi vysledky, tisk vlastni grafiky pomoci
Sinea sestav. Zkousim, zkousim, ale nic mnoho.
Poud pouziju prvek KresliciPlocha (TPaintBox),
tak se mi vygresli to co nakreslim ja, ale ne
bitmapa vlozena pomoci StretchBlt. Navic, pokud
"pretahnu", tak se mi kresli cara i mimo hranice
prvku, coz neni 2x esteticke, ale vzhledem
k ucelu (rozklad kresby na listy) mi to az tak
moc nevadi.
Pokud zkusim pouzit prvek Obrazek (TPicture),
tak se nevykresli vubec nic.
Nemam zdrojove kody, sef letos jejich nakup
zamitnul :/, takze se nemuzu koukat dovnitr a
hledat, kde by mohl byt zakopanej pes.
Duvod proc se snazim tisknout pomoci Siney je
prosty. Jednak jsem si chtel usetrit praci s
tiskem ve vlastni rezii. A za druhe chci mit
jednotne tiskove prostredi pro vsechny tiskove
vystupy ze vsech aplikaci.
dekuji za kazdou radu
Peca
Zmena Autoinkrementace
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 27.4.2004 10:43:44
alter table nazev_tabulky auto_increment=pozadovana_hodnota
Jirka Matejka
==>Tuesday, April 27, 2004 10:33 AM martin.pisarik(zv)seznam(tec)cz wrote:
> Ahoj *,
>
> mam v tabulce autoinkrementacni field. Vsechno funguje jak ma.
> Potrebuju vsak obcas udelat v te autoinkrementacni posloupnosti
> mezeru. Proste potrebuju kdyz je napr posledni autoinc hodnota 51 aby
> dalsi byla napr 1052 tj aby se mi vynechalo 1000 hodnot.
> Delam to tak, ze tam vlozim zaznam, ten dostane 52, prepisu to na
> 1051 a postnu to. Pak to smazu a dal uz to dava 1052,1053...
>
> Pripada mi, ze to asi neni moc kosher reseni. Existuje nejaky jiny
> cistsi zpusob?
>
> Dik.
>
> MySQL, ADO.Zmena Autoinkrementace
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 27.4.2004 10:33:42
Ahoj *,
mam v tabulce autoinkrementacni field. Vsechno funguje jak ma. Potrebuju
vsak obcas udelat v te autoinkrementacni posloupnosti mezeru. Proste
potrebuju kdyz je napr posledni autoinc hodnota 51 aby dalsi byla napr 1052
tj aby se mi vynechalo 1000 hodnot.
Delam to tak, ze tam vlozim zaznam, ten dostane 52, prepisu to na 1051 a
postnu to. Pak to smazu a dal uz to dava 1052,1053...
Pripada mi, ze to asi neni moc kosher reseni. Existuje nejaky jiny cistsi
zpusob?
Dik.
MySQL, ADO.
Text chyb pres WinInet
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 27.4.2004 10:17:40
Zkus dat cast kodu, ve kterem muze nastat chyba, do bloku try.. except,
asi takhle:
try
prikaz kde vznikne vyjimka;
except
on E: Exception do
ShowMessage(E.Message);
end;
Karel
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Lebeda David
Sent: Tuesday, April 27, 2004 9:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Text chyb pres WinInet
Ahoj,
nejak jsem rozchodil HTTP komunikaci pres WinInet a ted se zabyvam
osetrovanim
chyb. Chtel bych pro zacatek v pripade vyskytu chyby (zjistim kod v
GetLastError)
zobrazit kod a textovy popis.
V Delphi jsem nasel funkci SysErrorMessage, ktera ma prevadet kody chyb
na textovy
popis. To ale nefunguje pro kody knihovny WinInet. V knihovne WinInet
jsem nasel
funkci InternetErrorDialog, ale nedokazal jsem ji primet k tomu, aby mi
opravdu nejaky
dialog zobrazilo - proste probehne a nic se nestane. Tak nevim. Copak to
opravdu
musim delat rucne - tj. pouzit case ErrorCode of a tam pekne z ruky
opsat vsechny
konstanty, ktere najdu v WinInet.pas?
Protoze jsem si vsiml, ze na dotazy ohledne WinInet mi tu prakticky
nikdo neodpovida,
chci se zeptat - to tuto knihovnu opravdu nikdo nepouzivate, nebo je v
tom neco jineho
(know-how apod.)?
Diky
David Lebeda
Text chyb pres WinInet
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 27.4.2004 09:59:34
> nejak jsem rozchodil HTTP komunikaci pres WinInet a ted se
> zabyvam osetrovanim chyb. Chtel bych pro zacatek v pripade
> vyskytu chyby (zjistim kod v GetLastError) zobrazit kod a
> textovy popis.
>
> V Delphi jsem nasel funkci SysErrorMessage, ktera ma prevadet
> kody chyb na textovy popis. To ale nefunguje pro kody
> knihovny WinInet.
Mozes pouzit FormatMessage s flagmi FORMAT_MESSAGE_FROM_HMODULE, vid priklad
TWebConnection.Check v unite SConnect.
HTH
TOndrej
Text chyb pres WinInet
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.4.2004 09:43:28
Ahoj,
nejak jsem rozchodil HTTP komunikaci pres WinInet a ted se zabyvam osetrovanim
chyb. Chtel bych pro zacatek v pripade vyskytu chyby (zjistim kod v GetLastError)
zobrazit kod a textovy popis.
V Delphi jsem nasel funkci SysErrorMessage, ktera ma prevadet kody chyb na textovy
popis. To ale nefunguje pro kody knihovny WinInet. V knihovne WinInet jsem nasel
funkci InternetErrorDialog, ale nedokazal jsem ji primet k tomu, aby mi opravdu nejaky
dialog zobrazilo - proste probehne a nic se nestane. Tak nevim. Copak to opravdu
musim delat rucne - tj. pouzit case ErrorCode of a tam pekne z ruky opsat vsechny
konstanty, ktere najdu v WinInet.pas?
Protoze jsem si vsiml, ze na dotazy ohledne WinInet mi tu prakticky nikdo neodpovida,
chci se zeptat - to tuto knihovnu opravdu nikdo nepouzivate, nebo je v tom neco jineho
(know-how apod.)?
Diky
David Lebeda
Viceradkove memo pres SQL
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 27.4.2004 08:01:17
Uz muzete zastavit debatu na toto tema, protoze jsem to jiz vyresil:
Apostrofy jsem zdvojil a konce radku nahradil vlastnim znakem. Druhy
program na serveru pouze tento znak zpet prekonvertuje na #13#10 a
spusti jej. Muselo to byt na jednom radku protoze se v souboru navic
prenasi vice prikazu a take dalsi parametry a chtel jsem pristupovat
pres property Values. Nyni ale vse funguje bezvadne, jenom jsem hledal
jednodussi reseni, ktere vsak asi neexistuje.
Diky za prispevky.
Karel
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jakub Dusek
Sent: Monday, April 26, 2004 7:42 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Viceradkove memo pres SQL
Neni to spis property Text? :) CommaText vraci radky oddelene carkami.
Jinak puvodni dotaz to bohuzel neresi, musi to pry byt bez parametru,
ciste SQL.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, April 26, 2004, 1:21:41 PM, you wrote:
PBus> Zdravim,
PBus> ja memo ukladam pres property stringlistu CommaText - je tam
PBus> prevedeny obsah celeho mema do jednoho stringu
PBus> Ukladam pres ulozenou proceduru:
PBus> SP1.Parameters[x].Value := memo1.Lines.CommaText Nacteni z
PBus> datasetu:
PBus> memo1.Lines.CommaText := DataSet.FieldByName('xy').AsString
PBus> Petr Brada
WinXP a RamDisk
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.4.2004 06:53:08
> Do rootu toho RAM disku nedostanu
> vic nez nejakych 195 souboru. Kdyz ale vytvorim adresar,
> narvu jich kolik chci, dokud staci kapacita.
to je zrejme dany vlastnostmi FATky.
Me by spis zajimal nafukovaci RAMDisk. Neco, jako mivali
staricke Amigy. Vzdy bylo 0B free, ale dokud byla volna
RAMka, tak do nej slo prihazovat. Jenzo to asi taky narazi
na limity filesystemu.
Peca
Viceradkove memo pres SQL
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 26.4.2004 19:42:24
Neni to spis property Text? :) CommaText vraci radky oddelene carkami.
Jinak puvodni dotaz to bohuzel neresi, musi to pry byt bez parametru,
ciste SQL.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, April 26, 2004, 1:21:41 PM, you wrote:
PBus> Zdravim,
PBus> ja memo ukladam pres property stringlistu CommaText - je tam prevedeny obsah
PBus> celeho mema do jednoho stringu
PBus> Ukladam pres ulozenou proceduru:
PBus> SP1.Parameters[x].Value := memo1.Lines.CommaText
PBus> Nacteni z datasetu:
PBus> memo1.Lines.CommaText := DataSet.FieldByName('xy').AsString
PBus> Petr Brada
Jak zablokovat/odblokovat klavesnici
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 26.4.2004 19:24:22
Kym prave pracuje vyhladavanie, zablokuj ten konkretny edit
(enabled:=false) alebo globalne zachytavaj klavesnicu
-----Original Message-----
Nevite nahodou nekdo jak jednoduse zablokovat/odblokovat klavesnici?
Napr.
aby nebylo mozne nic zadat pocas vyhledavani. Dik. ivan Kozak
OLE DB
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 26.4.2004 19:18:21
To ne, pokud to vyhodi v Delphi vyjimku pri pripojeni pres ADO tak to
do databaze nijak zapisovat nemuze, at je to jakakoliv databaze. Bude
tam spis nejaka jina chyba...
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, April 26, 2004, 7:47:00 AM, you wrote:
DF> Ahoj,
DF> no prave ze se tam bohuzel ukladaji a zobrazuji. Nemuze to byt tim ze
DF> Personal Edition je treba nejaka divna?
DF> Dalik.Nejde mi nainstalovat komponenta do Delphi 7
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 26.4.2004 18:44:18
Pak mas spatne nastavene cesty ke knihovnam.
Jinak, opet doporucuji, sezen si pas.
Slavek
PS: V D7 nefunguje urceni souboru v projektu cestou, pokud
je to dcu. To funguje pouze pro pas.
>
> Dekuji za odpoved,
> dcu pro D7 mam, ty zdrojaky bohuzel ne.
>
>
> > Musis si sehnat dcu pro delphi7, nebo lepe zdrojaky, jinak
> ses v ....
> > (existuje utilita na prevod z dcu do asm, ale pak stravis
> hooodne casu
> > zpetnym prepisem)instalace FB 1.5 na linuxu
[*] Dalibor <dalibor(zv)torola(tec)cz> - 26.4.2004 17:54:14
No, ja jsem na tom taky zhavaroval.
Bylo to na Red Hat 7.3. V releas notes, pisou, ze to neni podporovane, tak
jsem to rovnou vzdal.
Ale presne na takovyhle knihovnach mi to havarovalo.
Priznam se, ze NEJSEM linuxovej odbornik a ani nebudu, takze jestli existuje
moznost, jak to nainstalovat, rad se priucim.
D.
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 26, 2004 4:16 PM
Subject: OT: instalace FB 1.5 na linuxu
> Ahoj,
>
> prave se me jeden chlapek snazi presvedcit, ze
> kvuli instalaci FB 1.5, respektive potrebnym
> knihovnam glibc-2.2.5 a libstdc++-5.0, je nutne
> rekompilovat jadro a je to moc slozity. Prej
> nestaci jen dat knihovny k serveru.
> Muze mi to nekdo potvrdit/vyvratit? Rad bych
> vedel na tuty jestli je to tak.
>
> Dekuji
>
> Peca
>
>Nejde mi nainstalovat komponenta do Delphi 7
[*] Miroslav Sojka <sojka(zv)transoft(tec)cz> - 26.4.2004 17:00:10
Dekuji za odpoved,
dcu pro D7 mam, ty zdrojaky bohuzel ne.> Musis si sehnat dcu pro delphi7, nebo lepe zdrojaky, jinak ses v ....
> (existuje utilita na prevod z dcu do asm, ale pak stravis hooodne
> casu zpetnym prepisem)
>
> Slavek
>
> > mam problem s instalaci komponenty VaComm do Delphi 7 . Do
> > Delphi 6 se mi ji podarilo nainstalovat bez problemu dle
> > navodu. Po prechodu na Delphi 7 jsem ji chtel doinstalovat i
> > sem, ale nepovedlo se (chce neustale *.pas soubory i kdyz u
> > D6 je to nechtelo). Navod je pro D6 i D7 stejny. Nevite nekdo
> > co s tim ?
> >
> > P.S.
> > ty *.pas soubory tam nebyly, jsou tam jen *.dcu a *.dpk a *.res .
> >
>
>
>
>
Nejde mi nainstalovat komponenta do Delphi 7
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 26.4.2004 16:48:08
Musis si sehnat dcu pro delphi7, nebo lepe zdrojaky, jinak ses v ....
(existuje utilita na prevod z dcu do asm, ale pak stravis hooodne
casu zpetnym prepisem)
Slavek
> mam problem s instalaci komponenty VaComm do Delphi 7 . Do
> Delphi 6 se mi ji podarilo nainstalovat bez problemu dle
> navodu. Po prechodu na Delphi 7 jsem ji chtel doinstalovat i
> sem, ale nepovedlo se (chce neustale *.pas soubory i kdyz u
> D6 je to nechtelo). Navod je pro D6 i D7 stejny. Nevite nekdo
> co s tim ?
>
> P.S.
> ty *.pas soubory tam nebyly, jsou tam jen *.dcu a *.dpk a *.res .
> Nejde mi nainstalovat komponenta do Delphi 7
[*] Miroslav Sojka <sojka(zv)transoft(tec)cz> - 26.4.2004 16:24:06
Ahoj,
mam problem s instalaci komponenty VaComm do Delphi 7 . Do Delphi 6 se mi ji
podarilo nainstalovat bez problemu dle navodu. Po prechodu na Delphi 7 jsem
ji chtel doinstalovat i sem, ale nepovedlo se (chce neustale *.pas soubory i
kdyz u D6 je to nechtelo). Navod je pro D6 i D7 stejny. Nevite nekdo co s
tim ?
P.S.
ty *.pas soubory tam nebyly, jsou tam jen *.dcu a *.dpk a *.res .
Dekuji za pripadne odpovedi.
OT: instalace FB 1.5 na linuxu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 26.4.2004 16:16:02
Ahoj,
prave se me jeden chlapek snazi presvedcit, ze
kvuli instalaci FB 1.5, respektive potrebnym
knihovnam glibc-2.2.5 a libstdc++-5.0, je nutne
rekompilovat jadro a je to moc slozity. Prej
nestaci jen dat knihovny k serveru.
Muze mi to nekdo potvrdit/vyvratit? Rad bych
vedel na tuty jestli je to tak.
Dekuji
Peca
Jak zablokovat/odblokovat klavesnici
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 26.4.2004 15:54:00
Nevim, jestli disablovani formu zabrani take zadani shortcutu a klicu (napr.
F11, F12). Kdz6 pro form dam enabled:= false,
zaklokuje to vsetchny visualni komponenty, ne vsak F11, F12
Koyak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jiri Matejka
Sent: Monday, April 26, 2004 3:38 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Jak zablokovat/odblokovat klavesnici
Nestacilo by disablovat cely Form?
Jirka Matejka
----- Original Message -----
From: "Ivan Kozak" <ivan(zv)boucek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 26, 2004 2:25 PM
Subject: Jak zablokovat/odblokovat klavesnici
> Nevite nahodou nekdo jak jednoduse zablokovat/odblokovat klavesnici? Napr.
> aby nebylo mozne nic zadat pocas vyhledavani. Dik. ivan Kozak
Jak zablokovat/odblokovat klavesnici
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 26.4.2004 15:37:58
Nestacilo by disablovat cely Form?
Jirka Matejka
----- Original Message -----
From: "Ivan Kozak" <ivan(zv)boucek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 26, 2004 2:25 PM
Subject: Jak zablokovat/odblokovat klavesnici
> Nevite nahodou nekdo jak jednoduse zablokovat/odblokovat klavesnici? Napr.
> aby nebylo mozne nic zadat pocas vyhledavani. Dik. ivan Kozak
WinXP a RamDisk
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 26.4.2004 15:33:57
Pripojuji se, i ja jej pouzivam pod XP, jen jsem prisel na zajimavou vec,
neni to sice dulezite, ale je to zajimave: Do rootu toho RAM disku nedostanu
vic nez nejakych 195 souboru. Kdyz ale vytvorim adresar, narvu jich kolik
chci, dokud staci kapacita.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant>
> No ja ho pouzivam bezproblemu i pod WINXP.
> D.
>
>
> > Ahoj, vi nekdo jakym zpusobem lze pod WinXP/Win2k nadefinovat Ramdisk ??
> Rad bych, aby to bylo free reseni (na netu jsem nasel nekolik shareware).
> MS
> nabizi ramdisk.sys, ale ten je pouze pro Win2k. Diky vsem za rady. PRGX
> >
nastaveni IBRestoreService
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 26.4.2004 15:27:56
> Proc musi? Gbak umi provest obnovu z localu na server.
AFAIK server pracuje pouze s lokalnim filesystemem.
> Zapis nize mi funguje, ale potrebuji totez dosahnout pomoci IBRestoreService.
> gbak -R -T c:\database.fbk 62.204.224.20:f:\database.fdb -user SYSDBA -password masterkey
mno, ze to gbak umi vim, ale si to zarizuje nejak jinak.
IMHO gbak umi serveru gbk poslat po siti, zatimco
IBRestoreService jenom vola sluzby serveru a neumi mu
nic posilat. tohle by snad presneji vedel Pavel Cisaru.
Peca
WinXP a RamDisk
[*] Dalibor <dalibor(zv)torola(tec)cz> - 26.4.2004 14:51:53
No ja ho pouzivam bezproblemu i pod WINXP.
D.
----- Original Message -----
From: <prgx(zv)email(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 26, 2004 2:19 PM
Subject: OT: WinXP a RamDisk
> Ahoj, vi nekdo jakym zpusobem lze pod WinXP/Win2k nadefinovat Ramdisk ??
Rad bych, aby to bylo free reseni (na netu jsem nasel nekolik shareware). MS
nabizi ramdisk.sys, ale ten je pouze pro Win2k. Diky vsem za rady. PRGX
>OT: WinXP a RamDisk
[*] prgx(zv)email(tec)cz - 26.4.2004 14:19:50
Ahoj, vi nekdo jakym zpusobem lze pod WinXP/Win2k nadefinovat Ramdisk ?? Rad bych, aby to bylo free reseni (na netu jsem nasel nekolik shareware). MS nabizi ramdisk.sys, ale ten je pouze pro Win2k. Diky vsem za rady. PRGX
Jak zablokovat/odblokovat klavesnici
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 26.4.2004 14:25:51
Nevite nahodou nekdo jak jednoduse zablokovat/odblokovat klavesnici? Napr.
aby nebylo mozne nic zadat pocas vyhledavani. Dik. ivan Kozak