Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
unknown software exception (0x800000003)
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.8.2005 15:00:04
> mam problem, s ktorym si neviem dost dobre rady.
>
> "Nastala vyjimka unknown software exception (0x800000003)
> v aplikaci na miste 0x7c901230"
> Skusal som to ladit, a chyba nastava az v nejakom ukoncovacom kode,
Ahoj,
tipnul bych, ze jde o problem ve finalization sekci nejake unity. Takova
sekce by se ale nemusela vyskytovat v mnoha unitach.
Nevim, jestli ti to nejak pomuze - jestli takovou sekci vubec nekde
pouzivas.
David Lebeda
ODBCe vs. MS Query
[*] J.Hasek <cz602778(zv)tiscali(tec)cz> - 18.8.2005 13:29:57
Zdravim,
pouzivam komponenty ODBCe pro import datovych davek do databaze MS SQL.
Bezne spoustim nekolik instanci importniho programu soucasne bez jakychkoli
problemu.
Co ale neumim vyresit, ze po dobu behu importniho programu nespustim MS
Query. Netusite nekdo duvod.
Diky
J.Hasek
Jde nejak vypnout F10 pro aktivaci hlavniho menu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 18.8.2005 13:51:59
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> resil nekdo v D5 tento problem, nevi nekdo jak na to ? Chci
> na F10 priradit
> jinou funkci a o tenhle "standard" nemam zajem.
Neresil. Ale kdyz sem na jednu Actionu v ActionListu povesil Ctrl+C se svou
fci tak mi fungovala moje fce a ne kopie do schranky (napr v memopolich).
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Jde nejak vypnout F10 pro aktivaci hlavniho menu
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 18.8.2005 13:41:58
Zdravim vsechny,
resil nekdo v D5 tento problem, nevi nekdo jak na to ? Chci na F10 priradit
jinou funkci a o tenhle "standard" nemam zajem.
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
unknown software exception (0x800000003)
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 18.8.2005 13:29:57
Zdravim,
mam problem, s ktorym si neviem dost dobre rady.
Vzdy pri ukoncovani aplikacie sa mi objavi hlaska (WinXP.CZ)
"Nastala vyjimka unknown software exception (0x800000003)
v aplikaci na miste 0x7c901230"
Netusim co je to za vyjimku?
Ani ako efektivne postupovat pri izolacii chyby.
Skusal som to ladit, a chyba nastava az v nejakom ukoncovacom kode,
ktory sa vykonava ked urobim TraceInto (F7)
do posledneho prikazu end v .dpr.
Bezi tam spusta procedur .Notify a nedari sa mi tam dokrokovat.
Ked to necham cele prebehnut, skonci to s prazdnym CallStackom
v nejakom kode v assembleri:
ntdll.DbgBreakPoint:
CC int 3
C3 ret
A v EventLogu Delphi je hlaska
ODS: =========================================================== Process DopravaSQL.exe (164)
ODS: VERIFIER STOP 00000300: pid 0xA4: Invalid TLS index used in current stack (use kb).
FFFFFFFF : Invalid TLS index 0000ABBA : Expected lower part of the index
00000000 : (null) 00000000 : (null) Process DopravaSQL.exe (164)
ODS: =========================================================== Process DopravaSQL.exe (164)
, ktorej velmi nerozumiem.
Vyzera to na nejaky return, ktory nema data na Stacku,
ale neviem ako dalej.
Stretol sa s tym uz niekto?
Pripadne vie niekto poradit ako to ladit?
--
Jaro
mailto:delphi1(zv)acc.sk
Najdenie ODBC drivera
[*] mstevlik(zv)gamo.sk - 18.8.2005 13:07:51
Hi all,
Potreboval by som overit pomocou D5 ci mam v PC, na kt. bezi moja app
nainstalovany ODBC driver, kt. viem len meno (napr "Oracle in
OraDb10g_home1")
Nechcem vsak pouzit BDE
Marian Stevlik
IS programmer
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4372098, 4137935, 4372111
gsm: +421 905 462010
icq: 38493645
SQL dotaz v MySQL
[*] Robert Fujak <robof(zv)inmail.sk> - 18.8.2005 12:39:49
... tak uz len docasnu, alebo memory tabulku a vytvarat to kodom z
aplikacie.
S pozdravom
Robert Fujak
> Napsal jsem databazi v predmetu e-mailu - MySQL.
>
> Martin
>
SQL dotaz v MySQL
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 18.8.2005 12:25:48
Zdravim Martine,
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Pavera
> Spustim dotaz pro zjisteni jidel celkem pro kazdy pokoj:
> SELECT Pokoj, Jidlo, SUM(PorceDosp) AS PorceDosp,
> SUM(PorceDetska) AS PorceDetska FROM plnstv WHERE Pokoj =
> '101' GROUP BY Pokoj, Jidlo
>
> Jidlo za pokoj 101:
> Pokoj Jidlo PorceDosp PorceDetska
> 101 SN 4 0
> 101 VE 3 0
>
> No a ted nevim jak z predchozi vysledne sady dat udelat tohle:
> Pokoj Jidlo1 PorceDosp1 PorceDestska1 Jidlo2
> PorceDosp2 PorceDestska2
> 101 SN 4 0
> VE 3 0
>
>
> Jde to udelat pomoci SQL dotazu ?
>
> Dekuji za radu. Martin.
>
Dva nebo vice rychlych selectu.
A v kodu, v Oracle je to PL/SQL,
vysledek se dostane tak, ze se zretezi
danne promenne, jinak to jednoduse alespon
v Oracle nejde, krome nejakych TEMPORARY
(docasnych) tabulek...
Martin
SQL dotaz v MySQL
[*] Martin Pavera <martin.pavera(zv)gmail(tec)com> - 18.8.2005 11:51:45
Napsal jsem databazi v predmetu e-mailu - MySQL.
Martin
----- Original Message -----
From: "Robert Fujak" <robof(zv)inmail.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, August 18, 2005 10:59 AM
Subject: Re: SQL dotaz v MySQL
> Ahoj nenapisal si databazu. Ak je to MS Acces (podla As),
> tak pozri prikaz
>
> TRANSFORM .........
>
>
> S pozdravom
>
> Robert Fujak
Nefunguje mi operator is
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 18.8.2005 11:35:44
> To je to, vsechny ty komponenty tam jsou (napr. kdyz vypisuji jejich classname) hned pred podminkou.
Ahoj,
nemam ted spustene Delphi, ale pak me napada jeste takova
obskurnost. Nemuzes mit treba definici toho typu ve dvou souborech,
takze bys pomoci is porovnaval typy, ktere se sice stejne jmenuji, ale
pochazeji z ruznych unit?
Jinak uz nevim.
David Lebeda
Temer zaroven me postrcil jeste jeden kolega. Je to vlastne ono co rikate. Ty vytvorene komponenty jsou soucasti jednoho balicku. V druhem balicku je ten frame odvozeny od TFrame a na nem pouzite ty komponenty. Techto 'druhych' balicku je nekolik (v podstate neomezene mnoho-postupne vznikaji) a ty jsou dynamicky vytvareny z hlavni aplikace. V hlavni aplikaci se spousti thready, ktere pracuji s komponentami na 'framech'. V uses threadu je uvedena unita komponent, aby prave byly znamy tridy komponent (TImgBaseSymb...atd.). Jelikoz ale balicky framu vznikaji dynamicky, jedna se u nich o rozdilne tridy nez jsou v threadu, ac maji stejna jmena. Je to pak videt na pointrech na ty tridy.
Snad to nekdo pochopi;)
Myslim, ze tuto chybu muze hledat mnoho lidi, protoze si mechanismy za ni schovane neuvedomi.
Tusim, ze se tu neco takoveho probiralo u DLL nebo mozna i u tech balicku a ja si nevzpomel.
Ten, kdo to probiral, mohl by cely mechanismus popsat podrobneji, ci vysvetlit na prikladu? (nebo aspon co v konferenci hledat)
Takze v kazdem pripade diky!
Bouchala
SQL dotaz v MySQL
[*] Robert Fujak <robof(zv)inmail.sk> - 18.8.2005 10:59:41
Ahoj nenapisal si databazu. Ak je to MS Acces (podla As),
tak pozri prikaz
TRANSFORM .........
S pozdravom
Robert Fujak
> No a ted nevim jak z predchozi vysledne sady dat udelat tohle:
> Pokoj Jidlo1 PorceDosp1 PorceDestska1 Jidlo2 PorceDosp2
> PorceDestska2
> 101 SN 4 0 VE
> 3 0
>
>
> Jde to udelat pomoci SQL dotazu ?
>
> Dekuji za radu. Martin.
>
Nefunguje mi operator is
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 18.8.2005 10:41:38
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> nemam ted spustene Delphi, ale pak me napada jeste takova
> obskurnost. Nemuzes mit treba definici toho typu ve dvou souborech,
> takze bys pomoci is porovnaval typy, ktere se sice stejne
> jmenuji, ale
> pochazeji z ruznych unit?
>
A propo jeste jedna poznamka. Sice to nezminujes, ale myslim, ze je dobre
to zminit. Nejedna se nahodou o DLL (bez dpk)?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Co je v Editu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 18.8.2005 10:39:38
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
> >>>Jak jednoduse zjistit zda uzivatel do Editu nic nezadal
> nebo vlozil
> >>>mezernikem mezeru.
> >>
> > Nebo muzes obslouzit OnKeyDown a mezeru zakazat uplne,
> > aby nesla vlozit vubec.
>
> hmm a funguje to i to i kdyz to vlozis ze schranky?
> nebo chces vlozit dve slova s mezerou?
> Podle mne chtel puvodni tazatel neco jineho
To ne. Tak sem dotaz asi blbe pochopil.
> Podle mne je nejlepsi po stisku tlacitka OK, provest trim
> nad tim editem.
V podstate na vsech dialogach pri stisku OK pouzivam kontroly,
a nekontroluju jednotliva policka napr. pri exitu apod.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Uncode
[*] delphi(zv)spst(tec)cz - 18.8.2005 10:07:35
Vyreseno. Nasel jsem TNT komponenty, ktere mi zcela vyhovuji.
Jirka
SQL dotaz v MySQL
[*] Martin Pavera <martin.pavera(zv)gmail(tec)com> - 18.8.2005 10:15:36
Zdravim *,
mam tabulku planovani jidel ve tvaru
Datum Pokoj Jidlo PorceDosp PorceDetska
1.1.2005 101 SN 2 0
1.1.2005 101 VE 2 0
2.1.2005 101 SN 2 0
2.1.2005 101 VE 1 0
....
Spustim dotaz pro zjisteni jidel celkem pro kazdy pokoj:
SELECT Pokoj, Jidlo, SUM(PorceDosp) AS PorceDosp, SUM(PorceDetska) AS PorceDetska
FROM plnstv
WHERE Pokoj = '101'
GROUP BY Pokoj, Jidlo
Jidlo za pokoj 101:
Pokoj Jidlo PorceDosp PorceDetska
101 SN 4 0
101 VE 3 0
No a ted nevim jak z predchozi vysledne sady dat udelat tohle:
Pokoj Jidlo1 PorceDosp1 PorceDestska1 Jidlo2 PorceDosp2 PorceDestska2
101 SN 4 0 VE 3 0
Jde to udelat pomoci SQL dotazu ?
Dekuji za radu. Martin.
Neukonceni procesu aplikace
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 18.8.2005 10:07:35
Zdravim,
mam osklivy problem s %SUBJ% a nemuzu s tim hnout, proto prosim o radu.
Udelal jsem si jednoduchy COM objekt (in-proc), nacitajici data z FB
databaze (pomoci IBX) a v klientske aplikaci zobrazuji data ziskana skrze
rozhrani toho COM objektu. Vse chodi dobre az do doby, kdy se nepodari
otevrit DB. Napriklad, pokud zadam spatne jmeno DB, Uziv. jmeno nebo heslo.
Potom kdyz shodim klientskou aplikaci tak nedojde k jejimu ukonceni.
Formular sice zmizi, ale proces stale zije. Badanim jsem prisel na zajimavou
vec. Pokud dojde k tomuto problemu je v Thread listu me aplikace o jeden
thread vice (jinak je pouze jeden). Vypada to ze proces ceka na ukonceni
tohoto threadu. Bohuzel nechapu, kde se tam bere. Ja sam zadny nevytvarim.
Nevite prosim nekdo, jak tento problem vyresit? Nesetkal jste se s necim
podobnym uz nekdo?
Predem diky moc za kazdou radu.
Krakora Martin
ICQ 78392942
------------------------------------------
Delphi 7 Ent, Windows XP Prof. SP2, FB 1.5
------------------------------------------
IniFile a TmemIniFile - rozdilne klice
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.8.2005 09:55:33
Ing. Petr Sikola wrote:
> zil jsem nekolik let v nevedomosti nebo to je chyba?
# Klasicky TIniFile zapouzdruje API funkce Get/SetPrivateProfileString
a i kdyz v popisu v SDK neni jednoznacne receno, ze se mezery
trimuji (existuji jen zminky o vypousteni ridicich ASCII znaku,
odstranovani uvozovek kolem hodnoty, nepovolenych trailing
blanks, Tab apod na W9x), tak pokud jsi s tim nemel
problemy, tak to zrejme trimuji vsude.
# TMemIniFile je postaven na tride TStrings a vyuziva se v podstate
vlastnosti property Values[Name] a ta mezery kolem '=' nepripousti
viz help.
pf
Uncode
[*] Milan Kra'ta <krata.milan(zv)seznam(tec)cz> - 18.8.2005 09:17:31
Ja pouzivam
AnsiToUtf8 Utf8ToUnicode
UnicodeToUtf8 Utf8ToAnsi
Nevim zda neexistuji nejake jine (zatm jsem je nehledal).
Milan
D7Prof/WXP
> ------------ Puvodni zprava ------------
> Od: <delphi(zv)spst(tec)cz>
> Predmet: Uncode
> Datum: 18.8.2005 10:07:48
> ----------------------------------------
> Zdravim
>
>
>
> Jak jednoduse otevru (nebo prekonvertuji do ANSI) textovy soubor v UNICODE v
> D7 WXP. Potrebuji neco jako je TStringList.
>
>
>
> Predem vsem dekuji
>
> Jirka
>
>
>
>
>
>
Nefunguje mi operator is
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.8.2005 09:17:30
> To je to, vsechny ty komponenty tam jsou (napr. kdyz vypisuji jejich classname) hned pred podminkou.
Ahoj,
nemam ted spustene Delphi, ale pak me napada jeste takova
obskurnost. Nemuzes mit treba definici toho typu ve dvou souborech,
takze bys pomoci is porovnaval typy, ktere se sice stejne jmenuji, ale
pochazeji z ruznych unit?
Jinak uz nevim.
David Lebeda
Uncode
[*] delphi(zv)spst(tec)cz - 18.8.2005 09:07:30
Zdravim
Jak jednoduse otevru (nebo prekonvertuji do ANSI) textovy soubor v UNICODE v
D7 WXP. Potrebuji neco jako je TStringList.
Predem vsem dekuji
Jirka
Nefunguje mi operator is
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 18.8.2005 08:55:24
> for CCntrl:=0 to FOwner.sbRail.ControlCount-1 do
> if FOwner.sbRail.Controls[CCntrl] is TImgBaseSymb then
> //if FOwner.sbRail.Controls[CCntrl].InheritsFrom(TImgBaseSymb) then - zkousel jsem to i takto
> begin
> //neco - nikdy nenastane!
> end;
Ahoj,
je otazka, jestli je chyba v operatoru is nebo jinde. Muzes pomoci
debugovani, vypisu apod. nechat vypsat vsechny Controls, jestli tam
vubec ty tvoje komponenty jsou? Druhy pokus, ktery bych zkusil, je
pouzit misto Controls Components - a to pripadne az na urovni formu.
Posledni tip, ktery me napada: jak tu svou komponentu dostavas na
formular? Vytvaris ji z kodu, nebo ji mas v palete komponent a na form
ji pokladas v dobe navrhu?
David Lebeda
To je to, vsechny ty komponenty tam jsou (napr. kdyz vypisuji jejich classname) hned pred podminkou.
Components jsou az na urovni TFrame ze? To jich budu prochazet zbytecne moc, ale budiz. Komponenty jsou na Framu uz v dobe navrhu.
V jinem pripade jsem delal totez z komponentami odvozenymi z TCustomPanel a neslo mi to testovat na odvozeny typ, ale pouze na ten TCustomPanel - tam mi to nevadilo. Ted jit na TGraphicControl nemuzu.
IniFile a TmemIniFile - rozdilne klice
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 18.8.2005 08:47:23
Zdravim konferenci,
vcera jsem se docela dlouho trapil s TMemIniFile, jeste jsem s nim nikdy nic
nedelal.
V klasickem IniFilu (rucne editovany) jsem mel radky takto:
KLIC____=___hodnota (_ jsou mezery)
a cetl jsem z nej nasledovne: ini.readstring('sekce', 'klic', ''), vse
fungovalo
ted jsem pouzil tmeminifile a ejhle, vadej mezery pred =
radkz musim mit napsany takto:
KLIC=hodnota
zil jsem nekolik let v nevedomosti nebo to je chyba?
D5 Ent, Win XP
Diky Petr Sikola
Co je v Editu
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 18.8.2005 08:37:22
>>>Jak jednoduse zjistit zda uzivatel do Editu nic nezadal nebo vlozil
>>>mezernikem mezeru.
>>
> Nebo muzes obslouzit OnKeyDown a mezeru zakazat uplne,
> aby nesla vlozit vubec.
hmm a funguje to i to i kdyz to vlozis ze schranky?
nebo chces vlozit dve slova s mezerou?
Podle mne chtel puvodni tazatel neco jineho
Podle mne je nejlepsi po stisku tlacitka OK, provest trim
nad tim editem.
Radek
Nefunguje mi operator is
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.8.2005 08:35:22
> for CCntrl:=0 to FOwner.sbRail.ControlCount-1 do
> if FOwner.sbRail.Controls[CCntrl] is TImgBaseSymb then
> //if FOwner.sbRail.Controls[CCntrl].InheritsFrom(TImgBaseSymb) then - zkousel jsem to i takto
> begin
> //neco - nikdy nenastane!
> end;
Ahoj,
je otazka, jestli je chyba v operatoru is nebo jinde. Muzes pomoci
debugovani, vypisu apod. nechat vypsat vsechny Controls, jestli tam
vubec ty tvoje komponenty jsou? Druhy pokus, ktery bych zkusil, je
pouzit misto Controls Components - a to pripadne az na urovni formu.
Posledni tip, ktery me napada: jak tu svou komponentu dostavas na
formular? Vytvaris ji z kodu, nebo ji mas v palete komponent a na form
ji pokladas v dobe navrhu?
David Lebeda
TCP/ip nastavenie
[*] Dusan Nagy <dnagy(zv)inomacomp.sk> - 18.8.2005 08:17:20
Dik za odpoved. Ale aj tak ak niekto tusi co je tam chybne privitam
podnet.
JP> Teda nevim nevim, ale mne pripada ponekud jednodussi napsat neco v duchu
JP> cmd:='netsh interface ip set address name="Ethernet LAN" source=static '
JP> +'addr=192.168.1.234 mask=255.255.255.0';
JP> ShellExecute(handle,nil,'cmd',pChar('/C'+cmd),pChar(Dir),SW_HIDE);
JP> A je vyluxovano.
JP> Nebo CreateProcess,vstup ladovat pipou postupne, odebirat vystup taky z
JP> pipy, zabalit do nejake funkce RunCmd('prikaz',(zv)PreberSiVystup) a vubec,
JP> vylepsovat vsechno do uplneho nekonecna... Z prikazoveho radku se toho da
JP> udelat...
JP> Jarda
Co je v Editu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 18.8.2005 07:05:15
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
Ahoj,
> > Jak jednoduse zjistit zda uzivatel do Editu nic nezadal nebo vlozil
> > mezernikem mezeru.
>
> if Trim(Edit1.text)='' then ...
Nebo muzes obslouzit OnKeyDown a mezeru zakazat uplne,
aby nesla vlozit vubec.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Firebird a UTF-8
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 17.8.2005 22:32:40
Ahoj,
mam DB, kde jsou tabulky se sloupci v WIN_1250, ale nyni je pozadavek na
UNICODE_FSS. Pres IBExpert jsem rucne par radku "prekonvertoval", zbytek
udelam nejak "strojove". Ale zajima me, jak vlozit pres konzolu data jiz
spravne? At delam co delam, porad mi to nejde. Nevadi, ze tabulky jsou
puvodne ve WIN_1250?
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/ Adonis a MSSQL2000 - editace pohledu
[*] lelicek(zv)volny(tec)cz - 17.8.2005 21:32:35
Ahoj,
pohledy (view) je sice mozno menit, ale ne obecne. Menit jdou jen
pohledy, ktere maji urcite vlastnosti. To co popisujes je typicky
problem. Pri insertu se MSSQL snazi vlozit radky do vsech
zucastnenych tabulek. Problem bude nekde s doplnenim udaju z
dalsich tabulek s popisem, ktere se snazi ADO vlozit do i do
ostatnich tabulek. Problem s ltBatchOptimistic je, ze data se
udrzuje v nejakem bufferu a problem bude asi i s
poradim zmen.
Pokud chces editovat view tak doporucuji nad view definovat
INSTEAD OF triggery, ktere budou obsahovat logiku, co a kde
updateovat a insertovat.
Pavel
Od: "Martin Pavera" <martin.pavera(zv)gmail.com>
> pokud vim, tak MS SQL 2000 dovoluje meni pohledy...
> Ja se snazim pridat do Tabulky1 novy zaznam, Tabulku2 a
> Tabulku3 nemenim...
> Mohl bych pouzit INSERT INTO Tabulka1 VALUES (...), ale ja to
> potrebuji
> delat zpusobem Delphi (Append; vyplnit pole a Post;). Kdyz mam
> nastaveno
> LockType := ltOptimistic, tak to funguje v pohode, ale ja
> potrebuji meni
> "vice radku najednou" a to musim nastavit LockType :=
> ltBatchOptimistic a v
> tomto modu mi to nefunguje... Jakoby se asi Adonis snazit
> modifikovat i
> ostani tabulky ve vazbe join, na ktere ale ja vubec
> "nesaham"... Tak ted
> nevim, kde je vlastne chyba a co presne nefunguje....
Co je v Editu
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 17.8.2005 20:34:31
> Jak jednoduse zjistit zda uzivatel do Editu nic nezadal nebo vlozil
> mezernikem mezeru.
if Trim(Edit1.text)='' then ...
Vlastik
Co je v Editu
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.8.2005 20:20:30
Zdravim
Jak jednoduse zjistit zda uzivatel do Editu nic nezadal nebo vlozil
mezernikem mezeru.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Adonis a MSSQL2000 - editace pohledu
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 17.8.2005 16:30:14
> Zdravim Martine,
>
Dik.
>
> Obecne by mne zajimalo jak mam udelat nasledujici vec:
> nabizim data v gridu uzivateli, data musi byt "informativne
> kompletni" -
> tzn. kdyz v gridu zobrazuji cislo zbozi, musim v gridu
> zobrazovat i nazev
> zbozi a ten si "dotahuji" z ciselniku zbozi, proto jsem
> pouzil pohled. A
> nabizena data uzivatel musi mit moznost menit, pridavat i
> mazat. A musim mit
> moznost po zmene vice radku vsechny zmeny nakonec potvrdit
> nebo stornovat.
> Jaky zpusob pouzit, aby tohle fungovalo v poradku ?
>
Rika se tomu ciselniky a zalezi jak velkou mas databazi,
rozdelil bych to na 3 typy :
1. Ohromna a pouziva ji nekolik tisic lidi a vice pres
Inet nebo privatni sit, z toho pak plyne, ze je
nutno mit alespon oddeleni a alespon 3 lidi,
kteri se Ti permanentne staraji o Ciselniky nebot kdyz zmenim
zkratku v ciselniku z BOTY na LYZE, tak pruser
a nekolik tisic a vice uzivatelu se divi co se to deje :o)))
neb zmeny se okamzite promitaji do vsech
navazujicich dat a aplikaci
(P.S. Jo a ty 3 lide maji defacto lehy, ale nedochazi
k pruserum, tedy zodpovedna prace)
2. Stredni databaze a pouziva ji tak 100ky uzivatelu,
tak samozrejme, aktualizovat ciselniky musi
osoba, ktera to chape a neni vyslovene pocitacove
BFU, mozna bych doporucoval zase 3 lidi, kteri
se v pripade nemoci nebo dovoleny zastupuji,
ale musi "byt v obraze"
3. Mala databaze, tak desitky uzivatelu
a pozadavek na uspory atd., tak zde jiz
ten pruser neni tak velky a vyslovene kdokoliv,
ale zase nedoporucuji uplne BFU.
Ja sam jsem jednou omylem zmenil takto
zkraku v databazi add 1) a ten telefonat
od sefa, bych nikomu nepral slyset. :o)
Martin
TCP/ip nastavenie
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 17.8.2005 16:26:14
Teda nevim nevim, ale mne pripada ponekud jednodussi napsat neco v duchu
cmd:='netsh interface ip set address name="Ethernet LAN" source=static '
+'addr=192.168.1.234 mask=255.255.255.0';
ShellExecute(handle,nil,'cmd',pChar('/C'+cmd),pChar(Dir),SW_HIDE);
A je vyluxovano.
Nebo CreateProcess,vstup ladovat pipou postupne, odebirat vystup taky z
pipy, zabalit do nejake funkce RunCmd('prikaz',(zv)PreberSiVystup) a vubec,
vylepsovat vsechno do uplneho nekonecna... Z prikazoveho radku se toho da
udelat...
Jarda
----- Original Message -----
From: "Dusan Nagy" <dnagy(zv)inomacomp.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 17, 2005 3:10 PM
Subject: Re: TCP/ip nastavenie
> Mam nasledujucu proceduru na nastavenie IP adresy PC
> funkcia NIC.EnableStatic skonci s chybou 70 co vo win32 api je
> pre tuto funkciu (Invalid IP address.)
>
> a funkcia SysErrorMessage tvrdi ze "Vzdaleny server byl pozastaven nebo
> prave probiha jeho spusteni".
>
> Ale to by nebol problem lenze cele to nefunguje. Neskusal to niekto?
> Dik za kazdu radu.
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Locator: ISWbemLocator;
> Services: ISWbemServices;
>
> NICSet,IPSet: ISWbemObjectSet;
> tmpEnum,tmpEnum2: IEnumVariant;
> Value: Cardinal;
>
> NIC : OleVariant;
> i , j : integer;
> Count,Count2: Integer;
> // IP ,SUB : array of string;
> strIPAddress : OleVariant;
> Err : integer;
> strSubnetMask : OleVariant;
> begin
> Locator := CreateOleObject('WbemScripting.SWbemLocator') as
> ISWbemLocator;
> Services := Locator.ConnectServer('.', '', '', '', '', '', 0, nil);
> NICSet := Services.ExecQuery('Select * From
> Win32_NetworkAdapterConfiguration'
> ,'WQL',wbemFlagReturnImmediately,nil);
>
> Count := NICSet.Count;
> tmpEnum:= NICSet._NewEnum as IEnumVariant;
>
> for i := 1 to Count do
> begin
> tmpEnum.Next(1, NIC, Value);
> if NIC.IPEnabled then begin
> try
> Memo1.Lines.Add('Caption:' + NIC.Caption + Chr(13) + Chr(10) +
> ' Index=' + inttostr(NIC.Index) + Chr(13) +
> Chr(10) +
> ' Description=' + NIC.Description + ':');
> if Nic.DHCPEnabled then
> Memo1.Lines.Add(' DHCP:ON')
> else
> Memo1.Lines.Add(' DHCP:OFF');
> if NIC.MACAddress <> null then begin
> Memo1.Lines.Add(' MAC=' + NIC.MACAddress);
> Memo1.Lines.Add(' IP=' + NIC.IPAddress[0]);
> Memo1.Lines.Add(' MASK=' + NIC.IPSubnet[0]);
>
> strIPAddress := VarArrayCreate([0,1],
> varOleStr);
> strSubnetMask := VarArrayCreate([0,1],
> varOleStr);
> strIPAddress[0] := '10.1.2.45';
> strSubnetMask[0] := '255.255.255.0';
> // Nastavim novu ip addresu
> Err :=
> NIC.EnableStatic(strIPAddress,strSubnetMask);
>
> if Err <> 0 then
> MessageDlg(Format('%s
> %d',[SysErrorMessage(Err),Err]),mtError,[mbok],0);
> end;
>
> except
>
> end;
> end;
> end;
>
> end;
>
> --
> S pozdravom,
> Dusan
> DNagy(zv)inomacomp.sk
>
>
>
> Indy a Firebird
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 17.8.2005 16:04:11
Ahoj,
Nemate nekdo zkusenosti s prenosem dat pres TCP/IP pomoci INDY komponent a
zapisem prenesenych dat do databaze (FB)?
Ja jsem narazil na nasledujici problem:
prenasim data pres GPRS jako zpravy v textove podobe a potrebuji je zapsat
do Firebirdu a poslat zpet potvrzeni, ze se to skutecne zapsalo. Data posila
TcpClient, TcpServer prijme data a pokusi se je zapsat. Pokud vse probehne
v poradku, tak je to OK, ale pokud se pri zapisu do databaze vygeneruje
exception, pak aplikace zatuhne - pri zastaveni programu debuggerem z delphi
to beha dokola ve smycce v modulu ntdll a zrejme to ceka na nejaky
synchronizacni objekt.
Pro zapis do FB pouzivam FIB Plus komponenty - ta pro zapis dat ma
samostatne pripojeni pres vlastni tpFibDatabase komponentu - tady by ale
mohl byt zakopany pes - nevim, zda ji mohu vytvorit v hlavnim programu, nebo
to musim udelat dynamicky az pri zpracovani prichozich dat, protoze patrne
ta udalost od TcpServeru prijde v jinem threadu ?
Dik za kazde nakopnuti
Mirek
Uvolnovani dynamickeho pole
[*] delphin(zv)post(tec)cz - 17.8.2005 14:50:05
>> mam objekt ktery ma v sekci private deklarovanou promennou
>> P:Array of TPoint.
>
>> P := nil;
>
> Podle helpu je prirazeni nil u tak jednoducheho pole spravne.
Prirazeni nil je spravne u vsech dynamickych poli.
> Moje otazka do fora, da se na uvolneni takoveho pole pouzit Finalize ?
Da se pouzit.
> A jeste jeden pripad:
>
> type
> M1 = record
> Cislo: Integer;
> Nazev: string;
> end;
>
> TPoleRec = array of M1;
>
> MojeProm : TPoleRec;
>
> Druha otazka do fora: Jak uvolnovat promennou MojeProm ?
>
> a) nijak
> b) MojeProm := nil;
> c) Finalize(MojeProm);
a)
TCP/ip nastavenie
[*] Dusan Nagy <dnagy(zv)inomacomp.sk> - 17.8.2005 15:10:07
Mam nasledujucu proceduru na nastavenie IP adresy PC
funkcia NIC.EnableStatic skonci s chybou 70 co vo win32 api je
pre tuto funkciu (Invalid IP address.)
a funkcia SysErrorMessage tvrdi ze "Vzdaleny server byl pozastaven nebo
prave probiha jeho spusteni".
Ale to by nebol problem lenze cele to nefunguje. Neskusal to niekto?
Dik za kazdu radu.
procedure TForm1.Button1Click(Sender: TObject);
var
Locator: ISWbemLocator;
Services: ISWbemServices;
NICSet,IPSet: ISWbemObjectSet;
tmpEnum,tmpEnum2: IEnumVariant;
Value: Cardinal;
NIC : OleVariant;
i , j : integer;
Count,Count2: Integer;
// IP ,SUB : array of string;
strIPAddress : OleVariant;
Err : integer;
strSubnetMask : OleVariant;
begin
Locator := CreateOleObject('WbemScripting.SWbemLocator') as ISWbemLocator;
Services := Locator.ConnectServer('.', '', '', '', '', '', 0, nil);
NICSet := Services.ExecQuery('Select * From Win32_NetworkAdapterConfiguration'
,'WQL',wbemFlagReturnImmediately,nil);
Count := NICSet.Count;
tmpEnum:= NICSet._NewEnum as IEnumVariant;
for i := 1 to Count do
begin
tmpEnum.Next(1, NIC, Value);
if NIC.IPEnabled then begin
try
Memo1.Lines.Add('Caption:' + NIC.Caption + Chr(13) + Chr(10) +
' Index=' + inttostr(NIC.Index) + Chr(13) + Chr(10) +
' Description=' + NIC.Description + ':');
if Nic.DHCPEnabled then
Memo1.Lines.Add(' DHCP:ON')
else
Memo1.Lines.Add(' DHCP:OFF');
if NIC.MACAddress <> null then begin
Memo1.Lines.Add(' MAC=' + NIC.MACAddress);
Memo1.Lines.Add(' IP=' + NIC.IPAddress[0]);
Memo1.Lines.Add(' MASK=' + NIC.IPSubnet[0]);
strIPAddress := VarArrayCreate([0,1], varOleStr);
strSubnetMask := VarArrayCreate([0,1], varOleStr);
strIPAddress[0] := '10.1.2.45';
strSubnetMask[0] := '255.255.255.0';
// Nastavim novu ip addresu
Err := NIC.EnableStatic(strIPAddress,strSubnetMask);
if Err <> 0 then
MessageDlg(Format('%s %d',[SysErrorMessage(Err),Err]),mtError,[mbok],0);
end;
except
end;
end;
end;
end;
--
S pozdravom,
Dusan
DNagy(zv)inomacomp.sk
Planovaci kalendar
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 17.8.2005 15:08:07
Od TurboPoweru myslim VisualPlanIt nebo tak nejak
Martin
> prosim o radu - nevite nekdo o sikovne komponente neco jako planovaci
> kalendar? Aby se mohl zvyraznit barevne treba tyden, 10 dni.....Planovaci kalendar
[*] Vlastimil Zdenek <vlastimil.zdenek(zv)seznam(tec)cz> - 17.8.2005 14:50:06
Zdravim,
prosim o radu - nevite nekdo o sikovne komponente neco jako planovaci
kalendar? Aby se mohl zvyraznit barevne treba tyden, 10 dni.....
Diky moc za info
Vlasta
D5 Uvolnovani dynamickeho pole
[*] horky(zv)cominn(tec)cz - 17.8.2005 14:18:03
> From: Jan Harman [mailto:jharman(zv)volny(tec)cz]
> mam objekt ktery ma v sekci private deklarovanou promennou
> P:Array of TPoint.
> P := nil;
Podle helpu je prirazeni nil u tak jednoducheho pole spravne.
Moje otazka do fora, da se na uvolneni takoveho pole pouzit Finalize ?
A jeste jeden pripad:
type
M1 = record
Cislo: Integer;
Nazev: string;
end;
TPoleRec = array of M1;
MojeProm : TPoleRec;
Druha otazka do fora: Jak uvolnovat promennou MojeProm ?
a) nijak
b) MojeProm := nil;
c) Finalize(MojeProm);
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Nefunguje mi operator is
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 17.8.2005 13:52:00
Mam vytvorene komponenty odvozene od tridy TGraphicControl:
TImgBaseSymb = class(TGraphicControl)
....
end;
TImgRailSymb = class(TImgBaseSymb )
....
end;
TImgCircuitSymb = class(TImgRailSymb )
....
end;
Tyto komponenty lezi i s jinymi na sbRail typu TScrollBox a ten lezi na framu FOwner typu TRailFrame odvozenem od TFrame.
Klasickou konstrukci chci vybrat komponenty odvozene od TImgBaseSymb a ono nic!
for CCntrl:=0 to FOwner.sbRail.ControlCount-1 do
if FOwner.sbRail.Controls[CCntrl] is TImgBaseSymb then
//if FOwner.sbRail.Controls[CCntrl].InheritsFrom(TImgBaseSymb) then - zkousel jsem to i takto
begin
//neco - nikdy nenastane!
end;
Clovek byva slepy, kde je chyba? Poradte, dik.
Uvolnovani dynamickeho pole
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 17.8.2005 14:08:02
Ahoj,
Jan Harman napsal(a):
> V pretizene metode Destroy mam to pole uvolnene
> P := nil;
Ja bych to radeji uvolnil, nic to nestoji (akorat to P:=nil;) a uvolnit se to musi at uz 'rucne' nebo automaticky. Nejlepe vyzkouset. Ja do objektovych mechanismu delphi az tak nevidim ;(
Bouchala
nejsem si jisty, jestli tohle je spravny postup uvolneni dynamickeho
pole. Pouzivam:
SetLength(p, 0);
Peca
Podle helpu je P:=nil spravne :)
Bouchala
Adonis a MSSQL2000 - editace pohledu
[*] Martin Pavera <martin.pavera(zv)gmail(tec)com> - 17.8.2005 14:06:01
Zdravim Martine,
pokud vim, tak MS SQL 2000 dovoluje meni pohledy...
Ja se snazim pridat do Tabulky1 novy zaznam, Tabulku2 a Tabulku3 nemenim...
Mohl bych pouzit INSERT INTO Tabulka1 VALUES (...), ale ja to potrebuji
delat zpusobem Delphi (Append; vyplnit pole a Post;). Kdyz mam nastaveno
LockType := ltOptimistic, tak to funguje v pohode, ale ja potrebuji meni
"vice radku najednou" a to musim nastavit LockType := ltBatchOptimistic a v
tomto modu mi to nefunguje... Jakoby se asi Adonis snazit modifikovat i
ostani tabulky ve vazbe join, na ktere ale ja vubec "nesaham"... Tak ted
nevim, kde je vlastne chyba a co presne nefunguje....
Obecne by mne zajimalo jak mam udelat nasledujici vec:
nabizim data v gridu uzivateli, data musi byt "informativne kompletni" -
tzn. kdyz v gridu zobrazuji cislo zbozi, musim v gridu zobrazovat i nazev
zbozi a ten si "dotahuji" z ciselniku zbozi, proto jsem pouzil pohled. A
nabizena data uzivatel musi mit moznost menit, pridavat i mazat. A musim mit
moznost po zmene vice radku vsechny zmeny nakonec potvrdit nebo stornovat.
Jaky zpusob pouzit, aby tohle fungovalo v poradku ?
Martin
> Zdravim Martine,
>
> je to proste, pohled neboli view by mel slouzit
> predevsim k jednodussimu pristupu datum =
> natvrdo ulozeny select a tedy defacto pouze pro cteni.
>
> Kdyz aktualizujes tabulky, ktere mohou
> byt ve vztahu napr. 1:N neboli jeden
> zaznam v Master tabulce muze mit
> nekolik zaznamu v tabulce Detail,
> tzv. vztah Master-Detail.
>
> Master :
> je tabulka DUM
> sloupecky
> ID primarni kic
> DATA
>
> Detail :
> je tabulka BYT
> sloupecky
> ID primarni klic
> ID_DUM cizi klic, ktery urcuje
> vazbu a system Master-Detail
> DATA
>
> Pokud budes mit constraints pro DUM.ID = BYT.ID_DUM
> a rozhodnes se vlozit(insert) data do tabulky BYT
> tak Ti to nedovoli vlozit zaznam do tabulky BYT nebot
> zatim neexistuje narizeny zaznam z tabulky DUM.
>
> Reseni je proste, pokud vkladaji data z vice tabulek,
> tak je to nutno delat v logickem poradi a dle zavislosti,
> nejdrive DUM a pak BYT...
>
> Sakra, ted vidim ze data opravujes, tedy UPDATE,
> lepe take pres tabulky a napadlo me zda nejaky
> sloupecek neni definovan NOT NULL...tak nevim,
> kdyz se divam na Tvuj kod, uz to co jsem napsal
> mazat nebudu, snad to nekomu pomuze.
>
> Martin
Uvolnovani dynamickeho pole
[*] delphin(zv)post(tec)cz - 17.8.2005 13:58:01
> Jan Harman napsal(a):
>> V pretizene metode Destroy mam to pole uvolnene
>> P := nil;
>
> nejsem si jisty, jestli tohle je spravny postup uvolneni dynamickeho
> pole. Pouzivam:
>
> SetLength(p, 0);
Oba jsou spravne. Rozdil mezi P:=nil a SetLength(P,0) je ten, ze prvni
zpusob uvolni pole rovnou, kdezto ten druhy az potom co zjisti ze pozadovana
delka je 0. Uvolnovani dynamickeho pole
[*] delphin(zv)post(tec)cz - 17.8.2005 13:52:00
> Zdravim vsechny,
> mam objekt ktery ma v sekci private deklarovanou promennou
> P:Array of TPoint.
> Rekneme ze v Construktoru se to pole alokuje
> SetLength(P, 8);
> V pretizene metode Destroy mam to pole uvolnene
> P := nil;
>
> Otazka do fora, je nutne to pole uvolnovat? Co udela system kdyz to
> neudelam? Zustane pamet alokovana, nebo se zrusi s objektem? Dekuji
> za nazory.
Zruseni dynamickych poli zaridi Delphi automaticky, neni treba se o to
starat. Uvolnovani dynamickeho pole
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 17.8.2005 13:50:00
Ahoj,
Jan Harman napsal(a):
> V pretizene metode Destroy mam to pole uvolnene
> P := nil;
nejsem si jisty, jestli tohle je spravny postup uvolneni dynamickeho
pole. Pouzivam:
SetLength(p, 0);
Peca
Uvolnovani dynamickeho pole
[*] Jan Harman <jharman(zv)volny(tec)cz> - 17.8.2005 13:41:59
Zdravim vsechny,
mam objekt ktery ma v sekci private deklarovanou promennou
P:Array of TPoint.
Rekneme ze v Construktoru se to pole alokuje
SetLength(P, 8);
V pretizene metode Destroy mam to pole uvolnene
P := nil;
Otazka do fora, je nutne to pole uvolnovat? Co udela system kdyz to
neudelam? Zustane pamet alokovana, nebo se zrusi s objektem? Dekuji
za nazory.
Honza
Adonis a MSSQL2000 - editace pohledu
[*] Svoboda Jiri <jsvoboda(zv)lekis(tec)cz> - 17.8.2005 13:35:58
>Dale mam nastavenu vlastnost ADODataset1.LockType := ltBatchOptimistic;
>(Tohle nastaveni slouzi k tomu, abych mohl menit vice radku v tabulce a
>potom je potrvdit zmeny ApplyUpdates nebo stornovat zmeny CancelUpdates)
>V Delphi mam nasledujici kod:
>ADODataset1.Append;
>ADODataset1.FieldValues['Sloupec1'] := 'abc';
>ADODataset1.FieldValues['Sloupec2'] := 1;
>...
>ADODataset1.Post;
>Na posledni radku - ADODataset1.Post; - zde zahlasi chybu, ze nemuze vlozit
>hodnotu NULL do tabulky Tabulka2...
>Kdyz nastavim ADODataset1.LockType := ltOptimistic;
>tak to funguje v pohode.
>V cem je problem ?
Uz podle nazvu,je ltBatchOptimistic primarne urcen pro davkovy update.Pokud
je update na 1 zaznam,je lepsi pouzit ltOptimistic.
Pokud chces vedet,co s tim presne ADO udela pri ruznem typu zamku,odchytni
si jednotlive SQL prikazy na SQL serveru pomoci Profileru.
Jiri
Adonis a MSSQL2000 - editace pohledu
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 17.8.2005 13:21:57
Zdravim Martine,
je to proste, pohled neboli view by mel slouzit
predevsim k jednodussimu pristupu datum =
natvrdo ulozeny select a tedy defacto pouze pro cteni.
Kdyz aktualizujes tabulky, ktere mohou
byt ve vztahu napr. 1:N neboli jeden
zaznam v Master tabulce muze mit
nekolik zaznamu v tabulce Detail,
tzv. vztah Master-Detail.
Master :
je tabulka DUM
sloupecky
ID primarni kic
DATA
Detail :
je tabulka BYT
sloupecky
ID primarni klic
ID_DUM cizi klic, ktery urcuje
vazbu a system Master-Detail
DATA
Pokud budes mit constraints pro DUM.ID = BYT.ID_DUM
a rozhodnes se vlozit(insert) data do tabulky BYT
tak Ti to nedovoli vlozit zaznam do tabulky BYT nebot
zatim neexistuje narizeny zaznam z tabulky DUM.
Reseni je proste, pokud vkladaji data z vice tabulek,
tak je to nutno delat v logickem poradi a dle zavislosti,
nejdrive DUM a pak BYT...
Sakra, ted vidim ze data opravujes, tedy UPDATE,
lepe take pres tabulky a napadlo me zda nejaky
sloupecek neni definovan NOT NULL...tak nevim,
kdyz se divam na Tvuj kod, uz to co jsem napsal
mazat nebudu, snad to nekomu pomuze.
Martin
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Pavera
>
> Zdravim *,
>
> v Delphi 5 prof. pouzivam knihovnu Adonis (verze 4.4)
> TADODataset, ve kterem
> spoustim dotaz:
> SELECT * FROM vwNejakyPohled
>
> vwNejakyPohled je left outer join nekolika tabulek.
> Napr:
> SELECT
> Tabulka1.Sloupec1,
> Tabulka1.Sloupec2,
> Tabulka1.Sloupec3,
> Tabulka1.Sloupec4,
> Tabulka2.Sloupec2,
> Tabulka3.Sloupec3
> FROM Tabulka1
> LEFT OUTER JOIN Tabulka2
> ON Tabulka1.Sloupec3 = Tabulka2.Sloupec1
> LEFT OUTER JOIN Tabulka3
> ON Tabulka1.Sloupec4 = Tabulka3.Sloupec1
>
> Dale mam nastavenu vlastnost ADODataset1.LockType :=
> ltBatchOptimistic; (Tohle nastaveni slouzi k tomu, abych mohl
> menit vice radku v tabulce a
> potom je potrvdit zmeny ApplyUpdates nebo stornovat zmeny
> CancelUpdates)
>
> V Delphi mam nasledujici kod:
> ADODataset1.Append;
> ADODataset1.FieldValues['Sloupec1'] := 'abc';
> ADODataset1.FieldValues['Sloupec2'] := 1; ... ADODataset1.Post;
>
> Na posledni radku - ADODataset1.Post; - zde zahlasi chybu, ze
> nemuze vlozit
> hodnotu NULL do tabulky Tabulka2...
> Kdyz nastavim ADODataset1.LockType := ltOptimistic;
> tak to funguje v pohode.
>
> V cem je problem ?
>
> Dekuji za odpoved.
> Martin TComboBox a jeho polozky
[*] horky(zv)cominn(tec)cz - 17.8.2005 12:39:54
> From: mydelphi(zv)seznam(tec)cz [mailto:mydelphi(zv)seznam(tec)cz]
>
> potrebuji v TComboBoc vykreslit jednotlive polozky jinou barvou. Jak
> na to?
Pouzivam OnDrawItem, musis nastavit Style na csOwnerDrawFixed:
procedure cbStavDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
BarPl, BarRam : TColor;
Napis : string;
begin
Napis := cbStav.Items.Strings[Index];
BarPl := DejBarvu(Index);
BarRam := DejBarvu(Index);
with Control as TComboBox do
begin
// erase
Canvas.FillRect (Rect);
// draw item
Canvas.Brush.Color := BarPl;
Canvas.Pen.Color := BarRam;
Canvas.Rectangle(Rect.Left+2,Rect.Top+2,Rect.Right-2,Rect.Bottom-2);
if (odFocused in State) and (odSelected in State) then begin
Canvas.Font.Color := clHighlight; { tmave modra }
Canvas.DrawFocusRect (Rect);
end
else
Canvas.Font.Color := clBlack;
Canvas.TextOut(Rect.Left+5, Rect.Top+3, Napis);
end;
end;
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
TCP/ip nastavenie
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 17.8.2005 11:51:51
netsh /?
Jarda
----- Original Message -----
From: "Dusan Nagy" <dnagy(zv)inomacomp.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 17, 2005 10:43 AM
Subject: TCP/ip nastavenie
>
> Da sa programovo zmenit ip adresa pocitaca. res nastavit
> vlastnosti tcp/ip.
> Nemozem nic najst staci nejaky odkaz.Dik.
>
>
>
>
>
TComboBox a jeho polozky
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 17.8.2005 11:31:49
> Dobry den,
>
> potrebuji v TComboBoc vykreslit jednotlive polozky jinou barvou. Jak
> na to?
Nastavit vlastnost Style na csOwnerDrawFixed a implementovat udalost
OnDrawItem.
Slavo
TComboBox a jeho polozky
[*] mydelphi(zv)seznam(tec)cz - 17.8.2005 11:23:48
Dobry den,
potrebuji v TComboBoc vykreslit jednotlive polozky jinou barvou. Jak
na to?
--
S pozdravem,
Michal Adler
email: mydelphi(zv)seznam(tec)cz
Adonis a MSSQL2000 - editace pohledu
[*] Martin Pavera <martin.pavera(zv)gmail(tec)com> - 17.8.2005 10:47:45
Zdravim *,
v Delphi 5 prof. pouzivam knihovnu Adonis (verze 4.4) TADODataset, ve kterem
spoustim dotaz:
SELECT * FROM vwNejakyPohled
vwNejakyPohled je left outer join nekolika tabulek.
Napr:
SELECT
Tabulka1.Sloupec1,
Tabulka1.Sloupec2,
Tabulka1.Sloupec3,
Tabulka1.Sloupec4,
Tabulka2.Sloupec2,
Tabulka3.Sloupec3
FROM Tabulka1
LEFT OUTER JOIN Tabulka2
ON Tabulka1.Sloupec3 = Tabulka2.Sloupec1
LEFT OUTER JOIN Tabulka3
ON Tabulka1.Sloupec4 = Tabulka3.Sloupec1
Dale mam nastavenu vlastnost ADODataset1.LockType := ltBatchOptimistic;
(Tohle nastaveni slouzi k tomu, abych mohl menit vice radku v tabulce a
potom je potrvdit zmeny ApplyUpdates nebo stornovat zmeny CancelUpdates)
V Delphi mam nasledujici kod:
ADODataset1.Append;
ADODataset1.FieldValues['Sloupec1'] := 'abc';
ADODataset1.FieldValues['Sloupec2'] := 1;
...
ADODataset1.Post;
Na posledni radku - ADODataset1.Post; - zde zahlasi chybu, ze nemuze vlozit
hodnotu NULL do tabulky Tabulka2...
Kdyz nastavim ADODataset1.LockType := ltOptimistic;
tak to funguje v pohode.
V cem je problem ?
Dekuji za odpoved.
Martin TCP/ip nastavenie
[*] Dusan Nagy <dnagy(zv)inomacomp.sk> - 17.8.2005 10:43:45
Da sa programovo zmenit ip adresa pocitaca. res nastavit
vlastnosti tcp/ip.
Nemozem nic najst staci nejaky odkaz.Dik.Doplneni klice do registru
[*] delphi(zv)spst(tec)cz - 17.8.2005 10:07:42
Zdravim,
Potrebuji nejak programove vyresit doplneni nejakych hodnot do registru.
Nejedna se vsak o registry standardne nacitane. Rucne toto resim pomoci
regedit a nabidek "Soubor", "Nacist podregistr". Nacitam "\Default
User\NTUSER.DAT".
Pak provedu potrebne upravy a dam "Uvolnit podregistr". To co potrebiji se
ulozi do registru, ktery se pouzije pri vytvareni noveho uzivatele.
Pouzivam Windows XP a Delphi 7.
Existuje nejaka fce na nacteni/uvolneni podregistru (souboru DAT)?
Predem vsem dekuji
Jirka
Lazarus
[*] Michal <delphi-konference(zv)bcpraha(tec)com> - 17.8.2005 08:31:28
Ahoj vsem,
neporadil byste mi nekdo nejakou komponentu nebo zpusob jak v Lazarusu vytvaret tiskove sestavy nejlepe z DB ?
Nemusi to byt ani primo vizualni, staci do PDF.
Je mozne pouzit napr. QuickReport ?
Michal
----- Original Message -----
From: <tomsir1.edu(zv)mail.cez(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 11, 2004 2:03 PM
Subject: Re: Lazarus
>
> no problemek je spis v tom, ze jsem se pokousel vytvorit nejakou vlastni
> komponentu primo v Lazarusu ,
> nicmene jsem nejak nemohl najit mezi predky napr. TComponent.
> Tak jsem teda vysel s jine komponenty, ale stejne se mi nezadarilo :O(
>
> Radek
>
>
>
> Neni problem jen v tom, ze tvoje pridavana kompnenta nepodporuje
> FreePascal? FrePascal totiz neni 100%-ne komaptibilni s Delphi!
>
>
>
>
>
>
>TComboBox
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 17.8.2005 07:47:24
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> Potreboval bych v komponente TComboBox, aby jeji polozky byly prez
> pointry propojeny s objekty v seznamu. Podobne jako to lze udelat
> napr. v TListView. Jde to nejak udelat?
ComboBox.Items.Objects[I]
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
TComboBox
[*] mydelphi(zv)seznam(tec)cz - 17.8.2005 07:37:23
Dobry den.
Potreboval bych v komponente TComboBox, aby jeji polozky byly prez
pointry propojeny s objekty v seznamu. Podobne jako to lze udelat
napr. v TListView. Jde to nejak udelat?
--
S pozdravem,
Michal Adler
email: mydelphi(zv)seznam(tec)cz
I/O karta - komunikace v Delphi
[*] koukal(zv)petrkoukal(tec)cz - 16.8.2005 15:32:18
-----Puvodni zprava-----
From: "Ing. Josef Staufcik" j.staufcik(zv)msp.mesit(tec)cz
Date: Tue, 16 Aug 2005 07:01:57 +0200
To: delphi-l(zv)clexpert(tec)cz
Subject: I/O karta - komunikace v Delphi
Preji hezky den.
Ma nekdo z vas zkusenosti s I/O kartou PCI-1751 firmy Advantech, tedy s
komunikaci s ni v Delphi? Nebo muze mi nekdo doporucit jinou kartu do PC,
ktera ma 6 digitalnich vstupu, 24 digitalnich rele vystupu a tri frekvencni
vystupy 0-500Hz? Podminkou je snadna komunikace pres aplikaci v Delphi.
Diky. Pepa
Dobry den.
Firma Advantech dodava CD s ovladaci. Princip ovladani je volani funkci dll knihovny.
Podobne karty dodava i firma Dewetron http://www.dewetron(tec)cz/ - zastupuje vice firem.
Zabyvam se touto problematikou, dotazy nad ramec konference je mozno na soukr mail
koukal(zv)petrkoukal(tec)cz
Petr Koukal.
Ciselnik obci
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 16.8.2005 12:12:03
Oprava: NEJSOU (cca 2M3 ano, 300k ne).
Na stahnuti je to trochu moc, rozzipovany kmen ma 10G :-))
----- Original Message -----
From: "Karel Pecinka" <k.pecinka(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 16, 2005 12:00 PM
Subject: Re: Ciselnik obci
> Tak to je super, to si objednam. Nedalo by se to ale od nekud stahnout,
> abych to mel hned?
>
> Karel
>
>> Objednej si na http://forms.mpsv(tec)cz/uir/default2.jsp CD s
>> UIR-ADR (zdarma). Je to "uzemne identifikacni registr adres"
>> a jsou tam nejen kraje, okresy, obce, ale i ulice s
>> jednotlivymi baraky. Aktualizace jsou ke stazeni kazdy tyden.
>> Jedine co bych vytkl je, ze souradnice jednotlivych baraku
>> jsou vyplnene u vsech baraku.
>>
>> Daniel
>
>
>
>
>
Ciselnik obci
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 16.8.2005 12:00:02
Tak to je super, to si objednam. Nedalo by se to ale od nekud stahnout,
abych to mel hned?
Karel
> Objednej si na http://forms.mpsv(tec)cz/uir/default2.jsp CD s
> UIR-ADR (zdarma). Je to "uzemne identifikacni registr adres"
> a jsou tam nejen kraje, okresy, obce, ale i ulice s
> jednotlivymi baraky. Aktualizace jsou ke stazeni kazdy tyden.
> Jedine co bych vytkl je, ze souradnice jednotlivych baraku
> jsou vyplnene u vsech baraku.
>
> Daniel
Ciselnik obci
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 16.8.2005 11:27:59
UIR-ADR je uzemni identifikacni registr adres, garantem je MPSV (min.prace a
soc.veci).
Kmen dostanes zdarma na CD, aktualizace online cca 1x tydne.
Import do SQL, Oracle, DBF, obecneho ODBC...
Pokud si z toho chces nechat jen obce (bez ulic a 2M5 baraku), muzes.
Jarda
----- Original Message -----
From: "Karel Pecinka" <k.pecinka(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 16, 2005 9:29 AM
Subject: OT: Ciselnik obci
> Zdar,
>
> nevite nekdo, kde se da stahnout ciselnik mest a obci vcetne PSC a
> zarazeni do okresu a kraju pro vyuziti ve vlastni aplikaci?
> Idealne v DBF formatu.
>
> Diky Karel
>
>
>
> Ciselnik obci
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 16.8.2005 11:03:57
> From: "Karel Pecinka" <k.pecinka(zv)seznam(tec)cz>
> nevite nekdo, kde se da stahnout ciselnik mest a obci vcetne PSC a
> zarazeni do okresu a kraju pro vyuziti ve vlastni aplikaci?
Objednej si na http://forms.mpsv(tec)cz/uir/default2.jsp CD s UIR-ADR (zdarma).
Je to "uzemne identifikacni registr adres" a jsou tam nejen kraje, okresy,
obce, ale i ulice s jednotlivymi baraky. Aktualizace jsou ke stazeni kazdy
tyden. Jedine co bych vytkl je, ze souradnice jednotlivych baraku jsou
vyplnene u vsech baraku.
Daniel
---------------------------------------------------------------
Some minor bugs/features fixed/added Ciselnik obci
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 16.8.2005 10:09:51
Na adrese je datovy standard mimisterstav zdravotnitvi, ktery je zdarma.
Soucasti jsou i ciselniky UZIS kde je i soubor obce.xml, to je to co
potrebujes a je to aktualni.
Pokud se prihlasis do projektu tak ti bude chodit CD.
http://www.mzcr(tec)cz/index.php?kategorie=31
Nebo starsi DBF vydani z roku 2002
popis
http://www.uzis(tec)cz/cz/nzis04/obce.doc
Soubor
http://www.uzis(tec)cz/cz/nzis04/OBCE.ZIP
> nevite nekdo, kde se da stahnout ciselnik mest a obci vcetne
> PSC a zarazeni do okresu a kraju pro vyuziti ve vlastni aplikaci?
> Idealne v DBF formatu.OpenPictureDialog
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 16.8.2005 10:05:51
> v aplikaci pouzivam OpenPictureDialog. Nasledne oteviram v potomkovi
> TPicture. Zajimave je, ze se na mem pocitaci nabizi a funguje na otevreni
> take typ obrazku jpg. Docela me proto prekvapilo
Zkusim si tipnout:
v unit je treba mit "uses jpeg", pokud to tam neni, *.jpg se nenabizi a zpracovani jpg to neumi.
(registrace jpg - viz inicilalizacni cast unit jpeg)
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 569, 493 792 931, 776 347 735
====================================OpenPictureDialog
[*] dam <arthur(zv)argh(tec)cz> - 16.8.2005 10:03:51
> Normalne staci pridat do Uses unitu JPEG. Ta v sekci initialization
> provede registraci formatu
Dik, takze jsem si to u sebe zprovoznil tema pokusama, ach jo. (-:OpenPictureDialog
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 16.8.2005 09:17:45
16.8.2005 dam:
> Ahoj,
> v aplikaci pouzivam OpenPictureDialog. Nasledne oteviram v potomkovi
> TPicture. Zajimave je, ze se na mem pocitaci nabizi a funguje na
> otevreni
> take typ obrazku jpg. Docela me proto prekvapilo, ze se klient
> ozval, ze tam
> ma k otevreni jen bitmapy, ikony a metafily... Ve zdrojacich jsem
> nasel, ze
> se filtr sestavuje dynamicky dle nejakych registraci, ale dal jsem
> se zatim
> nedostal.
> A v helpu jsem se taktez hledati pokousel, lec zname borlandi
> helpy... )-;
> Schvalne jsem to zkousel u kolegy se stejnym vysledkem, takze mam asi
> unikatni pocitac, kde delphi umej pracovat automaticky s jepegem...
> Netusite nekdo? Radsi bych jim rekl, co maj pripadne doinstalovat,
> nez tam
> rucne dopisoval konverze pomoci jpegimage.
Normalne staci pridat do Uses unitu JPEG. Ta v sekci initialization
provede registraci formatu
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
OT: Ciselnik obci
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 16.8.2005 09:29:48
Zdar,
nevite nekdo, kde se da stahnout ciselnik mest a obci vcetne PSC a
zarazeni do okresu a kraju pro vyuziti ve vlastni aplikaci?
Idealne v DBF formatu.
Diky Karel
OpenPictureDialog
[*] Dalibor <dalibor(zv)torola(tec)cz> - 16.8.2005 09:17:45
Ahoj, nevim jestli to s tim muze souviset, ale mozna mas nainstalovany
office s doplnkem MSGRAPH nebo Microsoft Photo Editor (ted nevim presne)
Timhle se ti dostane podpora por JPEG do aplikace treba Malovani. Aspon u
me
na Win2000 Prof to tak je.> > Ahoj,
> > v aplikaci pouzivam OpenPictureDialog. Nasledne oteviram v potomkovi
> > TPicture. Zajimave je, ze se na mem pocitaci nabizi a funguje na
otevreni
> > take typ obrazku jpg. Docela me proto prekvapilo, ze se klient ozval, ze
> tam
> > ma k otevreni jen bitmapy, ikony a metafily... Ve zdrojacich jsem nasel,
> ze
> > se filtr sestavuje dynamicky dle nejakych registraci, ale dal jsem se
> zatim
> > nedostal.
> > A v helpu jsem se taktez hledati pokousel, lec zname borlandi
helpy... )-;
> > Schvalne jsem to zkousel u kolegy se stejnym vysledkem, takze mam asi
> > unikatni pocitac, kde delphi umej pracovat automaticky s jepegem...
> > Netusite nekdo? Radsi bych jim rekl, co maj pripadne doinstalovat, nez
tam
> > rucne dopisoval konverze pomoci jpegimage.
> > Dik
> > David
I/O karta - komunikace v Delphi
[*] Ing. Josef Staufcik <j.staufcik(zv)msp.mesit(tec)cz> - 16.8.2005 09:01:36
Preji hezky den.
Ma nekdo z vas zkusenosti s I/O kartou PCI-1751 firmy Advantech, tedy s
komunikaci s ni v Delphi? Nebo muze mi nekdo doporucit jinou kartu do PC,
ktera ma 6 digitalnich vstupu, 24 digitalnich rele vystupu a tri frekvencni
vystupy 0-500Hz? Podminkou je snadna komunikace pres aplikaci v Delphi.
Diky. Pepa
OpenPictureDialog
[*] dam <arthur(zv)argh(tec)cz> - 16.8.2005 08:49:33
Ahoj,
v aplikaci pouzivam OpenPictureDialog. Nasledne oteviram v potomkovi
TPicture. Zajimave je, ze se na mem pocitaci nabizi a funguje na otevreni
take typ obrazku jpg. Docela me proto prekvapilo, ze se klient ozval, ze tam
ma k otevreni jen bitmapy, ikony a metafily... Ve zdrojacich jsem nasel, ze
se filtr sestavuje dynamicky dle nejakych registraci, ale dal jsem se zatim
nedostal.
A v helpu jsem se taktez hledati pokousel, lec zname borlandi helpy... )-;
Schvalne jsem to zkousel u kolegy se stejnym vysledkem, takze mam asi
unikatni pocitac, kde delphi umej pracovat automaticky s jepegem...
Netusite nekdo? Radsi bych jim rekl, co maj pripadne doinstalovat, nez tam
rucne dopisoval konverze pomoci jpegimage.
Dik
David
Delphi stranky Torry
[*] JM <jan.masek(zv)mcu(tec)cz> - 16.8.2005 07:49:26
Omlouvam se za komercni odkaz, ale mozna nekomu pomuze:
http://www.mcu(tec)cz/modules/news/article.php?storyid=414
Neni to sice torry.net, ale rozsahem a clenenim mu odpovida
J.Masek
Delphi stranky Torry
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 15.8.2005 22:02:42
15.8.2005 John Bricklayer:
> WWW.TORRY.NET
> We are very sorry.
> Torry has problem with hard disk. We are solving the problem.
> All data and files are NOT LOST.
> We hope all problems will be solved in a few days.
> Sorry.
> Torry is not dead! We are working on saving ALL information.
> We hope we will start site again between Aug, 16 and 19.
Tohle je ale uz vic jak tyden stara zprava. Takze resi a resi a
resi...
A zrejme kaslali na zalohy, jinak by vymenili HDD a druhy den
fungovali vesele dal.
Takze spis nejaka vymluva, protoze na hardware se da svest temer
cokoliv.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Delphi stranky Torry
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 15.8.2005 20:00:33
WWW.TORRY.NET
We are very sorry.
Torry has problem with hard disk. We are solving the problem.
All data and files are NOT LOST.
We hope all problems will be solved in a few days.
Sorry.
Torry is not dead! We are working on saving ALL information.
We hope we will start site again between Aug, 16 and 19.
funkce pro ziskani UUID
[*] Zdenek Sedlak <konf(zv)seus(tec)cz> - 15.8.2005 18:40:26
Ahoj,
kodovani base64 jsem pouzil z DCPCrypt
( http://www.cityinthesky.co.uk/delphi.html )
Je to knihovna s hromadou dalsich uzitecnych veci :)
Pro kodovani pomoci Base64 slouzi funkce EncodeBase64 v souboru
DCPBase64.pas (je tam kodovani binarnich dat i stringu a take
dekodovani, nicmene staci to kodovani).
Pak je potreba vygenerovat GUID. V Delphi6 to delam standardne. Dale to
prevadim na Base64, tim dostanu 24 znakovy retezec, kde na konci jsou
vzdy dve rovnitka ("=="), ty odtrhnu a je to :-)
mela by fungovat takovato funkce, pisu to z hlavy, mam na to "vlastni"
tridu, ktera dela i dalsi veci, snad to bude fungovat:
function GetUUID: String;
var
g: TGuid; // guid typ v delphi
s: String; // pomocny string pro prevod na base64
begin
CreateGuid(g); // generovani GUID v sysutils
SetLength(s,24); // nastaveni max. velikosti stringu kvuli pointerum
Base64Encode((zv)g,(zv)s[1],16); // tady je volani funkce z DCPBase64.pas
//16 byte je velikost TGuid
Result := Copy(s,0,22);
end;
Pokud jsem deklaroval s: String[24], tak mi to nefungovalo :( nevim proc.
Zdenda
Karel Pecinka napsal(a):
> Zdar,
>
> muzete prosim nekdo poslat konkretni funkci pro generovani UUID jako
> char 22? Pres CoCreateGuid vytvorim Guid, ale nikde jsem v D5 nenasel
> typ Base64 doporucovany pro prekodovani v historii konferu. Asi bych se
> s tim nejak popral, ale jsem si jist, ze se to nekde da stahnout hotove,
> tak se s tim nechci zdrzovat. Potrebuji si UUID vytvorit programove, ale
> tak, aby se to pak dalo pouzit v INSERT skriptu do FB 1.5.
>
> Dik Karel, D5, FB 1.5
>
>
>
>
>
Export do excelu
[*] Dalibor <dalibor(zv)torola(tec)cz> - 15.8.2005 12:05:59
Ahoj, pouzivam funkci ktera mi data exportuje do Excelu.
Data posilam pres SouborExcel.Cells[Radek, sloupec ].Value :=
Problem je, ze bunka s takovou hodnotou ma tvar Obecny text a ja bych ji potreboval ve formatu cislo.
Neco jako SouborExcel.Cells[Radek, sloupec ].AsInteger,AsFloat atd
Nevite nekdo jak na to?
Dekuji
D.
funkce pro ziskani UUID
[*] Robert Fujak <robof(zv)inmail.sk> - 15.8.2005 11:23:55
Ahoj.
No ja to mam na servri a UUID zistujem cez uloznu proceduru, ktora mi ho
vrati ako parameter
no a v programe si snim robim co chcem.
Zda sa mi lepsie, ked necham generovanie a prevod GUID na UUID len na jednom
PC
CREATE PROCEDURE SP_GETUUID
RETURNS (
PO_UUID CHAR(22))
AS
begin
PO_UUID=UUID_CREATE(); // tu volam UDF
suspend;
end
^
S pozdravom
Robert Fujak
> Diky, to jsem nasel, ale to je udf. Me by se vic libilo vytvorit UUID
> uplne bez pripojeni k DB, proste v programu. Potrebuju procedurku v
> Delphi, ktera z toho TGUID udela char 22 ve formatu UUID. To fakt nikdo
> nepouzivate tento zpusob vytvoreni primarniho klice? Budu to pouzivat
> pro vytvoreni zaznamu v tabulce Master + jako cizi klic v tabulce Detail
> s tim, ze zapis vsech zaznamu muze probehnout az po zavreni nejakeho
> dialogu v ramci jedne transakce. Nikde prece neni napsany, ze ten UUID
> mi musi vytvorit Firebird.
funkce pro ziskani UUID
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 15.8.2005 11:47:57
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> s tim, ze zapis vsech zaznamu muze probehnout az po zavreni nejakeho
> dialogu v ramci jedne transakce. Nikde prece neni napsany, ze ten UUID
> mi musi vytvorit Firebird.
Nemusi, ja to taky delam na strane klienta.
Pro fci EncodeBase64() staci pouzit Synaser (http://www.ararat(tec)cz/synapse/)
od Luk. Gebauera(diky za ni :) a nejen to).
type
TGUIDFormat = (gfGUID38, // {E09BE19F-7CE8-4CE5-9044-EFE251159CD6}
gfGUID36, // E09BE19F-7CE8-4CE5-9044-EFE251159CD6
gfGUID32, // E09BE19F7CE84CE59044EFE251159CD6
gfGUID22); // EncodeBase64(gfGUID32)
function CreateGUIDID(const cGUIDFormat: TGUIDFormat): String; // generovani
identifikatoru typu GUID v pozadovanem formatu
var
RemoveCharsFromGUID: TSysCharSet;
begin
Result:= '';
RemoveCharsFromGUID:= ['{','-','}'];
case cGUIDFormat of
gfGUID38: Result:= CreateClassID;
gfGUID36: Result:= Copy(CreateGUIDID(gfGUID38),2,36);
gfGUID32: Result:=
StrRemoveChars(CreateGUIDID(gfGUID38),RemoveCharsFromGUID);
gfGUID22: Result:=
Copy(EncodeBase64(StrToHex(CreateGUIDID(gfGUID32))),1,22);
end;
if Length(Result) = 0 then
raise Exception.Create('Error creating GUID string.');
end;
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
funkce pro ziskani UUID
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 15.8.2005 11:09:54
Diky, to jsem nasel, ale to je udf. Me by se vic libilo vytvorit UUID
uplne bez pripojeni k DB, proste v programu. Potrebuju procedurku v
Delphi, ktera z toho TGUID udela char 22 ve formatu UUID. To fakt nikdo
nepouzivate tento zpusob vytvoreni primarniho klice? Budu to pouzivat
pro vytvoreni zaznamu v tabulce Master + jako cizi klic v tabulce Detail
s tim, ze zapis vsech zaznamu muze probehnout az po zavreni nejakeho
dialogu v ramci jedne transakce. Nikde prece neni napsany, ze ten UUID
mi musi vytvorit Firebird.
> http://www.ibphoenix.com/downloads/uuidlib.zip
>
>
> Robert Fujak
funkce pro ziskani UUID
[*] Robert Fujak <robof(zv)inmail.sk> - 15.8.2005 10:41:52
http://www.ibphoenix.com/downloads/uuidlib.zip
S pozdravom
Robert Fujak
>funkce pro ziskani UUID
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 15.8.2005 10:37:51
Ne to neni ono - to vrati char(32) vcetne pomlcek. Rad bych pouzival
zkracenou verzi - UUID na char(22).
> Myslis neco takoveho:
> function GetGuid: WideString;
> var
> myGUID: TGUID;
> P: PWideChar;
> begin
> Result := '';
> if CoCreateGuid(myGUID) = S_OK then
> begin
> StringFromCLSID(myGuid, P);
> Result := '[''' + P + ''']';
> CoTaskMemFree(P);
> end;
> end;
>funkce pro ziskani UUID
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 15.8.2005 10:25:50
15.8.2005 Karel Pecinka:
> Zdar,
> muzete prosim nekdo poslat konkretni funkci pro generovani UUID jako
> char 22? Pres CoCreateGuid vytvorim Guid, ale nikde jsem v D5 nenasel
> typ Base64 doporucovany pro prekodovani v historii konferu. Asi
> bych se
> s tim nejak popral, ale jsem si jist, ze se to nekde da stahnout
> hotove,
> tak se s tim nechci zdrzovat. Potrebuji si UUID vytvorit
> programove, ale
> tak, aby se to pak dalo pouzit v INSERT skriptu do FB 1.5.
Myslis neco takoveho:
function GetGuid: WideString;
var
myGUID: TGUID;
P: PWideChar;
begin
Result := '';
if CoCreateGuid(myGUID) = S_OK then
begin
StringFromCLSID(myGuid, P);
Result := '[''' + P + ''']';
CoTaskMemFree(P);
end;
end;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
funkce pro ziskani UUID
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 15.8.2005 10:09:49
na www.ibphoenix.com jou na toto UDF knihovny, ale netestoval jsem je.
Slavek
> muzete prosim nekdo poslat konkretni funkci pro generovani
> UUID jako char 22? Pres CoCreateGuid vytvorim Guid, ale nikde
> jsem v D5 nenasel typ Base64 doporucovany pro prekodovani v
> historii konferu. Asi bych se s tim nejak popral, ale jsem si
> jist, ze se to nekde da stahnout hotove, tak se s tim nechci
> zdrzovat. Potrebuji si UUID vytvorit programove, ale tak, aby
> se to pak dalo pouzit v INSERT skriptu do FB 1.5.funkce pro ziskani UUID
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 15.8.2005 10:01:49
Zdar,
muzete prosim nekdo poslat konkretni funkci pro generovani UUID jako
char 22? Pres CoCreateGuid vytvorim Guid, ale nikde jsem v D5 nenasel
typ Base64 doporucovany pro prekodovani v historii konferu. Asi bych se
s tim nejak popral, ale jsem si jist, ze se to nekde da stahnout hotove,
tak se s tim nechci zdrzovat. Potrebuji si UUID vytvorit programove, ale
tak, aby se to pak dalo pouzit v INSERT skriptu do FB 1.5.
Dik Karel, D5, FB 1.5
Delphi stranky Torry
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 14.8.2005 11:46:09
Mala finta pro ty co v nich presto chteji vyhledavat i kdyz nejedou...
Kdyz hledate radu, navod, tip tak zadejte do Google
napr.
site:torry.net TDataset
a to co na vas vypadne prochazejte pres odkaz Archiv u kazde polozky.
Muzete si tak precist to, co tam je a vyuzit to pro svou praci...
Jinak torry.net ma spoustu zrcadel...
jedno z nich je
http://www.swissdelphicenter.ch/torry/ - nevim ale, jak moc je aktualni...
Delphi stranky Torry
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 14.8.2005 09:05:57
maju uz asi 3tyzden vypadok (odisiel im disk) tak to davaju naspat.
> Nevite nekdo co je s www.torry.ru strankami? Uz delsi dobu mi nejdou.
> Matrin
OT: Delphi stranky Torry
[*] m.zaplik(zv)volny(tec)cz - 13.8.2005 20:55:07
Nevite nekdo co je s www.torry.ru strankami? Uz delsi dobu mi nejdou.
Matrin
Nacteni poslednich 500 vet
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 13.8.2005 16:48:50
Pravos wrote (on Saturday, August 13, 2005 2:39 PM):
> Omlouvam se za nepresnou specifikaci, data ctu z databaze Firebird 1.5 a
> rada mne stacila.
Stacilo by poslat select first 500 * ... order by ...
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Nacteni poslednich 500 vet
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 13.8.2005 16:16:46
13.8.2005 Pravos:
> Potrebuji poradit jak napsat select pro rychle nacteni z velke tabulky
> poslednich 500 vet.
SQL server obvykle obsahuje omezeni poctu vet. Takze nactes prvnich
500 vet, ale pouzitim spravneho ORDER BY neco DESCENDING nactes
vlastne poslednich 500 vet.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Nacteni poslednich 500 vet
[*] Pravos <pravos(zv)tiscali(tec)cz> - 13.8.2005 14:38:39
Omlouvam se za nepresnou specifikaci, data ctu z databaze Firebird 1.5 a
rada mne stacila.
Dik Vlada
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Slavomir Skopalik
Sent: Saturday, August 13, 2005 11:08 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Nacteni poslednich 500 vet
Co takle napsat z ceho do ceho to chces nacitat ?
Celkove je tento pozadavek nesmyslny, protoze pokud nemas
definovane poradi, tak je ti uplne jedno, jestli nactes prvnich
500, prostrednich 500, nebo poslednich.
A pokud mas definovane poradi, tak staci otocit razeni v ORDER BY
a nacist prvnich 500 ne ?
A protoze jsi nenapsal typ serveru, tak ti vice nemohu poradit.
Slavek
> Potrebuji poradit jak napsat select pro rychle nacteni z
> velke tabulky poslednich 500 vet. Vlada
select * obsahuje ine zaznamy ako zalozka data v i
[*] Ludek <konference(zv)sales(tec)cz> - 13.8.2005 12:00:27
----- Original Message -----
From: "hlas" <hlas(zv)inmail.sk>
> ibexpert - zalozka data nad tabulkou ukazuje rozdielne zaznamy
> ako volba sqleditor a select * from tabulka ????
>
Ahoj,
Zkus se podivat jestli v ibexpertu nemas nastavenej nejakej filtr.
Ludek
Nacteni poslednich 500 vet
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.8.2005 11:08:24
Co takle napsat z ceho do ceho to chces nacitat ?
Celkove je tento pozadavek nesmyslny, protoze pokud nemas
definovane poradi, tak je ti uplne jedno, jestli nactes prvnich
500, prostrednich 500, nebo poslednich.
A pokud mas definovane poradi, tak staci otocit razeni v ORDER BY
a nacist prvnich 500 ne ?
A protoze jsi nenapsal typ serveru, tak ti vice nemohu poradit.
Slavek
> Potrebuji poradit jak napsat select pro rychle nacteni z
> velke tabulky poslednich 500 vet. Vlada
Nacteni poslednich 500 vet
[*] Pravos <pravos(zv)tiscali(tec)cz> - 13.8.2005 09:42:15
Potrebuji poradit jak napsat select pro rychle nacteni z velke tabulky
poslednich 500 vet.
Vlada
select * obsahuje ine zaznamy ako zalozka data v i
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 12.8.2005 12:06:40
> v hre by nemali byt transakcie, ked vypnem a zapnem celeho ibexperta
> odpojim sa od databazy tak vysledok je rovnaky teda zly
> teda nezhoda medzi zalozkou data a select * from
Zkus v IBExpertu otevrit okno scriptu F12 ci ShiftF12 a napis do nej stejny
select, jako pouzivas v aplikaci, F9 zobrazis vysledek. Porad je to jine?
MB
select * obsahuje ine zaznamy ako zalozka data v i
[*] hlas <hlas(zv)inmail.sk> - 12.8.2005 11:44:38
v hre by nemali byt transakcie, ked vypnem a zapnem celeho ibexperta
odpojim sa od databazy tak vysledok je rovnaky teda zly
teda nezhoda medzi zalozkou data a select * from
ziadne order tam nemam a jedna sa o 4 resp. 6 zaznamov
takze ani bezna vizulna chyba by nemala prichadzat do uvahy
zacinam mat podozrenie ci sa nejedna o poskodenu databazu
> > preco zalozka
> > data ukazuje to co ocakavam a select * from tabulka nieco ine?
>
> A nemuze to nahodou byt jenom kvuli "order by" ?
> To je jenom tip, problem muze byt samozrejme nekde jinde.
>
> Honza
select * obsahuje ine zaznamy ako zalozka data v i
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 12.8.2005 11:10:35
> preco zalozka
> data ukazuje to co ocakavam a select * from tabulka nieco ine?
A nemuze to nahodou byt jenom kvuli "order by" ?
To je jenom tip, problem muze byt samozrejme nekde jinde.
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 569, 493 792 931, 776 347 735
====================================select * obsahuje ine zaznamy ako zalozka data v i
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 12.8.2005 11:10:35
Ahoj,
zkus si dat pred selectem commit, nebo nastavir transakci pro select
jako "read commited".
Peca
refresh datasetu
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 12.8.2005 11:14:36
Ahoj,
urcite to vsichni vite, jenom ja ne: Jak zaridit, aby se po zmene udaje v
datovem formulari zmena hned promitla vsem pripojenym uzivatelum. Jedna se o
spolecnou tabulku paradox na servru, BDE, Delphi 5Ent a jednoho co uz z toho
vysel.
Vlastnost autorefresh jsem nastavil na true, ale vzdycky to trva, nez se
objevi zmena na ostatnich stanicich a to jeste pouze kdyz z aktualni vety
slezou treba nazacatek a pak ji najdou treba pres locate.
Diky mejte se
Dalibor Faltynek
Orgrez, a. s.
tel: +420 541 613 312
fax: +420 541 613 299
e-mail: dalibor.faltynek(zv)orgrez(tec)cz
select * obsahuje ine zaznamy ako zalozka data v i
[*] hlas <hlas(zv)inmail.sk> - 12.8.2005 10:58:35
ibexpert - zalozka data nad tabulkou ukazuje rozdielne zaznamy
ako volba sqleditor a select * from tabulka ????
stretli ste sa s tym niekedy? a aj u mna v programe
sa tie zaznamy zjavuju? odkial sa beru, ak tam nemam
chybu tak by sa tam nachadzat nemali. preco zalozka
data ukazuje to co ocakavam a select * from tabulka nieco ine?
Obrazek posun pixelu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 12.8.2005 09:54:30
Ahoj,
podivej se na TBitmap.Canvas.CopyRect. Kresli do bitmapy, tu pak vykresluj
treba do TImage.
Roman
>> dobry den v konferenci.
>>
>> moc nepracuji s obrazky a ted potrebuji udelat pohyblivy graf
>> tj. bitmapa o vel. 100x100px, na posledni pozici (0,99) chci
>> nakreslit caru
>> a posunout pixely X(1..99) o pixel doleva (0-98).
>>
>> otazka zni:
>> 1- jakou komponentu - Image, Shape?
>> 2- jak posunout ten obrazek o pixel doleva.Nastaveni Windows XP
[*] delphi(zv)spst(tec)cz - 12.8.2005 09:50:29
Zdravim,
Potrebuji pomoci programu v D7 nastavit prostredi Windows XP.
To znamena zmenit napriklad:
motiv z "Windows XP" na "Klasicke nastaveni",
zapnout zobrazovani panelu "Snadne spusteni",
pouziti Klasicke nabidky Start pripadne jeste jeji vlastni upravu (V nabidce
Start zobrazovat male ikony)
atd.
Hledal jsem v registrech a neco malo jsem nasel. Ale pri zmene jednoho
jedineho zatrzitka se v registrech provadi dost velke upravy. Predpokladam,
ze uprava registru nebude to nejlepsi reseni. Nastaveni se provede az po
opetovnem prihlaseni. Mimo jine nektere polozky se chovaji velmi zajimave.
Je vytvoren klic v registru, pak je provedena nejaka aktualizace a nasledne
je prislusny klic zase smazan. To je napriklad prave zminovane V nabidce
Start zobrazovat male ikony.
Moje otazka tedy je zda na to existuji nejake funkce. Je nekde jejich popis.
Pripadne je mozne toto nejak nastavit, aby nove vytvoreny uzivatel mnel
prednastavene toto prostredi.
Predem moc dekuji
Jirka
Obrazek posun pixelu
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 12.8.2005 09:36:27
Udelej si bitmapu vetsi (komponentu pro obrazek) ... Schovej ji do
Scrollboxu. Scrollbary schovej a men bud pozici odrolovani, nebo kdyz ten
obrazek obalis do treba do panelu, tak v nem budes menit jeho pozici...
Staci x-ovou.
Pro ten obrazek ale nastav Align na alNone... U obalujiciho panelu nedavej
Autosize...
Dulezite je co vidi uzivatel. Ne jak to je udelane... Ale musi to byt ciste.
:)
----- Original Message -----
From: "MUDr. Patrik Valenta" <valentapat(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, August 12, 2005 9:30 AM
Subject: Obrazek posun pixelu
> dobry den v konferenci.
>
> moc nepracuji s obrazky a ted potrebuji udelat pohyblivy graf
> tj. bitmapa o vel. 100x100px, na posledni pozici (0,99) chci nakreslit
> caru
> a posunout pixely X(1..99) o pixel doleva (0-98).
>
> otazka zni:
> 1- jakou komponentu - Image, Shape?
> 2- jak posunout ten obrazek o pixel doleva.
>
> Nakreslit tu caru umim.
>
> s pozdravem valik
>
>
> Obrazek posun pixelu
[*] MUDr. Patrik Valenta <valentapat(zv)volny(tec)cz> - 12.8.2005 09:30:23
dobry den v konferenci.
moc nepracuji s obrazky a ted potrebuji udelat pohyblivy graf
tj. bitmapa o vel. 100x100px, na posledni pozici (0,99) chci nakreslit caru
a posunout pixely X(1..99) o pixel doleva (0-98).
otazka zni:
1- jakou komponentu - Image, Shape?
2- jak posunout ten obrazek o pixel doleva.
Nakreslit tu caru umim.
s pozdravem valik Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 11.8.2005 17:39:14
Slavomir Skopalik wrote:
>>Database B - exportni - je vytvorena nasi sluzbou. Sluzba
>>standardne bezi primo
>>na serveru, takze k teto databazi by se mohla pripojit
>>lokalne, tedy pokud to
>>IBX komponenty dobre zvladaji, nikdy jsem to nezkousel.
>
> Zvladaji, neni to problem.
Pokud ovsem aplikace pristupuje k databazi z vice threadu, MUSI se
pouzit TCP/IP spojeni a v kazdem threadu samostatne TIBDatabase a
TIBTransaction objekty.
Martin Schayna
Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 11.8.2005 17:23:13
> Database B - exportni - je vytvorena nasi sluzbou. Sluzba
> standardne bezi primo
> na serveru, takze k teto databazi by se mohla pripojit
> lokalne, tedy pokud to
> IBX komponenty dobre zvladaji, nikdy jsem to nezkousel.
Zvladaji, neni to problem.
>
> Je ale mozne se k databazi A pripojit lokalne, kdyz jsou k ni
> ve stejnem
> okamziku pripojeni klienti pres TCP/IP?
Ano, lze to.
Pro server je dulezita cesta k souboru, problem by mohl byt pokud by se jeden
soubor otevrel dvakrat
(napriklad pres subst, simlink na linuxu).
Ja to delam bezne, jelikoz gbak pri TCP trva 2x dele a zabere hooodne CPU.
Slavek
Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 11.8.2005 17:09:12
Cituji z emailu od Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz>:
> Jestli se nachazi ta aplikace take na serveru, tak se pripoj lokalne.
> Krome toho, ze je to mnohem rychlejsi, nez TCP by tam nemel byt tento
> problem.
Situace vypada takto:
Database A - ostra data, v ni pracuji uzivatele (maji aplikaci spustenou na
stanici, komunikace s FB pres TCP/IP). Uzivatele mohou pracovat i behem
exportu.
Database B - exportni - je vytvorena nasi sluzbou. Sluzba standardne bezi primo
na serveru, takze k teto databazi by se mohla pripojit lokalne, tedy pokud to
IBX komponenty dobre zvladaji, nikdy jsem to nezkousel.
Je ale mozne se k databazi A pripojit lokalne, kdyz jsou k ni ve stejnem
okamziku pripojeni klienti pres TCP/IP?
Karel Rys
anglicke konferencie o delphi
[*] Petr Vones <konference(zv)petrvones(tec)net> - 11.8.2005 16:57:10
From: "brano" <odber(zv)centrum.sk>
> poznate nejake anglicke mailove alebo ine konferencie o delphi na podobnej
> urovni ako je tato?
Borland Newsgroups:
http://support.borland.com/entry.jspa?externalID=1175
Petr Vones
spomalenie pri viacuzivatelskom pristupe
[*] Karol Chupek <chupek(zv)gmail(tec)com> - 11.8.2005 16:29:08
parametre nie su probme nikde...
no a pokial ide o MSDE tak je to prijatelne... pretoze je tam podobna
podpora prikazov ako v oracle a tam spravis vsetko napr. cez vnorene dotazy
pripadne lepsie riesenie cez pohlady...
Nedokazem sa vsak uplne fundovane k tomu vyjadrit , kedze ja pracujem na
oracle , ale ked som pozeral MSSQL tak to bolo uz skoro to iste..
Karol Chupek
mato napsal(a):
>rozmyslal som nad tym odrazuje ma ale ze mam definovane dost zlozite SQl
>dotazy aj s parametrami a asi po prechode na inu databazu by to neslo a
>musel by som to cele prepisat. Este ma napada bezplatna SQL server od
>Microsoftu - MSDE alebo je nieco novsie ? SQL by mali byt podobne s acesom
>
>
>
>
>> Karol Chupek
>>
>>
>>
>
>
>
>
>
Zrychleni spusteni Delphi 2005 IDE
[*] Petr Vones <konference(zv)petrvones(tec)net> - 11.8.2005 16:17:07
Ahoj,
tento problem se diskutuje jiz od vzniku Delphi 8, pricemz vetsina nabizenych
reseni spociva v odstraneni "nepotrebnych" balicku.
Zde je k dispozici jine reseni, ktere optimalizuje nahravani BPL balicku do
IDE obecne. Je odzkouseno pro Delphi 2005 ale melo by byt pouzitelne i pro
Delphi 8 nebo C# Builder.
Improving Delphi 2005 IDE load speed
http://cc.borland.com/item.aspx?id=23472
Petr Vones
spomalenie pri viacuzivatelskom pristupe
[*] mato <mato.tino(zv)inmail.sk> - 11.8.2005 15:39:04
rozmyslal som nad tym odrazuje ma ale ze mam definovane dost zlozite SQl
dotazy aj s parametrami a asi po prechode na inu databazu by to neslo a
musel by som to cele prepisat. Este ma napada bezplatna SQL server od
Microsoftu - MSDE alebo je nieco novsie ? SQL by mali byt podobne s acesom
> Nuz po tom co tu citam sa naozaj pytam , preco to neprehodis na nejaky
> Sql Server ako ti tu uz radili?
> Acces je suborova Db , ak teda potrebujete pristupovat ku db viaceri je
> na case aby si sa poobzeral naozaj po
> relativne dobrom serveri. Pokojne by pre tvoju db postacoval FireBird,
> alebo MySql.
> je to male a pre to co pises to bohato postacuje, teda az na funkcie
> ktore nie su v FB take ako Acces-e
> ale pokial nepouzivas nejake tieto f-cie tak je to IMHO najlepsia cesta
> pre teba a spokojnost userov..
> Karol Chupek
>
Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 11.8.2005 13:34:56
Jestli se nachazi ta aplikace take na serveru, tak se pripoj lokalne.
Krome toho, ze je to mnohem rychlejsi, nez TCP by tam nemel byt tento problem.
Slavek
> Je fakt, ze situace je presne ta, kterou tam nekdo popisuje:
> app se pripojuje pres tcp/ip a
> kopiruje data z jedne databaze do druhe na tom samem serveru.Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 11.8.2005 13:14:54
Slavomir Skopalik dne 11 Aug 2005 v 12:04:
> http://sourceforge.net/mail/?group_id=9028
>
> Nastaveni zjistit ze spravce uloh :).
> Pripadne zkus v BIOSU vypnout hyperthreading.
Diky, vypada to nevesele, reseni zadne... Zkusime tedy vypnout hyperthreading a dam vedet, jak to
dopadlo.
Je fakt, ze situace je presne ta, kterou tam nekdo popisuje: app se pripojuje pres tcp/ip a
kopiruje data z jedne databaze do druhe na tom samem serveru.
Diky,
Karel Rys
Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 11.8.2005 12:04:49
http://sourceforge.net/mail/?group_id=9028
Nastaveni zjistit ze spravce uloh :).
Pripadne zkus v BIOSU vypnout hyperthreading.
Slavek
> Jedine, co jsem nasel ve firebird.conf, je:
>
> # In an SMP system, sets which processors can be used by the
> server. # The default value is 1. # # Type: integer #
> #CpuAffinityMask = 1
>
> Nic jsem tam nepsal, tak predpokladam, ze pobezi na CPU 1.
> Kde se to da zkontrolovat? Kazdopadne
> vytizeni obou procesoru je mizive a nezda se, ze by zatez
> "preskakovala" z jednoho na druhy... Kde
> presne prosim mohu najit tu diskuzi?Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 11.8.2005 11:20:46
Jedine, co jsem nasel ve firebird.conf, je:
# In an SMP system, sets which processors can be used by the server. # The default value is 1.
#
# Type: integer
#
#CpuAffinityMask = 1
Nic jsem tam nepsal, tak predpokladam, ze pobezi na CPU 1. Kde se to da zkontrolovat? Kazdopadne
vytizeni obou procesoru je mizive a nezda se, ze by zatez "preskakovala" z jednoho na druhy... Kde
presne prosim mohu najit tu diskuzi?
Karel Rys
Slavomir Skopalik dne 11 Aug 2005 v 10:54:
> Zkontroluj si, ze je FB prirazen na jeden CPU, na podobne tema
> byla diskuze ve fb-devel asi tak pred tydnem, takze prohledat archiv.
> Melo by to souviset s planovanim vlaken a TCP spojenim.
> > mam u zakaznika potize s FB 1.5.2 na Win2003: vse funguje,
> > ale dost rozvlacnym tempem.
spomalenie pri viacuzivatelskom pristupe
[*] Karol Chupek <chupek(zv)gmail(tec)com> - 11.8.2005 11:12:45
Nuz po tom co tu citam sa naozaj pytam , preco to neprehodis na nejaky
Sql Server ako ti tu uz radili?
Acces je suborova Db , ak teda potrebujete pristupovat ku db viaceri je
na case aby si sa poobzeral naozaj po
relativne dobrom serveri. Pokojne by pre tvoju db postacoval FireBird,
alebo MySql.
je to male a pre to co pises to bohato postacuje, teda az na funkcie
ktore nie su v FB take ako Acces-e
ale pokial nepouzivas nejake tieto f-cie tak je to IMHO najlepsia cesta
pre teba a spokojnost userov..
Karol Chupek
>citam a zapisujem, tiez si myslym ze to bude nieco so zamykanim alebo
>podobne ale spomalenie je aj ked jedne uzivatel ma aplikaciu iba spustenu a
>ma tam jeden vyber. Inac neviete niekto existoval nejaky parameter u
>komponentov adoexpres ktory dost urychlil pracu s databazov, standartne nie
>je pouzity . Len sa mi to niekde zapatrosilo a neviem to najst.
>
>Dnes je vestenie moda :-)) Ale nie hlavne ze sme sa pochopili, este mi
>niekto vysukajte z rukava nejake riesenie a bude to OK . :-()
>
>
>
>>
>>Martin
>>Admin Of Power Oracle
>>
>>
>>
Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 11.8.2005 10:54:44
Zkontroluj si, ze je FB prirazen na jeden CPU, na podobne tema
byla diskuze ve fb-devel asi tak pred tydnem, takze prohledat archiv.
Melo by to souviset s planovanim vlaken a TCP spojenim.
Slavek
> mam u zakaznika potize s FB 1.5.2 na Win2003: vse funguje,
> ale dost rozvlacnym tempem. Prvni, na
> cem to je videt, je vytvareni databaze pomoci SQL skriptu,
> ktery poustim pres isql.exe. Server ma
> rychle P4 s HT, ale skript na tom bezi pomaleji nez na starem
> notebooku s 500 MHz Celeronem.
> Procesor na serveru pri tom ukazuje vytizeni kolem 10 %.
>
> Nesetkal jste se s tim nekdo, netusite, kde by mohl byt
> zakopany pes? Normalni prace s databazi je
> bezproblemova, gbak beha taky rychle, jen isql a ta nase
> sluzba se loudaji. Na pocitacich s
> Win2000 nebo WinXP pritom beha oboje rychle.
> Rychlost FB 1.5.2 na Win2003 eng./P4 HT
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 11.8.2005 10:30:42
Hezky den,
mam u zakaznika potize s FB 1.5.2 na Win2003: vse funguje, ale dost rozvlacnym tempem. Prvni, na
cem to je videt, je vytvareni databaze pomoci SQL skriptu, ktery poustim pres isql.exe. Server ma
rychle P4 s HT, ale skript na tom bezi pomaleji nez na starem notebooku s 500 MHz Celeronem.
Procesor na serveru pri tom ukazuje vytizeni kolem 10 %.
Stejny problem se zda, ze ma nase aplikace, ktera bezi jako sluzba a exportuje zmenene zaznamy na
pobocku. Export, ktery by mohla mit hotovy za nekolik desitek sekund, trval 12 minut, ovsem
vytizeni procesoru pritom kolisalo jen mezi 0 - 15 %.
Nesetkal jste se s tim nekdo, netusite, kde by mohl byt zakopany pes? Normalni prace s databazi je
bezproblemova, gbak beha taky rychle, jen isql a ta nase sluzba se loudaji. Na pocitacich s
Win2000 nebo WinXP pritom beha oboje rychle.
Diky za namety,
Karel Rys
spomalenie pri viacuzivatelskom pristupe
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 11.8.2005 10:12:40
Pouzij nejakou databazi (firebird, oracle, MSSQL, ...).
Slavek
> Dnes je vestenie moda :-)) Ale nie hlavne ze sme sa
> pochopili, este mi niekto vysukajte z rukava nejake riesenie
> a bude to OK . :-()anglicke konferencie o delphi
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 11.8.2005 09:12:35
> poznate nejake anglicke mailove alebo ine konferencie o delphi na podobnej
urovni ako je tato?
Zacal bych asi na newsgroups.borland.com :)
MB
anglicke konferencie o delphi
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 11.8.2005 07:20:19
> poznate nejake anglicke mailove alebo ine konferencie o delphi
> na podobnej urovni ako je tato?
zname, viz
http://groups-beta.google.com/groups/dir?q=delphi&sel=33554433&qt_d=Hledat+v+adres%C3%A1%C5%99i
nebo v rustine, zato vyssi uroven prispevku:
http://groups-beta.google.com/groups/dir?sel=33593206&expand=1
spomalenie pri viacuzivatelskom pristupe
[*] mato <mato.tino(zv)inmail.sk> - 11.8.2005 06:32:15
citam a zapisujem, tiez si myslym ze to bude nieco so zamykanim alebo
podobne ale spomalenie je aj ked jedne uzivatel ma aplikaciu iba spustenu a
ma tam jeden vyber. Inac neviete niekto existoval nejaky parameter u
komponentov adoexpres ktory dost urychlil pracu s databazov, standartne nie
je pouzity . Len sa mi to niekde zapatrosilo a neviem to najst.
Dnes je vestenie moda :-)) Ale nie hlavne ze sme sa pochopili, este mi
niekto vysukajte z rukava nejake riesenie a bude to OK . :-()
> problem je mozna take v tom, ze v puvodni prvotni zprave od Mato,
> nebyla specifikovana velikost MS-Access databaze,
> pozdeji 10MB, ani hardware na kterem to bezi,
> ale neva, to vsak clovek, aby byl vestec. :o)))
>
> Zamky, ktere si system vytvari sam, jak pises, to take
> muzou byt, avsak nevime zda aktualizuje data
> a nebo jen obycejne cte data z databaze,
> pokud jen ctes data z databaze, tak se zamky
> neuplatnuji atd.
>
> Martin
> Admin Of Power Oracle
>
anglicke konferencie o delphi
[*] brano <odber(zv)centrum.sk> - 11.8.2005 00:07:49
zdravim,
poznate nejake anglicke mailove alebo ine konferencie o delphi na podobnej urovni ako je tato?
vdaka
B.
nacteni WideStringu z registru
[*] davidliska.konf(zv)seznam(tec)cz - 10.8.2005 18:37:26
Ahoj,
nevite nekdo, jak cist widestring z registru? TRegistry pracuji pouze se
stringem. Jde o to, ze kdyz se v jazykovem nastaveni windows prepnu
napriklad na hebrejstinu, tak nejsem schopny z registru spravne precist
ceske znaky. Pripadne by mi stacilo ziskat widestring obsahujici cestu k
adresari "Local AppData" (C:\Documents and Settings\...\Local Settings\Data
aplikaci).
zkousel jsem to napriklad takto:
uses
System, ShlObj;
function ...
var
Dir: array[0..1023] of WideChar;
begin
SHGetSpecialFolderPathW(Application.Handle, Dir, CSIDL_APPDATA, False);
....
end;
ale to taky nefunguje.... to dlouhe "i" tomu proste vadi
David
spomalenie pri viacuzivatelskom pristupe
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 10.8.2005 17:39:22
> <Jen cista logika. OK ale ked ide o suborovu databazu - co
> MDB j,e tak sa serveri je tento subor iba ulozeny a vsetky
> operacie sa deju v RAMkach klientskych pocitacov. Cize pri
> otvoreni jedneho suboru 10 timi uzivatelmi by to nejak nemalo
> byt poznatelne - server poskytuje len suborove sluzby a to by
> sa prejavovalo aj inde nielen u spominanej accessovej databazy.
> Skor si myslim ci to spomalenie nebude mat nieco spolocneho
> so zamykanim zaznamov a pod.
>
> Miro
Miro,
problem je mozna take v tom, ze v puvodni prvotni zprave od Mato,
nebyla specifikovana velikost MS-Access databaze,
pozdeji 10MB, ani hardware na kterem to bezi,
ale neva, to vsak clovek, aby byl vestec. :o)))
Zamky, ktere si system vytvari sam, jak pises, to take
muzou byt, avsak nevime zda aktualizuje data
a nebo jen obycejne cte data z databaze,
pokud jen ctes data z databaze, tak se zamky
neuplatnuji atd.
Martin
Admin Of Power Oracle
spomalenie pri viacuzivatelskom pristupe
[*] m.mrazik <m.mrazik(zv)stonline.sk> - 10.8.2005 16:51:18
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Martin Marek
<Jen cista logika.
OK ale ked ide o suborovu databazu - co MDB j,e tak sa serveri je tento
subor iba ulozeny a vsetky operacie sa deju v RAMkach klientskych pocitacov.
Cize pri otvoreni jedneho suboru 10 timi uzivatelmi by to nejak nemalo byt
poznatelne - server poskytuje len suborove sluzby a to by sa prejavovalo aj
inde nielen u spominanej accessovej databazy.
Skor si myslim ci to spomalenie nebude mat nieco spolocneho so zamykanim
zaznamov a pod.
Miro
spomalenie pri viacuzivatelskom pristupe
[*] mato <mato.tino(zv)inmail.sk> - 10.8.2005 16:49:18
no ano ale ako som pisal mdb ma 10 MB co je oproti normalnym databazam ako
omrvinka , a 3 nasobne spomalenie ak by zavyselo iba od vykonu servra, ktory
je vzhladom na velkost a typ databazy / sluzi iba na poskytnutie suboru -
ziadne operacie nad databazov / jednoducho ten server je na tuto databazu
tak vykonny ze to podla mna nje je obmedzenie a k tomu pri dvoch uzivateloch
? To by sa museli skutocne databazy spustat na terabajtovych procesoroch aj
to by isli slimacim tempom.
> Mato,
>
> plati to myslim obecne, priklad, kdyz si udelas na svem
> pocitaci WWW server s napr. Apache,
> tak kdyz budes testovat sve stranky, tak hrde muzes
> prohlasit, ze je to rychle jak bejk, pak se Ti pripoji
> vice lidi a najednou bud server down nebo hlasky
> typu "kurva ty to mas ale pomaly".
>
> Jen cista logika.
>
> Jiny priklad, mas 20 amperovy jistic
> a stabilni odber 15 amperu,
> a pripojis nahle rychlovarnou konvici, reknu 10 amperu,
> tedy odber je ted 25 amperu
> a samozrejme, musis nejspise tutove jit nahodit jistice. :o)
>
> Popremejslej o nize napsanem a jak to resit,
> tak to je jiz tolik cest, ze by mi nestacil
> mesic k napsani a Tvemu nauceni
>
> Tak jsem se nejak rozepsal :-)
>
komunikace se sluzbou
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 10.8.2005 15:57:14
Kdyz uz jednou mas sit, proc ne treba UDP ?
service -> GUI app Jak to je (pri kazde zmene nebo na zakukani)
GUI app -> service Jak to ma byt (pokud chci, aby bylo jinak, nez je),
nebo pod timerem "kuku".
Jarda
----- Original Message -----
From: "Ing. Petr Sikola" <developer(zv)efg(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 10, 2005 2:29 PM
Subject: komunikace se sluzbou
> Zdravim konferenci,
> resim v .NET (ale obecne to muze byt i pri Delphi) komunikaci se sluzbou
> (Windows Service).
> Potrebuju udelat "vizualizaci" sluzby (takovej viewer), ktera komunikuje
> po
> siti s ruznym HW, takze potrebuju zobrazovat stav komunikace s timto HW a
> take ho ovladat.
> Primarne by tento viewer mel bezet primo na stroji, kde bezi ta sluzba (i
> kdyz sitove nasazeni nevylucuju).
> Reakce na povely z vieweru by mely byt co nejrychlejsi, zobrazeni stavu
> sluzby samozrejme s co nejmensim zpozdenim.
> Sluzba bude pripojena k databazi MSSQL.
>
> Mate nekdo nejakou ideu jak na to?
>
> Diky za napady.
>
> Petr Sikola
>
>
> spomalenie pri viacuzivatelskom pristupe
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 10.8.2005 15:43:13
Mato,
plati to myslim obecne, priklad, kdyz si udelas na svem
pocitaci WWW server s napr. Apache,
tak kdyz budes testovat sve stranky, tak hrde muzes
prohlasit, ze je to rychle jak bejk, pak se Ti pripoji
vice lidi a najednou bud server down nebo hlasky
typu "kurva ty to mas ale pomaly".
Jen cista logika.
Jiny priklad, mas 20 amperovy jistic
a stabilni odber 15 amperu,
a pripojis nahle rychlovarnou konvici, reknu 10 amperu,
tedy odber je ted 25 amperu
a samozrejme, musis nejspise tutove jit nahodit jistice. :o)
Popremejslej o nize napsanem a jak to resit,
tak to je jiz tolik cest, ze by mi nestacil
mesic k napsani a Tvemu nauceni
Tak jsem se nejak rozepsal :-)
Martin
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of mato
>
> no ano to plati podla mna pre velke databazy ale ja mam mdb
> databazu /ako som uz pisal/- co je subor na servri ziaden sql
> server nebezi, ta mdb ma 10 MB a bezi to na servri na P4 2,4
> GHZ s 1 GB RAM ktory nie je nejak moc vytazeny. Skor mi to
> pripada na nejaky sposob prace s databazov acces ktora
> funguje inak ak ju ma viac uzivatelov otvorenu. Mozno inym
> vhodnym nastavenim komponentov ADOexpres by sa to urychlilo a
> to som mal na mysli ci niekto s tymto nema nejaku skusenost.
>
>
>
>
> > Tady staci logika a muzete si odpovedet sam,
> > nebot kdyz jste na databazi sam, tak se samozrejme
> > alokuje nejaka pamet a systemove prostredky pro Vas,
> > kdyz se pripoji reknu 5 lidi, tak pozadavek je na systemove
> prostredky
> > 3 krat vetsi, vetsinou pomuze upgrade hardware
> > - vice RAMky a nakonfigurovat databazi
> > a nebo obecne vykonejsi hardware, ale samozrejme,
> > kdyz se Vam bude do databaze pripojovat 100 lidi,
> > tak zase vykon pro jednoho uzivatele poklesne,
> > vzdy podle pravidel logiky.spomalenie pri viacuzivatelskom pristupe
[*] mato <mato.tino(zv)inmail.sk> - 10.8.2005 15:25:10
no ano to plati podla mna pre velke databazy ale ja mam mdb databazu /ako
som uz pisal/- co je subor na servri ziaden sql server nebezi, ta mdb ma 10
MB a bezi to na servri na P4 2,4 GHZ s 1 GB RAM ktory nie je nejak moc
vytazeny. Skor mi to pripada na nejaky sposob prace s databazov acces ktora
funguje inak ak ju ma viac uzivatelov otvorenu. Mozno inym vhodnym
nastavenim komponentov ADOexpres by sa to urychlilo a to som mal na mysli ci
niekto s tymto nema nejaku skusenost.
> Tady staci logika a muzete si odpovedet sam,
> nebot kdyz jste na databazi sam, tak se samozrejme
> alokuje nejaka pamet a systemove prostredky pro Vas,
> kdyz se pripoji reknu 5 lidi, tak pozadavek je na systemove
> prostredky 3 krat vetsi, vetsinou pomuze upgrade hardware
> - vice RAMky a nakonfigurovat databazi
> a nebo obecne vykonejsi hardware, ale samozrejme,
> kdyz se Vam bude do databaze pripojovat 100 lidi,
> tak zase vykon pro jednoho uzivatele poklesne,
> vzdy podle pravidel logiky.
>
> Dobra databaze, kterou jsem videl "obslouzit"
> 1000 uzivatelu je Oracle, ale je take pomerne
> draha, avsak robustni a spolehliva.
spomalenie pri viacuzivatelskom pristupe
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 10.8.2005 15:11:09
> zdravim mam databazovu aplikaciu v D7 , komponenty adoexpres
> a pristupujem na databazu mdb. Ale staci ak by to mal
> spustene aj niekto iny v sieti / nemusi v tom nic robit ale
> iba spustenu aplakaciu / a umna to ide ovela pomalsie.
> Spustam na to take databazove operacie, ktore idu normalne
> asi minutu, ale ak to ma spustene aj niekto iny tak idu aj 4
> minuty. Da sa s tym nieco robit ?
>
Tady staci logika a muzete si odpovedet sam,
nebot kdyz jste na databazi sam, tak se samozrejme
alokuje nejaka pamet a systemove prostredky pro Vas,
kdyz se pripoji reknu 5 lidi, tak pozadavek je na systemove
prostredky 3 krat vetsi, vetsinou pomuze upgrade hardware
- vice RAMky a nakonfigurovat databazi
a nebo obecne vykonejsi hardware, ale samozrejme,
kdyz se Vam bude do databaze pripojovat 100 lidi,
tak zase vykon pro jednoho uzivatele poklesne,
vzdy podle pravidel logiky.
Dobra databaze, kterou jsem videl "obslouzit"
1000 uzivatelu je Oracle, ale je take pomerne
draha, avsak robustni a spolehliva.
Martin
komunikace se sluzbou
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 10.8.2005 14:29:06
Zdravim konferenci,
resim v .NET (ale obecne to muze byt i pri Delphi) komunikaci se sluzbou
(Windows Service).
Potrebuju udelat "vizualizaci" sluzby (takovej viewer), ktera komunikuje po
siti s ruznym HW, takze potrebuju zobrazovat stav komunikace s timto HW a
take ho ovladat.
Primarne by tento viewer mel bezet primo na stroji, kde bezi ta sluzba (i
kdyz sitove nasazeni nevylucuju).
Reakce na povely z vieweru by mely byt co nejrychlejsi, zobrazeni stavu
sluzby samozrejme s co nejmensim zpozdenim.
Sluzba bude pripojena k databazi MSSQL.
Mate nekdo nejakou ideu jak na to?
Diky za napady.
Petr Sikola
Zobrazeni image v TTollButton
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 10.8.2005 12:20:55
Mam aplikaci napsanou v D6.
Na formulari pouzivam v TToolBaru tlacitka TToolButton.
Dalke je na formulari TImageList se sadou images.
Tyto image mam napojene na jednotlive TTollButton
pres ImageIndex.
Aplikaci vyvyjim na PC s WinXP.
U zakaznika, ktery ma OS Win 95 se nezobrazuji image prirazene k
jednotlivym tlacitkum.
Nemam moznost testovat na Win95 a tak prosim o pomoc.
Petr Gregor
IndySOAP v CGI
[*] Petr Langer <langer(zv)xdom(tec)cz> - 10.8.2005 11:32:51
Ahojte,
potrebuju pouzit %subj% v CGI, bohuzel jsem nikde na webu nenasel moc
zdroju, popisu event. ukazek jak na to. V ukazkach je pouziti pouze s
vytvoreni vlastniho http/tcp serveru.
Diky,
Petr Langer
MSSQL a SP Fields
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 10.8.2005 09:58:45
> Nevite nekdo jak zjistit nazvy, typy a velikosti parametru ulozene
> procedury?
SELECT
c.name,
t.name,
c.prec,
c.xprec,
c.scale
FROM dbo.syscolumns AS c
JOIN dbo.systypes AS t ON c.xusertype=t.xusertype
WHERE c.id=OBJECT_ID('dbo.JmenoUlozeneProcedury','P')
ORDER BY c.colid
Tomas Zalesak
MSSQL a SP Fields
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 10.8.2005 09:38:43
Myslel jsem, ze bude stacit napovedet, ale nestacilo. Pisu z hlavy,
odhaduji, ale takto nejak by to mohlo fungovat:
Kdyz udelas toto:
Parameters.Refresh, tak se do kolekce Parameters natahne seznam
parametru SP. A kazdy parametr je typu TParameter a ma i vlastnosti
DataType atd. Tedy to, co presne potrebujes. Nebo ne?
Ludek napsal(a):
> ----- Original Message -----
> From: "Karel Kral" <kralkonf(zv)purusmeda(tec)cz>
>
>>K parametrum SP musis pristupovat jinak (pouzij TAdoDataSet nebo
>>TAdoCommand):
>
> .....
>
>> ParamByName('(zv)Datum').Value := FUserData.ReportDate;
>> ParamByName('(zv)PracDny').Value := CalcWorkDays;
>
>
> Ahoj,
> No ja nechci ty procedury spoustet, ani nechci parametry necim naplnovat, ja
> potrebuji ziskat seznam vsech parametru vcetne jejich typu a velikosti podle
> nazvu procedury, protoze je dopredu neznam.
> A nejradeji bych to ziskal ve stejne fome jako to ziskam pro libovolny dotaz
> nasledujicim zpusobem :
> ADOQuery1.SQL.Clear;
> ADOQuery1.SQL.Add('SET FMTONLY ON');
> ADOQuery1.SQL.AddStrings('select * from tabulka');
> ADOQuery1.SQL.Add('SET FMTONLY OFF');
> ADOQuery1.Open;
> for i := 0 to ADOQuery1.FieldCount - 1 do
> begin
> ListBox1.Items.Add(ADOQuery1.Fields[i].FullName)
> --ADOQuery1.Fields[i].DataType ... zjistim typ
> --ADOQuery1.Fields[i].DataSize ... zjistim velikost
> end;
>
> Protoze vysledek meho snazeni je ten, ze potrebuji zjistit, zda pole
> zadaneho datoveho zdroje (SQL dotazu) koresponduji s parametry nekolika
> ulozenych procedur po strance nazvu a typu.
>
> Jinak si samozrejme mohu zjistit nazvy a typy parametru ze systemovych
> tabulek, ale tam bych musel vytvaret konverzni tabulku mezi
> ADOQuery1.Fields[i].DataType a udaji v syscolumns.
> Tam jsem napriklad zjistil, ze typ money je v syscolumns money ale v
> ADOQuery1.Fields[i].DataType je typu ftBCD stejne jako decimal, takze tam
> nejde poradne zjistit soulad.
>
>
> Cili potrebuji vedet jak zjistit nazev vsech parametru,DB.TFieldType a
> velikost pro libovolnou ulozenou proceduru v MSSQL2000.
> No a nebo naopak jak zjistit jaky typ maji pole obecne sestaveneho datoveho
> zdroje podle syscolumns resp. systypes.
>
> Takhle treba zjistuji parametry pro ulozenou proceduru
>
> SELECT
> sysobjects.NAME as SPNAME,syscolumns.name as FNAME,systypes.NAME as
> TNAME,syscolumns.length,syscolumns.xprec,syscolumns.xscale
> FROM SYSCOLUMNS
> join systypes on systypes.xtype=syscolumns.xtype
> join sysobjects on sysobjects.ID=syscolumns.ID
> where
> (sysobjects.NAME = 'nazev_procedury')
>
> jenze zase neumim toto vytahnout pro obecny datovy zdroj, ktery neni ulozeny
> jako objekt v databazi.
>
>
> Ludek ZITA
>
>
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
spomalenie pri viacuzivatelskom pristupe
[*] mato <mato.tino(zv)inmail.sk> - 10.8.2005 07:28:32
zdravim mam databazovu aplikaciu v D7 , komponenty adoexpres a pristupujem
na databazu mdb. Ale staci ak by to mal spustene aj niekto iny v sieti /
nemusi v tom nic robit ale iba spustenu aplakaciu / a umna to ide ovela
pomalsie. Spustam na to take databazove operacie, ktore idu normalne asi
minutu, ale ak to ma spustene aj niekto iny tak idu aj 4 minuty. Da sa s tym
nieco robit ?
Rich edit zvirazneni textu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 10.8.2005 04:22:16
9.8.2005 Pavel !:
> Chtel jsem se vas zeptat, jak dejmetomu udelat to, aby kdyz do
> RichEidtu napisu nejake "klicove slovo", tak Aby se po napsani
> zvyraznilo (viz jako Editor Delphi). A dalsi vec lzde do richeditu
> vkladat obrazky? (a jak)?
T zvyrazneni textu je RichEdit "hloupy", ale muzes to delat pomoci
SelAttributes. Sice existuji nejake nadstavby, ktere zvyrazneni v
RichEdit delaji, ale bude to pomalejsi nez FrontPage. Pro zvyrazneni
syntaxe se hodi mnohem lip napr. komponenta SynEdit
Do standardniho RichEdit obrazky vkladat nejdou, musel bys najit
komponentu, zalozenou na RichEdit 2.O, napr. rxRichEdit
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Rich edit zvirazneni textu
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 9.8.2005 20:15:42
Chtel jsem se vas zeptat, jak dejmetomu udelat to, aby kdyz do RichEidtu
napisu nejake "klicove slovo", tak
Aby se po napsani zvyraznilo (viz jako Editor Delphi). A dalsi vec lzde
do richeditu vkladat obrazky? (a jak)?
MSSQL a SP Fields
[*] lelicek(zv)volny(tec)cz - 9.8.2005 19:43:39
----- PUVODNI ZPRAVA -----
Od: "Ludek" <konference(zv)sales(tec)cz>
Ahoj,
tohle je dost spatny postup, MS nezarucuje, ze systemove tabulky
nezmeni strukturu (naopak naznacuje, ze se tak stane). Doporuceno
je pouzivat systemove procedury a view (napr.
INFORMATION_SCHEMA.%). Vzhledem k tomu, ze nova verze serveru klepe
na dvere, tak bych moc neexperimentoval.
Do budoucna to bude jeste tezsi, MSSQL2005 umoznuje vlastni
definici typu (a docela divokou).
Pavel
>
> Takhle treba zjistuji parametry pro ulozenou proceduru
>
> SELECT
> sysobjects.NAME as SPNAME,syscolumns.name as
> FNAME,systypes.NAME as
> TNAME,syscolumns.length,syscolumns.xprec,syscolumns.xscale
> FROM SYSCOLUMNS
> join systypes on systypes.xtype=syscolumns.xtype
> join sysobjects on sysobjects.ID=syscolumns.ID
> where
> (sysobjects.NAME = 'nazev_procedury')
>
> jenze zase neumim toto vytahnout pro obecny datovy zdroj, ktery
> neni ulozeny
> jako objekt v databazi.
>
>
> Ludek ZITA
>
>
>
>
>
>
--
Revolucni vysokorychlostni INTERNET jen za nizky mesicni pausal 399
Kc. Navic MP3 prehravac nebo flash disk ZDARMA! Vice na
http://www.revolucniinternet(tec)cz
MSSQL a SP Fields
[*] Ludek <konference(zv)sales(tec)cz> - 9.8.2005 18:43:35
----- Original Message -----
From: "Karel Kral" <kralkonf(zv)purusmeda(tec)cz>
> K parametrum SP musis pristupovat jinak (pouzij TAdoDataSet nebo
> TAdoCommand):
.....
> ParamByName('(zv)Datum').Value := FUserData.ReportDate;
> ParamByName('(zv)PracDny').Value := CalcWorkDays;
Ahoj,
No ja nechci ty procedury spoustet, ani nechci parametry necim naplnovat, ja
potrebuji ziskat seznam vsech parametru vcetne jejich typu a velikosti podle
nazvu procedury, protoze je dopredu neznam.
A nejradeji bych to ziskal ve stejne fome jako to ziskam pro libovolny dotaz
nasledujicim zpusobem :
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SET FMTONLY ON');
ADOQuery1.SQL.AddStrings('select * from tabulka');
ADOQuery1.SQL.Add('SET FMTONLY OFF');
ADOQuery1.Open;
for i := 0 to ADOQuery1.FieldCount - 1 do
begin
ListBox1.Items.Add(ADOQuery1.Fields[i].FullName)
--ADOQuery1.Fields[i].DataType ... zjistim typ
--ADOQuery1.Fields[i].DataSize ... zjistim velikost
end;
Protoze vysledek meho snazeni je ten, ze potrebuji zjistit, zda pole
zadaneho datoveho zdroje (SQL dotazu) koresponduji s parametry nekolika
ulozenych procedur po strance nazvu a typu.
Jinak si samozrejme mohu zjistit nazvy a typy parametru ze systemovych
tabulek, ale tam bych musel vytvaret konverzni tabulku mezi
ADOQuery1.Fields[i].DataType a udaji v syscolumns.
Tam jsem napriklad zjistil, ze typ money je v syscolumns money ale v
ADOQuery1.Fields[i].DataType je typu ftBCD stejne jako decimal, takze tam
nejde poradne zjistit soulad.
Cili potrebuji vedet jak zjistit nazev vsech parametru,DB.TFieldType a
velikost pro libovolnou ulozenou proceduru v MSSQL2000.
No a nebo naopak jak zjistit jaky typ maji pole obecne sestaveneho datoveho
zdroje podle syscolumns resp. systypes.
Takhle treba zjistuji parametry pro ulozenou proceduru
SELECT
sysobjects.NAME as SPNAME,syscolumns.name as FNAME,systypes.NAME as
TNAME,syscolumns.length,syscolumns.xprec,syscolumns.xscale
FROM SYSCOLUMNS
join systypes on systypes.xtype=syscolumns.xtype
join sysobjects on sysobjects.ID=syscolumns.ID
where
(sysobjects.NAME = 'nazev_procedury')
jenze zase neumim toto vytahnout pro obecny datovy zdroj, ktery neni ulozeny
jako objekt v databazi.
Ludek ZITA
Dotaz k implementaci mailto
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.8.2005 17:05:27
Milan Kajnar wrote:
> pomoci RunDLL... Parametr, ktery pujde do funkce je v tom volani %1,
> ale ja vubec netusim, co mam
> deklarovat v te funkci (v dll) na vstupu... Bude to nejaka stringova
> promenna, jeji typ mi je ale neznamy a pada
> mi to...
Popis v SDK pod heslem RunDLL32 vypada dost jednoznacne
- command line bys mel dostat jako pointer na char:
void CALLBACK EntryPoint(
HWND hwnd, // handle to owner window
HINSTANCE hinst, // instance handle for the DLL
LPTSTR lpCmdLine, // string the DLL will parse
int nCmdShow // show state
);HTH, pf
Dotaz k implementaci mailto
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.8.2005 16:51:26
Petr Fejfar wrote:
>
http://msdn.microsoft.com/library/default.asp?url=/workshop/networking/plugg
able/pluggable.asp
ted jsem zjistil ze tohle URL neskoci na tu spravnou kapitolu
ale jen do indexu, tak si pls vyhledej kapitolu
"Registering an Application to a URL Protocol"
(je posledni v sekci Overviews/Tutorials)
pf
IB - kompl. select - rychlost
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 9.8.2005 17:03:27
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Marek
Zkus zacit joinovanim:
select a.DATA as datadomu , b.DATA as databytu, c.DATA as datapokoje
from DUM a left join BYT b on a.ID = b.ID_DUM
left join POKOJ c on b.ID = c.ID_BYT
Predpokladam ze na vsech ID_X mas indexy.
Snad sem se nikde nesek :).
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Dotaz k implementaci mailto
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 9.8.2005 16:51:26
> Kdyz zam zaregistrujes EXE, tak dostanes to URL s protokolem 'mailto' jako
> command line parameter a na nej se dostanes pres ParamStr().
jasne to chapu... ale ja to prave nechci delat pres exe... Mam svou DLL, kde
volam konkretni funkci
pomoci RunDLL... Parametr, ktery pujde do funkce je v tom volani %1, ale ja
vubec netusim, co mam
deklarovat v te funkci (v dll) na vstupu... Bude to nejaka stringova
promenna, jeji typ mi je ale neznamy a pada
mi to... IB - kompl. select - rychlost
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 9.8.2005 16:47:25
Pro nazorny priklad :
1. Mam tabulku DUM
2. Mam tabulku BYT
3. Mam tabulku POKOJ
V dome jsou byty a v bytech jsou pokoje.
add 1)
DUM ma sloupecky :
ID primarni klic
DATA atd.
add2)
BYT ma sloupecky :
ID primarni klic
ID_DUM cizi klic na DUM (foreign key)
DATA atd.
add 3)
POKOJ ma sloupecky :
ID primarni klic
ID_BYT cizi klic na BYT (foreign key)
DATA atd.
select a.DATA, b.DATA, c.DATA
from POKOJ c, BYT b, DUM a
where a.ID = b.ID_DUM
and b.ID = c.ID_BYT
/
Ukazkove a kdyz si to prectete
a pochopite jak to pracuje,
tak pohoda.
Martin
>
> View je defacto natvrdo ulozeny select
> s kterym se lepe pracuje.
>
> Pravidla pro optimalizaci dotazu v Oracle
> databazi :
>
> za FROM uvadet tabulky v poradi od nejvetsi
> po nejmensi (pocet zaznamu)
>
> za WHERE uvest podminky v takovem
> logickem poradi, aby co nejvice orezavala
> mnozina dat
>
> Zoptimalizoval jsem takto SELECT,
> ktery bezel 2 hodiny na 10 minut.MSSQL a SP Fields
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 9.8.2005 16:43:25
K parametrum SP musis pristupovat jinak (pouzij TAdoDataSet nebo
TAdoCommand):
try
with dsCalc do
begin
if Active then
Close;
Connection := FSqlConn;
CommandText := spnBrpEfektNak;
with Parameters do
begin
Refresh;
ParamByName('(zv)Datum').Value := FUserData.ReportDate;
ParamByName('(zv)PracDny').Value := CalcWorkDays;
end; // with
Open;
end; // with
except
on E: Exception do
raise EEfektNakReport.CreateResFmt((zv)sSPExecErr, [dsCalc.CommandText,
E.Message]);
end; // try/except
Ludek napsal(a):
>
> ListBox1.Items.Add(ADOQuery1.Fields[i].FullName) --ADOQuery1.Fields[i].DataT
> ype --ADOQuery1.Fields[i].DataSize
>
> Ale pro SP tam po sekvenci
>
> ADOStoredProc1.ProcedureName := 'nazev_procedury';
> ADOStoredProc1.Prepared := True
>
> Je ADOStoredProc1.Fileds.Count=0.
>
>
> Jak to jinak zjistit.
>
> Dekuji
> Ludek
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Dotaz k implementaci mailto
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.8.2005 16:41:24
Milan Kajnar wrote:
> Je tu prosim nekdo kdo ma zkusenosti s registraci vlastniho programu
> ci dll pro protokol mailto?
Nevim, jestli jsem porozumel tvemu problemu, ale pokud ti jde o zmenu
registrace aplikace obsluhujici URL protokol 'mailto' na tvoji aplikaci,
pak bych to udelal podle popisu tady:
http://msdn.microsoft.com/library/default.asp?url=/workshop/networking/plugg
able/pluggable.asp
Delal jsem to sice pro jiny protokol, ale nemel jsem s tim zadne problemy.
Kdyz zam zaregistrujes EXE, tak dostanes to URL s protokolem 'mailto' jako
command line parameter a na nej se dostanes pres ParamStr().> Soucasti me dll je Mailto funkce, kde je jeden jediny vstupni
> parametr a ja vubec nevim, jakeho formatu ten parametr je, protoze se
> nemohu pres debuger primknout k explorer.exe...
> Takze jsem zkousel PChar, WideString, ShortString a fur mi to pada na
> hubajznu... RunDLL32 zajisti nacteni me knihovny, volani me funkce,
> ale nevim opravdu co je vstupem i kdyz by to proste mel byt retezec.
Vzhledem k tomu, ze na pocitacich, ktere tu mam, je protokol 'mailto'
registrovan podle popisu vyse, tak nerozumim tomu, jakou roli by v tom mela
hrat DLL, tak asi registrujes neco jineho...
HTH, pf
MSSQL a SP Fields
[*] Ludek <konference(zv)sales(tec)cz> - 9.8.2005 16:09:22
Zdravim,
Nevite nekdo jak zjistit nazvy , typy a velikosti parametru ulozene
procedury.
Pro pohled to delam takto :
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SET FMTONLY ON');
ADOQuery1.SQL.AddStrings('select * from tabulka');
ADOQuery1.SQL.Add('SET FMTONLY OFF');
ADOQuery1.Open;
for i := 0 to ADOQuery1.FieldCount - 1 do
ListBox1.Items.Add(ADOQuery1.Fields[i].FullName) --ADOQuery1.Fields[i].DataT
ype --ADOQuery1.Fields[i].DataSize
Ale pro SP tam po sekvenci
ADOStoredProc1.ProcedureName := 'nazev_procedury';
ADOStoredProc1.Prepared := True
Je ADOStoredProc1.Fileds.Count=0.
Jak to jinak zjistit.
Dekuji
Ludek
Dotaz k implementaci mailto
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 9.8.2005 16:07:22
Ahoj...
Je tu prosim nekdo kdo ma zkusenosti s registraci vlastniho programu ci dll pro protokol mailto?
Soucasti me dll je Mailto funkce, kde je jeden jediny vstupni parametr a ja vubec nevim, jakeho formatu ten parametr je, protoze se nemohu pres debuger primknout k explorer.exe...
Takze jsem zkousel PChar, WideString, ShortString a fur mi to pada na hubajznu... RunDLL32 zajisti nacteni me knihovny, volani me funkce, ale nevim opravdu co je vstupem i kdyz by to proste mel byt retezec.
Treba to nekdo jiz resil. Diky za rady...
Milan
IB - kompl. select - rychlost
[*] Kalhous <kalhous(zv)eu(tec)cz> - 9.8.2005 15:45:20
V podstate plati, ze opravdova optimalizace slozitejsiho selectu je do
znacne miry veci praxe, citu, trpelivosti a stesti. Na optimalizacni postupy
zabudovane v serveru klidne zapomen (co by taky clovek mohl chtit skoro
zadarmo, ze). Existuji samozrejme nektera obecna pravidla ktera se daji
najit v ruznych priruckach, neco se da vycist z planu selectu ale podle
meho nazoru opravdu nejlepsi vysledky dava trpeliva prace a zkouseni. Casto
ma na rychlost drasticky vliv i zdanlive nepatrna zmena v konstrukci
selectu. Takze z toho plyne, ze se opravdu neda nekolika vetami napsat
"udelej to a to".
> Mam dost komplikovany select na IB databaze, ktory berie data z viacerych
> tabuliek. Myslel som, ze to urychlim, ked vytvorim pohlad ale podla
> vsetkeho
> je to stale rovnako pomale.
> Da sa nejako urychliu pohlad (view)?
> Da sa nejako urychlit praca s tabulkami? - poznam len indexovanie, ktore
> pomaha pri order by ale ine urychlenie nepoznam
IB - kompl. select - rychlost
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 9.8.2005 15:31:19
View je defacto natvrdo ulozeny select
s kterym se lepe pracuje.
Pravidla pro optimalizaci dotazu v Oracle
databazi :
za FROM uvadet tabulky v poradi od nejvetsi
po nejmensi (pocet zaznamu)
za WHERE uvest podminky v takovem
logickem poradi, aby co nejvice orezavala
mnozina dat
Zoptimalizoval jsem takto SELECT,
ktery bezel 2 hodiny na 10 minut.
Martin
P.S. V IB to bude podobne, pokud ne stejne.
P.P.S. A jsou ruzne mody optimizeru - RULES=pravidlovy,
COST=nakladovy atd. a z toho plyne ruzne EXPLAIN PLAN,
tedy alespon v Oracle databazi.
>
> Mam dost komplikovany select na IB databaze, ktory berie data
> z viacerych tabuliek. Myslel som, ze to urychlim, ked
> vytvorim pohlad ale podla vsetkeho je to stale rovnako pomale.
>
Viz vyse
>
>
> Da sa nejako urychliu pohlad (view)?
>
View = ulozeny kod selectu na ktery se odkazuji jmenem
> Da sa nejako urychlit praca s tabulkami? - poznam len
> indexovanie, ktore pomaha pri order by ale ine urychlenie nepoznam
>
Presne, indexovat, defragmentovat tablespace, deffagmentovat
tabulky, indexy...cisty datovy model, 3. normalni forma nejlepe,
2.normalni forma jeste pohoda. :o)