Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Odkaz na Email a WWW stranky
[*] Radek Kozub�k <kozubik(zv)camo(tec)cz> - 5.3.2002 14:07:43
Zdravim vsechny,
jak v delphi 3.0 pridat na formular odkaz na email a na www stranky napr.
tvurce programu tak aby po klepnuti na tento odkaz nabehl post. klient popr.
prohlizec?
Dik Radek
Rozsireni Outlooku Express
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 14:14:02
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> kvuli necemu jinemu. Vzdyt preci do Outlooku Express resp. na jeho toolbar
> pridavaji tlacitko a to tam musi nejak vzniknout. Preci to tam nepridavaji
> pres handle toho toolbaru (tak me napada - ma vubec toolbar handle ?)...
Protoze tam potrebujes nejak dopravit ty datove struktury a jsi v jinem
procesu, takze pouziti hooku je vlastne jedina oklika jak to vubec udelat.
Petr Vones
BDE - pocet spustenych BDEAdminov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 14:17:55
From: "Jan Grman" <janog(zv)pluto.elf.stuba.sk>
> Teda ide o: BDEAdmin - Configuration - System - INIT - SHAREDMEMSIZE
> Zdvojnasobenim cisla zdvojnasobim max. pocet konekcii.
> Ak niekto vie - poradi ako funguju tie ostatne parametre ? Hlavne tie
> suvisiace s nastavenim pamete.
Najdes to v helpu. Jedine ceho tim docilis je, ze BDE spadne bud drive nebo o
trochu pozdeji. Resenim je zbavit se BDE provzdy.
Petr Vones
Odkaz na Email a WWW stranky
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.3.2002 14:19:09
Pres funkci ShellExecute
V archivu konference najdes dost prikladu
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
5.3.2002 Radek Kozub�k:
> Zdravim vsechny,
> jak v delphi 3.0 pridat na formular odkaz na email a na www stranky napr.
> tvurce programu tak aby po klepnuti na tento odkaz nabehl post. klient popr.
> prohlizec?
tPageControl a Hint
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 5.3.2002 14:41:22
nevite nekdo proc se ve strankach tPageControl neakceptuje hint, pokud
nastavi kazde strance jiny (showhint a jine parametry jsou spravne)Zji�t�n� MS Outlook
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 5.3.2002 14:57:47
Kde to roste
Dik
V knihovne JCL (konkretne JCLMapi).
Objekt JCLSimpleMapi
BDE - pocet spustenych BDEAdminov
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 5.3.2002 15:00:17
>From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> From: "Jan Grman" <janog(zv)pluto.elf.stuba.sk>
> > Teda ide o: BDEAdmin - Configuration - System - INIT - SHAREDMEMSIZE
> > Zdvojnasobenim cisla zdvojnasobim max. pocet konekcii.
> > Ak niekto vie - poradi ako funguju tie ostatne parametre ? Hlavne tie
> > suvisiace s nastavenim pamete.
>
> Najdes to v helpu. Jedine ceho tim docilis je, ze BDE spadne bud drive
nebo o
> trochu pozdeji. Resenim je zbavit se BDE provzdy.
No prave ze z toho HELPu som trochu magor.
Nejak mi to nejde do hlavy.
No a pokial ide o zbavenie sa BDE, suhlasim, zial hned to nejde, prerabka
takto velkeho projektu bude par mesiacov trvat a ja to potrebujem vyriesit
hned najlepsie ako to ide... teda nech padne cim neskor !
Porad ako a vies !
JG
Zji�t�n� MS Outlook
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 15:08:31
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> Kde to roste
>
> Dik
>
> V knihovne JCL (konkretne JCLMapi). Objekt JCLSimpleMapi
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
Odkaz na Email a WWW stranky
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 5.3.2002 15:13:38
> jak v delphi 3.0 pridat na formular odkaz na email a na www stranky napr.
> tvurce programu tak aby po klepnuti na tento odkaz nabehl post. klient popr.
> prohlizec?
Co treba takhle?
procedure TAboutForm.MailLabelClick(Sender: TObject);
const
MailAdresa = 'mailto:nekdo(zv)nekde(tec)cz';
begin
ShellExecute(Handle,nil,PChar(MailAdresa),nil,nil,SW_normal);
end;
procedure TAboutForm.WWWLabelClick(Sender: TObject);
const
WWWAdresa = 'http://www.nekde(tec)cz';
begin
ShellExecute(Handle,nil,PChar(WWWAdresa),nil,nil,SW_normal);
end;
Podotykam, ze v uses musis mit unitu ShellApi. A taky je dobre ty
labely nejak barevne odlisit od tech ostatnich "normalnich", pripadne
jim priradit jiny typ kurzoru, nejlepe snad ten vztyceny
prostrednicek, tedy pardon - ukazovacek :-)
Jirka.BDE - pocet spustenych BDEAdminov
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.3.2002 15:18:53
Jan Grman dne 5 Mar 2002 v 15:00:
> No prave ze z toho HELPu som trochu magor.
> Nejak mi to nejde do hlavy.
> No a pokial ide o zbavenie sa BDE, suhlasim, zial hned to nejde,
> prerabka takto velkeho projektu bude par mesiacov trvat a ja to
> potrebujem vyriesit hned najlepsie ako to ide... teda nech padne cim
> neskor ! Porad ako a vies !
No prinejmensim dve dalsi volby jsou hodne uzitecne:
- LOCAL SHARE - nastavit na True
- MAXFILEHANDLES - std. 48 je dost malo, pouzivam kolem 400
Karel Rys
hleda se knihovna s OpenFileDialogem pod W2000
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 5.3.2002 15:41:53
cau lidi,
nevite nekdo prosim v jaky knihovne bych nasel OpenFileDialog(nemyslim primo
v delphi, ale puvodni windowsackej). Potreboval bych s nim pracovat v
excelu. predem dik
Pavel
BDE - pocet spustenych BDEAdminov
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 5.3.2002 15:56:11
> > No prave ze z toho HELPu som trochu magor.
> > Nejak mi to nejde do hlavy.
> > No a pokial ide o zbavenie sa BDE, suhlasim, zial hned to nejde,
> > prerabka takto velkeho projektu bude par mesiacov trvat a ja to
> > potrebujem vyriesit hned najlepsie ako to ide... teda nech padne cim
> > neskor ! Porad ako a vies !
>
> No prinejmensim dve dalsi volby jsou hodne uzitecne:
> - LOCAL SHARE - nastavit na True
> - MAXFILEHANDLES - std. 48 je dost malo, pouzivam kolem 400
Aha... asi som zabudol dodat ze pracujem s SQL databazami... neviem ci prave
tieto parametre
mozu mat vobec vplyv... alebo ano ?
JG
hleda se knihovna s OpenFileDialogem pod W2000
[*] Marek ��ek - 5.3.2002 16:11:35
COMMDLG.DLL
ale ve vbscriptech by to melo
snad byt negde zabaleny
Marek
----- Original Message -----
From: "Vagner Pavel" <Vagner(zv)ceps(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 05, 2002 3:41 PM
Subject: hleda se knihovna s OpenFileDialogem pod W2000
> cau lidi,
> nevite nekdo prosim v jaky knihovne bych nasel OpenFileDialog(nemyslim
primo
> v delphi, ale puvodni windowsackej). Potreboval bych s nim pracovat v
> excelu. predem dik
> Pavel
hleda se knihovna s OpenFileDialogem pod W2000
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 5.3.2002 16:14:54
> cau lidi,
> nevite nekdo prosim v jaky knihovne bych nasel
> OpenFileDialog(nemyslim primo
> v delphi, ale puvodni windowsackej). Potreboval bych s nim pracovat v
> excelu. predem dik
GetOpenFileName najdes v comdlg32.dll, ale Excel ma na to aj VBA metodu:
Application.GetOpenFileName
HTH
TOndrej
najit a ulozit registry
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 16:44:42
From: "Jakub Maurer" <jakub.Maurer(zv)seznam(tec)cz>
> Ja ale potrebuju vypsat vse co je v tom klici...tzn,ze nejen hodnoty klice
> ale i cely strom klicu a jejich hodnoty...
Pak se podivej treba na RegistryExample.dpr v JCL:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
ADOStoredProc: ExecProc nebo Open ?
[*] Martin Srp, DiS. <srp(zv)marbes(tec)cz> - 5.3.2002 16:52:42
Jde o to, ze hned pri prvnim spusteni ExecProc se ma vyvolat EXCEPTION, ale
to se evidentne nedeje.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Martin Bab�k
> Sent: Tuesday, March 05, 2002 1:29 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: ADOStoredProc: ExecProc nebo Open ?
>
> Mozna tomu nerozumim (s ADO nedelam), ale nefunguje to nahodou
> spravne? Zkus si to po sobe precist, prvni a pak druhy odstavec!
>
> M&B
>
> >>> srp(zv)marbes(tec)cz 5.3.2002 11:10 >>>
> > Na SQL Serveru 2000 mam stored proceduru v jejimz tele mam
> dva stejne
> >inserty do tabulky s jednim fieldem, ktery je zaroven primarnim
> klicem (pro
> >jednoduchou predstavu). Kdyz tuhle proceduru pustim v Query
> Analyzeru hodi
> >to samozrejme pri druhem insertu chybu. To je OK.
> >
> > Kdyz pripojim tuhle proceduru pres komponentu ADOStoredProc a volam
> >ExecProc, zadnou chybu to nehodi! Proc? Kdyz ji zavolam podruhe uz chybu
> >vyhodi. Jak to? Zkousel jsem i metodu Open, ta vypada o neco lip, ale v
> >nekterych momentech hazi chybu "Command text does not return a
> result set.",
> >coz je pochopitelne.
> > Stejne chovani je i pri pouziti komponenty ADOQuery.
> >Mate s tim nekdo zkusenosti? A vite, jak to resit?
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
Instalace MSDE
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 5.3.2002 17:51:26
Ahoj,
potrebuji porgramove (instalatorem - inno setup) nainstalovat MSDE na
nejaky pocitac.
Uvazoval jsem o spusteni instalace prikazem SETUP.EXE s prepinacem pro
silent instalaci. Jak se ale dovim, ze instalace probehla v poradku,
nebo ne? Je tohle vubec dobre reseni instalace MSDE? Jak to resite vy?
Potrebuji aby mi instalator nenainstaloval na cilovy pocitac dalsi
instanci SQL, pokud uz tam je apod.
diky, Ales
Str to Pchar
[*] 3dimenzion <3dimension(zv)seznam(tec)cz> - 5.3.2002 18:12:43
Dobry den,
nevite jak prevest string na pchar ?
Dekuji za odpoved.Str to Pchar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 18:21:31
From: "3dimenzion" <3dimension(zv)seznam(tec)cz>
> nevite jak prevest string na pchar ?
var
S: string; // AnsiString
P: PChar;
P := PChar(S);
Petr Vones
tPageControl a Hint
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 18:39:22
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>
> nevite nekdo proc se ve strankach tPageControl neakceptuje hint, pokud
> nastavi kazde strance jiny (showhint a jine parametry jsou spravne)
Zalezi na tom co cekas ze to bude presne delat. Pokud najedes mysi do vlastni
stranky tak se zobrazi. Nefunguje to ale na zalozkach/tlacitkach jednotlivych
stranek.
Petr Vones
Schovani vlastniho Hintu (odchyceni CM_DEACTIVATE)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 18:42:09
From: "Jan Krizek" <krizek(zv)vitasw(tec)cz>
> jak jej schovavat, pokud se uzivatel prepne bez pouziti mysi do jine
> aplikace, protoze pak muze odjet uplne mimo komponentu a ja se to
> nedovim (a navic THintWindow je videt i nad oknem cizi aplikace).
Nevim jestli je to presne ono, ale asi by sla pouzit zprava WM_KILLFOCUS.
Petr Vones
{$I-}
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 19:44:41
From: "David Kraina" <DKx(zv)Seznam(tec)cz>
> Neexistuje v Delphi nejco jako bylo v pascalu {$I-},{$I+}?
Ten prepinac je v Delphi taky, asi lepsi je pouzivat variantu ze ktere je
videt co presne znamena $IOCHECKS
> Mam totiz chybu v komponente, ale ona je na me moc slozita a tak bych to
> vyresilt tzv. postaru - jedna se o komponentu AMixer a zkouska spustit a
> ziskavat informace bez zvukovky. Neda se to nejak jinak zjistit, co
> neexistuje=false then zjistujinfo ? Neni na to nejake API? Dik.
Uprime receno nechapu o co ti presne jde. Neni prece problem kod primo ladit,
navic ten prepinac ma asi s mixerem zvukovky pramalo spolecneho, je spise
urcen pro zpetnou kompatibilitu.
Petr Vones
Nadtrzeni v Richedit
[*] Fredy Crueger <Fredy.Conf(zv)Seznam(tec)cz> - 5.3.2002 19:45:29
From: "Petr Palicka aka PeC(zv)" <petr.palicka(zv)atlas(tec)cz>> ahoj,
>
> > Nemate nekdo aspon napad jak to "nasimulovat" ?
>
> neslo by pouzit oramovani textu jenom nahore?
>
> zkus ve wordu oznacit kousek textu, oramovat ho nahore
> a ulozit do rtf. pak to zkus zobrazit v TRichEditu, pokud
> bude jakz takz, tak si zkus prolizt ten rtf soubor a nejak
> to pochopit, jak to zrobit.
>
Caf
Me ani nejak nejde o to jak to vytvaret behem programu, staci mi ty texty si
napsat na pocatku a pak je jen zobrazovat. Word nejak to ohraniceni dela
pres celej radek, kdyz dam jenom nahore, ja bych potreboval jenom nad
urcitym slovem. To fakt neni zadna moznost jak udelat takovou hovadinu ?
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)Kylix a seriove porty
[*] Jirka Virt <virt(zv)volny(tec)cz> - 5.3.2002 20:06:19
Ahoj,
nedelal jste nedko pristupy na seriove porty v Kylixu.
Vim, ze zarizeni je /dev/ttySx, ale nedari se mi nijak otevrit pro cteni a
zapis.
v C na to pristupuji handle = open(TTY,DeviceName)
Nevite jak na to????
Predem moc diky za jakykoliv namet
Jirka Virt
email: virt(zv)volny(tec)cz
Ukladani slozitejsich trid jako vl. do DFM
[*] Tom� Kr�sl <tomkrysl(zv)post(tec)cz> - 5.3.2002 20:36:56
Cau programatori,
Problem: Ve vlastni komponente chci zpristupnit
vlastnost OpenDialog: TOpenDialog (published), tj.
aby uzivatel komponenty mohl zadat libovolne vlastnosti OpenDialogu v Object Inspectoru.
OpenDialog se automaticky nezobrazil, tak jsem pro nej zaregistroval editor ClassProperty (nebylo treba odvodit vlastni editor).
Pri ukladani formulare do DFM se ale podvlastnosti
OpenDialogu neukladaji, jedna se zrejme o "slozitejsi" komponentu (dle Helpu) nez treba TFont, kterou uz Writer neulozi. Priklad z Helpu (DefineProperties atd.) jsem take nerozchodil. Prosim poradte.
Tomas Krysl alias MADPascal
QReport: Tlac v stlpcoch
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 5.3.2002 21:53:58
Ahoj,
potrebujem tlacit pomocou QReportu data v dvoch stlpcoch. Teda v jednom
riadku chcem mat 2 "detailbandy". Nastavil som to v Report Settings > Number
Of Columns na cislo 2, ale zaznamy su najprv ukladane pod seba, nie vedla.
Ak sa na stranu zmesti 20 "bandov", a ja mam k dispozicii len 5, tak sa
vytlacia pod seba
takto:
1
2
3
4
5
pricom ja by som potreboval:
1 2
3 4
5
druhy stlpec sa zacne zaplnat az po zaplneni prveho stlpca.
viete co s tym ??? Hladal som kde-tade ale nic som nezistil.
mam QReport 3.0.9
S pozdravom
Ondrej Krsko
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Programovanie pre deti - Robot Karol++
http://ono.host.sk/karol
Consts cz
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.3.2002 22:36:46
----- Original Message -----
From: "Standa" <Ooman(zv)centrum(tec)cz>
> Ahoj nem�te n�kdo unitu Consts p�elo�enou do �e�tiny.
Ale pozor na verziu Delphi, ja ked som prechadzal z D4-D5 tak to nebolo
rovnake, musel som si este raz prelozit D5 verziu. Bolo to menej nakladne
ako hladat rozdiely.
Roland.Reinstalacia FB1 beta2 na FB1 RC2
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.3.2002 22:46:26
Ahojte!
Onoho casu som nainstaloval IB6.01, potom som to reinstaloval na FB beta2
formou prepisania vsetkych suborov ktore boli dostupne na ibphoenix a FB
fungoval OK. Prisiel som zakaznikovi a ako iniciativny blbec som mu chytil
beta2ku a preinstaloval som ho FB1RC2WinSetup. Ono to uz pri spusteni
servera hlasilo, ze nevie zaviest kniznicu WS2_32.DLL. IBGuard sa vobec
nedal spustit a IBServer sa sice spustil ale nefungovalo pripojenie. Tak som
chytil stary adresar FB ktory som si zazalohoval a vratil som ho na svoje
miesto. Uz neslo spustit ani beta2 to iste hlasilo. Odinstaloval som vsetko
aj z registrov a nainstalovat som chcel zase IB6.01 a tiez to neslo.
Nakoniec som si zistil, ze Win98 to uz je instalovane tak som z instalaciek
Windows98 do adresaru Windows\System vlozil subor "WS2_32.dll" a este potom
pytal subor "WS2HELP.dll". Viem, ze to nie je kosher riesenie ale ako
pomocna barla to stacilo. Jedna sa o Windows95 OSR2, ale tam nie je ani
internet, ani siet, len klasicky local. Tie subory sice patria k Windows
Socket 2 ale cim sa to tam nainstaluje ?
Roland.RECREATE vs. ALTER na FB
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.3.2002 23:23:22
Aky je rozdiel medzi RECREATE PROCEDURE a ALTER PROCEDURE ?
Ja to chapem ze RECREATE spravi DROP a nasledny CREATE
a
ALTER len zmeni na novy kod.
Ale nejako stale mi unika ta podstata rozdielu.
Roland.Vykreslovani TGraphicControl komponent v klientske
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.3.2002 23:49:28
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> pred casem tu tusim byl podobny dotaz. Jedno mozne reseni najdete tady.
Urceno
> pro Delphi 5.01 a 6.02:
> http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17609
ja som vlastne to iste opisal do svojho projektu ale pri spusteni tam proste
nie su. Prezeral som vsetky property v deme a skontroloval som so svojim
nastavenim a nejde to. Je v tom nejaky hacik ?
Dakujem a ostavam s pozdravom
Roland Turcan - amatersky programator
D5ProSP1, Firebird 1.0RC2, IBX4.63, Win2000Pro/CZ, Win98CZSE
Odsadenie poloziek v menu
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.3.2002 23:51:40
Ahoj!
Pouzil som tip z 1001T&T na odsadenie Items v menu. Fungovalo to OK aj na
W2k aj W98, ale na Windows2000 mi to prestalo fungovat a nepostrehol som
kedy (com som nastavoval, instaloval), ale na Win9x to funguje. Co to moze
sposobovat.
Dakujem a ostavam s pozdravom
Roland Turcan - amatersky programator
D5ProSP1, Firebird 1.0RC2, IBX4.63, Win2000Pro/CZ, Win98CZSE
Winsock2 pro Win95 Was: Reinstalacia FB1 beta2 na
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2002 00:10:50
From: "Roland Turcan" <rolo(zv)sedas.sk>
> pomocna barla to stacilo. Jedna sa o Windows95 OSR2, ale tam nie je ani
> internet, ani siet, len klasicky local. Tie subory sice patria k Windows
> Socket 2 ale cim sa to tam nainstaluje ?
Odkaz: "Windows Socket 2 Update"
http://www.microsoft.com/Windows95/downloads/Default.asp
Petr Vones
Vykreslovani TGraphicControl komponent v klientske
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2002 03:08:52
From: "Roland Turcan" <rolo(zv)sedas.sk>
> ja som vlastne to iste opisal do svojho projektu ale pri spusteni tam proste
> nie su. Prezeral som vsetky property v deme a skontroloval som so svojim
> nastavenim a nejde to. Je v tom nejaky hacik ?
Pokud to funguje v te demo aplikaci tak je patrne problem nekde jinde. Ten
unit musi by soucasti projektu a kreslit musis v udalosti OnPaint formulare.
Petr Vones
QReport: Tlac v stlpcoch
[*] <morzol(zv)atlas(tec)cz> - 6.3.2002 06:51:15
Ahoj,
pokud vis kolik radku Ti vyjde na jednu stranku, tak si muzes misto 2 QRDetailu dat jenom jeden s QRlabelama a v udalosti OnNeedData nadefinujes co se v tech labelech bude tisknout. Property Dataset zustane prazdna.
Tento system se da pouzit jenom pokud mas reporty s velice jednoduchym layoutem. Pokud napr. pouzivas QRChildBandy, ktere nejsou tisteny pravidelne, nebo vyska QRDEtailu neni konstantni je vyse pouzity zpusob nepouzitelny.
S pozdravem,
Marian Morzol
-----Original Message-----
From: "delphi-l-owner(zv)clexpert(tec)cz" <delphi-l-owner(zv)clexpert(tec)cz> on behalf of "Ondrej Kr�ko" <krsko(zv)gjh.sk>
Sent: Tuesday, March 05, 2002 9:53 PM
To: "delphi-l(zv)clexpert(tec)cz" <delphi-l(zv)clexpert(tec)cz>
Subject: QReport: Tlac v stlpcoch
Ahoj,
potrebujem tlacit pomocou QReportu data v dvoch stlpcoch. Teda v jednom
riadku chcem mat 2 "detailbandy". Nastavil som to v Report Settings > Number
Of Columns na cislo 2, ale zaznamy su najprv ukladane pod seba, nie vedla.
Ak sa na stranu zmesti 20 "bandov", a ja mam k dispozicii len 5, tak sa
vytlacia pod seba
takto:
1
2
3
4
5
pricom ja by som potreboval:
1 2
3 4
5
druhy stlpec sa zacne zaplnat az po zaplneni prveho stlpca.
viete co s tym ??? Hladal som kde-tade ale nic som nezistil.
mam QReport 3.0.9
S pozdravom
Ondrej Krsko
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Programovanie pre deti - Robot Karol++
http://ono.host.sk/karol
Kylix a seriove porty
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.3.2002 07:43:25
Cirou nahodou delal. ;-)
Vlez na moji stranku a stahni si muj SynaSer. To je knihovna s jednim
objektem, ktery zapouzdruje obsluhu seriovych portu. SynaSer je jak
pro Delphi, tak i pro Kylix, tedy ten objekt ti pokytuje stejne
rozhrani pod Linuxem i pod Windows, takze muzes vesele psat sve
programy a pri portaci na druhou platormu se o rozdily nestarat.
> Ahoj,
> nedelal jste nedko pristupy na seriove porty v Kylixu.
>
> Vim, ze zarizeni je /dev/ttySx, ale nedari se mi nijak otevrit pro cteni a
> zapis.
>
>
> v C na to pristupuji handle = open(TTY,DeviceName)
>
>
> Nevite jak na to????
>
> Predem moc diky za jakykoliv namet
>
> Jirka Virt
> email: virt(zv)volny(tec)cz
>
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Kylix a seriove porty
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.3.2002 07:49:47
> Vim, ze zarizeni je /dev/ttySx, ale nedari se mi nijak otevrit pro cteni a
> zapis.
> v C na to pristupuji handle = open(TTY,DeviceName)
Jen pro doplneni. SynaSer otevira seriovy port pod Linuxem takhle:
FHandle := THandle(Libc.open(pchar(comport), O_RDWR or
o_nonblock));
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Schovani vlastniho Hintu (odchyceni CM_DEACTIVATE)
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 6.3.2002 07:52:27
Ahoj,
dik za reakci, ale muj problem neni v tom, kterou zpravu odchytit, ale
jak. Protoze potrebuji zpravu na urovni Application. Ted mi to funguje s
tim SetWindowLong, ale mam takovy neblahy pocit, ze se to muze pos*at.
Viz priklad:
Vznikne instance A a prenastavi WndProc u Application na A.MyWndProc,
takze vsechny zpravy prochazi nasledujicim
A.MyWndProc
OrigWndProc
Pak vznikne instance B a prenastavi WndProc u Application na
B.MyWndProc, takze vsechny zpravy prochazeji nasledujicim
B.MyWndProc
A.MyWndProc
OrigWndProc
A pak zrusim instanci A a ta vrati vse do stavu jak to bylo pri jejim
vzniku, tedy zpravy prochazeji pouze
OrigWndProc
A co hure, zrusi se instance B a ta tam uvede A.MyWndProc. Ta uz ale
neexistuje!
Koukal jsem na spoustu examplu, ktere jsou na webu ohledne prikazu
SetWindowLong( hWnd, GWL_PROC, ... ) a nikde jsem nenasel, ze by se
tento problem resil. Vetsinou se meni procedura okna vlastnika
komponenty a tam asi dochazi k tomu spravnemu poradi ruseni jednotlivych
komponent, takze problem neni tak vazny. Coz ale v pripade prepsani
procedury okna TApplication nelze zajistit (komponenty mohou byt v
ruznych oknech).
Nemuzu to take vyresit jen s WM_KILLFOCUS na treba okne vlastnika,
protoze Hint zobrazuji i kdyz nema komponenta (ani jeji vlastnik focus).
Alespon podle winsight
Asi reseni by bylo, kdyby Borland zmenil zpusob eventu (no dobre je to
sice SCIFI, ale coz :-), misto jedne procedury, ze by to byl seznam
vsech procedur, ktere se maji zavolat a kazda instance komponenty by si
mohla zaregistrovat, ze chce byt volana pri Application.OnMessage.
Honza +
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Sent: Tuesday, March 05, 2002 6:42 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Schovani vlastniho Hintu (odchyceni CM_DEACTIVATE)
>
>
> From: "Jan Krizek" <krizek(zv)vitasw(tec)cz>
> > jak jej schovavat, pokud se uzivatel prepne bez pouziti
> mysi do jine
> > aplikace, protoze pak muze odjet uplne mimo komponentu a ja se to
> > nedovim (a navic THintWindow je videt i nad oknem cizi aplikace).
>
> Nevim jestli je to presne ono, ale asi by sla pouzit zprava
> WM_KILLFOCUS.
>
> Petr Vones
> Data z konference na read-only disku
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 6.3.2002 07:58:35
Pro potreby nasich zaku udrzuji databazi prispevku z konference.
Je ale umistena na sitovem disku, ktery je pro zaky read-only,
takze pred heldanim museji zkopirovat temer 100 MB na pracovni
disk. Pokud to neudelaji, KonfView konci vyjimkou:
EDBEngineError - Cannot Access Directory, Permission Denied,
File: I:\Delphi\Konference\PDOXUSRS.LCK, File or directory does
not exist.
Mam tedy dotaz, zda lze nejak Paradoxu sdelit, aby svuj zamkovy
soubor ukladal do slozky, kterou mu zadam.
Dekuji predem za odpoved.
ing. Jan Plisek e-mail: plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE http://www.spse(tec)cz
Czech Republic
Probl�m s instalac� Delphi 5
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 6.3.2002 08:09:50
Hi,
mam Delphi 5 Prof. a pokousim se je nainstalovat na uplne novy PC kde jsou
W2K Prof. Sp2.
Problem je v tom, ze instalace se ani nespusti, respektive naskoci uvodni
okno ISExpesu v pruhu to dojde az na 99% a pak se bez vyzvani ukonci, takze
ani nezacnu instalovat.
Mam PC: Pentium 4 -1600 MHz, 256 Mb RAM, ATI 32 MB, HDD 40GB
Nevite nekdo vcem je problem, zkousel jsem to na jinem PC s W2K a tam to
jde.
Predem diky
Jindrich Nikodem
Instalace MSDE
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 6.3.2002 08:12:23
Zkus http://support.microsoft.com/default.aspx?scid=kb;CS;q233337 je tam
popis jak poznat vysledek tiche instalace MSDE. Bohuzel nejsou tam
vsechny mozne vysledky, zrovna ted bojuji s instalaci na Win95 bez IE
kde se mi napsalo Completed=2 (normalne ma byt 1, ze by se mi to tam
nainstalovalo dvakrat :-))
Jeste pozor pri takove instalaci, nesmi existovat zadne zablokovane okno
(protoze instalace MSDE posila broadcast message).
Honza +Jak identifikovat tiskarnu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 6.3.2002 08:17:25
Ahoj,
mam aplikaci s radou tiskovych sestav a u nekterych sestav bych
rad nekde v parametrech predepsal, ze se maji automaticky
tisknout na jednu konkretni tiskarnu.
Co je z hlediska Windows tim jednoznacnym identifikatorem
tiskarny? Jmeno tiskarny nebo existuje treba nejake cislo?
Pokud pujde o tiskarnu sdilenou v lokalni siti, tak ta muze mit
na ruznych pocitacich asi ruzne jmeno (nebo se pletu?). Existuje
pro tuto tiskarnu udaj, ktery je stejny na kazdem pocitaci v siti?
Dik.
David Lebeda
RECREATE vs. ALTER na FB
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 6.3.2002 08:17:03
Nevim jak FB, ale u jinych DB byva problem DROP a CREATE v tom, ze se
ztrati napr. nagrantovana prava.
Honza +
> -----Original Message-----
> From: Roland Turcan [mailto:rolo(zv)sedas.sk]
> Sent: Tuesday, March 05, 2002 11:23 PM
> To: Delphi CZ konferencia
> Subject: RECREATE vs. ALTER na FB
>
>
> Aky je rozdiel medzi RECREATE PROCEDURE a ALTER PROCEDURE ?
> Ja to chapem ze RECREATE spravi DROP a nasledny CREATE
> a
> ALTER len zmeni na novy kod.
> Ale nejako stale mi unika ta podstata rozdielu.
>
> Roland.
>
> Instalace MSDE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.3.2002 08:20:59
On 6 Mar 2002 at 8:12, Jan Krizek wrote:
> Zkus http://support.microsoft.com/default.aspx?scid=kb;CS;q233337 je
> tam popis jak poznat vysledek tiche instalace MSDE. Bohuzel nejsou tam
> vsechny mozne vysledky, zrovna ted bojuji s instalaci na Win95 bez IE
> kde se mi napsalo Completed=2 (normalne ma byt 1, ze by se mi to tam
> nainstalovalo dvakrat :-))
Pokud zkousis na W95 MSDE 2, tak to vzdej, to nejde.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Schovani vlastniho Hintu (odchyceni CM_DEACTIVATE)
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.3.2002 08:24:19
> Asi reseni by bylo, kdyby Borland zmenil zpusob eventu (no dobre je to
> sice SCIFI, ale coz :-), misto jedne procedury, ze by to byl seznam
> vsech procedur, ktere se maji zavolat a kazda instance
> komponenty by si
> mohla zaregistrovat, ze chce byt volana pri Application.OnMessage.
Nie je to sci-fi, mozes pouzit Application.HookMainWindow/UnhookMainWindow.
HTH
TOndrej
Ukladani slozitejsich trid jako vl. do DFM
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 06.3.2002 08:26:22
Myslim, ze tenhle postup neni dobry. Taky jsem se o to snazil (zabudovat
properties OpenDialogu do vlastniho objektu) ale pak jsem zjistil, ze
pristup Borlandu je mnohem pruznejsi. Ve vlastni komponente si dej pouze
odkaz na OpenDialog (neboli promennou typu TOpenDialog) a spoj to s
OpenDialogem umistenym na formulari. Tak nemusis nic ukladat, OpenDialog
se ti ulozi sam a kdyz mu pribydou nove vlastnosti, nemusis nic
predelavat.
Tom� Kr�sl wrote:
>
> Cau programatori,
>
> Problem: Ve vlastni komponente chci zpristupnit
> vlastnost OpenDialog: TOpenDialog (published), tj.
> aby uzivatel komponenty mohl zadat libovolne vlastnosti OpenDialogu v Object Inspectoru.
>
> OpenDialog se automaticky nezobrazil, tak jsem pro nej zaregistroval editor ClassProperty (nebylo treba odvodit vlastni editor).
>
> Pri ukladani formulare do DFM se ale podvlastnosti
> OpenDialogu neukladaji, jedna se zrejme o "slozitejsi" komponentu (dle Helpu) nez treba TFont, kterou uz Writer neulozi. Priklad z Helpu (DefineProperties atd.) jsem take nerozchodil. Prosim poradte.
>
> Tomas Krysl alias MADPascal
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Kde sehnat imagelist
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 6.3.2002 08:46:20
Cau
nevite nekdo kde muzu sehnat nejake imagelisty (bitmapy nejakych okrasnych alfanumerickych - ASCII znaku ) do meho projektu ?
dik
Milos
RECREATE vs. ALTER na FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.3.2002 09:02:39
Haj hou!
On 5 Mar 2002, at 23:23, Roland Turcan wrote:
> Aky je rozdiel medzi RECREATE PROCEDURE a ALTER PROCEDURE ?
> Ja to chapem ze RECREATE spravi DROP a nasledny CREATE
> a
> ALTER len zmeni na novy kod.
> Ale nejako stale mi unika ta podstata rozdielu.
RECREATE PORCEDURE (nebo TABLE):
1) Pokud procedura / tabulka existuje, je proveden automaticky
DROP, pokud neexistuje, je funkce shodna s CREATE
2) Na rozdil od ALTER umoznuje zmenu vsech casti procedury /
tabulky
3) Protoze je v pripade existence procedury / tabulky nejdrive
provaden DROP, je treba brat ohled na zavislosti, ktere mohou
zabranit v provedeni DROP.
Prikaz RECREATE je urcen predevsim pro scripty, ktere nemaji
moznost otestovat existenci procedury / tabulky v databazi pred
provedenim CREATE. RECREATE vzdy uspeje tam, kde by proste
CREATE selhalo pro jiz existujici objekt.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Reinstalacia FB1 beta2 na FB1 RC2
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.3.2002 09:02:39
<color><param>7F00,0000,0000</param>Haj hou!<color><param>0100,0100,0100</param>On 5 Mar 2002, at 22:46, Roland Turcan wrote:<color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>> Onoho casu som nainstaloval IB6.01, potom som to reinstaloval na FB beta2
> formou prepisania vsetkych suborov ktore boli dostupne na ibphoenix a FB
> fungoval OK. Prisiel som zakaznikovi a ako iniciativny blbec som mu chytil
> beta2ku a preinstaloval som ho FB1RC2WinSetup. Ono to uz pri spusteni
> servera hlasilo, ze nevie zaviest kniznicu WS2_32.DLL. IBGuard sa vobec
> nedal spustit a IBServer sa sice spustil ale nefungovalo pripojenie. </color><FontFamily><param>Arial CE</param>Tusim ze od RC1 Firebird pouziva Winsock 2 misto stareho
Winsock 1. To muze cinit problemy na W95 ktere standardne
neobsahuji winsock2. Ten se da stahnout napr. na
<underline><color><param>0000,8000,0000</param>http://www.microsoft.com/Windows95/downloads/Default.asp
</underline></color>V tvem pripade je to neprijemnost, ale pokud by na dane masine
byl napr. Internet nebo se jinak pouzivalo TCP/IP, tak je upgrade na
winsock2 prakticky nezbytny i z jinych duvodu nez instalace
Firebirdu.
S pozdravem
<nofill>
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Zobrazeni www po klepnuti na odkaz v komponente TR
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 6.3.2002 09:04:30
Ahoj,
ve formulari mam komponentu TRxDBRichEdit, kde se mi
zobrazuje odkaz na napr. www.kotehulky-ves(tec)cz.
Ryd bych, aby se mi po klepnuti na tento odkaz otevrely prislusne
stranky.
Zkousel jsem nazev stranky odchytit takhle
TRxDBRichEdit.WordAtCursor
ale to mi odchytilo jen "www.kotehulky-".
Nevite nekdo, jak zjistit cely ten odkaz ?
Nevite nekdo o komponente typu RichEdit, ktery by umela zobrazit
odkaz na www a take na e-mail adresu ?
Dik moc,
Kokosek (D3 prof.)Hladanie v TQuery - SURNE
[*] Slavom�r �eke� - 6.3.2002 09:08:16
Zdravim ...
ako najrychlejsie hladat urcity zaznam v TQuery ... ?
Po SELECTe mam v TQuery urcity vycuc dat, ale ja sa potrebujem
softwarovo nastavit na urcitu konkretnu polozku, ako na to ? v TTable to
bolo rychle pomocou metody FindKey(), s pouzitim indexu, ale ako je to v
TQuery ? PROSIM SURNE ...
Slavo
Blokovani systemovych klaves ve W2000
[*] P�emysl Neuman <p.neuman(zv)sh.cvut(tec)cz> - 6.3.2002 09:24:30
Dobry den,
potreboval bych zablokovat systemove klavesy jako CTRL+ALT+DEL, ale nevim
jak na to. Postup uvedeny v sekci FAQ funguje jen pro W98.
Pokud byste nekdo neco vedel, byl bych velmi vdecny za informaci.
Pekny den,
P�emysl Neuman
Round problem!
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 6.3.2002 09:52:37
Zdravim vsechny,
mam problem s zaokrouhlovaci funkci Round. Ja vim, nekricte na mne, abych si
prosel archiv a abych se naucil zaokrouhlovat, protoze pokud pred 5 je suda,
tak to jde dolu k te sude. To ja vsechno vim a archiv jsem si uz prosel. Ale
jsem postaven pred nasledujici problem:
Musim, zduraznuji musim, zaokrouhlovat 12.5 na 13 (cili od 5 nahoru) VZDY. A
ted je tu ten problem:
Jak to mam naimplementovat???
-------------
Reseni 1.:
Num := 12.315, Prec := 2 (zaokrouhlit 12.315 na 2 desetiny)
Result := Int(Num) + Round(Frac(Num) * Power(10, Prec)) / Power(10, Prec);
Vysledek: nefunkcni (12.31)
-------------
-------------
Reseni 2.:
Num := 12.325, Prec := 2 (zaokrouhlit 12.325 na 2 desetiny)
Result := Int(Num) + Trunc(Frac(Num) * Power(10,Prec) + 0.5) /
Power(10,Prec);
Vysledek: nefunkcni (12.32) - protoze lnX = 33, Trunc(33) = 32...
-------------
-------------
Reseni 3.:
Prevest na string a v tom se pohrabat...
-------------
Reseni 1 a 2 jsou nefunkcni, reseni 3 se mi tak nejak "ekluje". Znate prosim
jeste nejaky jiny algoritmus? Jedna se mi o zaokrouhlovani, kde od 5 to jde
vzdy nahoru, nezavisle na tom, jestli pred 5 je suda, ci licha. Nebo mam
pouzit jiny datovy typ?
Diky za pomoc,
Ozon
Round problem!
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 6.3.2002 10:10:20
Ja bych zkusil toto
Result := Round(Num * Power(10,Prec))/Power(10,Prec);
> Zdravim vsechny,
> mam problem s zaokrouhlovaci funkci Round. Ja vim, nekricte na mne,
> abych si prosel archiv a abych se naucil zaokrouhlovat, protoze pokud
> pred 5 je suda, tak to jde dolu k te sude. To ja vsechno vim a archiv
> jsem si uz prosel. Ale jsem postaven pred nasledujici problem:
>
> Musim, zduraznuji musim, zaokrouhlovat 12.5 na 13 (cili od 5 nahoru)
> VZDY. A ted je tu ten problem: Jak to mam naimplementovat???
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Probl�m s instalac� Delphi 5
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 6.3.2002 10:15:51
Instalujes jako Administrator resp. clen skupiny Administrators?
----- Original Message -----
From: "Jind�ich Nikodem" <nikodem(zv)kh-kinetic(tec)cz>
> Problem je v tom, ze instalace se ani nespusti, respektive naskoci uvodni
> okno ISExpesu v pruhu to dojde az na 99% a pak se bez vyzvani ukonci, takze
> ani nezacnu instalovat.
Round problem!
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 6.3.2002 10:17:41
Pricist 0,5 a z vysledku odseknout (fract) celou cast...
Kokes
----- Original Message -----
From: "David Mensik" <mensikd(zv)seznam(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 06, 2002 9:52 AM
Subject: Round problem!> Zdravim vsechny,
> mam problem s zaokrouhlovaci funkci Round. Ja vim, nekricte na mne, abych
si
> prosel archiv a abych se naucil zaokrouhlovat, protoze pokud pred 5 je
suda,
> tak to jde dolu k te sude. To ja vsechno vim a archiv jsem si uz prosel.
Ale
> jsem postaven pred nasledujici problem:
>
> Musim, zduraznuji musim, zaokrouhlovat 12.5 na 13 (cili od 5 nahoru) VZDY.
A
> ted je tu ten problem:
> Jak to mam naimplementovat???
>
> -------------
> Reseni 1.:
> Num := 12.315, Prec := 2 (zaokrouhlit 12.315 na 2 desetiny)
> Result := Int(Num) + Round(Frac(Num) * Power(10, Prec)) / Power(10, Prec);
>
> Vysledek: nefunkcni (12.31)
> -------------
>
> -------------
> Reseni 2.:
> Num := 12.325, Prec := 2 (zaokrouhlit 12.325 na 2 desetiny)
> Result := Int(Num) + Trunc(Frac(Num) * Power(10,Prec) + 0.5) /
> Power(10,Prec);
>
> Vysledek: nefunkcni (12.32) - protoze lnX = 33, Trunc(33) = 32...
> -------------
>
> -------------
> Reseni 3.:
> Prevest na string a v tom se pohrabat...
> -------------
>
> Reseni 1 a 2 jsou nefunkcni, reseni 3 se mi tak nejak "ekluje". Znate
prosim
> jeste nejaky jiny algoritmus? Jedna se mi o zaokrouhlovani, kde od 5 to
jde
> vzdy nahoru, nezavisle na tom, jestli pred 5 je suda, ci licha. Nebo mam
> pouzit jiny datovy typ?
>
> Diky za pomoc,
> Ozon
>
>
Instalace MSDE
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 6.3.2002 10:18:48
Nezkousim, to jsem se docetl, ze dvojka je od 98 vejs. Jednicka ale
oficialne vyzaduje pouze doinstalovat DCOM95. To vsak nestacilo. Az kdyz
jsem nainstaloval IE5 (ctyrku jsem nemel po ruce) tak se MSDE
nainstalovalo. Mozna v tech specifikacich mlcky predpokladaj OSR2, ale
bohuzel se clovek setka i se starsimi. Tak zatim na CD pridam IE s
doporucenim, ze je lepsi, kdyz se tam nainstaluje IE (a pak ze IE neni
soucasti systemu :-), nebo ze bych si mel pozvat na instalaci MSDE
experty americkych soudu :-)).
Honza +
>
> Pokud zkousis na W95 MSDE 2, tak to vzdej, to nejde.
>
> S pozdravem
>
> Zbysek Hlinka
Round problem!
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 6.3.2002 10:19:21
Mozna nechapu problem, ale neni jednodussi pricist
k cislu zanedbatelny delta a tim padem dojde k zaokrouhleni
nahoru ?
Exaktni pet desetin ti zpravidla nevyjde jako vysledek vypoctu, vypocet
s FP ma vzdy tak trochu statistickou prichut (podle typu FPU).
Samozrejme si musite projit kod, co se stene jinde a za jinych okolnosti, ale
pro vetsinu pripadu je to OK.
Jeste nechapu proc zrovna vdy od 0.5 nahoru, pro finacni vypocty se uziva
floor a ceil (vzdy nahoru, neby vzdy dolu) podle toho co je treba.
Jinak to lze resit i takto:
x:=Int(x)+ord(Frac(x)>0.5);
Slavek
> Zdravim vsechny,
> mam problem s zaokrouhlovaci funkci Round. Ja vim, nekricte na mne, abych si
> prosel archiv a abych se naucil zaokrouhlovat, protoze pokud pred 5 je suda,
> tak to jde dolu k te sude. To ja vsechno vim a archiv jsem si uz prosel. Ale
> jsem postaven pred nasledujici problem:
>
> Musim, zduraznuji musim, zaokrouhlovat 12.5 na 13 (cili od 5 nahoru) VZDY. A
> ted je tu ten problem:
> Jak to mam naimplementovat???Round problem!
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 6.3.2002 10:33:04
> Musim, zduraznuji musim, zaokrouhlovat 12.5 na 13 (cili od 5 nahoru) VZDY.
A
> ted je tu ten problem:
> Jak to mam naimplementovat???
My pouzivame tohle:
function ZaokrouhlitCastku(const Castka: Currency; const Rad: Integer; const
Smer: String): Currency;
var
PomCastka, Odloz: Extended;
procedure ZaokrPomCastka;
begin
if Length(Smer) > 0 then
case Smer[1] of
'M':
if Frac(IntPower(10, -Rad) * PomCastka) = 0.5 then
PomCastka := Ceil(IntPower(10, -Rad) * PomCastka) /
IntPower(10, -Rad)
else
PomCastka := Round(IntPower(10, -Rad) * PomCastka) /
IntPower(10, -Rad);
'N':
PomCastka := Ceil(IntPower(10, -Rad) * PomCastka) /
IntPower(10, -Rad);
'D':
PomCastka := Floor(IntPower(10, -Rad) * PomCastka) /
IntPower(10, -Rad)
end;
end;
begin
// mus� se to hnat pres Extended, protoze jinak muze dojit k preteceni
if Rad < 0 then
begin
Odloz := Int(Castka);
PomCastka := Castka - Odloz;
ZaokrPomCastka;
Result := Odloz + PomCastka
end
else
begin
PomCastka := Castka;
ZaokrPomCastka;
Result := PomCastka;
end;
end;
QReport: Tlac v stlpcoch
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 6.3.2002 10:33:57
Pro tuto funkcnost jsme museli dost vyrazne prepsat QReporty,
ale funguje nam to. Ale misto vicenasobneho detailu se nam zleva
doprava opakuji subdetaily. Pokud to budes delat, tak vez ze
je to obtizne, ale resitelne.
Martin Schayna
----- Original Message -----
From: "Ondrej Kr�ko" <krsko(zv)gjh.sk>
> potrebujem tlacit pomocou QReportu data v dvoch stlpcoch. Teda v jednom
> riadku chcem mat 2 "detailbandy". Nastavil som to v Report Settings > Number
> Of Columns na cislo 2, ale zaznamy su najprv ukladane pod seba, nie vedla.
> Ak sa na stranu zmesti 20 "bandov", a ja mam k dispozicii len 5, tak sa
> vytlacia pod seba
> takto:
> 1
> 2
> 3
> 4
> 5
>
> pricom ja by som potreboval:
> 1 2
> 3 4
> 5
>
Blokovani systemovych klaves ve W2000
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 6.3.2002 10:35:23
Pokud vim, tak prave tohle nejde.
A je to tak dobre.
Martin Schayna
----- Original Message -----
From: "P�emysl Neuman" <p.neuman(zv)sh.cvut(tec)cz>
potreboval bych zablokovat systemove klavesy jako CTRL+ALT+DEL, ale nevim
jak na to. Postup uvedeny v sekci FAQ funguje jen pro W98.
Instalace MSDE
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 6.3.2002 10:41:24
DCOM a MDAC (ktere je soucasti IE 4. SP 2 a vyse!
Sroub
Nezkousim, to jsem se docetl, ze dvojka je od 98 vejs. Jednicka ale
oficialne vyzaduje pouze doinstalovat DCOM95. To vsak nestacilo. Az kdyz
jsem nainstaloval IE5 (ctyrku jsem nemel po ruce) tak se MSDE
nainstalovalo. Mozna v tech specifikacich mlcky predpokladaj OSR2, ale
bohuzel se clovek setka i se starsimi. Tak zatim na CD pridam IE s
doporucenim, ze je lepsi, kdyz se tam nainstaluje IE (a pak ze IE neni
soucasti systemu :-), nebo ze bych si mel pozvat na instalaci MSDE
experty americkych soudu :-)).
Honza +
>
> Pokud zkousis na W95 MSDE 2, tak to vzdej, to nejde.
>
> S pozdravem
>
> Zbysek Hlinka
Round problem!
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 6.3.2002 10:44:45
Coz to zkusit takto:
var i: longint; i:= Trunc(Num * Power(10,Prec) + 0.5);
Result := i/Power(10,Prec);
pokud se to vejde do longint, pripadne pouzit jiny celociselny typ
Ing. Jan Dvorak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of David Mensik
> Sent: Wednesday, March 06, 2002 9:53 AM
> To: Delphi konference
> Subject: Round problem!
>
> Zdravim vsechny,
> mam problem s zaokrouhlovaci funkci Round. Ja vim, nekricte na
> mne, abych si
> prosel archiv a abych se naucil zaokrouhlovat, protoze pokud pred
> 5 je suda,
> tak to jde dolu k te sude. To ja vsechno vim a archiv jsem si uz
> prosel. Ale
> jsem postaven pred nasledujici problem:
>
> Musim, zduraznuji musim, zaokrouhlovat 12.5 na 13 (cili od 5
> nahoru) VZDY. A
> ted je tu ten problem:
> Jak to mam naimplementovat???
>
> -------------
> Reseni 1.:
> Num := 12.315, Prec := 2 (zaokrouhlit 12.315 na 2 desetiny)
> Result := Int(Num) + Round(Frac(Num) * Power(10, Prec)) / Power(10, Prec);
>
> Vysledek: nefunkcni (12.31)
> -------------
>
> -------------
> Reseni 2.:
> Num := 12.325, Prec := 2 (zaokrouhlit 12.325 na 2 desetiny)
> Result := Int(Num) + Trunc(Frac(Num) * Power(10,Prec) + 0.5) /
> Power(10,Prec);
>
> Vysledek: nefunkcni (12.32) - protoze lnX = 33, Trunc(33) = 32...
> -------------
>
> -------------
> Reseni 3.:
> Prevest na string a v tom se pohrabat...
> -------------
>
> Reseni 1 a 2 jsou nefunkcni, reseni 3 se mi tak nejak "ekluje".
> Znate prosim
> jeste nejaky jiny algoritmus? Jedna se mi o zaokrouhlovani, kde
> od 5 to jde
> vzdy nahoru, nezavisle na tom, jestli pred 5 je suda, ci licha. Nebo mam
> pouzit jiny datovy typ?
>
> Diky za pomoc,
> Ozon
>Data z konference na read-only disku
[*] Sommer Pavel <PSommer(zv)cpoj(tec)cz> - 6.3.2002 11:05:17
V BDEAdmin v zalozce Configuration otevrit Drivers\Native\Paradox a
nastavit polozku NET DIR.
PaS.
-----Original Message-----
From: Plisek Jan Ing. [mailto:Plisek(zv)spse(tec)cz]
Sent: Wednesday, March 06, 2002 7:59 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Data z konference na read-only disku
Pro potreby nasich zaku udrzuji databazi prispevku z konference.
Je ale umistena na sitovem disku, ktery je pro zaky read-only,
takze pred heldanim museji zkopirovat temer 100 MB na pracovni
disk. Pokud to neudelaji, KonfView konci vyjimkou:
EDBEngineError - Cannot Access Directory, Permission Denied,
File: I:\Delphi\Konference\PDOXUSRS.LCK, File or directory does
not exist.
Mam tedy dotaz, zda lze nejak Paradoxu sdelit, aby svuj zamkovy
soubor ukladal do slozky, kterou mu zadam.
Dekuji predem za odpoved.
ing. Jan Plisek e-mail: plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE http://www.spse(tec)cz
Czech Republic
Data z konference na read-only disku
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 6.3.2002 11:24:35
NETDIR je pro soubor pdoxuser.net, ale ne pro lck.soubory. Ty si ridi
zamykani tabulek a zaznamu...
Sroub
V BDEAdmin v zalozce Configuration otevrit Drivers\Native\Paradox a
nastavit polozku NET DIR.
Pro potreby nasich zaku udrzuji databazi prispevku z konference.
Je ale umistena na sitovem disku, ktery je pro zaky read-only,
takze pred heldanim museji zkopirovat temer 100 MB na pracovni
disk. Pokud to neudelaji, KonfView konci vyjimkou:
EDBEngineError - Cannot Access Directory, Permission Denied,
File: I:\Delphi\Konference\PDOXUSRS.LCK, File or directory does
not exist.
Mam tedy dotaz, zda lze nejak Paradoxu sdelit, aby svuj zamkovy
soubor ukladal do slozky, kterou mu zadam.
Dekuji predem za odpoved.
Tvorba programu jako service pro WinNT
[*] Radek Kozubik <kozubik(zv)camo(tec)cz> - 6.3.2002 11:26:13
Zdravim,
lze nejakym zpusobem vytvorit v D3 program, ktery by bezel jako service ?
Nasel jsem sice nejakou komponentu OCX, ale radeji bych pouzil nastroje
Delphi.
Diky Radek
Hladanie v TQuery - SURNE
[*] Martin �ajbik <cajbik(zv)sct.sk> - 6.3.2002 11:43:30
Cez Locate('Stlpec', Hodnota, [])
ak ide o hladanie podla hodnoty jedneho stlpca alebo
Locate('Stlpec1,Stlpec2,Stlpec3', VarArrayOf([Hodnota1, Hodnota2,
Hodnota3]), [])
pre viac stlpcov. V pripade potreby je mozne pouzit nejake nastavenia pre
vyhladavanie (to su tie []).
Ale treba ratat s tym, ze Locate v podstate prechadza cely dataset postupne
a oproti FindKey je teda
o dost pomalsie.
MarCaNT (marcant(zv)sct.sk)
Zdravim ...
ako najrychlejsie hladat urcity zaznam v TQuery ... ?
Po SELECTe mam v TQuery urcity vycuc dat, ale ja sa potrebujem
softwarovo nastavit na urcitu konkretnu polozku, ako na to ? v TTable to
bolo rychle pomocou metody FindKey(), s pouzitim indexu, ale ako je to v
TQuery ? PROSIM SURNE ...
Slavo
Data z konference na read-only disku
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 6.3.2002 11:43:58
Zkus nastavit WorkDir na disk, kam se d� zapsat. Ale spise si myslim, ze se
Ti to nepovede. Jakmile je to sitovy disk tak zamyka a zamyka...
S tim WorkDirem je ale potreba to nastavit programove, tudiz si vyzadat
zdrojaky a upravit si to pro sebe.
Tot muj nazor.
Martin .
-----Original Message-----
From: Sommer Pavel [mailto:PSommer(zv)cpoj(tec)cz]
Sent: Wednesday, March 06, 2002 11:05 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Data z konference na read-only disku
V BDEAdmin v zalozce Configuration otevrit Drivers\Native\Paradox a
nastavit polozku NET DIR.
PaS.
-----Original Message-----
From: Plisek Jan Ing. [mailto:Plisek(zv)spse(tec)cz]
Sent: Wednesday, March 06, 2002 7:59 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Data z konference na read-only disku
Pro potreby nasich zaku udrzuji databazi prispevku z konference.
Je ale umistena na sitovem disku, ktery je pro zaky read-only,
takze pred heldanim museji zkopirovat temer 100 MB na pracovni
disk. Pokud to neudelaji, KonfView konci vyjimkou:
EDBEngineError - Cannot Access Directory, Permission Denied,
File: I:\Delphi\Konference\PDOXUSRS.LCK, File or directory does
not exist.
Mam tedy dotaz, zda lze nejak Paradoxu sdelit, aby svuj zamkovy
soubor ukladal do slozky, kterou mu zadam.
Dekuji predem za odpoved.
ing. Jan Plisek e-mail: plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE http://www.spse(tec)cz
Czech Republic
listview a vyber polozky
[*] Tom� Kup��k����J�����̿ - 6.3.2002 11:46:25
Dobry den!
Chtel bych pouzit ListView ve stylu vsIcon jako okno, ve kterem by bylo
mozne poklepanim na jednotlive ikony ukazovat ruzne formulare - proste
hlavni okno aplikace a aby nebylo nutno jit do menu, tak by ty
nejpouzivanejsi akce byly shromazdene tady. Ale nevim kterou ud�lost mam
pouzit, abych zjistil, ze nekdo poklepal na jakou ikonku.
Dik, T.Hladanie v TQuery - SURNE
[*] Tom� Kup��k����J�����̿ - 6.3.2002 11:47:27
Locate() nen� dost rychle?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Slavom�r �eke�
Sent: Wednesday, March 06, 2002 9:08 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Hladanie v TQuery - SURNE
Importance: High
Zdravim ...
ako najrychlejsie hladat urcity zaznam v TQuery ... ?
Po SELECTe mam v TQuery urcity vycuc dat, ale ja sa potrebujem
softwarovo nastavit na urcitu konkretnu polozku, ako na to ? v TTable to
bolo rychle pomocou metody FindKey(), s pouzitim indexu, ale ako je to v
TQuery ? PROSIM SURNE ...
Slavo
Probl�m s instalac� Delphi 5
[*] Martin Zeman <zeman14(zv)bonbox(tec)cz> - 6.3.2002 11:49:14
Zkus zkontrolovat, jestli se do W2k neprihlasujes
se jmenem, ve kterem je � (s z hackem, pokud se
tato zprava zmrsi) nebo � (r s hackem).
Pri instalaci napr. Sound Blaster Live5 mi to
zpusobovalo presne stejne problemy.
Martin Zeman
Usti nad Labem
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jind�ich Nikodem
Sent: Wednesday, March 06, 2002 8:10 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Probl�m s instalac� Delphi 5
Hi,
mam Delphi 5 Prof. a pokousim se je nainstalovat na uplne novy PC kde jsou
W2K Prof. Sp2.
Problem je v tom, ze instalace se ani nespusti, respektive naskoci uvodni
okno ISExpesu v pruhu to dojde az na 99% a pak se bez vyzvani ukonci, takze
ani nezacnu instalovat.
Mam PC: Pentium 4 -1600 MHz, 256 Mb RAM, ATI 32 MB, HDD 40GB
Nevite nekdo vcem je problem, zkousel jsem to na jinem PC s W2K a tam to
jde.
Predem diky
Jindrich Nikodem
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
RxRichEdit do QReportu
[*] Michal <delphin(zv)centrum.sk> - 6.3.2002 12:00:04
Zdravim !
Pouzival som z roznych dovodov RxRichEdit, problem nastal, ked som ho chcel
pouzit v QReporte.Preview, pretoze TQRichEdit ma sice ParentRichEdit, ale
ten chce TRichEdit a nie TRxRichEdit, skusal som vsetky data z RxRichEditu
stiahnut do Streamu a ten potom nacitat do nejakeho pomocneho RichEditu, ten
som potom napojil na TQRichEdit.ParentRichEdit. Nepomohlo, pretoze pomocny
RichEdit to natiahol zo streamu ako RTF format, cize mi to nezobrazovalo
korektne.... Akym sposobom mam uvedenu situaciu vyriesit, t.j. zachovat
zadavanie dat v TRxRichEdite a spravne zobrazenie (rozne farby a fonty) v
QReport.Preview(prip. tlac) ?
Dik
ListView
[*] Tom� Kup��k����J�����̿ - 6.3.2002 12:02:10
> Dobry den!
>
> Chtel bych pouzit ListView ve stylu vsIcon jako okno, ve kterem by
> bylo mozne poklepanim na jednotlive ikony ukazovat ruzne formulare -
> proste hlavni okno aplikace a aby nebylo nutno jit do menu, tak by ty
> nejpouzivanejsi akce byly shromazdene tady. Ale nevim kterou ud�lost
> mam pouzit, abych zjistil, ze nekdo poklepal na jakou ikonku.
>
> Dik, T.Data z konference na read-only disku
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.3.2002 12:13:51
> Pro potreby nasich zaku udrzuji databazi prispevku z konference.
> Je ale umistena na sitovem disku, ktery je pro zaky read-only
Accessing Paradox Tables on CD or Read-Only Drive
http://community.borland.com/article/0,1410,16333,00.html
HTH
TOndrej
Jak zjistit vlastnosti souboru?
[*] Jakub Maurer <jakub.Maurer(zv)seznam(tec)cz> - 06.3.2002 12:42:45
Jse mi o tento problem:
Mam jmeno souboru a cestu k nemu.Potrebuji zjistit vlikost,datum
vytvoreni a atribut danneho souboru...
Dekuji Jakub
Maurer
______________________________________________________________________
www.foto(tec)cz – online centrum fotografie! Tisk fotografi� online, digit�ln� fotoapar�ty
za bezkonkuren�n� ceny. P�i registraci �asopis Foto a Video zdarma.MIDAS + TSocketConnection
[*] iturcan(zv)gamo.sk - 6.3.2002 12:46:34
Ahoj,
ako precitam na strane klienta record vracany ako vystupny parameter vo
vzdialenej funkcii?
priklad:
TMojRecord = packedRecord
id:integer;
popis:string;
end;
function MojaFunkcia:TMojRecord;
nie je problem pokial pouzivam TDCOMConnection pretoze tam si viem ziskat
interface cez IDispatch.QueryInterface.
Avsak pri pouziti TSocketConnection toto nefunguje a na navratove hodnoty
sa neviem pozriet.
Preco ? resp. ako ich precitam ?
prosim o radu
dakujem
Ivan Turcan
Globalni promenne & INFORMIX
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 6.3.2002 13:33:19
Ahoj,
muzete mi prosim nekdo poradit ?
V informixu mam globalni promenne, napr.:
DATABASE xxx
GLOBALS
DEFINE
p_fp_count RECORD LIKE e_fp_count.*,
p_fv_count RECORD LIKE e_fv_count.*,
p_defucty RECORD LIKE e_cs_defucty.*,
atd.
Jak udelam neco podobneho v Delphi ?
Diky.
Vasek
Spusteni adresare vychoziho postovniho klienta
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 6.3.2002 13:52:32
Potrebuji spustit adresar vychoziho postovniho klienta nechat uzivatele
vybrat adresu a tu potom dostat do moji promene. Mam pocit ze neco podobneho
se zde kdysi probiralo ale nemuzi to najit. Nevite nekdo jak na to
Dik
Spusteni adresare vychoziho postovniho klienta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2002 14:03:45
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> Potrebuji spustit adresar vychoziho postovniho klienta nechat uzivatele
> vybrat adresu a tu potom dostat do moji promene. Mam pocit ze neco podobneho
> se zde kdysi probiralo ale nemuzi to najit. Nevite nekdo jak na to
Pokud vychozi klient podporuje Simple MAPI tak muzes pouzit JclMapi z JCL
(http://delphi-jedi.org/Jedi:CODELIBJCL). Muzes takto ziskat jen adresu a
jmeno a to i v pripade, ze adresar podporuje vice udaju. Pokud by jsi chtel
ziskat i dalsi udaje musel by jsi napsat kod pro kazdeho klienta zvlast,
napriklad pro Outlook.
uses
JclMapi;
procedure TForm1.Button1Click(Sender: TObject);
var
SimpleMapi: TJclEmail;
I: Integer;
begin
SimpleMapi := TJclEmail.Create;
try
SimpleMapi.LogOn; // neni potreba napriklad pro Outlook Express
if SimpleMapi.Address('Vyberte adresy', 3) then
// Druhy parametr urcuje jaka pole budou viditelna "To" 1, "Cc" 2, "Bcc" 3
for I := 0 to SimpleMapi.Recipients.Count - 1 do
Memo1.Lines.Add(SimpleMapi.Recipients[I].AddressAndName);
finally
SimpleMapi.Free;
end;
end;
Petr Vones
LoadUserProfile ( volani fce )
[*] Dobromil Maly <dmaly(zv)yo(tec)cz> - 6.3.2002 14:06:33
Ahoj vsem,
nevite prosim nekdo, jak spravne pouzit funkci "LoadUserProfile" ?
Vytvarim proces pod jinym* uzivatelskym uctem ( LogonUser,
ImpersonateLoggedOnUser a CreateProcessAsUser ) a potrebuji, aby tento
proces mohl cist data z HKEY_CURRENT_USER. Funkce mi vrati TRUE, ale
nacte "Default" profile a jeste ke vsemu v
\Document and Settings\ prejmenuje profil* na TEMP a po druhem volani
jej zase presune z TEMP do puvodniho*.
Doufam, ze jsem problem vysvetlil srozumitelne...
Dekuji vsem...
...Dobra
MIDAS + TSocketConnection
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 6.3.2002 14:08:27
Ahoj
Ja osobne pouzivam funkce ktere vraceji vzdy OLEVariant a dari se mi
prenaset libovolne HODNOTY jak pres DCOM, tak pres Socket. Problem je ze si
ve variantnim poli musim pamatovat pozice polozek, nebo udelat vicerozmerne
pole a v jednom policku vzdy prenaset nazev.
Jaromir Cermak
-----Original Message-----
From: iturcan(zv)gamo.sk [mailto:iturcan(zv)gamo.sk]
Ahoj,
ako precitam na strane klienta record vracany ako vystupny parameter vo
vzdialenej funkcii?
priklad:
TMojRecord = packedRecord
id:integer;
popis:string;
end;
function MojaFunkcia:TMojRecord;
nie je problem pokial pouzivam TDCOMConnection pretoze tam si viem ziskat
interface cez IDispatch.QueryInterface.
Avsak pri pouziti TSocketConnection toto nefunguje a na navratove hodnoty
sa neviem pozriet.
Preco ? resp. ako ich precitam ?
prosim o radu
dakujem
Ivan Turcan
---
Po�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
OLE - Outlook - Maily - Attachmenty
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 6.3.2002 14:35:48
Zdar a silu,
mate nekdo zkusenost s nacitanim mailu z Outlooku?
Pracuju pres Varianty s objektem MailItem:
V nactenem HTMLBody jsou obrazky volany klasicky, jako "<IMG
SRC="cid:129837662(zv)88747223-1efd">" a ulozeny v Attachments. Problem je v
tom, ze v Attachments jsou ulozeny pouze pod jmenem souboru (napr.
"blabla.jpg") a neni tam zadna property s tim jedinecnym cislem. Dokonce
maji i stejny typ, takze nedokazu rozeznat, co je obrazek v HTML a co
obrazek v priloze.
Mnohokrat dekuji za kazdou radu nebo nasmerovani.
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
MIDAS + TSocketConnection
[*] iturcan(zv)gamo.sk - 6.3.2002 14:40:51
Trocha uprav ale funguje to !
dakujem
Ivan
CERMAK
<CERMAK(zv)procom.c To: "'delphi-l(zv)clexpert(tec)cz'" <delphi-l(zv)clexpert(tec)cz>
z> cc:
Sent by: Subject: RE: MIDAS + TSocketConnection
delphi-l-owner(zv)c
lexpert(tec)cz
06.03.2002 14:08
Please respond
to delphi-l
Ahoj
Ja osobne pouzivam funkce ktere vraceji vzdy OLEVariant a dari se mi
prenaset libovolne HODNOTY jak pres DCOM, tak pres Socket. Problem je ze si
ve variantnim poli musim pamatovat pozice polozek, nebo udelat vicerozmerne
pole a v jednom policku vzdy prenaset nazev. Jaromir Cermak
-----Original Message-----
From: iturcan(zv)gamo.sk [mailto:iturcan(zv)gamo.sk]
Ahoj,
ako precitam na strane klienta record vracany ako vystupny parameter vo
vzdialenej funkcii?
priklad:
TMojRecord = packedRecord
id:integer;
popis:string;
end;
function MojaFunkcia:TMojRecord;
nie je problem pokial pouzivam TDCOMConnection pretoze tam si viem ziskat
interface cez IDispatch.QueryInterface.
Avsak pri pouziti TSocketConnection toto nefunguje a na navratove hodnoty
sa neviem pozriet.
Preco ? resp. ako ich precitam ?
prosim o radu
dakujem
Ivan Turcan
---
Po�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
Otevreny soubor
[*] Standa <Ooman(zv)centrum(tec)cz> - 6.3.2002 15:20:24
Da se nejak zjistit jestli je nejaky program spustenej. Pokud jo je mozne ho
z delphi ukoncit.Otevreny soubor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2002 15:30:39
From: "Standa" <Ooman(zv)centrum(tec)cz>
> Da se nejak zjistit jestli je nejaky program spustenej. Pokud jo je mozne ho
> z delphi ukoncit.
Je rozdil mezi souborem a bezici aplikaci (procesem). Je mozne ziskat seznam
bezicich procesu a dany proces se pokusit ukoncit. Vice najdes v JclSysInfo,
funkce RunningProcessesList, GetTasksList, GetPidFromProcessName, TerminateApp
a TerminateTask v JCL: http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
listview a vyber polozky
[*] Martin �ajbik <cajbik(zv)sct.sk> - 6.3.2002 15:55:48
Predsa standartne OnClick alebo OnDblClick. Aktualne vybrana polozka je v
ListView.Selected
Dobry den!
Chtel bych pouzit ListView ve stylu vsIcon jako okno, ve kterem by bylo
mozne poklepanim na jednotlive ikony ukazovat ruzne formulare - proste
hlavni okno aplikace a aby nebylo nutno jit do menu, tak by ty
nejpouzivanejsi akce byly shromazdene tady. Ale nevim kterou ud�lost mam
pouzit, abych zjistil, ze nekdo poklepal na jakou ikonku.
Dik, T.Globalni promenne & INFORMIX
[*] Martin �ajbik <cajbik(zv)sct.sk> - 6.3.2002 16:00:15
S informixom som v zivote nerobil takze mi nie je uplne jasne co znamena
dana syntax, ale globalne premenne alebo record-y predsa nie je problem v
Delphi vyrobit. Ak by to malo byt nieco ine tak to skus blizsie
specifikovat. Alebo to ma byt v nejakej inej databaze ?
MarCaNT (marcant(zv)sct.sk)
Ahoj,
muzete mi prosim nekdo poradit ?
V informixu mam globalni promenne, napr.:
DATABASE xxx
GLOBALS
DEFINE
p_fp_count RECORD LIKE e_fp_count.*,
p_fv_count RECORD LIKE e_fv_count.*,
p_defucty RECORD LIKE e_cs_defucty.*,
atd.
Jak udelam neco podobneho v Delphi ?
Diky.
Vasek
Vykreslovani TGraphicControl komponent v klientske
[*] Roland Turcan <rolo(zv)sedas.sk> - 6.3.2002 16:28:41
----- Original Message -----
> From: "Roland Turcan" <rolo(zv)sedas.sk>
> > ja som vlastne to iste opisal do svojho projektu ale pri spusteni tam
proste
> > nie su. Prezeral som vsetky property v deme a skontroloval som so svojim
> > nastavenim a nejde to. Je v tom nejaky hacik ?
>
> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Pokud to funguje v te demo aplikaci tak je patrne problem nekde jinde. Ten
> unit musi by soucasti projektu a kreslit musis v udalosti OnPaint
formulare.
No a ja mozem ist ocnemu, lebo som si ten unit ani nevsimol, ze tam je. Uz
to samozrejme funguje.
Dakujem.
Roland.InterBase (OT?): vykon, indexy, group by...
[*] Petr Fischer <petr.fischer(zv)praguesoft(tec)cz> - 06.3.2002 16:30:09
Zdravim vespolek,
nasledujici situace:
tabulka s 250 tisici zaznamy, 32 INTEGER poli a 4 DOUBLE PRECISION pole (ta nejsou nyni dulezita).
Pokud Interbejsce poslu select s "group by" pres vsech 32 INTEGER poli (s insertem hned do druhe tabulky se
stejnou strukturou):
insert into TAB2 (
D1,
D2,
D3,
....
D32)
select (D1, D2, ... D32) from TAB1
group by D1, D2, ... D32
trva to vsechno devet hodin (250 tisic zaznamu vubec neni hodne).
Problem je, ze nelze vytvorit index pres vsech 32 ineteger poli (key size too big). Tak nejak jsem
vysledoval,
ze pri group by dotazu Interbejska pouzije index pouze pokud zahrnuje vsechna groupovana pole. Vytvoreni
indexu na kazde INTEGER pole zvlast nepomuze - Interbejska se na ne vykasle a groupuje bez pouziti indexu
(coz
je nejspis duvod otresneho vykonu).
Tech devet hodin samozrejme netrva jen "group by" ale i insert do druhe tabulky (se stejnou strukturou),
tzn. prochazeni vysledku dotazu po "group by" - za to ale stejne muze nepouziti indexu, nebo ne?
Ma nekdo v konferenci zkusenosti s vyladenim podobne situace?
Nepomuze nastaveni nekterych parametru v ib_config (zatim mam pouze DATABASE_CACHE_PAGES=10000)?
Nejde nejak InterBasi prikazat pouziti alespon nekterych indexu, nebo ji nejak napomoci (?
Nepomuze FireBird?
Momentalne jsem nucen to sgroupovat sam mimo InterBase, ale protoze Interbejsku pouzivam dlouho a "mam ji
rad", zajimalo by me cosi blizsiho...
Win2000, InterBase 6.01
S diky a pozdravem, Petr Fischer
Komponenta Kalkulacka
[*] Petr Kuklik <Petr.Kuklik(zv)seznam(tec)cz> - 06.3.2002 16:52:04
DD,
nevite nahodou o komponente na zpusob Kalkulacky? Mela by umet vice
funkci, nez jen scitat, odcitat. Neco na zpusob kalkulacky ve windows
ve stylu vedecke.
Petr
______________________________________________________________________
Volny prodej zbyvajicich vstupenek na koncerty Prazskeho jara od 18. brezna
na obvyklych mistech, vice informaci na http://www.festival(tec)cz.InterBase (OT?): vykon, indexy, group by...
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 6.3.2002 17:20:56
Ja jsem to resil takto:
jestli potrebuji group, tak groupovat pouze pres PK, pres ostatni pole pouzit bud AVG, MIN, MAX, pokud
jsou tyto pole stejne, tak o nic nejde a clovek ziska na vykonu i nekolik tisic procent.
Jinak group by se pokud mozno vyhnout, je to hodne narocne na vypocetm zvlaste pres vice poli.
Slavek
> Problem je, ze nelze vytvorit index pres vsech 32 ineteger poli (key size too big). Tak nejak jsem
> vysledoval,
> ze pri group by dotazu Interbejska pouzije index pouze pokud zahrnuje vsechna groupovana pole. Vytvoreni
> indexu na kazde INTEGER pole zvlast nepomuze - Interbejska se na ne vykasle a groupuje bez pouziti indexu
> (coz
> je nejspis duvod otresneho vykonu).
>
> Tech devet hodin samozrejme netrva jen "group by" ale i insert do druhe tabulky (se stejnou strukturou),
> tzn. prochazeni vysledku dotazu po "group by" - za to ale stejne muze nepouziti indexu, nebo ne?
>
> Ma nekdo v konferenci zkusenosti s vyladenim podobne situace?
> Nepomuze nastaveni nekterych parametru v ib_config (zatim mam pouze DATABASE_CACHE_PAGES=10000)?
> Nejde nejak InterBasi prikazat pouziti alespon nekterych indexu, nebo ji nejak napomoci (?
> Nepomuze FireBird?
>
> Momentalne jsem nucen to sgroupovat sam mimo InterBase, ale protoze Interbejsku pouzivam dlouho a "mam ji
> rad", zajimalo by me cosi blizsiho...
>
> Win2000, InterBase 6.01
>
> S diky a pozdravem, Petr Fischer
>
>
> IBQuery se nechce provest update
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 6.3.2002 17:26:47
IBQuery.Active := False;
IBQuery.SQL.Clear;
If dxPickEditKam.ItemIndex = 0 Then
IBQuery.SQL.Add(Tam) Else
IBQuery.SQL.Add(Zpet);
IBQuery.ParamByName('IDZAJ').AsInteger := Integer(dxMRUEdit.Items.Objects
dxMRUEdit.ItemIndex]);
IBQuery.ParamByName('IDC').AsInteger := dxDBGrid1IDC.Field.AsInteger;
IBQuery.Open;
Pri prvnim pruchodu je vse OK pokud naplnim parametry jinymi udaji vraci
query praznou tabulku prestoze v ni jsou data pokud jako parametry nastavim
puvodni je zase vse korektne zobrazeno.
Co s tim?
Dik
Editace predlohy Sinea
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 6.3.2002 17:29:52
Ahoj,
testuji si tady pred zakoupenim Sineu a pri pokusu
o ulozeni predlohy mi editor zarve:
"Trying to store a string of length 88 into a field
that can only contain 50."
Ukladani a nacitam delam do blobu:
function NactiPredlohu(Sender: TSestava): Boolean;
var //ID predlohy je v Tagu Senderu
LoadedPredloha: TPredloha;
begin
Result:= False;
with qZdroje do
if (Sender.Tag <> -1) and Active and Locate('ID',Sender.Tag,[]) then
begin
LoadedPredloha:= TPredloha.Create;
LoadedPredloha.Assign(FieldByName('DEFINICE'));
Sender.Predloha:= LoadedPredloha;
LoadedPredloha.Free;
Result:= True;
end;
end;
function UlozPredlohu(Sender: TSestava): Boolean;
begin //ID predlohy je v Tagu Senderu
Result:= False;
with qZdroje do
if (Sender.Tag <> -1) and Active and Locate('ID',Sender.Tag,[]) then
begin
if not (State = dsEdit) then
Edit;
FieldByName('DEFINICE').Assign(Sender.Predloha);
ApplyUpdates;
Transaction.CommitRetaining;
Result:= True;
end;
end;
Vzhledem k tomu, ze to zkousim na demu tak si to nemuzu
odstepovat. Nesetkal se s tim prosim nekdo?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Jak zjistit vlastnosti souboru?
[*] Sommer Pavel <PSommer(zv)cpoj(tec)cz> - 6.3.2002 18:10:39
Zpusobu je nekolik, podivej se na fce:
SHGetFileInfo
GetFileInformationByHandle
GetFileAttributes
FileGetAttr (DELPHI)
GetFileSize
FileSize (DELPHI) PaS.
-----Original Message-----
From: Jakub Maurer [mailto:jakub.Maurer(zv)seznam(tec)cz]
Sent: Wednesday, March 06, 2002 12:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Jak zjistit vlastnosti souboru?
Jse mi o tento problem:
Mam jmeno souboru a cestu k nemu.Potrebuji zjistit vlikost,datum vytvoreni a atribut danneho souboru... Dekuji Jakub Maurer
______________________________________________________________________
www.foto(tec)cz – online centrum fotografie! Tisk fotografi� online, digit�ln� fotoapar�ty za bezkonkuren�n� ceny. P�i registraci �asopis Foto a Video zdarma.Chyba pri zastaveni sluzby
[*] pavel.ales(zv)popron(tec)cz - 6.3.2002 18:20:56
ahoj kluci mam tu neco,uz pouzivam unity na vytvoreni sluzby od Petera
Sawatzki
a mam tam jeden podstatny problem
pri ukoncovani z Nastaveni sluzby/STOP se mi neprovede korektne zastaveni a
hodi to tuto chybu
could not stop Moje aplikace service on Local Computer
Error 997:Overlapped Operation is in progress.
Tusim ze se mi neukoncilo vlakno a to i kdyz pouziju toto.
While WaitForOneObject([Self, StopEvent], BeepDelay)<>WAIT_OBJECT_0+1 Do
stejne nedojde k ukonceni...
Jsem bezradny pomozte miii
Ono se to totiz neda moc vysledovat...
Diky
Ales Pavel
Technical Specialist
W2000 D5
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00 Editace predlohy Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 6.3.2002 18:50:53
> From: Pavel Malinsk�
>
> testuji si tady pred zakoupenim Sineu a
> pri pokusu o ulozeni predlohy mi editor zarve:
>
> "Trying to store a string of length 88 into a field
> that can only contain 50."
Toto hlaseni urcite nepochazi z editoru predloh.> Ukladani a nacitam delam do blobu:
>
> function UlozPredlohu(Sender: TSestava): Boolean;
> begin //ID predlohy je v Tagu Senderu
> Result:= False;
> with qZdroje do
> if (Sender.Tag <> -1) and Active and Locate('ID',Sender.Tag,[]) then
> begin
> if not (State = dsEdit) then
> Edit;
> FieldByName('DEFINICE').Assign(Sender.Predloha);
> ApplyUpdates;
> Transaction.CommitRetaining;
> Result:= True;
> end;
> end;
Nejsem zadny znalec databazi, ani nevim,
do jake databaze se to snazis ukladat,
ale pokud se jedna o BLOB, nemelo by tam
byt neco na zpusob:
(FieldByName('DEFINICE') as TMemoField).Assign(Sender.Predloha);
> Vzhledem k tomu, ze to zkousim na demu tak si to nemuzu
> odstepovat. Nesetkal se s tim prosim nekdo?
V tomto pripade by melo stacit krokovani
funkce UlozPredlohu.
Vaclav Krmela
Komponenta - select-box s dvemi hodnotami na radek
[*] Adam Hauner <hauner(zv)iinfo(tec)cz> - 06.3.2002 19:36:29
Dobry den,
potreboval bych tip na komponentu, ktera by byla schopna obsluhovat
select-box (rozbalovaci menu) s dvemi udaji na radek - kazda polozka ma
hodnotu k zobrazeni a hodnotu s jedinecnym ID, ktera se nezobrazuje.
Programator se mi totiz (dle meho nazoru) vymlouva, ze nic takoveho neni
a ze musi prilepovat k hodnote pro zobrazeni i jedinecnou hodnotu, coz dle
meho nazoru prodluzuje zbytecne kod. Delphi jsem videl snad jen jako
instalacni CD, tak prosim soucit pri odpovedich 'to je elementarni
znalost'. Dik!
--
Adam Hauner
Internet Info, s.r.o., Na Strzi 5, 140 00 Praha 4
Web: http://www.iinfo(tec)cz/ | tel: 02/4144 1695 | fax: 02/4144 1697
Slunecnice(tec)cz * Lupa(tec)cz * Mesec(tec)cz * Palmserver(tec)cz
Burza(tec)cz * Hokejka(tec)cz * Vajicko(tec)cz * Stavocentrum(tec)cz
Nadtrzeni v Richedit
[*] bardon <bardon(zv)akord-soft(tec)cz> - 6.3.2002 19:44:33
Tak to asi nepujde. Leda bys vyrobil vlastni font s podtrzenim kazdeho
pismene nahore a napsal to slovo svym fontem. Preji prijemnou praci.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Fredy Crueger
ja bych potreboval jenom nad
urcitym slovem. To fakt neni zadna moznost jak udelat takovou hovadinu ?
Komponenta - select-box s dvemi hodnotami na radek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2002 19:55:20
From: "Adam Hauner" <hauner(zv)iinfo(tec)cz>
> potreboval bych tip na komponentu, ktera by byla schopna obsluhovat
> select-box (rozbalovaci menu) s dvemi udaji na radek - kazda polozka ma
> hodnotu k zobrazeni a hodnotu s jedinecnym ID, ktera se nezobrazuje.
Pokud je to jedinecne ID ciselna hodnota, ktera se vejde to 4 bytu (Integer)
tak lze pouzit vlastnost TComboBox.Items.Objects. V pripade ze ma jit o string
nebo jiny typ vetsi nez 4 byty tak uz to tak snadne neni a lze to resit bud
odvozenim nove komponenty nebo podobnym zpusobem jako tady:
http://delphi(tec)cz/soubor.asp?rok=1999&mesic=feb&den=07&soubor=dlfaaaar.htm
> Programator se mi totiz (dle meho nazoru) vymlouva, ze nic takoveho neni
> a ze musi prilepovat k hodnote pro zobrazeni i jedinecnou hodnotu, coz dle
> meho nazoru prodluzuje zbytecne kod. Delphi jsem videl snad jen jako
Nemyslim si ze by neco takoveho nejak vyrazne produzovalo (zvetsovalo) kod.
Muze to by nanejvys nejak nesikovne napsany, takze je to pomaly apod.
Petr Vones
Editace predlohy Sinea
[*] Petr Palicka aka PeC(zv) <petr.palicka(zv)atlas(tec)cz> - 6.3.2002 20:55:16
> (FieldByName('DEFINICE') as TMemoField).Assign(Sender.Predloha);
taky nevim jiste, ale melo by jit i
...FieldByName('DEFINICE').AsString:=Sender.Predloha.Lines.Text;
nebo
...FieldByName('DEFINICE').AsString:=Sender.Predloha.Text;
podle toho, z ceho je TPredloha oddedena.
dekuji PeC(zv)
StringReplace nenahradi tabulator?
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 6.3.2002 21:22:42
Ahoj,
pokud tomu rozumite, muzete mi to nekdo vysvetlit?
StringReplace (Radek, '#9', ' ', [rfReplaceAll]); nic neudela:-(
Osetril jsem si to sice uz jinde a jinak, ale stejne by me to zajimalo.
Miroslav Novosad
mirnov(zv)atlas(tec)cz
Editace predlohy Sinea
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 6.3.2002 22:55:41
> Behalf Of Vaclav Krmela
> Sent: Wednesday, March 06, 2002 6:51 PM
> >
> > "Trying to store a string of length 88 into a field
> > that can only contain 50."
>
> Toto hlaseni urcite nepochazi z editoru predloh.
Zapomnel jsem napsat, ze jde o blob IB6. Chybove
hlaseni patri IBClientError. Mam zapnutou volbu
SI_NON_BDE.
>
> Nejsem zadny znalec databazi, ani nevim,
[...]
> byt neco na zpusob:
>
> (FieldByName('DEFINICE') as TMemoField).Assign(Sender.Predloha);
Podle me netreba pretypovat, ale zkusil jsem to taky
a se stejnym vysledkem:(.
> V tomto pripade by melo stacit krokovani
> funkce UlozPredlohu.
Takze jsem se dopracoval k tomu, ze ulozeni
probehne OK, ale editor pak v sestavy.pas opet
vola EditWhere na radku 919:
Result := inherited EditWhere(ARect, APosition, AState);
A tady je ta potiz. Tzn. co jednou ulozim, to uz nikdy
v editoru neotevru. Pritom tesne pred volanim EditWhere()
(v sestavy.pas) je predloha naplnena spravnou definici.
K padu dojde v prubehu splashe "Cekejte prosim, pripravuji
editacni modul...".
Jeste jsem zkusil nastavit vychozi nastaveni Siney na
SI_NON_BDE vypnuto, ale bez ucinku.
Diky rady PM
Postupne tlacenie; nie po celych stranach
[*] Ondrej Krsko <krsko(zv)gjh.sk> - 6.3.2002 23:11:56
Ahoj,
v jednom programe na tlac listkov do kina potrebujem nieco taketo:
1. preda sa listok
2. vytlaci sa na papier (len na cast papieru)
3. ta sa odtrhne
4. na zvysok papieru sa bude dat tlacit dalej.
problem ale je, ze ked zavolam TPrinter.EndDoc, tak sa z tlacierne vysunie
cely papier (prirodzene pre vacsinu aplikacii, pre moju vsak nie).
Viete mi niekto poradit ???
moze to byt aj QReport alebo cokolvek, len nech to funguje...
(Delphi6)
S pozdravom
Ondrej Krsko
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Programovanie pre deti - Robot Karol++
http://ono.host.sk/karol
ISAPIThreadPool unit update for IIS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2002 23:16:55
Update to the ISAPIThreadPool unit originaly included with Delphi 6.0.
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17616
Petr Vones
StringReplace nenahradi tabulator?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.3.2002 23:46:42
Nezapomel jsi to priradit zpet do radku ?
Radek := StringReplace(Radek, '#9', ' ', [rfReplaceAll]);
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
6.3.2002 Miroslav Novosad:
> StringReplace (Radek, '#9', ' ', [rfReplaceAll]); nic neudela:-(Win XP a Delphi2 rychlost
[*] Josef B�ezna RNDr. <hiv(zv)foresta(tec)cz> - 7.3.2002 06:08:20
P�eji p�kn� den.
M�m tento probl�m.
Delphi 2C/S i projekty s temito Delphi prelozene pri zapnute siti nab�haji
hrozne dlouho,radove i nekolik sekund (15). Pri odpojene siti je provoz
normalni.
Programy vyuzivaji BDE. Programy bez BDE bezi opet normalne.
BDE je verzi 511
Delphi4C/S a stejne prelozene projekty pod Delphi4 bezi normalne.
Pod jinym OS to funguje normalne.
Diky za jakykoli namet reseni problemu.
---------------------------------------------------
RNDr. Josef B�ezna
email: hiv(zv)foresta(tec)cz
josef.brezna(zv)foresta(tec)cz
ICQ: 52598814
---------------------------------------------------
IBQuery se nechce provest update
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 07.3.2002 07:02:10
Ahoj,
>IBQuery.Open;
pokud delas UPDATE melo by to byt
IBQuery.ExecSQL;
to je i pro ostatni, ktere nic nevraci, jako jsou INSERT, UPDATE, DELETE, CREATE TABLE
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
StringReplace nenahradi tabulator?
[*] Pavol Griga <paly(zv)sct.sk> - 7.3.2002 07:06:34
> StringReplace (Radek, '#9', ' ', [rfReplaceAll]); nic
chyba je v apostrofoch '#9' spravne je #9
Griga
IBQuery se nechce provest update
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 7.3.2002 08:42:29
nedelam UPDATE jen update zobrazovanych dat v podstate mam tabulku mastes
detail pokud je v masteru srcoll tak se "update" provede v datech
zobrazenych v detailu. Sory jestli jsem predtim spatne definovgat dotaz.
IBQuery dela SELECT * FROM NECO (:PARAMETR)
pokud ibquery pustim znovu ale z jinym parametrem nevraci zadna data ikdyz v
databazi fizicky jsou. Pokud se vratim k puvodnimu parametru je vse OK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Blazek Jaroslav
Sent: Thursday, March 07, 2002 7:02 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: IBQuery se nechce provest update
Ahoj,
>IBQuery.Open;
pokud delas UPDATE melo by to byt
IBQuery.ExecSQL;
to je i pro ostatni, ktere nic nevraci, jako jsou INSERT, UPDATE, DELETE,
CREATE TABLE
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
StringReplace nenahradi tabulator?
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 7.3.2002 08:52:59
Urcite to ma byt bez apostrofu.
StringReplace (Radek, #9, ' ', [rfReplaceAll]);
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>> Ahoj,
>
> pokud tomu rozumite, muzete mi to nekdo vysvetlit?
>
> StringReplace (Radek, '#9', ' ', [rfReplaceAll]); nic neudela:-(
>
>
> Osetril jsem si to sice uz jinde a jinak, ale stejne by me to zajimalo.
>
> Miroslav Novosad
> mirnov(zv)atlas(tec)cz
>
>
>
> Postupne tlacenie; nie po celych stranach
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 7.3.2002 08:54:55
> problem ale je, ze ked zavolam TPrinter.EndDoc, tak sa z
> tlacierne vysunie cely papier
no, nevim jak to udelat, ale nastav delku stranky na pozadovany pocet
radku.
predpokladam, ze se jedna o jehlicku s traktorem.
dekuji PeC(zv)memo a updateSql
[*] Votava <kvotava(zv)atlas(tec)cz> - 7.3.2002 09:58:16
Zdravim vsechny, nemohu ulozit zmeny v Memo pri pouziti updateSql a zapnutem cachedUpdates. Vkladani funguje, ale Modify nikoli. Pouzivam W2k D5 Pro dBaseIV. Dekuji za kazdou radu. S pratelskym pozdravem Votava
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
jak na prevod z BMP->WMF
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 7.3.2002 10:06:38
Cau lidi,
nevedel by nekdo viz %subj? Prohrabnul jsem archiv, ale narazil jsem jen
na opacnej problem(WMF->BMP).
Predem moc dik
Pavel
jak na prevod z BMP->WMF
[*] pavel.ales(zv)popron(tec)cz - 7.3.2002 10:11:56
Pavel napsal:
--------------
nevedel by nekdo viz %subj? Prohrabnul jsem archiv, ale narazil jsem jen
na opacnej problem(WMF->BMP).
Ales (prijmenim taky Pavel) na to:
----------------------------------
NETESTOVAL JSEM!! Ale asi to bude dobre...
procedure BmpToWmf(BmpFile, WmfFile: string);
var
MetaFile: TMetaFile;
MFCanvas: TMetaFileCanvas;
BMP: TBitmap;
begin
{Create temps}
MetaFile := TMetaFile.Create;
try
BMP := TBitmap.Create;
try
BMP.LoadFromFile(BmpFile);
{Equalizing sizes}
MetaFile.Height := BMP.Height;
MetaFile.Width := BMP.Width;
{Create a canvas for the Metafile}
MFCanvas := TMetafileCanvas.Create(MetaFile, 0);
try
{Draw the BMP into the canvas}
MFCanvas.Draw(0, 0, BMP);
{Free the Canvas}
finally
MFCanvas.Free;
end;
finally
{Free the BMP}
BMP.Free;
end;
{Save the Metafile}
MetaFile.SaveToFile(WmfFile);
finally
{Free it}
MetaFile.Free;
end;
end;
end;
Ales Pavel
W2000 D5 Ent
Technical Specialist
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
LoadUserProfile ( volani fce )
[*] Dobromil Maly <dmaly(zv)yo(tec)cz> - 7.3.2002 10:39:18
DDV,
problem byl vyresen. Byl v tom, ze fce LoadUserProfile se musi volat
jeste pred funkci ImpersonateLoggedOnUser. Spraven poradi te tedy toto:
LogonUser ( hToken , ... )
// nejake ty GetProcessWindowStation, OpenWindowStation, ...
LoadUserProfile
ImpersonateLoggedOnUser
CreateProcesAsUser
RevertToSelf
UnloadUserProfile
CloseHandle ( hToken )
Dobra.
> -----Original Message-----
> Behalf Of Dobromil Maly
> Sent: Wednesday, March 06, 2002 14:07
> To: delphi-l(zv)clexpert(tec)cz
>
> nevite prosim nekdo, jak spravne pouzit funkci "LoadUserProfile" ?
>
> Vytvarim proces pod jinym* uzivatelskym uctem ( LogonUser,
> ImpersonateLoggedOnUser a CreateProcessAsUser ) a potrebuji, aby tento
> proces mohl cist data z HKEY_CURRENT_USER. Funkce mi vrati TRUE, ale
> nacte "Default" profile a jeste ke vsemu v
> \Document and Settings\ prejmenuje profil* na TEMP a po druhem volani
> jej zase presune z TEMP do puvodniho*.
>
> Doufam, ze jsem problem vysvetlil srozumitelne...
> Existuje zvukovka ?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 07.3.2002 11:28:57
Dne 6.�b�ezen�2001, <delphi-l(zv)clexpert(tec)cz> napsal:
> Jak zjistim, zdali mohu pouzit zvukovou kartu (kdyz je zakazana, tak at
> neexistuje). Jejlepe API. Dik.
>
Neslo by pouzit funkci mixeru (tusim GetMixerCount)?
Roman
______________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
dynamicke array of record - rychlost hledani
[*] Milan ��ek - 7.3.2002 11:35:50
ahoj,
mam Entry: array of record Name: string[20]; Value: string[50]; end;
potrebuju do tohoto pole pridavat,mazat,prepisovat a vyhledavat jednotlive
polozky. Prioritou je rychlost hledani, radove jde o tisice polozek. U
vetsiho poctu polozek zacinam mit problemy s rychlosti. Existuje nejaky
lepsi zpusob na rychlejsi vyhledani potrebneho zaznamu? Dosahnu vyssi
rychlosti pouzitim ukazatelu (jak)? Vim, ze toto reseni je jedno z tech
horsich, zneni ulohy mam ale jasne zadane, takze nemuzu jinak (jake by byli
lepsi varianty, bez pouziti komponent 3tich stran? Zatim me napadl TList).
Diky za pomoc.
procedure TMyObject.AddEntry(Name,Value: string);
begin
SetLength(Entry,Length(Entry)+1);
Entry[High(Entry)].Name:=Name;
Entry[High(Entry)].Value:=Value;
end;
function TMyObject.DeleteEntry(Pos: integer): boolean;
begin
Result:=True;
if (Pos>=Low(Entry)) and (Pos<=High(Entry)) then
begin
Entry[Pos]:=Entry[High(Entry)];
SetLength(Entry,Length(Entry)-1);
end else Result:=False;
end;
function TMyObject.GetPosByName(Name: string): integer;
var Counter: integer;
begin
Result:=-1;
for Counter:=Low(Entry) to High(Entry) do
if Entry[Counter].Name=Name then Result:=Counter;
end;
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
dynamicke array of record - rychlost hledani
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 7.3.2002 11:49:19
1) udrzovat seznam setrideny a pouzit binarni vyhledavani
2) udelat si vice seznamu a zarazovat do nich dle prvnich pismen a
vyhledavat v nich (prohledava se mene zaznamu)dynamicke array of record - rychlost hledani
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2002 11:49:53
zasadniho zrychleni docilis jen zmenou vyhledavaciho algoritmu (tedy
nahradit sekvencni hledani necim lepsim). Prevod na ukazatele zrejme
diky optimalizaci prekladace neprinese zadnou (vyznamnou urcite ne)
zmenu k lepsimu (ani k horsimu)
Tvoje funkce naprosto zbytecne projizdi vsechny polozky pole (pri
shode muzes cyklus ukoncit)
> function TMyObject.GetPosByName(Name: string): integer;
> var Counter: integer;
> begin
> Result:=-1;
> for Counter:=Low(Entry) to High(Entry) do
> if Entry[Counter].Name=Name then
begin
Result:=Counter;
Break;
end;
> end;
D. Toman
dynamicke array of record - rychlost hledani
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 7.3.2002 11:59:54
> zasadniho zrychleni docilis jen zmenou vyhledavaciho algoritmu (tedy
> nahradit sekvencni hledani necim lepsim). Prevod na ukazatele zrejme
> diky optimalizaci prekladace neprinese zadnou (vyznamnou urcite ne)
> zmenu k lepsimu (ani k horsimu)
>
> Tvoje funkce naprosto zbytecne projizdi vsechny polozky pole (pri
> shode muzes cyklus ukoncit)
>
> > function TMyObject.GetPosByName(Name: string): integer;
> > var Counter: integer;
> > begin
> > Result:=-1;
> > for Counter:=Low(Entry) to High(Entry) do
> > if Entry[Counter].Name=Name then
> begin
> Result:=Counter;
> Break;
> end;
> > end;
>
> D. Toman
Ahoj,
jeste bych doplnil - u rozsahlych poli spotrebuje pri vkladani a mazani
spoustu casu realokace pameti - je lepsi drzet si nekde kapacitu pole (a
samozrejme pocet zaznamu) a pri prekroceni zvednout kapacitu o vice nez
jeden zaznam.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Jak zjistim, ktery Edit mel focus?
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 07.3.2002 12:37:30
Ahoj,
potreboval bych pomoct s timhle:
mam nekolik editacnich poli, ktery maji nastaveny PopupMenu, pomoci kteryho
muzu provest akci. Kdyz akce skonci, chtel bych se vratit na ten Edit,
ktery jsem opustil.
Dodavam, ze se to nestane automaticky, protoze v te akci menim focusy na
jine objekty.
Muzu tedy zjistit v procedure napr:
procedure TForm3.Hledej1Click(Sender: TObject);
begin
end;
z kteryho editu jsem prisel? Zkousel jsem pouzit (sender as TEdit), ale to hazi
vyjimku.
Diky J.
______________________________________________________________________
S Oskarem je nyni seznameni tak rychle a snadne jako odeslani jedne SMS-ky.
http://ad2.seznam(tec)cz/redir.cgi?instance=21010%26url=http://www.oskarmobil(tec)cz/cz/products/seznamka_index.html
Jak zjistim, ktery Edit mel focus?
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 7.3.2002 12:55:56
Udelej to jednoduse .... kazdemu Editu dej jiny Tag (treba od cisla 10).
Takze prvni edit bude mit Tag 10 druhy 11 atd. Pro vsechny Edity vytvor
jednotnou proceduru OnEnter a ten jejich Tag si uloz (pomoci (Sender as
TEdit).Tag) treba do promenne GlobalTag. Potom si jen najdes komponentu s
ulozenum tagem. Viz
for a := 0 to ComponentCount - 1 do begin
if Components[a].ClassName = 'TEdit' then
if (Components[a] as TEdit).Tag = GlobalTag then begin
(Components[a] as TEdit).SetFocus;
Break;
end;
end;
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
Ahoj,
potreboval bych pomoct s timhle:
mam nekolik editacnich poli, ktery maji nastaveny PopupMenu, pomoci kteryho
muzu provest akci. Kdyz akce skonci, chtel bych se vratit na ten Edit,
ktery jsem opustil.
Dodavam, ze se to nestane automaticky, protoze v te akci menim focusy na
jine objekty.
Muzu tedy zjistit v procedure napr:
procedure TForm3.Hledej1Click(Sender: TObject);
begin
end;
z kteryho editu jsem prisel? Zkousel jsem pouzit (sender as TEdit), ale to
hazi
vyjimku.
Diky J.
Zakladni vec
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 7.3.2002 13:15:57
Ahoj,
mam takovou zakladni vec, ale jsem z ni out.
Na formulari mam dve tlacitka a ja bych chtel mit spolecnou procedurku,
ktera mi, kdyz stiknu tlacitko, vypsala jeho jmeno.
Muzete mi prosim nekdo poradit ?
Vasek
Jak zjistim, ktery Edit mel focus?
[*] Sommer Pavel <PSommer(zv)cpoj(tec)cz> - 7.3.2002 13:25:41
Udelej si ve Form v sekci public promennou typu TWinControl (napr: aControl: TWinControl),
na OnPopup toho PopupMenu dej aControl:= Self.ActiveControl, a na click jednotlivych MenuItem po provedeni
vsech svych akci dej aControl.SetFocus.
PaS.
-----Original Message-----
From: Ing. Ji�� SOKOL [mailto:JS-delphi(zv)seznam(tec)cz]
Sent: Thursday, March 07, 2002 12:38 PM
To: dotaz-delp
Subject: Jak zjistim, ktery Edit mel focus?
Ahoj,
potreboval bych pomoct s timhle:
mam nekolik editacnich poli, ktery maji nastaveny PopupMenu, pomoci kteryho
muzu provest akci. Kdyz akce skonci, chtel bych se vratit na ten Edit,
ktery jsem opustil.
Dodavam, ze se to nestane automaticky, protoze v te akci menim focusy na
jine objekty.
Muzu tedy zjistit v procedure napr:
procedure TForm3.Hledej1Click(Sender: TObject);
begin
end;
z kteryho editu jsem prisel? Zkousel jsem pouzit (sender as TEdit), ale to hazi
vyjimku.
Diky J.
______________________________________________________________________
S Oskarem je nyni seznameni tak rychle a snadne jako odeslani jedne SMS-ky. http://ad2.seznam(tec)cz/redir.cgi?instance=21010%26url=http://www.oskarmobil(tec)cz/cz/products/seznamka_index.html
protokol mailto a prilohy
[*] Sommer Pavel <PSommer(zv)cpoj(tec)cz> - 7.3.2002 13:31:10
Zdravim,
nevite nekdo jak nastavit v syntaxi protokolu "mailto" prilohu ? Napr:
"mailto:xxx(zv)xyz(tec)cz?subject=Predmet&attach=c:\autoexec.bat". Nemohu nikde
najit parametr pro prilohu.
Dik
PaS.Jak dostanu data ze souboru *.MB po padu pociatce?
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 07.3.2002 13:43:43
Ahojki,
stala se mi nemila vec. Nekde v programu doslo k chybe, ktera zpusobila,
ze se prestalo automaticky ukladat.
Pak nam vypli proud a je to vsechno v haji!!!
Jediny, co mi zustalo jsou soubory:
Del215.DB
Del215.MB
Daji se z techto souboru nejak vytahnout ty data???
Pouzivam tabulku typu PARADOX 7.0 s pouzitim prim.indexu a autoincrementu.
Pomozte, prosim.
Dekuji
Jirka
______________________________________________________________________
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
alokace pameti pro record
[*] Petr Kuklik <Petr.Kuklik(zv)seznam(tec)cz> - 07.3.2002 14:05:39
DD,
potreboval bych poradit s vyberem funkce pro alokaci. Mam nejaky
record
TRec = record
...
end;
pTRec = ^TRec;
a nejakou promennou A : pTRec;
Ktera funkce pro alokaci pameti je lepsi?
new(A) nebo GetMem(A, sizeof(TRec)).
Existuje i jina?
A posledni otazka. Lze priradit
A^ := B, kde B je TRec?
Diky
Petr
______________________________________________________________________
Volny prodej zbyvajicich vstupenek na koncerty Prazskeho jara od 18. brezna
na obvyklych mistech, vice informaci na http://www.festival(tec)cz.OT: Editace predlohy Sinea - omluva autorum
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 7.3.2002 14:21:58
Vazeni kolegove,
problem se Sineou byl na ME strane. Na druhem konci aplikace
v DLL mi bezi vlakno, ktere selhalo bohuzel vzdy pri editaci predlohy
a chyba se projevovala pri praci prave se Sineou a tvarila se, ze
pochazi z editoru predloh. Po tom co jsem problem v MEM kodu opravil
Sinea chodi take.
Po nekolika soukromych mailech s Vaclavem Krmelou kde se
mi snazil pomoci jsem byl po zaverecnem mailu, kde jsem ho
informoval o chybe na ME strane, upozornen na to ze:
<CITACE>
Neznaly pozorovatel totiz z vasich prispevku musel nabyt dojmu,
ze generator tiskovych sestav Sinea je pekne nefunkcni paskvil,
ktery:
- neumi ulozit editovanou predlohu
- kdyz uz predlohu ulozi, tak ji stejne nenacte zpatky
</CITACE>
Dale pak ocekaval zaslat informaci o chybe na ME strane
do konference z vyse uvedenych duvodu.
Timto se autorum OMLOUVAM jestlize me dotazy pochopili jako
oznaceni generatoru Sinea za 'pekne nefunkcni paskvil', protoze
tomu tak rozhodne NENI!
Omluva take vsem ostatnim, kteri meli stejny dojem.
S pozdravem a jeste jednou omluvou Pavel Malinsky
Nova verzia ODBCe
[*] Lubo Fule <fule(zv)ekosoft.sk> - 7.3.2002 14:34:40
Zdravim, je na svete nova verzia ODBCe
(http://www.ekosoft.sk/~fule/ODBCe.zip). Su tam odstranene problemy
suvisiace s pristupom na datumove polia cez Midas.
L.
Zakladni vec
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 7.3.2002 14:37:48
>Na formulari mam dve tlacitka a ja bych chtel mit spolecnou procedurku,
>ktera mi, kdyz stiknu tlacitko, vypsala jeho jmeno.
do on click das:
with Sender as TButton do
ShowMessage(Name);
Snad Ti to pomuze ...
S pozdravem Jirka K.
Zakladni vec
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 7.3.2002 14:37:54
Prirad proceduru obidvom tlacidlam a v premennej retazec budes mat Caption
prave stlaceneho tlacidla
procedure TfrmMain.ButtonClick(Sender: TObject);
var retazec: string;
begin
retazec:= TButton(Sender).Caption; //miesto Caption mozes dat Name a
mas jeho meno
end;
Vlado
>
> mam takovou zakladni vec, ale jsem z ni out.
> Na formulari mam dve tlacitka a ja bych chtel mit spolecnou procedurku,
> ktera mi, kdyz stiknu tlacitko, vypsala jeho jmeno.
> Muzete mi prosim nekdo poradit ?
>
> Vasek
>Zakladni vec
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 7.3.2002 14:40:22
> mam takovou zakladni vec, ale jsem z ni out.
> Na formulari mam dve tlacitka a ja bych chtel mit spolecnou
> procedurku,
> ktera mi, kdyz stiknu tlacitko, vypsala jeho jmeno.
> Muzete mi prosim nekdo poradit ?
procedure TForm1.ButtonClick(Sender: TButton);
begin
with Sender as TButton do
ShowMessage('You have clicked button ' + Name);
end;
Obom tlacitkam musis samozrejme v Object Inspectore priradit tento OnClick
event handler.
HTH
TOndrej
Multithread a globalne premenne
[*] Lubo Fule <fule(zv)ekosoft.sk> - 7.3.2002 15:08:26
Zdravim, nie je mi celkom jasne, ako sa chovaju globalne premenne v pripade,
ze ten isty unit sa pouziva vo viacerych threadoch.
Priklad:
var premenna: integer;
procedure rozhodni;
begin
if premenna = 1 then ...
else ...
end;
procedure robnieco;
begin
premenna := 1
try
krok 1...
rozhodni;
krok n...
finally
premenna := 0;
end;
end;
V pripade, ze procedura robnieco je volana z dvoch threadov v jednej
aplikacii, moze sa stat, ze pocas behu krok 1 - krok n zmeni nastavenie
globalnej premennej druhy thread? Samozrejme za predpokladu, ze pocas behu
krok 1 - krok n sa nespusti ProcessMessages ani nic podobne, co by dovolilo
prerusenie behu. Inymi slovami, kedy sa dostane druhy thread k slovu, vtedy,
ked je "klud", alebo thready nejak prerusuje OS? Ked je preemptivny
multitasking, je aj preemptivny multiprocessing (teda ridi to OS, alebo si
to musia riadit jednotlive thready)? Asi davam dost stupidne otazky, ale v
tejto oblasti niesom celkom doma.
Vdaka za odpovede.
L.
OT:Jake fce obsahuje DLL
[*] Radek Kozubik <kozubik(zv)camo(tec)cz> - 7.3.2002 15:23:47
Zdravim,
mam mozna priblbly dotaz - je mozne ze souboru DLL zjistit nejakym zpusobem
jake obsahuje funkce a pripadne i jejich vstupni parametry?
Diky za jakoukoliv odpoved.
Dodatek k Delphi 6 UPD#2
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 7.3.2002 15:31:55
Petr Vones dne 4 Mar 2002 v 22:22:
> > problem s tim, ze uzivatel muze klavesovymi zkratkami ovladat MDI
> > okna v dobe, kdy je zobrazen modalni dialog, mi pripada celkem
> > zavazny... Poradite prosim nekdo, jak jej odstranit v aplikaci,
> > ktera pouziva balicky? (D6 Pro, SP2; balicku se vzdat nechci).
>
> Melo by to jit takto:
> http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17605
Ahoj,
dekuju, problem to opravdu resi, jenom pak zase nejdou modalni dialogy zavrit pres Esc a nefunguje
v nich Ctrl+Tab na prepinani stranek. Chvili jsem s tim laboroval, mozna by to mohlo jit upravit
takhle:
type tMyAppl=class(tApplication)
end;
{ TFixApplicationEvents }
procedure TFixApplicationEvents.ApplicationEventsMessage(var Msg: TMsg; var Handled: Boolean);
begin
with tMyAppl(Application) do begin
if Assigned(MainForm) and (MainForm.FormStyle = fsMDIForm) and
Assigned(Screen.ActiveForm) and (Screen.ActiveForm.FormStyle <> fsMdiChild) then begin
// prevent to call buggy TApplication.IsMDIMsg method, process the message here
if IsKeyMsg(Msg) then Handled:=true // needed for Ctrl+Tab end Escape to work in modal dialogs
else begin
TranslateMessage(Msg);
DispatchMessage(Msg);
Handled := True;
end;
end;
end;
end;
Protoze internim vecem ve VCL nerozumim, spis doufam, ze ten muj zasah nezpusobi vic skody nez
uzitku...
Karel Rys
Dodatek k Delphi 6 UPD#2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2002 15:44:27
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> dekuju, problem to opravdu resi, jenom pak zase nejdou modalni dialogy
Asi mas tu prvni verzi, dalsi se mi tam podarilo uploadovat az druhy den,
takze si to stahni znovu.
Petr Vones
OT:Jake fce obsahuje DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2002 15:47:31
From: "Radek Kozubik" <kozubik(zv)camo(tec)cz>
> mam mozna priblbly dotaz - je mozne ze souboru DLL zjistit nejakym zpusobem
> jake obsahuje funkce a pripadne i jejich vstupni parametry?
Muzes vypsat pouze jmena funkci, parametry musis zjistit z dokumentace. K
vypsani nazvu muzes pouzit utilitu TDUMP (starsi verze nekdy delaji chyby)
nebo v Delphi pomoci funkce PeExportedFunctions v unitu JclPeImage v JCL:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
OT: Uzivatel vo Win2000
[*] Roland Turcan <rolo(zv)sedas.sk> - 7.3.2002 16:56:03
Ahojte.
Ako vytvorim uzivatela vo Windows2000 Pro, ktory sa po sieti moze prihlasit
a ma nejake pristupove prava na danej masine ale ak si za nu sadne nemoze sa
prihlasit.
Dakujem.
Roland.Multithread a globalne premenne
[*] Martin �ajbik <cajbik(zv)sct.sk> - 7.3.2002 17:04:38
Samozrejme, ze sa tie dva thready budu vzajomne ovplyvnovat, menit a spravat
sa podla tej istej premennej, co by v danom pripade asi nebolo celkom ono.
Beh threadov je nezavisly, i ked je samozrejme mozne zabezpecit ich vzajomnu
synchronizaciu. Na zabezpecenie pristupu k globalnym datam z viacerych
threadov sa mozu pouzit semafory a kriticke sekcie. Ako zakladna informacia
to snad staci.
MarCaNT (marcant(zv)sct.sk)> Zdravim, nie je mi celkom jasne, ako sa chovaju globalne premenne v
pripade,
> ze ten isty unit sa pouziva vo viacerych threadoch.
>
> Priklad:
>
> var premenna: integer;
>
> procedure rozhodni;
> begin
> if premenna = 1 then ...
> else ...
> end;
>
> procedure robnieco;
> begin
> premenna := 1
> try
> krok 1...
> rozhodni;
> krok n...
> finally
> premenna := 0;
> end;
> end;
>
> V pripade, ze procedura robnieco je volana z dvoch threadov v jednej
> aplikacii, moze sa stat, ze pocas behu krok 1 - krok n zmeni nastavenie
> globalnej premennej druhy thread? Samozrejme za predpokladu, ze pocas behu
> krok 1 - krok n sa nespusti ProcessMessages ani nic podobne, co by
dovolilo
> prerusenie behu. Inymi slovami, kedy sa dostane druhy thread k slovu,
vtedy,
> ked je "klud", alebo thready nejak prerusuje OS? Ked je preemptivny
> multitasking, je aj preemptivny multiprocessing (teda ridi to OS, alebo si
> to musia riadit jednotlive thready)? Asi davam dost stupidne otazky, ale v
> tejto oblasti niesom celkom doma.
>
> Vdaka za odpovede.
> L.
>
>Uzivatel vo Win2000
[*] Martin �ajbik <cajbik(zv)sct.sk> - 7.3.2002 17:10:11
V anglickej verzii je to v Administrative Tools / Local Security Policy /
Local Policies / User Right Assignment polozka Log On Locally.
> Ahojte.
>
> Ako vytvorim uzivatela vo Windows2000 Pro, ktory sa po sieti moze
prihlasit
> a ma nejake pristupove prava na danej masine ale ak si za nu sadne nemoze
sa
> prihlasit.
>
> Dakujem.
>
> Roland.
>
>ako zobrazit RxRichEdit v QReporte?
[*] Michal <delphin(zv)centrum.sk> - 7.3.2002 18:00:52
Zdravim !
..vcera nikto nezareagoval, tak skusim este raz, pretoze sa mi este stale
nepodarilo vyriesit problem..
Pouzival som z roznych dovodov RxRichEdit, problem nastal, ked som ho chcel
pouzit v QReporte.Preview, pretoze TQRichEdit ma sice ParentRichEdit, ale
ten chce TRichEdit a nie TRxRichEdit, skusal som vsetky data z RxRichEditu
stiahnut do Streamu a ten potom nacitat do nejakeho pomocneho RichEditu, ten
som potom napojil na TQRichEdit.ParentRichEdit. Nepomohlo, pretoze pomocny
RichEdit to natiahol zo streamu ako RTF format, cize mi to nezobrazovalo
korektne.... Akym sposobom mam uvedenu situaciu vyriesit, t.j. zachovat
zadavanie dat v TRxRichEdite a spravne zobrazenie (rozne farby a fonty) v
QReport.Preview(prip. tlac) ?
Dik
Uzivatel vo Win2000
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 7.3.2002 18:12:52
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Ako vytvorim uzivatela vo Windows2000 Pro, ktory sa po sieti moze prihlasit
> a ma nejake pristupove prava na danej masine ale ak si za nu sadne nemoze sa
> prihlasit.
Control Panel
-> Administrative Tools
-> Local Security Policy
-> Local Policies
-> User Rights Assignment
jsou tam prava:
- Access this computer from network
- Deny logon locally
Martin Schayna
alokace pameti pro record
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2002 19:53:24
From: "Petr Kuklik" <Petr.Kuklik(zv)seznam(tec)cz>
> Ktera funkce pro alokaci pameti je lepsi?
> new(A) nebo GetMem(A, sizeof(TRec)).
New je jednodusi a typesafe.
> A posledni otazka. Lze priradit
> A^ := B, kde B je TRec?
Lze.
Petr Vones
protokol mailto a prilohy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2002 19:54:00
From: "Sommer Pavel" <PSommer(zv)cpoj(tec)cz>
> nevite nekdo jak nastavit v syntaxi protokolu "mailto" prilohu ? Napr:
Pokud vim tak v mailto prilohy predavat nelze.
Petr Vones
Kylix a seriove porty
[*] Jirka Virt <virt(zv)volny(tec)cz> - 7.3.2002 19:55:16
Ahoj,
tak jsem si to stahnul a zkusil.
Zkousel jsem otevrit porty pres minicom a tam mi vse chodi O.K.(zrejme pres
" /dev/modem"),
ale v Kylixu nejen ze neotevru /dev/ttySx , ale ani zmineny /dev/modem ??
Stale mi to hlasi z RaiseError chybu 13.
Nevis co delam spatne.
Diky
Jirka Virt
email: virt(zv)volny(tec)cz
PS: setserial funguje pouze u root-a
----- Original Message -----
From: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 06, 2002 7:43 AM
Subject: Re: Kylix a seriove porty
> Cirou nahodou delal. ;-)
>
> Vlez na moji stranku a stahni si muj SynaSer. To je knihovna s jednim
> objektem, ktery zapouzdruje obsluhu seriovych portu. SynaSer je jak
> pro Delphi, tak i pro Kylix, tedy ten objekt ti pokytuje stejne
> rozhrani pod Linuxem i pod Windows, takze muzes vesele psat sve
> programy a pri portaci na druhou platormu se o rozdily nestarat.
>
> > Ahoj,
> > nedelal jste nedko pristupy na seriove porty v Kylixu.
> >
> > Vim, ze zarizeni je /dev/ttySx, ale nedari se mi nijak otevrit pro
cteni a
> > zapis.
> >
> >
> > v C na to pristupuji handle = open(TTY,DeviceName)
> >
> >
> > Nevite jak na to????
> >
> > Predem moc diky za jakykoliv namet
> >
> > Jirka Virt
> > email: virt(zv)volny(tec)cz
> >
>
>
> -- Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
>
>Jak dostanu data ze souboru *.MB po padu pociatce?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2002 19:56:56
From: "Ing. Ji�� SOKOL" <JS-delphi(zv)seznam(tec)cz>
> Pak nam vypli proud a je to vsechno v haji!!!
> Jediny, co mi zustalo jsou soubory:
> Del215.DB
> Del215.MB
Tohle vypada na nejake cache updates z BDE nebo tak.
> Daji se z techto souboru nejak vytahnout ty data???
Pochybuji. Resenim je koupit UPSku (stoji par tisic), prejit na SQL server a
pravidelne zalohovat (treba na CDRW)
Petr Vones
Custom Hint a metoda Paint
[*] Milan ��ek - 7.3.2002 20:12:46
Ahoj,
pokousim se o uzivatelske vykresleni vsech hintu me aplikace. Vysledek by
mel byt takovy, ze se pred hintem zobrazi maly obrazek (14x17) a teprve za
nim patricny text. O neco jsem se jiz pokusil, mam ale problem s tim, ze
posunuty text (o sirku obrazku) se mi nevejde do daneho obdelniku. At jsem
zkousel cokoli, nepodarilo se mi tuto oblast rozsirit.
Jeste bych mel pad upresnujicich dotazu:
1) Jak poznam, ze se hint zobrazil: pod prvkem,nad prvkem,vlevo,vpravo? Nebo
jak ho donutim, aby se tak choval - napr. podle polohy cursoru.
2) Da se timto zpusobem rovnez ovlivnit zobrazeni hintu na TrayIkone?
3) Jakym zpusobem se da ovlivnit ohraniceni oblasti hintu? Potreboval bych
cerny okraj (1px), ne vsak stinovany!
Muj dosavadni pokus vypada nejak takto:
procedure TMyHint.Paint;
var R: TRect;
begin
R:=ClientRect;
Canvas.Brush.Color:=$00FFFFFF;
FillRect(Canvas.Handle,R,Canvas.Brush.Handle);
MainForm.IL_Hint.Draw(Canvas,0,R.Top,0);
Inc(R.Left,18); Inc(R.Top,2);
DrawText(Canvas.Handle,PChar(Caption),-1,R,DT_LEFT or DT_NOPREFIX or
{DT_WORDBREAK or} DrawTextBiDiModeFlagsReadingOnly);
end;
Diky, za kazdou zkusenost.
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Uzivatel vo Win2000
[*] Roland Turcan <rolo(zv)sedas.sk> - 7.3.2002 20:44:04
> > Ako vytvorim uzivatela vo Windows2000 Pro, ktory sa po sieti moze
> prihlasit
> > a ma nejake pristupove prava na danej masine ale ak si za nu sadne
nemoze
> sa
> > prihlasit.
> V anglickej verzii je to v Administrative Tools / Local Security Policy /
> Local Policies / User Right Assignment polozka Log On Locally.
>
A kde je to v ceskej verzii ?
Roland.Uzivatel vo Win2000
[*] Roland Turcan <rolo(zv)sedas.sk> - 7.3.2002 20:47:24
>
> > > Ako vytvorim uzivatela vo Windows2000 Pro, ktory sa po sieti moze
> > prihlasit
> > > a ma nejake pristupove prava na danej masine ale ak si za nu sadne
> nemoze
> > sa
> > > prihlasit.
> > V anglickej verzii je to v Administrative Tools / Local Security Policy
/
> > Local Policies / User Right Assignment polozka Log On Locally.
> >
> A kde je to v ceskej verzii ?
>
> Roland.
>
Sorry, uz som to nasiel, tento tyzden uz druhy krat som prehliadol co som
nemal a prsty boli rychlejsie ako hlava.
Roland.dynamicke array of record - rychlost hledani
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 7.3.2002 21:02:29
> zasadniho zrychleni docilis jen zmenou vyhledavaciho algoritmu (tedy
> nahradit sekvencni hledani necim lepsim). Prevod na ukazatele zrejme
Ahoj,
na ten opomenuty break jsem prisem pomerne rychle hned po odeslani
prispevku. :-) Mohl by mi nekdo upresnit moznosti vyhledavacich algoritmu?
Nebo me odkazat na nejake zdroje. Diky
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
OT: Anonym vidi zdielany adresar vo Windows2000Pro
[*] Roland Turcan <rolo(zv)sedas.sk> - 7.3.2002 21:35:53
Ahojte!
Este jedna prosba. Ako nastavim adresar na zdielanie, aby ho videl aj
uzivatel, ktory nie v zozname uzivatelov danej pracovnej stanice? Nastavit
Anoymous Logon na zdielanie a zabezpecenie mi nepomohlo.
Dakujem
Roland.