Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
SINEA - Tisk Grafu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 28.2.2002 08:38:37
ahoj,
> na papire se mi vytiskne
> pouze obrys grafu, bez krivek.
hmm, a jakou barvickou jsou ty krivky?
nektere b/w tiskarny nezvladnou v tenke
care svetlejsi odstiny (treba zluta).
dekuji PeC(zv)SINEA - Tisk Grafu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 28.2.2002 08:51:45
> From: Bednar��k Dalibor
>
> Snazim se o vytisteni grafu pres SINEU.
> V Nahledu a Editaci se mi graf zobrazi tak jak ma,
> ale kdyz ho dam tisknout,
> na papire se mi vytiskne
> pouze obrys grafu, bez krivek.
> ...
> Win2000, HP Laser Jet 6L, Delphi 5
A jakou barvu maji ty krivky?
Pokud vim, tak HP Laser Jet 6L neumi
tisknout barvu ani stupne sedi.
Neni problem v tomto?
Zkus pouzit ovladac HP LaserJet 4
a pohrat si s nastavenim tisku sedi.
Jak to dopadne na jine tiskarne?
Vaclav Krmela
Zobrazenie udajov na Canvas
[*] Alexandr �tefek <alex(zv)scova.vabo(tec)cz> - 28.2.2002 08:52:00
> Hlasi to asi takuto chybu : EOutOfResorces: Not enought storage is
available to
> process this command
> My tu mame ale zakupene len Delphi 3, lebo tu sa v Delphach moc nerobi,
vsetk sa
> robi v inom programe a jazyku, len toto sa v nom neda urobit, tak sa
pozuila
> kniznica spravena v Delphi....
>
To vypada spis na problem s uvolnovanim napr. bitmap, ktere se na ten Canvas
vykresluji.
Doporucuji projit zdrojak a presvedcit se, ze se skutecne u vsech objektu
dela Free.
Jinak by nemel byt problem pouzit TPaintBox a na OnPaint navesit
vykreslovani.
Co se tyce scrollbaru a pod. lze pri vykreslovani pouzivat napr DeltaX a
DeltaY
(MoveTo(px + DeltaX, py + DeltaY)) a prip. vhodnou zmenou DeltaX a DeltaY
se posune vse nakreslene. Pokud by se melo pracovat i se zvetsenim, rotaci a
pod., bylo by to o neco slozitejsi. Za jistych okolnosti lze pouzit
SetMapWorldTransform
(nebo jak se to jmenuje) a podobne funkce API (aplikovat na Canvas.Handle).
Alexandr STEFEK
SINEA - Tisk Grafu
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 28.2.2002 09:05:31
No bude to asi tou barvou. Krivky jsou ruznobarevne.> A jakou barvu maji ty krivky?
> Pokud vim, tak HP Laser Jet 6L neumi
> tisknout barvu ani stupne sedi.
> Neni problem v tomto?
MAPIAddress - pro p. Petra Vonese
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 28.2.2002 09:09:12
Diky za radu JCL je super ale jeste jeden problemek :o)
Kdyz si vyberu Recipients[I]... tak tam je jen Name a Address ale ja bych
potreboval vedet i telefony. Jde to nejak udelat?
Robert Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Sent: Thursday, February 28, 2002 2:24 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: MAPIAddress
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
> nemate nekdo zkusenosti s funkci MAPIAddress?
Ahoj,
muzes pouzit JclMapi z JCL (http://delphi-jedi.org/Jedi:CODELIBJCL)
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
---
P��choz� 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
---
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
OT: Cas v tabulce
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.2.2002 09:20:43
From: "Erik Salaj" <winsoft(zv)stonline.sk>
> ide o to, ze pokial stlpik ma povedzme sirku 10cm, tak nie je jedno,
> ci ten stlpik patri mne alebo susedovi. Pretoze ak patri mne, tak
> mam o tych 10cm dlhsi plot ako ked ten stlpik patri susedovi ;-).
Je, protoze stejne jako u casu, kdy ho rozlisujeme napr. na sekundy
apod.
tak u primeru s plotem tomu odpovida delka plotu vyjadrena v poctech
jeho dilu. Delka v cm je na tomto stupni abstrakce/rozliseni
irelevantni.> Matematicky aparat mi umoznuje uvazovat lubovolnu i nekonecne
> malu sirku stlpika a ani v takom pripade to na podstate veci nic
> nemeni (aj ked dlzka plota v takom pripade bude rovnaka,
> so stlpikom aj bez stlpika).
IMHO tohle uz neni ani matematicky purismus, ale rigidita ;-)
To, ze si oznacim stejnolehle body na casove ose soucasne jako
/D+1,00:00/ a jako /D,24:00/ neni v podstate nic jineho, nez prevod na
stejne jednotky, abych mohl odecitat dva casove udaje od sebe, stejne
jako kdyz chci odecist napr. 1m - 1cm, tak to musim nejprve prevest
bud na 100cm-1cm nebo na 1m-0.01m nebo na jinou jednotku.
A timto dvojim oznacenim se nic nezmeni na vlastnim fyzikalnim jevu
stejne jako se nic nezmeni na delce plotu bez ohledu na to, komu patri
sloupky nebo o kom si to ale.spon myslim....
Bye, pf
Export TMetafile
[*] <mkotaska(zv)atlas(tec)cz> - 28.2.2002 09:27:12
Ahoj,
prosim o radu ,jakym zpusobem lze provest export obrazku WMF ulozenem v TMetaFile do obrazku JPG.
Dekuji.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
Uzamknutie zaznamu SQL
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 28.2.2002 09:56:53
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele Roman Macura
> P�edm�t: Re: Uzamknutie zaznamu SQL
> Ten, kdo nechape potrebu zamykani zaznamu (at uz ve flat-file
> nebo SQL nebo
> objektove databazi),
> asi nikdy nedelal projekt do praxe, protoze jinak by vedel,
> ze jakehokoliv
> uzivatele mnohem mene stve to,
> ze se nemuze momentalne k zaznamu dostat, nez to ze zaznam
> upravuje a po
> pokusu o ulozeni mu to
> zahlasi ze to nejde, protoze to pred nim zmenil nekdo jiny
> nebo musi resit
> nejake konflikty, k nimz napsat
> komfortni interface je velmi problematicke (jak uz tady nekdo
> psal). Druhym
Ahoj,
s timto tvrzenim nelze obecne souhlasit. Jsou aplikace, kde se preferuje
rychla dostupnost, a tam je pouziti persistentnich zamku nestastne reseni.
Priklad:
kontinualne plnena FIFO fronta vstupnich pozadavku realizovana tabulkou na
SQL serveru, zpracovani vstupnich pozadavku se deje v definovanem case
(vstupni pozadavek musi byt zpracovan do 2 hodin po prijeti). Pozadavky se
zpracovavaji paralelne, po zpracovani je pozadavek vyrazen z fronty. Pouziti
persistentnich zamku muze pri chybe obsluhy nebo havarii klientske stanice
zpusobit opozdene zpracovani nebo nedejboze ztratu pozadavku, coz je
nezadouci.
Netvrdim, ze pouziti zamku je nevhodne (koneckoncu i tento pripad jsem resil
specialnim typem zamku - ovsem vlastnim), ale jejich pouziti je potreba
peclive zvazit s ohledem na pozadovane vlastnosti aplikace.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Uzamknutie zaznamu SQL
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 28.2.2002 10:06:15
Bezpecnejsi je misto casu pouzit verzovani, v trigru proste inkrementovat
po kazdem update.
Jeste k Read Commited, tak toto se hodi pouze pro select.
Pro editaci VZDY pouzivat SNAPSHOT (nekdy je to vhodne i pro select),
jelikoz dvakrat po sobe polozeny dotaz v read commited NEMUSI vratit
stejny vysledek v ramci transakce.
Typicky pripadem problemu s read commited je tiskova sestava,
kde budete tisknout seznam vsech a pak si pocet zjistite dotazem
pres count.
a on nekdo behem tisku par zaznamu smaze a povrdi.
-> kdyz nevim co pouzit, tak snapshot.
Slavek
> A nebo kdyz si data pretahnes do non-dbaware komponent tak vyhral ten
> druhy... Ja jsem to delal tak, ze jsem veskere update operace delal pres
> stored procedure a v tabulkach jsem mel date_created, date_changed. Podle
> toho (muj natazeny cas jako parametr v SP versus cas v updatovanych
> radcich) jsem si kontroloval, jestli mi to nekdo (changed_by default
> User_name()) zm�nil ci nikoli. Je pravda ze obsluha potom vzniklych
> konfliktu se musela relativne slozite vyhodnocovat...
>
> Sroub
Jak do paradoxu ulozit string s mezerou
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 28.2.2002 10:07:42
Dobry den, potrebuji do paradoxu ulozit string, ktery za sebou bude jeste
mit mezeru. Jak na to?
Diky.dll knihovny
[*] <ondra.vosta(zv)centrum(tec)cz> - 28.2.2002 10:25:37
Muzete mi nekdo poradit, jak v C++ Builderu (predpokladam, ze to
bude stejne jako v Delphi) zjistim, jake dll knihovny muj projekt
pouziva?
Dik a prosim odpovedi primo me do posty.
----------------------
Jestli ve Va�ich �il�ch koluje krev a ne voda, nem��ete jet na dovolenou s nik�m jin�m ne� s n�mi! http://user.centrum(tec)cz/redir.php?url=http://www.adventura(tec)cz.
Uzamknutie zaznamu SQL
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 28.2.2002 10:44:57
Proc je to bezpecnejsi?
Sroub
...Bezpecnejsi je misto casu pouzit verzovani, v trigru proste inkrementovat
po kazdem update.....Avi nebo Mpeg from BMP,Jpeg
[*] pavel.ales(zv)popron(tec)cz - 28.2.2002 10:57:22
Ahoj kluci nevite nekdo jak udelat Mpeg nebo Avi z BMP ci Jpeg,existuje
nejaka konponenta ci dll abych to mohl vytvaret?Neporadite mi?
Ales Pavel
Technical Specialist
D5 Ent W2000
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
Export TMetafile
[*] pavel.ales(zv)popron(tec)cz - 28.2.2002 10:59:00
na torry net si najdi typ BMP to WMF a WMF to BMP a pak to prekonvertuj na
Jpeg...
Ales Pavel
Technical Specialist
D5 Ent W2000
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
-----Original Message-----
From: mkotaska(zv)atlas(tec)cz [mailto:mkotaska(zv)atlas(tec)cz]
Sent: Thursday, February 28, 2002 9:27 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Export TMetafile
Ahoj,
prosim o radu ,jakym zpusobem lze provest export obrazku WMF ulozenem v
TMetaFile do obrazku JPG.
Dekuji.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
---
Po�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
Service - Win2k a Win98
[*] dphi_forum(zv)proces.sk - 28.2.2002 11:20:10
Zdravim ...
Mam napisanu DLL-ku v ktorej Hookujem klavesnicu a mys a zaznamenavam do
suboru.
Ked si urobim aplikaciu v ktorej tuto DLL pouzijem tak to funguje
(zaznamenava zmeny a zapisuje).
Ale ked spravim Service tak aj tam to funguje ale ten service sa po kratkom
case (10-15 sec) ukonci.
Na vytvorenie service som pouzil File -> New -> Service Application.
v create sa vykonava
procedure THookService.ServiceCreate(Sender: TObject);
begin
HInst := LoadLibrary(PChar('MyHook.dll'));
if InstallHookK and InstallHookM then
WriteLog('S')
else
Destroy;
end;
a v Destroy
procedure THookService.ServiceDestroy(Sender: TObject);
begin
if UnInstallHookK and UnInstallHookM then
WriteLog('E');
FreeLibrary(HInst);
end;
a este tam je
function InstallHookK: Boolean; stdcall; external 'MyHook.dll';
function InstallHookM: Boolean; stdcall; external 'MyHook.dll';
function UnInstallHookK: Boolean; stdcall; external 'MyHook.dll';
function UnInstallHookM: Boolean; stdcall; external 'MyHook.dll';
Nikdy predtym som service nepisal, takze asi som spravil nejaku zasadnu
chybu, Prosim poradte.
Alebo potesi aj nejake info ako pisat service.
Diky. NORO.
PS: malo by to bezat hlavne na Win98 ale mozno aj na Win2k.
- su service aj na Win98 (ak nie tak staci urobit aplikaciu a nejako ju
schovat ??? aby bezala od spustenia do vypnutia a uzivatel o nej vobec
nevedel)
Jak do paradoxu ulozit string s mezerou
[*] pavel.ales(zv)popron(tec)cz - 28.2.2002 11:26:25
Dobry den, potrebuji do paradoxu ulozit string, ktery za sebou bude jeste
mit mezeru. Jak na to?
Mohu znat duvod,nechces to osetrit programove?
Ales Pavel
Technical Specialist
D5 Ent W2000
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
TrueType v PDF
[*] Roman Toda <toda(zv)digitaldocuments.org> - 28.2.2002 11:27:32
Ahoj,
nemame teraz vela casu, takze len v kratkosti
- PDF reference je najlepsia publikacia co poznam ktora ti moze pomoct
(ziadna utecha ja viem)
- nikdy som nevkladal font priamo z aplikacie (robim plug iny a tam je ine
api)
Tvoj postup by mal byt v principe takyto
A. do resourcov stranky das (okrem ineho :-) )
/Font << /TT1 4 0 R >> .. ten nazov si zvol aky chces
- 4 0 objekt bude "hlavicka" fontu napr.
<<
/Type /Font
/Subtype /Type0
/BaseFont /DNBFCD+TimesNewRoman
/Encoding /Identity-H
/DescendantFonts [ 11 0 R ]
/ToUnicode 12 0 R
>>
/ToUnicode je dolezite implementovat kvoli slovencine/cestine
Tvoja 11 0 bude obsahovat uz presny font napr. takto
11 0 obj
<<
/Type /Font
/Subtype /CIDFontType2
/BaseFont /DNBFCD+TimesNewRoman
/FontDescriptor 9 0 R
/CIDSystemInfo<<
/Registry (Adobe)
/Ordering (Identity)
/Supplement 0
>>
/DW 1000
/W [
3 [250 333 ]
6 7 500
8 [833 777 ]
.....
No a este nesmieme zabudnut na FontDescriptor ze?
9 0 obj
<<
/Type /FontDescriptor
.....
/FontName /DNBFCD+TimesNewRoman
.....
/FontFile2 10 0 R
- FontFile by malo byt to co potrebujes vlozit
B. Do contentu stranky das stream s textom zapisanym nejak takto - skratka
ten unicode
BT
/TT1 1 Tf
12 0 0 12 70.8 760.4003 Tm
/Cs6 cs 0 0 0 scn
/GS1 gs
-0.0008 Tc
0 Tw
[<0013001400150016001700180019001a001b001c0043>12.2<006100040023000600070008
00410009>7<000d000b000c0042000e0003>]TJ
Ostatne detaily (parametre) si vycitas v kap. 5 PDF reference
Neviem o co presne ti ide, ci iba vlozit font alebo je nutne pracovat aj so
slovencinou/cestinou, lebo toto su dve dost rozdielne veci. Ked chces robit
iba standardne encodings tak ti postaci aj Type1 fonty a budes to mat
jednoduchsie.
Este jedna rada. Pokial robis s PDF priprav sa na to, ze ti nikto neda kus
zdrojoveho kodu. Tieto informacie sa velmi chrania, lebo ako sam vidis je
velmi tazke k nim prist :-(
Ked budes este nieco potrebovat (napr. kus kodu :-) ) posli mi aj mail na
sukr. adresu, lebo konferenciu nestiham moc sledovat.
Roman
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Rosa
> Sent: Tuesday, February 26, 2002 4:21 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: TrueType v PDF
>
>
> No, vzhledem k okolnostem asi vsechny problemy :))))
> Jinak z te PDF reference jsem to jaksi nevykoukal - dle me je to popsane
> dost spatne gtato kapitola a zakladni fonty mi nestaci.
>
> >Ake presne problemy mas? Vlozit font file? zistit diferences? urobit
> >/ToUnicode table? alebo zapisat text pomocou tohoto fontu?
> >
> >Povedal by som, ze si si vybral tazku ulohu a radsej by som to robil
> >standardnymi Acrobatovymi fontami (base14) a nie vkladat font.
> >
> >Najviac a nejlepsie je o tom pisane v PDF reference (partners.adobe.com)
> >
> >Roman
> >
> > > -----Original Message-----
> > > From: delphi-l-owner(zv)clexpert(tec)cz
> > > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Rosa
> > > Sent: Monday, February 25, 2002 1:58 PM
> > > To: delphi-l(zv)clexpert(tec)cz
> > > Subject: TrueType v PDF
> > >
> > >
> > > Zdar,
> > >
> > > delam TpdfCanvas, ktery bude umet ukladat do PDF a narazil jsem na
> > > problem jak ulozit TrueType font do PDF souboru. Vsechno se
> mi podarilo
> > > zjistit a dat do PDF, ale nevim co mam ulozit jako soubor - kdyz
> > > tam vlozim
> > > primo treba TAHOMA.TTF tak mi do Adobe Acrobat neprecte a nahradi
> > > teckami.
> > > Poradi nekdo? Nevite trebas alespon nejaky link? Predem dikes.
>
> S pozdravem
> Tomas Rosa
>
> ------------------------=[ pinknet on every screen
> ]=----------------------
> Tomas Rosa
> Tomas.Rosa(zv)PinkNet(tec)cz
> Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
> PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
> ------------------------------------------------------------------
> ---------
>
>Zobrazenie udajov na Canvas
[*] Werki <delphi(zv)minv.sk> - 28.2.2002 11:57:39
> No zobrazujem ich asi tak, ze naskor si vypocitam uplne vsetky suradnice,
kde
> bude ktory lezat a potom ich zobrazujem ako rectangle( x1,y1 ....). Ale ja
este
> musim kreslit medzi nimi aj spojovacie ciarky a vnutri toho stvorceka sa
> vykresluju dalsie stromove struktury ... Este na upresnenie - mam spravene
aj
> nieco take,ze sa volit hrubka a styl vsetkych ciar ...
> Hlasi to asi takuto chybu : EOutOfResorces: Not enought storage is
available to
> process this command
popravde, samotne vykreslovanie ti nikdy nespravi outofresources, to bude
niecim inym.
Mozes napisat cast kodu ktorym to robis? Chyba bude zrejme tam.
Werki
Vice klavesovych zkratek k jedne akci
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 28.2.2002 11:59:13
Zdravim,
chci se zeptat jak lze udelat subject.
Jde mi o to, ze mam Action a k te bych chtel dat k dispozici dve klavesove
zkratky ( napr. Alt+G a Ctrl+G )
S pozdravem Marek
Uzamknutie zaznamu SQL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 28.2.2002 12:01:05
ahoj,
> > ...Bezpecnejsi je misto casu pouzit verzovani, v trigru
> > proste inkrementovat po kazdem update.....
> Proc je to bezpecnejsi?
protoze cas byva byt na ruznych pocich ruzny.
serverem inkrementovany citac bude vzdy vzestupny.
dekuji PeC(zv)Uzamknutie zaznamu SQL
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 28.2.2002 12:11:35
To chces rict ze get_date() u MS SQL serveru resp. currentdate u Interbase
je tahan z klienta?
Sroub
ahoj,
> > ...Bezpecnejsi je misto casu pouzit verzovani, v trigru
> > proste inkrementovat po kazdem update.....
> Proc je to bezpecnejsi?
protoze cas byva byt na ruznych pocich ruzny.
serverem inkrementovany citac bude vzdy vzestupny.
dekuji PeC(zv)Jak do paradoxu ulozit string s mezerou -rad bych
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 28.2.2002 12:26:38
Samozrejme, ze bych to rad vyresil programove. Jak?
Diky.
----- Original Message -----
From: <pavel.ales(zv)popron(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 28, 2002 11:26 AM
Subject: RE: Jak do paradoxu ulozit string s mezerou
>
>
>
> Dobry den, potrebuji do paradoxu ulozit string, ktery za sebou bude jeste
> mit mezeru. Jak na to?
>
> Mohu znat duvod,nechces to osetrit programove?
>
> Ales Pavel
> Technical Specialist
> D5 Ent W2000
> Popron Consulting - Your System Integrator
> www.popronconsulting(tec)cz
> Popron Building
> Jeremiasova 947
> Prague 5
> 155 00
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
>Jednozna�n� ur�en� po��ta�e
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.2.2002 12:39:36
Puvodni zprava, kterou napsal Petr Vones dne 27 Feb 2002:
> Doufam ze tato zvracenost je patricne zvyraznena v licencni smlouve, aby
> vcas odradila potencialni zakazniky.
No tak...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Uzamknutie zaznamu SQL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 28.2.2002 12:44:39
ahoj,
> > > > ...Bezpecnejsi je misto casu pouzit verzovani, v trigru
> > > > proste inkrementovat po kazdem update.....
> > > Proc je to bezpecnejsi?
> > protoze cas byva byt na ruznych pocich ruzny.
> > serverem inkrementovany citac bude vzdy vzestupny.
> To chces rict ze get_date() u MS SQL serveru resp.
> currentdate u Interbase je tahan z klienta?
ale vubec ne, pokud si opravdu dotazes cas ze serveru, tak
je to OK. jenze pak napriklad, prijde nekdo druhej,
hrabne do zdrojaku a porovna to s lokalnim casem,
protoze nepochopi smysl tech date time operaci,
ktery jsou tam provozovany.
kdyz tam bude integer, tak to imho vic kopne.
nebo to Slavek myslel uplne jinak :)
dekuji PeC(zv)Uzamknutie zaznamu SQL
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 28.2.2002 12:45:24
To ne, ale shodou nahod se ti muzeu potkat dva stejne casy (commit ve stejny okamzik).
Rozlisovaci schopnost zalezi na konkretni implementaci a jen zvysuje pravdepodobnost.
Incrementace je jistota (verzovani) a funguje vsude.
Slavek
> To chces rict ze get_date() u MS SQL serveru resp. currentdate u Interbase
> je tahan z klienta?
>
> Sroub
>
>
>
> ahoj,
>
> > > ...Bezpecnejsi je misto casu pouzit verzovani, v trigru
> > > proste inkrementovat po kazdem update.....
>
> > Proc je to bezpecnejsi?
>
> protoze cas byva byt na ruznych pocich ruzny.
> serverem inkrementovany citac bude vzdy vzestupny.
>
> dekuji PeC(zv)
> Jak do paradoxu ulozit string s mezerou
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 28.2.2002 12:47:00
ahoj,
ja myslim, ze blbe.
ted nevim jiste, ale pdx nema varchar, ze?
tedy bys musel ukladat string do jedne polozky a
v druhe typu short_int si pamatovat delku vkladaneho
vcetne mezer. pri cteni to doplnit mezarama na ulozenou
delku.
dekuji PeC(zv)Zobrazenie udajov na Canvas
[*] bpodolak(zv)elanor.sk - 28.2.2002 12:54:50
>> No zobrazujem ich asi tak, ze naskor si vypocitam uplne vsetky suradnice,
kde
>> bude ktory lezat a potom ich zobrazujem ako rectangle( x1,y1 ....). Ale ja
> este
>> musim kreslit medzi nimi aj spojovacie ciarky a vnutri toho stvorceka sa
>> vykresluju dalsie stromove struktury ... Este na upresnenie - mam spravene
>>aj
>> nieco take,ze sa volit hrubka a styl vsetkych ciar ...
>> Hlasi to asi takuto chybu : EOutOfResorces: Not enought storage is
> available to
>> process this command
>popravde, samotne vykreslovanie ti nikdy nespravi outofresources, to bude
>niecim inym.
> Mozes napisat cast kodu ktorym to robis? Chyba bude zrejme tam.
>Werki
Toto je len cast toho kodu :
procedure TPreviewForm.DrawChart(typet:byte);
var Bitmap:TBitmap;
pomText:String;
i:byte;
begin
try
try
if typeT=1 then begin
SetMapMode(Image.Canvas.Handle,MM_TEXT);
Bitmap := TBitmap.Create;
Bitmap.Height :=
Trunc((FsTree.SizeChartInch.y+1)*Image.Canvas.Font.PixelsPerInch*nZoomPerc/100);
Bitmap.Width :=
Trunc((FsTree.SizeChartInch.x+1)*Image.Canvas.Font.PixelsPerInch*nZoomPerc/100);
ScrollBox.Color := clWindow;
Image.AutoSize := TRUE;
Image.Align := alNone;
Image.Picture.Graphic := Bitmap;
SetMapMode(Image.Canvas.Handle,MM_ISOTROPIC);
SetWindowExtEx(Image.Canvas.Handle,100,100,nil);
SetViewPortExtEx(Image.Canvas.Handle,nZoomPerc,nZoomPerc,nil);
FsTree.KoefZoom := nZoomPerc / 100;
FSTree.DrawChart(Image.Canvas,0,0,0,0);
end
finally
Bitmap.free;
end;
except
MessageDlg('Chyba', mtWarning, [mbOK], 0);
cbZoom.Text := cbZoom.Items.Strings[cbzoom.Items.capacity-1-lastzoom];
cbzoom.ItemIndex:=cbzoom.Items.capacity-1-lastzoom;
pomText:='';
for i:=1 to length(cbzoom.Text)-1 do
pomtext:=pomtext+cbzoom.Text[i];
nzoomperc:=strtoint(pomtext);
cbZoomExit(cbzoom);
end;
end;
FSTREE,draw v nej vykreslujem jednotlive stvorceky, texty a spojice ...
Uzamknutie zaznamu SQL
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 28.2.2002 12:55:45
Nikdo snad netvrdi, ze readcommited je jedina spravna volba,
proste pro urcite pripady jsou vhodne urcite typy transakci a metod.
Priklad s vystupni sestavou je toho dukazem.
Ale proto by me zajimalo, proc ..."je nutne vzdy pouzivat snapshot"?
Kdyz vis, co volas a muzes si to dovolit, proc nepouzit jiny mod transakce?
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 28, 2002 10:06 AM
Subject: RE: Uzamknutie zaznamu SQL
Bezpecnejsi je misto casu pouzit verzovani, v trigru proste inkrementovat
po kazdem update.
Jeste k Read Commited, tak toto se hodi pouze pro select.
Pro editaci VZDY pouzivat SNAPSHOT (nekdy je to vhodne i pro select),
jelikoz dvakrat po sobe polozeny dotaz v read commited NEMUSI vratit
stejny vysledek v ramci transakce.
Typicky pripadem problemu s read commited je tiskova sestava,
kde budete tisknout seznam vsech a pak si pocet zjistite dotazem
pres count.
a on nekdo behem tisku par zaznamu smaze a povrdi.
-> kdyz nevim co pouzit, tak snapshot.
Slavek
> A nebo kdyz si data pretahnes do non-dbaware komponent tak vyhral ten
> druhy... Ja jsem to delal tak, ze jsem veskere update operace delal pres
> stored procedure a v tabulkach jsem mel date_created, date_changed. Podle
> toho (muj natazeny cas jako parametr v SP versus cas v updatovanych
> radcich) jsem si kontroloval, jestli mi to nekdo (changed_by default
> User_name()) zm�nil ci nikoli. Je pravda ze obsluha potom vzniklych
> konfliktu se musela relativne slozite vyhodnocovat...
>
> Sroub
Zobrazenie udajov na Canvas
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.2.2002 12:59:21
From: <bpodolak(zv)elanor.sk>
> Toto je len cast toho kodu :
Jeste bys mohl napsat, po jake operaci Ti to presne pada.
A take ta rutina pro vlastni kresleni by mohla byt zajimava v
pripade,
ze pouzivas pro kresleni primo API funkce, protoze je dost mozne,
ze jsi nekde prohospodaril nejaky Device Context
Bye, pf
Vlozenie datumu do SQL 2000
[*] Slavom�r �eke� - 28.2.2002 13:01:51
Zdravim ...
zase taky maly problemik ...
vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi nevezme ... uz
som skusal secko mozne, preco ? Dokonca ani StrToDateTime() nepomohla
...
HELP ME
Slavo
P.S. Viem, ze 0 je 1.1.1900, ale tu som skoncil ...
Uz som sa aj v konferencii pohrabal ... kopa prispevkov, ale ziaden mi
nepovedal AKO na to ?Vlozenie datumu do SQL 2000
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 28.2.2002 13:04:52
INSERT INTO tabulka VALUES
('MENO','PRIEZVISKO','28.2.2002')
nebo misto apostrofu uvozovky
nebo to udelej pres parametry.
----- Original Message -----
From: "Slavom�r �eke�" <cekel(zv)noves.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 28, 2002 1:01 PM
Subject: Vlozenie datumu do SQL 2000
Zdravim ...
zase taky maly problemik ...
vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi nevezme ... uz
som skusal secko mozne, preco ? Dokonca ani StrToDateTime() nepomohla
...
HELP ME
Slavo
P.S. Viem, ze 0 je 1.1.1900, ale tu som skoncil ...
Uz som sa aj v konferencii pohrabal ... kopa prispevkov, ale ziaden mi
nepovedal AKO na to ?
Vlozenie datumu do SQL 2000
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 28.2.2002 13:06:06
SET DATEFROMAT dmy a pak ten INSERT a nebo pouzit default format datumu MS
SQL serveru
Sroub
Zdravim ...
zase taky maly problemik ...
vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi nevezme ... uz
som skusal secko mozne, preco ? Dokonca ani StrToDateTime() nepomohla
...
HELP ME
Slavo
P.S. Viem, ze 0 je 1.1.1900, ale tu som skoncil ...
Uz som sa aj v konferencii pohrabal ... kopa prispevkov, ale ziaden mi
nepovedal AKO na to ?Vlozenie datumu do SQL 2000
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 28.2.2002 13:07:18
...a apostrofy kolem datum...
Sroub
Zdravim ...
zase taky maly problemik ...
vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi nevezme ... uz
som skusal secko mozne, preco ? Dokonca ani StrToDateTime() nepomohla
...
HELP ME
Slavo
P.S. Viem, ze 0 je 1.1.1900, ale tu som skoncil ...
Uz som sa aj v konferencii pohrabal ... kopa prispevkov, ale ziaden mi
nepovedal AKO na to ?Vlozenie datumu do SQL 2000
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 28.2.2002 13:08:20
On 28 Feb 2002, at 13:01, Slavom�r �eke� wrote:
> vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
> ('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi nevezme ...
SQL 2000 neznam, ale podle IB bych zkusil dat datum do
apostrofu tedy
INSERT INTO tabulka VALUES ('MENO','PRIEZVISKO','28.2.2002')
a bez carky za datumem. A odolnejsi proti zmenam struktury se
mi zda pred values vzdy uvadet seznam sloupcu.
Z.Kalhous
teeChart editor
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 28.2.2002 13:09:38
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Mozna uz tady takovy dotaz byl,
ale nemate nekdo tip na runtime editor teechart grafu?
Nebo dokumentaci funkci z tee50.bpl a teeui50.bpl (kde je ten editor ulozeny)?
Nebo nejake free VCL na grafy (aspon priblizne na urovni teechart) ?**************************************************
* Ing. Roman Macura
* vedouc� SW projektu
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : macura(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
Vlozenie datumu do SQL 2000
[*] Kr�l Jirka jr. <admin(zv)printo(tec)cz> - 28.2.2002 13:10:52
>>vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
>>('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi ne
datumy musi byt v apostrofech cili napr.
mujcommand:='INSERT INTO tabulka (meno, priezvisko, datumcehosi) VALUES
(''sdfsd'',''sdfsdf'',''28.2.2002''');
a jestli si chces byt jo jisty, dak pred to dej jeste
'SET DATEFORMAT dmy'
j.dll knihovny
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 28.2.2002 13:25:17
Ekzaktne to nejde, ale empiricky se muzes podivat
View/debug windows/view modules
Slavek
> Muzete mi nekdo poradit, jak v C++ Builderu (predpokladam, ze to
> bude stejne jako v Delphi) zjistim, jake dll knihovny muj projekt
> pouziva?
>
> Dik a prosim odpovedi primo me do posty.dll knihovny
[*] voltrr1.epr(zv)mail.cez(tec)cz - 28.2.2002 13:34:38
> Ekzaktne to nejde, ale empiricky se muzes podivat
Exaktne to jde a to i velmi jednoduse - tuto informaci napr.
zobrazuje Quick View z Windows (Win95+). V pripade ze
ho nemas nainstalovan nebo chces i jine informace je k
disposici aplikace PeFuncExample - je to sirene jako
demo k JCL. Tu najdes u JEDI. Bliz ti urcite prozradi Peta
Vones.
Cus
Radek Voltr
Vlozenie datumu do SQL 2000
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 28.2.2002 13:45:48
INSERT INTO tabulka VALUES ('MENO','PRIEZVISKO','20020228')
>
> zase taky maly problemik ...
>
> vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
> ('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi
> nevezme ... uz
> som skusal secko mozne, preco ? Dokonca ani StrToDateTime() nepomohla
> ...
>
> HELP ME
QuickReport - PageCount
[*] Str�n�k Franti�ek - 28.2.2002 13:46:28
Zdravim Vas odbornici,
Pouzivam QuickReport ve kterem jsem pouzil komponentu CompositeReport
procedure Tapp01_wnd_tisk.QRCompReportAddReports(Sender: TObject);
begin
QRCompReport.Reports.Add(app01wnd_TiskVykazuO1.QuickRep1);
QRCompReport.Reports.Add(app01wnd_TiskInfoO1.QuickRep1);
end;
Kam a komu umistim Band typu rbPageFooter tak, aby se mi prubezne cislovaly stranky:
1/5
2/5
3/5
4/5
5/5
Porad se mi to nechce timto stylem cislovat !
Dekuji za radu
zdrav�
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
tel. 02-67991481
dll knihovny
[*] Do�ekal Radek <RDocekal(zv)CSAS(tec)cz> - 28.2.2002 13:47:09
> Muzete mi nekdo poradit, jak v C++ Builderu (predpokladam, ze to
> bude stejne jako v Delphi) zjistim, jake dll knihovny muj projekt
> pouziva?
http://www.sysinternals.com/ntw2k/freeware/procexp.shtml
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
SMS pres NMSMTP
[*] mbartonek(zv)synthesia(tec)cz - 28.2.2002 13:48:24
Ahoj,
D5 Ent.
Pokud posilam zpravu a prijemce je e-mail adresa tak mi to funguje.
Pokud misto e-mail adresy dam 0042XXXXXXXXXX(zv)sms.eurotel(tec)cz nahlasi mi
chybu
503 Issue RCPT TO : command before DA command
Dekuji
Bartonek Milan
Vlozenie datumu do SQL 2000
[*] Lubor Martinsky,\(SDC\) <l.martinsky(zv)softdec(tec)cz> - 28.2.2002 14:03:01
Ja vkladam datum ve formatu
'01/31/2001 00:00.000' tj. 'MM/DD/YYYY HH:MM.SSS'
a chodi to.
LM
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jon� Mari�n
Sent: Thursday, February 28, 2002 1:46 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Vlozenie datumu do SQL 2000
INSERT INTO tabulka VALUES ('MENO','PRIEZVISKO','20020228')
>
> zase taky maly problemik ...
>
> vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
> ('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi
> nevezme ... uz
> som skusal secko mozne, preco ? Dokonca ani StrToDateTime() nepomohla
> ...
>
> HELP ME
tisk _opravdu_velke_ BMP
[*] Alexandr �tefek <alex(zv)scova.vabo(tec)cz> - 28.2.2002 14:07:34
Tak mam dojem, ze problem je v StretchDIBits.
Ne kazde HDC musi podporovat StretchDIBits
viz help pro GetDeviceCaps.
A navic si myslim, ze prave HP to vesmes
neumi.
Resenim je spocitat si to sam.
Alexandr STEFEK
> StretchDIBits(Canvas.Handle,
> DestRect.Left, DestRect.Top, // Destination Origin
> DestRect.Right-DestRect.Left, // Destination Width
> DestRect.Bottom-DestRect.Top, // Destination Height
> 0, 0, // Source Origin
> Bitmap.Width, Bitmap.Height, // Source Width & Height
> BitmapImage,
> TBitmapInfo(BitmapHeader^),
> DIB_RGB_COLORS,
> SRCCOPY);dll knihovny
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.2.2002 14:16:56
From: <voltrr1.epr(zv)mail.cez(tec)cz>
> Exaktne to jde a to i velmi jednoduse - tuto informaci napr.
> zobrazuje Quick View z Windows (Win95+). V pripade ze
> ho nemas nainstalovan nebo chces i jine informace je k
> disposici aplikace PeFuncExample - je to sirene jako
> demo k JCL.
Nevim jak u C++ Builderu, ale standardni soucasti Delphi je utilita
TDUMP.EXE,
ktera Ti ty DLL vypise vcetne jmen importovanych rutin.
Bye, pf
Vlozenie datumu do SQL 2000
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 28.2.2002 14:21:30
Ahoj,
> vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
> ('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi
> nevezme ... uz
> som skusal secko mozne, preco ? Dokonca ani StrToDateTime() nepomohla
pokud to ma byt datum aktualniho vlozeni
tak
INSERT INTO Tabulka (..., DatumVlozeni) VALUES (..., GETDATE())
ale tohle je nejlepsi udelat hned pri vytvoreni tabulky nebo v triggeru
CREATE TABLE (
...
DatumVlozeni DATETIME DEFAULT GETDATE()
...
)
jinak se podivej do helpu na
SET DATEFORMAT { format | (zv)format_var }
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
dll knihovny
[*] <ondra.vosta(zv)centrum(tec)cz> - 28.2.2002 14:49:50
Ted mi na foru na www.builder(tec)cz jeden clovek poradil pouzit
program tdump.exe, ktery ukaze vsechny importy. Tam se daji take
lehce dohledat vsechny dll knihovny.
______________________________________________________________
> > Muzete mi nekdo poradit, jak v C++ Builderu (predpokladam, ze
to
> > bude stejne jako v Delphi) zjistim, jake dll knihovny muj
projekt
> > pouziva?
>
> http://www.sysinternals.com/ntw2k/freeware/procexp.shtml
>
----------------------
Jestli ve Va�ich �il�ch koluje krev a ne voda, nem��ete jet na dovolenou s nik�m jin�m ne� s n�mi! http://user.centrum(tec)cz/redir.php?url=http://www.adventura(tec)cz.
Ulozeni e-mailu do souboru pomoci SimpleMAPI
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 28.2.2002 14:50:38
Zdravim vsechny,
potrebuji udelat jednu funkci - z mailoveho klienta nacist email v nativnim
formatu (hlavne aby byl zachovan pripadny el. podpis) toho klienta a ulozit
to jako soubor na disku (ten soubor si pojmenuji podle sveho). V "ostrem"
Outlooku si to snad dokazu osetrit (vytvoril jsem si dll knihovnu jako
rozsireni a pozadavky pujdou primo z nej pres tlacitko...), ale napr. v
Oulooku express nevim jak to udelat.
Nevite nekdo (napr. P. Vones :) jak na to ?
Vyuzivam JclMapi a jinak D6 Prof, Win XP Prof.
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
Zobrazenie udajov na Canvas
[*] bpodolak(zv)elanor.sk - 28.2.2002 14:52:41
>> No zobrazujem ich asi tak, ze naskor si vypocitam uplne vsetky suradnice,
kde
>> bude ktory lezat a potom ich zobrazujem ako rectangle( x1,y1 ....). Ale ja
> este
>> musim kreslit medzi nimi aj spojovacie ciarky a vnutri toho stvorceka sa
>> vykresluju dalsie stromove struktury ... Este na upresnenie - mam spravene
>>aj
>> nieco take,ze sa volit hrubka a styl vsetkych ciar ...
>> Hlasi to asi takuto chybu : EOutOfResorces: Not enought storage is
> available to
>> process this command
>popravde, samotne vykreslovanie ti nikdy nespravi outofresources, to bude
>niecim inym.
> Mozes napisat cast kodu ktorym to robis? Chyba bude zrejme tam.
>Werki
Toto je len cast toho kodu :
procedure TPreviewForm.DrawChart(typet:byte);
var Bitmap:TBitmap;
pomText:String;
i:byte;
begin
try
try
if typeT=1 then begin
SetMapMode(Image.Canvas.Handle,MM_TEXT);
Bitmap := TBitmap.Create;
Bitmap.Height :=
Trunc((FsTree.SizeChartInch.y+1)*Image.Canvas.Font.PixelsPerInch*nZoomPerc/100);
Bitmap.Width :=
Trunc((FsTree.SizeChartInch.x+1)*Image.Canvas.Font.PixelsPerInch*nZoomPerc/100);
ScrollBox.Color := clWindow;
Image.AutoSize := TRUE;
Image.Align := alNone;
Image.Picture.Graphic := Bitmap;
SetMapMode(Image.Canvas.Handle,MM_ISOTROPIC);
SetWindowExtEx(Image.Canvas.Handle,100,100,nil);
SetViewPortExtEx(Image.Canvas.Handle,nZoomPerc,nZoomPerc,nil);
FsTree.KoefZoom := nZoomPerc / 100;
FSTree.DrawChart(Image.Canvas,0,0,0,0);
end
finally
Bitmap.free;
end;
except
MessageDlg('Chyba', mtWarning, [mbOK], 0);
cbZoom.Text := cbZoom.Items.Strings[cbzoom.Items.capacity-1-lastzoom];
cbzoom.ItemIndex:=cbzoom.Items.capacity-1-lastzoom;
pomText:='';
for i:=1 to length(cbzoom.Text)-1 do
pomtext:=pomtext+cbzoom.Text[i];
nzoomperc:=strtoint(pomtext);
cbZoomExit(cbzoom);
end;
end;
FSTREE.draw v nej vykreslujem jednotlive stvorceky, texty a spojice ...
Vacsinou to spadne na funkcii SetMapMode(Image.Canvas.Handle,MM_ISOTROPIC);
Zaujimave je, ze pri mensich strukturach to zbehne, ale pri vacsich nie ..
OT: Ponuka prace
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 28.2.2002 14:59:10
Zdravim,
Hladame programatora s praxou v Delphi a SQL (Firebird) na vyvoj
vnutropodnikoveho informacneho systemu.
Pozadujeme znalost OOP.
Hlavny pracovny pomer, plat podla dohody ale zhruba +/- 20-30 tisic podla
skusenosti + nejake tie zamestnanecke vyhody, kantina a pod...
Nastup najlepsie ihned. :-)
Heslo: Malo casu, hodne prace, ale malo by sa to zlepsit :))
Pavol Kakacka
Vedouc� v�voje IS
kakacka(zv)proca(tec)cz
ProCA s.r.o.
V Luz�ch 818, Praha 4 Libus
www.proca(tec)cz, www.brave(tec)cz
dll knihovny
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.2.2002 15:06:21
> Ted mi na foru na www.builder(tec)cz jeden clovek poradil pouzit
> program tdump.exe, ktery ukaze vsechny importy. Tam se daji take
> lehce dohledat vsechny dll knihovny.
pokud je program ovsem nenatahuje pomoci LoadLibrary...
D. Toman
dll knihovny
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 28.2.2002 15:19:53
Rad bych sdilel tvoje nadseni pro vec, ale realita je nekde uplne jinde.
1. Nejde jen o to co potrebuje primo tvuj exe, ale i o to co je dale potreba, takze musis projit vsechny knihovny.
2. Za behu mas sice z Delphi pristupny seznam dll, ALE to plati POUZE pro dany okamzik, napriklad
IBX knihovny nahravaji gds32.dll az v okamziku vytvareni prvni komponenty.
Ja jsem si zvyknul psat vsechny importy dll pres LoadLibrary a takto lze nahrat treba dll
definovane v ini (typicky plug in).
Suma sumarum, jses schopen zjistit co potrebujes jiste, ale je to pouze podminka nutna, nikoliv
postacujici.
Slavek
> > Ekzaktne to nejde, ale empiricky se muzes podivat
>
> Exaktne to jde a to i velmi jednoduse - tuto informaci napr.
> zobrazuje Quick View z Windows (Win95+). V pripade ze
> ho nemas nainstalovan nebo chces i jine informace je k
> disposici aplikace PeFuncExample - je to sirene jako
> demo k JCL. Tu najdes u JEDI. Bliz ti urcite prozradi Peta
> Vones.
>
> Cus
> Radek Voltr
>
> Delphi 6 Help Update 2
[*] <ivan.virag(zv)aliatel(tec)cz> - 28.2.2002 15:32:51
Dobry den.
Nainstaloval jsem si to a nemuzu OpenTools API nikde najit. Jak to? Dekuji za odpoved.
Ivan Virag
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Sent: 28. �nora 2002 1:42
> To: Konference Delphi
> Subject: Delphi 6 Help Update 2
>
>
> Ahoj,
>
> na teto strance http://www.borland.com/techpubs/delphi/ je
> novy update helpu
> pro Delphi 6. Potesujici novinkou je OpenTools API Reference
>
> Petr Vones
> RichEdit (98) - Oddeleni carou, programove vkladan
[*] bardon <bardon(zv)akord-soft(tec)cz> - 28.2.2002 15:43:42
Kdyz mi posles svou adresu, poslu Ti prilohou dva RTF texty, ktere nejake
deleni carou maji a dokonce to ani neni OLE. To znamena, ze teoreticky to
RTF umi. Ale nevim jak to tam dostat. Mozna by se dalo prozkoumat vnitrek
tech RTF a najit nejakou cestu.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Zeleny
Zdravim priznivce konference!
Mam nasledujici problem, ve kterem bych si pral poradit:
Nevim jak udelat neco jako oddelovaci caru v textovem editoru -
richeditu. Cara(i dvojita) by se mela chovat jako objekt(moznost
posunuti,smazani).
Stejne vlastnosti by mel mit i obrazek, ktery ale nevim jak vlozit
programove (pres OLE).
Jak poznam programove, kdyz nastavim kurzor, ze jde o muj
obrazek/caru ?
Predpokladam pouziti OLE, ale nevim jak na to.
Nemate s tim nekdo zkusenosti ? Poradite jak na to ?
Beru jakoukoli radu ci navrh!
Ulozeni e-mailu do souboru pomoci SimpleMAPI
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 28.2.2002 16:01:05
Hello Milan,
Thursday, February 28, 2002, 2:50:38 PM, you wrote:
MT> Zdravim vsechny,
MT> potrebuji udelat jednu funkci - z mailoveho klienta nacist email v nativnim
MT> formatu (hlavne aby byl zachovan pripadny el. podpis) toho klienta a ulozit
MT> to jako soubor na disku (ten soubor si pojmenuji podle sveho). V "ostrem"
MT> Outlooku si to snad dokazu osetrit (vytvoril jsem si dll knihovnu jako
MT> rozsireni a pozadavky pujdou primo z nej pres tlacitko...), ale napr. v
MT> Oulooku express nevim jak to udelat.
MT> Nevite nekdo (napr. P. Vones :) jak na to ?
MT> Vyuzivam JclMapi a jinak D6 Prof, Win XP Prof.
MT> S pozdravem
MT> Milan Tome�
MT> mailto:Milan.Tomes(zv)haida(tec)cz
s MAPI to nejde. ale stim JcL jsi nejsem jistej
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
dll knihovny
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.2.2002 16:25:11
Puvodni zprava, kterou napsal voltrr1.epr(zv)mail.cez(tec)cz dne 28 Feb 2002:
> Exaktne to jde a to i velmi jednoduse - tuto informaci napr.
No ja bych si tim nebyl az tak uplne jisty :) Co dynamicky natahovane
knihovny? Tam uz to neni tak exaktni...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================OT: Re: dll knihovny
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.2.2002 16:28:11
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> 1. Nejde jen o to co potrebuje primo tvuj exe, ale i o to co je dale
potreba,
> takze musis projit vsechny knihovny.
To by nemela byt vetsi prekazka - pri pouziti slusnejsiho editoru
s podporou regexp by sly vystupy z TDUMP(EXE) upravit do formy
.BAT souboru
popr. si napsat jednoduchou utilitku v Delphi, ktera si vysbira
radky "Imports from ...
a bude spoustet TDUMP, dokud nevycerpa vsechny staticke linky na
DLL
> 2. Za behu mas sice z Delphi pristupny seznam dll, ALE to plati
POUZE pro dany okamzik, napriklad
> IBX knihovny nahravaji gds32.dll az v okamziku vytvareni prvni
komponenty.
> Ja jsem si zvyknul psat vsechny importy dll pres LoadLibrary a
takto lze nahrat treba dll
> definovane v ini (typicky plug in).
Na dynamicke linky by mel stacit slusnejsi debugger, ktery umi
nastavit breakpoint na volani API funkce a pak se divat na hodnoty
argumentu, s jakou jsou funkce LoadLibrary() a GetProcAddr() volany.
Pri dostatecne dlouhem pozorovani nakonec odhalis vetsinu DLL.
Jina moznost by byla spustit file monitor a divat se, jake .DLL
soubory jsou za behu aplikace otvirany...
Obe tyto "hackerske" metody by se samozrejme daly aplikovat i na
staticky importovane DLL, protoze ty se take importuji pomoci
LoadLibrary()
Bye, pf
Ulozeni e-mailu do souboru pomoci SimpleMAPI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 16:53:23
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> potrebuji udelat jednu funkci - z mailoveho klienta nacist email v nativnim
> formatu (hlavne aby byl zachovan pripadny el. podpis) toho klienta a ulozit
Pomoci SimpleMAPI muzes ziskat akorat text zpravy a prilohy, to je vse.
Petr Vones
Delphi 6 Help Update 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 16:55:55
From: <ivan.virag(zv)aliatel(tec)cz>
> Nainstaloval jsem si to a nemuzu OpenTools API nikde najit. Jak to? Dekuji
> za odpoved.
Hledej napriklad heslo 'ToolsAPI'
Petr Vones
Divny TDateTimePicker
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 28.2.2002 16:57:34
Pouzivam TDateTimePicker a zarazilo mne jeho divne chovani:
dtOdchod: TDateTimePicker;
begin
...
dtOdchod.Checked:=not DatMod.QOsobyODCHOD.IsNull;
if dtOdchod.Checked then
dtOdchod.Date:=DatMod.QOsobyODCHOD.AsDateTime
else
dtOdchod.Date:=Date;
...
end;
Tento kod probehne spravne, ale presto je checkbox na dtOdchod zatrzeny i v
pripade, kdy DatMod.QOsobyODCHOD=null. Setkal jste s tim nekdo a dokazete
poradit.
Martin Ben
WNT,D5Ent
Vice klavesovych zkratek k jedne akci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 17:00:00
From: "Marek Eichler" <marek.eichler(zv)atlas(tec)cz>
> chci se zeptat jak lze udelat subject.
> Jde mi o to, ze mam Action a k te bych chtel dat k dispozici dve klavesove
> zkratky ( napr. Alt+G a Ctrl+G )
Toto je vyreseno v Delphi 6 kde mas vlastnost TCustomAction.SecondaryShortCuts
Petr Vones
dll knihovny
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 17:11:54
From: <ondra.vosta(zv)centrum(tec)cz>
> Muzete mi nekdo poradit, jak v C++ Builderu (predpokladam, ze to
> bude stejne jako v Delphi) zjistim, jake dll knihovny muj projekt
> pouziva?
Zalezi na tom co presne potrebujes.
1. Nazvy knihoven ktere jsou linkovany staticky (klasickym zpusobem nebo jako
Bound Import), popripade dynamicky pomoci Delay-load import ve Visual C++ 6 a
nebo C++ Builderu (tusim od verze 5) lze ziskat primo ze spustitelneho PE
souboru. Muzes pouzit utilitu TDUMP, ale starsi verze mely chyby a neumely
cist vsechny sekce PE souboru (Bound Import a Delay-load). Alternativne muzes
pouzit JCL, unit JclPeImage kde mas na tohle vsechno funkce. Jako priklad lze
pouzit PE Viewer (http://www.volweb(tec)cz/pvones/delphi)
2. Knihovny ktere jsou dynamicky nahravany za behu aplikace pomoci LoadLibrary
muzes zjistit bud v debuggeru (Delphi i C++ Builder by mel umet Attach to
Process v menu Run) nebo si muzes napsat utilitu ktera ziska seznam knihoven
pro dany Process ID (LoadedModulesList v JCL), popripate ToolHelpViewer na
adrese uvedene vyse anebo si napsat jednoduchy debugger ve kterem process
spustis a on ti bude vypisovat kdy se jaky modul nahral a uvolnil.
Petr Vones
MAPIAddress - pro p. Petra Vonese
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 17:15:57
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
> Diky za radu JCL je super ale jeste jeden problemek :o)
> Kdyz si vyberu Recipients[I]... tak tam je jen Name a Address ale ja bych
> potreboval vedet i telefony. Jde to nejak udelat?
Bohuzel, SimpleMAPI poskytuje pouze jmeno a adresu. Teoreticky by to slo resit
primym pristupem do Address Booku (WAB) v pripade Outlook Expressu, dale viz
WAB.ZIP (http://delphi-jedi.org/Jedi:APILIBRARY)
Petr Vones
Vlozenie datumu do SQL 2000
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 28.2.2002 17:26:47
Ahoj,
doporucuji vkladat datum do MSSQL v tzv obecnem tvaru tj 'RRRRMMDD' tj. rok
na 4 znaky, mesic na 2, den na 2 (mozno pripojit i cas, viz. BooksOnLine).
Tento format neni (!) zavisly na nastaveni formatu datumu v serveru i WIN !
Pavel
>>vkladam novy zaznam do tabulky ... INSERT INTO tabulka VALUES
>>('MENO','PRIEZVISKO',28.2.2002,) a chyba je, ze datum mi ne
datumy musi byt v apostrofech cili napr.
mujcommand:='INSERT INTO tabulka (meno, priezvisko, datumcehosi) VALUES
(''sdfsd'',''sdfsdf'',''28.2.2002''');
a jestli si chces byt jo jisty, dak pred to dej jeste
'SET DATEFORMAT dmy'
j.Skryti nejake property
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 17:27:03
From: "Petr Kukl�k" <Petr.Kuklik(zv)seznam(tec)cz>
> potreboval bych poradit s ukrytim property. Mam tridu, ktera ma
> public property AAA, z teto tridy vytvorim potomka, ale chci aby na
> teto urovni property AAA nebyla videt.
To nelze. Z toho duvodu jsou napriklad v Delphi 6 dusledne pouzivany 'custom'
predci VCL komponent aby bylo mozne si v odvozene komponente zverejnit co je
treba.
Petr Vones
SMS pres NMSMTP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 17:30:33
From: <mbartonek(zv)synthesia(tec)cz>
> Pokud posilam zpravu a prijemce je e-mail adresa tak mi to funguje.
> Pokud misto e-mail adresy dam 0042XXXXXXXXXX(zv)sms.eurotel(tec)cz nahlasi mi
> chybu
>
> 503 Issue RCPT TO : command before DA command
V prvni rade bych prestal pouzivat NetMasters komponenty.
Petr Vones
Uzamknutie zaznamu SQL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 28.2.2002 17:41:21
Pro uzivatele MSSQL a nekterych dalsich serveru je zajimavou volbou sloupec
typu DateTimeStamp, ktery zmeni automaticky svoji hodnotu pri kazdem update
(nesmi byt menen uzivatelem, novou hodnotu si dosadi server sam). Vyhodou je
ze neni nutno nic programovat a ono to pracuje spolehlive samo a neni mozno
to "oblafnout" (coz muze byt i nevyhoda).
Hodnota je udajne naprosto unikatni (kupodivu jde zkonvertovat do DateTime a
odpovida casu aktualizace, ale to je asi nahoda).
Pavel
Nikdo snad netvrdi, ze readcommited je jedina spravna volba,
proste pro urcite pripady jsou vhodne urcite typy transakci a metod.
Priklad s vystupni sestavou je toho dukazem.
Ale proto by me zajimalo, proc ..."je nutne vzdy pouzivat snapshot"?
Kdyz vis, co volas a muzes si to dovolit, proc nepouzit jiny mod transakce?
Bezpecnejsi je misto casu pouzit verzovani, v trigru proste inkrementovat
po kazdem update.
Jeste k Read Commited, tak toto se hodi pouze pro select.
Pro editaci VZDY pouzivat SNAPSHOT (nekdy je to vhodne i pro select),
jelikoz dvakrat po sobe polozeny dotaz v read commited NEMUSI vratit
stejny vysledek v ramci transakce.
Typicky pripadem problemu s read commited je tiskova sestava,
kde budete tisknout seznam vsech a pak si pocet zjistite dotazem
pres count.
a on nekdo behem tisku par zaznamu smaze a povrdi.
-> kdyz nevim co pouzit, tak snapshot.
Slavek
> A nebo kdyz si data pretahnes do non-dbaware komponent tak vyhral ten
> druhy... Ja jsem to delal tak, ze jsem veskere update operace delal pres
> stored procedure a v tabulkach jsem mel date_created, date_changed. Podle
> toho (muj natazeny cas jako parametr v SP versus cas v updatovanych
> radcich) jsem si kontroloval, jestli mi to nekdo (changed_by default
> User_name()) zm�nil ci nikoli. Je pravda ze obsluha potom vzniklych
> konfliktu se musela relativne slozite vyhodnocovat...
>
> Sroub
Uzamknutie zaznamu SQL
[*] Roland Turcan <rolo(zv)sedas.sk> - 28.2.2002 19:00:04
> >>nechapu smysl uzamykani zaznamu v SQL databazi.
> >>pokud nekdo upravi zaznam a nekdo jiny chce udelat
> >>totez, druhy ma smulu, vic bych to neresil.
> >>imho je to proti filosofii SQL jako takove.
> >>myslim, ze neni duvod. jestli jo, rad se ho dozvim.
>
> pekne reseni je toto:
> - pred ulozenim si editovanou vetu z dB nacist znovu
> - vsecky fieldy porovnat s ukladanymi hodnotami
> - userovi zobrazit rozdily a zeptat se jestli _fakticky_ prevalit jeho
> hodnotami
> jenze se malokdo rozhodne takto usery rozmazlovat, ze jo...
Myslim, ze je este jednoduchsie riesenie na kontrolu zmeny zaznamu. Ja som
si spravil do kazdej tabulky tzv. UpdateID:
alter table Tabulka add UID integer;
create generator UID;
do triggra before Insert som dopisal "New.UID=Gen_ID(UID,1);"
a pred zapisom si skontrolujes CISLO ktore je tam a porovnas ho s tym co
bolo pri selecte ked ci data nacitaval.
Roland Turcan
Systemove barvy
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 28.2.2002 19:52:31
ahoj,
potreboval bych zmenit ve sve aplikaci barevne schema, ale pouziti tipu 735
z knihy 1001 tipu a triku nefunguje tak jak je popsano (resp. funguje, ale
zmeni mi docasne barvy v cele session i pro jine programy a system). Ptam
se, jak docilim tehoz, ale jen pro svoji aplikaci?
Diky
Ka.teeChart editor
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.2.2002 20:31:17
Puvodni zprava, kterou napsal Roman Macura dne 28 Feb 2002:
> ale nemate nekdo tip na runtime editor teechart grafu?
> Nebo dokumentaci funkci z tee50.bpl a teeui50.bpl (kde je ten editor
> ulozeny)? Nebo nejake free VCL na grafy (aspon priblizne na urovni
> teechart) ?
Pokud pouzivas TeeChart Standard (obsazeny v Delphi), pak nemas licenci
pro sireni runtime editoru. Tu obsahuje TeeChart Professional, ktery se
kupuje.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Graf v Delphi nebo Excelu
[*] Lukas Marek <lukas.marek(zv)seznam(tec)cz> - 28.2.2002 22:26:59
Cau
Mam x hodnot a potreboval bych je zobrazit do grafu. Tyto body budou lezet priblizne v exponencialni krifce. Potreboval bych zobrazit do grafu take exponencialu jejiz hodnoty by se nejvice priblizovaly hodnotam zadanym a urcit rovnici exponencialy (takto to umi MS Excel).
1a) Je komponenta (pokud mozno free), ktera by toto dovedla v Delphi20
1b) Pokud ne je mozne predat hodnoty MS Excelu, aby z nich sam utvoril graf a napsal rovnici bez zasahu uzivatele?
2) Komponenta pro zobrazovani spojnicovich grafu v Delphi?
Delphi 6 Ent.
Dekuji
Lukas Marek
{$I-}
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 5.3.2001 19:32:31
Neexistuje v Delphi nejco jako bylo v pascalu {$I-},{$I+}? 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.Existuje zvukovka ?
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 6.3.2001 17:04:33
Jak zjistim, zdali mohu pouzit zvukovou kartu (kdyz je zakazana, tak at
neexistuje). Jejlepe API. Dik.Trida neni zaregistrovana
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 7.3.2001 20:21:34
Dobr� den,
pokud svou aplikaci spustim na windows, kde nikdy nebylo instalovano Delphi
(pouzivam 6), nejdrive mi vypise, ze aplikace provedla neplatnou operaci a
potom "Exception EOleSysError in module program.exe at 00079CC5. Trida neni
zaregistrovava". A nevim co s tim. Pouzivam tam jenom komponenty, API a
normalni zbytek, zadnou DB ani nic podobneho. Nevim jestli mu nechybi nejaka
knihovna, ale kdyz to zkopiruji do slozky win\system toho systemu kde to
jede a spustim to pod tim kde to nejede, vysledek je stejny. Budu vam
zavazan za odpoved, protoze rikat "Kupte si produkt, nainstalujte si Delphi,
odinstalujte a pouzivejte muj produkt" by bylo dosti fadni... Diky moc. DKx.Restructure DBF
[*] Votava <kvotava(zv)atlas(tec)cz> - 11.3.2001 21:04:57
zkuste v TQuery zadadat tyto SQL:
Query1.Sql.Text:='alter table "tabulka.dbf" add test char(12)';
Query1.ExecSql;
Query1.Sql.Text:='update "tabulka.dbf" set test=
sloupec_ktery_je_potreba_zmenit';
Query1.ExecSql;
Query1.Sql.Text:='alter table "tabulka.dbf" drop
sloupec_ktery_je_potreba_zmenit', add sloupec_ktery_je_potreba_zmenit' char
(15)';
Query1.ExecSql;
Query1.Sql.Text:='update "tabulka.dbf" set
sloupec_ktery_je_potreba_zmenit=test';
Query1.ExecSql;
Query1.Sql.Text:='alter table "tabulka.dbf" drop test';
Query1.ExecSql;
Na zaver je nutno, v pripade ze byl index na menenem sloupci, reindexovat.
S pozdravem Votava
> Mam docela velkou tabulku data.dbf (indexovana, s memo polozkami),
> tedy:
> data.dbf, data.dbt, data.mdx
>
> U nekterych polozek, ktere jsou typu String a delky 12 bych potreboval
> co nejjednoduseji zmenit velikost, tzn. aby po nejakem programovem
> zakroku mely vyslednou String-15 velikost.
>
> Neco jako v Database Desktop - Restructure.
>
> PS: Pres Table1.Fields.Field[3].Size zjistim velikost polozky 4
> (pocita se od nuly), ale jak ji zmenit ?
>
>
>
> Dik za kazdou radu. (Delphi5Pro, WinXP)Stlpec s checkboxom v TDBGrid
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 16.2.2002 21:29:22
Potrebujem pre jeden Boolean stlpec v DB zobrazit v DBGride
checkbox, niekedy mozno aj 3 stavovy.
Ako na to?
Mozete poslat example?
DBCtrlGrid a v nom DBCheckBox sa mi velmi nepozdava...
S pozdravom
J. Popluhar
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.323 / V�rusov� datab�za: 180 - d�tum vydania: 8. 2. 2002
Image a skrolovani - uz to mam
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 18.2.2002 18:16:20
Omlouvam se,
opravdu jsem na to mohl prijit sam a uz jsem na to i prisel. Huraaa :o)
Staci pouzit komponentu scrolllbox a do ni umistit Image.
Dekuji a jeste jednou se omlouvam.
Jirka
______________________________________________________________________
Jsi muz? Jsi spokojen se svym sexualnim zivotem nebo chces zvysit svou
sexualni vykonnost. Ted mas sanci. Chyt ji hned. http://www.zdravimuze(tec)cz Otvorenie excelu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 19.2.2002 09:08:20
Mam odpoved pouze na 2.
Stavalo se mi to pri vyvoji take. Je to stav, kdy je stale spusteny
excel.exe. Pokud si dobre vzpominam, nastavalo to pri ladeni, kdy se
sice provedl connect na excel ale uz ne korektne disconnect, protoze
jsem treba beh programu ukoncil predcasne pri ladeni. Staci execel.exe
odstrelit ze seznamu uloh a vse zase jede.
Na tvuj mail ti poslu nejake PAS, jak mi to funguje.
"Ing. Keder Vladimir" wrote:
>
> Otazka 2: (mozno odpoved je v otazke 1) Ak prvy krat spustim program naplni
> sa tabulka z excelu a excel sa korektne otvori. Ked zavriem excel a necham
> prebehnut proceduru na naplnenie tabulky, procedura sa vykona korektne,
> otvori excel, ale nevidiet pracovnu plochu excelu s mojou tabulkou. Vidiet
> menu, ikony, stavovy riadok ale po mojej tabulke ani chyru ani slychu. Ak
> vsak dam Prewiev (z excelu) zobrazi mi korektne nahlad na tabulku. Kde robim
> chybu ? Takto otvaram excel :
>
> begin
> try
> ExcelApplication.connect;
> except
> MessageDlg('Na tomto pocitaci nie je nainstalovany Excel',
> mtError,[mbOk], 0);
> Exit;
> end;
> ExcelApplication.Visible[0]:=False;
>
> ExcelApplication.Workbooks.Open(ExtractFilePath(ExpandUNCFileName(Applicatio
> n.EXEName))+'Evidencia dochadzky.xls', false,
> false,EmptyParam,'',false,false,EmptyParam,EmptyParam,false,false,EmptyParam
> ,false,0);
> ExcelWorksheet.ConnectTo(ExcelApplication.ActiveWorkbook.ActiveSheet as
> _Worksheet);
> ...
> ExcelWorksheet.Cells.Item[1, 1] := 'bla bla'; //a takto naplnam bunky
> hodnotami
> ...
> ExcelApplication.Visible[0]:=True;
> end;
>
> Dakujem za kazdu radu. S pozdravom
> Vlado
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Cas v tabulce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.2.2002 22:57:35
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Pokud se nepletu tak den zacina 00:00 a konci 24:00 a to je 24 hodin (1440
Ne, hodiny se cisluji od 0 do 23. Udaj 24:00 je stejne nesmyslny jako treba
21:60
Petr Vones
Rucni dokovani
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.2.2002 20:21:52
Form.ManualDock(PageControl);
Roman
>Dobry den,
> potreboval bych poradit s dokovanim. Chtel bych, aby se po
>vytvoreni formu tento form ihned zadokoval do predem zname
>komponenty, treba do PageControlu.
DBNavigator & click
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.2.2002 01:21:26
From: "cYd" <cYd(zv)seznam(tec)cz>
> jak mam odchytit udalost, ze bylo stisknuto tlacitko "Insert" z
> DBNavigatoru???
Ahoj,
budto udalosti OnBeforeInsert u napojeneho datasetu nebo misto DBNavigatoru
pouzij TToolBar a prislusne dataset akce, coz je asi lepsi reseni.
Petr Vones
Shutdown versus Logoff
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.2.2002 10:54:00
> Jak lze odlisit (zjistit) vypnuti PC a nebo pouhe odlogovani se ?
>
> Potrebuji to pro aplikaci ktera bezi jako service a pri odlogovani
se ma
> normalne bezet dal.
musis detekovat okenni zpravu WM_ENDSESSION.
Pokud je WordParam > 0 a LongParam ma nastaven bit ENDSESSION_LOGOFF
jedna se o odhlaseni usera
vice viz msdn.microsoft.com
D. Toman
Delphi & OpenGL
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 21.2.2002 12:31:29
From: skalsky(zv)oksystem(tec)cz
> Nemate nekde nekdo v zasobe nejakou dokumentaci
> (pdf, url, nebo alespon nazev knihy a autora)
> pro vyuziti OpenGL v Delphi ???
Take se podivej sem:
http://mengine.opengl(tec)cz/
Vaclav Krmela
Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 25.2.2002 00:22:38
> > (Casovy udaj 0:00:00) <> (0). Je to jiz nejaky casovy udaj. To
> > znamena, ze 24:00:00 - 0:00:00 = 23:59:59
>
> :-))))))) Aha, takze 10 - 0 = 9, ze?
0:00:00 v rovnici neznamena hodnotu casu (nula sekund),
ale je to oznacenie prvej sekundy. Teda neodpocitava sa
cas nula sekund ale cas tejto prvej sekundy (predstavme
si ju napr. ako tu sekundu, ktora je zobrazena na displayi
hodiniek ako 0:00:00). Trvanie tejto sekundy je presne
1s, preto po substitucii dostanem:
24:00:00 - 1 = 23:59:59 [s]
Originalna rovnica bola trochu nesikovne napisana, ale v texte
je bolo vysvetlene, len treba pozorne citat.
Erik
OT: konference o C++
[*] ZPS konference <delphi(zv)zps.skoda-auto(tec)cz> - 25.2.2002 11:49:53
Dobry den,
muzete mi nekdo prosim poradim dobry mailing list o C++, nebo primo
zamerenou na MS Visual C++.
Existuje archiv konference C++, tak jako u Delphi konference?
Existuje v cesku server zabivajici se C++, jaky zahranicni (v anglictine)
server o C++ byste mi doporucili.
Diky Ales Gregor
Minimalizace aplikace pri minimalizaci modalniho f
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 25.2.2002 12:12:14
Dobry den.
Mam hlavni formular aplikace Form1 a z nej pak otviram modalni formular
Form2 (ma border style bsSingle a je videt tlacitko pro minimalizaci
formulare). Potrebuji kdyz uzivatel klikne mysi na minimalizacni tlacitko
provest minimalizaci cele aplikace. Zkousel jsem toto :
TForm2 = class(TForm)
...
private
procedure DoSCMinimize(var Message: TWMSysCommand); message WM_SYSCOMMAND;
....
procedure TForm2.DoSCMinimize(var Message: TWMSysCommand);
begin
if (Message.CmdType and $FFF0 = SC_MINIMIZE) then
begin
SetActiveWindow(Application.Handle);
ShowWindow(Application.Handle, SW_MINIMIZE);
Message.Result:=0;
end;
To sice shodi aplikaci do listy, ale uz se nepovede obnovit aplikaci do
puvodniho stavu, (tlacitko v taskbaru nereaguje ani na leve ani na prave
tlacitko mysi)
Nevite nekdo jak toto osetrit ?
Marian Jonas
Instalace klienta IB
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 25.2.2002 13:29:35
snazim se vytvorit instalaci pro klientskou aplikaci IB6. Tato instalace by
mela "ocuchat" na kterem pocitaci bezi server s zapsat cestu do registru ve
tvaru SERVERNAME:C:\Data.database.gdb.
Jak udelat to "ocuchani" serveru.
Diky
TMemoStream
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 17:36:26
From: "Martin Bab�k" <M.Babik(zv)mus(tec)cz>
> lze nejak jednoduse (ne znak po znaku) nacist cast streamu do stringu. Napr.
> od pozice 5 do 15? Diky
function CopyFromStream(Stream: TCustomMemoryStream; Index, Length: LongWord):
string;
var
P: PChar;
begin
if (Index < 1) or (Stream.Size < Index) then
Result := ''
else
begin
Dec(Index);
if Index + Length > Stream.Size then
Length := Stream.Size - Index;
SetString(Result, PChar(LongWord(Stream.Memory) + Index), Length);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MS: TMemoryStream;
S: string;
begin
try
MS := TMemoryStream.Create;
MS.LoadFromFile('unit1.pas');
ShowMessage(CopyFromStream(MS, 6, 5));
finally
MS.Free;
end;
end;
Petr Vones
Balicky a menu u MDIChild
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 27.2.2002 13:04:37
D5
Lze pomoci Menu.GroupIndex prolinat menu MDIChildu (v package) a MDIFormu v
aplikaci?
Dekuji
Sroub
Jednozna�n� ur�en� po��ta�e
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.2.2002 21:27:16
From: "PeJaSoft" <pejasoft(zv)volny(tec)cz>
> Pouzij vice techto seriovych cisel. Treba pro 5 komponent a povol, ze max. 2
> komponenty se mohou zmenit.
Doufam ze tato zvracenost je patricne zvyraznena v licencni smlouve, aby vcas
odradila potencialni zakazniky.
Petr Vones
dll knihovny
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 28.2.2002 14:34:37
Ahoj,
>Nevim jak u C++ Builderu, ale standardni soucasti Delphi je utilita
>TDUMP.EXE,
>ktera Ti ty DLL vypise vcetne jmen importovanych rutin.
To same je i v Builderu
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Zobrazenie udajov na Canvas
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 28.2.2002 15:59:21
> From: bpodolak(zv)elanor.sk
>
> ...
> SetMapMode(Image.Canvas.Handle,MM_TEXT);
> Bitmap := TBitmap.Create;
> Bitmap.Height := ...
> Bitmap.Width := ...
Jakych hodnot nabyvaji rozmery Bitmapy?
Vaclav Krmela
OT: Re: Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 1.3.2002 00:07:28
> > ide o to, ze pokial stlpik ma povedzme sirku 10cm, tak nie je jedno,
> > ci ten stlpik patri mne alebo susedovi. Pretoze ak patri mne, tak
> > mam o tych 10cm dlhsi plot ako ked ten stlpik patri susedovi ;-).
>
> Je, protoze stejne jako u casu, kdy ho rozlisujeme napr. na sekundy
> apod.
> tak u primeru s plotem tomu odpovida delka plotu vyjadrena v poctech
> jeho dilu. Delka v cm je na tomto stupni abstrakce/rozliseni
> irelevantni.
ak uvazujes plot so stlpikami, tak sirku stlpikov MUSIS zohladnit
pri urceni dlzky plota, nech tu dlzku urcujes akokolvek. I ked tie
stlpiky nebudu mat vplyv na dlzku plota (budu "vedla plota", alebo
z urciteho hladiska bude ich sirka zanedbatelna), musis ich zohladnit
a povedat najprv, ze ich sirka dlzku plota neovplyvni a az tak urcovat
dlzku plota "bez nich". Len ak mas plot "bez stlpikov" (napr. ziskany
abstrakciou plota so stlpikami, ked ta zaujima dlzka plota a vies,
ze tie stlpiky ju neovplyvnia), tak o stlpikoch nemusis uvazovat
(lebo tam "nie su").
MUSIS rozlisovat medzi objektami "plot so stlpikami" a "plot
(bez stlpikov)", su to totiz odlisne objekty (z matematickeho hladiska),
pretoze prvy ma stlpiky a druhy nema (napriek tomu, ze obidva
objekty su abstrakciou rovnakeho skutocneho plota so stlpikmi).
Nemozes preto miesat jedno s druhym, podla toho ako sa Ti to
prave naramne hodi. Najprv porozpravat o plote so stlpikami
a potom povedat, ze stlpiky v nom "na danej urovni abstrakcie"
nie su (ze ich dlzka je irelevantna). Lebo na urovni abstrakcie
"plota so stlpikami" mam plot AJ SO STLPIKAMI a teda sirka
aj dalsie vlastnosti stlpikov SU RELEVANTNE, pretoze su
sucastou objektu "plota so stlpikami" a urcuju teda vlastnosti
tohto objektu. Napr. MOZU OVPLYVNIT dlzku plota,
ktora ma momentalne zaujima.
To akokeby si povedal, ze vo vyraze 1 + x premenna x nie je
relevantna lebo ved v niektorych pripadoch moze mat hodnotu 0.
Je ale NUTNE rozlisovat vyrazy 1 + x a 1 (prvy je funkcia,
druhy konstanta). A kym nemam jednoznacne urcene, ze x = 0,
tak ich nemozem medzi sebou miesat ako prave potrebujem.
> > Matematicky aparat mi umoznuje uvazovat lubovolnu i nekonecne
> > malu sirku stlpika a ani v takom pripade to na podstate veci nic
> > nemeni (aj ked dlzka plota v takom pripade bude rovnaka,
> > so stlpikom aj bez stlpika).
>
> IMHO tohle uz neni ani matematicky purismus, ale rigidita ;-)
no hej, matematicka preciznost a presnost sa daju vyjadrit roznymi
slovami. Rovnako aj ludska hlupost.
> To, ze si oznacim stejnolehle body na casove ose soucasne jako
> /D+1,00:00/ a jako /D,24:00/ neni v podstate nic jineho, nez prevod na
> stejne jednotky, abych mohl odecitat dva casove udaje od sebe, stejne
> jako kdyz chci odecist napr. 1m - 1cm, tak to musim nejprve prevest
> bud na 100cm-1cm nebo na 1m-0.01m nebo na jinou jednotku.
> A timto dvojim oznacenim se nic nezmeni na vlastnim fyzikalnim jevu
> stejne jako se nic nezmeni na delce plotu bez ohledu na to, komu patri
> sloupky nebo o kom si to ale.spon myslim....
Oznacovat mozes ako chces, ale nemozno robit chybne zavery
na zaklade rozneho oznacovania. Zamestnavatel mi azda neda
vyplatu, lebo na jeho casovej osi okamih vyplaty nebude "oznaceny"?
Alebo mozem taxikarovi odmietnut zaplatit za zvezenie, lebo voci
jeho autu sme nepresli ani meter?
Okamih 28.2.2002 00:00 NASTAL dna 28.2.2002 aj ked si ho
oznacim ako 27.2.2002 24:00 aj ked je "koncom" dna 27.2.2002
aj ked tento (teoreticky) nekonecne maly okamih neovplyvni
dlzku ziadneho dna. Pretoze v systeme, ktorym pocitame cas
si nemoze kazdy svojvolne definovat datumy ako sa mu zachce
alebo ako mu to prave vyhovuje, ale su jednoznacne definovane
tymto systemom (a to bez ohladu na to, ako si ich kto oznaci).
Nehovoriac o rozlisovani medzi okamihom (bodom na casovej
osi) 28.2.2002 00:00 a minutou (intervalom) oznacenou
28.2.2002 00:00 - nie je to to iste napriek tomu, ze mozu
byt oznacene rovnako. Tu uz zjavne nie je jedno, ci tuto minutu
zapocitam do 27.2.2002 alebo 28.2.2002, pretoze sa potom
meni celkova dlzka dna. Matematika pritom riesi tento problem:
umoznuje rozdelit casovu os (priamku) na rovnako dlhe disjunktne
intervaly zlava uzavrete sprava otvorene (t.j. casove useky, podla
ich velkosti mozu predstavovat minuty, hodiny, dni, ... ). Lubovolny
bod na casovej osi (okamih) potom patri do jedneho z intervalov
(teda mu mozem jednoznacne priradit hodnotu minut, hodin, atd.).
Erik
dll knihovny
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 1.3.2002 05:39:19
Ja mam pro presne takove pripady nainstalovany Wokenice 95 (uplne ta
nejzakladnejsi instalace) a tam zkousim. Kdyz zarve, ze chybi nejaka
knihovna, tak ji "prihraju" k programu a zkousim dal. Je to asi nejjistejsi
varianta.
Ohledne toho gds32.dll ... delal jsem si funkci v programu, ktera tu
knihovnu i zaregistruje, takze zadna instalace InterBase (samozrejme pouze v
pripade klienta) neni nutna.
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
> Rad bych sdilel tvoje nadseni pro vec, ale realita je nekde uplne jinde.
> 1. Nejde jen o to co potrebuje primo tvuj exe, ale i o to co je dale
potreba, takze musis projit vsechny knihovny.
> 2. Za behu mas sice z Delphi pristupny seznam dll, ALE to plati POUZE pro
dany okamzik, napriklad
> IBX knihovny nahravaji gds32.dll az v okamziku vytvareni prvni
komponenty.
> Ja jsem si zvyknul psat vsechny importy dll pres LoadLibrary a takto
lze nahrat treba dll
> definovane v ini (typicky plug in).
>
> Suma sumarum, jses schopen zjistit co potrebujes jiste, ale je to pouze
podminka nutna, nikoliv
> postacujici.
Pr�ru�ka program�tora Object Pascal alebo Delphi5
[*] Igor Svetl�k <igor.svetlik(zv)statistics.sk> - 1.3.2002 06:29:52
Ahojte ,
chcem Vas poziadat , ak niekto mate, o zaslanie v elektronickej forme
prirucku programatora (Zaklady programovania, alebo podobny nazov) v Object
Pascal alebo D5 pre samovzdelavanie a studijne ucely.
Dakujem,
Igor.Overload - pretezovana procedura
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 1.3.2002 06:30:40
Zdravim,
nechci pouzit pretezovanou proceduru:
procedure Kresli(var Grid: TDBGrid): overload
...
procedure Kresli(var Grid: TmujDBGrid): overload
...
Protoze obe procedury delaji jedno a to same, ale pouze typ je jiny.
Lze napsat proceduru nejak univerzalne, protoze v budoucnu pouziji mozna
jeste jiny "TjinyDBGrid" a budu muset delat treti proceduru?
Diky za napad Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Pr�ru�ka program�tora Object Pascal al
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.3.2002 06:40:03
Stahuj na http://www.borland.com/techpubs/delphi/v5/updates/ent.html
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.3.2002 "Igor Svetl�k":
> chcem Vas poziadat , ak niekto mate, o zaslanie v elektronickej forme
> prirucku programatora (Zaklady programovania, alebo podobny nazov) v Object
> Pascal alebo D5 pre samovzdelavanie a studijne ucely. Overload - pretezovana procedura
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 1.3.2002 06:47:03
Mozna by se ti to hodilo takhle
procedure Kresli(Grid: TObject);
begin
if Grid is TDBGrid then ..... { TDBGrid(Grid) }
if Grid is TmujDBGrid then .....{ TmujDBGrid(Grid) }
...
end;
> nechci pouzit pretezovanou proceduru:
> procedure Kresli(var Grid: TDBGrid): overload
> ...
> procedure Kresli(var Grid: TmujDBGrid): overload
> ...
>
> Protoze obe procedury delaji jedno a to same, ale pouze typ je jiny.
> Lze napsat proceduru nejak univerzalne, protoze v budoucnu pouziji mozna
> jeste jiny "TjinyDBGrid" a budu muset delat treti proceduru?
> Diky za napad Pavel
>
> ----- KOPR software -----
> Pavel ZIDEK
> http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
> dll knihovny
[*] voltrr1.epr(zv)mail.cez(tec)cz - 1.3.2002 06:54:38
Puvodni dotaz znel dll v mem projektu a proto jsem predpokladal
ze pokud programator neco natahuje dynamicky tak o to vy a tudiz
to nepotrebuje hledat. To ze by si mohli dynamicky natahovat dll i
komponenty a unity dalsi me teda nenapadlo.
Ale pro tento pripad se da pomerne slusne pouzit i Event log v delphi
kde pokud je zaskrtnuto Process messages se vypisuje hlaska
Module Load se jmenem knihovny. Problem je akorat ze nektere
knihovny maji u sebe No Debug Info. Nevite nekdo jak zjistim co jsou
zac tydle ???
> > Exaktne to jde a to i velmi jednoduse - tuto informaci napr.
> No ja bych si tim nebyl az tak uplne jisty :) Co dynamicky natahovane
Cus
Radek
Overload - pretezovana procedura
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.3.2002 06:58:55
A nebylo by jednodussi mit tu metodu implementovanou v objektu a primo
zavolat NejakyGrid.Kresli ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.3.2002 Bednar��k Dalibor:
> Mozna by se ti to hodilo takhle
> procedure Kresli(Grid: TObject);
> begin
> if Grid is TDBGrid then ..... { TDBGrid(Grid) }
> if Grid is TmujDBGrid then .....{ TmujDBGrid(Grid) }
> ...
> end;
>> nechci pouzit pretezovanou proceduru:
>> procedure Kresli(var Grid: TDBGrid): overload
>> ...
>> procedure Kresli(var Grid: TmujDBGrid): overload
>> ...
>>
>> Protoze obe procedury delaji jedno a to same, ale pouze typ je jiny.
>> Lze napsat proceduru nejak univerzalne, protoze v budoucnu pouziji mozna
>> jeste jiny "TjinyDBGrid" a budu muset delat treti proceduru?
>> Diky za napad Pavel
Avi nebo Mpeg from BMP,Jpeg
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 1.3.2002 06:59:16
Nevim, jestli to potrebujes primo ve svem programu nebo pouze pro
jednorazovy prevod. Pokud 2. moznost, stahni si VirtualDub
(www.virtualdub.org), ten od v. 1.48 podporuje BMP jako vstup.
S pozdravem
Ober
> -----P�vodn� zpr�va-----
> Od: pavel.ales(zv)popron(tec)cz [SMTP:pavel.ales(zv)popron(tec)cz]
>
> Ahoj kluci nevite nekdo jak udelat Mpeg nebo Avi z BMP ci Jpeg,existuje
> nejaka konponenta ci dll abych to mohl vytvaret?Neporadite mi?Pr�ru�ka program�tora Object Pascal alebo Delphi5
[*] Igor Svetl�k <igor.svetlik(zv)statistics.sk> - 1.3.2002 07:23:03
Myslel som v cestine alebo slovencine, uvedeny odkaz je v anglictine.
-----P�vodn� spr�va-----
Od: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
Pre: delphi-l(zv)clexpert(tec)cz <delphi-l(zv)clexpert(tec)cz>
D�tum: 1. marec 2002 7:13
Predmet: Re: Pr�ru�ka program�tora Object Pascal alebo Delphi5
Stahuj na http://www.borland.com/techpubs/delphi/v5/updates/ent.html
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.3.2002 "Igor Svetl�k":
> chcem Vas poziadat , ak niekto mate, o zaslanie v elektronickej forme
> prirucku programatora (Zaklady programovania, alebo podobny nazov) v
Object
> Pascal alebo D5 pre samovzdelavanie a studijne ucely.Pr�ru�ka program�tora Object Pascal al
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.3.2002 07:35:42
1.3.2002 "Igor Svetl�k":
> Myslel som v cestine alebo slovencine, uvedeny odkaz je v anglictine.
Tos ovsem ve svem dotaze neuvedl. Obaval se, ze neco takoveho budes
hledat velmi tezko.
Pokud mas Delphi, soucasti je dokumentace v PDF (anglicka)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
> 1.3.2002 "Igor Svetl�k":
>> chcem Vas poziadat , ak niekto mate, o zaslanie v elektronickej forme
>> prirucku programatora (Zaklady programovania, alebo podobny nazov) v
> Object
>> Pascal alebo D5 pre samovzdelavanie a studijne ucely.
Zobrazenie udajov na Canvas
[*] bpodolak(zv)elanor.sk - 1.3.2002 07:35:12
>
> ...
> SetMapMode(Image.Canvas.Handle,MM_TEXT);
> Bitmap := TBitmap.Create;
> Bitmap.Height := ...
> Bitmap.Width := ...
>
>Jakych hodnot nabyvaji rozmery Bitmapy?
> Vaclav Krmela
Bitmap.Height = 17195
Bitmap.Width = 1048
eXtreme Toys v D6
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 01.3.2002 07:43:01
ahoj,
nainstaloval jsem si experta warings.zip, balicek se mi automaticky
nahrava, kontroloval jsem i patricny klic v registrech (Know IDE
package - nebo tak nejak). Polozku v menu Projects vsak stale nemam.
Nevite nekdo, v cem je problem? Vyzkousel jsem to na D6 Ent i PE, u
obou se stejnym vysledkem. Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Chcete unikat n�strah�m p��rody, nebo zem��t nudou doma p�ed TV?
Vol�te-li prvn� variantu, b�te na http://ad2.seznam(tec)cz/redir.cgi?instance=22242%26url=http://www.adventura(tec)cz.Pr�ru�ka program�tora Object Pascal alebo Delphi5
[*] Igor Svetl�k <igor.svetlik(zv)statistics.sk> - 1.3.2002 07:55:21
Mam D5-Profi, ale prirucku vo formate pdf tam nemam, ani v adresari Doc, ani
v adresari Help, nevies v kom je asdresari ?
-----P�vodn� spr�va-----
Od: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
Pre: delphi-l(zv)clexpert(tec)cz <delphi-l(zv)clexpert(tec)cz>
D�tum: 1. marec 2002 7:40
Predmet: Re: Pr�ru�ka program�tora Object Pascal alebo Delphi5
1.3.2002 "Igor Svetl�k":
> Myslel som v cestine alebo slovencine, uvedeny odkaz je v anglictine.
Tos ovsem ve svem dotaze neuvedl. Obaval se, ze neco takoveho budes
hledat velmi tezko.
Pokud mas Delphi, soucasti je dokumentace v PDF (anglicka)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
> 1.3.2002 "Igor Svetl�k":
>> chcem Vas poziadat , ak niekto mate, o zaslanie v elektronickej forme
>> prirucku programatora (Zaklady programovania, alebo podobny nazov) v
> Object
>> Pascal alebo D5 pre samovzdelavanie a studijne ucely.
tisk souboru .pdf
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 1.3.2002 07:57:45
DD,
mam na disku adresar s nekolika soubory pdf. Chci je vsechny poslat na
tiskarnu, ale bez nutnosti je otevirat v Acrobatu a potvrzovat jakekoli
dialogove okna.
Nevite jak na to?
Tomas
Pr�ru�ka program�tora Object Pascal al
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.3.2002 08:19:12
Na CD, V adresari Documentation
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.3.2002 "Igor Svetl�k":
> Mam D5-Profi, ale prirucku vo formate pdf tam nemam, ani v adresari Doc, ani
> v adresari Help, nevies v kom je asdresari ?
Funkce FindFirst a spatne vyhledavani podle pripon
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 1.3.2002 08:22:31
Zdravim,
vytvoril jsem si funkci pro vyhledavani ve slozkach podle masky. Vse funguje
az na tento problem:
Pri zadani nejake 3-znakove masky (napr. *.pas) mi FindFirst vraci jak mnou
pozadovane soubory tak i ty, ktere maji koncovku delsi (treba *.pas0). Kdyz
jsem toto vyzkousel na kratsi koncovce (*.pa) tak bylo vse spravne. Zkusil
jsem pouzit i promo Windows funkci FindFirstFile a se stejnym vysledkem.
Muzete mi nekdo rici kde je bota.
Diky
D5Ent, W2000
teeChart editor
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 1.3.2002 08:30:04
To chcete r�ct, ze nemuzu s�rit ani tee*.bpl?
Mysl�m, ze muzu. Proc potom "licencne" nemuzu vyuz�t i runtime editor,
kdyz budu zn�t syntaxi tech procedur a budu *.bpl nac�tat jako *.dll?
P.S. Por�d vych�z�m z toho, ze tento editor je zkompilov�n v tee50.bpl a
teeui50.bpl.
Pokud to tak nen�, sdelte mi to, pros�m, at net�pu spatn�m smerem.
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 28, 2002 8:31 PM
Subject: Re: teeChart editor
> Puvodni zprava, kterou napsal Roman Macura dne 28 Feb 2002:
>
> > ale nemate nekdo tip na runtime editor teechart grafu?
> > Nebo dokumentaci funkci z tee50.bpl a teeui50.bpl (kde je ten editor
> > ulozeny)? Nebo nejake free VCL na grafy (aspon priblizne na urovni
> > teechart) ?
>
> Pokud pouzivas TeeChart Standard (obsazeny v Delphi), pak nemas licenci
> pro sireni runtime editoru. Tu obsahuje TeeChart Professional, ktery se
> kupuje.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ============================================================
> Petr Zahradnik, Computer Laboratory
> Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
> Telefony: 047-5500610, 047-5501627, 0602-409601
> Fax: 047-5511338
> WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
> E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
> ICQ: 21215917
> ============================================================
>
>
Pr�ru�ka program�tora Object Pascal alebo Delphi5
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 01.3.2002 08:31:04
ahoj,
mam par tutorialov v slovenskom jazyku z univerzity, a tiez mam tutorialy v
anglictine. pokial mas dost velku schranku :o), mozem ti to poslat.
jozo
>From: "Igor Svetl�k" <igor.svetlik(zv)statistics.sk>
>Reply-To: delphi-l(zv)clexpert(tec)cz
>To: <delphi-l(zv)clexpert(tec)cz>
>Subject: RE: Pr�ru�ka program�tora Object Pascal alebo Delphi5
>Date: Fri, 1 Mar 2002 07:55:21 +0100
>
>Mam D5-Profi, ale prirucku vo formate pdf tam nemam, ani v adresari Doc,
>ani
>v adresari Help, nevies v kom je asdresari ?
>-----P�vodn� spr�va-----
>Od: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
>Pre: delphi-l(zv)clexpert(tec)cz <delphi-l(zv)clexpert(tec)cz>
>D�tum: 1. marec 2002 7:40
>Predmet: Re: Pr�ru�ka program�tora Object Pascal alebo Delphi5
>
>
>1.3.2002 "Igor Svetl�k":
> > Myslel som v cestine alebo slovencine, uvedeny odkaz je v anglictine.
>
>Tos ovsem ve svem dotaze neuvedl. Obaval se, ze neco takoveho budes
>hledat velmi tezko.
>Pokud mas Delphi, soucasti je dokumentace v PDF (anglicka)
>
>--
>ing. Jan Fiala
>mailto:jan.fiala(zv)iol(tec)cz
>
>
> > 1.3.2002 "Igor Svetl�k":
> >> chcem Vas poziadat , ak niekto mate, o zaslanie v elektronickej forme
> >> prirucku programatora (Zaklady programovania, alebo podobny nazov) v
> > Object
> >> Pascal alebo D5 pre samovzdelavanie a studijne ucely.
>
>
>
>
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.Otevreni *.jpg
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 1.3.2002 08:39:32
Jak muzu otevrit *.jpg v nejakem openpicturedialog komponente? Existuje
neco?
Diky.Otevreni *.jpg
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 1.3.2002 08:41:49
A co ti brani v pouziti normalniho OpenPictureDialog ?
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
> Jak muzu otevrit *.jpg v nejakem openpicturedialog komponente? Existuje
> neco?
> Diky.
Nastaveni velikosti stranky pred tiskem
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 01.3.2002 08:50:44
Ahoj,
nevite nekdo jak napr. QReport provadi nastaveni velikosti tistene stranky?
Jde to nejak nastavit, nebo to je jen softwarove? Myslim, jako ze se ve
skutecnosti tiskne A4 a jen QReport posila tiskarne data na jiny rozmer papiru.
Diky
Jirka
______________________________________________________________________
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
Otevreni *.jpg
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 1.3.2002 08:52:59
No, v openpicture dialog jpg prece nejde otevrit...Jak programove nainstalovat balicek
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 1.3.2002 08:54:31
Ahoj,
vytvoril jsem si IDE experta, ktery vytvori balicek,
vygeneruje nejake komponenty a pridaje do tohoto balicku.
Pri vytvareni pouzivam IOTAProjectBuilder.
Nedari se mi ale programove pridat tento balicek do IDE Delphi.
Vzdycky ho musim znovu otevrit a dat "Install".
Nevite jak na to?
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz
tisk souboru .pdf
[*] Roman Toda <toda(zv)digitaldocuments.org> - 1.3.2002 09:00:41
acrobat /t "<file>" "<printer>" "<driver>" "<port>"
Citaj Acrobat Developer FAQ na http://partners.adobe.com
Roman
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Vida
> Sent: Friday, March 01, 2002 7:58 AM
> To: Delphi-L(zv)Clexpert(tec)cz
> Subject: tisk souboru .pdf
>
>
> DD,
> mam na disku adresar s nekolika soubory pdf. Chci je vsechny poslat na
> tiskarnu, ale bez nutnosti je otevirat v Acrobatu a potvrzovat jakekoli
> dialogove okna.
> Nevite jak na to?
>
> Tomas
>
> Otevreni *.jpg
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 1.3.2002 09:19:54
Mas na mysli nahled v okne OpenPictureDialog ? To by slo po mensi uprave,
ale normalni vyber Jpeg souboru samozrejme jde.
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
> No, v openpicture dialog jpg prece nejde otevrit...
Zobrazenie udajov na Canvas
[*] Werki <delphi(zv)minv.sk> - 1.3.2002 09:22:10
> Bitmap.Height = 17195
> Bitmap.Width = 1048
Heh, nuz tak chybu ti to vypise ked naplnas width...to je skoro 20MB len pri
8 bit farebnej hlbke a ked mas true color,
tak to nasob 3mi. Myslim ze W98 nezvladne ani polovicnu velkost. Musis to
robit trosku inac, napriklad cez subor
na disku. Ja som mal tiez problemy s resources.
Alebo skus obrazok rozdelit na napriklad 50 mensich bitmap a tlacit budes
vzdy po jednej strane (ak si spominam
xel si to tlacit)
Werki
Jak programove nainstalovat balicek
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 1.3.2002 09:24:21
> Ahoj,
> vytvoril jsem si IDE experta, ktery vytvori balicek,
> vygeneruje nejake komponenty a pridaje do tohoto balicku.
> Pri vytvareni pouzivam IOTAProjectBuilder.
> Nedari se mi ale programove pridat tento balicek do IDE Delphi.
> Vzdycky ho musim znovu otevrit a dat "Install".
> Nevite jak na to?
Zial, programovo asi jedine vyvolanim toho dialogu a simulovanim akcii
interaktivneho uzivatela (klknutie na checklistbox, OK button atd.).
OpenTools API to totiz nepodporuje a nie som si vedomy inej moznosti.
HTH
TOndrej
Zobrazenie udajov na Canvas
[*] bpodolak(zv)elanor.sk - 1.3.2002 09:32:40
> Bitmap.Height = 17195
> Bitmap.Width = 1048
> Heh, nuz tak chybu ti to vypise ked naplnas width...to je skoro 20MB len pri
> 8 bit farebnej hlbke a ked mas true color,
> tak to nasob 3mi. Myslim ze W98 nezvladne ani polovicnu velkost. Musis to
> robit trosku inac, napriklad cez subor
> na disku. Ja som mal tiez problemy s resources.
> Alebo skus obrazok rozdelit na napriklad 50 mensich bitmap a tlacit budes
> vzdy po jednej strane (ak si spominam
> xel si to tlacit)
> Werki
No, ja som uz tiez nad tym rozmyslal spravit to cez subor ... Ja mam spravene
nieco take ako hovoris ze rozdelit to na mensie bitmapy pri tlaci - zobrazim len
to co idem tlacit ... Ale pri zobrazovani by to nebolo ono, lebo ja xcem plynule
scrolovat, robit zoom a tak ... a cez subor sa mi to zda dost pomale ... To by
som musel si potom osetrovat aj pohyb scroolbaru ... Niekto mi tu poradil to
skusit cez Metafie, tak sa o to pokusam, ale neviem ...
Jak programove nainstalovat balicek
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 1.3.2002 09:45:19
> vytvoril jsem si IDE experta, ktery vytvori balicek,
> vygeneruje nejake komponenty a pridaje do tohoto balicku.
> Pri vytvareni pouzivam IOTAProjectBuilder.
> Nedari se mi ale programove pridat tento balicek do IDE Delphi.
> Vzdycky ho musim znovu otevrit a dat "Install".
> Nevite jak na to?
Este snad jeden sposob na instalaciu balicka, ale ten nie je vseobecny:
Mozes mat jeden designtime 'loader' balicek, ktory nebude nic robit, iba
bude vzdy nainstalovany.
Instalacia nejakeho ineho balicka potom moze spocivat v tom, ze si ho
skompilujes, pridas jeho .dcp do 'requires' toho 'loader' balicka a
prekompilujes ten 'loader' balicek. Tieto veci sa daju robit cez OpenTools
API.
Kedze 'loader' balicek je nainstalovany, Delphi urobi to, ze ho unloadne,
prekompiluje a reloadne, ale tentokrat uz musi natiahnut aj Tvoj novy
balicek, pretoze 'loader' je na nom zavisly.
Ale s odinstalovanim to uz myslim bude horsie.
To vyvolanie dialogu a 'klikanie' po nom v kode je sice hnusne, ale funguje
to v pohode.
HTH
TOndrej
Otevreni *.jpg
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 1.3.2002 10:01:03
A jak by mela ta zminena drobna uprava vypadat?Otevreni *.jpg
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 1.3.2002 10:02:11
Jak znamo, tak Delphi format Jpeg PODPORUJE. V Adresari Delphi
Source\Vcl\extdlgs.pas je trida TOpenPictureDialog. Staci "trosku" upravit
proceduru DoSelectionChange tak, aby v pripade vyberu Jpeg obrazku se prvni
ten obrazek nacetl do TJPegImage a pote prekopiroval do FPicture, ktere
slouzi k nahledu. V podstate to neni nic moc sloziteho ... pripadne se mi
ozvi na privat mail.
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
> A jak by mela ta zminena drobna uprava vypadat?
Zobrazenie udajov na Canvas
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 1.3.2002 10:04:39
> From: bpodolak(zv)elanor.sk
>
> Bitmap.Height = 17195
> Bitmap.Width = 1048
>
Takze problem vubec neni v kresleni na Canvas,
ale v alokaci bitmapy. Mam dojem, ze na Win98
se ti nepodari udelat bitmapu, ktera bude mit velikost
sirka*vyska*bar.hloubka+hlavicka vetsi jak 16 MB.
Myslim si, ze to oklikou pres bitmapu jenom
zbytecne komplikujes. Vykasli se na bitmapu
a vykresli to primo na Canvas. Nebo misto bitmapy
pouzij Metafile. Tam s velikosti problemy nebudou.
Priklad provedeni jsem ti uz ukazoval.
Vaclav Krmela
CompositeReport a Page Count
[*] Str�n�k Franti�ek - 1.3.2002 10:06:10
Pouzivam QuickReport ve kterem jsem pouzil komponentu CompositeReport
procedure Tapp01_wnd_tisk.QRCompReportAddReports(Sender: TObject);
begin
QRCompReport.Reports.Add(app01wnd_TiskVykazuO1.QuickRep1);
QRCompReport.Reports.Add(app01wnd_TiskInfoO1.QuickRep1);
end;
Chtel bych, aby se mi vsechny vypisovane stranky cislovaly nasledujicim zpusobem:
1/5
2/5
3/5
4/5
5/5
atd.
Komu mam vlastne dat band typu rbPageFooter tak, aby se mi stranky takto prubezne cislovaly ?
Kam umistim a jak zjistime celkovy pocet stranek (PageCount) ?
Dekuji za radu
zdrav�
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
tel. 02-67991481
Vice klavesovych zkratek k jedne akci
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 1.3.2002 10:10:16
Zdravim,
dekuji za odpoved, ale nemam pristup k Delphi 6.
Napadla me jeste jedna moznost a to sice u akci, kde bych chtel mit vice
klavesovych zkratek jednoduse vytvorit jeste jeden objekt TAction a v
OnExecute volat "rodicovskou" action. Tento pristup by urcite fungoval, ale
nejsem si jisty jak moc by to bralo systemove zdroje a pamet v pripade, ze
by takovych zdvojenych akci bylo hodne.
S pozdravem Marek Eichler
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)clexpert(tec)cz <delphi-l(zv)clexpert(tec)cz>
Datum: 28. �nora 2002 17:08
P�edm�t: Re: Vice klavesovych zkratek k jedne akci
>
>Toto je vyreseno v Delphi 6 kde mas vlastnost
TCustomAction.SecondaryShortCuts
>
>Petr Vones
>Otevreni *.jpg
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 1.3.2002 10:10:44
dekuji ti. Cau.Rozsireni Outlooku Express
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 1.3.2002 10:18:32
Zdravim,
vzhledem k tomu, ze pres SimpleMAPI nelze realizovat to co nutne potrebuji,
tak bych potreboval vedet jak udelat rozsireni Outlooku Express o odchyceni
nejakych udalosti (konkretne - pred smazanim) a take pridat do toolbaru
nejake tlacitko a odchytit jeho stisk. Nevite nekdo jak na to (urcite to
jde, protoze napr. AVG toto rozsireni ma a musi i odchycovat nejake ty
udalosti) ?
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
Update 2 pro D6 PE
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 1.3.2002 10:20:23
Ahoj,
stahnul jem si update 2 pro D6PE ale podle popisu nevim co tam bylo za
opravy. Je nutne prebudovat i jine balicky, ktere mam instalovane?
Diky
Ka.SMS pres NMSMTP
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 1.3.2002 10:23:48
Zkus to udelat nejak podobne :o)
If NMSMTP1.Connected then NMSMTP1.Disconnect;
While NMSMTP1.Connected do;
NMSMTP1.Host := Setup.SMTPHost; // smtp server
NMSMTP1.Port := Setup.SMTPPort; // port 25
NMSMTP1.UserID := Setup.SMTPUser; // login name
try
NMSMTP1.Connect;
If NMSMTP1.Connected then
begin
NMSMTP1.ClearParams := True;
NMSMTP1.SubType := mtPlain;
NMSMTP1.EncodeType := uuMime;
NMSMTP1.PostMessage.FromAddress := EditFromAddress.Text;
NMSMTP1.PostMessage.FromName := EditFromName.Text;
NMSMTP1.PostMessage.ToAddress.Text := C + P + PhoneNum + '(zv)' + Smtp;
//00420XXXXXX(zv)sms.eurotel(tec)cz
NMSMTP1.PostMessage.ToCarbonCopy.Text := '';
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := '';
NMSMTP1.PostMessage.Attachments.Text := '';
NMSMTP1.PostMessage.Subject := '';
NMSMTP1.PostMessage.LocalProgram := '';
NMSMTP1.PostMessage.Date := FormatDateTime('dd.mm.yyyy', Now);
NMSMTP1.PostMessage.ReplyTo := '';
NMSMTP1.PostMessage.Body.Text := MSX[1];
NMSMTP1.SendMail;
Success := True;
end;
finally
NMSMTP1.Disconnect;
end;
Robert Plz�k
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of mbartonek(zv)synthesia(tec)cz
Sent: Thursday, February 28, 2002 1:48 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: SMS pres NMSMTP
Ahoj,
D5 Ent.
Pokud posilam zpravu a prijemce je e-mail adresa tak mi to funguje.
Pokud misto e-mail adresy dam 0042XXXXXXXXXX(zv)sms.eurotel(tec)cz nahlasi mi
chybu
503 Issue RCPT TO : command before DA command
Dekuji
Bartonek Milan
---
P��choz� 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
---
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
Funkce FindFirst a spatne vyhledavani podle pripon
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 1.3.2002 10:43:16
Staci si to nasledne odfiltrovat. Stejne musis odfiltrovat jeste faVolume a faDirectory.
I1:=FindFirst(TempDir+'*.PAS', faAnyFile, SR1);
while I1=0 do begin
if (SR1.Attr and (faVolumeID or faDirectory)=0) and (UpperCase(ExtractFileExt(SR1.Name))='PAS')
then DeleteFile(TempDir+SR1.Name);
I1:=FindNext(SR1);
end;
Akorat nevim, zda ExtractFileExt() nevraci priponu i s teckou. Nutno vyzkouset.
S pozdravem Vaclav Riha
-----P�vodn� zpr�va-----
Od: L. Filip [SMTP:lfilip(zv)lekis(tec)cz]
Odesl�no: 1. b�ezna 2002 8:23
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Funkce FindFirst a spatne vyhledavani podle pripony
Zdravim,
vytvoril jsem si funkci pro vyhledavani ve slozkach podle masky. Vse funguje
az na tento problem:
Pri zadani nejake 3-znakove masky (napr. *.pas) mi FindFirst vraci jak mnou
pozadovane soubory tak i ty, ktere maji koncovku delsi (treba *.pas0). Kdyz
jsem toto vyzkousel na kratsi koncovce (*.pa) tak bylo vse spravne. Zkusil
jsem pouzit i promo Windows funkci FindFirstFile a se stejnym vysledkem.
Muzete mi nekdo rici kde je bota.
Diky
D5Ent, W2000
Overload - pretezovana procedura
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 01.3.2002 10:44:47
Tohle je preci idealni misto pro pouziti polymorfismu. Udelej si
nasledniky, virtualni metodu Kresli a pak volej TMusDbGrif.Kresli,
TMujDbGrid1.Kresli.
Pavel ZIDEK wrote:
>
> Zdravim,
> nechci pouzit pretezovanou proceduru:
> procedure Kresli(var Grid: TDBGrid): overload
> ...
> procedure Kresli(var Grid: TmujDBGrid): overload
> ...
>
> Protoze obe procedury delaji jedno a to same, ale pouze typ je jiny.
> Lze napsat proceduru nejak univerzalne, protoze v budoucnu pouziji mozna
> jeste jiny "TjinyDBGrid" a budu muset delat treti proceduru?
> Diky za napad Pavel
>
> ----- KOPR software -----
> Pavel ZIDEK
> http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
--
______________________________________________________
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
______________________________________________________
Odchyceni neosetrene vyjimky jine aplikace
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 1.3.2002 10:59:19
Dobry den,
mel bych jeden problem a nevim jak na nej.
Mam konzolovou aplikaci, ktera obcas spadne na vyjimku, ale tuto aplikaci
nemohu menit. Aplikace vubec vyjimky neosetruje a tak dojde na implicitni
odchycovac vyjimek, ktery vyhodi ve windows okno.
A toho okna bych se potreboval zbavit. Napadlo me, zda by neslo napsat
nejaky wrapper, ktery by danou aplikaci spustil a pokud by padla, osetril
vyjimku, aby nedoslo k vyskoceni okna.
Vim ze to neni systemove reseni, ale momentalne by to resilo situaci, nez
se podari s autory odstranit problemy (coz muze trvat i nekolik mesicu).
Pouzit nejaky zabijec oken je nemyslitelne, jelikoz na stroji bude
normalne pracovat clovek a tudiz se okna budou menit.
Mate nejakou radu? Ci staci odkaz, kde bych mohl najit reseni.
Diky
Vladimir Michl
---------------------------------------------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s., Stroj�rensk� 38, ���r nad S�zavou
pobo�ka Olomouck� 355, Hlubo�ky-Mari�nsk� �dol�
tel: +420 68 5353548, fax: +420 68 5352364
http://hlubocky.del(tec)cz
Jednozna�n� ur�en� po��ta�e
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 1.3.2002 11:13:02
Ahoj
### PeJaSoft napsal dne 28 Feb 2002, v 8:05 :
> Proc zvracenost? Pouziva to tak i Microsoft a spousta dalsich firem.
Sorry, ale tohle neni omluva! To, ze neco dela MS, jeste neznamena,
ze je to v poradku.
> Nase firma ma pres 3 000 zakazniku a ani jeden si nestezoval. Proste
> se zaregistruji a pokud nekdy zmeni vice komponent v pocitaci, tak nam
> zavolaji a preregistruji se. Nic na tom neni.
>
> S pozdravem
>
> Petr Jarkovsky
> pejasoft(zv)post(tec)cz
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director ICQ# 135770414
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
DBGrid - zmena vyska bunky
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 1.3.2002 11:38:22
Zdravim,
uz si nevim rady. Nevim jak po zvetseni pisma v nejakem slouci zvetsim taky
vysku bunky.
Diky Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Otevreni *.jpg
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 1.3.2002 11:39:13
> Jak znamo, tak Delphi format Jpeg PODPORUJE. V Adresari Delphi
> Source\Vcl\extdlgs.pas je trida TOpenPictureDialog. Staci
> "trosku" upravit proceduru DoSelectionChange tak, aby v
> pripade vyberu Jpeg obrazku se prvni ten obrazek nacetl do
> TJPegImage a pote prekopiroval do FPicture, ktere
> slouzi k nahledu. V podstate to neni nic moc sloziteho ...
> pripadne se mi ozvi na privat mail.
To znie dost zlozito :-)
Uplne staci mat zaregistrovany format pomocou TPicture.RegisterFileFormat.
Unita jpeg.pas (je myslim na Delphi CD v podadresari Extras), to presne
robi; v sekcii initialization.
Z toho vyplyva:
Na to, aby Tvoja aplikacia mohla pouzivat JPEG format staci, aby pouzila
unitu jpeg.
Na to, aby Delphi IDE mohla pouzivat JPEG format staci, aby bol
nainstalovany akykolvek balicek obsahujuci unitu jpeg.
V Delphi 6 je to automaticke: unita jpeg je zabalena vo vcljpg60.bpl, a ta
je natahovana automaticky IDE balickom delphide60.bpl pri kazdom starte IDE.
Tusim, ze je to podobne uz od Delphi 4.
HTH
TOndrej
Jak zjistit hodnotu generatoru
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 1.3.2002 12:38:33
Ahoj,
potreboval bych zjistit aktualni hodnotu generatoru. V systemove tabulce
RDB$GENERATORS jsem ulozenou aktualni hodnotu nenasel.
Vi nekdo jak ji zjistit?
Predem dik
Ales Janda
Zobrazenie udajov na Canvas
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 1.3.2002 12:45:09
>
> No, ja som uz tiez nad tym rozmyslal spravit to cez subor ... Ja mam
spravene
> nieco take ako hovoris ze rozdelit to na mensie bitmapy pri tlaci -
zobrazim len
> to co idem tlacit ... Ale pri zobrazovani by to nebolo ono, lebo ja xcem
plynule
> scrolovat, robit zoom a tak ... a cez subor sa mi to zda dost pomale ...
To by
> som musel si potom osetrovat aj pohyb scroolbaru ... Niekto mi tu poradil
to
> skusit cez Metafie, tak sa o to pokusam, ale neviem ...
>
>
Ja vubec nevidim duvod, proc to mit uchovane v pameti cele. Proste se
pouziji
vhodne transformace a vykresli se vse na Image1.Canvas (napr.). Win to oreze
a je tam jen cast. Pri zmene posunuti ci zoomu se vynuti nove vykresleni.
Alexandr STEFEK
TOleContainer a prace s Wordwm
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 1.3.2002 13:12:09
Dobry den,
Nemate nekdo priklad ktera k pracovat s dokumentem otevrenym v
TOleContaineru?
Nemuzu prijit na postup jak programove otevrit a mit moznost pracovat s
dokumentem, jedna se mi o vkladani a prepisovani textu a nakonec tisk.
Lze tomu jeste nastavit, aby to bylo pro uzivatele read only?
Nebo existuje nejake jine reseni, kdy poterbuji otevrit a ukazat dokument
(sablonu) ve Wordu, provest upravy a vytisknout? Navic bych to potreboval
pro pomerne dost velke mnozstvi (cca 600 otevreni doc, upravy a volitelne
tisk, uzavreni a znova, tedy ne 600 v jednom okamziku).
Dekuji
Zdenek Janish
Jak zjistit hodnotu generatoru
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 1.3.2002 13:23:31
funkci gen_id(<generator>, <increment>)
treba:
select
GEN_ID(MujGenerator, 1)
from
rdb$generators
where
upper(rdb$generator_name)='MUJGENERATOR'
ti vrati prave jednu hodnotu generatoru a
zvedne jej o 1. increment muze byt i zaporny
nebo nulovy, ale nedoporucuje se to delat,
teda hlavne kdyz potrebujes vzdy jedinecnou
hodnotu.
dekuji PeC(zv)Jak zjistit hodnotu generatoru
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 1.3.2002 13:58:51
On 1 Mar 2002, at 12:38, Ales Janda wrote:
> potreboval bych zjistit aktualni hodnotu generatoru. V systemove
> tabulce RDB$GENERATORS jsem ulozenou aktualni hodnotu nenasel.
Jestli je to IB, tak prikaz
GEN_ID(jmeno_generatoru, 0)
Z.Kalhous
ActionList
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 1.3.2002 14:04:48
Ahoj,
muzete mi prosim poslat nekdo priklad na pouziti ActionListu ?
Diky
Vasek
Systemove barvy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.3.2002 14:17:34
From: "Ka.Kewasa" <kewasa(zv)quick(tec)cz>
> potreboval bych zmenit ve sve aplikaci barevne schema, ale pouziti tipu 735
> z knihy 1001 tipu a triku nefunguje tak jak je popsano (resp. funguje, ale
> zmeni mi docasne barvy v cele session i pro jine programy a system). Ptam
> se, jak docilim tehoz, ale jen pro svoji aplikaci?
Tak, ze si nadefinujes vlastni barvy a ty pak priradis do vsech vlastnosti
Color. U nekterych ovladacich prvku ovem nelze nastavit jinou nez systemovou
barvu.
Petr Vones
Update 2 pro D6 PE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.3.2002 14:20:07
From: "Ka.Kewasa" <kewasa(zv)quick(tec)cz>
> stahnul jem si update 2 pro D6PE ale podle popisu nevim co tam bylo za
> opravy. Je nutne prebudovat i jine balicky, ktere mam instalovane?
Pokud ti jdou nahrat tak to treba neni.
Petr Vones
Word pres OLE a zmena fontu na jednom radku
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 1.3.2002 14:48:33
Ahoj,
potrebujeme z D6P vyvolat Word (coz neni problem) a na jednom
radku menit fonty (Bold - normal), ale NEDARI se.
kousek kodu:
procedure Set_BoltFont(F : integer);
begin
WordFont.ConnectTo(WordDocument.Sentences.Get_Last.Font);
WordFont.Bold := F;
end;
...
Set_BoltFont(1);
TxLine := 'Tlustoch text';
WordDocument.Range.InsertAfter(TxLine);
Set_BoltFont(0);
TxLine := ' a ted normale text';
WordDocument.Range.InsertAfter(TxLine);
...
Muze nekdo poradit ?
Dekuji,
a preji hezky den,
Jarek Uher
OT: Pascal a pam�
[*] Rainbow Dark <rainbof(zv)seznam(tec)cz> - 1.3.2002 15:18:52
kdysi na netu b�hala sada unitu CIA tam byl dost vymakanej spravce pameti
XMS a EMS kterej tusim sel pouzit i v real modu
adresa je www.ms.mff.cuni(tec)cz/~shrb5163 ale nevim jestli jeste plati
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 25, 2002 8:02 PM
Subject: Re: OT: Pascal a pam�> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> > Pokud pouzijes misto TurboPascalu BorlandPascal (obe jsou verze tusim
> > 7.0), mely by se tve problemy vyresit.
>
> Castecne. Ziskas tim DPMI kde takto muzes alokovat z vice nez zakladni
640k
> pameti, ovsem stale jen v 64k blocich protoze ta verze je pouze 16ti
bitova,
> coz je IMHO porad k nicemu. Navic pokud se jedna o nejakou aplikaci ktera
> pristupuje k hardwaru tak pouziti DPMI obcas zpusobovalo problemy (bylo to
> pomalejsi). Mozna by bylo efektivnejsi to prepsat jako normalni aplikaci
nebo
> tu veselost prenechat nekomu v Technickem Muzeu.
>
> Petr Vones
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
ActionList
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.3.2002 15:24:56
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
> muzete mi prosim poslat nekdo priklad na pouziti ActionListu ?
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=2
Petr Vones
Kniha 1001 tipu a triku pro Delphi
[*] Rainbow Dark <rainbof(zv)seznam(tec)cz> - 1.3.2002 15:25:26
Ten soubor RES pokud jsem to spravne pochopil TEST.RES je normalni Resource Object takze si ho muzete vytvorit pomoci Resource Workshopu.
----- Original Message -----
From: Igor Svetlik
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, February 25, 2002 2:48 PM
Subject: Kniha 1001 tipu a triku pro Delphi
Zdravim Vas vsetkych. Moj problem spociva v tom ze v uvedenej knihe je na s.121 priklad c.327 Nacteni obrazku ve formatu JPG ze souboru zdroju ( v danom priklade ma soubor zdroju meno TEST.RES). Cely priklad mi je viacmenej jasny, nie je mi vsak jasne, ako vytvorim uvedeny soubor zdroju TEST.RES . Uvital by som napisanie celej procedury, pripadne i priklad volania tejto procedury s parametrami ako vytvorit uvedeny soubor zdroju obrazkov jpg. V priklade chyba navod, ako uvedeny soubor zdroju vytvorit.
Vopred dakujem.
Igor Svetlik
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
ActionList
[*] Hou�vi�ka Jan <houzvickaj(zv)threeman(tec)cz> - 1.3.2002 15:35:42
Veformul��i ud�lej tla��tko Btn1 a Edit Edt1;
V actionlistu vytvo� akci acNapln;
Caption t�to akce dej Napl�
procedura:
procedure TForm1.acNaplnExecute(Sender: TObject);
begin
Edt1.Text:='Napln�no';
end;
.....
Na tla��tku Btn1 vaber pouze polo�ku Action a v n� acNaplnExecute
a zkus to
Honza
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of LUKES V�clav
Sent: Friday, March 01, 2002 2:05 PM
To: D konference (el. adresa)
Subject: ActionList
Ahoj,
muzete mi prosim poslat nekdo priklad na pouziti ActionListu ?
Diky
Vasek