Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
editor v TStringGrid
[*] RNDr. Milan Vorisek <vorisek(zv)igtt(tec)cz> - 23.2.2005 08:53:24
Ve stringgridu se mi obcas objevi na nahodnem miste
editor, ktery nekdy presahuje i hranice bunky. Tento editor
pak roluje s bunkami a nezmizi ani kdyz vyberu jinou bunku.
Zmizi az kdyz se dostane mimo stringgrid. Kdyz se vratim
na to misto, uz tam neni.
S InplaceEditorem nepracuji a mam vypnuty goEditing.
Je to v D5.
Cim by to mohlo byt?
M.Vorisek
FireBird a pole typu GUID
[*] Winsoft <winsoft(zv)netkosice.sk> - 22.2.2005 23:32:45
> No to ja pro DB s replikacemi generuju ID, ktere obsahuje v trech
nejnizsich
> radech (jednotky, desitky, stovky), kod stanice (DB serveru), ktery jej
> vygeneroval.
dalsie (podobne) riesenie by mohlo byt take, ze sa ako ID
zaznamu pouzije obycajne autoinkrementacne cislo a do
replikovanej tabulky sa prida este jedna ciselna polozka
navyse a to hodnota ID-cka z originalnej tabulky. A podla
tejto hodnoty originalneho ID-cka potom mozno zaznam
synchronizovat medzi replikou a originalom. Tento system
by mohol spajat vyhody jednoducheho, maleho a rychleho
ID-cka a vcelku jednoduchej synchronizacie ale odskusane
v praxi to zatial nemam
Erik
FireBird a pole typu GUID
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 22.2.2005 21:24:36
Neni s tim problem staci si vytvorit (nebo stahnout) vlastni UDF ktere
tohle umi. No ale vzhledme k tomu ze GUID zadavas asi do charu(32) (teda
predpokladam ze 32 a ne 38 to je nejake divne cislo). Zapisuj se ho v
jeho sestnactkove podobe.
Co tak zmenit sestnactkovou podobu na 256 a tim usetrit polovinu mista?
Ja to tak delam a beha to v pohode.
Lukas Benda
>Ahoj
>
>mate nekdo zkusenosti, jak se projevi na vykonu databaze, kdyz misto
>klasickeho ID vytvoreneho internim generatorem budu pouzivat znakove pole o
>38 znacich.
>Musim v databazi zabezpecit moznost replikaci coz generovane ID moc
>neumoznuje.
>
>Dik za kazdou zkusenost
>
FireBird a pole typu GUID
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 22.2.2005 19:58:30
No to ja pro DB s replikacemi generuju ID, ktere obsahuje v trech nejnizsich
radech (jednotky, desitky, stovky), kod stanice (DB serveru), ktery jej
vygeneroval.
Tomas Bradle
t.bradle(zv)sanet(tec)cz
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: "Fait" <develop(zv)lmss(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 21, 2005 8:42 PM
Subject: FireBird a pole typu GUID
> Ahoj
>
> mate nekdo zkusenosti, jak se projevi na vykonu databaze, kdyz misto
> klasickeho ID vytvoreneho internim generatorem budu pouzivat znakove pole
o
> 38 znacich.
> Musim v databazi zabezpecit moznost replikaci coz generovane ID moc
> neumoznuje.
>
> Dik za kazdou zkusenost
keyloger v delphi win98
[*] david.kopecek(zv)hacktrack(tec)com - 22.2.2005 17:48:19
Zdravim konferenci
nemate nekdo jednoduchy kod ktery umozni odchytavat stisnute klavesy
ve Windows98 ?.
Neco jsem kdysi mel ale nejak to nemuzu v supliku najit..
Thx
David
Vytvoreni UUID v Delphi - was: FireBird a pole typ
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.2.2005 17:44:19
Petr Svejda wrote:
> a jak takove UUID v Delphi vytvorim? Nikde v konferenci jsem to
> nenasel.
Pomoci CreateGUID() si vygenerujes nove GUID o velikosti 16 bytu a ty
zakodujes
do Base64. Dostanes (16/2)*3 = 24 znaku * 6 =144 bitu, ale protoze mas jen
128 bitu,
tak posledni 2 znaky jsou vzdy pad "=", ktery se da vypustit.
Provozujeme to na MSSQL, PostgreSQL a SQLite k naproste spokojenosti.
Ovsem vykonove srovnani, jak by stejna uloha bezela v pripade
autoincrementu,
nemame, protoze od sameho zacatku pouzivame GUID.
HTH, pf
Vytvoreni UUID v Delphi - was: FireBird a pole typ
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 22.2.2005 16:22:13
a jak takove UUID v Delphi vytvorim? Nikde v konferenci jsem to nenasel.
Petr
www.isoft(tec)cz
-----Original Message-----
> mate nekdo zkusenosti, jak se projevi na vykonu databaze, kdyz misto
> klasickeho ID vytvoreneho internim generatorem budu pouzivat znakove pole
o
> 38 znacich.
> Musim v databazi zabezpecit moznost replikaci coz generovane ID moc
> neumoznuje.
Pokud uvazujes o replikacich, vubec bych nepremyslel o necem jinem, nez je
GUID
akorat spise pouzij kompresovany UUID, ten ma jen tusim 22 znaku.. Vykon to
zase tak nezatezuje a urcite se vyhnes spouste jinych problemu..Ukonceni Windows
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 22.2.2005 15:42:10
ExitWindowsEx (EWX_SHUTDOWN or EWX_POWEROFF,0);
Vaclav Sazima
Ing. Dubsky Jan wrote:
> Jak se da programove v dany cas ukoncit Windows 98 z moji aplikace tedy
> provest shut down, a legalne pozavirat pripadne dalsi aplikace, ktere jsou v
> te dobe spustene
FireBird a pole typu GUID
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 22.2.2005 14:50:06
"Fait" wrote:
> mate nekdo zkusenosti, jak se projevi na vykonu databaze, kdyz misto
> klasickeho ID vytvoreneho internim generatorem budu pouzivat znakove pole
o
> 38 znacich.
> Musim v databazi zabezpecit moznost replikaci coz generovane ID moc
> neumoznuje.
Pokud uvazujes o replikacich, vubec bych nepremyslel o necem jinem, nez je
GUID
akorat spise pouzij kompresovany UUID, ten ma jen tusim 22 znaku.. Vykon to
zase tak nezatezuje a urcite se vyhnes spouste jinych problemu..
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
TClientDataset-rozsireni o field
[*] MAd <mad(zv)worldmail(tec)cz> - 22.2.2005 14:24:00
Zdravim,
v aplikaci pouzivam TClientDataset a data ukladam standardnim zpusobem do
souboru. Jakym zpusobem se da rozsirit Dataset o dalsi field(y) tak, aby
nebylo nutne konvertovat data v souboru ? Pokud pridam field, tak mi to
zahlasi chybu, ze nebyl nalezen (v souboru).
Dekuji za napovedu. S pozdravem Michal Adamek
OT: Nabidka zemestnani v Ostrave
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 22.2.2005 13:53:57
Zdravim:
nase firma hleda programatora
podminky:
dobra znalost Delphi,
znalost OOP,
pasivni znalost anglictiny (aktivni znalost vyhodou)
ochota ucit se novym vecem.
znalost databazi (neni podminkou)
samostatnost
schopnost analyzy problemu
dale hledame testera
podminky:
pasivni znalost anglictiny (aktivni znalost vyhodou)
peclivost
znalost SQL databazi
samostatnost
nabizime zajimavou praci v dobrem kolektivu
pouze HPP, pracoviste v Ostrave-Hrabuvce
odpovidejte na adresu jobs(zv)casestudio.com
Radim Kunz
CHARONWARE, s.r.o.Ukonceni Windows
[*] Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz> - 22.2.2005 13:43:56
Jak se da programove v dany cas ukoncit Windows 98 z moji aplikace tedy
provest shut down, a legalne pozavirat pripadne dalsi aplikace, ktere jsou v
te dobe spustene
Diky za radu
Honza
IBTransaction a Event
[*] MUDr.Patrik Valenta <valentapat(zv)volny(tec)cz> - 22.2.2005 08:41:32
Zdravim konf.
Mam problem se zaseknutim programu kdyz: (FB)
- StartTransaction
- INSERT do tabulky
- COMMIT
FB vyvola Event reagujici na INSERT
- v obsluze Eventu se tyto zaznamy ihned mazou DELETE FROM...
Poprve po spusteni to probehne OK, dale to probiha OK kdyz ladim a mam
Breakpointy, tzn. ze to nekde zdrzim.
Dalsi pokusy se zvejknou a program zmrzne
doufam ze jsem pochopen, a dekuji valik
Fast report 3 a vynechani radku pri tisku
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 22.2.2005 08:33:30
Ahoj
seznamuji se s Fast-Report 3 a jedine co mi asi schazi je moznost pri
tisku stitku urcit kolik se jich ma na zacatku vynechat.
(protoze jiz byly v predesle davce na archu potisteny).
Reseni do databaze pridat virtulni prazdne radky nejde, protoze by se
stejne tiskla napevno zadana grafika
Diky Jirka
FireBird a pole typu GUID
[*] Fait <develop(zv)lmss(tec)cz> - 21.2.2005 20:42:40
Ahoj
mate nekdo zkusenosti, jak se projevi na vykonu databaze, kdyz misto
klasickeho ID vytvoreneho internim generatorem budu pouzivat znakove pole o
38 znacich.
Musim v databazi zabezpecit moznost replikaci coz generovane ID moc
neumoznuje.
Dik za kazdou zkusenost
***SPAM*** Re: Nakup Delphi v zahranicnich obchode
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 21.2.2005 14:10:12
Predem se omlouvam za prispevek s nulovou informacni hodnotou.
Coz, ten tvuj je take.
> prave mi prisla docela zajimava nabidka na koupi Delphi v prepoctu za
> 1800Kc. Na adrese http://txst.anflnhbegb.info/OE017/. Teda kdyz pominu
Jsi mne fakt rozesmal :-). Aspon nejake zpestreni dne. Ale k veci:
> to ze je to az podezrele levne. Chci se zeptat jeslti mohu koupit
> produkt Delphi v zahranicni On-line shopu, je pak ta licence platna i v CR?
Samozrejme.
Borland CZ je jen prekupnik s krabiceni a diskutabilni urovni sluzeb.
Si uvedom co kupujes a ne od koho. Kupujes v prvni rade licenci a je
uz celkem fuk kde ji koupis.
Vaclav Halik
Nakup Delphi v zahranicnich obchodech (licence)
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 21.2.2005 14:34:15
> > Si uvedom co kupujes a ne od koho. Kupujes v prvni rade
> > licenci a je uz celkem fuk kde ji koupis.
>
> Jen bych chtel upozornit na jeden drobny detail. Delphi je nutno aktivovat u
> Borlandu. Jestlize tam zjisti neplatnou licenci, jedna se o vyhozene penize.
> Proto je na miste si predem zjistit, zda takova firma prodava ciste zbozi.
>
> S pozdravem
>
> Zbysek Hlinka
Tak, tak. Zbysek doplnil mou odpoved k dokonalosti.
Proste pokud vis, ze je to prodejce poctivec, a nepodvede te, tak klidne
si to muzes koupit v treba v australii. (Je ovsem otazka jak to zjistis,
ze prodejce neni povodnik). Takze jednoduse receno:
Zapomen na vyhodne koupe. Nikdy a nikde te to nebude stat min nez je
cena v On-Line shopu Borland.com
Pokud vim cena byla jednoho casu dobra treba ve Francii (ve srovnani
s cenou v cechach), ale za francouzke Delphi. A ja osobne nevim co by
delal bezny cech se softem ktery je lokalizovany do francouzstiny.
Kup si Delphi od Borlandu v cechach a usetris si starosti, nebo jestli
nekdo znamej jede do statu at ti ho doveze ze statu.
Jina rada neni.
Vaclav Halik
Nakup Delphi v zahranicnich obchodech (licence)
[*] Petr Vones <konference(zv)petrvones(tec)net> - 21.2.2005 14:34:15
From: "Benda Lukas" <bendal(zv)volny(tec)cz>
> prave mi prisla docela zajimava nabidka na koupi Delphi v prepoctu za
> 1800Kc. Na adrese http://txst.anflnhbegb.info/OE017/. Teda kdyz pominu
> to ze je to az podezrele levne. Chci se zeptat jeslti mohu koupit
> produkt Delphi v zahranicni On-line shopu, je pak ta licence platna i v CR?
Uz z te adresy a celkoveho stylu prezentace firmy je zjevne, ze se s velkou
pravdepodobnosti jedna o nelegalni kopie.
Licence zakoupena v zahranici je v zasade platna, nicmene platilo ze ceske
zastoupeni ti pak tady na takovou licenci neproda pripadny upgrade. Rozdil v
cenach u nas a v zahranici je dnes uz pomerne zanedbatelny. Na druhou stranu
je vcelku bezne kupovat software napriklad pres eBay (i zde samozrejme hrozi
nebezpeci koupe nelegalni kopie), pokud vim tak licence je vsak prevoditelna
pouze se souhlasem Borlandu. Urcite se to resilo v newsech u Borlandu, takze
staci prohledat borland.public.delphi.non-technical
Petr Vones Nakup Delphi v zahranicnich obchodech (licence)
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 21.2.2005 14:16:13
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Vaclav Halik
> Sent: Monday, February 21, 2005 2:10 PM
>
> Si uvedom co kupujes a ne od koho. Kupujes v prvni rade
> licenci a je uz celkem fuk kde ji koupis.
Jen bych chtel upozornit na jeden drobny detail. Delphi je nutno aktivovat u
Borlandu. Jestlize tam zjisti neplatnou licenci, jedna se o vyhozene penize.
Proto je na miste si predem zjistit, zda takova firma prodava ciste zbozi.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Jake delphi
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 21.2.2005 12:22:03
> > V delphi 7 mozem pouzit TClientDataset bez platenia dodatocnych
> > icencii.
> > To snad v D6 taky - alespon v D6Pro.
> Aha tak tato zmena bola oprosti 5.0
Ta zmena prisla spolu s dbExpress, kterej si bez TClientDataSet neskrtne.
Tak nam ho museli Borlandi dat to D6Pro, kdyz predtim byl jenom v D5Ent.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Nakup Delphi v zahranicnich obchodech (licence)
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 21.2.2005 14:00:11
No nevim ja Tobe, ale me se zda uz jen ta domena velice podezrela a ty ceny
jeste podezrelejsi. Nejspise se jedna o warez takze doporucuji - RUCE PRYC
!!!
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Benda Lukas
> Sent: Monday, February 21, 2005 1:12 PM
>
> prave mi prisla docela zajimava nabidka na koupi Delphi v
> prepoctu za 1800Kc. Na adrese
> http://txst.anflnhbegb.info/OE017/. Teda kdyz pominu to ze je
program startujuci ako prvy
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 21.2.2005 13:12:08
Ahoj...
Napis si sluzbu, ktera spusti, co si vydefinujes ty. Zaroven tak zajistis,
ze se tak stane jeste pred prihlasovacim dialogem. Pokud to spusti sluzba,
budes mit dost vysoka prava na to, aby to slo.
Milan
----- Original Message -----
From: "Ondrej Krsko" <ondrej.krsko(zv)zoznam.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 21, 2005 12:42 PM
Subject: program startujuci ako prvy
> Ahoj,
>
>
> potreboval by som z mojho EXE pracovat s nejakymi subormi, ktore su drzane
> inymi procesmi. Nie je problem restart - dolezite pre mna je, aby sa moj
> program spustil skor ako ostatne.
>
> Kam ho mozno umiestnit? Startup, Registre\Run, (aj tie programy sa casto
> spustaju prave v tychto miestach)... ?
>
>
> Neda sa jednoducho napodobnit napr. funkcionalita chkdsk, pripadne
> niektorych utilit z Norton Utilities?
>
>
> Staci pre WinNT a vyssie (2k,XP)
>
>
> Dakujem.
>
>
> OT: Nakup Delphi v zahranicnich obchodech (licence
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 21.2.2005 13:12:08
Dobry den,
prave mi prisla docela zajimava nabidka na koupi Delphi v prepoctu za
1800Kc. Na adrese http://txst.anflnhbegb.info/OE017/. Teda kdyz pominu
to ze je to az podezrele levne. Chci se zeptat jeslti mohu koupit
produkt Delphi v zahranicni On-line shopu, je pak ta licence platna i v CR?
Lukas Benda
TXMLDocument & PrologValue
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 21.2.2005 12:58:07
Pouzi funkciu NewXMLDocument, vracia rozhranie IXMLDocument;
Slavo
TXMLDocument & PrologValue
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 21.2.2005 12:54:06
Zdravim vsechny,
mam dost veliky problem u tridy TXMLDocument.
Snazim se rucne vytvaret nejaky XML dokument a potrebuji nastavit atribut
Version v prologu. Jenze tohle se mi proste nedari a nedari.
Provedene pokusy:
1.:
Doc := TXMLDocument.Create(nil);
Doc.DOMVendor := GetDOMVendor('MSXML');
Doc.Version := '1.0'; //<--- tady to spadne na vyjimku AV - neni dostupny
IDOMDocument
2.:
Doc := TXMLDocument.Create(nil);
Doc.XML.Clear;
Doc.XML.Add('<?xml version="1.0" ?>');
Doc.XML.Add('<RELDP />');
Doc.Active := true;
TmpNode := Doc.ChildNodes.FindNode('RELDP'); //<--- tady to spadne na
vyjimku AV neznamo kde (nekde v implementaci IXMLNode)
Nemate nekdo funkcni priklad vytvareni XML dokumentu s nastaveni prolog
value ???
Diky moc - dost to hori
S pozdravem
Milan Tomes
P.S.: Jake tridy / rozhrani pouzivate pro vytvareni XML dokumentu ??? Zkuste
mi prosim poslat kousek zdrojaku...
program startujuci ako prvy
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 21.2.2005 12:42:05
Ahoj,
potreboval by som z mojho EXE pracovat s nejakymi subormi, ktore su drzane
inymi procesmi. Nie je problem restart - dolezite pre mna je, aby sa moj
program spustil skor ako ostatne.
Kam ho mozno umiestnit? Startup, Registre\Run, (aj tie programy sa casto
spustaju prave v tychto miestach)... ?
Neda sa jednoducho napodobnit napr. funkcionalita chkdsk, pripadne
niektorych utilit z Norton Utilities?
Staci pre WinNT a vyssie (2k,XP)
Dakujem.Jake delphi
[*] Burkovsky Ladislav <ladislav.burkovsky(zv)autinform.de> - 21.2.2005 12:00:02
Aha tak tato zmena bola oprosti 5.0
> V delphi 7 mozem pouzit TClientDataset bez platenia dodatocnych licencii.
To snad v D6 taky - alespon v D6Pro.
DB tree
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 21.2.2005 11:21:59
hledejte na
www.torry.net
nejlepsi je asi DBTreeView - je zdarma a me se osvedcil, je rychly a da se
snim [racovat - nektere vlastnosti a udalosti jsou potlacene, ale muzete si
je zase zverejnit - znovu si je definujte.. (dle CustomTreeView)
- normalka to naplnite z nejakeho datasetu - ovsem v DB musite mit tu
stromovou strukturu definovanou, ale to asi zvladnete (PARENT - CHILD)
vazba.. v jedne tabulce (ID,PARENT_ID, NAZEV)..Jake delphi
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 21.2.2005 10:31:50
> V delphi 7 mozem pouzit TClientDataset bez platenia dodatocnych licencii.
To snad v D6 taky - alespon v D6Pro.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Komponenta pro zobrazeni textu v UTF-8
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 21.2.2005 09:21:45
> existuje komponenta pro zobrazeni (nejlepe editor) textu v UTF-8 ?
> Zkousel jsem Tnt Unicode Controls, ale tyto komponenty UTF-8
> nezobrazuji dobre...
V aplikaci pouzivej jen WideString a z / do UTF-8 konvertuj jen
pri nacitani / exportu dat, viz. funkce UTF8Decode a UTF8Encode.
Daniel
---------------------------------------------------------------
Scanning complete: NO intelligent life form in range.Odeslani HTML dokumentu pres ShellExecute
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 21.2.2005 09:15:45
Ja ale potrebuju odeslat nabidkovy list jako tabulku a tam se hodi
automaticke formatovani dat do poli.
Pri formatovani jako cisty text je spousta prace navic aby to vypadalo nejak
slusne.
Nakonec jsem tam pouzil klasicke volani fnc. LoadLibrary(PChar(MAPIDLL)) a
predal formular jako prilohu.
Pokud nedam do 'Textu' zadne znaky, tak se ta tabulka zobrazi tak jak
potrebuji, v opacnem pripade je tam jako priloha.
...nebo jsem tu odpoved nepochopil a 'HTML maily' jsou mysleny nejak jinak?
>> Je nejaky zpusob jak donutim klienta aby prevzal data v HTML formatu?
> Jedna z moznosti je pouzit tridu TJclEmail s JCL knihovny. Nicmene i tak
> lze
> predani HTML mailu pres Simple MAPI oznacit spise za experimentalni
> funkci.
>
> Osobne povazuji HTML maily za naprostou zbytecnost.
>
> Petr Vones Komponenta pro zobrazeni textu v UTF-8
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 21.2.2005 08:51:43
Zdravim *,
existuje komponenta pro zobrazeni (nejlepe editor) textu v UTF-8 ?
Zkousel jsem Tnt Unicode Controls, ale tyto komponenty UTF-8 nezobrazuji
dobre...
Diky Martin. Jake delphi
[*] Burkovsky Ladislav <ladislav.burkovsky(zv)autinform.de> - 21.2.2005 08:01:35
V delphi 7 mozem pouzit TClientDataset bez platenia dodatocnych licencii.
Laco
Soukrome mam Delphi 6, pracovne Delphi 7 a marne se snazim vzpomenout
na neco co mi v Delphi 6 chybi. DB tree
[*] Vlastimil Zdenek <delphi(zv)gestore(tec)cz> - 21.2.2005 07:59:35
Zdravim vsechny!
Potreboval bych opet poradit, ted s timto:
mam tabulku nad SQL s temito polozkami: auto, karoserie, naraznik, kolo, lak
Potrebuji tyto polozky zaradit do logickeho stromu:
auto - karoserie - naraznik - lak
- lak
- kolo
Existuje nejaka db komponenta, ktera toto umi z dat nebo je nutne rucne plnit treeview?
Jakou db komponentu nejlepe pouzit? Idealni by byl i prikladek....
Diky moc za rady
Vlasta
D5,MS SQL
existuje neco jako var2string
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.2.2005 15:14:28
From: "vojtech babic" <babicv1(zv)centrum(tec)cz>
> d1:double;
> d:=1;
>
> writeln(var2string(d1) +'=' +d1); -> d1=1 .....
Podivej se na funkce Format, IntToStr, FloatToStr apod v helpu.
Petr Vones
Jake delphi
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.2.2005 09:44:05
Jakub Dusek wrote:
> V tom pripade zustante v Delphi 6. Ta investice se IMHO nevyplati.
Z toho, co mi v D6 chybi, jsou to XML data bindings tj. wizard, ktery umi z
DTD popr. XSD
dokumentu vygenerovat pascalske tridy se strukturou odpovidajici XML
dokumentu.
Sice k dokonalosti ma hodne daleko, ale pro bezne veci se da "ohnout".
Co jsem mel moznost vyzkouset, tak to vypada, ze funguje v nekterych
ohledech lepe
nez utilita xsd.exe od MS.
***
Jinak existuje rada drobnosti a chyb, na ktere clovek prijde bohuzel az pri
praci na projektu
s cetnosti tak 1-2 / mesic. Posledni dve, ktere si pamatuju, jsou:
- V D6 se nenahali spravne implementovat VarClear, takze se neda pracovat se
SafeArrays,
protoze jednoduse raisnou exception EVariantBadVarTypeError v clean-up kodu,
misto aby zavolali VarDeepClear jako v D7 (teda ta implementace variantu v
D7 je dost jina).
Dusledkem je problematicka prace s OLE v D6.
- Vcera jsem narazil na to, ze TApplication v D7 ma nove eventy
OnModalBegin/End
HTH, pf
Jake delphi
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 20.2.2005 07:43:57
> marne se snazim vzpomenout
> na neco co mi v Delphi 6 oproti D7 chybi
V D7 jsou zmenene property v object inspectoru tucne :-)
Takze ucastnici kurzu krome zdrojaku vidi, ktere property se nastavovaly.
Takova pitomustka :-)
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Jake delphi
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 20.2.2005 00:01:25
> tedy i Delphi, verze 7-2005 (ceny dle stari - D7 je skoro za babku)
> Momentalne mame D6 a jsme relativne spokojeni,
> nicmene upgrade bude drive nebo pozdeji nutny.
Proc? Ja pouzivam D4Std a zatim mi v nem nic z toho, co nabizi vyssi
verze, nechybelo. Delam zakazky pro prumysl - rizeni stroju, sber dat,
databaze, internetove aplikace, realny cas, vypocty, grafy,
distribuovane zpracovani...Jake delphi
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 19.2.2005 22:07:17
V tom pripade zustante v Delphi 6. Ta investice se IMHO nevyplati.
Soukrome mam Delphi 6, pracovne Delphi 7 a marne se snazim vzpomenout
na neco co mi v Delphi 6 chybi. Jedine co me napada je podpora
webovych sluzeb, ktera je ale v Delphi 7 stejne krizova...
Jakub Dusek
======================================================================
Tuesday, February 15, 2005, 10:36:40 AM, you wrote:
DK> Nad kompilaci do .NET zatim moc neuvazujeme, mozna nekdy.
Predani poctu zaznamu tabulky do promenne
[*] petr-kucera(zv)volny(tec)cz - 19.2.2005 19:45:07
Ja jsem puvodne taky uvazoval ten "SELECT COUNT(*)", ale nejak me uz
nenapadlo, jak ten vysledek toho SQL dotazu jednoduse predat
promenne v aplikaci:-(
Petr Kucera
----- PUVODNI ZPRAVA -----
Od: "Jakub Dusek" <delphi(zv)corexpert.com>
Komu: delphi-l(zv)clexpert(tec)cz
Predmet: Re: Predani poctu zaznamu tabulky do promenne
Datum: 19.2.2005 - 8:20:20
> Vyborny, misto jednoho radku tahat na klienta x :) Pokud chces
> zjistit
> jen COUNT, jedina spravna cesta je query SELECT COUNT(*).
>
> Jakub Dusek
--
Levnejsi internet v pracovni dny jiz od 18:00 hod.
Surfujte s VOLNY!
http://mimospicku.volny(tec)cz
existuje neco jako var2string
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 19.2.2005 15:02:39
> d1:double;
> d:=1;
> writeln(var2string(d1) +'=' +d1); -> d1=1 .....
Ne, jsme v kompilovanem jazyce.
d1 je jenom adresa, ke ktere kompilator pristupuje jako k Double.
Nevim, k cemu to potrebujes, ale
L:= TStringList.Create;
L.Values['d1'] := '1';
writeln(L.Names[0] + '=' + L.Values['d1'])
by dalo taky "d1=1"
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================existuje neco jako var2string
[*] vojtech babic <babicv1(zv)centrum(tec)cz> - 19.2.2005 14:46:38
Dobry den , jde mi asi o tohle:
d1:double;
d:=1;
writeln(var2string(d1) +'=' +d1); -> d1=1 .....
Dekuji za jakykoliv napad
VB
Odeslani HTML dokumentu pres ShellExecute
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.2.2005 12:10:27
From: "Petr Fiser" <petr.fiser(zv)3jservis(tec)cz>
> Je nejaky zpusob jak donutim klienta aby prevzal data v HTML formatu?
Jedna z moznosti je pouzit tridu TJclEmail s JCL knihovny. Nicmene i tak lze
predani HTML mailu pres Simple MAPI oznacit spise za experimentalni funkci.
Osobne povazuji HTML maily za naprostou zbytecnost.
Petr Vones Delka Resourcestring-u
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.2.2005 12:10:27
From: "Cabak Pavel" <delphikonf(zv)cross(tec)cz>
> mam problem s prirazenim dlouheho resourcestringu do promenne typu string.
> Po
> prirazeni je vysledny text orezan na delku 1023 znaku. Jsou takova nejaka
Tohle je problem v RTL, podivej se na funkci LoadResString, je tam natvrdo
buffer s velikosti 1023 znaku.
Petr Vones Zipovani z programu
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.2.2005 12:16:27
From: "Dalibor Faltynek" <dalibor.faltynek(zv)orgrez(tec)cz>
> potreboval bych nejaky typ nebo tip na komprimacni free program, volne
http://sourceforge.net/projects/tpabbrevia/
Petr Vones
Webove sluzby nebo .NET remoting
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.2.2005 11:56:26
From: "Zdenek Sedlak" <konf(zv)seus(tec)cz>
> Vim, ze obe moznosti maji sve vyhody i nevyhody. U .NET remotingu je asi
> vyhodou, ze muze posilat binarni data a muze volit protokoly HTTP nebo
> TCP a diky tomu to je asi rychlejsi. Ovsem zatim s tim nemam zadne
> zkusenosti. Princip by byl asi stejny.
http://www.developer.com/net/net/article.php/2201701
Rozhodovani je tezke, asi bych se ridil tim jestli ma jit o uzavreny system
nebo ma byt pristup k serveru otevren i jinym produktum. V pripade uzavreneho
systemu je remoting bezproblemovy a oproti web service i rychlejsi. Na druhe
strane pokud ma byt umoznen pristup i z jinych aplikaci nebo platforem tak je
web service asi jedine dobre reseni.
Petr Vones Predani poctu zaznamu tabulky do promenne
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 19.2.2005 08:16:10
Vyborny, misto jednoho radku tahat na klienta x :) Pokud chces zjistit
jen COUNT, jedina spravna cesta je query SELECT COUNT(*).
Jakub Dusek
======================================================================
Friday, February 18, 2005, 11:02:36 AM, you wrote:
OVm> Proto se pred pou?itim RecordCount pou?iva FetchAll. Napr. v IB
OVm> IBQuery.Fetchall;
OVm> pocet:=IBQuery.RecordCount;
OVm> Pak by mel byt vysledek OK.
OVm> Vlada.ADMIN: Indy, poijem mailu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.2.2005 00:03:30
Puvodni zprava ze dne 18.2.2005:
> Jo, fakt dik ... mimochodem kdyby to nekoho zajimalo tak telo bezne
> zpravy se obvykle uklada jako a je videt jako textova priloha typu
> TIdText. Pisu to jenom a s apelem na to, ze tato konference nema
> evidentne rozmer patrici "vsem" a tudiz i zacinajicim progamatorum
> (neni vycitka, jen konstatovani): Coz je pravdepodobne duvod
> znacneho poctu pasivnich ucastniku konference.
Kdyz uz si sam odpovidas, tak si taky sam poradne quotuj. Dekuji.
NAPOMENUTI ADMINISTRATORA KONFERENCE DELPHI ZA SPATNE QUOTOVANI
viz pravidla konference bod 5 d)
http://www.clexpert(tec)cz/konference/pravidla.asp
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Indy, poijem mailu
[*] Michael Janecek <delphi(zv)astapra(tec)cz> - 18.2.2005 23:27:27
Jo, fakt dik ... mimochodem kdyby to nekoho zajimalo tak telo bezne
zpravy se obvykle uklada jako a je videt jako textova priloha typu
TIdText. Pisu to jenom a s apelem na to, ze tato konference nema
evidentne rozmer patrici "vsem" a tudiz i zacinajicim progamatorum (neni
vycitka, jen konstatovani): Coz je pravdepodobne duvod znacneho poctu
pasivnich ucastniku konference.
M.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Michael Janecek
Sent: Wednesday, February 16, 2005 9:34 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Indy, poijem mailu
Zdravim,
Pustil sem se do mailovyho klienta ale najak zapasim s drobnosti -
nacteni tela mailu :-) Poradte prosim nekdo... (body.Commatext je
prazdny)
var MsgCount,Cnt: Integer;
idMes:TIdMessage;
begin
ConnectMail('***', '***', '***');
if TotalMsgCount>0 then
begin
IdMes:=IdMessage.TIdMessage.Create(self);
MsgCount := TotalMsgCount;
for Cnt := 1 to MsgCount do
if GetFullEmailMsg(Cnt, IdMes) then
begin
ListBox1.Items.Add(IdMes.Subject);
Memo1.Lines.Add(IdMes.Subject);
Memo1.Lines.Add(IdMes.MsgId);
Memo1.Lines.Add(IdMes.From.Text );
Memo1.Lines.Add(IdMes.Body.CommaText ); //<---- Tohle je
prazdny
end;
end else showmessage('Zadne nove zpravy!!!');
DisconnectMail;
end;
TotalMsgCount, GetFullEmailMsg, a konec koncu vsechno sem charakterne
opsal z 1001 tipu triku. Funguje to vytecne - akorat ne a ne precist
samotny mail.
Dik, M. Janecek, iluzorni programator
(D7 Ent., Win2K Prof.)Synapse - podepsany email
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.2.2005 14:40:51
> Lze nejak v synapsi vygenerovat email a podepsat ho digitalnim podpisem?
Sama Synapse ti ten dopis nepodepise. (zatim... :-)) Musis pouzit
nejakou crypto knihovnu na vygenerovani podepsaneho dopisu, a ten
vysledek pak muzes pouzit v Synapsi treba pro fyzicke odeslani.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Elektronicky podpis
[*] Jerry <jry2000(zv)seznam(tec)cz> - 18.2.2005 14:34:51
> 1) Na internetovem serveru overit pripojeneho uzivatele, jen pro nektere
> uzivatele
> ( asi kvalifikovany el. podpis )
Podivej se, jakym zpusobem funguje napriklad SSH. Kvalifikovany nepotrebujes, pokud se jedna o tve pracovniky.
> 2) Podpis / overeni e-mailu (+ sifrovani / desifrovani )
OpenGPG, PGP nebo staci i Outlook nebo neco jineho. Dnes v podstate jakykoliv email klient podporuje el. podpis.
> 3) V ramci podnikoveho procesu schvalovani podepsani / overeni
> ( vytvareni vlastnich el. podpisu, platnych v podniku pro ty, kteri
> nemaji podpis platny pro internet )
V podstate neexistuje problem. Staci pouze zavest pravidla pro pouzivani.
Nekde bylo hezke povidani na www.clexpert(tec)cz
Princip napriklad zde :
http://kryptologie.uhk(tec)cz/54.htm
www.crypto-world.info
Neplest digitalni a elektronicky podpis prosim.
> ale jde mi o to, co vlastne udelat, jake jsou moznosti.
> Lze si napriklad v podniku definovat vlastni el.podpisy ?
V ramci podniku si muzes stanovit vlastni certifikacni autoritu a stanovit pravidla pro pouzivani.
Elektronicky podpis nejsou kouzla, ale pouze nastroj.
Myslim, ze velice fundovana osoba na toto tema zde v konferenci je pan Domaci(Petr Zahradnik). Zkus se obratit na nej.
S pozdravem
Jaroslav Vorlicek
Synapse - podepsany email
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 18.2.2005 14:26:50
Dobry den
Lze nejak v synapsi vygenerovat email a podepsat ho digitalnim podpisem?
Diky
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
Predani poctu zaznamu tabulky do promenne
[*] Otruba Vladimir ml. <otruba.ml(zv)papirna(tec)cz> - 18.2.2005 11:02:36
Proto se pred pou?itim RecordCount pou?iva FetchAll. Napr. v IB
IBQuery.Fetchall;
pocet:=IBQuery.RecordCount;
Pak by mel byt vysledek OK.
Vlada.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Tomas Krejzek
Sent: Friday, February 18, 2005 7:58 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Predani poctu zaznamu tabulky do promenne
No ja nevim jak v ADO, ale v klasickem sql query je hodnota RecordCount
pravdiva az kdyz projdes celou vyhledanou mnozinu, do ty doby je v ni
jen pocet uz proslych zaznamu, takove jsou moje zkusenosti
ja bych spis upravil ten dotaz
select count(*) as pocet from tabulka where klic='hodnota'
a pak
ADOQuery->FieldByName("pocet")->AsInteger a prirad si to kam chces.
Tom
Ing. Miroslav Vopalecky napsal(a):
>Ahoj
>nejjednodussi je:
>
>PocetZaznamu:=ADOQuery1.RecordCount;
>
>kde je v sekci "Private" PocetZaznamu:integer;
>
>S pozdravem Mirek Vopalecky, D7 W2000
>|
>| potreboval bych, prosim Vas, poradit s jednim problemem.
>|Mam databazovou tabulku s nejakymi zaznamy. Z teto tabulky
>|bych chtel vyfiltrovat nejake zaznamy [SELECT COUNT(*) FROM
>|tabulka WHERE Klic='hodnota'] a do promenne v aplikaci bych
>|chtel predat pocet techto zaznamu. Delam s komponentou ADOQuery.
>|
>
>
>
>
>
>
Odeslani HTML dokumentu pres ShellExecute
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 18.2.2005 10:28:34
Dobry den.
Jde pres sys. funkci ShellExecute odeslat HTML dokument?
Kdyz napisu:
S := Format('mailto:%s?subject=%s&cc=%s&body=%s', [Caption, Subject, Copy, Body]);
ShellExecute(0, 'open', PChar(S), nil, nil, SW_SHOWNORMAL);
.... a do promenne Body vlozim naformatovany text HTML tak to nejde. Zobrazi se to jako text.
Je nejaky zpusob jak donutim klienta aby prevzal data v HTML formatu?
Dik.
Petr Fiser
Elektronicky podpis
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 18.2.2005 09:44:28
Zdravim vsechny
a prosim o nasmerovani v problematice elektronickeho podpisu.
Seslo se mi nekolik pozadavku, ktere bych chtel vyresit jednou knihovnou
*.dll.
1) Na internetovem serveru overit pripojeneho uzivatele, jen pro nektere
uzivatele
( asi kvalifikovany el. podpis )
2) Podpis / overeni e-mailu (+ sifrovani / desifrovani )
3) V ramci podnikoveho procesu schvalovani podepsani / overeni
( vytvareni vlastnich el. podpisu, platnych v podniku pro ty, kteri
nemaji podpis platny pro internet )
Asi se vyjadruji nepresne, ale o el. podpisu nic nevim.
Nejde mi zatim o to jak to udelat (pekna ukazka je na
http://www.clexpert(tec)cz/podpora/belohrad2004/ ),
( - to budou nasledovat dotazy pozdeji )
ale jde mi o to, co vlastne udelat, jake jsou moznosti.
Lze si napriklad v podniku definovat vlastni el.podpisy ?
Diky za kazdou radu
Pavel
placeny amater
Delka Resourcestring-u
[*] Cabak Pavel <delphikonf(zv)cross(tec)cz> - 18.2.2005 09:08:24
Ahojte,
mam problem s prirazenim dlouheho resourcestringu do promenne typu string. Po prirazeni je vysledny text orezan na delku 1023 znaku. Jsou takova nejaka omezeni pro resourcestringy? Neresili jste nekdo takovy problem?
WinXP Pro SP1, D4 C/S
Diky za rady
Pavel Cabak
cabak(zv)cross(tec)cz
Predani poctu zaznamu tabulky do promenne
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 18.2.2005 07:58:19
No ja nevim jak v ADO, ale v klasickem sql query je hodnota RecordCount
pravdiva az kdyz projdes celou vyhledanou mnozinu, do ty doby je v ni
jen pocet uz proslych zaznamu, takove jsou moje zkusenosti
ja bych spis upravil ten dotaz
select count(*) as pocet from tabulka where klic='hodnota'
a pak
ADOQuery->FieldByName("pocet")->AsInteger a prirad si to kam chces.
Tom
Ing. Miroslav Vopalecky napsal(a):
>Ahoj
>nejjednodussi je:
>
>PocetZaznamu:=ADOQuery1.RecordCount;
>
>kde je v sekci "Private" PocetZaznamu:integer;
>
>S pozdravem Mirek Vopalecky, D7 W2000
>|
>| potreboval bych, prosim Vas, poradit s jednim problemem.
>|Mam databazovou tabulku s nejakymi zaznamy. Z teto tabulky
>|bych chtel vyfiltrovat nejake zaznamy [SELECT COUNT(*) FROM
>|tabulka WHERE Klic='hodnota'] a do promenne v aplikaci bych
>|chtel predat pocet techto zaznamu. Delam s komponentou ADOQuery.
>|
>
>
>
>
>
>
Predani poctu zaznamu tabulky do promenne
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 18.2.2005 07:28:17
Ahoj
nejjednodussi je:
PocetZaznamu:=ADOQuery1.RecordCount;
kde je v sekci "Private" PocetZaznamu:integer;
S pozdravem Mirek Vopalecky, D7 W2000
|
| potreboval bych, prosim Vas, poradit s jednim problemem.
|Mam databazovou tabulku s nejakymi zaznamy. Z teto tabulky
|bych chtel vyfiltrovat nejake zaznamy [SELECT COUNT(*) FROM
|tabulka WHERE Klic='hodnota'] a do promenne v aplikaci bych
|chtel predat pocet techto zaznamu. Delam s komponentou ADOQuery.
|Predani poctu zaznamu tabulky do promenne
[*] Martin Bednar <bednar(zv)mujweb(tec)cz> - 17.2.2005 21:59:38
DD,
ale uvedeny [SELECT COUNT(*) FROM tabulka WHERE Klic='hodnota'] preci
vrati prave pocet zaznamu vyhovujicich podmince where nebo nerozumim ?
ADOQuery1.sql.add(' SELECT COUNT(*) FROM tabulka INTO pocetzaznamu WHERE Klic='hodnota' ');
promena := ADOQuery1.fieldByName['pocetzaznamu'].asInteger;
pkvc> chtel vyfiltrovat nejake zaznamy [SELECT COUNT(*) FROM tabulka
pkvc> WHERE Klic='hodnota'] a do promenne v aplikaci bych chtel predat
pkvc> pocet techto zaznamu. Delam s komponentou ADOQuery.
------------
S pozdravem,
Martin Bednar
bednar(zv)mujweb(tec)cz
ctvrtek 17. unora 2005 21:53:16
Predani poctu zaznamu tabulky do promenne
[*] petr-kucera(zv)volny(tec)cz - 17.2.2005 21:43:34
Dobry den,
potreboval bych, prosim Vas, poradit s jednim problemem.
Mam databazovou tabulku s nejakymi zaznamy. Z teto tabulky bych
chtel vyfiltrovat nejake zaznamy [SELECT COUNT(*) FROM tabulka
WHERE Klic='hodnota'] a do promenne v aplikaci bych chtel predat
pocet techto zaznamu. Delam s komponentou ADOQuery.
Predem dekuji za jakoukoliv radu.
Petr Kucera
--
Levnejsi internet v pracovni dny jiz od 18:00 hod.
Surfujte s VOLNY!
http://mimospicku.volny(tec)cz
SQL - tabulka s obsahem identifikovanym cislem zaz
[*] lelicek(zv)volny(tec)cz - 17.2.2005 20:55:31
No minule ses platl na MSSQL, tak: "obtizne",
ale existuji dve cesty:
1. Po insertu do mastra(hlavicky) poslat dotaz na server
SELECT (zv)(zv)IDENTITY, ktery vrati posledni hodnotu
identity a tu pouzit v detailu (polozkach),
2. Napsat si ulozenou proceduru T-SQL, predat ji vsechny sloupce
masteru v parametrech a detail (polozky) jako XML.
V procedure provest insert hlavicky, zjistit (zv)(zv)identity a
tu pouzit pri insertu detailu z XML.
Pavel
Od: "Petr Cafourek" <petr.cafourek.d7(zv)seznam(tec)cz>
> Potrebuji vytvorit program na objednavky v Delphi za pouziti
> SQL.
> Mam takovou vizi, ze bych vytvoril tabulku, ktera by obsahovala
> jakousi hlavicku objednavky a jeji soucasti by byli i v SQL
> automaticky generovane cislo.
> A dale bych chtel vytvorit tabulku, ve ktere by bylo zbozi ze
> vsech
> objednavek a lisilo by se cislem patricne objednavky.
> Ale nevim, jak to provest technicky. V SQL to neni problem, ale
> jak
> donuti Delphi, aby pri vytoreni recordu v prvni tabulce,
> priradilo
> stejne cilo vsem zaznamum v tabulce 2.
--
Akcni unorova nabidka "3 za cenu 1"! Ziskejte
VOLNY ADSL 512/128 3GB za cenu 1GB!
http://adsl.volny(tec)cz
Optimalizace SQL v ORACLE
[*] lelicek(zv)volny(tec)cz - 17.2.2005 20:47:30
Docela bych sazel na nevhodny dotaz,
v prvnim pripade asi optimalizator provede table scan
na vyhodnoceni podminky spots.is_free <> 1
and spots.transmited = 1 a zde se klic pozit neda.
navic klic spots.transmited bude mit velmi nizkou densitu (odhaduji
ze ma pouze hodnoty 1/0). Ve druhem pripade nasel optimalizator
jinou cestu pro vypocet
pravdepodobne primo z indexu a podminky si nevsima.
Pavel
<jsdelphi(zv)creatix(tec)cz> wrote:
> > Prosim o radu. Mam problem v databazi ORACLE 8.1.7.
> >
> > Mam tabulku:
> > --------------
> > create table SPOTS
> > (
> > ID_SPOTS NUMBER(10) not null,
> > ID_CONTRACT NUMBER(10),
> > IS_FREE NUMBER(1) default 0 not null,
> > TRANSMITED NUMBER(1) default 0,
> > ...
> > )
> > a k tabulce index
> > -----------------
> > ID_CONTRACT, IS_FREE, TRANSMITED
> >
> > Tento select trva neskutecne dlouho:
> > -------------------------------------
> > select count(1)
> > from contract, spots
> > where spots.id_contract = contract.id_contract
> > and spots.is_free <> 1
> > and spots.transmited = 1
> >
> > a tento probehne za zlomek sekundy:
> > -------------------------------------
> > select sum(decode(spots.transmited, 1, 1, 0))
> > from contract, spots
> > where spots.id_contract = contract.id_contract
> > and spots.is_free <> 1
> >
> > Proc proboha? Oba vraci stejny vysledek. Prvni trva 16
> > sekund nez zacne
> > vracet prvni radky, druhy je zacne vracet za zlomek sekundy.
> > Tabulka spots
> > obsahuje cca 500.000 zaznamu.
> >
> > Diky za kazdy napad.
> >
> > Jan Skopovy
> >
> >
>
>
--
Levnejsi internet v pracovni dny jiz od 18:00 hod.
Surfujte s VOLNY!
http://mimospicku.volny(tec)cz
Optimalizace SQL v ORACLE
[*] Jakub Dusek <jakub.dusek(zv)gmail(tec)com> - 17.2.2005 20:11:27
Ahoj,
chtelo by to vic informaci (treba pocet distinct hodnot ID_CONTRACT,
explain plany...). Duvodu muze byt hromada, od spatne spocitanych
statistik tabulky az po nevhodne nastaveny zpusob prace
optimalizatoru.
Ale na prvni pohled me tam zaujalo to COUNT(1), coz muze optimalizator
zmast. Totiz na vyrizeni celeho toho dotazu nemusi (pokud to spravne
pochopi) vubec sahnout do tabulky, protoze vsechna potrebna data ma v
indexu (vazbu na tabulku contract muze teoreticky vyloucit, ze tam ten
radek je mu muze rict cizi klic, jeho hodnotu nepotrebuje).
Tohle je ale jen teorie, zkus schvalne poslat explain plan prvniho i
druheho dotazu, podle toho se to analyzuje nejlepe.
--
Jakub Dusek, dusek(zv)COREXPERT.COM
---
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
On Wed, 16 Feb 2005 22:43:47 +0100, jsdelphi(zv)creatix(tec)cz
<jsdelphi(zv)creatix(tec)cz> wrote:
> Prosim o radu. Mam problem v databazi ORACLE 8.1.7.
>
> Mam tabulku:
> --------------
> create table SPOTS
> (
> ID_SPOTS NUMBER(10) not null,
> ID_CONTRACT NUMBER(10),
> IS_FREE NUMBER(1) default 0 not null,
> TRANSMITED NUMBER(1) default 0,
> ...
> )
> a k tabulce index
> -----------------
> ID_CONTRACT, IS_FREE, TRANSMITED
>
> Tento select trva neskutecne dlouho:
> -------------------------------------
> select count(1)
> from contract, spots
> where spots.id_contract = contract.id_contract
> and spots.is_free <> 1
> and spots.transmited = 1
>
> a tento probehne za zlomek sekundy:
> -------------------------------------
> select sum(decode(spots.transmited, 1, 1, 0))
> from contract, spots
> where spots.id_contract = contract.id_contract
> and spots.is_free <> 1
>
> Proc proboha? Oba vraci stejny vysledek. Prvni trva 16 sekund nez zacne
> vracet prvni radky, druhy je zacne vracet za zlomek sekundy. Tabulka spots
> obsahuje cca 500.000 zaznamu.
>
> Diky za kazdy napad.
>
> Jan Skopovy
>
>
Prenos dat z Outlooku cez Clipboard
[*] Martin Cajbik <cajbik(zv)sct.sk> - 17.2.2005 17:39:17
Viete mi niekto poradit, ako je mozne prenasat prilohy (a pripadne cele
spravy) medzi Outlookom a Delphi aplikaciou (aspon zakladne nasmerovanie).
--
Martin Cajbik
SCT s.r.o. Kosice
OT: naplneni ComboBoxu v Excelu selectem
[*] Jaroslav Kohak <jaroslav.kohak(zv)dites(tec)cz> - 17.2.2005 15:19:07
Ahoj,
bojuju s vyse uvedenym. Pokud ve VB v excelu udelam:
Range("A4").Select
With Selection.QueryTable
.Connection = "ODBC;DSN=OrnelaArchNav"
.CommandText = Array( _
"SELECT distinct RECEPT AS 'Seznam receptur' FROM T_ARCH_HLAV" _
)
.Refresh BackgroundQuery:=True
End With
tak mi to vpohode vypise hodnoty od bunky A4 dal.
Ale ja je potrebuju dostat do ComboBoxu. Nevite nekdo jak na to?
Dik Jarda
PS: rucnee ho naplnit umim ( ComboBox.AddItem "hodnota" )
SQL - tabulka s obsahem identifikovanym cislem zaz
[*] horky(zv)cominn(tec)cz - 17.2.2005 14:39:04
> From: Petr Cafourek [mailto:petr.cafourek.d7(zv)seznam(tec)cz]
> Sent: Wednesday, February 16, 2005 7:16 PM
> Mam takovou vizi, ze bych vytvoril tabulku, ktera by obsahovala
> jakousi hlavicku objednavky a jeji soucasti by byli i v SQL
> automaticky generovane cislo.
> A dale bych chtel vytvorit tabulku, ve ktere by bylo zbozi ze vsech
> objednavek a lisilo by se cislem patricne objednavky.
> Ale nevim, jak to provest technicky. V SQL to neni problem, ale jak
> donuti Delphi, aby pri vytoreni recordu v prvni tabulce, priradilo
> stejne cilo vsem zaznamum v tabulce 2.
Nepises pouzitou DB, proto popisu Firebird.
Pouzivam to takto:
1. zahajim transakci
2. nactu pozadovane cislo pomoci SQL dotazu z generatoru (je stejne mimo transakcni kontrolu)
3. nactene cislo pouziji pri ukladani hlavicky objednavky
4. stejne cislo pouziji pri ukladani polozek
5. v trigru pro insert u obou tabulek kontroluji, zda new.cislo jiz neni v tabulce, pripadne vyhlasim exception
6a. potvrdim transakci nebo
6b. v bloku Try-Except zrusim transakci a obsluha to po upozorneni muze stejnym zpusobem ulozit znovu. Ovsem generator jiz vrati jine cislo, takze to muze projit.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
okna z dll pouzita v MFC
[*] Petr Nehez <dpn(zv)atlas(tec)cz> - 17.2.2005 12:32:55
My to pouzivame nasledujicim zpusobem:
Do volani funkce ktera vytvari modalni formular predavame Handle
aktualniho okna (tj. z ktereho se vola modalni) a modalni formular
vytvarime pomoci TForm.CreateParented(AHandle).
Mohlo by to pomoci.
Petr
dam wrote:
> ahoj,
> mam activex prvek v delphi, kterej obcas zobrazuje modalni okna. Delalo to
> obcas pomerne zbesily zalezitosti pri prepinani aplikaci (nejhorsi varianta
> byla takova, ze se pri aktivaci aplikace presunulo modalni okno az za
> aplikace). Nakonec jsem zda se vyresil tak, ze do dll predavam
> application.handle z programu, coz mi zrovna 2x cisty neprijde, ale nejak se
> problemy snad odstranily. Bohuzel az do te doby, co muj activex pouzil
> kolega z mfc. Absolutne netusime, jakej handle predat do dll, aby se chyby
> pri prepinani odstranily. Zkouseli jsme uz ledacos, ale proste to porad
> blbne.
> Takze ma otazka zni, jestli by se nejlepe nedalo uplne vyhnout predavani
> handlu do dll a nejak to obejit. A nebo teda, jak se zachovat z mfc, aby to
> fungovalo.
> Dik za rady
> David
>
>
>
>
>
>
>
okna z dll pouzita v MFC
[*] dam <arthur(zv)argh(tec)cz> - 17.2.2005 12:02:53
ahoj,
mam activex prvek v delphi, kterej obcas zobrazuje modalni okna. Delalo to
obcas pomerne zbesily zalezitosti pri prepinani aplikaci (nejhorsi varianta
byla takova, ze se pri aktivaci aplikace presunulo modalni okno az za
aplikace). Nakonec jsem zda se vyresil tak, ze do dll predavam
application.handle z programu, coz mi zrovna 2x cisty neprijde, ale nejak se
problemy snad odstranily. Bohuzel az do te doby, co muj activex pouzil
kolega z mfc. Absolutne netusime, jakej handle predat do dll, aby se chyby
pri prepinani odstranily. Zkouseli jsme uz ledacos, ale proste to porad
blbne.
Takze ma otazka zni, jestli by se nejlepe nedalo uplne vyhnout predavani
handlu do dll a nejak to obejit. A nebo teda, jak se zachovat z mfc, aby to
fungovalo.
Dik za rady
David
Nezavisla sirka a vyska fontu
[*] Petr Nehez <dpn(zv)atlas(tec)cz> - 17.2.2005 11:56:52
> chtel bych obecne, respektive pro Memo nastavit nezavislou sirku a vysku fontu. Font ma vlastnost Size a Height, ale jejich zmenou dojde i k umerne zmene sirky fontu.
Musis pouzit neco takoveho:
...
var
LF: TLogFont;
begin
...
nastaveni hodnot LF.xxx
...
Memo.Font.Handle := CreateFontIndirect(LF);
Vice viz Win32 help nebo MSDN.
Petr
Nezavisla sirka a vyska fontu
[*] viktordoubek(zv)volny(tec)cz - 17.2.2005 11:48:51
Nevim, jestli ti to pomuze (pro memo), ale pokud si to budes
vykreslovat sam na canvas tak ja pouzivam tohle:
{uses windows;}
procedure SetTextWidth(Cnv: TCanvas; Width: integer);
var
FntLogRec: TLogFont; { Storage area for font information }
begin
{ Get the current font information. We only want to modify the
angle } GetObject(Cnv.Font.Handle, SizeOf(FntLogRec),
Addr(FntLogRec));
FntLogRec.lfWidth := Width;
FntLogRec.lfOutPrecision := OUT_TT_ONLY_PRECIS; { Request
TrueType precision }
{ Delphi will handle the deallocation of the old font handle }
Cnv.Font.Handle := CreateFontIndirect(FntLogRec);
end;
Zavola se to pred TextOut a ten to pak zuzi/rozsiri na pozadovanou
sirku. Na vysku lze upravit obdobne.
----- PUVODNI ZPRAVA -----
Od: vstuchl(zv)email(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Predmet: Nezavisla sirka a vyska fontu
Datum: 16.2.2005 - 14:30:22
> Ahoj,
>
> chtel bych obecne, respektive pro Memo nastavit nezavislou
> sirku a vysku fontu. Font ma vlastnost Size a Height, ale
> jejich zmenou dojde i k umerne zmene sirky fontu.
>
> Dekuji za kazdou radu,
> Vasek
>
>
>
>
>
--
Akcni unorova nabidka "3 za cenu 1"! Ziskejte
VOLNY ADSL 512/128 3GB za cenu 1GB!
http://adsl.volny(tec)cz
Vlozeni vodoznaku do obrazku
[*] jsdelphi(zv)creatix(tec)cz - 17.2.2005 11:46:50
> Subject: Re: Vlozeni vodoznaku do obrazku
Ja si vykreslim text do jine bitmapy a pak v originalni bitmape zesvetluji
nebo ztmavuji (jak je libo) pixely podle vykresleneho textu. Vykresleny text
mam napriklad clBlack, takze jakmile ve sve bitmape pro text najdu pixel s
barvou clBlack, stejny pixel v originalni bitmape upravim. Ja to dokonce
resim ze i stinuji - zakladni text = zesvetleni, stin = ztmaveni, takze mam
zajisteno, ze vodoznak je vzdy videt. Mohu poslat kod.
Jan Skopovy
CREATIX s.r.o.
tel/fax: +420 222 564 426
mobil: +420 776 097 202
email: js(zv)creatix(tec)cz
www.creatix(tec)cz Nezavisla sirka a vyska fontu
[*] vstuchl(zv)email(tec)cz - 17.2.2005 11:14:48
Ahoj,
chtel bych obecne, respektive pro Memo nastavit nezavislou sirku a vysku fontu. Font ma vlastnost Size a Height, ale jejich zmenou dojde i k umerne zmene sirky fontu.
Dekuji za kazdou radu,
Vasek
stav com portu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 17.2.2005 11:10:47
Ahoj,
stav muzes zjistovat jen na tech pinech, ktere jsou vstupni, tedy
CTS,DSR,RING,RLSD (GetCommModemStatus) a RX. S tim RX moc nevim sel bych
na to asi pres ClearCommError a CE_BREAK
Vaclav Sazima
dphi_forum(zv)proces.sk wrote:
> potreboval by som zistit stav na kazdom pine com portu nie len DTR,
> DSR,RTS,CTS, ako na to ?Zipovani z programu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 17.2.2005 11:04:46
Nejlepe primou integraci do programu - napr. ZipMaster, TZip (ten v ponekud
upravene podobe pouzivame my) apod... Jsou potreba jen 2 dll knihovny... :)
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Faltynek
> Sent: Thursday, February 17, 2005 10:55 AM
>
> potreboval bych nejaky typ nebo tip na komprimacni free
> program, volne siritelny s aplikaci, kompatibilni s formatm
> ZIP, volatelny z programu v delfi 5 se souborem predavanym v
Zipovani z programu
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 17.2.2005 10:54:45
Ahoj,
potreboval bych nejaky typ nebo tip na komprimacni free program, volne siritelny s aplikaci, kompatibilni s formatm ZIP, volatelny z programu v delfi 5 se souborem predavanym v parametru. Mate nekdo nejakou zkusenost?
Dekuji a zdravim vas vsechny.
Dalibor Faltynek
Orgrez, a. s.
tel: +420 541 613 312
fax: +420 541 613 299
e-mail: dalibor.faltynek(zv)orgrez(tec)cz
stav com portu
[*] dphi_forum(zv)proces.sk - 17.2.2005 10:16:42
prosim poradte mi,
potreboval by som zistit stav na kazdom pine com portu nie len DTR,
DSR,RTS,CTS, ako na to ?
diky
urceni poctu stranek z PCL
[*] Vaclav Riha <vaclav_riha(zv)softconsult(tec)cz> - 17.2.2005 10:12:41
>Zdravim, nutne bych potreboval neco free na zjisteni poctu stranek z PCL (5,5.5, 6).
Zrejme by stacilo spocitat znak FF. Samozrejme pokud se budou posilat textova data (radky) bez FF tak laserovky odstrankuji sami podle delky stranky kterou maji nastavenou v sobe (to by pak neslo zjistit). Graficka data bez FF pockaji na timeout, nebo na pokyn uzivatele (cudlik FF)
S pozdravem Vaclav Riha
zobrazeni zavislosti unitu
[*] Burkovsky Ladislav <ladislav.burkovsky(zv)autinform.de> - 17.2.2005 09:50:39
Ahoj,
skus GExperts, Project dependencies.
Laco
nemate nekdo typ na program (nebo zdrojovy text), ktery
by dostal na vstup dpr soubor a zobrazil strom zavislosti
unitu?
Vlozeni vodoznaku do obrazku
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 17.2.2005 09:44:38
napr.:
text nakreslis do zvlast bitmapy. a tu potom nanesies na vybrany obrazok.
kde pre kazdy pixel plati:
f(a,b) = 1 - (1-a) * (1-b)
cize
cize v delphi pre V farby (RGB):
255 - ((255-a) * (255-b) SHR 8);
alebo pouzijes uz nejake hotove riesenie na blending bitmap
(graphics32, graph64 ...)
palo
>
> v aplikaci zobrazuji nejake obrazky a potrebuji do nich programove z
> Delphi7 vlozit vodoznak (najaky text). Nemate nekdo napad, jak to
> udelat. urceni poctu stranek z PCL
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 17.2.2005 09:32:37
Zdravim, nutne bych potreboval neco free na zjisteni poctu stranek z PCL (5,
5.5, 6).
Diky F.
zobrazeni zavislosti unitu
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 17.2.2005 09:20:33
Zdravim,
nemate nekdo typ na program (nebo zdrojovy text), ktery
by dostal na vstup dpr soubor a zobrazil strom zavislosti
unitu?
Sem tam by se mi to lehce hodilo ...
Radek
Vlozeni vodoznaku do obrazku
[*] delphi(zv)mjsoft(tec)cz - 16.2.2005 23:03:50
Zdravim,
v aplikaci zobrazuji nejake obrazky a potrebuji do nich programove z
Delphi7 vlozit vodoznak (najaky text). Nemate nekdo napad, jak to
udelat.
Diky predem
Karel V.
Jak na Random
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 16.2.2005 22:49:48
Udelal jsem tam nakonec supr-cupr deleni a modulo s casem a count ruznych hodnot v jednom selectu+SP. To bude mit admin radost.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Optimalizace SQL v ORACLE
[*] jsdelphi(zv)creatix(tec)cz - 16.2.2005 22:43:47
Prosim o radu. Mam problem v databazi ORACLE 8.1.7.
Mam tabulku:
--------------
create table SPOTS
(
ID_SPOTS NUMBER(10) not null,
ID_CONTRACT NUMBER(10),
IS_FREE NUMBER(1) default 0 not null,
TRANSMITED NUMBER(1) default 0,
...
)
a k tabulce index
-----------------
ID_CONTRACT, IS_FREE, TRANSMITED
Tento select trva neskutecne dlouho:
-------------------------------------
select count(1)
from contract, spots
where spots.id_contract = contract.id_contract
and spots.is_free <> 1
and spots.transmited = 1
a tento probehne za zlomek sekundy:
-------------------------------------
select sum(decode(spots.transmited, 1, 1, 0))
from contract, spots
where spots.id_contract = contract.id_contract
and spots.is_free <> 1
Proc proboha? Oba vraci stejny vysledek. Prvni trva 16 sekund nez zacne
vracet prvni radky, druhy je zacne vracet za zlomek sekundy. Tabulka spots
obsahuje cca 500.000 zaznamu.
Diky za kazdy napad.
Jan Skopovy
CREATIX s.r.o.
tel/fax: +420 222 564 426
mobil: +420 776 097 202
email: js(zv)creatix(tec)cz
www.creatix(tec)cz Indy, poijem mailu
[*] Michael Janecek <delphi(zv)astapra(tec)cz> - 16.2.2005 21:33:42
Zdravim,
Pustil sem se do mailovyho klienta ale najak zapasim s drobnosti -
nacteni tela mailu :-) Poradte prosim nekdo... (body.Commatext je
prazdny)
var MsgCount,Cnt: Integer;
idMes:TIdMessage;
begin
ConnectMail('***', '***', '***');
if TotalMsgCount>0 then
begin
IdMes:=IdMessage.TIdMessage.Create(self);
MsgCount := TotalMsgCount;
for Cnt := 1 to MsgCount do
if GetFullEmailMsg(Cnt, IdMes) then
begin
ListBox1.Items.Add(IdMes.Subject);
Memo1.Lines.Add(IdMes.Subject);
Memo1.Lines.Add(IdMes.MsgId);
Memo1.Lines.Add(IdMes.From.Text );
Memo1.Lines.Add(IdMes.Body.CommaText ); //<---- Tohle je
prazdny
end;
end else showmessage('Zadne nove zpravy!!!');
DisconnectMail;
end;
TotalMsgCount, GetFullEmailMsg, a konec koncu vsechno sem charakterne
opsal z 1001 tipu triku. Funguje to vytecne - akorat ne a ne precist
samotny mail.
Dik, M. Janecek, iluzorni programator
(D7 Ent., Win2K Prof.)Jak na Random
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 16.2.2005 21:23:41
Jako zaklad rozsahu muzes pouzit hodnotu generatoru
pro tu danou tabulku (misto toho count).
Na RANDOM budes asi potrebovat UDF (a to jeste
vlastni, jelikoz v te od fb je chyba, tedy alepon byvala).
Pripadne to muzes zkusit nahradit: cas + datum + current_neco,
ale nahode to asi moc nebude.
Slavek
> potreboval bych ve FB vybirat id naprosto nahodne. Nevedel by
> nekdo, jak udelat nejaky random select?
>
> select neco from table where id=random();
>
> Zatim to delam v kodu, kdy si nejaky ID vymyslim pomoci
> Random fce a pak uz je vybiram, problem je, ze ale musim
> zjistovat COUNT polozek v databazi (ID jsou delany triggerem,
> takze jsou "auto incerement").
>
> UDF pouzit nemohu - snaz az v krajni nouzi a za cenu zabiti admina.
> bug tracer
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 16.2.2005 20:59:39
> chtel bych se zeptat jake aplikace pouzivate na bugtracing
> (bugzilla) a
> to-do, kdyz potrebujete aby to behalo po siti (umoznilo pracovat vice
> lidem naraz), pritom aby to fungovlao na Windowsech (s
> windows serverem)
> a aby to bylo implementovano do Delphi IDE, nebo aby to melo aspon
> jineho nez web klienta. Super by bylo aby tatyto programky
> umoznili jak
> praci on-line tak i praci off-line.
Ahoj,
Mantis, phpcollab. S integraci snad jen JEDI-VCS.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
MMX pod Delphi
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 16.2.2005 20:49:38
unita VectorGeometry.pas v GLScene (www.glscene.org) je tam 3DNow! optimalizacia
cize AMD only ;)
palo
> potrebujem prenasobit velmi dlhe pole (radovo desiatky megebajtov)
> konstantnou hodnotou,
> pripadne pripocitat k velmi dlhemu polu (vektoru) iny vektor. Je to
> problem na ktoreho riesenie sa
OT: bug tracer
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 16.2.2005 20:45:37
Dobry den,
chtel bych se zeptat jake aplikace pouzivate na bugtracing (bugzilla) a
to-do, kdyz potrebujete aby to behalo po siti (umoznilo pracovat vice
lidem naraz), pritom aby to fungovlao na Windowsech (s windows serverem)
a aby to bylo implementovano do Delphi IDE, nebo aby to melo aspon
jineho nez web klienta. Super by bylo aby tatyto programky umoznili jak
praci on-line tak i praci off-line.
Lukas Benda
SQL - tabulka s obsahem identifikovanym cislem zaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 16.2.2005 19:15:31
DD,
Mam takovy dotaz.
Potrebuji vytvorit program na objednavky v Delphi za pouziti SQL.
Mam takovou vizi, ze bych vytvoril tabulku, ktera by obsahovala
jakousi hlavicku objednavky a jeji soucasti by byli i v SQL
automaticky generovane cislo.
A dale bych chtel vytvorit tabulku, ve ktere by bylo zbozi ze vsech
objednavek a lisilo by se cislem patricne objednavky.
Ale nevim, jak to provest technicky. V SQL to neni problem, ale jak
donuti Delphi, aby pri vytoreni recordu v prvni tabulce, priradilo
stejne cilo vsem zaznamum v tabulce 2.
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
MMX pod Delphi
[*] p.sestak(zv)corag.sk - 16.2.2005 18:19:27
Zdravim,
potrebujem prenasobit velmi dlhe pole (radovo desiatky megebajtov)
konstantnou hodnotou,
pripadne pripocitat k velmi dlhemu polu (vektoru) iny vektor. Je to
problem na ktoreho riesenie sa
hodia viacprocesorove stroje alebo da sa vyuzit aj MMX sada instrukcii.
Nevie niekto z vas o nejake matematickej kniznici, ktora by tento vypocet
urobila pomocou MMX istrukcii?
P.
Detekce CD mechaniky
[*] Tomas Juricek <krusty(zv)razdva(tec)cz> - 16.2.2005 18:11:26
> najde se tu nejaky dobrak, ktery mi poradi, jak mohu v
> aplikaci detekovat CD mechaniku? Potrebuji to pro aplikaci, ktera
> by byla nekde na HDD a tahala by data z CD, resp. DVD.
Pomoci WinAPI. GetLogicalDrives nacte seznam vsech zarizeni a pomoci
GetDriveType zjistis jeho typ. Pokud potrebujes i detekovat vlozeni media,
vyuzi zpravu WM_DEVICECHANGE.Detekce CD mechaniky
[*] petr-kucera(zv)volny(tec)cz - 16.2.2005 17:57:25
Dobry den,
najde se tu nejaky dobrak, ktery mi poradi, jak mohu v
aplikaci detekovat CD mechaniku? Potrebuji to pro aplikaci, ktera
by byla nekde na HDD a tahala by data z CD, resp. DVD.
Dekuji
Petr Kucera
--
Akcni unorova nabidka "3 za cenu 1"! Ziskejte
VOLNY ADSL 512/128 3GB za cenu 1GB!
http://adsl.volny(tec)cz
FB: Jak na Random
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 16.2.2005 16:57:20
Ahoj, nevim jak na FB, ale u MSSQL lze v SQL provadet vypocty. Napr:
SELECT (zv)I = 1
UPDATE d_table SET id = (zv)I, (zv)I = (zv)I + 1
Tohle naplni sloupec id vzrustajici hodnotou.
Tak zkusit neco podobneho v SELECTU. Ze tam budes provadet nejaky
"nahodny" vypocet a zaroven vysledek vypoctu pouzit jako podminku pro
vyber.
Stepan o:) -=* Jiri Cincura <delphi-l(zv)clexpert(tec)cz>, 16.2.2005 14:57 wrote *=-
JC> Ahoj,
JC> potreboval bych ve FB vybirat id naprosto nahodne. Nevedel by
JC> nekdo, jak udelat nejaky random select?
JC> select neco from table where id=random();
JC> Zatim to delam v kodu, kdy si nejaky ID vymyslim pomoci
JC> Random fce a pak uz je vybiram, problem je, ze ale musim zjistovat
JC> COUNT
JC> polozek v databazi (ID jsou delany triggerem, takze jsou "auto incerement").
JC> UDF pouzit nemohu - snaz az v krajni nouzi a za cenu zabiti admina.
JC> Diky za kazdou radu.
JC> --
JC> Jiri Cincura
JC> http://www.cincura.net/
JC> http://ID3renamer.cincura.net/
JC> ICQ#: 314711544
JC> http://photo.cincura.net/
JC> http://phorum.cincura.net/
JC> http://x2develop.com/
SQL - Filtrovani pres DBLookupComboBox
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 16.2.2005 16:35:18
Hello ,
--
Best regards,
Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
SQL - Filtrovani pres DBLookupComboBox
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 16.2.2005 16:41:19
DD,
pokousim se filtrovat data z SQL, ktera jsou v tabulce X, podle dat
v tabulce Y pres DBLookupComboBox. Mam to napsane takto:
procedure TForm2.DBLookupComboBox11Click(Sender: TObject);
begin
OddFltr := DBLookupComboBox11.Text;
ADODataSet1.Active := False;
ADODataSet1.Filtered := True;
ADODataSet1.Active := True;
end;
procedure TForm2.ADODataSet1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := (Pos(OddFltr, ADODataSet1.FieldByName('Oddleni').Asstring) <> 0);
end;
pricemz OddFltr mam definovano v Public jako String.
Kdyz se pokusim o zmenu filtru, data v polich zmizi a filtrovana se
jiz neobjevi. Muzete mi prosim nakopnout, kde muze byt chyba?
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
FreeReport - Rozdtahovani textu
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 16.2.2005 16:35:17
DD,
dal jsem na vasi radu (viz. e-mail: QReport - jak zacit?) a stahl
jsem si komponenty FreeReport. Musim rict, moc se mi libi.
Nicmene, udelal jsem si sestavu, do niz vkladam udaje z DB (SQL pres
ADO). To mi jde bez problemu. Kdyz si pak sestavu v programu zobrazim,
je vse v poradku, ale kdyz ji poslu na tiskarnu, pole, kde jsou udaje
z DB se roztahnou a tim vzniknou mezi slovy a nekde i pismeny dost
osklive mezery.
Da se to nejak upravit?
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
FR3 a tisk stitku
[*] Miso <delphinpp(zv)atlas(tec)cz> - 16.2.2005 16:23:17
----- Original Message -----
From: "Jaroslav Uher" <jarek(zv)iuher(tec)cz>> potrebuji vyresit tisk stitku na obalky, kdysi jsem to psal *ruco* v
> TP6, ted pouzivam FR3 (a doufam, ze ucne uz nebude potreba).
>
> Dival jsem se na jejich web, bohuzel nic. Nemate typ na neco
> hotoveho, nemusi byt free.
..na sukromny mail posielam vzorovy FRF subor...bohuzial FR ver. 2.5
Miso
FR3 a tisk stitku
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 16.2.2005 16:05:15
Ahoj,
potrebuji vyresit tisk stitku na obalky, kdysi jsem to psal *ruco* v
TP6, ted pouzivam FR3 (a doufam, ze ucne uz nebude potreba).
Dival jsem se na jejich web, bohuzel nic. Nemate typ na neco
hotoveho, nemusi byt free.
Diky,
Jarek Uher
Cestina v FastReport 3 Was: QReport - jak zacit?
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 16.2.2005 15:59:14
On 16 Feb 2005 at 14:07, Roman wrote:
> Ahoj,
> k te podpore cestiny bych se zeptal: pokud rucne v designeru
> nenastavim charset na EASTEUROPEAN (tzn. ze ponecham DEFAULTCHARSET
> nebo se jej pokusim zmenit programove - viz. nize), tak jedno starsi
> laserove HP misto znaku s ceskou diakritikou tiskne nesmysly.
>
> Programove nastavuji:
> sest:=TfrxReport.Create(nil);
> sest.Font.Charset:=238; //easteurope
>
> Nove vytvorena sestava (a jeji prvky) pak ma nastaven easteuropean
> charset, tisk je vsak porad stejny. Pokud charset zmenim v designeru
> rucne, tzn. ze zmenin z easteuropean na easteuropean ;-), pak uz je to
> ok. Jak tedy prednastavit ceskou znakovou sadu pro vsechny nove
> reporty z kodu?
nevim jak v Trial, ale na Full verzi by to mohlo jit tato:
procedure TFormPMtiskG.frxReport1BeforePrint(Sender:
TfrxReportComponent);
var
Style: TfrxStyleItem;
Styles: TfrxStyles;
TempMemStream : TMemoryStream;
begin
TempMemStream := TMemoryStream.Create;
try
if Sender is TfrxRichView then
begin
Styles := TfrxStyles.Create(nil);
Styles.Clear;
Style := Styles.Add;
Style.Name := 'Style1';
Style.Font := Editor.Font;
//************************************************************
Style.Font.Charset := EASTEUROPE_CHARSET;
//************************************************************
{ apply a set to the report }
frxReport1.Styles.Apply;
Editor.Lines.SaveToStream(TempMemStream);
TempMemStream.Position := 0;
TfrxRichView(Sender).RichEdit.Lines.LoadFromStream(TempMemStream);
end;
finally
TempMemStream.Free;
end;
end;
pripsal jsem to do jiz hotove pce, kde plnim RTF.
Jarek Uher
Jak na Random
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 16.2.2005 15:43:13
To bude asi bez UDF problem. Nepomuzou ti treba promenne
CURRENT_CONNECTION,
CURRENT_TRANSACTION
CURRENT_USER
CURRENT_TIME
+
neco z generatoru?
Jako ze bys mel generator a ten postupne jeste inkrementoval a decrementoval
podle promennych FB co jsem psal. ........????
Pokud to nepomuze tak dalsi reseni je to s tim adminem ;-)
Libor
----- Original Message -----
From: "Jiri Cincura" <diskuze(zv)cincura.net>
Sent: Wednesday, February 16, 2005 2:57 PM
> potreboval bych ve FB vybirat id naprosto nahodne. Nevedel by nekdo, jak
> udelat nejaky random select? Jak na Random
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 16.2.2005 15:13:11
Ja v MySQL pouzivam "select neco from table order by rand() limit x", tzn.
vybere mi to nahode x zaznamu z tabulky. Nevim jak dokonala je ta nahodnost,
ale pro moje potreby mi to staci. Nicmene nevim jestli by takovehle reseni
bylo aplikovatelne i ve FB.
Jirka Matejka
----- Original Message -----
From: "Jiri Cincura" <diskuze(zv)cincura.net>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 16, 2005 2:57 PM
Subject: FB: Jak na Random
> Ahoj,
>
> potreboval bych ve FB vybirat id naprosto nahodne. Nevedel by nekdo, jak
udelat nejaky random select?
>
> select neco from table where id=random();
>
> Zatim to delam v kodu, kdy si nejaky ID vymyslim pomoci Random fce a pak
uz je vybiram, problem je, ze ale musim zjistovat COUNT
> polozek v databazi (ID jsou delany triggerem, takze jsou "auto
incerement").
>
> UDF pouzit nemohu - snaz az v krajni nouzi a za cenu zabiti admina.
>
> Diky za kazdou radu.
>
> --
> Jiri Cincura
> http://www.cincura.net/
> http://ID3renamer.cincura.net/
> ICQ#: 314711544
> http://photo.cincura.net/
> http://phorum.cincura.net/
> http://x2develop.com/
>
>
>
>
FB: Jak na Random
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 16.2.2005 15:09:10
Ahoj,
zkus si brat neco z hodin. Nevim, jak moc to ma bejt nahodny, ale
mohlo by to fungovat aspon trochu.
Peca
FB: Jak na Random
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 16.2.2005 14:57:09
Ahoj,
potreboval bych ve FB vybirat id naprosto nahodne. Nevedel by nekdo, jak udelat nejaky random select?
select neco from table where id=random();
Zatim to delam v kodu, kdy si nejaky ID vymyslim pomoci Random fce a pak uz je vybiram, problem je, ze ale musim zjistovat COUNT
polozek v databazi (ID jsou delany triggerem, takze jsou "auto incerement").
UDF pouzit nemohu - snaz az v krajni nouzi a za cenu zabiti admina.
Diky za kazdou radu.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/
Invalid breakpoint v IDE
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 16.2.2005 14:49:08
> Mel jsem nedavno stejny problem a pak jsem zjistil, ze jsem
> oteviral unit
> stejneho jmena z jineho umisteni (zalozni kopie). Tvarilo se
> to prelozene,
> ale odmitalo to krokovat.
>
> Jan Skopovy
>
Dekuji vsem, kdoz se mi snazili pomoci. Postupnym prepisem stavajici unit do
jine se podarilo nalezt pricinu neobvykleho chovani. Nejblize v urceni
priciny byl P. Vones, kdyz napsal:
> Neni v tom unitu souvisly blok konstant o fyzicke velikosti vetsi nez 64k
?
> Tohle je totiz chyba v generovani debug informaci (TD32 format).
V unitu je blok prednastavenych promennych (promennych proto, ze se nekde
pouzivaji ukazatele na jednotlive promenne) ve forme recordu obsahujicich
dva string. Rekordu je kolem 100 a string jsou kratke. Nepredpokladal jsem,
ze mohou zabirat vice nez 64kB. Jenze deklarace rekordu je z unity ze starsi
doby a retezce byly deklarovany jako shortstring bez omezeni delky, tedy
kazdy zabiral 256B. Tim to narostlo. Stacilo zmenit deklaraci na string a
problem je vyresen. Sypu si popel na hlavu .....
Zaver: Pro vznik chyby v generovani debug informaci se nemusi vzdy jednat
jen o konstanty ve smyslu deklarace const, ale mohou to byt i promenne s
prednastavenymi hodnotami. Souvisly blok techto deklaraci nesmi presahnout
64kB.
Jan Dvorak
Mereni prenesenych dat
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 16.2.2005 14:39:07
Diky to SNMP vypada zajimave, nasel jsem zajimavy priklad na
http://snmprg.sourceforge.net/ (Simple Router Grapher). Super nakopnuti :o)
>> Ahoj vsichni, potreboval bych udelat program na mereni prenesenych dat
>> z/do
>> internetu, muzete me nekdo nakopnout na nejakou komponentu nebo jakym
>> zpusobem to udelat ? nemam moc o tom prehled. Pouzit registr windows nebo
>> se napichnout na nejakou dll ?
>
> nejlepsi je podle mne monitorovat to pres SNMP. kdejaky slusnejsi
> router (i kdyz je to jen nejaka levna krabicka za dva tisice) nabizi
> monitoring pres SNMP, a i kdyby ne, tak do kazdych windows (ci i
> linuxu) jde SNMP doinstalovat.
>
> Pres SNMP pak muzes na kazdem sitovem interfacu kdykoliv precist
> citace prenesenych dat.
>
multi-language project
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 16.2.2005 14:15:05
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Fejfar
> Sent: Tuesday, February 15, 2005 1:01 PM
>
> Proc rucne? My texty pojmenovavame podle komponent napr.
> TAction1.Caption, TLabel1.Hint atd. a mame u bazalniho predka
> formulare ci framu metodu Localize, ktere predame nejaky text
> pool a ten formular si sam vytaha texty, kterym rozumi.
To jiste funguje skvele, ovsem jen do doby, nez pouzijes cizi knihovnu
komponent, ktera obsahuje nejake texty a formulare. Pripadne uz hotovy
balicek. Prikladem jsou ruzne komponenty na malovani grafu, tiskove sestavy
atp.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Deformovana DIB bitmapa
[*] Tomas Juricek <krusty(zv)razdva(tec)cz> - 16.2.2005 14:11:05
> .. odporucam pouzivat bpp 32bit namiesto 24 .. (odpada problem so sirkou,
> a
> je to rychlejsie (DWord operacie , mmx ...) a "alpha friendly" :)
Snimky ziskavam z videa pomoci pomoci DirectShow interface IMediaDet a
metody GetBitmapBits, ktera vzdy vraci 24 bitovy RGB DIB.Cestina v FastReport 3 Was: QReport - jak zacit?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 16.2.2005 14:07:05
Ahoj,
k te podpore cestiny bych se zeptal: pokud rucne v designeru nenastavim
charset na EASTEUROPEAN (tzn. ze ponecham DEFAULTCHARSET nebo se jej pokusim
zmenit programove - viz. nize), tak jedno starsi laserove HP misto znaku s
ceskou diakritikou tiskne nesmysly.
Programove nastavuji:
sest:=TfrxReport.Create(nil);
sest.Font.Charset:=238; //easteurope
Nove vytvorena sestava (a jeji prvky) pak ma nastaven easteuropean charset,
tisk je vsak porad stejny. Pokud charset zmenim v designeru rucne, tzn. ze
zmenin z easteuropean na easteuropean ;-), pak uz je to ok. Jak tedy
prednastavit ceskou znakovou sadu pro vsechny nove reporty z kodu?
Dik,
Roman
FR3.09trial, W2k-XP
> Pokud si mohu dovolit srovnavat - tak FastReport (verze 2.5 stoji 99
> dolaru) je nepomerne lepsi nez Sinea (napr. skriptovani reportu,
> moznost totalne oddelit reporty a aplikaci vcetne databazovych
> komponent atd...) a vyvoj sestav je rychlejsi a kvalitnejsi...
> Podpora cestiny je take v pohode... Doporucuji vyzkouset FreeReport
> popr. si stahnout FastReport trial.
>
> S pozdravem
> Milan Tomes
Deformovana DIB bitmapa
[*] delphin(zv)post(tec)cz - 16.2.2005 14:01:04
> inc(p, 3*x + Bitmap.BI.biWidth * y*3+y*(Bitmap.BI.biWidth mod 4));
takhle to funguje cirou nahodou a pro jine bpp to nebude fungovat. Lepe
takhle:
const BytesPerPixel=3;
inc(p,x*BytesPerPixel+((Bitmap.BI.biWidth*BytesPerPixel+3) and not 3)*y);
Nezavisla sirka a vyska fontu
[*] vstuchl(zv)email(tec)cz - 16.2.2005 13:02:58
Ahoj,
chtel bych obecne, respektive pro Memo nastavit nezavislou sirku a vysku fontu. Font ma vlastnost Size a Height, ale jejich zmenou dojde i k umerne zmene sirky fontu.
Dekuji za kazdou radu,
Vasek
Porovnani dvou DBF souboru
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 16.2.2005 13:45:02
Dobry den,
rad bych se zeptal jsetli nekdo nevite o nejake komponente, ktera umi
porovnat
dva dbf soubory a to jak jejich strukturu (sloupecky), tak jejich obsah
(data).
Pouzivam Delphi6
Petr Gregor
Deformovana DIB bitmapa
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 16.2.2005 12:46:56
ano DIB proste funguje tak, ze sirka musi byt vzdy nasobkom 4 (zrejme koli alloc)
(ak nie je ostanu ti prazdne pixle nevyuzite (mod 4)).
.. odporucam pouzivat bpp 32bit namiesto 24 .. (odpada problem so sirkou, a
je to rychlejsie (DWord operacie , mmx ...) a "alpha friendly" :)
Palo
> vytvarim DIB bitmapu pomoci CreateDIBSection. Problem je v tom, ze pokud
> neni jeji sirka nasobkem 4, mam ji po zobrazeni ruzne zdeformovau. K
> jednotlivym pixelum pristupuju pomoci teto funkci:
> ZeroMemory((zv)bi, sizeof(BITMAPINFO));
> bih := (zv)bi.bmiHeader;
> bih.biSize := sizeof(BITMAPINFOHEADER);
> bih.biWidth := newW;
> bih.biHeight := newH;
> bih.biPlanes := 1;
> bih.biBitCount := 24;
> bih.biCompression := BI_RGB;
> bih.biSizeImage := NewW * NewH * 3;
> bih.biXPelsPerMeter := 10000;
> bih.biYPelsPerMeter := 10000;
> bih.biClrUsed := 0;
> bih.biClrImportant := 0;
> CreateDIBSection(GetDC(0), bi, DIB_RGB_COLORS, Pointer(bits), 0, 0);
Nefunkcni HINT v IDE pri ladeni programu
[*] jsdelphi(zv)creatix(tec)cz - 16.2.2005 12:46:56
> Nedavno jsem nainstaloval D7 Personal a zjistil jsem ze pri
> zastaveni na nejakem berakpointu neni funkcni HINT s hodnotou
> promenne nad kterou se zastavi kurzor mysi. V D5 i D6 toto
> fungovalo. Je nekde neco vypnute, nebo to neni v teto verzi
> funkcni (zablokovane)?
Me to nechodi ani v D6 Professional. Kde se musi neco zapnout?
Jan Skopovy
CREATIX s.r.o.
tel/fax: +420 222 564 426
mobil: +420 776 097 202
email: js(zv)creatix(tec)cz
www.creatix(tec)cz Mereni prenesenych dat
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 16.2.2005 13:02:58
Radek Szurman wrote:
> Ahoj vsichni, potreboval bych udelat program na mereni prenesenych dat
> z/do internetu, muzete me nekdo nakopnout na nejakou komponentu nebo
> jakym zpusobem to udelat ? nemam moc o tom prehled. Pouzit registr
> windows nebo se napichnout na nejakou dll ?
>
> Diky
Pro cely system? Tak to to chce jako to delaji FW. Napises DLL a jde pres ni vsechno (jako HOOK) a ty s tim muzes delat co chces, to
je asi neuniverzalnejsi.
Mam pocit, ze na CodeProject o tom byl nejaky clanek. Jinak MSDN to jisti. ;)
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Deformovana DIB bitmapa
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 16.2.2005 13:29:01
function CalcBitmapSize(Width, Height, Bpp: Integer): Integer;
begin
Result := CalcByteWidth(Width, Bpp) * Height;
end;
Sorry prepisoval jsem (proc to klicovy slovo neni stejny...)
Tk.
> procedure CalcBitmapSize(Width, Height, Bpp: Integer): Integer;
> begin
> Result := CalcByteWidth(Width, Bpp) * Height;
> end;
Mereni prenesenych dat
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 16.2.2005 13:27:00
> Ahoj vsichni, potreboval bych udelat program na mereni prenesenych dat z/do
> internetu, muzete me nekdo nakopnout na nejakou komponentu nebo jakym
> zpusobem to udelat ? nemam moc o tom prehled. Pouzit registr windows nebo
> se napichnout na nejakou dll ?
nejlepsi je podle mne monitorovat to pres SNMP. kdejaky slusnejsi
router (i kdyz je to jen nejaka levna krabicka za dva tisice) nabizi
monitoring pres SNMP, a i kdyby ne, tak do kazdych windows (ci i
linuxu) jde SNMP doinstalovat.
Pres SNMP pak muzes na kazdem sitovem interfacu kdykoliv precist
citace prenesenych dat.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Deformovana DIB bitmapa
[*] Tomas Juricek <krusty(zv)razdva(tec)cz> - 16.2.2005 13:25:00
> No to je jasne. Jednotlive scanlines(radky) jsou zarovnane nahoru na 4
> bajty.
> Musis pouzit neco takoveho (funguje obecne):
>
> function DivUp(Dividend, Divisor: Integer): Integer;
> begin
> if Dividend mod Divisor > 0 then
> Result := Dividend div Divisor + 1
> else
> Result := Dividend div Divisor;
> end;
>
> function CalcByteWidth(Width, Bpp: Integer): Integer;
> begin
> Result := DivUp(Width * Bpp, SizeOf(LongWord) shl 3) * SizeOf(LongWord);
> end;
>
> procedure CalcBitmapSize(Width, Height, Bpp: Integer): Integer;
> begin
> Result := CalcByteWidth(Width, Bpp) * Height;
> end;
Dekuji, nevedel jsem, ze jsou radky zarovnane na 4 bajty. Nakonec jsem to
vyresil takto:
procedure SetBit(Bitmap: TBitmapData; x: integer; y: integer; Pixel:
PPixel);
var
p: PByte;
begin
p:=PByte(Bitmap.bits);
inc(p, 3*x + Bitmap.BI.biWidth * y*3+y*(Bitmap.BI.biWidth mod 4));
PPixel(p)^:=Pixel^;
end;
Tomas Juricek
Invalid breakpoint v IDE
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 16.2.2005 13:06:58
> Mel jsem nedavno stejny problem a pak jsem zjistil, ze jsem oteviral unit
> stejneho jmena z jineho umisteni (zalozni kopie). Tvarilo se to prelozene,
> ale odmitalo to krokovat.
Presne tak. Muze se stat, ze pri kompilaci (balicku) je kompilovan spravny
unit, tak jak je v balicku s celou cestou, ale pri debug si D najdou nekde
zapomenuty unit stejneho jmena podle poradi cest v Library path. Hledal bych
vyskyt vsech unit stejneho jmena na disku...
MB
Invalid breakpoint v IDE
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 16.2.2005 13:04:58
Jeste bych zkusil odinstalovat IDE experty a preinstalovat balicky. Pak uz
jen preinstalovat Delphi. A pak uz jen preinstalovat komp...
Tk.
> Jeste to shrnu:
> * po vymazani dcu a build projektu se v adresari objevi
> nove DCU?
> * po prekladu jde videt vlevo zelena tecka?
> * pri krokovani v CPU je v tom miste videt nejaky kod odpovidajici
> inkriminovanemu mistu ?
> * optimalizace je vypnuta (zkusil bych tam na zacatek
> toho unitu to napsat znova)
> * pri prenosu celeho projektu (jen dpr, pas, dfm a inc) na jine
> misto to dela taky?
> * v map souboru jsou pro prislusne radky po kompilaci
> definovane nejake
> adresy? (to uz jen takovy zoufalej pokus)
> *neni to balicek a u ostatnich mist ve stejnem unitu to
> nedela (jen pro
> uplnost)
>
> Pokud vsude ANO pak ja osobne uz nevim a je to chyba Delphi
>
> Radek
>
>
>
>
>
Deformovana DIB bitmapa
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 16.2.2005 12:42:55
Ahoj
> vytvarim DIB bitmapu pomoci CreateDIBSection. Problem je v
> tom, ze pokud
> neni jeji sirka nasobkem 4, mam ji po zobrazeni ruzne zdeformovau. K
> jednotlivym pixelum pristupuju pomoci teto funkci:
...
> bih.biSizeImage := NewW * NewH * 3;
No to je jasne. Jednotlive scanlines(radky) jsou zarovnane nahoru na 4
bajty.
Musis pouzit neco takoveho (funguje obecne):
function DivUp(Dividend, Divisor: Integer): Integer;
begin
if Dividend mod Divisor > 0 then
Result := Dividend div Divisor + 1
else
Result := Dividend div Divisor;
end;
function CalcByteWidth(Width, Bpp: Integer): Integer;
begin
Result := DivUp(Width * Bpp, SizeOf(LongWord) shl 3) * SizeOf(LongWord);
end;
procedure CalcBitmapSize(Width, Height, Bpp: Integer): Integer;
begin
Result := CalcByteWidth(Width, Bpp) * Height;
end;
Tk.
Mereni prenesenych dat
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 16.2.2005 12:54:57
Ahoj vsichni, potreboval bych udelat program na mereni prenesenych dat z/do
internetu, muzete me nekdo nakopnout na nejakou komponentu nebo jakym
zpusobem to udelat ? nemam moc o tom prehled. Pouzit registr windows nebo
se napichnout na nejakou dll ?
Diky
Invalid breakpoint v IDE
[*] jsdelphi(zv)creatix(tec)cz - 16.2.2005 12:50:57
> Subject: Re: Invalid breakpoint v IDE
Mel jsem nedavno stejny problem a pak jsem zjistil, ze jsem oteviral unit
stejneho jmena z jineho umisteni (zalozni kopie). Tvarilo se to prelozene,
ale odmitalo to krokovat.
Jan Skopovy
CREATIX s.r.o.
tel/fax: +420 222 564 426
mobil: +420 776 097 202
email: js(zv)creatix(tec)cz
www.creatix(tec)cz random access files
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 16.2.2005 12:42:55
Ahoj,
no pripada mi to oproti VB dost pracne. Zkusil jsem vse cist tak, ze jsem
napsal deklaraci rekordu jako pro zakladni stavebni kamen typu single a pak
to cist v cyklu a davat dohromady.
N je pocet merenych mist
i a j jsou misto v rekordu a cislo odectu...
Vypada to neumele, mozna i je, ale jakz takz to v tomto konkretnim pripade
funguje. Horsi to bude asi se zapisem, vata1 az vata4 jsou nejake udaje VB o
delce dynamickeho pole v rekordu, tak musim zjistit, co tam VB zapisuje.
Jinak, musi byt pouzita direktiva tusim {$A-}, ktera vypina optimalizaci
datovych struktur v souboru.
type TNamer=record
hodn: single;
end;
Tcas1 = array[1..4] of char;
procedure TForm1.NactiCas(j: longint; var cas: TTime; var casX: string);
var s: string;
begin
ZacRekordu:=(j-1)*(2+3+N+3+N);
seek(f, zacrekordu);
read(f, namer);
Pcas1:=(zv)namer.hodn;
s:=Pcas1[1] +Pcas1[2] + Pcas1[3] + Pcas1[4];
read(f, namer);
Pcas1:=(zv)namer.hodn;
casX:=s + Pcas1[1] +Pcas1[2] + Pcas1[3] + Pcas1[4];
cas:=strtotime(casX);
end;
function TForm1.NactiHodnotu(i, j: longint): single;
var k: longint; //vypoctena pozice singlu
s: string;
begin
ZacRekordu:=(j-1)*(2+3+N+3+N); // zacatek j-teho odectu
{---------------------
elektricka hodnota
----------------------
k:=ZacRekordu + 5 + i-1; // pro MDat, i-te misto v j-tem odectu
seek(f, k);
read(f, namer);
edit3.text:=floattostr(namer.hodn);
------------------------------------}
k:=ZacRekordu + 5 + N + 3 + i-1; // pro MFyz, i-te misto v j-tem odectu
seek(f, k);
read(f, namer);
NactiHodnotu:=namer.hodn;
end;
Invalid breakpoint v IDE
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 16.2.2005 12:34:54
Ing. Jan Dvorak wrote:
>>Jeste si matne vzpominam, ze ma IDE problem najit cestu ke spustenemu EXE
>>zkusil bych pridat do te unity directivy, ktere povoli debug
>>info (D+,
>>L+, Y+ ...).
>>predpokladam, ze Delphi nemaji problemy s kompilaci te knihovny (tj
>>chybna syntaxe zp[usobi chybove hlaseni kompilatoru- uz jsem tusim
>>videl nejake podivne problemy, ktere souvisely s tim, ze sice zdrojak
>>byl natazen v IDE, ale kompilator/linker pouzival predkompillovane
>>stare DCU, pripadne zdrojak stejneho jmena na jinem miste). Smazal
>>bych prislusne DCU a zkontroloval nastaveni cest kompilatoru
>
> Pridal jsem to tam, nepomohlo to. V globalnim nastaveni celeho projektu je
> D+ i L+. Pri nalezeni syntakticke chyby se neprovede linkovani programu a
> neni co spustit.
> Cely projekt je v jednom adresari. Zkousel jsem vymazat vsechny .dcu soubory
> i provest build - vysledek stejny.
> Pokusim se experimentovat s poctem LabeledEdit na formu, vysledek sdelim.
> Jan Dvorak
Posledni pokus:
zkusil bych dat breakpoint pred vstup do inkriminovaneho mista
a pak rucne krokovat (at uz normalne nebo CPU). Pokud je to udalost
tak bych ji zkusil umele zavolat (treba pres tlacitko)
Jeste to shrnu:
* po vymazani dcu a build projektu se v adresari objevi
nove DCU?
* po prekladu jde videt vlevo zelena tecka?
* pri krokovani v CPU je v tom miste videt nejaky kod odpovidajici
inkriminovanemu mistu ?
* optimalizace je vypnuta (zkusil bych tam na zacatek
toho unitu to napsat znova)
* pri prenosu celeho projektu (jen dpr, pas, dfm a inc) na jine
misto to dela taky?
* v map souboru jsou pro prislusne radky po kompilaci definovane nejake
adresy? (to uz jen takovy zoufalej pokus)
*neni to balicek a u ostatnich mist ve stejnem unitu to nedela (jen pro
uplnost)
Pokud vsude ANO pak ja osobne uz nevim a je to chyba Delphi
Radek
Deformovana DIB bitmapa
[*] delphin(zv)post(tec)cz - 16.2.2005 12:24:53
Kazdy radek je zarovnan na longword, tj. vzdy na konci radku muze byt 1..3
nepouzitych byte, proto se to nekdy deformuje.Webove sluzby nebo .NET remoting
[*] Zdenek Sedlak <konf(zv)seus(tec)cz> - 16.2.2005 12:16:52
Ahoj,
rad bych se na vas obratil s zadosti o radu nebo o vase nazory.
U jednoho klienta bezi muj system naprogramovany v Delphi 6 a databaze
je pouzit Firebird. Se vsim jsem vicemene spokojen, hlavne s tim, ze
klient je spokojen, neb to dela, co on potrebuje.
Tak a ted se objevil novy pozadavek. A tim je, aby mohli nekteri
zakaznici (bude jich cca 200) mohli prohlizet sve dodavky na internetu
ve webovem prohlizeci a mohli zadavat sve pozadavky.
Asi 3-5 mesicu si pomalu a postupne (neb musim i pracovat) otukavam .NET
a MS VisualStudio, takze samozrejme si hraju i s ASP.NET. Coz by nebyl
problem, mam i spojeni na Firebird atd.
Problemem je pro me nyni rozhodnout o nasazeni technologii. Dosavadni
system bezi na lokalni siti a spravuje a analyzuje udaje nejen o
objednavkach a dodavkach, ale take dalsi (jednoduchou personalni agendu,
planovani, a tvori spoustu vystupu). Pripojeni do netu je zde 512kbps.
Kvuli moznosti weboveho prohlizeni dat a porizovani objednavek se poridi
novy server, bude na nem MS Windows 2003 server, IIS, .NET, MS SQL
server, ale, a to je dulezite, bude umisten v jine lokalite, kde je
lepsi konektivita 2Mbps. Novy system nebude duplikovat porizovani udaju,
takze pujde spis o to, ze z meho systemu na Firebirdu se budou muset
nejaka data prenaset do MS SQL noveho systemu a naopak. Nepujde o ciste
replikace, nebot opravdu nebudou muset byt stejna data na obou
systemech. Jen si musi spolu par informaci vymenit. Novy system dovoli
zadat objednavky a ty se musi prenest do Firebirdu a tam potvrdit. A
stary system bude muset predavat data pro novy system, tedy stavy
objednavek a take historii dodavek (tato data budou v novem systemu jen
pro cteni, nebudou se tam menit, bohudik).
A mne ted jde o to, jake technologie pouzit pro "automatickou" vymenu
dat. Automatickou alespon z pohledu noveho systemu, tam proste pobezi
server a predstava je takova, ze se nebude muset moc spravovat, resp.
jen bezna udrzba ale rozhodne ne obsluha, ktera by spoustela nejake
synchronizace.
Na starem systemu je mozne oboji, ze by to bylo automaticky nebo na
pozadani.
Mam asi 2 zakladni predstavy. Pro obe si dokazu vytvorit data, ktera je
potreba prenest z obou stran. Ale jde mi o to jak je prenest.
1) Webove sluzby
Na novem serveru by mohlo bezet nekolik sluzeb (nebo jedna s vice
moznostmi). Takze by si stary system dokazal rict o nova data a ta by
naimportoval k sobe a zpracoval dal. Tim by se mohli prenaset pozadavky
objednavek zakazniku. Zaroven ale musi stary system prenaset take nova
data dodavek a stavu objednavek na novy system. To by asi take slo
pomoci webove sluzby. Tech dat nebude zase nejak extra velke mnozstvi
radove tak 100 az 200 zaznamu denne.
2) Pouzit .NET remoting
Princip vymeny by byl asi stejny. Proste by u stareho systemu bezela
sluzba (nebo by se na pozadani volala funkce prenosu dat) a ta by se
pripojila stahla nova data a take predala nova data ze stareho systemu
odeslala.
Vim, ze obe moznosti maji sve vyhody i nevyhody. U .NET remotingu je asi
vyhodou, ze muze posilat binarni data a muze volit protokoly HTTP nebo
TCP a diky tomu to je asi rychlejsi. Ovsem zatim s tim nemam zadne
zkusenosti. Princip by byl asi stejny.
Jen me zajimaji nejake nastrahy? treba si dovedu predstavit ze provoz
webove sluzby bude asi jednodussi. Protoze ten novy server nebudu
spravovat ja, ale firma, co se jim stara o vsechny pocitace, takze
nejspis je snazsi udrzovat webovou sluzbu v IIS nez dovolovat pristup
pro .NET remoting apod. Ale mozna se pletu. Dale take zatim nemam
predstavu, jak je mozne zabezpecit pristup k sluzbam a remotingu
(samzrejme data budou sifrovana atd.) jen overovani, zda uzivatel
(synchronizacni sluzba) ma opravneni.
Resil nekdo z vas neco podobneho?
Podotykam ze VPN nemaji a nepujde se pripojit na MS SQL server primo. A
ten MS SQL asi nebude (na 95%) pristupny z venku. Proto bych to rad
resil prave pres webove sluzby, ale pokud mi ted poradite radeji .NET
remoting... tak mozna zmenim nazor. Rad si necham poradit.
Koukam, ze jsem toho napsal hodne. Snad je to srozumitelne, chtel jsem
podat dostatek informaci, aby muj dotaz nebyl prilis obecny.
Snad me neukamenujete.
Diky za rady a vase postrehy
Zdenek Sedlak
Deformovana DIB bitmapa
[*] Tomas Juricek <krusty(zv)razdva(tec)cz> - 16.2.2005 11:58:50
Zdravim,
vytvarim DIB bitmapu pomoci CreateDIBSection. Problem je v tom, ze pokud
neni jeji sirka nasobkem 4, mam ji po zobrazeni ruzne zdeformovau. K
jednotlivym pixelum pristupuju pomoci teto funkci:
procedure SetBit(Bitmap: TBitmapData; x: integer; y: integer; Pixel:
PPixel);
var
p: PPixel;
begin
p:=Bitmap.bits;
inc(p, x + Bitmap.BI.biWidth * y);
p^:=Pixel^;
end;
PPixel = ^TPixel;
TPixel = record
r,g,b: byte;
end;
PBitmapData = ^TBitmapData;
TBitmapData = record
bits: PPixel;
BI: BITMAPINFOHEADER;
Bmp: HBITMAP;
end;
Bitmapa je vytvorena takto:
ZeroMemory((zv)bi, sizeof(BITMAPINFO));
bih := (zv)bi.bmiHeader;
bih.biSize := sizeof(BITMAPINFOHEADER);
bih.biWidth := newW;
bih.biHeight := newH;
bih.biPlanes := 1;
bih.biBitCount := 24;
bih.biCompression := BI_RGB;
bih.biSizeImage := NewW * NewH * 3;
bih.biXPelsPerMeter := 10000;
bih.biYPelsPerMeter := 10000;
bih.biClrUsed := 0;
bih.biClrImportant := 0;
CreateDIBSection(GetDC(0), bi, DIB_RGB_COLORS, Pointer(bits), 0, 0);
Delam neco spatne?
Mozna bude DIB spatne vytvoren, ale zajimave na tom je to, ze se chyba
projevi pouze pokud sirka neni nasobkem 4.
Dekuji za kazdou radu,
Tomas Juricek
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14.2.2005
Invalid breakpoint v IDE
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 16.2.2005 11:30:48
> Jeste si matne vzpominam, ze ma IDE problem najit cestu ke spustenemu EXE
> v pripade, ze program za behu zmeni current dir. Uz si nepamatuju, jak se
to
> presne
> projevuje, ale vim, ze se musi zadavat Output Directory v Project Options
> absolutni cestou. Tak jestli tam nemas nahodou relativni. Jinak uz me nic
> nenapada.
>
> HTH, pf
Adresar se nemeni, tim to nebude.
> zkusil bych pridat do te unity directivy, ktere povoli debug
> info (D+,
> L+, Y+ ...).
> predpokladam, ze Delphi nemaji problemy s kompilaci te knihovny (tj
> chybna syntaxe zp[usobi chybove hlaseni kompilatoru- uz jsem tusim
> videl nejake podivne problemy, ktere souvisely s tim, ze sice zdrojak
> byl natazen v IDE, ale kompilator/linker pouzival predkompillovane
> stare DCU, pripadne zdrojak stejneho jmena na jinem miste). Smazal
> bych prislusne DCU a zkontroloval nastaveni cest kompilatoru
>
> Zdravi
> Dalibor Toman
>
Pridal jsem to tam, nepomohlo to. V globalnim nastaveni celeho projektu je
D+ i L+. Pri nalezeni syntakticke chyby se neprovede linkovani programu a
neni co spustit.
Cely projekt je v jednom adresari. Zkousel jsem vymazat vsechny .dcu soubory
i provest build - vysledek stejny.
Pokusim se experimentovat s poctem LabeledEdit na formu, vysledek sdelim.
Jan Dvorak
Nefunkcni HINT v IDE pri ladeni programu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 16.2.2005 11:10:47
> Nedavno jsem nainstaloval D7 Personal a zjistil jsem ze pri zastaveni na nejakem berakpointu neni funkcni HINT s hodnotou promenne nad kterou se zastavi kurzor mysi.
> V D5 i D6 toto fungovalo. Je nekde neco vypnute, nebo to neni v teto verzi funkcni (zablokovane)?
Tato vlastnost je v personal verzi schvalne zakazana. ;-(
Zajimave je, ze Borland tvrdi, ze to je zakazane i v personal verzi
D6, ale ja mam prokazatelne instalaci D6-personal, kde to funguje! :-
O
(stahnuto kdysi z webu Borlandu pomerne kratce po uverejneni personal
verze.) ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Nefunkcni HINT v IDE pri ladeni programu
[*] suvak(zv)asbis.sk - 16.2.2005 10:52:46
Zmenil som
____________________________________
Peter Suvak, system administrator
ASBIS SK spol. s r.o.
Alesovo nabrezie 2
040 01 Kosice
Tel: ++421 55 6332063 ext. 151
Fax: ++421 55 6324449
e-mail: suvak(zv)asbis.sk
URL: http://www.asbis.sk
Nefunkcni HINT v IDE pri ladeni programu
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 16.2.2005 10:36:44
Dobry den.
Nedavno jsem nainstaloval D7 Personal a zjistil jsem ze pri zastaveni na nejakem berakpointu neni funkcni HINT s hodnotou promenne nad kterou se zastavi kurzor mysi.
V D5 i D6 toto fungovalo. Je nekde neco vypnute, nebo to neni v teto verzi funkcni (zablokovane)?
P.S.: Pokuk dam tu promennou do WATCHe tak je tam vse v poradku, jen ten HINT nechodi.
Dik.
Delphi 4 -> Delphi .NET
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 16.2.2005 10:20:43
> mel bych dotaz ohledne prechodu z Delphi 4 na Delphi .Net. Mame
> projekt vytvoreny v Delphi 4. Da se rict nakolik bude mozne to co
> je hotove pouzit, pokud budeme chtit pokracovat dale v Delphi
> .NET.
Programovani v .NET je predevsim dost jine, nez programovani ve Win32.
Nejde tedy ani tak o prepis kodu z jednoho jazyka (Pascal) do druheho (C#), ale o jiny styl programovani.
> Existuje nejaka zpetna kompatibilita nebo cesta jakou
> vyuzit stavajici veci, nebo to bude spis na preprogramovani.
Delphi se o jakousi pochybnou zpetnou kompatibilitu pokousi (VCL.NET), ale vetsina zkusenych se shodne, ze to je slepa ulicka. Misto aby se kod "procistil" do stylu .NET, je to jeden velkej zmatek.
> Nebo
> by byl vhodnejsi prechod na C#? Nasi programatori, ale znaji jen
> delphi tak by prechod na delphi .NET mohl byt mene bolestny.
Prechod na C# rozhodne neni bolestny. Je to moc pekny jazyk, navic jeho "duchovanim otcem" je Anders Heilsberg, ktery pro nas postupne vytvoril Turbo Pascal, Delphi a ted C#. Prechod na C# se mi proto zda velmi logicky.
Jazyk C# se na nasem ctyrdennim zakladnim kurzu .NET prednasi, pokud se nemylim, jeden den. Jak receno vyse, prechod do .NET je ale o jinem stylu programovani, ne jenom o jazyce. Proto ty ctyri dny. Tento pomer by mohl zhruba vyjadrovat pomer "bolestnosti" prechodu na jiny jazyk s prechodem do prostredi .NET celkove.
Z uvedeneho by melo vyplynout, ze pokud budeme posilhavat po nejake zpetne kompatibilite, NEBUDEME PROGRAMOVAT .NET.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Invalid breakpoint v IDE
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.2.2005 09:36:40
> Ten breakpoint nejde nastavit v cele unite; napr. v onCreate se
> vytvari pole TLabeldEdit s jeho pouzitim se urcuji jednotlive
> EditLabel.Caption. Vse se zdarne provede ale breakpoint tam
> nenastavim, resp. se mi zmeni na neplatny. Prirozene, ze breakpoint
> nastavuji jenom tam, kde to je mozne.
zkusil bych pridat do te unity directivy, ktere povoli debug info (D+,
L+, Y+ ...).
predpokladam, ze Delphi nemaji problemy s kompilaci te knihovny (tj
chybna syntaxe zp[usobi chybove hlaseni kompilatoru- uz jsem tusim
videl nejake podivne problemy, ktere souvisely s tim, ze sice zdrojak
byl natazen v IDE, ale kompilator/linker pouzival predkompillovane
stare DCU, pripadne zdrojak stejneho jmena na jinem miste). Smazal
bych prislusne DCU a zkontroloval nastaveni cest kompilatoru
Zdravi
Dalibor Toman
Delphi 4 -> Delphi .NET
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 16.2.2005 09:20:39
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of josef tichy
> Sent: Wednesday, February 16, 2005 8:27 AM
>
> mel bych dotaz ohledne prechodu z Delphi 4 na Delphi .Net.
> Mame projekt vytvoreny v Delphi 4. Da se rict nakolik bude
> mozne to co je hotove pouzit, pokud budeme chtit pokracovat
> dale v Delphi .NET. Existuje nejaka zpetna kompatibilita nebo
> cesta jakou vyuzit stavajici veci, nebo to bude spis na
> preprogramovani. Nebo by byl vhodnejsi prechod na C#? Nasi
> programatori, ale znaji jen delphi tak by prechod na delphi
> .NET mohl byt mene bolestny. Mate s tim nekdo zkusenosti.
Mame. Nejprve je vhodne se vzevrubne obeznamit s tim, co .NET obnasi
(skoleni, samostudium, ...). Teprve PAK ma smysl predelavat projekt do .NET.
Moje zkusenost je takova: Delphi .NET ne. VCL.NET, ktery nabizi iluzi
snadneho prechodu z Win32 do .NET je dle meho nazoru slepa ulicka. Mozna je
oduvodnitelna pro situace, kdy je treba neco prevest rychle jako celek, a
pak se postupne kod prepisuje do cisteho .NET.
Pro Delphistu je nejprijemnejsi prechod do C#, a tento jazyk je pro .NET
take nejvhodnejsi. Momentalne je asi nejlepsi prostredi pro vyvoj v .NET
Visual Studio, i kdyz to ma take sve neprijemne mouchy.
Architektura .NET je natolik odlisna, ze je treba se zamyslet nad temito
konstrukcemi:
jakykoliv pointer (i PChar): v .NET neni (je sice mozne to v nechranenem
rezimu pouzit, ale vrele se nedoporucuje).
record: pokud se v programu pracuje s delkou struktury, je treba prepsat.
string: v .NET zasadne unicode, pokud se stringy zapisuji do souboru nebo
ctou, je nutne tyto veci osetrit (prepsat); pokud se program hrabe (a meni)
primym pristupem ve vnitrku stringu, je treba prepsat.
datove tytpy obecne: v .NET jsou to take objekty, ktere maji sve metody;
takze napriklad prevod cisla se nedela IntToStr(cislo), ale
cislo.ToString(), nedela se Format(string,...) ale string.Format(...) atp.;
prakticky veskere konverze se tam delaji jinak.
Pokud se aplikace uvedenymi konstrukcemi hemzi, je nejlepsi si sednout, a
navrhnout projekt od sameho zacatku tak, aby vyhovoval .NETu, a pak ho
napsat cely znovu.
Je treba se pripravit i na to, ze nektere veci jsou v .NET horsi nez ve VCL
(celkove je vsak .NET o nekolik trid lepsi, i pres urcite nedostatky). Budu
o nich povidat v Laznich Belohrad na seminari
(http://www.haes(tec)cz/ws_pozv.asp?r=x).
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Prevod IDL do PAS
[*] Martin Vlk <mavlk(zv)helpforest(tec)cz> - 16.2.2005 08:48:34
Ahoj,
potrebuji prevest soubor *.IDL (Microsoft IDL) do *.PAS.
Zkousel jsem nejdrive zkompilovat IDL do TLB pomoci programu
MIDL.EXE, ale pri importu TLB do Delphi se nenaimportuje vse.
Konkretne se mi jedna o prevod souboru imsconf2.idl (NetMeeting).
Sice by to slo prepsat z toho IDL do PAS rucne, ale to se mi
vubec nechce. Nevi nekdo co s tim ?
S pozdravem
Martin Vlk
Delphi 4 -> Delphi .NET
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 16.2.2005 08:42:33
Problem nevidim v prechodu z Delphi na C# ale z prechodu na dotNet. S
pouzitelnosti jiz hotoveho kodu v dotNetu bych si nedelal moc velke nadeje
.... mozna tak nejake funkce a pod. V C# se da naucit syntaxe za shvilku a
celkem bezbolestne ale osahat si dotNet Framework chce nejaky cas .....
Libor
----- Original Message -----
From: "josef tichy" <josef.tich(zv)seznam(tec)cz>
Sent: Wednesday, February 16, 2005 8:26 AM
> Mame projekt vytvoreny v Delphi 4. Da se rict nakolik bude mozne to co je
> hotove pouzit, pokud budeme chtit pokracovat dale v Delphi .NET.
> Josef Tichy
QR, format papiru, PDF
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 16.2.2005 08:34:32
Ahoj vsichni
Mam nasledujici problem (uz jsem o nem psal a ted vim neco vic)
Kdyz vytisknu sestavu a to i A4 dostanu jiny vystup jako kdyz ji ulozim do souboru, znovu ji nactu a vytisknu (tisk se zuzi). Myslim ze je to tim ze A4 tiskarny je "jina" nez A4 pri SaveToFile. Nepomohlo ani zruseni okraju. Nevite nekdo jak QuickReport donutit, aby tiskl "stejne".
Napada me jeste moznost ukladani do PDF a tisku pres AcrobatReader. Zkousel to nekdo ve verzi profesional? Potrebuju tisknout do predpripravenych formularu a nejsem si jisty ze to pujde. QR bohuzel nemohu opustit, mame v nem prilis mnoho sestav.
Predem dekuji za jakykoliv tip
Jaromir Cermak
Delphi 4 -> Delphi .NET
[*] josef tichy <josef.tich(zv)seznam(tec)cz> - 16.2.2005 08:26:31
Dobry den,
mel bych dotaz ohledne prechodu z Delphi 4 na Delphi .Net. Mame projekt vytvoreny v Delphi 4. Da se rict nakolik bude mozne to co je hotove pouzit, pokud budeme chtit pokracovat dale v Delphi .NET. Existuje nejaka zpetna kompatibilita nebo cesta jakou vyuzit stavajici veci, nebo to bude spis na preprogramovani. Nebo by byl vhodnejsi prechod na C#? Nasi programatori, ale znaji jen delphi tak by prechod na delphi .NET mohl byt mene bolestny. Mate s tim nekdo zkusenosti.
S pozdravem Josef Tichy
random access files
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.2.2005 08:24:31
Dalibor Faltynek wrote:
> Stream jsem si vzdycky predstavoval, ze je na precteni treba textu,
> nebo blobu, ale od zacatku.
Stream predstavuje zapouzdreni I/O operaci na nejnizsi urovni,
tzn. ze je nejobecnejsi, ale prace s nim je zpravidla nejpracnejsi.
> U "File of " delarace nepomuze nejaka direktiva pro zruseni kontroly
> v dobe prekladu?
Ne, protoze pri I/O operaci se presouva posloupnost bytu mezi operacni
pameti a mediem.
A jestlize ta posloupnost v pameti neobsahuje primo data, ale *odkaz* na
data,
jako je tomu napr. v pripade ANSIStringu, dynamicky alokovanych arrays aj.,
tak se na medium prenese ten odkaz (=pointer), ale ne data.
Protoze mas polozky s nestejnou velikosti, musis ten soubor slozit jako
posloupnost
bloku, z nichz kazdy bude ukladan min. jako DELKA + TELO.
Vyhledani n-teho bloku pak znamena preskakat sekvencne predchazejicich n-1
bloku tak,
ze prectes DELKU a prictes ji ke current offsetu a udelas SEEK na tuto
hodnotu Z ni prectes
DELKU a postup opakujes.
Pokud to potrebujes urychlit, dela se to tak, ze vlastnimu souboru pridas
taky hlavicku a v ni nechas
pole pro pozdejsi zapis pocatku tabulky se zacatky bloku. Pri zapisu bloku
si pamatujes v pameti pocatky bloku a az zapises vsechny bloky, tak si
zapamatujes current offset a na nej zapises
tu tabulku. Pak udelas seek na to pole v hlavicce souboru a zapises do nej
ten offset tabulky.
Pri cteni naopak prectes offset z hlavicky souboru, udelas seek na zacatek
tabulky, tabulku nactes do pameti a z ni tahas offsety jednotlivych bloku,
na ktere se dostavas pomoci SEEK.
Samozrejme, ze pokud obsahuje ten blok nejaky odkaz na data mimo buffer,
musis ho vyresit
tj. zapsat si min,. delku + telo toho fieldu a pri cteni ho musis zase
alokovat.
Zkratka zadna veda - jen je to trochu pracne ;-)
HTH, pf
random access files
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 16.2.2005 08:00:29
Tusim, ze pro praci s typovymi soubory v Delphi plati omezeni, ze nesmi
obsahovat retezce AnsiString, Varianty, instance trid, rozhrani ci dynamicka
pole. Taky ten vnitrni typ bych si definoval samostatne vne hlavniho, ale
nutne to neni, jen se to muze dale hodit pro dalsi praci.
Pres read a write se mi to nedari, protoze compiler protestuje pri deklaraci
souboru
implementation
{$R *.DFM}
type
TNamerRecord=record
FixedData:record
cas:string[8];
vata1,vata2,vata3,vata4:byte;
end;
mdat:array of Single;
mfyz:array of Single;
end;
var NamerRecord: TNamerRecord;
F: File of TNamerRecord;
a opravnene rika neco o finalizaci.
Delam nekde chybu, nebo to tak proste nejde? Pres stream jsem to nezkousel
zatim.
Dalibor
> Funguje to uplpne stejne i pres Read a Write.
Invalid breakpoint v IDE
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.2.2005 07:58:29
Ing. Jan Dvorak wrote:
> Ten breakpoint nejde nastavit v cele unite; napr. v onCreate se
> vytvari pole TLabeldEdit s jeho pouzitim se urcuji jednotlive
> EditLabel.Caption. Vse se zdarne provede ale breakpoint tam
> nenastavim, resp. se mi zmeni na neplatny.
Jeste si matne vzpominam, ze ma IDE problem najit cestu ke spustenemu EXE
v pripade, ze program za behu zmeni current dir. Uz si nepamatuju, jak se to
presne
projevuje, ale vim, ze se musi zadavat Output Directory v Project Options
absolutni cestou. Tak jestli tam nemas nahodou relativni. Jinak uz me nic
nenapada.
HTH, pf
random access files
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.2.2005 07:44:27
> U "File of " delarace nepomuze nejaka direktiva pro zruseni kontroly v dobe
> prekladu?
Ahoj,
rekl bych, ze ne. Kdyz record obsahuje dynamicke pole, neni jasne,
jakou ma vlastne delku, coz je u file of TNeco potreba vedet.
Nicmene u TFileStream, jak tu asi nekdo zminil, se da normalne
postavit na urcenou pozici, nejaka metoda typu Seek, nazev ted z hlavy
presne nevim, takze pokud chces na zacatek 26. zaznamu, mel by ses
postavit na 25 * sizeof(TNeco). K tomu me jeste napada mozny
problem s align polozek recordu. Asi by bylo dobre pouzit packed
record, ale v nem asi nepujde pouzit dynamicke pole?
David Lebeda
Invalid breakpoint v IDE
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 16.2.2005 07:32:27
> A ten breakpoint nejde nastavit nikde v te unit nebo jen v
> urcite metode?
> Pokud je to jen u urcite subroutiny, tak to muze byt proto,
> ze ji linker
> vypustil jako nepouzivanou - to se pozna podle absence tecek vlevo v
> gutteru,
> jak uz psal TK.
>
> pf
>
Ten breakpoint nejde nastavit v cele unite; napr. v onCreate se vytvari pole
TLabeldEdit s jeho pouzitim se urcuji jednotlive EditLabel.Caption. Vse se
zdarne provede ale breakpoint tam nenastavim, resp. se mi zmeni na neplatny.
Prirozene, ze breakpoint nastavuji jenom tam, kde to je mozne.
Jan Dvorak
random access files
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 16.2.2005 07:24:26
Ahoj,
pouzivani streamu neovladam, z toho prikladku, co jsi mi poslal nevim, jak
se zapichnout traba na 26. odecet v soboru namerenych dat. Stream jsem si
vzdycky predstavoval, ze je na precteni treba textu, nebo blobu, ale od
zacatku.
U "File of " delarace nepomuze nejaka direktiva pro zruseni kontroly v dobe
prekladu?
Dalibor.
> File of nejde pouzit. Pres TFileStream to pujde urcite.Upgrade JVCL 2.10
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 15.2.2005 22:01:41
... v novych releasoch je uz mozne skopmilovat komponenty bez JVCL, prepinac USEJVCL
{$IFNDEF USEJVCL}
> Do dnesniho dne jsem ke sve naproste spokojenosti pouzival JVCL knihovny. Na procesorech Pentium4 HT ovsem nelze zkompilovat aplikaci pro dokumetovany bug v unitach jclgraphutils a jclsysinfo. Upgradoval jsem tedy na JVCL 3.0, ale velikost programu se zvetsila o cca. 250kB. Z JVCL komponent vyuzivam pouze jvDBGrid a jvDateEdit, takze se mi to zvetseni programu moc nelibi. Hledal jsem na JEDI nejakou starsi verzi JVCL, ale nasel jsem pouze verzi 3.0 (nebo neumim hledat?).
> Muzete mi prosim nekdo poradit, jestli se nekde daji nahrat pouze ty dve unity obsahuji bug?
algoritmus na spocitanie zlomkov
[*] petr-kucera(zv)volny(tec)cz - 15.2.2005 19:13:30
U tohoto problemu je velmi dulezite si uvedomit, ze u vysledneho
zlomku muze jak citatel, tak i jmenovatel velmi rychle narust a
muze pretect. Proto je take potreba kazdy mezivysledek upravit tak,
ze citatel i jmenovatel pokratime jejich NSD.
Petr Kucera
----- PUVODNI ZPRAVA -----
Od: "mato" <mato.tino(zv)inmail.sk>
Komu: delphi-l(zv)clexpert(tec)cz
Predmet: Re: algoritmus na spocitanie zlomkov
Datum: 15.2.2005 - 16:17:38
> a ak mam tych zlomkov napr. 100 tak mam spocitavat po
> dvojiciach alebo ako
>
> > Pro soucet dvojice pouzij nasledujici:
> >
> > A/B + C/D = (NSN(B,D)/B*A+ NSN(B,D)/D*C) /NSN(B,D)
> > Potom spocti NSD jmenovatele a citatele a tim je videl.
> >
> > Kde NSN je nejmensi spolecny nasobek a NSD je nevetsi
> > spolecny delitel
> > (anglicky GCD).
> >
> > Lukas
> >
> >
>
>
>
>
>
>
--
Akcni unorova nabidka "3 za cenu 1"! Ziskejte
VOLNY ADSL 512/128 3GB za cenu 1GB!
http://adsl.volny(tec)cz
Upgrade JVCL 2.10
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 15.2.2005 17:35:23
Dobry den vsem,
Do dnesniho dne jsem ke sve naproste spokojenosti pouzival JVCL knihovny. Na procesorech Pentium4 HT ovsem nelze zkompilovat aplikaci pro dokumetovany bug v unitach jclgraphutils a jclsysinfo. Upgradoval jsem tedy na JVCL 3.0, ale velikost programu se zvetsila o cca. 250kB. Z JVCL komponent vyuzivam pouze jvDBGrid a jvDateEdit, takze se mi to zvetseni programu moc nelibi. Hledal jsem na JEDI nejakou starsi verzi JVCL, ale nasel jsem pouze verzi 3.0 (nebo neumim hledat?).
Muzete mi prosim nekdo poradit, jestli se nekde daji nahrat pouze ty dve unity obsahuji bug?
Diky
Jirka
random access files
[*] delphin(zv)post(tec)cz - 15.2.2005 17:19:22
> Delam nekde chybu, nebo to tak proste nejde? Pres stream jsem to nezkousel
File of nejde pouzit. Pres TFileStream to pujde urcite.
random access files
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 15.2.2005 17:05:21
Pres read a write se mi to nedari, protoze compiler protestuje pri deklaraci
souboru
implementation
{$R *.DFM}
type
TNamerRecord=record
FixedData:record
cas:string[8];
vata1,vata2,vata3,vata4:byte;
end;
mdat:array of Single;
mfyz:array of Single;
end;
var NamerRecord: TNamerRecord;
F: File of TNamerRecord;
a opravnene rika neco o finalizaci.
Delam nekde chybu, nebo to tak proste nejde? Pres stream jsem to nezkousel
zatim.
Dalibor
> Funguje to uplpne stejne i pres Read a Write.